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R00002 


R 0000 2 5 

R00003 

R000035 


ROOOOA 
RO0CO5 
R OOCO  6 


R00007 


ASSEMBLY  AND  OPERATICN  INFORMATION 


USER'S  PAGE  NOo  1 EO 


THIS  LGC  PROGRAM  IS  I MENDED  FCR  USE  IN  THE  LM 
TEE  DETAILS  OF  IMPLEMENTATION  ARE  SPECIFIED  IN 


DURING  THE  MANNED  LUNAR  LANDING  MISSION  OP  ANY  SUBSET  THEREOE 
REPORT  R-567,  AS  AMENDEDo 


GUIDANCE  SYSTEM  OPERATIONS  PLAN 
FOR  MANNED  LM  EARTH  ORBITAL  AND  LUNAR  MISSIONS 
USING  PROGRAM  LUMINARY 


THIS  PROGRAM  AND  R-567  HAVE  BEEN  PREPARED  EY  THE  INSTRUMENTATION  LABORATORY,  MASSACHUSETTS  INSTITUTE  OF 
TECHNOLOGY  75  CAMBRIDGE  PARKWAY,  CAMBRIDGE,  MASSACHUSETTS  UNDER  PRO J ECT5 5-23 8-70 , SPONSCPED  BY  THE  MANNED 
SPACECRAET  CENTER  OF  THE  NATIONAL  AERONAUTICS  AND  SPACE  ADMINISTRATION,  CONTRACT  NAS  9-4065„ 


THIS  PROGRAM  IS  REFERRED  TO  AS  LUMINARY  1C 
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(MAIN)  PAGE 
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ASSEMBLY 

AND 

OPERATICN  INFCRMATICN 

USER  ' S PAGE  NOe 

2 

EO 

ROOOl 

TABLE  OF 

LOG 

CARDS 

R00015  ABSOLUTE  ADDRESSES  FOR  UPDATE  PROGRAM 
R0002  ASSEMBLY  AND  OPERATICN  INFCRMATICN 


R0003  TAGS  FOR  RELATIVE  SETLOC  AND  BLANK  BANK  CARDS 
R0005  CCNTROLLED  CONSTANTS 

R0006  . INPUT/OUTPUT  CHANNEL  BIT  DESCRIPTIONS 
R0007  FLAGWORD  ASSIGNMENTS 
R0008  SLBROUTINE  CALLS 


R0009 
ROOlO 
ROOll 
ROOT  2 
R0013 
R0014 
R0015 
R0016 
R0017 
ROD  18 
R.0019 
R0020 
'R0021 
R0022 
R0023 
R0024 
R0025 


TABLE  OF  SLBROUTINE  LOG  SECTIONS 
LUMERASE 

ERASABLE  ASSIGNMENTS 
LEMONAID 

INTERRUPT  LEAD  INS 
T4RUPT  PROGRAM 
RCS  FAILURE  MONITOR 
DCl^NLINK  LISTS 
AGS  INITIALIZATION 
FRESH  START  AND  RESTART 
RESTART  TABLES 
AOTMARK 

EXTENDED  VERES 
PINBALL  NCUN  TABLES 
LEM  GEOMETRY 

IMU  CCMPENSATICN  PACKAGE 
R 63 


R0026 

R0027 

R0028 

R0029 

R0030 

R0031 

R0032 

R0033 

R0034 

R0035 

R0036 

R0037 

RC036 

R0039 

R0040 

R0042 

R0043 

R0044 

R0045 

R0046 

R0047 

R0049 


ATTITUDE  maneuver  ROUTINE 
GIMBAL  LOCK  AVCIDANCE 
KALCMANU  STEERING 
SYSTEM  TEST  STANDARD  LEAD  INS 
IMU  PERFORMANCE  TESTS  2 
IMU  PERFORMANCE  TESTS  4 
PINBALL  GAMES  BUTTONS  AND  LIGHTS 
R60,Re2 

S-EANC  ANTENNA  FOR  LM 

LEMP20S 

RADAR  LEADIN  RCUTINES 
P20-P25 

LEMP30S 

P30,P37 

P32-P35,  P72-P75 

KI  SSI NG 

GROUND  TRACKING  DETERMINATION  PROGRAM 

P34-P35,  P74-P75 

R31 

P76 

R3  0 

FLY 


P21 


GAP 
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L 

ASSEMBLY  AND  OP 

ERATICN  INFORMATION 

R0050 

BURN,  BABY,  BURN  --  MASTER  IGNITION  ROUT 

R0051 

PA0-PA7 

R0052 

THE  LUNAR  LANCING 

R0053 

throttle  ccntrcl  routines 

R0054 

lunar  landing  guidance  equations 

R0055 

P70-P71 

R0056 

P12 

R0057 

ASCENT  GUIDANCE 

R0058 

servicer 

R0059 

LANDING  ANALOG  DISPLAYS 

R00  60 

FINDCDUW  - GUIDAP  INTERFACE 

R0061 

LEMP50S 

R0062 

P51-P53 

R0063 

LUNAR  AND  SOLAR  EPFEMERIDES  SUBROUTINES 

R 006A 

SKI PPER 

R0065 

DOWN-TELEMETRY  PROGRAM 

R0066 

INTER-BANK  CCMMUN  ICAT ION 

R0067 

INTER  PRETER 

R00  68 

FIXED-FIXED  CONSTANT  POOL 

R0069 

INTERPRETIVE  CONSTANTS 

R0070 

SINGLE  PRECISION  SUBROUTINES 

R0071 

EXECUT ive 

R0C72 

WAI TLI ST 

R0073 

LATITUDE  LONGITUDE  SUBROUTINES 

R007A 

PLANETARY  INERTIAL  ORIENTATION 

R0075 

MEASUREMENT  I NCCRPORATI ON 

R0076 

CONIC  SUBROUTINES 

R0077 

INTEGRATION  INITIALIZATION 

R0078 

ORBITAL  INTEGRATION 

R0079 

INFLIGHT  ALIGNMENT  ROUTINES 

R0080 

POWERED  FLIGHT  SUBROUTINES 

R0081 

T IME  OF  FREE  FALL 

R0082 

AGC  BLOCK  TWO  SELF-CHECK 

R0083 

PHASE  TABLE  MAINTENANCE 

R0084 

RESTARTS  ROUTINE 

R0085 

IMU  MODE  SWITCHING  ROUTINES 

R0086 

KEYRUPT,  UPRLPT 

R0087 

DISPLAY  INTERFACE  ROUTINES 

R0088 

SERVICE  ROUTINES 

R0089 

ALARM  AND  ABORT 

R0090 

UPDATE  PROGRAM 

R0091 

RTB  CP  CODES 

R0092 

LMDAP 

R0093 

T6-RUPT  PROGRAMS 

R0094 

DAP  INTERFACE  SUBROUTINES 

R0095 

LAPIDLER  PROGRAM 

R0096 

P-AXIS  PCS  AUTCPiLCT 

R0097 

Q,R-AXIS  RCS  AUTOPILOT 

R0098 

TJET  LAW 

R0099 

KALMAN  FILTER 
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ROlOO 

ROlOl 

R0102 


R0103 

ROlOA 

R0105 

R0106 

R0107 

R0108 

R01C9 

ROllO 
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R0112 
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2021112-091 


ASSEMBLY  AND  OPERATICN  INFORMATION 


TRIM  GIMBAL  CONTROL  SYSTEM 
AOSTASK  AND  AOSJOB 


SPS  BACK-UP  RCS  CONTROL 


SYMBOL  TABLE  L 1ST ING 

UNREFERENCED  SYMBOL  LISTING 

ERASABLE  S EQUALS  CROSS-REFERENCE  TABLE 

SUMMARY  CF  SYMBOL  TABLE  LISTINGS 

MEMORY  TYPE  £ AVAILABLITY  DISPLAY 

COUNT  TABLE 

PARAGRAPHS  GENERATED  FCR  THIS  ASSEMBLY 
OCTAL  LISTING 
OCCUPIED  LCCATICNS  TABLE 
SUBROS  CALLED  £ PROGRAM  STATUS 
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L ASSEMBLY  AND  OPEKATICN  INFCRMATIQN 


P0113 

ROllA 

R0115 

R0116 

REl 

CC 

01 

VERB  LIST  FOR 

3ULAR  VERBS 

NOT  IN  USE 

DISPLAY  OCTAL  COMP 
DISPLAY  OCTAL  COMP 
DI SPLAY  OCTAL  COMP 
DISPLAY  OCTAL  COMP 

, LUMINARY 

1 IN  R1 

R0117 

R0118 

R0119 

02 

03 

04 

2 IN  R1 

3 1 N R1 

1,2  IN  R1,R2 

R0120 

05 

DISPLAY  CCTAL  CCMP 

1 ,2  ,3  IN  R1  ,R2  , R3 

R0121 

06 

DISPLAY  DECIMAL  IN 

R*1  OR  R1,R2  CR  R1,R2,R3 

R0122 

07 

DISPLAY  CP  DECIMAL 

IN  R1,R2  (TEST  ONLY) 

R0123 

CE 

R0124 

09 

R0125 

1C 

R0126 

11 

MONITOR  OCTAL  COMP 

1 IN  R1 

R0127 

12 

MONITOR  OCTAL  COMP 

2 IN  R1 

R0128 

13 

MCMTOR  CCTAL  CCMP 

3 IN  R1 

R0129 

14 

MONITOR  OCTAL  COMP 

1,2  IN  R1,R2 

R0130 

15 

MONITOR  OCTAL  COMP 

1,2,3  IN  R1,R2,R3 

R0131 

1 6 

MONITOR  DECIMAL  IN 

R1  CR  R1,R2  CR  R1 , R2 , R3 

R0132 

17 

MUNITOR  DP  DECIMAL 

IN  R1,R2  (TEST  ONLY) 

R0133 

16 

R0134 

19 

R0135 

20 

R0136 

21 

LOAD  COMPONENT  1 INTO  R1 

R0137 

22 

LOAD  COMPONENT  2 INTO  R2 

ROl  38 

23 

LOAD  COMPONENT  3 INTO  R3 

R0139 

24 

LCAD  CCMPGNENT  1 ,2 

INTO  RI  ,R2 

R014n 

25 

LOAD  COMPONENT  1,2, 

3 INTO  R1,R2,R3 

R0141 

26 

R0142 

27 

DI SPLAY  El XED  MEMORY 

R0143 

28 

R0144 

29 

R0145 

3C 

REQUEST  EXECUTIVE 

R0146 

31 

REQUEST  WAITLIST 

R0147 

32 

RECYCLE  PROGRAM 

R0148 

33 

PROCEED  WITHOUT  DSKY  INPUTS 

R0149 

34 

TERMINATE  FUNCTION 

RC150 

35 

TEST  LIGHTS 

R0151 

36 

REQUEST  FRESH  START 

R0152 

37 

CHANGE  PROGRAM  (MAJOR  MCOE) 

R0153 

38 

R0154 

39 
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L 

P0155 

R0156 

R0157 

R0158 

R0159 

R0160 

R0161 

R01fc2 

R0163 

R0164 

R0165 

R0166 

R0167 

R0168 

R0169 

R0170 

R0171 

R0172 

R0173 

R0174 

R0175 

R0176 

R0177 

R0178 

R0179 

R0180 

R0161 

R0182 

R0183 

R0184 

R0185 

R0186 

R0187 

R0188 

RC189 

R0190 

RC191 

Rai92 

R0193 

R0194 

R0195 

R0196 

R0197 

R0198 

R0199 

R0200 

«0201 

R02CI2 

R0203 


ASSEMBLY  AND  OPERATl'CN  INFCRMATIQN 


(MAIN)  PAGE 

USER'S  PAGE  NOo  6 EO 


EXTENDED  VERBS 


4C  ZERO  CDU-S 
41  COARSE  ALIGN  CDU-S 
L.2  FINE  ALIGN  IMU 

43  LOAD  IMU  ATT  ERROR  METERS 

44  TERMINATE  RR  CONTINUOUS  DESIGNATE  (V41N72  OPTION  2) 

45 

46 

47  INITIALIZE  AGS  (R47I 

48  REQUEST  CAP  DATA  LOAD  ROUTINE  ( R03 ) 

4C  REQUEST  CREVv  DEFINED  MANEUVER  ROUTINE  (R62I 

50  PLEASE  PERFORM 

51 

52  MARK  X-RETICLF 

53  MARK  Y-RETICLE 

54  MARK  X OR  Y-RETICLE 

55  INCREMENT  AGC  TIME  (DECIMAL) 

56  TERMINATE  TRACKING  ( P20  + P25I 

57  PERMIT  LANDING  RADAR  UPDATES 

58  INHIBIT  LANDING  RADAR  UPDATES 

59  COMMAND  LR  TO  POSITION  2, 

6C  DISPLAY  VEHICLE  ATTITUDE  RATES  ON  FDAI  ERROR  NEEDLESo 

61  DISPLAY  CAP  FOLLOWING  ATTITUDE  ERRORSo 

62  DISPLAY  TOTAL  ATTITUDE  ERRORS  WITH  RESPECT  TO  NOUN  22o 

63  SAMPLE  RADAR  ONCE  PER  SECOND  (R04)o 

64  REQUEST  S-BAND  ANTENNA  ROUTINE  (R05) 

65  DISABLE  U AND  V JET  FIRINGS  DURING  DPS  BURNS, 

66  VEHICLES  ARE  ATTACHED,  MOVE  THIS  VEHICLE  STATE  TO  OTHER  VEHICLE, 

67  DI SPLAY  U MATR IX 

68 

69  CAUSE  RESTART 
7C  UPDATE  LIFTOFF  TIME 

71  UNIVERSAL  UPDATE-BLOCK  ADR 

72  UNIVERSAL  UPDATE-SINGLE  ADR 

73  UPDATE  AGC  TIME  (OCTAL) 

74  INITIALIZE  ERASABLE  DUMP  VIA  DOWNLINK 

75  ENABLE  U AND  V JET  FIRINGS  CURING  OPS  BURNS, 

76  MINIMUM  IMPULSE  COMMAND  MODE 

77  RATE  COMMAND  AND  ATTITUDE  FOLD  MODE 

78  LR  SPURIOUS  RETURN  TEST  START  (R77) 

79  LR  SPURIOUS  RETURN  TEST  STEP 
BC  UPDATE  LEM  STATE  VECTOR 

81  UPDATE  CSM  STATE  VECTOR 

82  REQUEST  ORBIT  PARAM  DISPLAY  (R30) 

83  REQUEST  REND  PAKAM  DISPLAY  (R31) 

84 

85  DISPLAY  RR  LOS  AZ  AND  ELEV 

86 
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L ASSEMBLY  ANC  OP  ER  AT  ICN  IN  FORM  AT  ION 


R0204 
RO205 
R020  6 

ee 

89 

9C 

REQUEST  RENDEZVOUS  FINAL  ATTITUDE 
REQUEST  RENDEZVOUS  OUT  OF  PLANE  D] 

ROUTINE  (R63) 
[SPLAY  ROUTINE 

R02C7 

91 

DISPLAY  BANK  SLM 

RO208 

92 

OPERATE  IMU  PERFORMANCE  TEST  (P07I 

1 

R0209 

93 

ENABLE  U MATRIX  I MT  I AL  I Z AT  I CN 

R0210 

94 

R0211 

95 

NO  UPDATE  OF  EITHER  STATE  VECTOR  ( 

P20  OR  P22I 

R0212 

96 

INTERRUPT  INTEGRATION  AND  GC  TC  POO 

R0213 

97 

PERFORM  ENGINE  FAIL  PROCEDURE 

R0214 

98 

R0215  ' 

59 

PLEASE  ENABLE  ENGINE 
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GAP: 

L ASSEKBLY  AND  OPERATION  INFORKATICN  USER'S  PAGE  NGo  8 EO 

P0216  IN  THE  FOLLOWING  NOUN  LIST  THE  :NC  LOAD:  RESTRICTION  MEANS  THE  NOUN 

R0217  CONTAINS  AT  LEAST  ON E ' COM  PON  ENT  WHICH  CANNOT  BE  LOADED,  UEo  OF 

R0216  SCALE  TYPE  L (KIN/SECI,  PP  12  INTEGERS)  OR  TT  (LANDING  RADAR  POSITION), 

R0219  IN  THIS  CASE  VERBS  24  AND  25  ARE  NCT  ALLOWED,  BUT  VERBS  21,  22  OR  23 


R0220 

MAY 

BE  USED  TO  LOAD  ANY  CF  THE  NGUN:S  COMPONENTS 

WHICH  ARE  NOT  OF  THE 

R0221 

ABOVE  SCALE  TYPES, 

R0222 

THE 

:DEC  ONLY:  RESTRICTION  MEANS  ONLY  DECIMAL  OPERATION  IS  ALLOWED  ON 

R0223 

EVERY  COKPCNENT  IN  THE  NOUN,  (NOTE  THAT  :N0  LOAD: 

IMPLIES  :DFC 

ONLY:,  ) 

R0224 

NORMAL  NOUNS  COMPONENTS 

SCALE  AND  DECIMAL  POINT 

PFSTR ICTIQNS 

R0226 

CO 

NOT  IN  USE 

R0227 

Cl 

SPECIFY  MACHINE  ADDRESS  (FRACTIONAL) 

3C0MP 

oXXXXX  FOR 

EACH 

R0228 

02 

SPECIFY  MACHINE  ADDRESS  (WHOLE) 

3C0MP 

XXXXXc  FOR 

EACH 

R022'= 

03 

SPECIFY  MACHINE  ADDRESS  (DEGREES) 

3C0MP 

XXXo  XX  DEG 

FOR  EACH 

RC23C 

04 

ANGLLAR  E RROR / DI F F ERE NCE 

ICOMP 

XXX, XX  CFG 

R0231 

05 

ANGULAR  ERPOR/OIFFERENCE 

ICOMP 

XXX, XX  DEG 

R0232 

06 

CPTICN  CCDE 

3C0MP 

OCTAL  ONLY 

FOR  EACH 

R0233 

LOADING  NOUN  07  WILL  SET  CR  RESET  SELECTED 

BITS  I 

N ANY  ERASABLE  REGISTER 

R0234 

07 

ECADR  CF  WORD  TO  BE  MODIFIED 

3C0MP 

OCTAL  ONLY 

FOR  EACH 

R0235 

ONES  FOR  BITS  TC  BE  MODIFIED 

R0236 

1 TO  SET  OR  0 TO  RESET  SELECTED  BITS 

R0237 

08 

ALARM  DATA 

3C0MP 

OCTAL  ONLY 

FOR  EACH 

R0238 

C5 

ALARM  COOES 

3C0MP 

OCTAL  ONLY 

FOR  EACH 

R023° 

10 

CHANNEL  TO  BE  SPECIFIED 

ICOMP 

OCTAL  ONLY 

R0240 

11 

TIG  OF  CSI 

3C0MP 

OOXXXc  HRS 

DEC  ONLY 

R0242 

OOOXX,  MIN 

MUST  LOAD 

3 

COMPS 

R0244 

OXXc  XX  SFC 

R0245 

12 

CPTICN  CCDE 

2C0MP 

OCTAL  ONLY 

FOR  EACH 

R0246 

(USED  BY  EXTENDED  VERBS  CNLY) 

R0247 

13 

TIG  OF  CDH 

3C0MP 

GOXXXc  HRS 

DEC  ONLY 

R C249 

OOOXX,  MIN 

MUST  LOAD 

3 

COMPS 

R0251 

OXX,  XX  SEC 

R02  52 

14 

CHECKLIST 

3C0MP 

XXXXXo  FOR 

EACH 

R0253 

(USED  BY  EXTENDED  VERBS  CNLY) 

R0254 

(NCUN  25  IS  PASTED  AFTER  DISPLAY) 

R0255 

15 

INCREMENT  MACHINE  ADDRESS 

ICOMP 

OCTAL  ONLY 

R0256 

16 

TIME  OF  EVENT 

3C0MP 

OOXXXc  HRS 

DEC  ONLY 

R0258 

(USED  BY  EXTENDED  VERBS  CNLY) 

OOOXX,  MIN 

MUST  LOAD 

3 

COMPS 

R0260 

OXX, XX  SEC 

R0261 

17 

SPARE 

R0262 

18 

AUTO  MANtUVER  BALL  ANGLES 

3 COMP 

XXXoXX  DEG 

FOR  EACH 

R0263 

19 

SPARE 

R0264 

2C 

ICDU  ANGLES 

3CnMP 

XXXo  XX  DEG 

FOR  EACH 

R0265 

21 

PI  PAS 

3C0MP 

XXXXX,  PULSES  FOP  EACH 

R0267 

22 

NEW  ICDU  ANGLES 

3C0M,P 

XXXoXX  DEG 

FOR  EACH 

R0268 

23 

SPARE 

R0269 

24 

DELTA  TIME  FOR  AGC  CLCCK 

3C0MP 

OOXXX,  HRS 

DEC  ONLY 

R0271 

OOOXX,  MIN 

MUST  LOAD 

3 

COMPS 

R02  73 

OXX, XX  SEC 
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R0274 

25 

CHECKLIST 

3C0MP 

X X X X Xo 

FOR 

EACH 

R0275 

(USED  WITH  PLEASE  PERFORM  CNLY 

) 

R0276 

26 

PRIORI TY/DELAY,  ADRES,  BBCDN 

3C0MP 

OCTAL 

ONLY 

FOR 

EACH 

R0277 

27 

SELF  TEST  ON/OFF  SWITCH 

ICOMP 

XXXXXo 

R0278 

28 

SPARE 

R0279 

29 

SPARE 

R0280 

3C 

SPARE 

R0281 

31 

SPARE 

R0282 

32 

T IME  FROM  PEP  IGEE 

3C0MP 

OOXXXc 

HRS 

DEC  ONLY 

R02  84 

OOOXXc 

MI  N 

MUST  LOAD 

3 

COMPS 

RC286 

OXXoXX 

SEC 

R0287 

33 

TIME  OF  IGNIT ION  • 

3C0MP 

COXXXo 

HRS 

DEC  ONLY 

R0289 

OOOXXo 

MIN 

MUST  LOAD 

r> 

COMPS 

R0291 

OXX„ XX 

SEC 

R0292 

3*^ 

TIME  OF  EVENT 

3CUMP 

OOXXXc 

HR  S 

DEC  ONLY 

R C2  94 

OOOXXo 

MIN 

MUST  LOAD 

3 

COMPS 

R02  96 

OXXo  XX 

sec 

R0297 

35 

TIME  FROM  EVENT 

3C0MP 

OOXXXo 

HR  S 

DEC  ONLY 

R0299 

OOOXXo 

MIN 

MUST  LOAD 

3 

COMPS 

R0301 

OXXo  XX 

SEC 

R0302 

36 

TIME  OF  AGC  CLOCK 

3C0MP 

OOXXXo 

HRS 

DEC  CNLY 

R0304 

OOOXXo 

MIN 

MUST  LOAD 

3 

COMPS 

R0306 

CXXo  XX 

SEC 

R0307 

37 

TIG  OF  TPI 

3C0MP 

OOXXXc 

HRS 

DEC  ONLY 

R0309 

OOOXXo 

MI  N 

MUST  LOAD 

3 

COMPS 

R0311. 

OXXo  XX 

SEC 

R0312 

38 

TIME  OF  STATE  BEING  INTEGRATED 

3C0MP 

OOXXXo 

HRS 

DEC  ONLY 

R0314 

OOOXXo 

MI  N 

MUST  LOAD 

3 

COMPS 

R0316 

OXXo  XX 

SEC 

R0317 

39 

SPARE 
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USER'  S PAGE  NOo  1 ^ 

ED 

P0318 

MIXED  NOUNS 

COMPONENTS 

SCALE 

AND  DECIMAL 

POINT 

RESTP ICTIONS 

R0320 

40 

TIME  FROM  IGNIT ICN/CUTOFF 

3C0MP 

XXB  XX 

MI N/SEC 

NO  LCAD,  DEC 

ONLY 

R0322 

VG  , 

XXXXoX 

FT/SEC 

R0323 

DELTA  V (ACCUMULATED) 

XXXXoX 

FT/SEC 

R032A 

41 

TARGET  A7IMUTH, 

2CQMP 

XXXe  XX 

DEG 

(FOB  SYSTEM 

TEST) 

R0326 

ELEVATI CN 

XX«  XXX 

DEG 

R0327 

42 

APCGEE, 

3C0MP 

XXXXo  X 

NALT  MI 

DEC  ONLY 

R0329 

PERIGEE, 

XXXXo  X 

NAUT  MI 

R0330 

DELTA  V (REQUIRED) 

XXXXoX 

FT/SEC 

R0331 

43 

LAT  ITUDE, 

3C0MP 

XXXo  XX 

DEG 

DEC  ONLY 

R0333 

LON'GI  TLDE  , 

XXXeXX 

DEG 

R0334 

ALT  ITUDE 

XXXXo  X 

NAUT  MI 

R0335 

■ 44 

APOGEE, 

3C0MP 

XXXXoX 

NAUT  MI 

NO  LOAD,  DEC 

ONLY 

R0337 

PERIGEE, 

XXXXoX 

NAUT  MI 

R0338 

TFF 

XXB  XX 

MI N/SEC 

R 0339 

45 

MARKS, 

3C0MP 

XXXXXo 

NO  LCAD,  DEC 

ONLY 

R0341 

TFI  OF  NEXT  BURN 

XXBXX 

MIN/SFC 

R0342 

MGA 

XXXo  XX 

DEG 

R0343 

46 

AUTOPILOT  CONFIGURATION 

1 COMP 

OCTAL  ONLY 

R0344 

47 

LEM  WEIGHT, 

2C0MP 

XXXXXo 

LPS 

DEC  ONLY 

R0346 

CSM  WEIGHT 

XXXXXo 

LBS. 

R0347 

48 

GIM8AL  PITCH  TRIM, 

2C0MP 

XXXeXX 

DEG 

DEC  ONLY 

R0349 

GIM8AL  ROLL  TRIM 

XXXo  XX 

DEG 

R0359 

49 

DELTA  R, 

3C0MP 

XXXXoX 

NAUT  MI 

DEC  ONLY 

R0352 

DELTA  V, 

\XXXoX 

FT/SEC 

R03521 

RACAR  DATA  SOURCE  CODE 

XXXXXo 

RC353 

5C 

SPARE 

R0354 

51 

S-BANO  ANTENNA  ANGLES  PITCH 

2C0MP 

XXXc  XX 

DEG 

DEC  ONLY 

R0356 

YAW 

XXXe  XX 

DEG 

R0357 

52 

CENTRAL  ANGLE  OF  ACTIVE  VEHICLE 

ICOMP 

XXXo  XX 

DEG 

R0358 

53 

SPARE 

R0359 

54 

RANGE  , 

3C0MP 

XXXo  XX 

NAUT  MI 

DEC  ONLY 

R0361 

RANGE  RATE, 

XXXXoX 

FT/SEC 

R0362 

THETA 

XXXc  XX 

DEG 

R0363 

55 

NOo  OF  APSIDAL  CRCSSINGS 

3C0MP 

XXXXXo 

DEC  ONLY 

R0365 

ELEVATION  ANGLE 

XXXo  XX 

DEG 

R0366 

CENTRAL  ANGLE  CF  PASSIVE  VEHICLE 

XXXo  XX 

DEG 

R0367 

56 

RR  LOS  AZI MUTH 

2C0MP 

XXXo  XX 

DEG 

R0368 

ELEV  AT  ION 

X X Xo  XX 

DEG 

R0369 

57 

SPARE 

R0371 

58 

PER IGEE  ALT  ( POST  TPI ) 

3CCMP 

XXXXoX 

NAUT  MI 

DEC  ONLY 

R0  3 73 

DELTA  V TPI 

XXXXoX 

FT/SEC 

R037A 

DELTA  V TPF 

XXXXcX 

FT/SEC 

R0375 

59 

DELTA  VELOCITY  LOS 

3C0MP 

XXXXo  X 

FT/SEC  FOR 

EA, 

DEC  ONLY 

R0377 

60 

FORWARD  VELOCITY 

3C0MP 

XXXXoX  1 

=T/SEC 

DEC  ONLY 

R0379 

ALTITUDE  RATE 

XXXXoX 

FT/SEC 

0 

R0380 

COMPUTED  ALTITUDE 

XXXXXo 

FEET 

R0381 

61 

TIME  TC  GO  IN  BRAKING  PHASE 

3 COMP 

XXBXX 

M IN/SEC 

NO  LOAD,  DEC 

ONLY 

R0383 

TIME  FROM  IGNITION 

XXBXX 

MIN/SFC 
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PI 

L 
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USER'S  page  no,  11 

EC 

R038A 

CROSS  RANGE  DISTANCE 

XXXXoX 

NAUT  MI 

R0385 

62 

ABSOLUTE  VALUE  OF  VELOCITY 

3CCMP 

XXXXoX 

FT/SEC 

MO  LOAD, 

DEC 

ONLY 

R0387 

TIME  FROM  IGNITION 

XXB  XX 

MIN/SEC 

R0388 

DELTA  V (ACCUMULATED) 

XXXXoX 

FT/SEC 

R0389 

63 

ABSOLUTE  VALUE  OF  VELOCITY 

3CnMP 

XXXXc  X 

FT/SEC 

DEC  ONLY 

R0391 

ALTITUDE  RATE 

XXXXgX 

FT/SEC 

R0392 

COMPUTED  ALTITUDE 

XXXXXo 

FEET 

R0393 

64 

TIME  LEFT  FOR  REDESIGNATION-  LPD  ANGLE 

3C0MP 

XXBXX 

NO  LOAD, 

DEC 

ONLY 

R0395 

ALTITUDE  RATE 

XXXXoX 

FT/SEC 

R0396 

COMPUTED  ALTITUDE 

XXXXXc 

FEET 

R0397 

65 

SAMPLED  AGC  T IME 

3C0MP 

OOXXXo 

HP  S 

DEC  ONLY 

R0399 

(FETCHED  IN  INTERRUPT)' 

OOOXXo 

MIN 

‘ MUST  LOAD 

3 COMPS 

R0401 

OXXo  XX 

SEC 

R0402 

66 

LR  RANGE 

2C0MP 

XXXXXo 

FEET 

NO  LOAD, 

DEC 

ONLY 

R0404 

POSITION 

+0000X 

R0405 

67 

LRVX 

3C0MP 

X X X X Xc 

FT/SEf. 

R0406 

LRVY 

XXXXXc 

FT/SEC 

R0407 

LRVZ 

XXXXXo 

FT/«C 

R0408 

68 

SLANT  RANGE  TO  LANDING  SITE 

3C0MP 

XXXXo  X 

NAUT  MI 

NO  LOAD, 

DEC 

ONLY 

R0410 

TIME  TO  GO  IN  BRAKING  PHASE 

XXBXX 

M IN /SEC 

R043  1 

LR  ALTITUDE  - COMPUTED  ALTITUDE 

XXXXXo 

FEET 

R0412 

69 

LANDING  SITE  CORRECTION,  Z-COMFONENT 

3C0MP 

XXXXXo 

FEET 

DEC  ONLY 

R04121 

LANDING  SITE  CORRECTION,  Y-CCMPCNENT 

XXXXXc 

FEET 

R043.22 

LANCING  SITE  CORRECTION,  X-COMPONENT 

^XXXX  Xo 

FEET 

R0413 

7C 

AOT  DETENT  CODE/STAR  CODE 

3C0MP 

OCTAL  ONLY  FOR  EACH 

R0414 

71 

AOT  DETENT  CODE/STAR  CCOE 

3C0MP 

CCTAL  1 

ONLY  FOR  EACH 

R0415 

72 

RR  360  - TRUNNION  ANGLE 

2CQMP 

X XXo  XX 

DEG 

R0416 

SHAFT  ANGLE 

XXXoXX 

DEG 

R0417 

73 

NEW  RR  360  - TRUNNION  ANGLE 

2CQMP 

XXXc  XX 

DEG 

R0418 

SHAFT  ANGLE 

XXXo  XX 

DEG 

R0419 

74 

TIME  FROM  IGNI TICN 

3C0MP 

XXBXX 

MIN/S  EC 

NO  LOAD, 

DEC 

ONLY 

R0421 

YAW  AFTER  VEHICLE  RISE 

XXXo  XX 

DEG 

R0422 

PITCH  AFTER  VEFICLE  RISE 

XXXo  XX 

DEG 

R0423 

7 5 

DELTA  ALTITUDE  CDH 

3C0MP 

XXXXa  X 

NAUT  MI 

NO  LOAD, 

DEC 

ONLY 

R0425 

DELTA  TIME  (CCH-CSI  OR  TPI-CDH) 

XXB  XX 

MIN/SEC 

R0426 

DELIA  TIME  (TPI-CDH  OR  TFI-NCMTPI) 

XXBXX 

MIN/SFC 

R0427 

76 

DESIRED  HORIZONTAL  VELOCITY 

3C0MP 

XXXXoX 

FT/SEC 

DEC  ONLY 

R0429 

DESIRED  RACIAL  VELOCITY 

XXXXoX 

FT/SEC 

R04291 

CROSS-RANGE  DISTANCE 

XXXXoX 

NAUT  MI 

R0430 

77 

TIME  TO  ENGINE  CUTOFF 

2C0MP 

XXBXX, 

MIN/SEC 

NO  LOAD, 

DEC 

ONLY 

R0432 

VELOCITY  NORMAL  TO  CSM  PLANE 

XXXXoX 

FT/SEC 

R0433 

78 

RR  RANGE 

3C0MP 

XXXo  XX 

NAUT  MI 

NO  LOAD, 

DEC 

ONLY 

R0434 

RANGE  RATE 

XXXXXo 

FT/SEC 

R04341 

TIME  FROM  IGNITION 

XXBXX 

M IN/SEC 

R0435 

79 

CURSOR  ANGLE 

3CDMP 

XXXc  XX 

DEG 

DEC  ONLY 

R0437 

SPIRAL  ANGLE 

XXXo  XX 

DEG 

R0436 

POSITION  CODE 

XXXXXc 

R0439 

80 

DATA  INDICATOR, 

2CnMP 

X X X X Xc 

R 0440 

OMEGA 

XXXo  XX 

DEG 

R0441 

81 

DELTA  V (LV) 

3C0MP 

XXXXo  X 

FT/SEC  FOP  EACH 

DEC  ONLY 

GAP 
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P0A43 

82 

DFLTA  V (LV) 

3C0MP 

R04A5 

83 

DELTA  V (BODY) 

3C0MP 

R0447 

64 

DELTA  V (OTHER  VEHICLE) 

3COMP 

R0A49 

85 

VG  (BODY) 

3COMP 

R0A51 

86 

VG  (LV) 

BCOMP 

R0A53 

87 

BACKUP  CPTICS  LCS  AZIMUTH 

2COMP 

R0454 

ELEVATI GN 

R0455 

88 

HALF  UNIT  SUN  OR  PLANET  VECTOR 

3COMP 

R0457 

89 

LANDMARK  LATITUDE 

3COMP 

R0459 

LONGITUDE/2 

R0460 

ALT ITUDE 

R0461 

9C 

Y 

3COMP 

R0463 

Y DOT 

R0464 

PSI 

R0465 

91 

ALTITUDE 

3COMP 

R04651 

VELOCITY 

R04652 

FLIGHT  PATH  ANGLE 

R0466 

92 

PCT  FTP(10,5KLB)  AT  PRESENT  THRUST 

3COMP 

R04661 

ALT ITUDE  RATE 

R04662 

COMPLIED  ALTITUDE 

R0467 

93 

DELTA  GYRO  ANGLES 

3C0MP 

R0468 

94 

SPARE 

R0469 

95 

SPARE 

R0470 

96 

SPARE 

R0471. 

97 

SYSTEM  TEST  INPUTS 

3C0MP 

R0472 

98 

SYSTEM  TEST  RESULTS  AND  INPUTS 

3C0MP 

R0473 

R0474 

R0475 

99 

RMS  IN  POSITION 

3COMP 

R0477 

RMS  IN  VELCCITY 

R04771 

RMS  IN  BIAS 
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FT/SFC 

FOR 
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ONLY 

xxxx 

0 X 

FT/SEC 
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ONLY 
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o X 

FT/SEC 

FOR 

EACH 

DEC 

ONLY 

xxxx 

oX 

FT/SEC 

FOR 

EACH 

DEC 

ONLY 

xxxx 

0 X 

FT/SEC 

FOR 

EACH 

DEC 

ONLY 

XXXo 

XX 

DEG 

XXXo 

XX 

DEG 

o XXX 

XX 

FCR  EACH 

DEC 

ONLY 

XXo  X 

XX 

DEG 

DFC 

ONLY 

XXo  X 

XX 

DEC 

XXXo 

XX 

NALT  MI 

XXXo 

XX 

NM 

DEC 

ONLY 

XXXXoX  FPS 
XXXoXX  DEG 
XXXXXBs  NAUT  MI 
xxxxxo  FT/sec 

XXXoXX  DEG 
XXXXXc 

XXXXo  X FT/SEC 

XXXXXo  FFET 

XXoXXX  DEG  FOR  EACH 


PAGE  12 


EO 


XXXXXo  FDR  EACH 

XXXXXo 

C xxxxx 

XXXXXo 

XXXXXo  FT 

XXXX.X  FT/SEC 

XXoXXX  RADIANS 
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PAGE 
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ASSEMBLY  AND  OPERATION 

REGI STERS  AND  SCALING 

INFCRMAT ICN 

FCR  NCFMAL  NCUNS 

USER'S  PAGE  NOo 

3? 

EO 

R0479  NCUN  REGISTER  SCALE  TYPE 


R04B0 

00 

NGT  IN  USE 

R0481 

01 

SPECIFY  ADDRESS 

B 

R0482 

02 

SPECIFY  ADDRESS 

C 

R0483 

03 

SPECIFY  ADDRESS 

0 

R0484 

04 

DSPTEMl  . 

H 

R0485 

05 

DSPTEMl 

F 

R0486 

06 

OPTI CNl 

A 

R0487 

07 

XREG 

A 

R0488 

C8 

ALMCACR 

A 

R0489 

09 

FA  ILREG 

A 

R0490 

10 

SPECIFY  CFANNEL 

A 

R0491 

11 

TCSI 

K 

Ra492 

12 

OPTIQNX 

A 

R0493 

13 

TCDh 

K 

R0494 

14 

DSPTEMX 

C 

R0495 

15 

INCREMENT  ADDRESS 

A 

R0496 

16 

DSPTEMX 

K 

R0497 

17 

SPARE 

R049e 

16 

FDA  IX 

D 

R0499 

19 

SPARE 

R0500 

20 

CDUX 

D 

R0501 

21 

PI  PAX 

C 

RC502 

22 

THETAD 

0 

R0503 

23 

SPAR  E 

R0504 

24 

DSPTEM2  +1 

K 

R0505 

25 

DSPTEMl 

C 

RO  50  6 

25 

DSPTEMl 

A 

R0507 

27 

SMODE 

C 

R0508 

28 

SPAR  E 

R05C9 

29 

SPARE 

R0510 

30 

SPARE 

R0513. 

31 

SPARE 

R0512 

32 

-TPER 

K 

R0513 

2 -a 

TIG 

K 

R0514 

34 

DSPTEMl 

K 

R0515 

35 

TTOGO 

K 

R0516 

36 

T IME2 

K 

R0517 

37 

TTPI 

K 

R0518 

38 

TET 

K 

R0519 

39 

SPARE 
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P0520 

R0521 

R0522 

R0523 

R0524 

R0525 

R0526 

R0527 

R0528 

R0529 

RC530 

R0531 

R0532 

R0533 

R0534 

R0535 

R0536 

R0537 

R0538 

R0539 

R0540 

R0541 

R0542 

R0543 

ROSAA 

R0545 

R05451 

R0546 

R0547 

R0548 

R0549 

R0550 

R0551 

R0552 

R0553 

R0554 

R0555 

R0556 

R0557 

R0558 

R0559 

R0  5 60 

R05bl 

R05b2 

R0563 

R0564 

R0565 

R0566 
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REGISTERS  AND  SCALING  FOR  MIXED  NCUNS 


NCUN 

COMP 

REGISTER 

SC 

4C 

1 

TTOGO 

L 

2 

VGOISP 

S 

3 

DVTOTAL 

S 

41 

1 

DSPTE  Ml 

D 

2 

DSPTEMl  +1 

E 

42 

1 

HAFC 

Q 

2 

HPER 

Q 

3 

VGOISP 

S 

43 

1 

LAT 

H 

2 

LONG 

H 

3 

ALT 

C 

44 

1 

HAPOX 

G 

2 

HPERX 

Q 

3 

TFF 

L 

45 

1 

TRKMKCNT 

C 

2 

TTOGO 

L 

3 

+ MGA 

H 

46 

1 

OAPDATRl 

A 

47 

1 

LEMMASS 

KK 

2 

C SMMASS 

KK 

48 

1 

P ITT IME 

NN 

2 

RCLLTIME 

NN 

49 

1 

R22DISP 

Q 

2 

R22DISP  +2 

S 

3 

WHCHREAD 

C 

50 

SPARE 

51 

1 

ALPHASB 

h 

2 

BETASB 

H 

52 

1 

ACTCENT 

H 

5 5 

SPARE 

54 

1 

P ANGE 

JJ 

2 

RRATE 

S 

3 

RTHETA 

H 

55 

1 

NN 

C 

2 

ELEV 

H 

3 

CENTANG 

H 

56 

1 

RR-AZ 

H 

2 

RR-ELEV 

H 

57 

SPAR  E 

58 

1 

POSTTPI 

Q 

2 

DELVTPI 

S 

3 

DELVTPF 

S 

59 

1 

DVLCS 

s 

2 

DVLCS  +2 

s 

3 

DVLOS  +4 

S 

6C 

1 

FGRVEL 

CC 
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R0567 

2 

HOOTO ISP 

S 

R 0568 

3 

HCALCl 

RR 

R0569 

61 

1 

TTFD I SP 

L 

R0570 

2 

TTOGO 

L 

R0571 

3 

OLTOF  PLN 

CC 

R0572 

62 

1 

ABVEL 

S 

R0573 

2 

TTOGO 

L 

R057A 

3 

DVTCTAL 

S 

R0575 

63 

1 

ABVEL 

S 

R0576 

2 

HDCTO ISP 

S 

R0577 

3 

HCALCl 

RR 

R0578 

64 

1 

FUNNYOSP  - 

PP 

R0579 

2 

HDCTDISP 

S 

R0580 

3 

HCALC 

RR 

R0581 

65 

1 

S AMPT IME 

K 

R0582 

2 

SA  MPTI ME 

K 

R05  83 

3 

SAMPT IME 

K 

ROSSA 

66 

1 

RSTACK  +6 

W 

R0585 

2 

CHANNEL  33 

TT 

RO  58  6 

67 

1 

RSTACK 

X 

R0587 

2 

RSTACK  +2 

Y 

R058R 

3 

RSTACK  +4 

Z 

80589 

68 

1 

RANGECSP 

GC 

R05  90 

2 

TTFDI SP 

L 

R0591 

3 

DELTAF 

RR 

R0592 

69 

1 

DLANOZ 

RR 

R05921 

2 

OLANDY 

RR 

R05922 

3 

CLANDK 

RR 

R0593 

7C 

1 

AOTCOOE 

A 

R0594 

2 

AOTCOOE  +1 

A 

R0595 

3 

ACTCCCE  +2 

A 

R0596 

71 

1 

AOTCOOE 

A 

R0597 

2 

AOTCOOE  +1 

A 

RQ598 

3 

ACTCCCE  +2 

A 

R0599 

72 

1 

COLT 

W W 

R0600 

2 

CDUS 

0 

R0601 

73 

1 

TANG 

ww 

80692 

2 

TANG  tl 

D 

R0603 

74 

1 

TTOGC 

L 

R060A 

2 

YAW 

H 

R0605 

3 

P ITCH 

H 

R0606 

75 

1 

DIFFALT 

0 

R0607 

2 

T1T0T2 

L 

R0608 

3 

T2TOT3 

L 

R0609 

76 

1 

ZOOTD 

S 

R0610 

2 

R UOTO 

S 

R06101 

3 

XRANGE 

G 

R0611 

77 

1 

TTOGO 

L 

R0612 

2 

YDOT 

S 

R0613 

78 

1 

ONRRANGE 

U 
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R06i4 

2 

CNRROCT 

R06141 

3 

TTCTIG 

R0615 

79 

1 

CURSOR  • 

R0  616 

2 

SPIRAL 

RC617 

3 

PQSCOOE 

R0618 

80 

1 

DATAGQOD 

R0619 

2 

OMEGAC 

•R0620 

81 

1 

DE  LVLVC 

R0621 

2 

DELVLVC  +2 

R0622 

3 

DELVLVC  +4 

R0623 

82 

1 

DELVLVC 

R0624 

2 

DELVLVC  +2 

R0625 

3 

DELVLVC  +4 

R0626 

83 

1 

DELV IMU 

R0627 

2 

OELVIMU  +2 

R0628 

3 

DE  LVI MU  +4 

R0629 

84 

1 

DELVOV 

R0630 

2 

DELVCV  +2 

R0631 

3 

DELVOV  +4 

R0632 

85 

1 

VGBODY 

R0633 

2 

VGBCDY  +2 

R0634 

3 

VGBODY  +4 

R0635 

86 

1 

DELVLVC 

R0636 

2 

DELVLVC  +2 

R0637 

3 

DELVLVC  +4 

R0638 

87 

1 

AZ 

R0639 

2 

EL 

R064D 

8 8 

1 

STARAD 

R0641 

2 

STARAD  +2 

R0642 

3 

STARAD  +4 

R0643 

89 

1 

LANCLAT 

R0644 

2 

LANDLCNG 

R0645 

3 

LANDALT 

R0646 

9C 

1 

RANGE 

R0647 

2 

PRATE 

R0648 

3 

RTHETA 

R0649 

91 

1 

P21 ALT 

R06491 

2 

P21VEL 

R06492 

3 

P21GAM 

R0650 

92 

1 

THRDI SP 

R06501 

2 

HDOTD  ISP 

R 06  50  2 

3 

HCALCl 

R0651 

93 

1 

OGC 

R0652 

2 

OGC  +2 

R0653 

3 

OGC  +4 

R0654 

94 

SPARE 

RC655 

95 

, SPARE 

R0656 

96 

SPARE 

R0657 

97 

1 

DSPTEMl 

R0658 

2 

DSPTEMl  +1 

V 

L 

D 

D 

C 

C 

H 

S 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

c 

D 

B 

B 

B 

G 

G 

J J 
J J 
S 
H 

C (MEMORY/100  TO  DIPLAY  TENS  NoM, 
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CC002 

SPECIFY 
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P21,R30 
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00003 

SPECIFY 

tracking  ATTITUDE 

1=PREFERRE0  2=0THER 

R63 
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R0994 

roooA 

SPECIFY 
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1=RR  2=LP 

R<T4 
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LUMINARY 

R0996 

00005 

SPECIFY 

SOR  PHASE 

1=FIRST  2=SEC0ND 

P38 
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LUMI NARY 

R0998 
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SPECIFY 

P.R  COARSE  ALIGN  OPTION 
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LUMINARY 

R lOCO 
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6ANKSUM 
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MODULE  1 

CONTAINS  BANKS  0 

THROUGH  5 

0003 

4 3rio 

BLOCK 

02 

0C04 

4900 

radarff 

EQUALS 

0005 

4000 

FFTAGl 

EQUALS 

0006 

4000 

FFTAG2 

EQUALS 

0007 

4000 

FFTAG3 

EQUALS 

0008 

4000 

FFTAG4 

EQUALS 

0309 

4300 

FFTAG7 

EQUALS 

0010 

4300 

FFTAG8 

EQUALS 

0011 

4000 

FFTAG9 

EQUALS 

0012 

4000 

FFTAGIO 

EQUALS 

0013 

4000 

FFTAGll 

EQUALS 

0014 

4000 

FFTAG12 

EQUALS 

0015 

4000 

FFTAGIO 

EQUALS 

0016 

10  WORDS  LEFT 

5765 

05765  0 

BNKSUM 

02 

0016 

5766 

05766  0 

0017 

6000 

BLOCK 

03 

0018 

6000 

FFTAG5 

EQUALS 

0019 

6 300 

FFTAG6 

EQUALS 

0020 

14  WORCS  LEFT 

7761 

C7761 

0 

BNKSUM 

03 
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7762 
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0 

00  21 
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BANK 
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00 
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01 
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EQUALS 
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34  ,2000 

A0TMARK2 

EQUALS 
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20 
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23 
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0115 
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EQUALS 
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23,2000 
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0117 

23,2000 
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EQUALS 
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26,2000 
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EQUALS 
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26  ,2000 

MANUVER 

EQUALS 

0135 

26,2000 

MANUVERl 

EQUALS 

01355 

26,2000 

PL  ANT  INI 

EQUALS 

01356 

26,2000 
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EQUALS 
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2 WORDS  LEFT 

26,3775 
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BNKSUM 

0136 

26,3776 

03776  1 

0137 

27,20C0 

BANK 

013  8 

27,2000 

TO  F-FF 

EOUALS 

0139 

27  ,2T00 

TOF-FFl 

EQUALS 

0140 

27,2000 

P40S1 

EQUALS 

0141 

27,2000 

VECPT 

EQUALS 
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27,2000 

A SENT! 

EQUALS 
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EQUALS 
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0145 

30,2000 

BANK 

30 

0146 

30,2300 

LCV.SUPER 

EQUALS 

0147 

3C, 20C0 

P12 

EQUALS 

0148 

30  ,2  300 

AS  ENT 

EQUALS 

0149 

3C,2000 

FCDUW 

EQUALS 

01495 

30,2000 

FLOGSUB 

EQUALS 

0149  6 

30,2000 

V E67A 

EQUALS 

01497 

30,2000 

ASENT5 

EQUALS 

0150 

9 kvORDS  LEFT 

30,3766 

03766  0 

BNKSUM 

30 

0150 

30,3767 

03767  1 

0151 

31,2000 

BANK 

31 

0152 

31  ,2  300 

FTHPOT 

EQUALS 

0153 

31,2000 

F2CPS*  31 

EQUALS 

0154 

31,2000 

VB67 

EQUALS 

0155 

46  WORDS  LEFT 

31  ,3721 

03721 

0 

BNKSUM 

31 

0155 

31, 3722 

03722 

0 

0156 

32,2000 

BANK 

32 

0157 

32,2300 

P20S4 

EQUALS 

0158 

32,2OC0 

F2DPS*32 

EQUALS 

0159 

32  ,2000 

ABORTS 

EQUALS 

0160 

32,2000 

LRS22 

EQUALS 

0161 

32,2000 

P66L0C 

EQUALS 

0163 

32 ,2000 

R47 

EQUALS 

0163  5 

32,2000 

SERV 

EQUALS 
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22  WORDS  LEFT 

32,3751 

03751  1 

BNKSUM 

32 
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32 ,3752 

03 7 52  1 
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33, 2000 

BANK  33 

0166 

33  ,2000 
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EQUALS 

0167 

33,2000 

R29/SERV 

EQUALS 
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33,2000 
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EQUALS 

0168 
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33  ,3760 
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0 

BNKSUM  33 
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33,  3761 

C3761 

1 

0169 

34,2000 

BANK  34 

0170 

34,2000 
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EQUALS 

0171 

34,2000 

P30S1 

EQUALS 

0172 

34  ,2000 

CS  I/CCHl 

EQUALS 

0173 

34,2000 

ASCFILT 

EQUALS 

0173  5 

34,2000 

R12STUFF 

EQUALS 

01736 

34  ,2000 

SERV4 

EQUALS 
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34,2000 

F2DPS*34 

EQUALS 
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35  ,2000 
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35 

0176 

35,2000 

CSI/CDH 

EQUALS 
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3 5, 20C0 

P BOS 

EQUALS 

0178 

35  ,2000 

P40S3 

EQUALS 

0179 

35,2000 
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EQUALS 
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33  NDRCS  LEFT 
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35 
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03737  1 
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0182 

36,2900 

BANK 

36 

0183 

36  ,2000 

P40S 

EQUAL  S 

0184 

6 WORDS  LEFT 

36,3771 

C3771 

0 

BNKSUM 

36 

0184 

36,3772 

03772 

0 

0185 

37,2000 

BANK 

37 

0186 

37,2000 

P05P06 

EQUALS 

0187 

3 7,2  000 

IMU2 

EQUALS 

0188 

37,2000 

I MU4 

EQUALS 

0189 

37,2000 

R31 

EQUALS 

0190 

3 7 ,2000 

IMUSUPER 

EQUALS 

0191 

37, 20C0 

SERVl 

EQUALS 

0192 

6 WORDS  LEFT 

37,377] 

03771 

0 

BNKSUM 

37 

0192 

37,3772 

03772 

0 

0193 

40,2000 

BANK 

40 

0194 

40,2000 

PINBALLl 

EQUALS 

0195 

40,2000 

SELFSUPR 

EQUALS 

0196 

40,2000 

PINSUPER 

EQUALS 

01965 

40,2000 

R31L0C 

EQUALS 

0197 

17  WORDS  LEFT 

40,3756 

03756  C 

BNKSUM 

40 

0197 

40 , 3757 

03757  1 

019  8 
0199 

41,2000 

41,2000 

BANK 

PINB4LL2  EQUALS 

41 

0200 

0200 

23  WORDS  LEFT 

41  ,3750 
41,3751 

03750  0 
C3751  1 

BNKSUM 

41 

0201 

42,2000 

BANK 

4? 

0202 

42,2000 

SBAND  EQUALS 

0203 

42,20C0 

PINBALL3  EQUALS 

02  04 

7 WCRDS  LEFT 

42  ,3770 

03770  1 

BNKSUM 

42 

0204 

42,3771 

03771  0 

0205 

4 3 , 2000 

BANK 

43 

0206 

43  ,2000 

EXTVERBS 

EQUALS 

0207 

43,2000 

SELFCHEC 

EQUALS 

0208 

1 WORDS  LEFT 

43, -^776 

03776  1 

BNKSUM 

43 

( 
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USER'S  PAGE  NOo  9 ED 


..1 


gap: 

L 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
R0221 


0222 

R0223 


0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 


assemble  revision  131  OF  AGO  PROGRAM  LUMINARY.  BY  NASA  2021112-''gi 


TAGS 

FOR 

RELATIVE 

SETLOC  AND 

BLANK  BANK  CARDS 

REF 

1 

23,2523 

HI6ZFRCS 

EQUALS 

ZERCVECS 

REF 

1 

12,2006 

L06ZER0S 

EQUAL  S 

ZEROVEC 

REF 

1 

23,2521 

HI DPHALF 

EQUALS 

UN  ITX 

REF 

1 

12,2304 

LODPHALF 

EQUALS 

XUNI  T 

REF 

1 

23,2513 

HIDP] /4 

EQUALS 

DP 1/4TH 

REF 

1 

34,3302 

LQDPl/4 

EQUALS 

Dl/4 

REF 

2 

LAST 

37 

23,2521 

HI  UNI TX 

EQUALS 

UNI  TX 

REF 

1 

23  ,2517 

HIUNITY 

EQUALS 

UNITY 

REF 

1 

23,2515 

HI  UNI TZ 

EQUALS 

UNITZ 

REF 

2 

LAST 

37 

12,2004 

LOUN ITX 

EQUALS 

XUNIT 

REF 

I 

12  ,2002 

LCUNITY 

EQUALS 

YUN  IT 

REF 

1 

12,2000 

LOLNI TZ 

EQUALS 

ZUNIT 

REF 

1 

22,3541 

DELRSPL 

EQUALS 

SPLRET 

ROPE- 

-SPECIFIC 

ASS  I 

GNS  OBVIATING  NEED 

TO  CHECK  COMPUTER  F 

LAG  IN 

REF 

1 

13,2733 

ATOPTHIS 

EQUALS 

ATOPLEM 

REF 

1 

13 ,2660 

ATGPOTH 

equals 

ATCPCSM 

REF 

1 

13,3042 

OTHPREC 

EQUALS 

C SMPREC 

REF 

1 

0174 

MOONTHIS 

EQUALS 

LMOONFLG 

REF 

1 

0173 

MOONOTH 

EQUALS 

CMCCNFLG 

REF 

1 

13,2746 

MOVATHIS 

EQUALS 

MOVEALEM 

REF 

1 

12,2017 

RMM 

= 

LCCPMAX 

REF 

1 

12,2021 

RME 

= 

LODPMAXl 

REF 

1 

13  ,3056 

THISPREC 

EQUALS 

LEMPREC 

REF 

2 LAST 

37 

23,2515 

THI SAXI S 

= 

UNITZ 

REF 

1 

23,2515 

NB1NB2 

EQUALS 

THI  SAXI  S 

REF 

1 

50)1 

FRASI  C 

EQUALS 

BITS2-10 

REF 

1 

4752 

DELAYNUM 

EQUALS 

TWG 

17:53  CECo  19,1969  |M/sini  PAGE  37 

USER  • S PAGE  NOo  10  EO 


ZERO  VECTOR  ALWAYS  IN  HIGH  MEMORY 
ZERO  VECTOR  ALWAYS  IN  LOW  MEMORY 


2DFC  o25 


ZDEC  o5 
2DEC  0 
2CEC  0 


COL  PGM,  ALSO  CALLED  BY  R30  IN  LUMINARY 
DETERMINING  INTEGRATION  ARFA  ENTRIES., 


FOR  R31 

DOWNLINK  ERASABLE  DUMP  ID 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARV  BY  NASA  2021112-C91  17:53  DECo  19,1969  (MAIN)  PAGE 

L CCNTRCLLFD  CONSTANTS  USER'S  PAGE  NOe  1 EG 

POOOl  CPS  AND  APS  ENGINE  PARAMETERS 


0002 

REF  1 

36,2000 

SETLOC 

P40S 

0003 

36,2000 

BANK 

, OOOA 

REF  1 

COUNT# 

$$ /P40 

R0005 

THE 

ORDER  CF  THE  FQLLCWING 

SIX  CONSTANTS  MUST  NOT  BE  CHANGED 

0006 

36,2000 

01056 

0 

FDPS 

2DEC 

4o3670  P-7 

9817o5  LBS  FORCE  IN  NEWTONS 

0006 

36,2')01 

37167 

0 

0007 

36,2002 

00457 

1 

MDOTOPS 

2DEC 

0ol480  B-3 

32,,  62  LBS/SEC  IN  KGS/CSr 

0007 

36, 2003 

03250 

0 

0008 

36,2004 

77777 

0 

DTCECAY 

2DEC 

-38 

40  PERCENT  FTP-DPS  TAILOFF  FOR  1 

0008 

36,2005 

77731 

1 

0009 

36,2006 

00307 

0 

FAPS 

2DEC 

lo5569  e-7 

3500  LBS  FQPCE  IN  NEWTONS 

C1C9 

36  ,2007 

11040 

0 

0010 

16,2010 

00151 

1 

MDCTAPS 

2CEC 

Oo05135  B-3 

llo32  LBS/SEC  IN  KGS/CS 

0010 

36,2011 

05214 

0 

0011 

36,2012 

77777 

0 

ATCECAY 

2DEC 

-18 

618  LB-SEC  TAILOFF  FOR  APS 

0011 

36,2013 

77755 

c 

R0012 

# Jlc  j!«  # Jjc « 5*e  5f.  # Sit  * « « * 5}!  ^ * « ♦ # ♦ ^ « a!' Jj' 5}^  * A # »!< 

0012  2 

36,2014 

00003 

1 

lOOPCTTO 

2DEC 

24  B-17 

100  PERCENT  FTP-DPS  TAILOFF  FOR 

00122 

36,2015 

00000 

1 

R0012A 

0013 

36,2016 

00C26 

0 

FRCS4 

20EC 

Ool7792  B-7 

400  LBS  FORCE  IN  NEWTONS 

0013 

36,2017 

30605 

1 

0014 

36  ,2020 

00013 

0 

FRCS2 

2DEC 

0o08S96  B-7 

200  LBS  FORCE  IN  NEWTONS 

0014 

36,2021 

14303 

1 

0015 

REF  1 

27,2900 

SETLOC 

P40S1 

0016 

27,2000 

BANK 

0017 

REF  1 

COUNT# 

*$/P40 

R 0018 

APS 

IMPULSE  DATA  FOP  P42 

0019 

27,2000 

00000 

1 

RIVAL 

2DEC 

124o55  B-23 

2800  LB-SEC 

0019 

27,2001 

07622 

0 

0020 

27,2002 

00000 

1 

K2VAL 

20EC 

31„138  B-24 

700  LB- SEC 

0020 

27,2003 

0C762 

1 

0021 

27,2004 

00030 

1 

K3VAL 

2DEC 

lo5E69  B-10 

FAPS  I 3500  LBS  THRUST) 

0021 

27,2005 

35104 

1 

R0022 

0023 

27  ,2  006 

00016 

0 

S40.136 

2CEC 

o4671  B-9 

e^671  M NEWTONS  (DPS) 

0023 

27,2007 

36237 

1 

0024 

27 ,2010 

35711 

0 

S40o  136_ 

2DEC 

o4671  B+1 

S40„136  SHIFTED  LEFT  lOo 

0024 

27 ,2011 

35663 

1 

0025 

REF  1 

27,2000 

SETLOC 

ASENTl 

38 
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L CCNTRCLLEC  CONSTANTS 

BANK 

COUNTY  $$/P70 


0026  27,2012 

0027  REF  1 


17:53  DECo  19,1°69  (MAIN) 

USER'S  RAGE  NCo  2 


4 

PAGE  39 

..I 

EO  S3  4 


002  8 

27,2012 

03631 

0 

(1/DV  ) A 

2DEC 

15,20  B-7 

2 SECONDS  WORTH  OF  INITIAL  ASCENT 

0028 

27,2013 

23146 

0 

A0029 

STAGE  ACCELERATION  — INVERTED  (M/CSI 

A0030 

11  PREDICATED  ON  A LIFTOFF  MASS  OF 

A0031 

4869,9  KG  (SNA-8-D-027  7/11/68) 

A0032 

2)  PREDICATED  ON  A CONTRIBUTION  TO  VEH- 

A0033 

ICLE  ACCFIERATION  FROM  RCS  THRUSTERS 

A003A 

EOUIVo  TO-  1 JET  ON  CONTINUOUSLY, 

0035 

27,2014 

33226 

1 

K ( 1/DV  ) 

2DEC 

436,70  B-9 

DPS  ENGINE  THRUST  IN  NEWTONS  / 100  CS; 

0035 

27,2015 

1 4 632 

0 

0036 

27,2016 

C53C5 

1 

(ATI  A 

2DEC 

3,2883  E-4  B9 

INITIAL  ASCo  STGo  ACCELERATION  **  M/CS, 

. 0036 

27,2017 

15503 

0 

A0037 

ASSUMPTIONS  SAME  AS  FOR  (1/0V)A, 

0038 

27,20  2!) 

26337 

1 

(TBUP 1 A 

2DEC 

91902  B-17 

ESTIMATED  BURN-UP  TIME  OF  THE  ASCENT  STG 

0038 

27,2021 

30000 

1 

A0039 

ASSUMPTIONS  same  AS  FOR  (1/DV)A  WITH  THE 

A 0040 

ADDITIONAL  ASSUMPTION  THAT  NET  MASS-FLOW 

A0041 

RATE  = 5,299  KG/SFC  = 5,135  (APS)  + 

A0042 

,164  (1  PCS  JET), 

0043 

REF 

1 

30,2000 

SFTLOC 

ASENT 

0044 

30,2000 

bank  ■ 

0045 

REF 

1 

COUNT* 

J $/ASENT 

0046 

30,2000 

02445 

0 

AT/RCS 

2DEC 

,0000785  B+10 

4 JETS  IN  A DRY  LFM 

0046 

30, 2001 

00274 

C 

0047 

REF 

1 

33,2000 

SETLOC 

SERVICES 

0048 

33,2000 

BANK 

0049 

REF 

1 

COUNT* 

$$/SERV 

R0050 

Y 

THE  ORDER 

CF  THE  FQLLGWING 

TWO  CONSTANTS  MUST 

■ NOT  BE  CHANGED  ******* 

0051 

33,2000 

41545 

0 

APSVEX 

DEC 

-3030  E-2  B-5 

9942  FT/SEC  IN  M/CSc 

0052 

33,2001 

42341 

1 

DP  SVEX 

DEC* 

-2,95588868E+ 

lB-05*  VE  (DPS)  +2,95588868E+  3 

R0053 

0054 

REF 

I 

31 , 20C0 

SETLOC 

F20PS*31 

0055 

31  ,2000 

BANK 

0056 

REF 

1 

COUNT* 

St/F2DPS 

0057 

31 , 2000 

00222 

0 

TR  IMACCL 

20EC* 

+3, 50132708E- 

5B+oe*  A (T)  +3o5O13270eE-  1 

0057 

31,2001 

33316 

0 

4 


GAP  : 
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17: 53  DECo  19, 196° 


(MAIN) 


PAGE  40 


L CCNTROLLED  CONSTANTS  USER'S  PAGE  NOo  3 EO  S3 


P0058 

THRCTTLING  AND 

THRUST  CETECT 

ICN  PARAMETERS 

0059 

REF 

2 

LAST 

38 

36,2000 

SETLCC 

P40S 

0060 

36,2022 

BANK 

0061 

REF 

2 

LAST 

38  TO 

38  : 

18 

18* 

COUNT* 

$$/P40 

0062 

36,2022 

C0030 

1 

THRESHl 

DEC 

24 

0063 

36,2023 

00014 

1 

THRESH3 

DEC 

12 

0064 

REF 

1 

4737 

HI RTHRCT 

= 

B1T13 

0065 

REF 

1 

6000 

SETLOC 

FFTAG5 

0066 

6000 

BANK 

0067 

REF 

1 

COUNT* 

$$/P40 

0068 

6000 

00464 

1 

TFRESH2 

DEC 

308 

0069 

REF 

1 

31 , 2000 

SFTLOC 

FTFRCT 

0070 

31, 2002 

BANK 

0071 

REF 

1 

COUNT* 

$$/THROT 

0072 

31,2002 

07401 

0 

FMAXODD 

DEC 

+ 3841 

FSAT 

+4-  81454413E  + 

4 

0073 

31,2003 

06613 

0 

FMAXPOS 

DFC 

+ 3467 

FMAX 

+ 4o  34546769E  + 

4 

0074 

31  ,2004 

00024 

1 

THROTLAG 

DEC 

+ 20 

TAU  ITH) 

+ lo  99999999E- 

1 

00745 

31,2005 

0C3C7 

0 

SCALEFAC 

2DEC* 

+7o97959872E+ 

2B-16*  BITPERF 

+7„9795C872E- 

2 

00745 

31,2006 

17534 

0 

0075 

REF 

1 

32,2000 

SETLOC 

F2DPS*32 

0076 

32, 2000 

BANK 

0077 

REF 

1 

COUNT* 

$S/F2DPS 

0078 

32,2000 

0C044 

1 

DPSTHRSH 

DEC 

36 

(THRESHl  + THRESH3 

FOR  P63) 

GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

17:53  DECo  19,1969 

(MAIN  I 

PAGE 

41 

L CCNTROLLEC  CONSTANTS 

USER'S  PAGE 

NGc  4 

EO  S3 

P0082  LM  HARDUARE-RE LATED  PARAMETERS 

0083 

REF 

1 

25, 2CC0 

SETLOC  RADARUPT 

0084 

25,2)00 

BANK 

0085 

REF 

1 

CCUNT4  $$/RRUPT 

0086 

25,2000 

47777 

0 

LVELBIAS 

DEC  -12288 

LANDING  RADAR  BIAS  FOP  153,6  K C, 

0087 

25  ,2001 

00001 

0 

RDOTBIAS 

2CEC  17000 

BIAS  COUNT  FOR  RP  RANGE  RATE, 

0087 

25,20C2 

C115C 

1 

0088 

REF 

1 

32, 2000 

SETLOC  LRS22 

0089 

32,2001 

BANK 

0090 

REF 

1 

COUNT*  $$/LRS22 

0091 

32,2001 

70123 

0 

RDOTCONV 

2DEC  -00019135344  B7 

CONVERTS  PR  ROOT  READING  TO  M/CS  AT  2(7) 

0091 

32,2002 

40702 

0 

0092 

32,2003 

13337 

1 

RANGCONV 

2DFC  20859024  B-3 

CONVERTS  RR  RANGE  READING  TO  M,  AT  21-29 

0092 

32  ,2004 

10776 

0 

0098 

REF 

2 LAST 

39 

33,2000 

SETLCC  SERVICES 

0099 

33, 2002 

BANK 

0100 

REF 

2 LAST 

39 

TO  39: 

2 

2* 

COUNT*  $$/SERV 

0101 

33,2002 

61CCC 

0 

HBEAMANT 

2DEC  -o46870l8041 

RANGE  BEAM  IN  LP  ANTENNA  COORDINATES, 

0101 

33  ,2  )03 

71210 

1 

0102 

33 , 2004 

CCCOO 

1 

2CEC  0 

0102 

33,2005 

COCGO 

1 

0103 

33  ,2006 

72333 

1 

2CEC  -.,  174)224271 

0103 

33 , 2007 

45546 

1 

0104 

33,2(110 

65363 

1 

HSCAL 

2DEC  -,3268792 

SCALES  1,079  FT/BIT  TO  2(22)Mu 

0104 

33,2011 

64451 

0 

R0105 

***** 

THE  SEQUENCE 

OF  THE  FOLLOWING  CONSTANTS  MUST  BE  PRESERVED  ******** 

0106 

33,2012 

21241 

0 

VZSCAL 

2DEC  +,5410829105 

SCALES  ,8668  FT/SEC/BIT  TO  2(18)  M/CS, 

0106 

33,2013 

03216 

1 

0107 

33, 2014 

30153 

0 

VYSCAL 

2DEC  +,7565672446 

SCALES  1,212  FT/SEC/BIT  TO  2(18)  M/CS, 

0107 

33  ,2015 

23101 

0 

0108 

33,2016 

63105 

0 

VXSCAL 

2DEC  -,4020043770 

SCALES  - 644  FT/SEC/RIT  TO  2(18)  M /C Sc 

0108 

33,2017 

61733 

1 

R0109 

0110 

33,2020 

01507 

1 

KP  IP 

DEC  ,0512 

SCALES  OELV  TO  UNITS  OF  2(5)  M/CS, 

0111 

33  ,2021 

00321 

1 

KPIPl 

20EC  ,0128 

SCALES  DELV  TO  UNITS  OF  2(7)  M/CS,  ^^1 

0111 

33,2022 

26706 

1 

0112 

’3,2023 

00150 

0 

KPIP2 

20EC  ,0064 

SCALES  OELV  TO  UNITS  OF  2(8)  M/CS, 

0112 

33  ,2024 

33343 

0 

GAP  : 

L 

0113 

0113 

0114 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 
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(MAIN) 


PAGE  42 


CONTROLLED  CONSTANTS  USER'S  PAGE  NOr  5 EO  S3 


REF 

1 

33 , 2025 

33  ,2026 

33 ,2027 
33,2030 

21 ,2000 
21,2000 

02630 

25010 

24402 

26003 

0 

1 

1 

0 

ALTCONV 

ARCONVl 

2DEC 

2CEC 

SFTLOC 

BANK 

lo 399078846  B-4 

656oJ 67979  8-10 

RIO 

CONVERTS  M*2(-24l  TO  BIT  UNITS  *2(-28lo 

CONVo  ALTRATE  COMP,  TO  BIT  UNITS< 

REF 

1 

COUNT# 

$$/R10 

21,2000 

24402 

1 

ARCONV 

CCT 

24402 

656„1679798B-10  CONV  ALTRATE  TO  BIT  UNIT 

21, 2001 

01551 

1 

ARTOA 

DEC 

o 1066098 

B-1 

,25/2o345  6-1  4X/SEC  CYCLE  RATEc 

21  ,2002 

21357 

0 

ART0A2 

EEC 

o0021322 

B8 

(0  5)/(  2o  345)  ( ICO) 

21 , 2003 

22316 

0 

VELCGNV 

OCT 

22316 

5R8o914  B-10  CONV  VELo  TO  BIT  UNITSo 

21  ,2004 

01507 

1 

KPIP1(5) 

DEC 

o0512 

SCALES  DFLV  TO  )^/CS#2(-5)o 

21 ,2005 

00547 

1 

MAXVBI TS 

CCT 

00547 

MAX,,  DISPLAYED  VELOCITY  19°  9989  FT/SEC, 

REF 

1 

20,2000 

SETLOC 

DAPS? 

REF 

1 

20,2000 

BANK 

COUNT# 

$$/DAPAO 

20,2000 

01150 

1 

TORKJETl 

DEC 

0O3757 

550  / o2  SCALED  AT  (+16)  64  / 180 

gap:  ASSENBLE  revision  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2C'Z1112-Q91 

L CCNTROLLEC  CONSTANTS 

P0128  PARAMETERS  RELATING  TO  MASS,  INERTIA,  AND  VEHICLE  DIMENSTIGNS 


0129 

REF 

1 

05,2000 

SETLCC 

FRANCRES 

0130 

05, 20C0 

BANK 

0131 

PEE 

1 

COUNT  7 

$$/START 

0132 

05,2000 

02357 

1 

FULLAPS 

DEC 

5050  B-16 

0133 

REF 

1 

11,2000 

SETLOC 

LOADDAPI 

0134 

01  ,2000 

BANK 

0135 

REF 

1 

CCUNT* 

$$/P03 

0136 

01,2000 

764  66 

1 

M I NL  M D 

DEC 

-2850  B-16 

0137 

01,2001 

76731 

0 

MINMINLM 

DEC 

-2200  e-16 

0138 

REF 

1 

4741 

MINC  SM 

= 

BI  Til 

0139 

REF 

2 

LAST 

42 

20,2000 

SETLOC 

DAPS3 

0140 

20,2001 

BANK 

0141 

REF 

2 

LAST 

42  TO 

43: 

1 

1* 

COUNT* 

$$/dapao 

0142 

20,2001 

01046 

1 

LQASCENT 

DFC 

2200  B-16 

0143 

20,2002 

07361 

1 

HIDESCNT 

DEC 

15300  B-16 

0144 

20,2003 

00666 

1 

LOCESCNT 

DEC 

1750  B-16 

17: 5?  DECo  19,1069 


(MAIN) 


PAGE 


A3 


USER'S  PAGE  NOo  6 E(^  S3 


..j 


NOMINAL  FULL  ASCENT  MASS  — 2(16)  KG, 

..e 


MINo  DESCENT  STAGE  MASS  — 2(16)  KGo 

MIN  ASCENT  STAGE  MASS  — 2(16)  KGo 

MIN  CSM  MASS  ( CK  FOR  1/ACCS)  = 9050  LBS 


IN 

ASCENT 

LEM  MASS  — 

2(  1 

6) 

KG, 

AX 

DESCENT 

LEM  MASS  - 

- 2( 

16) 

K 

IN 

DF  SCENT 

STAGE  (ALONE) 

— 

2 ( 

i 


GAP  : 

L 

P01A5 

01A6 

0147 

0148 

0149 

0149 

0150 

0151 

0152 

R0153 

0154 

0154 

0155 

0155 

R0156 

0157 

0158 

0159 

0160 

0160 

0165 

0166 

0167 

0168 

0168 

0169 

016  9 

0170 

0171 

0172 

R0173 

0174 

0174 

0175 

0175 

R0176 

0177 

0177 

0178 

0178 


( 
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CLNTROLLEC  CONSTANTS 

PHYSICAL  CCNSTANTS  ( TIME  - IMVARIANT  I 


17:  53  DECo  19,1969 
USER'S  PAGE 


(MAIN) 
NOo  7 


PAGE  44 
EO  S3 


REF 

1 

37,2300 

SETLOC 

IMU2 

37,2000 

BANK 

REF 

1 

COUNT* 

$$/P07 

37, 20C0 

07623  1 

OMEG/MS 

2DEC 

=24339048 

37,2001 

26552  1 

REF 

1 

22,2000 

SETLOC 

R30LCC 

22,2000 

BANK 

REF 

1 

COUNT* 

$$/P30 

THE 

ORDER 

OF  THE 

FOLLOWI NG 

TWC  CONSTANTS  MUST  BE  PRESERVED  »*»»****=M 

22,2000 

27533  1 

1/RTMUM 

2DEC* 

o45162595  E-4  B14* 

22,2001 

07571  0 

22,2002 

25C04  1 

1/RTMUE 

2DEC* 

=50087529  E-5  B17* 

22,2003 

06702  1 

3<,  :((#,{<  ,!< 

REF 

2 

LAST 

38 

27, 2000 

SETLOC 

P40S1 

27 ,2022 

BANK 

REF 

1 

CCUNT* 

$$/S40o9 

27,2022 

55340  0 

EARTHMU 

2DEC* 

-3o986032  ElO  B-36*  M(?)/CS(2) 

27 ,2023 

61710  0 

REF 

2 

LAST 

38 

27, 20C0 

SETLOC 

ASENTl 

27,2024 

BANK 

REF 

1 

COUNT* 

$S/P12 

27, 2024 

00072  1 

MUM(-37I 

2DEC* 

4=9027780  E8  B-37* 

27  ,2025 

16206  1 

27,2026 

00344  1 

MCCNRATE 

2DEC* 

o2 6616994890062991  E-7  B+19*  RAD/CSo 

27,2027 

24331  0 

REF 

3 

LAST 

41 

33  ,2000 

S ETLOC 

SERVICES 

33,2031 

BANK 

REF 

3 

LAST 

41  TO 

42  : 

23  25* 

COUNT* 

$S/SERV 

THE 

ORDER- 

OF  THE 

FOLLOWI NG 

TWC  CONSTANTS  MUST  BE  PRESERVED  ********* 

33,2031 

61377  0 

-ML'DT 

2DFC* 

-7=9720645  E+12  B-44* 

33,2032 

55754  1 

33,2033 

77644  1 

-MUDTl 

2DEC* 

-9=8055560  E+10  B-44* 

33,2034 

65556  1 

33, 2035 

64453  1 

-MLDTMUN 

2DEC* 

-9=8055560  E+10  B-38* 

33,2036 

55670  0 

33,2037 

OOC02  0 

RESO 

2DEC* 

40=6809913  E12  6-58* 

33,2040 

11777  0 

GAP: 

L 

017P 

0179 

0180 

0180 

0181 

0182 

0183 

01  &A 

0184 

0185 

0185 

0186 

01  86 

■ 0187 

0187 

0188 

0189 

0190 

0191 

0191 

01  92 

0192 

0193 

01  94 

0195 

R0196 

0197 

0197 

0198 

0198 

0199 

0199 

0200 

0200 

0201 

0201 

0202 

0202 

0203 

0203 

0204 

0204 

R0205 
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CCNTRCLLED  CCNSTANTS 


(MAIN!  PAGE 

USER'S  PAGE  NOe  8 EO  S3 


REF 

REF 


REF 

REF 


REF 

REF 

4#* 


LAST 


45 


33,2041 

01023 

1 

20J 

2CEC 

3o24692O10  E-2 

33,2042 

37155 

1 

33  ,2043 

00065 

1 

2J 

2DEC 

3e24692C10  E-3 

33,2044 

C6244 

C 

14,2000 

SETLOC 

P5CS1 

14,2000 

BANK 

COUNT* 

$S/LCSAM 

14,2000 

26723 

0 

RSUBEM 

2DEC 

384402000  B-29 

14,2001 

CC45C 

0 

1.4,  20C2 

C0065 

1 

RSUBM 

2DEC 

1738090  B-29 

14,2003 

01265 

1 

14,2004 

C0302 

c 

RSUBE 

2DEC 

6378166  B-29 

14,2005 

24533 

1 

14 ,2006 

00052 

0 

ROE 

20EC 

0OO2571 25 

14,2007 

C4C47 

c 

14,2000 

SETLOC 

CONICSl 

04,2000 

BANK 

COUNT* 

1$/LT-LG 

14  ,2000 

00302 

0 

ERAC 

2 DEC 

6373338  B-29  PAD  RADIUS 

04,2001 

17755 

c 

14,2002 

00065 

1 

5C4PM 

2DEC  ■ 

173809C  B-29  METERS 

B-2°  (FGUATCRIAL 

04,2003 

(:1265 

J 

C4, 20CC 

SETLCC 

CCMCSl 

04,2004 

BANK 

COUNT* 

$$/CCNIC 

; FOLLOWING 

CONSTANTS 

; MUST  BE 

PRESERVED 

04  ,2004 

22437 

1 

MUTABLE 

2DEC* 

3o986032  Ein  B-36*  MUE 

04,2005 

16067 

1 

14, 2006 

15625 

1 

2DEC* 

025087606  E-10  B+34* 

1/MUF 

C4,2007 

21042 

1 

04, 2010 

20276 

1 

2DEC* 

lo  99650495  E5  B-18* 

SORT ( MUE 1 

04,2011 

04773 

0 

04,2012 

25004 

1 

20EC* 

o50087529  E-5  B+17* 

1/S0RT(MUE) 

04,  2013 

06702 

1 

14,2014 

16471 

1 

20EC* 

4o°02778  EB  B-30* 

MUM 

04,2015 

01352 

1 

04,2016 

21412 

0 

2DFC* 

o203966  E-8  B+28* 

1/MUM 

04,2017 

2C500 

0 

14, 2020 

25477 

1 

2DEC* 

2o 214221 76  E4  B-15* 

SORT ( MUM  I 

14  ,2021 

03367 

0 

04,2022 

27533 

1 

2DEC* 

o45162595  E-4  B+14* 

1/S0RT(MUMI 

04,2023 

07571 

0 

45 


GAP  : 

L 

02  06 

C207 

0208 

0209 

0209 

0210 

0211 

0212 

R0213 

021A 

0214 

0215 

0215 

0216 

0216 

0217 

0217 

0218 

0218 

0219 

0219 

0220 

0220 

0221 

0221 

0222 

0222 

0223 

0223 

R0224 

0225 

0226 

0227 

0228 

0228 

0229 

0230 

0231 

0232 

0232 


ASSEPBLE  REVISIOR  131  CF  AGC  PRCCRAM  LUMINARY 
CCNTROLLEC  CONSTANTS 


BY  NASA  2021112-091 


17:53  DECo  19,1°69  ( MAIN) 

USER'S  PAGE  MQo  9 


PAGE 
EO  S3 


REF  1 
REF  1 


13,2000 
13  ,2000 


SETLOC  INTINIT 
BANK 

COUNT#  $$/INTIN 


REF  1 
REF  1 


13  ,2000 

07112  1 

OMEGMOON  2DEC* 

2o66169947  E-8  B+23* 

13,2001 

06620  0 

13,2100 

SETLCC 

CRBI TAL2 

13  ,2002 

BANK 

COUNT* 

tt/CRBIT 

***  THE  ORDER  OF  THE 


FOLLCWING  CONSTANTS  MUST  NOT  BE  CHANGED 


13,2102 

27446 

1 

20EC# 

io32715445  E16  B-54# 

13, 20C3 

14620 

0 

13,2104 

16471 

1 

MUM 

2DEC# 

4=9027780  ER  B-30* 

13,2005 

C1352 

1 

13,2006 

22437 

1 

MUEARTH 

2DEC# 

3o 986032  ElO  8-36# 

13  ,2  107 

16067 

1 

13,2010 

COOOO 

1 

20EC 

0 

13,2011 

00000 

1 

13,2012 

02302 

1 

J4REa/ J3 

2 DEC* 

o4991607391  E7  B-26# 

13,2013 

24736 

C 

13,2014 

77651 

0 

2DEC 

-176236=02  B-25 

13,2015 

76237 

0 

13,2016 

77776 

1 

2J3RE/ J2 

2DEC# 

-=1355426363  E5  B-27* 

13  ,2017 

53032 

0 

13,2020 

10407 

0 

2DEC# 

o3067#93316  E18  8-60* 

13,2021 

05344 

1 

13  ,2022 

13  710 

0 

J2REQSG 

2CEC# 

1 =75501) 39  E21  B-72# 

13,2023 

35320 

0 

13,2024 

12160 

0 

3J22R2MU 

2DEC* 

9=20479048  E16  B-58* 

13  ,2025 

12124 

0 

###**###****##,(<***<**  + ****«***,»##*♦#*######**#***##**##*##*#**#*##*#**#* 


S 


M 


REF 

1 

27  ,2000 

SETLDC 

TOF-FFl 

27,2030 

BANK 

REF 

1 

COUNT# 

$$/TFF 

27,2030 

24775 

1 

1 /RTMU 

2DEC* 

=5005750271  E-5 

B17# 

MODIFIED  FARTH 

MU 

27,2031 

3C424 

C 

REF 

1 

42  ,2000 

SETLOC 

SRAND 

42,2000 

BANK 

REF 

) 

COUNT# 

$t /R05 

42  ,2  000 

26723 

0 

REMOIST 

20EC 

3844020C0  B-29 

MEAN 

DISTANCE  BFTWFFN 

EARTH  AND  MOON, 

42,2001 

CC450 

0 

46 
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W:53  DECo  19,1569 


PAGE 


( 


► 


GAP  : 


( MA IN  I 


A7 


t L CCNTROLLEC  CONSTANTS 


USER'S  PAGE  NCo  IP  EO  S4 


P0233  PHYSICAL  CONSTANTS  (TIME  - VARIANT) 


0234  REF  1 

14,2000 

SETLOC 

STARTAB 

023  5 

14,2010 

BANK 

0236  REF  1 

CCUNT* 

$$/STARS 

0237 

14, 2010 

152  62 

0 

2DEC 

+ o 8342  571408 

B-1 

STAR 

37 

X 

0237 

14,2011 

21773 

1 

0238 

14,2012 

74130 

0 

2DEC 

-02392481515 

B-1 

ST  AR 

37 

Y 

0238 

14, 2013 

42420 

1 

0239 

14 ,2014 

70033 

0 

2DEC 

-,4966976975 

B-1 

STAR 

37 

Z 

0239 

14,2015 

41533 

1 

0240 

14,2016 

15014 

0 

2DEC 

+, 8139832631 

B-1 

STAR 

36 

X 

0240 

14,2017 

C4650 

0 

0241 

14,2020 

67067 

1 

2DEC 

-o  5557243189 

8-1 

STAR 

36 

Y 

0241  , 

14,2021 

60150 

0 

0242 

14,2022 

02551 

1 

2DEC 

+<,1691204557 

B-1 

STAR 

36 

Z 

0242 

14,2023 

15723 

0 

0243 

14,2024 

07210 

0 

20EC 

+0  4541086270 

B-1 

STAR 

35 

X 

0243 

14,2025 

01664 

1 

0244 

14,2026 

67276 

0 

2DEC 

-o5392368197 

B-1 

STAR 

35 

Y 

0244 

14,2027 

62232 

0 

0245 

14,2030 

13262 

0 

2DEC 

+ o 7092312789 

B-1 

STAR 

35 

Z 

0245 

14  ,2031 

00563 

1 

0246 

14,2032 

05076 

0 

2 DEC 

+o3201 817378 

B-1 

STAR 

34 

X 

0246 

14, 2023 

35561 

0 

0247 

14,2034 

70716 

0 

2DEC 

-,4436021946 

B-  1 

STAR 

34 

Y 

0247 

14, 2035 

40260 

1 

0248 

14,2036 

62466 

1 

2DEC 

-,8370786986 

B-1 

STAR 

34 

Z 

0248 

14,2037 

64656 

0 

0249 

14,2040 

10652 

1 

2DEC 

+ £,55201  84464 

1 

CD 

STAR 

33 

X 

0249 

14,2041 

04246 

0 

0250 

14,2042 

63235 

0 

2DEC 

-,7933187400 

B-1 

ST  AR 

33 

Y 

0250 

14,2043 

44200 

0 

02  51 

14,2344 

73  710 

0 

20EC 

-,2567508745 

B-1 

STAR 

33 

Z 

0251 

14,2045 

66230 

0 

02  52 

14,2046 

07204 

0 

2DEC 

+,4537196908 

B-1 

STAR 

32 

X 

0252 

14,2047 

33712 

0 

0253 

14,2050 

61747 

1 

2DEC 

8779508801 

B-1 

STAR 

32 

Y 

0253 

14  ,2051 

72343 

0 

0254 

14,2052 

C2343 

1 

2CEC 

+,1527766153 

B-1 

STAR 

32 

Z 

0254 

14,2053 

21  362 

0 

0255 

14,2054 

03237 

1 

2DEC 

+,2069525789 

B-1 

STAR 

31 

X 

0255 

14,2055 

13301 

1 

0256 

14,2056 

62030 

0 

2DEC 

-,871 9885748 

B-1 

STAR 

31 

Y 

0256 

14,2057 

65332 

0 

0257 

14, 2060 

70715 

0 

2DEC 

-,4436288486 

B-1 

STAR 

31 

Z 

0257 

14,2061 

71267 

1 

0258 

14,2062 

01745 

0 

2DEC 

+ ,121  7293692 

e-1 

STAR 

30 

X 

02  5 8 

14,2063 

06477 

0 

0259 

14 ,2064 

63531 

0 

2DEC 

-,7702732847 

B-1 

STAR 

30 

Y 

0259 

14, 2065 

75365 

0 

r 


w 


GAP: 

ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY 

NASA  2021.112-091 

17:53 

DEC,  19,1969 

L 

CCNTROLLEC  CONSTANTS 

USER'S  PAGE 

NOc 

0260 

14,2066 

12010  0 

2DEC 

+,6259880410 

B-1 

STAR  30 

Z 

0260 

14.,  2067 

C30C5  1 

0261 

14,2070 

76146  0 

2DEC 

-0 1124304773 

8-1 

STAR  29 

X 

0261 

14,2071 

77014  1 

0262 

14,2072 

60371  1 

2DEC 

-«  9694934200 

B-1 

STAR  29 

Y 

0262 

14,2073 

75073  1 

0263 

14,2074 

C3370  0 

2DEC 

+,2178) 16072 

B-1 

STAR  29 

Z 

0263 

14,2075 

120C3  1 

026A 

14,2076 

76125  0 

2DEC 

-ol) 46237858 

B-1 

STAR  28 

X 

0264 

14,2077 

40037  1 

0265 

14,2100 

72436  0 

2DEC 

-o  3399692557 

B-1 

STAR  28 

Y 

0265 

14,2101 

77062  0 

0266 

14,2102 

61041  0 

2DEC 

-o  9334250333 

B-1 

STAR  28 

Z 

0266 

14,2103 

54164  0 

0267 

14,2104 

72277  0 

2 DEC 

-,351 6499609 

B-1 

STAR  27 

X 

0267 

14,2105 

51044  0 

0268 

14,2106 

62641  0 

20EC 

-,8240752703 

B-1 

STAR  27 

Y 

0268 

14,2107 

45471  1 

0269 

14,2110 

70711  1 

2DEC 

-,4441196390 

B-1 

STAR  27 

Z 

0269 

14,2111 

70546  1 

0270 

14,2112 

67364  1 

2DEC 

-s  5326876930 

B-1 

STAR  26 

X 

0270 

14,2113 

47073  0 

0271 

14,21)4 

64425  0 

2 DEC 

-,7160644554 

B-1 

STAR  26 

Y 

02  71 

14,2115 

77777  0 

0272 

14,2116 

07157  0 

2DEC 

+,4511047742 

B-1 

STAR  26 

Z 

02  72 

14,2117 

16322  0 

0273 

14,2120 

63327  1 

2DFC 

-,7861763936 

B-1 

STAR  25 

X 

0273 

14,2121 

64446  0 

0274 

14,2122 

67515  1 

2DEC 

-o  5217996305 

e-1 

STAR  25 

Y 

0274 

14,2123 

55266  0 

0275 

14,2124 

05230  0 

2DEC 

+,3311371675 

B-1 

STAR  25 

Z 

02  75 

14,2125 

25476  0 

0276 

14 ,2126 

64754  0 

2DEC 

-,6898393233 

B-1 

STAR  24 

X 

0276 

14,2127 

72604  0 

02  77 

14,2130 

71235  0 

2DEC 

-o418233064C 

B-1 

STAR  24 

Y 

0277 

14,2131 

72553  1 

0278 

14,2132 

66427  0 

2DEC 

-, 5909338474 

B-1 

STAR  2^^ 

Z 

0278 

14,2133 

42171  0 

0279 

14,2134 

66546  C 

2CEC 

-,5812035376 

B-) 

STAR  23 

X 

0279 

14,2135 

70765  1 

0280 

14 ,2136 

73260  1 

2DEC 

-,2909171294 

B-l 

STAR  23 

Y 

0280 

14,2137 

71643  0 

02  81 

14,2140 

14121  0 

2DEC 

+ 0 7599800468 

B-1 

STAR  23 

Z 

0281 

14,2141 

30153  0 

0282 

14, 2142 

61247  1 

2DEC 

-0  9170C97662 

B-1 

STAR  22 

X 

0282 

14,2143 

73310  1 

0283 

14,2144 

72313  0 

2DEC 

-,3502146628 

B-1 

STAR  22 

Y 

02  83 

14,2145 

41247  0 

02  84 

14,2)46 

74744  0 

2nEC 

-,1908999176 

B-1 

STAR  22 

Z 

0284 

14,2147 

44566  1 

48 


GAP: 

L 

0285 

0285 

02  86 

0286 

0287 

0287 

0288 

0288 

02  89 

0289 

02  90 

0290 

0291 

0291 

0292 

02  92 

02  93 

0293 

02  94 

0294 

0295 

0295 

0296 

02  96 

0297 

0297 

0298 

0298 

0299 

0299 

0300 

0300 

0301 

0301 

0302 

0302 

0303 

0303 

0304 

0304 

0305 

0305 

0306 

0306 

0307 

0307 

0308 

0308 

0309 

0309 


ASSEMBLE  REVISION  13]  OF  AGC  PPCGRAP  LUMINARY  BY  NASA  2021132-091 


17:53  DEC,-,  19,1969 


i 

(MAIN!  PAGE  49 

..I 


CCNTROLLEO  CONSTANTS  . USER'S  PAGE  NCo  12  EO  S4 


14,2150 

70606 

0 

2CEC 

-c4523440203 

B-1 

STAR 

21 

X 

14,2151 

54564 

1 

14,2152 

77153 

0 

2DEC 

-oC49371C140 

B-1 

STAR 

21 

Y 

14,2153 

61  536 

0 

14, 2154 

61601 

1 

2DEC 

-0  8904759346 

B-1 

STAR 

21 

2 

14,2155 

47046 

0 

14,2156 

60604 

0 

2DEC 

-<>'=525211695 

B-1 

STAR 

20 

X 

14,2157 

76224 

1 

14,2160 

77031 

0 

2 DEC 

-o0593434796 

B-1 

STAR 

20 

Y 

lA, 2161 

73354 

1 

14,2162 

73161 

0 

2DEC 

-o  298633J  746 

B-1 

STAR 

20 

Z 

14,2163 

63065 

1 

14,2164 

60431 

1 

2DEC 

-o  96566C5484 

B-1 

STAR 

19 

X 

14 ,2165 

51702 

0 

14,2166 

00656 

1 

2DEC 

+o0525933156 

B-1 

STAR 

19 

Y 

14,2167 

33013 

0 

14,2170 

04044 

0 

2DEC 

+o2544280809 

B-1 

STAR 

19 

Z 

14, 2171 

10627 

c 

14,2172 

621  64 

0 

2DEC 

-o8608205219 

B-1 

STAR 

18 

X 

14,2173 

45040 

1 

14,2174 

07325 

1 

2DEC 

+04636213989 

8-1 

STAR 

18 

Y 

14,2175 

37443 

0 

14,2176 

03267 

1 

2CEC 

+ 0.2098647335 

B-] 

STAR 

18 

Z 

14,2177 

06626 

0 

14,2200 

63471 

0 

2DEC 

-o7742591356 

B-  1 

STAR 

17 

X 

14,2201 

5C471 

0 

14,2202 

11660 

1 

2DEC 

+ o 6152504197 

B-1 

STAR 

17 

Y 

14,2203 

04151 

0 

14,2204 

75501 

1 

2DEC 

-o 1482892839 

B-1 

STAR 

17 

Z 

14,2205 

46664 

1 

14,2206 

70430 

1 

2CEC 

-o46.57947941 

1 

CD 

STAR 

16 

X 

14,2207 

46540 

1 

14,2210 

07507 

1 

2DEC 

+o4774785033 

R-l 

STAR 

16 

Y 

14,2211 

2C100 

1 

14,2212 

13727 

1 

2DEC 

+o7450164351 

B-1 

STAR 

1 6 

Z 

14,2213 

C5455 

0 

14,2214 

72160 

0 

2DEC 

-o  3612506532 

B-1 

STAR 

15 

X 

14  ,2215 

64202 

0 

14,2216 

11144 

0 

2DEC 

+o57A727C840 

B-1 

STAR 

15 

Y 

14,2217 

05203 

0 

14,2220 

64200 

1 

20EC 

-o7342932655 

B-1 

STAR 

15 

Z 

14, 2221 

6 5331 

0 

14,2222 

71322 

1 

2DEC 

-<>411  8589524 

B-1 

STAR 

] 4 

X 

14,2223 

41512 

1 

14,2224 

16402 

0 

2DEC 

+ o 9065485360 

E-1 

STAR 

14 

Y 

14 ,2225 

16205 

1 

14,2226 

C1365 

0 

20EC 

+00924226975 

B-1 

STAR 

14 

Z 

14,2227 

04034 

1 

14,2230 

75054 

1 

2DEC 

-01820751783 

B-1 

STAR 

1 3 

X 

14,2231  56C52  0 


..z 


GAP: 

L 

0310 

0310 

0311 

0311 

0312 

03.12 

0313 

0313 

031A 

0314 

0315 

0315 

0316 

0316 

0317 

0317 

0318 

03)  8 

0319 

0319 

0320 

0320 

0321 

0321 

0322 

0322 

0323 

0323 

0324 

0324 

0325 

0325 

0326 

0326 

0327 

0327 

0328 

0328 

032° 

0329 

0330 

0330 

0331 

0331 

0332 

0332 

0333 

0333 

0334 

0334 
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CCNTRCLLEC  CUNSTAKTS 


14,2232 

17030 

1 

2DEC 

1A,2233 

17635 

1 

14,2234 

73321 

0 

2DEC 

14,2235 

57603 

0 

14,2236 

77C10 

0 

2DEC 

14  ,2237 

47623 

0 

14,2240 

11515 

0 

2DEC 

14,2241 

01640 

1 

14,2242 

63215 

1 

2DEC 

14,2243 

52176 

0 

14,2244 

02143 

0 

2DEC 

14,2245 

26755 

1 

14,2246 

12715 

1 

2DEC 

14,2247 

31470 

0 

14,2250 

13401 

0 

2DEC 

14,2251 

31222 

1 

14,2252 

03157 

1 

2CEC 

14,2253 

275C4 

0 

14,2254 

17402 

1 

2DEC 

14,2255 

12312 

1 

14,2256 

75552 

1 

2LIEC 

14  ,2257 

63657 

0 

14,2260 

05471 

0 

2CEC 

14,226) 

06122 

0 

14  ,2262 

16220 

0 

2DEC 

14,2263 

16362 

1 

14,2264 

04417 

1 

2DEC 

14,2265 

32762 

0 

14,2266 

06443 

1 

2DEC 

14  ,2267 

12622 

1 

14,2270 

07766 

1 

2DEC 

14,2271 

10237 

0 

14 ,2272 

14154 

1 

2DEC 

14,2273 

36154 

1 

14,2274 

13200 

1 

2D  EC 

14,2275 

31653 

0 

14,2276 

13244 

1 

2DEC 

14  ,2277 

21036 

1 

14,2300 

01067 

1 

2DEC 

14,2301 

23106 

1 

14,2302 

10560 

0 

2DEC 

14,2303 

27227 

0 

14,2304 

10402 

0 

2DEC 

14,2305 

C0275 

1 

14,2306 

65477 

0 

2DEC 

14 ,2307 

77044 

1 

14,2310 

00153 

c 

2DFC 

14,2311 

11212 

0 

14  ,2312 

00077 

1 

2DEC 

14,2313 

36275 

1 
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+o9404899869 

B-1 

STAR 

13 

Y 

2869271926 

B-1 

STAR 

13 

Z 

-o  0614937230 

B-1 

STAR 

12 

X 

+ c 6031 563286 

B-1 

STAR 

12 

Y 

-o7952489957 

B-1 

STAR 

12 

1 

+,1371725575 

B-1 

STAR 

11 

X 

+ 0 6813721061 

E-1 

STAR 

11 

Y 

+o7) 89685267 

B-1 

STAR 

11 

Z 

+o201 1399589 

B-1 

STAR 

10 

X 

+ o 9690337941 

B-1 

STAR 

10 

Y 

-,1432348512 

B-1 

STAR 

10 

Z 

+,3507315038 

B-1 

STAR 

9 

X 

+,8926333307 

B-  1 

STAR 

9 

Y 

+, 2831839492 

B-1 

STAR 

9 

Z 

+ c 4105636020 

B-1 

STAR 

8 

X 

+,49881 10001 

e-1 

STAR 

8 

Y 

+,7632988371 

B-1 

STAR 

8 

7 

+,7032235469 

B-1 

STAR 

7 

X 

+, 7075846047 

e-1 

STAR 

7 

Y 

+,0692866685 

B-1 

STAR 

7 

Z 

+, 545O107404 

B-1 

STAR 

6 

X 

+,5314955466 

B-1 

STAR 

6 

Y 

-, 6484410356 

B-1 

STAR 

6 

1 

+,0130968840 

B-1 

STAR 

5 

X 

+,0078062795 

B-1 

STAR 

c 

Y 
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L CCNTROLLEC  CONSTANTS 


0335 

14,2314 

17777 

0 

0335 

14,2315 

C1417 

1 

0336 

14,2  316 

07674 

0 

0336 

14,2317 

21771 

0 

0337 

14,2320 

C3416 

1 

0337 

14,2321 

07626 

1 

0338 

14,2322 

62413 

0 

0338 

14,2323 

57536 

c 

0339 

14,2324 

07510 

1 

0339 

14, 2325 

.06414 

0 

0340 

14,2326 

01673 

1 

0340 

14,2327 

06C65 

1 

0341 

14, 2330 

15735 

1 

0341  ■ 

14,2331 

31531 

1 

0342 

14,2332 

16745 

0 

0342 

14,2333 

17555 

1 

0343 

14,2334 

02615 

1 

0343 

14,2335 

13716 

0 

0344 

14,2336 

7301C 

1 

0344 

14,2337 

40311 

0 

0345 

14,  23''0 

15776 

0 

0345 

14,2341 

34660 

0 

0346 

14,2342 

00325 

0 

0346 

14,2343 

26625 

1 

0347 

14,2344 

07572 

0 

0347 

14,2345 

C5105 

0 

0348 

14,2346 

15472 

1 

NASA  2021112-091 

17:53 

DECo  19 

,1969 

(MAIN) 

PAGE 

51 

USER' 

S PAGE 

NCc  14 

ED  S4 

2CEC 

+o9998837600 

B-1 

STAR 

5 

Z 

20EC 

+04917676276 

B-1 

STAR 

4 

X 

20EC 

+ o 2204887125 

8-1 

STAR 

4 

Y 

2DEC 

-o 8423473935 

B-1 

STAR 

4 

1 

2DEC 

+o4775639450 

B-1 

STAR 

3 

X 

20EC 

+ 0 1166004340 

B-1 

STAR 

3 

Y 

20EC 

+o  8708254803 

8-1 

ST  AR 

3 

Z 

2CEC 

+=93^2640400 

B-l 

STAR 

2 

X 

20EC 

+o 1735073142 

B-1 

STAR 

2 

Y 

2DEC 

-o3115219339 

B-1 

STAR 

2 

Z 

2DEC 

+ o 8748658918 

B-1 

STAR 

1 

X 

2DEC 

+oC260879174 

B-1 

ST  AR 

1 

Y 

2DEC 

+=4836621670 

B-1 

STAR 

1 

Z 

R0349 


CATLOG  DEC 


(S970 


0350  REF  1 

J5, 2000 

SETLUC 

EPHEMI 

0351 

05,2001 

BANK 

0352  REF  1 

CCUNT* 

$$/EPHEM 

0353 

15,2001 

20000 

0 KDNMAT 

2DEC 

loC  B-1 

0353 

05,20C2 

00000 

1 

0354 

75,2003 

OQOOC 

1 

2DEC 

0 

0354 

05,2004 

00000 

1 

0355 

05,2005 

00000 

1 

20EC 

0 

* 

0355 

05,  2006 

00000 

1 

0356 

■75  ,2007 

00000 

1 

2 DEC 

0 

0356 

05,2310 

00000 

1 

0357 

15,2011 

16533 

0 

2DEC 

=91745  B-l 

K1 

COSIOBL)  # 

0357 

05 ,2012 

30007 

0 

0358 

05, 2013 

77333 

1 

20EC 

-=03571  B-l 

K2 

S IM( DBL )S IN ( IM ) * 

0358 

75,2014 

56654 

0 

0359 

05,2015 

CQOOO 

1 

2DCC 

0 

* 

0359 

05, 2016 

COOOO 

1 

0360 

75,2017 

06273 

1 

2DEC 

=39784  B-l 

K3 

SIN(OBL)  * 

0360 

05,2020 

03275 

1 

( 
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L 

CCNTPCLLEC  CONSTANTS 

USER'S  PAGE  NCo 

15  EO  S4 

0361 

05  ,2021 

01242 

1 

2DEC 

o08235^  B-1 

K4  C0S(  OBL)  SI  N(  I M)  * 

0361 

05,2022 

24467 

1 

0362 

05 ,2023 

00020 

0 

CSTODAY 

2DEC 

8640000  B-33 

* 

NOTE 

* 

0362 

05,2024 

17260 

0 

0363 

05,2025 

00002 

0 

RC8-13 

OCT 

00002 

TABLES  CONTAIN 

03  6A 

05,2026 

00000 

1 

OCT 

OOCOO 

4 

CONSTANTS  FOR 

A 

0365 

05,2027 

22572 

1 

RATESP 

2DEC 

o03660098  B+4 

LOMR  * 

1969  - 1.970 

* 

0365 

05,  2030 

27214 

0 

0366 

05 ,2031 

01315 

1 

20EC 

o0C273779  B+4 

LOSR 

0366 

05,2032 

26177 

1 

0367 

05,2933 

77731 

1 

2DEC 

-o0C014719  B+4 

LONR 

0367 

05,2034 

55217 

0 

0368 

05, 2035 

32055 

c 

2DEC 

o815282336 

LOMO 

0368 

05,2036 

22576 

0 

0369 

05,2037 

10624 

0 

20EC 

■ 0 274674910 

LOSO 

0369 

15,2040 

10605 

0 

0370 

15,2041 

37436 

1 

2DEC 

o 9P6209499 

LONG 

0370 

05,2042 

01635 

0 

0371 

05,2043 

01065 

0 

VAL67 

2DEC* 

o01726666666  B+1*  AMOD 

0371 

05,2044 

31323 

1 

0372 

05,2045 

20770 

0 

2DEC 

o 530784445 

AARG 

0372 

05 ,2046 

13725 

0 

0373 

05,2047 

02245 

0 

2CEC 

,.036291712  B + 1 

1/27 

0373 

05, 2050 

06475 

1 

0374 

05 ,2051 

00162 

1 

20EC 

o003505277  B+1 

BMOD 

0374 

05,2052 

33431 

1 

03  75 

05,2053 

22566 

1 

2DEC 

o 585365625 

BARG 

0375 

05,2054 

24130 

0 

0376 

05, 2055 

C2000 

0 

2DEC 

o 0 31 2 5 B + 1 

1/32 

03  76 

05,2  056 

00000 

1 

0377 

05,2057 

00256 

0 

2DEC 

o005325277  B+1 

CMOD 

0377 

05,2060 

17752 

1 

0378 

05  ,2061 

77512 

1 

2DEC 

-o01106341036 

CARG 

0378 

05,2062 

67453 

1 

0379 

05,2063 

00131 

1 

2DEC 

o0C2737925  B+1 

1/365 

0379 

05,2064 

26730 

1 

R0380 

0381 

REF 

1 

26 ,2000 

SETLOC 

PLANTIN2 

0382 

26,2000 

BANK 

0383 

REF 

1 

COUNT* 

$* /LURCT 

03  84 

26  ,2000 

17775 

1 

COS  I 

2DEC* 

9o996417320  E-1  B-1* 

COS  ( 5521o  5 SECc  ) 

0384 

26,2001 

02052 

1 

03  85 

26,2002 

00333 

1 

SINI 

2DEC* 

2o676579050  E-2  B-1* 

SIN  ( 5521o  5 SEC,  ) 

0385 

26,2003 

10374 

C 

0386 

26,  2004 

77665 

1 

NOODOT 

2DEC* 

-lo 703706190  E-11  B28* 

REV/CSEC 

03  86 

26,2005 

42175 

1 

0387 

26,2006 

22211 

0 

FDCT 

2DEC* 

4o253263473  E-9  B27* 

REV/CSEC 

0387 

26,2007 

00636 

1 

GAP: 

L 

0388 

0388 

0389 

0389 

03  90 

C390 

0391 

0391 

0392 

0392 
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CCNTRCLLED  CONSTANTS 


USER'  S PAGE  NOo  16  EO  S4 


26,2010 

77777 

0 

BOCT 

2DEC4 

-lol45529388 

E-16  B284 

REV/CSEC 

26, 2011 

77767 

1 

26,2012 

37436 

1 

NODIO 

2DEC* 

9o  862094363 

E-1# 

REV 

26,2013 

01614 

0 

26,2014 

32417 

1 

FSUBO 

2DEC4 

8»290901511 

E-1* 

REV 

26,2015 

32011 

0 

26,2016 

02052 

1 

8 SUBO 

2DEC 

6o512013939 

E-2 

REVS 

26 ,2017 

35552 

0 

26,2020 

37116 

0 

WEARTH 

2DEC4 

1 ol60576171 

E-7  B23* 

REV/CSEC 

26,2021 

32631 

1 
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AOOOOCl 

R000002  Y**  CHANNEL  DE SC R I PT I CNS F WORDS  ARE  ALLOCATED  IN  ERASABLE  ASSIGNMENTS 


DECo  19,11969  (MAINI 

USER'S  PAGE  NCo  1 


PAGE  59 
EO  S9 


R0000O5 

A 0001 

CHANNEL 

1 

I DENT ICAL 

TO 

COMPUTER 

REGI STE 

ROO02 

A0003 

CHANNEL 

2 

IDENTIC  AL 

TC 

COMPUTER 

REGISTE 

R0004 

R0006 

AOC'OS 

CHANNEL 

3 

HI  SCALAR ; 
FACTOR  IS 

INPUT  CHANNEL;  MOST 
B23  IN  CSEC,  SO  MAX 

R L (00011 

R 0 (0002  I 

SIGNIFICANT  14  BITS  FROM  33  STAGE  BINARY  COUNTER^  SCALE 
VALUE  ABOUT  23,3  HOURS  AND  LEAST  SIGNIFICANT  BIT  5„]2  SECS, 


R0009 

ROOll 

R0013 

A0015 


CHANNEL  4 LCSCALAR;  INPUT  CHANNEL;  NEXT  MOST  SIGNIFICANT  14  BITS  FROM  THE  33  STAGE  BINARY  COUNTER 
ASSOCIATED  WITH  CHANNEL  3,  SCALE  FACTOR  IS  B9  IN  CS ECo  SO  MAX  VAL  IS  5,12  SEC  AND  LEAST 
SIGNIFICANT  BIT  IS  1/3200  SEC,  SCALE  FACTOR  OF  D, Po  WORD  WITH  CHANNEL  3 IS  B23  CSEC, 


R0016 

A0018 

CHANNEL  5 

PYJETS;  1 

R0019 

AC021 

CHANNEL  6 

ROLLJETS 

LTPUT  CHANNEL;  PITCH  RC S JET  CONTROL, 

OLTPUT  CHANNEL;  ROLL  RCS  JET  CONTROL, 


(REACTION  CONTROL  SYSTEMI  USES  BITS  1-8, 

(REACTION  CONTROL  SYSTEMI  USES  BIT  1-8, 


R0022 

R0024 

A0026 


CHANNEL  7 


SUPERBNK;  OUTPUT  CHANNEL;  NOT  RESET  EY  RESTART;  FIXED  EXTENSION  BITS  USED  TO  SELECT  THE 
APPROPRIATE  FIXED  MEMORY  BANK  IF  FBANK  IS  30  OCTAL  OP  MORE,  USES  BITS  5-7, 


R0027 

R0029 

R0031 

A0033 


CHANNEL  10  OUTO;  CLTPLT  CHANNEL;  REGISTER  USED  TO  TRANSMIT  LATCHING-RELAY  DRIVING  INFORMATION  FOR 

THE  DISPLAY  SYSTEM,  BITS  15-12  ARE  SET  TO  THE  ROW  NUMBER  (1-14  OCTALI  OF  THE  RELAY  TO  BE 
CHANGEC  AND  BITS  11-1  CONTAIN  THE  REQUIRED  SETTINGS  FDR  THE  RELAYS  IN  THE  ROW, 


R0034 

R0036 

A0038 


CHANNEL  11 


DSALMOUT;  OUTPUT  CHANNEL;  REGISTER  WHOSE  BITS  ARE  USED  FOR  ENGINE  CN-CFF  CONTROL  AND  TO 
DRIVE  INDIVIDUAL  INDICATORS  OF  THE  DISPLAY  SYSTEM,  BITS  1-7  ARE  A RELAYS, 


R0039 

A 0040 

BIT 

1 

ISS  WA 

PMNG 

R0041 

A0042 

BIT 

2 

L IGHT 

COMPUTER  ACTIVITY  LAMP 

R0043 

A0044 

BIT 

LIGHT 

UPLINK  ACTIVITY  LAMP 

R0045 

A0046 

BIT 

4 

LIGHT 

TEMP  CAUTION  LAMP 

R0047 

A0048 

BIT 

5 

LIGHT 

KEYBOARD  RELEASE  LAMP 

R0049 

A0050 

BIT 

6 

FLASH 

VERB  AND  NOUN  LAMPS 

R0051 

BIT 

7 

LIGHT 

OPERATCR  ERROR  LAMP 

gap:  assemble  REVISION  1.3X  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2Ci  2 1 1 1 2-0<3 1 
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17:53  DECo  1.9,196<3 
USER'S  page 


I MA  I N I 
NCc  2 


PAGE 
EO  S4 


A0052 


R0053 

A00  54 

BIT 

8 

SPARE 

R0055 

A0056 

BI  T 

9 

TEST  CCNNECTCR 

R0057 

A0058 

BIT 

lo 

CAUTION  RESET 

R0059 

A 00  60 

B IT 

11 

SPARE 

R0061 

A00  62 

BIT 

12 

SPARE 

R0063 

A0064 

BI  T 

1? 

ENGINE  CN 

R0065 

A0066 

BIT 

14 

ENGINE  CFF 

R0067 

BIT 

15 

SPARE 

A0068 


R0069 

A0071 

R0072 

A0073 

R0074 

A0075 

R0076 

A0077 


CHANNEL  12  CHANJJJLJILTPUT  CHANNEL;  BITS  USED  TO  CRIVE  NAVIGATION  AMD  SPAECRAFT  HARDWARE 
BIT  1 ^ ZERC  RP  CCUV  CCU'S  GIVE  RRACAR  INFORMATION  FOR  LM 

BIT  2 '^^NABLE  CCU^ACAP  ERROR  COUNTERS 

BIT  3 NOT  USED 


R0078 

BIT 

4 

COARSE 

ALIGN  ENABLE  CF  I MU 

A0079 

R0080 

A0081 

BIT 

5 

ZERC  I 

ML  CCU’S 

R0082 

BIT 

6 

ENABLE 

IMU  ERROR  COUNTER 

, CDU  ERROR  COUNTERo 

A0083 

R0084 

A0085 

BIT 

7 

SPARE 

R0n86 

BIT 

8 

ni SPLA 

Y INERTIAL  DATA 

A0087 

R0088 

BIT 

9 

-PITCH 

GIMBAL  TRIM 

(BELL 

MOT  ION  1 

1 DESCENT 

ENG  I 

NF 

A0089 

R0090 

A0091 

BIT 

10 

+ P ITCH 

GIMBAL  TRIM 

( BELL 

MOTION! 

1 DESCENT 

ENGI 

NE 

R0C92 

A0093 

BI  T 

1) 

-ROLL 

GI MEAL  TRIM 

( BELL 

MOT  ION  1 

1 DESCENT 

ENGI 

NE 

R0094 

A0095 

BIT 

12 

HROLL 

GIMBAL  TRIM 

( BELL 

MOT  ION  1 

1 DESCENT 

ENGI 

NE 

R0096 

BIT 

13 

LR  PQS 

ITIQN  2 COMMAND 

A0097 

R0098 

BIT 

14 

ENABLE 

RENOESVOUS 

RADAR 

LCCK-CN; 

AUTC  ANGLE  TR 

ACI 

A0099 

ROlOO 

BIT 

15 

ISS  TU 

RN  GN  DELAY 

COMPLETE 

AOlOl 


55 
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R0102 
A0103 
ROlOA 
R0105 
R0106 
A 01 07 
R0108 
A0109 
ROllO 
AOlll 
R0112 
A0113 
ROllA 
A0115 
R0116 
A0117 


ASSEMBLE  REVISION  131  OF  AGC  PPCGRAN  LUMINARY  BY  NASA  2021112-091 
INPUT/nUTPUT  CHANNEL  BIT  DESCRIPTIONS 

CHANNEL  13  CHAM3  ; OUTPUT  CHANNEL 
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USER'S  PAGE  NCo  3 EC  S4 


BIT  1 
BI  T 2 
BIT  3 

BI  T 4 

BI  T 5 

BIT  6 

BIT  7 

BITS 


RADAR  C 
RADAR  e, 
RADAR  a’ 


PROPER  SETTING  OF  THE  A,B,C  MATRIX 
SELECTS  CERTAIN  RADAR 
PARAMETERS  TO  BE  READo 


RADAR  ACTIVITY 

NOT  USED  (CONNECTS  AN  ALTERNATE  INPUT  TO  UPLINK) 
SPARE 

DOWNLINK  TELEMETRY  WERE  CRCER  CODE  BIT 

RHC  COUNTER  ENABLE  (READ  FANE  CONTROLLER  ANGLES) 


R0118 

BIT 

9 

START  RFC  READ  INTO  COUNTERS  IF 

BIT 

8 

SET 

A0119 

R0120 

BIT 

1'' 

TEST  ALARMS,  TEST 

DSKY  LIGHTS 

A0121 

R0122 

BI  T 

11 

ENABLE  STANDBY 

A0123 

R0124 

B,IT 

12 

RESET  TRAP  31-A 

ALWAYS 

APPEAR 

TO 

BE 

SET 

TO 

A0125 

R0126 

BIT 

13 

RESET  TRAP  31-B 

ALWAYS 

APPEAR 

TO 

BE 

SET 

TO 

A0127 

R0128 

A0129 

BIT 

14 

RESET  TRAP  32 

ALWAYS 

APPEAR 

TO 

BE 

SET 

TO 

R0130 

81  T 

15 

ENABLE  T6  RLPT 

A0131 


CHAN14;  OUTPUT  CHANNEL:  USED  TO  CONTROL  COMPUTER 
nUTLINK  ACTIVITY  (NOT  USED) 

ALTITUDE  RATE  DR  ALTITICE  SELECTOR 
ALTITUCE  METER  ACTIVITY 


R0132 

A0134 

CHANNEL 

R0135 

A0136 

BIT  1 

R0137 

A0138 

BIT  2 

R0139 

A014n 

BI  T 3 

R0141 

A0142 

BIT  4 

R0143 

A0144 

BIT  5 

R0145 

A0146 

BIT  6 

R0147 

BI  T 7 

R0148 

A0149 

BIT  8 

R0150 

A0151 

' BI  T 9 

THRUST  DRIVE 

ACT  IV  ITY 

SPARE 

GYRO  E NABLE  POWER  FOR 

GYRC  SELECT  B 

PAIR 

GYRO  SELECT  A 

GYRO 

GYRC  TCRGUING 

COMMAND 

FOR  DESCENT  ENGINE 

PULSES 

OF  BITS  IDENTIFIES  AXIS  OF 
SYSTEM  TO  BE  TCRQUEEo 

IN  NEGATIVE  DIRECTION 


COUNTER  CELLS  ( CDU  , GYRO , SPACECRAFT  FUNCc 


GAP 
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L INPUT/OUTPUT  CHANNEL  BIT  DESCRIPTIONS 


USER'S  PAGE  NCo  4 


EO  S4 


R0152 

81  T 

10 

GYRC 

ACTIVITY 

A0153 

R0154 

BIT 

11 

DR  IV  E 

ecu  S 

A0155 

R0156 

BIT 

12 

DRIVE 

CDL  T 

A0157 

R0158 

BIT 

13 

DR  I VE 

CDU  Z 

A0159 

R0160 

BI  T 

14 

DRI  VE 

ecu  Y 

A0161 

R0162 

BIT 

15 

DRIVE 

ecu  X 

A0163 

R0164  CHANNEL  15  MNKEYIN;  INPUT  CHANNELiKEY  CODE  INPUT  FROM  KEYBOARD  OF  DSKY,  SF-NSED  BY  PROGRAM  WHEN 

R0166  PRCGRAM  INTERRUPT  #5  IS  RECEIVED^  USES  BITS  5-1 

A0167 


R0168 
R0170 
A0172 
R0173 
A0174 
R0175 
A0176 
R0177 
AOITB 
R0179 
A0180 
R0181 
A0182 
R0183 
A 01  84 
R0185 
A0186 


CHANNEL  16 

BIT  1 
BIT  2 
BIT  3 
BIT  4 
BIT  5 
BIT  6 
BIT  7 


NAVKEYIN;  INPUT  CHANNEL;  OPTICS  MARK  INFORMATION  AND  NAVIGA  ION  PANEL  DSKY  (CM)  OR  THRUST 
CONTROL  (LM)  SENSED  BY  PROGRAM  WHEN  PROGRAM  INTER-RUPT  #6  IS  PECEIVEDo  USES  BITS  3-7  ONLYj 

NOT  ASSIGNED 

NOT  ASSIGNED 

OPTICS  X-AXIS  MARK  SIGNAL  FOR  ALIGN  OPTICAL  TSCOPE 
OPTICS  Y-AXIS  MARK  SIGNAL  FOR  AOT 
OPTICS  MARK  REJECT  SIGNAL 

DESCENT+  ; CREW  DESIRED  SLOWING  RATE  OF  DESCENT 
DESCENT-  ; CREW  DESIRED  SPEEDING  UP  RATE  CF  D'CENT 


R0187  NOTE:  ALL  BITS  IN  CHANNELS  30-33  ARE  INVERTED  AS  SENSED  BY  THE  PROGRAM,  SO  THAT  A VALUE  CF  ZERO  MEANS 

R0189  THAT  THE  INDICATED  SIGNAL  IS  PRESENT, 

A0190 


R0191 

A0192 

CHANNEL  3'^ 

INPUT  CHA 

R0i93 

A0194 

BIT  1 

ABORT  WIT 

R0195 

A0196 

BIT  2 

UNUSED 

R0197 

A0198 

BIT  3 

ENGINE  AR 

R0199 

A0200 

BI  T 4 

ABORT  WIT 

R0201 

BIT  5 

AUTG  TFRO 

NNEL 

F DESCENT  STAGE 

MED  SIGNAL 

F ASCENT  ENGINE  STAGE 

TTLE:  COMPUTER  CONTROL  OF  DESCENT  ENGINE 


L 

INPUT/OUTPLT  CHANNEL 

BIT 

A0202 

R0203 

BIT 

6 

DISI 

A0204 

R0205 

BIT 

7 

RR  1 

A 02  06 
R0207 

BIT 

8 

SPA 

A0208 

R0209 

BIT 

9 

I MU 

A0210 

R0211 

BIT 

ID 

LM  ( 

A0212 

R0213 

BIT 

11 

IMU 

A0214 

R0215 

BIT 

12 

IMU 

A0216 

R0217 

BIT 

13 

IMU 

A0218 

R0219 

BIT 

14 

ISS 

A0220 

R0221 

BIT 

15 

TEM( 
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USER'S  PAGE  NOn  5 EO  S4 


R0223 

R0225 

A0226 

R0227 

R0229 

A0231 

R0232 

A0233 

R0234 

A0236 

R0237 

A0238 

R0239 

R0241 

A0243 

R0244 

A0245 


CHANNEL  31- 

BIT  1 

BIT  2 
BIT  3 
BIT  4 
BIT  5 

BIT  6 


INPUT  CHANNEL;  BITS  ASSOCIATED  WITH  THE  ATTITUDE  CONTROLLER,  TRANSLATIONAL  CONTROLLER, 
AND  SPACECRAFT  ATTITUDE  CONTROL;  USED  BY  RCS  DAP 

ROTATION  (BY  RHCI  CCRMANDED  IN  POSITIVE  PITCH  DIRECTION;  MUST  BE  IN'  MINIMUM  IMPULSE  MODEo 
ALSO  POSITIVE  ELEVATION  CHANGE  FOR  LANDING  POINT  DESIGNATOR 

AS  BIT  1 EXCEPT  NEGATIVE  PITCH  AND  ELEVATION 

ROTATION  (BY  RHCI  COMMANDED  IN  POSITIVE  YAW  DIRECTION;  MUST  BE  IN  MINUMUM  IMPULSE  MODE ■ 

AS  BIT  3 EXCEPT  NEGATIVE  YAW 

ROTATION  (BY  RHCI  COMMANDED  IN  POSITIVE  ROLL  DIRECTION;  MUST  BE  IN  MINIMUM  IMPULSE  MODE, 
ALSO  POSITIVE  AZIMUTH  CHANGE  FOR  LANCING  POINT  DESIGNATOR 

AS  BIT  5 EXCEPT  NEGATIVE  ROLL  AND  AZIMUTH 


R0246 

A0247 

BIT 

7 

TRANSLATION 

IN 

+ X 

DIRECTION 

COMMANDED 

BY 

THC 

R0248 

A0249 

BIT 

8 

TRANSLATION 

IN 

-X 

DIRECTION 

COMMANDED 

BY 

ThC 

R02  50 

A0251 

BIT 

9 

TRANSLAT  ION 

IN 

■fY 

DIRECT  ION 

COMMANDED 

BY 

THC 

R0252 

A0253 

BIT 

10 

TRANSLATION 

IN 

-Y 

DIRECTION 

COMMANDED 

BY 

THC 

R0254 

A0255 

BIT 

11 

TRANSLATI ON 

IN 

+ Z 

DI RECTI  ON 

COMMANDED 

BY 

THC 

R0256 

BI  T 

12 

TRANSLATION 

IN 

-z 

DIRECTION 

COMMANDED 

BY 

THC 

GAP 
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A0257 

R0258 

BIT 

13 

ATTITUDE 

HELD  MCDE 

ON 

SCS  MODE 

CONTROL  SWITCH 

A0259 

R0260 

BIT 

14 

AUTC  STABIL IZAT ION 

OF 

ATT ITUDE 

ON  SCS  MODE 

SWI  TCH 

A0261 

R0262 

BIT 

15 

ATT ITUDE 

CONTROL  OUT 

OF  DETENT 

(RHC  NCT  IN 

NEUTRAL 

A0263 

USER'S  PAGE  NOo  6 


EC  S4 


R0264  CHANNEL  32  INPLT  CHANNELo 


A0265 

R0266 

A0267 

BIT 

1 

THRUSTERS 

2 £ 

4 CISABLED  BY  CREW 

R0268 

A0269 

BIT 

2 

THRUSTERS 

5 £ 

8 CISABLED  BY  CREW 

R0270 

AC271 

BIT 

3 

THRUSTERS 

1 £ 

3 DISABLED  BY  CREW 

R0272 

A0273 

BIT 

4 

THRUSTERS 

6 £ 

7 DISABLED  BY  CREW 

R 0274 

A0275 

BIT 

5 

THRUSTERS 

14  £ 

16  DISABLED  BY  CREW 

R02  76 

A0277 

BIT 

6 

THRUSTERS 

13  £ 

15  DISABLED  BY  CREW 

R0278 

A0279 

BIT 

7 

THRUSTERS 

9 £ 

12  DISABLED  BY  CREW 

R0280 

A 02  81 

BIT 

8 

THR  USTERS 

10  £ 

11  DISABLED  BY  CREW 

R0282 

A0284 

BI  T 

9 

DESCENT  ENGINE 

GIMBALS  CISABLED  BY  CR FW 

R0285 

A0286 

BIT 

10 

APPARENT 

DESCENT  ENGINE  GIMBAL  FAILURE 

R0287 

A0288 

BIT 

14 

INDICATES  PROCEED 

KEY  IS  DEPRESSED 

R0289 

CHANNEL  33 

CHAN33;  INPLT  CHANNEL;  FOR  HARDWARE  STATUS  AND  COMMAND  INFORMATI 

ONe  BITS 

R0291 

A0293 

FLOP  BITS  RESET  BY  A CHANNEL  "WRITE"  COMMAND  THAT  ARE  RESET  BY  A 

RESTART 

R0294 

A 02  95 

BIT 

1 

SPARE 

R0296 

A0297 

BIT 

2 

RR 

AUTO-PCWER  ON 

R0298 

A0299 

BIT 

3 

RR 

RANGE  LCW  SCALE 

R0300 

A0301 

B IT 

4 

RR 

DATA  GOOD 

R0302 

A0303 

BIT 

5 

LR 

RANGE  DATA  GOOD 

R0304 

A0305 

BIT 

6 

LP. 

PCS] 

R0306 

A0307 

BI  T 

7 

LR 

PCS2 

15-11  ARE  FLIP- 
£ BY  T4RUPT  LOOP, 
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R0308 

BIT 

8 

LR  VEL  DATA  GOOD 

A0309 

R0310 

B IT 

9 

LR  RANGE  LOW  SCALE 

A 03 11 

R0312 

A 031 3 

BIT 

10 

BLOCK  UPLINK  INPUT 

R0314 

BIT 

11 

UPLINK  TOC  FAST 

A0315 

R0316 

BIT 

12 

DOWNLINK  TOG  FAST 

A0317 

ROB  18 

BIT 

13 

PIPA  FAIL 

A0319 

R0320 

BIT 

14 

WARNING  OF  REPEATED  ALARMS 

A0322 

R0323 

A0324 

BI  T 

15 

LGO  OSGILLATOR  STOPPED 

( MA IN  I 
USER'S  PAGE  NCo  7 


RESTART iCCUNTER  FAIL,  VOLTAGE  FAIL, AND  SCALAR  DOUBLE 


R0325 

RO320 

A0330 


CHANNEL  34  ONT  Ml;  OUTPUT  CHANNEL;  DOWNLINK  1 FIRST  OF  TWO  WORDS  SER I A L IZ A T I ONo 

CHANNEL  35  ONT  M2;  CLTPLT  CHANNEL  DOWNLINK  2 SOCOND  OF  TWO  WORDS  S ER I AL I Z AT  10 No 


PAGE 
EC  S4 
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L FLAGNORD  ASSIGNMENTS  ' USER'S  PAGE  NOo  1 EO  SA 

AOOOl 


R0002 

FLAGWORDS  0-11 

ARE 

C 

CWNLINKEC  AND  CAN  B 

E 

SET  AND  CLEARED 

R0C04 

INTE 

R 

PRETERo 

THESE  WERE 

PR 

EVIOUSLY  LISTED 

R0006 

THE 

E 

RASAELE  LOG  SECTION 

O 

FLAGWORDS  12  £ 

ROODS 

ARE 

S 

TILL  OCWNLINKED  UNO 

ER 

THOSE  NAMESo 

A0009 

ROOlO 

ALPHABET  ICAL  L 

1ST  OF 

FLAGWORCS 

R 00 10 5 

9 

25 

41 

61  COLUl 

ROOil 

FLAGWCRC 

DECo  NUMBER 

BIT 

AND  FLAG 

BIT  NAME 

Room 

ABTTGFLG 

143 

BIT 

7 FLAG  9 

ABTTGBIT 

R0012 

ACCOKFLG 

207 

BI  T 

3 FLAG  13 

ACC  SOKAY 

R0013 

ACC4-2FL 

199 

B IT 

11  FLAG  13 

ACC40R2X 

R 0014 

ACMOOFLG 

032 

BIT 

13  FLAG  2 

ACMODBIT 

R0015 

ALTSCAL  E 

166 

BIT 

9 FLAG  12 

ALTSCBIT 

R0016 

ANTENFLG 

1 83 

BIT 

12  FLAG  12 

ANTENBIT 

R0017 

A0R8SFLG 

085 

BI  T 

5 FLAG  5 

AORBSYST 

R0018 

AORETFLG 

200 

BIT 

10  FLAG  13 

AORBTRAN 

R0032 

CDESFLAG 

1 80 

BIT 

15  FLAG  12 

CDESB  IT 

R0033 

CMOONFL  G 

122 

BI  T 

12  FLAG  8 

CMOONBIT 

R0034 

CCGAFLAG 

131 

BIT 

4 FLAG  8 

COGAFB IT 

R0037 

CSMDKFLG 

197 

BIT 

13  FLAG  13 

CSMCOCKD 

R0038 

CULTFLAG 

053 

BIT 

7 FLAG  3 

CULTBI T 

R0040 

DAPBCCLS 

FLGWRC13 

R0041 

CBSEL  FLG 

206 

BI  T 

4 FLAG  13 

DESELECT 

R00411 

CESL2FLG 

205 

BIT 

5 FLAG  13 

OBSLEC  T2 

R0042 

DESIGFLG 

1 85 

BIT 

10  FLAG  12 

OES  IGBIT 

R0043 

CIDFLAG 

016 

BI  T 

14  FLAG 

DIDFLBIT 

k0044 

DI  MOFLAG 

059 

BIT 

1 FLAG  3 

OIMOB IT 

R0045 

DMENFLG 

081 

BIT 

9 FLAG  5 

DMENFBIT 

13  WEREPREVIQUS 


DOWN-FLAG  INSTRUCTIONS  IN  THE 
ETIVE  SWITCH  BIT  ASSIGNMENTS" 
LY  PAOMCDES  AND  DAPBGOLS  AND 


IN 


R0019 

APSESW 

130 

BIT  5 

FLAG 

8 

R0020 

AFSFLAG 

152 

BIT  13 

FLAG 

10 

R0021 

ASTNFLAG 

108 

BIT  12 

FLAG 

7 

R0022 

ATTFLAG 

104 

81  T 1 

FLAG 

6 

R0023 

AUTOMGDE 

193 

BIT  2 

FLAG 

12 

R 002A 

ALTRIFLG 

209 

BIT  1 

FLAG 

13 

R0025 

AUTR2FLG 

208 

BI  T 2 

FLAG 

13 

R002  6 

ALXFLAG 

103 

BIT  2 

FLAG 

6 

R0027 

A VEGFLAG 

115 

BIT  5 

FLAG 

7 

R0028 

AVEMICSW 

149 

BIT  1 

FLAG 

9 

R0029 

AVFLAG 

040 

BIT  5 

FLAG 

2 

R0030 

CALCMAN2 

043 

BI  T 2 

FLAG 

7 

ROD  31 

CA LCMAN3 

042 

B IT  3 

FLAG 

2 

GAP  : 
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PROGRAM  LUMINARY 

BY 

L 

FLAGWORD 

ASSIGNMENTS 

ROOA6 

DRI FTOF  L 

202 

B IT  8 

FLAG 

13 

ROOA-7 

DR  I FTFLG 

030 

81  T 15 

FLAG 

2 

ROOA8 

CSKYFLAG 

075 

BIT  15 

FLAG 

5 

R0049 

06CR9FLG 

058 

BIT  2 

FLAG 

3 

R0050 

ENGONFLG 

083 

BI  T 7 

FLAG 

5 

R0051 

EPACFLAG 

017 

BIT  13 

FLAG 

1 

R0052 

ETPIFLAG 

038 

BI  T 7 

FLAG 

2 

R0054 

FINALFLG 

039 

BIT  6 

FLAG 

2 

R0056 

FLAGWRDO 

(000-014 ) 

( STATE 

+0  ) 

R0057 

FLAGWRDl 

( 015-C29I 

( STATE 

+ 1 ) 

R0058 

FLAGWRC2 

(030-044  I 

( STATE 

+ 2) 

R0059 

FLAGWRD3 

( 045-059 ) 

(STATE 

+ 3 ) 

R0060 

FLAGWR04 

( 060-074 1 

( STATE 

+ 4 ) 

R0061 

FLAGWRC5 

(075-189  1 

(STATE 

+ 5 ) 

R0062 

FLAGV«RD6 

( 090-104) 

(STATE 

+6  ) 

R0063 

FLAGWRD7 

( 105-119) 

( STATE 

+ 7) 

R0064 

FLAGV1R08 

(120-134 ) 

(STATE 

+ 8D  ) 

R0065 

FLAGWRD9 

( 135-149) 

( STATE 

+ 9D) 

R0066 

FLAP 

142 

BIT  8 

FLAG 

9 

R0C67 

F LGURDIO 

( 1 50-164  ) 

(STATE 

+ 10C) 

R0068 

FLGWROll 

( 165-  179  ) 

( STATE 

+ 11D) 

R0069 

FLGWRC12 

( 180-194 ) 

(STATE 

+ 12D  ) 

R0070 

FLGKROn 

( 195-209) 

( STATE 

+ 130 

R0071 

FLPC 

138 

BIT  12 

FLAG 

9 

R0072 

F LPI 

139 

BIT  11 

FLAG 

9 

R0073 

FL  RC  S 

149 

BI  T 10 

FLAG 

9 

R0074 

FLUNDISP 

125 

BIT  10 

I^LAG 

8 

R0075 

F LVR 

136 

BIT  14 

FLAG 

9 

R0077 

FREEFLAG 

012 

BI  T 3 

FLAG 

0 

R00775 

FSPASFLG 

005 

BIT  10 

FLAG 

0 

R0078 

GLOKFAIL 

046 

BIT  14 

FLAG 

3 

R0079 

GMBDRVSW 

095 

BIT  10 

FLAG 

6 

R0080 

GUESSt. 

028 

BIT  2 

FLAG 

1 

R008I 

hFLSHFLG 

179 

BI  T 1 

FLAG 

11 

R0082 

ICLEFLAG 

113 

BIT  7 

FLAG 

7 

R0083 

IGNFLAG 

I 07 

BIT  13 

FLAG 

7 

R0084 

IMPUL  SW 

036 

BI  T 9 

FLAG 

2 

R0085 

I MUSE 

007 

BIT  8 

FLAG 

0 

R0086 

INF  INFLG 

128 

BIT  7 

FLAG 

8 

R0087 

INITALGN 

133 

BIT  2 

FLAG 

8 

R0088 

I MFLAG 

151 

BIT  14 

FLAG 

10 

R0089 

INTYPFLG 

056 

BI  T 4 

FLAG 

3 

R0090 

ITSW I CH 

105 

BIT  15 

FLAG 

7 

R0091 

JSInI  TCH 

001 

BIT  14 

FLAG 

T 

Ei 

\ c-T  A laoo  T 

- 

APSESBIT 
APSFLBI T 
ASTNBIT 
ATTFLBIT 
AUTOMB I T 
AUTRATEl 
AUTRATE2 
AUXFLB 1 T 
AVEGFBIT 
AVEMDBI T 
AVFLBIT 
CALC2BIT 
CALC3B  I T 
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USER'S  PAGE 

NO,  2 

EO  S4 

DRIFTBIT 
DRFTBIT 
OSK  YFB!  T 
D60R9B IT 
ENGOMBIT 
ERADFB  IT 
ETPIBIT 
F I NALBI T 


FLAPBI T 


FLPCBI T 
FLPIBIT 
FLRCSBIT 
FLUNDBI T 
FLVRBIT 
FRFEFBIT 
FSPASB I T 
GLOKFB IT 
GMBDRBI T 
GUESSBIT 
FFLSHBIT 
IDLEF8I T 
IGNFl  BIT 
IMPULBIT 
IMUSEB I T 
INFINBIT 
I NI TABI T 
INTFLBIT 
INTYPBIT 
I TSWBI T 
JSWCHBIT 


ji..y 


F 


t 
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R0097 

LRBYPASS 

165 

BIT 

15 

FLAG 

11 

R0098 

LRI  NH 

172 

BIT 

8 

FLAG 

11 

R0J99 

LRPOSFLG 

189 

BI  T 

6 

FLAG 

12 

RClOO 

LRVELFLG 

187 

BIT 

8 

FLAG 

12 

ROlOl 

LLNAFLAG 

048 

BIT 

12 

FLAG 

3 

R0102 

MANUFLAG 

106 

BIT 

14 

FLAG 

7 

R0103 

MGLVFLAG 

068 

BIT 

2 

FLAG 

5 

ROlOA 

MIDAVFLG 

148 

BIT 

2 

FLAG 

9 

R01.05 

MCFLAG 

002 

BIT 

13 

FLAG 

0 

R0106 

MDIFLAG 

147 

BIT 

3 

FLAG 

9 

R0107 

MKOVFLAG 

072 

BI  T 

3 

FLAG 

4 

R0108 

MCDNFLAG 

t'0  3 

BIT 

12 

FLAG 

0 

R0109 

MRKIDFLG 

060 

BIT 

15 

FLAG 

4 

ROllO 

MRKNVFLG 

066 

BIT 

9 

FLAG 

4 

ROlll 

MRUPTFLG 

070 

B IT 

5 

FLAG  4 

R0112 

MUNFLAG 

097 

BI  T 

8 1 

FLAG  f 

R0113 

MWAITFLG 

064 

B IT 

11 

FLAG 

4 

R0114 

NEEDLFLG 

Oil 

BIT 

4 

FLAG 

0 

ROllAl 

NEED2FLG 

OCO 

BI  T 

15 

FLAG 

0 

R0115 

NEWIFLG 

122 

8 IT 

13 

FLAG 

8 

R0116 

NJETSFLG 

015 

BIT 

15 

FLAG 

R0117 

NOOUFLAG 

044 

BIT 

1 

FLAG 

2 

Roll  8 

NCLRREAO 

170 

BIT 

10 

FLAG 

11 

ROHR 

NCRMSW 

3 10 

BIT 

10 

FLAG 

7 

R0120 

NCRRMCN 

086 

BIT 

4 

FLAG 

5 

R0121 

NCR29FLG 

049 

BIT 

11 

FLAG 

3 

R0122 

NCTHROTL 

078 

BI  T 

12 

FLAG 

5 

R0123 

NCUPFLAG 

024 

BIT 

6 

FLAG 

1 

R01235 

N0511FLG 

177 

BIT 

3 1 

FLAG  11 

R012A 

NRMNVFLG 

067 

BIT 

8 

FLAG 

4 

R0125 

NRMI DFLG 

062 

BIT 

13 

FLAG 

4 

R0126 

NRUPTFLG 

071 

BIT 

4 

FLAG 

4 

R0127 

NTARGFLG 

102 

BIT 

3 

FLAG 

6 

R0128 

NWAI TFLG 

065 

BIT 

10 

FLAG 

4 

R0129 

OLDESFL  G 

014 

BIT 

1 

FLAG 

0 

R0132 

CRBWFLAG 

054 

BIT 

6 

FLAG 

3 

R0133 

OROERSW 

129 

BI  T 

6 

FLAG 

8 

R013A 

OURRCFLG 

198 

BIT 

12 

FLAG 

13 

R0135 

POSPFLAG 

063 

BIT 

12 

FLAG 

4 

R0136 

PFRATFLG 

041 

BIT 

4 

FLAG 

2 

R0137 

PINBRFLG 

069 

BIT 

6 

FLAG 

4 

R01375 

PCCHFLAG 

045 

BIT 

15 

FLAG 

3 

R0139 

PREC  IFL  G 

052 

BI  T 

8 

FLAG 

3 

R0140 

PF inDFLG 

061 

BIT 

14 

FLAG 

1 

R0141 

PRONVFLG 

068 

BIT 

7 

FLAG 

4 

R0142 

PSTFIGAT 

169 

BIT 

11 

FLAG 

11 

R0143 

PULSEFLG 

195 

BIT 

15 

FLAG- 

13 

R01432 

P21FLAG 

004 

BIT 

11 

FLAG 

0 

R01A4 

P25FLAG  ■ 

006 

BIT 

9 

FLAG 

0 

R0145 

P7071FLG 

137 

BIT 

13 

FLAG 

9 

I- 
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LRBYBI T 

LR  INHBIT 

LRPOSBIT 

LR VELBI T 

LUNABIT 

MANUFBIT 

MGL VFB IT 

MIDAVBIT 

MIDFLBIT 

MIDIBIT 

PKOVBIT 

MODNB I T 

MRKIDBIT 

MRKNVBI T 

MRUPTB IT 

MUNFLBIT 

MWAIT8IT 

NEEDLB IT 

NEED?  BIT 

NEWIB I T 

NJETSBIT 

NODOBl T 

NQLRP  BIT 

NOPMSBIT 

NORRMBI T 

NR29FBIT 

NOTHRBIT 

NOUPFBIT 

N0511BIT 

NPMNVBI T 

NRMIDBIT 

NRUPTBIT 

NTARGBl T 

NWA ITB IT 

OLDESBIT 

□RBWFBIT 

ORDERBIT 

QURRC8I T 

PDSPFBIT 

PFPATBIT 

PINBRBI T 

POOHBIT 

PRECI BI T 

PR  lODBIT 

PRONVBIT 

PSTHI BIT 

PULSES 

P21  FL  B IT 

P25FLBI T 

P7071BIT 


63 
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R0146 

R0147 

R0148 

CUITFLAG 
RADMODE  S 
RASFLAG 

145 

BIT  5 FLAG 

FLGWRC12 

FLGWRDIC 

9 

R0149 

RCDUFAIL 

188 

B IT 

7 

FLAG 

12 

R0150 

RCDUDFLG 

182 

BI  T 

13 

FLAG 

12 

R0152 

PEACRFLG 

051 

BIT 

9 

FLAG 

3 

R01B4 

RFADVEL 

175 

BIT 

5 

FLAG 

11 

R0155 

REDFLAG 

099 

BI  T 

6 

FLAG 

6 

R0156 

P efsmflg 

047 

B IT 

13 

FLAG 

3 

R0157 

PEINTFLG 

158 

BIT 

7 

FLAG 

10 

R0158 

REMUDFL  G 

181 

BI  T 

14 

FLAG 

12 

R0159 

RENDWFLG 

089 

BIT 

1 

FLAG 

5 

R0160 

REPOSMON 

184 

BIT 

11 

FLAG 

12 

R0l61 

RFCSCFLG 

20  3 

BIT 

7 

FLAG 

13 

R0162 

RNDVZFLG 

008 

BIT 

7 

FLAG 

0 

R0163 

RNGBDATA 

176 

BIT 

4 

FLAG 

11 

R0164 

RNGSCFLG 

080 

BIT 

10 

FLAG 

5 

R01642 

RODFLAG 

01  8 

BIT 

12 

FLAG 

1 

R01644 

ROTFLAG 

144 

61  T 

6 

FLAG 

9 

R0165 

RPQFLAG 

120 

BIT 

15 

FLAG 

8 

R0166 

KRDATAFL 

191 

BIT 

4 

FLAG 

12 

R0167 

PRNBSW 

009 

BIT 

6 FLAG  C 

) 

R0168 

RRRSFLAG 

1 92 

BIT 

3 

FLAG 

12 

R0169 

RVSW 

111 

BIT 

9 

FLAG 

7 

R0170 

PG4FLAG 

051 

BIT 

9 

FLAG 

3 

R0172 

RIOFLAG 

013 

BIT 

2 

FLAG 

0 

R0173 

R61 FLAG 

020 

BI  T 

10 

FLAG 

1 

R0174 

R77FLAG 

079 

BIT 

11 

FLAG 

5 

R0176 

SLOPE  Sl( 

027 

BIT 

3 

FLAG 

1 

R0177 

SNUFFER 

077 

BIT 

13 

FLAG 

5 

R0178 

SCLNSW 

C 87 

BIT 

3 

FLAG 

5 

R0179 

SRCHOPTN 

031 

BIT 

14 

FLAG 

2 

R0180 

STATEFLG 

055 

BIT 

5 

FLAG 

3 

R0181 

STEERSVt 

034 

BIT 

11 

FLAG 

2 

R0182 

SURFFLAG 

127 

BI  T 

8 

FLAG 

8 

R0183 

SkvANDISP 

109 

B IT 

1 1 

FLAG 

7 

R0184 

S22olFl 

090 

BIT 

15 

FLAG 

6 

R0185 

S32olF2 

092 

BIT 

14 

FLAG 

6 

R0186 

S32o  1F3A 

092 

B IT 

13 

FLAG 

6 

R0187 

S22o 1S3B 

093 

BI  T 

12 

FLAG 

6 

R0188 

TFFSW 

119 

BIT 

1 

FLAG 

7 

R0189 

TRACKFLG 

02  5 

BIT 

5 

FLAG 

1 

R0190 

TURNONFL 

194 

BIT 

1 

FLAG 

12 

R0191 

ULLAGFLG 

204 

BIT 

6 

FLAG 

13 

R0192 

UPDATFLG 

023 

BIT 

7 

FLAG 

1 

R0193 

UPLOCKFL 

116 

BIT 

4 

FLAG 

7 

R0194 

USEORFLG 

196 

BIT 

14 

FLAG 

13 

R0195 

VEHUPFLG 

022 

BIT 

8 

FLAG 

1 

R0196 

VELCATA 

173 

BIT 

7 

FLAG 

11 

R0197 

VER  IFLAG 

117 

BIT 

3 

FLAG 

7 

r 
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QUITBIT 

RCDUFBIT 

RCDUOBIT 

READRBI T 

READVBIT 

REDFL8IT 

REFSMBIT 

RE  INTBIT 

REMQDBIT 

RFNDWBIT 

REPOSBIT 

RHC  SGALE 

RNDVZB IT 

RNGECBIT 

RNGSCBIT 

RODFLBIT 

RDTFLBIT 

RPQFLBIT 

RR  DAT  ART 

RRNBBI T 

EQUIVALENT  FLAG  NAME:  R04FLAG 

RRRSBIT 

RVSWBIT 

R04FLBIT 

RIOFL  BIT 

R61  FLBI  T 

R77FLBIT 

SLOPEBIT 

SNUFFBI T 

SOLNSBIT 

SRCHOBIT 

STATEBIT 

STEFRBIT 

SURFFBI T 

SWANDBIT 

S32BIT1 

S32BI T2 

S32BIT3A 

S32BIT3B 

TFFSWBIT 

TRACKBIT 

TURNONBT 

ULLAGER 

UPDATBIT 

UPLCCBI T 

USEOPJTS 

VEHUPBIT 

VELDAB I T 

VER  IFBIT 

EQUIVALENT  FLAG  NAME:  REAORFLG 
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R0198 

VFLAG 

050 

B IT 

10 

FLAG 

3 

R0199 

VFLSEFLG 

178 

BIT 

2 

FLAG- 

11 

R0200 

V INTFLAG 

057 

BIT 

3 

FLAG 

3 

RG201 

VXINH 

168  . 

B IT 

12 

FLAG 

11 

R0202 

V37FLAG 

1 14 

B!  T 

6 

FLAG 

7 

R0203 

V67FLAG 

112 

BIT 

8 

FLAG 

7 

R0204 

V82EI'<FLG 

118 

BIT 

2 

FLAG 

7 

R0205 

XDELVFLG 

037 

BI  T 

8 

FLAG 

2 

R0206 

XCSPFLAG 

074 

BIT 

1 

FLAG 

4 

R0207 

XDRFLG 

171 

BIT 

9 

FLAG 

11 

R0208 

XOV  INF1.G 

201 

BIT 

9 

FLAG 

13 

R0209 

ZCCFFLAG 

082 

B IT 

8 

FLAG 

5 

R0210 

3AXI  SFLG 

084 

BI  T 

6 1 

FLAG  5 

R0211 

360SW 

134 

BIT 

1 

FLAG 

8 

A0212 

R0213 

ASSIGNMENT  AND  DESCRIPTICN 

QF  FLAGVyCRCS 

0214 

REF 

1 

0074 

FL  AGWR  CO 

A0215 

A0216 

0217 

0000 

NEEC2  FLG 

- 

0218 

A0219 

REF 

1 

4735 

NEED2BIT 

A0220 

0221 

OOCl 

JSEITCH 

= 

0222 

A0223 

REF 

1 

4736 

JSWCHB  IT 

A0224 

0225 

A0226 

0002 

MI CFLAG 

- 

0227 

A0228 

REF 

2 

LAST  40  4737 

MIDFLBIT 

A0229 

0230 

0003 

MOONFLAG 

0231 

A0232 

REF 

1 

4740 

MCCN8I T 

“ 

A0233 

023<x 

TCC4 

P21FLAG 

= 

0235 

A0236 

REE 

2 

LAST  43  4741 

P21FLBIT 

202111?-C91 
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VFLAGBIT 
VFLSH8IT 
VI  NTFBI  T 
VXINH8IT 
V37FLBIT 
Ve7FLBI T 
V82EMBIT 
XDELVBIT 
XDSPB  I T 
XORFLBIT 
XOVI NHI B 
ZDOMBIT 
3AX  ISBIT 
360SWBI T 


STATE  + 

0 

( 000-0141 

(SET  1 

(RESETI 

BIT  15 

GOOD 

BIT15 

FLAG 

0 

(SI 

DISPLAY  DAP  PATES 

ON  FDAI  NEEDLESo 

CHECK  BIT  4 OF  THIS 

WORD  FOP  DISPLAY 

MODES  (1  OR  2le 

BIT  14 

FLAG 

0 

(SI 

0010 

B I T14 

INTEGRAT ION  OF  W 
MATRI X 

INTEGRATION  OF  STATE 

VECTOR 

BI  T 13 
0020 

FLAG 

0 

(SI 

INTEGRATION  WITH 

INTEGRATION  WITHOUT 

B I T13 

SECONDARY  BODY  AND 
SOLAR  PERTURBATIONS 

SOLAR  PERTURBATIONS 

BIT  12 

0030 

BIT12 

FLAG 

0 

(LI 

MOON  IS  SPHERE  OF 
INFLUENCE 

EARTH  IS  SPHERE  OF 

INFLUENCE 

BIT  11 
004  D 

BI  Tl! 

FLAG 

0 

USE  BAS  E VECTORS 
ALREADY  CALCULATED 

1ST  PASS  — CALC- 
ULATE BASE  VECTORS 
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USER'S  PAGE  NOc  6 


EO  S4 


A0237 

0238 

0239 

REF 

1 

0005 

4742 

FSPASFLG  = 
FSPASBIT  = 

AC240 

A0241 

0242 

0243 
A0244 

REF 

1 

0006 

4743 

P 2 5FL  AG  = 
P25FLBIT  = 

A0245 

0246 

0247 
A0248 

REF 

1 

0007 

4744 

I MUSE 

IMLSEBIT  = 

A0249 

02  50 
0251 
A0252 

REF 

1 

0010 

4745 

RNDVZFLG  = 
RNCVZBIT  = 

A0253 

02  54 
0255 
A0256 

REF 

1 

0011 

4746 

RRNESW 
RRNBBIT  = 

A0257 

0258 

0259 
A0260 

REF 

1 

0012 
. 4747 

LOKONSW  = 
LOKONBIT  = 

A0261 

0262 

0263 

A 02  64 

REF 

1 

0013 

4750 

NEECLFLG  = 
NEEDLBIT  = 

BIT  10  FLAG  0 


0050 

BI  TIO 

FIRST  PASS  THROUGH 
REPOSITION  ROUTINF 

NOT  FIRST  PASS  THRU 
RFPCSITION  ROUTINE 

BIT  9 

FLAG 

0 

(S  ) 

006D 

BIT9 

P25  OPERATING 

P25  NOT  OPERATING 

BIT  8 
007D 

FLAG 

0 

( SI 

IMU  IN  USE 

IMU  NOT  IN  USE 

BI  T8 

BIT  7 
00  8 D 

B IT7 

FLAG 

0 

(S  1 

P20  RUNNING  (RADAR 
IN  USE) 

P20  NOT  RUNNING 

BIT  6 

FLAG 

0 

( SI 

009D 

BI  T6 

RADAR  TARGET  IN 

NB  COORDINATES 

RADAR  TARGET  IN 

SM  COORDINATES 

BIT  5 
OICD 

FLAG 

0 

(SI 

RADAR  LOCK-ON 

RADAR  LCCK-ON  NOT 

B IT5 

DESIRED 

DESIRED 

BIT  4 
OllD 

BI  T4 

FLAG 

0 

( SI 

TOTAL  ATTITUDE 

ERROR  DISPLAYED 

A/P  FOLLOWING 

ERROR  DISPLAYED 

A0265 
0266 
A 0267 

0268  REF  1 

A0269 

A0270 

0271 

0272  REF  1 

A0273 

A0274 

A0275 

A0276 

0277 


0014 

FREEFLAG  = 

BIT  3 
012D 

4751 

FREEFBIT  = 

BIT3 

0015 

4752 

RIOFLAG  = 
RIOFLBIT  = 

BIT  2 
01  3D 
BIT2 

0016 

OLDESFLG  = 

BIT  1 
01 4D 

FLAG  0 


FLAG  0 


FLAG  0 


(USED  BY  P51-53  TEMP  IN  MANY  DIFFERENT 
ROUTINES  £ BY  LUNAR  + SOLAR  EPHEMERIDES) 


RIO  OUTPUTS  DATA  TO 
ALTITUDE  £ ALTITUDE 
RATE  METERS  ONLY 


BESIDES  OUTPUT  WHEN 
SET,  RiO  ALSO  OUTPUT 
TO  FORWARD  £ LATERAL 
VELOCITY  CROSSPOINTR 


(L  ) 

R29  GYRO  CMO  LCOP 


R29  GYRO  CMD  LOOP 


GAP: 
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AGC  PROGRAM 

LUMINARY  BY  NASA 
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F LAGIsCRD 
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0278 

REF  1 

4753 

CLDESB IT 

- 

A0279 

0280 

REF  2 

LAST 

65 

0075 

FLAGWRCl 

= 

A0281 

A0282 

0283 

0C17 

NJETSFLG 

•= 

0284 

A0285 

REF  2 

LAST 

66 

4735 

NJETSBIT 

A0286 

02  87 

00  20 

DTCFLAG 

= 

0288 

A0289 

REF  2 

LAST 

65 

4736 

Cl CFLB  IT 

A0290 

0291 

0021 

ERACFLAG 

= 

0292 

AC293 

REF  3 

LAST 

65 

4737 

ERADFBIT 

A0294 

02  95 

0022 

RQCFLAG 

= 

0296 

A0297 

A02975 

REF  2 

LAST 

65 

4740 

ROCFLB  IT 

A0298 

A0299 

= 

A02995 

A0300 

= 

0301 

0024 

R61FLAG 

= 

0302 

A0303 

REF  2 

LAST 

66 

4742 

R61FLBIT 

“ 

A 0304 
A0305 

A0306 

A0307 

“ 

A0308 

0309 

0026 

VEHUPFLG 

= 

0310 

A0311 

REF  2 

LAST 

66 

47  44 

VEHUP8IT 

A0312 

0313 

0027 

UPDATFLG 

= 

0314 

REF  2 

LAST 

66 

4745 

UPDATB I T 

= 
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USER ' S PAGF 

NCo  7 

EC  S4 

BIT),  REOUESTEC  NOT  REQUESTED 


STATE  +1 

(015-029) 

(SET) 

( RESET ) 

BIT  15  FLAG  1 

( S) 

015C 

BIT15 

TWO  JET  RCS  BURN 

FOUR  JET  RCS  BURN 

BIT  14  flag  1 

C)  6D 

(L  ) 

INERTIAL  DATA  IS 

PERFORM  DATA  DISPLAY 

BIT14 

AVAILABLE 

INITIALIZATION  FUNCS 

BIT  13  FLAG  1 
0170 

BI  T13 

( S) 

COMPUTE  REAPTH 
FISCHER  ELLIPSCID 

USE  CONSTANT  REARTH 
PAD  RADIUS 

BIT12  FLAG  1 

0180 

BIT12 

IF  IN  P66,  NORMAL 
OPERATION  CONTINUESt, 
RESTART  CLEARS  FLAG 

IF  IN  P66,  RE-INIT- 
IALIZATION IS  PER- 
FORMED AND  FLAG  IS 

BIT  11  FLAG  1 

019D 

BITll 

BIT  10  FLAG  1 

(L  ) 

02  CD 

BITIO 

RUN  R61  LEM 

RUN  R65  LEM 

BIT  9 FLAG  1 

0 21D 

BI  T9 

BITS  FLAG  1 
022D 

B IT8 

(S  ) 

GSM  STATE  VECTOR 
BEING  UPDATED 

LEM  STATE  VECTOR 
BEING  UPDATED 

BIT  7 FLAG  1 
023D 

BI  T7 

( S) 

UPDATING  BY  MARKS 
ALLOWED 

UPDATING  BY  MARKS 

NOT  ALLOWED 
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L 

FLAGWCRD 

ASSIGNMENTS 

USER  ' S PAGE  NCo 

8 ED  S4 

A0315 

A0316 

BIT  6 FLAG  1 

(SI 

0317 

0030 

NOUPFLAG  = 

024D 

NEITHER  CSM 

EITHER  STATE 

A0318 

NOR  LM  STATE  VECTOR 

VECTOR  MAY  BE 

0319 

REF  2 

LAST  66 

4766 

NOUPFBIT  = 

B I T6 

MAY  BE  UPDATED 

UPDATED 

A0321 

0031 

4747 

TRACKFLG  = 
TRACKBIT  = 

BIT  5 

FLAG  1 

IS  1 

0322 

0323 
A0324 

REF 

2 

LAST 

66 

0 2 5D 
BITS 

TRACKING  ALLOWED 

TRACKING  NOT  ALLOWED 

A0325 

A0326 

A0327 

A 0328 

BIT  4 
02  6 D 

B I T4 

FLAG  1 

A0329 

0330 

A0331 

REF 

66 

0033 

SLOPESW  = 

BIT  3 
027D 

FLAG  1 

(S  1 

ITERATE  WITH  BIAS 
METHOD  IN  ITERATOR 

ITERATE  WITH  REGULAR 

FALSI  METHOD  IN 

0332 

A0333 

2 

LAST 

4 7 51 

SLOPEBIT  = 

BI  T3 

ITERATOR 

A0334 

0335 

0336 
A0337 

REF 

2 

LAST 

66 

0034 

4752 

GUESSW 
GUESSBIT  = 

BIT  2 

028D 

BIT2 

FLAG  1 

IS  I 

NO  STARTING  VALUE 
FOR  ITERATION 

STARTING  VALUE  FOR 

ITERATION  EXISTS 

A0338 

BIT  1 

FLAG  1 

A 0339 
A0340 

029D 

0341 

REF 

3 

LAST 

67 

0076 

FLAGWRC2  = 

STATE 

+ 2 

( 030-044) 

A0342 

(SET  1 

( RESET! 

A0343 

034^ 

REF 

0036 

CRIFTFLG  = 

BIT  15 
030D 

FLAG  2 

I SI 

T3RUPT  CALLS  GYRO 

T3R  UPT  DOES  NO  GYRO 

0345 

A0346 

3 

LAST 

67 

4735 

DRFTBIT  = 

BIT15 

COMPENS  AT  ION 

COMPENSATION 

A0347 

0348 

0349 

A 03  50 

REF 

3 

LAST 

67 

1037 

4736 

SRCHOPTN  = 
SRCHOBIT  = 

BIT  14 

031D 

BIT14 

FLAG  2 

(SI 

RADAR  IN  AUTOMATIC 
SEARCH  0PTI0N(R2^I 

RADAR  NOT  IN  AUTO- 
MATIC SEARCH  OPTION 

A0351 

0352 

0353 

REF 

4 

LAST 

67 

0040 

4737 

ACMODFLG  = 
ACMCCBIT  = 

BIT  13 
032D 
PIT]  3 

FLAG  2 

(SI 

MANUAL  ACQUISITION 
BY  RENDESVOUS  RADAR 

AUTO  ACQUISITION 

BY  RENDESVOUS  RADAR 
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USER'S  PAGE  NC, 

AC354 

A0355 

BIT  12  FLAG 

2 

(S  1 

0356 

0041 

LOSCMFLG 

= 

0330 

LINE  OF  SIGHT  BEING 

A0357 

COMPUTED  (R2TI 

0358 

PEF 

3 

LAST 

67 

4740 

LOSCMB I T 

■= 

BI  T12 

A 03  5 9 

IN  R29  ( L ) : RR  GYPG 

A0360 

CMD  LOOP  RUNNING 

A0361 

BIT  11  FLAG 

2 

(SI 

0362 

0042 

STEERSW 

= 

0340 

SUFFICIENT  THRUST 

0363 

REF 

3 

LAST 

65 

4741 

STEERBI T 

= 

BITll 

IS  PRESENT 

A 03  64 

A0365 

A0368 

BIT  TO  FLAG 

2 

(SI 

A0369 

BIT  9 FLAG 

2 

( S) 

0370 

0044 

I MPULSW 

= 

0360 

MINIMUM  IMPULSE 

A0371 

BURN  (CUTOFF  TIME 

0372 

A0373 

REF 

2 

LAST 

66 

4743 

IMPULB IT 

BITS 

SPECIFIED! 

A 03  74 

BIT  8 FLAG 

2 

(SI 

0375 

0045 

XCELVFLG 

= 

0370 

EXTERNAL  DELTAV  VG 

0376 

A0377 

REF 

3 

LAST 

67 

4744 

XDELVBIT 

BI  T8 

COMPUT  AT  ION 

A0378 

BIT  7 FLAG 

2 

(SI 

0379 

1046 

ETPI FLAG 

- 

03  80 

ELEVATION  ANGLE 

A0380 

SUPPLIED  FOR 

0381 

A0382 

REF 

3 

LAST 

67 

474  5 

ETPI  81  T 

BIT7 

P34  ,74 

A0387 

BIT  6 FLAG 

2 

(S  1 

0388 

0047 

FINALE  LG 

= 

0390 

LAST  PASS  THROUGH 

A 03  89 

RENDEZVOUS  PROGRAM 

0390 

A0391 

REF 

3 

LAST 

68 

4746 

FI NALBIT 

BIT6 

COMPUTAT IONS 

A0392 

BIT  5 FLAG 

2 

( SI 

0393 

1050 

AVFLAG 

= 

0400 

LEM  IS  ACTIVE 

03  94 
A0395 

REF 

3 

LAST 

68 

4747 

AVFLBIT 

BI  T5 

VEHICLE 

A0396 

BIT  4 flag 

2 

(S  1 

0397 

0051 

PFRATFLG 

= 

0410 

PREFERRED  ATTI TUDE 

0398 

REF 

2 

LAST 

66 

4750 

PFRATBIT 

= 

BIT4 

COMPUTED 

A0399 
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LINE  OF  SIGHT  NOT 
BEING  COMPUTED 

I N R29  ( L)  : RR  GYRO 
CMD  LOOP  OFF 


INSUFFICIENT  THRUST 
IS  PRESENT 


STEERING  BURN  (NO 
CUTOFF  TIME  YET 
AVAI LABLE) 


LAMBERT  (AIMPOINTI 
VG  COMPUTATION 


TPI  TIME  SUPPLIED 
FOR  P3A,7A  TO  COMPUT 
ELEVATION 


INTERIM  PASS  THROUGH 
RENDEZVOUS  PROGRAM 
COMPUTATIONS 


CSM  IS  ACTIVE 
VEHICLE 


PREFERRED  ATTITUDE 
NOT  COMPUTED 
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AOAOO 

0401 

0402 
A0403 

REF  3 

LAST 

68 

0052 

4751 

CALtMAN3  = 
CALC3RIT  = 

40404 

0405 

0406 
A0407 

REF  3 

LAST 

68 

1053 

4752 

CALCMAN2  = 
CALC2BIT  = 

A0408 

0409 

0410 
A0411 

REF  2 

LAST 

67 

J054 

4753 

NOOOFLAG  = 
NCCOBIT  = 

0412 

REF  4 

LAST 

68 

0077 

FLAGWRC3  = 

A0413 

A0414 

0415 

0416 
A04165 

REF  4 

LAST 

68 

0055 

4735 

POOHFLAG  = 
PCCHBIT  = 

A0417 

0418 

0419 
A0420 

REF  4 

LAST 

68 

0056 

4736 

GLCKFAIL  = 
GLOKFBIT  = 

A0421 

0422 

0423 
A0424 

REF  5 

LAST 

68 

0057- 

4737 

REFSMFLG  = 
REFSMBIT  = 

A 042  5 
0426 
042  7 
AC428 

REF  4 

LAST 

69 

0060 

4740 

LUNAFLAG  = 
LUNABIT  = 

A0429 

0430 

0431 
A0432 

REF  4 

LAST 

69 

0061 

4741 

N0R29FLG  = 
NR29FBIT  = 

A0433 

0434 

0435 

REF  3 

LAST 

67 

00  62 

4742 

VFLAG 

VFLAGBIT  = 

A0A36 

A0A37 
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USER'  S PAGE  NOc  1 0 


EO  S4 


BIT  3 

042D 

BIT3 

FLAG  2 

(S  ) 

NO  FINAL  RCLL 

FINAL  POLL  IS 

NECESSARY 

8 I T 2 
043  C 

BI  T2 

FLAG  2 

(SI 

PERFORM  MANEUVER 
STARTING  PROCEDURE 

BYPASS  STARTING 

PROCEDURE 

BIT  1 
044D 

FLAG  2 

(S  1 

V37  NOT  PERMITTED 

V37  PERMITTED 

BITl 

STATE 

+ 3 

(045-0591 

(SET  1 

(RE  SET  1 

BI  T 15 
0450 

FLAG  3 

INHIBIT  BACKWARDS 

ALLOW  BACKWARDS 

BIT)  5 

INTEGRAT  ION 

INTEGRATION 

BIT  14 
046  0 . 

B I T14 

FLAG  3 

( S) 

GIMBAL  LOCK  HAS 
OCCURRED 

NOT  IN  GIMBAL  LOCK 

BIT  13 
0470 
BITl  3 

FLAG  3 

***  PROTECTED  FROM 
REFSMMAT  GOOD 

FRESH  START  *** 

REFSMMAT  NO  GOOD 

BIT  12 

0480 

BIT12 

FLAG  3 

( SI 

LUNAR  LAT-LONG 

EARTH  LAT-LONG 

BIT  11 

0490 

BITll 

FLAG  3 

(LI 

R29  NOT  ALLOWED 

R29  ALOWED  (RR  DES- 
IGNATE, POWERED  FLTI 

BIT  10 
0500 

B I TIO 

FLAG  3 

( SI 

LESS  THAN  TWO  STARS 
IN  FIELD  OF  VIEW 

TWO  STARS  IN  FIELD 

OF  VIEW 

BI  T 9 

FLAG  3 

(S  1 
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0438 

A0439 

0063 

R04FLAG 

0440 

A0441 

REF 

3 

LAST 

69  • 

4743 

R04FLB  IT 

A0442 

0443 

REF 

1 

0063 

READRFLG 

= 

0444 

A0445 

REF 

4 

LAST 

71 

4743 

READRBI T 

A 0446 

0447 

0064 

PRECIFLG 

= 

A 0448 
0449 
A0450 

REF 

4 

LAST 

69 

4744 

PRFCIBIT 

A0451 

0452 

7065 

CULTFLAG 

= 

0453 

A0454 

REF 

4 

LAST 

69 

4745 

CULTBIT 

A0455 

0456 

0066 

ORBWFLAG 

= 

0457 
A045  8 

REF 

4 

LAST 

69 

4746 

CRBWF8IT 

A 0459 

0460 

■7067 

STATEFLG 

0461 

AC462 

RFF 

4 

LAST 

69 

4747 

STATEBIT 

~ 

A0463 

0464 

0070 

INTYPFLG 

0465 

REF 

3 

LAST 

69 

4750 

INTYPBIT 

A0't66 


A 0467 

0468 

0469 

REF 

4 

LAST 

70 

0071 

4751 

VINTFLAG  = 
VINTFBIT  = 

A0470 

A0471 

0472 

0473 
A0474 

REF 

4 

LAST 

70 

0072 

4752 

D6QR9FLG  = 
D6GP9BIT  = 

AC475 

0476 

0477 

REF 

3 

LAST 

70 

0073 

4753 

DIMOFLAG  = 
DIMOBIT  = 

A0478 
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051D 

BIT9 


BI T 9 FLAG  3 

R04FLAG 

BIT9 


BIT  8 FLAG  3 
052  0 

BIT8 


BIT  7 FLAG  3 

053D 

BIT7 


BI T 6 FLAG  3 

054D 

BIT6 


BIT  5 FLAG  3 

o?5n 

6 I T9 


BI T 4 FLAG  3 

0 5 60 

BIT4 


BIT  3 FLAG  3 

057D 

bIT3 


BI T 2 FLAG  3 

0580 

BIT2 


BIT  7 FLAG  3 
0590 
B ! T1 


USER'S  PAGE  NCo  11 


EO  S4 


ALARM  521  ALARM  521  ALLOWED 

SUPPRESSED 


( L( 

READING  RR  DATA  NOT  READING  RR  DATA 

PURSUANT  TO  R29  PURSUANT  TO  R29 


(S  ) 

NORMAL  INTEGRATION  ENGAGES  4-TIME  STEP 
IN  POO  (POO  LOGIC  IN  INTE- 

GRATION 


( S) 

STAR  OCCULTED  STAR  NOT  OCCULTED 


(S  ) 

W MATRIX  VALID  FOR 
ORBITAL  NAVIGATION 


( SI 

PERMANENT  STATE 
VECTOR  UPDATED 


W MATRIX  INVALID  FOR 
ORBITAL  NAVIGATION 


PERMANENT  STATE 
VECTOR  NOT  UPDATED 


(SI 

CONIC  INTEGRATION  ENCKE  INTEGRATION 


( SI 

CSM  STATE  VECTOR  LEM  STATE  VECTOR 
BEING  INTEGRATED  BEING  INTEGRATED 


(S  I 

DIMENSION  OF  W IS  9 DIMENSION  OF  W IS  6 
FOR  INTEGRATION  FOP  INTEGRATION 


( SI 

W MATRIX  IS  TO  BE  W MATRIX  IS  NOT  TO 
USED  BE  USED 
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0479 

REF  5 LAST 

70 

0 100 

FL  AGWRD4 

= 

A0480 

A0481 

0462 

0483 

A 04  84 

REF  5 LAST 

70 

0074 

4735 

MRKIDFLG 
MRKI DBI T 

= 

40485 

0486 

0487 

REF  5 LAST 

70 

00  75 

4736 

PRIODFLG 
PR  lODB  IT 

= 

A0488, 

A0489 

0490 

0491 
A0492 

REF  6 LAST 

70 

1076 

47  37 

NRMIDFLG 
NRMI OBIT 

= 

AC493 

0494 

0077 

PDSPFLAG 

A 0495 

0496 

REF  5 LAST 

70 

4740 

PDSPFBIT 

A0497 

A0498 


A0499 

0100 

0500 

A0501 

MWA ITFLG 

0502 

4 05  03 

REF 

5 

LAST 

70 

4741 

MIMAITBIT 

A0504 

0505 

0 101 

NWAl TFLG 

= 

A0506 

0507 

A0508 

REF 

4 

LAST 

70 

4742 

NNAIT8IT 

= 

A05C9 

3 • 

0510 

A0511 

0102 

MRKNVFLG 

” 

0512 

A0513 

REF 

5 

LAST 

71 

4743 

MRKNVBIT 

A0514 

2" 

0515 

A0516 

0103 

NRMNVFLG 

0517 

REF 

5 

LAST 

71 

4744 

NRMNVBIT 

= 

A0518 
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USER'S  PAGE  NOc  12  EC  S4 


STATE  +4 


(06n-074) 


(SET) 


( RE  SET) 


BI T 15  FLAG  4 

060D 

B!T1  5 


(S) 

MARK  DI SPLAY  I N 
ENDIDLE 


NO  MARK  DISPLAY  IN 
FNDIDL  E 


BIT  14  FLAG  4 

C61D 

BIT14 


(S  ) 

PRIORITY  display  IN 
ENDIDLE 


NO  PRIORITY  DISPLAY 
IN  ENDIDLE 


BI T 13  FLAG  4 ( S ) 

062D  NORMAL  DISPLAY  IN  NC  NORMAL  DISPLAY 

BIT13  ENDIDLE  IN  ENDIDLE 


BIT  12  FLAG  4 ( S ) 

0630  P20  SETS  SO  AS  TO  LEAVE  AS  NORMAL  OISP 

TURN  A NORMAL  DIS- 

8IT12  PLAY  INTO  A PRIORITY 

DISPLAY  IN  R60 


BIT  11  FLAG  4 

(S  ) 

064D 

HIGHER  PRIORITY 

NO  HIGHER  PRIORITY 

DISPLAY  OPERATING 

DISPLAY  OPERATING 

BI  Til 

WHEN  MARK  DISPLAY 

WHEN  MARK  DISPLAY 

INI TIATED 

INITIATED 

BIT  10  FLAG  4 

(S  ) 

065D 

HIGHER  PRIORITY 

NO  HIGHER  PR lORITY 

DISPLAY  OPERATING 

DI SPLAY  OPERATING 

BIT)  0 

WHEN  NORMAL 

WHEN  NORMAL  DISPLAY 

DI  SPLAY  I NI  TI  ATED 

INITIATED 

BIT  9 FLAG  4 

( S ) 

066D 

ASTRONAUT  USING 

ASTRONAUT  NOT  USING 

KEYBOARD  WHEN  MARK 

KEYBOARD  WHEN  MARK 

BIT9 

DISPLAY  INITIATED 

DISPLAY  INITIATED 

BIT  8 FLAG  4 

( S) 

067D 

ASTRONAUT  USING 

ASTRONAUT  NOT  USING 

KEYBOARD  WHEN 

KEYBOARD  WHEN 

BITS 

NORMAL  DISPLAY 

NORMAL  DISPLAY 

INIT  I AT  ED 

INITIATED 
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ASSIGNMENTS 

A0519 

0520 

A0521 

OlOA 

PRONVFLG 

= 

0522 

A0523 

REF  5 

LAST 

71 

A 7 A 5 

PRONVBI T 

A052A 

0525 

A0526 

0527 

A0528 

■REF  5 

LAST 

71 

01C5 

A7A6 

PINBRFLG 

PI NBRBIT 

A052S 

0530 

A0531 

0532 

A0533 

REF  5 

LAST 

71 

0106 

A7A7 

MRUPTFLG 

MRLPT8IT 

A053A 

0535 

A0536 

0107 

NRLPTFLG 

= 

0537 

A0538 

REF  A 

LAST 

71 

A750 

NRUPTB IT 

A0539 

05AO 

05A1 

A05a2 

REF  5 

LAST 

71 

0110 

A751 

MKCVFLAG 
MKOVBI T 

A05A3 

A05AA 

= 

A 05A5 

A05A6 

05A7 

0112 

XDSPFLAG 

05A8 

A05A9 

REF  A 

LAST 

71 

A753 

XDSPBI T 

0550 

A0551 

REF  6 

LAST 

72 

0101 

FLAGWRC5 

A0552 

0553 

055A 

REF  6 

LAST 

72 

0113 

A735 

CSKYFLAG 
DSKYFB I T 

= 

A0555 

A0556 

A0557 

A0558 
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BIT  7 FLAG  A 
06  8D 

BI  T7 


IS  I 

ASTRONAUT  USING 
KEYBOARD  WHEN 
PRIORITY  CISPLAY 
INI TIATEO 


ASTRONAUT  NOT  USING 
KEYBOARD  WHEN 
PRIORITY  DISPLAY 
I KI TI ATEO 


BIT  6 FLAG  A 
069D 

BIT6 


IS  ) 

ASTRONAUT  HAS 
INTERFERED  WITH 
EXISTING  DISPLAY 


ASTRONAUT  HAS  NOT 
INTERFERED  WITH 
EXISTING  DISPLAY 


BIT  5 flag  a 
070D 

BIT5 


(SI 

MARK  CISPLAY  MARK  DISPLAY  NOT 

INTERRUPTED  BY  INTERRUPTED  BY 

PRIORITY  DISPLAY  PRIORITY  DISPLAY 


BIT  A FLAG  A 
071  D 

BITA 


( SI 

NORMAL  DISPLAY 
INTERRUPTED  BY 
PRIORITY  OR  MARK 
DISPLAY 


NORMAL  DISPLAY  NOT 
INTERRUPTED  BY 
PRIORITY  OR  MARK 
DISPLAY 


BIT  3 FLAG 
07?D 


( SI 

MARK  DISPLAY  OVER  NO  MARK  DISPLAY  OVER 


BI  T3 


NORMAL 


NORMAL 


BIT  2 FLAG  A 
073D 


BIT  1 FLAG  A 
07AD 

(S  1 

MARK  DISPLAY  NOT 

NO  SPECIAL  MARK 

• 

BITl 

TO  BE  INTERRUPTED 

INFORMATION 

STATE  +5 

( 075-0891 
(SET  1 

(RESET  1 

BIT  15  FLAG  5 
075D 

BIT15 

( SI 

DISPLAYS  SENT  TO 
DSKY 

NO  DISPLAYS  TO  DSKY 

BIT  lA  FLAG  5 

076D 

BITIA 
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FLAGWORD 
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USER'S  PAGE  NO. 

>-• 

m 

O 

A0559 

A0560 

BIT  13  FLAG 

5 

( S,LI 

05bl 

0115 

SNUFFER  = 

0770 

U,V  JETS  OISABLEO 

U,V  JETS  ENABLED 

A0562 

DURING  DPS 

DURING  DPS 

0563 

REF 

7 

LAST 

72 

4737 

SNUFFBIT  = 

B IT13 

BURNS  IV65I 

BURNS  (V75I 

A0564 

A0565 

BIT  12  FLAG 

5 

1 SI 

0566 

0116 

NCTHROTL  = 

0780 

INHIBIT  FULL 

PERMIT  FULL  THROTTLE 

0567 

AC568 

REF 

6 

LAST 

72 

4740 

NOTHRBIT  = 

BI  T12 

THROTTLE 

A0569 

BIT  11  FLAG 

5 

(S,LI 

0570 

0117 

R77FLAG  = 

0790 

R77  IS  ON, 

R77  IS  NOT  ONo 

A0571 

SUPPRESS  ALL  RADAR 

A0572 

ALARMS  AND  TRACKFR 

0573 

REF 

6 

LAST 

72 

4741 

R77FLBIT  = 

B I T 1 1 

FAILS 

A0574 

A0575 

BIT  10  FLAG 

5 

(SI 

0576 

0120 

RNGSCFLG  = 

0800 

SCALE  CHANGE  HAS 

NO  SCALE  CHANGE  HAS 

A0577 

OCCURRED  DURING 

OCCURRED  OUR ING 

0578 

REF 

5 

LAST 

72 

4742 

RMGSCBIT  = 

BITIO 

RR  READING 

RR  READING 

A0579 

A0580 

BIT  9 FLAG 

5 

(S  1 

0581 

0121 

CMENFLG  = 

0810 

DIMENSION  OF  W IS  9 

01  PENSION  OF  W IS  6 

0582 

A0583 

REF 

6 

LAST 

72 

4743 

DMENFBIT  = 

BIT° 

FOR  INCORPORATION 

FOP  INCORPORATION 

A0584 

BIT  8 FLAG 

5 

I SI 

0585 

.0122 

ZOCMFLAG  = 

082  0 

THROTTLE-UP  HAS 

THROTTLE-UP  HAS  NOT  ) 

0586 

A05e7 

REF 

6 

LAST 

72 

4744 

ZOOMBIT  = 

e I T8 

OCCURRED  IN  P63o 

YET  OCCURRED  IN  P63o  / 

A0588 

BIT  7 FLAG 

5 

(S  1 

0589 

0123 

ENGONFLG  = 

0830 

ENGINE  TURNED  ON 

ENGINE  TURNED  OFF 

0590 

A0591 

REF 

6 

LAST 

73 

474  5 

ENGONBIT  = 

BIT7 

A0592 

BIT  6 FLAG 

5 

( SI 

0593 

0124 

3AXISFLG  = 

0640 

MANEUVER  SPECIFIED 

MANEUVER  SPECIFIED 

A0594 

BY  THREE  AXES 

BY  ONE  AXIS;  R60 

0595 

A0596 

REF 

6 

LA  ST 

73 

4746 

3AX1SBIT  = 

BIT6 

CALLS  VECPOINTo 

A 0597 

BIT  5 FLAG 

5 

0598 

0125 

ACRBSFLG  = 

0850 

PREFER  PAXIS  JET 

PREFER  PAXI S JET 

0599 

REF 

6 

LAST 

73 

4747 

AORBSYST  = 

BI  T5 

PAIRS  7,15  AND  8,16 

PAIRS  R, 12  AND  3,11 
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A05995 

A0600 

0601 

0126 

NQRRMON 

= 

0602 

A0603 

REF  5 

LAST 

73 

4750 

NORRMBI T 

A0604 

0605 

0127 

SOLNSVv 

= 

A0606 

0607 

A0608 

REF  6 

LAST 

73 

4751 

SCLNSBIT 

- 

A 0609 
0610 
A0611 

0130 

MGLVFLAG 

0612 

A0613 

REF  5 

LAST 

71 

^752 

MGLVFB IT 

A061A 

0615 

A0616 

0131 

RENOWFLG 

0617 

A0618 

REF  5 

LAST 

73 

4753 

RENCWBIT 

0619 

REF  7 

LAST 

73 

0102 

FL  AGWR  06 

A0620 

A0621 

0622 

0132 

S32o IFl 

= 

0623 

A062A 

REF  7 

LAST 

73 

4735 

S32BIT1 

A0625 

0626 

0133 

S32o  IF2 

= 

0627 

A0628 

REF  6 

LAST 

72 

4736 

S32BIT2 

A0629 

0630 

0134 

S32<,1F3A 

= 

0631 

A0632 

A0633 

A063A 

REF  8 

LAST 

74 

4737 

S32B1  T3A 

0635 

0135 

S32olF3B 

= 

0636 

A0637 

A 063  8 
A0639 

REF  7 

LAST 

74 

4740 

S32EIT3B 
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( 

( 

1 

USER'  S PAGE  NCo  1 5 EO  SA  ( 


B1 T 4 FLAG  5 
086D 

BIT4 

(SI 

BYPASS  RR  GIMBAL 
MONITOR  _ 

PERFORM 

RR  GIMBAL  MONITOR 

BIT  3 FLAG  5 
0870 

BIT3 

( S 1 

LAMBERT  DOES  NOT  LAMBERT  CONVERGES  OR 

CONVERGE, OR  TI MF-R AOTI ME-P ADI  US  NON 

NEARLY  CIRCULAR  CIRCULAR 

BIT  2 FLAG  5 
088D 

BIT2 

( SI 

LOCAL  VERTICAL 
COORDINATES 

COMPUTED 

MIDDLE  GIMBAL  ANGLE 
COMPUTED 

BIT  1 FLAG  5 
0890 

B ITl 

( SI 

W MATRIX  VALID 

FOR  RENDEZVOUS 
NAVIGATION 

W MATRIX  INVALID 

FOR  RENDEZVOUS 
NAVIGATION 

STATE  +6 

(090-1041 

(SETI 

(RESETI 

BI T 15  FLAG  6 

(SI 

090D 

BIT15 

DELTA  V AT  CSI  TIME 
ONE  EXCEEDS  MAX 

DVTl  LESS  THEN  MAX 

BIT  14  FLAG  6 
091  0 

B I T14 

( SI 

FIRST  PASS  OF 

NEWTON  ITERATION 

reiteration  of 

NEWTON 

BIT  13  flag  6 
092D 

BIT13 

BI T 12  FLAG  6 
0930 

BIT12 

(SI 

BIT  1?  AND  BIT  12  FUNCTION  AS  AN  ORDERED 
PAIR  (13,121  INDICATING  THF  POSSIBLE  OC- 
CURRANCE  OF  2NEWT0N  ITFRATIONS  FOR  S32ol 
IN  THE  PROGRAM  IN  THE  FCLLCWING  ORDER: 
(0,11  (loEoRlT  13  RFSET,BIT  12  SETI 

= FIRST  NEWTON  ITERATION  BEING  DONE 
(0,01=  FIRST  PASS  OF  SECOND  NEWTelTEPAT; 
(1,11=  50  FT/SEC  STAGE  OF  SECo  NEWTolTER 

(1,01=  remainder  of 

SECCNO  NEWTON  ITERAo 
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EC  S4 

AC640 

A0643 

BIT  11  FLAG  6 

( SI 

A0644 

0645 

0646 
A0647 

REF  6 

LAST  74 

0137 

4742 

GMeCRVSW  = 
GMBDRBIT  = 

BI T 10  FLAG  6 
095D 

BIT3.0 

( S 1 

TR  I MG  I MB 

OVER 

TRI  MGI MB 

NOT  OVER 

A0648 

BIT  9 FLAG  6 

A0649 

A0650 

A0651 

= 

096D 

BIT9 

A0654 

0655 

0656  ' 
A0657 

REF  7 

LAST  74 

0141 

4744 

MUNFLAG  = 
MLNFLBIT  = 

BITS  FLAG  6 
097D 

BITS 

(SI 

SER  VICER 
MUNRVG 

CALLS 

SERVI  CER 
CALCRVG 

calls 

A0658 

0659 

0660 
A0661 

REF  7 

LAST  74 

0142 

4745 

= 

BIT  7 FLAG  6 
098D 

B IT7 

(L  1 

A0662 

0663 

A0664. 

0665  REF  7 LAST  7A 
A0666 


0143 

4746 


RECFLAG 
RECFLB IT 


BI T 6 FLAG  6 (LI 

099D.  LANDING  SITE  LANDING  SITE 

REDESIGNATION  R E CES I GNAT  ION  NOT 


B I T6 


PERMI TTED 


PERMITTED 


A0667 

A0668 

A0669 

A0670 

A0671 

A0672 

0673 

A0674 

0146 

NTARGFLG 

0675 

A 06  76 

REF 

7 LAST 

75 

4751 

NTARGBIT 

PIT  5 FLAG  6 
lOOD 


01  T 4 

FLAG  6 

1010 

BIT  3 

FLAG  6 

(S  1 

102D 

ASTRONAUT  DID 

ASTRONAUT 

DID  NOT 

OVERWRITE  DELTA 

OVEPWPI  TE 

DELTA 

BI  T3 

VELOCITY  AT  TPI 

VELOCITY 

OR  TPM  (P34,?5I 

A0677 

0678  0147 

0679  REF  6 LAST  75  4752 

A068n 

A0681 

A0682 

A0683 


AUXFLAG 

AUXFLBIT 


BIT  2 FLAG  6 

103D 

BIT2 


PROVIDING  IDLEFLAG 
I S NOT  SET , SERV- 
ICER WILL  EXERCISE 
DVMCN  ON  ITS  NEXT 
PASS, 


SERVICER  WILL  SKIP 
DVMON  CN  ITS  NEXT 
PASS  EVEN  IF  THE 
IDLEFLAG  IS  NOT  SET 
IT  WILL  THEN  SET 
AUXFLAGo 
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17  EO  S4 

A0684 

BIT  1 FLAG  6 

(L  1 

0685 

0150 

ATTFLAG  = 

104D 

LEM  ATTITUDE  EXISTS 

NC  LEM  ATTITUDE 

A0686 

IN  MOON-FIXED 

AVAILABLE  IN  MOON- 

0687 

REF 

e 

LAST 

75 

4753 

ATTFLBIT  = 

BITl 

COORDINATES 

FIXED  COORDINATES 

A06e8 

0689 

REF 

8 

LAST 

75 

0103 

FLAGWRC7  = 

STATE  +7 

I 105-119  ) 

A0690 

(S  ET  ) 

(RESET  1 

A0691 

BIT  15  FLAG  7 

(SI 

0692 

0151 

ITSVvICH  = 

1050 

P34;TPI  TIME  TO  BE 

TPI  HAS  BEEN 

0693 

REF 

8 

LAST 

75 

4735 

ITS^.BIT  = 

BI  T)  5 

COMPUTED 

COMPUTED 

AC69A 

A0695 

BIT  14  FLAG  7 

( S I 

0696 

0152 

MANUFLAG  = 

106D 

ATTITUDE  MANEUVER 

NC  ATTITUDE  MANEUVER 

A 0697 

GOING  DURING  RR 

DUPING  PR  SEARCH 

0698 

REF 

7 

LAST 

75 

4736 

MARUFBIT  = 

BIT)  4 

SEARCH 

A0699 

A 0700 

BIT  13  FLAG  7 

(SI 

0701 

0153 

IGKFLAG  = 

) 07D 

TIG  HAS  ARRIVED 

TIG  HAS  NOT  ARRIVED 

0702 

REF 

9 

LAST 

75 

4737 

IGNFLBIT  = 

B IT13 

A0703 

A070':‘ 

BIT  12  FLAG  7 

( S I 

0705 

0154 

ASTNFLAG  = 

10  80 

ASTRONAUT  HAS 

ASTRONAUT  HAS  NOT 

0706 

REF 

8 

LAST 

75 

4740 

ASTNBIT  = 

BIT12 

OKAYED  IGNITION 

OKAYED  IGNITION 

A0707 

A07C8 

BIT  ) 1 FLAG  7 

(L  ) 

0709 

0155 

SHANDISP  = 

) 090 

LANDING  ANALOG 

LANDING  ANALOG 

0710 

REF 

7 

LAST 

74 

4741 

SWANDBIT  = 

BITll 

DI SPLAYS  ENABLED 

DISPLAYS  SUPPRESSED 

A0711 

A0712 

BIT  10  FLAG  7 

( S I 

0713 

0156 

NORMSW 

1)00 

UNIT  NORMAL  INPUT 

LAMBERT  COMPUTES  ITS 

0714 

REF 

7 

LAST 

76 

4742 

NCRMSBIT  = 

BITIO 

TO  LAMBERT 

OWN  UNIT  NORMAL 

A0715 

AC716 

BIT  9 FLAG  7 

(S  ) 

0717 

0157 

RVSW 

1110 

DO  NOT  COMPUTE 

COMPUTE  FINAL  STATE 

A 071  8 

FINAL  STATE  VECTOR 

VECTOR  IN  TIME-THETA 

0719 

REF 

7 

LAST 

74 

4743 

RVSW8IT  = 

BIT9 

IN  TIME-THETA 

A0720 

A0721 

BIT  8 FLAG  7 

( SI 

0722 

0160 

V67FLAG  = 

112  0 

ASTRONAUT  OVERWRITE 

ASTRONAUT  DOES  NOT 

A0723 

W-MATRIX  INITIAL 

OVERWRITE  W-MATRIX 

GAP: 

ASSEMBLE  REVISION 

131  OF 

AGC  PROGRAM 

LUMINARY  BY  NASA 

L 

FLAG  WORD 

assignments 

072A 

A0725 

REF  8 

LAST 

76 

A7AA 

V67FLBIT  = 

AC726 

0727 

0728 

REF  8 

LAST 

76 

0161 

A7A5 

IDLEFLAG  = 
IDLEFBIT  = 

A0729 

A0730 

0731 

0732 
A0733 

REF  P 

LAST 

76 

0162 

47A6 

V37FLAG  = 
V37FLBIT  = 

AC73A 

0735 

0736 
A0737 

PFF  7 

LAST 

7A 

0163 

4747 

AVEGFLAG  = 
AVEGFBIT  = 

A0738 

0739 

O7A0 

A0741 

REF  6 

LAST 

75 

0164 

4750 

UPLQCKFL  = 
UPLCCBIT  = 

A07A2 

07A3 

07AA 

A07A5 

REF  8 

LAST 

76 

0165 

4751 

VEPIFLAG  = 
VER  1 FB  IT  = 

A07A6 

07A7 

07A8 

A07A9 

REF  7 

LAST 

76 

0166 
■ 4752 

V82EMFLG  = 
V82EMBIT  = 

A0750 

0751 

0752 
A0753 

REF  7 

LAST 

77 

0167 

4753 

TFFSW 

TFFSWBIT  = 

075A 

REF  9 

LAST 

77 

010  4 

FLAGWRD8  = 

A0755 

A0756 

0757 

A0758 

0759 

A076D 

A0761 

KEF  9 

LAST 

77 

0170 

4735 

RPOFLAG  = 

RPQFLBIT  = 

A0762 


2C21112-C91 


BITS 


BIT  7 FLAG  7 

113D 

BIT7 


BI T A FLAG  7 

HAD 

BI  T6 


BIT  5 FLAG  7 

115D 

BIT5 


BIT  4 FLAG  7 

U6D 

BIT4 


BIT  3 FLAG  7 

T17D 

BITS 


BI T 2 FLAG  7 

118D 

BI  T2 


BIT  1 FLAG  7 

11 9D 

BIT] 


STATE  +8D 


BI T 15  FLAG 
120D 


BI  T15 


17:53  CECo  19,1969  (MAIN) 


PAGE  78 


USER'S  PAGE  NOo  18  EC  SA 


VALUES 

INITIAL  VALUES 

(S  ) 

NO  DV  MONITOR 

CONNECT  DV  MONITOR 

(S) 

AVERAGEG  (SERVICER) 
RUNNING 

AVERAGEG  (SERVICER) 

OFF 

(S  ) 

AVERAGEG  (S  ERV  ICER  ) 

AVERAGEG  (SERVICER) 

DESIRED 

NCT  DESIRED 

( S ) 

K-KBAR-K  FAIL 

NO  K-KBAR-K  FAIL 

(S  ) 

CHANGED  WHEN  V33E  OCCURS  AT  END  OF  P27 

( L,C  ) 

MOON  VICINITY 

EARTH  VICINITY 

(S  ) 

CALCULAT  E TPER  IGEE 

CALCULATE  TFF 

(120-134  ) 

( SET  ) 

(RESET) 

(S  ) 

RPQ  NOT  COMPUTED 

RPQ  COMPUTED 

(RPO  = VECTOR  BE- 
TWEEN SECCNOAPY  BODY 
AND  PRIMARY  BODY 


BIT  lA  FLAG  8 


GAP: 
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:53  DECo  19,1969 

(MAINI  PAGE  79 

L 

F LAGWCRO 

ASSIGNMENTS 

USER'S  PAGE  NC 

» 19  EP  S4 

A0763 

A076A 

AC765 

= 

1210 

BI  T14 

A0766 

0767 

77 

0172 

NEWIFLG  = 

BIT  13  FLAG  8 
1220 

(S  ) 

FIRST  PASS  THRCUGH 

SUCCEEDING  ITERATION 

0768 

A0769 

REF 

10 

LAST 

4737 

NEWIBIT  = 

BIT13 

INTEGRAT ION 

OP  INTEGRATION 

AC770 

0771 

0772 
A0773 

REF 

9 

LAST 

77 

0173 

4740 

CMGCNFLG  = 
CMOONBIT  = 

BIT  12  FLAG  8 
1230 

BI  T1  2 

***  PROTECTED  FROM 
PERMANENT  CSM  STATE 
IN  LUNAR  SPHERE 

PRESH  START  4*4 
PERMANENT  CSM  STATE 

IN  EARTH  SPHERE 

A0774 

BIT  11  FLAG  8 

4**  PROTECTED  FROM 

FRESH  START  *** 

0775 

0776 
A0777 

REF 

8 

LAST 

77 

0174 

4741 

LMOONFLG  = 
LMCONBIT  = 

1240 

eiTll 

PERMANENT  LM  STATE 
IN  LUNAR  SPHERE 

PERMANENT  LM  STATE 

IN  EARTH  SPHERE 

A0778 

0779 

REF 

0175 

FLUNDISP  = 

BIT  10  FLAG  8 

12  50 

(LI 

CURRENT  GUIDANCE 

CURRENT  GUIDANCE 

0780 

A0781 

8 

LAST 

77 

4742 

FLUNDBIT  = 

BI  TIO 

DISPLAYS  INHIBITED 

DISPLAYS  PERMITTED 

A0782 

A0783 

A078A 

= 

BIT  9 FLAG  8 

12  60 

B1T9 

(LI 

A0785 

A0786 

BIT  8 FLAG  8 

44*  PROTECTED  FROM 

PRESH  START  444 

0787 

0788 
A0789 

REF 

9 

LAST 

78 

0177 

4744 

SURFFLAG  = 
SURFFBIT  = 

1270 

BI  T8 

LM  ON  LUNAR  SURFACE 

LM  NOT  ON  LUNAR 
SURFACE 

A0790 

0791 

0 200 

INFINFLG  = 

BIT  7 FLAG  8 
1280 

(S  1 

NO  CONIC  SOLUTION 

CONIC  SOLUTION 

A0792 

0793 

A079A 

REF 

9 

LAST 

78 

4745 

INFINBIT  = 

BI  T7 

(CLOSURE  THROUGH 
INFINITY  REOUIREDI 

EXISTS 

A0795 

0796 

0797 
A0798 

REF 

9 

LAST 

78 

0201 

4746 

ORDERSW  = 
GRDERBIT  = 

BIT  6 FLAG  8 
1290 

BIT6 

( S 1 

ITERATOR  USES  2ND 
ORDER  MINIMUM  MODE 

ITERATOR  USES  1ST 
ORDER  STANDARD  MODE 

A0799 

0800 

A0801 

78 

0202 

APSESW 

BIT  5 FLAG  8 

1 300 

( SI 

RDFSIRED  OUTSIDE  RDESIRED  INSIDE 

PER  1C  ENTER- APO  CENT  ERPER  ICENTER-APO  CENTER 

0802 

REF 

8 

LAST 

4747 

APSESBIT  = 

BITS 

RANGE  IN  TIME-RADI 

RANGE  IN  TIME-RADIUS 

A0803 
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80 

L 

FLAGWORD 

ASSIGNMENTS 

USER'S  PAGE  NOo  20  EO  S4 

A0804 

BIT  4 

FLAG 

8 ( SI 

0805 

0203 

COGAFLAG 

= 

131D 

NO  CONIC  SOLUTION  - CONIC  SOLUTION 

A0806 

TOO  CLOSE  TO  RECTI-  EXISTSICOGA  DOES 

NOT 

0807 

REF 

7 

LAST 

78 

4750 

COGAFBIT 

= 

B I T4 

LINEAR(COGA  OVRFLWS)  OVERFLOW) 

A0808 

A0809 

B IT  3 

FLAG 

8 

A0810 

1320 

A0811 

BIT  2 

FLAG 

8 ( L ) 

0812 

0205 

IN  ITAL  GN 

= 

1330 

INITIAL  PASS  THRU  SECOND  PASS  THRU 

P57 

0813 

REF 

8 

LAST 

76 

i'752 

INITABIT 

= 

BIT2 

P57  (CHECK  RESET-MILLARO) 

A0814 

A0815 

BIT  1 

FLAG 

8 (SI 

0816 

02C6 

360SW 

I34C 

TRANSFER  ANGIE  NEAR  TRANSFER  ANGLE  NOT 

0817 

REF 

8 

LAST 

78 

4753 

360SWBIT 

B ITl 

360  DEGREES  NEAR  369  DEGREES 

A08ia 

0819 

REF 

10 

LAST 

78 

0105 

FLAGWR09 

= 

STATE 

+ 90 

(135  - 14°) 

A0820 

(SET)  (RESET) 

A0821 


A0822 

BI  T 15 

FLAG 

9 

A0823 

= 

1350 

A08231 

= 

BITl  5 

A0824 

BIT  14 

FLAG 

9 

( L) 

0825 

0210 

FLVR 

= 

1360 

VERTICAL  RISE  NON-VERTICAL  RISE 

0826 

REF 

8 

LAST 

77 

4 73  6 

FLVRBI T 

B I T1 4 

(ASCENT  GUIDANCE) 

A0827 

A0828 

eiT  13 

FLAG 

9 

0829 

0211 

P7071FLG 

= 

I 370 

P70  OR  P71  IS  USING  P12  IS  USING  THE 

08295 

REF 

11 

LAST 

79 

4737 

P7071BIT 

= 

BIT13 

ASCENT  GUIOo  EQSn  ASCENT  GUIOc  EQSc 

A083O 

A0831 

BIT  12 

FLAG 

9 

(LI 

0832 

' 0212 

FLPC 

= 

3 38D 

NO  POSITION  CONTPOL  POSITION  CONTROL 

0833 

REF 

10 

LAST 

79 

4740 

FLPCBl T 

= 

BI  T12 

(ASCENT  GUIDANCE) 

A0834 

A0835 

BIT  11 

FLAG 

9 

(L  ) 

0836 

0213 

FLPI 

= 

1390 

PRE-IGNITION  PHASE  REGULAR  GUIDANCE 

0837 

REF 

9 

LAST 

79 

4741 

FLPIBIT 

= 

B 1 T 1 1 

(ASCENT  GUIDANCFI 

A0838 

A0839 

B I T 10 

FLAG 

9 

(LI 

0840 

0214 

FLRCS 

= 

140  0 

RCS  INJECTION  MOPE  MAIN  ENGINE  MODE 

4 


GAP:  ASSEPBLE  REVISION  131  OF  AGC  PRCCRAP  LUMINARY  BY  NASA  2021112-09T 


A0880 


FLAGWQPC  ASSIGNMENTS 
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USER'S  PAGE  NOo  21 


PAGE  81 
EO  SA 


0841 

REF 

9 

LAST 

79 

4742 

FLRCSBIT  = 

B I TIO 

(ASCENT  GUIDANCE) 

A0842 

A0843 

BI  T 9 

FLAG 

9 

(LI 

0844 

0215 

LETABORT  = 

141D 

ABORT  PROGRAMS 

0845 

REF 

8 

LAST 

77 

4743 

LETA8BIT  = 

B ITo 

ARE  ENABLED 

A0846 

A0847 

BIT  8 

FLAG 

p 

( L 1 

0848 

0216 

FLAP 

142D 

APS  CONTINUED  ABORT 

A0849 

AFTER  DPS  STAGING 

0850 

REF 

1C 

LAST 

79 

4744 

FLAPBIT  = 

BIT8 

(ASCENT  GUIDANCE) 

AOS  51 

A0852 

BIT  7 

FLAG 

9 

(L) 

0853 

0217 

A8TTGFLG  = 

143D 

J2,K2  PARAMETERS 

08535 

REF 

10 

LAST 

79 

4745 

ABTTGBIT  = 

BI  T7 

USFO  FOR  ABORT 

AC8537 

TARGETING 

A0854 

BIT  6 

FLAG 

9 

(LI 

0855 

0 2 20 

ROTFLAG  = 

144D 

P70  AND  P71  WILL 

0856 

REF 

10 

LAST 

79 

4746 

ROTFLBIT  = 

BIT6 

FORCE  VEHICLE 

A0657 

ROT  AT  ION  IN  THE 

A0858 

PREFERRED  DIRECTION, 

A0859 

BIT  5 

FLAG 

9 

(S  1 

0860 

0221 

QUITFLAG  = 

145D 

DISCONTINUE  INTEGRo 

0861 

REF 

9 

LAST 

79 

4747 

QUITBIT  = 

B IT5 

A0862 

A0863 

BIT  4 

FLAG 

9 

A0864 

= 

146D 

A0865 

= 

BI  T4 

A0866 

A0867 

BIT  3 

FLAG 

9 

(L  ) 

0868 

0223 

MIDIFLAG  = 

1470 

INTEGRATE  TO  TCEC 

0869 

REF 

9 

LAST 

78 

4751 

MICIFBIT  = 

BIT3 

A0870 

A0871 

B I T 2 

FLAG 

9 

( L) 

0872 

0224 

MICAVFLG  = 

1480 

INTEGRATION  ENTERED 

A0873 

FROM  ONE  OF  MIDTOAV 

0874 

REF 

o 

LAST 

80 

4752 

MICAVBIT  = 

B IT2 

PORTALS 

A0875 

A0876 

BIT  1 

FLAG 

9 

(SI 

0877 

0225 

AVEMIDSW  = 

149D 

AVETOMI D CALLI NG 

A0378 

FOP  WoMATRIX  INTEGR 

0879 

REF 

9 

LAST 

80 

4753 

AVEMDBIT  = 

BI  T1 

DONT  WRITE  OVER  PN, 

AECPT  PROGRAMS 
ARE  NOT  ENABLED 


APS  ABORT  IS  NOT  A 
CONTINUATION 


J1,K1  PARAMETERS 
USED  FOR  ABORT 
TARGETING 


P70  AND  P71  WILL  NOT 
FORCE  VEHICLE 
ROTATION  IN  THE 
, PREFERRED  DIRECTION 


CGNTINUF  INTEGRATION 


INTEGRATE  TO  THE 
THEN-PRESENT  TIME 


INTEGRATION  WAS 
NOT  ENTERED  VIA 
MI DTCA V 


NO  AVETOMID  W INTEGR 


VN, PIPTIME 


I 
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L 

FLAGWORD  ASSIGNMENTS 

USER'S 

PAGE  NOo  22  EO  S4 

A0881 

0882 

A0883 

REF 

1 

0106 

RASFLAG 

EQUALS  FLGWROlO 

WAS  ONLY  AN 

INSTALL-  ERASTALL  FLAG 

0884 

REF 

11  LAST 

80 

0106 

FLGWROlO 

= 

STATE  +10D 

( 150  - 1641 

A0885 

(SET  ) 

( RESET) 

A0886 

A0887 

A0888 

= 

BIT  15  FLAG 
150D 

10 

A0889 

0890 

REF 

0227 

INTFLAG 

_ 

BIT  14  FLAG 
1510 

10 

( L,C) 

INTEGRAT ION 

IN  INTEGRATION  NOT  I N 

0891 

A 0892 

9 LAST 

80 

4736 

INTFLBIT 

BI  Tl^ 

PROGRESS 

PROGRESS 

A0893 

0894 

0895 

REF 

12  LAST 

80 

0230 

4737 

AP  SFLAG 
APSFL8  IT 

_ 

BIT  13  FLAG 
1520 

BIT13 

10 

(S,L  ) 

ASCENT  STAGE 
***PROTECTFD 

DESCENT  STAGE 

FROM  FRESH  START  *4* 

A0896 

A0897 

AC898 

A0899 

= 

BIT  12  FLAG 
1530 

10 

A0900 

A 0901 
A0902 

= 

BIT  11  FLAG 
154D 

10 

A0903 

A0904 

A0905 

= 

BIT  10  FLAG 
1550 

10 

A0906 

A0907 

A0908 

BIT  9 FLAG 
1560 

10 

A 0909 
A0910 
ACOll 

= 

BIT  8 FLAG 
1570 

10 

A0912 

0913 

0914 
A0915 

REF 

11  LAST 

81 

0236 

4745 

REINTFLG 

REINTBIT 

= 

BIT  7 FLAG  ! 
1580 

BIT7 

10 

(L,CI 

INTEGRATION  ROUTINE  INTEGRATION  ROUTINE 

TO  BE  restarted  NOT  TO  BE  RESTARTED 

A0916 

A0917 


BIT  6 FLAG  10 
1590 
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PAGE  83 

L 

FLAGWORD 

ASSIGNMENTS 

US  ER'S  PAGE  NOo 

23 

EC  S4 

AC918 

A0919 

A0920 

A0921 

= 

BIT  5 
1600 

FLAG 

10 

A0922 

A0923 

A092A 

= 

BIT  4 
1 610 

FLAG 

10 

A0925 

A0926 

_ 

BIT  3 
1620 

FLAG 

10 

A0927 

A0928 

A0929 

A0930 

= 

BIT  2 
1630 

FLAG 

10 

A0931 

A0932 

A0933 

= 

BIT  1 
1640 

FLAG 

10 

A093A 

0935 

REF  12 

LAST 

82 

0107 

FLGWRDll 

= 

STATE 

+ 110 

(165  - 1791 

A0936 

(SFTI 

(RESET  1 

A0937 

0245 

4735 

BIT  15 

FLAG 

11 

(LI  (R12) 

0938 

0939 
A09AO 

REF  10 

LAST 

78 

LPBYPASS 
LRBYBI T 

= 

1650 

B I T 1 5 

BYPASS  ALL  LANOING 
RAOAR  UPOATES 

on  NOT  BYPASS  LR 

UPDATES 

A09A1 

A09A2 

BI  T 14 
1660 

FLAG 

11 

A0943 

A09A4 

BITl  4 

A0945 

A0946 

A0947 

A0948 

= 

BIT  13 

1 670 

BI  T13 

FLAG 

11 

A0949 

0950 

A0951 

0952 

A 0953 

0250 

4740 

VX  INH 

VXINHBIT 

BIT  12 

FLAG 

11 

(LI (R12 1 

REF  11 

LAST 

80 

_ 

1680 

81  T12 

IF  Z VELOCITY  OATA 
UNREASONABLE, 

BYPASS  X VELOCITY 

UPDATE  X 
VELOC I TY 

AXIS 

UPDATE  ON  NEXT  PASS 

GAP : 

ASSEMBLE  REVISION 

131  OF 
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FLAGWORD 

assignments 

A0954 

0955 

0251 

PSTHIGAT 

= 

0956 

A0957 

REF 

10 

LAST 

80 

4741 

PSTHI BIT 

A095e 

0252 

NOLRREAD 

0959 

= 

A 0960 
0961 
A0962 

REF 

10 

LAST 

81 

4742 

NCLRRBIT 

= 

A0963 

. 0964 

0253 

XORFLG 

= 

A0965 

0966 

A0967 

REF 

9 

LAST 

81 

4743 

XGPFLBIT 

= 

A 0968 

0969 

0254 

LR  INH 

0970 

AC971 

A0972 

REF 

11 

LAST 

81 

4744 

LR  INHBIT 

A0973 

0974 

0255 

VELDATA 

= 

0975 

A0976 

REF 

12 

LAST 

82 

4745 

VELOAB I T 

“ 

A0977 

0978 

0256 

LP0S2FLG 

= 

0979 

A0980 

REF 

11 

LAST 

81 

4 746 

LP0S2BIT 

A0981 

0982 

0 2 57 

READVEL 

= 

0983 

AC984 

REF 

10 

LAST 

81 

4747 

REAOVBIT 

A0985 

RNGEOATA 

0986 

0260 

= 

0987 

A0988 

REF 

8 

LAST 

80 

4750 

RNGEDBIT 

A0989 

0990 

0 261 

N0511FLG 

= 

0991 

A0993 

R EF 

10 

LAST 

81 

4751 

N0511BI T 

” 

A0994 

0995 

0262 

VFLSHF  LG 

r; 

2021U2-C9] 


BIT  11.  F LAG  1 

169D 

BITll 


BIT  in  FLAG  1 
] 700 

BIT  10 


BIT  9 FLAG  11 
171  D 

B IT9 


BIT  8 FLAG  11 

1720 

B1  T8 


BIT  7 FLAG  11 
173  0 
BI  T7 


BIT  6 FLAG  11 

17A0 

BIT6 


BIT  5 FLAG  11 

1750 

BI  T5 


BIT  4 FLAG  11 

1760 

BIT4 


BIT  3 FLAG  11 

1770 

BI  T3 


BIT  2 FLAG  11 
1780 


7:53  DEC,  19,196° 

USER'S  PAGE  MO, 


( LM  R12  ) 
PAST  HIGATE 


(L  ) (R12 ) 
LANDING  RADAR 
REPOSITIONING; 
BYPASS  UPDATE 


( L ) (R12 ) 

BELOW  LIMIT 
INHIBIT  X AXIS 
OVERRIDE 


LANDING  RADAR  UP- 
DATES PERMITTED 
BY  ASTRONAUT 


(L)  (R12I 
LR  VELOCITY 
MEASUREMENT  MADE 


(L I (R12  I 

USE  LR  POSITION  2 
TRANSFORMATION 


( L) (R12) 

OK  TO  READ  LR 
VELOCITY  DATA 


(L  I (R12) 

LR  ALTITUDE 
MEA  SUREMENT  MADE 


DO  NOT  TEST  LR 
ANTENNA  POS  IN  P12 


( L ) (R12 ) 

LR  VELOCITY  FAIL 


(MAIN)  PAGE  84 

24  FO  S4 


PREHIGATE 


LR  MOT  REPOSITIONING 


ABOVE  L IM  IT  DO 
NOT  INHIBIT 


LR  UPDATES  INHIBITED 
BY  ASTRONAUT 


LR  VELOCITY  MEASURE 
NOT  MADE 


USE  LR  POSITION  1 
TRANSFORMATION 


DO  NOT  READ  LP 
VELOCITY  DATA 


LR  ALTITUDE  MEASURE 
NOT  MADE 


TEST  LR  ANTENNA 
POS  IN  P12 


LR  VEL  FAIL  LAMP 


I 
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USER'  S PAGE  NOo 

2 5 EO  S4 

..1 

0996 

A0997 

A0998 

REF 

10 

LAST 

81 

4752 

VFLSHBIT  = 

BIT2 

LAMP  SHOULO  BE 
FLASHING 

SHOULDN 'T  FLASH 

A0999 

1000 

1001 

A1002 

A1003 

REF 

10 

LAST 

81 

0263 

47  53 

HFLSHFLG  = 
FFLSHBIT  = 

BI T 1 FLAG  : 
179D 

B ITl 

11 

(LI (R12 1 

LR  ALTITUDE  FAIL 

LAMP  SHOULO  BF 
FLASHING 

LR  ALTITUDE  FAIL 

LAMP  SHOULD  NOT  BE 

FLASHING 

lOOA 

A1005 

REF 

1 

0110 

(^PACMQDES  ECUALS  FLGWRD12 

RAOAR  FLAG  WORD 

1006 

REF 

13 

LAST 

63 

0110 

FLGWRD12  = 

STATE  +12D 

( 180  - 1°4I  WAS 

RADMCDES 

A1007 

(SET) 

(RESET  1 

A 1008 

BIT  15  FLAG 

12 

1109 

1010 

AlOll 

REF 

11 

LAST 

83 

0264 

4735 

CDESFLAG  = 
CDESBIT  = 

1 800 

B I T 1 5 

CONTINUOUS  DESIG- 
NATE, LGC  COMMANDS 

PR  REGARDLESS  OF 

LGC  CHECKS  FOR  LDCK- 
CN  WHEN  ANTENNA 

BEING  DESIGNATED 

A1012 

A1013 

LOCK-ON 

A1014 

1015 

1016 

REF 

10 

LAST 

82 

0265 

4736 

REMODFLG  = 
REM0081T  = 

BIT  14  FLAG 
1 810 

BIT14 

12 

CHANGE  IN  ANTENNA 
MODE  BEEN  REQUESTED 

NO  REMOOE  REQUESTED 

OR  CCCUPRING 

A1017 

Alois 

loFo,  REMOOE 

A1019 

1020 

1021 

REF 

13 

LAST 

82 

0266 

4737 

RCDUOFLG  = 
RCDUOBIT  = 

BIT  13  FLAG 
1820 

BIT13 

12 

RR  COU'S  BEING 
ZEROED 

RR  CDU 'S  NOT  BEING 

ZEPCED 

A1022 

A1023 

BI T 12  FLAG 

12 

1024 

1025 
A1026 

REF 

12 

LAST 

83 

0267 

4740 

ANTENFLG  = 
ANTENBIT  = 

18  30 

BI  T12 

RR  ANTENNA  MODE  IS 
MODE  2 

RR  ANTENNA  IN  MODE  1 

A1027 

1028 

REF 

11 

0270 

RFPOSMON  = 

BIT  11  FLAG 
1840 

12 

REPOSITION  MONITOR^ 

MO  REPOSITION  TAKING 

102  9 
A1030 
A1031 

LAST 

84 

4741 

PEPOSBIT  = 

B ITU 

RR  REPOSITION  IS 
TAKING  PLACE 

PLACE 

A1032 

1033 

0271 

CESIGFLG  = 

PIT  10  FLAG 
) 850 

12 

RR  DESIGNATE 

RR  DESIGNATE  NOT 

1034 

A1035 

REF 

11 

LAST 

84 

4742 

CESIGBIT  = 

BI  TIC 

PEOUESTEO  OR  IN 
PROGRESS 

REQUESTED  OP  IN 

PROGRESS 

GAP  : 

ASSEMBLE  REVISION 

131  OF 

AGC  PRCGRAM 

LUMINARY  BY  NASA 

L 

FLAGWORD 

ASSIGNMENTS 

A1036 

A1037 

1038 

1039 
A lOAO 

REF 

10 

LAST 

84 

0272 

4743 

ALTSCA  LE 
ALTSCB  IT 

= 

AlOAl 

10A2 

10A3 

AlOAA 

REF 

12 

LAST 

84 

0273 

4744 

LRVELFLG 

LRVELBIT 

= 

A10A5 

10A6 

10A7 

REF 

13 

LAST 

84 

0274 

4745 

PCDUFAIL 
RCDUFS IT 

_ 

ArOA8 

A10A9 

0275 

4746 

1050 

1051 
A1052 

REF 

12 

LAST 

84 

LRPOSFLG 

LRP0S8IT 

= 

A 1053 
105A 
1055 

A 1056 
A1057 

REF 

11 

LAST 

84 

0276 

4747 

LRALTFLG 

LRALTBIT 

= 

A1058 

1059 

1060 

A 1061 
A1062 

0277 

RRCATAFL 

REF 

9 

LAST 

84 

475n 

RR  CATABT 

A 1063 

1064 

1065 

A 1066 

REF 

11 

LAST 

84 

0300 

4751 

RRRSFLAG 
RRRSBI T 

= 

A1067 

1068 

1069 

A1070 

A1071 

REF 

11 

LAST 

85 

0301 

475,2 

AUTOMODE 
AUTOMB IT 

= 

A 1072 

1073 

1074 

RFF 

11 

LAST 

85 

03C2 

4753 

TURNONFL 

TURNONBT 

= 

A1075 

A1076 


2021U2-C91 


17:53  neCo  19,1.96? 


( f'AIM 


PAGE 


86 


USER'S  PAGE  NOo  26  EO  SA 


BIT  9 FLAG  12 

3 86D  LR  ALTITUDE  READING  LP  ALTITUDE  READING 

BIT?  IS  ON  HIGH  SCALE  IS  CN  LCW  SCALE 


BIT  e FLAG  12 

187n  LR  VELOCITY  DATA  NO  LR  VELOCITY  DATA 

BITS  FAIL  FAIL 


BIT  7 FLAG  12 
188D 
B I T7 


RP  CDU  FAIL  HAS  RP  COU  FAIL  OCCURRED 

NOT  OCCURRED 


BI T 6 FLAG  12 

189D 

BIT6 


LANDING  PAOAP 
POSITION  2 


LR  POSITION  1 


BIT  5 FLAG  12 

19CD 

BIT5 


LR  ALTITUDE  DATA  NO  LR  ALTITUDE  DATA 
FAI Lo  COULD  NOT  BE  FAIL 
READ  SUCCESSFULLY, 


BIT  A FLAG  12 
191  D 
B I TA 


RR  DATA  FAIL,  NO  RR  DATA  FAILo 

DATA  COULD  NOT  BE 
READ  SUCCESSFULLY 


BIT  3 FLAG  12 

1920 

BI  T? 


RR  RANGE  READING  RR  RANGE  READING  ON 
ON  THE  HIGH  SCALF  THE  LOW  SCALE 


BI T 2 FLAG  12 

193D 

BIT2 


RR  NOT  IN  AUTO  MODE,  RR  IN  AUTO  MODE 
AUTO  MODE  DISCRETE 
IS  NOT  PRESENT 


BIT  1 FLAG  12 

19AD 

BITl 


RR  TORN-ON  SEQLIFNCF  NO  RR  TURN-ON 
IN  PROGRESS,  (ZERC  SEQUENCE  IN  PROGRESS 
CCU'S,  FIX  ANTENNA 
MCDEI 


i 
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L FLAG)<CRD  ASSIGNMENTS  USER'S  PAGE  NCc  27  EO  S4 


A1077 

1078 

REF 

1 

A1079 

1080 

REF 

1.4 

LAST 

A1081 

A1082 

1083 

1084 
A1085 
A1086 

REF 

12 

LAST 

A1087 

1088 

1089 

A 1090 

REF 

11 

LAST 

A1091 

1092 

1093 
A1094 

REF- 

14 

LAST 

A1095 

1096 

1097 

A 1098 

REF 

13 

LAST 

A1099 

1100 

1101 

A1102 

REF 

12 

LAST 

A1103 

1104 

1105 
A1106 

REF 

12 

LAST 

A1107 

1108 

1109 

AlllO 

REF 

11 

LAST 

Aim 

1112 

1113 

A1114 

REF 

13 

LAST 

85 


85 


85 


85 


85 


85 


85 


86 


0111  DAPBOOLS  EQUALS  FLGWRD13  DIGITAL  AUTCPILGT  FLAGWCRD 


0111 

FLGNRDI3  = 

STATE  +13D 

(195  - 209)  WAS 

DAPBOOLS 

(SET) 

(RESET  ) 

0303 

4735 

PULSEFLG  = 
PULSES 

BIT  15  FLAG 
195D 

BIT15 

13 

MINIMUM  IMPULSE 
COMMAND  MODE  IN 

NOT  IN  MINIMUM 

IMPULSE  COMMAND  MODE 

"ATT  HOLD"  (V76) 

( V77) 

0304 

4736 

USEQRFLG  = 
USEQRJTS  = 

BIT  14  FLAG 
1960 

BI  T14 

13 

GIMBAL  UNUSABLE^ 

USE  JETS  CNLYo 

TR IM  GI MBAL  MAY  BE 

USEC„ 

BIT  1 3 FLAG 

13 

0305 

4737 

CSMDKFLG  = 
CSMCOCKD  = 

1970 

B IT13 

CSM  DOCKEDo  USE 
BACKUP  DAP 

CSM  NOT  DOCKED  TO  LM 

0306 

QURPCFLG  = 

BIT  12  FLAG 
1980 

13 

CURRENT  DAP  PASS 

CURRENT  DAP  PASS  IS 

4740 

OURRCBIT  = 

BI  T12 

IS  RATE  COMMAND 

NOT  RATE  COMMAND 

0307 

4741 

ACC4-2FL  = 
ACC40R2X  = 

BIT  11  FLAG 
1990 

BITll 

13 

4 JET  X-AXIS  TRANS- 
LATION REQUESTED 

2 JET  X-AXIS  TRANS- 
LATION REQUESTED 

BIT  10  FLAG 

13 

0310 

4742 

AORBTFLG  = 
AORBTRAN  = 

2000 

BI  TIO 

B SYSTEM  FOR  X- 
TRANSLATIGN 

A SYSTEM  FOR  X- 
TRANSLATION  PREFER'D 

0311 

4743 

XOVINFLG  = 
XOVINHIB  = 

BIT  9 FLAG 
2010 

BIT9 

13 

X-AXIS  OVERRIDE 
LOCKED  OUT 

X-AXIS  OVERRIDE  OKAY 

0312 

4744 

DRIFTDFL  = 
DRIFTBIT  = 

BIT  8 FLAG 
2020 

BI  Te 

13 

ASSUME  0 OFFSET 
DRIFTING  FLIGHT^ 

USE  OEFSET  ACCELERA- 
TION ESTIMATE 

86 


GAP  : 

ASSEPBLE  REVISIOM 

131  GF 

AGC  PRCGRAM 
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L 

FLAGWORD 

ASSIGNMENTS 

USER'S  PAGE  NOc 

28  EO  S4 

A1115 

1116 

1117 

REF 

14 

LAST 

86 

0313 

4745 

RHCSCFLG  = 
RHCSCALE  = 

BIT  7 

203D 

BIT7 

FLAG 

13 

NORMAL  RHC  SCALING 
REGUESTED 

FINE  RHC  SCALING 
REQUESTED 

Alll  8 

A 1119 

ULLAGFLG  = 
ULLAGER  = 

BIT  6 

FLAG 

13 

ULLAGE  REQUEST  BY 
MISSION  PROGRAM 

1120 

1121 

A1122 

REE 

13 

LAST 

86 

0314 

4746 

20^0 

B 1T6 

NO  INTERNAL  ULLAGE 
REQUEST 

A1123 

1124 

REF 

12 

LAST 

86 

0315 

CBSL2FLG  = 

BIT  5 
205D 

FLAG 

13 

5 DEG  DEADBAND 

1 OR  c3  DEG  DEADBAND 

1125 

A11251 

A1126 

4747 

DBSLECT2  = 

BIT5 

SELECTED  BY  CREW 

SELECTED  BY  CREW 
(SEE  BIT4  DAPBOOLS 1 

A1127 

1128 

REF 

LAST 

0316 

D8SELFLG  = 

BI  T 4 
20  6D 

FLAG 

13 

1 DEG  DEADBAND 

MIN  DB  SELECTED  BY 

1129 

A1130 

10 

86 

4750 

DBSELECT  = 

BIT^- 

SELECTED  BY  CREW 

CREW  ( Oc  3 DEG  1 

A1131 

1132 

1133 

A 1134 
A1135 

REF 

12 

LAST 

86 

0317 

4751 

ACCGKFLG  = 
ACCSQKAY  = 

BIT  3 

2070 

BIT3 

FLAG 

13 

CONTROL  AUTHORITY 
VALUES  FROM  1 /ACCS 
USABLE 

RESTART  OR  FRESH  STo 
SINCE  LAST  1/ACCS ; 
OUTPUTS  SUSPECT, 

A1136 

1137 

1138 

REF 

12 

LAST 

86 

' 0320 

4752 

AUTR2FLG  = 
AUTRATE2  = 

BIT  2 
2080 

BI  T2 

FLAG 

13 

THESE  FLAGS  ARE  USED  TOGETHER  TO  INDICAT 
ASTRONAUT-CHOSEN  KALCMANU  MANEUVER  RATES 

A1139 
A1140 
All  41 

1142 

1143 

0321 

4753 

AUTRIFLG  = 
AUTRATEl  = 

B I T 1 

FLAG 

13 

(0,0)=(B1T2,BI Til = C 
(0,11=  0^5  DEG/SEC 

)o  2 DEG/SEC 

REF 

12 

LAST 

86 

2090 

BIT! 

( 1,01=  2oO  OEG/SEC 
(1,11=  lOoO  OEG/SFC 

A1144 
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L SLBROUTINE  CALLS 


0001 

* 

coco 

SUBRC 

LUMERASE 

134 

0002 

0000 

SUBRO 

L EMONAID 

104 

0003 

0000 

SUBRO 

LEMP20S 

145 

OOOA 

* 

1000 

SUBRO 

LEMP30S 

105 

0005 

❖ 

0000 

SUBRO 

K I SS  ING 

055 

0006 

0000 

SUBRC 

FLY 

153 

0007 

* 

0 100 

SUBRO 

LEMP50S 

119 

0008 

0000 

SUBRO 

SKIPPER 

101 

0009 

❖ 

0000 

SUBRO 

LMDAP 

925 

DECs  19,1969  (MAIN) 


USER'S  PAGE  NOo  1 


PAGE 
EO  S4 


89 


***  end  of  main  program 


gap: 


L 

ROOOl 

R0O02 
R 0003 
R0004 

A0005 

A00C6 

A0007 


ROODS 

R0009 

ROOIO 


ROOll 

R0012 


A0013 


ROOIA 

R0015 


A0C16 


ROD  17 
R0018 


R0019 
R0020 
R0021 
R00  22 
R0023 
R002A 


R0025 

R0026 

R0027 

R0028 

R0029 

R0030 

R0031 

R0032 

R0033 

R003A 

R0035 

R0036 
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r..i 


CONVENTIONS  AND  NOTATIONS  LTILIZEC  FOR  ERASABLE  ASSIGNMENTSo 

EQUALS  IS  USED  IN  Tl^O  l^AYSo  IT  IS  OFTEN  USED  TO  CHAIN  A GROUP 
OF  ASSIGNMENTS  SC  THAT  THE  GROUP  MAY  BE  MOVED  WITH  THE 
CHANGING  OF  ONLY  ONE  CARDo  EXAMPLEo 


X EQUALS  START 

Y EQUALS  X +SIZE,X 

Z EQUALS  Y +SIZE0Y 


(X,  Y,  AND  Z ARE  CONSECUTIVE  AND  BEGIN  AT  STARTo  ( 

(SIZEoX  AND  SIZEoY  ARE  THF  RESPECTIVE  SIZES  OF  X AND  Y, 
USUALLY  NUMERIC,  IE®  1,  2,  6,  1 8D  ETC®  I 


EQUALS  OFTEN  IMPLIES  THE  SHARING  OF  REGISTERS  (DIFFERENT  NAMES 
AND  DIFFERENT  DATA)®  EXAMPLE® 

X EQUALS  Y 

= MEANS  THAT  MULTIPLE  NAMES  HAVE  BEEN  GIVEN  TO  THF  SAME  DATA® 
(THIS  IS  LOGICAL  EQUIVALENCE,  NOT  SHARING)  EXAMPLE® 

X = Y 


THE  SI2E  AND  UTILIZATION  OF  AN  ERASABLE  ARE  OFTEN  INCLUDED  IN 
THE  COMMENTS  IN  THE  FCLLCWING  FORM®  M(SIZE)Mo 


M REFERS  TC  THE  MCBILITY  OF  THE  ASSIGNMENT® 

8 MEANS  THAT  THE  SYMBOL  IS  REFERENCED  BY  BASIC 
INSTRLCTICNS  AND  THUS  IS  E-BANK  SENSITIVE® 

I MEANS  THAT  THE  SYMBOL  IS  REFERENCED  ONLY  BY 
INTERPRETIVE  INSTRUCTIONS,  AND  IS  THUS  E-BANK 
INSENSITIVE  AND  MAY  APPEAR  IN  ANY  E-BANK® 


SIZE 


THE  NUMBER  OF  REGISTERS  INCLUDED  BY  THE  SYMBOL® 


N I 


NDJCAT 

PL 

DSP 

PRM 


TMP 


ES  THE  NATURE  OR  PERMANENCE  OF  THE  CONTEN 
MEANS  THAT  THE  CONTENTS  ARE  PAD  LCADEC® 
MEANS  THAT  THE  REGISTER  IS  USED  FOR  A DIS 


MEANS  THAT  THE  REGIST 
IS  USED  DURING  THE  EN 
PURPOSE  AND  CANNOT  BE 
MEANS  THAT  THE  REGIST 
I S A SCRATCH  REGISTER 
IT  IS  ASSIGNED®  THAT 
PRI CR  TO  INVOCATION  0 
CONTAIN  USEFUL  OUTPUT 


ER  IS  PERMANENT,  IE® 
TIRE  MISSION  FOR  ONE 
SHARED® 

ER  IS  USED  TEMPORARI 
FOR  THE  ROUTINE  TC 
IS,  IT  NEED  NOT  BE 
F THE  ROUTINE  NCR  CO 
TO  ANOTHER  ROUTINE® 


TS® 

PLAY® 

IT 


LY  OR 
WHICH 
SET 
ES  IT 
THUS 
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ERASABLE  ASSIGNMENTS 


USER'  S PAGE  NCc  2 


EO 


R0037 

R0038 

R0039 

R0040 


■ IT  MAY  BE  SHARED  NITH  ANY  OTHER  ROUTINE  WHICH 
IS  NOT  ACTIVE  IN  PARALLELo 
IN  MEANS  INPUT  TO  THE  ROUTINE  AND  IT  IS  PROBABLY 
TEMPORARY  FOR  A HIGHER-LEVEL  ROUT  I NE/ PRCGR AM. 


R0041  CUT  MEANS  CUTPUT  FROM  THE  ROUTINE,  PROBABLY 

R0042  temporary  FOR  A HIGHER-LEVEL  R OUT  I NE/ PRCGR AM. 


AGE  91 
S4 
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L ERASABLE  ASSIGNMENTS 


R0043 

SRECIAL  REGISTERS® 

0044 

0000 

A 

EQUALS  0 

0045 

)001 

L 

EQUALS  1 

0046 

0002 

Q 

EQUALS  2 

0047 

0003 

EEANK 

EQUALS  3 

0048 

0004 

FBANK 

EQUALS  4 

0049 

0005 

Z 

EQUALS  5 

0050 

0006 

EEANK 

EQUALS  6 

A0051 

0052 

0010 

ARUPT 

EQUALS  10 

0053 

0011 

LRLPT 

EQUALS  11 

0054 

0012 

QRLPT 

EQUALS  12 

0055 

0013 

SAMPT IME 

EQUALS  13 

0056 

0015 

ZRUPT 

EQUALS  15 

' 0057 

0016 

BANKRUPT 

EQUALS  16 

0058 

0017 

ERUPT 

EQUALS  17 

0059 

0020 

CYR 

EQUALS  20 

0060 

0021 

SR 

EQUALS  21 

0061 

0022 

CYL 

EQUALS  22 

0062 

0023 

EDOP 

EQUALS  23 

0063 

0024 

TIME2 

EQUALS 

24 

0064 

3025 

TIMEl 

EQUALS 

25 

006  5 

J026 

TIME3 

EQUALS 

26 

0066 

3027 

T IME4 

EQUALS 

27 

0067 

0030 

T1  ME5 

EQUALS 

30 

0068 

' 0031 

T IMF6 

EQUALS 

31 

0069 

0032 

CCLX 

EQUALS 

32 

0070 

3033 

CDLY 

EQUALS 

33 

0071 

0034 

CDUZ 

EQUALS 

34 

0072 

0035 

COLT 

EQUALS 

35 

00  73 

0036 

CDUS 

EQUALS 

36 

0074  , 

0037 

PIPAX 

EQUALS 

37 

0075 

3040 

PI  PAY 

EQUALS 

40 

0076 

3041 

PIPAZ 

EQUALS 

41 

0077 

004? 

Q-RHCCTR 

EQUALS 

4 7 

0078 

3043 

P-RHCCTR 

EQUALS 

43 

0079 

' 0044 

R-RHCCTR 

EQUALS 

44 

0080 

0045 

INLINK 

EQUALS 

45 

00  81 

0046 

RNRAD 

EQUALS 

46 

0082 

0(347 

GYROCMC 

EQUALS 

‘■■7 

0083 

0050 

CDUXCMQ 

EQUALS 

50 

0084 

30  51 

CDUYCMD 

EQUALS 

51 

0085 

3052 

CDUZCMD 

EQUALS 

52 

0086 

3053 

CDUTCMD 

EQUALS 

53 

0087 

0054 

CDUSCMD 

EQUALS 

54 

17:53  CECo  19,1969  LUMERASEol34  PAGE  92 


USER,'S  PAGE  NOo  3 EC  S4 


L AND  Q AR  E BOTH  CHANNELS  AND  REGISTERS^ 


ADJACENT  TO  FBANK  AND  B6ANK  FOR  DXCH  Z 
(DTCBI  AND  DXCH  FBANK  (DTCF)„ 

REGISTER  7 IS  A ZERO-SOURCE,  USED  BY  Z Lo 


INTERRUPT  STORAGEo 


sampled  time  1 C 2o 
( 13  AND  14  ARE  SPARES® ) 
USUALLY  HOLDS  FBANK  OR  EBANK® 
RESUME  ADDRESS  AS  ViFLLc  r" 


edits  interpretive  operation  code  pairs® 


REND  RADAR  TRUNNION  CDU 
RFND  RADAR  SHAFT  CDU 


RHC  COUNTER  REGISTERS 


RADAR  TRUNNION  COMMAND 
RADAR  SHAFT  COMMAND 


4 


GAP  : 

ASSEMBLE  REVISICK  131  OF 

AGC  PRCGRAM 

LUMINARY  BY 

NASA  2021112-091 

17: 53  DECo  19,1969 

LLMERASE 

13A  PAGE  . 

93 

L 

ERASABLE  ASSIGNMENTS 

USER'S  PAGE 

NO,,  A 

EO  SA 

0088 

0055 

THRUST 

EQUALS  55 

0089 

005  6 

LEMONM 

EQUALS  56 

0090 

0057 

CUTLI NK 

EQUALS  57 

00  91 

0060 

ALTM 

EQUALS  60 

R0092 

INTERPRETIVE  REGISTERS 

ADCRESSED  RELATI 

VE  TO  VAC  AREAo 

0093 

0CA2 

LVSQUARE 

EQUALS 

3A0 

SQUARE  OF  VECTOR  INPUT  TO  ABVAL  AND  UNIT 

00  9 A 

OOAA 

LV 

equals 

36D 

LENGTH  OF  VECTOR  INPUT  TO  UNITo 

0095 

)0A6 

XI 

EQUALS 

38C 

INTERPRETIVE  SPECIAL  REGISTERS  RELATIVE 

0096 

OOA7 

X2 

EQUALS 

390 

TO  THE  WORK  AREAc 

0097 

0050 

SI 

EQUALS 

A 00 

0098 

1051 

S2 

EQUALS 

A1  0 

0099 

0052 

OPRET 

-EQUALS 

A2D 

ROlOO 

INPLT/OLTPUT  CHANNELS 

AOlOl 

AA*  CHANNEL  ZE 

;ro  I S 

TO  BE  USED  IN  AN  INDEXED  OPERATION  ONLY,  *** 

0102 

REF  1 

0001 

LCFAN 

EQUALS 

L 

0103 

REF  1 

0002 

QCHAN 

EQUALS 

Q 

01 OA 

.100  3 

HI  SCALAR 

EQUALS 

3 

0105 

000 A 

LOSCALAR 

EQUALS 

4 

0106 

0005 

CHAN5 

EQUALS 

5 

0107 

0006 

ChAN6 

EQUALS 

6 

0108 

0007 

SUPERBNK 

EQUALS 

7 

SUPER-BANK, 

0109 

0010 

OUTO 

EQUALS 

10 

0110 

0011 

CSALMOUT 

EQUALS 

1 1 

0111 

1012 

CHAN12 

EQUALS 

12 

0112 

0013 

CHAN  13 

EQUALS 

13 

0113 

OOIA 

CHANIA 

EQUALS 

14 

OllA 

0015 

MNKEYI N 

EQUALS 

15 

0115 

0016 

NAVKEY  IN 

EQUALS 

16 

0116 

0030 

CHAN30 

EQUALS 

30 

0117 

0031 

CHAN31 

EQUALS 

31 

0118 

0032 

CHAN32 

EQUALS 

32 

0119 

0033 

CHAN33 

EQUALS 

33 

0120 

003A 

DNTMl 

EQUALS 

34 

0121 

0035 

CNTM2 

EQUALS 

35 

R0122 

END  OF  CHANNEL  ASSIGNMENTS 

GAP: 

L 

P0123 

A0124 
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ERASABLE  ASSIGNMENTS  ^ USER'S  PAGE  NOo  5 EO  S4 

INTERPRETIVE  SWITCH  BIT  ASSIGNMENTS 


R0125 


**  FLAGWCRDS  AND  BITS  NOW  ASSIGNED  AND  DEFINED  IN  THEIR  OWN  LOG  SECTIONc 


GAP: 

L 

P0127 

0128 

R0129 

R0131 

R0132 

R0134 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

A0152 

0153 

0154 

0155 

0156 

01  57 

0158 

0159 

01  60 

R0161 

0163 

A 01  64 

R0165 


ASSEMBLE 

REV  IS  ION 

131 

OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

17:53 

OECo  19,1969  LUMERASEc134  PAGE 

95 

ERASABLE  ASSIGNMENTS 

USER'S  PAGE  NCo  6 ED 

S4 

GENERAL 

ERASABLE  ASSIGNMENTSc 

0061 

SETLOC 

61 

INTERRUPT  TEMPORARY  STORAGE 

POOL., 

( IIDI 

(ITEMPl  THROUGH  RLPTREG4I 

ANY  OF 

THES 

E MAY  BE  USED  AS 

TEMPORARIES 

DURING 

INTERRUPT 

OP  WITH  1 

[NTERRUPT  INHIBITED.,  THE  ITEMP 

SERIES 

IS 

USED 

DURING  1 

SALES 

TO  THE  EXECUTIVE 

AND  WAITLIST  - THE 

; RUPTREGS 

ARE  NOTo 

0061  0061 

ITEMPl 

ERASE 

PEE 

1 

,0061 

WA  ITEX  IT 

EQUALS 

ITEMPl 

REF 

2 

LAST 

95 

0061 

EXECTEI'l 

EQUALS 

ITEMPl 

0062  0062 

ITEMP2 

ERASE 

REF 

1 

0062 

WA IT8ANK 

EQUALS 

ITEMP2 

REF 

2 

LAST 

95 

0062 

EXECTEM2 

EQUALS 

I TEMP2 

0063  0063 

ITEMP3 

ERASE 

REF 

1 

0063 

RLPTSTCR 

EQUALS 

IT  EMP3 

REF 

2 

LAST 

95 

0063 

WAITADR 

EQUALS 

I TEMP3 

REF 

3 

LAST 

95 

- 0063 

NEWPR 10 

EQUALS 

ITEMP3 

0064  C064 

I TEMP4 

ERASE 

REF 

1 

0064 

LOCCTR 

EQUALS 

1TEMP4 

REF 

2 

LAST 

95 

006  4 

WAITTEMP 

EQUALS 

ITEMP4 

0065  C065 

ITEMP5 

ERASE 

REF 

1 

1065 

NEWLOC 

EQUALS 

ITEMP5 

0066  0066 

I TEMP6 

ERASE 

NEWLOC+1 

EQUALS 

I TE(AP6 

DP 

ADDRESS, 

T067 

SETLOC 

67 

0067  0067 

NEWJOe 

ERASE 

MUST  BE  AT  LOC  67  DUE  TO  WIRINGo 

J070 

0070 

RUPTR  EGl 

FRASE 

1071 

0071 

RUFTREG2 

ERASE 

0072 

0072 

RLPTREG3 

ERASE 

1073 

0073 

PUPTRE64 

ERASE 

REF 

1 0073 

KEYTEMPl 

EQUALS 

RUPTREG4 

REF 

2 LAST  95  0073 

DSRUPTEM 

EQUALS 

R UPTREG4 

FLAGWCRD  RE SERV AT  I C NSo 

( 16D) 

0074 

0113 

STATE 

ERASE 

+ 15D 

FLAGWORD  REGISTERS, 

P25  RADAR  STORAGE, 


(KAY  BE  UNSHARED  IN  E7 ) (TEMP  QVERLAYI 


(2DI 


OVERLAYS  FLGWRD  14  8 15 


GAP  : 

L 

0167 

0168 

A0169 

R0170 

0172 

0173 

017A 

0175 

0176 

0177 

017  8 

0179 

0180 

R0181 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

019b 

0197 

0198 

0199 

A0200 

0201 

0202 

0203 

A0204 

0205 

0206 

R0207 

0208 
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USER'S  PAGE 


I UMERA  SEc  134 
NCo  7 


PAGE 
EC  S4 


96 


REF 

15  LAST 

87 

0112 

LASTYCMD 

EQUALS 

STATE 

+ 140 

B ( 1 IPRM 

THESE 

ARE 

CALLED  BY  T4PUPT 

REF 

1 

0113 

LASTXCMD 

EQUALS 

LASTYCMC 

+1 

B(  1 IPRM 

THEY 

MUST 

BE  CONTI  GUOUS.Y  FIRST 

EXEC 

TEMPORARIES  VsHICH 

MAY  BE 

USEC  BETW 

EEN  CCS 

NEWJOBS 

o (32D) 

( INTB15+  THROUGH  RLPTMXTMI 

0114 

0114 

INTB15+ 

ERASE 

REFLECTS  15TH  BIT  OF  INDEXABLE  ADDRESSES 

REF 

1 

0114 

CSEX  IT 

= 

INTB15+ 

RETURN  FOR  DSPIN 

REF 

2 

LAST 

96 

0114 

EXITEM 

I NT  B1  5 + 

RETURN  FOR  SCALE  FACTOR  ROUTINE  SELECT 

REF 

3 

L AST 

96 

0114 

BLANKR  ET 

I NTBl 5+ 

RETURN  FOR  2BLANK 

0115 

0115 

INTEIT15 

ERASE 

SIMILAR  tn  ABDVEo 

REF 

1 

0115 

WRDRET 

= 

INT6IT1 

5 

RETURN  FOR  SBLANK 

REF 

2 

LAST 

96 

0 115 

WDRET 

= 

INTBI T1 

5 

RETURN  FCR  DSPWD 

REF 

3 

LAST 

96 

0115 

CECRET 

INTBITl 

5 

RETURN  FOR  PUTCOMIDEC  LOAD  1 

REF 

4 

LAST 

96 

0115 

21/22REG 

= 

1 NTBI T1 

5 

TEMP  FOR  CHAR  IN 

THE  REGISTERS 

BETWEEN 

ACCRWD 

AND  PR  lOR  ITY  MUST 

STAY  IN 

THE  FOLLOWING  ORDER  FOR  INTERPRETIVE  TRACEo 

0116 

0116 

ADORWD 

ERASE 

12  BIT  INTERPRETIVE  OPERAND  SUB-ADORESSo 

0117 

0117 

POL  I SH 

ERASE 

HCLDS  CADR  MADE  FRCM  POLISH  ADDRESSo 

REF 

1 

0117 

UPCATRET 

= 

POLISH 

RETURN  FOR  UPO ATNN , UPDATVB 

REF 

2 

LAST 

96 

0117 

CHAR 

= 

POLISH 

TEMP  FOR  CHARIM 

REF 

3 

LAST 

96 

0117 

ERCNT 

= 

POLISH 

COUNTER  FOR  ERROR  LIGHT  RESET 

REF 

4 

LAST 

96 

0117 

DECCUNT 

= ' 

POLISH 

COUNTER  FOR  SCALING  AND  DISPLAY  (DEC) 

0120 

0120 

FIXLOC 

ERASE 

WORK  AREA  ADDRESSo 

0121 

0121 

OVFINC 

ERASE 

SET  NON-ZERO  ON  OVERFLOWo 

0122 

0127 

VBLF 

ERASE 

+ 5 

TEMPORARY  STORAGE  USED  FOR  VECTORSo 

REF 

1 

0 122 

SGNON 

= 

VBUF 

TEMP  FOR  + ,-  ON 

REF 

2 

LAST 

96 

0122 

NDUNTEM 

= 

VBUF 

COUNTER  FOR  MI  XNOUN  FETCH 

REF 

3 

LAST 

96 

0122 

DI STEM 

= 

VBUF 

COUNTER  FOR  OCTAL  DISPLAY  VERBS 

REF 

4 

LAST 

96 

0122 

DECTEM 

VBUF 

COUNTER  FOR  FETCH  (DEC  DISPLAY  VERBS) 

REF 

5 

LAST 

96 

0123 

SGNCFF 

V BUF 

+ 1 

TEMP  FOR  +,-  ON 

REF 

6 

LAST 

96 

0123 

NVTEMP 

= 

VBUF 

+ 1 

TEMP  FOR  NVSUB 

REF 

7 

LAST 

96 

0123 

SFTEMPl 

= 

VBUF 

+ 1 

STORAGE  FOR  SF  CONST  HI  PART ( = SF TEMP2-1 ) 

REF 

8 

LAST 

96 

0123 

HI TEMIN 

= 

VBUF 

+ 1 

TEMP  FOR  LOAD  OF  HRS,  MIN,  SEC 

MUST  = LCTEMIN-lo 

RFF 

c 

LAST 

96  . 

0124 

CODE 

= 

VBUF 

+ 2 

FOB  DSPIN 

REF 

10 

LAST 

96 

012A 

SF  TEMP2 

VBUF 

+ 2 

STORAGE  FOR  SF  CONST  LO  P ART ( =S FT EMP 1 + 1 ) 

REF 

11 

LAST 

96 

0124 

LOTEMIN 

= 

VBUF 

+ 2 

TEMP  FOR  LOAD  OF  HRS,  MIN,  SEC 

MUST  = HITFMIN  + 1, 

REF 

12 

LAST 

96 

0125 

MI XTEMP 

= 

VBUF 

+ 3 

FOP  MIXNCUN  DATA 

REF 

13 

LAST 

96 

0125 

S IGNRET 

= 

VBUF 

+ 3 

RETURN  FOR  + ,-  ON 

ALSO  MIXTEMP+1  = VBUF+4,  MIXTEMP+2  = VBUF+5o 


BUF  ERASE  +2 


TEMPORARY  SCALAR  STCRAGFo 


0130 


0132 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L 

0209 

0210 
0211 

ERASABLE 

REF  1 

REF  2 

ASSIGNMENTS 

LAST  97 

0133 

0130 

0130 

C134 

BUF2 

INDEXLOC 

SWWORO 

ERASE 

EQUALS 

EQUALS 

+ 1 

BUF 

BU  F 

0212 

REF 

3 

LAST 

97 

0131 

SWBIT 

EQUALS 

BUF  +1 

0213 

0135 

0135 

MPTEMP 

ERASE 

0214 

REF 

1 

0135 

DMPNTEMP 

= 

MPTEMP 

0215 

0136 

0136 

CQTINC 

ERASE 

0216 

REF 

1 

0136 

DVSIGN 

EQUALS 

DOT  INC 

0217 

REF 

2 

LAST 

97 

0136 

ESCAPE 

EQUALS 

DOTI NC 

0218 

REF 

3 

LAST 

97 

0136 

ENTRET 

= 

DOTl NC 

0219 

0’137 

0137 

DOTRET 

ERASE 

0220 

REF 

1 

0137 

DVNORMCT 

EQUALS 

DOTRET 

0221 

REF 

2 

LAST 

97 

0137 

ESCAPE2 

EQUALS 

DOTRET 

0222 

REF 

3 

LAST 

97 

0137 

WDCNT 

= 

DCTPET 

, 0223 

REF 

4 

LAST 

97 

0 137 

INREL 

= 

DOTRET 

0224 

0140 

0140 

MATING 

ERASE 

0225 

REF 

I 

0140 

MAXOVSW 

EQUALS 

MATI  NC 

0226 

REF 

2 

LAST 

97 

0140 

PCLYCNT 

EQUALS 

MAT  INC 

0227 

REF 

3 

LAST 

97 

0140 

DSPMMTEM 

= 

MATING 

0228 

REF 

4 

LAST 

97 

0140 

MI  XBR 

MATING 

0229 

0141 

C141 

TEMl 

ERASE 

0230 

REF 

1 

0141 

POLYRET 

= 

TEMl 

0231 

REF 

2 

LAST 

97 

0141 

DSREL 

= 

TEMl 

0232 

0142 

0142 

TEM2 

ERASE 

0233 

REF 

1 

0142 

DSMAG 

= 

TEM2 

0234 

REF 

2 

LAST 

97 

, 0142 

ICADDTEM 

= 

TEM2 

0235 

0143 

0143 

TEM3 

ERASE 

0236 

REF 

1 

0 143 

COUNT 

= 

TEM3 

0237 

0144 

0144 

TEM4 

ERASE 

0238 

REF 

1 

0144 

LSTPTR 

= 

TE  M4 

0239 

REF 

2 

LAST 

97 

0144 

RELRET 

= 

TEM4 

0240 

REF 

3 

LAST 

97 

0144 

FREERET 

= 

TEM4 

0241 

REF 

L. 

LAST 

97 

0 144 

DSPWOR  ET 

= 

TE  M4 

0242 

REF 

5 

LA  ST 

97 

0144 

SEPSCRET 

= 

TEM4 

0243 

REF 

6 

LAST 

97 

0144 

SEPMNRET 

= 

TEM4 

0244 

0145 

0145 

TEM5 

ERASE 

0245 

REF 

1 

0145 

NOUNAOD 

= 

TEM5 

0246 

0146 

0146 

NNAOTEM 

ERASE 

0247 

0147 

0147 

NNTYPTEM 

ERASE 

0248 

0150 

C150 

IDACITEM 

ERASE 

A0249 

0250 

0151 

0151 

ICAC2TEM 

ERASE 

USFR  'S  PAGE  NO, 


EO  S4 


CONTAINS  ADDRESS  OF  SPECIFIED  I NDEX„ 
ADDRESS  OF  SWITCH  WORO„ 

SWITCH  BIT  WITHIN  SWITCH  WORD,- 
TEMPORARY  USED  IN  MULTIPLY  AND  SHIFTo 
DMPSUB  TEMPORARY 

COMPONENT  INCREMENT  FOR  DOT  SUBPOUTINEo 
DETERMINES  SIGN  OF  DDV  RESULT^ 

USED  IN  ARCSIN/ARCCOSo 
EXIT  FROM  ENTER 

RETURN  FROM  OOT  SURROUTINEc 
DIVIDEND  NORMALIZATION  COUNT  IN  DDVo 
ALTERNATE  A RC S I N/ARCCOS  SWITCHo 
CHAR  COUNTFP  FOR  CSPWD 
INPUT  BUFFER  SELECTOR  ( X,Y,Z,  REG  ) 

VECTOR  INCREMENT  IN  MXV  AND  VXM,: 

+0  IF  DP  QUOTIENT  IS  NEAR  ONE  - ELSE  -U 

POLYNOMIAL  LOOP  COLNTER 

DSPCOUNT  SAVE  EGR  CSPMM 

INDICATOR  FOR  MIXED  OR  NORMAL  NOUN 

EXEC  TEMP 

REL  ADDRESS  EOR  DSPIN 


EXFC  TEMP 

MAGNITUDE  STORE  FOR  DSPIN 
MIXNOUN  INDIRECT  ADDRESS  STORAGE 


EXEC  TEMP 
FOP  DSPIN 


EXEC  TEMP 

LIST  POINTER  FOR  GRABUSY 
RETURN  FOR  RELDSP 
RETURN  FOR  FREFDSP 
RETURN  FCR  DSPSIGN 
RETURN  FOR  SEP  SEC 
RETURN  FOR  SEPMIN 

EXEC  TEMP 

TEMP  STORAGE  FOR  NOUN  ADDRESS 

TEMP  FCR  NCUN  ADDRESS  TABLE  ENTRY 

TEMP  FOR  NOUN  TYPE  TABLE  ENTRY 

TFMP  for  INDIR  ACPESS  TABLE  ENTRYIMIXNNI 

MUST  = IDAD2TEM-1,  = IDAD3TEM-2o 

TEMP  FOR  INDIR  ADRESS  TABLE  ENTRYIMIXNNI 


gap: 

L 

A0251 

0252 

A0253 

0254 

R0255 

0257 

0258 

0259 

02  60 

0261 

0262 

R0263 

R0265 

R0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

02  80 

0281 

0282 

0283 

0284 

02  85 

A0286 
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98 


ERASABL  E ASS IGNMENTS 


..I 

USER'S  PAGE  NOo  9 EO  S4 


0152 

0152 

IDAD3TEM 

ERASE 

MUST 

TEMP 

MUST 

= IDAD1TEM41,  = lOAOBTEM-lc 

FOR  INDIR  ADR  ESS  TABLE  ENTRY!  MI  XNNI 
= IDAD1TFM+?,  = IDA02TEM+lc 

0153 

0153 

RUTMXTEM 

ERASE 

TEMP 

FOR  SF  ROUT  TABLE  ENTRY(MIXNN  ONLY) 

i.Z 

AX*SR*T  STORAGE^ 

(6CI 

REF 

3 

LAST 

97 

0142 

CEXDEX 

EQUAL  S 

TEM2 

B( 

[ 1 ) TMP 

REF 

2 

LAST 

97 

0143 

CEXl 

EQUALS 

TEM3 

Bl 

1 1 )TMP 

REF 

7 

LAST 

97 

0144 

DEX2 

EQUALS 

TEM4 

pi 

(1 )TMP 

REF 

2 

LAST 

97 

0145 

RTNSAVER 

EQUALS 

TEM5 

Bl 

1 ITHP 

REF 

1 

0157  ■ 

TERMITMP 

EQUALS 

MPAC  +3 

Bl 

12  ITMP 

REF 

1 

0143 

OE  XI 

= 

DE  XI 

THE  FOLLQ),!  NG 

10  REGISTERS  ARE 

USED  FOR 

TEMPORARY  STORAGE  OF 

THE  DERIVATIVE  COEFFICIENT  TABLE  OF 

SUBROUT  1 

INE  ROOTPSRSo 

THEY  MUST  REMAIN 

WITHOUT 

INTERFERENCE  WITH 

1 ITS 

SUBROUTINES  WHICH  ARE  POWRSFRS  (POLY), 

DMPSUB , 

OMPNSUe 

, SHORT 

MP,  CCV/eCCV,  ABS, 

, AND  USPRCADRo 

REF 

2 

LAST 

98 

0142 

DERCCF-8 

= 

MPAC 

-12 

ROOTPSRS 

DEP  COF  N-4  HI  ORDER 

REF 

3 

LAST 

98 

0 143 

DERCOF-7 

= 

MPAC 

-11 

ROCTPSRS 

DEP  COF  N-4  LO  ORDER 

REF 

4 

LAST 

98 

0144 

CERCnF-6 

MPAC 

-10 

ROOTPSRS 

DER  COF  N-3  HI  ORDER 

REF 

5 

LAST 

98 

0145 

DERCaF-5 

MPAC 

-7 

ROOTPSRS 

DER  CDF  N-3  LO  ORDER 

REF 

6 

LAST 

98 

0 146 

OERCaF-4 

= 

MPAC 

-6 

ROCTPSRS 

DER  COF  M-2  HI  ORDER 

REF 

7 

LAST 

98 

0147 

CERCQF-3 

= 

MPAC 

-5 

ROOTPSRS 

DEP  COF  N-P  LO  ORDER 

REF 

8 

LAST 

98 

0150 

DERCOF-2 

= 

MPAC 

-4 

ROCTPSRS 

DER  COF  N-1  HI  ORDER 

REF 

9 

LAST 

98 

0151 

CERCQF-1 

= 

MPAC 

-3 

ROOTPSRS 

DER  COF  N-1  LO  CPDER 

REF 

10 

LAST 

98 

0152 

DERCCFN 

= 

MPAC 

-2 

ROOTPSRS 

DER  COF  N HI  ORDER 

REF 

11 

LAST 

98 

0 153 

DERCOF+1 

= 

MPAC 

-1 

ROOTPSRS 

DEP  CCF  N LO  ORDER 

REF 

5 

LAST 

96 

0 117 

PWRPTR 

_ 

POL  ISH 

ROOTPSRS 

POWER  TABLE  POINTER 

REF 

14 

LAST 

96 

0124 

DXCRIT 

= 

VBUF 

+ 2 

ROOTPSRS 

CRITERION  FOR  ENDING  ITERS 

REF 

15 

LAST 

98 

0125 

CXCR IT+1 

= 

VBUF 

+ 3 

ROOTPSRS 

CRITERION  FOR  ENDING  ITERS 

REF 

16 

LAST 

98 

0126 

RDCTPS 

= 

VBUF 

+4 

ROOTPSRS 

ROOT  HI  ORDER 

REF 

17 

LAST 

98 

0127 

ROOTPS+1 

= 

VBUF 

+ 5 

ROCTPSRS 

RCCT  LC  ORDER 

REF 

4 

LAST 

97 

0132 

RETROOT 

= 

BU  F 

+ 2 

ROOTP  SR  S 

RETURN  ADDRESS  OF  USER 

REF 

5 

LAST 

97 

0140 

PWRCNT 

= 

MATING 

ROOTPSRS 

DER  TABLE  LOOP  COUNTER 

REF 

3 

LAST 

97 

0141 

DERPTR 

TEMl 

ROOTPSRS 

DER  TABLE  POINTER 
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gap  : 

L ERASABLE  ASS IGNMENTS 


P0287 

DYNAMICALLY 

ALLGCATEC  CCPE  SETS  FOR  JOBS, 

0289 

0154 

0162 

MPAC 

ERASE 

+6 

0290 

0163 

0163 

MODE 

ERASE 

0291 

0164 

0164 

LOC 

ERASE 

0292 

0165 

0165 

BANKSET 

ERASE 

02  93 

0166 

0166 

PUSHLOC 

ERASE 

029A 

0167 

016  7 

PRIORITY 

ERASE 

0295 

0170 

0313 

ERASE 

+ 830 

A0296 

•R0297 

INCORP 

STORAGE : 

P22 

(N29I  ( SH 

APES  WI 

TH  FCLLCWI 

ING  SECTION) 

02  99 

REF 

1 

0314 

R220ISP 

EQUAL  S 

TIME2SAV 

A0300 

R0301 

STANDBY 

VERB  ERASA6LES0  REDCCTR 

BEFORE 

THETADS, 

0303 

0314 

0315 

T IME2SAV 

ERASE 

+ 1 

030A 

0316 

0317 

SCALSAVE 

ERASE 

+ 1 

0305 

0320 

0320 

REDOCTR 

ERASE 

0306 

0321 

0323 

THETAC 

ERASE 

+■2 

0307 

REF 

1 

0321 

CPHI 

= 

THETAC 

0308 

REF 

2 

LAST 

99 

0322 

CTHETA 

= 

THETAD  +1 

0309 

REF 

3 

LAST 

99 

0323 

CPSI 

= 

THETAD  +2 

0310 

0324 

0331 

DELV 

ERASE 

+ 5 

0311 

REF 

1 

0324 

OELVX 

= 

DELV 

0312 

REF 

2 

LAST 

99 

0326 

DELVY 

DELV  +2 

0313 

REF 

3 

LAST 

99 

0330 

DELVZ 

= 

DELV  +4 

AC31A 

R0315 

WAITL I 

ST  REPEAT  FLAG 

0317 

0332 

0332 

RUPTAGN 

ERASE 

0318 

REF 

1 

0332 

KEYTEMP2 

= 

RUPTAGN 

A0319 

R0320 

DCWNLINK  STORAGE,. 

0322 

REF 

1 

0333 

DNLSTADR 

EQUALS 

CNLSTCCC 

0323 

0333 

0333 

DNLSTCCO 

ERASE 

032A 

0334 

0365 

LCATALST 

ERASE 

+ 2 

0325 

REF 

1 

0335 

DNTMGCTO 

equals 

LDATALST  +1 

0326 

REF 

1 

0336 

TM INDEX 

EOLALS 

DNTMGDTC  +1 

0327 

RLF 

1 

0336 

DUMPLOC 

EQUALS 

TM  INDEX 

A0328 

A0329 

0330 

REF 

2 

LAST 

99 

0337 

DNQ 

EQUALS 

TMINDEX  +1 

7:53  DEC.,  19,1969  LLMERASE.  13A  PAGE 


99 


USER'S  PAGE  MOo  10  EO  SA 


( BAD  I 

MULTI-PURPOSE  ACCUMULATOR- 
+ 1 FOR  TP,  +n  FDR  CP,  OR  -1  FOP  VECTOR, 
LOCATION  ASSOCIATED  ViITH  JOBo 
USUALLY  CONTAINS  RBANK  SETTING, 

WORD  OF  PACKED  INTERPRETIVE  PARAMETERS, 
PRIORITY  OF  PRESENT  JOB  AND  WORK  AREA, 

EIGHT  SFTS  OF  ‘ 12  .REGISTERS  EACH 


(AD  ( 

I(AI  NA9  DISPLAY  OF  DELTA  R AND  DELTA  V 


(lACI 


CONTAINS  NUMBER  OF  RESTARTS 

0 DES IRED  GIMBAL  ANGLES 

1 FOR 

M MANEUVER, 


(ID  I 


TEMP  FOP  KFYRUPT,  UPR UP T 


( 27DI 


BdIPRM  DOWNLIINK  LIST  CODE 
( 26D) 

P(1  I 
B(  1 I 

CONTAINS  ECADR  OF  AGC  DP  WORD  BEING  DUMP 
EC  AND  COUNT  OF  COMPLETE  DUMPS  ALREADY  S 
ENT, 

B(1  I 


GAP 
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0331 

REF 

1 

0340 

DNTMBU  FF 

EQUALS 

DNO 

+ 1 

8(22)PRM  DOWNLINK  SNAPSHOT  BUFFER 

R0332 

UNSWITCHED  FOR 

display 

I NTERF 

ACE  ROUTINESo 

(IOC)  FIVE  MORF  in  EBAMK  2 

0334 

0366 

0366 

RESTR  EG 

ERASE 

B(1)PRM  FOP  DISP(.AY  RESTARTS 

0335 

0367 

0367 

NVWORC 

ERASE 

0336 

0370 

0370 

MARKNV 

ERASE 

0337 

0371 

0371 

NVSAVE 

ERASE 

R0338 

(RETAIN 

THE  ORDER  OF  CADPFLSH  TO 

FAILREG  +2  FOR 

COWNL  INK 

PURPOSES  1 

0340 

'0372 

0 37  2 

CADRFLSH 

ERASE 

0341 

0373 

0373 

CACRMARK 

ERASE 

0342 

0374 

0374 

TEMPFLSH 

ERASE 

0343 

0375 

0377 

FAILREG 

ERASE 

+ 2 

B(3)PRM  3 ALARM  CCCE  REGISTERS 

R0344 

VAC  AREASo  -BE 

CAREFUL 

CF  PLACEMENT- 

(2200) 

0346 

0400 

0400 

VACIUSE 

ERASE 

0347 

0401 

0453 

VACl 

ERASE 

+ 42D 

0348 

045*- 

0454 

VAC2USE 

ERASE 

0349 

0455 

0527 

VAC2 

ERASE 

+ 42D 

03  50 

0530 

0530 

VAC3US  E 

ERASE 

0351 

0531 

0603 

VAC3 

ERASE 

+ 42  C 

0352 

0604 

06G4 

VAC4USE 

ERASE 

0353 

0605 

0657 

VAC4 

ERASE 

+42D 

0354 

0660 

C660 

VAC5USE 

ERASE 

0355 

0661 

0733 

VAC5 

ERASE 

+ 42D 

R0356 

STARALIGN 

ERASABLESo 

(13D) 

0358 

0734 

0734 

STARCODE 

ERASE 

(1  ) 

0359 

REF 

1 

0734 

AOTCODE 

= 

STARCODE 

0360 

0735 

0750 

STARALGN 

ERASE 

+ 11  D 

0361 

REF 

1 

0735 

SINCDU 

= 

STARALGN 

0362 

REF 

2 

LAST 

100 

0743 

CCSCCU 

= 

STARALGN 

+ 6 

0363 

REF 

1 

0741 

SINCDUX 

SI  NCDU 

+ 4 

0364 

REF 

2 

LAST 

ino 

0735 

S INCDUY 

= 

SINCOU 

0365 

REF 

3 

LAST 

1(jO 

. 0737 

SI NCDUZ 

= 

SINCDU 

+ 2 

0366 

REF 

I 

0747 

CQSCOUX 

COSCDU 

+ 4 

0367 

REF 

2 

LAST 

100 

0743 

COSCDUY 

= 

COSCDU 

0368 

RFF 

3 

LAST 

100 

0745 

cascDuz 

COSCDU 

+ 2 

R0369 

PHASE  TABLE  AND  RESTART  COUNTERS, 

( 12D) 

0371 

0751  0751 

-PHASEl 

ERASE 

0372 

0752  0752 

PHASEl 

ERASE 

0373 

0753  0753 

-PEAS  F2 

ERASE 
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0374 

0754 

0754 

PHASE2 

ERASE 

0375 

0755 

0755 

-PFASE3 

ERASE 

0376 

0756 

0756 

PHASE3 

ERASE 

0377 

0757 

0757 

-PHASE4 

ERASE 

0378 

0760 

0760 

PHASER 

ERASE 

0379 

0761 

0761 

-PHASE5 

ERASE 

03  80 

0762 

0762 

PHASE5 

ERASE 

0381 

n763 

0763 

-PHASE6 

ERASE 

0382 

0764 

0764 

PHASE6 

ERASE 

R0383 

A**SR*T  STORAGE 

0385 

0765 

C772 

CDLSPOT  ERASE 

+ 5 

03  86 

PEF 

1 

0765 

COUSPOTY  = , 

CDUSPOT 

0387 

REF 

2 

LAST 

101 

0767 

COUSPQTZ  = 

CDUSPCT 

0388 

REF 

3 

LAST 

101 

0771 

CDUSPOTX  = 

CDUSPOT 

R0389 

VERB  37  STORAGE, 

0391 

0773 

0773 

MINDEX 

ERASE 

0392 

0 774 

0774 

MMNUMBER 

ERASE 

R0393 

PINBALL  INTERRUPT  ACTICN, 

0395 

0775  0775 

DSPCNT 

ERASE 

R0396 

PINBALL  EXECUTIVE  ACTION 

0398 

0776 

0776 

DSPCOLNT 

ERASE 

0399 

0777 

0777 

CECBRNCH 

ERASE 

0400 

1000 

1000 

VERBREG 

ERASE 

0401 

1001 

1001 

NOUNREG 

ERASE 

0402 

1002 

1002 

XREG 

ERASE 

0403 

1003 

100  3 

YREG 

ERASE 

0404 

1004 

1004 

ZREG 

ERASE 

0405 

1005 

100  5 

XREGLP 

ERASE 

0406 

1006 

1C06 

YREGLP 

ERASE 

0407 

REF 

1 1006 

HITEMOUT 

= YREGLP 

A0408 

0409 

10Q7 

1007 

ZREGLP 

ERASE 

0410 

REF 

1 1007 

LOTEMOUT 

= ZREGLP 

A04U 

0412 

10  lo 

1010 

MQCREG 

ERASE 

0413 

1011 

1011 

CSPLQCK 

ERASE 

0414 

1012 

1012 

RFQRET 

ERASE 

f 
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8(1) 


TMP 

TMP 


INDEX 

MAJOR 


FOR  MAJOR  MODE 
MODE  Re(3UESTED  BY 


V37 


(ID) 

B(1)PRM  COUNTER  FDR  DSPOUTc 


( AAD  ) 


DISPLAY  POSIT 
+DEC,  - DEC, 
VERB  CODE 
NCUN  CODE 
PI  INPUT  BUFF 
R2  INPUT  BUFF 
R3  INPUT  BUFF 
LO  PART  OF  XP 
LO  PART  OF  YR 
TEMP  FOP  DI SP 
MUST 

LC  PART  OF  ZF 
TEMP  FOR  01 SP 
MUST 

MODE  CODE 
KEY8QARDZSU6R 
PFTURN  REGIST 


ION  INDICATORo 
OCT  INDICATOR 


( FOP  DEC  CONV  ONLY) 
( FOR  DEC  CONV  ONL Y ) 

Y CF  HRS,  MIN,  SEC 
LOTEMOUT-lo 

( FCR  DEC  CONV  ONLY ) 

Y OF  HRS,  MIN,  SEC 
HITFMOUT+’, 


DUTINE  CALL  INTERLOCK 
ER  FCIR  LOAD 


f 

z 

f 

f 

E 

« 

• 

f 

f 

• 

t 

f 

f 

f 

f 

« 

i 

f 

m 
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0415 

1013 

0416 

1014 

0417 

1015 

0418 

1016 

0419 

1017 

0420 

1020 

0421 

1021 

0422 

1022 

0423 

1036 

A0424 

042  5 

1037 

A0426 

0427 

1040 

0428 

1041 

04‘29 

1042 

0430. 

1043 

0431 

1044 

0432 

1047 

043  3 

REF 

1 

1050 

0434 
AO  43  5 

REF 

1 

1044 

R0436 

DISPLAY  FOR  EXTENDED 

0438 

REF 

1 1050 

A0439 

R044O 

TBASES  AND  PHSPRDT  S. 

0442 

1052 

0443 

1053 

0444 

10  54 

0445 

1055 

0446 

1056 

0447 

1057 

044  8 

1060 

0449 

1C61 

0450 

1062  . 

0451 

1063 

0452 

1064 

0463 

1065 

R0454 

UNSWITCHED  FGR  DISP 

0456 

1066 

0457 

1067 

1013 

1014 

1015 

LCACSTAT 

CLPASS 

NOUT 

ERASE 

ERASE 

ERASE 

1 01  6 

NCUNCACR 

ER  AS  E 

1017 

MONSAVE 

ERASE 

1020 

MQNSAVEl 

ERASE 

1021 

M0NSAVE2 

ERASE 

1035 

DSPTAB 

ERASE  +11D 

1036 

NVGTEM 

ERASE 

1037 

MVENKTEM 

ERASE 

1040 

VERBSAVE 

ERASE 

1041 

CACRSTOR 

ERASE 

1042 

DSPLI ST 

ERASE 

1043 

EXTVBACT 

ERASE 

1046 

DSPTEM) 

ERASE  +2 

1051 

DSPTEM2 

ERASE  +2 

CSPTEMX 

EQUALS 

DSPTEM2  +1 

NORMTEMl 

EQUALS 

DSPTEM) 

VERBS  (VB2,  R04(V62),  V41(N72)  ) 


OPTIQNX 

EQUALS  DSPTEMX 

1052 

1053 

TBASEl 

PHSPRCTl 

ERASE 

ERASE 

1054 

TRASE2 

ERASE 

1055 

PHSPRDT2 

ERASE 

1056 

TeASE3 

ERASE 

1057 

PHSPRDT3 

ERASE 

1060 

TBASE4 

ERASE 

1061 

PHSPRDT4 

ERASE 

1062 

TBASE5 

ERASE 

1063 

PHSPRCT5 

ERASE 

1064 

TBASE6 

ERASE 

1065 

PHSPR  DT6 

ERASE 

Y INTERFACE  ROUTINES,, 

1066  NVNORDl  ERASE 

1067  EBANKSAV  ERASE 
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NOUNCADR  FOR  MONI TCP ( M ATB S ) =MONSAVE  +1 

NVMONOPT  OPTIONS 

P-ICD,  DISPLAY  PANEL  PUFF,  IID,  C/S  LTS, 

NVSUB  STORAGE  FOR  CALLING  ADDRESS 

MUST  = NVBNKTEM-1 

NVSUB  STORAGE  FOP  CALLING  BANK 

MUST  = NVQTEM+1 

NEEDED  FCR  RECYCLE 

ENDIDLE  STORAGE 

WAITING  REG  FOR  DSP  SYST  INTERNAL  USE 
EXTENDED  VERB  ACTIVITY  INTERLOCK 
BUFFER  STORAGE  APFA  1 (MOSTLY  FOR  TIME! 
BUFFER  STORAGE  AREA  2 (MOSTLY  FOR  DEG  I 


B(2I  S-S  DISPLAY  BUFFER  FOR  EXTo  VERBS 
B(3)DSP  NORMAL  DISPLAY  REGISTERS, 


( 2D) 

(2)  EXTENDED  VERB  OPTION  CODE 

( 12D  ) 


(6DI 


BdIPROBABLY  FCP  DISPLAY  DURING  SERVICER 
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1070 

1070 

MARKEBAN 

ERASE 

0459 

1071 

1071 

EEANKT  EM 

ERASE 

0460 

1C72 

1072 

MARK2PAC 

ERASE 

0461 

1073 

1073 

RISAVE 

ERASE 

R0462 

IMU  COMPENSATl 

[ON  UNSViITCHED 

ERASAELEo 

0464 

1074 

1074 

1/PI  PADT 

ERASE 

A0465 

R0466 

SINGLE  PRECIS! 

:0N  SUBRCLTINE 

TEMPGRARI  ESo 

0468 

1075 

1075 

TEMK 

ERASE 

0469 

A0470 

1076 

1076 

SQ 

ERASE 

R0471 

UNSWITCHEC  PACAR  ERASA 

ELE 

0473 

0474 

1077 

IICO 

1077 

1103 

SAMPLIM 

SAMPLSUM 

ERASE 

ERASE 

+ 3 

0475 

1104 

1105 

TIMEHOLO 

ERASE 

+ 1 

0476 

REF 

1 

1100 

RRTARGET 

EQUALS 

S AMPLSUM 

0477 

1106 

1107 

TANG 

ERASE 

+ 1 

0478 

REF 

1 

1106 

MOCEA 

EQUALS 

TANG 

0479 

1110 

1111 

MODES 

ERASE 

+ 1 

0480 

REF 

1 

1110 

NSAMP 

EQUALS 

MODEB 

0481 

1112 

1112 

CESRET 

ERASE 

0482 

REF 

1 

U12 

OLOATAGD 

EQUALS 

DESRET 

0483 

1113 

1113 

DESCOUNT 

ERASE 

R0484 

4 >|t 

P22 

0486 

A0487 

REF 

1 

1100 

RSUBC 

EQUALS  P.RTAPG 
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DESIRE  TRUNNION  AND  SHAFT  ANGLESo 

CODES  LOBBERS  TANG  +2o 

USED  I DATA  READING  ROUTINESo 

(6D  I 

I(6IS-S  CSM  POSITION  VECTOR 
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P04B8  UNSGITCHEC  FCR  CRBIT  INTEGRATION, 


0490 

1114 

1140 

TCEC 

ERASE 

•t2nc 

0491 

REF 

1 

1116 

COLREG 

EQUALS 

TDEC 

+ 2 

C492 

REF 

1 

1117 

LAT 

EQUALS 

COLREG 

■H 

0493 

REF 

1 

1121 

LCNG 

EQUALS 

LAT 

+2 

0494 

REF 

1 

1123 

ALT 

EQUALS 

LONG 

+ 2 

0495 

REF 

1 

1125 

YV 

EQUALS 

ALT 

+2 

0496 

R EF 

3 

1133 

ZV 

EQUALS 

YV 

+ 6 

A 0497 

R0498 

MISCELLANEOUS  UNSWITCHED, 

0500 

1141 

1141 

P40/RET 

ERASE 

0501 

1142 

1142 

GENRET 

ERASE 

0502 

1143 

1143 

CPTIONl 

ERASE 

0503 

1144 

1144 

0PTIGN2 

ERASE 

0504 

1 145 

1145 

CPTI0N3 

ERASE 

0505 

1146 

1147 

LONGCADR 

ERASE 

+ 1 

0506 

1150 

1151 

LONGBASE 

ERASE 

+ 1 

0507 

1152 

1153 

LONGTIME 

ERASE 

+ 1 

0508 

1154 

1154 

CDUTEMPX 

ERASE 

0509 

1155 

1155 

CDUTEMPY 

ERASE 

0510 

1156 

1156 

CDUTEMPZ 

ERASE 

0511 

1157 

1157 

PIPATMPX 

ERASE 

0512 

1160 

1160 

P I PATMPY 

ERASE 

0513 

1161 

1161 

PI PATMPZ 

ERASE 

0514 

1162 

1162 

C ISPDEX 

ERASE 

0515 

1163 

1163 

TEMPR6a 

ERASE 

0516 

■ 1164 

1164 

PRIOTI ME 

ERASE 

R0517 

P27 

(LPDATE  PROGRAM 

) STCPAGEo 

0519 

1165 

1165 

UPVERBSV 

ERASE 

0520 

116  6 

1216 

UPTEMP 

ERASE 

+ 24D 

0521 

REF 

1 

1166 

INTWAKIQ 

EQUALS 

UPTEMP 

R0522 

retain  ■ 

THE  ORDER  OF 

COMPNUMB  THRU  UPBUFF  +19D  FOR 

DOWNLINK  PURPOSES, 

0523 

REF 

2 

LAST  104 

1167 

COMPNUMB 

EQUALS 

UPTEMP  +1 

0524 

REF 

1 

1170 

UPCLDMQD 

EQUALS 

COMPNUMB 

+ 1 

0525 

REF 

1 

■ 1171 

UPVERB 

EQUALS 

UPOLDMOD 

+ 1 

0526 

REF 

1 

1172 

UPCCUNT 

EQUALS 

UPVERB 

+ 1 

0527 

A0528 

REF 

1 

1173 

UPBLFF 

EQUALS 

UPCCUNT 

+ 1 

R0529 

SPECIAL  DEFIMTICN  FCR 

SYSTEM 

TEST  ERASABLE  PGMS, 

0531 

A0532 

REF 

3 

LAST  104 

1166 

EBUF-J 

EQUALS 

UPTEMP 
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B(1 ) NCUN  06  USES  THIS 

8(1)  NCUN  06  USES  THIS 

B(l)  NOUN  06  USES  THIS 
e(2)  LONGCALL  REGISTER 

B(2 ) LONGCALL  REGISTER 

BO  )TMP 

B( 1 )TMP 

BO  )TMP 

B( 1 ) TMP 

P ( 3 )TMP 

B(1  )TMP 


6(3) 
B(  1 ) 
Ed  ) 


( 260) 

BO)  UPDATE  VERB  ATTEMPTED, 

BOITMP  SCRATCH 

(BORROWS  UPTEMP  REGISTERS) 

B(3)TMP  NUMBER  OF  ITEMS  TC  BE  UPLINKED 

B(1)TMP  INTERRUPTED  PROGRAM  MM 

BO  )TMP  VERB  NUMBER 

B(1)TMP  UPRUFF  INDEX 

B(200) 


( 2C) 

6(2)  FOR  EXCLUSIVE  USE  OF  SYSTEM  TEST 
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R0533 

PERM  STATE  VECTORS  FOR 

BOOST 

AND  DOWNLINK-WHOLE  MSSICN- 

0535 

1217 

1224 

RN 

ERASE  +5 

0536 

1225 

12  32 

VN 

ERASE  +5 

0537 

1233 

1234 

PIPTIME 

ERASE  +1 

R053e 

SERVI  CEP, 

-MUST  FCLLCW 

PIPTIME- 

0540 

1235 

1256  GDT/2  erase 

+ 1 7D 

0541 

PEF 

1 

1243 

MASS  EQUALS 

&UT/2 

+ 6 

0542 

REF 

1 

1243 

WEIGHT/G  = 

MASS 

0543 

REF 

2 

LAST 

10  5 

1245 

ABDELV  EQUALS 

MASS 

+ 2 

0545 

REF 

1 

1246 

PGUIDE  EQUALS 

ABCEL V 

+ 1 

0546 

REF 

1 

12  50 

DVTHRUSH  EQUALS 

PGUIDE 

+ 2 

0547 

REF 

1 

1251 

AVEGEXIT  EQUALS 

DVTHRUSH 

+ 1 

0548 

REF 

I 

1251 

AVGEXIT  = 

AVEGEXIT 

0549 

REF 

2 

LAST 

10  5 

1253 

TEMX  EQUALS 

AVEGEXIT 

+ 2 

0550 

REF 

1 

1254 

TEMY  EQUALS 

TEMX 

+ 1 

055) 

REF 

1 

1255 

TEMZ  EQUALS 

TEMY 

+ 1 

0552 

A0553 

REF 

1 

1256 

PIPAGE  EQUALS 

TEMZ  +1 

R0554 

PERMANENT  LEM  DAP  STCRAGEo 

0556 

12  57 

1257 

CH5MASK 

ERASE 

0557 

1260 

1260 

CH6MASK 

ERASE 

05  5 8 

1261 

1261 

SPNDX 

ERASE 

0559 

A0560 

A0561 

A0562 

1262 

1262 

RCSFLAGS 

ERASE 

A056A 
A0565 
A0566 
A 0567 
A0568 
A0569 
AC570 


0571 

1263 

1264 

T5ADR 

ERASE 

+ 1 

A0572 

R0573 

ERASABLES  FDR  RADAR  READ  FRGTECTICN  (C13STALL) 

0575 

1265  1265 

C130SAV 

ERASE 

0576 

1266  1266 

C13FSAV 

ERASF 

0577 

1267  1267 

RAGTIME 

ERASE 
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121  PSKIP  CCNTRCL  (PJUMPADR) 
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0578 

1270 

1270 

RADDEL 

ERASE 

A0579 

R0580 

RACAREAD  STORAGE 

0582 

1271 

1272 

TTCT  IG 

ERASE  +1 

A0583 

R058A 

RCS  FAILURE  MCMTCR 

STORAGE 

0586 

1273 

1273 

PVALVEST 

ERASE 

R0587 

KALCMANU/DAP  INTERFA 

CEo 

0589 

1274 

1274 

DELPEROR 

ERASE 

0590 

1275 

1275 

DELQEROR 

ERASE 

0591 

1276 

1276 

OELREROR 

ERASE 

R0592 

MODE 

SWITCHING  ERASABLE, 

R0594 

RETA  IN 

1 THE 

ORDER 

OF  IMO0ES3O 

AND  IMODES33  FOR 

DOWNLII 

NK  PURPOSES, 

C595 

1277 

1277 

IMCDES30 

ERASE 

0596 

1 300 

13C0 

I MCDES33 

ERASE 

0597 

1301 

1303 

MOCFCADR 

ERASE 

+ 2 

0598 

REF 

1, 

1301 

IMUCACR 

EQUALS 

MOCECADR 

0599 

REF 

2 

LAST 

10  6 

1302 

OPTCAOR 

EQUALS 

MOCECADP 

+ 1 

0600 

REF 

3 

LAST 

106 

1303 

RACCADR  ' 

EQUALS 

MODECADR 

+ 2 

0601 

.1304 

1306 

ATTCADR 

ERASE 

+ 2 

0602 

REF 

1 

13C6 

ATTPRI 0 

= 

ATTCADR 

+ 2 

0603 

1307 

1307 

MARKSTAT 

ERASE 

R0604 

T4RUPT  ERASABLEo 

0606 

1310 

1310 

DSRUPTSW 

ERASE 

0607 

1311 

1311 

LGYRO 

ERASE 

R0608 

R ENDEZVOUS 

radar  task 

STORAGE 

0610 

;3i2 

1314 

RRRET 

ERASE 

+ 20 

0611 

REF 

1 

1313 

PDFS 

EQUALS 

RRRET 

+ 1 

0612 

REF 

1 

1314 

RR INDE  X 

EQUALS 

RDES 

+ 1 

A0613 

R0614 

MEASINC 

0616 

1315 

1315 

WI  XA 

ERASE 

0617 

1316 

1316 

WIXB 

ERASE 

0618 

1317 

1317 

ZI  XA 

ERASE 
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USER'S  PAGE  NCe  17  EO  SA 

B(l)  DELTA  TIME  FRCM  SCALAR  READ  TO  T5<, 

(201 

6(2)  LATEST  ESTIMATE  OF  TIME  TO  IGNITION 

( 1) 

B( 3 ) PRM 

(3D) 

a(  DPRM  COMMAND  LAGSr, 

R(1  )PRM 
B ( 1 ) PRM 

(9D  ) 

B(  1 ) 

B(3) PRM 

B( 3 )PPM 

(2D  ) 

( 1 ) 

(3D) 

B(1)TMP  P2n'S.  PERHAPS  R29  £ R3 2 
6(1  )TMP 
B(1 )TMP 

(^'D) 

B(  1) 

P ( 3 ) 

B(1  ) 
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L 

ERASABLE 

ASSIGNMENTS 

0619 

1320 

1320 

ZIXB 

ERASE 

R0620 

AGS 

DUMMY  ID  WORDo 

0622 

1321 

1321 

AGSWORD 

ERASE 

R0623 

SOME 

MISCELLANEOUS  UNSWITCHEDo 

0625 

1322 

1322 

RATEINDX 

ERASE 

0626 

1323 

1325 

CELAYLCC 

ERASE 

+ 2 

0627 

1 326 

1326 

LEMMASS 

ERASE 

0628 

R0629 

LESS 

IS 

MOREo 

1327 

1327 

CSMMASS 

EP  ASE 

R0630 

RENDEZVOUS  AND  LANDING  RACAR 

DOWNLINK  STOPAGEo 

R0632 

( NORMALLY  USED  CURING 

P20,  BUT  MAY  ALSO) 

R06J3 

( BE  REQUIRED 

FOR  THE 

V62  SPURIOUS  TESTo ) 

R0634 

(PLEASE  KEEP  IN  THIS  ORDER ) 

0635 

1330 

1336 

DNRRANGE 

ERASE 

+6 

0636 

PEF 

1 

1331 

ONRRDOT 

EQUALS. 

DNRRANGF 

+ 1 

0637 

PEF 

1 

1332 

CN  INDEX 

EQUALS 

DNRRDOT 

+ 1 

0638 

REF 

1 

1333 

ONLRVELX 

EQUALS 

DNI NDEX 

+ 1 

0639 

REF 

1 

1334 

DNLRVELY 

EQUALS 

DNLFVEL  X 

+ 1 

0640 

REF 

1 

1335 

ONLRVELZ 

EQUALS 

CNLPVELY 

+ 1 

0641 

REF 

1 

. 1336 

DNLRALT 

EQUALS 

ONLRVELZ 

+ 1 

R0642 

INCCRPORATICN  UNSWITCHEOo 

0644 

REF 

1 

12  56 

Wo  IND 

EQUALS 

P I PAGE 

0645 

PEF 

i 

1257 

W»  IND1 

EQUALS 

Wo  IND 

+ 1 

R0646 

SLBRQLTINE  BALLANGS 

CF  R60o 

0648 

1337 

1337 

BALLEXIT 

ERASE 

RC649 

SOME 

LEM  DAP  STORAGE 

0651 

1340 

1340 

DAPDATR] 

ERASE 

0652 

1341 

1342 

TEVENT 

ERASE 

+ 1 

0653 

A0654 

1343 

1343 

DB 

ERASE 

R0655 

NOUN 

87 
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USER'S  PAGE  NCo  18  EC  SA 

B(  1 I 
(1C) 


(6DI 

(1)  USED  BY 
KEEP  CONTIGUOUS 


KALCMANU 

Wo  CSMMASS  (l)EACH 


(701 


B(  1 ) TMP 
B(  1 I TMP 
B( 1 )TMP 
Ed  )TMP 
B(  11 TMP 
6(1  )TMP 
R(l)  TMP 


( 20  I 

B(1  ) 
1(1) 


(ID) 

B(1 )SAVE  LOCATION  FOR  BALLINGS  SUBR  EXIT 


4D  ! 

) 

>() 

) DSP 

DAP  CONFIG. 

(2) 

DSP 

(1 

(TMP 

DEAD  BANOo 

( 2D  ) 


GAP  : 
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L 

ERASABLE 

ASSIGNMENTS 

USFR  'S  PAGE  NO,  J9  EC  S4 

0657 

1344 

1345 

AZ 

ERASE 

+ 1D 

B(i)  AZ  AND  EL  MUST  BE  CONTIGUOUS 

0658 

REF 

1 

1345 

EL 

EQUALS 

AZ  -HD 

B(  1 ! 

A0659 

R0660 

P63  , P64,  P65,  P66,  ANC 

P67o 

( 10) 

0662 

1346 

1346 

WCHPHASE 

ERASE 

6(1  ) 

A0663 

R0664 

PADLOACS  FOR  R2  LUNAR  FCTENTIAL 

. MODEL, 

( 2D  ) 

0666 

134-7 

1347 

E3J22R2M 

ERASE 

1(1) 

0667 

1350 

1350 

E22C31RM 

ERASE 

1(1) 

A0668 

R0669 

PACLOAOS  FOR  R12  DOPPLER  COMPENSATION 

(30 

0671 

1351 

1352 

RADSKAL 

ERASE 

+ 1 

LR  ALT  DOPPLER  BIAS  : 2T/LAMBDA  SCALED 

A0672 

AT  l/(2(7)  M/CS) 

0673 

13  53 

1353 

SKALSKAL 

ERASE 

LR  ALT  SCALE  FACTOR  RATIO  : ,2  NOM 

A 0674 

R0675 

ERASABLES  FOR  TRUNMCN 

AND  SHAFT  CCMMANCS 

(2D) 

0677 

1354 

1354 

TRUNNCMD 

ERASE 

*4*  THESE  TWO  EPASABLES 

0678 

1355 

1355 

SFAFTCMD 

ERASE 

***  MUST  BE  IN  ORDER  *** 

A0679 

R06792 

ERASABLE  FOR  REGISTER  3 

CF  NOUN 

49 

( ID  ) 

06796 

13  56 

1356 

WHCHREAD 

ERASE 

B(3)T(AP  MEASUREMFNT  BEING  PROCESSED, 

A06798 

R0680 

LANCING  PACLCAC 

( ID  ) 

06802 

PEF 

1 

1356 

ELBI AS 

EQUALS 

WHCHREAD 

B(l)  PL  LPO  ELEVATION  BIAS,  PI  RADIANS, 

06803 

1377 

EN  D-UE 

EQUALS 

1377 

R0681 

SELF-CHECK  ASSIGNMENTSo 

(170 

R0683 

(DO  NOT 

MOVE,  S-C 

IS  ADDRESS  SENSITIVE) 

0684 

I 357 

1377 

SELFERAS 

ERASE 

1357  - 1377 

444  MUST  NOT  BE  MOVED  444 

0685 

REF 

1 

1357 

SFAI  L 

EQUALS 

SELFERAS 

Ed  ) 

0686 

REF 

1 

1360 

ERESTORE 

EQUALS 

SFAIL 

+ 1 

B(l) 

0687 

REF 

1 

1361 

SELFRET 

EQUALS 

ERESTORE 

+ 1 

B ( 1 ) RETURN 

0688 

REF 

1 

1362 

SMODE 

EQUALS 

SELFRET 

<•1 

Bd  ) 

0689 

PEF 

1 

1363 

ALMCACR 

EQUALS 

SMODE 

+ 1 

B(2)  ALARM-ABORT  USER'S  2CADR 

0690 

REF 

1 

1365 

ERCCUNT 

EQUALS 

ALPCADR 

+2 

Bd  ) 

GAP 
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L ERASABLE  ASSIGNMENTS 


0691 

REF 

1 

1366 

SCOUNT 

EQUALS 

ERCOUNT 

0692 

REF 

1 

1371 

SKEEPl 

EQUALS 

S COUNT 

0693 

REF 

1 

1372 

SKEEP2 

EQUALS 

SKEEPl 

0694 

REF 

1 

1373 

SKEEP3 

EQUALS 

SKEEP2 

0695 

REF 

1 

1374 

SKEEP4 

EQUALS 

SKEEP3 

0696 

REF 

1 

1375 

SKEEP5 

EQUALS 

SKEEP4 

0697 

REF 

1 

1376 

SKEEP6 

EQUALS 

SKEEP5 

0698 

REF 

1 

1377 

SKEEP7 

EQUALS 

SKEEP6 

17:53  OECo  19,1969  LUMERASEol3A 
USER'S  PAGE  MOo  20 


PAGE 
EO  S4 


109 


+ 1 

B(3) 

+3 

Bill 

+ 1 

Bill 

+ 1 

B(  1 1 

+ 1 

Bin 

+ 1 

Bill 

+ 1 

Bill 

+ 1 

Bill 

GAP:  ASSENBLE  REVISION  131  OF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021112-091 

L ERASABL  E ASSIGNMENTS 


P0699 

EBANK-3  ASSIGNMENTS 

0700 

E3,1400 

S ETLCC 

lAOO 

R0701 

WAITLIST  TASK  LISTSo 

0703 

E3,1A00  E3,1407 

LSTl 

ERASE 

+ 7 

070A 

E3,1A10  E3,1A31 

LST2 

ERASE 

+ 170 

R0705 

RESTART  STORAGEo 

C7C7 

E3,1432 

E3  ,1433 

RSBBO  ERASE 

+ 1 

R0708 

MORE  LONGCALL  STORAGE 

o(MUST  RE 

IN  LSTl  S BANKo 

0710 

E3,1A34 

E3,1435 

LQNGEXIT  ERASE 

+ 1 

R0711 

PHASE-CHANGE  LISTS  1 

PART  IIo 

0713 

E3,1436 

E3,1436 

PHSNAMEl 

ERASE 

0714 

E3,1437 

E3 ,1437 

PHSBBl 

ERASE 

0715 

E3,  1440 

E3,  1440 

PHSNAME2 

ERASE 

0716 

E3 ,1441 

E3,1441 

PHSBe2 

ERASE 

0717 

E 3, 1 442 

E3 ,1442 

PHSN'AME3 

ERASE 

0718 

E3, 1443 

E3, 1443 

PHSBB3 

ERASE 

0719 

E3 ,1444 

E 3, 1444 

PHSNAME4 

ERASE 

0720 

E 3, 1445 

E3, 1445 

PHSBB4 

ERASE 

0721 

E3 ,1446 

E3,1446 

PHSNAME5 

ERASE 

0722 

E3 ,1447 

E3,1447 

PHSBB5 

ERASE 

0723 

E3, 1450 

E3, 1450 

PHSNAME6 

ERASE 

0724 

E3  ,1451 

E3,1451 

PHSBB6 

ERASE 

R0725 

IMU  COMPENSATION  PARAMETERS, 

0727 

E3,1452 

E3, 1452 

PEIASX 

ERASE 

0728 

REF 

1 E3,1452 

PI PABI AS 

= 

PBIASX 

0729 

E3,1453 

E 3 , 1 4 5 3 

PIPASCFX 

ERASE 

0730 

REF 

1 £3,1453 

PIPASCF 

= 

PIPASCFX 

0731 

E3,1454 

E3,1454 

PBIASY 

ERASE 

0 732 

E3,1455 

E3, 1455 

PI PASCFY 

ERASE 

0733 

E3  ,1456 

£3,1456 

PBIASZ 

ERASE 

0734 

£3,1457 

E3,1457 

PI PASCFZ 

ERASE 

0735 

E3 ,1^60 

E3, 1460 

NECX 

ERASE 

0736 

E3,1461 

E3,1461 

NRDY 

ERASE 

0737 

E3, 1462 

E3, 1462 

NBDZ 

ERASE 
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..1 

USER'S  PAGE  MOo  21  EO  SA 


(2f  D) 

BieOlPRM  DELTA  T Sr. 

B(18D)PRM  TASK  BCACR  ADDRESSESo 


- '..E 

(201  ' ■ ■ 
B(2)PRM  SAVE  BB  AND  0 FOR  RESTAPTSo 


(2D) 

B(2ITMP  MAY  BE  SELDOM  OVEPLAYEDo 


(12C) 

P(  1 )PRM 
B(1 IPRM 
B(I  )PRM 
B(  1 IPRM 
B(1 IPRM 
B ( 1 I PPM 
B(  1 IPRM 
Ed  IPRM 
B( 1 I PRM 
B( 1 IPRM 
B(1 IPRM 
B( 1 IPRM 


(220) 

Bd)  PIPA  BIAS,  PIPA  SCALE  FACTR  TERMS 
INTEPMIKEDo 


GYPO  BIAS  DRIFTS 


GAP: 

L 

0738 

0739 

0740 

0741 

0742 

0743 

0744 

0745 

0746 

0747 

40748 

R0749 

R0751 

R0752 

R0753 

R0754 

R0755 

R0756 

0757 

R0758 

0759 

0760 

0761 

0762 

0763 

0764 

0765 

0766 

0767 

0768 

R0769 

R0771 

R0772 

0773 

0774 

0775 
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ERASABLE  ASSIGNMENTS 


USER  • S PAGE  NC«  22  EO  S4 


REF  1 

REF  2 LAST  111 


E3,1A63 
E3, 1464 
E3 ,1465 

E3,1463 
E3, 1464 
E3 ,1465 

AOl  AX 
ADIA  Y 
ADIAZ 

ERASE 

ERASE 

ERASE 

ACCELERATION  SENSITIVE  DRIFT  ALONG 
INPUT  AXIS 

THE 

E3,14e6 
E3, 1467 

E3,1466 
E3, 1467 

ADSRAX 

ADSRAY 

ERASE 

ERASE 

ACCELERATION  SENSITIVE  DRIFT  ALONG 
SPIN  REFERENCE  AXIS 

THE 

E3,1470 

E3 ,1470 

ACSRAZ 

ERASE 

E3, 1471  ■ 

E3, 1476 

GCOMP 

ERASE 

+ 5 

CONTAINS  COMPENSATING  TORQUES 

E3  ,1471 
E3,1474 

COMMAND 

COUINC 

EQUALS 

EQUALS 

GCOMP 

GCCMP 

+3 

E3, 1477 

E3, 1477 

GCOMPSW 

ERASE 

STATE  VECTORS  FOR  ORBIT  INTEGRATIONo  (44CI 

(CIFEQCNT  THRU  XKEP  MUST  BE  IN  SAME 
EBANK  AS  RRECTCSM,  RRECTLEM  ETC 
BECAUSE  THE  COP  Y-C  YC  L E S ' ( ATOPC  SM  , 

PTOACSM  ETC)  ARE  EXECUTED  IN  BASICc 
ALL  OTHER  REFERENCES  TC  THIS  GROUP 
ARE  BY  interpretive  I N S TR  UC  T I ONSo  ) 


E 3, 1500 

E3,1553 

CIFEQCNT 

ERASE 

+ X..3D 

8(1) 

(UPSVFLAGaaoXKEP 

MUST  BE  KEPT  IN 

CRDEP) 

REF 

1 

E3  ,1501 

UPSVFLAG 

EQUALS 

D I FEQCNT 

+ 1 

6(1) 

REF 

1 

E3, 1502 

RRECT 

EQUALS 

UPSVFLAG 

+ 1 

B (6  ) 

REF 

1 

E3,1510 

VRECT 

EQUAL  S 

RR  ECT 

+ 6 

B(6) 

REF 

1 

E3  ,15  16 

TET 

EQUALS 

VRECT 

+ 6 

8(2) 

REF 

1 

E3, 1 520 

TOELTAV 

EQUALS 

TET 

+ ? 

B(6) 

REF 

1 

E3,1526 

TNUV 

EQUALS 

TDELTAV 

+ 6 

B(  6) 

REF 

1 

E3,1534 

RCV 

EQUALS 

TNUV 

+ 6 

B(6  ) 

REF 

1 

E3, 1542 

VCV 

EQUALS 

RCV 

+ 6 

6(6) 

REF 

1 

E3  ,1550 

TC 

EQUALS 

VCV 

+ 6 

B(  2) 

REF 

1 

E3,1552 

XKEP 

EQUALS 

TC 

+2 

6(2  ) 

PERMANENT  STATE  VECTCRS  AND  TIMESa 

(DO  NOT  OVERLAY  V,ITH  ANYTHING  AFTER  BCCST  I 

(RRECTCSM  aaaXKEPCSM  MLST  BE  KEPT  IN  THIS  CRDERI 


E3,1561 


RRECTCSM  ERASE  +5 
RRECTOTH  = RRECTCSM 

VRECTCSM  ERASE  +5 


( 99D) 


B(6)PRM  CSM  VARIABLES. 


REF 


1 


E3  ,1554 
E3  ,1554 
E3, 1562 


E3, 1567 


B (6  ) PRM 
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0776 

E3,157C 

E3 ,1571 

TETCSM 

ERASE 

+1 

0777 

REF 

1 

E3,1570 

TETOTFER 

= 

TETCSM 

0778 

E3 ,1572 

£3,1577 

CELTACSM 

ERASE 

+ 5 

0779 

E3, 1600 

E3, 1605 

NUVCSM 

ERASE 

+ 5 

0780 

£3,1606 

E3, 1613 

RCVCSM 

ERASE 

+ 5 

0781 

E3 ,1614 

E3 ,1621 

VCVCSM 

ERASE 

+ 5 

0782 

E3 , 1622 

E3 , 1623 

TCC  SM 

ERASE 

+ 1 

0783 

E3 ,1624 

£3,1625 

XKEPCSM 

ERASE 

+ 1 

R0784 

(RRECTLEM  ocoXKEPLEI' 

MUST  EE 

KEPT  IN  THIS  CRDERI 

0785 

E3,1626 

E3, 1633 

RRECTLEM 

ERASE 

+ 5 

0786 

REF 

1 

E3,1626 

RRECTHIS 

= 

RRECTLEM 

Q787 

E3, 1634 

E 3, 1641 

VRECTLEM 

ERASE 

+ 5 

0788 

E3 ,1642 

E3, 1643 

TETL  EM 

ERASE 

+ 1 

0789 

REF 

1 

E3,1642 

TETTHIS 

= 

TETLEM 

0790 

E3, 1644 

E3, 1651 

DFLTALEM 

EPASE 

+ 5 

0791 

E3  ,1652 

£3,1657 

NUVLEM 

ERASE 

+5 

0792 

E?,1660 

E3,1665 

RCVLEM 

ERASE 

+ 5 

0793 

E3, 1666 

E3,  1673 

VCVL  EM 

ERASE 

+ 5 

0794 

E3,1674 

E3 ,1675 

TCLEM 

ERASE 

+ 1 

0795 

F3, 1676 

E3, 1677 

XKEPLEM 

ERASE 

+ 1 

0796 

E3,1700 

E3 ,1705 

X7e9 

ERASE 

+ 5 

07  97 

E3,1706 

E3 ,171  0 

TFPHEM 

ERASE 

+2 

0798 

E3, 1711 

E3,  1712 

AZC 

ERASE 

+ 1 

0799 

E3 ,1713 

E3 ,1714 

-AYO 

ERASE 

+ 1 

0800 

E3,1715 

E3,1716 

AXC 

ERASE 

+ 1 

A0801 


R0802 

STATE  VECTORS  FOR  DC8NLINK0 

0804 

E3, 1717 

E3, 1724 

R-CTHER 

ERASE 

+5 

0805 

£3  ,1725 

E3 ,1732 

V-OTHER 

ERASE 

+5 

0806 

REF 

2 LAST  112 

E3,1570 

T-CTHER 

= 

TETCSM 

R0807 

REFSMMATo 

0809 

E3,1733 

E3 ,1754 

REFSMMAT 

ERASE 

+ 170 

R0810 

ACTIVE  VEHICLE  CENTANGo  MUST 

BE  DISPLAYED  ANYTIME  (ALMOST, 

0812 

A0813 

E3  ,1755 

£3,1756 

ACTCENT 

FR/iSt 

+ 1 

R0814 

#44*  USED  IN 

CCMCS  EX 

(PLAN  INERT 

OR  lENT 1 
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B(2  IPRM 

B(  6 IPRM 
B(6 IPRM 
BIEIPRM 
B( 6 IPRM 
PIP  I PRM 
B( 2 IPRM 


B(6I PRM  LEM  VARIABLES 

B(6 I PRM 
B( 2 IPRM 

B(6I PRM 
B(  f.  IPRM 
B (6  I PRM 
B(6I PRM 
B( 2 IPRM 
6(2 IPRM 


I 1 2 D I 


BIEIPRM  POS  VECT  (CTHEP  VECHI  FOR  CNLINK 
B(6IPRM  VEL  VECT  (CTHFR  VECHI  FOR  DNLINK 


TIME  (OTHER  VECHI  FOR  DNLINK 


( IPDI 
I ( 18D IPRM 

I (201 

1(21  S-S  CENTRAL  ANGLE  PETWEFN  ACTIVE 
VEHICLE  AT  TPI  TIG  AND  TARGET  VECTOR^ 


GAP: 


L 


0B15 

A0816 


R0817 


08)9 

0820 

0821 

A0822 


RC823 

0825 

A0826 


R0827 


0829 

0830 

0831 

0832 
A 0833 


R083A 


0836 

A0e37 


0838 
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REF  1 E3,1706  TIMSUBO  EQUALS  TEPHEM 


LPS20, 1 STORAGE  -ALL  ARE  PRM  - 


E3, 1757 

E3, 1757 

LS21X 

ERASE 

E3  ,1760 

£3,1765 

LOSVEL 

ERASE 

+ 5 

E3,1766 

E3,1767 

MLCSV 

ERASE 

+ 1 

P22  (OVERLAYS  LPS  20* 

1 STORAGE) 

E3, 1760 

VSLBC 

EQUALS 

LOSVEL 

PADLOADED  ERASABLES 

FOR  P20/P22 

E 3,  1770 

E3, 1771 

RANGE  VAR 

ERASE 

+ 1 

E3  ,1772 

E3,1773 

RATEVAR 

ERASE 

+1 

E3,1774 

E3,1774 

PVARMIN 

ERASE 

E3 ,1775 

E3, 1775 

WARM  IN 

ERASE 

P22-P23  STORAGE 

E3  ,1776 

E3,1777 

TCCH 

ERASE 

+ 1 

■E3,1777 

EN0-E3 

EQUALS 

I 777 
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1(1) 

1(61 

1(2)  MAGNITUDE  OF  LOS,  METERS  8-29 


( 6D  ) 

I(6)S-S  CSM  VELOCITY  VECTOR 


(60  ) 

1(2)  RR  RANGE  ERROR  VARIANCE 
1(2)  RR  RANGE-RATE  FRROR  VARIANCE 
1(1)  MINIMUM  RANGE  ERROR  VARIANCE 
1(1)  MINIMUM  RANGE-PATE  ERROR  VARIANCE 


(20  ) 

1(2)  T2  CDH  TIME  IN  C So  (ALSO  DOWNLINKED 


YY  LAST  LCCATICN  USED  IN  E3  ** 
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USER'S  PAGE  MO,  25 

E(;  S4 

P0839 

EBANK-4  ASSIGNMENTS 

0840 

E4,1400 

SETLOC  2000 

R0841 

E4  IS, 

FOR  THE  MOST  PART  RESERVED  FOR 

PAD  LOADED 

AND  UNSHARARLE 

ERASE, 

0842 

E4, 1,400 

AM  EMORY 

EQUALS 

R0843 

P20  STORAGEo  -PAD  LCADED- 

(6D  1 

■ 0845 

E4,1400  E4,1400 

WRENDPCS 

ERASE 

B(1 1 PL 

KM*2 (-7 1 

0846 

E4,1401  E4,1401 

WRENDVEL 

ERASE 

B( 1 )PL 

KM(-1/2I*2(11 1 

0 847 

E4,1402  E4,1402 

RSHAFT 

ERASE 

B(1 1 PL 

KM*2(-7) 

0848 

£4,1403  E4,1403 

WTRUN 

ERASE 

B(] ) PL 

KM#2(-7I 

0849 

E4,1404  E4,1404 

RMAX 

ERASE 

B(  1 )PL 

METERS*2(-19I 

0850 

£4,1405  E4,J4C5 

VMAX 

ERASE 

B(1  )PL 

M/CSEC#2(-7I 

R0851 

LLNAR  SURFACE  NAVIGATION 

( 2D  ) 

0853 

E4,1406  E4,X406 

NSURFPOS 

ERASE 

8(1  IPL 

0854 

E4,1407  E4,1407 

WSURFVEL 

ERASE 

B( 1) PL 

A0855 

R0856 

P22  STORAGEe  -PAD  LOADED- 

(2D  ) 

0858 

E4,1410  E4,1410 

SHAFTVAR 

ERASE 

8( 1 IPL 

RAD  SQ42(12I 

0859 

E4,1411  E4,1411 

TRUNVAR 

ERASE 

BdlPL 

RAD  SQ*2(10) 

R0860 

CONISEX  STORAGEo-PAC  LCADED- 

(6DI 

0862 

E4,1412  E4,1417 

504LM 

ERASE 

+ 5 

I(6IM00N  LIBRATION  VECTOR 

A0863 

R0864 

V47(R47I  AGS  INITIALIZATION  STORAGE,  -PAD  LOADED- 

( 20  1 

0866 

E4,1420  E4,1421 

AGSK 

ERASE 

+ l 

R0867 

LUNAR  LANDING  STORAGE,  -PAD  LOADED- 

(6D) 

0869 

E4,1422  E4,1427 

RLS 

ERASE 

+ 5 

1(61  LANDING  SITE  VECTOR  - 

PIOON  REF 

A0870 

R0871 

integration  storage. 

( 10  2D  I 

0873 

E4,1430  E4,1575 

PBCDY 

ERASE 

+101  0 

1(11 
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0874 

REF 

1 

E4 ,1^31 

ALPFAV 

EQUALS 

PBODY 

0875 

REF 

1 

F4,1437 

BETAV 

EQUALS 

ALPHAV 

0876 

REF 

1 

E4, 1445 

PHI  V 

EQUALS 

BETAV 

0877 

REF 

1 

E4 ,1453 

PS  IV 

EQUALS 

PHIV 

0678 

REF 

1 

E4, 1461 

FV 

EQUALS 

PSI  V 

0879 

REF 

1 

E4, 1467 

ALPHAM 

EQUALS 

FV 

0880 

REF 

1 

E4,1471 

BETAM 

EQUALS 

ALPHAM 

0881 

REF 

1 

E4, 1473 

TA  Uo 

EQUALS 

BETAM 

0882 

REF 

1 

E4,,1475 

CT/2 

EQUALS 

TAUo 

0883 

REF 

1 

E4, 1477 

H 

EQUALS 

DT/2 

0884 

REF 

1 

E4, 1501 

GMODE 

EQUALS 

H 

0885 

REF 

1 

E4,1502 

IRETURN 

EQUALS 

GMODE 

0886 

REF 

1 

E 4, 1503 

normgam 

EQUALS 

I RETURN 

0887 

REF 

1 

E4, 1504 

RPQV 

EQUALS 

NORMGAM 

0888 

REF 

1 

E4, 1512 

GRIGEX 

EQUALS 

RPQV 

0889 

PEF 

1 

E4, 1512 

KEPR  TN 

EQUALS 

ORIGEX 

0890 

REF 

2 

LAST  115 

E4  ,)  513 

RQVV 

EQUALS 

OR IGEX 

0891 

REF 

1 

E4, 1521 

RPSV 

EQUALS 

ROW 

0892 

REF 

1 

E4,1527 

XKEPNE  W 

EQUALS 

RPSV 

0893 

REF 

1 

E4 ,1531 

VECTAB 

EQUALS 

XKEPNEW 

0894 

A0895 

REF 

1 

E4, 1574 

VECTABND 

EQUALS 

VECTAB 

R 0896 

THESE 

PROBABLY  CAN  SHARE 

MIC-CCURSE  VARIABLES,, 

0898 

REF 

2 

LAST 

115 

E4,  3 537 

VACX 

EQUALS 

VECTAB 

0899 

REF 

1 

■£4,1541 

VACY 

EQUALS 

VACX 

0900 

REF 

1 

E4,1543 

VACZ 

EQUALS 

VACY 

R0901 

SERVICER 

STORAGE  (USED 

BY  ALL 

POWERED 

FLIGHT 

PR  OGSo  ) 

0903 

REF 

3 

LAST 

115 

E4,1545 

XNEPIP 

EQUALS 

VECTAB 

0904 

PEF 

1 

E4, 1553 

YNBPI P 

EQUALS 

XNBPI P 

0905 

A0906 

REF 

1 

E4,1561 

ZNBP  IP 

EQUALS 

YNBPIP 

R09()7 

SOME 

VERB 

82  STORAGE 

0909 

REF 

2 

LAST 

115 

E4 ,1517 

HAPOX 

EQUALS 

RQVV 

0910 

A0911 

R EF 

1 

E 4, 1521 

HPERX 

EQUALS 

HAPCX 

R0912 

V82  STORAGE 

0914 

A0915 

REF 

4 

LAST 

115 

E4, 1567 

VONE  • 

EQUALS 

VECTAB 

R0916 

R31( V83) 

STORAGEo  -SHARES  PITH 

I NTEGRATICN  STORAGE- 
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+6  1(2) 

+2  1(2) 

+2  1(2) 

+2  1(2) 

+2  1(2) 

+ 2 Id) 

+1  1(1) 

+ 1 Id) 

+ 1 

+6  1(1) 

1 (1  ) 

+1  1(6) 

+6  1(6) 

+6  1(2) 

+2  1(360) 

+35D  END  MARK 


(60) 

+6  1(2) 

+2  1(2) 

+2  1(2) 

(180) 

+120  1(6) 

+6  1(6) 

+6  1(6) 


(40  ) 

+4  1(2) 

+ 2 1(2) 


( 6C  ) 

+300  I(6)THP  NORMAL  VELOCITY  VONE  /SQRTo  MU 


(280.) 
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0918 

A0919 

REF 

2 

LAST 

115 

E4,1504 

BASEThV 

EQUAL  S 

RPQV 

1(6) 

BASE  VEL  VECTOR 

THIS 

VEH 

0920 

REF 

3 

LAST 

11  5 

E4, 1513 

BA  SETI WE 

EQUALS 

RQVV 

1(2) 

TIME  ASSCC  WITH 

BASE 

VECS 

0921 

REF 

4 

LAST 

15  6 

E4  ,1515 

ORIG 

EQUALS 

ROW 

+ 7 

1(1) 

=0  FOR  FARTH  =2 

EOR  MOON 

0922 

REF 

5 

LAST 

116 

E4, 1516 

STATEXI T 

EQUAL  S 

RQVV 

+3 

1(1) 

STQ  ADDRESS  FOP 

STATEXTP 

0923 

A0924 

REF 

6 

LAST 

116 

E4,1517 

BASEOTV 

EQUALS 

RQVV 

+ 4 

1(6) 

BASE  VEL  VECTOR 

OTHER 

VEH 

0925 

A0926 

REF 

5 

LAST 

11  5 

E4, 1537 

BA  SEOTP 

EQUALS 

VFCTAB 

+6 

I (6  ) 

BASE  PCS  VECTOR 

OTHER 

VEH 

0927 

A0928 

REF 

6 

LAST 

116 

E4,1567 

BASETHP 

equals 

VECTAB 

+ 30D 

1(6  ) 

BASE  POS  VECTOR 

THIS 

VEH 

R0929 

R0931 


KEPLER  STORAGE, 
CON  ICS  I 


(KEPLER  IS  CALLED  EY  PRECISION  INTEGRATION  AND  (2D) 


0932 

E4,1576 

E4, 1577 

EPSILONT 

ERASE 

+ 1 

1(2) 

A0933 

R0934 

VERB  83  STORAGE, 

(180 

0936 

E4 ,1600 

E4, 1621 

RANGE 

ERASE' 

+ 170 

I(2)DSP 

0937 

REE 

1 

E4,1602 

RRATE 

EQUALS 

RANGE 

+ 2 

I (2  )DSP 

0938 

REE 

1 

E4, 1604 

RTHETA 

EQUALS 

RRATE 

+ 2 

1(2) DSR 

0939 

REF 

1 

E4 ,1606 

PONE 

EQUALS 

RTHETA 

+ 2 

I ( 6 )TMP 

0940 

REF 

1 

E4,1614 

VONE 

EQUALS 

RONE 

+6 

I (6  )TMP 

( SCRATCH) 
( SCRATCH ) 


R094L 


VERB  67  STORAGE 


0942 

REE 

2 

LAST 

116 

E4,1600 

WWPOS 

= 

RANGE 

NOUN 

99 

( V67) 

0943 

REF 

2 

LAST 

116 

E4, 1602 

WWVEL 

= 

RRATE 

NOUN 

99 

(V67  ) 

0944 

REF 

2 

LAST 

116 

E4 ,1604 

WWBIAS 

RTHETA 

NOUN 

99 

( V67) 

R0945 

V82 

STORAGE 

o (CANNOT 

OVERLAY  RCNE  CR  VCNE) 

(110) 

TWO  SEPARATE  LOCATIONS 

0947 

REF 

7 

LAST 

116 

E4, 1537 

VR2FL AGS 

EQUAL  S 

VECTAB 

+ 6 

( 1 ) 

FOR 

V82  BITSc 

0948 

REF 

1 

E4,1540 

TFF 

EQUALS 

V82FLAGS 

+ 1 

1(2) 

0949 

REF 

1 

E4, 1542 

-TPER 

EQUALS 

TFF 

+ 2 

I (2  ) 

A0950 

0951 

REE 

3 

LAST 

116 

E4,16C0 

HPERMI N 

EQUALS 

RANGE 

1(2) 

SET 

TO  3P0KFT  OR  35KFT  FOR  SR30,  1 

0952 

REF 

1 

E4, 1602 

RPADTEM 

equals 

HPERMI N 

+ 2 

1(2) 

PAD 

OR  LANDING  RADIUS  FOR  SR30ol 

0953 

REF 

1 

E 4 ,1604 

TSTART82 

EQUALS 

RPADTEM 

+ 2 

1(2) 

TEMP  TIME  STORAGE  FOR  V82o 

A0954 


R0955 


VARIOUS  DISPLAY  REGISTERS 


NOUN  E4;  F76 
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28 

EO  SA 

0957 

A0958 

EA,1622  EA,1627  OELVOV 

ERASE 

+50  (6) 

R0959 

ALIGNMENT  P LANETARY- INERT  I AL 

TRANSFORMATION  STORAGE^ 

(18DI 

R0961 

UNSHARED  WHILE  LM  ON 

LUNAR  SURFACEo 

0962 

0963 

0964 
A0965 

REF 

REF 

E4,1630  E4,1651 

1 E4,1636 

1 E4,1544 

GSAV 

YNBSAV 

ZNBSAV 

ERASE 

EQUALS  GSAV 
EQUALS  YNBSAV 

+ 17D 
+6 
+ 6 

I I 6 ) 
1(6) 
I (6) 

R0966 

KALCMANU 

STORAGEo  CAN  OVERLAY 

GSAVo 

( 180) 

0968 

REF 

2 

LAST 

117 

£4 ,1630 

MFS 

EQUALS 

GSAV 

I ( 1 B ) 

0969 

REF 

1 

E 4, 1,6  30 

MFI 

EQUALS 

MFS 

I 

0970 

REF 

2 

LAST 

117 

E4,  1630 

KEL 

EQUAL  S 

ME  S 

1(18) 

0971 

REF 

3 

LAST 

117 

E4,1630 

EOl 

EQUALS 

MFS 

1(6) 

0972 

REF 

1 

E4, 1636 

E02 

EQUALS 

EOl 

+ 6 

I (6  ) 

R0973 

A0975 

LR  VEL  BEAM 

VECTCRSt, 

( 26D) 

R0976 

CAN  OVERLAY 

GSAV  WITF  CARE, 

USED  DURING 

POWERED  DESCENT 

CNLYo 

0977 

REF 

3 

LAST  117 

E4,1630 

VZBEAMNB 

EQUALS 

GSAV 

1(6) 

LR  VELOCITY  BEAMS  IN  NB  COORDS.^ 

0978 

REF 

1 

E 4 , 1 636 

VYBEAMNB 

EQUALS 

VZ  BEAMNB 

+ 6 

1(6) 

0979 

REF 

1 

E4 , 1644 

VXBEA.MNB 

EQUALS 

VYBEAMNB 

+ 6 

1(6) 

PRESERVE  Z,Y,X  ORDERc 

0980 

REF 

1 

£4,1652 

LRVTIME  = 

VXBEAMNB 

+6 

B(2  ) 

LR 

0981 

REF 

1 

E4,  1654 

LRXCDU 

LRVTIME 

+ 2 

B(1  ) 

LR 

0982 

REF 

1 

E4  ,1655 

LRYCOU 

LR  XCOU 

+ 1 

B(  1 ) 

LR 

0983 

REF 

1 

E4,1656 

LRZCOU 

LRYCDU 

+ 1 

Ed  ) 

LB 

0984 

A0985 

REF 

1 

E4,1657 

PIPTEM 

LRZCDU 

+ 1 

B(3) 

LR 

R0986 

P32-P25,  P72-P75  STOllAGEo 

(40  0 

0988 

E4,1652 

E4,1653 

T1T0T2 

ERASE 

+ 1 

(2) 

TI  ME  FROM  C SI  TO 

CDH 

0989 

E4 ,1654 

E4 ,1655 

T2T0T3 

ERASE 

+ 1 

(2  ) 

0990 

E4, 1656 

E4,  1657 

ELEV 

ERASE 

+ 1 

(2  ) 

0991 

E4 ,1  660 

E4,1665 

UPl 

ERASE 

+ 5 

(6) 

0992 

E4,16£6 

E4,1673 

DELVE8T1 

ERASE 

+ 5 

I (6  ) 

DV  CS  I IN  RFF 

09  93 

E4,1674 

E4, 1701 

DEL VEET2 

ERASE 

+ 5 

1(6) 

DV  CSH  IN  RFF 

0994 

E4,1702 

E 4, 1707 

RACTl 

ERASE 

+ 5 

( 6 ) 

POS  VEC  OF  ACTIVE 

AT 

CSI 

TIME 

0995 

E4, 1710 

E4, 1715 

RACT2 

ERASE 

+ 5 

(6  ) 

POS  VEC  OF  ACTIVE 

AT 

CDH 

T IMF 
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29 

EC  SA 

0996 

FA, 1716 

EA,171T 

P.TSRl/MU  ERASE 

+ 1 

(2  I SO  ROOT 

1 /MU 

STORAGE 

0997 

E4, 1720 

EA, 1721 

RTMU  ERASE 

+ 1 

(21  MU  STORAGE 

R0998 

R0999  (THE  FOLLOWING  ERASAPLES  OVERLAY  PCRTICNS  CF  THE  PREVICUS  SECTIONI 


1001 

REF 

1 

EA,1652 

+MGA 

equals 

T1T0T2 

( 2 ) S- S 

t MID 

GIM 

ANGL  TO  DELVEET3 

A 1002 

1003 

REF 

3 

EA,166Q 

UNRM 

EQUALS 

UPl 

1(61  S-S 

AlOOA 

1005 

REF 

1 

EA  ,1702 

DVLOS 

EQUALS 

RACTl 

1(6)  S-S 

DELTA 

VELOCITY, LOS  COOPO-OISPLA 

1006 

REF 

1 

EA,1710 

ULOS 

EQUALS 

RACT2 

1(6)  S-S 

UNIT 

LINE 

OF  SIGHT  VECTOR 

A1007 

IC'08 

REF 

1 

EA, 1716 

NOMTPI 

EQUALS 

RTSRl/MU 

(2  ) S-S 

NOMINAL  TPI  TIME  FOR  RECYCLE 

R 1009 

SOME  R30  STORAGE, 

( AD  ) 

1011 

REF 

2 

LAST  118  EA ,1716 

HARO 

EQUALS 

RTSRl  /MU 

1(2) 

1012 

REF 

1 

EA,172 1 

HPER 

EQUALS 

HAPO  +2 

1(2) 

A1013 

RIOIA 

THE  FOLLOWING  ARF  ERASABLE 

LOADS  DURING 

A PERFORMANCE  TEST, 

1015 

REF 

1 

EA.IAOO 

TRANSMl 

WRENOPOS 

EA,1A00 

1016 

REF 

1 

EA,1A22' 

ALFDK 

TRANSMl  +1RD 

R1017 

THE  FOLLOWING  SECTICNS  CVERLAY  Ve3  ANO  DISPLAY 

STORAGE  AAM**** 

R 1018 

VA7(RA7)AGS  INITIALIZATION 

PROGRAM  STORAGE,  (OVERLAYS  V83 ! 

( lAD) 

1020 

REF 

A 

LAST  116  EA,16C0 

AGSBL'FF 

EQUALS 

RANGE 

B(IAD) 

1021 

REF 

1 

EA  ,1615 

AGSBUFFF 

EQUALS 

AGSBUFF  +13D 

ENDMARK 

R1022 

R36  OLT-OF-PLANE  RENDEZVOUS 

DISPLAY  STORAGE,  (OVERLAYS  V83 ) 

(12D) 

102A 

REF 

2 

LAST  116  EA,1606 

RP  /iSS36 

EQUALS 

RONE 

1(6)  S-S 

1025 

REF 

1 

EA ,1614 

UNP36 

EQUALS 

RPASS36  +6 

1(6)  S-S 

R1026 

S-BAND  ANTENNA  GIMBAL  ANGLESo  DISPLAYED 

BY  R05(V6A)o (OVERLAYS 

V83  ) (IOC) 

R 1028 

(OPERATES  DURING  POO 

ONLY  ) 
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EC-  S4 

1029 

REF 

5 

LAST 

118 

E4 , 1600 

AL  PHASB 

EQUALS 

RANGE 

P (2  ) 

DSP 

NCUN  51c  FITCH  ANGLE,-. 

1030 

REF 

1 

E4  ,1602 

BETAS  B 

EQUALS 

AL  PHASB 

+ 2 

8(2  1 

DSP 

NOUN  51c  YAW  ANGLEc 

1031 

REF 

1 

E4,1604 

RLM 

EQUALS 

BETASB 

+2 

I (6  1 

S 

S/C  POSITION  VECTORc 

'R1032 

USED 

IN  S-BANC 

ANTENNA 

FOR  LM 

1033 

REF 

2 

LAST 

119 

E4,1602 

YAWANG 

EQUALS 

BETASB 

1034 

REF 

2 

LAST 

119 

E4 , 1 60C 

PI TCHANG 

EQUALS 

ALPHASB 

R1035 

RCUN 

56 

DATA  • 

- COMPUTED  AND  DISPLAYED 

BY  VERB  85o 

( 4 ) 

1037 

REF 

1 

E4,1600 

RR-AZ 

EQUALS 

PITCHANG 

1(2) 

ANGLE  BETWEEN  LOS  AND  X-Z 

PLANEc 

103  8 

REF 

1 

E4,1602 

RR-EL  EV 

EQUALS 

RR-AZ 

+ 2 

1(21 

ANGLE  BETWEEN  LOS  AND  Y-Z 

PLANEc 

R 1039 

R04(V62) 

RADAR  TEST 

STCRAGEo 

(8C  1 

R1041 

R04 

IS  RESTP ICTEC  TO 

POOo 

1042 

REF 

6 

LAST 

119 

E4  ,1600 

RSTACK 

EQUALS 

RANGE 

B(  P ) 

BUFFER  FOR  R04  NOUNSc 

A1043 
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R 1046 

(POSSIBLY  RINIT  8 VINIT  CAN  OVERLAY  DELVEETl 

8 2 ABOVE) 

1047 

E4, 1722 

E4, 1727 

P INI  T 

ERASE 

-f5 

I (6  ) 

ACTIVE 

VEE  IDLE 

POS  IT  ION 

1048 

£4,1730 

E4, 1735 

VINIT 

ERASE 

-^5 

1(6) 

ACTI VE 

VFHIC  LE 

VELCCITY 

1049 

E4,1736 

E 4, 1743 

VI  PRIME 

ERASE 

-^5 

1(6  ) 

NEW  VEL 

REQUIRED  AT  INITIAL  RADIUS, 

RIO  50 

various  display  REGISTERSo  I 

BALLANGS 

(3D  ) 

1052 

E4 ,1744 

E4,1744 

FCAIX 

ERASE 

1(1) 

1053 

£4,1745 

E4, 1745 

FDAI  Y 

ERASE 

1(1) 

1054 

£4,1746 

E4, 1746 

FOAIZ 

ERASE 

Id) 

A1055 


R1056 

P34-P35 

STORAGE,  DOWNLINKED, 

(2D  ) 

1058 

E4,I  747  E4,1750  CELVTPF 

ERASE 

-H 

1(2) 

DELTA 

V FOR  TPF 

A1059 

R1060 

LPS20ol 

STORAGEo  CALLED  BY  R65o 

( 120) 

1062 

1063 

A1064 

E4,1751  E4,1756  LMPOS 
E4,1757  E4,1764  LMVEL 

ERASE 

ERASE 

-^5 

-^5 

1(6) 

I (6  ) 

TEMP, 

TEMP, 

STORAGE  FOR 
STORAGE  FOR 

LM 

LM 

POS:  VECTOR. 
VELo  VECTOR, 

R1065 

INITVEL  STORAGEo 

ALSC  USED  BY  P 31  , 34 , 3 5 ,74  ,75 , 340, 1 AND 

DOWNLINKED: 

(6D) 

1067 

A1068 

E4,1765  E4,1772  DELVEET3 

ERASE 

-^5 

1(6) 

DELTA 

V IN  INERTIAL 

COORDINATES, 

GAP:  ASSEMBLE  REVISICM  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C91  17:53  DECo  19,1969  LUMERASFol3A  PAGE  120 


L ERASABLE  ASSIGNMENTS  USER'S  PAGE  MOc  31  EO  SA 


R1069 

SOME  RO^- (V63  )-R77  STORAGEo 

( 6D  1 

1071 

EA  ,1773 

EA , 1773 

RTSTDEX 

FRASE 

8(1) 

1072 

EA,177A 

EA, 177A 

RTSTMAX 

ERASE 

B(1  ) 

1073 

EA,1775 

EA, 1775 

RTST8ASE 

ERASE 

BO) 

107A 

EA  ,1776 

EA,1776 

RTSTLOC 

ERASE 

B(  1 ) 

1075 

EA , 1777 

EA , 1777 

R S AM  PD  T 

ERASE 

B (1  ) 

1076 

REF 

2 

LAST  115  EA,1575 

PFAILCNT 

EQUALS 

PBODY 

+ 101D 

B(  1 ) 

A 1077 

1078 

E5,lA0n 

END-EA 

EQUALS 

FIRST 

UNUSED 

LCCAT ICN  IN  EA 

R1079 

t 

SECOND  DPS  GUIDANCE 

(LUNAR  LANDING)  (OVERLAY  1 

P32-35,  IN  ITVEL  ) 

( 12D  ) 

1082 

PEF 

1 

EA, 166A 

ANGTERM 

EQUALS 

PI PTEM  +5 

I (6  ) 

GU  I DANCE 

1083 

REF 

i 

EA,1672 

HEEAMNB 

EQUALS 

ANGTERM 

+ 6 

1(6) 

LANDING 

RADAR 

A 108A 

R1085 

R12  DOWNLINK  QUANTITIES 

(5C  ) 

1087 

REF 

1 

EA  ,173A 

LRXCOUCL 

EQUALS 

/LAND/ 

+ 2 

B(  1 ) 

LANDING 

RADAR 

DD)^NLI  NK 

1088 

REF 

1 

EA,1735 

LRYCOUOL 

EQUALS 

LRXCDUDL 

+ 1 

13(1  ) 

LANDING 

RADAP 

DOWNL  INK 

1089 

REF 

1 

EA, 1736 

LRZCnUCL 

EQUALS 

LRYCDUDL 

+ 1 

B(  1 ) 

LANDING 

RADAR 

DCWNL INK 

1090 

REF 

1 

EA  ,17  37 

LRVT  I MCL 

EQUALS 

LPZCDUDL 

+ 1 

B ( 2 ) 

LANDING 

RADAR 

DOWNLINK 

A1091 

R1092 

ASCENT 

GUIDANCE  FCR 

LUNAR  landing 

( 5AD) 

109A 

RFF 

2 

LAST 

120 

EA,1662 

AT 

EQUALS 

PI PT  EM 

+3 

I (?  )TMP 

ENGINE  DATA  — THRUST  ACC*2(9) 

1095 

REF 

1 

EA, 166A 

VE 

EQUALS 

AT 

+ 2 

I (2 ) TMP 

EXHAUST  VELOCITY  * 2(7)M/CSo 

1096 

REF 

1 

EA ,1666 

TTO 

EQUALS 

VE 

+ 2 

I ( 2)TMP 

TAILOFF  TIME  * 2(17)CS» 

1097 

REF 

1 

EA, 1670 

TBL'P 

EQUALS 

TTC 

+ 2 

I (2  )TMP 

(M/MOOT)  ♦ 2(17)CSo 

1098 

REF 

1 

EA, 1672 

R noTo 

EQUALS 

TBUP 

+ 2 

1(2) TMP 

TARGET  VELOCITY  COMPONENTS 

1099 

REF 

1 

EA,167A 

YDOTD 

EQUALS 

PDGTC 

+ 2 

I ( 2 )TMP 

SCAL  ING  I S ?(  7 )M/CSr 

1100 

PEF 

1 

EA, 1676 

ZDOTD 

EQUALS 

YDCTD 

+ 2 

I (2 )TMP 

1101 

REF 

1 

EA,1700 

/R/MAG 

equals 

ZDOTD 

'+2 

I ( 2 )TMP 

1102 

RFF 

1 

. EA,i702 

LAXI  S 

EQUALS 

/R/MAG 

+2 

I (6  )TMP 

1103 

REF 

1 

F7, 1725 

7AXI  SI 

= 

UHZP 

IlOA 

REF 

1 

E7  ,1A73 

RDCT 

= 

HDOTO ISP 

1105 

REF 

1 

EA,1710 

YDOT 

= 

LAXI  S 

+6 

I (2 )TMP 

VELo  NORMAL  TO  PEFa  PLANE*2(-7) 

1106 

REF 

1 

EA,1712 

ZDOT 

EQUALS 

YDOT 

+ 2 

I ( 2) TMP 

DOWN  range  VEL  #2  (-7  )„ 

1107 

REF 

1 

EA,171A 

GEFF 

EQUALS 

ZOCT 

+ 2 

I ( 2 )TMP 

EFFECTIVE  GRAVITY 

R1108 

THESE 

TWO  GROUPS 

OF  ASCENT 

GUIDANCE  ARE  SPLIT 

BY  THE 

A SCENT- 

■DESCENT 

SERVICER 

SECTION  FCLLOWING  THIS  SECTION 

1110 

REF 

2 

LAST 

120 

EA,173A 

Y 

EQUALS 

/LAND/ 

■^2 

I ( 2)TMP 

out-of-plane  DIST  *2(24)M 

1111 

REF 

1 

EA,1736 

DRDCT 

EQUALS 

Y 

I (2  )TMP 

RDOTD  - ROOT 

GAP  : 

L 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

lllP 

1120 

1121 

1122 

A1123 

R1124 

1126 

1127 

1128 

1129 

1130 

A1131 
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REF 

1 

F4  ,1740 

DYDOT 

EQUALS 

PRDOT 

+ 2 

I ( 2 ITMP 

YDOTD  - YOOT 

REF 

1 

E 4, 1742 

DZDOT 

EQUALS 

DYDCT 

+2 

I (2  ITMP 

ZDOTD  - ZCOT 

REF  . 

1 

E4, 1744 

PCDNS 

EQUALS 

DZDOT 

+ 2 

1(2) TMP 

CONSTANT  IN  ATR  EQUATION 

REF 

1 

E4 ,1746 

YCCNS 

EQUALS 

PCCNS 

+ 2 

I (2  ITMP 

CONSTANT  IN  ATY  EQUATION 

R EF 

1 

E4,17E0 

PRATE 

EQUALS 

YCCNS 

+ 2 

1 (2 ITMP 

RATE  COEFFo  IN  ATR  EQUATION 

REF 

1 

E4,1752 

YR  ATE 

EQUALS 

PRATE 

+ 2 

1(2) TMP 

RATE  COEFFo  IN  ATY  EQUATION 

REF 

1 

E4,1754 

ATY 

EQUALS 

YRAT  E 

+ 2 

I ( 2 ITMP 

OUT-DF-PLANE  THRUST  C0MPj*2(9) 

REF 

1 

E4, 1756 

ATR 

EQUALS 

ATY 

+ 2 

1 (2)TMP 

RADIAL  THRUST  CnMP„#2(9) 

REF 

1 

E4 ,1760 

AT  P 

EQUALS 

ATR 

+ 2 

I ( 2 ITMP 

DOWN-RANGE  THRUST  COMP 

REF 

I 

E4, 1762 

YAVi 

EQUALS 

ATP 

+2 

I (2  ITMP 

REF 

1 

E4,1764 

PITCH 

EQUALS 

YAW 

+ 2 

1(2) RMP 

SERVICER  FOR  LUNAR  ASCENT 

AND  DESCENT 

(14CI 

REF 

1 

E4  ,1716 

G(CSM) 

EQUALS 

GEFF 

+ 2 

. 1(6) 

FOR  UPDATE  OF  COMMAND  MOOULF  STATE 

REF 

1 

E3,1717 

R(CSMI 

EQUALS 

E-CTHER 

VECTORS  BY  LEM;  ANALOGS  OF  GOT/2, 

REF 

1 

■ £3,1725 

V(CSM  1 

EQUALS 

V- OTHER 

R,  AND  V,  RESPECTIVELY  OF  THE  CSM 

REF 

1 

E^:-  ,17  24 

WM 

EQUALS 

G ( CSM I 

+ 6 

1(6) 

TMP  - LUNAR  POTATION  VECTOR  (SMI 

REF 

1 

E4, 1732 

/LAND/ 

EQUALS 

WM 

+6 

B(2  I 

LUNAR  RADIUS  AT  LANDING  SITE 
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P1132 

EBANK-5  ASSIGNMENTS 

1133 

ES.lAOn 

SETLCC 

2400 

R113A 

W-MATPIX„  ESSENTIALLY  UNSHARABLEo 

(1620) 

1136 

E5,1A00  E5,1641  W 

ERASE 

+ 1 61D 

1137 

PEF  3 

E5,16A2  ENDN 

EQUALS 

W 

+ 162C 

A1138 

R1139 

OVERLAY  NUMBER  1 IN  EBANK  5 

R1140 

R1142 

1143 

1144 

PLEA  SE 

REF  2 

PEF  1 

W-MATRIX 

RETAIN  THF 

LAST  122 

PACLOADS 

CROFR  CF  TLAND  THRU 

JAPFG 

+ 2 

(124D) 

E5, 1400 

E5 ,1402 

TLAND 

RBRFG 

EQUALS 

EQUALS 

Q 

TLAND 

1(2  1 
1(61 

NOMINAL  TIME  OF  LANDING 

BRAKING 

1145 

REF 

1 

E5 ,1410 

VBRFG 

EQUALS 

RBRFG 

+ 6 

1(6  1 

P HA  S E 

1146 

REF 

1 

E5, 1416 

ABRFG 

EQUALS 

VBRFG 

+6 

1(6) 

TARGET 

1147 

REF 

1 

E5  ,1424 

VERFG* 

EQUALS 

ABRFG 

+ 6 

1(2) 

PARAMETERS : 

1148 

PEF 

1 

E5,1426 

ABRFG* 

EQUALS 

VBPFG* 

+2 

1(2) 

HIGH 

1149 

REF 

1 

E5 , 1430 

J BRFG* 

EQUALS 

ABRFG* 

+ 2 

1(2) 

GATE 

1150 

REF 

1 

E5 ,1432 

GAINBRAK 

EQUALS 

J BRFG* 

+ 2 

B(  2) 

1151 

REF 

1 

E5, 1434 

TCGFBRAK 

EQUALS 

GAINBRAK 

+ 2 

B(1  ) 

1152 

REF 

1 

E5,1435 

TCGIBPAK 

EQUALS 

TCGFBRAK 

+ 1 

B(  1 ) 

1153 

REF 

1 

E 5, 14 36 

RAPFG 

EQUALS 

TCGIBPAK 

+1 

1(6) 

APPROACH 

1154 

REF 

1 

E 5 , 1444 

VAPFG 

EOUA  LS 

RAPFG 

+ 6 

1(6) 

PHAS  E 

1155 

REF 

1 

E5 ,1452 

AAPFG 

EQUALS 

VAPFG 

+ 6 

1(6) 

TARGET 

1156 

REF 

1 

E5 , 1460 

VAPFG* 

EQUALS 

AAPFG 

+6 

1(2) 

PARAMETERS : 

1157 

REF 

1 

E5, 1462 

AAPFG* 

EQUALS 

VAPFG* 

+ 2 

1(2) 

LOW 

1158 

REF 

1 

E5 ,1464 

JAPFG* 

EQUALS 

AAPFG* 

+ 2 

1(2) 

GATE 

1159 

REF 

1 

E5,1466 

GAINAPPR 

EQUALS 

JAPFG* 

+ 2 

0(2  ) 

1160 

REF 

1 

E5 ,1470 

TCGFAPPP 

EQUALS 

GA  INAPPR 

+ 2 

B(  1 ) 

1161 

REF 

1 

E5,1471 

TCGI APPR 

EQUALS 

TCGFAPPR 

+ 1 

B(3  ) 

1162 

REF 

1 

E5,  (472 

VIGN 

EQUALS 

TCGI APPR 

+ 1 

1(2) 

DESIRED  SPEEC  FOP  IGNITION 

1163 

REF 

1 

E5  ,1474 

RIGNX 

EQUALS 

VIGN 

+ 2 

1(2) 

DESIRFO  'ALTITUDE'  FOR  IGNITION 

1164 

RFF 

1 

£5,1476 

RI  GNZ 

EQUALS 

RIGNX 

+2 

1(2) 

DESIRED  GPOUNir  RANGE  FOP  IGNITION 

1165 

REF 

1 

E5,1500 

KIGNX/84 

EQUALS 

R IGNZ 

+ 2 

1(2) 

1166 

REF 

1 

E5 ,150? 

KIGNY/88 

EQUALS 

K IGNX/B4 

+ 2 

1(2) 

1167 

REF 

1 

E5, 1504 

KIGNV/B4 

EQUALS 

KI  GNY/B8 

+ 2 

I (2  ) 

1168 

REF 

1 

E5 ,1506 

LOWCR IT 

EQUALS 

KIGNV/84 

+ 2 

B(  1 ) 

(HIGHCPIT  MUST  FOLLOW  LOWCRIT) 

1169 

REF 

1 

E5 ,1507 

HIGHCRIT 

EQUALS 

LOWCRIT 

+ 1 

B(1  ) 

1170 

REF 

1 

E5, 1510 

V2FG 

EQUAL  S 

HIGHCRl T 

+ 1 

1(6) 

DESIRED  VELOCITY  FOR  P65- 

1171 

REF 

1 

E5  ,1516 

TAUVERT 

EQUALS 

V2FG 

+ 6 

1(2) 

TIME  CONSTANT  FOR  P65  VELo  NULLING, 

1172 

REF 

1 

E5 ,1520 

DELQFI  X 

EQUALS 

TAUVERT 

+2 

1(2) 

LR  ALTITUDE  DATA  REASONABLE  PARMo 

1173 

REF 

1 

/ E5 ,1522 

LRALPHA 

EQUALS 

DELQFI X 

+ 2 

B(l) 

POSl  X RCTATICN  * MUST  * 
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34 


EC  S4 


1174 

REF 

1 

E5 ,1523 

LRBETAl 

EQUALS 

LR ALPFA 

+ 1 

Bill 

POST  Y rotation  * BF  Y 

1175 

REF 

1 

E5 ,1524 

LRALPHA2 

EQUALS 

LRBETAl 

+ 1 

B(  1) 

P0S2  X ROTATION  * IN  * 

1176 

REF 

1 

E5,1525 

LRBETA2 

EQUALS 

LRALPHA2 

+ 1 

Bill 

P0S2  Y ROTATION  YORDFR* 

1177 

REF 

1 

E5, 1526 

LRVMAX 

EQUALS 

LRBETA2 

+ 1 

Bill 

LR  VFL  WEIGHTING  FUNCTIONS 

1178 

REF 

1 

E5,1527 

LRVF 

EQUALS 

LRVMAX 

+ 1 

Bin 

LR  VEL  WEIGHTING  FUNCTIONS 

1179 

REF 

1 

E5,1530 

LRWVZ 

EQUALS 

LRVF 

+ 1 

Rtl  I 

LR  VFL  WEIGH  ING  FUNCTIONS 

1180 

REF 

1 

E5, 1531 

LRRVY 

EQUALS 

LRWVZ 

+ 1 

B(1  ) 

LR  VFL  WEIGH  ING  FUNCTIONS 

1181 

REF 

1 

E5,1532 

LRRVX 

EQUALS 

LRWVY 

+ 1 

B (1  1 

LR  VEL  WEIGH  ING  FUNCTIONS 

1182 

REF 

i 

E5,1533 

LRKVFZ 

EQUALS 

LRWVX 

+ 1 

B(1  1 

LR  VEL  WEIGH  ING  FUNCTIONS 

1183 

REF 

1 

F5, 1534 

LRk>VFY 

EQUALS 

LRWVFZ 

+ 1 

Bill 

LR  VFL  WEIG  ING  FUNC  IONS 

1184 

REF 

1 

E5, 1535 

LRNVFX 

EQUALS 

LRWVFY 

+ 1 

Bill 

LR  VEl  WEIG  ING  FUNC  IONS 

1185 

PEF 

1 

E5, 1536 

LRRVFF 

EQUALS 

LRWVFX 

+ 1 

B(1  ) 

LR  VEL  WEIG  ING  FUNC  IONS 

1186 

REF 

5 

LAST 

98 

0130 

ABVFL* 

EQUALS 

BUF 

B(1  ) 

LR  TEMP 

1187 

PEF 

6 

LAST 

123 

0131 

VSELECT* 

EQUALS 

BUF  +1 

BID 

LR  TEMP 

1188 

REF 

1 

E5,1537 

RQCSCALE 

EQUALS 

LRWVFF 

+1 

1(11 

CLICK  SCALE  FACTOR  FDR  ROD 

1189 

REF 

1 

E5 ,1540 

TAURGD 

FQUALS 

RODSCALE 

+ 1 

1(2) 

TIME  CONSTANT  FOR  RoOoDo 

1190 

REF 

1 

E5  ,1542 

LAG/TAU 

EQUALS 

TAUROn 

+ 2 

1(2) 

LAG  TIME  DIVIDED  BY  TAUROD  (P66) 

1191 

REF 

1 

E5, 1544 

MINFORCE 

EQUALS 

LAG/TAU 

+ 2 

I (2  ) 

MINIMUM  FORCE  P66  WILL  COMMANDo 

1192 

REF 

1 

E5 ,1546 

MAXFQRCE 

EQUALS 

MINFORCE 

+ 2 

1(2) 

MAXIMUM  FORCE  P66  WILL  COMMAND, 

1193 

REF 

1 

E5,1550 

J1  PARM 

EQUALS 

MAXFCRCF 

+2 

1(2) 

PARAMETER  SET  # 1: 

1194 

REF 

1 

E5, 1552 

KIPARM 

EQUALS 

J1 PARM 

+ 2 

I (2  ) 

ABORT  ORBIT  SEMI-MAJOR  AXIS  COMP 

1195 

REF 

1 

E5  ,1554 

J2PARM 

EQUALS 

KIPARM 

+ 2 

1(2) 

PARAMETER  SET  # 2: 

1196 

REF 

1 

E5,15E6 

K2PARM 

EQUALS 

J2  PARM 

+ 2 

1(2) 

ABORT  ORBIT  SEMI-MAJOR  AXIS  COMP 

1197 

REF 

1 

E5,1560 

THETCR  IT 

EQUALS 

K2PARM 

+ 2 

1(2) 

CENTRAL  ANGLE  SWITCHING  CRITERIONo 

1198 

REF 

1 

. E5,1562 

RAMIN 

EQUALS 

THETCR IT 

+ 2 

1(2) 

MINIMUM  ALLOWABLE  APOLUNEo 

1199 

REF 

1 

E 5, 1 564 

YLIM 

EQUALS 

RAMIN 

+ 2 

I (2  ) 

MAXIMUM  CROSS-RANGE  DISTo  IN  ABORTS 

1200 

PEF 

1 

E5,1566 

ABTRDOT 

EQUALS 

YLIM 

+ 2 

1(2) 

DESIRED  RADIAL  VEL,  FOR  ABORTS, 

1201 

REF 

1 

£5,1570 

CCSTHETl 

EQUALS 

ADTRCOT 

+2 

1(2) 

COS  OF  CONE  1 ANGLE  FOR  ABORTS 

1202 

REF 

1 

E5, 1572 

CQSTHET2 

EQUALS 

CQSTHETl 

+ 2 

I (2  ) 

COS  CF  CONE  2 ANGLE  FOP  ABORTS, 

A1203 

R1210 

SOME 

VARIABLES  FOR  SECCNO 

DPS  GUICANCE 

(380 

1212 

REF 

1 

£5,1574 

CG 

EQUALS 

C0STHET2 

+ 2 

I(18D)  GUIDANCE 

1213 

REF 

1 

E5 ,1616 

RANGECSP 

EQUALS 

CG 

+ 18D 

B(  2) 

DISPLAY 

1214 

PEF 

1 

E5,1616 

OUTOFPLN 

EQUALS 

P ANGEDS  P 

YYY  OUTOFPLN  CAN  OVERLAY  RANGEDSP  *** 

1215 

REF 

1 

E5 ,1620 

R60VSAVE 

equals 

OUTOFPLN 

+ 2 

I(6)TMP  SAVES  VALUE  CF  PGINTVSM  THRU  P51 

1216 

REF 

1 

E5,1626 

RGU 

EQUALS 

R60VSAVE 

+6 

1(6) 

UNSHARED  FOP  DOWNLINK 

12162 

REF 

1 

E5, 1634 

DLANQ 

EQUALS 

P GL 

+ 6 

I (6  ) 

LANDING  SITE  CORRECTION  SM  FRAME 

12164 

RE'F 

1 

E5  ,1634 

CLANDX 

EQUALS 

DL  AND 

12166 

REF 

2 

LAST 

123 

E5,1 636 

DLANDY 

equals 

DLAND 

+ 2 

12168 

REF 

■2 

LAST 

123 

E5 ,1  640 

DL  ANDZ 

EQUALS 

DLAND 

+ 4 

1217 

REF 

2 

LAST 

123 

E5 ,1620 

VBIAS 

EQUALS 

P60VS AVE 

1(6) 

PIPA  BIAS  EOUIV,  VELOCITY  VECTOR 

12172 

R EF 

3 

LAST 

12  3 

E5, 1620 

JPARM 

EQUALS 

R60VSAVE 

1(2) 

JPARM  WILL  FOUAL  JIPARM  OR  J2PARMo 

12174 

PEF 

1 

E5  ,1622 

KP  ARM 

EQUALS 

JPAPM 

+ 2 

1(2) 

KPARM  WILL  EQUAL  KIPARM  OR  K2PARM 

12176 

REF 

1 

E5 ,1624 

RP 

EQUALS 

KPARM 

+2 

1(2) 

PREDICTED  BUPNOUT  P AD  I US-M *2 ( -24 ) 

1218 

REF 

7 

LAST 

123 

0130 

L*WCR*T 

= 

BUF 

1219 

REF 

8 

LAST 

123 

0131 

H*GHCR YT 

=■ 

BUF  +1 
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A1220 


R1221 

ALIGNMENT/SYSTEST/CALCSRSC 

CCMMCN  STORAGE, 

( 360) 

1223 

PEE 

1 

E5,1642 

XSM 

EQUALS  ENOW 

6(6  ) 

1224 

REF 

1 

E5  ,1650 

YSM 

EQUALS  XSM 

+ 6 

B(  6) 

1225 

REF 

1 

E 5 , 1 6 56 

ZSM 

EQUALS  YSM 

+6 

B (6  ) 

1226 

REF 

1 

E5 , 1664 

XDC 

EQUALS  Z SM 

+ 6 

B(6) 

1227 

REF 

1 

.F5,1672 

YCC 

EQUALS  XDC 

+ 6 

B(6I 

1228 

REF 

1 

E5,1 7C0 

ZOC 

EQUALS  YDC 

+6 

B(6) 

1229 

REF 

2 

LAST  124  E5,1664 

XNB 

= XDC 

1230 

REF 

2 

LAST  124  E5,1672 

YNB 

= YDC 

1231 

REF 

1 

E5,17C0 

ZNB 

= ZDC 

R 1232 

OVERLAYS  NITFIN  A L I GNMENT/SY STEST/ C 4L CS MSC  COMMON  STDRAGEo 

( 4D  ) 

1234 

REF 

2 

LAST  124  E5,]644 

-COSB 

EQUALS  XSM 

+2 

(2  ITMP 

1235 

REF 

1 

E5,1646 

SINB 

EQUALS  -COSB 

+ 2 

(2)TMP 

R 1236 

MORE  OVERLAYS  TO  ALIGNMENT 

/SYSTEST  (THESE  ARE  P52 ) 

(6D) 

1238 

REF 

1 

E5, 1706 

LANOLAT 

EQUALS  STARAD 

(21  LATITUDE,  LONGITUDE 

1239 

REF 

1 

E5  ,1710 

LANCLONG 

EQUALS  LANDLAT 

+ 2 

( 2)  AND  ALTITUDE 

1240 

REF 

I 

E 5 ,1712 

LANOALT 

EQUALS  LANDLONG 

+2 

(2)  OF  LANDING  SITE 

A1241 

R 1242 

ALIGNMENT/SYSTEST  CCRMCN  STORAGE, 

( 31D  ) 

1244 

RFF 

2 

LAST  124  E5,17C6 

STARAO 

EQUALS  ZDC 

+ 6 

I (18DITMP 

1245 

REF 

2 

LAST  124  E5,1730 

STAR 

EQUALS  STARAD 

+ 18D 

1(6) 

1246 

REF 

1 

£5,1736 

GCTR 

EQUALS  STAR 

+ 6 

B(1  ) 

1247 

REF 

1 

E5, 1737 

OGC 

EQUALS  GCTR 

+1 

I (2  ) 

1248 

REF 

1 

E5  ,1741 

IGC 

EQUALS  OGC 

+ 2 

1(2) 

1249 

REF 

1 

E5,1743 

MGC 

EQUALS  IGC 

+2 

I (?  ) 

R1250 

P57  alignment  (OVERLAY  CF  ; 

ALIGNMENT/SYSTEST  CQMMiON  STORAGFI 

( 12D) 

1252 

REF 

3 

LAST  124  E5,1706 

GACC 

= STARAD 

(6  ) SS 

1253 

REF 

4 

LAST  124  E5,1714 

GOLT 

= STARAD 

+ 6 

(6)  SS 

A125^ 

R1255 

OVERLAYS  NITHIN  ALIGNMENT/SYSTEST  COMMON 

1 STORAGE 

(24D) 

1257 

REF 

5 

LAST  124  E5,1706 

VEARTH 

EQUALS  STARAD 

(6 )TMP 

1258 

REF 

1 

E5  ,1714 

VSUN 

EQUALS  VEARTH 

+ 6 

( 6)TMP 

1259 

REF 

1 

E5 , 1722 

VMCCN 

EQUALS  VSUN 

+6 

(6  )TMP 

124 


gap: 

L 

1260 

R12bl 

1263 

126A 

R1265 

R1266 

1267 

1268 

1265 

1270 

A 1271 

R1272 

1274 

1275 

1276 

1277 

R1278 

1279 

1280 

1281 

A1282 

R 1283 

1285 

1286 

Aizei 

1288 

1289 

1290 

1291 

1292 

1293 
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ERAS  ABL  E ASS IGNMENTS 
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EC  S4 

REF 

1 

E5  ,1’730 

SAX 

EQUALS 

VMOON 

+ 6 

16)TMP 

P50'S,R50'S 

Q STORESo 

(2D) 

REF 

1 

E5  ,1745 

QMIN 

EQUALS 

MGC 

+ 2 

B( 1 )TMP 

REF 

1 

£5,1746 

QMAJ 

EQUALS 

QMIN 

+ 1 

B(1  )TMP 

REF 

REF 

REF 

REF 

****  USED  IN 

6 LAST  124 

1 

1 

2 LAST  124 

P50S  744* 
E5,1706 

E5 ,1714 

E5 ,1714 

E5, 1706 

(SCATTERED  OVERLAYS) 

XSCI  EQUALS 
YSCI  EQUALS 
ZSCI  EQUALS 
CULTRIX  EQUALS 

STARAC 
XSCI  +6 
YSCI 
VEARTH 

VEARTH,  VSUN,  VMOON 

ALIGNMENT 

STQRAGEo 

(?3D) 

REF 

1 

E5,1747 

OGCT 

EQUALS  QMAJ 

+1 

1(6) 

REF 

1 

E5  ,1755 

BEST  I 

EQUALS  OGCT 

+6 

1(1) 

REF 

j 

E 5,1 7 56 

BESTJ 

EQUALS  BESTI 

+:i 

REF 

1 

E5,1757 

STAR  INC 

EQUALS  BESTJ 

+ 1 

RETAIN  THE  ORDER 

OF  STARSAVl 

TC  STARSAV2  +5  FCR  DOWNLINK  PURPOSESr 

REF 

1 

E5, 1 760 

STARSAVl 

EQUALS  STARIND 

+1 

1(6) 

REF 

1 

E5,1766 

STARSAV2 

EQUALS  STARSAVl 

+ 6 

1(6) 

REF 

1 

E5,1774 

TALIGN 

EQUALS  STARSAV2 

+6 

B(2)  TIME  OF  IMU  ALIGNMENT  (DOWNLINKED 

P32-35  + SERVICER 

( 2D  ) 

REF 

1 

E5, 1776 

RTXl 

EQUALS 

TALIGN 

+ 2 

1(1) 

XI 

-2  EARTH, 

-10  MOON 

REF 

1 

E5 ,1777 

RTX2 

EQUALS 

RTXl 

+ 1 

1(1) 

X2 

0 EARTH, 

2 MOON 

0026 

ZPRIME 

22D 

0026 

PDA 

= 

22D 

0020 

CCSTH 

= 

160 

0022 

SI  NTH 

= 

IBD 

0024 

THETA 

= 

20D 

0040 

STARM 

= 

32  C 

GAP: 

L 

P 1294 

R1295 

1297 

1298 

1299 

1330 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 
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ERASABLE  ASSIGNMENTS  USER'S  PAGF  NCo  '>7  EC 

**#*«:##  OVERLAY  NUMBER  2 IN  EBANK  5 + 


CCNICS  ROUTINE  STQRAGEo  (850) 


REF 

2 

LAST 

124 

E5  ,1642 

DELX 

EQUALS 

ENDW 

I ( 2 ITMP 

REF 

1 

E 5, 1644 

DELT 

EQUALS 

DELX 

+2 

I (2  ITMP 

REF 

1 

£5,1646 

URR  EOT 

EQUALS 

UELT 

+ 2 

1(6) TMP 

1042 

RCNCRM 

EQUALS 

34C 

1(21  TMP 

REF 

1 

E 3 , 1 5 52 

XPREV 

EQUALS 

XKEP 

I (2  )TMP 

REF 

1 

E 5, ’16  54 

RIVEC 

EQUALS 

URRECT 

+ 6 

1(6)  TMP 

REF 

1 

E5,1662 

R2VEC 

equals 

Rl  VFC 

+6 

1(6  )TMP 

REF 

1 

£5,1670 

TQESIRED 

equal  S 

R2VEC 

+ 6 

I (2 )TMP 

REF 

1 

E5  ,1.672 

GEOMSGN 

equals 

TOES  IRED 

+ 2 

I ( 1 )TMP 

REF 

1 

E5, 1673 

UN 

equals 

GEOMSGN 

+ 1 

I (6  ITMP 

REF 

1 

E5  , 1701 

VTAPGTAG 

equals 

UN 

r 6 

1(1) TMP 

REF 

1 

E5 ,1702 

VTARGET 

EQUALS 

VTARGTAG 

+ 1 

1 ( 6 ITMP 

REF 

1 

E5, 1710 

RTNLAMB 

equals 

VTARGET 

+ 6 

I (1  ITMP 

REF 

1 

.E5  ,1711 

U2 

EQUALS 

P TNL AMB 

+ 1 

1(6) TMP 

REF 

1 

E5,1717 

MAGVEC2 

EQUALS 

U2 

+6 

I ( 2 ITMP 

REF 

1 

E5 , 1721 

URl 

EQUALS 

MAGVECP 

+ 2 

1(6) TMP 

REF 

1 

E5  ,1727 

SNTH 

EQUALS 

URl 

+6 

I ( 2 ITMP 

REF 

1 

£5,1731 

CSTH 

EQUALS 

SNTH 

+2 

I (2 ITMP 

REF 

1 

E5 ,1733 

1-CSTH 

EQUALS 

CSTH 

+ 2 

I (2) TMP 

REF 

1 

E5 ,1735 

CSTH-RHO 

EQUALS 

1-CSTH 

+ 2 

I ( 2 ITMP 

REF 

1 

E5, 1737 

P 

EQUALS 

CSTH-RHC 

+ 2 

I (2 ITMP 

REF 

1 

E5 ,1741 

Rl  A 

EQUALS 

P 

+ 2 

1(2) TMP 

REF 

2 

LAST 

126 

£5,1654 

RVEC 

EQUALS 

RIVEC 

1(6  ITMP 

REF 

1 

,E5,1743 

VVEC 

EQUALS 

RIA 

+ 2 

I (6 ITMP 

REF 

2 

LAST 

126 

E5  ,1710 

RTNTT 

EQUALS 

RTNLAMB 

I ( 1 ITMP 

REF 

1 

E 5 , 1751 

ECC 

EQUALS 

VVEC 

+6 

I (2  ITMP 

REF 

3 

LAST 

126 

E5 ,1710 

. RTNTR 

EQUALS 

R TNLAMB 

I (IITMP 

REF 

4 

LAST 

126 

E5 ,1710 

RTNAPSE 

EQUALS 

RTNLAMB 

I ( 1 ITMP 

LAST 

126 

EQUALS 

Her 

2 

E5 , 1 717 

R2 

MAG  VE  C2 

I ( 2 I TMP 

REF 

1 

E5 ,1753 

RTNPRM 

EQUALS 

ECC 

+ 2 

1 ( 1 I TMP 

REF 

1 

E5,1754 

SGNRDCT 

EQUALS 

RTNPRMi 

+1 

I ( 1 ITMP 

REF 

1 

E5,1755 

RDESTREO 

EQUALS 

SGNRUOT 

+ 1 

I (2ITMP 

REF 

1 

E5  ,1757 

DELCEP 

EQUALS 

ROES IRED 

+ 2 

I ( 2 ITMP 

REF 

1 

E5,1761 

DEPREV 

EQUALS 

DELDEP 

+2 

I (2  ITMP 

REF 

2 

LAST 

126 

F5,1757 

TERRLAMB 

EQ  UALS 

DELDEP 

1(2) TMP 

REF 

1 

E5,1761 

TPREV 

EQUALS 

DEPREV 

I (2  ITMP 

REF 

2 

LAST 

126 

E5, 1763 

EPSI LCNL 

EQUALS 

DEPREV 

+ 2 

I (2  ITMP 

REF 

1 

E5 ,1765 

COGA 

EQUALS 

EPS  ILONL 

+ 2 

1(2)  COTAN  OF  INITIAL  FLIGHT  PATH 

REF 

1 

E5,1765 

I NDEP 

EQUALS 

COGA 

USED  BY  SUBROUTINE 'ITERATOR' 

..I 

S4 


..z 


..e 


ANGLEc 

o 
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P1336 

OVERLAY  NUMBER  3 IN  EBANK 

5 ******* 

R’1337 

INCORP  STORAGEo 

(1801 

1339 

REF 

3 

LAST  126  E5,1642 

ZI 

EQUALS 

ENOW 

1(181 TMP 

R 1340 

INCORP/L  SR22o  3 STORAGEo 

(2101 

1342 

REF 

1 

£5,1664 

DELTAX 

EQUALS 

Z I 

+ 180 

1(181 

1343 

REF 

1 

E5  ,17C6 

VARIANCE 

EQUALS 

DEL  TAX 

+ 1BD 

1(3) 

R1344 

MEASUREMENT  INCORPORATION 

-R22-  STORAGEo 

(490) 

1346 

REF 

1 

E5,1711 

GRP2SVQ 

EQUALS 

VARIANCE 

+ 3 

I ( 1 ) TMP 

OSAVE  FOR  RESTARTS 

1347 

REF 

1 

E5,1712 

CMEGAMl 

EQUALS 

GRF2SVG 

+ l 

I (6  ) 

1348 

REF 

1 

E5, 1720 

OMEGAMP 

EQUALS 

OMEGAMl 

+ 6 

1(6) 

1349 

REF 

1 

E5  ,1726 

OMEGAMT 

EQUALS 

0MEGAM2 

+ 6 

1(6) 

1350 

REF 

1 

E5 , 1.734 

HOLDW 

EQUALS 

0MEGAM3 

+6 

1(18) 

1351 

REF 

1 

E5,1756 

TCPOS 

EQUALS 

HOLDVi 

+ 180 

1(6) 

1352 

A1353 

REF 

1 

E5 ,1764 

■ TDVEL 

EQUALS 

TDPDS 

+ 6 

1(6) 

1354 

REF 

2 

LAST  127  E5,1664 

TR  IPA 

EQUALS 

DELTAX 

1(3)  TMP 

1355 

REF 

1 

E5,1667 

TEMPVAR 

EQUALS 

TR  I PA 

+3 

I ( 3 )TMP 

A1356 

R1357 

INCORPORATICN/INTEGPAT ICN 

c storage. 

( ID  ) 

1359 

A1360 

REF 

1 

E5,1772 

EGRESS 

EQUALS 

TDVEL 

+6 

Id) 

R 1361 

P20/P31  STORAGEo 

(ID)  AND 

ONE  overlay 

1363 

A1364 

REF 

1 

E5,1773 

P30EXI T 

EQUALS 

EGRESS 

+ 1 

Bd  )TMP 

1365 

A1366 

REF 

1 

E5,1773 

GRIGI N 

EQUALS 

P30EX IT 

I ( 1 )TMP 

INDEX  DURING  INITVEL 

PAGE 
EP  S4 


127 


2021112-091 
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L ERASABLE  ASSIGNMENTS 


P1367 

SYSTEM 

TEST  ERASABLESo  CAN 

CVERL/SY  W NATRIXo 

R1369 

##*-**#*  CVERL/iY 

NUMBER  0 IN  EEANK  5 

1370 

REF 

3 

LAST 

122 

E5,1400 

AZ  IMUTH 

EQUALS 

w 

1371 

REF 

1 

E5, 1402 

LATITUDE 

EQUALS 

AZIMUTH  +2 

1372 

REF 

1 

E5  ,1404 

ERVFCTOR 

EQUALS 

LATITUDE  +2 

1373 

REF 

1 

E 5, 14 12 

LENGTHCT 

EQUALS 

ERVECTCR  +6 

13  74 

REF 

1 

E5 ,1413 

LOSVEC 

EQUAL  S 

LENGTHCT  +1 

1375 

REF 

1 

E5  ,1414 

NDXCTR 

EQUALS 

LOSVEC 

+ 1 

1376 

REF 

1 

E5, 1415 

PI  PI  NDEX 

EQUALS 

NDXCTR 

+ 1 

13  77 

REF 

1 

■E5,1416 

POSITON 

EQUALS 

PIPINDEX  +1 

1378 

REF 

1 

E5,1417 

CPLACE 

EQUALS 

PCSITCN  +1 

1379 

REF 

1 

E5, 1420 

QPLACES 

EQUALS 

OPLACE 

+ 1 

1380 

REF 

1 

E5 ,1421 

SOUTHCR 

EQUALS 

QPLACES  +1 

1381 

REF 

1 

E5,1430 

TEMPTIME 

EQUALS 

SOUTHCR  +7 

1382 

REF 

1 

E5 , 1432 

TMARK 

EQUALS 

TEMPTIME  +2 

1383 

REF 

1 

E5 ,1434 

GENPL 

EQUALS 

TMARK 

+ 2 

1384 

REF 

1 

E5, 1434 

CDLTIMEI 

= 

GENPL 

1385 

REF 

2 

LAST 

128 

E5,1436 

CCUTIMEF 

= 

GENPL 

+ 2 

1386 

REF 

3 

LAST 

126 

E5,1440 

CDUDANG 

= 

GENPL 

+4 

1387 

REF 

4 

LAST 

128 

E5,1441 

CDUREAOF 

= 

GENPL 

+ 5 

1388 

REF 

5 

LAST 

128 

E5  ,1442 

CDUREACI 

= 

GENPL 

+ 6 

1389 

REF 

6 

LAST 

128 

E5,1443 

CDULI MIT 

= 

GENPL 

+7 

13  90 

REF 

7 

LAST 

128 

E5 ,1440 

TEMP  ADC 

_ 

GENPL 

+ 4 

1391 

PEF 

8 

LAST 

128 

E5 ,1441 

TEMP 

= 

GENPL 

+ 5 

1392 

REF 

9 

LAST 

128 

E 5, 1442 

NOBI TS 

= 

GENPL 

+6 

1393 

REF 

10 

LAST 

128 

E5  ,1  443 

CHAN 

= 

GENPL 

+ 7 

1394 

REF 

11 

LAST 

128 

E5,1444 

LCSl 

GENPL 

+8D 

1395 

REF 

12 

LAST 

128 

E5, 1452 

L0S2 

= 

GENPL 

<■140 

1396 

REF 

13 

LAST 

128 

in 

0 

0 

CALCDIR 

EQUALS 

GENPL 

+ 200 

1397 

REF 

14 

LAST 

128 

E5, 1461 

COUFLAG 

EQUALS 

GENPL 

+21  D 

1398 

REF 

15 

LAST 

128 

E5,1462 

GYTOBETQ 

EQUALS 

GENPL 

+ 22D 

1399 

REF 

16 

LAST 

128 

E5 ,1463 

CPTNREG 

EQUALS 

GENPL 

+ 23D 

1400 

REF 

17 

LAST 

128 

E5, 1 464 

SAVE 

EQUALS 

GENPL 

+ 240 

1401 

REF 

18 

LAST 

128 

E5,1467 

SFCCNSTl 

EQUALS 

GENPL 

+ 270 

1402 

REF 

19 

LAST 

128 

E5,]470 

TI  MER 

EQUALS 

GENPL 

+2  8D 

1403 

REF 

20 

LAST 

128 

E5 , 1472 

DATAPL 

EQUALS 

GENPL 

+300 

1404 

REF 

21 

LAST 

128 

E5 ,1434 

RDSP 

EQUALS 

GENPL 

1405 

REF 

22 

LAST 

128 

E5, 1 534 

MASKREG 

EQUALS 

GENPL 

+640 

1406 

REF 

23 

LAST 

128 

E5,1536 

CDUNOX 

EQUALS 

GENPL 

+ 660 

1407 

REF 

24 

LAST 

128 

E5,1537 

RESULTCT 

EQUALS 

GENPL 

+ 67D 

1408 

REF 

25 

LAST 

128 

E5,1542 

COUNTPL 

EQUALS 

GENPL 

+ 700 

1409 

REF 

26 

LAST 

128 

E5  ,1  543 

CCUANG 

EQUALS 

GENPL 

+ 710 
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2 

2 

6 

1 

6 

1 

1 

1 

1 

1 

7 

2 

2 
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128 


FIX  LA  EP 


POSSIBLY  KEEP) 
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L ERASABLE  ASSIGNMENTS  USER'S  PAGE  NOo  40  EO  S4 


1410 

PEF 

27 

LAST 

128 

E5  j 1434 

AI  NLA 

= 

GENPL 

110  DE 

CR-156  CCT  LCGATIONS 

1411 

REF 

1 

E5 ,1434 

WANGO 

EQUALS 

A INLA 

VERT  E 

ATE 

1412 

REF 

2 

LAST 

129 

E5, 1436 

WANGI 

EQUALS 

AI  NLA 

+2  C 

HORIZO 

T AL  EP  AT  E 

1413 

REF 

3 

LAST 

129 

E5,1440 

WANGT 

EQUALS 

AINLA 

+ 4D 

T 

1414 

REF 

1 

E5,144C 

TCRCNDX 

= 

WANGT 

1415 

REF 

4 

LAST 

129 

E5, 1442 

DRIFTT 

EQUALS 

AI  NLA 

+ 6D 

1416 

REF 

5 

LAST 

129 

E5  ,1444 

ALXIS 

EQUALS 

AINLA 

+ 80 

1417 

REF 

6 

LAST 

129 

E5,1445 

CMPXl 

EQUALS 

AINLA 

+ 90 

IND 

1418 

REF 

7 

LAST 

120 

E5 , 1446 

ALK 

EQUALS 

A INLA 

+ 10D 

GAINS 

1419 

REF 

8 

LAST 

129 

E5 ,1462 

VLAUNS 

EQUALS 

A INLA 

+ 22D 

1420 

REF 

9 

LAST 

129 

E5,1464 

WPLATO 

EQUALS 

AI  NLA 

+ 240 

1421 

REF 

10 

LAST 

129 

E5,1470 

INTY 

EQUALS 

A I NLA 

+ 280 

SOUTH 

IP  I NT  E 

1422 

REF 

11 

LAST 

129 

E5 ,1472 

ANG7 

EQUALS 

AINLA 

+ 300 

EAST  A 

IS 

1423 

REF 

12 

LAST 

129 

£5,1474 

INTZ 

EQUALS 

AI  NLA 

+ 320 

EAST  P 

P I 

1424 

REF 

13 

LAST 

129 

E5  ,1476 

ANGY 

EQUALS 

AINLA 

+ 34D 

SOUTH 

1425 

REF 

14 

LAST 

129 

E5,1500 

ANGX 

EQUALS 

AINLA 

+3  6 0 

VE 

1426 

REF 

15 

LAST 

129 

E5 ,1502 

DR  IFTO 

EQUALS 

AINLA 

+ 3 80 

VERT 

1427 

REF 

16 

LAST 

129 

E5  ,1504 

CR  IFT  I 

EQUALS 

AINLA 

+ 400 

SOU 

1428 

REF 

17 

LAST 

129 

£5,1510 

VLALN 

EQUALS 

AINLA 

+440 

1429 

REF 

18 

LAST 

129 

E5 ,1512 

ACCWO 

EQUALS 

AINLA 

+ 460 

1430 

REF 

19 

LAST 

129 

E5,152C 

PCSNV 

EQUALS 

AINLA 

+ 520 

1431 

REF 

20 

LAST 

129 

E5, 1522 

DPIPAY 

EQUALS 

AINLA 

+ 540 

SOUTH 

1432 

REF 

21 

LAST 

129 

E5  ,1526 

CPIPAZ 

EQUALS 

AINLA 

+ 580 

NOP  TH 

IP  INCREMENT 

1433 

REF 

22 

LAST 

129 

E5,1530 

ALTI  M 

EQUALS 

AINLA 

+600 

1434 

PEF 

23 

LAST 

129 

£5,1531 

ALTIMS 

EQUALS 

AINLA 

+ 610 

I NDEX 

1435 

REF 

24 

LAST 

129 

£5  ,1532 

ALDK 

EQUALS 

AINLA 

+ 620 

TIME 

ONSTAN 

1436 

REF 

25 

LAST 

129 

£5, 1550 

DELM 

EQUALS 

AI  NLA 

+ 760 

1437 

REF 

26 

LAST 

129 

£5,1560 

WPLATI 

EQUALS 

AINLA 

+ 840 

1438 

REF 

27 

LAST 

129 

£5,1562 

GECCOMPS 

EQUALS 

AINLA 

+ 860 

1439 

REF 

28 

LAST 

129 

E'5, 1563 

ERCOMP 

EQUALS 

AINLA 

+ 870 

1440 

REF 

29 

LAST 

129 

£5  ,1571 

ZERQNOX 

EQUALS 

A INLA 

+ 930 

1441 

REF 

1 

£5,1452 

THETAN 

= 

ALK  +4 

1442 

REF 

1 

E5,1460 

FILDELV 

EQUAL  S 

THETAN 

+ 6 

AGS  ALIGNMENT 

STORAGE 

14':‘3 

REF 

1 

E5,1462 

INTVEC 

EQUALS 

F I LOELV 

+ 2 

1444 

REF 

30 

LAST 

129 

£5,1572 

ISECXT 

= 

AINLA  +940 

1445 

REF 

31 

LAST 

129 

E5 ,1573 

ASECXT 

= 

AINLA  +950 

1446 

REF 

32 

LAST 

129 

E5,1574 

PERFOLAY 

EQUALS 

AINLA 

+96  0 

P(2)  DELAY  TIME  BEFo  START 

DRIFT  MEASURE 

1447 

REF 

33 

LAST 

129 

E5, 1576 

DVFLOWCK 

EQUALS 

AI  NLA 

+ 980 

(1)  SET  MEANS 

CVERFLCW  IN 

IMU  PEBF  TEST 

A 1448 

AND  CAUSES 

TEPMINATICN 

A1449 

1450 

REF 

- 2 

LAST 

125 

E5 ,1774 

EN  D-E5 

EQUALS 

STARSAV2 

+ 6 

***  FIRST  FREE 

LOCATICN  IN 

E5  444 
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L ERASABLE  ASSIGNMENTS  USER'S  PAGE  NO^  45  EO  S4 


Pi451 

1452 

R1453 

EBANK-6  ASSIGNMENTSo 

E6 ,5  400 

DAP  PAU-LOADED  D 

SETLOC  30CC 

ATAo 

(50D) 

R1455 

ALL 

OF  THE 

FOLLOWING  EXCEPT 

PITTIME  AND  ROLLTIME  ARE  INITIALIZED  IN 

FRESH  START  TC  PERMIT  IMMECIATF  USE  OF  DAP 

1457 

E6 ,1400 

E6,1400 

HI  ASCENT 

ERASE 

(11  MASS  AFTER  STAGING,  SCALE  AT  B1 6 KG; 

1458 

E6,1401 

EE, 1401 

ROLLTI ME 

ERASE 

(1)  TIME  TO  TRIM  Z GIMBAL  IN  R03,  CSECo 

1459 

E6 ,1402 

E6, 1402 

PITTIME 

ERASE 

(1)  TIME  TO  TRIM  Y GIMBAL  IN  B03 , CSECo 

1460 

E6,1403 

E6,1403 

DKTRAP 

ERASE 

(11  DAP  STATE  (POSSIBLE  77001 

1461 

E6, 1404 

EE, 1404 

0KCM6GAN 

ERASE 

(1)  ESTIMATOR  PARA-  (VALUES  00012 

1462 

E6  ,1405 

E6 ,1405 

DKKAOSN 

ERASE 

(1)  METERS  FOR  THE  00074 

1463 

E6,1406 

E E , 1406 

LMTRAP 

ERASE 

(1)  DOCKED  AND  77001 

. 1464 

E6,1407 

EE, 1407 

LMOMEGAN 

ERASE 

(1)  LEM-ALONE  CASES  00000 

1465 

E6,1410 

E6,1410 

LMKAOSN 

ERASE 

(1)  RESPECTIVELY  00074 

1466 

E6, 1411 

EE, 1411 

DKOB 

ERASE 

(1)  WIDTH  OF  DEADBAND  FOR  DOCKED  RCS 

A1467 

AUTOPILOT  (DB=1o4DEG  IN  FRESH  START) 

A1468 

DEADBAND  = Pl/DKDB  RADo 

R1469 

PACLCADS  FOR 

INITIALIZATION  OF  DAP  BIAS 

ACCELERATION  (AT  P12  IGNITION) 

(20) 

1471 

E6  ,1412 

E6 ,1412 

IGNAOSC 

ERASE 

B( 1 )PL 

1472 

E6,1413 

EE, 1413 

IGNAOSR 

ERASE 

B(1 )PL 

A1473 

R1474 

AXIS 

TRANSFORMATION 

MATRIX  - 

GI MBAL  TC 

PILOT  AXES: 

( 50  ) 

1476 

£6,1414 

EE, 1414 

Mil 

ERASE 

SCALED  AT  1 

1477 

E6 ,1415 

E6, 1415 

M21 

ERASE 

SCALED  AT  I 

1478 

E6,1416 

E6,1416 

M31 

ERASE 

1479 

E6, 1417 

EE, 1417  . 

M22 

ERASE 

SCALED  AT  lo 

1480 

E6  ,1420 

E6,1420 

M32 

ERASE 

SCALED  AT  5o 

R1481 

A 

ANGLE 

MEASUREMENTSo 

(31C) 

1483 

E6 ,1421 

EE, 1425 

OMEGAP 

ERASE  +4 

BODY-AXIS  ROT=  RATES  SCALED  AT  PI/4  AND 

1484 

REF 

1 

E6, 1422 

OMEGAQ 

EQUALS  OMEGAP  •*! 

BODY-AXIS  ACCELERATIONS  SCALED  AT  PI/B 

1485 

REF 

2 LAST 

130 

E6, 1423 

OMEGAR 

EQUALS  OMEGAP  +2 

R1486 

RETAIN  THE 

CRDER 

CF  ALPFAC 

AND  ALPFAR  FOR  DOWNLINK  PURPOSESo 

1487 

REF 

3 LAST 

130 

E6,1424 

ALPHAQ 

EQUALS  OMEGAP  +3 

1488 

REF 

4 LAST 

130 

E6, 1425 

ALPHAR 

EQUALS  OMEGAP  +4 

1489 

E6  ,1426 

E6,1427 

OMEGAU 

ERASE  +1 

1490 

REF 

1 

E6, 1427 

OMEGA  V 

= OMEGAU  +1 

1491 

E6,1430 

E6, 1435 

TRAP  EDP 

ERASE  +5 

1492 

REF 

1 

E6 ,1431 

TRAPEDC 

= TPAPECP  •*! 

1493 

REF 

2 LAST 

.1.30 

E6,1432 

TR APEOR 

= TRAPEDP  +2 

1494 

REF 

3 LAST 

130 

E6  ,1433 

NPTRAPS 

= TRAPEDP  +? 

GAP  : 

ASSEMBLE  REVISION  131 

OF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-C91 

L 

ERASABLE  ASSIGNMENTS 

1495 

REF 

4 LAST  130 

E6 , 1434 

NQTRAPS 

= 

TRAPEDP  +4 

1496 

REF 

5 LAST  131 

E6  ,1435 

NRTRAPS 

= 

TRAPEDP  +5 

• 1497 

REF 

1 

E6,1427 

EDCTP 

= 

EDCT 

1498 

E6,1436 

E6, 1437 

EDOTQ 

ERASE 

+ 1 

1499 

REF 

1 

E6,1437 

EOOTR 

= 

EDOTQ  +1 

1500 

REF 

2 LAST  131 

E6, 1436 

QRATEOIF 

EQUALS 

EOCTQ 

1501 

REF 

1 

E6 ,1437 

RR  ATEC  IF 

EQUALS 

EDOTR 

1502 

REF 

2 LAST  130 

E6 , 1426 

URATEDIF 

EQUALS 

OMEGAU 

1503 

REF 

1 

E6 , 1427 

VRATEDIF 

EQ  UAL  S 

OMEGA  V 

1504 

E6  ,1440 

E6 ,1442 

OLDXFORP 

ERASE 

+2 

1505 

REF 

1 

E6 , 1441 

OLDYFCRP 

EQUALS 

OLCXFCPP  +1 

1506 

REF 

2 LAST  131 

E6 , 1442 

OLDZFORQ 

EQUALS 

OLDXFORP  +2 

R1507 

PATE- 

COMMAND  AND  MINIMUM  IMPULSE  MCCES 

1508 

£6,1443 

E6,1443 

CH31TEMP 

ERASE 

1509 

E6,1444 

E6 , 1444 

ST  IKSENS 

ERASE 

1510 

E6 ,1445 

£6,1445 

TCP 

ERASE 

1511 

E6 ,1446 

E6, 1453 

DXERROR 

ERASE 

+ 5 

1512 

REF 

1 

E6  ,1450 

DYERROR 

EQUALS 

DXEPROP  +2 

1513 

P EF 

2 LAST  131 

E6,1452 

DZERROR 

EQUALS 

DXERRCR  +4 

1514 

E6,1454 

E6, 1454 

PLAST 

ERASE 

1515 

E6,1455 

E6,1455 

GLAST 

ERASE 

i516 

E6, 3 456 

E6, 1456 

RLAST 

ERASE 

1517 

E6 ,1457 

E6, 1457 

TCQR 

ERASE 

R1518 

OTHER 

VARIABLES,, 

1520 

E6, 1460 

E6, 1460 

OLOPMIN 

ERASE 

1521 

£6  ,1461 

£6,1461 

CLCQRM  IN 

ERASE 

1522 

REF 

1 

E6 ,3  736 

TEMP31 

EQUALS 

CAPTEMPl 

1523 

E6,1462 

E6, 1463 

SAVEHAND 

ERASE 

+ 1 

1524 

£6,1464 

£6,1464 

PERROR 

ERASE 

1525 

REF 

1 

E6, 1450 

QERROR 

EQUALS 

DYERRCP 

152  6 

REF 

1 

E6,1452 

RERROR 

EQUALS 

DZERROR 

R1527 

JET  STATE  CHANGE  VARIABLES- 

TIME  (TOFJTCHGI ,JET  1 

3ITS  WRITTEN  NOW 

R1529 

(JTSONNOWI,  AMD  JET  BITS  WRITTEN  AT 

16  RUPT  ( JTSATCHG ) 

1530 

E6  ,1465 

E6 ,1465 

NXT6ACR 

ERASE 

1531 

E 6 , 1 4 6 6 

E6,1467 

T6NEXT 

ERASE 

+1 

1532 

E6 ,1470 

E6, 1471 

T6FURTHA 

ERASE 

+ 1 

1533 

E6 ,1472 

£6,1474 

NFXTP 

ERASE 

+ 2 

1534 

REF 

■ 1 

E6, 1473 

NEXTU 

= 

NEXTP  +1 

1535 

REF 

2 LAST  131 

E6,1474 

NEXTV 

= 

NEXTP  +2 

1536 

E 6, 1475 

E6,1476 

-2 JETLIM 

ERASE 

+ 1 

1537 

REF 

1 

E6 , 1476 

-RATEDB 

EQUALS 

-2JETLIM  +1 

1538 

REF 

1 

E6 ,1476 

TARGETCR 

EQUALS 

-RATEDB 

R1539 

YYY  Q,R  AXIS  ERASABLES  YYY 

17:53  DECo  19,1969 


LL^ERASE  134  PAGE  131 


USER'S  PAGE  NOc  4? 


EO  S4 


MANY  SHARING  NAMES 
ALTERNATIVE  NAMES: 

DELETE  WHEN  NO„  OF  REFERENCES  = 0 


STORED  COU  READINGS  FOR  STATE 
DERIVATIONS:  SCALED  AT  PI  RADIANS  (2'S) 


(5DI 

THESE  THREE  USED  IN  MIN  IMPULSE  MODEo 


( IPD  I 


RATE  COMMAND  ^-JET  RATE  DIFFERENCE  LIMIT 
AND  RATE  DEADBAND  FCR  ASCENT  OR  DESCENT 

MANo  CONTROL  TARGET  DB  COMPLEMENTo 

(3  ) 


GAP: 

L 

154). 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 
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ERASA 

BL  £ 

ASSIGNMENTS 

USER'S 

PAGE  NCo  4?  EL  S4 

REF 

13 

LAST 

87 

4742 

peiT 

EQUALS 

8IT10 

REF 

13 

LAST 

87 

4741 

QRBI  T 

EQUALS 

B I T1 1 

REF 

1 

£6  ,1750 

UERROR 

EQUALS 

DAPTREG5 

U,V-AXES  ATT 

ERRGP  FOR  RCS  CONTROL  LAWS 

REF 

1 

E6,1751 

VERROR 

= 

UERROR  +1 

E6,)477 

E6, 1477 

RETJADR 

ERASE 

REF 

1 

E6 ,1741 

TEMPNUM 

EQUALS 

DAPTEMP4 

REF 

1 

E6 , 1742 

NUMBER! 

EQUALS 

0APTEMP5 

REF 

1 

E6,1743 

RQTINCEX 

EQUALS 

DAPTEMPe 

REF 

2 

LAST 

131 

E6  ,1736 

ROTEMPl 

EQUALS 

DAPTEMPl 

REF 

1 

E6, 1737 

R0TEMP2 

EQUALS 

0APTEMP2 

REF 

1 

E6 ,1740 

POLYTEMP 

EQUALS 

0APTEMP3 

E6,l 500 

E6  ,1500 

SENSETYP 

ERASE 

REF 

3 

LAST 

132 

E6, 1736 

ABSTJ 

EQUALS 

DAPTEMPl 

ABS  VALUE  OF 

JET-FIRING  TIME 

REF 

4 

LAST 

132 

E6  ,1736 

AESECOTP 

EQUALS 

DAPTEMPl 

REF 

1 

E6,1747 

DPSBURN 

EQUALS 

DAPTREG4 

USFC  WITH  SNUFFBITo  VERY  TEMPORARYo 
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GAP: 


L ERASABLE  ASSIGNMENTS 


P1556 

TRIM 

GIMBAL  CONTROL 

LAW  ERASABLES: 

1558 

REF 

5 

LAST 

132 

E6 ,1736 

GTSTEMPS 

EQUALS 

DA  PTEMPl 

+2 

1559 

REF 

1 

E6 ,1740 

SHFTFLAG 

EQUALS 

GTSTEMPS 

1560 

REF 

2 

LAST 

133 

E6, 1743 

ININDEX 

EQUAL  S 

GTSTEMPS 

+ 5 

1561 

REF 

1 

E6  ,1  505 

SAVESR 

EQUALS 

AX  ISCTR 

1562 

REF 

3 

LAST 

133 

E6, 1745 

SCRATCH 

EQUALS 

GTSTEMPS 

+7 

1563 

REF 

4 

LAST 

133 

E6 ,1746 

HAL  FAR  G 

EQUALS 

GTSTEMPS 

+ 8D 

1564 

REF 

5 

LAST 

133 

G6,1736 

K2THETA 

EQUALS 

GTSTEMPS 

1565 

REF 

6 

LAST 

133 

E6,1740 

KCENTRAL 

EQUAL  S 

GTSTEMPS 

+2 

1566 

REF 

7 

LAST 

133 

E6 ,1741 

K2CNTRAL 

EQUALS 

GTSTEMPS 

+ 3 

1567 

REF 

B 

LAST 

133 

E6,1742 

WCENTRAL 

EQUALS 

GTSTEMPS 

+4 

1568 

REF 

9 

LAST 

133 

E6 ,1743 

ACENTRAL 

EQUAL  S 

GTSTEMPS 

+ 5 

1569 

REF 

10 

LAST 

13  3 

E6,1744 

DEL 

EQUALS 

GTST  EMPS 

+ 6 

1570 

REF 

11 

LAST 

133 

E6,1745 

A2CNTRAL 

EQUALS 

GTSTEMPS 

+ 7 

1571 

REF 

12 

LAST 

133 

E6  ,1747 

QRCNTR 

EQUALS 

GTSTEMPS 

+ 9D 

1572 

R EF 

13 

LAST 

133 

E6,1750 

FUNCT I CN 

EQUALS 

GTSTEMPS 

+ 10  D 

1573 

E6, 1501 

E6, 1 503 

NEGUQ 

ERASE 

+ 2 

A1574 

NEGUQ  +1 

1575 

REF 

1 

E6, 1503 

NEGUR 

EQUALS 

NFGUQ  +2 

1576 

E6 , 1504 

E6, 1506 

KQ 

ERASE 

+ 2 

1577 

REF 

1 

E6,1505 

AX ISCTR 

EQUALS 

KQ 

+ 1 

1578 

REF 

2 

LAST 

133 

E6, 1506 

KRDAP 

EQUALS 

KQ 

+ 2 

1579 

E6  ,1  507 

E6 , 1512 

ACCCOTQ 

ERASE 

+ 3 

1580 

REF 

1 

E6,15i0 

QACCDCT 

EQUALS 

ACCCCTQ 

+1 

1581 

REF 

2 

LAST 

133 

E6 ,1511 

ACCDOTR 

EQUAL  S 

ACCDOTQ 

+ 2 

1582 

REF 

3 

LAST 

133 

E6  ,1512 

RACCDOT 

EQUALS 

ACCDOTQ 

+ 3 

1583 

REF 

1 

E 6, 1450 

ODIFF 

EQUALS 

QFRRCR 

1584 

REF 

1 

£6 ,1452 

RCIFF 

EQUALS 

PERROR 

A1585 

R1586 

TCRQUE 

VECTOR 

RECONSTRUCTION 

VARIABLES: 

1588 

REF 

1 

E6  ,1744 

JETRATE 

EQUALS 

DAPTREGl 

1589 

PEE 

1 

E6, 1745 

JETPATEQ 

EQUALS- 

JETRATE  +1 

1590 

REF 

2 

LAST 

133 

E6 , 1746 

JETRATER 

EQUALS 

JETRATE  +2 

1591 

E6,1513 

E6,1520 

CCWNTQRK 

ERASE 

+ 5 

1592 

REF 

1 

E6,1513 

POSTORKP 

EQUALS 

DCWNTCRK 

1593 

REF 

2 

LAST 

133 

E6 ,1514 

NEGTOTKP 

EQUALS 

DOWNTORK  +1 

1594 

REF 

3 

LAST 

133 

E6 , 1515 

pcstorkl 

EQUALS 

DOWNTCRK  +2 

:F3  DECo  19,1969 
USER'S  PAGE 


LUMERASEol34  PAGE 
NDo  4A  EP  S4 


133 


( 1 T C ) 

GTS  IS  PART  OF  THE  JASKo 
COUNT  BITS  FOR  GTSQFT  SHIFTING. 

INDEX  FOR  SHIFT  LCCF  IN  GTSQRTo 

CANNOT  BE  A DAPTFMP  - GTS  USES  THEM  ALL. 

ROOTCYCL  ERASABLE 
ROOTCYCL  ERASABLE, 

DoPo,  KAERROP,  NEGUSUM 

SoPo,  K FROM  KC  OR  KRDAP,  AT  PI/2(8I 

DoPo,  GTS  SCRATCH  CELLS, 

S,Po,  OMEGA,  AT  PI/4  RAO/SEC 
SoPa,  ALPHA,  AT  PI/4  RAD/SEC(2) 

SePo,  SGN  FUNCTION  VALUE, 

CoPo,  GTS  SCRATCH  CELLS, 

SoPo, INDEX  FDR  GTS  LOOP  THROUGH  0,R  AXES 
D,  Po  , ARGUMENT  FOR  GP  SOR  T , SCR  A TCH  FOR  GTS 

NEGATIVE  OF  Q-AXIS  GIMBAL  DRIVE 
DEFINED  AND  USED  ELSEWHERE 
NEGATIVE  OF  P-AXIS  GIMBAL  DRIVE 


S,  Po,JERK  TERM  FOR  GTS,  AT  PI/2  (8) 
o3  ACCOOTR  SCALED  AT  PI/2(0) 


Q-JERK  SCALED  AT  PI/2(7)  UNSIGNED 
Q-JERK  SCALED  AT  PI/2(7)  SIGNED 
P-JERK  SCALED  AT  PI/2(7)  UNSIGNED 
R-JFRK  SCALED  AT  PI/2(7)  SIGNED 


ATTITUDE  ERRORS: 
SCALED  AT  PI  RADIANS 


(17DI 


THE  LAST  CONTROL  SAMPLE  PERIOD  OF  100  MS 
SCALED  AT  P I /4  P AD  I ANS/SEC OND 

ACCUMULATED  JET  TORQUE  COMMANDED  ABOUT 
+,-P,  +,-U,  +,-V  RESPECT IVELYo 
EMPLOYED  EXCLUSIVELY  FCR  OOWNLIST, 

NOT  INITIALIZED;  PERMITTED  TO  OVERFLOW 


GAP  : 

L 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

A1609 

l<1610 

A1612 

1613 

1614 

R 1615 

R1617 

R1619 

1620 

1621 

1622 

1623 

A 

1624 

1625 

R1626 

A1628 

1629 

1630 

1631 

1632 

1633 

1634 

163  5 

1636 

A1637 

163  8 

1639 

R1640 
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ERAS  AEL  £ 

ASS IGNMENTS 

USER'S  PAGE  NCo  45 

EC  S4 

REF 

4 

LAST 

133 

E6 ,1516 

NEGTOPKU 

EQUALS 

DOWNTORK 

+ 3 

SCALED  AT  32  JET-SEC,  CR  ABOUT 

2oO  JET- 

REF 

5 

LAST 

134 

E 6 , 1 5 1 7 

PC  STORKV 

EQUALS 

DCWNTCRK 

+4 

MSEC  PER  BITo 

PEE 

6 

LAST 

134 

E6 , 1520 

NEGTORKV 

EQUALS 

DOWNTOR  K 

+ 5 

E6,1521 

£6,1523 

NC, PJETS 

ERASE 

+ 2 

REF 

1 

E6, 1522 

NOc  UJETS 

= 

NOo  PJETS 

+ 1 

REF 

1 

E6,1523 

NOoVJETS 

NOo UJETS 

+ 1 

E6 ,1524 

E 6, 152 6 

TJP 

ERASE 

+ 2 

REF 

1 

E6, 1525 

TJU 

= 

TJP  +1 

REF 

2 

LAST 

134 

E6 ,1526 

TJV 

= 

TJP  +2 

E6,1527 

E6, 1527 

L,PVT-CG 

ERASE 

E6,1530 

E6,  1533 

IJACC 

ERASE 

+ 3 

REF 

1 

E6,1531 

IJACCQ 

EQUALS 

IJACC  +1 

SCALED  AT  PI/4  P AD  I AN S / SEC OND 

REE 

2 

LAST 

134 

£6,1532 

IJACCR 

EQUALS 

IJACC  +2 

REF 

3 

LAST 

134 

E6,1533 

IJACCU 

EQUALS 

IJACC  +3 

FOP  U,V-AXES  THE  SCALE  FACTOR 

IS  DIFF 

SCALED  AT  PI/2  PA D I AN S/ SECON 0 

(FOR  ASC 

ASCENT  VARIABLES: 

(3  ODI 

E6, 1 534 

E6,1535 

SKIPU 

ERASE 

+ 1 

REF  1 E6,1535  SKIPV  = SKIPU  +1 

THE  FOLLOWING  LM  DAP  ERASABLES  ARE  ZEROED  IN  THE  STARTDAP  SECTION  OF  THE  DAPIDLFR  PROGRAM  AND  THE  COASTASC 
SECTION  OF  THE  AOSTASK,:,  THE  ORDER  MUST  BE  PRESERVED  FOR  THE  INDEXING  METHODS  WHICH  ARE  EMPLCYED  IN  THOSE 
SECTIONS  AND  ELSEWHEREo 


£6,1536 

£6,1543 

' AOSC 

ERASE 

+ 5 

OFFSET  ACC  ESTIMATES,  UPDATED  IN  DoPo, 

REF 

1 

E6 ,1540 

AO  SR 

EQUALS 

AOSQ  +2 

AND  SCALED  AT  PI/?e 

REF 

2 

LAST 

134 

E&  ,1542 

AOSU 

EQUALS 

ACSO  +4 

UV-AXES  OFFSET  ACC,-,  FPOMED  BY  VECTOR 

REF 

3 

LAST 

134 

E6, 1543 

AOSV 

EQUALS 

AOSQ  +5 

ADDITION  OF  Q,Ro  AT  PI/2  RAD/SEC(2)o 

E6  ,1 544 

E6, 1545 

AOSQTERM 

ERASE 

•H 

(o 1-»05K ) AOS 

REF 

1 

E6 , 1 545 

AOSRTERM 

EQUALS 

AOSQTERM  +1 

SCALED  AT  Pl/4  R A D I AN S / SEC ONDc 

FCR 

T JET 

LAW  : 

SUBROUT INE: 

(TEMPS  ONLY) 

NUM0ERT 

EQUALS 

0APTEMP5 

DEF  INED  IN  ORA  XI  St 

REF 

6 

LAST 

133 

E6,1736 

EDOTSQ 

EQUALS 

DA  PTEMPl 

REF 

2 

LAST 

132 

E6,1737 

ROTSENSE 

EQUALS 

DAPTEMP2 

REF 

2 

LAST 

132 

E6 ,1740 

FIREFCT 

EQUALS 

DAPT  EMP3 

LOOKED  AT  BY  PAXISs 

REF 

2 

LAST 

132 

E6, 1741 

TTOAXI S 

EQUALS 

0APTEMF4 

REE 

2 

LAST 

132 

E6  ,1  743 

ACRS0IF2 

EQUALS 

DAPTFMP6 

PEE 

2 

LAST 

133 

E6,1744 

HOLDQ 

EQUALS 

DAPTREGl 

REF 

1 

E6 , 1745 

ADRSOIFI 

EQUAL  S 

DAPTPEG2 

REF 

1 

E6 ,1746 

HH 

EQUALS 

DAPTREG3 

DOUBLE.  PRECISION 

HH  +1 

EQUALS 

DAPTREG4 

REF 

1 

E6, 1751 

E 

EQUALS 

DAPTREG6 

TIME  SHARE  WITH  VFRRCR 

REF 

2 

LAST 

131 

E6,1427 

EDCT 

EQUALS 

OMEGAV 

INPUT  TO 

TJET 

LAW 

(PERMANENT 

ERASABLES  ) 

(4BD  1 
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L ERASABLE  ASSIGNMENTS  USER'S  PAGE  NCo  Afe  Ep 


1642 

REF 

1 

E6 ,1525 

TJETU 

= 

T JU 

EQUATE  NAMESo  INDEXED  BY  -1,  0,  + lo 

1643 

E6 , 1 546 

E6, 1625 

BLOCKTOP 

ERASE 

+ 47D 

1644 

REF 

1 

E6  ,]  566 

1/ANETl 

= 

BLOCKTOP  +16D 

THESE  8 PARAMETERS  ARE  SET  UP  BY  1/ACCS 

1645 

REF 

1 

F 6, 1567 

1/ANET2 

1/ANETi  +1 

FOP  MINIMUM  JETS  ABOUT  THE  U-AXIS  WHEN 

1646 

REF 

2 

LAST 

135 

E6,1572 

1/ACOAST 

= 

l/ANFTI  +4 

EDOT  IS  PCSITIVEo  TJETLAW  INDEXES  BY 

1647 

REF 

3 

LAST 

135 

E6, 1574 

ACCFCTZl 

1/ANETl  +6 

ADPSDIFF  FROM  THESE  REGISTERS  TO  PICK  UP 

1648 

REF 

4 

LAST 

135 

E6, 1575 

ACCFCTZ5 

= 

1/ANETl  +7 

PARAMETERS  FOR  THE  PROPER  AXIS,  NUMBER 

1649 

REF 

5 

LAST 

13  5 

E6  ,1600 

FIREDB 

= 

I/ANETl  +10D 

OF  JETS  AND  SIGN  OF  EOCTo  THERE  ARE  48 

1650 

REF 

6 

LAST 

135 

E6,1602 

COASTDB 

= 

) /ANETl  +12D 

REGISTERS  IN  ALL  IN  THIS  BLOCKo 

1651 

PEF 

7 

LAST 

135 

E6 ,160A 

AXI SDI ST 

1/ANETl  +14D 

FOUR  NOT  REFEREN'CEC  (P-AXISI  ARF  FILLED 

A1652 

IN  BY  THE  FOLLOWING: 

1653 

REF 

2 

LAST 

135 

E6, 1546 

ACCSWU 

= 

BLCCKTCP 

SET  BY  1/ACCS  TO  SHOW  WHETHER  MAXIMUM 

1654 

REF 

1 

E6,1547 

ACCSWV 

ACCSWU  +1 

JETS  ARE  REQUIRED  BECAUSE  OF  AOSo 

1655 

REF 

3 

LAST 

135 

E6,1554 

FLAT 

= 

BLCCKTCP  +6 

WIDTH  OF  MINIMUM  IMPULSE  ZONEo 

1656 

REF 

4 

LAST 

135 

E6, 1555 

Z0NE3LIM 

= 

BLCCKTCP  +7 

HEIGHT  OF  MINIMUM  IMPULSE  ZONEIAT  4 SECI 

1657 

E6  ,1626 

E6,1627 

COEFFQ 

ERASE 

+ 1 

COEFFQ  AND  COEFFP,  APE  USED  IN  ROT-TOUV 

1658 

REF 

1 

E6,1627 

CGEFFR 

EQUALS 

COEFFQ  +l 

TO  RESOLVE  Q,R  COMPONENTS  INTO  U,V  COMP, 

A1659 

R 1660 

VAR lABLES 

; FOR 

GTS-QRAYIS  CCNTRCL  EXCHANGE:, 

(4) 

1662 

REF 

2 

LAST 

133 

E6,1502 

ALLOWGTS 

EQUALS 

NEGUC  +1 

INSERT  INTO  UNUSED  LOCATION 

1663 

E6  ,)  630 

E6, 1630 

COTPOLER 

ERASE 

INDICATES  WHICH  CONTROL  SYSTEM  TO  USE= 

A 1664 

E6,1631 

E6 ,1633 

QGI MTI MR 

ERASE 

+2 

0-GIMBAL  DRIVE  ITMER,  DECISECONDS.-, 

166  5 

PEF 

1 

£6,1632 

INGTS 

EQUALS 

QGIMTIMR  +1 

INDICATOR  OF  CURRENT  GTS  CONTROLo 

1666 

REF 

2 

LAST 

135 

E6  ,1633 

RG IMT IMR 

EQUALS 

QGTMTIMP  +2 

R-GIMBAL  DRIVE  TIMER,  DECISECONDS, 

R1667 

PLEASE  RETAIN 

THE  ORDER  OF  CDLXD  THRU 

CDUZD  FOR  DCWNLINK  PURPGSESo 

R1668 

KALCMANU:CAP  INTERFACEo 

( 9D) 

167U 

E6,1634 

E6 ,1636 

CDLXD 

ERAS  E 

+ 2 

CDU  DESIRED  REGISTERS: 

1671 

REF 

1 

E6, 1635 

CDUYD 

EQUALS 

CDUXD  +1 

SCALED  AT  PI  RADIANS  (180  DFGPFESI 

1672 

REF 

2 

LAST 

135 

E6 ,1636 

CCUZD 

EQUALS 

CDUXO  +2 

( STORE  IN  2S  COMPLEMENT) 

1673 

E6,1637 

E6,1641 

DELCOUX 

ERASE 

+2 

NEGATIVE  OF  DESIRED  lOOMS  CDU  INCREMENT: 

1674 

PEF 

1 

E6 , 1640 

DELCDUY 

EQUALS 

DELCDUX  +1 

SCALED  AT  PI  RADIANS  (180  DEGREES) 

1675 

REF 

2 

LAST 

135 

E6 , 1641 

CELCCUZ 

EQUALS 

DELCDUX  +2 

(STORE  IN  2S  COMPLEMENT) 

R1676 

RETAIN 

1 THE 

ORDER 

OF  OMEGAPC 

1 TO  OMEGARD  FOR  DOWNLINK 

PURPCSESo 

1677 

E6 ,1  642 

E6  1 164A 

OMEGAPC 

ERASE 

+ 2 

ATTITUDE  MANEUVER  DESIPFD  RATES: 

1678 

REF 

1 

E6,1643 

CMEGAQO 

EQUALS 

OMEGAPD  tl 

(NOT  EXPLICITLY  REFERENCED  IN  GTS  CNTRL) 

1679 

REF  ■ 

2 

LAST 

135 

E 6 , 1644 

OMEGARD 

EQUALS 

OMEGAPD  +2 

SCALED  AT  PI/4  P AD  I ANS /S ECOND 

R1680 

KALCMANU  STGRAGEo 

( 240) 

1682 

F6, 1645 

E6, 1674 

MI  S 

ERASE 

+ 23D 

I (1  8D) 

1683 

REF 

1 

E6,1667 

COF 

EQUALS 

MIS  +1R0 

1(6) 
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R1684  KALCMANU  STORAGEo 


1686 

1687 

1688 

REF 

REE 

1 

1 

E6,1675  E6,1733 

E 6, 1700 

E6 ,1701 

BCDU 

KSPNDX 

KDPNOX 

ERASF 

EQUALS 

EQUALS 

BCCU 

KSPNDX 

1689 

REF 

1 

E6 ,1702 

TMIS 

EQUALS 

KDPNDX 

1690 

REF 

1 

E6, 1726 

COFSKEl^ 

EQUALS 

TMI  S 

1691 

REF 

i 

E6 ,1732 

CAM 

EQUALS 

COFSKEW 

1692 

E6,1736  E6,1735 

AM 

ERASE 

A1693 

R 1696 

FIRST-CRCER  CVERLAYS 

IN  KALCMANU 

1696 

REF 

2 

LAST 

136 

E6, 17C2 

KVl 

EQUALS 

TMIS 

1697 

REF 

3 

LAST 

136 

E6, 1702 

MF  ISYM 

EQUALS 

TMIS 

1698 

REF 

6 

LAST 

136 

E 6, 1702 

tmfi 

equals 

TMIS 

1699 

REF 

5 

LAST 

136 

E6, 1702 

NCDU 

EQUALS 

TMIS 

1700 

REF 

6 

LAST 

136 

E6,1705 

NEXTIME 

EQUALS 

TMI  S 

1701 

REF 

7 

LAST 

136 

E6,1706 

TTEMP 

EQUALS 

TMIS 

1702 

REF 

8 

LAST 

136 

E6, 1710 

KV2 

equals 

TMI  S 

1703 

REF 

9 

LAST 

136 

E6  ,1710 

BI ASTEMP 

EQUALS 

TMIS 

1706 

REF 

10 

LAST 

136 

E6,1716 

KV3 

EQUALS 

.THIS 

1705 

REF 

11 

LAST 

136 

E6,1716 

OGF 

EQUALS 

TMIS 

1706 

REF 

2 

LAST 

136 

E6  ,]  726 

BRATE 

EQUALS 

COFSKEW 

1707 

REF 

3 

LAST 

136 

E6, 3726 

IG 

EQUALS 

COFSKEW 

1708 

REF 

1 

E6  ,1732 

TM 

EQUALS 

CAM 

R1709 

SECOND-ORDER  OVERLAYS  IN  KALCMANU 

1711 

REF 

1 

E6 , 1702 

K 1 

= 

KVl 

1712 

REF 

I 

E6 ,1710 

K2 

= 

KV2 

1>1  3 

REF 

1 

E 6 , 1 7 1 6 

K3 

= 

KV3 

1716 

REF 

2 

LAST 

136 

E6,1702 

P21 

EQUALS 

KVl 

1715 

REF 

3 

LAST 

136 

E6,1706 

C21 

EQUALS 

KVl 

1716 

REF 

6 

LAST 

136 

E6, 1 706 

G21 

EQUALS 

KVl 

17)  7 

REF 

2 

LAST 

136 

E6  ,1710 

C2S0P 

EQUALS 

KV2 

1718 

REF 

3 

LAST 

136 

E6,1712 

C2SQM 

EQUALS 

KV2 

1719 

FEF 

6 

LAST 

136 

E6,1716 

C2PP 

EQUALS 

KV2 

1720 

RFF 

2 

LAST 

136 

E6  ,1716 

C2MP 

EQUALS 

KV3 

1721 

REF 

3 

LAST 

136 

E6, 1720 

CIPP 

EQUALS 

KV3 

1722 

REF 

6 

LAST 

136 

E6 ,1722 

CIMP 

EQUALS 

KV3 

1723 

RFF 

6 

LAST 

136 

F6 ,1726 

VECCTEMP 

_ 

COFSKEW 
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USER'S  PAGE  NOo  67  EO  S6 


(330 

+30D  B(3) 

+3  Bill 

+1  6(11 

+1  1(18)  MUST  BE  IN  SAME  BANK  AS  RCS  DAP 

+18D  1(61  MUST  BE  IN  SAME  BANK  AS  RCS  DAP 

+6  1(21  MUST  BE  IN  SAME  BANK  AS  RCS  DAP 


+1  1(2)  THIS  WAS- ONCE  IN  E5  OVERLAYING  OGC 


( 25D  I 

I (6  ) 

I 

I 

B 

+ 3 e 

+6  fl 

+6  1(6) 

+ 6 B 

+ T2D  1(6) 

+ 12D  I 


B 

I 


B 


(2*D) 


1(2) 

+2  1(2) 

+6  1(2) 

1(2) 

+R  1(2) 

+6  1(2) 

1(2) 

+2  1(2) 

+6  1(2) 
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1724 

PEE 

3 

LAST 

13  5 

E6  ,1634 

DCCU 

CDUXD 

1725 

REF 

3 

LAST 

135 

E6,1637 

DELDCDU  = 

DELCDUX 

172  6 

REF 

1 

E6 ,1640 

DELDCDUl  = 

DELCDLY 

1727 

REF 

1 

E6 ,1641 

CELCCDU2  = 

OELCOUZ 

R1728 

* 

* # Jls 

* S}C 

^ ^ ^ 

* * * 

Xc  Jf:  # 

R 1729 

STORAGE 

FCR  FINDCDUW 

R1730 

overlaying 

KALCMANU 

STCRAGE  : 

( 27D) 

1732 

REF 

2 

LAST  135 

E6 , 1645 

ECDUW 

EQUALS 

MI  S 

1733 

REF 

1 

E6 ,1645 

ECCUWUSR 

EQUALS 

ECDUW 

B( 1 ITMP 

1734 

REF 

1 

E6, 1646 

QCDUWUSR 

EQUALS 

ECDUWUSR 

+ l 

1(3  ITMP 

1735 

REF 

1 

E6,l 647 

NDXCOUW 

EQUALS 

QCDUWUSR 

+ 1 

B( IITMP 

1736 

REF 

1 

E6,1650 

FLAGCCCW 

EQUALS 

NDXCCUW 

+ 1 

B ( 3 ITMP 

1737 

REF 

1 

E6, 1651 

FLPAUTNO 

EQUALS 

F LAGQODW 

+ 1 

B(1  ITMP 

1738 

REF 

1 

E6 ,1652 

UNFC/2 

EQUALS 

FLPAUTNO 

+ l 

I( 61  IN 

1739 

REF 

1 

E6 , 1660 

UNWC/2 

EQUALS 

UNFC/2 

+6 

I ( 6 1 1 N 

1740 

REF 

1 

E6,1666 

UNFV/2 

EQUALS 

UNWC  /2 

+ 6 

1 (61 S-S 

1741 

REF 

1 

E6 ,1666 

UNFVX/2 

= 

UNFV/2 

1742 

REF 

2 

LAST  1,37 

E 6, 1670 

UNFVY/2 

= 

UNFV/2 

+ 2 

1743 

REF 

3 

LAST  137 

E6,1672 

UNFVZ/2 

= 

UNFV/2 

+ 4 

1744 

REF 

4 

LAST  137 

E6,1674 

-DELGMB 

EQUALS 

UNFV/2 

+ 6 

B( 3 ITMP 

17441 

REF 

1 

E6, 1677 

OGARIAS 

EQUALS 

-DELGMB 

+ 3 

B(1  1 IN 

R 1745 

R1746 

DEFINED  IN 

THE  WORK 

AREA  : 

( 1 e C 1 

1748 

0)00 

UNX/2 

_ 

0 

1749 

0006 

UNY/2 

= 

6 

1750 

1014 

UNZ/2 

3 4 

R1751 

R1752 

END  OF  FINDCDUR  ERASABLES 

R1753 

* * 

* 

* sjt  ^ 

* 3<e 

❖ « # 

4*4 

* * * 

* * * 

R1754 

^ ^ ^ 

* 3|C  ^ * 

^ :^c  ;(«  :!x  jf; 

^ ^ ^ 

***** 

* * * * 

* * * * 

# :^e 

R1755  STORAGE  FOR  P57 


R1756  overlaying  KALCMANU  AND  FINDCDUW  STORAGE:  (12D) 

1758  REF  3 LAST  137  E6 , 1645  VECl  EQUALS  MIS  I(6ITMP 

1759  REF  1 E6,1653  VEC2  EQUALS  VECl  +6  I (6 ITMP 

R1760 

R1761  END  OF  P57  ERASABLES 
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R1762 
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L ERASABLE  ASSIGNMENTS  USER'S  PAGE  NC,^  49  EO  S4 


R1763 

THE 

FOLLOWING 

ARE 

THE  DAP  REP 

LACEMENTS 

FOR  THE  ITEMPS  AND  RU PT P E GS , NE E DEC  BECAUSE 

DAP  IS  NOW  A TOR , JASK , JAB ,TQSK 

R1765 

ANYW 

AY,  THE 

DAP 

CAN  NOW  BE 

INTERRUPTEDo 

(18D) 

1767 

E6  ,1736 

E6 ,1757 

CAPTEMPl 

ERASE 

+ 17n 

1768 

REF 

7 

LAST 

134 

E6,1737 

DAPTEMP2 

EQUALS 

DA  FTEMFl 

+ 1 

1769 

REF 

8 

LAST 

138 

E6 , 1740 

DAPTEMP3 

EQUALS 

DAPTEMPl 

+ 2 

1770 

REF 

9 

LAST 

138 

E6 ,1741 

CAPTEMF4 

EQUALS 

CAPTEMPl 

+ 3 

1771 

REF 

10 

LAST 

138 

E6, 1742 

DAPTEMP5 

EQUALS 

DAPTEMPl 

+ 4 

1772 

REF 

11 

LAST 

138 

E6 ,1743 

CAPTEMP6 

EQUALS 

DAPTEMPl 

+ 5 

1773 

REH 

12 

LAST 

138 

E6 ,1744 

DAPTREGl 

EQUALS 

DAPTEMPl 

+6 

1774 

REF 

13 

LAST 

138 

E6 , 1745 

DAPTREG2 

EQUALS 

DAPTEMPl 

+ 7 

1775 

REF 

14 

LAST 

138 

E6 ,1746 

0APTREG3 

EQUALS 

DAPTEMPl 

+ 8D 

1776 

REF 

15 

LAST 

138 

E6, 1747 

DAPTREG4 

EQUALS 

DAPTEMPl 

+ 9D 

1777 

REF 

16 

LAST 

138 

£6,1750 

DAPTREG5 

EQUALS 

DA  PTEMPl 

+ 10D 

. 1778 

REF 

17 

LAST 

138 

E 6 , 1 7 5 1 

0APTREG6 

EQUALS 

DAPT  EMPl 

+ 11  D 

1779 

REF 

18 

LAST 

138 

E6, 1752 

DAPARUPT 

EQUALS 

DAPTEMPl 

+ 12D 

1780 

REF 

1 

E6  ,1753 

CAPLRUPT 

EQUALS 

DAPARUPT 

+ 1 

178  1 

REF 

2 

LAST 

138 

E 6 , 1 7 5 ^ 

DA  PBQR  PT 

EQUALS 

DA  PARUPT 

♦ 2 

1782 

REF 

3 

LAST 

138 

E6 , 1756 

DAPZRUPT 

EQUALS 

DAPARUPT 

+ 4 

A1783 

( DAPZRUPT 

IS  ALSO  JASK-IN-PPOGRESS  FLAG) 

A1784 

R1785 

NEEOL 

ERtATTITUCE  ERR 

CR  EIGHT 

BALL  DISPL 

AY)  STORAGEo 

( 6D  ) 

1787 

KEF 

3 

LAST 

95 

0061 

T5  TEMP 

EQUALS 

IT  EMPl 

1788 

REF 

4 

LAST 

95 

00  6 3 

DI  NDX 

EQUAL  S 

I TEMP3 

1789 

E6  ,1760 

E6 ,1762 

AK 

ERASE 

+ 2 

NEFDLER  ATTITUDE  INPUTS,  SCALED  AT  180 

1790 

REF 

1 

E6,1761 

AKl 

EQUALS 

AK  +1 

DFGREESo  P,Q,R  AXES  IN  AK,AKl,AK2o 

1791 

REF 

2 

LAST 

138 

E6 , 1762 

AK2 

EQUAL  S 

AK  +2 

1792 

E6 ,1763 

E6,1765 

EDR IVEX 

ERASE 

+ 2 

NEFDLER  DISPLAY  RFGS  AT  1800  DEGREES-, 

1793 

REF 

1 

E6, 1764 

EDRI VEY 

EQUALS 

EDRIVEX  +1 

SO  THAT  384  BITS  REPRESENT  42  3/16  DEG 

1794 

REF 

2 

LAST 

138 

E6  ,1765 

ECRIVEZ 

EQUALS 

EDRIVEX  +2 

R1795 

COCKED  JET  INHIBITIC 

N COUNTERS 

(3C  ) 

1797 

E6,1766 

F6,1770  PJETCTR 

ERASE 

+ 2 

1798  REF 

1 E6,1767 

UJETCTR 

equals 

PJETCTR 

+ 1 

1799  REF 

2 LAST  138  E6,1770 

VJETCTR 

EQUALS 

PJETCTR 

+ 2 

R 1800 

LANDING  PAOLCACS 

( 3D  ) 

18003 

E6,1771 

E6,1772  VELBIAS 

ERASE 

+ 1 

B(2)  PL  BIAS  VALUE 

for  velocity 

A18004  * 

REASONABILITY  TEST, 

2(6)  M/CSo 

18005 

E6 ,1773 

E6,1773  AZBIAS 

ERASE 

B(l)  PL  LPD  AZIMUTH 

BIAS,  UNITS 

PI  RAD 
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L 

1800  6 


ERASABLE  ASSIGNMENTS 


USER'S  PAGE  NGo  50  EO  S4 


REF 


E6,1774 


END-E6  EQUALS  AZBIAS  +1  NEXT  AVAILABLE  E6  LOCATION 


gap:  assemble  REVISION  131  OF  AGC  PPCGRAP  LUMINARY  BY  NASA  2021112-091 


L 


P1801 

1802 


R 1803 


1805 

1806 


R1807 


1809 

1810 


R1811 


1813 

1814 
A1815 


R1816 


1818 


R1819 

18  21 
1822 
1823 
A1824 
1825 
A 1826 
A1827 


R1828 


1830 

1831 
A1832 


R1833 


1835 

A1836 


R1837 


ERASABLE  ASSIGNMENTS 


EBANK-7  ASSIGNMENTS 


E7,14C0 


SETLOC  3400 


P35  CCNSTANTSo 


-PAD  LOADED- 


E7,1400  E7,1401  ATIGINC  ERASE  +! 
E7,1402  E7,1403  PTIGINC  ERASE  +1 


AOTMARK  STORAGEo  . -FAC  LCACFC- 


E7,1  404  E7,14n  AOTAZ  ERASE  +5 

E7,1412  E7,14]7  AOTEL  ERASE  +5 


LANDING  RADARo 


-PAD  LCADED- 


E7,1420  E7,1420  LRHMAX  ERASE 
E7,1421  E7,1421  LRWH  ERASE 


THRCTTLE  STORAGEo  -FAD  LOAOED- 

E7,1422  E7,1422  ZGCMTIME  ERASE 

P63  AND  P64  CONSTANTSo  -PAD  LOADED- 

E7,1423  E7,1423  TENDBRAK  ERASE 

E7tl424  E7,1424  TENDAPPR  ERASE 

E7,1425  E7,1425  OELTTFAP  ERASE 

E7,1  426  E7,1426  L'EADTIME  ERASE 

LANDING  RADAR  -PAD  LOADED- 

E7,1427  E7,1427  PPCRTIME  ERASE 

E7,1430  E7,1430  RPCRTOSN  ERASE 

ASTEER  -PAD  LQADED- 

E7,1431  E7,1432  TNEWA  ERASE  +1 

P22  STORAGE  - OVERLAYS  LANDING  PACLGACS  - 
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( 4D  I 

B(2)PL  4MUST  BE  AT  140^  FOR  SYSTEMSTFST 
B(2 I PL 

(1201 

B(6 IPL 
B( 6 »PL 

(2D  ) 

B(1  I 
B(  1 I 


( ID) 

BdIPL  TIME  OF  DPS  THRCTTLE-UP  COMMAND 
(4D) 

B(l)  LANDING  PHASE  SWITCHING  CRITERION 
Bill  LANDING  PHASF  SWITCHING  CRITERION 
B(l)  INCREMENT  ADDED  TO  TTF/8  WHEN 
SWITCHING  FROM  P63  TO  P64 
Ed)  TIME  INCREMENT  SPECIFYING  HOW  MUCH 
GUIDANCE  IS  PROJECTED  FORWARD, 


( 2D) 

B(l)  REPOSITIONING  CRITERION  (TIME) 
B(l)  REPOSITIONING  CRITERION  (ANGLE) 


(20 

I(2)PL  LAMBERT  CYCLE  PERIOD 


(5D  ) 


GAP  : 

ASSEMBLE  REVISION 

131 

OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L 

ERASAEL  E 

ASS  IGNMFNTS 

1839 

A1840 

REF  1 

.E7,1423 

REPOSCNT 

EQUALS 

T ENDBRAK 

1841 

REF  1 

E7 , 1A24 

REPQSTM 

EQUALS 

REPOSCNT 

+ 1 

A1842 

1843 

A 1844 

REF  1 

E7,1426 

DELTATM 

EQUALS 

REFCSTM 

+ 2 

A1845 

R1846 

*4#  RETAIN  THE 

ORDER 

OF  DELVSLV, 

tig,  RTARG,  DELLT4  FOR 

UPDATE, 

R1847 

P32-35 

P72 

-75  STCRAGEo 

1849 

E7,1A33  E7, 

,1440  DELVLVC 

ERASE 

+5 

1850 

A1851 

REF  1 

E7 , 1433 

DELVSLV 

OE  LVLVC 

R1852 

P30-P40 

INTERFACE  UNSHARED, 

1854 

£7,1^41  E7,1442 

TIG 

ERASE  +1 

A1855 

R1856 

INITVEL 

STORAGE,  ALSC  USED  BY 

P34, 35, 74 

,75, 1C, 11  OTHERS 

1658 

1859 

E7,1443  E7,1450 

E7,1451  E7,1452 

RTARG 

DELLT4 

ERASE  +5 

ERASE  +1 

A1860 

R1861 

P3C-P40 

INTERFACE  UNSHARED, 

1863 

1864 

REF 

1 

E7,1453  E7,1454 

E7  ,1453 

TTOGO 

TFI 

ERASE  +1 

EQUALS  TTOGO 

1865  E7,1^55  E7,1A55  HHICH  ERASE 

A1866 


R1867 

444  R21  444 

1869 

E7,1456 

E7, 1456 

LOSCOUNT  ERASE 

A1870 

R 1871 

LSR22,3  (RENDEZVCLS 

NAVIGATION)  STCRAGEo 

R1873 

RETAIN  THE  ORDER  OF  AIG  TO 

TRKMKCNT 

FOR  DOWNLINK  PURPOSES, 

1874 

E7  ,1457 

E7 ,1457 

AIG  ERASE 

1875 

E7,i460 

E7,146C 

AMG  ERASE 

1876 

E7 ,1461 

E7, 1461 

AOG  ERASE 

1877 

1878 

E7,1462 

REF  1 E7,1462 

E7 ,1462 

TRKMKCNT  ERASE 

MARKCTR  = TRKMKCNT 

17:53  OECo  19,1969  LUHERASEol34 


PAGE  lAl 


USER'S  PAGE  NCo  52  EO  S4 

BdITMP  COUNTS  NUMBER  OF  PASSES  THROUGH 
REPOSITION  ROUTINEc 

I(2!TMP  PRESENT  TIME  PLUS  INCREMENTS  OF 
TEN  SECONDS, 

I (2 ITMP  TIME  INTERVAL  FOR  RUNNING 
DESIGNATE  TASK, 


( 60  I 

1(6)  DELTA  VELOCITV  - LOCAL  VERTICAL  COO 
(TEMP  STORAGE  OF  SAME  VECTOR  I -RDINATE 


(20  ) 
B(  2) 


( 8DI 

1(61  TARGET  VECTOR 
1(2)  TIME  DIFFERENCE 


(30  ) 
B(2  ) 
B (1  ) 

( ID  ) 
B(1  ) 


(4D) 


B(  DOUT  GIMGAL  ANGLES 
B(l)nUT  (MUST  RE 
B(1)0UT  CONSECUTIVE) 

B(1)TMP  TEMPORARY  MARK  STORAGE, 


GAP 


ASSEMBLE  REVISION  135.  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-0<?1 


L ERASABLE  ASSIGNMENTS 


R1879 

P22-P35,  P72-P75  STORAGEo  - 

PERRANENT- 

1881 

1882 

E7, 1463 
E7 ,1464 

E7, 1463 
E7,1464 

NORMEX 

QSAVEC 

ERASE 

ERASE 

1883 

E7,' 465 

E 7, 1465 

RTRN 

ERASE 

18  84 

£7,1466 

E7, 1467 

NN 

ERASE 

+ 1 

1886 

E7,147i 

E70VERLA 

EQUALS 

1887 

REF 

1 

E7,1471 

WFOCARES 

EQUALS 

E7DVERLA 

R1388 

LUNAR 

LANDING  OVERLAYS 

1890 

REF 

1 

E7 , 1463 

/AFC/ 

EQUALS 

NORMEX 

+ 2 

■1891 

REF 

1 

E7,1465 

FCGDC 

EQUALS 

/AFC/ 

1892 

A 1893 

REF 

1 

£7,1467 

FP 

EQUALS 

FCCOD 

+ 2 

R1894 

ERASABLES 

FOR  P64:  OVERLAY  CF 

RTARG 

1896 

REF 

1 

E7, 1443 

ZERL INA 

EQUALS 

R TARG 

1897 

REF 

1 

E7 ,1444 

FLV IRA 

EQUALS 

ZERL  INA 

+ 1 

1898 

REF 

1 

E7,1445 

AZ INCRl 

EQUALS 

ELVIRA 

+1 

1899 

A1900 

REF 

1 

E7 ,1446 

EL  INCRl 

EQUALS 

AZ INCR  1 

+ 1 
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USER'S  PAGE  NO.  53  EG  S^ 


(6  1 


BID 

PR^^ 

SAVE 

FCR 

C 

BID 

PRM 

SAVE 

FOR 

Q 

8(1  ) 

PRM 

SAVE 

FOP 

C 

B(2) 
B(  1 1 

PRM 

SAVE 

Q 

START  OF  E7  OVEPLAYSo 

DUMMY  FOR  EBANK  INSENSITIVE  2CACPS 

(6C  I 

B(2ITMP  THROTTLE 

B(2)TMP  THROTTLE 

e(2)TMP  THROTTLE 


(4D  ) 

B(l)  P64 
BID  P64 
Bill  P64 
B ( 5 ) P6A 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L ERASABLE  ASSIGNMENTS 

Pi901  ***##^*  OVERLAY  NL’MBER  0 IN  EBANK  7 ******* 

Alon? 


R1903  RENDEZVOUS  GUICANCE  STORAGE  - P3  2o  o <,  o P35- 


1905 

REF 

1 

E7,16] 1 

TSTRT 

EQUALS 

DELDV 

1906 

REF 

1 

E7,1573 

TDEC2 

EQUALS 

DELVC  SI 

1907 

REF 

1 

E7,1575 

KT 

EQUALS 

DELVTPI 

1908 

£7, 1471 

£7,1476 

VACTl 

ERASE 

+ 50 

1909 

E7, 1477 

£7, 1 5C4 

RPASSl 

ERASE 

+ 5D 

1910 

E7,l 505 

£7,1512 

VPASSl 

ERASE 

+ 5C 

1911 

E7, 1513 

£7, 1520 

VACT2 

ERASE 

+ 5D 

1912 

E7  ,1521 

£7,1526 

RPASS2 

•ERASE 

+ 5C 

1913 

E7 ,1  527 

£7,1534 

VPASS2 

ERASE 

+ 5C 

1914 

£7,1535 

£7, 1542 

RACT3 

ERASE 

+ 5D 

1915 

E7  ,1543 

E7,1550 

VACT3 

ERASE 

+ 5D 

1916 

E7, 1551 

£7,1556 

RPASS3 

ERASE 

+ 5D 

1917 

E7 ,1557 

£7, 1564 

VPASS3 

ERASE 

+ 5D 

1918 

E7 ,1565 

£7,1572 

VACT4 

ERASE 

+ 5D 

1919 

REF 

1 

E7, 1543 

UNVFC 

EQUALS 

VACT3 

1920 

E7  ,5  573 

£7,1574 

CELVCS I 

ERASE 

+ 1C 

1921 

E7 ,1575 

£7,1576 

DELVTPI 

ERASE 

+1  C 

192? 

REF 

2 

LAST 

143 

E7 ,1575 

DELVMID 

EQUALS 

DELVTPI 

1923 

E7  ,1577 

£7 ,1600 

DI FFALT 

ERASE 

+ 1 D 

1924 

E7,16C1 

£7,1602 

POSTCSI 

ERASE 

+ 1 

1925 

E7 ,1603 

£7,1604 

POSTCDH 

ERASE 

+ 1 

1926 

E7,16C5 

£7,1606 

PCSTTPI 

ERASE 

+ 1 

1927 

REF 

1 

E7, 16C5 

LOOPC  T 

EQUALS 

PCSTTPI 

1928 

REF 

1 

E7  ,1603 

HAFPAl 

EQUALS 

POSTCDH 

1929 

E7,16Q7 

£7,1610 

GAMPREV 

ERASE 

+ 1 

1930 

REF 

3 

LAST 

143 

E7,1575 

DVPREV 

EQUALS 

DELVTPI 

1931 

E7 ,1611 

£7,1612 

CELDV 

ERASE 

+ 1C 

1932 

E7,1613 

£7,1614 

CSIALRM 

ERASE 

+ 1 

193^ 

£7,1615 

£7,1615 

VER0NOUN 

ERASE 

1934 

REE 

1 

£7,1613 

TITER 

EQUALS 

CS  lALPM 

1935 

£7,1616 

E7, 1617 

RDOTV 

ERASE 

+ 1 

1936 

REF 

1 

£7 ,1505 

VAPREC 

EQUALS 

VPASSl 

1937 

REF 

1 

£7,1477 

RAPKEC 

EQUALS 

RPASSl 

1938 

REF 

1 

£7,1527 

VPPREC 

EQUALS 

VPASS2 

1939 

REF 

1 

£7  ,1521 

RPPREC 

EQUALS 

PPASS2 

1940 

REF 

4. 

LAST 

143 

£7,1575 

DELEL 

EQUALS 

DELVTPI 

1941 

REF 

2 

LAST 

143 

£7  ,1611 

0£LTEE 

EQUALS 

DELDV 

1942 

REF 

2 

LAST 

143 

E7,1573 

SECMAX 

EQUALS 

DELVCS  I 

1943 

PEF 

2 

LAST 

143 

£7, 16C5 

OELTEEO 

EQUALS 

PCSTTPI 

1944 

£7  ,1620 

£7,1621 

CENTANG 

ERASE 

A1945 
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LUMERASEol34  PAGE 


143 


USER'S  PAGE  NQc  54 


EO  S4 


..z 

(890) 


MIDCOURSE  START 
TEMP  STORAGE  FOP 
TEMP  STORAGE  FOR 
VELOCITY  VECTOR 
POSITION  VECTOR 
VELOCITY  VECTOR 
VELOCITY  VECTOR 
POSITION  VECTOR 
VELOCITY  VECTOR 
POSITI ON  VFCTOR 
VELOCITY  VFCTOR 
POS IT  ION  VFCTOR 
VELOCITY  VECTOR 
VELOCITY  VECTOR 
CDHMVR  UNIT  VECT 
THPLST  VALUE  AT 
THRUST  VALUE  AT 


T IMF 
INTEGRAT  I 
MIPCOURSE 
OF  ACTIVE 
OF  PASSIVE 
OF  PASSIVE 
OF  ACTIVE 
OF  PASSIVE 
OF  PASSIVE 


OF  ACTIVE 
OF  ACTIVE 
OF  PASSIVE 
OF  PASSIVE 
OF  ACTIVE 
OP  TEMP  ST 
CSI 

TP  I OR  MID 


ON  TIME 
DELTA  T 
AT  CSI 
AT  CSI 
AT  CSI 
AT  CDH 
AT  CDH 
AT  CDH 
AT  TPI 
AT  TPI 
AT  TPI 
AT  TPI 
AT  INTE 
ORAGEo 


INPUT 

I ME 

TIME 

TIME 

TIME 

T IME 

TIME 

TIME 

T IME 

TIME 

TIME 

TIME 

PCEPT 


alt  DIFFERENCE  AT  CDH 

PERIGEE  ALTITUDE  AFTER  CSI  MANEUVER 

PERIGEE  ALTITUDE  AFTER  CDH  MANEUVER 

PERIGEE  ALTITUDE  AFTER  TPI  MANEUVER 

CSI  NEWTON  ITERATION  COUNTER 

HALF  PERIOD 

PREVIOUS  GAMMA 

PREVIOUS  DELVCSI 


FIRST  SOLUTION  ALARM 
ITERATION  COUNTER 


4l 


1(6)  S-  S 
1(6)  S-S 
1(6)  S-S 
1(6)  S-S 
I(?)  S-S 
I ( 2 ) S- S 
1(2)  S-S 
1(2)  S-S 
1(2)  S-S 


PREC  VFC  FOR  NCM  TPI  TIMEIACT  V 
PPEC  VFC  FOP  MOM  TPI  TIMEIACT  V 
PREC  VFC  FCR  NCM  TPI  TIMEIPASS 
PREC  VEC  FOR  NOM  TPI  TIMEIPASS 


MAX  STOP  SIZE  FOR  ROUTINE 
BACK  VALUES  OF  DELTA  TIME 
CENTRAL  ANGLE  C 0 VE RED ( T P I -TP F ) 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-093 

L ERASABLE  ASSIGNMENTS 


R19A6 

SOME  P47  STORAGE 

1948 

E7, 1622 

E 7,1627 

DELVIMU 

ERASE 

A1  949 

R 1950 

P30-P40  CCMMCN  STCRAGEo 

1952 

E7,1630 

E7, 1631 

TPASS4 

ERASE  +1 

1953 

E7 ,1632 

E7, 1632 

QTEMP 

ERASE 

A1954 

R1955 

P?2,32,?4  STORAGEo 

1957 

E7  ,1633 

E7 ,1634 

TCS  I 

ERASE 

1958 

E7,1635 

E 7,1636 

TTPI 

ERASE 

1959 

E7,1637 

E7, 1640 

TTP  10 

ERASE 

R 1960 

P30  ,P40  I NTERFACEo 

1962 

E7,1641  E7,1664 

RTIG 

ERASE 

•fl9D 

1963 

REF 

1 

E7  ,1647 

VT  IG 

EQUALS 

RTIG 

1964 

REF 

1 

E7 ,1  655 

DELVSI N 

EQUALS 

VTIG 

1965 

REF 

1 

E7 ,1663 

DELVSAB 

EQUALS 

DELVSIN 

1966 

REF 

1 

E7  ,1663 

VGDISP 

= 

DELVSAB 

1967 

1968 

REF 

1 

E7,1665  E7,1665 

E7,1'665 

QTEMPl 
RGEX if 

ERASE 

EQUALS 

OTEMPl 

1969 

REF 

2 LAST  144 

E7,1665 

SAVQR52 

EQUALS 

QTEMPl 

R1970 

INITV  EL  STORAGEo  ( IN 

OVERLAY  0 AND  OVERLAY  U 

R1972 

(CALLS  LAMBERT 

, CCMC  SUERCUT  INES  1 

1973 

REF 

1 

E7, 1565 

VTPRIME 

EQUALS 

VACT4 

19  74 

REF 

1 

E7 , 1616 

ITCTR 

EQUALS 

RDOTV 

1975 

E 7 ,1666 

E7,1667  CCZY4 

ERASE 

1976 

REF 

3 

LAST  143  E7,1611 

XIINPUT 

EQUALS 

OFLDV 

1977 

A 1978 

REF 

1 

E7  ,1607 

INTIME 

EQUALS 

GAMPRFV 

R1979 

PERIAPO  STORAGEo  (2C) 

1981 

E7,1670  E7,1671 

XXXALT 

ERASE 

1982 

REF 

1 E7,1672 

END-IN/M 

EQUALS  XXXALT 
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( 60  ) 

+5  I(6IDSP  NOUN  83  FOR  P47  DELTA  V (IMU) 


( 30 

INTERCEPT  TIME 

KDTMP  COMMON  RETURN  SAVE  REGISTER,-, 


(6C  I 

+1  B(?l  TMP  CSI  TIME  IN  CENTISECQNDS 
+1  B(2)  TMP  TPI  TIME  IN  CENTISECQNDS 
+1  B(2)  TMP  TTPI  STORAGE  FCR  RECYCLE 


( 21D) 

I (6 ITMP 
+6  I(6)TMP 

+6  I(6)TMP 

+6  I(?»TMP 


I (3  ITMP  HOLDS  RETURN,, 
SAVE  Q 


(2DI 


TOTAL  VELOCITY  AT  DESIRED  RADIUS 
ITERATION  COUNTER 

+1  COS  OF  ANGLE  WHEN  ROTATION  STARTS 

X3  TEMP  STORAGE 
TIME  OF  RINIT 


(2D  I 

+1  RADIUS  TO  LAUNCH  PAD  OR  LANDING  SIGHT 

+ 2 NEXT  AVAIL  ERASABLE  AFTER  IN  I T VEL /M I DG I M 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021)12-091 

L ERASABLE  ASSIGNMENTS 


R 1983 

S4Co  1 STCRAGEo 

1985 

E7, 1672 

E7, 17C5 

UT 

ERASE 

1986 

REF 

1 

E7,1700 

VGTIG 

EQUALS 

UT 

1987 

REF 

1 

E7,1700 

VGPREV 

= 

VGT  IG 

R1988 

ASTEER 

STORAGEo 

1990 

E7,1706 

E7,1733 

VG 

ERASE 

1991 

R EF 

1 

E7, 1714 

RMAG 

EQUALS 

VG 

1992 

REF 

1 

E7,1716 

MUASTEER 

EQUALS 

RMAG 

1993 

REF 

1 

E7 ,1720 

MU/A 

EQUALS 

MUASTEER 

1994 

R EF 

1 

E7, 1722 

RTMAG 

EQUALS 

MU/A 

1995 

REF 

1 

E7,1724 

RIC 

EQUALS 

RTMAG 

1996 

REF 

1 

E7,1732 

SS 

EQUALS 

R1  C 

1997 

REF 

2 

LAST  144 

E7, 1655 

IC 

= 

OELVSI N 

1998 

REF 

1 

£7,1762 

TIGSAVE 

= 

P21T  IMF 

1999 

REF 

1 

E7, 1764 

TI GSAVEP 

= 

SCAXI S 

2900 

REF 

2 

LAST  145 

E7,1766 

MUSCAL  E 

= 

SCAXIS 

R2001 

R2002 

P40  STORAGE 

O 

R2004 

F ,MDCT 

,ANC  TCECAY  MLST  BE 

CONTIGUOUS  FOR  VLOADo 

2005 

E7, 1734 

E 7 ,1741 

F 

ERASE 

2006 

REF 

1 

E7 ,1736 

MOOT 

EQUALS 

F 

2007 

REF 

1 

E7 ,1740 

TOECAY 

EQUALS 

MOOT 

2008 

E7, 1742 

E 7, 1743 

VEX 

ERASE 

A2  309 


R2010 

MI0TDAV1(2)  STQRAGEc 

(CALLED 

BY  P4a,P41 

, P42) 

2012 

A2013 

E7, 1744 

E7, 1744 

IRETURNl 

ERASE 
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USER*  S PAGE  NO,  56 


EO  S4 


( 1 2 D I 

+11D  1(6)  THRUST  DIRECTION 

+ 6 I(6iaUT 

(22D) 


+23D  1(6) 

+6  1(2) 

+2  1(2) 

+2  1(2) 

+2  1(2) 

+2  1(6) 

+6  I ( 2 ) 


+ 2 


(6D) 


+5  I(P)TMP  SA-Oo)  GENERATES  THIS  FOR  SAn^S 

+2  I(2)TMP  MASS  CHNG  RATE,  KG/CS  AT  2**?o 

+2  I(2)IN  DELTA-T  TAILOFF,  (2**28)050 

+ 1 1(2)  EXHAUST  VELOCITY  FOR  TGO  CC’MPUTAT'N 


(ID  I 

B(l)  return  FRCM  MICTOAVl  AND  2 


[ 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


L ERASABLE  ASSIGNMENTS 


P2014 

A2015 

R2016 

CVERLAY  NUMBER  1 IN  EEANK  7 

INITVEL  (CALLED  BY  P34,35, 

>j.  5ji  j!>  5!<  s!<  3i( 

38, 39,  10,  11, 

S40o9,  SAD,  1 ) 

2018 

REF 

I 

E7  ,1471 

RT  ARGl 

EQUALS 

VACTl 

A2019 

R2020 

P35-P40  INTERFACE, 

2022 

REF 

2 

LAST  143  E7,1505 

VPASS4 

EQUALS 

VPASSl 

R2023 

LAT  - LONG  TEMPORARIES, 

CAN 

OVERLAY  WITH  S40o 1 

2025 

REF 

2 

LAST  145  E7,1672 

ERACM 

EQUALS 

UT 

2026 

REF 

1 

E7,1674 

INCORPEX 

EQUALS 

ERADM 

+ ? 

R2027 

LRS24ol  STORAGE,  (CAN 

share  W ITH  P30  ' S ) 

2029 

REF 

1 

E7,1675 

RLMSRCH 

EQIJALS 

1 NCCRPEX 

+ 1 

2030 

REF 

1 

E7, 1703 

VXRCM 

EQUALS 

RLMSRCH 

+ 6 

2031 

REF 

1 

E7 ,1711 

LCSCESRD 

EQUALS 

VXRCM 

+ 6 

2032 

REF 

1 

E7,1717 

UXVECT 

EQUALS 

LOSDESRD 

+6 

2033 

REF 

1 

E7 , 1725 

UYVECT 

EQUALS 

UXVECT 

+ 6 

2034 

REF 

1 

£7,1733 

CATAGCGD 

EQUALS 

UYVECT 

+ 6 

2035 

REF 

1 

E7, 1734 

OMEGDI SP 

EQUALS 

DATAGCCD 

+ 1 

2036 

REF 

1 

£7,1734 

QMEGAC 

= 

OMEGDI SP 

2037 

REF 

2 

LAST  146 

E7,1736 

NSRCHPNT 

EQUALS 

OMEGDISP 

+2 

2038 

REF 

1 

E7, 1737 

SAVLEMV 

EQUALS 

NSRCHPNT 

+ 1 

A2039 

17:53  DEC,  19,1969  LUMERASEol3A  PAGE  146 
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(60) 

I(6)S  TEMP  STORAGE  OF  RTAPG 

(60) 

I(6)TMP  VELOCITY  OF  PASSIVE  AT  INTERCEPT 

(30) 

1(2) 

1(1) 


( 400) 

1(6)  TMP  LM  POSITICN  VECTOR 
1(6)  CM  V X P VECTOR 

1(6)  DESIREO  LGS  VECTOR 

1(6)  X-AXIS  SRCE  PATTERN  CDOROS 

1(6)  Y-AXIS  SRCE  PATTERN  COORDS 

B(1)DSP  FOR  R1  - ALL  1- S kHEN  LOC KON 
B(2)  ANGLE  OMFGA  DISPLAYED  IN  R2 
PINBALL  DEFINITICNo 
B(1)TMP  SEARCH  PATTERN  POINT  COUNTER- 
1(6)  S-S  SAVES  LOSVEL 


( 


GAP  : 
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L 

ERASAEL  E ASS  IGNMENTS 

USER'S  PAGE  NCc  58  EO  S4 

P2040 

CVEPLAY  NUMBER  2 IN  EBANK  7 

a}i  :{i  # j!t  3f( 

A2041 

'R2042 

INCORP  STORAGE  IN  E7, 

(470) 

2044 

REF 

2 

LAST  142  E7,1471 

TX789 

EQUALS 

F70VERLA 

1(6) 

2045 

REF 

1 

E7, 1477 

GAMMA 

EQUALS 

TX789 

+ 6 

1(3) 

2 046 

REF 

1 

E7,1502 

OMEGA 

EQUALS 

GAMMA 

+ 3 

1(18) 

2047 

REF 

1 

E7,1524 

BVECTDR 

EQUALS 

OMFGA 

+ 1PP 

108) 

2048 

REF 

1 

E7, 1546 

DELTAQ 

EQUALS 

eVFCTOR 

+ 180 

1(2) 

R2049 

AOTMARK  STORAGE 

( 3D  ) 

2051 

REF 

1 

E7, 1550 

MARKCNTR 

EQUALS 

DELTAQ 

+ 2 

Id) 

2052 

REF 

1 

E7  , 1551 

XYMARK 

EQUALS 

MARKCNTR 

+ 1 

B(ll 

2053 

REF 

1 

E7,1552 

MKDEX 

EQUALS 

XYMARK 

+ 1 

BO  )TMP  INDEX  FOP  AOTMARK 

A2054 

R2055 

PLANET  STCRAGE, 

( 8D) 

2057 

REF 

1 

E7,1553 

. PLANVEC 

EQUALS 

MKCEX 

+ 1 

(6)  REFER  VECTOR  OF  PLANET 

2058 

REF 

1 

E7, 1561 

TS  IGHT 

EQUALS 

PLANVEC 

+6 

(2)  TIME  OF  MARK  CR  EST  TIME  OF  MARK 

A2059 

R20  60 

LRS22o3  STORAGEo  (CAN  SHARE  V.ITH  POO'S 

ANC  OVERLAY  LRSP4o1 

(30C)o 

2062 

REF 

2 

LAST  146  E7,1675 

LGRET 

EQUALS 

RLMSRCH 

1(1)  TMP 

2063 

REF 

1 

E7,1675 

RCRET 

EQUALS 

LGRET 

B(  1 ) TEMP  RFTURNc 

20  64 

REF 

2 

LAST  147  E7,1675 

IGRET 

EQUALS 

LGRET 

BO  ) TEMP  peTUPNo 

2065 

REF 

1 

E7,1676 

MX 

EQUALS 

RDRET 

+ 1 

1(6) 

2066 

RFF 

1 

E7, 1704 

MY 

EQUALS 

MX  +6 

1(6) 

2067 

REF 

1 

E7, 1712 

MZ 

EQUALS 

MY  +6 

1(6) 

2068 

R EF 

2 

LAST  147  E7,1676 

EO 

EQUALS 

MX 

1(2) 

2069 

REF 

3 

LAST  147  E7,17C0 

El 

EQUALS 

MX  +2 

1(2) 

2070 

REF 

4 

LAST  147  E7,1702 

E2 

EQUALS 

MX  +4 

1(2) 

2071 

REF 

1 

E7,5  7C4 

E3 

EQUALS 

E2 

+ 2 

1(2) 

2072 

REF 

1 

E7, 1720 

SCALSHFT 

EQUALS 

MZ 

+ 6 

eo)  SCALE  SHIFT  FCR  EARTH/MOON 

2073 

REF 

1 

E7 ,1721 

RX  Z 

EQUALS 

SCALSHFT 

+ 1 

1(2) 

2074 

REF 

1 

E7,1723 

ULC 

EQUALS 

RXZ 

+ 2 

1(6) 

2075 

REF 

1 

E7 , 1731 

SI  NTH  eta 

EQUALS 

ULC 

+ 6 

1(2) 

R2076 

***«#  IM  OVERLAY  CAE  *4*44 

2077 

REF 

1 

E7, 1746 

N49FLAG 

EQUALS 

RDOTMSAV 

E(1)S  FLAG  INDICATING  V9649  RESPONSE 

A207e 

R2079 

LRS22ol  STORAGEo  (MLST  NET 

SHARE  tilTH  P30'SI 

(13D) 

R2081 

(OUTPUTS  ARE  TO  LRS22o3) 

GAP 
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2082 

REF 

1 

E7,i733 

RRTRUN 

ECUALS 

S INTHETA 

43 

8(2  lOUT 

RR  TRUNION  ANGLE 

2083 

REF 

1 

E7 ,1735 

RRSHAFT 

EQUALS 

RRTRUN 

42 

B(  2) OUT 

RRSHAFT  ANGLE 

2084 

REF 

1 

E7  ,1737 

LRS22olX 

EQUALS 

RRSHAFT 

42 

B(  1 ITMP 

2085 

REF 

1 

E7, 1740 

RRPORSIT 

EQUALS 

LRS22o IX 

4l 

1(61  TMP 

RACAR  BORESIGHT  VECTORo 

2086 

REF 

1 

67,1746 

ROOT'MSAV 

EQUALS 

RRBOR  SI T 

+ 6 

B(2)  S 

RR  RANGE-RATE (FPS) 

A2087 

R2Q88 

LRS22ol  (SAME  AS  PREVIOUS 

SECTIONI  ALSO 

i DOWNLINK  FOR  R 

R (R29: 

1 (lODI 

CANNOT  SHARE  WITH  LoA, Do 

20  90 

REF 

2 

LAST  1^-7  E7,1750 

ROOTM 

EQUALS 

RDOTMSAV 

42 

8( 2)0UT 

RANGE-RATE  READING 

2091 

REF 

1 

E7, 1752 

TANGNB 

EQUALS 

RDCTM 

42 

e (2  )TMP 

RR  GIMEAL  angles 

R2092 

RETAIN  THE  ORDER  OF  MKT IME 

TO  RM  FOR  DOWNLINK  PURPOSES 

2093 

REF 

1 

E7 ,1754 

MKT IME 

EQUALS 

TANGNB 

42 

B(  2 lOUT 

TIME-OF  RR  READING 

2094 

REF 

1 

E7, 1 756 

RM 

EQUALS 

MKTI ME 

42 

I (2 )nuT 

RANGE  READING 

2095 

REF 

1 

E7,1760 

R ANGRCOT 

EQUALS 

PM 

42 

B(?)  DOWNLINKED  RAW  RANGE  AND  RPATE 

A2096 

R20961 

LANDING  overlay 

(1C) 

20963 

MREF 

2 

LAST  148  E7,1750 

THRDISP 

EQUALS 

P.DOTM 

B(ll  PERCENT  OF  FTP  I 10,500  LBSc 

R2097 

R2098 

R61LEM  - PREFERRED  TRACKING  ATTITUDE  ROUTINE  ** I N OVERLAY 
(CALLED  BY  F2C , R 22L EM , L SR 2 2o 3 1 

ONE* 

(ID) 

2100 

A2101 

A2103 

REF 

2 

LAST  148  E7,1745 

R65CNTR  EQUALS 

RRBORS IT 

+5 

B(  1 )SS 

COUNT  NUMBER  OF  TIMES 
TRACKING  RCUTINE  IS  TO 

PREFERRED 

CYCLE 

R2104 

P21  STORAGE 

(2D  ) 

2106 

A2107 

REF 

1 

E7',  1762 

P21TIME  EQUALS 

RANGRDQT 

+ 2 

1(2) TMP 

R2108 

KALCMANU,  VECPOINT  STORAGEo 

CALLED  BY  R63,  R61 

, R65o 

(12C) 

2110 

REF 

2 

LAST  145  ET,1764 

SCAXIS  EQUALS 

P21TIME 

+ 2 

1(6) 

2111 

REF 

3 

LAST  145  E7,1772 

PCINTVSM  EQUALS 

SCAX  IS 

+6 

I (6  ) 

A2112 


GAP 
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L ERASABLE  ASSIGNMENTS  USER'S  PAGE  NO„  60  EC  S^ 

P2113  OVERLAY  NUMBER  3 IN  EBANK  7 *>:<***=^* 

A211A 


R2115 

SERVICER 

STORAGE 

(60) 

2117 

REF 

3 

LAST  147 

E7, 1471 

ABVEL 

EQUALS 

E7CVERLA 

6(2  ) 

DISPLAY 

2118 

REF 

1 

E7,1473 

HDOTO ISP 

EQUALS 

ABVEL 

+ 2 

B(  2 ) 

01  SPLAY 

2119 

REF 

2 

LAST  120 

E7,1475 

TTFOI SF 

EQUALS 

HOOTD  IS  P 

+ 2 

B(2  ) 

DISPLAY 

A2120 

R2121 

BURN  FROG 

STCRAGEo 

( 20  ) 

2123 

REF 

1 

E7,1477 

SAVET-30 

EQUALS 

TTFDISP 

+2 

6(2  )TMP  T IG-30  RESTART 

A212A 

R2125 

SERVICER 

STCRAGEo 

( 69D) 

2127 

R EF 

1 

E7,1501 

VGBOOY 

EQUALS 

SAVET-30 

+ 2 

B(6)0UT  SEToEY  S41=l  VG  LEM,  SCoCOORDS 

2128 

REF 

1 

E7,1501 

DELVCTL 

= 

VGBODY 

2129 

REF 

2 

LAST  149 

E7,1507 

DVTCTAL 

EQUALS 

VGBCCY 

+ 6 

8(2  1 

DISPLAY  NOUN 

2130 

REF 

1 

67, 1511 

GOBLTIME 

EQUALS 

DVTCTAL 

+2 

B(2  1 

NOMINAL  TIG  FCR  CALCo  OF  GOBLATE, 

2131 

REF 

1 

E7  ,1513 

ABCVCONV 

EQUALS 

GOBLT IMF 

+ 2 

1(21 

2132 

REF 

1 

E7,1515 

DVCNTR 

EQUALS 

ABCVCCNV 

+2 

B(  1 ) 

2133 

REF 

1 

E7 , 1516 

TGO 

EQUALS 

DVCNTR 

+ 1 

B(2) 

2134 

REF 

1 

E7  ,1520 

R 

EQUALS 

TGO 

+ 2 

1(6) 

2135 

REF 

1 

E7, 1 520 

UNITGOBL 

EQUALS 

P 

1(6) 

2136 

REF 

2 

LAST  149 

E7,1526 

V 

EQUALS 

R 

+ 6 

2137 

REF 

1 

E7,1526 

CELVREF 

EQUALS 

V 

1(6) 

2138 

REF 

1 

E7, 1534 

HCALC 

EQUALS 

DELVREF 

+ 6 

B (2  ) 

LR 

2139 

REF 

1 

E7  ,1536 

UN  IT/R/ 

EQUALS 

HCALC 

+ 2 

1(6) 

R2140 

(THE  FOLLOWING 

SERVICER  ERASABLES 

CAN  BE  SHAREC 

WITH 

SECOND  DPS  GUIDANCE  STORAGE) 

2142 

REF 

1 

E7 ,1544 

RNl 

EQUALS 

UNI T/R/ 

+ 6 

B(6) 

2143 

REF 

1 

E7 ,1552 

VNl 

EQUALS 

RNl 

+ 6 

1(6) 

( IN  ORDER  ) 

2144 

REF 

1 

E 7, 1560 

PI PTI MEl 

EQUALS 

VNl 

+6 

B(2  ) 

( FOR  ) 

2145 

REF 

1 

E7 ,1562 

GDTl/2 

EQUALS 

PIPTIMEI 

+ 2 

1(6) 

( COPY  ) 

2146 

REF 

1 

E7,1570 

MASSl 

EQUALS 

GDTl/2 

+ 6 

1(2) 

( CYCLE  ) 

2147 

REF 

1 

E7, 1572 

RIS 

EQUALS 

MASSl 

+ 2 

1(6  1 

2148 

REF 

. 1 

E7,1600 

VIS 

EQUALS 

RIS 

+ 6 

1(6) 

R2149 

AL  IGNIMENT/S40„  2o  3 COMI'CN 

STQRAGEo 

(18  C) 

2151 

REF 

1 

E7 , 1606 

XSMD 

EQUALS 

VIS 

6 

1(6) 

2152 

REF 

1 

E7,1614 

YSI"D 

EQUALS 

XSMC 

+ 6 

1(6) 

2153 

REF 

1 

E7, 1622 

ZSMD 

EQUALS 

YSMO 

I (6  ) 

2154 

REF 

2 

LAST  149 

E7 ,1606 

XSCREF 

_ 

XSMD 

2155 

REF 

2 

LAST  1*9 

E7,1614 

YSCREF 

= 

YSMD 

GAP:  ASSEMBLE  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 
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2156 

REF 

1 

E7,1622 

ZSCREF 

ZSMD 

2157 

REF 

2 LAST  150 

E7,163ri 

ENC-ALIG  EQUALS 

ZSMD 

+6 

R2158 

P22 

2160 

REF 

1 

E7, 1630 

RSU0L 

EQUALS 

END-ALIG 

2161 

REF 

1 

E7,1636 

LCSM 

EQUALS 

RSLBL 

+ 6 

2162 

REF 

I 

E7  ,1644 

NEWVEL 

EQUALS 

UCSM 

+ 6 

2163 

REF 

1 

E7,1652 

NEWPOS 

EQUALS 

NEWVEL 

+6 

2164 

REF 

1 

E7,1660 

LNCHTM 

EQUALS 

NEWPOS 

+ 6 

2165 

REF 

1 

E7  ,1662 

TRANSTM 

EQUALS 

LNCHTM 

*2 

2166 

A2167 

REF 

1 

E7, 1664 

NC  SMVEL 

EQUALS 

TRANSTM 

+2 

R2168 

P21 

2170 

REF 

1 

1162 

P210RIG 

DI SPDEX 

2171 

REF 

3 

LAST 

147  E7,1675 

P21BAS  ER 

EQUALS 

RLMSPCH 

2172 

REF 

1 

E7,17C3 

P21BASEV 

EQUALS 

P21 BASER 

+6 

2173 

REF 

1 

E7,1711 

P21VeL 

EQUALS 

P21BASEV 

+ 6 

2174 

REF 

1 

E7,1713 

P21GAM 

EQUALS 

P21VEL 

+ 2 

2175 

A2176 

REF 

1 

E7, 1715 

P21ALT 

EQUALS 

P2IGAM 

+ 2 
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NEXT  AVAIL  ERASABLE  AFTER  ALIGN/SAOo 


( 240) 

I(6IS-S  LM  POSITICN  VECTOR 
I (6 )S-S  VECTOR  U 
I(6IS-S  TERMINAL  VELOCITY  VECTOR 
I(6)S-S  TERMINAL  POSITION  VECTOR 
I(2IS-S  EST„  LAUNCH  TIME  FOP  LEM 
I(2)S-S  TRANSFER  TIME 
I (6  IS-S  NEW  CSM  VELOCITY 


(180 


I ( 6 ITMP 
I (6  ITMP 
1(2) TMP 
I ( 2 ITMP 
I (?  ITMP 


150 


2,3 


***  NCUN  0? 

***  NOUN  91  *** 
***  NOUN  91  *44 
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P2177  *#*^^*##  CVEPLAY  NUMBER  A IN  EBANK  7 

A2178 


R2179  variables  FOR  SECOND  CPS  GUIDANCE  (THE  LUNAR  LANDING) 
R2181  THESE  ERASA8LES  MAY  BE  SHARED  WITF  CARE 


2182 

PEF 

2 LAST  149 

E7,15AA 

OURTEMPS 

= 

RNl 

2183 

REF 

1 

E7 , 15AA 

L ANDTEMP 

= 

OURTEMPS 

218A 

REF 

1 

E7,1552 

TTF/8TMP 

= 

LANDT  EMP 

+6 

2185 

REF 

1 

E7, 155A 

EL  INCR 

= 

TTF/8TMF 

+ 2 

2186 

REF 

1 

E7  ,1556 

AZ  INCR 

= . 

EL INCR 

+ 2 

2187 

REF 

1 

E7, 1560 

KEEP-2 

= 

AZ INCR 

+2 

2188 

REF 

1 

E7,1562 

TABLTTF 

= 

KEEP-2 

+ 2 

2189 

PEF 

1 

E7  ,1573 

TP  IPOLC 

= 

TABLTTF 

+ 9D 

2190 

R2191 

REF 

1 

E7, 1621 

E2DPS 

EQUALS 

OURPERRS 

R 2192 
2193 

THESE 

PEF 

ERASABLES 
3 LAST 

MUST 

149 

NOT  OVERLAY 
E7,1606 

GCBLTIRE  CR  SERVICER 
PIFPSET  = 

XSMD 

2194 

REF 

1 

E7,1607 

RTNHOLD  = 

PIFPSET 

+ 1 

2195 

RFF 

1 

E7,1610 

FWEIGHT  = 

RTNHOLD 

+ 1 

2196 

PEF 

1 

E7, 1612 

PIF 

FWEIGHT 

+ 2 

2197 

REF 

1 

E7,1614 

PSEUD055  = 

PIF 

+ 2 

2198 

REF 

1 

E7,1615 

FC 

PS  EUC055 

+1 

2199 

REF 

1 

E7 , 1617 

TTHROT 

FC 

+ 2 

2200 

A2201 

REF 

1 

E7 ,1620 

FCOLD 

TTHROT 

+ 1 

R2202 

THESE 

ERASABLES  SHOULD  NOT  BE  SHARED 

CUR ING  P62, 

P65,  P66, 

P67 

2203 

REF 

1 

E7,1621 

GURPERMS 

= 

FCOLD 

+ 1 

2204 

REF 

2 LAST  151 

E7, 1621 

WCHPHOLO 

= 

OURPERMS 

2205 

REF 

1 

E7,1622 

FILLER 

= 

WCHPhOLD 

+ 1 

2206 

REF 

1 

E7,1623 

FLPASSO 

FILLER 

+1 

2207 

REF 

1 

E7, 1624 

TRIP 

= 

FLPASSO 

+ 1 

2208 

REF 

1 

E7  ,1626 

VGU 

= 

TP  I P 

+ 2 

2209 

REF 

1 

E7,1634 

LAND 

= 

VGU 

+6 

2210 

REF 

1 

E7 ,1642 

TTF/8 

= 

LAND 

+ 6 

2211 

RFF 

1 

E 7 ,1644 

EL ICUMNY 

TTF/8 

+ 2 

2212 

REF 

1 

E7, 1 645 

AZ I DUMMY 

= 

E LI  DUMMY 

+ 1 

2213 

REF 

1 

E7,1646 

ZERDUMMY 

= 

AZI DUMMY 

+ 1 

2214 

REF 

1 

E7 , 1647 

ELVDUMMY 

= 

ZERDUMI':Y 

+1 

2215 

REF 

1 

E7, 1650 

LRADRET 

= 

ELVDUMMY 

+ 1 

2216 

REF 

1 

E7  ,1651 

VSELECT 

= 

LRADRET 

+ 1 

2217 

REF 

1 

E7,1652 

VMEAS 

= 

VSELECT 

+1 

2218 

REF 

1 

E7 , 1654 

HMEAS 

= 

VMEAS 

+ 2 

2219 

REF 

1 

E7,1656 

VN2 

HMEAS 

+ 2 

4 
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1. 1 

USER'S  PAGE  NOo  62  EC.  SA  ( 

( 


(BOD) 


OVERLAY 

LAST  PART  OF  SERVICER 

B ( 6) 

GUIDANCE 

B(2  ) 

GU I DANCE 

B (2  ) 

GUIDANCE 

B(  2 1 

GUIDANCE 

B (2  ) 

TO  PREVENT  PIPTIMEl  OVERLAY 

B (2  ) 

GUIDANCE 

B(  2 ) 

GUIDANCE 

B(l)  THROTTLE 

B(l)  THPCTTLE 

B(2)  THROTTLE 

B(2)  THROTTLE 

B( 1 ) THROTTLE  DOWNLI NK 

B(2)  THROTTLE 

B(l)  THPGTTLF 

B(l)  THROTTLE 


MUSTN'T  OVERLAY  OURTEMPS  OR  SERVICER 
fid)  GUIDANCE 


B(l)  GUIOANCF 


B(2) 

B(  6 ) 

GUIDANCE 

P (6  ) 

GU ICANCE 

CONTI 

R(2) 

GUIDANCE 

CONT 

( I ) 

DUMMY  FOR 

EL  INCPl 

(1  ) 

DUMMY  FDR 

AZINCRl 

( 1 ) 

DUMMY  FOR 

ZERLI NA 

(1  ) 

DUMMY  FOR 

ELVIRA 

B(1  ) 

LR 

B(  1 ) 

LR 

8(2) 

LR 

B(2) 

LR 

B(6  ) 

LR 

GAP 
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2220 

2221 

2222 

REF 

REF 

REF 

1 

2 

3 

LAST 

LAST 

152 

152 

E7 ,1656 
E7,1656 

E7, 1656 

GNUR 

GNUV 

LRADRETl  = 

VN2 

VN2 

VN2 

2223 

REF 

4 

LAST 

152 

£7 ,1664 

OELTAH 

VN2 

+ 6 

2224 

REF 

1 

E7,1666 

FUNNYDSP  = 

DELTAH 

+2 

2225 

REF 

1 

E7, 1670 

EOURPERM  EQUALS  FUNNYDSP 

+ 2 

R2226 


R2227 

(ERASABLES  WHICH  OVERLAY  THE 

ABOVE  8LCCK) 

222R 

REF 

2 

LAST 

151 

£7,1644 

VDGVFRT 

= 

FLIDUMMY 

2229 

REF 

2 

LAST 

151  •• 

E7 ,1646 

NIGNLOOP 

= 

ZERCUM(^Y 

2230 

REF 

2 

LAST 

151 

E7,1647 

NGLI DSUB 

= 

ELVDUMMY 

2231 

REF 

3 

LAST 

152 
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2266 
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2271 

REF 

2 
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2273 

REF 

1 
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EQUALS 
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EQUALS 
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+ 2 

I( 2ITMP 

DISTANCE,  SCALED 
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l/CVl 
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E-7,1640 

1/CV3 
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+ 2 
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+ 2 
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TXQ 
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I (2 1 TMP 
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IS  ALLOWEOo 

R2308 

END 

OF 
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R'2309 
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FCLLCNING  CARDS 
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ASSEMBLER 

HAPPY  until  the 

SYMBOLS  ARE  DELETED  FROM 

THE  PINBALL  NCUN 
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REF 
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E7,1745 

END-E7oO 

EQUALS 

I RETUP  N1 

+ 1 

FIRST  UNUSED  LOCATION  IN 

E7  OVERLAY 

0 

2312 

REF 

1 

E7 , 1747 

END-E7<,  1 

EQUALS 
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+ 1 

FIRST  UNUSED  LCCATICN  IN 

E7  OVERLAY 
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4 000 
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EQUALS 
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E7  OVERLAY 
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END-E7<,3 

EQUALS 

END-ALIG 
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40  27 
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157: 

10 

10* 

COUNT*  $$/T4RPT 

0042 

REF 

1 

06,2012 
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REF 
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C 

TC 
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0 
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REF 
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0 
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REF 
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1 
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0 

AD 
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1 
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0 

TC 
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CSPQUTSB 

TS 

NOUT 

0056 

REF 

1 

06, 2025 

4 4755 

0 

CS 

ZERO 

0057 

REF 

1 

06,2026' 

54  073 

1 

TS 

DSRUPTEM 

0058 

REF 

1 

06,2027 

56  775 

1 

XCH 

DSPCNT 

0059 

REF 

1 

C6, 2030 

6 4754 

0 

AD 

NEGC 

0060 

REF 

2 

LAST 

159 

06  ,2031 

54  775 

0 

TS 

DSPCNT 

0061 

REF 

3 

LAST 

159 

C6,2C32 

50  775 

1 

dspscan 

INCEX 

DSPCNT 

0062 

REF 

4 

LAST 

158 

06,2033 

11’022 

1 

CCS 

OSPTAB 

0063 

REF 

4 

LAST 

159 

06 ,2034 

3 0 775 

0 

CCS 

DSPCNT 

006^^ 

REF 

1 

C6, 2035 

1 2030 

1 

TCF. 

DSPSCAN 

0065 

REF 

1 

06,2036 

1 2047 

1 

TCF 

DSPLAY 

0066 

06,2037 

00012 

1 

TABLNTH 

OCT 

3 2 

0067 

REF 

2 

LAST 

159 

16,2040 

1C  073 

1 

CCS 

DSRUPTEM 

0068 

06  ,2041 

37764 

0 

120MRUPT 

DEC 

16372 

0069 

REF 

2 

LAST 

159 

06,2042 

E5'015 

c 

TS 

NOUT 

0070 

REF 

2 

LAST 

93 

06,2043 

C 1002 

0 

TC 

0 

0071 

REF 

3 

LAST 

159 

06 ,2044 

54  073 

1 

TS 

DSRUPTEM 

0072 

REF 

1 

06, 2045 

3 2037 

,1 

CAF 

TABLNTH 

0073 

REF 

2 

LAST 

159 

06,2046 

1 2031 

0 

TCF 

DSPSCAN  ■ 

0074 

REF 

1 

06,2047 

6 4753 

1 

OSPLAY 

AD 

PNE 

0075 

REF 

5 

LAST 

159 

06,2050 

50  775 

1 

INDEX 

L SPCNT 

0076 

REF 

5 

LAST 

159 

06  ,2051 

55'022 

1 

TS 

DSPTAB 

0077 

REF 

2 

LAST 

158 

C6,?052 

7 4356 

1 

MASK 

LOWll 

0078 

REF 

4 

LAST 

159 

06,2053 

54  073 

1 

TS 

OSRUPTE  M 

0079 

REF 

1 

06,2054 

3 43  50 

0 

CAF 

HI5 

0080 

REF 

6 

LAST 

159 

06,2055 

5C  775 

1 

INDEX 

DSPCNT 

0081 

REF 

1 

16,2056 

7 4066 

1 

MASK 

RELTAB 

0082 

REF 

5 

LAST 

159 

06,2057 

6 0073 

0 

AD 

DSRUPTEM 

0083 

06, 2060 

0 1006 

1 

E XTEND 

0084 

REF 

2 

LAST 

158 

06  ,2061 

01  010 

1 

WR  ITE 

OUTP 

00841 

REF 

1 

06,2062 

1 6742 

1 

TCF 

0+1 

00842 

00843 

REF 

REF 

1 

2 

LAST 

159 

16.2063 

06.2064 

10  101 
3 4755 

0 

1 

DSPPUT 

CCS 

CAF 

FLAGWR05 

ZERO 

00844 

REF 

1 

06,2065 

1 2130 

C 

TCF 

NCDSPCUT 

00845 

REF 

3 

LAST 

159 

06,2066 

11 '015 

0 

CCS 

NOUT 

00846 

REF 

1 

06,2067 

0 2024 

0 

TC 

DSPCUTSB 

00847 

REF. 

2 

LAST 

159 

16, 2070 

1 2130 

0 

TCF 

NODSPQUT 

0085 

REF 

1 

06,2071 

4 2171 

0 

HANG2n 

CS 

14,11,9 

0086 

REF 

3 

LAST 

157 

C6, 2C72 

2T31C 

c 

ADS 

DSRUPTSN 

0087 

REF 

1 

16,2073 

3 7734 

0 

CAF 

20MRUPT 

0088 

REF 

1 

06,2074 

54  027 

0 

SETTI ME4 

TS 

T I MF4 
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USER  'S  PAGE  NCo  ? E6  SA 


SET  TO  -0  FOR  1ST  PASS  THRU  OSPTAB 
TO  PREVENT  +C 


IF  OSPTAB  ENTRY  + , SKIP 

IF  CSPCNT  +,  TRY  AGAIN 

IF  OSPTAB  FNTRY  DISPLAY 

CEO  10  LENGTH  OF  OSPTAB 

IF  DSRUPTEM=+n ,2N0  PASS  THRU  OSPTAB 

(OSPCNT  = 0)o  +0  INTO  NCUTo 


IF  0SPUPTEM=-0,1ST  PASS  THRU  OSPTAB 
(OSPCNIT=n)„  +0  INTO  DSRUPTEMo  PASS  AGAIN 


REPLACE  POSITIVELY 
REMOVE  BITS  12  TP  15 


PICK  UP  BITS  12  TO  15  OF  RELTAB  ENTRY 


I S OSKY  FLAG  ON 

NO 

NO 

YFS 


NO  OISPLAY  REQUESTS 


GAP 
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L 

P00881 
R0088 12 


R00881A 

R008815 

R008816 

R008817 


R008818 


00882 

008821 

008822 

008823 

008826 

008825 


008826 

003827 

008828 

008829 

00883 

008831 

008832 

008833 

008836 

008835 

008836 

008836 


T6RUPT  PROGRAM  USER'S  PAGE  NOo  6 E6  S6 

THE  STATUS  CF  THE  PRCCEEC  PUSHBUTTON  IS  MCNITCRED  EVERY  120  MILLISECONDS  VIA  THE  CHANNEL  32  BIT  16  INBITo 
THE  STATE  OF  THIS  INBIT  IS  COMPARED  WITH  ITS  STATE  DUPING  THE  PREVIOUS  T6RUPT  AND  IS  PROCESSED  AS  FOLLOWS, 


IF  PREV  ON  AND  NOW  ON 
IF  PREV  ON  AND  NCW  OFF 
IF  PREV  OFF  AND  NOW  ON 


BYPASS 

UPDATE  IMCCES33 

UPDATE  IM0DFS33  AND  PROCESS  VIA  PINBALL 


IE  PREV  CFE  AND  NOW  CFF  - BYPASS 


THE  LOGIC  EMPLOYED  REQUIRES  ONLY  9 MCT  (APPROX,  108  MICROSECONDS)  CF  COMPUTER  TIME  WHEN  NO  CHANGES  OCCUR, 


REF 

1 

36,2075 

3 1300 

0 

PROCEEDE  CA 

I MODES33 

MONITIOR  F'CP  PROCEED  BUTTON 

06  ,2076 

0 0006 

1 

EXTEND 

REF 

1 

C6,2C77 

06  032 

C 

RXCR 

CHAN32 

REF 

12 

LAST 

87 

06,2100 

7 6736 

c 

MASK 

BI  T16 

06  ,2101 

0 0006 

1 

EXTEND 

REF 

I 

06, 2102 

1 2116 

1 

BZF 

T6 JUMP 

NO  CHANGE 

REF 

2 

LAST 

160 

T6,2103 

23'300 

0 

LXCI- 

IMaDES33 

06,2106 

0 0006 

1 

EXTEND 

REF 

1 

06,2105 

C6  001 

0 

RXCR 

LCHAN 

REF 

3 

LAST 

160 

06  ,2106 

55 '300 

1 

TS 

IM0DES33 

UPDATE  IMODES33 

REF 

13 

LAST 

160 

06,2107 

7 6736 

0 

MASK 

BIT16 

PEF 

1 

36,2110 

10  000 

0 

CCS 

A 

REF 

2 

LAST 

160 

06 ,2111 

1 2116 

1 

TCP' 

T6JUMP 

WAS  ON  - NOW  OFF 

REF 

1 

06,2112 

3 6355 

0 

CAF 

CHPPRIC 

WAS  OFF  - NOW  ON 

REF 

1 

06,2113 

0 5072 

1 

TC 

NOVAC 

REF 

1 

0776 

ERANK= 

DS  PCCUNT 

REF 

1 

06,2116 

C3506 

1 

2CADR 

PRCCKEY 

REF 

1 

06  ,2115 

60101 

1 

GAP  : 

L 

P0089 

0090 

0091 

0092 

0093 

009A 

0095 

0096 

0097 

0098 

0099 

0102 


ASSEMBLE  REVISION  131  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19,1<=69  LEM0NAIDcl04 


PAGE  161 


TARUPT  PROGRAM 


USER'S  PAGE  NOc 


E6  S^ 


JUMP  TO  AFPPCPPIATE  CNCE-PER  SECONC  ( o96  SEC  ACTUALLY)  ACTIVITY 


REF 

2 

LAST 

157 

06,2116 

50  070 

0 

T4 JUMP 

INDEX 

RUPTREGl 

06,2117 

1 

2120 

1 

TC  F 

+ 1 

REF 

1 

06 ,2120 

0 

3164 

1 

TC 

RCSMONIT 

REF 

1 

06,2121 

1 

3006 

0 

TCF 

RRAUTCHK 

REF 

1 

06,2122 

] 

2172 

0 

TC  F 

I MUMON 

REF 

1 

06,2123 

1 

3140 

0 

TCF 

0APT4S 

REF 

2 

LAST 

161 

06, 212A 

0 

3164 

1 

TC 

RC  SMONI T 

REF 

2 

LAST 

161 

06 ,2125 

1 

3006 

0 

TCF 

RRAUTCHK 

REF 

2 

LAST 

161 

06,2126 

1 

2172 

0 

TCF 

I MUMON 

REF 

2 

LAST 

16  1 

06,2127 

1 

3140 

0 

TCF 

DAPT4S 

REF 

1 

773A 

20MRUPT 

= ' 

0CT37776 

(DEC  16382) 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARV  BY  NASA  2021112-091 


P0150 

0151 

0152 


0153 
01 5A 


0155 

01551 

01552 

01553 


01555 

0156 

0157 
01575 
01577 


0158 

0159 


0160 

0161 


0162 


0163 

0164 


0165 

0166 


0167 

0168 


0169 

0170 
017] 

0172 

0173 


0174 

0175 

0176 

0177 


0179 


T4RL'PT  PRCGRAM 

additional  routines  fcr  20MSo  keybcarc  activity 


16,2130 

0 0006 

1 

NODSPOUT 

E XTEND 

REF 

3 

LAST 

159 

16  ,2131 

01  010 

1 

WR  ITE 

□ UTO 

REF 

1 

06,2132 

3 2041 

0 

CAF 

12r  MRUPT 

REE 

1 

.16,2133 

1 2074 

1 

TCF 

SETTIME4 

REE 

14 

LAST 

16C 

06,2134 

3 4736 

1 

QUIKDSP 

CAF 

BIT14 

REF 

4 

LAST 

159 

06,2135 

7 1310 

0 

MASK 

DSRUPTSW 

16 ,2136 

0 0006 

1 

EXTEND 

REF 

1 

06,2137 

1 2165 

c 

BZF 

QUIKOFF 

REF 

4 

LAST 

159 

06,2140 

11 '015 

0 

CC  S 

NOUT 

REF 

2 

LAST 

159 

06,2141 

C 2024 

0 

TC 

DSPGUTSB 

PEE 

1 

06, 2142 

1 2152 

1 

TCF 

NODSPY 

REF 

15 

LAST 

162 

06,2143 

4 4736 

0 

CS 

BIT14 

REF 

5 

LAST 

162 

06,2144 

27' 310 

0 

CUI KRUPT 

ACS 

DSRUPTSW 

REF 

2 

L AST 

159 

.06,2145 

3 7734 

0 

CAF 

20MRUPT 

REF 

2 

LAST 

159 

06  ,2146 

54  027 

0 

TS 

T IME4 

REF 

12 

LAST 

87 

06,2147 

3 4743 

0 

CAF 

BIT9 

REF 

6 

LAST 

162 

06,2150 

27'310 

0 

ADS 

D SRLPTSW 

REF 

1 

06,2151 

0 5270 

1 

TC 

R ESUME 

06,2152 

C 0006 

1 

NHDSPY 

EXTEND 

REF 

4 

LAST 

162 

06  ,2153 

01  010 

,1 

WRITE 

□ UTO 

REF 

3 

LAST 

162 

06,2154 

3 7734 

c 

SYACT4 

CAF 

20MRUPT 

REF 

3 

LAST 

162 

06,2155 

26  027 

0 

ADS 

TI  ME4 

REF 

13 

LAST 

162 

06,2156 

3 4743 

n 

CAF 

BIT9 

REF 

7 

LAST 

162 

06,2157 

27'310 

0 

AOS 

DSRUPTSW 

REF 

8 

LAST 

162 

06,2160 

11*310 

0 

CCS 

DSRUPTSW 

REF 

2 

LAST 

162 

06,2161 

0 5270 

1 

TC 

R ESUME 

06,2162 

37737 

0 

0CT37737 

OCT 

37737 

REF 

1 

06  ,2163 

0 2154 

0 

TC 

SYNCT4 

REF 

3 

LAST 

162 

06,2164 

0 5270 

1 

TC 

RESUME 

06,2165 

0 0006 

1 

QUIKOFF 

EXTEND 

R EF 

5 

LAST 

162 

06 ,2166 

01  010 

1 

WR  ITE 

OUTO 

REF 

16 

LAST 

162 

06,2167 

3 4736 

1 

CAF 

BI  T14 

REF 

1 

06,2170 

1 2144 

0 

TCF 

QUIKRUPT 

06,2171 

22400 

c 

14 ,11  ,9 

CCT 

22400 
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USER'S  PAGE  NCc  6 E6  S4 


SET  FOR  NEXT  CCRIVE 


WROTE  LAST  TIME,  NOW  TURN  OFF  RELAYS^ 


NnUT=0  OR  BAD  RETURN  FROM  OSPOUTSB 
GOOD  RETURN  (WE  DISPLAYED  SOMETHING) 


RESET  DSRUPTSW  TO  SEND  DISPLAY  NEXT  PASS 
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L T4RUPT  PROGRAM  . USER'S  PAGE  NCo  7 E6  S4 


P03C0  PRCGRAM  NAME:  IMUMCN 

R030]  FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  IS  ENTERED  EVERY  480  MSo  IT  DETECTS  CHANGES  OF  THE  IMU  STATUS  BITS  IN 

R0303  CHANNEL  30  AND  CALLS  THE  AFPRCPRIATE  SUBROUTINES^  THE  BITS  PROCESSED  AND  THEIR  RELEVANT  SUBROUTINES  ARE: 


R0305 

R0306 

FUNCTION 

BIT 

SUBROUTINE  CALLED 

R0307 

TEMP  IN  LIMITS 

15 

TL  IM 

R0308 

I SS  TLRN-ON  REQUEST 

14 

I TUPNCN 

R0309 

IMU  FAIL 

13 

IMUFAIL  ISETISSW) 

R0310 

IML  ecu  fail 

12 

ICDUFAIL  ISETISSW 

R0311 

IMU  CAGE 

11 

I MUCAGE 

R0312 

IMU  OPERATE 

9 

IMUOP 

R0313  THE  LAST  SAMPLED  STATE  CF  THESE  BITS  IS  LEFT  IN  IM0DES30o  ALSO,  EACH  SUBROUTINE  CALLED  FINOS  THE  NEW 

R0315  VALUE  OF  THE  BIT  IN  A,  WITH  0 SET  TO  THE  PROPER  RETURN  LOCATION,  NXTIFAILo 

R0317  CALLING  SEQUENCE:  T'ARUPT  EVERY  480  M ILL  IS  ECONDSo 

R0318  JCBS  OR  TASKS  INITIATED:  NONEo 

R0319  SUBROUTINES  CALLED:  TLIM,  ITURNON,  SETISSW,  IMUCAGE,  IMUOPo 
R0320  ERASABLE  INITIALIZATION: 

R0321  FRESH  START  CR  RESTART  WITH  NO  GROUPS  ACTIVE:  C(IMODES30I  = OCT  37411„ 

R0323  RESTART  WITH  ACTIVE  GROUPS:  C(IM0CES30I  = ( B ( I MOD E S30 I AND < OC T 000351)  PLUS  OCT  37400„ 

R0325  THIS  LEAVES  IMU  FAIL  BITS  INTACTo 


R0326  ALARMS:  NONEc 


R0327  EXIT:  TNCNTESTo 

R0328  OUTPUT:  UPDATED  IM0DES30  WITH  CHANGES  PRCCESSED  BY  APPROPRIATE  SUBROUTINE, 


0330 

REF 

1 

06,2172 

3 1277 

1 IMUMON 

CA 

IM0DES30 

SEE  IF  THERE  HAS  BEEN 

A change 

0331 

16,2173 

0 0006 

1 

EXTEND 

RELEVANT  BITS  OF  CHAN 

30e 

0332 

REF 

1 

06,2174 

Ce  C30 

1 

RXOR 

CHAN30 

0333 

REF 

1 

06,2175 

7 2761 

1 

MASK 

BORDMSK 

0334 

06,2176 

0 0006 

1 

EXTEND 

0335 

REF 

1 

06,2177 

1 2227 

0 

BZF 

TNCNTFST 

NO  CHANGE  IN  STATUSo 

0336 

REF 

s 

LAST 

161 

06 ,2200 

54  070 

1 

TS 

PUPTREGl 

SAVF  BITS  WHICH  HAVE 

CHANGED., 

0337 

REF 

2 

LAST 

163 

06,2201 

22'277 

1 

LXCH 

IM0CES30 

update  IMOCESSOb 

033  8 

)6,2202 

0 0006 

1 

EXTEND 

0339 

REF 

2 

LAST 

160 

06 ,2203 

0 6 001 

0 

RXOR 

LCHAN 

0340 

REF 

3 

LAST 

163 

06, 2204 

55*277 

0 

TS 

I MODES30 

0341 

REF 

2 

LAST 

159 

06,2205 

4 4753 

0 

CS 

ONE 

0342 

REF 

4 

LAST 

163 

06,2206 

56  C70 

0 

XCH 

PUPTREGl 

0343 

06, 22C7 

0 0006 

1 

E XTEND 
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0344 

REF 

1 

06,2210 

6 2514 

0 

BZMF 

TLIM 

0345 

REF 

1 

06,2211 

1 2213 

1 

TCF 

NXTI FBI T 

0346 

REF 

3 

LAST 

163 

06,2212 

6 4753 

1 

-1 

AO 

ONE 

0347 

REF 

5 

LAST 

163 

06, 2213 

24  C7C 

C 

NX1IFBIT 

INCR 

PUPTREGl 

0348 

06, 2214 

6 0000 

1 

+ 1 

DOUBLE 

0349 

REF 

2 

LAST 

160 

06,2215 

54  COO 

0 

TS 

A 

0350 

REF 

2 

LAST 

164 

06,2216 

1 2213 

1 

TCF 

NXTIFBI T 

0351 

REF 

1 

06  ,2217 

56  071 

1 

XCF 

PUPTREG2 

0352 

REF 

6 

LAST 

164 

■ 06,2220 

50  070 

0 

INDEX 

RUPTREGl 

0353 

REF 

17 

LAST 

162 

06,2221 

3 4736 

1 

CAF 

BI  T14 

0354 

REF 

4 

LAST 

163 

06,2222 

7 1277 

0 

MASK 

IM0DES30 

0355 

REF 

7 

LAST 

164 

06,2223 

50  C70 

0 

INDEX 

RUPTREGl 

0356 

REF 

1 

16,2224 

0 2755 

1 

TC 

IFAILJMP 

03  5 7 

REF 

2 

LAST 

164 

06,2225 

10  C71 

0 

NXTIFAIL 

CCS 

RU  PTREG2 

0358 

REF 

3 

LAST 

164 

06,2226 

1 2212 

0 

TCF 

NXTI FBI T 
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CHANGE  IN  IMU  TEMPo 
BEGIN  BIT  SCANo 


(RE-ENTERS  HERE  FROM  NXTIFAIL  ) 
ADVANCE  BIT  POS  IT  ICN  NUMBER, 

SKIP  IF  OVEPFLOWc 
LOOK  FOR  BIT, 

SAVE  OVERFLOW-CORRECTED  DATA, 
SELECTNEW  VALUE  OF  THIS  BIT, 


PROCESS  ANY  ADDITIONAL  CHANGES,, 


GAP:  ASSENBLE  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 


17: 53  DECo  19,1 969 


LEPONAIDo 104 


PAGE  165 


L 

T4RUPT  PROGRAM  USER'S  PAGE  NCc  9 E6  S4 

P0359 

program  name:  TNCNTESTo 

R0360 

R0362 

R0364 

FUNCTIONAL  DESCRIPTICN:  THIS  PROGRAM  HONORS  REQUESTS  FOR  ISS  I N IT  I Al  I ZAT ION3  ISS  TURN-ON  (CHANNEL  30  BIT  141 
AND  ISS  OPERATE  (CHANNEL  30  BIT  9)  REQUESTS  ARE  TREATED  AS  A PAIR  AND  PROCESSING  TAKES  PLACE  ,480  SECONDS 

AFTER  EITHER  CNE  APPEARSo  TPIS  INITIALIZATION  TAKES  ON  ONE  OF  THE  FOLLOWING  THREE  FORMS: 

R0366 

R0368 

R0370 

1)  ISS  TURN-ON:  IN  THIS  SITUATION  THE  COMPUTER  IS  OPERATING  WHEN  THE  ISS  IS  TURNED  ONc  NOMINALLY, 
BOTH  ISS  TURN-ON  AND  ISS  OPERATE  APPEARo  THE  PLATFORM  IS  CAGED  FOR  90  SECONDS  ANC  THE  ICOU'S  ZEROED 

SO  THAT  AT  THE  END  CF  THE  PROCESS  THE  GIMBAL  LOCK  MONITOR  WILL  FUNCTION  PROPERLYc 

R0372 

R0374 

R0376 

R0378 

2)  ICDU  INITIALIZATION:  IN  THIS  CASE  THE  COMPUTER  WAS  PROBABLY  TURNED  ON  WITH  THE  ISS  IN  OPERATE  OR 

A FRESH  START  WAS  CONE  WITH  THE  ISS  IN  OPERATEo  IN  THIS  CASE  ONLY  ISS  OPERATE  IS  0N„  THE  ICOU'S  ARE 
ZEROED  SO  THE  GIMBAL  LCCK  MONITOR  WILL  FUNCTIONo  AN  EXCEPTION  IS  IF  THE  ISS  IS  IN  GIMBAL  LOCK  AFTER 

A RESTART,  THE  ICDU'S  WILL  NOT  BE  ZERCEOo 

R0379 

R0381 

3)  RESTART  WITH  RESTARTABLE  PROGRAM  USING  THE  IMU:  IN  THIS  CASE,  NO  INITIALIZATION  TAKES  PLACE  SINCE 
IT  IS  ASSUMED  THAT  THE  USING  PROGRAM  DID  THE  INITIALIZATION  AND  THEREFORE  T4RUPT  SHOULD  NOT  INTERFEREo 

R0383 

R0385 

R0387 

R0389 

R0391 

R0393 

R0395 

R0397 

R0399 

IM0DES30  BIT  7 IS  SET  = 1 BY  THE  FIRST  BIT  (CHANNEL  30  BIT  14  OR  9)  WHICH  ARRIVES,  FCLLCWING  THIS,  TNONTEST  IS 

ENTERED,  FINDS  BIT  7=1  BUT  BIT  8 = 0 , SO  IT  SETS  BIT  8=1  AND  EXITS,  THE  NEXT  TIME  IT  FINDS  BIT  8=1  AND 

PROCEEDS,  SETTING  BITS  8 AND  7=0,  AT  PROCTNON,  IF  ISS  TURN-CN  REQUEST  IS  PRESENT,  THE  ISS  IS  CAGED  (ZERO  + 
COARSE),  IF  ISS  OPERATE  IS  NCT  PRESENT  PROGRAM  ALARM  00213  IS  ISSUED,  AT  THE  END  OF  A oo  SECCND  CAGE,  BIT  2 

OF  IMODES30  IS  TESTED,  IF  IT  IS  = 1,  ISS  TURN-ON  WAS  NOT  PRESENT  FOP  THE  ENTIRE  90  SECONDS,  IN  THAT  CASE,  IF 
THE  ISS  TURN-ON  REQUEST  IS  PRESENT  THE  90  SECOND  WAIT  IS  REPEATED,  OTHERWISE  NO  ACTION  OCCURS  UNLESS  A PROGRAM 
WAS  waiting  for  THE  INITIALIZATION  IN  WHICH  CASE  THE  PROGRAM  IS  GIVEN  AN  IMUSTALL  ERROR  RETURN,  IF  THE  DELAY 
WENT  PROPERLY,  THE  ISS  DELAY  CLTBIT  IS  SENT  ANC  THE  ICDU'S  ZEROED,  A TASK  IS  INITIATED  TO  REMOVE  THE  PIPA  FAIL 

INHIBIT  BIT  IN  ID, 24  SECONDS,  IF  A MISSION  PROGRAM  WAS  WAITING  IT  IS  INFORMED  VIA  ENDIMU, 

R0401 

R0403 

AT  PROCTNON,  IF  ONLY  ISS  CPERATE  IS  PRESENT  (OPONLY),  THE  CDU'S  ARE  ZEROED  UNLESS  THE  PLATFORM  IS  IN  COARSE 
ALIGN  (=  GIMBAL  LOCK  HERE)  OP  A MISSION  PROGRAM  IS  USING  THE  IML  (IMUSEFLG  = 1), 

R0405 

CALLING  SEQUENCE:  T4RUPT  EVERY  480  MILLISECONDS  AFTER  IMUMON, 

R0406 

R0408 

R0410 

JOBS  OR  TASKS  INITIATED:  1)  ENDTNCN,  90  SECONDS  AFTER  CAGING  STARTED,  2)  ISSUP,  ^ SECONDS  AFTFR  CAGING  DONE, 
31  PFAILCK,  10,24  SECCNCS  AFTER  INITIALIZATION  COMPLETED,  4)  UNZ2,  320  MILLISECONDS  AETER  ZEROING 
STARTED, 

R0411 

SUBROUTINES  CALLED:  CAGESUB,  CAGESUB2,  ZEROICDU,  ENDIMU,  IMUBAC,  NCATTCFE,  SETISSW,  VARCELAY, 

R0413 

ERASABLE  INITIALIZATION:  SEE  IMUMON, 

R0A14 

ALARMS:  PROGRAM  ALARM  00213  IP  ISS  TURN-CN  REQUESTED  WITHOUT  ISS  OPERATE, 

R0416 

R0418 

R0420 

EXIT:  ENDTNON  EXITS  TO  C33TESTo  TASKS  HAVING  TO  DO  WITH  INITIALIZATION  EXIT  AS  FOLLOWS:  MISSION  PROGRAM 

WAITING  AND  INITIALIZATION  COMPLETE,  EXIT  TO  ENDIMU,  MISSION  PROGRAM  WAITING  AND  INITIALIZATION  FAILED,  EXIT  TO 
IMUBAC,  IMU  NOT  IN  USE,  EXIT  TC  TASKOVER, 

R0421 

OUTPUT:  ISS  INITIALIZED, 

0422 

REF  5 LAST  164  06,2227  4 1277  0 TNONTEST  CS  IM0DES30  AFTER  PROCESSING  ALL  CHANGES,  SEE  IF  IT 
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0A23 

REF 

15 

LAST 

88 

36  ,2230 

7 A7A5 

1 

MASK 

B IT7 

0A2A 

REF 

3 

LAST 

16A 

06,2231 

10  000 

0 

CCS 

A 

OA25 

REF 

1 

06,2232 

1 237A 

1 

TCF 

C33TEST 

0A26 

REF 

lA 

LAST 

87 

06 ,2233 

3 A7AA 

1 

CAF 

BITS 

0A27 

REF 

6 

LAST 

16  5 

C6,223A 

7 1277 

C 

MASK 

I MCDESB'Y 

0A2  8 

REF 

A 

LAST 

166 

06,2235 

1C  COO 

0 

CCS 

A 

0A29 

REF 

1 

06,2236 

1 22A2 

0 

TCF 

PROCTNCN 

0A30 

REF 

15 

LAST 

166 

06, 2237 

3 A7AA 

1 

CAF 

BI  T8 

0A31 

REF 

7 

LAST 

166 

36  ,22AO 

27'277 

0 

ADS 

IMODES30 

0A32 

REF 

2 

LAST 

166 

06,22A1 

1 23  7A 

1 

TCF 

C33TEST 

ROA33 

PROCESS  IMU 

TURN-ON 

REQUESTS  - 

AFTER  WAITING  1 SAMPLE  FOR 

0A35 

REF 

1 

06,22A2 

A 2777 

0 

PRCCTNON 

CS 

BITS768 

0A36 

REF 

8 

LAST 

166 

06, 22A3 

7 1277 

0 

MASK 

I MC0ES30 

0A37 

REF 

9 

LAST 

166 

06,22AA 

55*277 

0 

TS 

IM0DES30 

0A38 

REF 

18 

LAST 

16A 

06,22A5 

7 A736 

0 

MASK 

BITIA 

0A39 

REF 

5 

LAST 

166 

06, 22A6 

10  COO 

0 

CCS 

A 

OAAO 

REF 

1 

06 ,22A7 

1 23A7 

1 

TCF 

OPONLY 

OAAl 

REF 

10 

LAST 

166 

06,2250 

A 1277 

c 

CS 

I MCDES3n 

0AA2 

REF 

lA 

LAST 

162 

06,2251 

7 A7A3 

1 

MASK 

BI  T9 

0AA3 

REF 

6 

LAST 

166 

06,2252 

1C  COO 

0 

CCS 

A 

OAAA 

36,2253 

1 2256 

c 

TCF 

+ 3 

0AA5 

REF 

1 

06,225A 

0 5567 

0 

TC 

ALARM 

0AA6 

06,2255 

CC213 

1 

OCT 

213 

0AA7 

REF 

1 

36, 2256 

0 2735 

1 

+ 3 

TC 

CAGESUB 

0AA8 

REF 

1 

06  ,2257 

3 3005 

1 

CAF 

90  SECS 

0AA9 

REF 

1 

06,2260 

0 5203 

Q 

TC 

WAITLIST 

0A50 

REF 

3 

LAST 

157 

E6, lAlA 

EBANK= 

Mil 

0A51 

REF 

1 

06,2261 

02266 

1 

2CADR 

ENDTNON 

0A51 

REF 

1 

06, 2262 

1A106 

0 

0A52 

REF 

3 

LAST 

166 

36,2263 

1 2 37A 

1 

TCF 

C33TEST 

OA53 

REF 

2 

LAST 

166 

36,226A 

3 3005 

1 

RETNQN 

CAF 

90SECS 

0A5A 

REF 

1 

06, 2265 

0 522A 

0 

TC 

VARDELAY 

0A55 

REF 

13 

LAST 

88 

06,2266 

A A752 

1 

ENCTNON 

CS 

BIT2 

OA56 

REF 

11 

LAST 

166 

06,2267 

7 1277 

c 

MASK 

I MCDES30 

0A57 

REF 

12 

LAST 

166 

36,2270 

57'277 

1 

XCH 

IMODES30 

0A5  8 

REF 

lA 

LAST 

166 

06,2271 

7 A752 

1 

MASK 

BIT2 

0A5  9 

06, 2272 

C 0C06 

1 

EXTEND 

0A6O 

REF 

1 

36,2273 

1 2306 

1 

BZF 

ENDTNQN2 

0A61 

REF 

19 

LAST 

166 

06,227A 

3 A736 

1 

CAF 

BIT)  4 

17:53  DECo  19,196°  LEMONAIDolOA  PAGE  166 
USER'S  PAGE  NGo  10  E6  SA 

IS  TIME  TO  ACT  ON  A TURN-ON  SEGUENCEo 
NO  - EXAMINE  CHANNEL  33o 
SEE  IF  FIRST  SAMPLE  OR  SECONDo 

REACT  AFTER  SECOND  SAMPLE- 

IF  FIRST  SAMPLE,  SET  BIT  TO  REACT  NEXT 
TIMEo 

ALL  SIGNALS  TO  ARRIVEo 


SEE  IF  TURN-ON  PEOUESTo 
OPERATE  ON  ONLYo 

IF  TURN-ON  PEQUFST,  WE  SHOULD  HAVE  IMU 
OPE  RATEo 

ALARM  IF  NOTc 


RESET  TURN-ON  REQUEST  FAIL  BITo 

IF  IT  WAS  OFF,  SEND  I SS  DELAY  COMPLETEo 


IF  IT  WAS  ON  AND  TURN-ON  REQUEST  NOW 
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T4RUPT 
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USER'S  PAGF  NCo  11  F6  S4 

0462 

REF 

13 

LAST 

166 

36 ,2275 

7 1277 

0 

MASK 

1M0DES3C 

PRESENT,  RE-ENTER  90  SEC  DELAY  IN  WLo 

0463 

06,2276 

C 0006 

1 

EXTEND 

0464 

REF 

1 

36,2277 

1 2264 

1 

BZF 

RE  TNON 

0465 

REF 

1 

36 ,2300 

4 00  74 

0 

CS 

FL  AGWROO 

IF  IT  IS  NOT  ON  NOW,  SEE  IF  A PROG  WAS 

0466 

PEF 

J 

06, 2301 

7 4744 

0 

MASK 

1 MUSEBIT 

WAIT  INGo 

0467 

REF 

7 

LAST 

166 

06,2302 

10  OCO 

0 

CCS 

A 

0468 

REF 

1 

06,2303 

1 5261 

0 

TCF 

TASKOVEP 

0469 

REF 

1 

06, 2304 

0 4635 

0 

TC 

PDSTJUMF 

0470 

REF 

1 

06 ,2305 

17630 

1 

CACR 

IMUBAD 

UNSUCCESSFUL  TUPN-CM 

0471 

REF 

13 

LAST 

87 

06,2306 

3 4735 

1 

ENCTNCN2 

CAF 

BI  Tl  5 

SEND  ISS  DELAY  CDMPLETEo 

0472 

06,2307 

C 0006 

1 

EXTEND 

0473 

REF 

1 

36  ,23  10 

05  012 

1 

WOR 

CHAN12 

0474 

REF 

1 

36, 2311 

0 4 6 74 

c 

TC 

I BNKCALL 

TURN  OFF  NO  ATT  L AMPa 

0475 

REF 

1 

16,2312 

17257 

1 

CADR 

NOATTOFF 

0476 

REF 

1 

06,2313 

0 5457 

1 

UNZ2 

TC 

ZEROICCU 

0477 

REF 

1 

06, 2314 

4 4763 

0 

CS 

BI TS4C5 

REMOVE  ZERO  ANC  CCARSEo 

0478 

36,2315 

0 0006 

1 

EXTEND 

0479 

REF 

2 

LAST 

167 

06,2316 

03  012 

1 

l,AND 

CHAM  2 

04  80 

REF 

14 

LAST 

132 

36,2317 

2 4741 

1 

CAF 

bITll 

WAIT  10  SECS  FCR  CTPS  TC  FIND  GIMBALS 

C481 

REF 

2 

LAST 

166 

36,2320 

0 5224 

0 

TC 

V ARDELAY 

0482 

REF 

1 

06,2321 

4 2774 

c 

I SSLP 

CS 

nCT54 

REMOVE  CAGING,  IMU  FAIL  INHIBIT,  AND 

0483 

REF 

14 

LAST 

167 

36,2322 

7 1277 

0 

MASK 

IMODES30 

ICDUFAIL  INHIBIT  FLAGSo 

0484 

PEF 

15 

LAST 

167 

06,2323 

55' 277 

0 

TS 

I MGCES30 

0485 

REF 

14 

LAST 

88 

36,2324 

4 4746 

1 

CS 

BIT6 

ENABLE  DAP 

0486 

REF 

4 

LAST 

160 

06,2325 

7 1300 

1 

MASK 

IM0DES33 

0487 

REF 

5 

LAST 

167 

06,2326 

55'3C0 

1 

TS 

I MCDES33 

04871 

REF 

1 

36,2327 

4 0076 

1 

CS 

FLAGWRD2 

TEST  DRIFTFLG:  IF  CN,  DC  NOTHING  BECAUSE 

04872 

REF 

1 

06,2330 

7 4735 

0 

MASK 

DRFTBIT 

IMUCOMP  SHOULD  BE  ALL  SET  UPIRESTART 

04873 

36,2331 

C 0006 

1 

E XTEND 

WITH  IMUSE  DOWNIt,  IF  CFF,  SET  DRIFTFLG 

04874 

36  ,2332 

1 2336 

1 

BZF 

+ 4 

AND  1/PIPAOT  TO  GET  FREFFALL  IMUCOMP 

04875 

REF 

2 

LAST 

167 

06,2333 

26  076 

1 

ADS 

FLAGWPC2 

GOING  (FRESH  START  OR  ISS  TURN-ONU 

04876 

REF 

1 

06 ,2334 

3 0025 

0 

CA 

TIMEl 

04877 

REF 

1 

36 ,2335 

57 '074 

0 

XCF 

1 /PIPADT 

CANNOT  GET  HERE  IF  RESTART  WITH  IMUSE  UP 

0488 

REF 

1 

36, 2336 

0 2703 

1 

TC 

SETISSW 

ISS  WARNING  MIGHT  HAVE  BEEN  INHIBITED: 

0489 

REF 

14 

LAST 

167 

36,2337 

4 4735 

0 

CS 

EIT15 

REMOVE  IMU  DELAY  COMPLETE  DISCRETE^ 

0490 

06,2340 

C 0006 

1 

EXTEND 

0491 

REF 

3 

LAST 

167 

06,2341 

C3  012 

1 

WAND 

CHAM2 

0492 

REF 

1 

36  ,2342 

3 5003 

1 

CAF 

4SECS 

OONT  ENABLE  PROG  ALARM  ON  PIP  PAIL  FOR 

I 
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0A93 

REF 

2 

LAST 

166 

06,2343 

C 5203 

0 

TC 

WA I TLI ST 

CA9A 

REF 

1 

£3  ,1474 

EBANK= 

CDUIND 

0A95 

REF 

1 

36,2344 

C3245 

1 

2CADR 

PFAILCK 

aA95 

REF 

1 

06,2345 

16103 

1 

0A99 

REF 

2 

LAST 

167 

06,2346 

1 5261 

0 

TCF 

TASKOVEP 

0502 

REF 

11 

LAST 

88 

06, 2347 

3 4750 

1 OPONLY 

CAF 

BI  T4 

0503 

06,2350 

0 0006 

1 

EXTEND 

0504 

REF 

4 

LAST 

167 

06,2351  • 

C2  C12 

0 

RANG 

CHAM  2 

0505 

REF 

e 

LAST 

167 

)6,2352 

1C  000 

0 

CCS 

A 

0506 

REF 

4 

LAST 

166 

06,2353 

1 2374 

1 

TCF 

C33TEST 

0507 

REF 

2 

LAST 

167 

06, 2354 

3 474^ 

1 

CAF 

I MUSEBIT 

0508 

REF 

2 

LAST 

167 

06,2355 

7 0074 

0 

MASK 

FLAGWRDO 

0509 

REF 

9 

LAST 

168 

06,2356 

10  000 

0 

CCS 

A 

0510 

REF 

5 

LAST 

168 

06,2357 

1 2374 

1 

TCF 

r.33TEST 

0511 

REF 

1 

06,2360 

0 2746 

0 

TC 

CAGESUe2 

0511  5 

REF 

2 

LAST 

167 

06,2361 

0 4674 

0 ISSZERG 

TC 

I6NKCALL 

05116 

REF 

2 

LAST 

167 

06,2362 

17257 

1 

CACR 

NOATTOFF 

0512 

REF 

13 

LAST 

88 

06,2363 

? 4747 

1 

CAF 

BITS 

0513 

06,2364 

0 0C06 

1 

EXTEND 

0514 

REF 

5 

LAST 

166 

06,2365 

05  012 

1 

WOR 

CHAN12 

05141 

REF 

2 

LAST 

167 

06,2366 

C 5457 

1 

TC 

ZERCICDU 

0515 

REF 

15 

LAST 

167 

06,2367 

2 4746 

0 

CAF 

BIT6 

0516 

REF 

3 

LAST 

168 

06 ,2370 

0 5203 

0 

TC 

WAITLIST 

0517 

REF 

4 

LAST 

166 

E6, 1414 

EBANK= 

Mil 

0518 

REF 

1 

06,2371 

02313 

1 

2CADR 

UNZ2 

0518 

REF 

1 

06,2372 

14106 

0 

0519 

REF 

6 

LAST 

168 

06.2373 

1 2374 

1 

TCF 

C33TEST 
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1 68 


USER  'S  PAGF  NCe  12  E6  S4 

ANOTHER  A SECSo 


IF  OPERATE  ON  ONLY,  AND  WE  ARE  IN  COARSE 
ALIGN,  DONT  ZFRC  THE  COUS  BECAUSE  WE 
MIGHT  BE  IN  GIMPAL  LOCK 


OTHERWISE,  ZERO  THE  COUNTERS,, 
UNLESS  SOMEONE  IS  LSTNG  THE  IMUc 


SET  TURNON  FLAGS, 

TURN  OFF  NO  ATT  LAMP 

IMU  CAGE  OFF  ENTRY 

ISS  COU  ZERO 


WAIT  300  MS  FOR  AGS  TO  RECEIVE  SIGNAL- 
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L TARLPT  PROGRAM 


USER  *S  PAGE  NO®  13  E6  S4 


P0520  PROGRAM  NAME:  C33TEST 


R0521  FUNCTICNAL  DESCRIPTICN:  ThlS  PROGRAM  MONITORS  THREE  FLIP-FLOP  INBITS  OF  CHANNEL  33  AND  CALLS  THE  APPROPRIATE 

R0523  SUBROUTINE  TO  PROCESS  A CHANGE®  IT  IS  ANALOGOUS  TO  IMUMON,  WHICH  MONITORS  CHANNEL  30,  EXCEPT  THAT  IT  READS 

R0525  CHANNEL  33  WITH  A HAND  INSTRUCTION  BECAUSE  A 'WRITE'  PULSE  IS  REQLIREP  TC  RESET  THE  FLIP-FLCPS.  THE  BITS 
R0527  PROCESSED  AND  THE  SUBROUTINES  CALLED  ARE: 


R0528 

R0529 

R0530 

R0531 

R0532 


BIT  FUNCTION 


SUBROUTINE 


13  PI  PA  FAI L 

12  DOWNLINK  TOO  FAST 

ll  UPLINK  TOO  FAST 


PIPFAIL 

ONTMFAST 

UPTMFAST 


R0533  UPON  ENTRY  TO  THE  SUBROUTINE,  THE  NEW  BIT  STATE  IS  IN  A® 


R0534  CALLING  SECLENCE:  EVERY  480  MILLISECONDS  AFTER  TNONTEST. 


R0535  JOBS  OR  TASKS  INITIATED:  NONE® 

R0536  SUBROUTINES  CALLED:  PIPFAIL,  ONTMFAST  AND  UPTMFAST  ON  BIT  CHANGES® 

R0537  ERASABLE  INITIALIZATION:  C(IMC0ES33I  = OCT  16000  ON  A FPESH  START  OR  RESTART,  THEREFORE,  THESE  ALARMS  WILL 
R0539  REAPPEAR  IF  THE  CONDITIONS  PERSIST® 


R0540  ALARMS:  NONE® 

R0541  EXIT:  GLOCKMON® 


R0542 


OUTPUT:  UPDATED  BITS  13,  12  AND  11  OF  IM00ES33  WITH  CHANGES  FRCCESSFD® 


0543  REF  6 LAST 

0544  REF  1 

0545  REF  2 LAST 

0546  REF  2 LAST 

0547 

0548  REH  1 

0549 

0550  REF  3 LAST 

0551 

0552  REF  1 


167 

93 

169 


163 


06.2374  3 1300  0 

06.2375  7 5026  1 

06.2376  5A  001  1 

36.2377  3 5026  0 

06,2A00  f CCC6  1 
)6,240l  03  033  1 

06,2402  C 0006  1 
06,2A03  C6  CCl  0 

06.2404  0 0006  1 

06.2405  1 2A34  1 


C33TEST 


CA  IM0D6S33 

MASK  33R0MSK 

TS  L 

CAF  33RDMSK 

EXTEND 

WAND  CHAN33 

EXTEND 

RXDR  LCHAN 

EXTEND 

BZF  GLCCKMCN 


SEE  IF  RELEVANT  CHAN  33  BITS  HAVE 
CHANGED® 


RESETS  FLIP-FLCP  INPUTS 


ON  NO  CHANGE. 


0553 

0554 

0555 

0556 

0557 


REF 

KEF 


LAST 

LAST 


169 

169 


06,2406 
06  ,2407 
06,2A10 

06.2411 

06.2412 


5A  070  1 
23'300  0 
C CCC6  1 
06  001  0 
55'  300  I 


TS  RUPTKEGl  SAVE  BITS  WHICH  HAVE  CHANGED, 

LXCH  IMODES33 

EXTEND 

RXOR  LCHAN 

TS  IM0DeS33  UPDATED  IMOOFS33, 


0558 

0559 

0560 


REF  3 LAST  159 
REF  9 LAST  169 


36, 2A13  3 A755  I 
06,2414  56  070  0 
06,2A15  6 0000  1 


CAF  ZERO 
XCH  PUPTREGl 
DOUBLE 
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0561  REF 


06,2916  1 2921  0 


TCF  NXTIBT  *\ 


0562  PEF  9 LAST  169 

0563  REF  10  LAST  169 

0569 

0565  REF  10  LAST  168 

0566  REF  2 LAST  170 


36,2917  6 9753  1 -1 

06.2920  29  070  0 NX7IBT 

06.2921  6 0000  1 +1 

06.2922  59  OCC  0 

06.2923  1 2920  1 


AD  ONE 

INCR  PUPTPEG] 
DOUBLE 
TS  A 

TCF  NXTI6T 


0567 

0568 

0569 

0570 

0571 

0572 


REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 

LAST 


C6,2929 

06.2925 

06.2926 

06.2927 
06,2930 
06  ,2931 


56  071 
5C  070 
3 9737 
7 1300 
5C  070 
0 2763 


1 

0 

0 

1 

0 

1 


XCH  RUPTREC-2 
INDEX  RUPTREGl 
CAF  BIT13 
MASK  IM0CES33 
INDEX  RUPTREGl 
TC  C33JMP 


0573  REF  9 LAST  170 
0579  REF  3 LAST  170 


06. 2932 

06.2933 


10  071  C NXTFL33  CCS 
1 2917  0 TCF 


RUPTREG2 
NXTIBT  -I 
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170 


USER'S  PAGE  NOc  1^  E6 

SCAN  FOR  BI  T CHANGESo 

(CnriNG  IDENTICAL  TO  CHAN  30),- 

GET  NEW  VALUE  CF  BIT  WHICH  CHANGED,, 

PROCESS  POSSIBLE  ADDITIONAL  CHANGESo 


GAP 
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L T4RUPT  PROGRAM  USER'S  PAGF  NCo  15  E6  S4 

P0575  PROGRAM  NAME:  GLCCKMCN 

R0576  FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  MONITORS  THE  CDU2  COUNTER  TP  DETERMINF  WHETHER  THE  ISS  IS  IN  GIMBAL  LOCK 
R0578  AND  TAKES  ACTION  IF  IT  IS«  THREE  REGIONS  OF  MIDDLE  GIMBAL  ANGLE  I MGA ) ARF  USED: 


R0580  1)  ABSIMGA)  LESS  THA^  OR  ECUAL  TO  70  DEGREES  - NORMAL  MOCE* 

R0581  2)  ABSIMGA*  GREATER  THAN  70  DEGREES  AND  LESS  THAN  OR  EQUAL  TO  85  DEGREES  - GIMBAL  LOCK  LAMP  TURNED  ONo 

R0583  31  ABS(MGA)  GREATER  THAN  85  DEGREES  - ISS  PUT  IN  COARSE  ALIGN  AND  NO  ATT  LAMP  TURNED  ONo 

R0585  CALLING  SEQUENCE:  EVERY  48C  MILLISECCNDS  AFTER  C33TEST« 

R0586  JOBS  VR  TASKS  INITIATED:  NONE* 

Rose?  SL6R0LTINES  CALLED:  1>  SETCCARS  WHEN  AES(MGA)  GREATER  THAN  85  CFGREFS  AND  iSS  NOT  IN  COAPSE  ALIGNo 

R0589  2)  LAMPTEST  BEFORE  TURNING  OFF  GIMBAL  LOCK  LAMP, 


R 0590 
R0591 
R0593 
R0595 


ERASABLE  I MTI  ALIZAT  ICN: 

1)  FRESH  START  OP  RESTART  WITH  NC  GROUPS  ACTIVE:  C(CCUZ»  = 0,  IM0DES30  BIT  6=0,  IM0DES3B  PIT  1 

2)  RESTART  WITH  GROUPS  ACTIVE:  SAME  AS  FRESH  START  EXCEPT  C(COUZ)  NOT  CHANGED  SO  GIMBAL  MONITOR 

PROCEEDS  AS  BEFOREo 


P, 


R0596 

R0597 

R0599 


ALARMS: 


U MGA  REGION  (2)  CALSES  GIMBAL  LOCK  LAMP  TO  BE  LlTo 

2>  MGA  REGION  (3)  CAUSES  THE  ISS  TO  BE  PUT  IN  COARSE  ALIGN  AND  THE  NC  ATT  LAMP  TP  BE  LIT  IP  EITHER  NOT 
$0  ALREADY, 


0600  REF 

0601  REF 

0602  REF 

0603  REF 

0604  REF 


1 

1 

1 

2 LAST  171 
2 LAST  171 


06.2434 

06.2435 

06.2436 

06.2437 
36  ,2440 


10  034  1 
1 2441  0 
1 2465  0 
1 2441  0 
1 2465  0 


GLCCKMCN  CCS 
TCF 
TCF 
TCF 
TCF 


COUZ 

GLOCKCHK 

SET6L0CK 

GLOCKCHK 

SETGLOCK 


SEE  IF  MAGNITUDE  OF  MGA  IS  GREATER  THAN 
70  CEGREESo 


0605  REF  1 

0606 

C607  REF  3 LAST  171 


06.2441  t 2512  0 

06.2442  0 0006  1 

06.2443  6 2464  0 


-700EGS 

SETGLOCI 


-I 


0608  REF  1 

0609 

0610  REF  1 


06.2444  6 2513  1 

06.2445  0 0006  1 

06.2446  6 2462  0 


AD  -15DEGS  see  IF  ABS(MGA)  GREATER  THAN  B5  DEGREESc 

EXTEND 

BZMF  NOGIMRUN 


0611 

0612 

0613 

0614 

0615 


REF  12 

REF  6 
REF  11 
REF  2 


LAST  168 

LAST  168 
LAST  170 
LAST  171 


06,2447 
06  ,2450 
C6,2451 

06.2452 

06.2453 


3 4750  1 
0 0006  1 
C2  C12  C 
10  000  0 
1 2462  1 


CAF  BIT4  IF  SO,  SYSTEM  SHOULD  PE  IN  COARSE  ALIGN 

EXTEND  Tn  PREVENT  GIMBAL  RUNAWAY, 

RAND  CHAM2 

CCS  A 

TCF  NOGIMRUN 


0616  REF  3 LAST  168 

0617  REF  1 


06.2454  C 4674  0 

06.2455  17135  0 


TC  IBNKCALL 

CACR  SETCOARS 


06173  REF  1 

06174  ref  4 LAST  168 


06.2456  3 6245  1 

06.2457  0 5203  0 


CAF  SIX  ENABLE  ISS  ERROR  COUNTERS  IN  60  MS 

TC  WAITLIST 


gap:  assemble  revision  331  OF  AGC  PROGRAM  LUMINAR 


RY  NASA  2021112-091 


L TARUPT  PROGRAM 


06175  RFF 

06176  REF 
06176  REF 

0618  REF 

0619  REF 


2 LAST  168 
1 
1 

16  LAST  168 
4 LAST  171 


E3il474 
06,2460 
06  ,2461 
06, 2A62 
06,2463 


03131  1 
16103  1 
3 4746  0 
1 2465  0 


e8ANK=  CCUINC 
2CADR  CA+tCE 

NOGl MRLN  CAF  B1 T6 

TCF  SETGLOCK 


0620  REF 

0621  PEF 

0622  REF 

0623 

0624  PEF 


17  LAST  172 


06.2464 

06. 2465 
06  ,2466 
06,2467 
06,2470 


7 4746  1 

0 0CC6  1 

1 5270  0 


-1  CAF  ZERC 

SETGLOCK  AD  DSPTAB  ■ 

MASK  BIT6 

EXTEND 

BZF  GLOCKCK 


IID 


0625 

0626 
0627 


REF  7 LAST  172 
REF  12  LAST  171 
REF  1 


06.2471  7 1035  1 

06.2472  10  COO  0 

06.2473  1 2507  0 


MASK  DSPTAB  +110 

CCS  A 

TCF  GLAMPTST 


0628  PEF  18 

0629  REF  16 

0630  REF  13 

0631  REF  2 


LAST  172  06 

LAST  167  'J6 

LAST  172  06 

LAST  172  06 


,2474  3 4746  0 
,2475  7 1277  0 
,2476  10  000  0 
,2477  1 527C  0 


CAF  6IT6 

MASK  IM0DES30 

CCS  A 

TCF  GLOCKCK 


0632 

0633 

0634 

0635 

0636 
0 63  7 
0638 


PEF  8 LAST  172 
FEF  19  LAST  172 
REF  15  LAST  167 
REF  a LAST  172 
REF  1 

REF  10  LAST  172 
REF  3 LAST  172 


06.2500  4 1035  1 

06.2501  7 4746  1 

06.2502  6 4735  1 

06  ,2503  57'035  0 

06.2504  7 2162  I 

76.2505  27*035  1 

06.2506  1 5270  0 


XCh 

MASK 


DSPTAB  +11D 

BIT6 

BI  T1  5 

DSPTAB  +U0 
0CT37737 
DSPTAB  +110 
6L0CK0K 


0639  REF  1 

0640  REF  4 LAST  172 

0641  REF  1 


06,2507  C 2766 

06.2510  1 5270 

06.2511  1 2500 


I GLAMPTST  TC 

0 TCF 

1 TCF 


LAMPTEST 

GLOCKOK 

GLINVERT 


0642 

0643 


06.2512  63434 

06.2513  75252 


1 -70DeGS  DEC 
0 -15CEGS  DEC 


-.38868 

-.08333 
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172 


TURN  ON  GIM8AL  LOCK  LAMP. 


SEE  IF  PRESENT  STATE  OF  GIMPAL  LOCK  LAMP 
AGREES  ^.ITH  DESIRED  STATF  BY  HALF  ADDING 
THE  TWO. 

OK  AS  ISe 

IF  OFF,  DONT  TURN  ON  IF  IMU  BEING  CAGEDr, 
TURN  OFF  UNLESS  LAPP  TEST  IN  PROGRESS^ 


INVERT  GIMBAL  LOCK  LAMP- 
TO  INDICATE  CHANGE  IN  DSPTAB  +110. 


TURN  OFF  UNLESS  LAMP  TEST  IN  PROGRESS? 


-70  DEGREES  SCALED  IN  HALF-REVOLUTIONS, 


gap:  assemble  REVISIHN  131  CF  AGC  PRCGRAP  LUMINARY  BY  NASA  20211  12-C<31  17:53  DEC*  19,lo69  LEMQNAIOelOA  PAGE  173 

L TARUPT  PROGRAM  ’ USER'S  PAGE  NO«,  17  EB  S4 

P0644  FRCGPAM  NAME:  TLIM* 

R0645  FUNCTIONAL  OESCRIPTICN:  THIS  PROGRAM  MAINTAINS  THE  TEMP  LAMP  (PIT  4 CF  CHANNEL  11»  ON  THF  DSKY  TO  AGREE  WITH 

R0647  THE  TEMP  SIGNAL  FROM  THE  ISS  (BIT  15  OF  CHANNEL  30»o  HOWEVER,  THE  LIGHT  WILL  NOT  BE  TUPNFC  OFF  IF  A LAMP  TFST 

R0649  IS  IN  PRCGRESSe 

R0650  CALLING  SEQUENCE:  CALLED  BY  IMUMON  ON  A CHANGE  CF  BIT  15  OF  CHANNEL  30o 
R0651  JCBS  CR  TASKS  INITIATED:  NONEo 


R0652  SUBROUTINES  CALLED:  LAMPTEST* 

R0653  ERASABLE  INITIALIZATION:  FRESH  START  AND  RESTART  TURN  THE  TEMP  LAMP  OFFo 

R0655  ALARMS:  TEMP  LAMP  TURNED  CN  WHEN  IMU  TEMP  GOES  OUT  OF  LIMITSo 


R0656  EXIT:  NXTIFAILo 


R0657  OUTPUT:  SERVICE  OF  TEMP  LAMP* 


IN  A,  EXCEPT  FCR  TLIM, 


0659  REF 

0660  REF 


5 LAST  170 


06  ,2514  7 4733  0 TLIM 

06,2515  54  C71  0 


MASK  POSMAX 
TS  PUPTREG2 


REMOVE  BIT  FROM  WORD  OF  CHANGES  AND  SET 
OSKY  TEMP  lamp  ACCnPOINGLYo 


0661 

0662 

0663 


REF  17 
REF  1 
REF  2 


LAST  172 
LAST  173 


06.2516 

06.2517 
06,2520 


11 '277  0 
I 2525  0 
1 2525  0 


CCS  IM0DES30 

TCF  TEMPCK 
TCF  TEMPCK 


066^ 

0665 

0666 
0667 


REF  13  LAST  171 

REF  1 
REF  1 


06,2521  3 4750  I 

.16,2522  C 0006  1 

06.2523  05  011  1 

06.2524  1 2225  1 


CAF  B I T4  TURN  ON  LAMPo 

EXTEND 

WOR  DSALMPLT 

TCF  NXTIFAIL 


0668  REF  2 LAST  172 

0669  REF  2 LAST  173 


06.2525  0 2766  1 7EMP0K 

06.2526  1 2225  1 


TC  LAMPTEST 

TCF  NXTIFAIL 


IF  TEMP  NOW  OK,  DON'T  TURN  OFF  LAMP  IF 
LAMP  TEST  I N PROGRESS-, 


0670 

0671 

0672 

0673 


REF  14  LAST  173 

REF  2 LAST  173 
REF  3 LAST  173 


06,2527  4 4750  0 

06.2530  C 0006  I 

06.2531  03  011  I 

06.2532  1 2225  1 


CS  BIT4 

EXTEND 

WAND  OSALMOUT 
TCF  NXTIFAIL 


TURN  OFF  LAMP 
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L T4RUPT  PROGRAM  USER'S  PAGE  KCo  18  £6  S4 

P0674  PROGRAM  NAME:  ITURNCN® 

R0675  FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  IS  CALLED  BY  IMUMON  WHEN  A CHANGE  CF  PIT  14  OF  CHANNEL  30  (ISS  TURN-ON 
R0677  REOUESTI  IS  DETECTED#  UPON  ENTRY,  ITURNDN  CHECKS  IF  A TURN-ON  DFLAY  SEQUENCE  HAS  FAILED,  AND  IF  SO,  IT  EXITS^ 

R0679  IF  NOT,  IT  CHECKS  WHETHER  THE  TLRN-CN  REQUEST  CHANGE  IS  TO  CN  CR  OFF#  IF  ON,  IT  SETS  BIT  7 OF  IMODES30  TO  1 SO 

R0681  THAT  TNONTEST  HILL  INITIATE  THE  ISS  INITIALIZATION  SEOUENCEo  IF  OFF,  THE  TURN-ON  DELAY  SIGNAL,  CHANNEL  12  BIT 

R0683  15,  IS  CHECKED  AND  IF  IT  IS  CN,  ITURNON  EXITS#  IF  THE  DELAY  SIGNAL  IS  OFF,  PROGRAM  ALARM  C0207  IS  ISSUED,  BIT  2 

R0685  OF  1MO0ES30  IS  SET  TO  1 AND  THE  PROGRAM  EXITS# 

R0686  THE  SETTING  OF  BIT  2 OF  IM00ES30  (ISS  DELAY  SEQUENCE  FAIL)  INHIBITS  THIS  ROUTINE  AND  IMUOP  FROM 

R0688  PROCESSING  ANY  CHANGES#  THIS  BIT  WILL  BE  RESET  BY  THE  ENDTNON  ROUTINE  WHEN  THE  CURRENT  90  SECOND  OFLAY  PERIOD 
R069n  ENOS# 

R0691  CALLING  SEQUENCE:  FPCM  IMUMCM  WHEN  ISS  TURN-ON  REQUEST  CHANGES  STATE# 

R0692  JC6S  OR  TASKS  INITIATED:  NONE# 

R0693  SUBROUTINES  CALLED:  ALARM,  IF  THE  ISS  TURN-ON  REQUEST  IS  NOT  PRESENT  FOR  90  SECONDS# 

R0695  ERASABLE  INITIALIZATION:  FRESH  START  AND  RESTART  SET  BIT  15  OF  CHANNEL  12  AND  BITS  2 AND  7 OF  IM0DES30  TO  0, 
R0697  AND  BIT  14  OF  1M0DGS30  TO  1# 


R0698  ALARMS:  PRCGRAM  ALARM  00207  IS  ISSUED  IF  THE  ISS  TURN-ON  REQUEST  SIGNAL  IS  NOT  PRESENT  FOR  90  SECCNOS# 


R0700  EXIT:  NXTIFAIL# 


R0701  OUTPUT:  BIT  7 OF  IM0DES30  TC  START  ISS  INITIALIZATION,  OR  BIT  2 OF  IMCOESPO  AND  PROGRAM  ALARM  00207  TO  INCICATF 
R0703  A FAILED  TURN-CN  SEQUENCE# 


0704 

0705 

0706 

0707 


REF  15  LAST  166 
REF  18  LAST  173 
REF  14  LAST  172 
REF  4 LAST  173 


06. 2533  3 A752 

06.2534  7 1277 

06.2535  10  000 

06.2536  1 2225 


0 ITLRNDN  CAF 
0 MASK 

0 CCS 

1 TCF 


B1  T2 

IM00ES3C 

A 

NXTIFAIL 


IF  DELAY  REQUEST  HAS  GONE  OFF 
PREMATURELY,  DC  NCT  PROCESS  ANY  CHANGES 
UNTIL  THE  CURRENT  90  SFC  WAIT  EXPIRES. 


0708  REF  20  LAST  166 

07)9  REF  19  LAST  174 

0710 

0711  REF  1 


06,2537  3 4736  1 

06.2540  7 1277  0 

06.2541  C 0006  1 

06.2542  1 2556  X 


CAF  BIT14  SEE  IF  JUST  ON  OR  CFF# 

MASK  IM0DES30 

EXTEND 

8ZF  ITURN0N2  IF  JUST  ON# 


0712 

0713 

0714 

0715 

0716 

0717 


REF 


REF 


REF 


16  LAST 
7 LAST 

5 LAST 


172  06,2543  3 4735  1 

06,2544  0 0006  1 

171  06,2545  02  012  0 

06.2546  C 0006  1 

06.2547  1 2551  0 

174  06,2550  1 2225  I 


CAF  BIT15 

EXTEND 

RAND  CHAN12 

EXTEND 

8ZF  +2 

TCF  NXTIFAIL 


see  IF  DELAY  PRESENT  DISCRETE  HAS  BEEN 
SENT#  IF  SO,  ACTION  COMPLETE 


0718 

0719 

0720 

0721 

0722 


REF  16 
REF  20 
REF  2 

REF  6 


LAST  174 
LAST  174 
LAST  166 

LAST  174 


)6,255l 

06.2552 

06.2553 

06.2554 

06.2555 


3 4752  0 
27' 277  0 

0 5567  C 
00207  1 

1 2225  ) 


CAF  BIT2  IF  NOT,  SET  BIT  TO  INDICATE  REQUEST  NOT 

ACS  IM0DES3O  PRESENT  FOR  FULL  DURATION. 

TC  ALARM 

OCT  207 

TCF  NXTIFAIL 
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PAGE  175 


L TARUPT  PROGRAM 


USER'S  PAGE  NCe  19 


E6  $4 


0723  REF  21  LAST 

0724  REF  16  LAST 

0725  REF  22  LAST 

0726  REF  1 

07261  REF  1 

0727  REF  7 LAST 


174'  06,2556  4 1277  0 

166  36,2557  7 4745  1 

175  06,2560  21*211  0 

06.2561  3 2564  1 

06.2562  54  110  0 

174  06,2563  1 2225  1 


ITURNON2  CS  IMODES30 

MASK  BIT7 

AOS  IM0OES30 

CAF  RRINIT 

TS  RAOMCDES 

TCF  NXTIFAIL 


SET 


BIT?  TO  INDICATE  UAIT  CF 


SAMPLE 


07  271 


06,2564  00102 


RRIMT  OCT  00102 


GAP: 
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17:53  DEC,  19  ,1969  L E MONA  ID^  PAGE  176 


L TARUPT  PROGRAM  USER'S  PAGE  NOe  2C  F6  S4 

P0728  PROGRAM  NAME:  IMUCAGE, 

R0729  FUNCTICNAL  OESCRIFTICN:  THIS  PROGRAM  PROCESSES  CHANGES  OF  THE  IMUCAGE  INBIT,  CHANNEL  30  PIT  11<  IF  THE  BIT 
R0731  CHANGES  TU  0 (CAGE  BUTTON  PRESSED),  THE  ISS  IS  CAGED  (ICUU  ZERO  + COARSE  ALIGN  + NO  ATT  LAMP)  UNTIL  THE 

R0733  ASTRONAUT  SELECTS  ANOTHER  PROGRAM  TO  ALIGN  THE  ISS.  ANY  PULSE  TRAINS  TC  THE  ICDU'S  AND  CYRC'S  ARF  TERMINATED, 

RD735  THE  ASSOCIATED  OUTCCUNTEPS  APE  ZERCEC  AND  THE  GYRO'S  ARE  OE-SELFCTED.  NO  ACTION  OCCURS  WHEN  THE  BUTTON  IS 
R0737  RELEASED  (INBIT  CHANGES  TO  1), 


R0738  CALLING  SEQUENCE:  BY  IMUMGN  WHEN  IMU  CAGE  BIT  CHANGES. 
R0739  JOBS  OR  TASKS  INITIATED:  NONE, 


R07A0  SUBROUTINES  CALLED:  CAGESUB, 

R07A1  ERASABLE  INITIALIZATION:  FRESF  START  AND  RESTART  SET  BIT  11  OF  IM0DES30  TO  1. 


R07A3  ALARMS:  NONE, 

R074A  EXIT:  N’XTIFAIL® 


R0745 


OUTPUT: 


ISS  CAGED,  COUNTERS  ZEROED, 


PULSE  TRAINS  TERMINATED  AND  NO  ATT  LAMP  LIT, 


07A7 

0748 

0749 

0750 

0751 


REF  15  LAST  174 
REF  1 
REF  1 

REF  1 


06.2565 

06.2566 

06.2567 

06. 2570 

06.2571 


10  000  0 
1 2361  0 
4 3002  1 
0 0006  1 
03  014  1 


IMUCAGE 


CCS  A 

TCF  ISSZERO 

CS  OCT770nO 

E XTEND 

WAND  CHANI4 


NO  ACTION  IF  GDIMG  OFF. 

TFRMINATE  ICDU,PCDU,  GYRO  PULSE  TRAINS 


0752  RDF  1 

07521 

07522  BFF  B 


LAST  174 


06.2572 

06.2573 

06.2574 


4 2776 
0 0006 
03  C12 


1 

1 

1 


CS  OCT27? 

EXTEND 

WAND  CHAN12 


KNCCK  DOWN  DISPLAY  INEPTIAL  DATA,  IMU 
EPRCR  COUNTER  ENABLE,  ZERO  ICOU,  COARSE 
ALIGN  ENABLE,  RR  ERROR  COUNTER  ENABLE 


075221  REF 
075222  REF 
075223  REF 

07523  REF 

07524 

07525  REF 
075251  REF 
075252 
075253  REF 


1 

2 LAST  159 

3 LAST  176 

1 

3 LAST  173 
21  LAST  174 

4 LAST  176 


06,2575  4 4745  1 

06  ,2576  7 0101  0 

06,2577  54  101  o 

06.2600  4 4355  1 

06.2601  0 0006  1 
06,2602  02  011  0 
06,2603  e 4736  I 
06,26C4  C 0C06  1 
06,2605  Cl  011  0 


CS 

MASK 
TS 
C S 

EXTEND 

RAND 

AO 

EXTEND 

WRITE 


ENGCNBI T 
FLAGWR05 
FLA6WRC5 
PRI030 


DSALMCUT 

BIT14 


DSALMOUT 


INSURE  ENGONFLG  IS  CLEAR, 


TURN  ENGINE  OFF, 


FORCE  BIT14  = 1,  eiT13=f'c 


07526  REF 


06  ,2606  0 2743  0 


TC  CAGESUBl 


4 LAST  171 

I 


06,2607  0 4674  0 

06,2610  17166  0 


TC  IBNKCALL  KNOCK  DOWN  TRACK,  REFSMMAT,  DRIFT  FLAGS 

CAOR  RNORfcFOR 


0753  REF  5 LAST  172 

0754  REF  1 

0755  REF  1 


06,2611 

06,2612 

06,2613 


4 4755  0 
54  C50  C 
54  051  1 


CS  ZERO 

TS  CDUXCMO 

TS  CDUYCMD 


f 
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tapupt  program 


REF  1 
REF  1 


1 

0 


TS  COUZCPD 

TS  GYROCMO 


0758  REF 

0759 

0760  REF 

0761  REF 


last  176 
LAST  175 


06,2616 
06, 2617 
06  ,2620 
06,2621 


3001  1 
0 0006  1 
03  019  1 
1 2225  1 


CS  0CT790 

E XTEND 

WAND  CHAN19 
TCF  NXTIFAIL 


17:53  OECo  19,196«  L E PON  A I Dr  109  PAGE  177 
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HAVING  WAITED  AT  LEAST  27  MCT 
GYRO  PULSE  TRAIN  TERMINATION, 
OE-SELECT  THE  GYROS 


FROM 
WE  CAN 


« 

« 

4 

A 


i 

i 

i 
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L TARUPT  PROGRAM  USER'S  PAGE  NO*  ??  F6  SA 

P0762  PROGRAM  NAME:  IMUOPo 

R0763  FUNCTIONAL  OESCRIPTICN:  TFIS  PROGRAM  PROCESSES  CHANGES  IN  THE  ISS  OPERATE  DISCRETE,  BIT  9 OF  CHANNEL 
R0765  IF  THE  IN8IT  CHANGES  TO  0,  INDICATING  ISS  ON,  IMUOP  GENERALLY  SETS  PIT  7 OF  IMO0ES30  TO  > TP  REQUEST  ISS 

k0767  INITIALIZATION  VIA  TNCNT6ST,  AN  EXCEPTION  IS  DURING  A FAILED  ISS  DELAY  DUPING  WHICH  BIT  2 CF  IMCDESSO  IS  SET 

R0769  TO  1 AND  NC  FURTHER  INITIALIZATION  IS  RFQUIREC«  WHEN  THF  INBIT  CHANGES  TO  1,  INDICATING  ISS  OFF,  IMUSEFLG  IS 

R0771  TESTED  TO  SEE  IF  ANY  PROGRAM  WAS  USING  THE  ISSo  IF  SO,  PROGRAM  ALARM  00214  IS  ISSUED*, 


R0773  CALLING  SEQUENCE:  BY  IMUMCN  WFEN  BIT  9 OF  CHANNEL  30  CHANGESo 
R0774  JCBS  OR  TASKS  INITIATED:  NONE* 

R0775  SUBROUTINES  CALLED:  ALARM,  IF  ISS  IS  TURNED  OFF  WHILE  IN  USE*, 

R0776  ERASABLE  INITIALIZATION:  CN  FRESH  START  AND  RESTART,  BIT  9 OF  IM0DES30  IS  SET  TO  1 EXCEPT  WHEN  THE  GIMBAL  LOCK 

R0778  LAMP  IS  ON,  IN  WHICH  CASE  IT  IS  SET  TO  0,  THIS  PREVENTS  ICDU  ZERO  BY  TNPNTEST  WITH  THE  ISS  IN  GIMBAL  LOCK® 


R0780  ALARMS:  FRCGPAM  ALARM  00214  IF  THE  ISS  IS  TURNED  OFF  WHILF  IN  USE, 


R0781  EXIT:  NXTIFAILo 


R0782  OUTPUT;  ISS  INITIALIZATION  REQUEST  {IMODES30  BIT  7)  OR  PROGRAM  ALARM  00214® 


0784 

0785  REF  1 


36.2622  C 0006  1 IMUOP  EXTEND 

06.2623  1 2643  0 B7F  I MU0P2 


0786 

0787 


REF  10 
REF  20 


LAST  170 
LAST  172 


06.2624 

06.2625 


4 1300  1 
7 4746  1 


CS  IMODES33  DISABLE  DAP 

MASK  8IT6 


0788 


REF  11  LAST  178 


06,2626  27*300 


ADS  IMODFS33 


07885  REF 

07886  REF 


5 LAST  176  06,2627  0 4674  0 
2 LAST  176  06,2630  17166  0 


TC  I8NKCALL  KNOCK  DOWN  TRACK,  RFFSMMAT,  DRIFT  FLAGS 

CAOR  RNDREFDR 


07887  REF  2 LAST 

07B88  REF  3 LAST 

0789  REF  4 LAST 

07091 

0790  REF  1 

0791  REF  16  LAST 

0792  REF  9 LAST 


166 

168 

178 


176 

177 


16.2631  4 2777  0 

06.2632  7 0C74  0 

06.2633  56  074  1 

06.2634  4 0000  0 

06.2635  7 4744  0 

06.2636  10  000  0 

C6,2637  1 2225  1 


CS  eiTSTCe  knock  down  rendezvous,  imuuse  flags 

MASK  FLAGWRCO 

XCH  FLAGWRCO  IF  GOING  CFF,  ALARM  if  PROG  USING  IMU- 

COM 

MASK  IMUSEFLG 

CCS  A 

TCF  NXTIFAIL 


0793 

0794 

0795 


REF  3 LAST 
REF  10  LAST 


174 


176 


06.2640  C 5567  C 

06.2641  002U  0 

06.2642  1 2225  1 


TC  ALARM 

OCT  214 

TCF  NXTIFAIL 


0796  REF  17  LAST  174 

0797  REF  23  LAST  175 

0798  REF  17  LAST  178 

0799  REF  11  LAST  178 


06.2643  3 4752  0 IMUnP2  CAF 

06 .2644  7 1277  0 MASK 

16.2645  1C  COO  C CCS 

16.2646  1 2225  I TCF 


BI  T2 

IMD0ES30 

A 

NXTl FA  I L 


0800  RtF 


LAST  174  06,2647  1 2556  1 


TCF  ITURN0N2 


SEE  IF  FAILED  ISS  TURN-CN  SEQ  IN  PROG*, 

IF  SO,  OCNT  PROCESS  UNTIL  PRESENT  90 
SECONDS  EXPIRES® 


17;‘53  DECo  19,1969 
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L TARUPT  PROGRAM  USER'S  PAGE  NOc  23  E6  SA 

P0801  PROGRAM  NAME:  PIPFAIL 


RO0O2 

RO0OA 

R0806 


FUNCTIONAL  DESCRIPTION:  THI 
TMOOfcS33  TO  AGREEo  IT  CALLS 
BIT  1 = l»  ANC  A PIPA  FAIL  I 


S program  PROCESSES  CHANGES  OF  BIT  ! 

SETISSH  IN  CASE  A PIPA  FAIL  NECESSI 
S PRESENT  ANC  THE  ISS  IS  NOT  BEING  I 


3 OF  CHANNEL  33,  PIPA  FAIL^  IT  SET 
TATES  AN  ISS  HARNINGc  IF  NGT.loEr, 
NITIALIZFO,  PROGRAM,  ALARM  C0212  IS 


S BIT  10  OF 
IMODESBO 
ISSUeOo 


RO0O8  CALLING  SEQUENCE: 


C33TES7  CN  CHANGES  CF  CHANNEL  33  BIT  13* 


R0809 

Roeio 

R0812 


jces  CP'TASKS  INITIATED:  NCNEo 

SUBROUTINES  CALLED:  1)  SETISSU,  AND 

ERASABLE  INITIALIZATION:  SEE  IMUMON 

ALARMS:  PROGRAM  ALARM  00212  IF  PIPA 

BEING  INITIALIZEDo 


2t  ALARM  (SEE  FUNCTIONAL  CESCRI 
FOR  initialization  OF  IMOOES30e 
FAIL  IS  PRESENT  BUT  NEITHER  ISS 


PT  ION  ) r. 

THE  RFLAVANT  BITS  APE  5,  7,  8, 
EARNING  IS  TO  BE  ISSUED  NOP  THE 


9,  AND  lOc 
ISS  IS 


R0817  EXIT:  NXTFL33o 

R0818  OITPLT:  PROGRAM  ALARM  00212  AND  ISS  EARNING  MAlNTENANCEc 


0619 

0820 

0821 

0822 

0823 


REF  18  LAST  178 
REF  14  LAST  132 
REF  24  LAST  176 
REF  1 

REF  25  LAST  179 


06.2650  1C  COO 

06.2651  3 4742 

06.2652  57*277 

06.2653  7 3004 

06.2654  21*211 


0 PIPFAIL  CCS 

1 CAF 

1 XCH 

1 MASK 

0 ACS 


A 

BITIO 

IM0CES30 

-BITIO 

IM0DES30 


SET  BITIO  IN  IMCDESSn  SO  ALL  ISS  WARNING 
INFO  IS  IN  ONE  REGISTFRe 


082^  REF 


LAST  167  06,2655  C 27C3 


TC  SETISSW 


0825 

0826 
0827 
0826 


REF 

RfcF 

REF 

REF 


26  LAST 
13  LAST 
19  LAST 


06.2656  t 1277  0 

06.2657  7 4753  0 
06,2660  10  000  0 
06,2661  1 2432  1 


CS  1MODES30 

MASK  BITl 

CCS  A 

TCF  NXTFL33 


IF  PIP  FAIL  DOESNT  LIGHT  ISS  WARNING,  DO 
A PROGRAM  ALARM  IF  IMU  OPERATING  BUT  NOT 
CAGED  OR  BEING  TURNED  ONo 


0829 

0830 

0831 
0032 


PEF  27 
REF  1 
REF  20 
REF  2 


LAST  179 

LAST  179 
LAST  179 


06,2662 

06.2663 

06.2664 
■06,2665 


2 1277  I 
7 3000  0 
10  000  0 
1 2432  1 


CA  IMC0ES3O 

MASK  OCT1720 

CCS  A 

TCF  NXTFL33  ABOVE  CONDITION  NOT  METo 


0833  REF 

0834 

0835  REF 


LAST  178 
LAST  179 


06,2666 

06,2667 

06,2670 


0 5567  n 
00212  0 

1 2432  1 


TC  ALARM 

OCT  21 2 

TCF  NXTFL33 


GAP:  ASSE^'OLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091  17:53  DEC®  19,1969  LEPCNAIDolOA  PAGE  180 

L TARLPl  PROGRAM  USER'S  PAGE  NOr  2A  E6  SA 

P0836  PROGRAM  NAMES:  ONTMFAST,  UPTMFAST 

R0837  FUNCTICNAL  DESCPIPTICN:  TFESE  PRCGRAMS  PROCESS  CHANGES  OF  BITS  12  AND  11  OF  CHANNEL  33e  IF  A BIT  CHANGES  TO  A 
R0839  0,  A PROGRAM  ALARM  IS  ISSUED*  THE  ALARMS  ARE: 


R08AO 

R06A1 

R08A2 

R08A3 


BIT  ALARM 


CAUSE 


12  01105 
11  01106 


OCVnNLI  AK  TCC  FAST 
UPLINK  TOO  FAST 


R08AA  CALLING  SEQUENCE:  BY  C3.3TEST  CN  A BIT  CHANGE, 


R08A5  SUBROUTINES  CALLED:  ALARM,  IF  A BIT  CHANGES  TO  A Oo 

R08A6  ERASABLE  INITIALIZATION:  FRESF  START  CR  RESTART,  BITS  12  AND  11  OF  IMODES33  ARE  SET  TO  U 
R0848  ALARMS:  SEE  FUNCTIONAL  DESCRIPTICNo 


R08A9  EXIT:  NXTFL33o 

R0850  OLTPLT:  PROGRAM  ALARM  ON  A BIT  CHANGE  TO  0* 


0851 

0852 


REF  21  LAST  179  06,2671  10  COO  0 ONTMFAST  CCS 

REF  A LAST  179  06,2672  1 2A32  1 TC F 


A 

NXTFL33 


DO  PROG  ALARM  IF  TM  TOO  FAST* 


0853  REF 
085A 

0055  REF 


LAST  179 
LAST  180 


06,2673 

06,267A 

06,2675 


C 5567  0 
01105  1 
1 2A32  1 


TC  ALARM 

OCT  1105 
TCF  NXTFL33 


0856 

0857 


REF  22 
REF  6 


LAST  180 
LAST  180 


• 06,2676 
06,2677 


1C  OGO  0 
1 2432  I 


UPTMFAST  CCS 
TCF 


A 

NXTFL33 


same  as  DNLINK  TOO  FAST  WITH  DIFFERENT 
ALARM  CODE* 


0858  REF  6 LAST  180 

0859 

0860  REF  7 LAST  180 


06.2700 

06. 2701 
06  ,2702 


C 5567  0 
01106  1 
1 2432  1 


TC  ALARM 

OCT  1106 
TCF  NXTFL33 


gap:  assemble  REVISION  131  OF  AGC  PFCGRAM  LUMINARY  BY  NASA  2021112-091 
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L TARUPT  PROGRAM  USER'S  PAGE  N0<.  25  E6  SA 

P0861  PRCGRAK  NAME;  SETISSW 

RO062  functional  DESCRIPTICN:  THIS  PROGRAM  TURNS  THE  ISS  WARNING  LAMP  ON  AND  OFF  (CHANNEL  U BIT  1.  = 1 FOR  ON, 

R086A  0 FOR  OFF)  DEPENDING  ON  THE  STATUS  OF  IM0DES30  BITS  13  (IMU  FAIL)  AND  A (INHIBIT  IMU  FAIL),  12  (ICDt)  FAIL)  AND 
R0866  3 (INHIBIT  ICDL  FAIL),  ANC  10  (FIPA  FAIL)  AND  I (INHIBIT  PIPA  FAIDo  THE  LAMP  IS  LEFT  CN  IF  A LAMP  TEST  IS  IN 

R086d  PROGRESSo 


R0869  CALLING  SECUENCE:  CALLED  BY  IMUMON  ON  CHANGES  TO  IMU  FAIL  AND  ICOU  FAlLa  CALLED  BY  IFARCK  ANT  PFAILOK  UPON 

R0871  REMOVAL  OF  THE  FAIL  INHIBITS^  CALLED  BY  PIPFAIL  WHEN  THE  PIPA  FAIL  DISCRETE  CHANGES®  IT  IS  CALLED  BY  PIPUSE 

RO073  SINCE  THE  PIPA  FAIL  PROGRAM  ALARM  MAY  NECESSITATE  AN  ISS  WARNING,  AND  LIKEWISE  BY  PIPFREE  WHEN  THE  ALARM  DEPARTS 

R0875  AND  IT  IS  CALLED  BY  IMUZERa3  ANC  ISSUP  AFTER  THE  FAIL  INHIBITS  HAVE  BEEN  RFMOVEDo 

R0877  JOBS  OR  TASKS  INITIATED:  NONEo 

' R0878  SUBROUTINES  CALLED:  NONE* 

R0e79  ERASABLE  I NI  T I ALI  ZATI  CN  ; 

ROeeO  1)  IMODESSO  - SEE  IMUMONo 

R0881  2)  1MC0ES33  BIT  1 = 0 (LAMP  TEST  NOT  IN  PROGRESS)® 


R0e82  ALARMS:  ISS  WARNING® 


R0B821 

R08822 

ROe823 

RO802A 

R08825 

R08826 

R08827 

808828 


THE  FOLLOWING  PROGRAM  ALARMS  WILL  SHOW  WHICH  FAILURE  CAUSED  THF 
PROGRAM  ALARM  00777  PIPA  FAIL 
ICDU  FAIL 
ICCU  , FIPA  FAILS 
IMU  FAIL 

IMU  , PIPA  FAILS 
IMU  , ICCU  FAILS 
IMU  , ICOL  , PI  PA  FAI LS 


PROGRAM  ALARM  03777 
PROGRAM  ALARM  04777 
PROGRAM  ALARM  C7777 
PROGRAM  ALARM  1C777 
PROGRAM  ALARM  13777 
PROGRAM  ALARM  1A777 


ISS  WARN 


R0883  EXIT:  VIA  Q® 


80384  OLTPLT: 


ISS  WARNING  LAMP  SET  FRCFERLY* 


0885  REF  1 

0806  REF  28  LAST  179 

0887 

0888  REF  15  LAST  179 

0889  REF  29  LAST  181 

0890 

0891  REF  5 LAST  169 

0892 

0893  REF  1 

0894  REF  23  LAST  180 

0895  REF  I 


06. 2703 

06.2704 

06.2705 

06.2706 
06  ,2707 

06.2710 

06.2711 

06.2712 

06. 2713 
06,271^ 
06,2715 


3 4761  0 
7 1277  0 
C 0006  1 
7 4742  0 

3 1277  1 
C C006  I 

04  001  I 
4 0000  0 
7 5025  1 
10  000  0 
1 2726  1 


SETISSW 


CAF  0CT15 

MASK  IMODESSn 

EXTEND 

MP  BITIO 

CA  1M0DES30 

EXTEND 

ROR  LCHAN 

COM 

MASK  0CT15000 

CCS  A 

TCF  ISSWON 


SET  ISS  WARNING  USING  THE  FAIL  BITS  IN 
BITS  13,  12,  AND  1C  OF  IM0DES3C  AND  THE 
FAILURE  INHIBIT  BITS  IN  POSITIONS 
4,3,  AND  lo 


C INDICATES  FAILURE 


FAILURE® 


0896 

0897 


REF  14  LAST  179 
REF  12  last  178 


06.2716  3 4753  I ISSWOFF  CAF 

06.2717  7 1300  I MASK 


BI  T1 

IM00ES33 


DONT  TURN  OFF  ISS  WARNING  IF  LAMP  TEST 
IN  PROGRESSo 


GAP:  ASSEMBLE  REVISION  131  CF  AGO  PPCGRAM  LUMINARY  6Y  NASA  2021112-C91 


L TABUPT  PROGRAM 


0898 

0899 


REF  24 
REF  3 


LAST  161 
LAST  159 


06.2720 

06.2721 


10  000  0 
0 0002  0 


CCS  A 
TC  Q 


0900 

0901 

0902 

0903 


REF  15  LAST  181 

RFF  5 LAST  176 
REF  A LAST  162 


06. 2722  R 4753  C 

06.2723  0 0006  1 

06.2724  03  011  1 

06.2725  C 0C02  C 


CS  BITl 

EXTEND 

WANU  DSALMOUT 
TC  0 


0904 

090402  P6F 
0904C«^  REF 
09041  REF 

0905 

0906  REF 

0907  REF 


LAST  182 

LAST  182 
LAST  182 


06  ,2726 
06,2727 
06 ; 2730 
06 ,2731 
06, 2722 

06.2733 

06.2734 


C 0006 
22  066 
0 5734 
3 4753 
C CC06 
05  011 
0 0066 


1 

1 

1 

1 

I 

1 


ISSWON 


EXTEND 

CXCH  1TEMP6 

TC  VAPALARM 

CAF  eiTl 

EXTEND 

WOP  DSALMOUT 

TC  ITEMP6 


0908  REF 
090«> 

0910  REF 

0911  REF 

0912 

0913  KEF 


1 

9 Cast  i76 
2 LAST  167 

10  LAST  182 


C6,2735  4 3003  0 

06  ,2736  0 0006  1 

06,2737  03  C12  1 

06.2740  3 4763  1 

06.2741  C 0006  1 

06.2742  C5  C12  I 


CAGESUB 


CS  BITS6C15 

EXTEND 

WAND  CHAM2 

CAF  BITS4S5 

EXTEND 

WOP  CHAM  2 


0914  REF  11  LAST  172 

0915  REF  1 

0916  REF  12  LAST  182 


06.2743 

06.2744 

06.2745 


4 1035  1 CAGESU81  CS 
7 2773  1 MASK 

27*035  1 ADS 


DSPTAB  +nO 
OC^OOIO 
DSPTAB  +110 


0918 

0919 

0920 


REF  30  LAST  181 
REF  1 

REF  31  LAST  182 


06  ,2746  4 1277  0 

06,2747  7 2775  1 

06,2750  27*277  0 


CAGESUB2 


MASK 

ADS 


IM0DES30 

0CT75 

IM0DES3C 


0922 

0923 

0924 


REF 

REF 

REF 


13  LAST  181 
21  LAST  178 

14  LAST  182 


06.2751  4 1300  1 

06.2752  7 4746  1 

06.2753  27*300  1 


CS  IMODES33 

MASK  6IT6 
ACS  IMODES33 


0925  REF 


LAST  182  06,2754  C CC02  0 


TC  0 


0926  REF  3 LAST  179 

0927  REF  4 LAST  182 


06,2703 

06,2703 


IMUFAIL  EQUALS  SETISSW 
ICCUFAIL  EQUALS  SETISSW 


17:53  OeCo  19,106 


lEM0NAI0al04  PAGE  182 


USER  'S  PAGE  NOo  26  E6  S4 


..e 

TELL  EVERYONE  WHAT  CAUSED  THE  ISSWARNING 


SET  OUTBITS  AND  INTERNAL  FLAGS  FOR 
SYSTEM  TURN-ON  OR  CAGEo  DISABLE  THE 
ERROR  COUNTER  AND  REMOVE  IMU  DELAY  COMP., 
SEND  ZERO  AND  COARSE. 


TURN  ON  NO  ATT  LAMP 


SET  FLAGS  TO  INDICATE  CAGING  OR  TURN-ON 
AND  INHIBIT  ALL  ISS  WARNING  INFO 

DISABLE  DAP  AUTO  AND  HOLD  MODES 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  FRGGRAf'  LUMINARY  BY  NASA  20211  12-091 


L TARUPT  PROGRAM 


P0928 


JUMP  TABLES  AND  CCNSTANTS® 


092°  REF  1 

0930  REF  1 

0931  REF  1 

093?  REF  1 

0933 

093A  REF  1 


06*2755 
06,2756 
06  ,2757 
■16,2760 

06.2761 

06.2762 


1 2533  1 
I 2703  0 
1 2703  C 
1 2565  1 
76400  I 
1 2622  1 


TCF 

TCF 

OCT 

TCF 


ITURNCN 

IMUFAIL 

ICGUFAIL 

I MUCAGE 

76400 

IMUOP 


0935  REF  I 

0936  REF  1 

0937  REF  1 


06.2763  1 2650  1 C33JMP 

16.2764  1 2671  1 

06.2765  1 2676  0 


TCF 

TCF 

TCF 


PIPFAl L 

ONTMFAST 

UPTMFAST 


R0938 

0939  RFF  15 

0940  REF  17 

0941  REF  25 

0942  REF  6 

0943  REF  7 


SUBROUTINE  TC  SKIP  IF  LAMP  TEST  NOT  IN  PROGRESSc 


LAST 

LAST 

LAST 

LAST 

LAST 


lfl2 

182 

182 

182 

183 


16,2766 
06,  2767 

06.2770 

06.2771 

06.2772 


1300  1 
7 A753 
10  000 
2 A 002 
C 0002 


IM0DES33 
BI  T1 


09AA 

09A5 

09A7 

09A8 

09A85 

0949 

0950 

0951 
C952 
0953 
095A 
0955 


REF 


REF 


1 


1 


5026 

06,2773 

)6,277A 

06.2775 

06. 2776 

06.2777 
06,3000 
06,30C1 

5025 

06.3002 

06.3003 
06,300A 


AOCIO  1 
0005A  0 
00075  0 
0C272  0 
00300  1 
01720  0 
007AO  1 

77000  1 
AOOAO  1 
76777  1 


33RCMSK  EQUALS  PRI016 

OCAOOlO  GCT  40010 

0CT5A  OCT  54 

0CT75  OCT  75 

0CT272  OCT  00272 

BITS7S8  OCT  300 

0CT172O  OCT  1720 

nCT740  OCT  00740 

0CT15000  EQUALS  PRI015 

CCT77n00  OCT  77000 

BI TS6&15  OCT  400AO 

-eiTlO  OCT  -1000 


0956 

0957  REF 

0958  REF 


06,3005 

1 5741 

4 LAST  162  5270 


2145C  0 


90SECS  06C  9000 

120MS  = 0CT14 

GLCCKCK  EQUALS  RESUME 


17:53  DEC-  19,1969  LFMONAIO  104  PAGE  183 


USER'S  PAGE  NCe  27  F6  S4 


CHANNEL  30  DISPATCFo 


(BIT  10  NOT  SAMPLED  HERE)-. 

CHANNEL  33  DISPATCFo 


BIT  1 OF  IM0DES33  = 1 IF  LAMP  TEST  IN 
PROGRESS® 


IDEC12) 


GAP  : 
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L TARUPT  PROGRAM 

P0959  PROGRAM  NAME.  PRALTCI-K 


R096n 

R096I 

R0962 

R0963 

R096A 

R0965 

R0966 

R0967 

R096fi 

R0969 

R0970 

R0971 

R0972 


POlsER  ON  ALTO  (CHAN  33  BIT  2)  INBIT  IS  CHECKEC*  IF  NO  CHANGE,  Tl-F 
PROGRAM  EXITS  TO  RRCDUCHK®  IF  A CHANGE,  RADMODES  IS  UPDATED 
AND  A CHECK  MACE  IF  RR  POWER  FAS  JUST  COME  ON,  IF  JUST  OFF,  A CHECK 
IS  MADE  TO  SEE  IF  A PROGRAM  FAS  USING  THE  RR  (STATE  BIT  7I«  IF  NO, 

TFE  PROGRAM  EXITS  TO  RRCDUCHK,  IF  YES,  PROGRAM  ALARM  0051A 
IS  REQUESTED  BEFORE  EXITING  TC  RRCDUCFK.  IF  RR  POWER  HAS  JUST  COME 
ON,  A CHECK  IS  MADE  TO  SEE  IF  A PROGRAM  WAS  USING  THE  RP  (STATE  PIT  7) 
IF  YES,  THE  PROGRAM  EXITS  TO  RRCDUCHK  WITHOUT  REQUESTING  THE  TURN-ON 
SE(iUENCE,  IF  NO,  RAOMCOES  IS  UPDATED  TO  INDICATE  RR  CDU  ZERO  AND 
RR  TURN-ON  SEQUENCE  (BITS  -13,  1).  A 1,0  MILLISECOND  WAITLIST  CALL 
IS  THEN  SET  FOP  RPTUHNON  BEFORE  THE  PROGRAM  EXITS  TO  NORPGMON, 


R0973  CALLING  SEQUENCE. 

R097<‘  T4RUPT  EVERY  480  MILLISECONDS 


R0975  ERASABLE  INITIALIZATION  RECUIREC. 
R0976  RADMODES,  STATE 

R0977  SL6R0LTINES  CALLED. 

RO970  WAITLIST 


R0979  jCeS  OR  TASKS  INITIATED. 
R0980  RPTURNON 


R0981  ALARMS.  PROGRAM  ALARM  00514  - RADAR  GOES  CUT  CF  AUTO  MODE  WHILE  BEING 
R0982  USED 


R0983  EXIT.  RRCDUCHK,  NCFRGMCN 


0984  REF 
0965 

0986  REF 

0987  REF 
0968 

0989  REF 


2 LAST  175 

2 LAST  169 
1 

1 


:6,3006  2 Clio  1 

36,3007  0 0006  1 

06  ,3010  06  033  1 

06.3011  7 4752  1 

06.3012  0 0006  1 

06.3013  1 3037  1 


RXCR 

MASK 

EXTEND 

BZF 


RADMCOES 

CHAN33 

AUTOMBIT 

RRCDUCHK 


0990  REF  3 

0991 

0992  REF  6 

0992  5 REF  1 

0993  REF  4 

0994  REF  18 

0995  REF  26 

0996  REF  2 

0999  REF  1 

1000  REF  5 


LAST  IB4 
LAST  181 

LAST  104 
LAST  178 
LAST  163 
LAST  184 

LAST  184 


36,3014  22  110  1 

06  ,3015  0 0006  1 

06,3C16  C6  001  0 
06,3017  7 3033  0 

36,3020  54  110  0 

06,302)  7 4752  1 

36.3022  10  300  0 

06.3023  1 3034  1 

06.3024  2 7666  0 

06  ,3025  26  110  0 


LXCH  RADMODES 

EXTEND 

RXCR  LChAN 

MASK  0CT05776 

TS  RADMODES 

MASK  PIT2 

CCS  A 

TCF  RRCDUCHK  -3 

CA  nCTlOOOl 

AOS  RADMODES 


:52  DEC..  19,196*:  LEMONAI0104  PAGE  184 
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SEE  IF  CHANGF  IN  RR  AUTO  MODE  BITo 


UPDATE  PADMCDESo 


CLR  CCNT,  OFS,  t RFMCOE,  REPOS,  COUZERO. 

AND  TURNON  BI  TS, 

SEE  IF  JUST  ON, 


OFF:  GO  DISABLE  PP  CDU  ERROR  COUNTERSr 

SET  RRCDUZRC  AND  TURNON  BITS.> 


gap:  ASSE^BLF  KEVISION  131  CF  AGC  PROGRAM  lUMINARY  BY  NASA  2021112-091 


PAGF  185 


17:53  DECo  19,1969  LEMONAIO,lOA 


L TARUPT  program 


USER'S  PAGE  NOo  29 


E6  S4 


1001  REF 

1002  REF 

1003  REF 

1004  REF 
1004  REF 


5 LAST  170  06,3026  3 4753  1 

5 LAST  171  06,3027  0 5203  0 

1 67,1456 

1 )6,3030  02073  1 

1 06,3031  52107  0 


CAF  ONE 

TC  WAITLIST 

E6ANK=  LOSCCUNT 
2CA0R  RRTURNON 


1005  REF 

1006 


06.3032  1 3126  C TCF  NORRGMTN 

06.3033  05776  1 0CT05776  OCT  5776 


gap:  ASSfcMBLE  REVISION  131  OF  AQC  PRCGRAP  LUMINARY  BY  NASA  2021112-091  17:53  OEC«  19,1Q6Q  LEMONAIO  104  PAGE  186 

L T4RUPT  PROGRAM  USER'S  PAGE  NC©  30  E6  S^ 

P1007  PROGRAM  NAME.  RRCDLCHK 
R1008  FUNCTIONAL  DESCRIPTION_ 

RlJOg  RPCOUCHK  CHECKS  FCR  FR  CCU  FAIL  ICFAN  30  BIT  7>o  INITIALLY  THE 

RIOIO  RR  CDU  FAIL  BIT  IS  SAMPLED  ICHAN  30  BIT  71©  IF  NC  CHANGE,  THE 

RlOll  PROGRAM  EXITS  TO  RR6IM0N©  IF  A CHANGE,  THE  RR  AUTO  MODE 

R1012  (PAOMCDES  BIT  21  PIT  IS  CHECKED©  IF  NCT  IN  RR  AUTO  MODE,  THE 

R1013  PROGRAM  EXITS  TO  NOPRGMON©  IF  IN  AUTO  MODE,  RACMCDES  BIT  7 

R1014  (RR  CCU  OKI  IS  UPDATED  ANO  IF  P-20  IS  OPERATING  PROGRAM  ALARM  00515  IS 

R1015  REQUESTED.  CONTROL  IS  TRANSFERRED  TC  SETTRKF  TO  UPDATE 

R1016  THE  TRACKER  FAIL  LAMP  (DSPTAB+llO  BIT  8)©  CONTROL  RETURNS  TC 

R1017  RR6IMCN© 


KIOIS  CALLING  SEQUENCE. 

R1019  EVERY  480  MILLISECONDS  FROM  RRALTCHK  (VIA  T4RUPT)  UNLESS  A 
R1020  TLRN-CN  SEQUENCE  HAS  JUST  BEEN  INITIATED© 


R1021  ERASABLE  INITIALIZATION  REQUIRED. 
R1022  RACMCDES 


R1023  SUBROUTINES  CALLED. 
R1024  SETTRKF 


R1025  JC0S  CR  TASKS  INITIATED. 
K 1026  NONE 


R1027  ALARMS. 

R1028  TRACKER  FAIL 

R1029  PROGRAM  ALARM  C0515  - RRCDU  FAIL  DURING  P-20 


R1030  EXIT. 

R1031  RRGIMON,  NOPRGMON 


10315  REF  19  LAST  184 
1031  6 

10317  REF  11  LAST  162 


06.3034  4 4752  I 

06.3035  0 0006  I 

C6,3C36  03  012  1 


EXTEND 

HAND  CHAN12 


AT  TURNON,  DISABLE  COU  FRROR  COUNTERS- 


1032  REF 

1033 

1034  REF 

1035  REF 

1036 

1037  REF 


6 

2 

1 


1 


LAST  184 
LAST  163 


06,3037 
06  ,3040 

06.3041 

06.3042 
06  ,3043 
06,3044 


C6  030  I 
7 4745  1 

0 0006  I 

1 3C71  0 


RRCbUCHK  CA 

EXTEND 

RXCR 

MASK 

EXTEND 

BZF 


RADMODES 

CHAN30 

RCDUFBIT 

RRGIMCN 


LAST  SAMPLED  BIT  IN  RACMCDES© 


1038  REF  2 

1039  REF  7 

1040  REF  27 

1041  REF  2 


LAST  184  06 

LAST  186  C6 

LAST  18^>  06 

LAST  185  06 


,3045  3 4752  0 

,3046  7 0110  0 

,3047  10  000  0 

,3050  1 3126  0 


CAF  AUTOMBIT  IF  RR  NOT  IN  AUTO  MODE,  DON'T  CHANGE  BIT 

MASK  RADMODES  7 OF  RADMODES©  IF  THIS  WERE  NOT  DONE, 

CCS  A THE  TRACKER  FAIL  MIGHT  COME  ON  WHEN 

TCF  NORRGMON  JUST  READING  LR  DATA-. 


1042 


REF 


2 LAST  186 


06,3051  2 4745  C 


CAF  RCDUFBIT  SET  BIT  7 OF  RADMODES  FOR  SETTRKF© 


gap:  assemble  REVISION  131  OF  AGC  PRGGRAP  LUMINARY  BY  NASA  2021112-091 


L T4RUPT  PROGRAM 


10A3 

lOAA 

10A5 

1096 


REF  0 LAST 


REF  3 
REF  9 


166 

LAST  169 
LAST  107 


06.3052 

06.3053 
•16,30  59 
06,3055 


22  ilO  1 
C 0CC6  I 

06  cni  0 

5R  110  0 


LXCH  RADMOOES 
EXTEND 
RXOR  L 
TS  PACMCCES 


1097 

1090 

1099 

1050 

1051 

1052 

1053 
1059 

1055 

1056 

1057 


REF 

REF 

REF 

REF 

REF 

RFF 

REF 

REF 

REF 


10  LAST  187 

1 

20  LAST  186 


LAST  178 


LAST 

LAST 

LAST 


137 

187 

180 


06,3056 
06  ,3057 

06.3060 

06.3061 
06  ,3062 
06, 3063 

16.3069 

06.3065 

06. 3066 

06.3067 

06.3070 


3 0110  1 
7 9615  0 
10  000  0 
1 3070  I 

9 0079  0 
7 9795  J 

10  000  0 
1 3070  1 
0 5567  C 

00515  0 
0 9569  1 


MASK 

CCS 

TCF 

cs 

MASK 

CCS 

TCF- 


TRKFLCOU  TC 


TRKFLCOL 

FLAGWRDO 

RNDVZBIT 

A 

TRKFLCCU 

ALARM 

00515 

SETTRKF 


17:53  DEC^  19,1969  LEMCINAIO  109  PAGE  187 


USER'S  PAGE  NCc  3?  E6  S9 

UPDATE  RADMODESc 


CIC  PR  COU  FAIL 

COL  ZERO+  COUFAIL+  PR  AUTC 

NO 

RNOVFLG  P20  OR  P22  OPERATING 


NO 

YES 


UPDATE  TRACKER  FAIL  LAMP  ON  OSKY 


GAP: 


ASSEf^Bie  REVISION  131  OF  AGC  PROGRAM  LUMINARY  6Y  NASA  2C21112>f'9i 


17:53  CECo  1<J,19^.9 


LEMONAIO,- lOA  PAGE  188 


L TARUPT  PRCGRAM  USER'S  PAGE  NC«  32  F6  S4 

P1058  PROGRAM  NAME.  RRGIMCN  E AUTO  MODE  EXCEPT  WHEN  THF  RR  CDUS  ARE 

R1060  FUNCTICAAL  CESCRIPTICN.  TIER  IS  INITIATED  BY  THIS  MCNITGR  WHEN 

R1062  RRGIMON  IS  THE  RR  GIM8AL  LIMIT  MCMTCR.  INITIALLY  THE  FOLLOWING  IS  ED  TO  DRIVE  THE  GIMBALS  TO  T = 0 AND 

R1064  CHECKED.  REM0DE»  RR  CCUtS  BEING  ZEROED,  REPOSITION,  AND  RR 

R1065  NCT  IN  AUTC  MODE  (RACMOCES  BITS  14,  13,  ll  2),  IF  ANY  OF  THESE 

R1066  EXIST  THE  PROGRAM  EXITS  TO  GPMATRIX,  IF  NCNE  ARE  PRESENT  RRLIMCHK 

R1067  IS  CALLED  TO  SEE  IF  THE  PRESENT  RR  COU  ANGLES  lOPTY,  OPTX)  ARE  WITHIN 

R1068  THE  LIMITS  OF  THE  CUf-RENT  MCCE«  IF  WITHIN  LIMITS,  THE  PROGRAM  EXITS 

R1069  TC  NORRGMONo  IF  NOT  WITHIN  LIMITS,  THE  REPOSITION  FLAG  (RADMCOES 

R107O  EIT  11 » IS  SET,  THE  RR  AUTC  TRACKER  AND  RR  ERROR  COUNTER 

R1071  (CHAN  12  BITS  14,  21  ARE  tiSABLEO,  AND  A 20  MILLISECOND  WAITLIST 

R1072  CALL  IS  SET  FOR  DDRREPOS  AFTER  WHICH  THE  PROGRAM  EXITS  TO  NORRGMCNo 


R1073  CALLING  SECLENCE. 

R.1074  EVERY  48C  MILLISECONDS  FROM  RRCOUCHK  (VIA  T4RUPT>  UNLESS  TURN-CN 
R1075  HAS  JUST  BEEN  INITIATED  VIA  RRAUTCHK  OR  IF  THERE  HAS  BEEN  A CHANGE  IN 

R1076  THE  RR  CDU  FAIL  BIT  (CHAN  30  BIT  7»  AND  THE  RR  IS  NOT  IN  THE  AUTO  MODE 

R1077  (RADMODES  BIT  2Jo 


R1078  ERASABLE  I MT  I AL  1 Z AT  I CN_  RACMCCES 

R1079  SUBROUTINES  CALLED. 

K1080  RRLIMCHK,  WAITLIST 


RlOei  JC6S  OR  TASKS  INITIATED 
R1082  CCRREPOS 


R1083  ALARMS. 
R 1084  NCNE 


R1085  EXIT. 
R1086  NCRRGMON 


1087  REF 

1088  REF 

1089  REF 

1090  REF 
10901  REF 
1C902  REF 

10903  REF 

10904 

10905  REF 

10906  REF 

10907  REF 
1090B  REF 

1091  REF 

1092  REF 

1093  REF 

1094  REF 


4 LAST  176 

1 

30  LAST  187 

3 LAST  186 
1 

1 

31  LAST  188 

1 

1 

32  LAST  188 

4 LAST  188 
1 

11  LAST  187 

33  LAST  188 
8 LAST  188 


06.3071  30  101  1 

06.3072  7 A750  0 

06  ,3073  10  000  0 

06.3074  1 3126  0 

06.3075  A 0103  1 

06  ,3076  7 4747  0 

36,3C77  1C  COO  0 

06.3100  1 3105  1 

06.3101  3 0102  1 

06.3102  7 4744  0 

06.3103  1 C 000  0 

06.3104  1 3126  0 

06. 3105  2 3135  0 

J6  ,3106  7 Olio  0 

06,3107  1C  COO  0 
06,3110  1 3126  0 


RRGI MON 


CAE 

MASK 

CCS 

TCF 

CS 

MASK 

CCS 

TCF 

CA 

MASK 

CCS 

TCF 

CAF 

MASK 

CCS 

TCF 


FLAGWRC5 
NORRMBI T 
A 

NORRGMON 

HLAGWRD7 

AV6GFBIT 

A 

+ 5 

FLAGWRD6 

MUNFLBIT 

A 

NORRGMON 

0CT32002 

RADMODES'- 

A 

NORRGMON 


IS  NO  ANGLE  MONITOR  FLAG  SET 


YES  - SKIP  LIMIT  CHECK 
IS  SERVICER  PUNNING? 


NOo  DO  R25 

YES*  IS  MUNFLAG  SET? 


YESe  DON'T  DO  R2f 

INHIBIT  BY  REMOCF,  ZEROING, M(^NIT0R^ 

OR  RR  NOT  IN  AUTOt, 


gap:  assemble  REVISinN  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2O2H12-091 

L TARUPT  PROGRAM 


1 

1 


1 

1 


1097  REF 


06,3113  1 3115  0 


TCF  MONREPOS 


1098 


REF  6 LAST  188 


06,311A 


2126  0 


TCF  NORRGMCN 


1099  REF  1 

1100  REF  12  LAST  188 


06.3115  3 ^741 

06.3116  26  110 


1 MONREPCS  CAP 
0 ADS 


PEPnSeiT 

PACROCES 


1101 

1102 

1103 


REF  1 

REF  12  LAST  186 


16,3117  A 3136  1 
06  ,3120  0 0006  1 

06,3121  C2  C12  1 


CS  OCT200C? 
EXTEND 

UAND  CHAM2 


1106  REF 
11C7  REF 

1107  REF 


LAST  37 
LAST  185 
LAST  185 


1108  REF  13 

11081  REF  3 

11082  REF  34 

11083 

11084 

11085  REF  13 

11086  REF  1 


LAST  189 
LAST  186 
LAST  168 


LAST  189 


11087  REF 


3 LAST  161 


1109 

1110 
111] 


06,3123 
E7, 1456 
16  ,3124 
06,3125 


>6,3126 

16,3127 

06,3120 

■>6,3131 

06.3132 

06.3133 

06.3134 


06,3140 

06.3135 

06.3136 

06.3137 


]7:53  CECo  lo,l<i6Q 
USER 'S  PAGE 
SEE  IF  ANGLES  IN 


LEMONAID. IC4 
NCt  33 
L IMITSc 


PAGE 
E6  S4 


189 


(ACCITIONAL  CDCIMG  MAY  GO  HEREl 
SET  FLAG  TO  SHOW  REPOSITION  IN 


PROGRESSo 


DISABLE  TRACKER  ANC  ERROR 


CnUNTERo 


IF  SELECT  SWITCH  IS  NOT  IN  L6C,  SEND  RR 
COU  ZERO  BIT  TO  PREVENT  MEMORY  CYCLE 
SNATCHING  BY  MANIC  RP  COUSo  BIT2  OF 
PAOMOOES  AGREES  WITH  BIT?  OF  CHANNEL 
33^  FOR  THIS  CODING,  WHICH  ASSUMES 
AUTOMBIT  = RIT2,  THANKS  TO  HUGH  B-S , 


P20  ,P22  MASK  B ITS 


\7:53  CECo  19,1969  L Ef'ONA  IDr  10<,  PAGE  190 


USER  • S PACE  NT* 


F6  S4 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2C2U12-091 

L T4RLPT  PPCGRAM 

P1112  PROGRAM  NAME:  GPMATRIX  (OAPTASJ  MCO*  NCo  2 DATE:  OCTOBER  27,  1966 
R1113  AUTHOR:  JONATHAN  C,  ACOELSTON  (ACAMS  ASSOCIATES! 

R11131  MODIFIED:  7FEBo  1968  BY  P*  S®  WEISSMAN  TO  DELETE  COMPUTATION  OF  MR12  AMD  MR13,  WHICH  ARE  NC  LONGER  RFQIUPEO- 

R1114  THIS  PROGRAM  CALCULATES  ALL  THE  SINGLE-PRECISION  MATRIX  ELEMENTS  WHICH  ARE  USED  BY  LEM  OAP  TO  TRANSFORM  VECTORS 
R1116  FRCM  GIMBAL  TO  PILOT  I80DYI  AXES  AND  BACK  AGAIN*  THESE  ELEMENTS  ARE  USED  EXCLUSIVELY  BY  BASIC  LANGUAGE  ROUTINES 
RlllS  ANC  THEREFORE  ARE  NOT  ARRAYED  FCR  USE  BY  INTERPRETIVE  PROGRAMS. 


■R1123  SUBROUTINES  CALLED:  SPSIN,  SPCGSo 

R1124  NORMAL  EXIT  MODE:  TCF  RESUME 

RH25  ALARM  AND  ABORT  MOOES:  NONEc 
Rlisn  INPUT;  CDUX,  COUY  , CDUZ* 

R1131  OLTPLT:  Mil,  M21,  M31,  M22,  M32<, 

R1132  ACG  = CCUX,  AIG  = CCUY,  AMG  = CCUZ:  MNEMONIC  IS:  OIM  = XYZ 


R1133 

R1134 

R1135 


M 


SIN(MG)  0 

C0S(MG)C0S(06J  SIMCGI 
-COS(MGISIN(OG»  COSIOG) 


1 


R1136 

R1137 

R1138 


COS (OG) /CCS!  MG)  -S INCOG) /COS (MG) 

SIN(OGI  CnS(OG) 

-S IN(MG)CaS (CG)/COS{MG)  S IN (MG ) S IN ( OG ) /COS( MG  ) 


1143 

1144 
R 1145 


REF  5 LAST  16E 
REF  1 

TARUPT  DAP  LOGIC: 


1146 

1147 

1148 


REF 

REF 

REF 


LAST  171 
LAST  190 


06.3140 

06.3141 
06  ,3142 


20  034  0 GPMATRIX  CAE 
C 5033  1 TO 

55*414  0 TS 


COUZ 
SPSIN 
M)  1 


scaled  at  1 


1149 

1150 

1151 


REF 

REF 

RfcF 


06,31A3 

06.3144 

06.3145 


2C  C34  0 
0 5032  0 
54  061  1 


COUZ 

SPCOS 

COSMG 


COS(CDUZ) 
SCALED  AT 


COS(MG) 

(ONLY  A FACTOR) 


1152 

1153 

1154 


REF 

REF 

REF 


LAST  190 


06.3146 

06.3147 
06,3150 


20  032  0 
C 5033  1 
55*417  0 


LAST  190  06,3151  4 1417  0 


CDLX 

SPSIN 

M22 


SINCCDUXI  = SI N(nG) 

SCALED  AT  1 (ALSO  IS  MR??) 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C91 


L TARLPT  PROGRAM 


1156 

1157  REF  2 LAST  190 

1158  REF  1 


06*3152  ( C006  1 
06,3153  7 0061  1 
06,315A  55'A16  1 


EXTEND 

MP  COSMG 

TS  M31 


1159  REF 

1160  REF 

1161  REF 


2 LAST  190 
2 LAST  190 
1 


06,3155  20  032  0 

.16,3156  0 5032  0 

06,3157  E5'A20  1 


CAE  COtX 

TC  SPCOS 

TS  M32 


1163  REF  3 LAST  191 

116A  REF  1 


06.3160  0 0006  1 

06.3161  7 0061  1 

06.3162  55'A15  1 


EXTEND 

MP  CDSMG 

TS  M21 


1191  REF 
1193  REF 


5 LAST  183  06,3163  0 5270  1 

6 LAST  191 


TC  RESUME 


5270 


ENG0APT6  EQUALS  RESUME 


i 


17:5?  OECs  19,1969  LEMONAIOrlO^  PAGE  191 
USER'S  PAGF  NCc  35  F6  S4 


-SIN(OG»COS(MG» 
SCALED  AT  1 


COSfCDUXI  = rosiPG) 

SCALED  AT  1 (ALSO  IS  MR23) 


COSIOG)COS(MG) 
SCALED  AT  1 


GAP:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  6Y  NASA  2C2H12-091  17:93  CECo  19, 196®  LEMONAIOoin^  PAGE  192 


L 

PCS  FAULRE  MOMTCR  USER'S  PAGE  NOo  1 EO  S4 

ROOOl 

PROGRAM  DESCRIPTION 

R0002 

ALTHOP:  J S MILLER 

R00025 

MODIFIED  6 MARCH  1968  BY  P S REISSMAN  TC  SET  UP  JOB  FOR  1/ACCS  WEEN  TEE  MASKS  ARE  CHANGED^ 

R0003 

R0009 

R0007 

R0009 

ROOll 

R0013 

R0015 

R0017 

THIS  ROUTINE  IS  ATTACHED  TO  T4RUPT,  AND  IS  ENTERED  EVERY  *80  MSo  ITS  FUNCTION  IS  TO  EXAMINE  THE  LOW  8 BITS 

OF  CHANNEL  32  TO  SEE  IF  ANY  I SC L AT  I CN-VALV E CLOSURE  BITS  HAVE  APPEARED  OR  DISAPPEARED  (THF  CRFW  IS  WARNED  OF  JET 
failures  by  LAMPS  LIT  BY  THE  GRUMMAN  FAILURE-DETECTION  CIRCUITRY;  THEY  MAY  RESPOND  BY  OPERATING  SWITCHES  WHICH 

ISOLATE  PAIRS  OF  JETS  FROM  THE  PROPELLANT  TANKS  AND  SET  BITS  IN  CHANNEL  32)-  IN  THE  EVENT  T|-aT  CHANNEL  32  BITS  ..e 

DIFFER  FROM  'PVALVEST',  THE  PECCRD  OF  ACTIONS  TAKEN  BY  THIS  ROUTINE,  THF  APPROPRIATE  BITS  IN  'CHSMASK*  t 
•CH6HASK',  USED  BY  THE  DAP  JE-T-SELEC  TI  ON  LOGIC,  ARE  UPDATED,  AS  IS  'PVALVFST'o  TO  SPEED  UP  C SHORTEN  THE 

RCUTINF,  NO  MORE  THAN  ONE  CHANGE  IS  ACCEPTED  PER  ENTRY*  THE  HIGHEST-NUMBERED  BIT  IN  CHANNFL  32  WHICH  REQUIRES 

ACTION  IS  THE  ONE  PRCCESSEDo 

R0018 

R0020 

K0022 

R002A 

R0026 

R0028 

R0030 

R0032 

R0034 

THE  COOING  IN  THE  FAILURE  MONITOR  HAS  BEEN  WRITTEN  SO  AS  TO  HAVF  ALMOST  COMPLETE  RESTART  PROTECTION*  FOR 

EXAMPLE,  NO  ASSUMPTION  IS  MACE  WHEN  SETTING  A 'CH5MASK'  BIT  TO  1 THAT  THE  PREVIOUS  STATE  IS  n,  ALTHOUGH  IT  OF 

COURSE  SHOULD  BEc  ONE  CASE  WHICH  MAY  BE  SEEN  TC  EVADE  PROTECTION  IS  THE  OCCURRENCE  OF  A RESTART  AFTER  UPDATING 

ONE  CR  BOTH  DAP  MASK-WORDS  BUT  BEFORE  UPDATING  'PVALVEST',  COUPLED  WITH  A CHANGE  IN  THE  VALVE-BIT  BACK  TO  ITS 

FORMER  STATE*  THE  CCNSEQUENCE  CF  THIS  IS  THAT  THE  NEXT  ENTRY  WOULD  NOT  SEE  THE  CHANGE  INCOMPLETELY  INCORP- 
ORATED BY  THE  LAST  PASS  (BECAUSE  IT  WENT  AWAY  AT  JUST  THE  RIGHT  TIME),  BUT  THE  DAP  MASK-WORDS  WILL  BE  INCORRECT 

THIS  COMBINATICN  OF  EVENTS  SEEMS  QUITE  REMOTE,  BUT  NOT  IMPOSSIBLE  UNLESS  THE  CRFW  OPERATES  THF  SWITCHES  AT  HALF- 
SECOND  INTERVALS  UR  LONGER*  IN  ANY  EVENT,  A CISAGREEMENT  BETWEEN  REALITY  AND  THE  PAP  MASKS  WILL  BE  CURED  IF 

THE  MISINTERPRETED  SWITCH  IS  REVERSED  AND  THEN  RESTORED  TO  ITS  CORRECT  POSITION  (SLCWLY), 

R0036 

CALLING  SEQLENCE: 

R0n37 

TCF  RCSMCNIT  (IN  INTERRLPT  MODE,  EVERY  *80  MS-.) 

R003  8 
0039 

EXIT:  TCF  RCSMONEX  (ALL-  PATHS  EXIT  VIA  SUCH  AN  INSTRUCTION) 

REF  7 LAST  IQl  5270  RCSMONEX  EQUALS  RESUME 

ROOAO 

ERASABLE  INITIALIZATION  REQUIRFC: 

ROOAl 

R00A2 

VIA  FRESH  START:  PVALVEST  = 40  (ALL  JETS  ENABLED) 

CH5MASK,  CH6MASK  = +0  (ALL  JFTS  PK) 

R00« 

kOOAS 

3"  R00^65 

OUTPUT:  CH5MASK  t ChSMASK  UPDATED  (I'S  WHERE  JETS  NOT  TO  BF  USED,  IN  CHANNEL  5 & 6 FCRMAl) 

PVALTEST  UPDATED  (l,S  WHEN  VALVE  CLOSURES  HAVE  BEEN  TRANSLATED  INTO  CH5MASK  C CH6MASK;  CHAN  32  FORMAT) 

JCe  TO  00  1/ACCS* 

R0CA7 

DEBRIS:  A,  L,  C ANC  CEBRIS  CF  NOVAC* 

R0048 

SUBROUTINE  CALLED:  NOVAC, 

2"  0052 

REF  1 1257  EBANK=  CH5MASK 

0059 

0060 
0061 

23,2000  BANK  23 

REF  1 06,2000  SETLOC  RCSMCNT 

06,3164  BANK 

GAP 


ASSEf^Bie  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2C21112-C91 


L PCS  FAILURE  MOM  TCR 


0062  REF  1 
00625  REF  1 


CCLNT*  S$/TARCS 
RCSMONIT  EQUALS  RCSMON 


0063  REF 

0064 

0065  REF 

0066  REF 

0067  REF 


6 LAST  176 

2 LAST  160 
1 

8 LAST  183 


06,3164 

'^6,3165 

06.3166 

06.3167 
06,3170 


06  032  0 

7 4357  0 
54  002  1 


RCSMON 


EXTEND 

RXOR 

MASK 

TS 


ZERC 

CHAN32 

LOWS 

Q 


0068  REF 

0069  REF 

0070  REF 

0071  REF 

0072  REF 

0073  REF 


1 

9 LAST  193 

4 LAST  187 
10  LAST  193 

2 LAST  193 

5 LAST  193 


06. 3171  4 1273  1 

06.3172  7 0002  1 

06.3173  54  001  1 

06.3174  4 0002  1 

06.3175  7 1273  1 

06  ,3176  26  001  I 


CS 

MASK 

TS 

CS 

MASK 

AOS 


PVALVeST 

0 

L 

0 

PVALVEST 


0074 

0075  REF  1 


06,3177  C CCC6  1 
06,3200  1 5270  0 


EXTEND 

BZF  RCSMONEX 


0076 

0077  REF  17  LAST  175 

0078  REF  6 LAST  193 


06.3201 

06.3202 

06.3203 


0 0006  1 
7 4745  1 
56  001  0 


FXT6ND 

MP 

XCF 


BI  T7 
L 


0079 

0080 
0081 
0082 


REF 


LAST  193 


C6,3204 

06.3205 

06.3206 
06,32C7 


24  CCl  0 
6 0000  I 

54  oro  0 

1 32C4  0 


I NCR 
DOUBLE 
OVSK 
TCF 


0083  REF  8 LAST 

0084  REF  16  LAST 

0085  REF  11  LAST 

0086  REF  3 LAST 

0087  REF  35  LAST 

0088  REF  1 


193  06,3210  50  001  0 

166  06,3211  3 4743  0 

193  06,3212  54  002  1 

193  06  ,3213  7 1273  1 

189  06,3214  1C  COO  0 

06,3215  1 3231  0 


INDEX  L 

CA  BIT8  -1 

TS  Q 

MASK  PVALVEST 

CCS  A 

TCF  VOPENFO 


0089  REF 

0090  REF 

0091  REF 

0092  REF 


2 

9 

1 

3 


LAST  192 
LAST  193 

LAST 


06,32)6 

06,3217 

06.3220 

06.3221 


4 1257  1 
50  COl  0 
7 3250  1 
27*257  1 


193 


CS  CH5MASK 

INDEX  L 
MASK  SFAILTAB 
AOS  CH5MASK 


00  93 

0094 

0095 

0096 


REF  1 

REF  10  LAST  193 
REF  1 

REF  2 LAST  193 


06.3222  4 1260  0 

06.3223  50  001  0 

06.3224  7 3260  1 

06.3225  27*260  0 


CS  CH6MASK 

INDEX  L 
MASK  6FAILTA8 
AOS  CH6MASK 


0097 

0098 


RFF  12 
REF  4 


LAST  193 
LAST  193 


06.3226 

06.3227 


3 OC02  0 
27*273  1 


CA  0 

ADS  PVALVEST 


0099  REF 


06,3230  1 3244 


TCF  IZACCFIX 


17:53  DECc  19,1969  LEMCNAI0«1P4 
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PICK  UP  + INVERT  INVERTED  CHANNEL  32> 
KEEP  JET-FAIL  BITS  ONLY# 


FORM  PC  4 PCc 

IP  = PREVIOUS  ISCLATICN  VALVE  STATE, 
C = CURRENT  VALVE  STATE  (CH  32)  )o 

RESULT  NZ  INDICATES  ACTION  REOUIREOo 


QUIT  IF  NO  ACTICN  RECUIPED* 


MOVE  BITS  R - 1 CF  A TO  14  - 7 OF  L« 
ZERO  TO  L IN  THE  PROCESS^ 

BOUND  TO  GET  OVERFLOW  IN  TUS  LOOP, 
SINCE  WE  ASSURED  INITIAL  NZ  IN  A- 

SAVE  THF  RELEVANT  BIT  (8  - 1). 

LOOK  AT  PREVIOUS  VALVF  STATE  BITo 
THE  VALVE  HAS  JUST  BEEN  CPENEO* 

THF  VALVE  HAS  JUST  BEEN  CLOSEDe 

SET  INHIBIT  BIT  FOR  CHANNEL  5 JFTv 


SET  INGieiT  BIT  FOR  CHAN'NFL  6 JET., 

RECORD  ACTION  TAKENa 


SET  UP  l/ACCJOB  AND  EXIT, 


GAP ; 


ASSEf^BLE  REVISION  131  CF  AGO  PPCC-RAM  LUMINARY  BY  NASA  2021112-091 


L PCS  failure  monitor 


0100  REF  11  LAST  1^3 

0101  RFF  2 LAST  193 

0102  REF  ^ LAST  193 

0103  REF  5 LAST  194 


06,3231  50  001  0 VOPENED  INDEX  L 


06.3232  4 3250  1 

06.3233  7 1257  1 

06.3234  55'257  1 


CS  5FAILTA6 

MASK  CH5MASK 
TS  CHSMASK 


0104  REF  12 

0105  REF  2 

0106  REF  3 

0107  REF  4 


LAST  194  06 

LAST  193  06 

LAST  193  06 

LAST  194  06 


,3235  50  COl  0 
,3236  4 3260  1 
,3237  7 1260  0 
,3240  55*260  0 


INDEX  L 
CS  6FAILTAB 

MASK  CH6MASK 
TS  CH6MASK 


0108 

0109 

0110 


REF  13  LAST  193 


06.3241  4 0C02  I 

06.3242  7 1273  1 

06.3243  55*273  1 


CS  Q 

MASK  PVALVEST 

TS  PVALVEST 


0111 

0112 

0113 

0114 
0114 
01  15 


REF 

REF 

REF 

REF 


06,3244 
LAST  160  06,3245 

LAST  134  £6,1536 

06  ,3246 
06,3247 
LAST,  193  J6,3250 


3 7720  0 

0 5072  1 

03652  0 
42106  0 

1 5270  0 


1/ACCFIX  CAF  PRI027 

TC  NQVAC 

EBANK=  AOSO 
2CA0R  1 /ACCJOB 


TCF  RCSMONEX 


0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 


06,3247 

06.3251 

06.3252 

06.3253 

06.3254 
06  ,3255 

36.3256 

06.3257 
06  ,3260 


OOC40  0 
00020  0 
00100  0 
00200  0 
00010  0 
CCCOl  0 
00004  0 
00002  0 


5FAILTA0  EQUALS 
nCT 
□CT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 


C0C40 

00020 

00100 

00200 

OOOlO 

00001 

COCOA 

00002 


0126 

0127 

0126 

0)29 

0130 

0131 

0132 

0133 

0134 


06, 3257 

06.3261  00010  0 

06.3262  CQ020  0 

06.3263  0OCO4  0 

06.3264  00200  0 

06.3265  COCCI  0 

06.3266  00002  0 

06,3  267  00040  0 

06,3270  OCICO  0 


6FAILTAB  EQUALS  -1 


OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 


OOCIO 

00020 

OOC04 

00200 

00001 

00002 

00040 

OOlOO 
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A VALVE  HAS  JUST  BFEN  CPENEDo 

REMOVE  INHIBIT  BIT  FCR  CHANNEL  5 JETe 


REMOVE  INHIBIT  BIT  FOR  CHANNEL  6 JET 


RECORD  ACTION  'TAKENo 

SFT  UP  l/ACCS  SO  THAT  THE  SWITCH  CURVES 
FOR  TJETLAW  CAN  BE  MODIFIED  IF  CHSMASK 
HAS  BEEN  ALTEFEDo 


FXITo 


CH  5 JET  BIT  COPRFSPONPING  TO  CH  32  PIT: 
8 
7 
6 


3 

2 


CH  6 JET  BIT  CORRESPONDING  TO  CH  32  BIT: 


gap:  assemble  KEVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202JJJ2-091 
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L DCWKLINK  LISTS 


USER*  S-  PAGE  NCo  1 EO  S4 


0001 

0002  REF 

0003 


22,2004 

05,2000 

05,2065 


BANK  22 
SETLOC  OOUNTELM 
BANK 


0004  REF  2 LAST  156 


03A0 


EBANK=  DMMeUFF 


R0005  SPECIAL  CCWNLINK  CP  CCDES 

A0006 

A0007 

A 0008 

AO  )09 

AOOlO 

AOOll 

A0012 

A0013 

A0014 

A0015 

A0016 

A0017 

A0018 

A0C19 


OP  CODE  ADDRESS (EXAMPLE » SENDSoo  BIT  15  BITS  14-12  BITS  11 

-0 


lONADR  TIMfcZ 
20NADR  TEPHEM 
3DNADR  VGBCCY 
ADNADR  STATE 
5ONA0R  UPBUFF 
6DNADR  DSPTA6 
ONCHAN  30 

DNPTR  NEXTLIST 


(2  AGC  WOS»  0 

( 4 AGC  WDSI  0 

(6  AGC  WDS  » 0 

(fi  AGC  WDS)  0 

( lOAGC  WDSI  0 

(12AGC  WDSI  0 

CHANNELS  0 

POINTS  TC  NEXT  0 
LI  STo 


0 ECADR 

1 ECADR 

2 ECADR 

3 ECADR 

4 ECADR 

5 ECADR 

7 CHANNEL 

ADDRESS 

6 AORFS 


R0020  CCWNLIST  FORMAT  06FIMTICNS  AND  RLLES- 

R0021  lo  END  OF  A LIST  = -XCNAOR  (X  = 1 TO  6),  -DNPTR,  OR  -ONCHAN, 

R0022  2,  SNAPSHOT  SUBLIST  = LIST  WHICH  STARTS  WITH  A -ICNADR, 

R0023  3*  SNAPSHOT  SUBLIST  CAN  ONLY  CONTAIN  lONAORS, 

R0024  4,  TIME2  lONADR  MUST  BE  LOCATED  IN  THE  CONTROL  LIST  OF  A DOWNLIST, 

R0025  5o  ERASABLE  DOWN  TELEMETRY  WORDS  SHCULO  BE  GRCUPEC  IN  SEQUENTIAL 

R0026  LOCATIONS  AS  MUCH  AS  POSSIBLE  TO  SAVE  STORAGE  USED  BY  DOWNLINK  LISTS, 


0027  REF  1 

0028 

0029  REF  1 

0030  REF  2 LAST  195 

0032 


0007 

0007 

0CO7 

05,2065 


7734C  C 


COUNT* 
ERASZERO  EQUALS 
UNKNOWN  EQUALS 
SPARE  EQUALS 
LOWIOCOO  OCT 


J$/DL  1ST 
7 

EPASZERC 
ERAS  ZERO 
77340 


USE  SPARE  TO  INDICATE  AVAILAHLE  SPACE 
LOW  ID  CODE 


0033 

003* 

0035 


REF  1 05,2172 

REF  1 05,2Ar7 

REF  ' 2 LAST  195  05,2407 


NOMONLST  EQUALS  LMCSTADL 
AGSLIST  EQUALS  LMAGSIOL 
UPDNLIST  EQUALS  LMAGSIOL 


FRESH  START  AND  POST  P27  OCWNLIST 

UPDATE  PRCGRAM  (P27)  DOWNLIST 


GAP:  ASSEPBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L DOWNLINK  LI  STS 

P0036  LP  CREITAL  MANEUVERS  LIST 


R0037 


CONTROL  LIST 


0038 

0039 
00^0 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0058 

0059 

0060 
0061 
0062 
0063 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 


REF  1 
REF  3 
REF  1 
REF  2 
REF  1 
REF  1 
REF  1 
PEF  1 
REF  1 
REF  2 
REF  2 
REF  1 
REF  1 
REF  I 
REF  1 
REF  4. 
REF  I 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 
REF  2 
REF  2 
REF  1 
REF  1 
REF  32 
REF  1 
PEF  I 
REF  1 
REF  2 
REF  2 


LAST  195 
LAST  142 


LAST  145 
LAST  107 


LAST  196 


LAST  107 
LAST  107 


LAST  182 


LAST  196 
LAST  149 


05.2066 
)5,2066 

05.2067 
J5,2070 

05.2071 

05.2072 
)5,2073 
05,2  074 

05.2075 

05. 2076 

05.2077 

05. 2100 

05.2101 

05.2102 

05.2103 

05.2104 

05.2105 

05. 2106 

05.2107 

75.2110 

05.2111 

05.2112 

05.2113 
05  ,2114 

05.2115 

05 .2116 

05.2117 

05. 2120 

05.2121 

05.2122 

05.2123 
75  ,2124 

05.2125 

05.2126 


32127  1 
24340  0 
03451  1 
13443  0 
02256  1 
C1341  0 
25733  1 
C3633  1 
12266  0 
13700  1 
C1335  0 
03630  I 
32136  1 
00024  1 
32145  0 
24340  0 
32154  0 
07115  0 
CC007  0 
01776  0 
12274  0 
03635  1 
12365  1 
01330  0 
05233  1 
03577  1 
C1326  1 
01277  1 
C3441  0 
32157  0 
32170  0 
00007  0 
74261  1 


6DNADR 
lONAOR 
3DNADR 
lONADP 
IDNADR 
6DNADR 
IDNADR 
30NADR 
30NA0R 
IDNADR 
IDNADR 
ONPTP 
IDNADR 
ONPTR 
60NADR 
DNPTF 
2DNA0P 
1 ONADR 
IDNA DR 
3DNA0R 
IDNADR 
3CNA0R 
IDNADR 
20NADR 
lONAOR 
IDNADR 
IDNADR 
lONAOR 
DNPTR 
ONPTR 
lONADP 
-IDNADR 


LMOR0MO1 

DNTMBUFF 

DELLT4 

RTARG 

ELEV 

TEVENT 

REFSMMAT 

TCSI 

OELVEETl 

VGT  IG 

OMLRVELZ 

TPASS4 

LM0R8M02 

TIME2 

LMOP  BM03 

ONTMOUFF 

LMnP6Mn4 

PCSTORKU 

SPARE 

TCDH 

DELVEET2 

TTPI 

0ELVFET3 

DNPRANGE 

ONLRVELX 

DIFFALT 

LEPMASS 

IMODES30 

TIG  , 

LMCRBMQK 

LM0R6M06 

SPARE 

TGO 


R0074 


SUB-LISTS 


0075 

0076 

0077 

0078 

0079 

0080 
0081 


REF 

RFF 

REF 

REF 

RLF 

PEF 

REF 


LAST 

LAST 

LAST 

LAST 

LAST 


121 

196 

121 

196 

196 


05.2130 

05.2131 

35.2132 

05.2133 
05,2154 
05,2135 


76056  0 
01723  0 
Cl  725  0 
01727  1 
01731  0 
C1570  1 
76060  0 


LPORBMOl-lONAOP 

IDNADR 

IDNADR 

IDNADR 

IDNACP 

IDNADR 

-IDNADR 


R-CTHEP  *2 
R-OTHER  +4 
V-CTHER 
V-CTHER  *2 
V-OTHEP  +4 
T-CTHEP 
R-OTHER 


0082  REF 


05,2136  04320 


LP0RaMO2  20NACR  RECOCTR 


17:5?  OECo  19,1969 


LEPCNAICrK^  PAGE  196 


USFP 'S  PAGE  NOo  7 EC  S4 


SFNC  ID  BY  SPECIAL  CODING 

COLLECT  SNAPSHCT 

SEND  SNAPSHOT 

0ELLT4, +1 

RTARG, +1COO+5 

ELEV, +1 

TEVENT ,+l 

REFSMMAT+Ooo.  + lin 

TCS I,+l 

DELVEFTH-Ooeu+5 
VGTIG+0,o,+5 
0NLRVEL2, CNIRALT 
TPASS4,+1 
COMMON  DATA 
TIPE2/1 

COLLECT  SNAPSHOT 
SEND  SNAPSHOT 
CCMPON  DATA 

POSTORKU,NEGTORKU,POSTOPKV,NEGTDPKV 

TCDH,+1 

DELVEET2+0oer  +5 
TTPI ,+l 

DELVEET3+Oo«o+  5 
CNRPANGE, CNRPDOT 

DNLPVELX .ONLRVELY, CNLRVELZ,CNLRALT 

0IFFALT,+1 

LEMMASS,CSMMASS 

IM0DES30,IM0DES33 

TIG,+1 

CCPPON  DATA 

COMMON  DATA 

FORMERLY  PIF 

TG0,*1 


R-OTHER+2,  +3  SNAPSHOT 

R-OTHFR+4 ,+5 

V-OTHER, +1 

V-OTHER+2 ,+3 

V-OTHER  + 4,+  5 

T-DTHER,+1 

R-CTHER+0,+1 

ReOOCTR,THETAD,+1 ,+?  COMMON  DATA 


GAP;  ASSEMBLE  REVISION  131  CF  AGC  PRCGRA^/  LUMINARY  BY  NASA  2051112-0?! 


L DOWNLINK  LISTS 


0083  REF  1 

008A  REF  5 LAST 

0005  REF  4 LAST 

0086  REF  3 LAST 

0087  REF  16  LAST 

0008  REF  13  LAST 


05,2137  C1432  0 

130  05,2140  07021  0 

137  05,2141  07234  0 

191  05,2142  04032  1 

96  35,2143  24074  1 

182  35,2144  52755  1 


IDNAOR  RSB60 
20NAUR  OMEGAP 
2DNADR  CDUXO 
2DNADR  COUX 
(DNAOR  STATE 
-6DNADR  DSPTA0 


0089  REF  1 

0090  REF  2 LAST 

0091  REF  1 


05.2145  76556  0 

05.2146  01223  0 

05.2147  01225  0 


LVOR0MO3-1 DNADR 
IDNADR 
lUNAOR 


RN 

RN 

VN 


0092 

0093 

0094 

0095 


KEF  2 LAST  197 

REF  3 LAST  197 

REF  1 

REF  3 LAST  197 


C5,2150  01227  1 

05. 2151  01231  0 

35.2152  01233  I 

C5,2153  76560  0 


lONADR  VN  +2 
lONAOP  VN  +4 
lONADR  PIPTIME 
-IDNADR  RN 


0096 

0097 

0098 


REF  3 LAST  135 
PEF  1 

REF  14  LAST  IR9 


05.2154 

15. 2155 
05,  2156 


07242  1 
10372  0 
77667  0 


LMORBM04  2DNADR 
30NADR 
-lONADR 


OHEGAPD 

CADRFLSH 

RACMCOES 


0099  REF 

0100  REF 
Old  REF 

0102  PEF 

0103  PEF 

0104 

0105 

0106 
0107 


6 LAST  197 
5 LAST  197 
4 LAST  197 
J 
1 


05,2157 

05.2160 

05. 2161 
05  ,2162 

05.2163 

05.2164 

05.2165 

35.2166 

35.2167 


07021  0 
07234  0 
04032  1 
03024  1 
03113  1 
34011  0 
34013  1 
34030  0 
43745  0 


LMCR 


BM05  2DNA0R 
2DNADR 
2DNA0R 
I DNADR 
IDNADR 
DNCHAN 
ONCHAN 
DNCHAN 
-DNCHAN 


OMEGAP 

CDUXD 

COLX 

ALPHAQ 

PCSTCRKP 

11 

13 

30 

32 


2 LAST  149 
4 LAST  99 


03560  I LMCR8M06  lONACR  PIPT1ME1 
67453  1 -3DNADR  DELV 


ROllO 


7:53  DECo  19, 196°  LEPCNAI0ol04  PAGE 


197 
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PS0BO,+l 

OMEGAP,OMEGAQ , OMEGAP , GARBAGE 
CDUXO,COUYD,C DU  ZD, GARBAGE 
COUX,CDLY,CDUZ  ,CDUT 
STATE+O* ; - +1 ID  (FLAGwnPOS) 

DSPTA6  TABLES 

RN  +2, +3  SNAPSHOT 

RN  +4, +5 

VN,  + 1 

VN  +2, +3 

VN  +4, +5 

PIPTIME  • + ! 

RN,+l 

cmegapd,omegaqc,cmegarc,garpage 

CADRFLSH,+1,+2,FAILP6G,+1 ,*2 
RACMOCES, DAPBOCLS  COMMON  DATA 

QMEGAP,OMeGAO,OMEGAR,GARBAGF 
CDUXO,CDUXD,COUZD, GARBAGE 
COUX,COUY,CDUZ,CDUT 

ALPHAQ, ALPHAR  COMMON  DATA 

PCSTOPKP.NFGTORKP 

CHANNELSll ,12 

CHANNELS13,  14 

CHANNELS30 ,31 

CHANNELS32  ,3? 


piptime,+i  common  data 

DELV+Oooo+5 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PRCGRAV  LUMINARY  BY  NASA  202in2-OQl 

L DOWNLINK  LISTS 


POlll  Ih  COAST  ANC  alignment  COWNLIST 
ROU2  CONTROL  LI  ST 


0113 

05t2172 

LMCSTADL  EQUALS 

0114 

REF 

1 

35  i2172 

32127 

1 

CNPTR 

LMCSTAOl 

0115 

REF 

5 

LAST 

196 

05,2173 

24340 

0 

60NADR 

DNTMBUFF 

0116 

REF 

1 

05,2174 

02020 

1 

IDNAOR 

AGSK 

0117 

REF 

2 

LAST 

125 

05,2175 

02774 

1 

IDNADR 

TALIGN 

0118 

BhF 

2 

LAST 

196 

05,2176 

07115 

0 

20NA0R 

PCSTCRKU 

0120 

REF 

3 

LAST 

196 

05,2177 

01330 

0 

IDNAOR 

DNRRANGE 

0121 

REF 

2 

LAST 

196 

Q5,22Cn 

01341 

0 

ICNADR 

TEV6NT 

0122 

REF 

2 

LAST 

196 

05,2201 

25733 

1 

enNADR 

PEFSMMAT 

0123 

REF 

1 

05  ,2202 

00734 

1 

1 DNADR 

AOTCODE 

0124 

REF 

1 

05,2203 

12C22 

1 

3DNA0R 

RLS 

0125 

RLF 

3 

LAST 

196 

)5,2204 

05333 

1 

2DNA0R 

DNLRVEL  X 

0126 

REF 

3 

LAST 

196 

05,2205 

13700 

1 

30NA0R 

VGTIG 

0127 

REF 

1 

C5,22C6 

32136 

1 

ONPTR 

LMCSTAC2 

0128 

REF 

2 

LAST 

106 

05  ,2207 

00024 

1 

IDNADR 

TIMF2 

0129 

REF 

1 

05,2210 

32145 

0 

DNPTR 

LMCSTAOB 

0130 

REF 

6 

LAST 

198 

05,2211 

24340 

0 

6DNADR 

DNTMBUFF 

0131 

REF 

1 

05 ,2212 

32154 

0 

DNPTR 

LMCSTA04 

0132 

REF 

1 

05, 2213 

22226 

0 

DNPTR 

LMCSTA07 

0133 

REF 

A 

LAST 

198 

05,2214 

05333 

1 

20NADP 

DNLRVFL  X 

0134 

REF 

1 

05,2215 

C4C36 

0 

20NACR 

CDUS 

0135 

REF 

2 

LAST 

96 

05,2216 

00112 

0 

IDNADR 

LASTYCMC 

0136 

REF 

2 

LAST 

196 

05  ,2217 

01326 

1 

IDNAOR- 

LEMMASS 

0137 

REF 

33 

LAST 

196 

05,2220 

01277 

1 

IDNADR 

IM0CES30 

0136 

REF 

2 

LAST 

196 

05,2221 

03441 

0 

IDNADR 

TIG 

0139 

REF 

1 

35  ,2222 

32)  57 

0 

ONPTR 

LMCSTA05 

qi40 

REF 

14 

LAST 

197 

05,2223 

52755 

1 

-6DNADR 

DSPTAB 

oni  / 1 

0142 

REF 

2 

LAST 

196 

C5,2127 

LMCSTAOl  EQUALS 

LMCRBMOi 

0143 

REF 

2 

LAST 

196 

05,2136 

LMCSTA02  EQUALS 

LMORBMO? 

0144 

REF 

2 

LAST 

196 

05 ,2145 

LMCSTA03  EQUALS 

LM0RBM03 

0145 

REF 

2 

LAST 

196 

05, 2154 

LWCSTA04  EQUALS 

LM0P8M04 

0146 

REF 

2 

LAST 

196 

05,2157 

LMCSTA05  EQUALS 

LM0RBM05 

0147 

REF 

1 

05,2224 

C5700 

0 

LMCSTA06  20NA0R 

X7e9 

REF 

3 

198 

05,2225 

77665 

1 

“IDNADR 

LASTYCMO 

0149 

REF 

2 

LAST 

12A 

05  ,2226 

12737 

1 

LMCSTA07  3DNADP 

OGC 

0150 

REF 

? 

LAST 

125 

05,2227 

C2755 

1 

IDNADR 

BESTl 

0151 

REF 

2 

LAST 

125 

35,2230 

12760 

0 

30NADR 

STARSAVl 

0152 

REF 

3 

LAST 

129 

05,2231 

65011 

1 

-3DNADP 

STARSAV2 

7:53  DEC. 


19,106'5  LEMONAID-lOA 


PAGE  19fi 


USER'S  PAGF  NCo  4 EC  S4 


SEND  10  BY  SPECIAL  CODING 

COLLECT  SNAPSHOT 

SEND  SNAPSHOT 

AGSK,+1 

TAL  IGN, +1 

PCSTORKU.NEGTORKU,  POSTORKV.NEGTORKV 

ONRRANGFiONRPDOT 

TEVENT.+l 

REFSMMAT  + Oecf  +11 D 

AOTCODE  ,GAR6A-GE 

RLS+0*oo+5 

ONLRVELXtONLRVELYfCNLRVELZiDNLRALT 

VGTIGX,Y,Z 

COMMON  DATA 

TIHF2/1 

COLLECT  SNAPSHOT 
SFND  SNAPSHOT 
COMMON  DATA 
common  data 

DNLRVELX ,DNLF VELY .DNLRVELZi DNLRALT 

cous»pipax,pipay,pipaz 
LASTYCMOtLASTXCMO 
LEMMASStCSMMASS 
IM0DES3O , IMODESBS 
TIG,+  1 
COMMON  DATA 
DSPTAB+Cooo +P  D TABl  E 


COMMON  DOWNLIST  DATA 
COMMON  DOWNLIST  DATA 
COMMON  DOWNLIST  DATA 
COMMON  DOWNLIST  DATA 
COMMON  DOWNLIST  DATA 

DATA 
DATA 


X789+0a«fl+3  COMMON 

LASTYCMOtLASTXCMO 

OGC ,+l, IGC , +1 , MGC ,+l  COMMON 

BESTIfflESTJ 

STARSAVl  + 08«t  +5 

STARSAV2  + 0«»,c+5 
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R0153 


GAP: 

L 

P0154 

R0155 

0156 

0157 

0158 

0159 

0160 

0161 

Ca62 

0163 

016A 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0176 

0177 

0178 

0179 

OIBO 

0181 

0182 

0103 

0164 

0X85 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

R0194 

0195 

0196 

C197 


L EMONA lOr  104 


AGE 


200 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAP  LUPINARY  BY  NASA  2C21112-091  17:53  DEC,  19,1969 


DCWNLINK  LISTS 


USER' S PAGE  NCc  6 


EO  S4 


LP  RENDEZVOUS  AND  PRE-THRLST  CCYiNLIST 


CONTROL  LIST 


REF  1 
REF  7 
REF  1 
REF  8 
REF  2 
REF  3 
REF  1 
REF  2 
REF  2 
REF  3 
REF  2 
REF  1 
REF  1 
REF  3 
REF  1 
REF  9 
REF  1 
REF  3 
REF  4 
REF  2 
REF  2 
REF  2 
REF  2 
REF  2 
REF  2 
REF  4 
REF  3 
REF  34 
REF  3 
REF  1 
REF  5 
REF  1 
REF  1 
REF  2 
REF  1 
REF  6 


LAST  198 

LAST  200 
LAST  196 
LAST  196 

LAST  196 
LAST  196 
LAST  196 
LAST  196 


LAST  190 

LAST  200 

LAST  198 
LAST  200 
LAST  196 
LAST  196 
LAST  196 
LAST  196 
LAST  196 
LAST  198 
LAST  198 
LAST  198 
LAST  198 
LAST  198 

LAST  200 


LAST  196 
LAST  200 


35  ,2232 

05.2232 

05.2233 
05  ,2234 

05.2235 

35.2236 

05.2237 
05,2240 
05  ,2241 

05. 2242 

05.2243 

05 .2244 

05.2245 

15.2246 

05.2247 

05.2250 

05.2251 

05.2252 

05.2253 

35 .2254 

05.2255 

05.2256 

05.2257 
05,2260 
05  ,2261 

05.2262 

05.2263 
05  ,2264 

05.2265 

05.2266 

05.2267 
05,2270 
05  ,2271 

05.2272 

05.2273 
05  ,2274 
05,2275 


32127  1 
24340  0 
32276  0 
14340  0 
03451  1 
13443  0 
13433  1 
03633  I 
12266  C 
00C07  C 
03630  1 
2222^  1 
32136  1 
00024  1 
32145  0 
24340  0 
22154  0 
07115  0 
00007  0 
01776  C 
12274  0 
03635  1 
12365  1 
02256  1 
04036  0 
00112  0 
01326  I 
C1277  1 
03441  0 
32157  0 
00007  0 
03620  0 
03466  0 
03577  1 
02347  0 
7777C  1 


6DNA0R 
DNPTR 
4DNADR 
IDNAOR 
3DNADP 
3DNA0R 
IDNADR 
3DNADR 
IDNAUR 
IDNADR 
DNPTR 
DNPTR 
IDNADR 
DNPTR 
6DNADR 
DNPTR 
20NADR 
IDNADR 
IDNADR 
3DNADR 
IDNADR 
aON'AOR 
IDNADR 
2DNADR 
IDNADR 
1 DNADR 
IDNADR 
IDNAOR 
DNPTR 
IDNAOR 
IDNADR 
IDNAOR 
IDNAOR 
1 CNAOR 
-IDNADR 


LPPENCOl 

DNTMBUFF 

LMREND07 

DNTMBUFF 

0ELLT4 

RTARG 

DELVSLV 

TCSI 

OELVEETl 

SPARE 

TPASS4 

LMREN006 

LMREND02 

TIME2 

LMREN003 

DNTMBUFF 

LMRENC04 

POSTORKL 

SPARE 

TCDH 

0ELVEET2 
TT  PI 

DELVEET3 
EL  EV 
CDUS 

LASTYCMD 
LEMMASS 
I MCDFS30 
TIG 

LMRENC05 

SPARE 

CENTANG 

NN 

DIFFALT 

OELVTPF 

SPARE 


SEND  ID  BY  SPECIAL  CCOING 

CnilECT  SNAPSHOT 

SEND  SNAPSHOT 

COLLECT  SNAPSHOT 

SEND  SNAPSHOT 

0ELLT4,+l 

RTARG+Oo« .+5 

OELVSLV+0,oc+5 

TCSI,  + 1 

DELVEET+O-cc+5 

TPASS4,+1 
COMMON  DATA 
COMMON  DATA 
TIME2/1 

COLLECT  SNAPSHCT 
SEND  SNAPSHOT 
COMMON  DATA 

POSTORKU,NFGTORKU , PCSTCRKV, NE6TDPKV 
TCOH,+l 

DELVEET2  + 0oe^*5 
TTP  I, +1 

0ELVeET3+O«<,*  +5 
FLFV,+1 

CDUS,PIPAX,PIPAY,PIPAZ 
LASTYCMD, LASTXCMD 
LEMMASS, CSMMASS 
IM0CES3O, IM0DES33 
TIG,tl 
COMMON  OATA 

CENTANG, +1 
NN,+l 

DIFFALT, +1 
OELVTPF , + 1 


SU8-L  ISTS 


REF  3 last 

REF  3 LAST 

REF  3 LAST 


198  05,2127 
198  C5,2136 
198  05  ,2145 


LMRENCOl  EQUALS  LMOBBMni 
LMREND02  EQUALS  LM0RBM02 
LMREND03  EQUALS  LM0B0M03 


COMMON  OOWNLIST  DATA 
COMMON  OCWNLIST  DATA 
COMMON  OdWNLI ST  DATA 
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0198  REF  3 LAST  198  05,-215A 

0199  REF  3 LAST  198  05,2157 

0200  REF  1 05,222A 


LMRENDO^  EQUALS  LMaPBMO* 
LMRENC05  EQUALS  LMORBMO? 
LMREND06  EQUALS  LMCSTAn6 


0201 

0202 

0203 

0204 

0205 
R0206 


REF  1 05,2276  74320  0 LMR EN007-1 DN ADR  AIG 

REF  1 05,2277  03461  1 IDNADR  AOG 

REF  2 LAST  148  05,2300  03752  1 IDNADR  TANGNB 

REF  2 LAST  148  05,2301  03754  1 IDNADR  MKTIME 

REF  2 LAST  148  05,2202  T4C17  1 -IDNADR  RANGRDCT 
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USER'S  PAGE  NCo  7 EO  S4 

CCMMON  OCWNLIST  DATA 
COMMON  DOWNLIST  DATA 


COMMON  DOWNLIST  DATA 

AIG.AMG  SNAPSHOT 

AOG.TRKMKCNT 

TANGNB, +1 

MKTIME, +l 

DNPRANGE, CNRRDOT 


3AP ; 

L 

30207 

^0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0236 

0239 

0240 

0241 

0242 

t0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 
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DOWNLINK  L ISTS 

LM  DESCENT  ANC  ASCENT  DOWNLIST 


17: 53  neC,  19,1969 
USER'S  PAGE 


LEMONAIO  104  PAGE  202 
NCc  8 EO  S4 


CONTROL  LI  ST 


REF 

PEF 

PEF 

REF 

REF 

REF 

PEF 

REF 

REF 

REF 

PEF 

REF 

REF 

REF 

REF 

REF 

REF 

KEF 

PEF 

REF 

REF 

REF 

REF 

REF 

REP 

REF 

REF 

REF 

REF 

REF 


REF 

REF 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


151 

152 
198 
120 


4 LAST  200 


10  LAST  200 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 


200 

123 

151 

151 

120 

122 

151 

200 

20U 

200 

200 


151 

156 


LAST 

LAST 


200 

200 


55.2303 

09.2303 

35.2304 

05.2305 
C5t2306 
15,2307 

15.2311 
Q5,’2311 

15.2312 

05.2313 

35.2314 

15.2315 

05.2316 

15.2317 
05  ,2320 

05.2321 

05.2322 

05.2323 

05. 2324 

05.2325 

05.2326 

15.2327 
35,2330 
05,2333 

15.2332 

05.2333 

15.2334 
05  ,2335 

05.2336 

35.2337 
05  ,2340 

- SUB-LI 

05,2136 

05,2145 


32341  0 
32355  0 
01341  0 
1.32  52  0 
13645  1 
03642  I 
C3664  0 
12022  1 
02276  0 
22224  1 
32136  1 
C0024  I 
22145  0 
24340  0 
22154  0 
07115  0 
12626  0 
12626  1 
13634  I 
02262  0 
02400  1 
03615  0 
00112  C 
01326  1 
01277  ] 
03441  0 
32157  0 
32170  0- 
03614  1 
74324  1 
STS  


DNPTP 
IDNAOR 
3CNA0R 
3DNADR 
1 ONAOR 
IDNAOR 
30NADR 
1 DNADR 
ONPTR 
DNPTR 
1 ONADP 
DNPTP 
6DNADR 
DNPTR 
2DNADR 
30NADR 
30NADR 
3DNADR 
IDNADR 
lONADP 
IDNAOR 
IDNADR 
IDNADR 
IDNADR 
IDNADR 
DNPTR 
DNPTR 
lONADP 
-IDNADR 


LMCSAS07 

LMDSAS08 

TEVENT 

UNFC/2 

VGVFCT 

TTF/8 

DELTAH 

RLS 

ZOCTC 

LPDSAS09 

LMDSAS02  * 

T IME2 

LMDSASO? 

ONTMBUFF 

LMCSAS04 

POSTQRKL 

RGU 

VGU 

LAND 

AT 

TLAND 

FC 

LASTYCMD 

L6MMASS 

IM0rES30 

TIG 

LM0SAS05  * 
LM0SASO6 
PSEUD055 
TTGGO 


SEND  ID  BY  SPECIAL  CCOING 

COLLECT  SNAPSHOT 

SEND  SNAPSHOT 

TEVENT, +1 

UNFC/2+l9o<,  *5 

VGVECT  + Oooe  +5 

TTF/8, +1 

DELTAh,+l 

PLS+0»««+5 

ZOOTD, +1 

COMMON  DATA 

COMMON  DATA 

TIME2/1 

COLLECT  SNAPSHOT 
SEND  SNAPSHOT 
COMMON  DATA 

POSTORKU,NEGTORKU, PDST0RKV,N6GT0RKV 

RGU+Ooeo+5 

VGU+Oo*o+5 

LAN0+0.«o+5 

AT,  +l 

TLAND, +1 

FC  .GARBAGE 

LASTYCMD.LASTXCMC 

LEMMASS.CSMMASS 

IM00ES30, IM0CES3? 

TIG,+1 
COMMON  DATA 
COMMON  DATA 
PSEU0055 .GARBAGE 
TT0G0,+1 


LM0SAS02  EQUALS  LM0PBMO2 
LPDSAS03  EQUALS  LMUR8M03 


COMMON  DOWNLIST  DATA 


COMMON  DOWNLIST  DATA 


REF  4 LAST 

REF  4 LAST 

REP  2 LAST 


201  15,2154 
201  05,2157 
196  05,2170 


LMOSAS04  EQUALS 
LMCSAS05  EQUALS 
LMDSAS06  EQUALS 


LM0PBMO4 
LMORBMOS  '* 

LMOR0MO6 


CCMMON  DCWNLIST  DATA 
COMMON  DOWNLIST  DATA 
COMMON  DOWNLIST  DATA 


REF  2 LAST  120  05,2341 

REF  2 LAST  151  05,2342 

REF  1 05,2343 


75441  1 LMOSAS07-TDNAOP  LRZCOUOL 
03651  0 IDNAOR  VSELECT 

02337  1 IDNADR  LRVTlMDL 


LRZCDUOL, GARBAGE 
VSELECT, GARBAGE 
LRVTIPDL,+1 


SNAPSHOT 
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17:'53  DECo  19,1969 
USER' S PAGE 


LFMONAIO.IO^ 
NCc  9 


PAGE  203 
EO  S4 


0252  REF  2 

0253  REF  3 

025A  REF  2 

0255  REF  3 

0256  REF  2 

0257  KEF  ' 2 

0258  REF  3 

0259  REF  4 

0260  REF  2 


LAST  151  05 

LAST  201  05 

LAST  151  05 

LAST  152  05 

LAST  201  05 

LAST  201  05 

LAST  201  D5 

LAST  203  05 

LAST  12C  05 


,2344  03652  0 
,2345  03754  1 
,2346  03654  0 
,2347  C3T56  C 
,2350  03457  1 
,2351  03461  1 
,2352  C3752  1 
,2353  03754  I 
,2354  75443  0 


lONAOR 

IDNADR 

IDNAOR 

ICNADR 

lONADR 

IDNAOR 

lONADR 

lONADR 

-IDNAOR 


VMEAS 
MKTI ME 
HMEAS 


A IG 
AOG 

TANGNB 

MKTIME 

LRXCCUCL 


VMEAS  , ♦! 

MKTIME,  +1 
HMEAS, +1 
RM,+l 
AI  G ,AMG 
AOG,TRKMKCNT 
TANGNB, +l 
MKTIMF ,+l 
LRXCOUOL.LRYCOUDL 


0261  REF  11  LAST  202 

0262  REF  12  LAST  203 


2434P  0 LMDSASOe  6DNADR  DNTMBUFF  SEND  SNAPSHTT 

57423  0 -5DNADR  DNTMBUFF  +12D 


0263 


REF  2 LAST  201 


05,2224 


LM0SAS09  EQUALS  LMCSTA06 


CCMMHN  DCWNl 1ST  DATA 


R0264 
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L CCWNL INK  L ISTS 

P0265  L^  LUNAR  SURFACE  ALIGN  OCV.NLIST 

R0266  CONTRCL  LI  ST 


0267 

C268 

0269 

0270 

0271 

0272 

0273 
027A 

0275 

0276 

0277 
02  78 
0279 
0200 
0281 
0282 
02  83 
0264 
0205 
02  86 
0267 
0288 

0289 

0290 

0291 


REF  I 

REF  13  LAST 

REF  1 

REF  14  LAST 

REF  3 LAST 

REF  3 LAST 

REF  2 LAST 

REF  1 

REF  1 

REF  5 LAST 

REF  1 

REF  15  LAST 

REF  1 

REF  1 

REF  4 LAST 

REF  2 LAST 

PEF  6 LAST 

REF  5 LAST 

REF  36  LAST 

REF  5 LAST 

REF  1 

REF  1 

REF  7 LAST 

PEF  8 LAST 


05,2357 

05,2357 

203  05,2360 
05,2361 

204  05,2362 

198  ■>5,2363 

108  15,2364 

117  05,2365 

05.2366 

05.2367 
202  .15,2370 

05,2371 
204  05,2372 

15,2373 
05  ,2374 
117  05,2375 

198  05,2376 

202  05,2377 

202  05,  2400 

202  05,2401 

202  05,24C2 

05,2403 
05  ,2404 
200  05,2405 

204  15,2406 


32127  1 
24340  0 
32276  0 
14340  0 
02774  1 
25733  1 
26236  1 
32224  1 
32136  1 
C0024  1 
32145  0 
24340  0 
32154  0 
32226  0 
12230  0 
02020  1 
C0112  0 
C1326  1 
01277  1 
03441  0 
32157  0 
32170  0 
CCC07  n 
77770  1 


6DNADR 
DNPTR 
4DNADR 
lONAOR 
6DNADR 
60NADR 
DNPTR 
DNPTR 
IDNADR 
DNPTR 
6DNA0P. 
DNPTR 
DNPTP 
3DNADR 
IDNADR 
1 DNADR 
IDNADR 
IDNADR 
IDNADR 
DNPTR 
DNPTR 
lONAOR 
-IDNADR 


LMLSALOl 

DNTM8UFF 

LMLSALC7 

DNTM6UFF 

TALIGN 

REFSMMAT 

YNBSAV 

LMLSAL08 

I MLSAL02 

TI  Me2 

LHLSAL03 

DNTM6UFF 

LMLSAL04 

LMLSAL09 

GSAV 

AGSK 

LASTYCMD 

LEPMASS 

IMODES30 

TIG 

LMLSAL05 

LMLSAL06 

SPARE 

SPARE 


R0292 

0293 

0294 


REF 

REF 


SUB-LISTS 

4 LAST  200  05,2127 

5 LAST  202  05,2136 


LMLSALOl  EQUALS  LMCR6M0T 
LMLSAL02  EQUALS  LM0P6MC2 


0295  REF 

0296  REF 


5 LAST  202  05,2145 
5 LAST  202  05,2154 


LMLSAL03  EQUALS  LMOR6MO3 
LMLSAL04  EQUALS  LMORBM04 


0297  PEF 


LAST  202  05,2157 


LMLSAL05  EQUALS  LKORBMOS 


0298 

0299 

0300 

0301 


REF  3 LAST 

REF  2 LAST 

REF  3 LAST 

REF  2 LAST 


202  05,2170 

200  05,2276 

203  05,2224 

198  05,2226 


LMLSAL06 

LMLSAL07 

LMLSAL03 

LMLSAL09 


EQUALS  LMCReM06 
EQUALS  LMREN007 
EQUALS  LMCSTA06 
EQUALS  LMCSTA07 
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FO  S4 


SEND  ID  BY  SPECIAL  CODING 

COLLECT  SNAPSHOT 

SEND  SNAPSHOT 

COLLECT  SNAPSHOT 

SEND  SNAPSHOT 

TALIGN, +I 

REFSMMAT  + Oo  + 110 
YNPSAV+Oooc-tE,  ZNDSAV+n«oo+5 
COMMON  DATA 
COMMON  DATA 
TI ME/1 

COLLECT  SNAPSHOT 
SEND  SNAPSHOT 
COMMON  DATA 
COMMON  DATA 
GSAV+n*o«+9 
AGSK,+1 

LASTYCMD, LASTXCMD 

LEMMASS.CSMMASS 

IM00ES30,IM0DFS33 

TrG,+1 

COMMON  DATA 

COMMON  DATA 


COMMON  DGWNLIST  DATA 
COMMON  DOWNLI ST  DATA 
COMMON  DOWNLIST  DATA 
CCMMON  OCWNLIST  CATA 
COMMON  DOWNLIST  DATA 
COMMON  DCWNLIST  DATA 
COMMON  DOWNLI ST  OA  TA 
COMMON  DOWNLIST  CATA 


COMMON  DOWNLIST  DATA 


i 
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PAGF 
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205 
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L 

P0303 

R0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

03l<^ 

A0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

032A 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

R033^ 

0335 

0336 

0337 

0338 

R0339 

0340 

0341 

0342 

0343 

0344 
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DCWNL  INK  L ISTS 

LP  AGS  IMTIALIZATICN  ANC  UPCATE  COWNLIST 


17:53  OECo  19,196Q 
USER'S  PAGE 


LEPCNAIOc  104 
MH,  1 2 


EO  S4 


CONTROL  LIST 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

RFF 

REF 


2 LAST  118 

3 LAST  206 

4 LAST  206 

5 LAST  206 

6 LAST  206 

7 LAST  206 

8 LAST  206 

9 LAST  206 
2 LAST  104 


05,2407 

05,2407  12200  0 

05.2410  02214  I 

05.2411  12201  1 

05.2412  02215  0 

05.2413  12206  0 

05,24K  02214  1 

05,2415-  12207  1 

05,2416  02215  0 

05  ,2417  25167  0 


lONAOR 

30NAt)R 

IDNADR 

30NADR 

lONAUR 

30NADR 

IDNAOR 

6DNADR 


AGS6UFF  +n 
AGSBUFF  +120 
AGSBL’FF  +1 
AGSBUFF  +13D 
AGSHUFF  +6 
AGSBUFF  +120 
AGSBUFF  +7 
AGSBUFF  +130 
COMPNUMB 


REF  1 
REF  I 
REF  6 LAST 
REF  1 
REF  16  LAST 
REF  1 
REF  5 LAST 
REF  9 LAST 
REF  10  LAST 
REF  3 LAST 
REF  2 LAST 
REF  3 LAST 
HEF  6 LAST 
REF  37  LAST 
REF  11  LAST 
REF  1 
REF  15  LAST 


05,2420 
05  ,2421 
204  J5,2422 

■)5,2423 
204  05,2424 

05,2425 
202  05  ,2426 

204  J5,2427 

206  )5,2430 

204  05  ,2431 

206  05,2432 

206  05,2433 

204  05,2434 

204  05,2435 

206  05,2436 

05,2427 
198  05,2440 


25203  1 
32136  I 
C0C24  I 
32145  0 
24340  0 
32154  0 
07115  0 
00007  C 
000C7  C 
02020  I 
25173  0 
15207  0 
C1326  1 
C1277  1 
00007  0 
32157  0 
52755  1 


6DNA0R  UPBUFF  +8D 
ONPTR  LMAGSI02 
IDNADR  TIVE2 
DNPTR  LMAGSI03 
60NADR  DNTPBUFF 
ONPTR  LMAGSIO* 
2CNADR  POSTORKU 
IDNADR  SPARE 
lONAOR  SPARE 
1 DNADR  AGSK 
6DNA0R  UPBUFF 
4DNA0R  UPBUFF  +120 
IDNADR  LEPMASS 
IDNADR  IM00ES30 
IDNADR  SPARE 
DNPTR  IMAGSI05 
-6DNADR  OSPTAB 


SEND  ID  BY  SPECIAL  CODING 

AGSBUFF+Oooo+5 

AGSBUFF+120,GARBAGF 

AGSBUFF  + looe+6 

AGSBUFF+13D, GARBAGE 

AGSaiFF+6«oe+ll 

AGSBUFF+12,GAP0AGF 

AGSBUFF+7,.o  . +120 

AGSBUFF+13D, GARBAGE 

COMPNUMB,UPOLDPCD  ,tjPVERR,UPCOUNT  , 

UPBUFF+^o,©  +7 

UPBUFF  +B0eco+19C 

COMMON  DATA 

TIME2/1 

COLLECT  SNAPSHOT 
SEND  SNAPSHOT 
CCMPON  DATA 

POSTOPKU,NEGTORKU ,POSTCRKV,NEGTCRKV 


AGSK, +1 

UPBUFF+Ooo»  +11  C 
UPBUFF+12Dooc+l90 
LEMMASS,CSMMASS 
IMODESBO , IMC0ES23 

COMMON  DATA 
DSPTAB+Oooo  +110 


REF 

REF 

REF 

REF 


6 LAST  204 
6 LAST  204 
6 LAST  204 
6 LAST  20^ 


- SU6“L1 
05, 2136 
05,2145 
05,2154 
05,2157 


STS 


LMAGSmz 

LMAGSI03 

LPAGSI04 

LMAGSI05 


EQUALS  LMCRBP02 
EQUALS  LMORBM03 
EQUALS  LM0ReM04 
EQUALS  LM0RBM05 


COMMON  OnWNLIST  DATA 
COMMON  DOWNLIST  DATA 
COMMON  DOWNLIST  DATA 
COMMON  DCWNLIST  DATA 


REF 

REF 

REF 

REF 

REF 


2 LAST  195  05,2441 

3 LAST  195  05,24^^2 

1 05,2443 

1 05,2444 

1 35,2445 


C2172 

02407 

02232 

02066 

02303 


1 

0 

0 

0 

0 


DNIABLG 


GENADR  LMCSTACL 
GENADR  LMAGSIOL 
GENADR  LMRENDCL 
GENADR  LMORBMDL 
GENADR  LMOSASDL 


LM  COAST  AND  ALIGN  DOWNLIST 
LM  AGS  INITIALI ZATION/UPDATE  DOWNLIST 
LM  RENDEZVOUS  AND  PFF-THRUST  DOWNLIST 
LM  ORBITAL  MANEUVERS  DOWNLIST 
LM  DESCENT  AND  ASCENT  DCWNLIST 


I 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-0<31 

L DOWNLINK  LI  STS 

0345  REF  I 05,2446  02357  1 GENADR  LMLSALDl 

R0346  


17:53  OECe  19, 196° 
USER  'S  PAGE 
LM  LUNAR  SURFACE 


LEMONAIDr 104  PAGE 
NOt  13  EO  S4 
ALIGN  CrWNLIST 


207 


i 


gap: 

L 

ROOOl 

R0002 

R0003 

R0004 

ROOOS 


ASSEMBLE  REVI 

AGS  INITIAL 

PROGRAM  NAM 

WRITTEN  BY 

MOD  NO,  : 
CATE  : 
MOD  BY  : 


SION  131  OF  AGC  PROGRAM  LUMINARY 
I ZAT  ION 

£:  AGS  INITIALIZATION  (R^7) 

: RHODE  / KILRCY  / FOLLETT 

0 

23  MARCH  1S67 
KILRCY 


NASA  2021112-091 


R0006  MOO  NO, 
R0007  CATE 
R0008  MCO  BY 


1 

28  OCTOBER  lS.t7 
FCLLETT 


17:53  DEC,  19,1960 
USER  'S  PAGE 


LEM0NAI0^104  PAGE  208 
NCo  1 pn  S4 


R0009  FUNCT,  DESC,:  (1)  TO  PROVIDE  THE  AGS  ABORT  ELECTRONICS  ASSE MB LY ( AE A > WITH  THE  LEM  AND  CSM  STATE  VECTORS 

ROOll  ( PCSITION, VELOCITY, TIME)  IN  LEM  IMU  COORDINATES  BY  MEANS  OF  THE  LGC  DIGITAL  DOWNLINK-. 


R0C13 

R0U15 

R0019 

R0021 


(2)  TC  ZERO  the  ICCU,  LGC  AND  AEA  GlMeAL  ANGLE  CCUNTERS  SIMULTANEOUSLY  IN  ORDER  TO  ESTABLISH  A 
COMMON  ZERO  PEFERENCE  FOR  THE  MFASUREMENT  OF  G I M P AL I FULER ) ANGLES  WHICH  DEFINE  LEM  ATTITUDE 
(3>  TC  ESTABLISH  THE  GROUND  ELAPSED  TIME  OF  AFA  CLOCK  ZEROodF  AN  AEA  CLOCK  ZERO  IS 
REQUESTED  DURING  THIS  PRCGPAM 


R0022  LCG  SECTION 


AGS  INITIALIZATION 


R0023  CALLING  SEO 
R002'^ 


PROGRAM  IS  ENTERED  WHEN  ASTRONAUT  KEYS  V^7E  ON  OSKY, 

R47  MAY  BE  CALLED  AT  ANY  TIME  EXCEPT  WHEN  ANOTHER  EXTENDED  VERB 


IS  IN  PROGRESS 


R0026  SUBROUTINES 
R0027  CALLED 


R0028  normal  exit  : ENCEXT 


R0029  ALARM/ABGRT 
R0030 


ALARM  - BAD  PEFSMMAT  - C0DE:220 

OPERATOR  ERRCR  IF  VA7  SELECTED  DURING  ANOTHER  EXTENDED  VERB, 


R0032  ERASAELES 

R0033  USED 

R0034 

R0036 

R0038 


SAMPTI  Mf 
AGSK 
AGSeUFF 
AGSWORD 


(2)  TIME  CF  CENTER:  KEYSTROKE 

(2)  GROUND  ELAPSED  TIME  OF  THE  AEA  CLOCK  cZERO: 

(lACI  CONTAINS  AGS  INITIALIZATION  DATA  I SEE  cOUTPUT:  BELOW) 
(1)  PREVIOUS  OCWNLIST  SAVED  HERE 


0039 


REF  10  LAST  206 


E4, 1600 


EBANK=  AGSBUFF 


OCAO 

OOAl  REF 
00A2 


40.2000 

32.2000 
22,2005 


BANK 

SETLOC 

BANK 


40 

R47 


00*3  REF 


COUNT*  $t/R47 


0044  REF  1 

0045  REF  1 

0046  REF  36  LAST  193 


32.2005  2 <i737 

32.2006  7 0077 
32,20C7  1C  000 


0 AGSINIT  CAF 
0 MASK 

0 CCS 


REFSMBIT 

FLAGWRD3 

A 


CHECK  REFSMFLG, 


GAP:  ASSEMBLE  REVISION  131  GF  AGC  PPCGRAf'  LUMINARY  BY  NASA  2^21112-001 

L AGS  INITIALIZATION 


17:53  DECo  19,1069  LEMONAID  104 
USER’S  PAC-F  NOe  2 


PAGE 
E4  S3 


209 


0047  REF  1 

0048  REF  8 LAST 

0049 

0050  PEF  1 


32,2010  C 2017  0 
187  32,2011  0 5567  0 

32.2012  00220  1 

32.2013  C 5472  0 


TC  REOSPTEM  REFSMMAT  IS  OK 

TC  ALARM  REFSMMAT  IS  BAD 

OCT  220 

TC  ENDFXT 


0061 

0062  PEF  1 

0063  REF  4 LAST  206 


32.2014  C C006  1 NEkAGS 

32.2015  3 0014  1 

32.2016  52'421  0 


EXTEND 

OCA  SAMPTIME 
DXCH  AGSK 


TIME  OF  THE  :ENTER:  KEYSTROKE 
BECOMES  NEW  AEA  CLOCK  :ZERO: 


0064 

0065  REF  5 

0066  RtF  2 

0067  REF  1 

0068  REF  1 

0069  PEF  1 

007n  ref  2 

0071  REF  1 

00711  REF  22 

00712  REF  12 

00713 

00714  REF  1 


LAST  209 
LAST  102 


LAST  209 


LAST  162 
LAST  98 


32,2017 

32.2020 

32.2021 

32. 2022 
32  ,2023 

32.2024 

32.2025 

32.2026 

22. 2027 
32  ,2030 

32.2031 

32.2032 


C QC06  I 
3 1421  1 
53*  051  0 
2 2172  1 
C 4616  1 
20334  1 
C 5472  0 
0 2036  0 
4746  1 
6 0154  1 

0 0006  I 

1 2014  1 


REDSPTEM  EXTEND 
DCA 
OXCH 

AGSDI SPK  CAF 
TC 

CADR 

TC 

TC 

cs 

AO 

EXTEND 

6ZF 


AGSK 

CSPTEMX 

V06N16 

BANKCALL 

GOMAPKF 

ENOEXT 

AGSVCALC 

BI  T6 

MPAC 

NEWAGS 


R1  = OOXXXo  HRSo  , 
R3  = OXXeXX  SECr, 
TERMINATE  PFTUPN 
PROCEED  RETURN 
IS  ENTER  VIA  A V?2 


R2 


COCXY 


MIN„  , 


YES,  USE  KEYSTROKE  TIME  FOR  NEW  AGSK 


0072 

0073  REF  3 LAST  209 

0074  REF  2 LAST  209 

A0075 


32  ,2033  0 0006  1 

32,203^  3 1051  1 

32,2035  0 2016  1 


EXTEND 

CCA  CSPTEMX 

TC  REOSPTEM 


NO,  NEW  AGSK  LOADED  VIA  V25 
LCACEC  INTO  DSPTEMX  BY  KEYING 
V25F  FOLLOWED  BY  HR  So , M INSp , S ECS • 
DISPLAY  THE  NEW  K 


0076  PEF  1 

00761 

00762  REF  1 

0077 

0078  PEF  1 


32,2036  ( 6C42  1 AGSVCALC  TC  INTPRFT 


32,2037  77614  1 

32.2040  C1076  1 

32.2041  77414  0 

32.2042  02076  1 


SET 

NOCGFLAG 
SET  EXIT 

XOSPFLAG 


DONT  ALLOW  V37 


0079  PEF 

00795  REF 

00796  REF 


2 LAST  209 
2 LAST  209 
1 


32.2043  3 2172  1 

32.2044  0 4616  1 

32.2045  20621  O 


CAF  V06M6 

TC  BANKCALL 

CADR  EXCSPPET 


0082  REF  2 

0083 

0084  REF  1 

0085  REF  1 

0086  REF  2 

0007 

0088  REF  1 

0C89  REF  11 

0090  REF  I 

0091  REF  2 

0092  REF  2 

0093 

0094  REF  2 


LAST  209 

LAST  37 

LAST  208 

LAST  209 
LAST  37 

LAST  209 


32,2046  C 6042  1 

32  ,2047  77634  0 

32.2050  21574  I 

32.2051  34C41  0 

32.2052  27056  1 

32.2053  77624  1 

32.2054  64132  0 

32.2055  16201  0 

32. 2056  00015  0 

32.2057  34041  0 

32.2060  27042  1 

32.2061  77624  1 

32.2062  64132  0 


TC  INTPRET 

RTB 

LOACT  IME 
STCALL  TDECl 

LEMPREC 


CALL 

STOOL 

STCALL 

CALL 


SCALE  VEC 
AGS  BUFF 
TAT 
TDECl 
CSMPREC 

SCALEVEC 


EXTRAPOLATE  LEM  ANC  CSM  STATE  VECTORS 
TO  THE  PRESENT  TIME 
LOAD  MPAC  WITH  TIME2,TIME1 
CALCULATE  LEM  STATE  VECTOP 


CALL  ROUTINE  TO  CONVERT  TO  SM  COORDS  AND 
PROVIDE  PROPER  SCALING 

(LEMPREC  AND  CSMPPEC  LFAVE  TDECl  IN  TATJ 
TAT  = TIME  TO  WHICF  PATTI  AND  VATTl  ARE 
COMPUTEDICSFC  SINCE  CLOCK  START  B-28). 
CALCULATE  CSM  STATE  VECTOR  FOR  SAME  TIME 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PROCRAM  LUMINARY  BY  NASA  2021112-C91 


L AGS  INI TIALIZATITN 


0095 

0096 

0097 
0096 

0099 

0100 
0101 


REF 

REF 

REF 


12 

2 


LAST  209  32i2063 

LAST  20°  32  12064 

32»2065 
LAST  209  32i2066 

32»2067 
LAST  210  32,2070 

32  ,2071 


16207 

00015 

56225 

02021 

24175 

C2215 

77776 


0 

0 

1 

0 

1 

0 

1 


STOOL  AGSBUFF  +6 
TAT 

DSU  ODV 
AGSK 
TSCALF 

STORE  AGSBUFF  +120 
EXIT 


0102  REF 

0103  REF 


1 32,2072  3 4753  1 

2 LAST  99  32,2073  54  333  0 


CAF  LAGSLIST 
TS  DNLSTCOD 


0104  REF 

0105  REF 

0106  REF 


1 

3 LAST  209 


32  ,2074  3 2176  0 

32.2075  C 4616  1 

32.2076  01736  1 


CAF  20SEC 

TC  BANKCALL 

CADR  DELAYJOB 


0107  REF 

0108  REF 

0109  REF 

0110  REF 

0111  REF 

0112  REF 

01121  REF 

01122 

01123 

01124 

01125  REF 

01126  REF 

01127  REF 

01128  REF 


32,2'»77 
LAST  2J0  32,2100 

LAST  166  32,2101 

LAST  187  32,2102 

LAST  208  32,2103 

32  ,2104 

32.2105 

32.2106 

32.2107 

32.2110 

32 .2111 
LAST  210  32,2112 

LAST  210  32,2113 

32  ,21  14 


3 1321  0 
54  333  C 
3 4744  1 
7 0074  n 

10  one  0 
0 2122  1 

11*301  0 CKSTALL 
1 2U1  0 
1 2115  I 
1 2111  0 
3 4363  0 +3 

C 4616  1 
01736  1 
1 2105  0 


CA  AGSWORO 

TS  DNLSTCCO 

CAF  IMUSEBIT 

MASK  FLA6WRC0 

CCS  A 

TC  AGSEND 

CCS  IMUCACR 

TC  F +3 

TCF  +6 

TCF  +1 

CAF  TEN 

TC  BANKCALL 

CADR  DELAYJCP 

TCF  CKSTALL 


0113  REF 

0114  REF 

0115  REF 

0116  REF 

0117  REF 

0118  REF 

0119  REF 


5 LAST  210 
1 

6 LAST  210 
1 

2 LAST  210 
1 

2 LAST  209 


32.2115  C 4616  1 

32.2116  16705  1 

32  ,2117  0 4616  1 

32.2120  17707  1 

32.2121  r 2122  1 

32.2122  0 5516  0 

32.2123  CCC54  r 


+ 6 TC 

CADR 

TC 

CACR 

TC 

AGSEND  TC 

ADRES 


BANKCALL 

I MUZERC 

BANKCALL 

I MUSTALL 

AGSEND 

DOWNFLAG 

NODCFLAG 


0120  REF 

0121  REF 

01211  REF 

01212  REF 

01213  REF 

0122  REF 


LAST  210 

LAST  209 
LAST  210 
LAST  210 


32.2124 

32.2125 

32.2126 
32  ,2127 

32 .2130 

32.2131 


3 2173  0 
C 4616  I 
20342  0 
1 5472  1 
1 5472  I 
0 5472  0 


CAF  V50N16 

TC  BANKCALL 

CADR  G0MARK3 

TCF  ENDEXT 

TCF  ENDEXT 

TC  ENDEXT 


0127 

0126 

0129 

0130 

0131 


REF  1 

REF  4 LAST  204 
REF  1 


22,2133 
32  ,2134 

32.2135 

32.2136 


64375 

CCC25 

01734 

72561 

24202 


1 

0 

0 

0 

1 


SCALEVEC  VLOAD 


VXSC 


MXV 
VATTl 
PFFSMMAT 
VS  L? 
VSCALE 


17:53  DEC,  19,1969 
USER  »S  PAGE 


LFMONAIO 
NOc  3 


104  PAGE 
E4  S3 


210 


CALCULATE  AND  STORE  THE  TIME 


DELAY  FOR  20  SEC  WHILE  THE  AGS 
COWNLIST  IS  TRANSMITTED 


RETURN  TO  THE  OLD  OOWNLIST 

CHECK  IMUSF  FLAG, 

IMU  IS  BEING  USED  - DC  NOT  ZERO 
CHECK  FOR  IMU  USAGF  WHICH  AVOIDS  THE 
IMUSE  BIT:  loEo,  IMU  rCMPENSATIONc 
FREE®  60  AHEAD  WITH  THE  IMU  ZFPO- 

WAIT  „l  SEC  AND  TRY  AGAIN- 


IMU  IS  NOT  IN  USE 

SET  IMU  ZERC  DISCRETE  FOR  320MSFCS 
WAIT  3SEC  FOR  COUNTERS  TO  INCREMENT 


ALLOW  V37 


gap:  assemble  revision  J31  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2C21112-091 


AGS  INITIALIZATION 


01311 

01312 

01313 
0131^ 

0131  5 

0132 
013? 

0134 

0135 

0136 

0137 

01371 

01372 

01373 

01374 

01375 

0138 

0139 

0140 

0141 

0142 
01<«3 

0144 

0145 

0146 


REF 

REF 

REF 

REF 

REF 


REF 

REF 


LAST  210 


LAST  210 


LAST  211 


REF  13 
REF  4 


REF 

REF 


LAST 

LAST 


LAST 

LAST 


LAST 

LAST 


211 

211 


211 

209 


211 

211 


REF  15  LAST 


72t2137 
32»2140 
32  ,2141 
32,21^2 
32,2143 
32  ,2144 

32.2145 

32.2146 

32.2147 
32,2150 
J2  ,2151 

32.2152 

32.2153 
32  ,2154 

32.2155 

32.2156 

32.2157 
32,2160 
32  ,2161 

32.2162 

32.2163 
32  ,2164 

32.2165 

32.2166 

22.2167 


53255  0 
24204  1 
24212  0 
77634  C 
21773  1 
24025  0 
C0017  1 
74321  1 
01734  0 
24200  0 
53212  0 
24204  1 
47055  1 
24212  0 
21773  1 
77750  0 
00024  1 
72130  0 
00155  0 
00026  0 
72130  0 
00160  0 
CC03C  1 
43530  0 
00162  1 


VAC 

RTB 

STDVL 

MXV 

VSL8 

VAO 

LXA,1 

SXA,1 


VAC 

AGSRNDl 

AGSRND2 

VECSGNAG 

VATTl 

RATTl 

VXSC 

REFSMMAT 

RSCALE 

VAO 

AGSRNOl 

RTB 

AGSRN02 

VECSGNAG 

VATTl 
LXA  ,1 
MPAC  +1 
VATTl  +2 
L XA  ,1 
MPAC  +4 
VATTl  +4 
RVO 

MPAC  +6 


17:53  DEC.  19,1969  L EMGNA  lOr 104  p&GE  211 

USER' S PAGE  NCc  4 $3 

THIS  SECTION  ROUNDS  THE  VECTOR,  AND 
CORRECTS  FOR  TFE  FACT  TFAT  THE  AGS 
IS  A 2 S COMPLIMENT  MACHINE  WHILE  THE 
LGC  IS  A 1 S COMPLIMENT  MACHINE. 


AGAIN  THIS  SECTION  ROUNDSc  TWO  VECTORS 
ARE  ADDED  TO  DEFEAT  ALSIGNAG  IN  THE 
CASE  OF  A HIGH-CRCEP  ZERO  COUPLED  WITH 
A LOW  ORDEP  NEGATIVE  PART- 


REF 


REF 


0147 

0148 
01485 

0149 

01495 

01496  REF 

01497 

0150 

0150 

0151 

0152 

0152 

0153 
0153 
01531 

01531 

01532 

01532 

01533 

01533 

01534 

01534 

01535 
01535 


4753 
,2170 
,2171 
6010 
,2172 
4242 
,2173 
,2174 
,2175 
,2176 
,2177 
,2200 
,2201 
,2202 
,2203 
,2204 
,2205 
,2206 
,2207 
,2210 
,2211 
, 2212 
,2213 
,2214 


00216  1 
1440C  C 

C1420  0 

14420  1 
C3100  0 
COOOO  1 
03720  1 
15077  0 
05041  1 
24402  I 
25724  1 
COOOO  1 
60000  1 
COOOO  I 
60000  1 
COOOO  1 
60000  1 
00000  1 
37777  1 
00000  1 
37777  1 


LAGSLI ST 

V01N14 

V50NnOA 

V00N25 

V06N16 

V00N34 

V50N16 

TSCALE 

20SEC 

RSCALE 

VSCALE 

AGSRNCl 


VN 

VN 

EQUALS 

VN 

EQUALS 

VN 

20EC 

CEC 

2CFC 

2DEC 

20CT 

2DCT 

2CCT 

20CT 

2GCT 


ONE 
0114 
5000 
0CT31 
0616 
340EC 
50]  6 
lOOB-lO 

20C0 

3.280839  8-; 
3.280839  £2 
0000060000 
0000060000 
0000060000 
0000037777 
0000037777 


CSEf  TO  SEC  SCALE  FACTOR 

METERS  TO  FEET  SCALE  FACTOR 
e-9  METERS/CS  TO  FEET/SEC  SCALE  FACTOR 


GAP:  ASSfcMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-^91 


17: 53  DEC»  19, 1969 


LEMONATO  104  PAGE  212 


AGS  INITIALIZATION 


USER'S  PAGE  NOo 


E^  S3 


01536 

01536 

0154  REF 


32 .2215  00000  I 

32.2216  37777  1 
30,2000 


20CT  0000037777 

S8ANK=  LOWSUPER  FOR  SUBSCCUENT  LOW  2CACPS<, 


GAP:  assemble  REVISION  131  OF  AGC  PRCGPAN  LUMINARY  BY  NASA  2021112-091 


L FRESH  START  AND  RESTART 


P007A3 

0075 

0076  PEF 

0077 


2 LAST 


A3 


10,2000 

05,2000 

05,2AA7 


BANK  10 
SETLCC  FPANDRES 
BANK 


0078  REF 


LAST  156  E3,1A00 


EeANK=  LSTl 


0079  REF  2 LAST 

0060 

0061  REF  ) 


A3  TC 


43: 

05 ,2447 
05,2450 


1 1* 
C 0004  0 
C 3105  0 


SLAPl 


COUNT#  $$/START 
INFINT 

TC  STAPTSUE 


0082  REF  1 

0083  REF  22  LAST  176 

0084  REF  1 

0085 

0086 


05.2451  1 2456 

05.2452  3 4736 
C5,2453  C 5105 

05.2454  77777 

05.2455  77777 


0 STARTSW  TCF 

1 STARTSIM  CAF 

0 TC 

0 SIM2CADR  OCT 
C OCT 


SKIPSIM 
BIT14 
FI NDVAC 
77777 
77777 


0087  REF  16  LAST 
0C671  REF  1 
00872  REF  17  LAST 

0088  REF  17  LAST 


206 

174 

213 


05.2456  2 1035  0 

05.2457  7 4771  0 

05.2460  6 4735  1 

15.2461  55'035  1 


SKIPSIM 


CA 

MASK 

AO 

TS 


DSPTAB  +110 
BITS4E6 
BI  T15 

DSPTAB  +110 


0093  REF 

00931  REF 
009315  REF 

00932  REF 
009325  PEF 

00933  REF 


7 LAST  193 
2 LAST  109 

1 

2 LAST  213 

3 LAST  213 
2 LAST  196 


05.2462  3 4755  1 

15.2463  55*365  1 

05.2464  54  375  1 

05.2465  54  376  1 

15.2466  54  377  0 

05.2467  54  320  1 


CA  ZERO 

TS  FRCOUNT 

TS  FAILREG 

TS  FAILPEG  +1 

TS  FAILREG  +2 

TS  REDOCTR 


009335  REF  1 

00934  REF  9 LAST  162 


05.2470  4 4644  1 

05.2471  55*310  0 


CS  PBiri2 

TS  DSRUPTSVi 


0094  REF  23  LAST 

0095 

0096  REF  7 LAST 

0097  REF  8 LAST 

0090  REF  1 


213 

182 

213 


05.2472 

05.2473 
05  ,2474 

05.2475 

15.2476 


3 4736  1 
0 0006  1 
01  011  0 

4 4755  C 
54  055  0 


OCFSTART 


CAF 

E XTEND 
WR  ITE 
CS 
TS 


BIT14 

DSALMOUT 

ZERO 

THRUST 


0099  REF  1 

0100  PEF  1 


05,2477  3 4751  0 CCFSTRTl  CAF  FOUR 

05,  2500  55*262  1 TS  P.CSFLAGS 


0101  PEF 

0102  REF 


2 LAST  176 
1 


15.2501  3 4355  0 

05.2502  54  366  0 


CA  PRI030 

TS  RESTREG 


0103  REF  9 LAST 

0104  REF  2 LAST 

0105  REF  1 

0106  REF  I 

0107  KFF  6 LAST 

0108  REF  5 LAST 

0109  REF  7 LAST 


213  15,2503  3 4755  1 

105  05,2504  55*245  1 

05,25C5  54  371  0 

05,2506  55*071  1 

194  05,2507  55*257  1 

194  05,2510  55*260  0 

194  05,2511  55*273  1 


CA  ZERO 

TS  ABOELV 

TS  NVSAVE 

TS  EBANKTEM 

TS  CH5MASK 

TS  CH6MASK 

TS  PVALVEST 


17:53  DEC*  19,1969  LEM0NAI0.1O4  PAGE  213 


USER 'S  PAGE  NOe  1 EO  S? 


FRESH  AND  RESTART 

FRFSH  STARTo  COMES  HERE  FROM  PINBALL 
SUBROUTINE  COES  MOST  OF  THE  WORK. 


PATCHo.ooTCF  STAPTSIM-coFCR  SIMULATION 


PATCH  2CA0R  (AND  EBANK  DESIGNATION)  OF 
SIMULATION  START  ACCRESS« 


TURN  OFF  ALL  DSPTAB  +110  LAMPS 

EXCEPT  THE  GIMBAL  LOCK  6 NO  ATT  ONLY  ON 

REQUESTED  FRFSH  START* 


INSURE  ENGINE  IS  OFF- 


INITIALIZE  ATTITUDE  ERROR  DISPLAYS.- 
SUPER  BANK  PRIORITY  FOR  DISPLAYS- 

DAP  INITIALIZATION 


FOR  RCS  FAILURE  MOMTCR 


17:53  neCo  19,1969 


LEh'ONA  10=  10^  PAGE  ?]A 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  Z021112-C91 
FRESH  START  AND  RESTART 


USER • S PAGE  NOo 


0110  REF 

0111  PEF 

0112  REF 

0113  REF 

0114  PEF 

0115 

0116  REF 

0117 

one  REF 

0119 

0120  REF 

0121 

0122  REF 

0123 

0124  REF 

0125  REF 

0126  REF 

0127  REF 

0128 

0129  REF 

0130 

0131  REF 

0132  REF 


2 LAST 
2 LAST 
4 LAST 
2 LAST 
2 LAST 

1 


1 


14  LAST 


1 


3 LAST 
10  LAST 
2 LAST 
30  LAST 


3 LAST 

15  LAST 
1 


108 
10  8 
210 
210 
111 


189 


177 

213 

213 
210 

214 
214 


05.2512 

05.2513 

15.2514 

05.2515 
15  ,2516 
05,2517 

15.2520 

05.2521 
05,  2522 

05.2523 

05.2524 

05. 2525 
05  ,2526 
05,2527 

05.2530 

05.2531 

05.2532 

05 .2533 

05.2534 

05.2535 
05  ,2536 
05,2537 
05,2540 


55'36C  1 
55*362  0 
54  333  0 
55'321  1 
55*501  0 
C 0C06  1 
01  C05  0 
C 0006  I 
Cl  CC6  0 
0 0006  1 
01  012  0 
C 0006  1 
01  013  1 
C CCC6  I 
01  C14  0 

4 1035  1 
7 4771  0 
10  000  0 
0 2540  1 
3 4771  1 
0 0006  1 

05  012  I 
0 2641  0 


TS  ERESTTRE 
TS  SMODE 

TS  ONLSTCGD 

TS  AGSWORD 
TS  UPSVFLAG 

EXTEND 

WRITE  CHANS 
EXTEND 

WRITE  CHAN6 
EXTEND 

WRITE  CHANJ2  — 
EXTEND 

WRITE  CHAN13 
EXTEND 

WRITE  CHAN14 
CS  DSPTA6  +110 

MASK  B1TS4&6 
CCS  A 
TC  +4 

CA  81TS4t6 

EXTEND 

WOR  CHAN12 
TC  MReKLEAN 


«««««  must  not  be  RFMnVED  FROM  DOFSTART 
must  not  PE  PEMCVED  FRCP  ODFSTART 
SELECT  POO  OOWNLIST 
ALLCW  AGS  INITIALIZATION 

ZERO  UPDATE  STATE  VECTOR  REQUEST  FLAGWRD 
TURN  CFF  RCS  JETS# 

TURN  OFF  RCS  JETS# 


THE  IMU  WAS  IN  COARSE  ALIGN  IN  GIMBAL 
LOCK,  SO  PUT  IT  BACK  INTO  COARSE  ALIGN® 


0133  REF  10  LAST  213 

0134  REF  I 


0 

0 


0135  REF  1 

0136  REF  38  LAST  206 


05.2543  3 3373  0 

05.2544  55*277  0 


CAF  IM30INIF  FRFSH  START  IMU  INITIALIZATION® 

TS  1MCDES30 


0137  REF 

0138  REF 

0139  REF 

0140  REF 

0141  REF 

0142  REF 

0143  REF 

0144  REF 

0145  REF 


1 

1 

2 LAST  213 
1 
1 
1 
1 
1 
1 


05.2545  3 3065  1 

05.2546  55*343  0 

05.2547  3 4751  0 

)5,2550  55*322  I 

05  ,2551  3 3061  0 

05,  2552  54  lU  1 

05.2553  3 5015  0 

05.2554  54  0C3  0 
E6, 1400 


CAF  MAXOB 

TS  DB 

CAF  FOUR 

TS  RATEINOX  INITIALIZE  KALCKANU  RATE 

CA  ROOLSTRT 

TS  DAPBCCLS 

CAF  EBANK6 

TS  EBANK 

E8ANK=  HI  ASCENT 


01451  REF 

01452  PEF 

01453  REF 

01454  REF 

0146  REF 

0147  REF 

0148  REF 

0149  REF 

0150  REF 

0151  PEF 


1 

1 

1 

2 LAST  131 
1 

2 LAST  214 
1 
1 
1 
1 


05.2555  3 5056  1 

05.2556  55*444  0 

05.2557  3 3057  0 

05  ,2560  55*476  1 

05.2561  3 2000  C 

05.2562  55*400  0 

05.2563  3 3062  0 

05.2564  55*403  0 

05  ,2565  55*406  0 

05,2566  3 3063  1 


CA  STIKSTRT 

TS  STIKSENS 

CA  FATESTRT 

TS  -RATEDB 

CAF  FULLAPS 

TS  HIASCENT 

CA  770010CT 

TS  DKTRAF 

TS  LMTRAP 

CA  60DEC 


INIT lAL IZE  MAX IMUM 
BY  1/ACCS  UNTIL 
LOAD  DAP  FILTER 
TO  BEST  PRESENT 
o 14  DEG 


ASCENT  MASS  FOR  USE 
THE  PAD  LCAO  IS  DONE- 
GAINS  PAD  LOAD 
EST  IMATE  OF  GOODIES 


GAP : 

L 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0162 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

C195 

0196 

0197 


LEMGNATO  104  PAGE  215 


ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17: 53  OECo  19,1969 


FRESH  START  AN C RESTART 


USER'S  PAGE  NCo  3 E6  S3 


REF  1 
REF  1 
REF  11 
REF  1 
KCF  2 
REF  1 
REF  17 
REF  1 
REF  1 
REF  23 
REF  16 


LAST  214 
LAST  210 
LAST  193 

LAST  209 
LAST  183 


05  ,2567 

05.2570 

05.2571 
05  ,2572 

05.2573 

05.2574 

05.2575 

05.2576 

05.2577 

05.2600 

15.2601 


55*405  0 
55*410  1 
3 4755  1 
55*407  1 

2 4363  0 
55*404  1 

3 4744  1 
55*411  0 
3 5026  0 
6 4746  C 
55*300  1 


TS  DKKAOSN 

TS  LMKAOSN 

CA  ZERO 

TS  LMOMEGAN 

CA  TEN 

TS  DKONFGAN 

CAF  BIT8 

TS  DKDB 

CAF  IM33INIT 

AO  PIT6 

TS  IMOOES33 


6 SEC  GAIN  FOR  ALPHA 
UNITY  GAIN 

1 SEC  GAIN  FOR  OMEGA 

SFT  DOCKED  DB  TO  14  DEGo  MAY  OVERWRITE 
WITH  PAD  LOACft 

KEFP  BOTH  DAP  AND  EPROR-N  FEOL  E S DISPLAY 
OFF  UNTIL  ICOU  ZERO  IS  FINISHED^ 


REF  1 
REF  17  LAST 
REF  2 LAST 
REF  18  LAST 
REF  2 LAST 
REF  19  LAST 
REF  3 LAST 
REF  20  LAST 

REF  4 LAST 
KEF  21  LAST 

REF  5 LAST 
REF  22  LAST 
REF  1 
REF  1 
REF  1 
REF  23  LAST 
REF  6 LAST 
REF  24  LAST 
KEF  7 LAST 
REF  25  LAST 
REF  1 
REF  26  LAST 
REF  8 LAST 
REF  27  LAST 
RFF  9 LAST 
REF  28  LAST 


05,26C3 
197  05,2604 
215  05,2605 
215  05,?6C6 
208  05,2607 
215  05,2610 
215  35,2611 
215  05,2612 

05,26)3 
215  05,2614 
2)5  05,2615 

05, 2616 
215  05  ,2617 
215  05,2620 

05.2621 

35 .2622 

35.2623 
215  35,2624 
215  05,2625 
2T5  05,2626 
2)  5 05  ,2627 
215  35,2630 

05,2631 
215  05  ,26  32 
215  05,2633 
215  05,2634 
215  05,2635 
215  05,2636 


0 0006  1 
3 3400  0 
52  075  1 
3 3401  1 
54  076  ) 
3 4737  0 
7 0077  0 
6 3402  1 
54  077  0 
C CCC6  1 
3 3404  1 
52  lOl  0 
C 0006  1 
3 3406  0 
52  103  1 
3 4744  1 
6 4740  0 

6 4741  I 

7 0104  0 

6 3407  1 
54  104  0 
3 3410  1 
54  105  1 
3 4737  0 

7 0106  1 
6 3411  0 
54  106  1 
3 3412  0 
54  107  0 


EXTEND 

DCA 

DXCH 

CA 

TS 

CA 

MASK 

AD 

TS 

EXTEND 

OCA 

DXCH 

EXTEND 

DCA 

CXCH 

CA 

AC 

AO 

MASK 

AO 

TS 

CA 

TS 

CA 

MASK 

AD 

TS 

CAF 

TS 


SWI  MT 
STATE 
SWINIT  +2 
STATE  +2 
REFSMRIT 
STATE  +3 
SWINI T +3 
STATE  +3 

SWINI T +4 
STATE  *4 

SWINIT  +6 
STATE  +6 
SURFFBIT 
CMOONBIT 
LMCCNBIT 
STATE  +P0 
SWINIT  +4D 
STATE  +80 
SWINIT  +90 
STATE  +90 
APSFLBIT 
STATE  +100 
SWI M T +10D 
STATE  +10D 
SWINIT  +11C 
STATE  +110 


INITIALIZE  SWITCHES  ONLY  ON  FRESH  START. 


00  NOT  ALTER  REFSMFLG  CN  FRESH  STARTs 


DC  NOT  alter  SURFFLAG  CN  FRESH  START® 
CMOPNFLG 
LMOONFLG 


DO  NOT  ALTER  APSFLAG  CN  FPFSH  START® 


REF 

REF 


2 LAST  167 
1 


05  ,2637  0 4635 

05,2640  03211 


0 ENCRSTRT  TC 
0 CACR 


POSTJUMP  NOW  IN  ANOTHER  BANK® 

DUMMYJCe  + 2 PICKS  UP  AT  PELINT,  (OONT  ZERO  NEWjnD) 


REF 

REF 


2 LAST  159 
1 


)5,2641 

05 .2642 

05.2643 

05.2644 


C 0004  0 
C 0006  1 
3 4755  1 
52  754  0 


MRoKLEAN 


INHINT 
EXTEND 
DCA  NEGO 
DXCH  -PHAS62 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  Z021U2-C91 


L FRESH  START  AND  RESTART 


0198 

0199  REF 

0200  REF 

0201 

0202  REF 

0203  PEF 
02  OA 

0205  REF 

0206  REF 

0207 

0208  REF 

0209  PEF 

0210 

0211  REF 

0212  REF 

0213  REF 


3 LAST 
1 

9 LAST 
1 

5 LAST 

1 

6 LAST 

I 

7 LAST 
1 

1*  LAST 


215 

216 

216 

216 

216 

199 


05.2695 

05.2696 

05.2697 
05,2650 
05  ,2651 

05.2652 

05.2653 

05 .2659 
05,2655 
05,265b 
05,2657 

05.2660 
05  ,2661 

05.2662 

05.2663 
05  ,2669 


52  760  1 
C 0006  1 
3 9755  1 
52  762  0 
C 0006  1 
3 9755  1 
52  756  I 
C 0006  1 
3 9755  1 
52  752  0 
0 0006  1 
3 9755  1 
52  769  0 
0 0002  0 


POCKLEAN  EXTEND 

DCA  NEGO 

CXCH  -PHASE9 
V37KLEAN  EXTEND 

CCA  NEGO 

CXCH  -PHASES 
AETKLEAN  EXTEND 

DCA  NEGO 

DXCH  -PHASES 

EXTEND 

DCA  NEGO 

DXCH  -PHASEl 

EXTEND 

OCA  NEGO 

DXCH  -PHASE6 

TC  Q 


17:53  DECo  19,1960  LEMONAI0^1C9 
USER  'S  PAGE  NOo  9 


PAGE  216 
E6  S3 


gap: 

L 

P021A 

0215 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

022A 

0225 

. 0226 

0227 

0228 

0229 

R0230 

R0232 

R0234 

R0236 

R0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0246 

0249 

0250 

0251 

0252 

0253 

0254 

02  55 

0256 

0257 

02  5 8 

0259 

0271 

0272 

0273 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19,1969  LEMnNAI0rlO4  PAGE  217 


FRESH  START  ANC  RESTART 


USER*  S PAGE  NCo  5 E6  S3 


COMES  HERE  FROM  LOCATION  4000,  GOJAM,  RESTART  ANY  PROGRAMS  WHICH  MAY  HAVE  BEEN  FUNNING  AT  THE  TIME 


24  320  0 GOPROG 


ADVANCE  RESTART  COUNTFRo 


REF  15 

REF  1 
REF  2 
REF  19 
REF  15 


REF  24 

REF  16 
R EF  1 


LAST  216 

LAST  197 
LAST  214 
LAST  173 

LAST  215 
LAST  21A 


05,2666 
)5,2667 
05  ,2670 

05.2671 

15.2672 

15.2673 

05.2674 
05  ,2675 

05.2676 

05.2677 
05  ,2700 
05,2701 


22  CC2  0 
0 0006  1 
0^  007  1 
53'A33  0 
3 1035  0 
7 4750  0 
C 0006  1 
1 2701  I 
6 4746  C 
0 0006  1 
05  012  1 
C 3066  I 


BUTTONS 


LXCH  0 

EXTEND 

ROR  SUPERBNK 

OXCH  RSBBQ 

CA  DSPTAB  +11D 

MASK  BIT4 

EXTEND 
BZF  +4 

AO  BIT6 

EXTEND 

WOR  CHANt2  — 

TC  LIGHTSET 


SET  ERROR  COUNTER  ENABLE 

ISS  WAS  IN  COARS  ALIGN  SO  GO  BACK  TO 


ERASCHK  TEMPORARILY  STORES  THE  CONTENTS  OF  TWC  ERASAELE  LCCATIONS,  X 
AND  X+1  INTO  SKEEP5  ANC  SKEEP60  IT  ALSO  STORES  X INTO  SKEEPT  AND 
ERESTOREo  IF  ERASCHK  IS  INTERRUPTED  BY  A RESTART,  CIERESTOREI  SHOULD 
EQUAL  C(SKEEP7),AN0  BE  A + NUMBER  LESS  THAN  2000  OC  Te  OTHFRViISF 
CIERESTOREI  SHOULC  EQUAL  +0 o 


REF 

REF 


4 LAST  217 


REF  2 LAST 

REF  2 LAST 

REF  2 LAST 

REF  2 LAST 

REF  2 LAST 

REF  12  LAST 

REF  5 LAST 

REF  2 LAST 


217 

109 

21^ 

109 

217 

215 

217 

213 


05.2702 

05.2703 

05.2704 

05.2705 

05.2706 
05, 27C7 
05  ,2710 

05.2711 

05.2712 

05.2713 

05.2714 

05.2715 

05.2716 

05.2717 
05  ,2720 

05.2721 

05.2722 

05.2723 
05, 272A 

05.2725 

05.2726 


3 A350  0 
7 1360  1 
C 0006  1 
1 2707  1 
I 3103  1 
^ 1360  1 
0 0006  1 
1 2726  I 
6 1377  0 
0 0006  1 
1 2716  1 
1 3103  1 
3 1374  0 
54  003  0 
0 0006  1 
3 1376  I 
51'377  0 
52  001  1 
3 4755  1 
55*360  1 
0 3105  0 


OORSTART  TC 


CAF  HI5 

MASK  ERESTCRE 

EXTEND 

BZF  +2 

TCF  NONAVKEY  +3 

CS  ERESTCRE 

EXTEND 

BZF  DORSTART 

AD  SKEFP7 

EXTEND 
BZF  +2 

TCF  NONAVKEY  +3 

CA  SKEEP4 

TS  EBANK 

EXTEND 

DCA  SKEEP5 

INDEX  SKEEPT 

CXCH  0000 

CA  ZERO 

TS  ERESTORE 

STARTSUe 


IF  ERESTORE  NOT  = +n  OP  +N  LESS  THAN  2K, 
00  FRESH  START  - E MEMORY  MIGHT  BE  BAD 


= 40  CONTINUE  WITH  RESTART* 


= SKEEP7,  RESTORE  E MEMORY* 

DO  FRESH  START  - E MEMORY  MIGHT  BE  BAD 

EEANK  OF  E MEMORY  THAT  WAS  UNDER  TEST- 
(NOT  DXCH  SINCE  THIS  MIGHT  HAPPFN  AGAINI 


E MEMORY  RESTORED* 


on  INITIALIZATION  AFTER  ERASE  RESTORE 


REF 

REF 

REF 


1 

2 LAST  82 

3 LAST  217 


05,2727  4 4736  0 

35  ,2730  7 0106  1 

05,2731  54  1C6  1 


SETINFL 


CS 

MASK 

TS 


INTFLBIT 

FLGWKDK 

FLGWRDin 


GAP: 

L 

027A 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

02  82 

0285 

02  64 

0285 

0286 

0287 

0286 

0289 

0290 

0291 

02  92 

0293 

0294 

0295 

0296 

02  97 

0298 

0299 

0300 

0301 

0302 

0303 

030^ 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 


ASSfMBLe  REVISION  131  OF  AGO  PRCGRAP  LUMINARY  BY  NASA  2021112-o«5j 


17:53  OECa  19,1969  LEMONAIO  104 


PAGF  218 


FRESH  START  AND  RESTART 


USER'S  PAGE  NCe  6 E3  S3 


REF  1 
REF  20 
REF  18 
REF  21 
REF  1 
REF  39 
REF  1 
REF  40 


LAST  217 
LAST  213 
LAST  218 

LAST  214 

LAST  218 


05  ,2732 

05.2733 

05.2734 
C5,2735 
■>5,  2736 
05  ,2737 

05.2740 

05.2741 


3 3375  0 
7 1C35  1 

6 4735  1 
57*035  0 
3 3361  0 

7 1277  0 
6 3374  1 
55*277  0 


CA  9,6,4  LEAVE  PROG  ALARM, GIMBAL  LOCK,  NO  ATT 

MASK  DSPTAB  +110  LAMPS  INTACT  ON  HAPOWAPE  RESTART 

AD  BIT15 

XCH  0SFTA8  +11D 

CAF  IFAILINH  LEAVE  I MU  FAILURE  INHIBITS  INTACT  ON 

MASK  IM0DES30  HARDWARE  RESTART^  RESET  ALL  FAILURE 

AC  IM30INIP  COOESo 

TS  IM0DES30 


REF  3 
REF  5 


LAST  214 
LAST  21 4 


35.2742 

35.2743 


3 1321  0 
54  333  0 


CA  AGSWORO  BF  SURE  OF  CORRECT  DOWNLIST 

TS  DNLSTCCO 


REF  16 

REF  4 
REF  5 
REF  2 
REF  39 

REF  16 

REF  8 
REF  1 
REF  24 

REF  9 
REF  2 


LAST  217 

LAST  214 
LAST  188 
LAST  176 
LAST  214 

LAST  170 

LAST  213 

LAST  213 

LAST  218 
LAST  218 


05.2744 

35.2745 

05.2746 
05  ,2747 
C5,275C 

05.2751 

05.2752 

35.2753 

05.2754 

05.2755 
35,  2756 
05  ,2757 

05.2760 

05.2761 

05 .2762 


C5  C14  1 

4 0101  0 
7 4745  1 
10  000  C 

1 2757  1 

2 4737  0 
0 0006  1 
C5  on  1 

1 2773  1 

3 4736  I 
C 3006  I 

05  011  1 
1 2773  1 


CA 

EXTEND 

WOR 

cs 

MASK 

CCS 

TCF 

CAF 

EXTEND 

WOR 

TCF 

CAF 

EXTEND 

WOR 

TCF 


BIT4 

CHAM4 
FL  A6WRD5 
ENGONEIT 
A 
+5 

BI  T1  3 

DSALMOUT 

GOPROGO 

eiT14 

DSALMOUT 

G0PR0G3 


TURN  ON  THROTTLE  CCUNTEP 
TURN  ON  THRUST  DRIVE 


TURN  ENGINE  ON 


TURN  ENGINE  OFF*, 


REF  1 
REF  1 
REF  1 
REF  2 
REF  1 
REF  4 
REF  5 


LAST  217 

LAST  217 
LAST  218 


05,2763 

35,276^ 

05.2765 

05.2766 
05  ,2767 

05. 2770 

05.2771 

35 .2772 


C 0CC4  C 

0 3114  0 

1 2767  1 
0 3157  1 
0 3066  1 
4 3064  I 
7 0106  1 
54  106  1 


ENEMA  INHINT 

TC  STARTS01 

TCF  G0PR0G2A 

GnPR0G2  TC  STARTSB2 

G0PR0G2A  TC  L IGHTSET 

CS  PSFLG6TS 

MASK  FLGWROlO 

TS  FLGWRDID 


CLFAR  BITS  7 AND  14c 


REF  1 

REF  16  LAST  211 


REF  40  LAST  218 
REF  2 LAST  216 

REF  7 LAST  184 
KEF  41  LAST  218 
REF  1 

REF  2 LAST  210 
REF  3 LAST  218 


05.2773  3 4756  1 

05.2774  54  161  0 

05.2775  6 0000  1 

35.2776  C 0006  1 

35  ,2  777  5 0000  1 

05.3000  3 0752  1 

35.3001  0 0006  1 

05  ,3002  06  001  0 

05,30C3  1C  OOO  0 
35,3304  1 3052  1 

:5,30C5  1 3052  1 

05,3006  1 3052  1 


G0PRnG3  CAF 
PCLOOP  TS 

DOUBLE 

EXTEND 

INDEX 

CCA 

EXTEND 

RXOR 

CCS 

TCF 

TCF 

TCF 


NUMGRPS 
MPAC  +5 


A 

-PHASEl 

LCHAN 

A 

PTBAO 

PTBAC 

PTBAD 


VERIFY  PHASE  TABLE  AGREEMENTS 


COMPLEMENT  INTO  A,  DIRECT  INTO  lo 
RESULT  MUST  BE  -0  FOR  AGREEMENT- 
RESTART  FAILUREo 


GAP:  ASSEMBLE  PEVISIUN  131  OF  AGC  PROGRAM  LUMINARV  BY  NASA  2021  112-09? 


L FRESH  START  AND  RESTART 


0319  REF  17  LAST  216 

0320  REF  1 


0 

0 


MPAC  +5 
PCLOOP 


0321  REF  IP  LAST  219 

0322  REF  1 


)5,30ll  5A  162  0 
J5|3012  C 5315  0 


TS  MPAC  +6 

TC  MMOSPLAY 


0323 


05,3013  0 000^  0 


INHINT 


032A  REF  1 

0325  REF  1 

0326  REF  2 LAST  219 


05,301^  A A736  0 
05,3015  7 0075  1 

15  ,3016  5A  075  1 


CS  DICFLBIT 

MASK  FLAGURDl 
TS  FLAGWRDl 


03262  REF 
0326A  REF 
03266  REF 


1 

3 LAST  219 
A LAST  219 


05,3017  t A7AC  1 

05.3020  7 0075  1 

05.3021  5A  075  1 


CS  RODFLBIT 
MASK  FLAGWRDl 
TS  FLAGWRCl 


03267  REF 

03268  REF 

03269  REF 


I 

7 LAST  210 
0 LAST  219 


05.3022  A A7A1  0 

05.3023  7 0074  0 
05,302A  5A  07A  0 


CS  P21FLBIT 
MASK  FLAGWROC 
TS  FLAGWRCO 


0327  REF 

0328  REF 

0329 

0330  REF 

0331  REF 

0332  REF 

0333  REF 


2 LAST  218 
19  LAST  219 

42  LAST  218 
1 
I 
1 


05,3025  3 A756  1 

05,3^26  5A  161  0 
05,3027  6 0000  1 

05.3030  50  000  1 

05.3031  10  752  0 

05.3032  1 3034  1 

05  ,3033  1 3041  0 


CAF  NUMGRPS 

■RST  TS  MPAC  +5 

DOUBLE 
INDEX  A 

CCS  PHASEl 

TCF  PACTIVE 

TCF  PINACT 


0334 

0335 

0336 

0337 

0338 


REF  20  LAST  219 
REF  21  LAST  219 
REF  22  LAST  219 
REF  1 
REF  1 


05,303A  EA  15A  0 

05.3035  2A  15A  1 

05.3036  2A  162  1 

05.3037  3 3060  1 
O5,3OA0  C 4622  0 


PACTIVE 


TS 

INCR 

INCR 

CA 

TC 


MPAC 
MPAC 
MPAC  +6 
RACTCAOR 
SWCALL 


0339  REF  23  LAST  219 

0340  REF  I 


05.3041  10  161 

05.3042  1 3026 


0 PIKACT  CCS 

1 TCF 


MPAC  +5 
NXTRST 


0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 


REF  24  LAST  219 
REF  1 

REF  19  LAST  218 
REF  2 LAST  21A 

REF  1 

REF  2 LAST  219 
REF  9 LAST  209 


05  ,3043  10  162  0 

05,304A  1 2637  0 

05,3045  3 A735  1 

05,30A6  7 ICIO  0 

05,3047  C 0C06  1 

05.3050  1 6001  1 

05.3051  1 2637  0 

05.3052  C 5567  0 PTBAO 

05.3053  01107  0 


CCS 

TCF 

CAF 

MASK 

EXTEND 

B2F 

TCF 

TC 

OCT 


MPAC  +6 
ENDRSTRT 
BIT15 
MOCREG 

GOTOPOOH 

ENDRSTRT 

ALARM 

1107 


0350  REF 


05,3054  I 2A77  0 


TCF  DOFSTRTl 


R0351  «#♦***#♦  ♦#*;♦*:* 


17:53  DECo  19,1969  LEMCiNAIDoU'4  PAGE  219 
USFR'  S PAGE  NCo  7 E3  S3 

PROCESS  ALL  RESTART  GROUPS^ 


SET  TO  +0o 
CISPLAY  MAJOR  MODE 


RELINT  DONE  IN  MMOSPLAY 

CLEAR  OIDFLAG  IN  ORDER  TO  FORCE  RIO  TP 
RE-INITIALIZE  ITSELF  IF  IT  HAD  BFEN 
OPERATING  AT  THF  TIME  CF  THE  RESTART- 


CLEAR  ROOFLAGo  IF  P66  IS  IN  OPERATION 
IT  WILL  RE-INITIALIZE  ITSELF  AND 
CONTINUFo 


CLEAR  P21FLAG  SC  TEAT  P21  WILL  COMPUTE 
NEW  BASE  STATE  VECTCRSo 


SEE  IF  ANY  GROUPS  RUNNING,. 


PN2  - GROUP  ACTIVE, 

+ 0 - GROUP  NOT  RUNNING* 

ABS  OF  PHASEp 

INDICATE  GROUP  DEMANDS  PRESENT- 
MUST  RETURN  TO  SWRETURNc 
PROCESS  ALL  RESTART  GROUPS,. 


NO,  CHECK  PHASE  ACTIVITY  FLAG 
PHASE  ACT  IV  E 
IS  MODE  -0 


NO 

YES 

SET  ALARM  TC  SHOW  PHASE  TABLE  FAILUREr 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L FRESH  START  AND  RESTART 


R0352 

R0353 

R0354 

0355 

0356 

0357 

03571 

03572 

0358 

0359 

0360 

0361 
0363 
03631 


CC  NOT  use  G0PR0G2  OR  ENEMA  WITHOUT  CONSULTING  POOH  PEOPLE 


REF 

REF 


REF 


17  LAST  218 
3 LAST  213 


I 


A737 

4355 

05i3055 

05.3056 

05.3057 

05.3060 

05.3061 

15.3062 

05.3063 
0 5,3‘'>6A 
05,3065 


OCTIOOOC  = 
0CT30nO0  = 

C7777  1 CCT7777  OCT 

32321  0 STIKSTRT  DEC 
77445  1 RflTESTRT  CEC 
03527  I RACTCACR  CACR 
21322  1 eOOLSTRT  OCT 
77001  0 770010CT  OCT 

CCC74  1 60CEC  DEC 
20100  1 PSFLGBTS  OCT 
C3434  1 MAXD8  OCTAL 


81  T13 
PR  1030 
7777 

0»  825268 
-218 
RESTARTS 
21322 
77001 
60 

20100 

03434 


0364 

0365 

0366 

0367 

0368 

0369 
03  70 

0371 

0372 

0373 


REF 

PFF 

REF 

REF 

REF 


LAST 

LAST 


168 


217 


05,3066  3 4747  1 

05  ,3067  0 0006  1 

05.3070  C2  01,6  1 

15.3071  0 0006  1 

05  ,3072  1 3100  1 

05.3073  C CCC6  1 

05.3074  CO  C15  0 

05.3075  6 3372  1 

C5,3076  C 0006  1 
05,3077  1 3101  0 


IGHTSET 


CAF 

EXTEND 

RANG 

EXTEND 

8ZF 

EXTEND 

READ 

AC 

EXTEND 

BZF 


B1  T5 

NAVKFYIN 

NONAVKEY 

MNKEYIN 

-ELR 

+ 2 


- 0374 


REF  16  LAST  217 


05,3100  0 0002  0 


NONAVKEY  TC 


0 


0375  REF 

0376  REF 
03762  REF 
03764  REF 


3 LAST  217 

1 

4 LAST  220 
2 LAST  219 


05.3101  C 3105  0 

05.3102  1 2472  0 

05.3103  C 3105  0 

05.3104  1 2477  0 


TC  STARTSUB 
TCF  DOFSTAPT 
TC  STARTSUB 
TCF  DOFSTRTl 


17:53  CeC«  19,1969 


LEMONAIO  104  PAGE  220 


USER ' S PAGF  NCo  8 E3  S3 


20  C/S  MAXIMUM  COMMANOFC  PATE 

ol4  DEG  SCALED  AT  4c 5 DEG 

5 DEG  ATTITUDE  DEADBAND,  SCALED  AT  45 
CHECK  FCR  MARK  REJECT  AND  ERROR  RESET 

NO  MARK  REJECT 

CHECK  IF  KEYS  2M  AND  5M  CN 
MAIN  DSKY  KEYCODEIBITS 


DO  FRESH  START  BUT  DON'T  TCUCH  ENGINF 


ASSEMBLE  ftFVlS!0^  131  OF  AGO  PPCCRAh'  LUMINARY  BY  NASA  202111  2-001 


GAP; 


L FRESH  START  AND  KFSTART 


P0377 


INITIALIZATION  COMMCN  TC  BOTH 


FRESH  START  AND  RESTART* 


0378 

0379 

0380 
A0381 
A0382 

0383 

038A 

0385 

0386 

0387 


REF  5 
REF  1 
REF  2 


REF  25 

REF  3 
REF  1 
REF  15 


LAST  15A 
LAST  99 

LAST  217 
LAST  109 
LAST  197 


E6il536 
05, 31C5 
J5  ,3106 


05  ,3107 

05.3110 

05.3111 

05.3112 

05.3113 


3 3362  0 
54  335  0 


2 9746  0 
C 0006  1 
02  033  0 
6 3376  0 
59  lie  0 


£BANK=  AOSC 

STARTSLB  CAF  LDNPHASl 

TS  DNTMGOTO 


CAF  BIT6 

extend 

RAND  CHAN33 

AO  RMODIMT 

TS  RACMCDES 


0380  REF 

0389  REF 

0390  REF 

0391  PEF 

0392  REF 

0393  REF 


2 

1 

1 


1 

1 


LAST  173 

LAST  162 


05,3114  3 9733  1 STARTSBl  CAF 


05.3115  59  026  1 TS 

05.3116  6 7751  Q AO 

05.3117  59  027  0 TS 

05,3X20  6 7752  G AD 

05,3121  54  030  0 TS 


POSMAX 

T1  PE3 

MINUS2 

TIME4 

NEGCNE 

TIMES 


0394  REF 

0395  REF 


2 LAST  219  05,3122  3 5015  0 

3 LAST  217  05.3123  59  003  0 


CAF  EBANK6 

TS  EBANK 


0396  REF  10 
03961  REF  2 

0397  REF  3 

03971  PEF  3 

03972  REF  1 

03973 

03974  REF  2 

0398  PEF  13 

0399  REF  1 
0900  REF  3 


LAST  220 
LAST  213 
LAST  221 
LAST  221 


LAST  219 
LAST  217 

LAST  131 


05  ,3129 

05.3125 

05.3126 

05.3127 

05. 3130 

05.3131 

05.3132 

05.3133 
05  ,3139 
05,3135 


4 4737  1 
7 1262  1 
55*262  1 
3 *733  1 
55'466  0 
0 0006  1 
03  013  0 
3 9755  1 
55'965  0 
55*972  0 


CS  BIT13 

MASK  RCSFLAGS 
TS  RCSFLAGS 
CAF  POSMAX 

TS  ■T6NEXT 
EXTEND 

WAND  CHAN13 

CAF  ZERO 

TS  NXT6ADR 

TS  NEXTP 


0901  REF 

0902  REF 

0903  REF 


1 

2 LAST  219 

3 LAST  221 


05,3136  9 9751  1 

05  ,3137  7 0111  1 

05,3190  59  111  1 


CS  ACeSOKAY 
MASK  DAPBOOLS 
TS  DAPBCPLS 


0904 

0905  REF  1 

0906  REF  2 LAST 


05,3141  0 0006  1 

05,3192  3 3360  1 

155  05,3193  52*269  1 


EXTEND 

DCA  IDLEADR 
OXCH  T5ADR 


09061  REF 

09062  REF 
04063 

040635  REF 


1 
1 

2 LAST  218 


05,3144  4 0107  0 

05.3195  7 9735  0 

05.3196  0 0006  1 

05  ,3197  1 3157  0 


CS  FLGWROn 
MASK  LR6YBIT 
EXTEND 

RZF  STARTSB2 


09069  REF  10  LAST 
09065  REF  2 LAST 
04066  REF  ? LAST 


156 

152 

221 


05.3150  29  C06  1 
E7,1679 

05.3151  11*679  I 


INCR  BBANK 
FBANK=  STILBADH 
CCS  STILBADH 


17:53  DEC..  19,1969  L EMONA  lOc  104  PAGE  221 


USER*S  PAGE  MOo  c g3  53 


SET  POINTER  SO  NEXT  20MS  OOWNRUPT  WILL 
CAUSE  THE  CURRENT  OC^^^LTST  TO  BE 
INTERRUPTED  AND  START  SENDING  FROM  THF 
BEGINNING  OF  THE  CURRENT  DOWNLIST^ 


CAUSE  OAPIDLEP  TO  CALL  l/ACCS 
ZERO  BIT  13 

DISABLE  TIME6  CLOCK*  JUST  IN  CASE  A T6 
RUPT  IS  ALREADY  IN  THE  PRIORITY  CHAIN, 
ENSURE  THAT  ITS  INPUTS  WILL  PENDER  IT 
INEFFECTUAL,. 


SET  T5RUPT  FOR  DAPIPLER  PRCGRAMc 

IF  R12  IS  PERMITTED,  ENSURE  THAT  NEXT 
RADAR  READS  ARF  NOT  USED 

R12  OFF 

SET  EBANK  TQ  7 

IF  STILBADH>0,NEXT  READ  WILL  BE  IGNORED 


gap:  assemble  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


L FRESH  START  AND  RESTART 

+ 2 

ST  ILBACh 


LAST  221 


0^068  REF 
0406?  REF 
040655  REF 


2 

3 

3 


LAST  152 
LAST  221 
LAST  222 


05,  3154 

15.3155 

05.3156 


11'675  0 
1 3157  0 
25'675  1 


CCS  STILBADV 
TCF  STARTSB2 
INCR  STILBADV 


0407  REF 

0408 

0409  REF 


1 

10  LAST  218 


05,  3157 

05.3160 

05.3161 


3 3371  1 
C 0006  1 
02  011  I 


STARTSB2  CAF 

EXTEND 

l^AND 


ocTsonoi 

DSALMCUT 


04092  REF 

04093  REF 

04094  REF 


1 

2 LAST  208 

3 LAST  222 


05.3162  4 4743  1 

05.3163  7 0077  0 

.15,3164  54  077  C 


CS  PEADPBIT 
MASK  FLAGWRC3 
TS  FLAGUR03 


0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 
A0422 
A0423 


REF  4 LAST  222 
REF  1 


REF  16  LAST  181 
REF  1 

REF  16  LAST  221 
REF  17  LAST  222 
REF  1 

REF  17  LAST  217 


15.3165  4 0077  0 

05.3166  7 4741  0 

05.3167  C 0006  1 

05.3170  1 3172  1 

05.3171  3 4742  1 

05  ,3172  6 3365  1 

05,3) 73  4 0000  0 

05.3174  7 Clio  0 

05.3175  54  110  0 

05.3176  3 3367  0 

05.31 77  0 0006  1 

05,3200  03  012  1 


CS  FLAGWRD3 

MASK  NR29FBIT 

EXTEND 

BZF  +2 

CAF  BITIO 

AD  0CT32001 

COM 

MASK  FADMOOES 

TS  PACMODES 

CAF  0CT27470 

EXTEND 

WAND  CHAN12^ 


04232  REF  2 

04234  REF  6 

04236  REF  7 


LAST  188  05 

LAST  218  05 

LAST  222  05 


,3201  4 4750  0 

,3202  7 0101  0 

,3203  54  101  0 


CS  NORRMBIT 
MASK  FLAGWR05 
TS  FLAGWRC5 


04237  REF 

0423  8 REF 
04239  REF 

0424  REF 

0425 

0426  REF 


1 

8 LAST  222 

9 LAST  222 

1 

3 LAST  221 


05.3204  4 4741  C 

05.3205  7 0101  0 

05,32C6  54  ICl  0 

05,3207  3 3370  0 

05 .3210  0 0006  1 

05.3211  C2  C13  0 


C.S  R77FL8IT 
MASK  FLAGWR05 
TS  FLAGWRC5 
CAF  OCT74160 
EXTEND 

WAND  CHAM  3 


042  7 

0428 

0429 


REF  14 
REF  4 


LAST  87 
LAST  222 


05.3212 

05.3213 

05.3214 


2 4740  0 
C 0006  1 
05  C13  0 


CAF  BIT12 
EXTEND 

WOR  CHAN13 


0430 

0431 

0432 


REF  26 


REF  5 


LAST  221 
LAST  210 


■)5,3215  3 4746  0 

05.3216  G 0006  1 

05.3217  02  014  1 


CAF  BIT6 
EXTEND 

WAND  CHAM  4 


0433  REF 


LAST  217  E3,1400 


EBANK=  LSTl 


17: 53  OECo  19,1969 


LEMONAID  104  PAGE  222 


USER ' S PAGE  NOo  lo  E7  S3 

SFT  STILBADH  TO  IGNORE  NEXT  READ 

IF  STILBADV  >0,NFXT  READ  F-ILL  BE  IGNORED 
SET  STILBADV  TO  IGNORE  NEXT  READ 

DURING  SOFTWARE  RESTART,  00  NOT  DISTURB 
ENGINE  ON,  OFF  AND  ISS  WAPNINGn 

CLFAR  REAORFLG  FOR  P29» 


CURING  SOFTWARE  P E STAR  T ,C  LF  AR  TURNON, 
REPOS  IT  ION, CDU  ZERO  AND  REMODE  BITS 
IN  PADMODES.SI NCE  TASKS  ASSCCIATEO 
WITH  THESE  BITS  HAVE  BEEN  KILLED 
ALSO  IF  R29  MAC  BEEN  RECUESTED, 
tN0R29FLG  = O CLFAR  BIT  10  RADMODES 
TO  MAKE  R2Q  FORGET  IT  HAD  STARTED 
DESIGNATING 

DURING  SOFTWARE  RESTART,  DO  NOT  DISTURB 
IMU  FLAGS*  (COURSE  ALIGN  FNABLE,  ZERO 
IMU  CDUS,  ENABLE  IMU  COUNTER)  AND  GIMBAL 
TRIM  DRIVES*  LEAVE  RR  LOCKON  ENABLE 
ALONE* 

ENABLE  R25o 


CLEAR  R77FLAG 


DURING  SOFTWARE  RESTART,  DO  NOT  0USTUR8 
TELEMETRY  FLAGS,  RESET  TRAP  FLAGS,  AND 
ENABLE  T6RUPT  FLAG* 

REENABLE  RUPTIO  (RLPT  QUICKLY 
RESUMES  EXCEPT  DUPING  P64) 


DURING  SOFTWARE  RESTART,  DC  NOT  DISTURB 
GYRO  ENABLE  FLAGe 


GAP : 

L 

0^3A 

0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

, 0448 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

045  8 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 


ASSE^6L6  REVISION  131  CF  AGC  PPCCRAP  LUMINAR' 


8Y  NASA  2021112-091 


17:53  DEC*  19,1069  LERCNAI0,104  PAGE  223 


FPESH  START  AND  RESTART 


USER'S  PAGE  NOo  17  E?  S3 


REF  1 
REF  4 


LAST  221 


05,3220 
35  ,3221 


3 5007  0 
54  003  0 


CAF  STARTEB 

TS  EBANK  SET  FOR  E 3 


REF  1 
REF  6 
REF  7 
PEF  8 
REF  9 
PEF  10 
REF  11 
REF  12 
REF  13 


LAST  222 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 


35. 3222 

75.3223 

05.3224 

05.3225 

05 .3226 

05.3227 

15.3230 

05.3231 

05.3232 


3 473^  0 
55'407  7 
55*  406  0 
55*405  C 
55*404  1 
55*4C3  0 
55*402  1 
55*401  I 
55'4CC  0 


CAF  NEGl/2 

TS  LSTl  +7 

TS  LSTl  +6 

TS  LSTl  +5 

TS  LSTl  +4 

TS  LSTl  +3 

TS  LSTl  +2 

TS  LSTl  +7 

TS  LSTl 


INIT lAL 


ZE  WAITL  1ST  DELTA-TS, 


REF  1 
REF  1 
PEF  2 
REF  3 
REF  4 
REF  5 
REF  6 
RFF  7 
PEF  8 
REF  9 
REF  2 
REF  10 
REF  11 
REF  12 
REF  13 
REF  14 
REF  15 
REF  16 
REF  17 
REF  18 


LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 


05.3233 

05.3234 

05. 3235 

05.3236 

05.3237 

05.3240 

05.3241 

05.3242 

15.3243 

05.3244 

05. 3245 

05.3246 

05.3247 
05,  3250 
05,3251 
05,  3252 

05.3253 

05.3254 
05,  3255 
05,3256 


4 5236  1 
55*410  1 
55*412  0 
55*414  0 
55*416  1 
55*420  1 
55*422  0 
55*424  0 
55*426  1 
55*  430  0 
4 5237  0 
55*411  0 
55*413  1 
55*415  1 
55*417  0 
55*421  0 
56*423  1 
55*425  1 
55*427  0 
55*431  1 


CS  ENDTASK 

TS  LST2 

TS  LST2  +2 

TS  LST2  +4 

TS  LST2  +6 

TS  LST2  *8D 

TS  LST2  +100 

TS  LST2  +120 

TS  LST2  +14D 

TS  LST2  +16C 

CS  ENDTASK  +1 

TS  LST2  +1 

TS  LST2  +3 

TS  . LST2  +5 

TS  LST2  +7 

TS  LST2  +9D 

TS  LST2  +11D 

TS  LST2  +13C 

TS  LST2  +150 

TS  LST2  +17D 


REF  14 
REF  1 
REF  2 
REF  3 
REF  4 
REF  5 
REF  6 
REF  7 
REF  8 


LAST  221 

LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 
LAST  223 


05,3257 

05.3260 

05.3261 

05. 3262 

05.3263 

05.3264 

05.3265 
05  ,3266 
05,3267 


4 4755  C 
54  167  0 
54  203  1 
54  217  1 
54  233  1 
£4  247  1 
£4  263  1 
54  277  1 
54  313  1 


CS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 


ZERT 

PRIORITY 
PRIORITY  +120 
PRIORITY  +24D 
PRIORITY  +36D 
PRIORITY  +48D 
PRIORITY  +60D 
PRIORITY  +72D 
PRIORITY  +840 


MAKE  ALL  EXECUTIVE  REGISTER 
AVAILABLE* 


SETS 


REF  10  LAST  213 
REF  1 


05.3270  55*310  0 

05.3271  54  067  1 


TS  DSRUPTSts 

TS  NEWJOB 


SHOWS  NO  ACTIVE  JOBS, 


REF 

REF 


1 

1 


REF  1 


05.3272  3 3364  0 

05.3273  54  400  1 

05.3274  6 3366  1 


CAF  VACIAOPC  MAKF  ALL  VAC  AREAS  AVAILABLE* 

TS  VACIUSE 

AD  LTHVACA 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202 

L FRESH  START  AND  RESTART 


0479  REF 

0480  REF 

0481  REF 

0482  REF 

0483  REF 

0484  REF 

0485  REF 


LAST  223 
LAST  224 
LAST  224 


05. 3275  54  454  0 

05.3276  6 3366  1 

05.3277  54  530  0 

05  ,3300  6 3366  1 

05,33C1  54  6C4  1 

05.3302  6 3366  1 

05.3303  54  660  0 


TS 

AD 

TS 

AO 

TS 

AD 

TS 


0486 

0487 

0489 

0490 

0491 

0492 

0493 


REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 


215 

219 

222 

224 

218 

224 


a5,33C4 

05.3305 

05.3306 
C5,*3307 
05  ,3310 
05,3311 


3 4363  0 
54  154  0 

4 4740  1 
£0  154  I 
55*022  1 
1C  154  C 


05,3312  1 3305  0 


0494  REF  1 

0495  REF  2 

0496  REF  3 

0497  REF  1 

0498  REF  1 

0499  REF  7 

0500  REF  I 

0501  REF  1 

0502  REF  1 

0503  REF  1 

0504  REF  1 

0505  REF  1 

0506  REF  1 

0507  REF  1 

0508  REF  1 

0509  REF  1 

0510  REF  1 

0511  REF  2 

0512  REF  1 

0513  REF  1 

0514  REF  2 

0515  REF  1 

0516  REF  1 

0517  REF  1 

0518  REF  5 


LAST  224 
LAST  224 

LAST 


LAST  210 

LAST  106 

LAST  162 


05.3313 

05. 3314 

05.3315 

05.3316 

05.3317 
05  ,3320 
C5, 3321 
05,3322 
05  ,3323 

05.3324 

05.3325 

05.3326 

05. 3327 
05  ,3330 

05.3331 

05.3332 
05  ,3333 

05.3334 

05.3335 

05.3336 

05.3337 

05.3340 

05.3341 

05.3342 

05.3343 


55*323  0 
55*324  1 
55*325  0 
55*073  0 
54  045  1 
54  775  0 
55»C4]  1 
55*012  1 
55*014  1. 
55*011  1 
55*017  1 
55*  020  0 
55*000  1 
55*001  0 
55*042  1 
55*307  0 
55*043  0 
55'3C1  0 
55*302  0 
55*303  1 
55*304  0 
55*311  1 
54  100  I 
3 4760  I 
55*015  0 


159 


TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

CAF 

TS 


0519 

0520 

0521 

0522 

0523 

0524 


REF  7 LAST  211 
REF  1 

REF  27  LAST  222 
REF  17  LAST  215 
REF  2 last  215 
REF  18  LAST  224 


05.3344  4 4753  0 

05.3345  55*077  1 

05.3346  3 4746  0 

05.3347  7 1300  1 

15.3350  6 5026  0 

05.3351  55'3CC  I 


CS 

TS 

CAF 

MASK 

AD 

TS 


REF 


05,3352  3 3363 


CAF 


0525 


.112-091 

17:53  OECo  19,1969  LFMONAIO  104  PAGE  224 

USER'S  PAGE  N0«  1 2 63  S3 


VAC2USe 

LTHVACA 

VAC3USE 

LTHVACA 

VAC^USE 

LTHVACA 

VAC5USE 

TEN 

MPAC 

BIT)2 

MPAC 

OSPTAB 

MPAC 

DSPOFF 

Rl,R2,R3»e 

DELAYLOC 
DELAYLCC  +1 
DELAYLOC  +2 
RlSAVe 

INLINK 

OSPCNT 

CACRSTCR 

PEORET 

CLPASS 

OSPLCCK 

MONSAVE 

MONSAVFl 

VEPBREG 

NOUNREG 

DSPLIST 

MARKSTAT 

KILL  MONITOP 

EXTV8ACT 

I MUCADR 
OPTCAOP 
RACCACR 
ATTCADR 

LGYRO 

MAKE  EXTENDED  VERBS  AVAILABLE 

FLAGWRC4 

NOUTCON 

NOUT 

KILL  INTERFACE  DISPLAYS 

ONE 

SAMPLIM 

BIT6 

IM0DES33 

IM33INIT 

I MCDES33 

LEAVE  BIT  6 UNCHANGED 

NO  PIP  OR  TM  FAILSo8IT6=0  IN  THIS  WORD® 

LESCHK 

SELF  CHECK  GO-TC  REGISTER. 

GAP:  ASSEf'BLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  RY  NASA  2021112-091 


L FRESH  START  AND  RESTART 


0526  REF 


LAST  108  05,3353  55'3fcl 


TS  SELFRET 


0527  REF  1 

0528  REF  2 LAST  160 


05,335A  A A360  1 
05,3355  5A  776  0 


CS  VOl 

TS  OSPCOUNT 


0529  REF 

0530  REF 

0531  REF 
0531  REF 


17  LAST  22C 
6 LAST  221 
1 
1 


05.3356  C 0002  0 
E6  ,1536 

05.3357  0202A  0 
05,3360  3A066  0 


I CLEADR 


TC  0 

E0ANK=  AOSO 
2CADR  DAPIDLER 


0532 

0533 
053A 

0535 

0536 

0537 


REF  1 
REF  1 

REF  2 LAST  223 


05.3361 

05. 3362 

35 .3363 

05.3364 

05. 3365 
05  ,3366 


C0435  0 IFAILINF  CCT 
C3522  1 LDNPHASl  GENADP 
03363  1 LESCHK  GENADR 
C0400  0 VACIACRC  ADPES 
32001  1 OCT32O01  OCT 
00054  0 LTHVACA  DEC 


435 

DNPHASEl 

SELFCHK 

VACIUSE 

32001 

44 


0538 

0539 

0540 

0541  REF  1 

0542  REF  1 


05,3367  27470 

05,3370  74160 

05  ,3371  30001 

5007 
4756 


1 0CT27470 

0 OCT74160 

0 0CT3O0ni 
STARTEB 
NUMGRPS 


OCT  27470 
OCT  74160 
OCT  30001 
EQUALS  ESANKS 
EQUALS  FIVE 


0543 

0544 

0545 

0546  REF 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 


LAST  183 


05.3372 

05.3373 
05  ,3374 

5026 
05,3375 
05  ,3376 
35,3377 
05,3400 
05,34C1 
05,  34C2 
05  ,3403 

05.3404 

05.3405 
05  ,3406 


77755  0 
37411  1 
37000  0 

00450  0 
00102  1 
COCOO  1 
00000  1 
COOOO  1 
02000  0 
00000  1 
00000  1 
OOOOO  1 
00100  0 


-ELR  OCT 

IM30INIF  OCT 
IM30INIR  OCT 
IR33INIT  = 
9,6,4  OCT 

RMOCINIT  OCT 
S^^INIT  OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 


-22 

37411 

37000 

PRIC16 

450 

00102 

0 

0 

0 

02000 

0 

0 

0 

00100 


0557 

0558 

0559 

0560 


05,3407  COOOO  1 

05.3410  OOOOO  1 

05.3411  COOOO  1 

05.3412  40000  0 


OCT 

OCT 

OCT 

OCT 
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USER  'S  PAGE  NOe  13  E3  S3 


( 

' 


-ERROR  LIGHT  RESET  KEY  COPEc 

INHIBITS  IMU  FAIL  FOR  5 SEC  AND  PIP  ISSW 

NO  PIP  OR  TM  FAIL  SIGNALSo 


eiT  11  = N0R29FLG 


EIT  15 


LRBY  PASS< 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L FRESH  START  AND  RESTART 

P0561  PROGRAM  NAME  GOTOPCOH  ASSEMBLY  SUNCANCE 

R0562  LCG  SECTION  FRESH  START  AND  RESTART 

R0563  FUNCTIONAL  OESCRIPTICN 

R056A  FLASH  V 37  ON  CSKY  ?MM  CHANGE  REQUEST  " 

R0565  INPUT/OLTPLT  INFORMATION 

R0566  Ao  CALLING  SEQUENCE  TC  GCTCPCCH 

R0567  Be  ERASAELE  I M T I AL 1 Z AT  ICN  NONE 

R0568  Ce  OUTPUT  FLASH  V 37  CN  OSKY 


R0569  Ce  DEBRIS  L 


R0570  PROGRAM  ANALYSIS 


R0571 

R0572 

R0573 

0574 

0575 

0576 


REF 


Ao  SUBROUTINES  CALLED  PRICOSPRi  LINUS 
Bo  NORMAL  EXIT  TCF  ENOOFJOB 

Co  alarm  and  abcrt  exits  none 

6001 

2 LAST  40  6000 

60Q] 


0LCCK  03 
SETLOC  FFTAG5 
BANK 


0577 

0578 

0579 

0580 
0561 


REF 

REF 

REF 


LAST 


19A 


REF  2 LAST  216 


6001  3 4764  0 

6002  5A  CCl  1 

6003  A 0000  0 

6004  52  760  1 


COUNT#  Tt/POO 
GOTOPOOH  CAF  OCT33 

TS  L 

COM 

OXCH  -PHASE4 


0582  REF  3 LAST  215 

0583  REF  1 

0584 

0585 


6')C5  C A635  0 

6006  10024  0 

6007  00024  1 0CT24 

6010  00031  0 0CT31 


TC  POSTJUMP 

CAOR  GOPOOFIX 

MM  20 

MM  25 


05  66 

0587  REF 
0538 


20f2004 
3A, 2000 
34,202^ 


DANK  20 
SETLOC  VERBS? 
SANK 


0509  REF 

0590  REF 

0591  REF 


1 

2 

I 


LAST  210  04,2024 

14,2025 


COUNT* 

0 55X6  C GOPOOFIX  TC 
00311  1 ADRES 


t$/pno 

DOWNFLAG 
xnVI NFLG 


0592  REF 

0593  REF 


3 LAST  226 
1 


04,2026  0 5516  0 

J4,2027  0031A  1 


TC  DOWNFLAG 

ADRES  ULLAGFLG 
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USER  'S  PAGE  NCo 


£3  S3 


Ae?3SP0T  FOR  GOPOOFIX 


VERB  37  AND  POO  IN  BANK  i 
ALLOW  X-AXIS  nVEPR  IDE 


INSURE  THAT  ULLAGE  IS  OFF 


gap:  ASSEMBLe  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021’12-091 


17:53  CeCr,  1Q|1969  LEMONAIOolOA  PAGE  227 


L FRESH  START  AND  RESTART 


USER  'S  PAGE  NCe  15  E3  S3 


05935  REF  1 

0594  REF  1 

0595  REF  8 

0596  REF  1 

0597 

0598 

0599 


LAST  210 


04,2030  0 5476  1 

')4,2031  3 2037  1 

04.2032  0 4616  1 

04. 2033  2C477  1 

04.2034  1 2031  0 

04.2035  1 2031  0 

04.2036  1 2031  0 


TC  CLEARMRK  *2  RELEASE  “ARK  DISPLAY  SYSTEM, 

CAF  V37N99 

TC  BANKCALL 

CADR  GCFLASH 

TCF  -3 

TCF  -4 

TCF  -5 


0600 


04,2037  11343  0 V37N99  VN  3799 


gap:  assemble  REVISION  121  OF  AGC  PPCGRAP  LUMINARV  BY  NASA  2021112-091 

L FRESH  START  ANC  RESTART 
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USER’S  PAGE  NCc  16  E3  S3 


P0601 

R0602 

R0603 

R0604 
RU606 
R0608 
80609 
R0610 
R0611 
R0612 
R0613 
R061A 
R0615 
R0616 
R0617 
R0618 
R0619 
R0620 
R0621 
R0623 
R0625 
R0626 
K0627 
R0629 
R0631 
R0633 
R063^ 
R0635 
R0636 
R 0637 
R0638 
R0639 
R06^l 
R06A3 


PROGRAM  NAME 


LCG  SECTION 


FRESH  START  AND  RESTART 


FLNCTICNAL  DESCRIPTICN 


CHECK  IF  NEW  PROGRAM  ALLOWEOo  IF  EIT  1 OF  FLAGWP 02 ( NODCFL AG J IS  SET,  AM  ALARM  1520  IS  CALLEOo 

CHECK  FOR  VALIDITY  CF  PROGRAM  SELECTEOo  IF  AN  INVALID  PROGRAM  IS  SELECTED,  THE  OPERATOR  ERROR  LIGHT  IS 

SET  AND  CURRENT  ACTIVITY,  IF  ANY,  CONTINUES® 

SERVICER.  IS  TERMINATED  IF  IT  HAS  BEEN  RUNNING® 

INSTALL  IS  EXECUTED  TC  AVOID  INTERRUPTING  INTEGRATION® 

THE  ENGINE  IS  TURNED  OFF  AND  THE  CAP  IS  INITIALIZED  FCR  COAST® 

TRACK  ANC  UPDATE  FLAGS  ARE  SET  TO  ZERO® 

DISPLAY  SYSTEM  IS  RELEASED® 

THE  FOLLOWING  ARE  PERFCRMEO  FOR  EACH  OF  THE  THREE  CASES® 

A®  PRCGRAM  SELECTED  IS  POO® 

1®  RENDEZVOUS  AND  P25  FLAGS  ARE  RES£T®(KILL  P20  AND  P25) 

2®  STATINTI  IS  SCHEDULED  BY  SETTING  RESTART  GRCLP  2® 

3®  MAJCR  MODE  00  IS  STORED  IN  THE  MODE  REG  I STER IMODR EG ) ® 

A®  SUPER8ANK  3 IS  SELECTED® 

5®  NOOOFLAG  IS  RESET® 

6*  ALL  RESTART  GROUPS  EXCEPT  GROUP  2 ARE  CLEARED®  CONTROL  ISTRANSFERRED  TO  RESTART  PROGRAM  (G0PR0G2) 
WHICH  CAUSES  ALL  CURRENT  ACTIVITY  TO  BE  OISCCNTINUEC  AND  A 9 MINUTE  INTEGRATION  CYCLE  TO  BE 
IN  IT  lATECt 

Ro  PROGRAM  SELECTED  IS  P20  OR  P25, 

1®  IF  THE  CURRENT  MAJOR  MODE  IS  THE  SAME  AS  THE  SELECTED  NEWPROGRAM,  THE  PROGRAM  IS  RE- INIT lAL IZED 
VIA  V37XEQ,  ALL  RESTART  GROUPS,  EXCEPT  GROUP  A ARE  CLEARED® 

2®  IF  THE  CURRENT  MAJCR  MCOE  IS  NCT  EQUAL  TO  THE  NEW  REOUFST,  A CHECK  IS  MADE  TO  SEE  IF  THE  REQUEST- 
ED MAJOR  MODE  HAS  BEEN  RUNNING  IN  THE  BACKGROUND, 

AND  IF  IT  HAS,  NC  NEW  PROGRAM  IS  SCHEDULED,  THE  EXISTING 
P20  OP  P25  IS  RESTARTED  TO  CONTINUE,  AND  ITS  M M IS  SET® 

3®  CONTROL  IS  TRANSFERRED  TO  GOPROG2o 
C®  PROGRAM  SELECTED  IS  NEITHER  P00,P20,  NOP  P25 

i®  V37XEQ  IS  SCHEDULED  (AS  A JOB»  BY  SETTING  RESTART  GROUP  A 

2®  ALL  CURRENT  ACTIVITY  EXCEPT  RENDEZVOUS  AND  TRACKING  IS  DISCONTINUED  BY  CLFARING  ALL  RESTART 

GROUPS®  IF  THE  RENDEZVOUS  OR  THE  P25  FLAG  IS  ON,  GROUP  2 IS  NOT  CLEARED,  ALLOWING  THESE  PROGRAMS 
TO  CONTINUE® 


R06AA 

R06A5 

R06A6 

R06A7 

R06A8 


INPUT/CLTPLT  INFORMATION 
A®  CALLING  SEQUENCE 


CONTRCL  IS  DIRECTED  TC  V37  8Y  THE  VERBFAN  ROUTINE® 

VERBFAN  GOES  TO  C ( VER ET A B+C ( V ER BR EG > ) o VERB  37  = MMCHANG® 
MMCHANG  EXECUTES  A TC  POSTJUMP,  CAOR  V37® 


ERAS  ABLE  1 MT  I AL  1 ZAT  ICN 


R0650 

K0651 


OUTPUT 


GAP: 

L 

R0652 

K0653 

R065A 

R0656 

R0657 

R0658 

R0659 

R0661 

R0662 

R0663 

066A 

0665 

0666 

0667 

0666 

0669 

0670 

0671 

0672 

0673 

0674 

0675 

0676 

0677 

0678 

0679 

0680 

06  81 

0682 

0683 

0684 

0685 

0686 

0687 

0688 

0689 

0690 


ASSfcMDLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
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FRESH  START  AND  RESTART 

MAJOR  MOCE  CHANGE 


USER’S  PAGE  NCo 


DEBRIS 

MMNUMBER,  MPAC 
GOLOC,  GOLGC  +l 


1 , MNcex, 

GOLOC  +2, 


BASETEMP  +C(MINOEXI,  FLA6WRD0,  FLAGWROl,  FLAGWR02,  HODREG,  GOLOC  -1, 
BASETEMP,  -PHASe2,  PHASE2  , -PHASE4 


PRCGPAM  ANALYS IS 


SLBROLTINES  CALLED 

ALARM,  RELOSPr  PINBRNCH,  INTSTALL,  ENGIN0F2,  ALLCCAST,  V37KLEAN,  G0PR0G2 , FALTON,  FINOVAC,  SUPERSW, 
CSPVM 


REF 

REF 

REF 


NORMAL  EXIT  TC  EN0CFJC6 

ALARMS  1520  (MAJCR  MODE  CHANGE  NOT  PERMITTED) 

V37 


4 LAST  220 
2 LAST  213 


C4,2040 
OA, 20A1 
04,2042 


Sii  774  I 
3 4355  C 
54  366  0 


CAF 

TS 


MMNUMBEP 

PRIC30 

RESTREG 


REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 


218 
224 
21  9 


C4,2043 
04,20A4 
•04,2045 
2A, 20Ae 


3 1277  1 
7 4746  1 
10  OOO  0 
1 2C65  1 


MASK 

CCS 

TCF 


IS  IMU  BEINB  INIT  lAL IZED 


REF 

REF 

REF 

REF 

REF 


REF  3 
REF  1 
REF  44 


LAST  229 


8 LAST  224 


LAST  229 


04,2047 

04.2050 

04. 2051 

04.2052 

04.2053 


4 0774  1 
6 2403  1 
C 0006  1 
1 2376  0 
6 4753  1 


04.2054  0 0006  1 

04.2055  1 2375  0 


LAST  229 
LAST  219 


04.2056 

04.2057 

04.2060 

04.2061 

04.2062 

04.2063 

04.2064 


3 0774  0 
0 0006  1 
1 2107  1 

4 0076  I 
7 4753  0 
1C  CQC  0 
1 2072  1 


CS-  MMNUMBER 

AD  0EC70 

EXTEND 

BZF  SETUP70 

AO  ONE 

EXTEND 

BZF  SETUP71 

CA  MMNUMBFR 

EXTEND 

BZF  ISSERVCN 

CS  FLAGWR02 

MASK  N0006IT 

CCS 
TCF 


04.2065  0 5567  0 

04.2066  01520  I 

04.2067 


CANTRCC  TC 
OCT 


CHECK  TAe 

ALARM 

1520 


0 4457  0 V37BAD 


I S P70  REQUESTED? 

YES 

IS  P71  REQUESTED? 

YES 

IS  NEW  REQUEST  PDC 

YES,  CHECK  SERVICER  STATUS 

NO,  IS  NODO  V37  flag  SFT 

NO 

RELEASES  DISPLAY  FROM  ASTRONAUT 


LAST  226 


CAOR 

ChECKTAB  CA 


INDEX  FOR  MM  TABLES® 


GAP  : 

L 

0691 

0692 

0693 

069^^ 

0695 

0696 

0697 

069fl 

0699 

0700 

0701 

0702 

0703 

C70^ 

0705 

0706 

0707 

0708 

071T 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 

0728 

0729 

0730 

0731 

0732 
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FRESH  START  AND  RESTART 


USER'S  PAGE  Nn«  18  E3  S3 


REF  26  LAST 
PEF  29  LAST 
REF  I 
REF  1 

REF  4 LAST 
REF  45  LAST 
REF  30  LAST 
REF  1 
REF  1 


224  34,2073  54  155  1 

230  C4,2074  50  155  0 

04.2075  2 2437  0 

34.2076  7 6077  0 

04.2077  4 0000  0 

229  34,2100  6 0774  C 

229  04,2101  10  000  0 

230  04,2102  10  155  1 

04.2103  1 2073  0 

04.2104  1 2326  0 


TS 

NOX 

CA 

MASK 

CCM 

AD 

CCS 

CCS 

TC  F 

TCF 


MPAC  +1 
MPAC  +1 
PREMMl 
I.  0W7 


MPAC  +l 
A6A I NMM 
V37N0N0 


OBTAIN  WHICH  MM  THIS  IS  FOR 


IF  6R,  SEE  IF  ANYMORE  IN  I 1ST 
YES,  GET  NEXT  ONE 
LAST  TIME  OR  PASSED  MM 


REF  31  LAST  230 
REF  I 


04.2105  3 0155  0 

34.2106  54  773  0 


CA  MPAC  +1 

TS  MINDEX 


SAVE  INDEX  FOR  LATER 


LAST 


LAST 


188 

230 


04,2107  4 C103  1 

04.2110  7 4746  1 

04.2111  1C  000  0 

04.2112  1 2132  1 


I SSERVCN 


CS 

MASK 

CCS 

TCF 


FLAGWRC7 
V37FLBI T 
A 

CANV37 


V37  FLAG  SET  - UFo  IS  SERVICER  GOING 

NO 


REF 

REF 


4 LAST  226 
1 


04.2113  0 5516  0 

04.2114  00163  0 


TC  nOWNFLAG  YES, TURN  OFF  THE  AVERAGE  FLAG  AND 

AORES  AVEGFLAG  WAIT  FOR  SERVICER  TP  RETURN  TO  V37RET 


PEF 


04,2115  1 5155 


TCF  FNOOFJGB 


REF  9 last  219 
REF  2 LAST  187 
REF  47  LAST  230 

PEF  1 

REF  10  LAST  230 
REF  1 

REF  46  LAST  230 
REF  1 

REF  15  LAST  220 
REF  I 
REF  1 


C4  ,2116  4 0074 

04,2117  7 4745 

04.2120  10  000 

04.2121  1 2123 

04.2122  1 2130 

04.2123  4 0074 

04.2124  7 4743 

04.2125  10  000 

04.2126  3 2372 

04.2127  6 4747 

04.2130  6 2373 

04.2131  0 5357 


0 V37RET  CS 

1 MASK 

0 CCS 

1 TCF 

0 TCF 

0 CS 

1 MASK 

0 CCS 

0 2oOSPT  CA 

1 2oliSPT  AO 

1 2o7SPT  AD 

0 - TC 


FLAGWRDO 
RNOVZBIT 
A 
+ 2 

2»  7SPT 
FLAGWROn 
P25FLBIT 
A 

0CT37667 

BITS 

OCT40072 

PHSCHNGA 


IS  P20  OR  P?2  RUNN  ING? 


N0«  CHECK  FOR  P25c 
YESo  OC  2^7SPCT 
IS  P25  RUNNING? 


REF  15  LAST  223 
REF  2 LAST  217 


Q4,2132  2 4755  I 

04.2133  0 0006  1 

04.2134  Cl  007  1 


CANV37 


CAF  ZERO 
EXTEND 

WRITE  SUFERBNK 


REF  1 
REF  1 


04.2135  3 2371  0 

04 .2136  54  374  0 


CAF  ROOAD 

TS  TEMPFLSH 


REF 


TC  PHASCHNG 

OCT  14 


REF 


LAST  209  04,2141  0 6042 


RCC 


TC  INTPRET 


04,2142  77624 


CALL 


WAIT  FOR  INTEGRATION  TO  FINISH 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211  12-091 


L FRESH  START  AND  RESTART 


0733  REF 
073A 


0A,21A3  27410  1 

04,2144  77776  1 DUMMYAC  EXIT 


1 NTSTALL 


0733  REF 
0736  REF 


5 LAST  230  34,2145  0 5516  0 

1 04,2146  CC124  0 


TC  DOWNFLAG 

ADRES  3AXISFLG 


07362  REF 
07364  REF 


6 LAST  231  04,2147  0 5516  0 

1 04,2150  00055  1 


TC  DOWNFLAG 

ACRES  POCHFLAG 


0737  REF  2 LAST  221 

0738  REF  2 LAST  221 


04. 2151  3 4735  1 

34.2152  54  107  0 


CAF  LPBYBIT 

TS  FLGWRDll 


07382  REF 
' 07384  REF 


7 LAST  231 
2 LAST  71 


04.2153  0 5516  C 

04.2154  00063  1 


TC  DOWNFLAG 
ACRES  R04FLAG 


073845  REF 
07385  REF 


8 LAST  231  04,2155  C 5516  C 

1 04,2156  00056  1 


TC  COWNFLAC- 

AORES  GLOKFAIL 


07386  REF  9 LAST  231 

07388  REF  1 


04,2157  0 5516  0 

04,2160  00141  0 


TC  DOWNFLAG 

ADRES  MUNFLAG 


073881  REF  10  LAST  231 
073682  REF  1 


')4,2161  0 5516  0 

14,2162  00217  0 


TC  DOWNFLAG 

ACRES  ABTTGFLG 


0739  REF  11  LAST 

0740  REF  2 LAST 

0741  REF  5 LAST 

0742  REF  1 


231 

226 

230 


04.2163  0 5516  C 

04.2164  00311  1 

04.2165  10  774  1 

04.2166  1 2314  I 


TC  DOWNFLAG 
ADRES  XOVINFLG 
CCS  MMNUMBER 
TCF  NOLVEAL 


0743  REF 


LAST  229 


04,2167 


0 4457  0 POOH 


TC 


RELOSP 


0744  REF  1 
07^5  REF  1 


04,  2170  3 5017  1 

04,2171  55*055  1 


CAF  PPIC5 

TS  PHSPRDT2 


0746  REF 


04,2172  0 6011 


TC  CLRACMCC 


0747 

0748 

0749 


REF 

REF 

REF 


2 LAST  229 

4 LAST  229 

5 LAST  231 


04.2173 

04.2174 

04.2175 


54  076 


0 

1 

1 


CS  NODOBIT 

MASK  FLAGWRD2 
TS  FLAGWRC2 


0750 

0751 

0752 

0753 


REF  2 LAST  225 
REF  14  LAST  226 

REF  2 LAST  215 


04. 2176  3 4756  1 

04.2177  54  001  1 

04.2200  4 CCOO  0 

04.2201  52  754  0 


CA  F I VE 

TS  L 

COM 

OXCH  -PHASE2 


0754 

0755 

0756 


REF  1 

REF  11  LAST  230 
REF  12  LAST  231 


04.2202  < 2374  1 

04.2203  7 0C74  0 

04.2204  54  074  0 


CS  0CT700 

MASK  FLAGWRUC 
TS  FLAGWRDC 


0757  REF 


04,2205  3 4755 


CAF  ONLAOPOO 
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C 

USER'S  PAGE  NOb  19  E3  S3 

I' 

O 

RESFT  3-AXIS  FLAG  f 

CLEAN  UP  THE  P12  FLAGWORC,-  ••£ 

INSURE  THAT  THE  R04FLAG  IS  CLEARo 

FLAGWnRC  3 BIT  14  f 

INSURE  MUNFLAG  IS  CLEARo 

PFSFT  ABORT  TARGETING  FLAG  (USE 

PARAMETERS  J1  AND  KU)  # 

ALLCW  X-AXIS  OVERP  IDE, 

IS  THIS  A POOH  REQUEST 
NO,  PICK  UP  NEW  PFCGRAM 

RELEASE  DISPLAY  SYSTEM 

SET  VARIABLE  RESTART  PRIORITY  FPR  f 

POO  INTEGRATlONc 

CLRADMOO  DUES  AN  INHINTo  # 

TURN  OFF  NOOOFLAGo 

SET  RESTART  FOR  STATEINTl  f 

11 

TURN  OFF  P20,P25,IMU  IN’  USE  FLAG 


PENDFLG 


GAP 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202in2-''91 


L FRESH  START  AND  RESTART 


0758  REF 

0759  REF 
A0760 

0761  REF 

0762  REF 


6 LAST  218 
i LAST  218 


CA»2206  5<.  333  O SEUDOFOC  TS 

C4,22C7  55*321  1 TS 


DNLSTCOD 

AGSWORO 


LAST  178 


0A,2210  0 A674  0 

nu,221l  75561  1 


TC  IBNKCALL 

CADR  ENGINOFl 


0763  REF  7 LAST  232 

076A  REF  1 


0t,2212  0 ^674  0 

04,2213  ^C2C5  1 


TC  IBNKCALL 

CACR  ALLCCAST 


0765  REF 

0766  REF 

0767  REF 

0768  REF 


1 

2 LAST  213 

5 LAST  219 

6 LAST  232 


04.2214  4 4775  1 

04.2215  55*071  1 

04.2216  7 CC75  1 

14.2217  54  075  1 


CS  0CT120 

TS  EBANKTEM 

MASK  FLAGWRDl 

TS  FLAGWRDl 


0769  REF 

0770  REF 


LAST  232  04,2220  0 4674  0 

'14,2221  12650  1 


TC  IBNKCALL 

CACR  V37KLEAN 


0771  REF 

0772  REF 

0773  REF 

0774  REF 


6 LAST  231 
1 

9 LAST  232 
1 


04.2222  10  774  I 

04.2223  1 2232  1 

04.2224  0 4674  0 GOMOO 

04.2225  12645  0 


CCS  MMNUMBER 

TCF  RENOVOC 

TC  IBNKCALL 

CAOR  POCKLEAN 


0775  REF  7 LAST  232 

0776  REF  3 LAST  219 


04.2226  2 0774  0 

14.2227  55*010  0 


CA  MMNUMBER 

TS  MOOPEG 


0777  REF 

0778  REF 


5 LAST  229 
1 


04.2230  0 4635  0 GCGCPRCG  TC 

04.2231  12766  0 CAOR 


POST  JUMP 
G0PR0G2 


0779  REF 

0780  REF 

0781 

0782  REF 


4 LAST  232 
1 

1 


04.2232  4 1010  0 

04.2233  6 2332  1 

04.2234  0 0006  1 

04.2235  1 2254  1 


RENCVOC 


CS  MOCREG 

AD  nCT26 

EXTEND 

6ZF  RESET22 


0783  REF 

0784  REF 

0785 

0786  REF 


8 LAST  232 
2 LAST  232 

2 LAST  232 


04.2236  4 0774  I 

04.2237  6 2332  1 

04. 2240  C 0C06  1 

04.2241  1 2254  I 


CS  MMNUMBER 

AD  OrT26 

EXTEND 

BZF  RESET22 


0767  REF 
0788 

078Q  REF 

0790  REF 

0791 

0792  KEF 


1 
1 

3 LAST  231 

2 LAST  232 


04.2242  6 7751  0 

04.2243  C 0006  I 

04.2244  1 2266  0 

04.2245  6 4756  1 

04.2246  0 0006  1 

04.2247  1 2266  0 


AD  NEG2 

E XTEND 

BZF  RENONOO 

AD  FIVE 

EXTEND 

BZF  RENDNOO 


0793 

0794 

0795 


REF  1 
REF  13 
REF  49 


LAST  231 
LAST  230 


•14,  2250 

04.225 1 

04.2252 


3 2330  0 
7 0074  0 
10  OOO  0 


CA  nCTSOO 

MASK  FLAGWROO 
CCS  A 
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USER'S  PAGE  NCo  2C  63  S3 

SET  UP  APPROPRIATE  DOWNLIST  CODE 
(CURRENT  LIST  WILL  BE  COMPLETED  BEFORE 
NEW  ONE  I S STARTED! 


INSURE  ALLCCAST« 

DOBS  A RESTOPDBo 

TURN  OFF  TRACK,  UPCATE  FLAGS 


KILL  GROUPS  1,3, 5, 6 


IS  IT  POOH 
NO 

REDUNDANT  EXCEPT  FCF  GROUP  ^ 


IS  CURRENT  PROGRAM  2? 

YES  - CLEAR  RENDEZVOUS  FLAG 

IS  NEW  PROGRAM  P22 

IS  NEW  PROGRAM  = P 20  OR  P2? 

YES 

25 

YES 


NO,  IS  EITHER  P20  OR  P25  RUNNING 


gap:  assemble  REVISION  131  CF  AGC  PPCGPAP  LUMINARY  BY  NASA  2021112-001 


L FRESH  START  AND  RESTART 


0796  REF 


04,2253  1 2263  0 


TCF  POOFIZZ 


0797 

0798 

0799 
U800 


REF  2 
REF  14 
REF  15 
REF  2 


LAST  231 
LAST  232 
LAST  233 
LAST  231 


0A,2'254 

T4,2255 

04,2256 

0A,2257 


A 2374  1 
7 0C74  0 
5A  074  0 
C 6CH  1 


RBSET22 


CS 

MASK 

TS 

TC 


0CT700 
FLAGWROO 
FL  AGWROO 
CLRAOMCD 


0801 

0802 

0803 


04,2260 

REF  0 LAST  216  04,2261 
REF  3 LAST  231  04,2262 


0 0006  I 
3 4755  1 
52  754  0 


K ILL2 


EXTEND 

OCA  NEGO 

OXCH  -PHASE2 


1 

? LAST  230 


04.2263  3 2370  1 POCFTZZ  CAF 

04.2264  54  374  0 TS 


V370CAD 

TERPFLSH 


0006  REF 


J4,2265  1 2230  0 


TCF  GOGOPROG 


0807  REF 

0808  REF 

0809 

0810  REF 


5 LAST  232 
I 

1 


04,2266 
04,  2267 

04.2270 

04.2271 


4 ICIO  0 
6 6C07  0 
0 0006  1 
1 2260  0 


RENCNCC 


CS  MDCPEG 

AD  nCT24 

EXTEND 

eZF  KILL2 


0811 

0012 

0813 


REF  4 LAST  232 
REF  2 LAST  233 


04.2272  6 4756  1 

04.2273  C 0006  1 

04.2274  1 2260  0 


AD  FIVE 

EXTEND 

BZF  KILL2 


0814 

0815 
0616 
0817 
ueie 

0019 

C820 

0821 

0822 


0823 

0824 


REF  2 LAST  232 
REF  16  LAST  233 
PEF  9 LAST  232 


REF  1 

REF  1 
REF  I 


REF  2 LAST  233 
REF  3 LAST  233 


74.2275  3 2330  0 

04.2276  7 0C74  0 

74. 2277  6 0774  0 

54.2300  4 0000  0 

04.2301  6 2333  0 

04.2302  0 0006  1 

04.2303  1 2310  0 

04.2304  6 2331  1 

04.2305  0 0006  1 

04,23C6  1 2310  0 

04,23C7  1 2260  0 


MASK 

AD 

COM 

AC 

EXTEND 

BZF 

AD 

EXTEND 

ezF 

TCF 


OCT  500 

FLAGWRCO 

MMNUMPER 

P20REC 

STATOUO 

0CT305 

STATCUO 
KI  LL2 


0825  REF 

0826  REF 

0827  REF 


7 LAST  232  04,2310  4 0075  1 STATQUO  CS 

2 LAST  232  04,2311  7 4775  1 MASK 

8 LAST  233  04,2312  26  075  1 AOS 


FLAGHRDI 

DCTJ20 

FLAGInRDI 


0828  RFF 


04,2313  1 2224  0 


TCF  GOMGC 


0829  REF 

0830  REF 

0831  REF 

0832 

0833  REF 

0834  REF 


3 LAST  233 
17  LAST  233 
50  LAST  232 

12  LAST  231 
1 


04,2314  : 2330  0 NOLVBAU  CAF  0CT500 


04.2315  7 0074  0 

04.2316  10  000  0 

04.2317  1 2322  1 

54.2320  0 5516  0 

04.2321  C0CC7  0 


MASK  FLAGWROO 

CCS  A 

TCF  +3 

TC  DUWNFLAG 

ADRES  IMUSE 
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USER'S  PAGF  NOo  21  F3  S3 

YES,  LEAVE  GROUP  2 TO  PICK  UP  P20  OR  P25 

CLEAR  RENDEZVOUS, P25 
AND  IMU  IN  USE  FLAGS 

NO,  KILL  2 

RESTART  POINT  FCR  V37XE0 


P20  OR  P25  ON  TOP  OF  P20  OR  P25  - 


IS  IT  20  AND  IS  RENDEZVOUS  FLAG  ON 
YES 

IS  IT  25  AND  IS  P25  BIT  ON 
YES,  LEAVE  AS  IS 

SET  TRACKFLAG 
UPDATE  FLAG 

IS  P20  OR  P25  FLAG  SET 


YES 

NOfRFSET  IMUINUSE  FLAG 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021132-091 


L FRESH  START  AND  RESTART 


0835 

0836 


2 LAST  230  3'^,2322  50  773  1 

1 0<t,  2323  3 247J  I 


INDEX  MINOex 
CAF  DNLAOMMl 


0037 

0838  REF  1 


14.2324  0 0004  0 

04.2325  1 2206  0 


INHINT 

TCF  SEUCGPCC 


0839  REF  I 

0840  REF  1 


04.2326  0 A3e4  1 V37N0NG  TC  FALTON 

14.2327  1 2067  0 TCF  V37BAD 


0841 

0842 

0843 

0844 

0845 


REF  17  LAST  218 


4750 

04,2330 

04,2331' 

04.2332 

04.2333 


00500  1 
C0305  I 
00026  0 
00124  0 


OCTOOOlO  EQUALS  BIT4 

0CT500  OCT  500 

CCT305  OCT  305 

□C726  OCT  26 

P20REG  OCT  124 


0846 

0847  REF 

0848  REF 

0849  REF 

0850  REF 


3 LAST  234 
2 LAST  230 
1 
1 


04.2334 

04.2335 
04,23  36 
04,2337 
04,2340 


C 0004  0 
5C  773  1 
3 2437  0 
55*057  0 
54  020  I 


V37XEQ 


INHINT 

INDEX  MINDEX 
CAF  PREMMl 
TS  MMTEMP 
TS  CYR 


0851  REF 

0852  REF 

0853  REF 

0854  REF 


2 LAST  234 
1 
1 


04.2341  3 0020  0 

04.2342  7 7730  0 

04.2343  55*061  0 

04.2344  54  063  0 


CA  CYR 

MASK  PRI037 

TS  PHSPR0T4 

TS  NEWPRIC 


0855 

0856 

0857 

0858 

0859 


REF  2 LAST  234 

REF  18  LAST  215 
REF  1 

REF  15  LAST  231 


04.2345  3 1057  I 

04.2346  r 0006  I 

04.2347  7 4744  0 

14.2350  7 4757  1 

04.2351  54  001  1 


CA  MMTEMP 

EXTEND 
MP  BITS 

MASK  L0W3 
TS  L 


0860 

0861 

0862 

0863 

0864 


REF  4 LAST  234 

REF  1 

REF  1 

REF  3 LAST  217 

REF  16  LAST  234 


14.2352  50  773  1 

34.2353  3 2406  1 

04.2354  55*060  1 

04.2355  7 4350  1 

04.2356  26  001  1 


INDEX  MINDEX 
CAF  FCAORMMl 

TS  BASETEMP 

MASK  HI5 

AOS  L 


0865 

0666 

0867 


REF  2 last  234 
REF  1 

REF  15  LAST  167 


04,2357  2 1060  0 

04.2360  7 5012  0 

04.2361  6 4741  1 


CA  BASETEMP 

MASK  LOWIO 
AO  DlTll 


0868  REF 


04,2362  0 5116 


TC  SPVAC 


0869  REF 

0870  REF 

0871  REF 


3 LAST 
2 LAST 


234  04,2363  3 

230  04,2364  7 

04,2365  0 


1057  1 V37XeQC 
6C77  0 
5314  I 


CA  MMTEMP 

MASK  LnW7 
TC  NFhMODEA 


0872  REF 


LAST  231  04,2366  0 4457  0 


TC  RELCSP 
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neiAIN  APPROPRIATE  COWNLIST  ADDRESS 

COME  HERE  IF  MM  REQUESTED  DOESNT  EXIST 

81 TS  7 AND  9 


OBTAIN  PRin,  EBANK,  AND  MM 
SHIFT  RIGHT  TD  BITS  14  - 10 


PRESET  GROUP  4 RESTART  PRIORITY 
STORE  PRIG  FOR  SPVAC 


OBTAIN  EBANK  - PITS 


10  OF  MMTEMP. 


MAKE  BBCON  BY  ACDING  HIE  PF  FCAOR 


OBTAIN  GENACR  PORTION  OF  2CA0Rc 


UPON  RETURN  FROM  FINDVAC  PLACE  THE 
NEW  MM  IN  MODREG  (THE  LOW  7 BITS  OF 
PHSPROTl ) 


RELEASE  DISPLA' 


GAP ; 

L 

0873 

087A 

0875 

0876 

0877 

0P78 

0880 

0881 

0882 

R08d3 

0884 

0885 

0686 

0887 

0668 

0689 

0890 

0891 

0692 

0092 

R0893 

R0894 

R0895 

R0896 

R0897 

R0898 

A0e99 

A 0900 

A0901 

R0902 

R0903 

0906 

0907 

0908 

0909 

0910 

0911 

0912 

0913 

0914 

0915 

0916 


ASSEMBLE  REVISION  131  CF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021112-091 
FRESH  START  AND  RESTART 

5155  0 Ti 


REF 

REF 

REF 

REF 

REF 

REF 


REF 

REF 


REF 

REF 


LAST  230 


1 


18  LAST  225 


19  LAST  235 


04,2367 

5650 

1057 
1060 
04, 2370 
04,237) 

04.2372 

04. 2373 

04.2374 

04.2375 

04.2376 

04.2377 

04.2400 

04.2401 

04. 2402 


NEG7 


TC  ENOOFJOB 

EQUALS  0CT77770 


1C337  I 
10144  1 
37667  1 
40C72  0 
00700  0 

3 6250  0 
54  002  1 
C 0C06  1 
2 2405  1 
6 0002  0 
52  CC6  C 


MMTEMP  EQUALS  PHSPRDT? 
BASETEMP  EQUALS  TBASF4 
V37QCA0  CAOR  V37XEC  *3 
ROOAO  CAOR  DUMMYAO 

CCT37667  OCT  37667 

OCT40072  OCT  40072 

0CT700  OCT  700 


SeTUP71 

SETUP70 


CAF  THREE 
TS  Q 

EXTEND 

OCA  P70CADR 

AC  0 

OTCB 
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AND  EXIT 


REF 

REF 

REF 


LAST  149 


04.2403 
E7,1520 

04. 2404 

04.2405 


00106  0 


OEC70 

P7CCA0R 


DEC 

EeANK= 

2CA0R 


70 

R 

P70 


02067  1 
42067  0 

FOR  VERB  37  TWO  TABLES  ARE  MAINTAINED*  EACH  TABLE  HAS  AN  ENTRY  FCR  FACH 
MAJOR  MCOE  THAT  CAN  EE  STARTED  FROM  THE  KEYBOARD*  THE  ENTRIES  ARE  PUT 
INTO  THE  TABLE  V>ITH  THE  ENTRY  FCR  THE  HIGHEST  MAJOR  MODE  COMING  FIRST, 


TO  THE  LOWEST  m&jqr  mQOE  WHICH  IS  THE  LAST  ENTRY  IN  EACH  TABLE* 


FCADRMMl  FCADR 
FCAOP 
FCADR 


P79 

PR0G18 

POl 


START  OF  P 79 
START  OF  P 18 
START  OF  P 01 


THE  FIRST  ENTRY  MUST  BE  LABLEO  FCADRMMl* 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


04,  2406 
34,2407 

14.2410 

04.2411 

04.2412 

04. 2413 

04.2414 

14.2415 

04.2416 
04  ,2417 
04,2420 


26207  0 
72641  1 
72457  1 
72225  1 
72036  1 
71271  0 
65000  1 
33277  0 
22C50  0 
31421  1 
75442  1 


FCADRMMl  FCADR 
FCADR 
FCADR 
FCADR 
FCADR 
FCADR 
FCADR 
FCAOR 
FCADR 
FCADR 
FCADR 


P76 

P75 

P74 

P73 

P72 

LANOJUNK 

P63LM 

P57 

PRC652 

P51 

P47LM 


GAP  : 

L 

0917 

0918 

0919 

0922 

0923 

0924 

0925 

0927 

0928 

0929 

0930 

0931 

0932 

0933 

R0934 

R0935 

R0936 

R0937 

R0938 

R093O 

R0940 

R0941 

A0942 

A0943 

A0944 

A0945 

■A0946 

AC947 

R0948 

0951 

0952 

0953 

0954 

0955 

0956 

0957 

0958 

0959 

0960 

0961 

0962 

0963 

0964 

0967 

0968 
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FRESH  START  AN C RESTART 


USER'S  PAGF  NC. 


REF  I 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 
REF  I 
REF  1 
REF  1 

THE 

INFORMAT  ION, 


04,2421 
04,2A22 
04,2423 
Q4  ,2424 
04,2425 
)4  ,2426 
04,2427 
04,2430 
04  ,2431 

04.2432 

04.2433 

04.2434 

04.2435 

04.2436 


75414  I 
75276  Q 
75153  1 
72635  1 
72455  0 
72223  1 
72034  0 
72000  1 
50400  0 
5000C  I 
51506  0 
50000  1 
6CC61  0 
77652  0 


FCADR 

FCAOR 

FCAUk 

FCAOR 

FCAOR 

FCAOR 

FCAOR 

FCAOR 

FCAOR 

FCADR 

FCAOR 

FCAOR 

FCAOR 

FCAOR 


Pt2LM 

P41  LM 

P40LM 

P35 

P34 

P33 

P32 

P30 

PR0G25 
PRCG22 
PR0G21 
PR  CG2n 
P12  LM 
P06 


PREMM  TABLE  CONTAINS  THE  E-BANK 
IT  IS  IN  THE  -FOLLOHING  FORM, 


, MAJOR  MODE,  AND  PRIORITY 


PFP  PPE  EEM  MMM  MMM 

WHERE  THE  7 M BITS  CONTAIN  THE  MAJCR  MODE  NUMBER 
3 E BITS  CONTAIN  THE  E-BANK  NUMBER 

5 P BITS  CONTAIN  THE  PRIORITY  AT  WHICH  THF  JOB  IS 
TO  Bf  STARTED 


FOR  EXAMPLE, 


PREMMl  OCT  67213 

OCT  25437 


PRIORITY  3^ 

E-BANK  5 

MAJOR  MODE  11 
PRIORITY  1? 

E-BANK  6 

MAJOR  MODE  31 


NOTE, 


04.2440 

04.2441 

04.2442 

04.2443 

04.2444 

04 .2445 
04, 24A6 


34,2447 

04.2450 

04.2451 

04.2452 

04.2453 

04.2454 

04.2455 

04. 2456 


BE  LABELED  PRE«Ml 
27714  0 PREMMl 
27713  1 
27712  0 
27711  0 
27710  1 
27704  1 
27677  1 
2727J  0 
27264  1 
27263  0 
27657  0 
27652  0 
27651  C 
27650  1 
27643  0 
27642  1 


OCT 

ncT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

ncT 

OCT 


27714 

27713 

27712 

27711 

27710 

27704 

27677 

27271 

2726i 

27263 

27657 

27652 

27651 

27650 

27643 

27642 


MM  76  EBANK 
MM  75  EBANK 
MM  74  EBANK 
MM  73  EBANK 
MM  72  EBANK 
MM  68  EBANK 
MM  63  EBANK 
MM  57  EBANK 
•MM  52  EBANK 
MM  51  EBANK 
MM  47  EBANK 
MM  42  EBANK 
MM  41  EBANK 
MM  40  EBANK 
MM  25  EBANK 
MM  34  EBANK 


7 PPir  13 
7 PRin  13 
7 PRIC  1? 
7 PRIC  13 
7 PR  in  13 
7 PRIC  13 
7 PR  10  13 
5 PRIO  13 
5 PR  I C 1 3 
5 PRIO  13 
7 PR  IC  13 
7 PRIO  13 
7 PR  in  13 
7 PR  IC  13 
7 PPin  13 
7 PRIG  13 


GAP: 

L 

0969 

0970 

0972 

0973 

0974 

0975 

0976 

0977 

097a 

R0979 

R0980 

R0981 

0982 

0985 

0986 

0987 

0988 

0989 

0990 

0991 

0992 

0993 

0994 

0995 

0996 

0997 

0998 

lOOl 

1002 

1003 

1004 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 
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04,2457  27641  1 OCT  27641 

04.2460  27640  0 OCT  27640 

04.2461  27636  1 OCT  27636 

04.2462  27631  0 OCT  27631 

04.2463  27626  0 OCT  27626 

04.2464  27625  0 OCT  27625 

04.2465  27624  I GCT  27624 

04.2466  27614  1 OCT  27614 

04.2467  27006  1 OCT  27006 

THE  FOLLOWING  CONSTANT  IS  THE  NUMBER  OF  ENTRIES  IN  EACH  OF 
THE  ABOVE  LISTS-l(I£,  Tl-E  NUMBER  OF  MAJOR  MODES(EXCEPT  POO 
THAT  CAN  BE  CALLED  FRCM  THE  KEYBOARD  MINUS  CNE1 


USER'S  PAGE  NCc 


MM  33 
MM  32 
MM  30 
MM  25 
MM  22 
MM  21 
MM  20 
MM  12 
MM  06 


E6ANK  7 
EBANK  7 
EBANK  7 
EBANK  7 
EBANK  7 
EBANK  7 
EBANK  7 
EBANK  7 
EBANK  4 


PR  10  13 
PRin  13 
PPIC  13 
PR  in  13 
PPIC  13 
PPIO  13 
PP  10  13 
PPIO  13 
PR  10  13 


■>4,2470  00030  1 NOV37MM  DEC 


24 


REF  1 
REF  2 LAST 
REF  3 LAST 
REF  4 LAST 
REF  5 LAST 
REF  1 
REF  2 LAST 
REF  1 
REF  1 
REF  2 LAST 
REF  I 
REF  2 LAST 
REF  3 LAST 
REF  4 LAST 
REF  6 LAST 
REF  7 LAST 
REF  8 LAST 
REF  9 LAST 
REF  10  LAST 
REF  11  LAST 
REF  2 LAST 
REF  12  LAST 
REF  13  LAST 
REF  3 LAST 
REF  3 LAST 
REF  16  LAST 


04,2471 
237  04,2472 

237  04,2473 

237  04,2474 

237  04,  2475 

04,2476 
237  04,2477 

94.2500 

04 .2501 
237  04,2502 

04,2503 
237  04,2504 

237  04,25C5 

237  04  ,2506 

237  C4,2507 

237  04,2510 

237  04,2511 

237  04,2512 

237  04,2513 

237  04,2514 

237  04,2515 

237  04,2516 

237  04,2517 

237  04,2520 

237  04  ,2521 

230  4755 

0000 
OOCl 
0002 
0003 
00C4 
OOC5 
13  ,2  026 
46  13,2000 

13,2026 


00002  0 
000C2  0 
00002  0 
00002  0 
00002  0 

00004  0 
C0OO4  0 

00005  1 
00000  1 
00000  1 
00003  1 
00003  1 
00003  1 

00003  1 
00002  0 
00002  0 
00002  0 
00CO2  0 
00002  0 
C0002  0 
00005  1 
00002  0 
0000?  0 

00004  0 
00000  1 


CNLACMMl  ACRES 
ADR6S 
ACRES 
ADRES 
AORES 
ACRES 
ACRES 
AORES 
ACRES 
ACRES 
ACRES 
AORES 
AORES 
AORES 
AORES 
ADRES 
AORES 
AORES 
ADRES 
ACRES 
AORES 
ADRES 
ADRES 
ADRES 
ACRES 


ONLAOPOO  = 
COSTAL  IN  = 
AGSUPOAT  = 
RENOEZVU  = 
QRBMANUV  = 
OESASCNT  = 
LUNRSALN  = 


BANK 

SETLOC 

BANK 


RENOEZVU 
PENDEZVU 
RENOEZVU 
RENCEZVU 
RENOEZVU 
OESASCNT 
OESASCNT 
LUNR  SALN 
COSTALIN 
COSTALIN 
0R6MANUV 
ORBMANUV 
ORBMANUV 
ORBMANUV 
PENDEZVU 
PENOEZVl' 
RENOEZVU 
RENOEZVU 
RENOEZVU 
RENCEZVU 
LUNRSALN 
RENOEZVU 
RENOEZVU 
OESASCNT 
COSTAL  IN 
ZERC 
0 
1 
2 
3 


INTINIT 


P76 
P7  5 
P74 
P73 
P72 
P6e 
P6  3 
P67 
P5? 
P91 
P47 
P42 
P41 
P40 
P35 
P34 

P33 

P32 

P30 

P25 

P22 

P21 

P20 

P12 

P06 


REF 


2 LAST 


gap: 
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L FRESH  START  AND  RESTART 

1023  REF  2 LAST  A6  TO  ^6:  2 2* 

1024  REF  2 LAST  111  E3tl554 

R1025  THIS  ROUTINE  DOES  THF  POO  INTEGRATION 


COUNT#  $$/INTlN 
EBANK=  PRECTCSM 


1026 

1027 

1028 
1029 


1030 

1031 

1032 

1033 

1034 

1035 

1036 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


1 

1 

1 

J 

2 LAST  238 
I 

1 

1 


13,2026 
13  ,2027 
13,203C 

13.2031 

13.2032 

12.2033 

13.2034 

13.2035 

13.2036 

13.2037 
13,2040 


A3014  0 
01474  1 
C4347  O 
26036  0 
43014  0 
C2756  i 
26036  0 
C1476  0 
45014  0 
01667  1 
27133  0 


STATEUP 


DOINT 


SET  BCF 

V INTFLAG 
SURFFLAG 
DOINT 
BOF  SFT 

RENDWFLG 
DOINT 
OIMOFLAG 
CLEAR  CALL 

PREC I FLG 
INTEGRV 


1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 


REF  2 LAST  238 

REF  1 

REF  3 LAST  112 

REF  3 LAST  209 

REF  2 LAST  2-1 

REF  2 LAST  238 

REF  1 


REF  2 LAST  238 

REF  1 

REF  2 LAST  238 

REF  1 

REF  2 LAST  238 

REF  2 LAST  238 

REF  3 LAST  210 

REF  1 


13,2041  71214 

13  ,2042  04307 

13.2043  26063 

13.2044  C1571 

13.2045  34041 

13.2046  27410 

13  ,2047  45014 

13.2050  01674 

13.2051  26643 

13  ,2052  77614 

13.2053  C2756 

13.2054  26060 

13.2055  43014 

13.2056  01476 

13.2057  01475 

13.2060  45C14 

13.2061  01467 

13.2062  27133 

13.2063  7761A 

13.2064  01236 

13.2065  26631 


0 

I 

0 

0 

0 

1 

0 

0 

1 

1 

1 

0 

0 

0 

0 

0 

0 

0 

1 

I 

1 


BON  DLOAD 

SURFFLAG 
NO-INT 
TETCSM 
STCALL  TOECl 

I NTSTALL 
CLEAR  CALL 

VI NTFLAG 
SETIFLGS 

BOF 

RENDVjFLG 
D0INT2 
SET  SET 

DI MOFLAG 
D60B9FLG 

OOINT2  SET  CALL 

PREC  I FLG 
INTFGRV 

NO-INT  CLRGO 

NODOFLAG 
END  I NT 


R1058  THISVINT  IS  CALLED  BY  MlOTOAVl  AND2 


REF 


13,2066 

3 LAST  238  13,2067 


43414  1 THISVINT  CLFAR  RVQ 
01674  0 VINTFLAG 
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USER  'S  PAGE  NOe  26 


EXTRAPOLATE  CM  STATE  VECTOR 

ALSO  6X6  W-MATRIX  IF  LM  ON  LUNAR 
SURFACE  ANC  W-MATRIX  VALID 
FOR  RENDEZVOUS  NAVIGATION. 


ENGAGES  4-TIME  STEP  LCGIC  IN  INTEGRATION 
WHEN  MOORFG  = 0 


EXTRAPOLATE  LM  STATF  VECTOR 


ALSO  9X9  W-MATRIX  IF  W IS  VALID 


DISENGAGE  4 TIMF  STEP  LCGIC  IN  INTEGo 
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L 

RESTART  TABLES  USER'S  PAGF  NCo  1 EC  S3 

POOOl 

R0002 

RESTART  TABLES 

R0003 

R0005 

R0007 

R0009 

ROOlO 

R0012 

RQOIA 

THERE  ARE  T^.C  FORMS  CF  RESTART  TABLES  FOR  EACH  GROUP#  THEY  ARE  KNOWN  AS  THE  EVEN  RESTART  TABLES  AND  THF  ODD 
RESTART  TABLES#  THE  ODD  TABLES  HAVE  ONLY  CKE  ENTRY  OF  THREE  LOCATIONS  WHILE  THE  EVEN  TABLES  HAVE  TWO  ENTRIES 
EACH  USING  THREE  LOCATIONS#  THE  INFORMATION  AS  TC  WHETHER  IT  IS  A JOB,  WAITLIST,  OR  A LONGCALL  IS  GIVEN  BY  THE 
way  THINGS  ABE  PUT  INTO  THE  TABLES# 

A JOB  HAS  ITS  PRIORITY  STORED  IN  PR0TTA8  CF  THE  CORRECT  PHASE  SPOT  - A POSITIVE  PRIORITY  INDICATES  A 

FINPVAC  JCB,  A NEGATIVE  PRIORITY  A NOVAC#  THE  2CADR  OF  THE  JOB  IS  STORED  IN  THE  CAORTAB# 

FOR  EXAMPLE, 

A0015 

A0016 

5#7SP0T  nCT  23000 

2CA0R  S0MFJ06 

R0017 

A restart  OF  GROUP  5 WITH  PHASE  SEVEN  WOULD  THEN  CAUSE  SOMEJOB  TC  BE  RESTAPTEC  AS  A FINOVAC  WITH  PRIORITY  23 

A0019 

A0020 

5#5SPOT  OCT  -23000 

2CA0R  ANYJOB 

R0021 

R0023 

R0025 

R0027 

HERE  A RESTART  OF  GROUP  5 WITH  PHASE  7 WOULD  CAUSE  ANYJOB  TC  BE  PESTARTEC  AS  A NOVAC  WITH  PRIORITY  23# 

A LONGCALL  HAS  ITS  GENADR  OF  ITS  2CADR  STORED  NEGATIVELY  AND  ITS  BBCON  STORED  POSITIVFLYc  IN  ITS  PRDTTA8  IS 
PLACED  THE  LCCATICN  CF  A CP  REGISTER  THAT  CONTAINS  THE  DELTA  TIME  THAT  LONGCALL  HAD  BEEN  ORIGINALLY  STARTED 

WITH#  EXAMPLE, 

A0028 

A0029 

A0030 

3#6SP0T  GENADR  DELTAT 

-GENADR  LONGTASK 

BBCON  LONGTASK 

A0031 

A0032 

OCT  31000 

2CA0R  JOBAGAIN 

R0033 

R0035 

R0037 

THIS  WCULO  START  UP  LONGTASK  AT  THE  APPROPRIATE  TIME,  OR  IMMEDIATELY  IF  THF  TIME  HAD  ALREADY  PASSED#  IT  SHOULD 

BE  NOTED  THAT  IF  DELTAT  IS  IN  A SWITCHED  E BANK,  THIS  INFORMATQIN  SHOULD  BF  IN  THE  BBCON  OFTHE  2CA0R  OF  THE 

TASK#  FRCM  A80VF,  Wfc  SEE  THAT  THE  SECOND  PART  CF  THIS  PHASE  WOULD  BF  STARTED  AS  A JOB  WITH  A PRIORITY  OF  31o 

R0039 

ROOAl 

R00^3 

R0045 

R00't7 

R0049 

WAITLIST  CALLS  APE  IDENTIHIEC  BY  THE  FACT  THAT  THEIR  2CADR  IS  STORED  NEGATIVELY,  IF  PRDTTAB  OF  THE  PHASE  SPOT 

IS  POSITIVE,  THEN  IT  CONTAINS  THE  DELTA  TIME,  IF  PRDTTAB  IS  NEGATIVE  THEN  IT  IS  THF  -GENADR  OF  AN  ERASABLE 
LCCATICN  CCNTAINING  THE  DELTA  TIME,  THAT  IS,  THE  TIME  IS  STORED  INOIRECTL'Y#  IT  SHOULD  EE  ACTED  AS  ABCVE,  THAT 

IF  THE  TIME  IS  STORED  INDIRECTLY,  THE  BBCCN  MUST  CONTAIN  THE  NECESSARY  E BANK  INFORMATION  IF  APPLICABLE.  WITH 
WAITLIST  WE  HAVE  ONE  FURTHER  CPTION,  IF  -0  IS  STORED  IN  PRCTTAR,  IT  WILL  CAUSE  AN  IMMEDIATE  RESTART  OF  THE 

TASK#  EXAMPLES, 

A0050 

A0051 

OCT  77777  THIS  WILL  CAUSE  AN  IMMEDIATE  RESTART 

-2CA0R  ATASK  OF  THE  TASK  lATASK: 

A0052 

A0053 

A0054 

A0055 

DEC  200  IF  THE  TIME  OF  THE  ? SECONDS  SINCE  DUMMY 

-2CADR  DUMMY  WAS  PUT  ON  WAITLIST  IS  UP,  IT  WILL  BEGIN 

IN  10  MS,  OTHERWISE  IT  WILL  BEGIN  WHEN 

IT  NORMALLY  WOULD  HAVE  BEGUN, 

GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGPAM  LUMINARY  BY  NASA  2021112-091 
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0059 

0060 
0061 


NOks  THE  TABLES  THEMSELVES 

01,2002 

01,2000 

01,2002 


BANK.  01 
SETLCC  RESTART 
RANK 


0062 

0063 

A0064 


USED  TO  FIND  THE  PRIORITY  OP  OELTATIME 
THIS  AND  THF  NEXT  RELATIVE  LOG  CONTAIN 
RESTART  2CADP. 


0065 

0066 
0067 
006B 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0060 
0081 
0062 
0083 
0063 

R0084 


REF  1 
REF  1 
RfcF  1 
REF  I 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 

REF  29 
REF  3 


LAST 

LAST 


215 

235 


01,2002 
Cl  ,2003 
Cl, 2004 
Cl, 2005 
Cl  ,2006 
01,2007 
01  ,2010 
01,2011 
01,2012 
01,2013 
01, 201A 

01.2015 

01.2016 
007A 

01  ,2017 
01,2020 
01,2021 
0074 
Cl, 2022 
01,2023 


0 0010  0 
C 0C20  0 
C 0010  0 
0 0026  0 
C 0010  0 
0 0056  I 
0 0062  0 
C CC72  I 
0 C145  1 
0 Cl  63  0 
0 CCIO  0 
0 0174  0 
21000  1 

05155  0 
C4C6C:  0 
0C144  0 


COUNT*  $$/RSTAe 

SIZETA8  TC  l»2SPnT  -120C6 

TC  loSSPCT  -12004 

TC  2o2SPrT  -120C6 

TC  2.3SPOT  -12004 

TC  3<,2SPQT  -12006 

TC  3®  3SP0T  -12004 

TC  4«2SP0T  -12006 

TC  4w3SPCT  -12004 

TC  5o2SP0T  -12006 

TC  5«3SPCT  -12004 

TC  6p2SPCT  -12006 

TC  6p3SP0T  -12004 

l«2SPQT  OCT  21000 

E6ANK=  STATE 
2CA0R  EN00FJ06 


TABLES  IN  BANK  U 


DEC 

EBANK= 

2CADR 


100 

STATE 

TASKCVER 


A DUMMY  EXAMPLE  TO  BE  PEPLACED  AS  SOON 
AS  THERE  IS  A LEGITIMATE  1®2SP0T 


ANY  MORE  GROUP  UEVEN  RESTART  VALLES  SHOULD  GC  HERE 


0085 

0086 
0087 
0087 
00872 
00874 
00876 
00876 


REF 

REF 

REF 

REF 

RFF 

REF 

REF 


01. 2024 
E7,1515 

01.2025 
01,20  26 
01 ,2027 
E7, 1654 

01.2030 

01.2031 


75427 

03710 

32000 

03630 

66C67 


1p3SP0T  -GENADR  SAVeT-30 
EBANK=  DVCNTR 
-2CA0P  ULLGTASK 

USSPOT  OCT  32COO 
EBANK=  HMEAS 
2CA0R  PEREPOS 


ROOee  ANY  MORE  GROUP  IpOCC  RESTART  VALLES  SHOULD  GO  HERE 


02627  0 2,  3SP0T  GENADR  60CSECS 
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RESTART  TABLES 


0092 

0093 
009A 


REF 

REF 

REF 


01.2033 
E3, 1554 

01.2034 


-GENAOR  STATEINT 
EBANK=  RRECTCSM 
0BCON  STATEINT 


0095 

0096 

0097 

0097 

0098 

0099 

0100 
0100 


REF 

REF 

REF 

REF 

REF 


01,2035  C50CO  1 2^5SPOT  OCT 


LAST  189 


63,1554 
01,2036 
01,2027 
01  ,2040 
E7, 1456 

01.2041  75533  0 

01.2042  27710  1 


02611 

26063 

02734 


EBANK=  RRECTCSM 
2CADR  STATINTI 

CEC  1500 
E8ANK=  LOSCCUKT 
-2CA0R  P20LEMC1 


0101 

0102 

0103 

0103 

0104 

0105 

0106 
0106 

0107 

0108 
0109 

0109 

0110 
0111 
0112 
0112 

0113 

0114 

0115 
0115 

ft01l6 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF  3 
REF  1 
REF  1 
ANY  MORE 


01,2043 

3 LAST  148  E7,1762 

1 01,2044 

1 01,2045 

01  ,2046 

4 LAST  241  E7,1456 

1 01,2047 

1 01,2050 

Ol,2G51 

5 LAST  241  E7,1456 

1 01,?052 

1 01,2053 

01  ,2054 

I E7,1700 

I Tl,2055 

I 01,2056 

:i,2057 

3 LAST  240  E7,1515 

1 01,2060 

1 01,2061 

2o  ODD  RESTART 


02414 

50067 

10000 

02223 

54C67 

26C00 

C2654 

50067 

77777 

75436 

C3710 

C0031 


2o  IISPOT  nCT 

eBANK= 

2CA0R 

2ol3SP0T  OCT 

EBANK= 

2CA0R 

2ol5SPCT  OCT 

EBANK= 

2CA0R 

2ol7SP0T  OCT 

EBANK= 

-2CADR 

2«  21SP0T  DEC 

EBANK= 

-2CADK 


75771  1 
35710  1 

VALUES  SHOULC  GO  FERE 


14000 

P21TIHE 

P25LEM1 

10000 

LOSCCUNT 

RELINUS 

26000 

LOSCOUNT 

R22RSTRT 

77777 

VGPREV 

RED02,17 


OVCNTR 

RlO.Rll 


0119 

0120 
0121 
0121 
01212 
01214 
01216 
0121  6 

R0122 


REF 

REF 

REF 

REF 


LAST  241 


1 


LAST  202 


REF 
REF 
REF  1 

ANY  MORE  GROUP 


1 


01  ,2062 
E7,1515 
31  ,2063 
Cl  ,2064 

01.2065 
£7,1453 

01.2066 
01,2067 


76355  0 3o3SPCT 

74110  1 
05710  1 
20000  0 


02540 

56067 


•GENAOR  ZODMTIME 
EBANK=  OVCNTR 
•2CADR  ZOOM 


3,  5SP0T  OCT 


EBANK=  TTOGO 
2CA0R  S40«13 


3c  COD  RESTART  VALLES  SHOULD  GC  HERE 


LAST  241 


04704  0 4c2SP0T  DEC 


FBANK=  TTOGO 


PAGF  241 


17:53  CECe  1^,1969  LFMONAIO  104 


USER'S  PAGE  NOc  3 


EO  S3 


GAP  : 

L 

0125 

0125 

0126 

0127 

0128 

0128 

R0129 

0130 

0131 

0132 

0132 

0133 

013A 

0135 

0135 

0136 

0137 

0138 

0138 

0139 

0140 

0141 

0141 

0142 

0143 

0144 

0144 

0145 

0146 

0147 

0147 

0148 

0149 

0150 

0150 

0151 

0152 

0153 

0153 

0154 

0155 

0156 

0156 

0157 

0158 

0159 

0160 


ASSEMBLE  REVISION  131  OF  AGC  PFCCRAM  LUMINARY  BY  NASA  2021112-C91 


17:53  OECe  I' 


1069 


LEMONAIOc 104 


PAGE  242 


RESTART  TABLES 


USER  'S  PAGE  NOe  4 


e?  S3 


REF  1 01,2071  75423 

REF  1 01  ,2072  03710 

01,2073  77777 

REF  6 LAST  241  E7,1453 

REF  1 01,2074  75433 

REF  1 01,2075  C371C 

ANY  MCRE  GROUP  AoEVEN  RESTART  VALUES 


0 

1 

0 

1 

I 

SHOULD 


-2CA0R  TIG-5 


OCT  77777 
E8ANK=  TTOGO 
-2CA0F  RE0C4,2 


GO  HERE 


REF 

PEF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


5 LAST  241 
1 
1 

7 LAST  242 
1 


6 LAST  242 
1 
1 


11,2076  25000  0 

E7, 1515 

01  ,2077  03533  I 

01.2100  64067  1 

11.2101  00062  0 

E7 ,1453 

01.2102  75211  1 

01.2103  03710  1 

01.2104  C0764  1 

E7, 1515 

01  ,2105  75370  1 

01,2106  03710  1 


463SPCT 


OCT  25000 
£BANK=  OVCNTR 
2CA0R  GOABORT 


4., 


5SP0T 


OEC 

EBANK= 

-2CA0R 


50 

TTOGO 

ULLAGCFF 


4#7SPCT 


DEC  500 
EBANK=  OVCNTR 
-2CA0R  TIG-0 


PEF  3 LAST  196 

PEF  7 LAST  242 

REF  1 

REF  1 

REF  2 LAST  141 

PEF  1 

REF  1 


31,2107 
£7,1515 
01,2110 
n,2lll 
01,2112 
E7, 1462 
01 ,2113 
Cl  ,2114 


7626C  1 

74231  1 
03710  I 
12000  1 

03227  0 
74067  0 


48  nSPOT- 


-GENAOP 

EfiANK= 

-2CA0R 


TGO  +1 
OVCNTR 
ENGCFTSK 


813SPCT  OCT  12000 

E6ANK=  TRKMKCNT 
2CA0R  POSTBURN 


REF 

REF 

REF 

REF 

REF 


REF 

REF 

PEF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


2 

1 

1 

9 

1 
1 
3 
1 

2 


LAST  242 

LAST  242 
LAST  242 

LAST  124 

LAST  242 

LAST  240 

LAST  242 
LAST  242 


01.2115  00764  1 

E7 ,1453 

01. 2116  75477  1 

01.2117  03710  1 

01,2120  77777  0 

£7,1515 

11  ,2121  75423  0 

01.2122  G3710  1 

01.2123  13000  0 

E5  , 17  30 

11.2124  03C12  1 

01.2125  31065  1 

01.2126  77777  0 

E7, 1515 

01  ,2127  75345  1 

01.2130  C3710  1 

11.2131  01477  I 

01 .2132  75535  0 

E7, 1477 

31.2133  74067  0 


48l5SPnT  DEC  500 

EBANK=  TTOGC 
-2CADR  TIG-30 

4cl7SPCT  OCT  77777 

£BANK=  OVCNTR 
-2CA0R  TIG-5 


»21SP0T  OCT 

EBANK= 

2CADP 


13000 

STAR 

RSlol 


+ 1 


o23SPCT  OCT 

EBANK= 

-2CA0R 


77777 

OVCNTR 

IGNITION 


4,  25SPOT  6ENADR  SA  VET-30 
-GENAOP  TIG-35 
EBANK=  SAVET-30 
B8C0N  TIG-35 


gap: 

L 

0161 

0162 

0163 

0163 

0164 

0165 

0166 

0166 

0167 

0168 

0169 

0169 

0170 

0171 

0172 

0172 

0173 

0174 

0175 

0175 

R0176 

0177 

0178 

0179 

0179 

0180 

0181 

0182 

0182 

0183 

0184 

0185 

0185 

0186 

0187 

0188 

0188 

R018Q 

0190 

0191 

0192 

0192 

0193 

0194 

0195 

0195 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 
RESTART  TABLES 


17:53  OECo  19,1969 
USER’S  PAGF 


LEP0NAI01O4 
NOe  5 


PAGE  243 
EO  S3 


PEF  10  LAST 
REF  1 
REF  1 

REF  11  LAST 
REF  1 
REF  1 


REF  12  LAST 
REF  2 LAST 


REF  13  LAST 
REF  1 
REF  1 


REF 

REF 

PEF 

ANY 


4»C00 


01. 2134 

242  £7,1515 

01.2135 

01. 2136 
01  ,2137 

243  E7,1515 

01.2140 

01.2141 

01.2142 
243  67,1515 

226  01,2143 

01. 2144 

01.2145 
243  E7,1515 

01.2146 
01  ,2147 

01.2150 
£7,1455 

01.2151 

01.2152 

RESTART  VALUES 


C2070 

42067 

52777 

02073 

42067 

46777 

02024 

10067 

46777 

05655 

04067 

52777 

C2575 

74067 

SFOULO 


I 4o  27SPOT  OCT 

EBANK= 

1 2CA0R 

0 

1 4«31SP0T  OCT 

eBANK= 

1 2CA0R 

0 

1 4o  33SPOT  OCT 

EBANK= 

0 2CA0P 

1 

1 4,35SPGT  OCT 

EBANK= 
2CA0R 

OCT 
EBANK= 
2CA0R 


1 

1 

1 4<,37SPCT 

1 

0 

GC  FERE* 


52777 

DVCNTR 

P70A 

52777 

DVCNTR 

P71A 

46777 

DVCNTR 

GOPOOFU 

46777 

DVCNTR 

GOPOODOO 

52777 

WHICH 

COMFAIL 


REF  14  LAST 
REF  1 
REF  1 

REF  15  LAST 
REF  1 
REF  1 


01,2153 
243  E7,1515 

01  ,2154 

01.2155 

01.2156 
243  E7,1515 

31.2157 

n ,2160 


22C0C  1 

02463  1 
46C67  1 
00310  0 

74166  0 
01710  0 


5,  2SP0T 


OCT  22000 
EBANK=  DVCNTR 
2CA0R  NORMLIZE 


DEC  200 
E8ANK=  DVCNTR 
-2CADP  REREACAC 


01,2161 

REF  16  LAST  243  E7,1515 

REF  2 LAST  243  01,2162 

01,2163 


00310  0 5o4SP0T  DEC  200 

EBANK=  DVCNTR 

74166  0 -2CADR  REREADAC 

C171C  0 


REF  17  LAST 
REF  1 
REF  1 

ANY  MORE  GROUP 


01.2164  20000  0 OCT 

243  E7,1515  EBANK= 

01.2165  C2206  1 2CA0R 

01  ,2166  66067  0 

SoEVEN  RESTART  VALLES  SHOULD  GC  HERE 


20000 

DVCNTR 

SERVICER 


REF  18  LAST  243 
REF  3 LAST  243 


01,2167  00310  0 5o3SPOT  DEC 

E7,1515  EeANK= 

01,2170  74166  0 -2CADR 

.)1,2171  01710  0 


200 

DVCNTR 

REREACAC 


REF  19  LAST  243 
REF  I 
REF  1 


01  ,2172 
£7, 1515 
01  ,2173 
01,2174 


77777  0 5o5SPCT  OCT  77777 
EBANK=  DVCNTR 

74326  0 -2CA0R  RED05*5 

01710  0 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2C2in?-091 


GAP  : 


L RESTART  TABLES 


0196 

0197 

0198 
0196 


REF  20  LAST  2A3 
REF  1 
REF  1 


01  ,2175  77777  0 5*7SP0T  OCT  77777 

E7,X515  EBANK=  OVCNTR 

01.2176  7A361  0 -2CA0R  BIBIBIAS 

01.2177  C1710  0 


R0199  ANY  MORE  GROUP  SoOCC  RESTART  VALUES  SHOULD  GO  HERE 


0200  REF 

0201 

0202  REF 

0203  REF 
0203  REF 


4 LAST  2^1 

6 LAST  204 
1 
1 


01 ,2016 
01,2200 
E7, 1441 
01  ,2201 
01,2202 


6«2SP0T 
00144  0 6o  3SPCT 

75054  1 
C3710  1 


EQUALS  lo2SP0T 
DEC  100 
£BANK=  TIG 
•2CADR  CLOKTASK 


0204 

0205  REF 

0206  REF 

0206  REF 

0207 

0206  HEF 
0209  REF 
0209  REF 


2 LAST  113 
1 
1 

2 LAST  241 
1 
1 


01,2203 
E3,1706 
01,22C4 
01  ,2205 
01 ,2206 
E7,1700 
01  ,2207 
01,2210 


30000  1 

C3557  0 
10063  0 
17000  1 

03354  0 
7^067  0 


6o  5SP0T 

6»  7SP0T 


OCT  30000 
B0ANK=  TEPHEM 
2CA0R  TIM60ICR 

OCT  17000 
eBANK=  VGPREV 
2CA0R  RE006,7 


17:53  OEC>  19,1969 


LEMGNAID  104  page  244 


USER'S  PAGE  NCo  6 EC  S3 


PROTECT  INCREMENTING  OF  TIME2,TIME1  BY 
P27(UPDATE  PROGRAM)  VIA  V70  OR  V73a 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2O21112-0«;i 


L AOTMARK 


0001  12»2000 
0002  REF  1 07,2000 


BANK  12 
SETLCC  AOTMARKl 


0003 


07,2000 


BANK 


000<*  REF  2 LAST  U7  £7,1551 

0005  REF  1 


EBANK=  XYMARK 
COUNT*  tS/MAPK 


0006 

0007  REF 
OOOB 

0009  REF 

0010  REF 

0011 


2 LAST  224 

I 

1 


07.2000  0 0004  0 

77.2001  11'307  0 

07,2302  0 2004  1 

07,20C?  C 2C06  C 

07.2004  0 5642  1 

07.2005  20105  1 


ACTMARK 


INHINT 

CCS  MARKSTAT 

TC  +2 

TC  EXTVBCHK 

TC  POOOOO 

CCT  20105 


0013  REF  2 LAST  171 

0014  REF  2 LAST  224 


07.2006  2 6245  1 EXTVBCHK  CAF  SIX 

07.2007  7 1043  0 MASK  EXTV6ACT 


0015  RFF  51  LAST 

0016  REF  1 


C7,2C10  1C  CCC  0 
07,2011  1 2044  1 


CCS  A 

TCF  MKABOPT 


0017  REF 

0018  REF 

0019  REF 

0020  REF 

0021  REF 

0022  REF 

0023  REF 

0024  REF 

0025  RFF 

0026  REF 

0027  REF 

0028  REF 

0029  REF 
00292  REF 

0030 


20  LAST 
3 LAST 
3 LAST 
1 

2 LAST 
2 LAST 

2 LAST 

3 LAST 
2 LAST 

4 LAST 
2 LAST 

5 LAST 
1 

I 


186  07,2012 

245  07,2013 

225  07,2014 

07,2015 
224  )7,2016 

245  07,2017 

224  07,2020 

245  07,2021 

224  07,2022 

245  C7,2023 

224  07,2024 

245  C7,2025 

07.2026 

07.2027 
07,2030 


3 4752  0 
27'C43  0 
10  400  I 
1 2031  0 
10  454  0 
1 2031  0 
10  530  0 
1 2031  0 
10  604  1 
1 2031  0 
] 0 660  0 
1 2031  0 
52  134  0 
C 5706  0 
31207  0 


MKVAC 


CAF 

ADS 

CCS 

TCF 

CCS 

TCF 

CCS 

TCF 

CCS 

TCF 

CCS 

TCF 

DXCH 

TC 

OCT 


B1T2 

EXTV8ACT 

VACIUSE 

MKVACFNC 

VAC2LSG 

MKVACFND 

VAC3USE 

MKVACFND 

VAC4USE 

MKVACFNC 

VAC5USE 

MKVACFNC 

BUF2 

bAlLOUTl 

31207 


0031  REF 

0032  REF 


3 LAST  189 
3 LAST  245 


07.2031  6 4752  0 MKVACFNC  AO 

07.2032  55'307  0 TS 


TWO 

MARKSTAT 


0033 

0034 

0035 


REF  17 
REF  4 


LAST  237 
LAST  245 


07.2033 

07.2034 

07.2035 


3 4755  1 
51*307  1 
53*777  0 


CAF  ZERO 

INDEX  MARKSTAT 
TS  0 -1 


0036  REF 

0037  REF 

0038  REF 

0039  REF 
0039  REF 


2 LAST  183 

2 LAST  213 

3 LAST  245 

1 

1 


>7,2036  3 5025  0 
07,2037  0 5105  0 
E7, 1551 

07  ,2040  C2063  0 
07,2041  16067  1 


CAF  PRI015 

TC  FINDVAC 

FBANK=  XYMARK 
2CADR  GETDAT 


0040 

0041  REF 


07.2042  C 0003  1 RELINT 

07.2043  1 4631  0 TCF  SWRETURN 


17:53  OEC«  19,1C69  LEMCNAIDfl04  PAGE  245 


USER ' S PAGE  N0«  ) EO  S3 


SEE  IF  AGTMAPK  BUSY 
MARK  SYSTEM  BUSY-OO  ALARM 


SEE  IF  EXTo  VERB  WCRKING 


YES-ABORT 


NO-DISALLOW  SOME  EXTENDED  VERB  ACTION 
eiT2  RESET  IN  EMOMARK 
LOOK  FOR  A VAC  APFA-DO  ABORT  IF 
NONE  AVAILABLE 


ALL  VAC  AREAS  OCCUPIED  - ABORTr, 


STORE  VAC  ADR  IN  LOW  9 OF  MARKSTAT 


ZERO  IN  VACUSE  RFG  TO  SHOW  VAC  OCCUPIED 


SET  UP  JOB  FOR  GETDAT 


GAP;  ASSEMBLE  REVISION  131  OF  AGC  PRCGRAP  LUMINARY  0Y  NASA  20211  12-C'31 


L AOTMARK 


0042 
00422 

0043 


2 

2 


LAST  245  37,2044  52  134 

LAST  245  07,2045  0 5706 

37,2046  31211 


0 

0 

1 


mkabort 


8UF2 

BA  ILOUTl 
31211 


0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 


REF  18  LAST 
REF  5 LAST 
REF  1 
REF  52  LAST 
REF  53  LAST 

REF  9 LAST 
REF  10  LAST 
REF  1 


37,2047  3 4755  1 MKRELEAS  CAF 


07.2050 

07. 2051 

07.2052 

07.2053 

07.2054 
07  ,2055 

07.2056 

07 .2057 


57'307  1 
7 5CC4  I 
10  COO  0 
50  000  1 
54  COO  0 
3 4753  1 
C 4674  C 
17656  1 


XCh 

MASK 

CCS 

INDEX 

TS 

CAF 


ZERO 

MARKSTAT 

L0W9 

A 

A 

r 

ONE 

IBNKCALL 

GOODEND 


17:53  OECo  19,lo69  LEN0NAID,104 


PAGE  246 


USER'S  PAGE  NOe  7 E7  S3 

CONFLICT  WITH  EXTENDED  VFRB 

SET  MARKSTAT  TO  ZERO 
PICK  UP  VAC  AREA  ACP 

SHOW  MKVAC  AREA  AVAILABLE 

GO  WAKE  UP  CALLING  JOB 


GAP:  ASSFP0LE  REVISION  131  CF  AGC  PBCCRAJ^  LUMINARY  BY  NASA  2n2111Z-r91 


L ACTMARK 


00521  REF  19  LAST  2A6 

00522  REF  A LAST  245 

00523  REF  2 LAST  219 

0053  REF  6 LAST  246 

00531  REF  16  LAST  224 

00532  REF  7 LAST  247 


')7r2060  3 4755  1 KILLADT  CAF 


OTf2061  55*043  0 TS 

07,2062  C 6001  0 TC 

07, '2063  4 1307  0 GETCAT  CS 

37.2064  7 47^0  1 MASK 

07.2065  27*307  0 ADS 


ZERO 

FXTVBACT 

GCTCPCCH 

MARKSTAT 

BIT)  2 

MARKSTAT 


00533  REF 

0054  REF 

0055  REF 


LAST  22? 
LAST  209 


07  ,2  066 
07,2067 
07,2070 


2 2330  0 
0 A616  1 
20334  1 


CAF  V01N71 

TC  BANKCALL 

CADR  GOMARKF 


0056  REF  1 

0057  REF  1 

0058  REF  2 LAST  245 


C7,2C71  1 2060 

C7,2072  1 2074 

07,2073  1 2063 


1 TCF 

1 TCF 

1 ENTERCAT  TCF 


KI LLAOT 

DODAT 

GETDAT 


0069  REF 

0070  REF 

0071 

0072  REF 

0073  REF 


J 

2 LAST  198 

15  LAST  166 
4 LAST  245 


07.2074  3 7747  1 DCDAT 

07.2075  7 073A  0 

07.2076  C 0006  1 

07,2C77  7 47A3  1 

07,2100  55*551  0 


CAF  HIGF9 

MASK  AOTCODE 

EXTEND 
MP  6IT9 

TS  XYMARK 


0074 

0075  REF  3 LAST  247 


C7,21C1  0 0006  1 

Q7,21C2  6 2063  0 


EXTEND 

8ZMF  GETDAT 


0076  REF  1 

0077 

0078  REF  1 


07,2103  6 5650  I 
07,21CA  C CC06  1 
07,2105  1 2107  1 


AD  NEG7 

EXTEND 

8ZF  CODE? 


00765  REF 


07,2106  1 2123 


TCF  C0DE1TC6 


0079 

0080 
0081 


REF  1 

REF  1C  LAST  247 
REF  3 LAST  247 


07, 2107  2 2331  1 CODE? 
07,2110  0 4616  1 
C7,2H1  20334  I 


CAF  V06Na7* 

TC  BANKCALL 

CADR  GOMARKF 


0082  REF  2 LAST 

0083 

0084  REF  2 LAST 

00841 

C085  REF  2 LAST 

0086  REF  1 

0087 

0095  REF  20  LAST 

0096  REF  1 


247  07,2112  1 2060  1 

37,2113  1 2115  1 

247  07,211A  1 21C7  1 

07,2115  0 0006  I 

108  C7,2116  3 1345  1 

07,2117  5C  120  1 
37,2120  52  311  0 

247  07,2121  3 4755  1 

07,2122  1 2137  I 


TCF 

TCF 

TCF 

EXTEND 

OCA 

INDEX 

DXCH 

CAF 

TCF 


KILLAOT 

+2 

CODE? 

AZ 

FI XLDC 
8D 

ZERO 

COASCODE 


0097  REF 

0098  REF 

0099  REF 

0100 


5 LAST  247 

1 

2 LAST  247 


07.2123 

07.2124 

07.2125 

07.2126 


51*551  1 C0CEIT06  INDEX 

3 lAll  1 CA 

5C  120  1 INDEX 

5A  011  0 TS 


XYMARK 
AOTEL  -1 
FI XLOC 
90 


010) 


REF  6 LAST  247 


07,2127  51*551  1 


INDEX  XYMARK 


17:53  DEC,  19,1969  LFMONAIOdOA  RAGE  2^7 


USER'S  PAGF  NOo  •=•  E7  S3 

TERMINATE  AOTM APK- ALLOH  EXT  VERB 

SET  BIT12  TC  OISCOLPAGE  RARKRUPT 
8IT12  RESET  AT  GETMAPK 


DISPLAY  OETFNT  AND  STAR  CODE 


V34-OOES  GOTOPOOH 

V33-PROCEED-USe  THIS  STAR  FOR  MARKS 
FNTER-REDISPLAY  STAR  CCOE 

PICK  DETENT  CODE  FROM  PITS7-9  nF  AOTCHDE 
AND  SEE  IF  CODE  1 TC  6 


STORE  DETENT 


COAS  CALIBRATICN  CCDE-NT  GCOO  HERE 
SEE  IF  DETENT  7 FOR  COAS 


CODE  7,  COAS  SIGHTING,  GET  OPTIC  AXIS 
AZ  AND  EL  OF  SIGHTING  DEVICE  FROM  ASTRO 


V3^-DCES  GCTOPCCH 
PROCEED 

ON  ENTER,  RECYCLE 

PICK  UP  AZ  AND  EL  IN  SP  2S  COMP 

STORE  IN  80  AND  9D  CF  LCCAL  VAC 
BACKUP  SYSTEM  TO  PE  USFD 
ZERC  APPARENT  ROTATION 


INDFX  AOT  POSITION  BY  DET  CODE 


STORE  ELEVATION  IN  VAC+OD 


INDEX  DET  CODE  ) ,2  CR  3 


GAP;  ASSEMBLE  REVISION  )31  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2023112-091 


L ACTMARK 


0102 

0103 

0104 


REF  2 
REF  3 


LAST  156 
LAST  247 


07.2130 

07.2131 
07  ,2132 


3 1403  1 
50  120  1 
54  010  1 


CA  A0TA2  -1 

INDEX  FIXLOC 
TS  BD 


0105  REF 

0106 

0107  REF 
0106 

0109  REF 

0110 


3 LAST  248 

4 LAST  248 

5 LAST  248 


07, 2133 
)7,?134 

07.2135 

07.2136 
07  ,2137. 
07,2140 


3 14C5  1 
0 0006  1 
5 0120  1 
20  010  1 
50  120  1 
54  012  0 


CA  A0TA2  +1 

EXTEND 

INDEX  FIXLCC 
MSU  80 

CCASCOCE  INDEX  FIXLOC 
TS  lOD 


0111 


REF  4 LAST  230 


17,2141  0 6042 


TC  INTPRET 


17:53  CECo  IQ, 1969 


LEMONAIO^IHA 


PAGE  248 


USER*  S PAGF  NCc  ^ E7  S3 


STORE  AZIMUTH  IN  VAC+8D 


COMPENSATION  FOR  APPARENT  ROTATION  OF 
AOT  FIELD  OF  VIFW  IN  LFFT  AND  RIGTHT 
detents  is  stored  in  vac  4\no  IN  SP 
PRECISION  ONES  COMPLEMENT 

ROT  ANGLE 


COMPUTE  X AND  Y PLANE  VECTORS 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGRAP  LUMINARY  BY  NASA  2021112-091 

L ACTMARK 


17:53  DECo  19,19f9  LEMONAIO.  104 
USER’S  PAGE  NCo  5 


PAGE  249 
E7  S3 


P0112  THE  CPTAXIS  SUERCUTINE  CCPPUTES  THE  X ANC  Y MARK  PLANE  VFCS  ANO 

R0113  AND  ROTATES  THEM  THRU  THE'  APPARENT  FIELD  CF  VIEW  ROTATION  UNIQUE  TO  AOT 

R0114  DPTAXIS  USES  OANB  TO  COMPUTE  THE  OPTIC  AXIS 

R0115  INP17-A2IMLTH  ANGLE  IN  SINGLE  FREC  AT  CCU  SCALE  IN  8D  OF  JOB  VAC 
R0U6  ELEVATION  ANGLE  IN  SINGLE  PREC  AT  CCU  SCALE  IN  90  CF  JOB  VAC 

R0117  ROTATION  ANGLE  IN  SINGLE  PREC  IS  COMP  SCALED  BY  PI  IN  ICD  OF  VAC 

R0118  OUTPUT-OPTIC  AXIS  VEC  IN  N6  CCCRDS  IN  SCAXIS 
R0119  X-MARK  PLANE  1/4VEC  IN  NB  COORDS  AT  100  OF  JOB  VAC 

R0120  Y-MARK  PLANE  1/4VEC  IN  NB  CCORCS  AT  12C  OF  JOB  VAC 


0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0137 

0138 
01381 

0139 

0140 

0141 

0142 

0143 


REF 

REF 


LAST  125 


07,21A2 
07 ,21A3 
07  ,2144 
07,21A5 
37  ,2146 
07,2147 
07,2150 
07  ,2151 

07.2152 

07.2153 
07  ,2154 

07. 2155 

07 .21 56 

07.2157 
07,2160 
07  ,2161 

07.2162 

37.2163 

07 .2164 

07.2165 

07.2166 

07.2167 
C7, 2170 


77624  1 
10522  0 
70535  0 
00013  0 
73406  1 
71525  0 
74206  0 
00023  0 
74325  0 
00001  0 
00031  0 
45445  0 
63762  1 
65361  0 
00031  0 
53361  0 
00023  0 
77626  0 
53754  1 
240C7  0 
02715  0 
77776  1 
1 2202  1 


CPTAXIS  call 


OANB 
SLOAD  SRI 
100 
SIN 
COS 

vxsc 
18D 
VXSC 


PUSH 

POOL 

PUSH 


BVSU 

STOOL 

VXSC 


STAOR 

STOVL 

STORE 
EX  IT 
TCF 


24D 

STADR 

12D 

PDCL 

240 

VAO 

18D 

180 

Ln6ZERrS 
STARAD  +6 


GO  COMPUTE  OA  ANO  X AND  Y PLANE  VECS 

LOAD  APP  ROTATION  IN  ONES  COMP 
RESCALE  BY  2PI 
1/2SIN(R0T>  0-1 

1/2C0S(RCTI  2-3 

1/4C0S (ROT )UYP  4-9 

1/4SIN(R0T)UXP 
UP  ^-9 

YPNO=1/4(COS(POTUIYP-SIN(ROT»UXP» 

UP  2-3  UP  0-1  FOR  EXCHANGE 
1/4CCS ( ROT JUXP  PUSH  n-5 
1/4SIN(R0T)UYP 
UP  0-5 

XPNB= 1/4(COS{ROT) UXP+SIN(POT)UYP) 
INITIALIZE  AVE  STAR  VEC  ACCUMULATOR 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARV  8Y  NASA  2021112-091 


17:53  CECo  19,1969  LEMONA  I Dt 


PAGE  250 


L ACTMARK  USER’S  PAGE  NC,  6 E7  S3 

ROIA^  TFE  OANB  SUBROUTINE  COMPUTES  THE  CPTIC  AXIS  CF  THE  SIGHTING  INSTRUMENT 
R0145  FROM  AZIMUTH  AND  ELEVATION  INPUT  FROM  THE  ASTRONAUT, 

R01A6  INPUT-  AZIMUTH  ANGLE  IN  SINGLE  PREC  2S  COMp  IN  8C  OF  JOE  VAC 

R0147  ELEVATION  ANGLE  IN  SINGLE  PREC  2S  COMP  IN  9D  OF  VAC 

R0148  OLTPUT-CPTIC  AXIS  IN  N'B  CCCRCS,  IN  SCAXIS 

R0149  X-PLANt  1/2VEC  IN  NB  CCCROS  AT  2AC  CF  VAC 

R0150  Y-PLANE  1/2VEC  IN  NB  COORDS  AT  180  OF  VAC 


01501  05,3A13 

01502  REF  1 0^,2000 

O150A  D4',2522 


BANK  05 
SETLCC  ArTMARK2 
BANK 


01506  REF  1 


COUNT*  IS/MARK 


0151 
01  52 
0153 
015^ 

0155 

0156 

0157 

0158 
01581 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 
0160 
0161 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


2 LAST  124 

1 

4 LAST  1A8 

2 LAST  250 

2 LAST  249 

5 LAST  250 

6 LAST  250 

7 LAST  250 

3 LAST  250 


34,2522  44CC1  0 

T4,2523  OUOOl  0 

04.2524  02736  1 

04.2525  47135  0 

14  ,2526  00012  I 

04,2527  21577  I 

34.2530  71406  0 

14 .2531  73525  I 

34.2532  77626  0 

14.2533  60012  1 

04.2534  OPOll  1 

04.2535  77634  0 

04.2536  21577  1 

04.2537  71406  0 

34.2540  00025  0 

34.2541  73525  1 

34.2542  574C6  I 

04.2543  14027  I 

04.2544  24007  0 

04.2545  14023  0 

34.2546  72405  0 

04.2547  00001  0 

34.2550  17767  1 

34.2551  72405  0 

04.2552  77626  0 

34.2553  50006  1 

34.2554  00023  0 

04.2555  53435  0 

04.2556  03765  0 

04.2557  00031  0 

04.2560  77650  1 

04.2561  02736  1 


OANB 


SETPD  STQ 

r 

GCTR 

SLOAO  RTB 
90 

CDULOGIC 
PUSH  COS 
PDCL  SIN 
STADF 

STOOL  SCAXIS 
60 

RTB 

CDULOGIC 
PUSH  COS 
STORE  200 
POOL  SIN 
PUSH  OCCMP 
STOOL  220 

L062ERCS 
STOOL  180 
DMP  SLl 

0 

STOOL  SCAXIS  +: 
DMP  SLl 
STADP 

STOVL  SCAXIS  ♦ 
18C 

VXV  UNIT 

SCAXIS 
STCRE  24C 
GOTO 

GCTR 


STORE  RETURN 
PICK  UP  SP  ELV 

1/2CQS(ELV)  PD  r-l 

0AX=1/2SIN(FLVI 
PICK  UP  AZ  SP 


STORE  UYPIYI  20-21 
1/2C0S(AZ>  PO  2-3 
PUSH  1/2S  INIAZ  ) 4-9 
STORE  UYP(Z)  22-23 


STORE  UYP(X»  18-19  UP  4-5 


CAY=1/2CCS(ELV>SIN(AZ> 
UP  2-3 
UP  0-1 

nAZ=l/2COS(ELV)rOS(A2) 
LOAD  UYP  VEC 

UXP  VEC=UYP  X CA 
STORE  UXP 


gap:  assemble  revision  131  OF  AGC  PPCGRAR  LUMINARY  BY  NASA  2021112-091 


P0182 

R0183 

ROIRA 

R0185 

R0186 

K0187 

ROlSe 

0189 

0190 

0191 

0192 


SUBFSTAR  COMPUTES  A STAR  VECTOR  IN  SM  COORDINATES  FOR  LUNAR 
SURFACE  alignment  ANO  EXITS  TO  AVEIT  TO  AVERAGE  STAR  VECTQRSo 
GIVEN  X-MARK  PLANE  l/A  VEC  IN  NB  AT  180  OF  LOCAL  VAC 
Y-MAKK  PLANE  l/^'VEC  IN  NG  AT  12C  CF  LOCAL  VAC 


CURSOR  SP  2C0MP  AT  POSITION 
SPIRAL  SP  2C0MP  AT  POSITION 
COLY,ZiX  AT  POSITIONS  0,2f4 
15,20C0 
15,2000 
15,2000 


1 OF  INDEXED  MARKVAC 
3 OF  INDEXED  MARKVAC 
OF  INDEXED  MARKVAC 

BANK  15 
SETLOC  P50S 
BANK 

COUNT#  $$/R5S 


01921 

01922 

01923 
0193 
019^ 

0195 

0196 

01961 

01962 
0107 

0198 

0199 

0200 
0201 
02011 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 
0224 
022  5 


LAST  101 


LAST  250 


LAST  251 


15  ,2000 

15.2001 

15.2002 

15.2003 

15.2004 

15.2005 

15.2006 

15.2007 
15  ,2010 

15.2011 

15.2012 

15.2013 

15.2014 

15.2015 

15.2016 

15.2017 
15  ,2020 

15.2021 

15.2022 

15.2023 

15. 2024 

15.2025 

15.2026 

15.2027 
15  ,2030 

15.2031 

15.2032 
15  ,2033 

15. 2034 

15.2035 

15.2036 

15.2037 
15  ,2040 

15.2041 

15.2042 
15  ,2043 

15.2044 

15.2045 


77773  1 
00001  0 
00766  0 
47133  0 
C0C02  0 
21577  1 
00031  0 
77654  0 
16171  1 
71406  0 
73525  1 
65361  0 
C0C23  0 
52361  1 
00015  0 
47256  0 
03765  0 
41456  0 
47133  0 
00004  0 
21577  I 
00033  1 
43225  0 
C0031  0 
32047  0 
77605  1 
22466  1 
00033  1 
74356  I 
65372  1 
00033  1 
74346  0 
03765  0 
53372  1 
45056  0 
47666  1 
34031  1 
16276  0 


SURFSTAR  VLOAO* 

STORE 

SLCAD* 


STCRE 

BZE 

PUSH 

POOL 

VXSC 

VXSC 

UNIT 

UNIT 

SLOAO* 


STORE 

DSU 


STORE 

SIN 

VSLl 


VSLl 

UNIT 


0,1 

COUSPOT 

PTB 

1,1 

COULOGIC 

24C 

YZCHK 
COS 
SIN 
POOL 
1 8D 
vsu 
120 
VXV 

SCAXIS 
PUSH 
R TB 
3,1 

CDULCGIC 

26D 

DAD 

240 

ABOUTONE 

DPl/12 

260 

VXSC 

POOL 

260 

VXSC 

SCAXIS 

VAD 

CALL 

TRG#NBSM 
240 
A VEIT 


17:53  DECo  19,1969 
USER'S  PAGE 


LEMCNAID^ 104 
NO*  7 


PAGE 
E7  S? 


251 


PUT  X-MARK  CDUS  IN  COUSPOT  FOR  TRG*NBSM 

PICK  UP  YROT 

STORE  CURSOR  FOR  SPIRAL  COMP  (REVS) 

IF  YROT  ZERO-SEF  IF  SRCT  ZEPO 

1/2CCS(YRCT)  0-1 

UP  0-1  1/PSI  N(  YROTI  UXP  0-5 

UP  n-5 
UYP 

PICK  UP  SPIRAL 
STORE  SPIRAL  (REVS) 


SEP=(360  SPIRAL  - CUPS0R)/12 
UP  0-5 

1 /2SIN( SEP) (UPP  X CA)  0-5 


UP  0-5 


STAR  VEC  IN  SM 
GO  AVERAGE 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  5021112-091 


L AOTMARK 


0226 
022  6 
0227 
022d 


0229 

0230 

0231 
0231  1 

02312 

02313 
0231A 

02315 

02316 

02317 
0231  8 
02319 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


1 


2 

2 


1 


1 


10 

1 


LAST 

LAST 


LAST 


15>20^6 
15,29^7 
15,2A65 
07,2171 
07  ,2000 
07,2171 
250; 

07.2171 

07.2172 

07.2173 

07.2174 

07.2175 

07.2176 

07.2177 

07.2200 

07.2201 


A60LT0NE  2DEC 


121  121<- 
53133  0 
00004  0 
16177  I 
52145  0 
C0031  n 
32011  0 
52175  0 
03765  0 
32042  0 


EQUALS  0EG30 
BANK  7 
SETLDC  AOTMARKl 
BANK 

COUNT*  SS/MARK 
SLOAO*  BZE 
3 ,1 

YSZBRO 
OLCAO  GOTC 
240 

JUSTZY 
VLCAD  GOTO 

SCAXI  S 
JUSTOA 


17:53  OECe  10,196' 


LEMCNAIOf.104 


PAGE 


252 


USER'S  PAGE  NOe  0 E7  S3 

•0B333333 

YROT  ZERO  AND  IF  SROT  ZERO  FORCE  STAR 
ALTNG  OPT  IC  AX  IS 

SROT  NOT  ZERO-CONTINUE  NORMALLY 


gap: 

L 

P0232 

0233 

0234 

0235 

0236 

0237 

0238 

0241 

0242 

0243 

0244 

0245 

0246 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0270 

0279 

0280 

0281 


ASSEMbLE  REVISION  131  OF  AGC  PROGRAM  LUMNARY  BY  NASA  2021112-091  17:53  DEC«  I4tl969  L EMONA 10.,  l'^4  PAGE  253 


ACTMARK  USER'S  PAGF  NCc  “ E7  S3 

THE  GETMKS  ROUTINE  IMTIALI2ES  ThE  SIGHTING  MARK  PROCEDURE 


REF 

REH 

REF 

REF 

REF 

REF 

REF 


L AST 
LAST 
LAST 
LAST 
LAST 
LAST 


247 
24  7 
147 

246 

247 
253 


11  LAST  247 


07. 2202 

07.2203 

07.2204 
07 , 2705 

07 .2206 

07.2207 

17 .2210 

07.2211 

07.2212 


3 4755  1 
55*551  n 
55*550  1 

2 5004  0 
7 1307  0 
55’3C7  0 

3 2620  1 
0 4616  1 

20345  1 


ZERO 

XYMARK 

MARKCNTR 

LnW9 

MARKSTAT 

MARKSTAT 

MKVe54* 

BANKCALL 

GCMARK4 


INITIALIZE  PARK  ID  REGISTER  AND  MARK  CNT 

ZERO  BITSir-  TO  15  RETAINING  MKVAC  ADR 

01  SPLAY  V054  INITl ALLY 


REF  3 
REF  1 
REF  4 


LAST  247 
LAST  247 


07 .2213 

07.2214 

07.2215 


1 2060  1 
1 2216  1 
1 2063  1 


TCF  KILLAOT  V34-OOES  GOTOPGOH 

TCF  MARKCHEX  V e33-PR0C EEC,  GOT  MARKS,  COMPUTE  LOS 

TCF  GETDAT  ENTER-RECVCLF  TC  V01N71 


REF  1C  LAST 
REF  17  LAST 
REF  U LAST 
REF  3 LAST 
REF  8 LAST 
REF  22  LAST 
REF  2 LAST 
REF  12  LAST 
REF  1 
REF  17  LAST 
REF  2 LAST 

REF  F LAST 

REF  1 

REF  3 LAST 

REF  1 

REF  4 LAST 


253 
247 
253 
253 
2 53 
253 
147 
253 

234 

253 


2)  8 


253 


253 


07,2216  4 1307  0 MARKCHEX  CS 


07,2217  7 4740  1 MASK 

07.2220  27*307  0 AOS 

07.2221  7 5004  I MASK 

C7,2222  55*551  0 TS 

07,2223  3 4755  1 CAF 

C7,2224  55*552  0 TS 

)7,2225  3 1307  1 CA 

07.2226  7 5015  1 MASK 

07.2227  54  COl  I TS 

07.2230  3 5015  0 CAF 

07.2231  C 0006  1 EXTEND 

07.2232  C6  001  0 RXCR 

07.2233  0 0006  1 EXTEND 

07.2234  1 2241  0 6ZF 

07.2235  11*550  1 CNTCHK  CCS 

07.2236  1 2240  1 TCF 

07.2237  1 2325  0 TCF 

07,2240  55*550  1 TS 


MARKSTAT 

ei  T12 

MARKSTAT 

L0W9 

XYMARK 

ZERO 

MKCEX 

MARKSTAT 

PR  103 

L 

PR  103 

LCHAN 

AVESTAR 

MARKCNTR 

+2 

MKALARM 

MARKCNTR 


SET  B1T12  TO  DISCOURAGE  MARKRUPT 

JAM  MARK  VAC  ADR  IN  XYMARK  FOR  AVESTAR 
SET  MKDEX  ZERO  FOP  LOS  VEC  CNTR 
SEE  IF  LAST  MK  PARI  COMPLETE 
BI TSIO  AND  U 


LAST  PAIR  COMPLETE-GO  COMPUTE  LOS 
NO  PAIR  SHCWING-SEE  IF  PAIR  IN  HOLD 
PAIR  BUR  I EO-DECR  EMENT  COUNTER 
NO  PAIR-ALARM 
STORE  DECREMENTED  CCUNTEP 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REH 


18  LAST 
3 LAST 
5 LAST 


3 LAST 
« LAST 
18  LAST 
6 LAST 
1 


253  07,2241 

253  07,2242 

253  07,2243 

07,2244 
245  ■>7,2245 

253  07,2246 

253  07,2247 

248  07,2250 

07,2251 


3 4740  0 
27*552  0 

4 1550  1 
C CC06  1 
7 6245  0 
4 1551  0 
6 CCOl  0 
50  120  1 
54  046  1 


AVESTAR 


CAF  BIT12 

AOS  MKDEX 

CS  MARKCNTR 

EXTEND 
MP  SIX 

CS  XYMARK 

AD  L 

INDEX  FIXLOC 

TS  XI 


INITIALIZE  MKDEX  FOR  STAR  LOS  COUNTER 
MKOEX  WAS  INITIALIZED  ZERO  IN  MARKCHEX 

GFT  C(L>  = - 6 MARKCNTP 

ADD  - MARK  VAC  ADR  SET  IN  MARKCHEX 

JAM  - CDU  ADR  OF  X-MARK  IN  Xl 


PfcF  7 
PEF  1 


LAST  253 


37.2252 

07 .2253 


2 0120  1 
54  166  1 


CA  FIXLOC  SET  PO  PCINTFP  TO  7fRC 

TS  PUSHLOC 


REF 


LAST  248  07,2254  C 6C42 


TC  INTPRET 


gap: 

L 

02  82 

0283 

02  84 

0285 

0286 

0287 

0268 

0289 

0290 

0291 

02  92 

0293 

0294 

0295 

0296 

0297 

0298 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0322 

0323 

0324 

0325 

0326 

0327 

0328 
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ACTMARK 


USER'S  PAGE  NC.  10  F7  S3 


REF 

REF 

REF 

REF 

REF 


REF 


3 

1 

5 


2 


6 


3 


LAST 

LAST 

LAST 

LAST 

LAST 


07,2255  76614  0 

238  07,2256  C4307  1 

07,2257  32000  0 

07,2260  O0CO2  0 

251  07,2261  24766  C 

07.2262  00015  0 

07.2263  77624  1 

251  17,2264  47666  1 

07.2265  76606  0 

07.2266  OOCCl  0 

254  07,2267  24766  0 

07,2270  00023  0 

07,*2271  77624  1 

254  07,2272  47666  1 

.07,2273  53435  C 

17.2274  77626  0 

07.2275  77746  1 


BON  VLOAO# 

SURFFLAG 
SURFSTAR 
1 ,1 

STPVL  CDUSPOT 
12D 


CALL 

TRG*NBSM 
PUSH  VLCAD* 
0,1 

STOVL  CDUSPOT 
180 

call 

TRG*NBSM 
VXV  UNIT 
STADR 

STORE  240 


IF  CN  SURFACE  COMPUTE  VEC  AT  SUFFSTAR 

PUT  Y-MARK  COUS  IN  CDUSPOT  FOP  TRG*NBSM 

LOAD  Y-PLANF  VECTCR  IN  NB 

CONVERT  IT  TO  STABLE  MEMBER 

PUT  X-MARK  CPUS  IN  CDUSPOT  FOR  TRG*N6SM 

LOAD  X-PLANE  VECTOR  IN  NB 

CONVERT  IT  TO  STABLE-MEMBER 
UNITIXPSM  * YPSM) 


REF  4 LAST  253 


REF  1 

REF  8 LAST  249 

REF  9 LAST  254 

REF  4 last  198 

REF  6 last  253 

REF  2 LAST  253 

REF  5 LAST  233 

REF  7 LAST  189 

REF  10  LAST  253 

REF  1 

REF  1 


77. 2276 

07.2277 

07.2300 

07.2301 

07.2302 
C7,2303 

07.2304 

07.2305 

07. 2306 
07  ,2307 

07.2310 

07.2311 

07.2312 

07.2313 

07.2314 
07,23  15 
07,2316 
sl7,2317 

07.2320 

07.2321 
£7,1551 

07.2322 

07.2323 


63335  1 
03553  1 
00031  0 
70322  0 
00001  0 
14031  C 
00001  0 
56225  1 
16622  0 
53361  0 
02715  0 
00031  0 
02715  0 
02767  C 
77776  1 
11*  550  1 
1 2240  1 
3 4756  1 
C 0004  0 
C 5203  0 

02047  0 
16067  1 


AVEIT  SLOAO 


VSR3 

STCOL 

OSU 

VXSC 


STORE 

STORE 

EXIT 

CCS 

TCF 

ENCMARKS  CAF 

INHINT 

TC 

EBANK= 

2CA0R 


POVL 
MKDE  X 
240 
V/SC 
0 

24D 

0 

OOV 

OPl/8 

VAD 

STAPAD  +6 
24D 

STARAO  +6 
STARSAV2 

MARK  CNTP 
AVESTAR  -y 
FIVE 

WAI TLI ST 

XYMARK 

MKRELEAS 


NINUMBER  OF  VECS  I IN  0-1 
LOAD  CURRENT  VECTOR 


VFC/N 


(N-1 )/N 

ADD  VEC  TO  PPEVinuSLY  AVERAGED  VECTOR 
( N-l  I/N  AVESTVFC  + VEC/N 
AVERAGE  STAR  VECTCR 


SEE  IF  ANOTHER  MARK  PAIR  IN  MKVAC 
THERE  IS-GO  GET  IT-DECPEMENT  COUNTER 
NO  MORE  MARKS-TFRMINATf  ACTMARK 


REF 


07,2324  0 5472  0 


TC  ENDMARK 


REF  11  LAST  229 
REF  2 last  249 


07.2325 

07.2326 

07.2327 


C 5567  0 MKALARM 
00111  0 
1 2202  1 


ALARM 

111 

getmks 


NOT  A PAIR  TO  PRPCESS-DC  GETMKS 


07.2330  00307  0 VC1N71  VN  171 

07.2331  01527  0 V06N874  VN  687 


GAP : 

L 

P0329 

R033n 

0331 

0332 

0333 

033A 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0349 

U350 

0351 

03  52 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 


ASSEPeie  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211  12-091 


17:53  DEC®  19,196' 


LEMONAIOf.  104  PAGE  255 


ADTMARK  USER'S  PAGE  NOo  11  E7  S3 

MARKRUPT  IS  ENTERED  FROM  INTERUPT  LEAO-INS  AND  PROCESSES  CHANNEL  16 
CAUSED  BY  X,Y  MARK  OR  MARK  REJECT  CP  BY  THE  RATE  OF  DESCENT  SWITCH 


REF  2 
REF  1 
REF  5 
REF  4 
REF  3 
REF  5 
REF  2 

REF  7 
REF  4 
REF  20 
REF  2 


LAST  157 

LAST  138 
LAST  190 
LAST  95 
LAST  197 
LAST  95 

LAST  206 
LAST  138 
LAST  235 
LAST  157 


07,2332 

07,2'333 

07.2334 

07.2335 
07  ,2336 
07,2337 

07.2340 

07.2341 

07.2342 

07.2343 

07.2344 

07.2345 


54  016  1 
3 0033  1 
54  063  0 

2 CC34  0 
54  064  1 

3 0032  0 
54  065  0 
0 lOOB  1 
2 0C25  C 
52  062  1 
56  002  0 
54  012  0 


MARKRUPT  TS 


CA 

TS 

EXTEND 

DCA 

OXCH 

XCF 

TS 


BANKRUPT 

CDUY 

IT  EMP3 

CDUZ 

ITEMP4 

COUX 

ITEMP5 

TI  ME2 
ITEMPl 
0 

QRUPT 


STORE  COUS  ANO  TIME  NCW-THEN  SEE  IF 
WE  NEED  THEM 


REF  1 

REF  2 
REF  5* 
REF  1 


LAST  220 
LAST  246 


37.2346 

07.2347 

17.2350 

37.2351 

07. 2352 


3 4776  0 
C 0C06  1 
C2  016  1 
10  000  0 
I 2403  0 


CAF  0CT140  SEE  IF  ROD  INPUT  HAS  BEEN  MADE 

EXTEND 

RAND  NAVKEYIN 
CCS  A 

TCF  SOMEKEY  YES 


REF  19 
REF  13 
REF  55 
REF  8 


LAST  253 
LAST  253 
LAST  255 
LAST  192 


07.2353 

07.2354 
C7,2355 
17,2356 


3 4740  0 
7 1307  0 
10  000  0 
0 5270  1 


CAF  6IT12 
MASK  MARKSTAT 
CCS  A 

TC  RESUME 


ARE  we  ASKING  FOR  A MARK 


DONT  WANT  MARK  OR  MKREJFCT-DO  NOTHING 


REF  14 
REF  1 
REF  12 

REF  9 


LAST  255 
LAST  254 
LAST  255 


07,2357 

07.2360 

07.2361 

07. 2362 

07.2363 


11*307  0 
1 2364  0 
0 5567  0 
00112  0 
0 5270  1 


CCS  MARKSTAT  ARE  MARKS  PFING  ACCEPTED 

TCF  FINOKEY  THEY  ARE-WHICH  CNE  IS  IT 

TC  ALARM  MARKS  NOT  BEING  ACCEPTED-DO  ALARM 

OCT  112 

TC  RESUME 


REF  16  LAST  230 

REF  3 LAST  255 
REF  56  LAST  255 
REF  1 


07.2364  3 4747  I 

07.2365  C 0006  1 

07.2366  02  016  1 

07.2367  1C  COO  0 

07,2370  1 2460  0 


FI NDKEY 


CAF  BITS 

EXTEND 

RAND  NAVKEYIN 

CCS  A 

TCF  MKREJ 


SEE  IF  MARK  REJECT 


ITS  A MARK  REJECT 


REF  18  LAST  234 

REF  4 last  255 
REF  57  LAST  255 


C7,237l  3 4750  1 

07.2372  C 0006  1 

07.2373  02  016  1 

07.2374  10  000  0 


CAF  6IT4  SEE  IF  Y MARK 

EXTEND 

RAND  NAVKEYIN 
CCS  A 


REF 


07,2375  1 2421  0 


TCF  YMKRUPT 


ITS  A Y MARK 


RFF  13 

REF  5 
REF  58 


LAST  88 

LAST  255 
LAST  255 


07,2376 
07,  2377 

07.2400 

07.2401 


3 4751  0 
C 0006  1 
02  016  1 
10  000  0 


CAF  PI73  SEE  IF  X MARK 

EXTEND 

RAND  NAVKEYIN 
CCS  A 


ASSEMBLE  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  8Y  NASA  2021112-091 


GAP: 


L AOTMARK 


0372  PEF 


07,2^02  1 2415  1 


TCF  XMKRUPT 


0373  REF 
037^^ 

0375  REF 

0376 

0377 


2 


6 


LAST  255  07,2403  3 4776  0 

07,2404  0 0006  1 

LAST  255  C7,24C5  02  016  1 

07,2^06  C 0C06  1 

T7,2407  1 2412  0 


SCREKEY 


CAF  0CT140 
EXTEND 

RANO  NAVKEYIN 

EXTEND 

BZF  +3 


0378  REF 

0379  REF 


LAST  232 


07,2410 

07,241-1 


0 4635  0 
46455  1 


TC  POSTJUMP 

CAOR  DESCBITS 


0380  REF  13  LAST  255 
0301 


07.2412  0 5567  0 

07.2413  CCU3  1 


TC  ALARM 

OCT  113 


03  82 


REF  10  LAST  255 


07,2414  0 5270 


TC  RESUME 


0383 

0384 

0385 

0386 

0387 

0308 

0309 
0340 


REF  23  LAST  253 
REF  13  LAST  170 
REF  17  LAST  222 

REF  10  LAST  246 
REF  14  LAST  256 
REF  16  LAST  234 
REF  11  LAST  254 


07.2415  3 4755 

07. 2416  54  070 

07.2417  3 4742 

07.2420  1 2424 

07.2421  3 4753 

07.2422  54  070 

07.2423  ' 4741 

07.2424  55»551 


1 X^KRUFT  CAF 
1 TS 

1 CAF 

0 TCF 

1 YMKRUPT  CAF 

1 TS 

1 CAF 

0 TS 


ZERO 

RUPTREGl 

BITIO 

+4 

ONE 

RUPTREGl 

BITll 

XYMARK 


03901  REF  1 

03902  REF  1 


07.2425  C 2513  1 

07.2426  1 2520  0 


TC  MARKTYPE 

TCF  SURFSTCR 


0391 

0392 

0393 

0394 

0395 
03  96 
0397 
03  98 

0399 

0400 

0401 

0402 


REF  25 
REF  15 

REF  1 
REF  7 
PEF  3 

REF  1 
REF  8 
REF  1 
REF  16 
REF  17 


LAST  218 
LAST  255 


LAST  254 
LAST  214 


LAST  256 

LAST  256 
LAST  256 


07,^427 

07.2430 

07.2431 

07 .2432 
07, 2A33 

07.2434 

07.2435 

07. 2436 
07  ,2437 

07.2440 

07.2441 

07.2442 


3 4736  3 
7 1307  n 
0 0006  1 
1 2443  1 

4 1550  1 
6 4751  0 
0 0006  1 

6 2453  1 
25*550  0 
A 7714  0 

7 1307  0 
5S'307  0 


CAF  BIT14 

MASK  MARKSTAT 

EXTEND 

BZF  VERIFYMK 

CS  MARKCNTP 

AD  FOUR 

FXTENO 

BZMF  5MKALARM 

INCR  MARKCNTR 

CS  PRI023 

MASK  MARKSTAT 

TS  MARKSTAT 


0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 


REF  12  LAST  256 
REF  18  LAST  256 
REF  59  LAST  255 

REF  1 

REF  14  LAST  256 
REF  11  LAST  256 


07,24A3  3 1551  1 VERIFYWK  CA 


37,2444  7 1307  0 MASK 

C7,2445  1C  000  0 CCS 

07.2446  1 2450  0 TCF 

07.2447  1 2525  0 TCF 

07,2450  0 5567  C TC 

J7,2451  00114  0 OCT 

17  ,2452  0 5270  1 TC 


XYMARK 

MARKSTAT 

A 

♦ 2 

VACSTOR 

ALARM 

114 

RESUME 


17:53  DECo  1Q,196C  LEM0NA!0rlP4  PAGE  256 
USER’S  PAGE  NOo  12  E7  S3 

ITS  A X MARK 

NOT  MARK  OP  MKREJECT-SEF  IF  OFSCENT  BITS 

IF  NO  BITS 
IF  DESCENT  PITS 

NO  IN81TS  IN  CHANNEL  16 


SET  X MARK  STORF  INDEX  TO  ZERO 


SET  Y MARK  STORE  INDEX  TO  ONE 

SET  MARK  IDFNTIFIATICN 

SEE  IF  SURFACE  MARK 
SURFACE  MARK-JUST  STORE  CDUS 

GOT  A MARK-SFF  IF  MARK  PAIR  MADE 


NOT  A PAIR,  NORMAL  PROCEDURE 

GOT  A PAIR,  SEE  IF  ANOTHER  CAN  BE  MADE 

IF  SO,  INCREMENT  PCINTFP, CLEAR  BlTSlO.ll 

HAVE  FIVF  mark  PAIRS-CONT  ALLOW  MARK 
OK  FOP  ANOTHER  PAIR,  INCR  PCINTEP 
CLEAR  BITSIO, 11,14  FOR  NEXT  PAIR 


THIS  MARK  NOT  DESIRFD 
MARK  DESIRED  - STORE  COUS 


RESUME-DISPLAY  UNCHANGED-WAIT  FOR  ACTION 


GAP  : 


ASSEMBLE  REVISION  131  OF  AGC  PPCCRAM  LUMINARY  BY  NASA  2021112-091  17:53  DECo  19,1969  LE  NONA  I Oc  10-V  PAGE  257 


L ACTMARK 


USER'S  PAGE  NOo  13  E7  S3 


0411  REF  15  LAST 

0412 

04121  REF  2 LAST 

04122  REF  1 

0413  REF  12  LAST 


256 

256 

256 


')7,2453  0 5567  0 

07.2454  00107  1 

07.2455  C 2513  I 

07.2456  1 2626  0 

07.2457  C 5270  1 


ALARM 

107 

MARKTYFE 

DSPV6N79 

RESUME 


ATTEMPTING  TO  MAKE  MOPE  THAN  5 MK  PAIRS 

SEE  IF  SURFACE  MARK 
IT  IS 

DONT  CHANGE  OISPLAY-00  NOTHING 


GAP;  ASSEMBCe  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C91 


L ACTMARK 


041A  REF  3 LAST  257 

OAl^l  REF  1 


07,2A60  0 2513  I MKR6J  TC 
77,2A61  1 2506  1 TCF 


MARKTYPE 

SURFREJ 


04142  REF 

0415  REF 

0416  REF 

0417  REF 

0418  REF 

0419 

0420  REF 


3 

19 

60 

1 

16 

13 


LAST  253 
LAST  256 
LAST  256 

LAST  257 

LAST  257 


07.2462  2 5015  0 CAF 

07.2463  7 1307  0 MASK 

07  ,2464  10  000  0 CCS 

07.2465  1 2471  0 TCF 

07.2466  0 5567  0 REJALM  TC 

07.2467  00115  1 OCT 


07,2470  0 5270  1 TC 


PR  IC3 

MAPKSTAT 

A 

REJECT 

ALARM 

115 

RESUME 


0421  REF  5 LAST  229 

0422  REF  20  LAST  258 

0423  REF  19  LAST  221 

0424  REF  21  LAST  258 

0425  REF  20  LAST  258 


0426  REF  61  LAST  258 

0427  REF  1 


07.2471 

07.2472 

07.2473 

07.2474 

07.2475 

07.2476 

07 .2477 


4 4355  1 
7 1307  0 

6 4737  0 
57*307  1 

7 4737  1 
10  000  0 
1 2 504  0 


REJECT 


CS  PPI030 

MASK  MARKSTAT 
AO  BIT13 

XCF  MARKSTAT 
MASK  BIT13 

CCS  A 

TCF  PFJECT2 


0426 

0429 

0430 
0433 


REF  13  LAST  256 
REF  22  LAST  258 
REF  23  LAST  258 
REF  1 


07.2500  4 1551 

07.2501  7 1307 
C7,2502  55*307 
07,2503  1 2576 


0 CS 

0 RENEWMK  MASK 
0 TS 

C TCF 


XYMARK 

MARKSTAT 

MARKSTAT 

REMARK 


0432  REF 

0433  REF 


LAST  258 


07.2504 

07.2505 


4 5015  1 REJECT2  CS 
1 2501  0 TCF 


PR  103 
RE^E^.MK 


04331  REF 
0433  2 

04333  REF 

04334  REF 

04335  REF 


9 LAST  2‘=6 
1 

10  LAST  258 
14  LAST  258 


07.2506  11*550 

07.2507  I 2511 

07.2510  1 2466 

07.2511  55'550 

07.2512  0 5270 


1 SURFREJ  CCS 
1 TCF 

Q TCF 

1 TS 

I TC 


NARKCNTP 
+ ? 

RE  JALM 

MARKCNTR 

RESUME 


17:53  OEC«  10,1969 


LEMGNAID^IO^  PAGE  258 


USER  • S PAGF  NOe  1*  E7  S3 

SEE  IF  SURFACE 

SURFACE-JUST  CHFCK  MARK  COUNTER 
INFLIGHT-SEE  IF  MARKS  MADE 

MARKS  MACE-REJECT  ONE 

NO  MARK  TO  PEJECT-EAO  PROC EOURE- AL AR M 

DESIRED  ACTION  CISPLAYEC 

ZERO  PIT14,SH0W  RFJefSEE  IF  MARK  SINCE 
LAST  REJECT 


ANOTHER  REJECT  SET  BIT  3.n+ll  TO  ZERO 
MARK  MADE  SINCE  R EJFCT-F EJECT  MAPK  IN  ID 

GO  REQUEST  NEW  MAPK  ACTION 
ON  SECOND  REJECT-DISPLAY  VB53  AGAIN 

IF  MAPK  OECRFMENT  COUNTER 
NO  MARKS  TO  reject-alarm 


GAP;  ASSEMBLE  REVISION  131  OF  AGC  PPCGRAP  LUMINARY  BY  NASA  2021112-091 


17:53  OECo  19,1969 


L EMONA lOc 194  PAGE  259 


L ACTMARK  USER'S  PAGE  NCo  15  E7  S3 

R0434 

R0435  MARKTYPE  TESTS  TO  SEE  IF  LEM  CN  LUNAR  SURFACEo  IF  IT  IS  RETURN  TC  LCC+l 


0436 

0437 

0438 

0439 

0440 


REF  1 

REF  19  LAST  234 
REF  b2  LAST  258 
REF  21  LAST  255 
REF  22  LAST  259 


17.2513 

07.2514 

07.2515 
07  ,2516 
C7,2517 


4 0104  0 MARKTYPE  CS 


7 4744  0 MASK 

IC  OOC  0 CCS 

24  002  0 INCR 

C CCC2  0 TC 


FLAGWP08 

BITa 

A 

0 

0 


SURFFLAG*******TEMPnRAPY***** 


IF  SURFACE  MARK  REUTNR  TC  LOC  +1 
IF  INFLIGFT  MARK  RETURN  TO  LOC  +2 


04401  REF  24  LAST  256 

04402  REF  15  LAST  256 


17,2520  3 4755  1 

C7,2521  54  070  1 


SURFSTOR  CAF 
TS 


ZERO 

RUPTREGl 


FOR  SURFACF  MARK  ZEPO  MARK  KINO  INDEX 


04403  REF  24 

04404  REF  5 

04405  REF  25 


LAST  256  37 

LAST  258  07 

LAST  259  07 


, 2522  4 13C7  0 

,2523  7 5015  1 

,2524  27*307  0 


CS  MARKSTAT 

MASK  PRI03 
ADS  MARKSTAT 


SET  BITSlOtll  TO  SHOW  SURFACE  MARK 
FOP  MARKCHEX 


0441  PEF 

0442  REF 

0443  REF 

0444 

0445  REF 

0446  REF 

0447  REF 

0448 

0449  REF 

0450  REF 

0451  KEF 
04511  REF 

0452  REF 

0453  REF 

0454  REF 

0455 

0456  REF 

0457  REF 

0458 

0459  REF 

0460  REF 

0461 

04611  RFF 

04612  PEF 


4 LAST  253 
26  LAST  259 

6 LAST  173 

5 LAST  255 
1 

11  LAST  258 

4 LAST  253 
19  LAST  253 

7 LAST  ?59 

16  LAST  259 

5 LAST  254 

6 LAST  255 

17  LAST  259 

4 LAST  255 

18  LAST  259 

3 LAST  255 

19  LAST  259 

4 LAST  258 
1 


07.2525 

07 .2526 

07. 2527 
07,2530 
C7,2531 

07. 2532 

07.2533 

07.2534 

07.2535 
07,25  36 
07,2537 
•07  ,2  540 
07,2541 
C7,2542 

07.2543 

07.2544 

07.2545 

07.2546 

07.2547 

07.2550 

07.2551 

07.2552 

07.2553 

07.2554 


2 5004  0 
7 1307  0 
54  C7l  0 
0 0006  1 
2 0062  0 
52'562  0 

3 1550  0 
0 0006  1 
7 6245  0 
56  001  0 
6 C071  I 
26  070  I 
55' 552  0 
2 0063  1 
50  070  0 
54  000  0 

2 0064  0 
50  070  n 
54  CC2  1 

3 0065  1 
50  070  0 
54  004  1 

0 2513  1 

1 2603  1 


VACSTDR 


CAF  L0l%9 

MASK  MARKSTAT 

TS  PUPTREG2 

EXTEND 

OCA  ITEMPl 

DXCH  TSIGHT 

CA  MARKCNTR 

EXTEND 
MP  SI  X 

XCF  L 

AD  PUPTREG2 

ADS  RUPTREGl 

TS  MKDEX 

CA  1TEMP3 

INDEX  RUPTREGl 

TS  0 

CA  ITEMP4 

INDEX  RUPTREGl 

TS  ? 

CA  ITEMP5 

INDEX  RUPTREGl 

TS  * 

TC  MARKTYPE 

TCF  SURFJDB 


STORE  MARK  VAC  ADR  IN  PUPTREG2 


PICK  UP  MARKTIMF 

STORE  LAST  MARK  T 1 PE 

6 X MARKCNTR  FOR  STCRF  INDEX 


GET  INDEX  FROM  LOW  ORDER  PART 
SET  ecu  STORF  INDEX  Tn  MARKVAC 
INCREMENT  VAC  PICKUP  PY  MARK  FOR  FLIGHT 
STORE  HERE  IN  CASE  OF  SURFACE  MARK 


STDRE  CDUY 


STORE  CCUZ 


STORE  COUX 

IF  SURFACE  MARK-JUST  DC  SUPFJCB 


0462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 


LAST 

LAST 


PEF  27  LAST  259 
REF  15  LAST  259 
KEF  28  LAST  259 
REF  6 LAST  259 
PEF  20  LAST  259 


07.2555  2 4737  0 

07.2556  6 1551  1 

07.2557  4 0000  0 

17.2560  7 1307  0 

07.2561  6 1551  1 

07.2562  55*307  0 

07.2563  7 5015  1 

07.2564  54  001  1 


CAF  BIT13  CLEAR  BIT13  TC  SHCW  MARK  MACE 

AO  XYMARK  SET  MARK  ID  IN  MARKSTAT 

COM 

MASK  MARKSTAT 
AO  XYMARK 

TS  MARKSTAT 

MASK  PRI03  SEF  IF  X,  Y MARK  MADE 

TS  L 


LFMONAID  104 


PAGE  260 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


17: 53  OEC«  19,1969 


L ACTM^RK 


USER'S  PAGE  NCe  16 


E7  S3 


0470  REF  7 

0471 

0472  REF  9 

0473  REF  63 

047^*  REF  2 

0475  REF  2« 

0476  REF  26 

0477  REF  30 

0478  REF  3 


LAST  259 

LAST  253 
LAST  259 
LAST  25a 
LAST  259 
LAST  256 
LAST  260 
LAST  260 


07.2565 

07.2566 

07.2567 

37 .2570 

07.2571 

37.2572 

07.2573 

07.2574 

37.2575 


3 5015  0 
C OOC6  1 
06  001  0 
1C  000  0 
1 2576  C 

4 1307  0 
7 4736  0 
27'307  0 
1 2576  0 


CA  PR  103 

EXTEND 

RXOR  LCHAN 

CCS  A 

TCF  REMARK 

CS  MARKSTAT 

MASK  BIT14 

AOS  MARKSTAT 

TCF  REMARK 


NOT  PAIR  YFT,  CISPLAY  MARK  ACTION 
MARK  PAIR  COMPLFTE-SFT  PI TIA 


GO  DISPLAY  V54 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 


0A81  RFF  8 LAST  260  07,2576  3 5015  0 REMARK  CAF  PRI03 

0A82  REF  31  LAST  260  07,2577  7 13C7  0 MASK  MAPKSTAT 

0A8?  07,2600  C 0006  1 EXTEND 

0484  RfcF  29  LAST  22S  C7,2601  7 4746  1 MP  BIT6 

0485  REF  6 LAST  259  07,2602  55'552  0 TS  MKDEX 

0486  REF  3 LAST  245  07,2603  3 5025  0 SURFJOB  CAF  PRI015 

0487  REF  3 LAST  194  07,26C4  0 5072  1 TC  NOVAC 

0488  REF  16  LAST  259  E7,1551  EBANK=  XYMARK 

0489  REF  1 07,2605  02610  1 2CA0R  CHANGEVB 

0489  REF  1 07,2606  16C67  1 


0490  REF  15  LAST  258  07,2607  0 5270  1 


TC 


RESUME 


0491 

0492 

0493 

0494 
04941 


REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 


2 59 
257 
261 


07.2610 

07.2611 

07.2612 

07.2613 

07.2614 


0 2513  1 

1 2626  0 
51*552  1 
3 2615  1 
0 2211  1 


CHANGEVB  TC 
TCF 
INDEX 
CAF 
TC 


MARKTYPE 

DSPV6N79 

MKDEX 

MKVB54 

PASTIT 


THE  FOUR  MKVBS  ARE  I NUEXEO-THE I R CRDER  CANNCT  BE  CHANGED 


0497 

0498 

0499 

0500 

0501 

0501 

0502 

0503 
05031 


07.2615 

07.2616 

07.2617 

17.2620 

07.2621 

07.2622 

07.2623 

07.2624 

07.2625 


15507  I 
15307  I 
15107  0 
15507  1 
04000  0 
COOCO  1 
00034  0 
01507  I 
C1517  0 


HKVB54 

MKVe53 

MKV652 

MKV854* 

DPl/8 

0CT34 

V06N71 

VC6N79* 


5471 

5371 

5271 

5471 

ol25 

34 
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BITS  10  AND  11 

SHIFT  MARK  IDS  TO  BE  0 TO  3 FOR  INDEX 
STORE  VERB  INDEX 

ENTER  JOB  TO  CHANGE  DISPLAY  TO 
RFOUeST  NEXT  ACTION 


SURFACE-DISPLAY  V 06  N 79 
INFLIGHT-PICK  UP  MARK  VB  INDEX 

PASTE  UP  NEXT  MK  VERB  DISPLAY 


OP  Y MARK 


MAKF  Y MARK 
MAKE  X MARK 
MAKE  X OR  Y 


MARK 


GAP 


ASSEPBLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2D21U2-('01 


L AOTMARK 


P0504 

0505 


ROUTINE  TO  REQUEST  CURSOR  ANC  SPIRAL 
REF  1 


MEA5LREMGNTS 

COUNT* 


SS/RSQ 


0506 

0507 

0508 


REF  1 

REF  12  LAST  253 
REF  4 LAST  2^7 


07.2626 

07. 2627 
C7,2630 


3 2625  1 
0 4616  1 
20334  1 


0SPV6N79  CAF 


V06N79* 

BANKCALL 

GOMARKF 


0509  REF 

0510  REF 

0511  REF 

05111  REF 

05112  REF 

05113  REF 

05114  REF 


4 LAST  253 
1 

30  LAST  261 
32  LAST  230 
64  LAST  260 
1 

3 LAST  261 


07.2631  1 2C60 

07.2632  1 26A0 

07.2633  3 4746 

07.2634  7 0154 

C7  ,2635  10  000 

07.2636  1 2644 

07.2637  1 2626 


TCF  KI  LLACT 

TCF  SURFENO 

CAF  BIT6 

MASK  MPAC 

CCS  A 

TCF  SURFAGAN 

TCF  0SPV6N79 


0512  REF  27 

0513  REF  32 

05131  REF  28 

0514  REF  33 


LAST  260  07 

LAST  261  07 

LAST  262  07 

LAST  262  07 


,2640  4 4736  0 

,2641  7 1307  0 

,2642  6 4736  1 

,2643  55*307  0 


SURFENC  CS 

MASK 

AD 

TS 


BIT14 
MARKSTAT 
B IT14 
MARKSTAT 


0515 

0516 

0517 

0518 

0519 

0520 


1 07,2644 

8 LAST  261  07,2645 

07,2646 

1 07,2647 

9 LAST  262  07,2650 

07,2651 


54  QCl  1 
3 1237  0 
51' 552  1 
54  0C3  0 


SP IPA  L 
MKOEX 


0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 


REF  34 
REF  29 

REF  2 
REF  12 
REF  1 1 

REF  6 

REF  2 
REF  13 
REF  3 


LAST  262 
LAST  262ij 

LAST  253 
LAST  259 
LAST  256 

LAST  254 

LAST  256 
LAST  262 
LAST  254 


07.2652 

07.2653 
C7,2654 

07.2655 

07.2656 

07.2657 

07 .2660 

07.2661 

07.2662 

07.2663 

07.2664 
07  ,2665 


^ 1307  0 
7 4736  0 
C 0006  1 
1 2216  1 

3 1550  0 
6 4753  1 

4 0000  0 
6 4756  1 

0 0006  I 
6 2453  1 
25'550  0 

1 2205  0 


CS  MARKSTAT 

MASK  B1T14 
EXTEND 

BZF  MARKCHEX 


CA  MARKCNTR 

AO  ONE 

CCM 

AD  FIVE 

EXTEND 

6ZMF  5MKALARM 

INCR  MARKCNTR 

TCF  GETMKS  +3 
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CURSOR-SPIRAL  DISPLAY 


V?i-CGeS  GOTOPOOH 

V33-PRQCEED,  END  MARKING 

IF  V32(0CT4ni  IN  MPAC  DO  RECYCLE 

CTHERWISF  IT  IS  LOAD  VP  ENTFR  SO 

RE-Dl  SPLAY  vn6N79 

VB32-RECYCLE 

ENTER 

SET  BIT14  TO  SHOW  MARK  FNO 


HOLDS  VAC  AREA  POINTER  FOR  SURF  MARKING 
STORE  CURSOR  SP  2C0MP 


STORE  SPIRAL 

IF  PIT  14  SFT-GND  MARKING 


THIS  IS  RECYCLE-SEE  IF  5 MARKS  ALREADY 


CANT  RECYCLE-TO  MANY  MAPKS-ALARM 
CF  FOR  RECYCLE-INCP  COUNTER 
GO  DISPLAY  MARK  V6 


gap: 

L 

0001 

0002 

0003 

0004 

0005 

R0006 

0007 

0008 

0009 

0010 

AOOll 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

002  5 

0026 

0027 

002  8 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0030 

0039 

0040 

0041 

0042 

0043 

0044 

A0045 

0046 
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EXTENDED  VERBS 


USER'S  PAGE  NOe 


EO  S3 


REF  1 


07,2666 
43,7000 
43, 20C0 


HANK  7 
SFTLCC  ExTVEReS 
BANK 


REF 


LAST  198  E5,1737 


C8ANK=  OGC 


REF  I 
FAN-CUT 


COUNT*  $$/EXTVB 


REF  33  LAST  262 
REF  1 


43.2000  50  154  1 G0EXTV8  INDEX 

43.2001  C 2002  1 TC 


MPAC 

LST2FAN 


VERB-40  IS  IN  MPAC 
FAN  AS  BEFOPEo 


REF 

REF 

PEF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST  263 


LAST  263 
LAST  263 
LAST  263 
LAST  263 


,2004 
,2005 
,20C6 
,2  007 
,2010 
,2011 
,2012 
,2013 
,2014 
,2015 
, 2016 
,2017 
,2020 
,2021 
,2022 
,2023 
,2024 
,2025 
,2026 
,2027 
,2030 
,2031 
• 2032 
,2033 
,2034 
,2035 
,2036 
,2037 
,2040 
,2041 
, 2042 
,2043 
,2044 


0 2371  0 
0 2733  1 
0 2305  G 
0 2116  0 
0 2116  0 
0 2430  I 

0 3156  0 

1 3C36  0 
0 2422  I 
0 2116  0 
0 2422  I 
0 2422  1 
0 2422  1 
0 2442  1 
0 3045  0 
0 2325  I 
0 2366  0 
0 2147  1 
0 2175  0 
0 2165  1 
0 2170  0 
C 2455  1 
0 2725  0 
0 3246  1 
0 3163  0 
C 3240  I 
0 2116  0 
0 2037  1 
0 3751  1 
0 3753  0 
C 3755  0 
C 3757  1 
C 3066  1 


43  ,2045  0 3251  1 


TC  VBZERO 

TC  VBCCARK 

TC  IMUFINFK 

TC  IMUATTCK 

TC  RROESENC 

TC  ALM/END 

TC  ALM/ENC 

TC  V47TXACT 

TC  DAPDISP 

TCF  CREWMANU 

TC  GOLOADLV 

TC  ALM/END 

TC  GOLCAOLV 

TC  GOLOADLV 

TC  GOLCAOLV 

TC  AL  INTI  ME 

TC  TRMTPACK 

TC  LRCN 

TC  LROFF 

TC  LRP0S2K 

TC  RATEDISP 

TC  DAPATTER 

TC  TOTATTER 

TC  R04 

TC  VB64 

TC  SNUFFOUT 

TC  ATTACHED 

TC  V67 

TC  ALM/END 

TC  VERB69 

TC  V70UP0AT 

TC  V71UPDAT 

TC  V72UP0AT 

TC  V73UPDAT 

TC  DNEDUM.P 

TC  OUTSNUFF 


VB40 

VS41 

VB42 
V843 
VB<‘4 
VB45 
V046 
VB47 
VB48 
Ve4P 
VB50 
VB51 
VB52 
V053 
VB54 
VR55 
V8  56 
VB57 
vBse 

VB59 
V06O 
VB61 
VB62 
V663 
V0  64 
V865 
VB66 
VR67 
VB68 
VB69 
V07r 
VB71 
VB7? 
ve73 
VB74 

VB75 


ZERO  (USED  WITH  NCUN  20  OR  72  ONLY  I 
COARSE  ALIGN  (USED  WITH  NOUN  20  OR 
72  ONLY) 

FINE  ALIGN  IMU 

LOAD  IMU  ATTITUDE  ERROR  MfTEPS. 
TERMINATE  CCNTINUCUS  DESIGNATE 
SPARE 
SPARE 

AGS  INITIALIZATION 
LOAD  A/P  DATA 

START  AUTOMATIC  ATTITUDE  MANEUVER 

PLEASE  PERFORM 

SPARE 

PLEASE  MARK  X - RFTICLEo 
PLEASE  MARK  Y - RETICLE^ 

PLEASE  MARK  X OR  Y - RETICLE 
ALIGN  TIME 

TERMINATE  TRACKING  - P20  4 P25 
PERMIT  LANDING  RADAR  UPDATES 
INHIBIT  LANDING  RADAR  UPDATES 
COMMAND  LR  TO  POSITION  2. 

DISPLAY  PAP  ESTIMATED  RATES 
DISPLAY  DAP  ATTITUDE  ERROR 
DISPLAY  TOTAL  ATTITUDE  ERROR 
SAMPLE  PACAR  CNCE  PER  SECOND 
CALCULATE, DISPLAY  S-BANO  ANT  ANGLES 
DISABLE  U,V  JETS  DURING  DPS  BURNS* 
ATTACHED  MOVE  THIS  TC  OTHER  STATE 
W MATRIX  MCNITCR 
SPARE 

FORCE  A HARDWARE  RESTART 
UPDATE  LI  FTGFF  T IHEr. 

UNIVERSAL  UPDATE  - BLOCK  ADDRESS. 
UNIVERSAL  UPDATE  - SINGLE  ADDRESS* 
UPDATE  AGC  TIMF  (CCTAL), 

INITIAIIZE  DOWN- TELEMETRY  PROGRAM 
FOR  ERASABLE  CUMPo 
ENABLE  U,V  JF7S  DURING  DPS  BURNS. 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPOCRAM  LUMINARV  BY  NASA  2021112-091 


L EXTENOEO  VERBS 


0047  REF  1 

0048  REF  1 

0049  REF  I 

0050  REF  1 

0051  REF  1 

0052  REF  1 

0053  REF  1 

0054  REF  1 

0055  REF  5 

0056  REF  1 

0057  REF  F 

0050  REF  7 

0059  REF  8 

0060  REF  1 

0061  REF  1 

0062  REF  ] 

0063  REF  1 

0064  REF  1 

0065  REF  9 

0066  REF  1 

0067  KEF  1 

0068  REF  5 

0069  REF  10 

0070  REF  6 


LAST  263 

LAST  264 
LAST  264 
LAST  264 


LAST  264 


LAST  263 
LAST  264 
LAST  264 


43,2C46  0 3025  0 

43»2047  0 3030  1 

43.2050  0 2445  C 

43.2051  0 2655  0 

43.2052  0 3072  1 

43.2053  C 3075  0 

43.2054  0 2772  1 

43.2055  C 3002  0 

43.2056  0 2116  0 

43.2057  0 3254  1 

43.2060  0 2116  0 

43.2061  C 2116  0 

43.2062  0 2116  0 

43,  2063  0 3010  0 

43.2064  0 3017  1 

43.2065  0 3121  0 

43.2066  0 3105  0 

43.2067  0 3114  0 

43.2070  C 2116  C 

43.2071  0 3102  1 

43.2072  C 3233  0 

43.2073  0 2422  1 

43,207i  0 2116  0 

43,2075  C 2422  1 


TC  MINIMP 

TC  NOMINIMP 

TC  P77 

TC  P77EN0 

TC  LEMVeC 

TC  CSMVEC 

TC  V82PERF 

TC  V83PERF 

TC  ALM/ENO 

TC  VERB85 

TC  ALM/ENC 

TC  ALM/ENO 

TC  ALM/ENO 

TC  V89PERF 

TC  V90PERF 

TC  GOSHOSUM 

TC  SYSTEST 

TC  WMATRXNG 

TC  ALM/FNC 

TC  UPDATOFF 

TC  veRB96 

TC  GOLOAOLV 

TC  ALM/ENO 

TC  GOLCADLV 


R0071  END  OF  EXTENCEC  VERB  FAN 


0072  REF 

0073  REF 

0074  REF 

0075  REF 

00751  REF 

00752  REF 

0076  REF 

0077  REF 
AOC70 


5 LAST  247 

11  LAST  264 
2 LAST  224 
1 

65  LAST  262 

12  LAST  264 

1 

6 LAST  264 


43.2076  11'043 

43.2077  r 2116 

43.2100  3 0100 

43.2101  7 2125 

43.2102  10  000 

43.2103  0 2116 

43.2104  3 4362 

43.2105  E5'043 


0 TESTXACT  CCS 
0 TC 

0 CA 

1 MASK 

0 CCS 

0 TC 

1 CAF 
0 SETXTACT  TS 


FXTVBACT 

ALM/ENO 

FLAGWR04 

0C24100 

A 

ALM/END 
OCT25 
E XTVBACT 


0079  REF 

0080  KEF 


23 

34 


LAST  259 
LAST  263 


43.2106 

43.2107 


3 CC02  0 
54  155  I 


0 

MPAC 


+ 1 


0081  REF 

0082  REF 

0083 

00835  REF 

00836  REF 


LAST  245 

LAST  223 


43.2110 

43. 2111 

43.2112 

43.2113 

43. 2114 


4 4752  1 
C 4154  0 
C 2113  0 
JO  067  1 
C 5122  0 


CS  THC 

TC  NVSUB 

TC  ♦! 

CCS  NEWJOB 

TC  CHANGl 


0084  REF 
0087  REF 


LAST  264 
LAST  210 


43  ,2115  0 0155  0 

5472 


TC  MPAC  +1 

TERMEXTV  EQUALS  ENDEXT 
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VB76 

VR77 

vp7e 

V679 
VR0O 
VB81 
VR82 
V883 
VS04 
V685 
VB8  6 
VBe7 

veep 

VB89 
VB90 
VB91 
Vpo2 
VB93 
ve9  4 
VB95 
VB96 
VB97 
VB08 
VB99 

MINIMUM  IMPULSE  MODE 

RATF  COMMAND  MODE 

START  LP  SPURIOUS  RETURN  TEST 
TERMINATE  LR  SPURICUS  RETURN  TEST 
UPDATE  LEM  STATE  VECTOR 

UPDATE  CSM  STATE  VECTOR 

REQUEST  ORBIT  PARAM  DISPLAY  (R3n) 
REQUEST  REND  PARAM  DISPLAY  (R31) 
SPARE 

DISPLAY  RP  LOS  AZ  AND  ELEV 

SPARE 

SPARE 

SPAR  F 

ALIGN  XORZ  LEM  AXIS  ALONG  LOS  (R63) 
OUT  OF  PLANE  RENDEZVOUS  DISPLAY 
DISPLAY  BANK  SUM-. 

OPERATE  IMU  PERFORMANCE  TEST, 

CLEAR  P.ENDWFLG 

SPARE 

NO  STATE  VECTCR  UPDATE  ALLOWED 
INTERRUPT  INTEGRATION  AND  GO  TO  POO 
PLEASE  VERIFY  ENGINE  FAILURE 

SPARE 

PLEASE  ENABLE  ENGINE 

APE  EXTENDED  VERBS  BUSY 

YES,  TURN  ON  OPERATOR  LIGHT 

ARE  PRIORITY  DISPLAYS  USING  OSKY 

YES 

SET  BITS  ) , 3,  AND  5 

NOp  SET  FLAG  TC  SHCW  FXT  VEP8  DISPLAY 
SYSTFM  BUSY 


PLANK  EVERYTHING  EXCEPT  MM  AND  VERB 


GAP 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  RY  NASA  2021112-091 


L EXTENDED  VERBS 

0088  REF  7 LAST  264  5472 


ENCEXTVB  EQUALS  ENCEXT 


0091  REF 

0092  REF 

0093  REF 


LAST  234 
LAST  256 
LAST  229 


43»2116  0 4364  1 ALM/ENO  TC 

43»2117  0 4635  0 GOPIN  TC 

43,2120  21051  0 CACR 


FALTON 

POSTJUMP 

PINBPNCh 


0094 

0095 

0096 

0097 


REF  6 LAST  233 
REF  1 

REF  13  LAST  264 


43, 2121 
43  ,2122 

43.2123 

43.2124 


3 1010  1 

0 3006  1 

1 6745  0 
0 2116  0 


CHKPOOH 


CA  MODREG 

EXTEND 
6ZF  TCQ 

TC  ALM/ENO 


00971 


43,2125 


24100  0 CC24100  OCT 


24100 
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i 


USER’S  PAGE  NCo  3 E5  S4 


TURN  ON  OPERATOR  ERROR  LIGHT 


CHECK  FOR  PCO  CP  PCC-o 
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LEMONAIDoinA  PAGE  266 


L EXTENDED  VERBS 


USER*  S PAGE  NCe  * E5  SA 


P0098 

R0099 

ROIQO 

ROlOl 

R0102 

R0103 

ROlOA 

R0105 

R0106 


VERB  AO 


DESCRIPTION 


e RECUIRE  NCUN  20  (ICCU  ANGLES)  OR  NOUN  72  (RCOU  ANGLES)* 

FOR  N20,  CHECK  I PUCADR  IN  AN  EFFORT  TO  AVOID  A 1?10  RESTARTc 
FOR  N72,  CHECK  IF  EITHER  RADAR  IS  IN  USE* 

• EXECLTE  THE  CCL  ZERO* 

• STALL  UNTILL  THE  ZERO  IS  DONE, 

0 DON'T  CIFFEREMATE  EETHEEN  A BAD  OR  GOOD  RETURN'* 

• EXIT,  RE-ESTABLISHING  THE  INTERRUPTED  DISPLAY  (IF  ANY)* 


0111  REF 

0112  REF 

0113  REF 
01131  REF 
OllA  REF 


1 

1 
1 
1 

13  LAST  262 

2 LAST  210 


^(3,2126  C 2203 
A3, 2127  0 2131 

A3, 2130  0 21A0 

A3, 2121  0 2A36 

A3, 2132  0 A616 

A2,2132  16705 


VBZERO  TC 
TC 
TC 

IMUZEROK  TC 
TC 

CADR 


CP/INEPT 

IMUZEROK 

PRZEROK 

CKMODCAD 

BANKCALL 

I MUZERC 


RETURN  HERE  IF 
RETURN  HERE  IF 


NOUN  = IC0U(20) 
NOUN  = PCDU(72) 


KEYBOARD  REO  FOR  I SS  CDUZERO 


0115  REF  lA  LAST  266 

0116  REF  2 LAST  210 

0117 


A3,213A  0 A616  1 
A3, 2135  17707  1 
A3, 2136  C 2127  0 


TC  BANKCALL  STALL 

CACR  IMUSTALL 
TC  +1 


0118  REF 


A3, 2137  0 2117 


TC  GOPIN  IMUZERO 


0120  REF  1 

01202  REF  15  LAST  266 

0121  REF  1 


A3,21AC  C 270C  1 
A3,21A1  0 A616  1 
A3,21A2  5235A  1 


RRZERCK 


TC 

TC 

CACR 


RCRUSECK 

BANKCALL 

RRZERO 


0122  REF  16  LAST  266 

0123  REF  1 

012A 

0125  REF  2 LAST  266 


A3,21A3 
A3,21AA 
A3,21A5 
A3, 21A6 


C A616 
17705 
1 21A6 
C 2117 


I 

0 

1 

I 


RRAI TK 


TC  BANKCALL 

CADR  PADSTALL 

TCF  +1 

TC  GORIN' 


R0126 

R0127 

R0129 

RO130 

R0131 

R01311 


LRP0S2K  VERB  59  DESCRIPTION 

COMMAND  LANDING  RADAR  TO  POSITION  2 
1*  EXIT  WITH  CP  ERROR  IF  SCHEONE  IS  USING  EITHER  RADAR* 
2*  ALARM  WITH  CCCE  523  IF  POS  2 IS  NOT  INDICATED  WITHIN 
THE  PRESCRIBED  TIME* 

3*  RE-ESTABLISH  TFE  DISPLAYS* 


0132  REF 
01322 
0132A  REF 
01326  REF 

0133 

01332  REF 
0133A 

013A  REF 
013A1  REF 
013A3  REF 
013AA 


6 LAST  253 

2 LAST  230 
1 

1 

2 LAST  266 
17  LAST  266 
\ 


A3,21A7  0 60A2 
A3, 2150  7761A 
A3  , 2151  03752 
A3, 2152  66161 
A3, 2153  77776 
A3,215A  0 5321 
A3, 2155  C0077 
A3, 2156  1 2162 
A3, 2157  C A616 
A3, 2160  535A1 
A3  ,2161  77776 


1 LRPCS2K  TC 
I BOFF 

I 
1 

1 EXIT 

1 TC 

I DEC 

1 TCF 

1 TC 

I CACR 

1 LRP0S2K1  EXIT 


INTPPET 

AVEGFLAG 

LRP0S2K1 

CHECKMM 

63 

LRPCS2K1 

BANKCALL 

V59GP63 


I S AVG  G CN  ? 

NO 

YES:  IS  P63  GOING  ? 

NO;  COMMAND  LP  TO  PrS2 
YES:  GO  SET  UP  HIGATF  JOB 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-C91 

L EXTENDED  VERBS 


17:53  OECo  19,1969  LERONAIO 
USER'S  PAGE  NOo  5 


lOA  PAGE 
£5  SA 


267 


013A5 

01346 

01347 
R0135 


REF  18 
REF  1 
V61 


LAST  266 
LAST  266 


43,2162  0 2700  1 
43  ,2163  0 4616  1 
43,2164  53531  0 


TC  RDRUSECK  CHECK  USE  CF  LR 

TC  BANKCALL 

CACR  LRP2C0MM  COMMAND  LR  TO  P0S2 


VERB  61, 


DISPLAY  DAP  ATTITUDE 


ERRORS  ON 


FDAI  ATTITUDE  ERROR  NFEDLESe 


0137 

0138 

0139 


REF  13  LAST  233 
REF  1 

REF  2 LAST  263 


43.2165  0 5516  0 

43.2166  C0C13  0 

43.2167  1 2172  0 


CAPATTER 


TC 

ADRES 
TC  F 


DOUNFLAG 

NEEDLFLG 

TOTATTER 


R0140  V62 


VERB  62,  DISPLAY  TOTAL  ATTITUDE  ERRORS  ON  FDAI 


ATTITUDE  ERROR  NEEDLESo 


0142  REF 

0143  REF 

01431  REF 

01432  REF 

0144  REF 


LAST  267 
LAST  267 

LAST  266 


43.2170 

43.2171 

43.2172 

43.2173 

43.2174 


0 5504  0 
00013  0 
C 5516  C 
00000  1 
C 2117  1 


TOTATTER  TC  UPFLAG 

AORES  NEEDLFLG 
+2  TC  OOWNFLAG 

AORES  NEE02FLG 
TC  GOPIN 


R01441  V60 


VERB  60,  DISPLAY  DAP  ESTIMATED  RATES  ON  FDAI  ATTITUDE  ERROR  NEECLFSo 


01445  REF 


267 

267 

267 


43  ,2175 

43.2176 

43.2177 


0 5504  0 
00000  1 
0 2117  1 


UPFLAG 
NEEC2  FLG 
GOPIN 


R0145 


gap:  assemble 

L EXTEND 

P01A6 
R01A7 
R0148 
R01^9 
R0151 
R0152 
R0153 
R0154 
R0155 
ROI  56 
R0157 
ROisa 
R0168 
ROIA** 

R0170 
R0171 
R0172 
R0173 
ROI  74 
R0175 
R01755 
R0176 
R0178 
R0179 
RO180 
ROiei 
R0182 
R0184 
R0185 
R0186 


REVISION  131  OF  AGC  PPCGRAP  LUMINARY  BY  NASA  2021112-091 
EC  VERBS 

description 
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USER’S  PAGE  NCe  6 E5  S4 


V8C0ARK  VERB  41 

irMirpLfr/ISRN'oN^PERATCP  6PRCK  LIGHT  AMO  GO  TO  PINBPNCH, 

CASE  I NOUN  20  (ICDU  ANGLES) 

3.  SET  EXT  VERB  DISPLAY  ACTIVE  FLAG*  cc. 

4o  DISPLAY  FLASHING  V25tN22  (LOAD  NEW  ICDU  ANGLES)* 

RESPONSES 

A*  TERMINATE 

la  RELEASE  EXT  VERB  DISPLAY  SYSTEM 
^“J'^COARSE  align  to  THE  EXISTING  THETAO'S  (ICCRK2), 

^"lI^COARSE  ALIGN  TO  THE  LOADED  THETAO'S  (ICQRK2). 

IC0RK2 

la  RE-OISPLAY  VERB  41* 

2-  EXECUTE  IMLCCARS  ( 1 MU  CCARSE  ALIGN)* 

3a  EXECUTE  IMLSTALL  (ALLOW  TIME  FOR  DATA  TRANSFER)* 

4a  RELEASE  EXT  VERB  DISPLAY  SYSTEMa 
rASF  2 NCUN  72  (RCCU  ANGLES) 

B/SrSPrirprASnrvi:.^?3^a^0Ai\^^'rp  ANO  NPW  SHAPT  AHGLP,. 

RESPONSES 
Ao  TERMINATE 

la  RELEASE  EXT  VERB  DISPLAY  SYS* 

la^EXECUTF  AURLOKON  (ASK  OPERATOR  FOR  LOCK-CN  REQUIREMENTS)* 

2«  RE-DISFLAY  verb  41* 

3a  SCHEDULE  RR0ESK2  WITH  PRIORITY  20* 

4«  RELEASE  fXT  VERB  DISPLAY  SYSa 


R01fi7 

R0188 
R0189 
ROI  90 
ROI  94 
RC195 
R01951 
R01952 
R0196 
R0197 
C198 
0199 
0230 
R0201 


REF 

REF 

REF 


AURLOKON 

la  FLASH  V04  M2  R1  = 00006  R2  = 00002 
RESPONSES 
Ao  TERMINATE 
Ba  PROCEED 

la  RESET  LCCK-ON  SWITCH 

2a  SET  CONTINUOUS  DESIGNATE  FLAG 

3a  DISABLE  R25 

Co  V22  6 1 El  Rl  - OOOOli  PRCCEEC 
la  SET  LCCK-ON  SWITCH 

last  266  43,2200  0 2203  1 VBCOARK  TC 

43.2201  C 2214  1 TC 

43.2202  0 2236  1 TC 

RETURNS  TO  L+1  IF  IML  CR  L+2  IF  RR* 


OP/  INERT 
IMUCOAPK 
RRDESNBK 


0202  REF 

0203  REF 

0204 


2 LAST  233 
2 LAST  224 


43,2203 
43  ,2204 
43,2205 


L 6007  1 
6 1001  I 
C 0006  I 


DP/INERT 


CS  nCT24 

AC  NOUNREG 

EXTEND 


RETURN  HERE  IF  NOUN  = IC0U(20) 
RETURN  HERE  IF  NOUN  = RC0U(72) 


GAP: 


ASSEMBLE  REVISION  131  CF  AGC  PPCGRAM 


LUMINARY  BY  NASA  2021112-^91 


L EXTENCEC  VERBS 


0205  REF 


LAST  265  43,2206 


1 6745  0 


BZF  TCO 


0207  REF 

0208 

0209  REF 


LAST  159 


43,2207 

43.2210 

43.2211 


6 2213  0 
C 0006  1 
1 6742  1 


AO  RRIMUOIF 

EXTEND 

BZF  0+1 


0210 


REF  14  LAST  265 


43,  2212  0 2116  0 


TC  ALM/ENO 


0211 

0213 

0214 

0215 

0216 

0217 

0218 
0219 


REF  2 
REF  1 
REF  1 
REF  19 
REF  1 
REF  1 


LAST 


LAST 


266 


267 


43,2214 
43i2215 
43  ,2216 
43,2217 
43,2220 
43  ,2221 
43,2222 


0 2076  1 
3 2234  0 
C 4616  I 
20334  1 

0 5472  0 

1 2223  1 


RR  IMUCIF 
I MUCGARK 


CKMCDCAC 

TE  STXACT 

VNLODCDU 

BANKCALL 

GOXOSPF 

TERMEXTV 

+ 1 


0220  REF  I 

0221  RFF  20  LAST  269 

0222  REF  2 LAST  209 


43.2223  3 2235  1 ICnRK2 

43.2224  0 4616  1 

43.2225  20621  0 


CAF  IMUCOARV 
TC  0ANKCALL 
CAOR  exCSPRET 


0223 

0224 


REF  21 
PEF  1 


LAST  269 


43  ,2226 
43,2227 


0 4616  1 
16771  1 


TC  BANKCALL 

CACR  IMUCOAPS 


0225  REF  22 

0226  REF  3 

0227  PEF  1 

0228  REF  2 


LAST  269 
LAST  266 

LAST  269 


43.2230  0 4616  1 

43.2231  17707  1 
43,2222  C 5472  0 
43  ,2233  0 5472  0 


TC  BANKCALL 
CACR  IMUSTALL 
TC  ENDEXTVe 
TC  ENDEXTVB 


43,2234 
4?, 2235 


06226  1 VNLGDCCU  VN 
12200  0 IMUCOARV  VN 


17:53  OECo  19,1969  LEMPNAIO  K4 


PAGE  26 


USER'S  PAGE  NC.  7 E5  S4 

IF  = 20p 
-52 


iLLEGALo 
THF  IMU 

COARSE  ALIGN  FROM  KEYBOARD^ 
CALL  FOR  THFTAD  LOAD 


RE-DI  SPLAY  COARSF  ALIGN  VERB, 


CALL  MOOF  SWITCHING  PROG 


STALL 


GAP : 


ASSEMBLE  REVISION  131  CF  AGC  PFCGRAM  LUMINARY  BY  NASA  2021112-091 


L EXTENDED  VERBS 

P0231  CESIGNATE  TO  DESIRED  GIM6AL  ANGLES® 


0232 

023^ 

0239 

02AO 

0241 

0242 


REF  3 LAST  267 
REF  2 LAST  269 
REF  1 

REF  18  LAST  222 
REF  19  LAST  270 


43t?236  0 2700  1 RRCESNBK  TC 


43»2237 

43.2240 

43.2241 

43. 2242 

43.2243 


2C76 

4 2324  1 
0 0004  0 
7 CIK  0 
54  110  0 


PDRUSECK 
TESTXACT 
DC  T41000 

FACPCDES 

RAOMOOES 


0243  REF 

0244  ref 

0245  REF 

0246  REF 

0247 


1 

23  LAST  269 
2 LAST  269 
2 LAST  269 


43,2244  3 2263  I 

43, "2245  0 4616  1 

43.2246  20334  1 

43.2247  C 5472  0 

43,2250  1 2244  0 


CAF  VNLCRCOU 

TC  BANKCALL 

CACR  GOXDSPF 
TC  TEPPFXTV 

TCF  -4 


0248  REF  24  LAST  270 

0249  REF  I 


43.2251  0 4616  1 

43. 2252  46C0C  0 


TC  BANKCALL 

CADR  AURLCKTN 


0250  REF  1 

0251  REF  25  LAST  270 

0252  REF  3 LAST  269 


43.2253  3 2235  1 

43.2254  C 4616  1 

43.2255  20621  0 


CAF  DPTCOARV 
TC  BANKCALL 
CADR  FXOSPRET 


0253  REF 

0254  REF 

0255  REF 

0256  REF 
0256  REF 


245 

241 


43.2256  3 4736  1 

43.2257  C 5105  0 
E7 ,1456 

43.2260  02264  0 

43.2261  661C7  1 


CAF  PR  1020 

TC  FINOVAC 

EeANK=  LOSCOUNT 
2CADR  RRCESK2 


0257  REF 


3 LAST  270  43,2262  1 5472 


TCF  TERMEXTV 


0258 

0259  REF 


LAST  269 


43,2263  06111  0 VNLCRCOU  VN  2473 

43,2235  DPTCOARV  EQUALS  IMLCOARV 


0260  REF  26  LAST  270 

0261  REF  1 


43.2264  0 4616 

43.2265  525C6 


1 RRCESK2  TC 
0 CADR 


BANKCALL 

PRDESNB 


02  62 

02621  REF 

02622  REF 

02623  REF 

02624  REF 

02625  KEF 

02626 

02627  REF 

0263  REF 

0264  KEF 

0265 

0266  REF 

0267  REF 
0260 


9 LAST  223 
5 LAST  259 

66  LAST  264 

67  LAST  270 

68  LAST  270 

10  LAST  270 
27  LAST  270 
2 LAST  266 

^ LAST  240 
17  LAST  258 


43,2267 
43,2270 
43  ,2271 

43.2272 

43.2273 

43.2274 

43.2275 

43.2276 

43.2277 
43,2300 
43  ,2301 

43.2302 

43.2303 


0 2267 

3 0167 
7 5004 
10  000 
5C  OCC 
54  000 

4 0000 
26  167 
0 4616 

17705 


0 2202 
0 5155 
C 5567 
00503 


0 

1 

1 

0 

1 

0 

0 

0 

1 

0 

1 

0 

C 

1 


TC  +1 

CA  PRIORITY 

MASK  L0W9 

CCS  A 

INDEX  A 

TS  A 

COM 

AOS  PRIORITY 

TC  BANKCALL 

CADK  RACSTALL 

TC  +2 

TC  ENOOFJOB 

TC  ALARM 

OCT  503 
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USER'S  PAGF  NO®  8 E5  S4 


TERMINATE  PRESENT  CESIGNATION 
RELINT  DONE  IN  GOXOSPF 


ASK  FOR  G1M6AL  ANGLES® 

V33 

ASK  OP  FOR  LOCK  ON  R FOUl RE MENTSc 

RE-DISPLAY  CUR  CV»N  VERB 


FREES  DISPLAY® 


DIFFERENT  NCUNS® 


dummy  needed  SINCE  OESRETRN  DOES  INCR 


RELEASE  THIS  JCPS  VAC  AREA® 

INSURE  ENOOFJOB  DOES  A NOVAC  END  (BZMF). 

WAIT  FOR  COMPLETION  OF  DESIGNATE 

8ADFND-NC  LCCKCN  OP  OUT  OF  LIMITS 
GOODEND-LOCKON  ACHIEVED 


TURN  ON  ALARM  LIGHT  -503  CESIGNATE  FAIL 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L exTFNOED  VERBS 

0269  REF  5 LAST  270  A3, 230^  C 5155  0 TC  ENOCFJCP 


0270  REF 

0271  REF 

0272  REF 

0273 

027A  REF 

0275 

0276  REF 

0277  REF 
02771  REF 
02773  REF 
0277A  REF 
02775  REF 

0278  REF 

0279  REF 

0280  REF 
0261 


20  LAST 

5 LAST 

6 LAST 

2 LAST 

21  LAST 

22  LAST 

3 LAST 
1 

28  LAST 
3 LAST 
15  LAST 
1 

7 LAST 


270 
267 

271 

270 

271 
27  1 
233 

270 
210 
267 

271 


93.2305 

43.2306 
43,23C7 
43  ,2310 

43.2311 

43.2312 
43  ,2313 

43.2314 

43.2315 

43.2316 

43.2317 
43  ,2320 

43.2321 

43.2322 
43  ,2323 
43,2324 


10  110  0 
1 2117  0 
1 2117  0 
1 2311  1 
4 2324  I 
Q 0004  0 
7 0110  0 
54  lie  0 
0 6011  1 
3 4777  I 
C 4616  I 
01736  I 

0 5516  C 
00126  I 

1 2117  0 
41  000  1 


RRDESEND  CCS 
TCF 
TC  F 
TCP 
CS 

INFINT 

MASK 

TS 

TC 

CAF 

TC 

CACR 

TC 

AURES 

TCF 

0CT41.000  OCT 


RADMOOES 
GOPIN 
GCPI  N 
+ 1 

OCT41000 

RADMODFS 
RADMCCES 
C LRAOMOO 
IS  EC 

BANKCALL 

OELAYJOB 

OOWNFLAG 

NQRRMON 

GOPIN 

41000 


17:53  CECa  19,1969 


L EHONA  lOa 104  PAGE  271 


USER  'S  PAGF  NC«  9 E5  S^ 


TERMINATE  CONTINUOUS  DESIGNATE  ONLY 

BEGCeS  GOES  TO  ENDRAOAR 
PELINT  DONE  IN  DOWNFLAG 


ENABLE  R25 

CONTINUOUS 


GIMBAL  WONITGR 

CfcS  IGNATE  - DESIGNATE 


gap; 


ASSEMBLE  REVISION  131  OF  AGC  PROCRAM  lUMINARV  BY  NASA  ZC'21112-C91 
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LEM0NAI0-«1CA  PAGE  272 


L EXTENDED  VERBS 


USER'S  PAGE  NCc  10  E5  SA 


02812 

02814  PEF  1 

02816 

02816  REF  1 


23,2000 

23,2000 

23,2000 


BANK  23 
SETLDC  EXTVBl 
BANK 

COUNT*  SS/EXTVe 


0282  REF 

0283  REF 

0284  REF 

0285  REF 

0286  REF 
02862  REF 


1 23,2000 

2 LAST  103  23,2001 

5 LAST  264  23,2002 

1 23  ,2  003 

5 LAST  259  23,2004 

2 LAST  272  23‘,2005 


0 4645  1 AURLQKCN  TC 


55*112  0 TS 

3 ^752  C CAF 

55*051  0 TS 

3 6245  1 CAF 

55*050  1 TS 


MAKECADR 

DESRET 

TWO 

OPTIONX  +1 

SIX  OPTION  CCOE  FOR  V04N12 

OPTIONX 


02864  ref  1 
02866  REF  29  LAST 

02868  PEF  I 

02869  REF  8 LAST 
02  87 

0288 

0289  REF  14  LAST 

0290  REF  1 

0291  REF  6 LAST 


271 


265 


255 


271 


23,2007 

23,2010 

23,2Cli 

33.2012 

23.2013 

23.2014 

23.2015 

23.2016 


20353  0 
1 5472  I 
1 2017  1 
1 2006  1 
3 4751  0 
0 5464  1 
C 5155  0 


CAF  V04N1272 

TC  BANKCALL 

CAOR  GOMARKFR 

TCF  ENDEXT 

TCF  +5 

TCF  -5 

CAF  BIT3 

TC  BLANKET 

TC  ENCCFJCe 


V34 

V3? 

V32 


R2  00001  LCCK-ON 


0292 

0293 

0294 
02  95 

0296 

0297 

0298 


REF  3 
PEF  21 
REF  69 
REF  1 
REF  3 
REF  1 
REF  1 


LAST  272 
LAST  245 
LAST  270 

LAST  267 


23,2017 
23  ,2020 

23.2021 

23.2022 
23  ,2023 

23. 2024 

23.2025 


3 1051  1 
7 4752  1 
1C  COO  0 
1 2026  Q 

0 5504  0 
00012  I 

1 2034  0 


CA  OPTIONX  +1 

MASK  B1T2 

CCS  A 

TCF  NOLOKON 

TC  UPFLAG 

ADRES  LOKCNSW 

TCF  AURLKONl 


0299  REF 

02991  REF 

02992  REF 

02993  REF 

0302  REF 

0303  REF 

0304 

0305  REF 

0306  REF 


LAST 

LAST 

LAST 


271 

272 
272 


LAST  272 
LAST  271 


3 LAST  272 
1 


23.2026  0 5516  0 

23.2027  00012  1 

23,2030  0 5504  0 

22,2021  CC264  I 

23.2032  C 5504  0 

23.2033  00126  1 

23.2034  0 0003  1 

23.2035  3 1112  1 

23.2036  1 4640  0 


NCLCKCN 


AURLKONl 


TC  DOWNFLAG 

AORES  LOKONSW 
TC  UPFLAG 
ACRES  COESFLAG 
TC  UPFLAG 

ACRES  NCRRMON 
RELINT 

CA  OESRET 

TCF  8ANKJUMP 


IF  NO  LOCK-ON,  SFT  BIT15  OF  RADMODES  TO 
INDICATE  THAT  CCNTINUOUS  DESIGNATION  IS 
WANTED  (TO  BE  TERMINATED  BY  V44« > 

SET  NO  RR  ANGLE  MCMTOP  FLAG, 

(DISABLE  P25  PR  GIMBAL  MONITOR  IN  T4RUPT 


03064 

03065 


23,2037  C1014 

23,2040  77757 


0 VC4N127?  VN 

1 -LCKONFG  OCT 


412 

-20 


03066 

03067 

03068 

03069 


43,2325 

2 LAST  263  43,2000 

43,2325 

? LAST  263  TO  272:  213  213* 


BANK  43 
SETLOC  EXTVERBS 
BANK 

COUNT*  SS/EXTVB 


0307  REF  3 LAST  270  43,2325  0 2076  1 LRON  TC 


TE  STXACT 


gap: 

L 

0308 

03C9 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 
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EXTENOFO  VERBS 


USER'S  PAGE  NOo  71 


E5  S4 


REF  1 

REF  30  LAST  272 

REF  2 LAST  272 

REF  1 

REF  1 

REF  7 LAST  272 


43  ,2327 
<(3,2330 

43.2331 

43 .2332 

43.2333 


2 2365  C 
0 4616  I 
20353  0 
0 2363  C 
0 2354  1 
0 5155  C 


0SP68 


V06N68 

BANKCALL 

GOMARKFR 

B1+50FF 

SET57 

ENDCFJCB 


REF  31  LAST  273 
REF  1 


43.2334  0 4616  1 WAIT60 

43.2335  C1735  1 


TC  BANKCALL 

CADR  2SEC0ELY 


REF  J 

RFF  7 LAST  264 
REF  9 LAST  272 


43,2326  3 4361  1 

43,2337  7 1043  0 

43.2340  C 0C06  1 

43.2341  1 5472  1 


CAF  nCT2l 

MASK  EXTV6ACT 
EXTEND 

6ZF  ENDEXT 


REF  17  LAST  255 
REF  70  LAST  272 
REF  1 


43.2342  . 7 4747  0 

43.2343  1C  COO  0 

43.2344  1 2326  0 


MASK  BITS 
CCS  A 
TCF  DSP6P 


REF  1 

REF  32  LAST  273 

REF  1 

REF  2 LAST  273 

REF  3 LAST  273 

REF  1 


43.2345  3 2365  0 

43.2346  0 4616  1 

43.2347  20361  1 

43.2350  1 2363  1 

43.2351  ] 2363  1 

43.2352  1 2357  0 


0SP5068  CAF  V50N68 

TC  BANKCALL 

CADR  G0MARK3R  -I 
TCF  B)  +5CFF 

TCF  &1  + 50FF 

TCF  RESET57 


REF 


43,2353  1 2334  0 


TCF  WAIT68 


REF 

REF 


6 LAST  272 
1 


43 .2354  C 5504  0 SET57 

43.2355  C0254  1 


TC  UPFLAG 
AOPES  LPINH 


REF 


43,2356  1 5563 


TCF  B50FF 


REF  17  LAST  272 
REF  2 LAST  273 


43,2357  C 5516 
43,2360  C0254 


0 RESETS?  TC 

1 AOHES 


OOWNFLAG 

LRINH 


;E 

EF 


2 LAST  264  43,2361  3 4362  1 
2 LAST  273  43,2362  0 5565  1 


CAF  0CT25 

TC  B50FF  *2 


REF  2 LAST  273 
REF  3 LAST  273 


43.2363  4 4361 

43.2364  1 5564 


0 B1+50FF  CS 

1 TCF 


0CT21 
B50FF  +1 


REF 


REF 


4361 


0CT21 


43,2365  01504 

2 LAST  273  43,2365 


1 V06N68 

V50N68 


EQUALS  NOl 

VN  066P 

= V06N68 


REF  18  LAST  273 
REF  3 LAST  273 


43.2366  0 5516  0 LRDFF 

43.2367  00254  1 


TC  OOWNFLAG 

AORES  LRINH 


REF 


LAST  271  43,2370  1 2117  0 


TCF  GCPIN 


INHIBIT  INCCPPCPAT TCN  TF  LR  DATA  V5P 


gap:  assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L EXTENCEC  VERBS 

0345  REF  4 
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USER'S  PAGE  NCo  12  E5  S4 


LAST 


263 


65  ,1737 


EBANK=  OGC 


GAP: 

i 

P03A6 

R0347 

R 0348 

R0350 

R0351 

R0352 

R0353 

R0354 

R0355 

R0356 

R0357 

R0358 

R0359 

R0360 

R036\ 

R0362 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0363 

03  84 

0385 

0386 

0387 

0338 

R0389 

R0390 
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LeMnNAID-104  PAGE  275 


EXTENDED  VERBS 


USER'S  PAGE  NCr.  13 


E?  S4 


IMUF 


INEK  VPR6  42  DESCRIPTION 

FINE  ALIGN  I MU 

lo  REQUIRE  EXT  VERE  DISPLAY  AVAILABLE  AND  SET  BUSY  FLAG  OR  TURN  ON  OPER  ERROR  AND  GO  TO  PINBRNCH 
2o  DISPLAY  FLASHING  V25 , NS3*o « , LCAD  DELTA  GYRO  ANGLES#oeo 
RESPCNSES 
Ao  TERMINATE 

lo  RELEASE  EXT  VERB  DISPLAY  SYSTEMo 
Bo  PRCCEEC  OR  ENTER 

lo  RE-DI SPLAY  VERB  42 

2«  EXECUTE  IMUFINE  (IMU  FIVE  ALIGN  MODE  SUITCHINGI, 

3,  EXECUTE  IMUSTALL  (ALLOW  FOR  DATA  TRANSFER) 

Ao  FAILED 

U RELEASE  EXT  VERB  DISPLAY  SYSTEM* 

Bo  GCQD 

U EXECUTE  IMUPULSE  (TORQUE  IRIGSIo 

2o  EXECUTE  IMUSTALL  ANC  RELEASE  EXT  VERR  DISPLAY  SYSTEM* 


REF  3 
REF  4 
REF  1 
REF  33 
REF  3 
REF  4 


LAST  269 
LAST  272 

LAST  273 
LAST  270 
LAST  270 


43t2371 

43.2372 

43.2373 
43,  2374 

43.2375 

43.2376 

43.2377 


C 2436  I 
0 2076  1 
3 2420  0 
C 4616  1 
20334  1 
0 5472  0 
0 2400  1 


I MLFl NEK 


TC 

TC 

CAF 

TC 

CAOR 

TC 

TC 


CKHCDCAC 
TESTXACT 
VNLODGYR 
BANKCALL 
GOXOSPF 
TERMEXTV 
+ 1 


FINE  ALIGN  WITH  GYRC  TOPCUING* 
CALL  FOR  LOAD  OF  GYPO  COMMANDS 


FRCCEED  WITHOUT  A LCAC 


REF  1 

REF  34  LAST 

REF  4 LAST 


43 ,2400 
275  43,2401 

270  43,2402 


3 2421  1 
C 4616  1 
20621  0 


CAF  IMUFINEV  RE-OISPLAY  OUR  OWN  VERR 

TC  BANKCALL 

CAOR  EXDSPPET 


REF  35  LAST  275 
REF  1 


43.2403  0 4616  1 

43.2404  17201  1 


TC  BANKCALL  CALL  MODE  SWITCH  PROG 

CAOR  IMUFINE 


REF 

REF 

REF 


36 

4 

3 


LAST  275 
LAST  269 
LAST  269 


43.2405  0 4616  1 

43.2406  17707  1 

43.2407  0 5472  0 


TC  BANKCALL  * HIBERNATION 

CACR  IMUSTALL 
TC  ENOEXTVe 


REF  1 

REF  37  LAST  275 
REF  I 


43  ,2410 
43,2411. 
43,2412 


3 2417  1 
C 4616  I 
17314  I 


FINEK2 


CAF 

TC 

CAOR 


LGYROBIN 

BANKCALL 

IMLPULSE 


PINBALL  LEFT  COMMANDS  IN  OGf  REGIST5RS 


REF  38 
PEF  5 
REF  4 
REF  5 


LAST  275 
LAST  275 
LAST  275 
LAST  275 


43.2413 

43.2414 

43.2415 

43.2416 


0 4616  1 
17707  1 
0 5472  0 
0 5472  0 


TC  BANKCALL 
CAOR  IMUSTALL 
TC  ENOEXTVB 
TC  ENOEXTVB 


WAIT  FOR  PULSFS  TO  GFT  OUT* 


REF 


5 LAST  274 


GCLCACLV 


43,2417  02737  0 

43  ,2420  06335  1 

43,2421  124C0  0 

VERB  50 

AND  CTHER  PLEASE 


LGYROBIN  ECAOR 
VNLCOGYfi  VN 
IMLFINEV  VN 
DESCRIPTION 


OGC 

2593 

^200 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGRA^'  LUMINARY  BY  NASA  2021112-091 

L EXTENDED  VERBS 


17:5^  PECo  19,196C  LEMCNA  10^.  PAGF  276 

USFR«S  PAGE  NOo  lA  E5  SA 


R0391 

R0392 

R0393 

R0395 

R0396 


DC  SCMETFING  VERBS 

PLEASE  PERFORM,  MARK,  CALIBRATE,  ETCo 

lo  PRESSING  ENTER  ON  OSKY  INDICATES  REQUESTED  ACTION  HAS  BEEN  PERFORMED,  AND  THE  PROGRAM  DOES  THE 
SAME  RECALL  AS  A COMPLETED  LOAD© 

2o  the  execution  CF  A VERB  33  (PRCCEED  WITHOUT  DATA)  INDICATES  THE  REQUESTFD  ACTION  IS  NOT  OESIREDo 


0398  REF  1 


A J, 2000 


S8ANK=  PINSUPER  FOP  LOADLVl  AND  SHCWSUM  CADR'S© 


0399  REF 


A3,2A22  0 AA33 


6CLCACLV  TC 


FLASHCFF 


0400  REF  1 

0401 

0402  REF  3 

0403  REF  8 

0404  REF  1 

R0405  VERB  A7 


A3, 2424 
LAST  230  A3,2A25 

LAST  265  43,2426 

43  ,2427 
- AGS  INITIALIZATION 


3 42C1 
C 0006 
Cl  007 
C 4635 
62001 
- R47o 


0 

I 

I 

0 

1 


CAF  PINSUPST 
EXTEND 

WRITE  SUPERBNK 
TC  POSTJUMP 
CADR  LOADLVl 


R0406 


SEE  LCG  SECTION  AGS  INITIALIZATION  FOR  OTHER  PERTINENT  REMARKS© 


0407  REF  5 

0408  REF  1 

0409  REF  4 

0410  REF  14 

0411  REF  1 

0411  REF  1 

0412  REF  8 


LAST  275 

LAST  270 
LAST  210 

LAST  273 


43,2430  0 2076  1 V47TXACT  TC  TESTXACT 


43.2431  3 4740  C 

43.2432  0 5105  0 
E4,1600 

43.2433  C2005  0 

43.2434  64064  1 

43.2435  0 5155  0 


CAF  PRIC4 
TC  FINDVAC 

EBANK=  AGSBUFF 
2CA0R  AG5INIT 

TC  ENOCFJCe 


NO  OTHER  FXTVERBc 


0413 

0414 

0415 

0416 


REF  4 LAST  106 

REF  3 LAST  269 
REF  15  LAST  269 


43.2436  3 1301  1 

43.2437  0 0006  1 
<3,2440  1 6745  G 
43,2441  0 2116  0 


CKMOOCAO  CA 

EXTEND 

BZF 

TC 


MOOECADR 

TCC 

ALM/ENO 


SOMEBODY 


IS  USING  MODECADR  SO 


IT 


GAP  : 

L 

P0417 

R04ie 

R041P 

R0420 

R0421 

R0422 

R0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

043  7 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 


■SSEPBLE  REVISION  131  OF  AGC  PPCCRAP  LUMINARY  BY  NASA  2021112-091 


17:53  OECo  19,196' 


LEMONAIDo 104  PAGE  277 


tXTENOEC  VERBS 


USER'S  PAGE  NOo 


S4 


ALINTIME  VERB  55  DESCRIPTION 

RECClIRE  PCC  CP  FCC-b 
lo  SET  EXT  VERB  DISPLAY  BUSY  FLAGo 

2o  DISPLAY  FLASHING  V25,N2i  (LOAD  DELTA  TIME  FOR  AGC  CLOCKo 
3*  REQUIRE  EXECLTICN  CF  VERB  23o 

4o  ALC  delta  time,  RECEIVED  FRC^  INPUT  REGISTER,  TC  THE  COMPUTFR  TIMEo 
5*  RELEASE  EXT  VERB  DISPLAY  SYSTEM 


REF  6 LAST  276  43,2442  C 2076  I ALINTIME  TC  TESTXACT 

REF  9 LAST  276  43,2443  0 4635  0 TC  POSTJUMP  NG  ROOM  IN  43 

REF  1 43,2444  64002  1 CADR  R33 


REF 


REF 


2 LAST  46 

1 


42,2002 

42,2000 

42,2002 


RANK  42 
SETLOC  SBANO 
BANK 

COUNT*  J$/R33 


REF 

REF 

REF 

REF 

REF 

REF 

kEF 

REF 

kEF 

REF 

REF 


1 

1 

1 

39 

4 

10 

11 

1 

36 

1 

12 


LAST  275 
LAST  275 
LAST  273 
LAST  277 


LAST  264 


LAST  277 


42  ,2002 

42.2003 

42.2004 
42  ,2005 

42.2006 

42.2007 

42.2010 

42.2011 
42  ,2012 

42.2013 

42.2014 

42.2015 


3 5021  I 
0 5146  1 
2 2034  1 
0 4616  I 

20334  1 

0 5472  0 
C 5472  0 

4 2033  1 
6 0154  1 
C 0006  1 

1 2016  0 
0 5472  0 


R33 


CAF 

TC 

CAF 

TC 

CADR 
TC 
TC 
r S 
AD 

EXTEND 

BZF 

TC 


PR  107 

PRICCHNG 

VNLOODT 

6ANKCALL 

GOXOSPF 

ENOEXT 

ENDEXT 

0EC23 

MPAC 

UPOATI  ME 
ENDEXT 


TERMINATE 

PROCEED 

DATA  IN  CR  RESEOUENCeiUNL IKELY I 
RECALL  LEFT  VERB  IN  MPAC 

GO  AHEAD  WITH  UPDATE  CNLY  IF  RECALL 
WITH  V23  (DATA  IN) 


REF  25  LAST  259 
REF  37  LAST  277 
REF  21  LAST  259 
REF  8 LAST  255 
REF  38  LAST  277 
REF  2 LAST  102 
REF  39  LAST  277 


42.2016  C 0004 

42.2017  3 4755 

42.2020  54  156 

42.2021  54  001 

42.2022  52  025 

42.2023  52  155 

42.2024  52»051 

42.2025  2C  155 


0 upoatime  inhint 

1 CAF 

1 TS 

1 TS 

1 DXCH 

1 DXCH 

0 DXCH 

1 CAS 


ZERO 

MPAC 

L 

TIME2 

MPAC 

DSPTeM2 

MPAC 


+2 


DELTA  TIME  IS  IN  DSPTEMl,  +la 

NEEDED  FOR  TP  AGREE 

ZERO  T1  + 2 WHILE  ALIGNINGo 


I NCREMENT 


REF  1 

REF  40  LAST  277 
REF  Q LAST  277 

REF  13  LAST  277 


42.2026  C 7262  C 

42.2027  52  155  1 

42.2030  20  025  1 

42.2031  0 0003  1 

42  ,2032  0 5472  0 


TC 

DXCH 

DAS 

RELINT 
UPCTMENO  TC 


TPAGREE 

MPAC 

TIME2 


ENDEXT 


FORCE  SIGN  AGREEMENT. 
NFW  CLOCKo 


42.2033  0CC27  1 0EC23  DEC 

42.2034  06230  0 VNLOODT  VN 


23 

2524 


V ?3 

V25N24  FOR  LOAD  DELTA  TIME 


gap:  ASSEPBLE  revision  131  OF  AGC  PROGRAM  LUHINARV  BY  NASA  2021112-091 

L FXTENOeO  VERBS 


17:?3  DEC©  19,1°6Q  LFf'CKATCr  104 
USER  'S  PAGE  NOr  1 6 


PAGE  278 
e?  S4 


P045‘5 


SET  UP  FOR  RADAP  SAPPLING© 


0460 

0461  REF 

0462 


LAST  272 


42  t2035 
A3, 2000 
A3,2A45 


6ANK  42 
SFTLCC  EXTVERBS 
BANK 


0463  REF 


E4,1600 


EBANK*  PSTACK 


0464  REF 


COUNT*  tt/R0477 


0465 

0466 

0467 

0468 

0469 
04  70 

0471 

0472 


REF  5 
REF  1 
REF  71 
REF  16 
REF  7 
REF  1 
REF  1 


LAST 

LAST 

LAST 

LAST 

LAST 


273 

276 

273 


43  ,2445  C 2700  1 R77 

43.2446  3 0077  1 

43.2447  7 4743  1 

43  ,2450  10  000  0 

43.2451  0 2116  C 

43.2452  0 5504  0 

43.2453  C0117  0 

43.2454  1 2461  1 


TC  RORUSECK 

CA  FLAGWR03 

mask  R04FLBIT 
CCS  A 

TC  ALM/EKO 

TC  UPFLAG 

ACRES  P77FLAG 

TCF  R04Z 


0473 

0474 

0475 

0476 


ref  5 LAST 

REF  7 LAST 

ref  8 LAST 

REF  3 LAST 


278  43  ,2455 

277  43,2456 

278  43,2457 

231  43  ,2460 


0 2700  I R04 
0 2076  1 
C 5504  C 
00063  1 


TC  RORUSECK 

TC  TESTXACT 

TC  UPFLAG 

ACRES  R04FLAG 


0477 

0478 

0479 
0460 
0481 
0462 
0483 


PEF 

REF 

REF 

REF 

REF 

REF 

REF 


1 

5 LAST  223 
1 
1 

26  LAST  277 
1 
1 


43.2461  3 4741  1 R04Z 

43.2462  54  003  0 

43.2463  3 2676  1 

43.2464  55'7?7  0 

43.2465  3 4755  1 

43.2466  55*776  1 

43.2467  55*575  0 


CAF  EBANK4 

TS  EBANK 

CAF  lSEC+1 

TS  PSAMPOT 

CAF  ZERO 

TS  RTSTLOC 

TS  RFAILCNT 


0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 


REF  1 
REF  23 
REF  24 
PEF  2 

REF  4 
REF  25 


LAST  27  1 
LAST  278 
LAST  278 

LAST  221 
LAST  278 


43. 2471 

43.2472 

43.2473 

43.2474 
43  ,2475 

43.2476 

43.2477 
43 ,2500 


C 0004  0 
4 2677  I 
7 0110  0 
54  110  0 
3 2677  0 
0 0006  1 
C2  033  0 

26  no  0 

0 0003  1 


INF INT 

CS  LRFOSCAL 

MASK  RAOMODE S 

TS  PACMOCES 

CAF  LRPOSCAL 

EXTEND 

RAND  CHAN33 

AOS  RADMDOES 

REL  INT 


0493 

0494 

0495 

0496 


ref  6 LAST  278 

REF  2 LAST  278 

REF  72  LAST  278 

REF  1 


43.2501  4 0C77  0 

43.2502  7 4743  1 

43.2503  1C  000  0 

43.2504  1 2633  I 


CS  FLAGWPC3 

MASK  R04FLBIT 

CCS  A 

TCF  R04K 


0497 

0498 

0499 


REF  12  LAST 
ref  4 LAST 
REF  15  LAST 


262 
272 
27  2 


43.2505 

43. 2506 

43.2507 


3 4753 
55*051 
3 4751 


1 

0 

c 


R04A 


CAF  ONE 
TS  OPTICNX  +1 

CAF  BIT3 


TRY  TO  AVOID  the  1210^ 
IS  R04  RUNNING? 

YES. 


7R  Y TO  A VOI D THF  1 210© 
SET  P04FLAG  FOR  ALARMS 

SAMPLE  ONCE  PER  SECOND 


ZERO  BAD  SAMPLE  CCLNTEP 


INITIALIZE 

BITO  LP  RANGE  LCW  SCALE  =0 

BIT6  LP  POS  1 =0 

BIT3  PP  RANGE  LCW  SCALE  =0 


CHECK  R04FLAG 


Rn4  =1  P77  =0 


INDICATES  RENDEZVOUS  OFSIPED 
CPTICN  CCOE  FOR  V04M2 


GAP: 

L 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0614 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0537 

0530 

0539 

0540 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
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EXTENDED  VERBS 


USER'S  PAGE  NCe  ^7  E4  S4 


REF  5 LAST  278 
REF  1 

REF  40  LAST  277 
REF  3 LAST  273 
REF  1 

REF  1 

REF  16  LAST  270 
REF  2 LAST  272 
REF  9 LAST  276 


43.2511 

43.2512 

43.2513 

43.2514 

43.2515 

43. 2516 

43.2517 

43.2520 

43.2521 


0 4616  1 
20353  0 

1 2641  1 
1 2522  1 
1 2511  1 
3 4751  0 
0 5464  1 
0 5155  0 


TS  OPTICNX 

CAF  V04N12X 

TC  BANKCALL 

CADR  GOMARKFR 

TCF  R04END 

TCF  +5 

TCF  R04A  +2 

CAF  BIT3 

TC  BLANKET 

TC  FNDOFJCB 


R?  OOOOl 
00O02 

V34 

V33 

R2 


PENDEZVCUS  RADAR 
LANDING  RADAR 


REF  6 
REF  1 


LAST  279 


43.2522 

43.2523 


3 1051  1 
55'773  1 


CA  OPTIONX  +l  SAVE  DESIRED  OPTION  RR  =1.  LR  =2 

TS  RTSTOEX 


REF 

REF 

REF 


272  43,2524  3 6245  1 R04X 

279  43,2525  7 1773  1 

278  43,2526  10  000  0 

43,2527  1 2635  1 

43,2530  55' 775  1 


CAF  SIX 

MASK  RTSTCEX 

CCS  A 

TCF  P04L 

TS  RTSTBASE 


RR  DR  LR  DESIRED 


LANDING  RADAR 

FOR  RR  BASE  = 0,  MAX  = 1 


REF  22  LAST  272 
REF  5 LAST  278 
REF  1 


43.2531  3 4752  0 

43.2532  C 0006  I 
4 2,  2533  C2  C33  0 

43.2534  0 0006  I 

43.2535  I 2546  0 


R04B 


CAF  BIT2 

EXTEND 

RAND  CHAN33 

EXTEND 

BZF  R04C 


IS  RR  AUTO  MODE  DISCRETE  PRESENT 


REF  1 
REF  2 
REF  I 
REF  41 
REF  2 
REF  2 
REF  1 


LAST  102 

LAST  279 
LAST  253 
LAST  279 


43,2536 
43  ,2537 

43.2540 

43.2541 

43.2542 

43.2543 

43.2544 

43.2545 


3 2675  1 
55'044  1 
2 2674  0 
n 4616  1 
20345  1 
1 2641  1 
1 2531  0 
1 2536  1 


CAF  201R04 

TS  OSPTEMl 

CAF  V50N25X 

TC  BANKCALL 

CADR  G0MARK4 

TCF  ROAENO 

TCF  R04B 

TCF  -7 


REQUEST  SELECTION  CF  RR  AUTO  MODE 


REF  30  LAST  262 
REF  18  LAST  222 


43.2546  3 4736  1 R04C 

43 .2547  0 0006  1 
43,2550  C5  C12  I 


CAF  BIT14 

EXTEND 

HOR  CHAM2 


ENABLE  RR  AUTO  TRACKER 


REF  6 
REF  I 


LAST  272 


43.2551 

43.2552 


3 4752  0 
55'  774  0 


CAF  TWO 

TS  RTSTMAX  FOR  SEQUENTIAL  STDRAGF 


REF  8 LAST  254 

REF  2 LAST  278 

REF  1 
REF  1 


43.2553  0 5203  0 
E4,1600 

43.2554  C20C3  0 

43.2555  52104  0 

43 .2556  0 0003  1 


TC  WAITLIST 

EBANK=  RSTACK 
2CA0R  RADSAMF 


REL  INT 


REF  7 LAST  278  43,2557  4 0077  0 

REF  3 LAST  278  43,2560  7 4743  1 


CS  FLAGWRD3  CHECK  R04FLAG  R04  =1  R77  =0 

MASK  R04FLBIT 


gap: 

L 

05^^l 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0502 

0583 

0584 

0505 
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PAGE  200 


EXTENDED  VERBS 


USER'S  PAGE  NOo  IP  $4 


REF  74 
REF  9 


LAST  279 
LAST  273 


^3,2561 

43,2562 


1C  COO  0 
I 2117  0 


CCS  A 

TCF  60PIN  R77 


REF  7 LAST  279 

REF  3 LAST  279 

REF  75  LAST  280 

REF  1 


<^3,2563  3 6245  1 

^3,2564  7 1773  1 

43  ,2565  10  000  0 

43,2566  1 2603  1 


CAF  SIX 

MASK  RTSTOEX 

CCS  A 

TCF  R04LR 


PR  OR  LR 


LR 


REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 


43,2567  3 2667  1 

279  43,2570  0 4616  1 

262  43,2571  2C334  1 

279  43,2572  1 2641  1 

43.2573  1 2575  0 

43.2574  1 2567  0 


R04RR 


CAF  V16N72 

TC  8ANKCALL 

CADR  GOMARKF 
TCF  R04EN0 

TCF  *2 

TCF  R04RR 


DISPLAY  RR  rnu  ANGLES  U/SEO 

Rl  + XXXoXX  PEG  TRUNNION 

R2  + XXXoXX  DEG  SHAFT 

V34  R3  BLANK 

V33 
V3? 


REF  1 
REF  43 
REF  6 
REF  4 
REF  1 
REF  2 


LAST  280 
LAST  280 
LAST  280 

LAST  200 


43  ,2575 

43.2576 

43.2577 
43,26C0 

43. 2601 

43.2602 


3 2670  1 
C 4616  1 
20334  1 
1 2641  1 
1 2617  1 
1 2567  0 


CAF  V16N78 

TC  BANKCALL 

CADR  GOMARKF 

TCF  R04ENC 

TCF  R04Y 

TCF  P04RR 


DISPLAY 


V34 

V33 

V32 


RR  RANGE  AND  RANGF 
Rl  ♦-  XXXoXX  NM 
R2  +-  XXXXXr  FPS 
R3  BLANK 


RATE  (1/SEC) 
RANGE 
RANGE  RATE 


REF  1 

REF  44  LAST  280 

REF  7 LAST  280 

REF  5 LAST  280 

REF  2 LAST  28C 


43.2603  3 2671  0 RC4LR 

43.2604  0 4616  1 

43  ,2605  20334  1 

43.2606  1 2641  1 

43.2607  I 2611  1 

43,2610  1 2603  1 


CAF  VJ6N66 

TC  BANKCALL 

CACR  GOMARKF 

TCF  P04ENO 

TCF  +2 

TCF  R04LR 


DISPLAY 


V34 

V33 

V32 


LR  RANGE  ANC  POSITION  (1/SECI 
Rl  +-  XXXXX-,  FT  LR  RANGE 
R2  + OOCrx.  POS.  NO: 

R3  BLANK 


REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 

LAST 


280 

280 

280 

260 

280 


43, 2611 
43  ,2612 

43.2613 

43.2614 

43.2615 

43.2616 


3 2672  0 

0 4616  1 
20334  1 

1 2641  1 
1 2617  1 
1 2603  1 


CAF  V16N67 

TC  BANKCALL 

CADR  GOMARKF 

TCF  R04END 

TCF  R04Y 

TCF  R04LR 


DISPLAY  LP  VELX,  VELY, 
Rl  +-  XXXXXo 


VELZ  (1/SEC) 
FPS  LR  V(X) 


R2 

V34  R3 

V33 

V32 


FPS  LR  V(Y1 
FPS  LR  V(Z) 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

RCF 

REF 

REF 


27 

2 

46 

2 

2 

3 

28 
2 
2 

13 

7 

1 


LAST  278 
LAST  278 
LAST  280 
LAST  273 
LAST  278 
LAST  280 
LAST  280 
LAST  278 
LAST  279 
LAST  278 
LAST  279 


43,2617 

43.2620 

43.2621 
43  ,2622 

43.2623 

43.2624 

43.2625 
43,  2626 
43 ,2627 

43.2630 

43.2631 

43.2632 


3 4755  1 
55'777  0 

0 4616  1 
01735  1 

3 2676  1 
55»777  0 

3 4755  1 
55'776  1 
11'775  1 

4 4753  0 
6 4752  C 

1 2523  0 


R04Y 


CAF  ZERO 

TS  RSAMPDT 

TC  BANKCALL 

CADR  2SECDELY 
CAF  lSEC  + 1 

TS  RSAMPDT 

CAF  ZERO 

TS  RTSTLOC 

CCS  RTSTBASE 

CS  ONE 

AD  Twr 

TCF  R 04X  -1 


TO  TERMINATE  SAMPLING 


WA I T FOR  LAST  RADARUPT 
SAMPLE  ONCE  PER  SECOND 

FOR  STORING  RESULTS 

CHECK  WHICH  RADAR  HAD  BEEN  SAMPLED 
WAS  LR 
WAS  RR 


REF 


43,2633  3 4766  1 R04K 


CAF  250MS+1 


SAMPLE  4 LR  COMPONENTS  PEP  SECOND™ 


gap: 

L 

0586 

0587 

0580 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 

0601 

0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 

0611 

0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 

0621 

0622 


17:53  0£C«  19,1969 


LEMONAID.  104  PAGE  281 


ASSEMBLE  REVISION  131 
EXTENDFC  VERBS 
REF  4 LAST  280 


OF  AGC  PRCGRAM  LUMINARY 


43,2634  55'777  0 


ev  NASA  2021112-091 


TS  RSAMPDT 


USER'S  PAGE  NCc  1o  E4  S4 


REF  8 
REF  3 
REF  8 
REF  2 
REF  29 
REF  5 
REF  20 
PEF  47 
REF  4 


LAST  280 
LAST  280 
LAST  280 
LAST  279 
LAST  280 
LAST  281 
LAST  259 
LAST  280 
LAST  271 


A3, 2635 
43,2636 
A3, 2637 
A3, 2640 
43  ,2641 

43.2642 

43.2643 
43  ,2644 
43, 2645 


3 4752  0 
55’775  1 
3 6245  1 
1 2552  0 
3 4755  1 
55' 777  0 
3 4744  1 
0 4616  1 
C1736  1 


R04L 


R04END 


CAF  TWC 

TS  PTSTBASE 

CAF  SIX 

TCF  R04C  +4 

CAF  ZERO 

TS  RSAMPOT 

CAF  BITS 

TC  BANKCALL 

CAOR  0ELAYJC8 


FOR  LR  BA  SE  = 2 , MAX  = 3 


ZFRO  RSAMPDT 
TO  TERMINATE  SAMPl  ING 
WAIT  U28  SECONDS  FCR  POSSIBLE 
PENDING  RUPTo 


REF  31  LAST  279 


REF  19  LAST  279 


43.2646 

43.2647 
43,2650 
43  ,2651 


0 0004  0 
4 4736  0 
0 0006  1 
03  012  1 


INHINT 

CS  BIT14  DISABLE  RR  AUTO  TRACKER 

EXTEND 

WAND  CHAN12-“ 


REF 

REF 


19  LAST  273  43,2652  0 5516  0 
^ LAST  278  43,2653  00063  1 


TC  DCWNFLAG 

AORES  R04FLAG  SIGNAL  END  CF  ROA* 


REF  14  LAST  277 


43,2654 


5472  0 


TC  ENCEXT 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


2 

6 

30 
6 

31 
48 

5 


LAST  278 
LAST  278 
LAST  281 
LAST  281 
LAST  262 
LAST  281 
LAST  281 


43i  2 6 55 
43  ,2656 
43,2657 
43,2660 
43  ,2661 

43.2662 

43.2663 


2 4741  I 
54  003  0 

3 4755  I 
55'777  0 
3 4746  0 
0 4616  1 

01736  1 


R77EN0 


CAF  EBANK4 

TS  E6ANK 

CAF  ZERO 

TS  PSAMPOT 

CAF  8IT6 

TC  BANKCALL 

CACR  DELAYJOB 


TO  terminate  SAMPL ING 


WAIT  320  MS  FOR  POSSIBLE 
PENDING  RUPTo 


REF 

REF 

REF 


20 

2 

10 


LAST 

LAST 

LAST 


281 

278 

280 


43.2664  0 5516  0 

43. 2665  00117  0 

43.2666  1 2117  0 


TC  DOWNFLAG 

AORES  R77FLAG 
TCF  GOPIN 


REF 


43,2667 

43.2670 

43.2671 

43.2672 

43.2673 

43.2674 

43.2675 
43  ,2676 

4766 

43,2677 


C4110  0 
04116  0 
04102  0 
C4103  I 
01014  0 
14431  1 
C0201  1 
00145  1 


00444  0 


V16N72 

V16N78 

V16N66 

V16N67 

V04N12X 

V50N25X 

201R04 

ISEC+l 

250MS+1 

LRPOSCAL 


VN  1 672 

VN  1678 

VN  1666 

VN  1667 

VN  412 

VN  5025 

OCT  oca'll 
DEC  101 

EQUALS  CALLCODE 
OCT  444 


gap: 

L 

0623 

0624 

0625 

0626 

0627 

0626 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

C638 

0639 

0640 

0641 

0642 

0643 

0653 

0655 

0656 

0657 

0656 

C659 

0659 

0660 


PAGE  282 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  CECo  19,1969  L£MnNAI0olO4 


EXTENDFD  VERBS 


USER  'S  PAGE  NC«  ?fl  £4  $4 


REF 

REF 

REF 

KEF 

RFF 

PEF 

REF 

REF 

REF 

KEF 

REF 

PEF 

REF 

REF 


LAST 
LAST 
LAST 
LAST 
10  LAST 
2 LAST 
77  LAST 


17 


16 


LAST 

LAST 

LAST 

LAST 


279 
222 

280 
278 
222 
222 
2R2 
282 
230 
230 
282 


REF  19  LAST  282 
REF  9 LAST  233 
REF  1 

REF  79  LAST  282 
REF  24  LAST  26A 
REF  20  LAST  282 
REF  3 LAST  272  TC 


A3, 2701 
A3  ,2702 
A3,27C? 
A3, 2704 
A3, 2705 
A3, 2706 
A3  ,2707 
A3, 2710 
A3, 2711 
A3  ,2712 
43,2712 
A3,271A 
A3, 2715 
A3, 2716 
A3  ,2717 
A3, 2720 
A3, 2721 
A3  ,2722 
A3, 2723 
A3, 2724 
277  : 


A 0077  0 
7 A7A1  C 
10  000  0 
0 2116  0 
3 0101  1 
7 A741  0 
1C  000  0 
0 2116  0 
A 0103  1 
7 A746  I 
10  000  0 
1 2720  1 
3 0107  1 
7 A735  0 
C 0006  1 
1 2116  1 
A 0075  1 
7 A7A7  0 
10  000  0 
C 0CC2  0 
0 2116  0 
8C  293« 


MASK 

CCS 

TC 

CS 

MASK 

CCS 

TCF 

CA 

MASK 

EXTEND 

ezF 


CHECKRR  CS 


MASK 

CCS 


FLAGWRC3 
NR29FBI T 
A 

ALM/ENC 

FLAGWRD5 

R77FLeiT 

A 

ALM/ENO 

FLAGWRC7 

V37FLBIT 

A 

CHECKRR 

FLGWROll 

LR6YB1T 

ALM/ENO 
FLAGWPDl 
TRAC  KBIT 
A 
0 

ALM/ENO 

tS/EXTVe 


IS  R29  ON? 


YES 

I S R77  RUNN ING? 


YESo 

IS  SERVICER  PUNNING  AND  HENCE  POSSIBLY 
R12  USI NG  THE  LP? 

NO 

YES,  IS  R12  ON? 

BIT  15 

YES 

IS  THE  TRACK  FLAG  SET  AND  HENCE  POSSIBLY 
P20  USING  THE  PR? 

NOT  ALLOWED  DURING  P20 
P22  OR  P25,  (R65I 


KEF  8 LAST 

REF  2 LAST 

REF  5 LAST 

RFF  3 LAST 

REF  1 

PEF  1 

REF  10  LAST 


278  A3, 2725 

276  A3, 2726 

276  A3, 2727 

119  £4,1600 

A3, 2730 
A3, 2731 

279  A3, 2732 


0 2076  1 V66A 
3 4740  0 
C 51C5  0 

03606  1 
6A1CA  0 
0 5155  0 


TC  TESTXACT 

CAF  PR  104 
TC  FUCVAC 

EBANK=  ALPHASB 
2CADR  SBANCANT 


IF  DISPLAY  SYSo  NCT  BUSY, MAKE  IT  BUSY 

CALCo  tOISPLAY  S-BAKO  ANTENNA  ANGLESj 


TC  ENOOFJOB 


GAP  : 

L 

P0661 

R0662 

R0663 

R066<^ 

R0665 

R0666 

R0667 

0668 

0669 

0670 

0671 

0672 

0673 

067*- 

0675 

0676 

0677 

0678 

0679 

0680 

0681 

0682 

0683 

068*^ 

0685 

0686 

0687 

0688 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

C696 

0696 

0697 

0698 

0699 

0700 

0701 


ASSE^BLe  REVISION  131  OF  AGO  PRCCRA^  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19,1969  LEPONAIDc’04  PAGE  283 


EXTENDED  VERBS  USER'S  PAGE  NC«  21  E*  S4 

IRUATTCK  VERB  42  DESCRIPTION 

LOAD  IMU  ATTITUDE  ERROR  METERS 
lo  REQUIRE  POO  OR  FRESH  STARTo 

2o  REQUIRE  CCARSE  ALIGN  ENABLE  AND  ZERO  ICOU  BITS  OFF, 

3,  REQUIRE  THAT  NEEDLES  BE  CFF, 

4o  REQUEST  LCAD  OF  N22  IVAUES  TO  BE  DISPLAYED), 

5,  CN  PROCEED  CR  ENTER  RE-DISPLAY  V43  AND  SEND  PULSES, 


REF 


43,2733  0 2121  I IMLATTCK  TC  CHKPOOH 


VB  76  - LOAD  IMU  ATT,  ERROR  METERS 


REF  3 

REF  20 
REF  80 
REF  21 


LAST  182 

LAST  281 
LAST  282 
LAST  262 


43.2734 

43.2735 

43.2736 

43.2737 
43,2740 


3 4763  1 
0 0006  1 
C2  012  0 
10  000  0 
1 2116  1 


CAF  BITS4E5 
EXTEND 

RAND  CHAN12  — 

CCS  A 

TCF  ALM/ENC 


SFF  IF  COARSF  ALIGN  ENABLE  AND  ZERO  IMU 
CDUS  BITS  ARE  ON 


NOT  ALLOWED  IF  IMU  COARSE  OP  IMU  ZERO  ON 


REF  I 

REF  1 
REF  2 

REF  22 


LAST  283 

LAST  283 


43.2741 

43.2742 

43.2743 

43.2744 

43.2745 

43.2746 

43.2747 


3 4355  C 
C 0006  1 
Ce  C31  0 
7 4355  1 
C 0006  1 
1 2750  0 
1 2116  1 


CAF  R1T13-14 
EXTEND 

RXOR  CHAN31 

MASK  BIT13-14 

EXTEND 

6ZF  +2 

TCF  ALM/ENP 


BOTH  BITS  13  AND  14  MUST  BE  1 
INDICATING  THE  MODF  SELECTED  IS  OFF-, 


NEEDLES  IS  CFF, 

EXIT,  NEEDLFS  IS  CN, 


REF  9 LAST  282 


43,2750  C 2C76 


TC  TESTXACT 


REF  2 
REF  49 
REF  5 
REF  15 


REF  1 
REF  50 
REF  5 
REF  32 

REF  21 
REF  9 
REF  9 
REF  4 
REF  I 
REF  1 
REF  16 


LAST  269 
LAST  281 
LAST  277 
LAST  281 


LAST  283 
LAST  275 
LAST  281 

LAST  283 
LAST  281 
LAST  279 
LAST  99 


LAST  283 


43.2751 

43.2752 

43.2753 

43.2754 

43.2755 

43.2756 
43  ,2757 
4 3,2760 

43.2761 

43.2762 
43,  2763 

43.2764 

43.2765 
0321 

43.2766 

43.2767 
43,2770 


2 2234  0 
C 4616  1 
20334  1 
0 5472  0 
0 2756  1 

2 2771  1 

0 4616  1 
20621  0 

3 4746  0 
C 0006  1 
C5  012  1 
3 4752  0 
C 5203  0 

02035  0 
64100  I 

1 5472  1 


CAF 

TC 

CAOR 

TC 

TC 

CAF 

TC 

CACR 

CAF 

EXTEND 

WOR 

CAF 

TC 

EBANK= 

2CADP 


VNLOOCOL 
BANKCALL 
GOXDSPF 
ENOE  XT 
+ 1 

V43K 

BANKCALL 

EXCSPRET 

eiT6 

CHAN12 

TWO 

WAITLIST 

THETAD 

ATTCK2 


V34 

REDISPLAY  OUR  VFRB, 


ENABLE  ERROR  COUNTERSc 

PUT  OUT  COMMANDS  IN  -,32  SECONOSr 


TCF  ENDEXT 


REF  1 


42,2035 
42, 2000 
42,2035 


BANK  42 

SETLOC  PINBALLB  SOMETHING  IN  B42o 

BANK 


REF 


COUNT*  iS/EXTVe 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PFCGPAM  LUMINARY  BY  NASA  2021112-091 


17:f3  DECo  10|  1969  LEMONAIO  1''4  PAGE  284 


L EXTENCEC  VERBS 


USER'S  PAGF  NCo  22  E4  S4 


0702  REF 

0703  REF 

0704  REF 
07C5  REF 

0706 

0707  REF 

0708  REF 

0709  REF 

0710  REF 

0711  REF 


10  LAST 
25  LAST 
81  LAST 
5 LAST 


1 

26  LAST 
2 LAST 

27  LAST 
2 LAST 


283 
282 
283 
28  3 


28A 

176 

284 

283 


42  t2035 

42.2036 

42.2037 

42.2040 

42.2041 

42.2042 

42.2043 

42. 2044 
42  ,2045 
42,2C46 


3 4752  0 
54  CC2  1 
50  000  I 
3 C321  1 
C 0006  1 
7 2053  1 
50  C02  0 
56  050  1 
10  002  I 
I 2036  1 


ATTCK2 
+ l 


CAF  TWO 
TS  0 

INDEX  A 
CA  THETAD 

EXTEND 

MP  ATTSCALE 

INDEX  Q 
XCH  CDUXCMD 
CCS  Q 

TCF  ATTCK2  +1 


PIT  OUT  COMMANOSo 

CDU  WILL  LIMIT  EXCESS  DATA, 


0712  REF  1 

0713 

0714  REF  6 

0715  REF  4 


LAST 

LAST 


222 

240 


42,2047 

42,2C5C 

42.2051 

42.2052 


2 7743  0 
C 0006  1 
C5  C14  1 
1 5261  0 


CAF 

EXTEND 

WOR 

TCF 


13,14,15 

CHAM4 
TA  SKOVER 


LFAVE  ERROR  COUNTERS  ENABLEOo 


0716 


42,2053  C3146 


ATTSCALE  CEC  Oa) 


0717 

0718  REF 

0719 


LAST  278 


07,2666 

43,2000 

43,2771 


BANK  7 
SETLCC  EXTVERBS 
BANK 


0720  REF 


4 LAST  282  TO  283: 


329* 


COUNT#  SS/EXTVB 


0721 

R0722 

R0723 

R0724  U 

R0725 

RU726 

R0727 

R0728 

R0729 

R073U 

R0731 

R0732 

R0733 

R0734 

R0735 

R0736 

R0737 

R0738 


43,2771  12600  1 V43K  VN  4300 

V82PERF  VERB  82  DESCRIPTION 

REOUEST  CRBIT  PARAMETERS  DISPLAY  (RSOJ 
IF  AVERAGE  G IS  OFF: 

FLASH  DISPLAY  V04N06e  R2  INDICATES  WHICH  SHIP'S  STATE  VECTOR  IS 
TO  BE  UPCATEDo  INITIAL  CHCICE  IS  THIS  SHIP  (R2=l)<,  ASTRONAUT 
CAN  CHANGE  TO  OTHER  SHIP  BY  V22EXE,  WHERE  X NOT  EQ  lo 
SELECTED  STATE  VECTCR  UPCATEC  BY  THISPREC  (OTHPREOo 
CALLS  SR30ol  (WHICH  CALLS  TFFCONMU  + TFFRP/RA)  TO  CALCULATE 
RPER  (PERIGEE  RADIUS),  RAPO  (APOGEE  RADIUS),  HPER  (PERIGEE 
HEIGHT  ABOVE  LAUNCH  PAD  OP  LUNAR  LANCING  SITE),  HAPO  (APOGEE 
HEIGHT  AS  ABOVE),  TPER  (TIME  TC  PERIGEE),  TFF  (TIME  TC 
INTERSECT  300  K FT  ABOVE  PAD  OR  35KFT  ABOVE  LANDING  SITE), 

FLASH  MONITOR  V16N44  (HAPC,  HPER,  TFF), TFF  IS  -59M59S  IF  IT  WAS 
NOT  COMPUTABLE,  GTHERWISE  IT  INCREMENTS  ONCE  PER  SECCNDo 
ASTRCNAUT  HAS  OPTIC^  TC  MONITOR  TPER  BY  KEYING  IN  N 32  Eo 
DISPLAY  IS  IN  HMS,  IS  NEGATIVE  (AS  WAS  TFF),  AND  INCREMENTS 
ONCE  PER  SECOND  ONLY  IF  TFF  DISPLAY  WAS  -59M59S, 


R0739  2*  IF  AVERAGE  G IS  CN: 

R0740  CALLS  SR30«1  APPROX  EVERY  TWO  SECSo  STATE  VECTOR  IS  ALWAYS 

R0741  FOR  THIS  VEHICLEo  V82  DCES  NOT  DISTURB  STATE  VECTOR*  RESULTS 

R0742  OF  SR30*1  ARE  RAFC,  RFER,  HAPO,  HPER,  TPER,  TFF* 

R0743  FLASH  MONITOR  Vl6N4i  (HAPO,  HPER,  TFF).. 

R0744  IF  MCCE  IS  Pll,  THEN  CALL  DELRSPL  SO  ASTRONAUT  CAN  MONITOR 

R0745  RESULTS  BY  NSOEo  SPLASH  CCMPUTATICN  CCNE  CNCE  PER  TWO  SFCS, 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGRAP  LUMINARY  BY  NASA  2021112-091 


]7:53  DECa  19,196«  LEMONAIO.  104  PAGE  285 


L EXTENDED  VERES 

0746  PEF  10  LAST  283 


R0775 

R0776 

R0777 

R0778 

R0779 


43i2772  0 2076  I V82PERF  TC 


TESTXACT 


0747  REF 

0748  REF 

0749 

0750  RgF 

0751  REF 

0752  REF 

0753  PEF 
0753  REF 


R0754 

R0755 

R0756 

R0757 

R0758 

R0759 

R0760 

R0761 


LAST  277  43,2773  3 5021  1 

LAST  277  43,2774  0 5146  1 

43  ,2775  C 0006  1 

43,2176  3 3C01  0 

43,2777  0 5165  0 


CAF 


PR  IC7 
PR I0CHN6 

EXTEND 

DCA  V82CCN 

TC  SUPOXCHZ 


LAST  118 


£4,1716 
43,3000 
43  ,3001 


V883PERF  VERB  83  DESCRIPTION 

REQUEST  RENDEZVOUS  PARAMETER  DISPLAY  (R31> 
le  SET  EXT  VERB  DISPLAY  BUSY  FLAGo 
2e  SCHEDULE  R31CALL  kITH  PRIORITY  5o 
A«  DISPLAY 

PI  RANGE 
R2  RANGE  RATE 
R3  ThETA 


0762  REF  11  LAST  285  43,3002  C 2076  1 V83PERF  TC 


TESTXACT 


0763 

0764 

0765 

0766 

0766 

0767 


REF 

REF 

REF 

REF 

REF 

REF 


11  LAST  282 


43.3003 

43.3004 
E7, 1611 

43.3005 

43.3006 
43,30C7 


CAF 


03737  1 
60107  1 
C 5155  0 


BIT2 

WAITLIST 
EBANK=  TSTRT 
2CADR  R31CALL 

TC 


VERB  89  DESCRIPTION 


ENDCFJDE 

RENDEZVCUS  FINAL  ATTITUDE  ROUTINE  (R63> 


USER'S  PAGF  NCo 


LESS  THAN  LAMBERTa  R30,V82 


V82CALL  IN  DIFF  SUPERBANK  FROM  V62PERF 


2o  IF  IN  POO,  CO  IML  STATUS  CFECK  ROUTINE  (RO2B0TH)a  IF  IMU  ON  AND  ITS 
ORIENTATION  KNOWN  TO  LGC , CONTINUEp 

3e  FLASH  DISPLAY  V 04  N 06o  R2  INDICATES  WHICH  SPACECRAFT  AXIS  IS  TC 
BE  POINTED  AT  CSMo  INITIAL  CHCICE  IS  PREFERRED  (+ZI  AXIS  (R2=l)a 
ASTRONAUT  CAN  CHANGE  TO  (+X)  AXIS  (R2  NOT  = II  BY  V 22  £ 2 Eo  CONTINUE 
AFTER  KEYING  IN  PRCCEEDo 

4o  BOTH  VEHICLE  STATE  VECTORS  UPDATED  BY  CCMC  ECSo 

5,  HALF  MAGNITUDE  UNIT  LOS  VECTOR  (IN  STABLE  MEMBER  COORDINATES)  AND 


gap: 

L 

R0781 

R0782 

R0783 

R0784 

R0785 

R0786 

R0787 

0738 

0789 

0790 

0791 

0792 

0793 

0793 

079A 

R0795 

R0796 

R0797 

R0798 

R0799 

R0800 

R0801 

R0802 

R0803 

R0804 

0805 

0806 

0807 

0808 

0809 

0809 

0810 

R0811 

R0812 

R0813 

081^ 

0815 

0616 

R0817 

R0618 

R0819 

R0821 
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EXTENDED  VERBS 


USER'S  PAGE  NCc 


RECYCLE  - RETURN  TC  STEP  Ao 
TERMINATE  - EXIT  R63o 

PROCEED  - RESET  3AXISFLG  AND  CALL  R60LEM  FOR  ATTITUDE  MANEUVER., 


REF  2 LAST  283  43  ,3010  0 2121  1 

REF  12  LAST  285  A3, 3011  C 2C76  1 

REF  1 43,3012  2 4737  0 

REF  6 LAST  282  43,3013  C 5105  0 

REF  3 LAST  118  E4,1606 

PEF  I 43,3014  02022  0 

REF  1 43,3015  54104  0 

REF  12  LAST  285  43,3016  0 5155  0 


V89PERF  TC 


E8AN'K= 

2CA0P 


TC 


CHKPOOH 

TESTXACT 

PRIOlO 

FINDVAC 

RCNE 

VB9CALL 

ENDCFJOP 


PERF  VERB  90  DESCRIPTION 

REQUEST  RENDEZVCLS  OUT-OF-PLANE  DISPLAY  (R36I 
lo  SET  EXT  VERB  DISPLAY  BUSY  FLAG., 

20  SCHEDULE  R36  CALL  ViITh  PPICRITY  10 
A0  DISPLAY 

TIME  OF  EVENT  - HOURS  , MINUTES  , SECONDS 
Y OUT-OF-PLANE  POSITICN  - NAUTICAL  MILES 
YUOT  OUT-OF-PLANE  VELOCITY  - FEET/SECOND 
PSI  ANGLE  BTW  LINE  CF  SIGHT  AND  FORWARD 

DIRECTION  VECTOR  IN  HORIZONTAL  PLANE  - CEGREFS 


REF 

REF 

RFF 

REF 

REF 

REF 

REF 


LAST  286 
LAST  285 
LAST  286 
LAST  2^4 


43,3017 

43.3020 

43.3021 
E7,1461 

43.3022 

43.3023 


2076  I 
5021  I 
51C5  0 


13  LAST  286  43,3024  1 5155  1 

MINIMP  VERB  76 

MINIMUM  IMPULSE  MCOE 


V90PER  F 


CAF 


TESTXACT 
PRIC7 
TC  FINDVAC 

EBANK=  TIG 
2CA0R  R36 


DESCRIPTION 


lo  SET  MNIMLM  IMPULSE  RHC  MODE  FLAG  TC  lo 


REF 

REF 

REF 


LAST  278  43,3025 

43  ,3026 
LAST  281  43,3027 


C 5504 
00303 
1 2117 


UPFLAG 

PULSEFLG 

GOPIN 


SET  PULSES  = 

RETURN  VIA  PINBRNCH 


INo  IMPULSE  MODE! 


NOMINIMP  VERB  77  DESCRIPTION 

RATE  CCMNANO  MCCE 

lo  SET  MINIMUM  IMPULSE  RHC  MODE  FLAG  TO  Oo  (ZERO  INDICATES  NOT  MINIMUM  IMPULSE  MODEolo 
2o  MOVE  CDUX,CDUY,COUZ  INTO  CDU XD , COU YD jCDUZOo 


GAP:  ASSEf'BLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
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L EXTENDED  VERBS 


USER'S  PAGE  NOo  25  E4  S4 


0822  REF  21  LAST  281 

0823  REF  2 LAST  286 

08235 

0824  FEF  11  LAST  246 

0825  REF  1 

0826  REF  12  LAST  286 


A3, 3030 
43,3031 
A3, 3032 
A3, 3033 
43  ,303a. 
A3  ,3035 


C 5516  C 
00303  I 
0 0004  0 
C A67A  0 
40154  0 
n 2117  I 


NQMNIMP  TC 

ADRES 

INHINT 

TC 

CAOR 

TC 


OCUNFLAG 

PULSEFLG 

IBNKCALL 

ZATTEROR 

GCPIN 


SET 


PULSES 


0 (NOT  MINIMUM  IMPULSE  MODE 


37:53  OECo  19,1<J6«5  L E I'HNA  I Cr  104  PAGE  2fle 


GAP:  assemble  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L EXTENDED  VERBS 


P0827 

R0628 

R0829 

R0830 

RC831 

R0832 


CREWMANU  VERB  49  OESCRIPTICN 

START  AUTOMATIC  ATTITUDE  MANEUVER 
U REQUIRE  PROGRAM  00  ACTIVEo 
2o  SET  EXT  VERB  DISPLAY  BUSY  FLAGo 
3o  SCHEDULE  R62CISF  ^ITH  PRIORITY  lOo 
4*  RELEASE  EXT  VERB  DISPLAY, 


USER  'S  PAGE  NOo  26 


E4  S4 


R0833 

R0834 

R0835 

R083& 

R0837 

R0838 

R0839 

R0841 

RUe42 

R0843 


R62EISP 

lo  DISPLAY  FLASHING  V06iN22o 
RESPONSES 
Ac  TERMINATE 

I,  GO  TO  GCTCPCCH, 

Bo  PROCEED 

lo  SET  3AXISFLG  TO  INDICATE  MANEUVER  IS  SPECIFIED  BY  3 AXiSo 
2o  EXECUTE  R60LEM  {ATTITUDE  MANEUVERS 
Co  ENTER 

lo  REPEAT  FLASHING  V06,N22« 


0844-  REF  3 


LAST  286 


43,3036  C 2121 


CRERMANU  TO 


CHKPCCH 


DEMAND  POO 


0845 


REF  14  LAST  286 


43 ,3037  0 2076 


TC  TESTXACT 


0846  REF 

0847  REF 
C84B  REF 
0849  REF 

0849  REF 

0850  REF 


LAST  286 
LAST  286 
LAST  136 


LAST  286 


43.3040  3 4737  C 

43.3041  0 5105  0 
E6,1675 

43.3042  02103  1 

43.3043  46106  1 

43.3044  0 5155  0 


CAF  PRIOlO 
TC  FINDVAC 

EBANK=  BCOU 
2CA0R  P62DISF 

TC  ENDOFJCe 
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PAGE  289 


L EXTENCEC  VERES 


USFR»  S PAGE  NCe  27  E4  S^ 


P0851 

R0852 

R0853 

R0854 

R0856 


TKMIRACK 


VERB  56  CE'SCRIPTICN 

TERMINATE  TRACKING  (P20  ANO  P25U 

lo  KNCCK  DCWN  REACEZVOUS,  TRACK,  AND  UPDATE  FLAGSo 

2o  REQUIRE  P20  CR  P25  NOT  RUAMAG  ALCAE  OR  GC  TO  GQTOPOCh  (REQUEST  PROGRAM  PCK 
3o  SCHEDULE  V56T0VAC  WITH  PRIORITY  30o 


R 0857 
R0856 
R0860 
R0861 


lo  EXECUTE  INTSTALL  (IF  INTEGRATION  IS  RUNNING,  STALL  UNTIL  IT  IS  FINISHEDoIo 
2o  ZERO  GROUP  2 TO  HALT  P20o 

3o  TRANSFER  CCNTFCL  TC  GCPRCG2  (SOFTWARE  RESTART  U 


0862 

0863 

0864 

0865 


REF  1 

REF  18  LAST  233 
REF  13  LAST  287 


3.3045  2 3065  1 TRMTRACK  CA  B1TS9  + 7 


43  ,3  046  7 0074  0 

43,3047  C 0006  1 
43,3050  1 Z117  0 


MASK  FLAGHRDC 
EXTEND 

BZF  GOPIN 


IS  REND  OR  P25  FLAG  ON 


AO 


0866  RFF  22  LAST  287 

0867  REF  1 


43.3051  0 5516  0 

43. 3052  COCIO  C 


TC  DOWNFLAG 

ADRES  RNOVZFLG 


0868  REF  23  LAST  289 

0869  REF  1 


43.3053  0 5516  0 

43.3054  00006  1 


TC  DOWNFLAG 

ADRES  P25FLAG 


0870 

0071 


REF  24 
REF  1 


LAST  289 


43,3055 
43  ,3056 


0 5516  0 
00037  0 


TC  DOWNFLAG  ENSURE  SEARCH  FLAG  IS  CFF 

ACRES  SRCHOPTN 


0872 

0873 

0874 

0875 


REF  2 LAST 
REF  10  LAST 

REF  14  LAST 


282  43,3057  2 4747  1 

282  43,3060  7 0075  1 

43,3061  C 00C6  1 
269  43,3062  2 2117  0 


CA  TRACKBIT  IS  TRACK  FLAG  ON? 

MASK  FLAGWRDl 

EXTEND 

8ZF  GOPIA 


0076 

0877 


REF  10  LAST  277 
REF  1 


43.3063  0 4635  0 

43.3064  64054  1 


TC  POSTJUMP 

CAOR  TRMTRAKl 


0870 


43,3065  C0500  1 BITS9+7  OCT  500 


0879  REF 

0880 


LAST  277  42,2000 

42,2054 


SFTLOC  SBANO  BANK  42 

RANK 


0881  REF 


LAST  283  TO  284:  15  15# 


COUNT#  $$/EXTVB 


0882  REF  25 

0883  REF  1 

0884  REF  26 

0885  REF  1 

0386  REF  27 

0867  REF  2 


LAST 

LAST 

LAST 

LAST 


289  42,2054  0 5516  0 

42,2055  00027  1 

289’  42  ,2056  0 5516  0 

42,2057  00031  0 

289  42,2060  0 5516  0 

233  42  ,206  1 00007  0 


TRMTRAKl  TC 

ADRES 

TC 

ADRES 

TC 

ACRES 


DOWNFLAG 

UPOATFLG 

DOWNFLAG 

TRACKFL6 

DOWNFLAG 

IMUSE 


UPDATE  FLAG  DOWN 
TRACK  FLAG  DOWN 


0888  REF 

0889 

0890  REF 


LAST  266 
LAST  238 


42,  2062 

42.2063 

42.2064 


0 6C42  1 
77624  1 
27410  1 


TC  lATPRET 

CALL 

INTSTALL  COAT  INTERRUPT  INTEGRATION 


ASSfcMBLE  REVISION  131  CF  AGC  PRCGRA^  LUMINARY  8Y  NASA  2D211I2-09I 
EXTENOEC  VERBS 

^2i2065  77776  1 EXIT 


REF 


LAST  230 


TC 

OCT 


17:53  DECo  19,196C  LFMONAIO  10^  PAGE  290 
USER'S  PAGE  NOc  26  E4  SA 


KILL  GROUP  2 TO  HALT  P2P  ACTIVITY 


C894 

0895 

0896 


REF 

REF 


12  LAST  287 


A2,2070 
^2, 2071 
^2t2072 


C 0CC4  0 
C 4674  0 
40166  1 


INFINT 

TC 

CAOR 


ZERO  THE  COMMANDFC  RATES  TO  STOP 
MANEUVER 


13  LAST  290 


0899 

09C0 

0901 

0902 

0903 

0904 


REF 

REF 

REF 

RbF 

REF 


LAST  271 

LAST  281 

LAST  283 
LAST  289 
LAST  232 


42 ,2075  0 6011  1 


^2,2076 
42,2077 
42 ,2100 
A2,2101 
42,2102 


A A736  0 
C 0006  1 
03  012  1 
0 A635  0 
12766  0 


CS 


CLRAOMOD 

BIT14 


EXTEND 
WANO  CHAN12  — 
TC  POSTJUMP 

CADR  G0PR0G2 


CLEAR  BITS  K + 15  CF  RADMODESo 
CISABLE  LOCKON 


CAUSE  RESTART, 


R0905 

R0906 

R09P7 

R0908 

R0909 


DUMP  VERB  74  DESCRIPTION 

INITIALIZE  DOWN-TELEMETRY  PROGRAM  FCP  ERASABLE  MEMORY  DUMP, 
lo  SET  EXT  VERB  DISPLAY  BUSY  FLAGa 
2,  REPLACE  CURRENT  OCWNLIST  WITH  ERASABLE  MEMCRY, 

3o  RELEASE  EXT  VERB  DISPLAY, 


0912 


5 LAST  284  TO  289: 


COUNT*  SS/EXTVB 


0913 

0914 

0915 

0916 


REF 

REF 

REF 


LAST 

LAST 


221 

289 


0400 
43,3066 
43  ,3067 
A3, 3070 


3 3071  1 
5A  335  0 
C 2117  1 


EBANK=  400 
CAF  LDNDUMPI 

TS  DNTMGOTO 

TC  GOPIN 


LAST  263 


V7A  EQUALS  DNEOUMP 

03721  0 LDNDUMPI  REMAOR  ONCUMPI 


R0919 

R0920 

R0921 


LEMVEC  VERB  8C 

UPDATE  LEM  STATE  VECTOR 
RESET  VEHUPFLG  TC  0 


DESCR IPTION 


28  LAST  289 


VEHUPFLG  DOWN  INDICATES  LEM 


0924 

R0925 

R0926 


UPDATE  CSM  STATE  VECTOR 


DESCR  IPTION 


ASSEMBLE  REVISION  131  CF  A6C  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


GAP : 


L EXTENDED  VERBS 

R0S27  set'  VEhUPFLG  TC  1 


0928  REF  10  LAST  286  <<3,3075  C 5504  0 CSMVEC  TC  UPFLAG 

0929  REF  2 LAST  290  43,3076  00026  0 ADRES  VEHUPFLG 


0930  REF  29  LAST  290  43,3077  0 5516  0 NCUPOOWN  TC  DOWNFLAG 

0931  REF  1 <|3,3100  CC03C  I AORES  NOUPFLAG 


0932  PEF  16  LAST  290  43,3101  1 2117  0 TCF 

R0933  UPOATOFF  VERB95  DESCRIPTICN 

R0934  INHIBIT  STATE  VECTOR  UPDATES  BY  INCORP 

R0935  SET  NCUPFLAG  TC  1 


REF  11  LAST  291 


REF  17  LAST  291 


43.3103  00030  1 

43.3104  C 2117  1 


17:53  OECo  19,1969  LEMONAID  104  PAGE  291 


USER'S  PAGE  NPo  2°  El  S4 


VB  81  - VEHUPFLG  UP  INCICATFS  CSM 


VB  95  SET  NOUPFLAG 


gap: 

L 

P0939 

R0940 

R0941 

R0942 

0943 

0944 

0945 

0946 

0947 

0948 

0949 

0950 

0950 

0951 

R0952 

0953 

0954 

0055 

0956 

0957 

0958 

0959 

0960 

0961 

0962 

0963 

0964 

0965 

0966 

0967 

0968 

0969 

0970 

0971 

0972 

0973 

0974 

0975 

0976 

0977 

0978 
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EXTENDED  VERBS  USER'S  PAGE  NCc  30  el  S4 

SYSTEST  VERB  92  DESCRIPTICN 

OPERATE  IMU  PERFORMANCE  TESTo 

lo  REQUIRE  PROGRAM  00  CR  TURN  QN  OPERATOR  EPRORo 
2o  SET  EXT  VERB  8LSV  FLAG, 

REF  2 LAST  128  £5,1417  EBANK=  OPLACE 


REF  4 LAST  288 
REF  15  LAST  288 


43,3105  0 2121  1 SYSTEST  TC 
ii3,3V06  C 2076  1 TC 


CHKPOOH  DEMAND  POO 

TESTXACT 


REF  1 
REF  9 
REF  3 
REF  1 
REF  1 
REF  I 
REF  15 


LAST  268 
LAST  292 

LAST  288 


43,3107 

^3,3110 

E5,1417 

37,2000 

43. 3111 

43.3112 

43.3113 


3 7713  0 
C 5105  0 


C2C02  1 
76065  0 
r 5155  0 


CAF  PRI022 

TC  FINCVAC 

EBANK=  OPLACE 
SBANK=  IMUSUPER 
2CADR  REOG 


TC  ENCOFJCE 


CLEAR  RENCWFLG,  CAUSES  W-MATRI  X TO  BE  R E- 1 NI  T I AL I ZED, 


REF  1 

REF  U LAST  282 
REF  12  LAST  2^2 


43  ,3114 

43.3115 

43.3116 
43  ,3  117 


0 0004 
4 4753 
7 0101 
54  101 


0 

0 

0 

0 


WMATRXNG 


INFINT 

CS  RENOWeiT 
MASK  FLAGt<RD5 
TS  FLAGWRC5 


REF  IB  LAST  291 


43,3120  C 2117 


TC 


GOPIN 


REF 


43,3121 


GOSHOSUM  EQUALS  SHOWSUM 


REF  5 LAST  292 

REF  16  LAST  29  2 

REF  4 LAST  286 

REF  3 LAST  285 

REF  1 

REF  2 LAST  109 

REF  1 

REF  3 LAST  214 

REF  I 

REF  3 LAST  225 

REF  1 


43.3121  0 2121 

43.3122  C 2076 

43.3123  3 5021  1 

43.3124  C 5146  I 

43.3125  3 4753  I 

43.3126  55'376  0 

43.3127  3 4755  1 

43.3130  55'362  0 

43.3131  3 3272  0 

43.3132  55'361  0 

43.3133  0 3547  1 


TC  CHKPOOH 

TC  TESTXACT 

CAF  PRI07 

TC  PRICCHNG 

CAF  S+1 

TS  SKEEP6 

CAF  S+ZERO 

TS  SMODE 

CA  SELFAORS 

TS  SELFRET 

TC  STSHOSUM 


1 SHCWSUM 


* 

ALLOW  OTHER  CHAP  INS, 


* 

* SHOWSUM  OPTION 

* 

* TIRN  OFF  SELF-CHECK 

# ENTER  ROPECHK 


REF  2 LAST  109 
REF  2 LAST  1C9 
REF  1 

REF  41  LAST  277 
REF  1 

REF  51  LAST  283 
REF  6 LAST  283 

REF  1 


43.3134  23'372  0 

43.3135  23*373  1 

43.3136  3 3271  0 

43.3137  54  156  I 

43  ,3140  3 3151  1 

43.3141  C 4616  1 

43.3142  20334  I 

43  ,3143  0 3146  1 

43,3144  C 3660  1 


SDISPLAY  LXCH 
LXCH 

NCKILL  CA 
TS 
CA 
TC 

CAOR 

TC 

TC 


SKEEP? 

SKEEP3 

AORSl 

MPAC  +2 

VNCON 

BANKCALL 

GOXOSPF 

+3 

NXT6NK 


* BANK  ft  FOP  DISPLAY 

* BUGGER  WORD  FOR  DISPLAY 

* 

* 0501 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PPCGRAf-  LUMINARY  8Y  NASA  2021112-091 


L EXTENDEC  VERBS 


0979  REF 

0980  REF 

0981  REF 


1 

2 

2 


LAST  292 
LAST  109 


A3r3145 
^•3,  31A6 
4Bf3l47 


0 3136  0 
3 3272  0 
55*371  1 


TC  NOKILL 

CA  SELFADRS 

TS  SKEEPl 


0982  REF  17  LAST  283 

0983 


^3,3150  C 5472  0 
43,3151  01201  0 VNCON 


TC  FNCEXT 

VN  501 


0986 

0987 


REF 

REF 

REF 


3 


2 

2 


LAST  292 

LAST  225 
LAST  292 


43 .3152 

43.3153 

43.3154 

43.3155 


ENCSUMS 


CA 

EXTEND 

BZF 

TC 


SKEEP6 

SELFCHK 

STSHOSUM 


17:53  CECo  19,1969  LEMONAID  104  PAGE  293 


USER*  S PAGE  NCo  ?1 


65  S4 


* 


* POPECHK,  START  SELFCHK  AGAIN, 

* START  SHOWSUM  AGAIN« 


GAP;  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091  17:53  CECo  19,1969  I E MON  A 1 Do  lf'4  PAGE  29A 

L EXTENDED  VERBS  USER'S  PAGE  NC»  32  F5  SA- 


P09a8  DAPDISP  VERB  ^8  OESCRIPTICN 

R0989  LCAO  AUTC  PILOT  DATA 

R0990  lo  REQUIRE  EXT  VERB  DISPLAY  AVAILABLE  AND  SET  BUSY  FLAGo 

R0991  2o  EXECUTE  0AP0A7A1,  DAPDATA2,  AND  0APDATA3© 

R0992  3*  RELEASE  EXT  VERB  DISPLAY  SYSTEMo 

R0993  KEY 

R0994  THE  FOLLOWING  IS  A KEY  TO  THE  5 DIGITS  OF  THE  DAP  DATA  CODE  (N46) 


R0995 

R0996 

R0997 

R0998 


DIGI 


7 A 


- VEHICLE  CCKF  IGURAT  ICN 

1 - LM  ALCNE,  ASCE-NT 

2 - LM  ALONE,  DESCENT 

3 - CSM  AND  LM  OCCKEC 


R0999 
RIOOO 
R 1001 
R1002 
R1003 


DIGIT 


0 

1 

2 

3 


ACCELERATICN  CODE 

- 2 JET  TRANSLATICN, 

- 2 JET  TRANSLATICN, 

- 4 JET  TRANSLATION, 

- 4 JET  TRANSLATICN, 


RCS  SYSTEM 
RCS  SYSTEM 
RCS  SYSTEM 
RCS  SYSTEM 


A PREFERRED 
e PREFERRED 

A PREFERRED  (NOT  MEANINGFUL! 
e PREFERRED  (NOT  MEANINGFUL) 


R1004  DIGIT  C - ACA  SCALING 
R1005  0 - FINE 

R1006  1 - NORMAL 


R1007  CIGIT  C - DEADBAND 

R1008  0 - 0,3  DEG 

R1009  1 - loO  DEG 

RIOIO  2 - 5oO  DEG 

RlOll  (3  - 5.0  CEG  BY  DEFAULT) 


R1012  DIGIT 

R1013 

R1014 

R1015 

R1016 


- MANEUVER  RATE 

0 - 0o2  CEG/SEC 

1 - 0e5  OEG/SEC 

2 - 2,0  OEG/SEC 

3 -10,0  CEG/SEC 


1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 


REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 


292 
29  2 
292 
290 


43.3156 

43.3157 
43  ,3160 

43.3161 

43.3162 
34  ,2000 
20,2000 
20 ,2004 


C 2076  1 
3 5021  1 
0 5146  1 
0 4635  0 
40004  1 


DAPDISP  TC 
CAF 
TC 


TESTXACT 
PRIC7 
PR  IQCHNG 
POSTJUMP 
DAPDA7A1 


CADR 
BANK  34 
SETLCC  LOACCAP 


P03 


1025  REF  1 

1026  REF  2 LAST  212  20,2000 


COUNT*  $t/R03 

SBANK=  LOWSUPER  FOR  SUBSEQUENT  LOW  2CA0P'S, 


1027  REF 

1028  REF 


1 

4 LAST  221 


20.2004  3 2114  1 OAPDATAl  CAF  800LSMSK 

20.2005  7 0111  1 MASK  DAPBOOLS 


SET  DISPLAY  ACCORDING  TC  DAPBOOLS  BITS, 
LM 


GAP : 

L 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 
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EXTENDED  VERBS 


USER'S  PAGE  NOn  3?  E5  S3 


REF  2 
REF  82 
REF  3? 
REF  2 
REF  3 
REF  3 


REF  1 
REF  4 
REF  1 
REF  5 
REF  I 
REF  52 
REF  1 
REF  18 
REF  1 
REF  1 
REF  1 
PFF  3 
REF  16 
REF  22 
REF  6 
REF  1 


LAST  218 
LAST  215 
LAST  284 
LAST  290 
LAST  295 
LAST  295 
LAST  283 


LAST  295 
LAST  295 
LAST  292 
LAST  293 


LAST  279 
LAST  292 
LAST  259 
LAST  295 


20,2006 

20,2007 

20,2010 

20,2011 

20,2012 

20.2013 

20.2014 

20. 2015 

20.2016 
20,2017 
20,20 20 
20,2021 
20,2022 

20.2023 

20.2024 

20.2025 

20.2026 
20,2027 

20.2030 

20.2031 

20, 2022 

20.2033 

20.2034 

20.2035 

20.2036 


55'340  0 
4 0106  1 
7 4737  1 
10  000  0 

2 4736  1 
27»34C  0 
31 '340  1 
7 4355  1 
0 0006  1 

1 2034  0 
21'340  1 
7 2113  1 
J5'340  0 

2 2112  1 

C 4616  1 

20353  0 
1 5472  1 
1 2037  0 
1 2014  1 

3 6245  1 
Q 5464  1 
1 5155  1 
3 4737  0 
27*340  0 
1 2021  1 


TS 

CS 

MASK 

CCS 

CAF 

ADS 

CHKDATAl  CAE 
MASK 
EXTEND 
BZF 
CAE 

MSKCATRl  MASK 
TS 
CAF 
TC 

CAOR 

TCF 

TCF 

TCF 

CAF 

TC 

TCF 

FCRCeCNE  CAF 
ADS 
TCF 


DAPDATRl 

FLGWRDIO 

APSFL6IT 

A 

BIT14 
DAPDATRl 
DAPDATRl 
BI T13-14 

FGRCECNE 

DAPDATRl 

DSPLYMSK 

DAPDATRl 

V01N46 

BANKCALL 

GOXDSPFR 

ENOeXT 

OPDATl 

CHKDATAl 

R EVCNT 

BLANKET 

ENDOF JOB 

BIT13 

DAPDATRl 

MSKDATRl 


LM 

SET  BIT  14  TO  BE  COMPLEMENT  OF  APSFLAG* 


IF  BITS  13  AND  14  ARE  BOTH  ZERO,  FORCE 
A ONE  INTO  BIT  13o 


ENSURE  THAT  NO  ILLEGAL  BITS  SET  BY  CREWc 


LM 


V34E  TERMINATE 
V33E  PROCEED 

E NEW  DATA  CHECK  AND  REDISPLAY 

BITS  2 6 3:  BLANKS  R2  6 R3c 


REF  3 LAST 
RFF  7 LAST 
REF  22  LAST 
REF  7 LAST 
REF  34  LAST 
REF  83  LAST 
RFF  4 LAST 
REF  23  LAST 
REF  8 LAST 
REF  0 LAST 
REF  4 LAST 
REF  84  LAST 
REF  1 
REF  2 LAST 
REF  9 LAST 
REF  24  LAST 
REF  3 LAST 
REF  5 LAST 
REF  25  LAST 
REF  6 LAST 
REF  2 LAST 
REF  85  LAST 
REF  1 


20,2037 
295  20,2040 

205  20,2041 

277  20,2042 

295  20,2043 

295  20,2044 

295  20,2045 

295  20,2046 

295  20,2047 

29  5 20,20  50 

295  20,2051 

295  20,2052 

295  20,2053 

20,2054 

294  20,2055 

295  20,2056 

295  20,2057 

295  20,2060 

294  20,2061 

295  20,2062 

205  20,2063 

295  20,2064 

295  20,2065 

20,2066 


0 0004  0 
4 4737  1 
7 0106  I 

54  on.  1 

4 1340  0 
7 4736  0 

1C  000  0 

3 4737  0 

6 OCOl  0 
54  106  1 

4 1340  0 

7 4355  1 
10  000  0 
4 4737  1 

6 2114  1 

7 1340  0 
54  001  1 
4 2114  0 
7 0111  1 

6 OCOl  0 
54  111  1 

7 4737  1 
IQ  000  0 
31*327  0 


DPDATl 


INHINT 

CS  APSFLBIT 

MASK  FLGWRDIO 

TS  L 

CS  DAPDATRl 

MASK  BIT14 

CCS  A 

CAF  APSFLBIT 

AD  L 

TS  FLGWRDIO 

CS  DAPDATRl 

MASK  BIT13-14 

CCS  A 

CS  CSMCOCKC 

AD  BOOLSMSK 

MASK  DAPDATRl 

TS  L 

CS  BOOLSMSK 

MASK  DAPBOOLS 

AO  L 

TS  DAPBOOLS 

MASK  CSMCOCKC 

CCS  A 

CAE  CSMMASS 


INHINT  FOR  SETTING  OF  FLAG  BITS  AND  MASS 
ON  BASIS  CF  DISPLAYED  DAPCATRlu 

SET  APSFLAG  TO  BE  COMPLEMENT  OF  BIT  14.1 


SFT  BITS  OF  DAPBOOLS  ON  BASIS  OF  DISPLAY 
MASK  OUT  CSMCOCKC  (BIT  131  UNLESS  BOTH 
13  AND  14  APE  SETr 


LOAD  MASS  IN  ACCORDANCF  WITH  C SMDQCKD 
MASS  IS  USUALLY  ALREADY  OKAY,  SO  DO 
NOT  TOUCH  ITS  LCW-CROER  PARTc 


gap:  assemble  REVISION  131  OF  AGC  PPCGBAM  LUMINARY  BY  NASA  2021112-091 


I EXTENDED  VERBS 


1070  REP 

1079  REF 

1080  REF 

1081  REF 

1082 

1083 

1084  REF 

1085  REF 

1086  REF 

1087 

1088  REF 

1089  REF 

1090  REF 

1091  REF 

1092  REF 

1093 

1094  REF 

1095  REF 

1096  REF 


7 LAST  206 
3 last  105 
7 LAST  295 
1 


20  LAST  219 

11  LAST  289 

12  LAST  296 

13  LAST  296 

21  LAST  296 

14  LAST  296 
e LAST  296 
2 LAST  235 

2 LAST  21^ 
13  LAST  299 
1 


20»2067  6 1226  I 

20»2070  55*243  I 

2O»207l  20  111  0 

20|2072  7 4791  0 

20f2073  0 0006  1 

20,2079  1 21CI  1 

20.2075  9 4735  0 

20.2076  7 0075  1 

20.2077  54  075  1 

2C,'2100  1 2109  1 

20.2101  4 0075  1 

20.2102  7 4735  0 

20.2103  26  075  1 

20.2109  2 0111  0 

20.2105  7 6250  1 

20.2106  6 QOOO  1 

20.2107  55*222  1 

20.2110  0 9635  0 

20.2111  02211  X 


AO 

TS 

CAE 

MASK 

EXTEND 

BZF 

CS 

MASK 

TS 

TCF 

CS 

MASK 

ACS 

CA 

MASK 

DOUBLE 

TS 

TC 

CADR 


lemmass 

MASS 

DAPBCCLS 

ACC40R2X 

+ 5 

BIT15 
FLAGWRCl 
FLAG  WROX 
+9 

FLAGWRCl 

BIT15 

FLAGWRDl 

dapbools 

THREE 

RATEINDX 

PQSTJUMP 

5TIKLCAC 


1097 

1098 

1099 

1100 

IlOX  REF 
1102 


2 LAST 


43 


20 ,2112 

20.2113 

20. 2114 
01,2211 
Cl, 2000 
01,2211 


00256  0 V01N46  VN 

33133  C CSPLYMSK  CCT  33133 

13133  1 BOOLSMSK  OCT  13133 

BANK  01 

SETLCC  LOADOAPl 
BANK 


1103  REF 


last  93  TO  43  i 


COUNT*  S$/R03 


1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 
1121 
1122 

1123 

1124 


REF  3 LAST  221 
REF  7 LAST  281 
REF  2 LAST  214 

REF  X 

REF  9 LAST  296 

REF  06  LAST  2«5 

REF  1 

REF  1 

REF  3 LAST  296 

REF  1 

REF  3 LAST  214 

REF  3 LAST  295 

ref  10  LAST  296 


ref  4 LAST  296 

REF  1 

REF  5 LAST  296 

REF  1 

REF  9 LAST  296 


01.2211  3 5C15  C 

01.2212  54  003  0 
66,1944 

11. 2213  2 4745  0 

31.2214  7 0111  1 

31.2215  10  COO  0 

31.2216  3 2340  1 

01  ,2217  6 2341  0 

01.2220  £5*444  0 

01.2221  3 2343  1 

01.2222  55*  476  1 

01. 2223  3 4737  0 

31  ,2229  7 0111  1 

31.2225  0 0006  1 

01.2226  1 2235  0 

01  ,2227  3 1999  1 

01.2230  0 CC06  1 

01.2231  7 2392  1 

01.2232  £5*999  0 

•01,2233  3 2399  0 

31  ,2239  55*976  1 


STIKLOAO 


CAF  EBANK6 

TS  EBANK 

EBANK=  STIKSENS 

CA  RHCSCALE 

MASK  DAPBOOLS 

CCS  A 

CA  NORMAL 

AD  FINE 

TS  STIKSENS 

CA  -O06D/S 

TS  -RATECB 

CA  CSMDCCKO 

MASK  DAPBOOLS 

EXTEND 
BZF  +7 

CA  STIKSENS 

EXTEND 
MP  3/10 

TS  STIKSENS 

CA  -0e30/S 

TS  -RATEDB 


17:53  OECo  19,1960  LFM0NAI0ol09  PAGE  296 


USER*S  PAGE  NOf  34  E5  S3 


2 OR  9 JET  X-TRANSLATICN 
(BIT  ACC40R2X  = 1 FOR  4 JETS) 


CLEAR  NJTSFLAG  TO  0 FOR  9 JETS 


SET  NJTSFLAG  TO  1 FOR  2 JETS 


SELECT  DESIRED  KALCMANU  AUTOMATIC 
MANEUVER  RATE 

RATEINDX  HAS  TO  BE  0,2,*»6  SINCE  RATES 
ARE  OP 


SET  STICK  SENSITIVITY  TC  CORRESPOND  TO  A 
MAXIMUM  COMMANDED  RATE  (AT  ^^2  COUNTS)  OF 
20  0/S(NORMAL)  OP  9 0/S(FINE),  SCALED 
AT  95  D/So 


LM-ONLY  BREAKOUT  LEVEL  IS  .6  D/S- 
IF  CSM-COCKEO,  DIVIDE  STICK  SENSITIVITY 
BY  10,  NORMAL  SCALING  IS  THEN  2 D/S  AND 
FINE  SCAL ING  IS  Oc  9 0/S 
BRANCH  IF  CSM  IS  NCT  COCKEOc 


CSM-DOCKEO  BREAKOUT  LEVEL  IS  c3  D/S- 


GAP  i 

L 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

11  50 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 


ASSEMBLE  REVISION  131  OF  AGC  PRCCRAM  LUMINARY  BY  NASA  2021112-091 


17:53  OECo  19,1969  LEMONAIO>104  PAGE  297 


EXTENDED  VERBS 


USER'S  PAGE  NOe 


E6  S3 


01,2235  0 0003 


RE  LI  NT 


PROCEED  TO  NOUN  47,  MASS  LCAD, 


REF  1 

REF  53  LAST 

REF  2 LAST 

REF  1 

REF  1 

REF  1 

REF  17  LAST 

REF  4 LAST 

REF  17  LAST 

REF  14  LAST 
REF  2 LAST 
REF  19  LAST 


31  ,2236 
295  01,2237 
295  )1,2240 

31.2241 

01. 2242 

31.2243 
279  01,2244 
295  01,2245 
295  31  ,2246 

01,2247 
290  31,2250 
290  01,2251 
295  01,2252 


3 2336  0 
C 4616  1 
23353  0 
1 2247  0 
1 2253  0 
1 2236  0 
3 4751  0 
C 5464  1 
1 5155  1 
0 0004  0 

0 4674  0 
40115  0 

1 5472  1 


CAPDATA2  CAF 
TC 

CADR 

TCF 

TCF 

TCF 

CAF 

TC 

TCF 

ENDROa  INHINT 
TC 

CACR 

TCF 


V0647 

BANKCALL 

GOXDSPFP 

EN0R03 

DAPUAT2 

0AP0ATA2 

BIT3 

BLANKET 

ENDOFJOB 

IBNKCALL 

RESTORDB 

ENDEXT 


V34E  TERMINATE^  FIRST  SET  D8 , DO  1/ACCS 
V33e  PROCEED 

LOAD  NEW  DATA  AND  RECYCLE 
BLANKS  R3 

LH 


DOES  RELINT 


REF  9 LAST  295 

REF  5 LAST  2«5 

REF  87  LAST  296 

REF  1 

REF  1 

REF  8 LAST  296 

REF  2 LAST  297 

REF  11  LAST  296 

REF  4 LAST  296 

REF  1 

REF  I 

REF  2 LAST  295 

REF  3 LAST  297 

REF  3 LAST  297 

REF  9 LAST  297 

REF  4 LAST  296 

REF  15  LAST  297 

REF  3 LAST  297 


31  ,2253 

01.2254 

01.2255 
01  ,2256 
01,2257 
31,2260 
01  ,2261 
01,2262 

01.2263 

01.2264 

01.2265 
01  ,2266 
01,2267 
*31,2270 
01  ,2271 

01.2272 

01.2273 

01 .2274 

01.2275 

01.2276 

31.2277 
01,23CO 
Cl  ,2301 
01,2302 


4 .3106  1 
7 4737  1 
1C  COO  0 
3 2000  0 
6 2001  1 
6 1326  1 
0 0006  1 

6 2236  1 
30  111  0 

7 4737  1 
C 0006  1 
1 2274  0 
^ 4741  0 
6 1327  0 
0 0006  1 
6 2236  I 
31*327  0 
6 1326  1 
22  CC7  0 
53*244  0 
0 0C04  0 
C 4674  0 

40115  0 
0 0003  I 


DAP0AT2  CS 

MASK 

CCS 

CA 

AO 

AD 

EXTEND 

BZMF 

CAE 

MASK 

EXTEND 

6ZF 

CS 

AO 

EXTEND 

BZMF 

CAE 

LEMALQNE  AO 
ZL 

DXCH 

INHINT 

TC 

CACR 

RELINT 


FLGWROlO 

APSFL6IT 

A 

HINLMD 

MINMINLM 

LEMMASS 

DAPDATA2 

DAPBOQLS 

CSMCOCKC 

LEMALQNE 
MINCSM 
C SMMASS 

DAP0ATA2 

CSMMASS 

LEMMASS 

MASS 

IBNKCALL 

RESTORDB 


DETERMINE  STAGE  FRCM  APSFLAG 

LEMMASS  MUST  BE  GREATER  THAN  EMPTY  LFM 
ASK  FOR  NEW  MASSES 


SKIP  TEST  ON  CSMMASS  IF  NCT  DOCKEOc 
TEST  CSM  MASS 

CSMMASS  MUST  BE  GREATER  THAN  EMPTY  CSM 

ASK  FOR  NEW  MASSES 

DOCKED:  MASS  = CSMMASS  + LEMMASS 

LEM  ALONE:  MASS  = LEMMASS 


SET  DEACBANK  ANC  COMPUTE  MOMENTS  OF 
INERTIAo 

PROCEED  TO  NOUN  46  lOR  END»« 


REF  10  LAST  297 
REF  6 LAST  297 


REF  20  LAST  297 
REF  1 

REF  54  LAST  297 
REF  3 LAST  297 
REF  21  LAST  297 
REF  1 


31,23(13 
01  ,2304 
01,2305 
01  ,2306 
:i,2307 
01.  2310 
01  ,2311 

01.2312 

31.2313 


4 0106  1 CAPDATA3  CS 

7 4737  1 MASK 

C 0006  1 EXTEND 

1 5472  1 BZF 

3 2337  1 CAF 

0 4616  1 TC 

20353  0 CACR 

0 5472  0 TC 

1 2320  0 TCF 


FLGWROlO 

APSFLBIT 

ENDEXT 

V06N48 

BANKCAl L 

GOXDSPFR 

ENCEXT 

DP0AT3 


END  ROUTINE  IF  LEM  HAS  STAGED, 

DISPLAY  TRIM  ANGLES  AND  REQUEST  RESPONSE 


V33E  GO  DC  TRIM  (WAITLIST  TO  TRIMGIMD) 


SAP: 

1172 

117^ 

1174 

1175 

1176 

1177 

1178 

1179 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1167 

1138 

1189 

1190 

1191 

1192 

1X93 

1194 

1195 

1196 

1197 

1198 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  CECo  19,1969 


LEMONAID.  104  PAGE  298 


EXTENDED  VERBS 


USER  ' S PAGE  NCa  36 


E6  S3 


REF  18 
REF  5 
REF  18 
REF  18 
REF  11 
REF  1 
REF  1 
REF  1 
REF  19 
REF  1 
REF  55 
REF  2 
REF  22 
REF  23 
REF  24 
REF  3 
REF  6 
REF  20 


LAST  297 
LAST  297 
LAST  297 
LAST  183 
LAST  265 


LAST  298 

LAST 
LAST 
LAST 
LAST 
LAST 
LAST 
LAST 
LAST 


01.2314 

01.2315 
01  ,2316 
01,2317 
01,2320 
Cl  ,2321 
E6,1401 
01  ,2322 
01,2323 

0 1,2224 

01  ,2325 

01.2326 

01.2327 

01.2330 

01.2331 
01  ,2332 
01,2333 
n,2334 
01  ,2335 


1 2307  0 
3 4751  0 

0 5464  1 

1 5155  I 
3 4753  1 
C 5203  0 

03217  0 
56066  1 
1 5155  1 
3 2337  1 
C 4616  1 
20361  1 
C 5472  0 
C 5472  0 
0 5472  0 
3 6007  0 

0 5464  1 

1 5155  1 


297 

273 

297 

298 
298 
268 
298 
298 


TCF  -5 

CAF  BIT3 
TC  BLANKET 

TCF  ENDCFJCB 
DPCAT3  CAF  BIT! 

TC  WAITLIST 

EBANK=  ROLLTIME 
2CA0R  TRIMGIMB 


LOAD  NEW  DATA  ANC  RECYCLE 
BLANK  R3 


TCF 

TRIMOONE  CAF 
TC 

CAOR 

TC 

TC 

TC 

CAF 

TC 

TCF 


ENDOF JOB 

V50N48 

BANKCALL 

G0WARK3R  -1 

ENCEXT 

ENDEXT 

ENCEXT 

0CT24 

BLANKET 

ENDOFJOB 


OCES  A RELIMT 

TRIM  IS  FINISHED;  PLEASE  TERMINATE  R03 
V34E  TERMINATE 

BIT5  TO  CHANGE  TO  PERFORM,  3 TO  BLANK  R3 


01,2336  01457  0 V0647  VN  0647 

■)1,2337  01460  I V06N48  VN  0648 


REF 


2 LAST  297  Cl, 2337 


V50N48  = V06N48 


01,2340 


25101  0 NORMAL  DEC 


* 660214 


01.2341  05220 

01.2342  03146 

01.2343  77445 

01.2344  77622 


1 FINE  DEC 

1 1/10  DEC 

1 -0»60/S  DEC 

1 -Co3D/S  DEC 


ol65054 

ol 

-218 

-109 


NORMAL  SCALING  IS  20  D/S 
FINF  STICK  SCALING  (4  D/S)o 
FACTOR  FOR  rSM-CCCKEO  SCALING 


gap: 

L 

P119<? 

R1200 

R 1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 
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17:53  CECo  14,1969  LEMONAIOdOA  PAGE  299 


EXTENDED  VERBS 


USER  ‘S  PAGF  NOo  37  E6  S3 


LSF  SUBROUTINE  GENTRAN, 
07,2666 

6 LAST  290  43,2000 

43,3163 


BANK 

SETLOC 

BANK 


6 LAST  290  TO  294: 

1 E3,1626 


$$/EXTVe 

PRECTHIS 


LAST  259  43,3163 


REF 

REF 

REF 

REF 


LAST  215 


LAST 

LAST 

LAST 

LAST 


283 

2A0 

292 

299 


43.3164 

43.3165 

43. 3166 

43.3167 
43,3170 
E3, 1626 


4 01C4  0 
7 4744  0 
C 0006  1 
1 2116  1 
3 4737  0 
C 5105  0 


EXTEND 

BZF 

CAF 


ALM/EN’D 
PR  1010 
FINDVAC 
RRECTHI S 


TURN  ON  HE  AND  FXIT  IF  SURFFLAG  SETe 


REF 

REF 

REF 


43  ,3171 
43,3172 
LAST  298  43,3173 


03174  0 
661C3  0 
0 5155  0 


ATTACHIT 

ENDOFJOB 


REF 

REF 

REF 

REF 


8 LAST  289 


LAST  299 


LAST  299 


43.3174 

43.3175 

43.3176 

43.3177 
43,3200 
43  ,3201 

43.3202 

43.3203 
43  ,3204 
43,32C5 
43,3206 
43  ,3207 
43,3210 
43  ,3211 


C 6042  1 
77624  1 
27410  1 
43014  0 
C4C63  0 
04304  1 
67205  1 
77614  1 
04263  1 
77776  1 
3 3231  1 
0 5544  1 
01626  1 
01554  1 


EXIT 

CAF 


INTPRET 

INTSTALL 

BON 

MOCNCTH 
MOONTHI S 


MOONOTH 

0CT51 
GENTRAN 
RRECTHI S 
RRECTOTH 


OUR  STATE  VECTCR  INTO  OTHER  VIA  GENTRAN 


REF 

REF 


REF 

REF 


LAST  299 


LAST  120 


43.3212 

43.3213 
43  ,3214 

43.3215 

43.3216 

43.3217 
43,3220 
43  ,3221 


C 0003  I 
0 6042  \ 
77624  1 
26757  C 
45154  0 
02C30  0 
26114  1 
77776  1 


43,3222  3 3232  1 


RELINT 

TC 

CALL 

LXA,2 

EXIT 

CAF 


INTPRET 

PTCALEM 

CALL 

PBCCY 

SVO^lNl 


UPDATE  R-OTHER , V-QTHER 


GAP:  ASSEf^BLE  REVISION  131  CF  AGC  PFCGRAM  LUMINARY  BY  NASA  2021112-091 

L EXTENCEC  VERBS 


17:‘53  DECo  19,1969  LEMONAIO.  I04  PAGE  300 
USER'S  PAGE  KCo  38  £3  SA 


1239  REF  8 LAST  253  A3  , 3223  50  120  1 

12A0  REF  1 A2,322A  5A  C52  1 

12A1  REF  lA  LAST  296  A3, 3225  0 A635  0 

12A2  REF  1 A3, 3226  27A21  0 


INCEX  FIXLOC 
TS  OPRET 

TC  POSTJUMP 

CADR  INTWAKE  FREE  INTEGRATION  AND  EXIT 


12A3 

12AA  REF 


A3, 3227 
LAST  265  A3, 3230 


7763A  0 TCPIN 
21051  0 


RTB 


P IN8RNCH 


12A5 

12A6  REF  I 


A3, 3231 
A3, 3232 


00051  C 0CT51  OCT  51 

67227  1 TCPINAO  CADR  TCPIN 


R12A7  VERB  96  SET  QLITFLAG  TC  STCF  IFTEGRATICNo 


R12A8 

R12A9 

R125n 


GO  TO  V37  WITH  ZERO  TO  CAUSE  POO* 

STATEINT  WILL  CHECK  CUITFLAG  AND  SKIP  1ST  PASS, 

THUS  ALLOWING  A 10  MINUTE  PERIOD  WITHOUT  INTEGRATION* 


1251  KEF  12  LAST  291 

1252  REF  1 


A3, 3233  0 550A  0 VER096  TC  UPFLAG 

A3  ,323A  00221  0 ADRES  QUITFLAG 


CUITFLAG  WILL  CAUSE  INTEGRATION  TO  EXIT 
AT  NEXT  TIMESTEP 


1253  REF  31  last  281  <3,3235  3 A755  1 CAF  ZERC 

125A  REF  15  LAST  300  A3, 3236  0 A635  0 TC  POSTJUMP 

1255  REF  1 A3, 3237  lOOAO  1 CACR  V37  GO  TO  POO 


R1256 

R1257  VERB  67  : DISPLAY  CF  W MATRIX 


1258  REF  18 

1259  REF  2 

1260  REF  11 

1261  REF  1 

1262  REF  1 

1262  REF  1 

1263  REF  22 


LAST  29A 
LAST  231 
LAST  299 


LAST  299 


A3,32AO 

A3,32A1 
A3  ,32A2 
EA,1600 
A3,32A3 
A3 ,32AA 
A3, 32A5 


0 2C76 
3 5017 
0 5105 

02007 
6206A 
C 5155 


1 V67 

I 
0 

1 

1 

0 


TC  TESTXACT 

CAF  PRIGS 
TC  FINOVAC 

E8ANK=  WWPOS 
2CA0R  V67CALL 

TC  ENOCFJCB 


R126^‘  VERB  65 


DISABLE  U,V  JETS  DURING  EPS  BURNS 


1265 

1266 
1267 


REF  13  LAST  300 
REF  I 

REF  19  LAST  292 


A3,32A6  0 550A  0 
A3,32A7  00115  1 
A3  ,3250  0 2117  1 


SNUFFOUT  TC 

ADRES 


TC 


UPFLAG 

SNIFFER 

GOPIN 


K1268  VERB  75 


ENABLE  U,V  JETS  DURING  OPS  BURNS 


1269 

1270 

1271 
R1272 


REF  30  LAST 
REF  2 last 
REF  20  LAST 
VERB  05 


291  A3, 3251  0 5516  0 

300  A3, 3252  00115  1 

300  A3, 3253  0 2117  1 

DISPLAY  RR  LCS  AZIMUTH 


OUTSNUFF  TC 

ADRES 

TC 

ANC  ELEVATION* 


OOWNFLAG 
SNUFFER 
GOPI  N 


R1273  AZIMUTH  IS  THE  ANGLE  BETWEEN  THE  LOS  ANC  THE  X-Z  NB  PLANE,  0-90  DEG  IN  THE  +Y  HEMISPHERE, 

R1275  360  - 270  DEG  IN  THE  -Y  hEMISPFERE* 


GAP : 

L 

R1276 

1278 

1279 

1280 

1281 

1282 

12  83 

1284 

1285 

1286 

1287 

1288 

1288 

1289 

12  90 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1290 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 
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EXTENDED  VERBS 

ELEVATION  IS  THE  ANGLE  BETWEEN  + 


USFP 'S 

ZNB  ANO  THE  PROJECTION  OF  THE  LOS  INTO  THE 


PAGF  NOo 
X-Z  PLflMF, 


39 
0 - 


£3  S4 

360  ABOUT  +Y. 


LAST 

LAST 

LAST 


119 

300 

300 


E4,1600 

43»3254  C 2076  1 VERB85 
^3,3255  C 4635  0 
43,3256  60000  1 


E8ANK= 

TC 

TC 

CACR 


RR-AZ 

TESTXACT 

POSTJUMP 

DSPRRLOS 


REF 


40,2000 

40,2000 


SETLOC  PINBALL! 
BANK 


REF 


COUNT*  SS/EXTVB 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


300 

300 

301 


282 

294 

298 

279 

273 

301 

301 


40,2000  3 5017  1 DSPRRLOS  CAF 


40.2001 
E4,1600 

40.2002 

40.2003 

40.2004 

40.2005 

40.2006 

40.2007 

40.2010 

40.2011 

40.2012 

40.2013 


0 5105  0 

02017  0 
60104  1 
3 4740  0 
0 5146  1 
3 2076  1 
0 4616  1 
20353  0 
C 5563  I 
0 5563  1 
0 5563  1 


TC 
E6ANK= 
2CADR 


PRIC5 

FINDVAC 

RR-AZ 

RRLOSOSP 

PR  IG4 

PRIOCHNG 

V16N56 

BANKCALL 

GOMARKFR 

B5CFF 

B5CFF 

05OFF 


REF  19  LAST  298  40,2014  2 4751  C 

REF  7 LAST  298  40,2015  0 5464  1 


CAF  6IT3 

TC  BLANKET 


REF  23  LAST  300 


40,2016  0 5155  0 


TC  ENDCFJCe 


REF  2 LAST  189 
REF  42  LAST  292 
REF  in  LAST  299 

REF  1 


REF  1 


REF  3 LAST  37 

REF  1 

REF  3 LAST  37 


REF  1 


40,2017  0 0006  1 RRLOSOSP  EXTEND 


40.2020  3 0036  1 OCA 

40.2021  52  155  1 DXCH 

40.2022  C 6042  1 TC 

40.2023  77624  1 CALL 

40.2024  46065  0 

40.2025  00001  0 STORE 

40.2026  14007  0 STOOL 

40.2027  C6524  1 

40.2030  24011  1 STOVL 

40.2031  00007  0 

40.2032  77656  1 UNIT 

40 .2033  00007  0 STORE 

40.2034  77641  1 DOT 

40.2035  06516  0 

40  ,2036  24021  1 STOVL 

40,2037  C652?  1 

40.2040  77641  1 DOT 

40.2041  00007  0 

40.2042  34023  1 STCALL 


COUT 
MPAC 
I NTPRE7 

RRNBMPAC 

00 

60 

HI6ZERCS 

8D 

6D 

60 

UNITZ 
COSTh 
UNI  TX 

6D 

SI  NTH 


GET  RR  LOS  IN  BODY  AXIS® 
UNIT  LOS 


UNIT  OF  LOS  PROJ  IN  X-Z  PLANE 


180 


gap: 

t 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

132<? 

1330 

1331 

1332 

1333 

1534 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

.1347 
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EXTENDED  VERES 


USER*  S PAGE  NCe  40  E4  S^ 


REF  1 


REF  1 
REF  1 


REF  2 
REF  2 


REF  2 
REF  2 


PEF  2 
REF  4 

REF  2 
REF  57 
REF  6 


LAST  37 
LAST  301 


LAST  3C1 
LAST  302 


LAST  302 
LAST  30  1 

LAST  271 
LAST  301 
LAST  281 


40.2043 

40.2044 
40,2  045 
40,2046 
40  ,2047 

40.2050 

40.2051 

40.2052 

40.2053 

40.2054 

40.2055 

40.2056 
40,20  57 
40,2  060 

40.2061 

40.2062 

40 .2063 

40.2064 

40.2065 

40.2066 

40.2067 
40  ,2070 


47322  1 
43244  1 
60047  1 
06532  0 
26203  1 
00001  0 
77641  1 
06520  0 
24023  0 
COCO!  0 
77641  1 
00007  0 
34021  0 
*7322  1 
43244  1 
60064  0 
C6532  0 
C22C1  0 
77776  1 
3 4777  1 
0 4616  1 
01736  1 


STOVL 

DOT 

STCVL 


ARCTPIG 
DAD 
+ 2 

DPPCSMAX 

PR-ELEV 

CD 

UNITY 

SINTH 

PO 


DOT 

6D 

STCALL  COSTH 

ARCTR  IG 
BPL  OAD 

+ 2 

DPPOSMAX 
STORE  RR-AZ 

EX  IT 

CA  ISEC 

TC  BANKCALL 

CACR  OELAYJOB 


INSURE  DISPLAY  CF  0 - 360  CEGo 
INTRODUCES  AN  ERROR  OF  R-28  RFVSo 


INSURE  DISPLAY  OF  C - 360  DEG,. 
INTRODUCES  AN  ERROR  OF  R-28  REVSt 


REF  18  LAST  273 
REF  0 LAST  273 
REF  88  LAST  297 
REF  2 LAST  301 
REF  25  LAST  298 


40.2071  2 4747  1 

40.2072  7 1043  0 

40.2073  10  000  0 

40.2074  0 2017  0 

40.2075  0 5472  0 


CA  BIT5 

MASK  exTVBACT 

CCS  A 

TC  RRLCSDSP 

TC  ENOEXT 


40,2076  04070  1 V16N56  VN  1656 
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PINBALL  NCUN  TABLES 

THE  FCLLOWING  REFERS  TO  THE  NCUN  TABLES 


USER*  S PAGE  NCc 


RlOOl  CCMPCNENT  CODE  NUMBER 


R1002 

R1003 

R1004 

R1005 

R1006 

R1007 


OCOOC 

CCOOl 

OCOlO 

XIXXX 

ixxxx 

END  CF  CCNFCNENT  CCCE  NUMBERS 


INTERPRETATION 

1 COMPONENT 

2 CCMFCNENT 

3 COMPONENT 

GIT4  = U CECIMAL 
BI T5  = U NO  LOAD 


R1008  SF  ROUTINE  CODE  NUMBER 


INTERPRETATION 


R1009 

RIOIO 

RlOll 

R1012 

R1013 

RlOl^ 

R1015 

R1016 

R1017 

R1018 

R1019 

R1020 

R1021 

R1022 

R 10221 

R10222 

R10223 

R1022A 

R10225 

R10226 

R1023 


00000 

CCOOl 

cooin 

00011 

CClOO 

00101 

OCllO 

OClll 

01000 

01001 


01010 

01011 

01100 

01101 
OHIO 
Ollll 
END  OF 


OCTAL  ONLY 
STRAIGHT  FRACTIONAL 
COU  DEGR  EES  I XXXa  XX  ) 

AfilTHNET  IC  SF 

ARITH  OPl  CUTIMULT  BY  2EXP14  AT  END) 

ARITH  0P2  OUT(  STRA  IGHT  I 
LANDING  RACAR  PCSITICN  (40000X) 

ARITH  DP3  OUT  ( SL  7 AT  EN0>  IN  ( STRAIGHT) 

WHOLE  HOURS  IN  Rl,  WHOLE  MINUTES  (MOD  60)  IN  P2, 

SECONDS  (MOO  601  OXX^XX  IN  R3«  >!'*#  ALARMS  IF  USED  WITH  OCTAL 
MINUTES  (MOO  60)  IN  D102,  D3  BLANK,  SECONDS  (MOD  60)  IN  0405 
LIMITS  TO  59B59  IF  MAG  EXCEEDS  THIS  VALUEo 
ALARMS  IF  USED  WITH  OCTAL  ***##**»  IN  (ALARM) 
ARITH  DP*  OUT  (STRAIGHT)  IN  ( SL  3 AT  END) 

ARITHl  SF  CUT(MULT  BY  2EXP14  AT  END)  IN(STFAIGHT) 

2 INTEGERS  IN  D102,  D405  , 03  BLANK, 

ALARMS  IF  USED  WITH  OCTAL  *«♦#**##  IN  (ALARM) 
360-C0U  DEGREES  (XXXoXX) 

RR  RANGE  15  BIT  MAG  TO  OP,  THEN  SCALE  IK  (ALARM) 

15  BIT  MAG  TO  OP,  THEN  SCALE  IN  (ALARM) 


R1024  SF  CONSTANT  COCE  NUMBER 


R1025 

R1026 

R10265 

R1027 

R1028 

R1029 

R1030 

R1031 

R1032 

R10321 


CCOCO 

OOOOO 

00000 

COCCI 

00010 

OOOlO 

coon 

COlOO 

CCICI 

00101 


USE  AR ITH 
USE  ARITHDPl 
USE  LR  POSITION 


INTERPRETATION 
WHOLE 

DP  TIME  SEC  (XXXoXX  SEC) 

LR  POSITION  (+OOOOX> 

SPARE 

COU  DEGREES  USE  COU  DEGREES 

360-CDU  DEGREES  USE  360-CDU  DEGREES 

DP  DEGREES  (90)  XX^XXX  DEG  USE  ARITHDP3 
DP  DEGREES  (360)  XXX„XX  DEG  USE  ARITH0P4 
DEGREES  (180)  XXXOXX  DEG  USE  ARITH 
OPTICAL  TRACKER  AZIMUTH  ANGLE  ( XX  X XXOEG  ) 
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PINBALL  NOUN  TABLES 


USER'S  PAGE  NCo 


R 10322 

R103A 

R1035 

R10351 

R1037 

R10371 

R103e 

R103O 

RIOAO 

RIOAI 

R10A2 

R 10A3 

RIOAA 

R10A5 

R10A6 

R10A7 

R10A8 

R10A9 

R1050 

R1051 

R1052 

R 1053 

R105A 

Rin55 

R 1056 

R1057 

R1058 

R1059 

R1060 

R 10601 

R1061 

R106101 

R1061C2 

R106103 

R10610A 

R1061C5 

R1062 


oinoo 

ClOOl 

01010 

ClCll 

01100 

onci 

OHIO 

01111 

10000 

lOODl 

10010 

icon 

IClOO 

10101 

10110 

ICHl 

11000 

llOCl 
11010 
non 
lllCO 
END  OF  SF 


POSITIONS  (XXXXc 


USE  AR  ITHOPl 
L6SI  USE  ARITHl 

XX  NAUTICAL  MILES) 

USE  ARITHCP3 
NAUTICAL  MILES) 

USE  ARITHDP3 

VEL0CITY2  (XXXXXo  FT/SEC)  USE  ARITHDP4 

VEL0CITY3  (XXXXoX  FT/SEC)  USE  ARITH0P3 

ELEVATION  C EGR  EES  ( 89  o999M  AX  ) USE  ARITH 
RENDEZVOUS  RADAR  RANGE  (XXXoXX  NALT  MI> 
USE  RR  RANGE 

RENDEZVOUS  RADAR  RANGE  RAT E I X XXX X o FT/ S EC 
USE  RR  RANGE  RATE 
LANCING  RADAR  ALT  ITUDE ( XX X X X« FEE T ) 

USE  ARITHDPl 

INITIAL /FINAL  AL TI TUDE ( XX X XXo FEE T > 

USE  ARITHDPl 

ALTITUDE  RATE! XXXXX^FT/SEC I USE  ARITH 

FCRWARC/LATERAL  VELOCITY!  XXXXXo  FEET/SEC  ) 
USE  ARITH 

ROTATIONAL  HAND  CONTROLLER  ANGLE  RATES 

XXXXXoDEG/SEC  USE  ARITH 

LANDING  RADAR  VELX ( XXX XXc FEET/SEC ) 

USE  ARITHDPl 

LANCING  RACAR  VEL Y ( XXX XX^ F EET/ S EC ) 

USE  ARITHDPl 

LANDING  RADAR  VEL Z ( XXX XXo FEE T/SEC ) 

USE  ARITHDPl 

P0SITI0N7  (XXXXoX  NAUT  MI) 

TRIM  CEGREES2  (XXXoXX  DEG) 

COMPUTED  ALTITUDE  (XXXXXo 


DP  DEGREES  (XXXX,X  OEGI 
POSI  TI0N9  ( XXXXX>  FT) 
VEL0CITY4  (XXXXoX  FT/SEC) 
RADIANS  (XXoXXX  RADIANS) 


USE  ARITHDP4 
USE  AR  ITH 
FEET  ) 

USE  ARITHDPl 
USE  ARITHDP3 
USE  ARITH0P3 
USE  ARITHDP2 
use  ARITHDPL 


CONSTANT  CODE  NUMBERS 


R1063  FCR  GREATER  THAN  SINGLE  PRECISICN  SCALES,  PUT  ADDRESS  OF  MAJOR  PART  INTO 
R1064  NCUN  TABLESo 

R1065  OCTAL  LCACS  PLACE  +0  INTO  MAJCR  PART,  DATA  INTO  MINOR  PAPTo 
R1066  OCTAL  DISPLAYS  SHOW  MINOR  PART  CNLYo 

R1067  TO  GET  AT  BOTH  MAJOR  AND  MINOR  PARTSIIN  OCTAL),  USE  NOUN  Olo 


R1068  A NCUN  MAY  BE  DECLARED  :CECIMAL  CNLY;  BY  MAKING  0IT4,=  1 OF  ITS  COMPONENT 
R1069  CODE  NUMBER*  IF  THIS  NOUN  IS  LSEO  WITH  ANY  OCTAL  DISPLAY  VERB,  OR  IF 
R1070  CATA  IS  LOADED  IN  OCTAL,  IT  ALARMS* 
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17:53  CEC,  19,196R  LEMONAIOdCA  PAGE  305 


L PINBALL  NCLN  TOBLES  USER'S  PAGE  NCo  3 EO  S4 

R1071  IN  LOADING  AN  :HOURS»  MINUTES.  SECGNDS:  NCLN,  ALL  3 WORDS  MUST  BE 
R1072  LOADED,  OR  ALARM* 

R1073  ALARM  IF  AN  ATTEMPT  IS  MADE  TC  LCAO  ;SPLIT  M I NUTES / S ECONDS  : (MMBSSJ* 

R107^  This  IS  USED  FOR  DISPLAY  ONLY* 
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L PINBALL  NOUN  TABLES  USER'S  PAGE  NCc  A EO  SA 

P1075  TFE  FOLLOWING  ROUTINES  ARE  FCR  READING  THE  NOUN  TABLES  AND  THE  SF  TABLES 

R1076  (WHICH  ARE  IN  A SEPARATE  BANK  FROM  THE  BEST  OF  PINBALL)*  THESE  READING 

R1077  ROUTINES  ARE  IN  THE  SAME  BANK  AS  THE  TABLES*  THEY  ARE  CALLED  BY  CXCH  U 


R1078 
R1079 
R1080 
R 1081 
R1082 


LCDNNTAB  LOADS  NNACTEM  WITH  THE  NNACTAE  ENTRY,  NNTYPTEM  WITH  THE 
NNTYPTAB  ENTRY*  IF  THE  NOUN  IS  MIXED,  IDAOITEM  IS  Ll^ADED  WITH  THE  FIRST 
ICACCTAB  ENTRY,  IDAC2TEM  THE  SECOND  lOADCTAB  ENTRY,  IDA03TEM  THE  THIRD 
IDADDTA0  ENTRY,  RUTMXTEM  • WITH  THE  RUTMXTA6  ENTRY*  MUBR  IS  SET  FCR 
MIXED  OR  NORMAL  NOUN* 


1200 

12002  REF 

12003 
12005  REF 

1201  REF 

1202  REF 

1203  REF 

1204  REF 

1205  REF 

1206  REF 

1207  REF 

1208  REF 

1209  REF 

1210 

1211  REF 

1212  REF 

1213  REF 

1214  REF 

1215  REF 

1216  REF 

1217  REF 

1218  REF 
121°  REF 

1220  REF 

1221  REF 

1222  REF 

1223  REF 

1224  REF 

1225  REF 

1226 

1227  REF 

1228  REF 

1229  REF 

1230  REF 


2 LAST  283 

1 

1 

3 LAST  268 
1 

1 

4 LAST  306 
1 

1 

5 LAST  306 
1 

1 

14  LAST  280 
1 
1 

U LAST  284 
2 LAST  306 

6 LAST  306 
1 

1 

2 LAST  234 
2 LAST  306 

28  LAST  284 
89  LAST  302 

1 

1 

29  LAST  306 
2 LAST  306 
2 LAST  306 
1 


06,3271 

42,2000 

42,2103 

42.2103  52  152  0 

42.2104  51*001  1 

42  ,2105  2 2154  0 

42.2106  54  146  0 

42.2107  Sl'OOl  1 

42.2110  3 2320  1 

42.2111  5*  147  1 

42.2112  4 1001  0 

42,2  113  6 4771  1 

42,2114  C 0006  1 
42  ,21  15  6 2121  1 

42. 2116  3 4753  1 

42.2117  54  140  0 

42.2120  C 2137  0 

42.2121  2 4752  0 

42  ,2122  54  140  0 

42.2123  51*001  I 

42.2124  2 3064  0 

42  ,2125  54  153  1 

42.2126  2 5C12  1 

42.2127  7 0146  0 

42.2130  54  0C2  1 

42.2131  50  OOC  1 

42  ,2132  3 2650  0 

42.2133  54  150  1 

42.2134  0 0006  1 

42  ,2135  5 0002  0 

42.2136  3 2652  1 

42.2137  52  152  0 

42,2140  52  006  0 


8ANK 

SETLGC 

BANK 

COUNT# 

LCDNNTAB  OXCH 
INDEX 
CAF 
TS 

INDEX 

CAF 

TS 

CS 

AD 

EXTEND 

8ZMF 

CAF 

TS 

TC 

LODMI XNN  CAF 
TS 

INDEX 

CAF 

TS 

CAF 

MASK 

TS 

INDEX 

CAF 

TS 

EXTEND 

INDEX 

OCA 

LOONLV  OXCH 
CXCH 


6 

PINBALL3 

Jt/NOUNS 

I0A02TEM 

NOUNREG 

NNACTAB 

NNADTEM 

NOUNREG 

NNTYPTAB 

NNTYPTEM 

NOUNREG 

MIXCCN 

LOOMIXNN 
ONE 
MIXER 
LOONLV 
TWO 
M I XBR 
NOUNREG 
RUTMXTAB  -400 
RUTMXTEM 
LCWIO 
NNADTEM 
0 
A 

lOAOOTAB 
I DAOITEM 

Q 

IDADOTAB  +1 

IDAOaTEM 

Z 


SAVE  RETURN  INFO  IN  I0A02TEM,  IDA03TEM* 


NOUN  NUMBER  G/B  FIRST  MIXED  NOUN 
NOUN  NUMBER  L/  FIRST  MIXED  NOUN 
NORMAL*  +1  INTO  MIXBR* 

MIXED*  *2  INTO  MIXBR* 


FIRST  MIXED  NOUN  = 40* 


TFMP 


LOAD  IDAOITEM  WITH  FIRST  IDADOTAB  ENTRY 

LOAD  10AD2TEM  WITH  2N0  IDAOOTAB  ENTRY 
LOAD  I0AD3TEM  WITH  3RD  IDAOOTAB  ENTRY- 
PUT  RETURN  INFO  INTO  A,  Lr 


1231 

R1232 


REF  1 

GTSFCLT  LCAOS  SFTEMPl 


4771  MIXCON  = 0CT50 

SFTEMF2  WITH  THE  CP  SFOUTAB  ENTRIES* 


( DEC  40  ) 


1233  REF 


42,2141  52  124  1 6TSF0UT  OXCH  SFTEMPl 


2X(SFC0MUM)  ARRIVES  IN  SFTEMPl* 
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L 

PIN6ALL 

NOUN 

TABLES 

USER'S  PAGE  NCo  EO  S4 

123A 

42  f2l42 

0 0006 

1 

EXTEND 

1235 

REF 

90 

LAST 

306 

42,2143 

5 COCO 

1 

INDEX 

A 

1236 

REF 

1 

‘42 ,2144 

3 2557 

1 

DC  A 

SFOUTAB 

1237 

REF 

2 

LAST 

306 

42,2145 

52  124 

1 

SFCCM 

DXCH 

SFTEMPl 

1238 

REF 

2 

L AST 

30  6 

42,2146 

52  0C6 

0 

DXCH 

Z 

R1239 

GTSFIN 

LCACS 

SFTEMPl 

, SFTEMP2 

U ITH  THE 

DP  SFINTAB  ENTRIESo 

12A0 

REF 

3 

LAST 

307 

42,2147 

52  124 

1 

GTSFIN 

DXCH 

SFTFWPl 

?X  ( 

SFCONUM)  ARRIVES  IN  SFTEMPlc 

12A1 

42,2150 

C 0006 

1 

EXTEND 

1242 

REF 

91 

LAST 

307 

42,2151 

5 0000 

1 

INDEX 

A 

1243 

REF 

1 

42,2152 

3 2465 

1 

OCA 

SFINTAB 

1244 

REF 

1 

42,2153 

1 2145 

1 

TC  F 

SFCOM 

A14on 

NN 

NDRMIAL  NOUNS 

1401 

42,2154 

00000 

1 

NNADTA8 

OCT 

00000 

00 

NOT  IN  USE 

1402 

42  ,2155 

40000 

0 

OCT 

40000 

01 

SPECIFY  MACHINE  ADDRESS  (FRACTIONAL) 

1403 

42,2156 

40000 

0 

OCT 

40000 

02 

SPECIFY  MACHINE  AOOPESS  (WHOLE) 

1404 

42,2157 

40000 

0 

ncT 

40000 

03 

SPECIFY  MACHINE  ADDRESS  (DEGREES) 

1405 

REF 

3 

LAST 

279 

42,2160 

01044 

0 

ECAOR 

OSPTEMl 

04 

ANGULAR  EPPOR/OIFFERENCE 

1406 

REF 

4 

LAST 

307 

42,2161 

C1C44 

0 

EC  ADR 

DSPTEMl 

05 

ANGULAR  ERROP/CIFFERENCE 

1407 

REF 

1 

^2 ,2162 

01143 

0 

ECAOR 

OPTIONl 

06 

OPTION  CODE 

1400 

REF 

1 

42,2163 

01002 

1 

ECAOR 

XRE6 

07 

ECAOR  OF  WORD  TO  BE  MODIFIED 

A14081 

ONES  FCR  PITS  TC  BE  MODIFIED 

A 14082 

1 TO  SET  OR  0 TC  RESET  SELECTED  BITS 

1409 

PEF 

2 

LAST 

108 

42,2164 

01363 

c 

ECADP 

ALMCACP 

OB 

ALARM  DATA 

1410 

REF 

L. 

LAST 

213 

42,2165 

C0375 

0 

ECAOR 

FA  I LREG 

09 

ALARM  COOES 

1411 

42,2166 

77776 

1 

OCT 

77776 

10 

CHANNEL  TO  BE  SPECIFIED 

1412 

REF 

3 

LAST 

200 

42,2167 

C3633 

1 

ECAOR 

TCSI 

11 

TIG  OF  CSI  (HRS, MIN, SEC) 

1413 

REF 

7 

LAST 

279 

42  ,2170 

01050 

0 

ECAOR 

OPTIONX 

12 

OPTION  CODE 

A14131 

(USED  BY  EXTENDED  VERBS  ONLY) 

1414 

REF 

3 

LAST 

200 

42,2171 

01776 

0 

ECAOR 

TCDH 

13 

TIG  OF  CDH  (HPS,MIN,SEC) 

1415 

REF 

4 

LAST 

209 

42,2172 

01050 

0 

ECAOR 

DSPTEMX 

14 

CHECKLI  ST 

A14151 

(USED  BY  EXTENDED  VERBS  ONLY) 

1416 

42,2173 

77777 

0 

OCT 

77777 

15 

INCREMENT  MACHINE  ACDRFSS 

1417 

REF 

5 

LAST 

307 

42,2174 

01050 

0 

ECAOR 

DSPTEMX 

16 

TIME  OF  EVENT  ( HR S , M I N , SEC ) 

1418 

42,2175 

COOQO 

1 

OCT 

00000 

17 

SPARE 

1419 

REF 

1 

42  ,2176 

02344 

0 

ECADP 

FOAIX 

18 

AUTO  MANEUVER  BALL  ANGLES 

1420 

42  ,2177 

COOOO 

1 

OCT 

OOOCO 

19 

SPAR  E 

1421 

REF 

6 

LAST 

255 

42,2200 

00C32 

0 

ECAOR 

CDUX 

20 

ICOU  ANGLES 

1422 

REF 

1 

42  ,2201 

00037 

0 

ECAOR 

P IPAX 

21 

PIPAS 

1423 

REF 

6 

LAST 

284 

42,2202 

00321 

1 

ECAOR 

THETAC 

22 

NEW  ICDU  ANGLES 

1424 

42,2203 

COOOO 

1 

OCT 

OOCOO 

23 

SPARE 

1425 

REF 

3 

LAST 

277 

42,2204 

01050 

0 

ECAOR 

DSPTEM2  +1 

24 

DELTA  TIME  FOR  AGC  C LOC K ( HR S , MI N , SEC > 

1426 

REF 

5 

LAST 

30  7 

42,2205 

C1C44 

0 

ECAOR 

OSPTEMl 

25 

CHECKL 1ST 

A14261 

(USED  WITH  PLEASE  PERFORM  ONLY) 

1427 

REF 

6 

LAST 

307 

42,2206 

01044 

0 

ECAOR 

DS  PTEMl 

26 

PRIO/DELAY,  ADPES,  BBCON 

1428 

REF 

4 

LAST 

292 

42,2207 

01362 

1 

ECAOR 

SMCOe 

27 

SELF  TEST-  ON/OFF  SWITCH 

gap: 
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USER'  S PAGE  NCo 


1A29 

1430 

1431 

1432 

1433  REF  1 

1434  REF  8 LAST 

1435  REF  7 LAST 

1436  REF  9 LAST 

1437  REF  10  LAST 

1430  REF  3 LAST 

1439  REF  2 LAST 

1440 

R14401  ENC  OF  NNACTA6 


42.2210  COOOO  1 

42.2211  00000  1 

42  ,2212  00000  1 

42.2213  COCCO  1 

42.2214  02142  1 

286  42,2215  03441  0 

307  42,2216  01C44  0 

242  42  ,2217  03453  0 

277  42,2220  00024  1 

200  42,2221  03635  1 

111  42,2222  01516  1 

42,2223  COCCO  1 

FOR  NORMAL  NOUNS 


OCT 

OCT 

OCT 

OCT 

EC  ADR 

eCAOR 

ECADR 

ECAOR 

ECAOR 

ECAOR 

ECAOR 

OCT 


nOOOO 

00000 

0 

0 

-TPER 

TIG 

OSPTEMl 

TTOGO 

T INF2 

TTPI 

TET 

OOOOO 


28  SPARE 

29  SPARE 

30  SPARE 

31  SPARE 

32  TIME  TC  PERIGEE  ( HR  S , M I N , S EC  ) 

33  TIME  OF  IGNITION  ( HP  S , M I N I SBC  ) 

34  TIME  OF  EVENT  ( HP  S , M IN  , S EC  » 

35  TIME  TO  GO  TO  EVENT  ( HR S , MI N , S EC  I 

36  TIME  OF  AGC  CLOCK  ( HP  S,  M IN  , SEC  » 

37  TIG  CF  TPI  (MRS  , MIN, SEC  I 

38  TIME  OF  STATE  BEING  INTEGRATED 

39  SPARE 


A14402 

144) 

A144il 

A14412 

1442 
A14421 

1443 
A14431 
A14432 

1444 
A14441 
A14442 

1445 

A 14451 
A14452 

1446 

A 14461 
A14462 

1447 

1448 
A14481 

1449 
A14491 

1450 
A 14501 
A14502 

1451 

1452 
A14521 

1453 

1454 

1455 
A14551 
A14552 

1450 


42,  2224  64CC0  0 


42.2225  02003  0 

42.2226  24CC6  1 

42.2227  24C11  1 

42.2230  64C14  0 

42. 2231  64017  0 

42.2232  00022  1 

42  ,2233  22025  0 

42.2234  22030  1 

42.2235  24033  1 

42.2236  OOOOO  1 

42  ,2237  22041  1 

42.2240  00044  1 

42.2241  OOOOO  1 

42.2242  24C52  C 

42.2243  24055  1 


OCT  64000 

OCT  02003 

OCT  24006 

OCT  240)1 

OCT  64014 

OCT  64C17 

OCT  00022 

OCT  22025 

OCT  22030 

OCT  24033 

OCT  0 

□CT  22041 

OCT  00044 

OCT  OOOOO 

OCT  24052 

OCT  24055 


NN  MIXED  NOUNS 

40  TIME  TO  IGNITION/CUTOFF 
VG 

DELTA  V lACCUMULATEO  ) 

41  TARGET  AZIMUTH 

ELEVATI  CN 

42  APOGEE 
PERIGEE 

DELTA  V (REQUIRED) 

43  LATITUDE 
LONGITUDE 
ALT  iTune 

44  APOGEE 
PERIGEE 
TFF 

45  MARKS 

TTI  OF  NEXT  BURN 
M6A 

46  AUTOPILOT  CONFIGURATION 

47  LEM  we IGHT 
CSM  WEIGHT 

48  GI  MBAL  P ITCH  TRIM 
GIMBAL  ROLL  TRIM 

49  DELTA  R 
DELTA  V 

RADAR  DATA  SOURCE  CODE 

50  SPARE 

51  S-BANO  ANTENNA  PITCH 

YAW 

52  CENTRAL  ANGLE  OF  ACTIVE  VEHICLE 

53  SPARE 

54  RANGE 
RANGE  RATF 
THETA 

55  NOo  OF  APSICAL  CROSSINGS 
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USER'  S PAGE  NCo  7 £0  SA 


A1A581 

A145e2 

1459 
A14591 

1460 

1461 
A14611 
A14612 

1462 

1463 
A14631 
A14632 

1464 
A14641 
A14642 

1465 
A14651 
A14652 

1466 
A14661 
A14662 

1467 
A14671 
A14672 

1468 
A14681 

1470 
A14701 

1471 
A14711 
A14712 

1472 
A14721 
A14722 

1473 
A14731 
A14732 

1474 

1475 

1476 
A14761 

1477 
A14771 

1478 
A14781 
A14782 

1479 
A14791 
A14792 

1480 


42  ,2244  02060  0 

42.2245  00000  1 

42.2246  24066  1 

42.2247  24C71  1 

42.2250  24074  1 

42.2251  64077  0 

42  ,2252  64102  0 

42  ,2253  24105  0 


42.2254  64110  0 

42.2255  24113  1 

42  ,2256  62116  0 

42,2257  04121  1 

42,2260  64124  1 

42  ,2261  24127  0 

42.2262  04132  0 

42.2263  C4135  1 

42  ,2264  02140  0 

42.2265  02143  0 

42.2266  64146  0 

42.2267  64151  0 

42,2270  24154  1 


OCT  02060 

□CT  OOOOO 
OCT  24066 


OCT  2407) 
UCT  24074 


OCT  64077 

OCT  64102 

OCT  24105 


OCT  64110 

OCT  24113 

OCT  62116 

OCT  04121 

OCT  64124 

OCT  24127 

OCT  04132 

OCT  04)35 

OCT  02140 

OCT  02143 

OCT  64146 

OCT  64151 

OCT  24154 


ELFVAT  ION  ANGLE 

central  angle 

56  RR  LOS  AZIMUTH 

ELEVATION 

57  SPARE 

58  PER  IGEE  Al  T 
DELTA  V TPI 
DELTA  V TPF 

59  DELTA  VELnC ITY  LOS 

60  FORWARD  VELOCITY 
ALTITUDE  PATE 
COMPUTED  ALT  ITUCE 

61  TIME  TO  GO  IN  BRAKING  PHASE 
TIME  TO  IGNITION 

CROSS  RANGE  DISTANCE 

62  ABSOLUTE  VALUE  CF  VELCCITY 
time  TO  IGNITION 

DELTA  V (ACCUMULATFC) 

63  ABSOLUTE  VALUE  OF  VELOCITY 
ALT  ITUOE  RATE 

COMPUTED  ALTITUDE 

64  TIME  LEFT  FOR  R EOE S I GNATION-L PO  ANGLE 
ALTITUDE  RATE 

COMPUTED  ALTITUDE 

65  sampled  AGC  TIME  {HRS, M IN, SEC  I 
(FETCHED  IN  INTERRUPT! 

66  LR  RANGE 

PnS IT  ION 

67  LRVX 
LRVY 
LRVZ 

68  SLANT  RANGE  TO  LANDING  SIGHT 
TIME  TO  GO  IN  BRAKING  PHASE 

LR  ALTITUDE  - CCMPUTFD  ALTITUDE 

69  LANDING  SITE  CORRECTION,  Z-COMPONENT 
LANDING  SITE  CORRECTION,  Y-COMPONENT 
LANDING  SITF  CORRECTION,  X-COMPONENT 

70  AOT  DETENT  COOE/STAR  CODE 

71  AOT  DETENT  CCDE/STAR  CODE 

72  RR  360  - TRUNNION  ANGLE 

SHAFT  ANGLE 

73  NEW  RR  360  - TRUNNION  ANGLE 

SHAFT  ANGLE 

74  TIME  TO  IGN  IT  ION 
YAWAFTER  VEHICLE  PISE 
PITCH  AFTER  VEHICLE  RISE 

75  DELTA  ALTITUDE  COH 

DELTA  TIME  (CDH-CSI  CR  TPI-CDH) 

DELTA  TIME  (TPJ-CCH  OR  TPI-NOMTPI) 

76  DESIRED  HORIZONTAL  VELOCITY 
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LEMONAin.  104  PAGE  310 


,1^69 
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USER  'S  PAGE  NCe  8 EC  S4 


t 

L 

( 

C 

C 

L 

L 

L 

1 

I. 

C 

t 

t 

t 

t 


A14801 

A14802 

1481 
A1481  1 

1482 
A14821 
A14822 

1483 
A14031 
A14832 

1484 
A14841 

1485 

1466 

1487 

1486 

1489 

1490 

1491 
A14911 

1492 

1493 
A14931 
A14932 

1494 
A14941 
A 14942 

1495 
A14951 
A14952 

1496 

A 14961 
A14962 

1497 

1498 

1490 

1500 

1501 

1502 

1503 
A15031 
A15032 
R1504 


42.2271  62157  0 

42.2272  64162  0 


42  ,2273  24165  0 


42  ,227^  02170  0 

42.2275  24173  1 

42.2276  24176  1 

42.2277  242C1  1 

42 .2300  24204  1 

42.2301  24207  1 

42.2302  24212  0 

42.2303  02215  0 

42.2304  24220  1 

42.2305  24223  1 


42,2306  24226  1 


42,2307  C4231  0 


42,2310  C4234  0 


42.2311  04237  0 

42.2312  00000  1 

42.2313  COOOO  1 

42.2314  COOOO  1 

42.2315  04253  1 

42.2316  04256  1 

42.2317  24261  1 


END  OF  NNAOTAB  FOR  MIXED  NCUNS 


OCT  62157 
OCT  64162 


OCT  24165 


OCT  02170 

OCT  24173 

OCT  24176 

OCT  24201 

OCT  24204 

OCT  24207 

OCT  24212 

OCT  02215 

OCT  24220 

OCT  24223 


CCT  24226 


OCT  04231 


OCT  04234 


OCT  04237 

OCT  00000 

nCT  0 

OCT  0 

OCT  04253 

OCT  04256 

OCT  24261 


77 

78 


79 


80 

81 

82 

83 

84 
05 
86 

87 

88 
89 


90 


91 


92 

CCM 

93 

94 

95 

96 

97 

98 
90 


DES IREO  PADIAL  VELOCITY 
CROSS-RANGE  DISTANCE 
TIME  TO  ENGINE  CUTOFF 
VELOCITY  NORMAL  TO  CSM  PLANE 
PR  RANGE 

RANGE  RATF 
TIME  FROM  IGNITION 
CURSOR  ANGLE 
SPIRAL  ANGLE 
POSITICN  CODE 
DATA  INDICATOR 
OMEGA 

DELTA  V (LV) 

DELTA  V (LVI 
DELTA  V (BODY  » 

DELTA  V (OTHER  VEHICLE) 

VG  (BODY) 

VG  (LV) 

BACKUP  OPTICS  LOS  AZIMUTH 

EL  FV  AT  ION 

HALF  UNIT  SUN  OR  PLANET  VECTOR 
LANDMARK  LATITUDE 

LONGITUCE/2 

ALTITUDE 

Y 

Y DOT 
PSI 

ALT  ITUCE 
VELOC I TY 

FL  IGHT  PATH  ANGLE 

PCT  FTP(10«,5KLe  ) AT  PRESENT  THRUST 

ALTITUDE  RATE 

FUTEO  ALTITUDE 

DELTA  GYRO  ANGLES 

SPARF 

SPARE 

SPARE 

SYSTEM  TEST  INPUTS 
SYSTEM  TEST  RESULTS 
RMS  IN  POSI TION 
RMS  IN  VELOCITY 
RMS  IN  BIAS 


2 A1800 

t 1801 

1802 
1803 

C 1804 


42.2320  00000 

42.2321  04040 

42.2322  C414C 

42  ,2323  04102 


I NNTYPTAB  QCT 
1 OCT 

0 ncT 

0 OCT 


00000 

04040 

04140 

04102 


NN 

on 

01 

02 

03 


NORMAL  NOUNS 
NOT  IN  USE 
3C0MP  FRACTIONAL 
3C0MP  WHOLF 
3C0MP  COU  DEGREES 


c 

r 


gap:  assemble  REVISION  131  OF  AGO  PPCCRAP  LUMINARY  BY  NASA  2021112-091  17:53  OECo  19,1969  LEM0NAIDol04  PAGE  311 


L PINBALL  NOUN  TABLES 


USER  'S  PAGE  NOc  9 EO  S4 


1805 

1806 

1807 

1808 

1809 

1810 
1811 
1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 
1821 
1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 
1639 
1840 

R 18401 


42,2324  00504  0 

42  ,2325  00504  0 

42.2326  04000  0 

42.2327  C40CO  0 

42.2330  04000  0 

42.2331  C4C0C  0 

42.2332  00000  1 

42.2333  24400  0 

42.2334  C2000  0 

42  ,2335  24400  0 

42.2336  04140  0 

42.2337  COOOO  I 

42.2340  24400  0 

42.2341  COOCO  1 

42.2342  04102  0 

42.2343  COOOO  1 

42.2344  04102  0 

42  ,2345  04140  0 

42  ,2346  04102  0 

42,2347  00000  1 

42  ,2350  24400  0 

42.2351  04140  C 

42.2352  04000  0 

42.2353  C0140  1 

42.2354  OOOOO  1 

42  ,2355  OOOOO  1 

42.2356  COOOO  1 

42.2357  COOOO  1 

42.2360  24400  0 

42.2361  244C0  C 

42.2362  24400  0 

42.2363  24400  0 

42.2364  24400  0 

42  ,2365  24400  0 

42.2366  24400  0 

42.2367  OOOOO  1 

FNO  OF  NNTYPTA8  FOR  NCRPAL  NCUNS 


OCT  00504 

OCT  00504 

OCT  04000 

OCT  04000 

OCT  04000 

□CT  04000 

OCT  OOOOO 

OCT  24400 

OCT  02000 

OCT  24400 

OCT  04140 

OCT  oooon 

OCT  24400 

ncT  0 

OCT  041C2 

OCT  oooon 

OCT  04102 

OCT  04140 

OCT  0410? 

OCT  OOOOO 

OCT  24400 

OCT  04140 

OCT  O4CO0 

OCT  00140 

OCT  OOOOO 

OCT  OOOOO 

OCT  0 

OCT  0 

OCT  24400 

nCT  24400 

OCT  24400 

OCT  24400 

OCT  24400 

OCT  24400 

CCT  24400 

OCT  OOOOO 


04  ICOMP 

05  ICOMP 

06  3C0MP 

07  3C0MP 

08  3C0MP 

09  3C0MP 

10  ICOMP 

11  3C0MP 

12  2C0MP 

13  3C0MP 

14  3C0MP 

15  ICOMP 

16  3C0MP 

17 

18  3C0MP 

19 

20  3C0MP 

21  3C0MP 

22  3C0MP 

23 

24  3C0MP 

25  3CnMP 

26  3CDMP 

27  ICOMP 

28 

29 

30  SPARE 

31  SPARE 

32  3C0MP 

33  SCOMP 

34  3C0MP 

35  3C0MP 

36  3C0MP 

37  3C0MP 

38  3CnMP 

39 


DPOEG (360  > 
DPDEG  ( 360 
OCTAL  ONLY 
CCTAL  ONLY 
OCTAL  ONLY 
OCTAL  ONLY 
OCTAL  ONLY 
HMS  (DEC  ONLY) 
CCTAL  ONLY 
HMS  (DEC  ONLY) 
WHOLE 
CCTAL  ONLY 
HMS  (DEC  ONLY) 
SPAR  E 
CDU  OEG 
SPAR  E 

CDU  CFGREES 
WHOLE 

CDU  DEGREES 
SPARE 

HMS  (DEC  ONLY) 

WHOLE 

OCTAL  ONLY 

WHOLE 

SPARE 

SPARE 


HMS  (DEC  ONLY) 
HMS  (DEC  ONLY  ) 
HMS  (DEC  CNLY) 
HMS  (DEC  ONLY) 
HMS  (DEC  CNLY) 
HMS  (DEC  CNLY) 
HMS  (DEC  ONLY  I 
SPARE 


A18402 

1841 
A1841 1 

1842 

1843 
A16431 

1844 
A18441 

1845 
A18451 

1846 


42  ,2370  24500  1 

42,2371  CC542  I 

42  ,2372  24410  1 

42.2373  20204  0 

42.2374  CC410  1 

42.2375  10000  0 


OCT  24500 

OCT  00542 

OCT  24410 

OCT  20204 

OCT  00410 

OCT  lonoo 


NN 

40 

41 

42 

^3 

UUr 

45 


MIXED  N(^UNS 

3C0MP  MIN/SEC,  VEL?,  VEL3 
(NO  LOAD,  DEC  ONLY) 

2C0MP  CDU  DEG,  ELEV  OEG 
3C0MP  P0S4,  post,  VEL3 
(DEC  ONLY) 

3C0MP  0PDEG(36C),  CPDEG(36f)),  P0S4 
{ DEC  ONL  Y) 

3C0MP  P0S4,  P0S4,  MIN/SEC 
(NO  LCAO,  DEC  CNLY) 

3C0MP  WHOLE,  MIN/SEC,  0P0eG(360) 


GAP  : 


t 


* 

I 
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USER'S  PAGE  NOo  in  EC  S^ 


c 

L 

L 

C 

c 

c 

c 

L 


c 

c 

c 


I 


c 

c 


A18461 

1847 

1848 

A 18461 


1849 
A18491 

1850 
A18501 

1851 

1852 
A18521 

1853 

1854 

1855 
Aie551 

1856 
A18581 

1859 

1860‘ 

A18601 

1861 

A18611 

1862 

A18621 

1863 
A18631 

1864 
A 18641 

1865 
A18651 

1866 
A18661 

1867 
A18671 

1868 

1869 
A18691 

1870 

1871 
A18711 

1872 
A18721 

1873 

1874 

1875 

1876 

1677 

A18771 

1878 

A18781 


42,2400 
42  ,2401 

42.2402 

42.2403 

42  ,2404 

42.2405 

42.2406 


00000  1 
00306  1 

Cl 367  I 

00510  0 

00000  1 
00204  1 

00004  0 
OOOOO  1 
10507  1 


42.2410 

42.2411 

42.2412 
42  ,2413 

42.2414 

42.2415 

42.2416 

42 .2417 

42.2420 

42.2421 
42  ,2422 


00204  1 
COOOO  1 

24510  0 

24512  1 

60521  1 

54C00  0 

24012  1 

60512  1 

60500  1 

COOOO  1 
00016  0 


42,2425  61430  1 


42,2426 
42  ,2427 
42  ,2430 
42,2431 
42  ,2432 


COOOO  1 
OOOOO  1 
00102  1 
00102  I 
10200  1 


42,2433  00010  0 


OCT  OOOOO 

nCT  C0306 

OCT  01367 

OCT  00510 

OCT  0 

OCT  00204 

OCT  00004 

OCT  OOOOO 

OCT  10507 

OCT  10200 

OCT  00204 

nCT  OOOCO 

OCT  24510 

OCT  24512 

OCT  60521 

nCT  54000 

OCT  24012 

OCT  60512 

OCT  60500 

OCT  OOOOO 

OCT  00016 

OCT  53223 

OCT  60026 

OCT  61430 

ncT  0 

OCT  0 

OCT  00102 

nCT  00102 

OCT  10200 

OCT  00010 


(NO  LOAD,  DEC  CNLY( 

46  ICOMP  OCTAL  ONLY 

47  2C0MP  WEIGHT?  FCP  EACH 

(DEC  ONLY) 

48  2CnMP  TRIM  CEG2  FOR  EACH 

(OFC  ONLY) 

49  3CPMP  P0S4,  VEL3,  WHOLE 

(DEC  ONLY) 

50  SPARE 

51  2C0MP  0PDEG(360>,  DPDFG(360) 

(DEC  ONLY) 

52  ICOHP  DPDEG(360) 

53  SPARE 

54  3CCMP  PCS5,  VEL3,  DP0E6(360) 

(DEC  ONLY) 

55  3C0MP  WHOLE,  CPDEGOBC),  0PDEG(360  ) 

(DEC  ONLY) 

56  2C0MP  0PDEG(360),  DPDEG(360) 

57  SPARE 
(DEC  ONLY) 

58  3C0MP  P0S4,  VEL3,  VEL3 

(DEC  ONLY) 

59  3C0MP  VEL3  FOR  EACH 

(DEC  ONLY) 

60  3C0MP  FOR/LAT  VEL,  VEL3  , COMP  ALT 

(DEC  ONLY) 

61  3C0MP  MIN/SEC,  MIM/SFC,  POST 

(NO  LOAD,  OEC  ONLY) 

62  3C0MP  VFL3,  MIN/SEC,  VEL3 

(NO  LCAD,  DEC  ONLY) 

63  3C0MP  VEL3,  VEL3,  COMP  ALT 

(OEC  ONLY) 

64  3C0MP  2INT,  VEL3,  CCMP  ALT 

(NO  LOAD,  DEC  ONLY) 

65  3C0MP  HMS  (OFC  ONLY) 

66  2C0MP  LANDING  RAOAR  ALT,  POSITION 

(NO  LOAD,  DEC  ONLY) 

67  TCOMP  LANDING  PACAR  VELX,  Y,  I 

68  3C0MP  POST,  MIN/SEC,  COMP  ALT 

(NO  LOAD,  DEC  ONLY) 

69  3C0MP  COMP  ALT,  COMP  ALT,  COMP  ALT 

( OEC  ONL  Y) 

70  3C0MP  CCTAL  ONLY  FOR  EACH 

71  3C0MP  OCTAL  ONLY  FOR  FACH 

72  2C0MP  360-CDU  CEG,  CDU  DEG 
7?  2C0MP  360-CDU  CEG,  CDU  OEG 

74  3CDMP  MIN/SEC,  OPOEG( 360 ) , OPOEG ( 360 ) 

(N(^  LCAD,  DEC  ONLY) 

75  3C0MP  P0S4,  MIN/SEC,  MIN/SEC 

(NO  LOAD,  DEC  ONLY) 


c 
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1879 
Aie791 

1880 
A18601 

1881 

A18811 

1802 

A18821 

1883 

1884 
A18841 

1885 
A18851 

1866 

Aieebi 

1887 

A18871 

1836 

A18881 

1889 
A18891 

1890 

1891 
A18912 

1892 
A18921 

1893 
A18931 

1894 

1895 

1896 

1897 

1890 

1890 

1900 

1901 

1902 
A19021 
R1903 


42  ,2434 

42.2435 

42.2436 
42  ,2437 

42.2440 

42.2441 

42  ,2442 

42.2443 

42.2444 

42.2445 
42  ,2446 


20512  0 
CC5C0  1 
0C654  0 
00102  1 

00200  0 
24512  1 

24512  1 

24512  1 

24512  1 

24512  1 

24512  1 


42,2447  C0102  1 

42  ,2450  00000  1 

42.2451  16143  0 

42.2452  10507  1 


42.2453  10450  1 

42.2454  60500  1 

42  ,2455  06143  1 

42.2456  00000  1 

42.2457  00000  1 

42.2460  COOOO  1 

42.2461  COOOO  1 

42  ,2462  00000  1 

42,2463  71572  1 


END  OF  NN7YPTAB  FOR  MIXED  NCUNS 


OCT  20512 

OCT  00500 

OCT  00654 

OCT  00102 

OCT  00200 

CCT  24512 

□CT  24512 

OCT  24512 

OCT  24512 

OCT  24512 

OCT  24512 

OCT  00102 

OCT  0 

OCT  16U3 

OCT  10507 

OCT  10450 

OCT  60500 

OCT  06143 

OCT  00000 

OCT  0 

OCT  0 

OCT  COOOO 

OCT  00000 

OCT  71572 


2200 

2201 

2202 

2203 

2204 
220  5 
2206 

2207 

2208 


42.2464 

42.2465 
42  ,2466 
42,2467 
42  ,2470 

42.2471 

42.2472 
42  ,2473 
42,2474 


00006  I SFINTAB  OCT 


03240  1 OCT 
00000  I OCT 
COOOO  1 OCT 
00000  1 OCT 
COOOO  1 OCT 
10707  C OCT 
03435  0 OCT 
13C70  I OCT 


00006 
03240 
00000 
00000 
00000 
00000 
107C7 
03435 
1 3070 


76  3C0MP 

77  2C0MP 

78  3C0MP 

79  3C0MP 

80  2C0MP 

81  3C0MP 

82  3C0MP 

83  3C0MP 

84  3CnMP 

85  3C0MP 

86  3C0MP 

87  2C0MP 

88  3C0MP 

89  3C0MP 

90  3C0MP 

91  3CnMP 

92  3C0MP 

93  3C0MP 

94 

95 

96 

97  3C0MP 

98  3C0MP 

99  3C0MP 


VFL3,  VEL3,  PCS4 
( DEC  ONL  Y » 

MIN/SFC,  VEL? 

(NO  LOAD,  DEC  ONLY) 

RP  RANGE,  RR  RANGE  RATE,  M/S 
(NO  LEAD,  CEC  ONLY) 

COU  DEG,  COU  DEG,  WHOLE 
( CEC  ONLY ) 

WHOLE,  DPDEG(360) 

VEL3  FOR  EACH 
(DEC  ONLY  I 
VEL3  FOR  EACH 
(DEC  ONLY) 

VEL3  FOR  EACH 
( DEC  ONLY) 

VEL3  FOR  EACH 
(DEC  ONLY) 

VEL3  FOR  EACH 
(DEC  CNLY) 

VEL3  FOR  EACH 
(DEC  ONLY) 

COU  DEG  FOR  EACH 
FRAC  FOR  EACH 
( DEC  ONLY ) 

0PDEG(90),  DPOEG(90),  P0S5 
( DEC  ONLY) 

PCS5,  VEL3,  DPDEG(360) 

(DEC  ONLY) 

P(^S4,  VeL2,  0P0EG(360) 

WHOLE,  VEL3,  COMP  ALT 
DP0EG(90)  FOR  EACH 
S PAR  E 
SPARE 
SPAR  E 

WHOLF  FOR  EACH 
WHOLE  , FRAC , WHCLF 
PnS9,  VEL4,  RADIANS 
(DEC  ONLY) 


WHOLE,  DP  T TME  (SEC ) 
SPARE 


COU  DEGREES,  360-C0U  DEGREES 
(SFCONS  IN  OFGINSF) 

OP  DEGREES  (90) 

UPPED  BY  1 

OP  DEGREES  (360){PDINT  BETWN 


PITS  11-12) 
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31A 


22C9 

2210 

2211 

2212 

2213 

221A 

2215 

2216 

2217 

2218 

2219 

2220 
2221 
2222 

2223 

2224 

2225 

2226 

2227 

2228 
2226 

2230 

2231 

2232 

2233 

2234 
2234 

2236 

2237 

2238 
2238 
2240 
2240 
2242 
2242 
22^4 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2252 

2253 

2253 

2254 
2254 

A 2290 


42.2475 

42.2476 

42.2477 
42,2500 
42,25C1 
42  ,2502 

42.2503 

42.2504 
42  ,2505 

42.2506 

42.2507 

42.2510 

42.2511 
42  ,2512 

42.2513 

42.2514 
42  ,2515 

42.2516 

42.2517 
42  ,2520 

42.2521 

42.2522 

42.2523 

42.2524 
42  ,2525 

42.2526 

42.2527 

42.2530 

42.2531 

42.2532 

42.2533 

42.2534 

42.2535 

42.2536 

42.2537 
42  ,2540 

42.2541 

42.2542 

42.2543 

42.2544 
42  ,2545 

42.2546 

42.2547 
42  ,2550 

42.2551 

42.2552 

42.2553 

42. 2554 

42.2555 


34345  1 
C0005  1 
21616  0 
26113  0 
31713  C 
00070  0 
20460  1 
01065  0 
05740  1 
11414  0 
31463  1 
C7475  0 
16051  1 
00001  0 
C3434  1 
00047  1 
21135  0 
77766  0 
50711  0 
00005  1 
250C6  0 
C0002  0 
23224  I 
CCC14  1 
06500  1 
00001  0 
03315  0 
04256  1 
C7C71  0 
77766  0 
60557  0 
0CC05  1 
01114  1 
00007  0 
01247  1 
04324  0 
27600  1 
00036  1 
20440  0 
00035  1 
30400  0 
23420  0 
00000  1 
01670  1 
200C0  0 
07475  0 
16C51  I 
144C0  0 
00000  1 


OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

2DEC* 


34345  UPPED  BY  1 

00005  DEGREES  (180) 

21616 

26113  WEIGHT2 

31713 

00070  PnSITI0N5 

20460 

01C65  P0SITI0N4 

05740 

11414  VELnCITY2  (POINT  6ETWN  BITS  11-12) 

31463 

07475  VEL0CITY3 

1 6C51 

00001  ELEVATION  DEGREES 

03434 

00047  RENDEZVOUS  RADAR  RANGE 

21135 

77766  RENDEZVOUS  RADAR  RANGE  RATE 

50711 

o926784059S  E5  8-28  # LANDING  RADAR  ALTITUDE 


OCT  00002 

OCT  23224 

nCT  00C14 

OCT  06500 

2DEC  ol8125  E5  0-28 

OCT  04256 

OCT  07071 

2DEC#  -1*552795030  E5 


INITIAL/FINAL  ALTITUDE 
ALTITUDE  RATE 
FORWARD/LATEPAL  VELOCITY 
ROT  HAND  CONT  ANGLE  RATE 
8-28  * LANDING  RADAP  VELX 


2DEC<' 

2DEC* 


* 8250825087  E5 
1*153668673  E5 


B-20  * LANDING  RADAR  VELY 
6-28  * LANDING  RADAR  VELZ 


ncT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

20EC 


04324 
27600 
00036 
20440 
0003  5 
30400 
23420 
OOCOO 


19 


P0SITI0N7 
TRIM  0EGREES2 
COMPUTED  ALTITUDE 
OP  DEGREES 
POSITION  9 


20EC  30*48  e-7 


VeL0CITY4 


2DEC  100  B-8 


RADIANS 


END  OF  SFINTA0 


GAP  : 

L 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2328 

2330 

2331 

2332 

2333 

2334 

2334 

2336 

2337 

2338 

2338 

2340 

2340 

2342 

2342 

2344 

2345 

2346 

2347 

2348 

2349 
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42,2556  05174  0 SFOUTAB  OCT 


A2,2557  13261  0 OCT 

42.2560  00000  1 OCT 

42.2561  00000  1 OCT 

42.2562  OOOOn  1 OCT 

42.2563  00000  I OCT 

42  ,2564  00714  0 OCT 

42.2565  31463  1 OCT 

42.2566  13412  1 OCT 

42.2567  C7534  1 OCT 

42,2570  C5605  I OCT 

42  ,2571  03656  I OCT 

42.2572  00001  0 OCT 

42.2573  16170  0 OCT 

42  ,2574  00441  0 OCT 

42.2575  343C6  C OCT 

42.2576  07176  0 OCT 

42.2577  21603  1 CCT 

42,260C  15340  1 OCT 

42  ,2601  15340  1 OCT 

42.2602  01031  1 OCT 

42.2603  21032  0 OCT 

42  ,2604  34631  1 OCT 

42.2605  23146  0 OCT 

42.2606  00636  1 OCT 

42.2607  14552  0 CCT 

42,2610  74552  0 OCT 

42  ,2611  70307  1 OCT 

42.2612  C5520  0 20EC 

42.2613  15312  0 

42  ,2614  14226  1 OCT 

42.2615  31757  0 OCT 

42.2616  02476  0 OCT 

42.2617  C5531  0 OCT 

42.2620  34731  C 20EC 

42.2621  22542  1 

42.2622  00007  0 OCT 

42.2623  13734  0 OCT 

42.2624  74477  0 2DEC 

42.2625  50643  0 

42.2626  06265  0 20EC 

42.2627  16C04  1 

42,2630  04426  0 20EC 

42  ,2631  31433  1 

42.2632  34772  1 OCT 

42.2633  07016  1 OCT 

42  ,2634  01030  0 OCT 

42.2635  33675  0 DCT 

42.2636  01046  1 OCT 

42.2637  15700  1 OCT 


05174 

J3261 

00000 

OOOCO 

00000 

00000 

00714 

31463 

13412 

07534 

05605 

03656 

00001 

16170 

00441 

34306 

07176 

21603 

15340 

15340 
07  031 
21C32 
34631 
23146 
00636 
14552 
74552 
70307 

lo079  E-5  814 

14226 

31757 

02476 

05531 

5o  517  E-5  814 

00007 

13734 

-66440  E-5  B14 


16212  E-5  814 
60668  E-5  014 


34772 

C7C16 

01030 

33675 

01046 

15700 


WHOLE,  DP  TIME  (SEO 
SPARE 

COU  DEGREES,  360-CDU  DEGREES 

(SFCCNS  IN  DEGCUTSF,  36O-C0U0) 

OP  DEGREES  (90)  (POINT  BETWN  BITS  7-8) 

DP  DEGREES  (36CI 

DEGREES  (180) 

WEIGHT2 

POSITIONS 

P0SITI0N4  (POINT  BETWN  BITS  7-R ) 

VELCCITY2 

VEL0CITY3  (POINT  BETWN  BITS  7-8) 

ELEVATION  DEGREES 

RENDEZVOUS  PAOAP  PANGE 

RENDEZVOUS  RADAR  RANGE  RATE 

LANDING  RADAR  ALTITUDE 

INITIAL/FINAL  ALTITUDE 

ALTITUDE  RATE 

FORWARD/LATERAL  VELCCITY 

ROT  HAND  CONT  ANGLE  RATE 

LANDING  RADAR  VFLX 

LANDING  RADAR  VELY 

LANCING  RADAR  VELZ 

P0SITI0N7 

TRIM  0EGREES2 

COMPUTED  ALTITUDE 
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2350 

2351 

2352 

2352 

2353 

2353 

2354 
2354 

A2390 


A2  ,2640 
A2,26Al 
^2,26A2 
'■iZ  ,2643 
A2,2644 
A2,2645 
42  ,2646 
42,2647 


00321  1 OCT  00321 

26706  1 OCT  26706 

C4231  0 2DEC  17o2010499  0-7 

27400  0 

01031  1 2DEC  o032808399 

21032  0 

12172  0 20EC  o32 

34122  1 


CP  OEGREFS 
POSITION  9 
VELCCITY4 
RADIANS 

END  OF  SFOUTAB 


A2400 


NN  SF  CONSTANT 


SF  ROUTINE 


2401  REF 

2402  REF 

2403  REF 

2404  REF 

2405  REF 

2406 

2407  REF 

2408  REF 

2409  REF 

2410  REF 

2411  REF 

2412  REF 

2413  REF 

2414  REF 

2415  REF 

2416  REF 

2417  REF 

2418  REF 

2419  REF 

2420 

2421 

2422  REF 

2423  REF 

2424 

2425  REF 

2426  REF 

2427 

2428  REF 

2429  REF 

2430  REF 

2431 

2432 

2433 

2434  REF 

2435  REF 

2436 

2437  REF 


10  LAST  308 
1 

2 LAST  149 

8 LAST  308 

9 LAST  316 

3 LAST  285 
1 

2 LAST  316 
2 LAST  104 
2 LAST  104 
2 LAST  104 
2 LAST  115 
1 

2 LAST  116 

3 LAST  242 

11  LAST  316 
1 

10  LAST  295 


10  LAST  297 
4 LAST  297 

1 

2 LAST  298 
1 

2 LAST  316 
2 LAST  108 


4 last  282 
3 LAST  119 

1 


42,2650 
42  ,2651 

42.2652 

42.2653 

42.2654 

42.2655 

42.2656 

42.2657 
42,2660 
42  ,2661 

42.2662 

42.2663 

42.2664 

42.2665 
42  ,2  666 
42,2667 
42,2670 
42  ,2671 

42.2672 

42.2673 
42  ,2674 

42.2675 

42.2676 
42  ,2677 
42,27C0 
42  ,2701 

42.2702 

42.2703 

42.2704 

42.2705 

42 .2706 

42.2707 
42, 2710 
42  ,2711 

42.2712 

42.2713 

42.2714 


03453  0 
03663  1 
C3507  0 

01044  0 

01045  1 
CCOOO  1 
02316  1 
C2320  1 
03663  1 
01117  1 
01121  1 
01123  0 
02117  1 
C2121  1 
02140  0 
C3462  1 
03453  0 
02252  0 
C1340  1 
00000  1 
00000  1 
C1326  1 
01327  0 
OOOOO  1 
03002  0 
03001  0 
COCOC  1 
00314  1 
00316  0 
01356  C 
OOOOO  1 
OOOOO  1 
OOOOO  1 
02200  1 
C2202  0 
OOOOO  1 
01755  1 


IDADOTAB 


ECAUR 

ECAOR 

ECACR 

ECAOR 

ECACR 

OCT 

ECAOR 

ECAOR 

ECAOR 

ECAOR 

ECADR 

ECAOR 

ECADR 

ECADR 

ECADR 

ECADR 

ECAOR 

ECAOR 

ECAOR 

OCT 

OCT 

ECADR 

ECAOR 

OCT 

ECAOR 

ECADR 

OCT 

ECADR 

ECAOR 

ECAOR 

□CT 

OCT 

□CT 

ECAOR 

ECADR 

OCT 

ECADR 


TTOGO 
VGOISP 
DVTCTAL 
DSPTEMl 
DSPTEMl  *1 
0 

HAPO 

HP6R 

VGDI SP 

LAT 

LONG 

ALT 

HAPOX 

HPERX 

TFF 

TRKMKCNT 

TTOGD 

+MGA 

OAPDATRl 

0 

0 

LEMMASS 

CSMMASS 

0 

PITTIME 

ROLLTIME 

0 

R22DISP 
P220ISP  +2 
WHCHREAD 
0 
0 
0 

ALPHASB 

BETASB 

0 

ACTCENT 


40  MIN/SEC  M/S 

40  VEL3  0P3 

40  VEL3  DP3 

41  COU  OEG  CDU 

41  ELEV  DEG  ARTH 

41  SPARE  COMPONENT 

42  P0S4  0P3 

42  PQS4  DP3 

42  VFL3  DP3 

43  OPOEG(360I  DP4 

43  CPDEG(3601  nP4 

43  PaS4  DPS 

44  P0S4  DP3 

44  PaS4  DP3 

44  MIN/SEC  M/S 

45  WHOLE  ARTH 

^5  MIN/SEC  M/S 

45  DP0EG(360)  DP4 

46  OCTAL  ONLY  OCT 

46  SPARE  COMPONENT 

46  SPARE  COMPONENT 

47  WEIGHT2  APTHl 

47  WEIGHT2  ARTHl 

47  SPARE  COMPONENT 

48  TRIM  0EG2  ARTH 

48  TR  IM  0EG2  ARTH 

48  SPARE  COMPONENT 

49  P0S4  DP3 

49  VEL3  DP3 

49  WHOLE  ARTH 

50  SPARE 
50  SPARE 

50  SPARE 

51  0P0EG(360I  DP4 

51  CPDEG(360J  UP4 

•^1  SPARE  COMPONENT 

52  DP0EG(360)  0P4 


GAP  : 

L 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2465 

2486 

2487 
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KEF  7 LAST 

REF  3 LAST 

REF  3 LAST 

REF  2 LAST 

REF  3 LAST 

REF  2 LAST 

REF  5 LAST 

REF  2 LAST 


REF  3 LAST 

REF  5 LAST 

REF  2 LAST 

REF  1 

REF  2 LAST 

REF  3 LAST 

REF  2 LAST 

REF  3 LAST 

REF  1 

REF  2 LAST 

REF  12  LAST 

REF  2 LAST 

REF  2 LAST 

REF  13  LAST 

REF  3 LAST 

REF  3 LAST 

REF  4 LAST 

REF  2 LAST 

REF  5 LAST 

REF  5 LAST 

REF  2 LAST 

REF  2 LAST 

REF  3 LAST 

REF  4 LAST 

REF  3 LAST 


REF  4 LAST 

REF  5 LAST 

REF  6 LAST 

REF  2 LAST 

REF  3 LAST 

REF  3 LAST 


42.2715 

41.2716 

42.2717 

42.2720 

42.2721 
119  42,2722 

116  42  ,2723 

lie  42,2724 
200  42,2725 

200  42,2726 

200  42,2727 

302  42,2730 

302  42,2731 

42,2732 
42  ,2733 

42.2734 

42.2735 
1^3  42,2736 

143  42,2737 

200  42,2740 

42,2741 
?17  42,2742 

317  42,2743 

152  42,2744 

149  42,2745 

42,2746 
149  42,2747 

316  42,2750 

123  42,2751 

149  42,2752 

317  42  ,2753 

316  42,2754 

317  42,2755 

317  42,2756 

317  42,2757 

152  42  ,2760 

317  42,2761 

149  42,2762 

209  42  ,2763 

317  42,2764 

317  42,2765 

279  42,2766 

42,2767 
42  ,2770 
317  42,2771 

317  42,2772 

317  42  ,2773 

123  42,2774 

317  42,2775 

202  42,2776 


00000  1 
COOOO  1 
COOOO  I 
00000  I 
00000  1 
02200  1 
02202  0 
02204  0 
03466  0 
02256  1 
C3620  0 
02200  1 
02202  0 
00000  1 
00000  1 
CCCOO  1 
COOOO  1 
03605  1 
C3575  0 
02347  0 
02302  1 
02304  1 
02306  0 
C37C1  1 
03473  1 
03774  0 
C3475  1 
03453  0 
02616  I 
03471  0 
03453  0 
03507  0 
03471  0 
03473  1 
C3774  0 
03666  1 
03473  1 
03534  0 
00013  0 
C0C13  0 
00013  0 
02206  1 
COOCO  1 
00000  1 
02200  1 
02202  0 
02204  0 
C2616  1 
03475  1 
03664  0 


OCT  00000 
OCT  COOOO 
OCT  00000 
OCT  r.oono 
OCT  00000 
ECADR  RANGE 
ECAOR  RRATE 
ECADR  RTHETA 
ECAOR  NN 
ECADR  ELEV 
ECADR  CEMANG 
ECAOR  PR-AZ 
ECAOR  RR-ELEV 
nCT  0 
OCT  0 
CCT  0 
OCT  0 
ECADR  POSTTPl 
ECADR  OELVTPI 
ECAOR  OELVTPF 
ECAOR  DVLOS 
ECADR  OVLOS  +2 
ECAOR  OVLOS  +4 
ECADR  FORVEL 
ECAOR  HDQTDISP 
ECAOP  HCALCl 
ECAOR  TTFDISP 
ECAOP  TTOGO 
ECAOR  GUTOFPLN 
ECAOR  ABVEL 
ECADR  TTOGO 
ECADR  OVTOTAL 
ECAOR  A6VEL 
ECAOR  HDCTOISP 
ECAOR  HCALCl 
ECAOR  FUNNYDSP 
ECADR  HDOTDISP 
ECAOR  HCALC 
ECAOR  SAMPTIME 
ECADR  SAMPTIVE 
ECAOR  SAMPTIME 
ECADR  RSTACK  +6 
OCT  0 
OCT  0 
ECAOR  RSTACK 
ECAOR  RSTACK  +2 
ECAOR  RSTACK  +4 
ECAOR  RANGECSF 
ECADR  TTFDISP 
ECAOR  DELTAH 


52  SPARE  CCMPCNENT 

52  SPAP  E COMPONENT 

53  SPARE 
53 

53 

54  P0S5  DPI 

54  VEL3  DP3 

54  0PDEG(360»  DP4 

55  WHOLE  ARTH 

55  DP0EG(360>  DP4 

55  CPCEG(360)  DP4 

*^6  DP0EG(360I  DP4 

56  0PDEG(36O)  0P4 

56  SPARE  COMPONENT 

57  SPARE 
57  SPARE 

57  SPARE 

5R  P0S4  DP3 

58  VELS  DP3 

58  VEL3  0P3 

59  VEL3  DP3 

59  VEL3  0P3 

59  VEL3  DP3 

60  FOR/LAT  VFL  ARTH 

60  VEL3  0P3 

60  COMP  ALT  DPI 

61  MIN/SEC  M/S 

61  MIN/SEC  M/S 

61  PGS7  DP4 

62  VEL3  0P3 

62  MIN/SEC  M/S 

62  VEL3  0P3 

63  VEL3  DP3 

63  VEL3  DP3 

63  COMP  ALT  DPI 

64  2INT  2INT 

64  VEL3  0P3 

64  COMP  ALT  DPI 

65  HMS  (MIXED  ONLY  TO  KEEP  CODE  65)  HMS 

65  HMS  HMS 

65  HMS  HMS 

66  LANDING  RADAR  ALT  DPI 

66  LR  POSITION  LRPOS 

66  SPARE  COMPONENT 

67  LANDING  RADAR  VELX  DPI 

67  LANDING  RADAR  VELY  DPI 

67  LANDING  RADAR  VEL2  DPI 

6fl  POST  0P4 

60  MIN/SEC  ■ M/S 

68  COMP  ALT  OPl 


GAP: 

L 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

25C5 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2 53  6 

2537 
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REF  1 

REF  J 

REF  3 LAST 

REF  4 LAST 

REF  5 LAST 

REF  6 LAST 

REF  7 LAST 

REF  8 LAST 

REF  3 LAST 

REF  3 LAST 

REF  2 LAST 

REF  3 LAST 

REF  14  last 

REF  2 LAST 

REF  1 

REF  3 LAST 

REF  2 LAST 

REF  1 

REF  3 LAST 

REF  2 LAST 

REF  2 LAST 

REF  15  LAST 

REF  2 LAST 

REF  4 LAST 

REF  2 LAST 

REF  1 

REF  2 LAST 

REF  2 LAST 

REF  1 

REF  2 LAST 

REF  1 

REF  2 LAST 

REF  3 LAST 

REF  4 LAST 

REF  5 LAST 

REF  6 LAST 

REF  7 LAST 

REF  1 

REF  2 LAST 

REF  3 LAST 

REF  1 

REF  2 LAST 

REF  3 LAST 

REF  3 LAST 

REF  4 LAST 


42i3000 
42, 3C01 
247  42,3002 

318  42,3003 

318  42,3004 

318  42  ,3005 

318  42,3006 

318  42,3007 

301  42,3010 

200  42,3011 

42,3012 
103  42,3013 

318  42,3014 

42  ,3015 

317  42,3016 

121  42,3017 

42,3020 
200  42,3021 

118  42,3022 

42,3023 
202  42,3024 

120  42,3025 

154  42,3026 

318  42,3027 

120  42,3030 

42,3031 
198  42,3032 

107  42,3033 

42,3034 
262  42  ,3035 

262  42,3036 

42,3037 
146  42,3040 

42.3041 

42.3042 
K1  42,3043 
318  42,3044 

318  42  ,3045 

316  42,3046 

318  42,3047 

310  42,3050 

42,3051 
318  42,3052 

318  42,3053 

42,3054 
318  42,3055 

3)  8 42,3056 

149  42,3057 

318  42,3060 


02640  1 
C2636  0 
02634  1 
00734  1 
C0735  0 
00736  C 

00734  1 

00735  0 

00736  C 
00035  1 
C0C36  1 
OOOOO  I 
C1106  1 
01107  0 
OOOOO  1 
03453  0 
02262  1 
023  64  1 
03577  1 
02252  0 
02254  0 
02276  0 
02272  1 
03642  1 
03453  0 
C2310  1 
OOOOO  1 

01330  0 

01331  1 
01271  1 
01235  1 
01237  0 
01241  1 
03733  0 
C3734  1 
OOOOO  1 
03433  0 
03435  0 
03437  1 
03433  0 
03435  0 
03437  1 
03622  1 
03624  1 
03626  0 
02222  1 
02224  1 
02226  C 
03501  0 
03503  1 


ECAOR  DLANDZ 
ECAOR  DLANDY 
ECAOR  DLANDX 
ECAOR  AOTCODE 
ECAOR  AOTCODE  +1 
ECAOR  AOTCODE  *2 
ECADP  AOTCODE 
ECAOR  AOTCCDE  +1 
ECAOR  AOTCODE  +2 
ECAOR  CDUT 
ECAOR  CDUS 
OCT  0 
ECAOR  TANG 
ECAOR  TANG  +1 
OCT  0 
ECAOR  TTCGC 
ECAOR  YAV. 

ECAOR  PITCH 
ECAOR  DIFFALT 
ECAOR  T1T0T2 
ECAOR  T2T0T3 
ECADP  ZOOTD 
ECAOR  PDOTD 
ECAOR  XRANGE 
ECAOR  TTOGO 
ECAOR  YOOT 
OCT  0 
ECAOR  DNPRANGE 
ECAOR  DNRRDOT 
ECADP  TTOTIG 
ECAOR  CURSOR 
ECAOR  SPIRAL 
ECAOR  POSCOOE 
ECAOR  DATAGOOO 
ECAOR  OMEGAO 
OCT  0 
ECAOR  DELVLVC 
ECAOR  DELVLVC  +2 
ECAOR  DELVLVC  +4 
ECAOR  DELVLVC 
ECAOR  DELVLVC  +2 
ECAOR  DELVLVC  +4 
ECAOR  DELVIMU 
ECAOR  DELVIMU  +2 
ECAOR  DELVIMU  +4 
ECAOR  DELVOV 
ECAOR  DELVOV  +2 
ECAOR  DELVCV  +4 
ECAOR  VGBOOY 
ECAOR  VGBOOY  +2 


69  COMP  ALT 
69  COMP  ALT 

69  COMP  ALT 

70  OCTAL  ONLY 
70  OCTAL  ONLY 

70  OCTAL  CNLY 

71  OCTAL  ONLY 
71  OCTAL  ONLY 

71  OCTAL  CNLY 

72  360-CDU  DEG 
72  COU  OEG 

72  SPARE  COMPONENT 

73  360-CCU  OEG 
73  COU  OEG 

73  SPARE  COMPONENT 

74  MIN/SEC 
74  0PDEG(36O) 

74  0P0EG(?60) 

75  P0S4 

75  MIN/SEC 

75  MIN/SEC 

76  VEL3 
76  VEL3 

76  P0S4 

77  MIN/SEC 
77  VEL3 

77  SPARE  COMPONENT 

78  RR  RANGE 

78  RR  RANGE  RATE 

78  MIN/SEC 

79  COU  OEG 
79  COU  OEG 

79  WHOLE 

80  WHOLE 

80  DPDEG(360» 

80  SPARE  COMPONENT 
B1  VEL3 

81  VEL3 

81  VEL3 

82  VEL3 
82  VEL3 

82  VELB 

83  VEL3 
83  VEL3 

83  VELB 

84  VEL3 

84  VEL3 
8^  VEL3 

85  VEL3 
85  VEL3 


DPI 

DPI 

DPI 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

360-CDU 

COU 

360-C0U 

COU 

M/S 

DP4 

nP4 

DP3 

M/S 

DP3 

0P3 

DP3 

M/S 

0P3 

RR  RANGE 
RR  RANGE  RATE 
M/S 
COU 
COU 
ARTH 
ARTH 
0P4 

0P3 
DP  3 
0P3 
DPS 
DP3 
OPS 
DP3 
DP3 
DPS 
DP  3 
0P3 
0P3 
DP3 
DP3 
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2530 
2539 
2 5^0 
25^^1 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 
R2600 


REF  5 LAST  318 

REF  8 LAST  318 

REF  9 LAST  319 

REF  10  LAST  319 

REF  3 LAST  247 

REF  1 


REF  10 
PEF  11 
REF  12 
REF  2 
REF  2 
PEF  1 
REF  8 
REF  4 
REF  4 
REF  1 
REF  2 
REF  2 
REF  1 
REF  6 
REF  3 
REF  6 
REF  7 
REF  8 


LAST  254 
LAST  319 
LAST  319 
LAST  124 
LAST  124 

LAST  317 
LAST  317 
LAST  317 

LAST  150 
LAST  150 

LAST  317 
LAST  317 
LAST  275 
LAST  319 
LAST  319 


REF  10  LAST  316 
PEF  11  LAST  319 
REF  12  LAST  319 
REF  4 LAST  307 
REF  5 LAST  319 
REF  6 LAST  319 
REF  2 LAST  300 
REF  1 
REF  1 

END  CF  IDADDTAE 


42.3061 

42.3062 

42.3063 
42  ,3064 

42.3065 

42.3066 
42  ,3067 

42.3070 

42.3071 

42.3072 

42.3073 
42  ,3074 

42.3075 

42.3076 
42  ,3077 

42.3100 

42.3101 
42,31C2 
42, 3103 
42  ,3104 

42.3105 

42.3106 
42  ,3107 
42,31J0 

42.3111 

42.3112 

42.3113 

42 .3114 

42.3115 

42.3116 
42  ,3117 
42,312C 

42.3121 

42.3122 

42.3123 
42  ,3124 

42.3125 

42.3126 
42  ,3127 
42, 313C 

42.3131 

42.3132 

42. 3133 


03505  1 
03433  0 
C3435  0 
03437  1 

01344  0 

01345  1 
00000  1 
C2706  1 
02710  0 
C2712  1 
02706  1 
02710  0 
C2712  1 
02200  1 
02202  0 
02204  0 
03715  1 
03711  0 
03713  I 
03750  0 
03473  1 
03776  0 
02737  0 
C2741  I 
02743  0 
00000  1 
COOOO  1 
00000  1 
COOOO  1 
00000  1 
00000  1 
COOOO  1 
00000  1 
COOOO  1 
C1C44  0 

01045  I 

01046  1 

01047  0 

01050  0 

01051  1 
02200  1 
02202  0 
02204  0 


ECAOR  VGBOOY  +4 
ECADR  DELVLVC 
ECAOR  DELVLVC  +2 
ECAOR  DELVLVC  +4 
ECADR  AZ 
ECAOR  EL 
OCT  0 
ECAOR  STARAO 
ECADR  STARAO  +2 
ECAOR  STARAO  +4 
ECADR  LANOLAT 
ECAOR  LANOLONG 
ECADR  LANDALT 
ECAOR  RANGE 
ECAOR  RRATE 
ECAOR  RTHETA 
ECAOR  P21ALT 
ECADR  P21VEL 
ECADR  P21GAM 
eCADP  THROISP 
ECAOR  HOCTDISP 
ECAOR  HCALCl 
ECAOR  OGC 
ECAOR  PGC  +2 
ECADR  OGC  +4 

CCT  00000 
OCT  00000 
OCT  COCOO 
OCT  0 
OCT  0 
OCT  0 

ncT  0 

OCT  0 
OCT  0 
ECAOR  DSPTEMl 
ECAOR  DSPTEMl  +1 
ECADR  DSPTEMl  +2 
ECADR  0SPTEM2 
ECAOR  0SPTEM2  +1 
ECAOR  0SPTEM2  +2 
ECAOR  WWPOS 
ECAOR  WWVEL 
ECAOR  WWBIAS 


A2800 


2 801 
2802 


42.3134  16351  1 RUTMXTAB  OCT  16351 

42.3135  00142  0 OCT  00142 
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USER’S  PAGE  NCo  37  EO  S4 

85  VEL3  DP3 

86  VEL3  DP3 

86  VEL3  DP3 

86  VEL3  DP3 

87  COU  OEG  CDU 

87  COU  OEG  CDU 

87  SPARE  COMPONENT 

88  FRAC  FPAC 

88  FRAC  FRAC 

88  FRAC  FRAC 

89  CP0EG(9n»  dP3 

89  DPDEG(90»  DP3 

89  P0S5  DPI 

90  P0S5  DPI 

90  VEL3  DP3 

90  CP0EG(360I  0P4 

91  P0S4  CP3 

91  VEL2  0P4 

91  CP0eG(36CJ  DP4 

92  WHOLE  ARTH 

92  VEL3  DP3 

92  COMP  ALT  DPI 

93  0POEG(90)  DP3 

93  CPOEGign  ) 0P3 

93  0P0EG(9O»  dP3 


94  SPARE 
94 

94 

95  SPARE 
95  SPARE 

95  SPARE 

96  SPARE 
96  SPARE 
96  SPARE 


97  WHOLE  ARTH 

97  WHOLE  ARTH 

97  WHOLE  ARTH 

98  WHOLE  ARTH 

98  FRAC  FRAC 

98  WHOLE  ARTH 

99  P0S9  DP3 

99  VEL4  DP2 

99  RADIANS  DP4 


NN  SF  ROUTINES 


40  M/S,  OPS,  DP? 

41  COU,  ARTH 


gap: 


t 


c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


2 803 
280A 

2805 

2806 

2807 

2808 

2809 

2810 
2811 
2812 
2813 
281A 

2815 

2816 
2817 
2618 

2819 

2820 
2821 
2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2636 

2637 

2838 

2839 

2840 

2841 

2842 
2 843 

2844 

2845 

2846 

2847 
2846 

2849 

2850 

2851 

2852 


42.3136 

42.3137 
42, 3140 
42  ,3141 

42.3142 

42.3143 

42 .3144 

42.3145 

42.3146 

42.3147 
42, 3150 
42  ,3151 

42.3152 

42.3153 

42.3154 

42.3155 

42.3156 

42.3157 
42,3160 
42  ,3161 

42.3162 

42.3163 

42.3164 

42.3165 

42.3166 

42.3167 
42,3170 
42  ,3171 

42.3172 

42.3173 

42.3174 

42.3175 

42.3176 

42.3177 
42, 32C0 
42  ,3201 

42.3202 

42.3203 

42.3204 

42.3205 

42.3206 

42.3207 

42. 3210 

42.3211 

42.3212 

42.3213 

42.3214 

42.3215 

42.3216 

42.3217 


16347  0 
16512  0 
22347  1 
24443  1 
COOOO  1 
00553  1 
00143  1 
C6347  1 
00000  1 
00512  1 
00012  I 
00000  1 
24344  1 
24503  1 
00512  1 
COOOO  1 
16347  0 
16347  0 
10343  1 
24451  1 
16447  1 
10347  0 
10354  1 
20410  0 
00304  0 
10204  0 
10452  0 
10204  0 
COCCO  1 
00000  1 
00115  1 
00115  1 
24511  1 
22447  0 
16347  0 
00351  0 
22756  0 
06102  1 
00503  1 
16347  0 
16347  0 
16347  0 
16347  0 
16347  0 
16347  0 
00102  1 
02041  0 
1C347  C 
24344  1 
24507  0 


OCT  16347 

OCT  16512 

OCT  22347 

OCT  24443 

OCT  noooo 

OCT  00553 

OCT  00143 

OCT  06347 

OCT  0 

OCT  O0512 

OCT  00012 

OCT  OOCOO 

OCT  24344 

OCT  24503 

OCT  00512 

OCT  0 

OCT  16347 

OCT  16347 

OCT  10343 

OCT  24451 

OCT  16447 

OCT  10347 

OCT  10354 

OCT  20410 

OCT  00304 

OCT  10204 

OCT  10452 

OCT  10204 

CCT  0 

OCT  0 

OCT  00115 

nCT  00115 

OCT  24511 

OCT  22447 

OCT  16347 

OCT  00351 

OCT  22756 

OCT  06102 

OCT  00503 

nCT  ) 6347 

OCT  16347 

CCT  16347 

OCT  16347 

OCT  16347 

OCT  16347 

OCT  00102 

OCT  02041 

nCT  10347 

OCT  24344 

OCT  24507 


42  DP3,  CP3,  0P3 

43  0P4,  0P4,  DP3 

44  DP3,  DP3,  M/S 

45  ARTH,  M/S,  0P4 

46  OCT 

47  ARITHl  , ARITHl 

48  ARTH,  ARTH 

49  CP3,  DP?,  ARTH 

50  SPARE 

51  DP4,  0P4 

52  0P4 

53  SPARE 

54  DPI,  CP3,  0P4 

55  ARTH,  DP4  , DP4 

56  DP4,  DP4 

57  SPARE 

58  nP3,  0P3,  OPS 

59  DPS,  DP3,  DPS 

60  ARTH,  DP3,  CPI 

61  M/S,  M/S , nP4 

62  DPS,  M/S,  0P3 

63  0P3,  DP3,  DPI 

64  2INT,  0P3,  DPI 

65  HMS,  HMS,  HMS 
LRPOS 
DPI,  OPl 
M/S,  DPI 
OPl , OPl 
OCT,  nCT 
OCT,  OCT 


66  OPl, 

67  OPl, 

68  DP4, 

69  DPI, 

70  OCT, 

71  OCT, 


72  360-C0U,  CDU 

73  36O-C0U,  CDU 
74M/S,  DP4,0P4 

75  DPS,  M/S,  M/S 

76  0P3,  0P3,  DP3 

77  M/S,  DPS 

78  RR  RANGE 

79  CDU,  CDU 


RR  RANGE  RATE, 
ARTH 


80  ARTH, 

81  DPS, 

82  DPS, 

83  OPS, 

84  0P3, 

85  OPS, 

86  DP3, 

87  CDU, 


DP  4 
OPS  , 

0P3  , 

DPS, 

OPS  , 

OPS, 

CP3, 

CDU 

08  FRAC  FOR  EACH 

89  DP3,  CPS,  OPl 

90  DPI,  DP3,  DP4 

91  DP3,  DP4,  0P4 


0P3 

DPS 

OPS 

DPS 

DPS 

DPS 


M/S 
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2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 
R2a7C 


PINBALL  NCUN  TABLES 


END  CF  RUTMXTAB 


42.3220 

42.3221  . 

42. 3222 
42  ,3223 

42.3224 

42. 3225 

42.3226 
42,  3227 


10343  1 
16347  0 
00000  1 
00000  1 
CCOOO  1 
C6I43  I 
06C43  0 
24247  0 


OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 


10343 
1 63^7 
00000 


^6143 

06043 

24247 


LAST  2Q4 


SBANK=  LOWSUPER 


17:53  OECa  19,  1969  LEMONAIO0I04  PAGE  321 


USER'S  PAGE  NOo  19  EC  S4 

92  ARTH  , DP3 , DPI 

93  0P3,  DP3,  DP3 

94  SPARE 

95  SPARE 

96  SPARE 

97  ARTH,  ARTH,  ARTH 

98  ARTH,  FRAC,  ARTH 

99  0P3,  CP2,  0P4 


i 


¥ 
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C L LEM  GECMETRY  USER'S  PAGE  NCc  3 £0  S? 


OOni  23,20A1 

L 000101  REF  1 13,2000 

000102  13,2070 


BANK  23 
SETLOC  LEMGEOM 
BANK 


c 000)5  REF  4 LAST  321  20,2000 

0002  REF  3 LAST  124  £5,1642 


SBANK=  LCWSUPER 
EBANK=  XSM 


c 

c 

c 

c 

c 


R0500  THESE  IVtO  ROUTINES  COMPUTE  THE  ACTUAL  STATE  VECTOR  FOR  LM.CSM  BY  ACDING 

R0501  THE-CONIC  R,V  AND  THE  OEV  lAT  IQNSR,Vo  THE  STATE  VECTORS  ARE  CONVERTED  TC 

R0502  METERS  B-29  AND  METERS/CSEC  E-7  AND  STCREC  APPROPRIATELY  IN  RN,VN  OR 
R0503  R-CTHER  , V-OThER  FOR  OOWNLINKe  THE  ROUTINES  NAMES  ARE  SWITCHED  IN  THE 
R0504  OTHER  VEHICLES  COMPUTERo 


R0505  INPUT 

R0506  STATE  VECTOR  IN  TEMPORARY  STORAGE  AREA 

R05061  IF  STATE  VECTOR  IS  SCALED  PCS  627  AND  VEL  B5 

R05062  SET  X2  TO  +2 

R05063  IF  STATE  VECTOR  IS  SCALED  POS  B29  AND  VEL  87 
R05064  SET  X2  TO  0 


C 

C 


R0507  OUTPUT 

R0508  P(TI  IN  PN,  V(T}  IN  VN,  T IN  PIPTIME 

R0509  OR 

R05in  PIT)  IN  R-OTHER,  VIT)  IN  V-CTHER  (T  IS  DEFINED  BY  T-CTHERI 


C 

C 

C 


L 

C 

C 


05106  REF 

0511 

05112  REF 

05113 

05114 

0512  REF 

0513 

0514 

0515  REF 

0516 

0517  REF 

0518  REF 

0519 

0520 

0521  KEF 

0522 

0523 

0524  REF 

0525  REF 

0526  REF 

0527 


1 


2 


2 


2 


2 


4 

3 

2 


LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 


111 

1)  1 

197 

111 

111 


197 

308 

197 


13,207C  43414  1 

13,2071  04756  1 

13  ,2072  26073  1 

13.2073  53775  I 

13.2074  01521  0 

13.2075  57605  0 

13.2076  53655  1 

13.2077  01535  0 

13.2100  57576  1 

13.2101  25220  C 

13  ,2102  01527  0 

13.2103  53257  1 

13.2104  57602  1 

13.2105  C1543  1 

13,21C6  77657  0 

13  ,2107  57576  1 

13.2110  15226  0 

13.2111  01517  0 

13 .2112  01234  0 

13.2113  77616  0 


SVCWN2 


COUNT*  $$/GEOM 
eOF  RVC 

AVEMIDSW 
+ 1 

VLOAD  VSL# 

TDELTAV 
D -7,2 
VAO  VSL* 

PCV 
0 ,2 

STDVL  RN 

TNUV 

VSL*  VAD 

0 2 
VCV 

VSL* 

0,2 

STOOL  VN 
TET 

STORF  PIPTIME 
RVQ 


SW=]  = AVETOMID  DOI  NG  W-MATP  I X INTEGo 


c 


c 


GAP: 

L 

0528 

0529 

0530 

0531 

0532 

0533 

053^^ 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 
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LEM  GECMETRY 


USER' S PAGE  NCo  2 E5  S3 


REF 

REF 

REF 

REF 

PEF 


REF 


3 LAST  322 

3 LAST  322 

5 LAST  196 
3 LAST  322 

3 LAST  322 

5 LAST  196 


13,211A 
13,2115 
13  ,2116 
13,2117 
13,2120 
13  ,2121 

13.2122 

13.2123 
13,212A 

13.2125 

13.2126 

13.2127 

13.2130 

13.2131 

13.2132 


53775  1 
C1521  0 
57605  0 
53655  I 
01535  0 
57576  1 
2572C  0 
01527  0 
53257  1 
57602  1 
01543  1 
77657  0 
57576  1 
01726  0 
77616  0 


SVChNl  VLOAD  VSL* 

TDELTAV 
0 -7,2 
VAC  VSL* 

RC  V 

0,2 

STOVL  R-CTHER 
TNUV 

VSL4  VAC 

0 -A, 2 
VCV 

VSL* 

0,2 

STORE  V-OTHER 
RVQ 


t 


# 
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C L LEM  GEOMETRY  USER'S  PAGF  NCo  3 E5  S3 


P0649  THE  FOLLOWING  ROUTINE  TAKES  A HALF  UNIT  TARGET  VECTOR  REFERRED  TO  NAV  BASE  COORDINATES  AND  FINDS  BOTH 

, R0651  GIMBAL  CRIENTATIONS  AT  WHICH  THE  RR  MIGHT  SIGHT  THE  TARGETo  THE  6IMBAL  ANGLES  CORRESPONDING  TO  THE  PRESENT  MODE 

R0653  ARE  LEFT  IN  MODEA  AND  THOSE  WHICH  WOULD  BE  USED  AFTER  A REMOOE  IN  MQDEBo  THIS  ROUTINE  ASSUMES  MODE  ^ IS  TRUNNION 
R0655  ANGLE  LESS  THAN  90  DECS  IN  ABS  VALUE  WITH  ARBITRARY  SHAFT,  WITH  A CORRESPONDING  OEFINITICN  FCR  MODE  2^  MODE 
^ R0657  SELECTION  AND  LIMIT  CHECKING  ARE  CCNE  ELSEWHEREo 

R065B  THE  MODE  1 CONFIGURATION  IS  CALCULATED  FRCM  THE  VECTOR  AND  THEN  MODE  2 IS  FOUND  USING  THE  RELATIONS 

L 

R0660  S (2  > = 180  +5(11 

R0661  T(2)  = 18C  - T(l» 

L 

R066101  THE  VECTOR  ARRIVES  IN  MPAC  WHERE  TRG  + SMNR  CR  «SMN8#  WILL  HAVE  LEFT  I To 


L 

(. 

L 


0662 

06625 

0663 

0664 

0665 

0666 

0667  REF 

0668 


13,2133  00041  1 RRANGLES  STORE  32D 


13.2134  57545  1 

13.2135  00043  0 

13.2136  67401  0 

13.2137  CfOOl  0 

13.2140  44206  0 

13.2141  24005  1 

13.2142  14005  1 


DLCAC  CCCMP 
34D 

SETPD  AS  IN 
0 

PUSH  BDSU 

LODPHALF 
STOOL  4 


SINCE  WE  WILL  FIND  THE  MODE  1 SHAFT 
ANGLE  LATER,  WE  CAN  FIND  THE  MODE  1 
TRUNNION  BY  SIMPLY  TAKING  THE  ARCSIN  OF 
THE  Y COMPONENT,  THE  AS  IN  GIVING  AN 
ANSWER  WHOSE  ABS  VAL  IS  LESS  THAN  90  DEG 

MODE  2 TRUNNION  TC 


L 


L 

C 


0669 

0670 

0671 

0672 

0673 
06  74 

0675 

0676 
C677 

0678 

0679 

0680 
0681 
0682 


REF 


REF 


REF 

REF 


REF 

REF 


3 LAST  250 

1 

1 

3 LAST  302 

3 LAST  302 
3 LAST  302 


13.2143 

13.2144 

13.2145 
13  ,2146 
13,2147 

13.2150 

13.2151 

13.2152 
13  ,2153 

13.2154 

13.2155 

13.2156 

13.2157 
13,2160 


24007  0 
24C43  0 
00041  1 
41056  1 
52432  0 
14041  1 
00041  1 
44142  0 
00051  0 
14023  0 
00045  0 
77742  0 
34G21  C 
47322  1 


STCVL 

UNIT 

STODL 

SRI 

STCDL 

SRI 

STCALL 


L06ZER0S 

34D 

32D 

BOVB 

LUNDESCH 

32D 

32C 

STC 

S2 


COSTH 

ARCTRIG 


UNIT  THE  PROJECTION  OF  THE  VECTOR 
I N THE  X-2  PLANE 

IF  OVERFLOW, TARGET  VECTOR  IS  ALONG  Y 
CALL  FOR  MANEUVER  UNLESS  ON  LUNAR  SURF 
PROJECTION  VECTOR*. 


USE  ARCTRIG  SINCE  SHAFT  COULD  BE  APB. 


L 

L 


C 


GAP : 

L 

0663 

068A 

0685 

0686 

0607 

0688 

0689 

0690 

0691 

0692 

0693 

069^ 

0695 

0696 

C697 

0698 

0699 

0700 

0701 

0702 

0703 

070A 
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LEM  GEOMETRY 


USER  'S  PAGE  NOo  4 65  S3 


REF  2 LAST  324 


REF  1 

REF  2 LAST  103 


REF  2 LAST  325 
RFF  1 


13.2161  43206  1 

13.2162  24005  1 

13.2163  24007  0 

13.2164  00005  1 

13.2165  77634  0 

13.2166  21636  1 

13.2167  25111  1 

13,2170  COOOl  0 

13,^171  77634  0 

13.2172  21636  1 

13.2173  C1107  C 

13.2174  77776  1 


PUSH  DAD  MODE  1 SHAFT  TC  2« 

LOOPHALF 
STCVL  6 
4 

RT8  FIND  MODE  2 COU  ANGLESp 

2V1  STC2S 
STOVL  MODES 
0 

RTB  MODE  1 ANGLES  TC  MCDE  A® 

2V1ST02S 
STORE  MOCEA 
EXIT 


REF  26  LAST  278 
REF  1 

REF  92  LAST  307 


13.2175  4 0110  0 

13.2176  7 4740  1 

13.2177  1C  000  0 

13,2200  1 2204  1 


CS  RADMOOES  SWAP  MODEA  AND  MODEB  IF  RR  IN  MODE  2r 

MASK  ANTEN6IT 

CCS  A 

TCF  +4 


REF  2 
REF  3 
REF  3 


LAST  325 
LAST  325 
LAST  325 


13, 2201 
13  ,2202 
13,2203 


53*107  1 
53' 111  0 
53*107  1 


DXCH  MODEA 
DXCh  MODEB 
DXCH  MOCEA 


REF  11  LAST  301 


13.2204  0 6042  1 

13.2205  77650  1 


TC  INTPRET 

GOTO 


REF  2 LAST  324 


13,2206  OOC51 


S2 


t 


L 


L 


L 


,L 

L 


L 
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L LEM  GEOMETRY 


17:53  DECf  19,1969 
USER'S  PAGE 


LEMONAlDolOA 
NOt  5 


PAGE 
E5  S3 


P0705 

R0706 

R0707 


GIVEN  RR  TRUNNION  AND  SHAFT  (T,SI  IN  TANGNB»+1» 
LIKE  CF  SIGHT  IN  NAV  EASE  AXES®  THE  HALF  UNIT 
-SIN(  T I ,COS(  S)  COS(  T)  ) IS  LEFT  IK  MPAC  AND  32Do 


FIND  THE  ASSOCIATED 
VECTOR,  o 5(  SIN(  SICQSI 


T)  , 


07072  REF  1 
0707A 


23,2000 

23,20A1 


SETLOC  INFLIGHT 
BANK 


07076  REF 


COUNT*  $t/6ECM 


0708 

0709  REF 
07091  REF 

0710 

0711 

0712 

0713 


23,20A1 

4 LAST  203  23,2042 

5 LAST  251  23,2043 

23.2044 

23.2045 

23.2046 
23  ,2047 


47135  0 PRNP 
03753  0 
21577  1 
41401  1 
OOOCl  0 
57556  0 
14043  0 


SLOAD 


SETPD 

SIN 

STOOL 


RTB 

TANGN8 

COULCGIC 

PUSH 

0 

OCCMP 

34D 


TRUNNION  ANGLE  TO  0 


Y COMPONENT 


0714 

0715 

0716  REF 

0717  REF 

0718 

0719 

0720 

0721 


5 LAST  326 

6 LAST  326 


23.2050  41546  C 

23.2051  47135  0 

23  ,2052  03754  1 

23.2053  21577  1 

23.2054  71406  0 RRN81 

23.2055  72405  0 

23.2056  00001  0 

23  ,2057  14045  0 


CDS  PUSH 
SLOAD  RTB 

TANGNB  +1 
COULOGIC 
PUSH  COS 
DMP  SLl 
0 

STOOL  36D 


o5  COS  (T  > TDD 


SHAFT  ANGLE  TO  2 


Z COMPONENT 


326 


0722 

0723 

0724 

0725 

0726 


23,2061 
23  ,2062 

23.2063 

23.2064 


41356  I 
77752  1 
24041  1 
C004I  1 
77616  0 


SIN  DMP 
SLl 

STOVL  32D 
32D 

RVQ 


R0727 


THIS  ENTRY  TO  RRNB  REQUIRES  THE  TRUNNION  AKO  SHAFT  ANGLES  IN  MPAC  AND  MPAC  +1  RESPECTIVELY 


0729 
07291 

A07292 

0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 

0741 


REF  43  LAST  301 


LAST  326 


LAST  326 


23.2065 

23.2066 

23.2067 
23  ,2070 

23.2071 

23.2072 

23.2073 

23.2074 
23  ,2075 

23.2076 

23.2077 
23  ,2100 

23. 2101 

23.2102 


rrnbmpac  stool 


40234  0 
21577  1 
00001  0 
73406  1 
77676  0 
14043  0 
41546  0 
47135  0 
00026  0 
21577  1 
77650  1 
46054  1 


PUSH 

dccmp 

STCOL 

COS 

SLCAD 


SETPD 

CDULOGIC 

0 

SIN 

340 

PUSH 

RTB 

210 

CDULOGIC 

RRNBl 


SAVE  SHAFT  COU  IN  21o  ^ 

SET  MODE  TO  DP*  (THE  PRECEEOING  STORE 
MAY  BE  OP,  TP  OR  VECTOR*) 


TRUNNION  ANGLE  TO  0 

Y COMPONENT 
* 5CQS(  Tl  TO  0 
PICK  UP  ecu  'So 


C 


GAP: 


ASSEf'BLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY 


L IMU  COMPGNSATICN  PACKAGE 


ooni 

OOOlOl  REF 
000102 


07, 2666 
06,2000 
06,3271 


0002  REF 


E3, 1A60 


0100 

0112 

0113 

Oil* 


REF 

REF 

REF 

REF 


LAST 


296 


06.3271  2 3537  0 1 /PI 

06.3272  56  003  1 

06  ,3  273  5^^  163  1 


0115  REF 

0116 


06,327*  ll'*77  0 

36,3275  1 3300  0 


0117 

0118  REF 


06.3276  1 3300  0 

06.3277  1 3361  1 


0119  REF 

0120  REF 


* LAST  256 
9 LAST  123 


06,3300  3 *751  0 1/Pl 

C6,3301  5*  132  C 


0121  REF  10  LAST  328 

0122  REF  1 

0123 

012*  REF  11  LAST  328 

0125  REF  1 

0126  REF  30  LAST  306 


06.3302  50  132  1 

06.3303  3 1*53  1 
06,33C*  C 00C6  1 

06.3305  5 0132  1 

06.3306  7 032*  0 

06.3307  5*  002  1 


0127 

0128 

0129 

0130 

0131 


REF  26 

REF  33 
REF  12 
REF  2 


LAST  295 

LAST  283 
LAST  328 
last  328 


06  ,3310 

06.3311 

06.3312 

06.3313 
06,331* 


3 0001  0 
C 0006  1 
7 *7*6  1 
50  132  1 
5*  325  1 


0132  REF 

0133 

013*  REF 

0135  REF 

0136  REF 


31  LAST  328 

3*  LAST  328 
13  LAST  328 
3 LAST  328 


06.3315  3 0002  0 

06.3316  r 0006  1 

06.3317  7 *7*6  1 

06  ,3320  50  132  I 

06,3321  20  325  1 


0137 

0138 

0139 
01*0 
01*1 
01*2 
01*3 
01** 


REF  1*  LAST  328 
REF  1 

REF  2 LAST  167 

REF  35  LAST  328 
REF  15  LAST  328 
ref  * LAST  328 


06,3323 

06,332* 

06.3325 

06.3326 

06.3327 
06  ,3330 
06,3331 


50  132 
* 1*52 
C 0006 
7 107* 
C 0006 
7 *7*6 
50  132 
20  325 


1 

1 

1 

1 

1 

1 

1 

1 


01*5  REF  16  LAST  328 

01*6  REF  1 

01*7  REF  1 


06.3332  10  132  0 

06.3333  6 7752  0 

06,333*  1 33C1  1 


L EMONA lOc 10* 


PAGE  328 


NASA  2021112-091 


BANK  7 
SETLOC  IMUCDMP 
BANK 


EBANK=  NBOX 

COUNT#  $$/ICQMP 
CAF  LGCGMP 

XCF  EBANK 
TS  MODE 


CCS  GCCRPSt. 


TCF 

TCF 

TCF 

1 CAF 
TS 


INDEX 

CA 

EXTEND 

INDEX 

MP 

TS 


CA 

EXTEND 

MP 

INDEX 

TS 


CA 

EXTEND 

MP 

INDEX 

CAS 


INDEX 

CS 

EXTEND 

MP 

EXTEND 

MP 

INDEX 

DAS 

CCS 

AC 

TCF 


+ 3 
+ 2 

IRIGl 

FOUR 
BUF  +2 


BUF  +2 
P I PASCF 

BUF  +2 

DELVX 

0 


6IT6 
BUF  +2 
DELVX  +1 


0 

BI  T6 
BUF  *2 
DELVX 

BUF  *2 
PIPABIAS 

1/PIPADT 

BI  T6 
BUF  +2 
DELVX 


BUF  +2 
NEGl 

1 /PI PAl  +1 


17:53  OECe  19,196° 

USER'S  PAGE  NOo  I 


EO  S3 


SAVE  EBANK  OF  CALLING  PROGRAM 

BYPASS  IF  GCOMPSW  NEGATIVE 
RETURN 

PIPAZ,  PIPAY,  PIPAX 

{PoPoMo  ) X 2(-9J 

(PP»  X 2(+l*»  NOW  (PIPA  PULSESl  X 2(+5) 
SAVE  MAJCR  PART 

MINOR  PART 

SCALE  2(+91  SHIFT  RIGHT  9 
FRACTIONAL  PIPA  PULSES  SCALED  2(+l*) 
MAJOR  PART 

SCALE  2(+9)  SHIFT  RIGHT  9 
( PI  PAI ) + ( PIPAl ) (SFE  ) 

(PIPA  PULSES(/(CSI  X 2(-3l  # 

(CS)  X 2(+8)  NOW  (PIPA  PULSFS)  X 2(+5)# 
SCALE  2(t9)  SHIFT  RIGHT  9 # 

(PIPAII  + (PIPAIKSFE)  - (8IAS)(DELTAT) 
PIPAZ,  PIPAY,  PIPAX 
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L IMU  COMPENSATICN  PACKAGE  USER'S  PAGE  NC*  2 E3  S3 

0148  06,3335  13  336  0 NOCP  LESS  THAN  ZERO  IMPOSSIBLE 


gap: 
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L IMU  CCMPENSATICN  PACKAGE 


USER'S  PAGE  NC«  3 E3  S3 


01481  REF  2 LAST  328 

01482  REF  17  LAST  328 


36.3336  55'477  0 IRIGCCMP  TS 

06.3337  54  130  1 TS 


GCrPPSW 

euF 


INDICATE  COMMANDS  2 PULSES  OR  LFSSc 
INDEX  CCUNTFP  « IRIGX,  IRIGY,  IRIGZ., 


01483  REF 


36,3340  0 3364  0 


TC 


IRIGX 


compensate  acceleration  TERMS 


01484  KEF  2 LAST  328 

01485  REF  1 


06. 3341  4 1460  C 

36.3342  C 3462  1 


CS  NBDX  (GYRO  PULSESI/(CSJ  X 2(-5> 

TC  DRIFTSUB  -( NBDX I ( DEL  TAT  I (GYPC  PULSES!  X 2{+141 


01486  REF 


06,3343  C 3401 


TC 


IRIGY 


COMPENSATE  ACCELERATION  TERMS 


01487  PEF  1 

01488  REF  2 LAST  330 


36^3344  4 1461  1 

06,3345  0 3462  1 


CS  NBDY 

TC  DRIFTSUB 


(GYRO  PULS6S»/(CS)  X 2(-51 

-( NBDY > ( DFLTAT ) (GYRO  PULSES)  X 2(+14) 


01489  REF 


06,3346  C 3416 


TC 


I RI6Z 


COMPENSATE  ACCELERATION  TERMS 


0149  REF 
01491  REF 


1 06,3347  3 1462  0 

3 LAST  330  06,3350  C 3462  1 


CA  N6DZ  (GYRO  PULSFS)/(CS)  X 2(-5» 

TC  DRIFTSUB  + ( N BDZ  > ( OELTAT  ) (GYRO  PULSES)  X 2(  + l4) 


01492  REF  3 LAST  330 

01493 

01494  REF  2 LAST  328 


06. 3351  11*477  C 

06.3352  1 3354  1 

06.3353  1 3361  1 


CCS  GCOMPSU 

TCF  +2 

TCF  IPIGl 


ARE  GYRO  COMMANDS  GREATER  THAN  2 PULSES 
YES  SEND  OUT  GYRO  TORQUING  COMMANDSc 
NC  RETURN 


01495  PEF  1 

01496  REF  4 LAST 

01497  REF  3 LAST 

01498  REF  1 

01498  REF  1 


261 

330 


06.3354  3 5031  0 

06.3355  C 5072  1 
E3, 1460 

06.3356  03515  0 

06.3357  14063  1 


CA  PPI021  PRIO  GREATER  THAN  SERVICER 

TC  NOVAC  SEND  OUT  GYRO  TOROUING  COMMANDSc 

FBANK=  NBDX 
2CADR  1/GYRO 


01499 

0150  REF 

01501  REF 

01502  REF 


2 LAST  328 
9 LAST  328 
2 LAST  245 


06,3360  0 0003  1 

06  ,3361  3 0163  0 IRIGl 

06.3362  54  C03  0 

06.3363  1 4631  0 


PEL  INT 
CA  MODE 

TS  E8ANK 

TCF  SWRETURN 


RESTORE  CALLERS  FBANK 


GAP 


ASSEMBLE  REVISION  131  OF  A6C  PRCGPAM  LUMINARY  BY  NASA  2C2U12-091 


]7!53  DECi,  19,1969  LEMONAIOolO^  PAGE  331 


L IMU  COMPENSATION  PACKAGE 


USER*S  PAGE  NOo  A e3  S3 


0151 

01511 

01512 

0152 

0153 
015A 
0155 


REF  A4  LAST  326 


REF 

BEF 

REF 


LAST 

LAST 


06,3364 
06  ,3365 

06.3366 

06.3367 

06.3370 

06. 3371 


0 0006  1 
22  156  0 
C G006  1 
A 0325  1 
52  155  1 
lAt3  I 


06,3372  0 3433  0 


EXTEND 

QXCH  MPAC  +2 

EXTEND 

DCS  DELVX 

DXCH  MPAC 

CA  AOIAX 

TC  GCOMPSUB 


SAVE  Q 

i PIPA  PULSES)  X 2 (+14) 

(GYRO  PULSES  )/ (PIPA  PULSE)  X 2(-6)  4 

-{ADIAXI (PIPAX)  (GYRO  PULSES)  X 2(+14) 


0156 

0157  REF  1 

015R  REF  46  LAST  331 

0150  REF  1 

0160  REF  2 LAST  331 


06.3373  C 0006  1 

06.3374  A 0327  0 

06  ,3375  52  155  1 

06.3376  A IA66  C 

06.3377  0 3433  0 


EXTEND 

DCS  DELVY 

OXCH  MPAC 

CS  ADSRAX 

TC  GCOMPSUB 


(PIPA  PULSES)  X 2(414) 

(GYRO  PULSFS)/ (PIPA  PULSE)  X 2(~6)  ♦ 

+{ADSRAX ) (PIPAYI  (GYRO  PULSES)  X 2(+14) 


A0I603 

A01604 

A01605 

A01606 

A01607 


EXTEND 

DCS 

OXCH 


OELVZ 

MPAC 


AOOAX 

GCOMPSUB 


***  (PIPA  PULSES)  X 2(+14) 

*** 

(GYRO  PULSES)/(PIPA  PULSE)  X 2{-6)  * 

*44  -( AOOAX )( PIPAZ  ) (GYRO  PULSES)  X 2(+14) 


0161  REF  47  LAST  331 


06,3400  0 0156  0 


TC 


MPAC 


+ 2 


0163 

01631  REF  48 

01632 

0164  REF  2 

0165  REF  49 

0166  REF  1 

0167  REF  3 


LAST  331 

LAST  331 
LAST  331 

LAST  331 


06,3401  C C006  I IRIGY 
06,3A02  22  156  0 

06.3403  C 0006  1 

06.3404  4 0327  0 

06.3405  52  155  1 

06.3406  3 1464  0 

06.3407  0 3433  0 


EXTEND 

QXCH  MPAC  +2 

EXTEND 

DCS  DELVY 

OXCH  MPAC 

CA  AOIAY 

TC  GCOMPSUB 


SAVE  0 

(PIPA  PULSES)  X 2(414) 

(GYRO  PULSES)/(PIPA  PULSE)  X 2(-6)  4 

-(AOIAY) (PIPAY)  (GYRO  PULSES)  X 2(+14) 


0168 

0169 

0170 

0171 

0172 


REF  1 

REF  50  LAST  331 
REF  1 

REF  4 LAST  331 


06.3410  0 0006  1 

06.3411  4 0331  1 

06.3412  52  155  1 

06.3413  4 1467  1 

06.3414  0 3433  0 


exTENO 

DCS  DELVZ 

OXCH  MPAC 

CS  ADSPAY 

TC  GCOMPSUB 


(PIPA  PULSES)  X 2(414) 

(GYRO  PULSES) /(PIPA  PULSE)  X 2(-6)  * 

4 ( ACSRAY  ) (P  IPAZ  ) (GYRD  PULSES)  X 2(4l4) 


A 01 72 3 
A01724 
A01725 
A01726 
A01727 


EXTENO  *♦* 

DCS  DELVX  4*#  (PIPA  PULSES)  X 2(414) 

DXCH  MPAC  444 

CA  AOOAY  444  (GYRO  P ULSE S) / { PI P A PULSE)  X 2(-6)  4 

TC  GCOMPSUB  444  -(AOOAY ) (PIPAX ) (GYRO  PULSES)  X 2(4]4) 


0173 


REF  51  LAST  33  1 


06,3415  0 0156  0 


TC  MPAC  42 


0175 

01751  REF  52 

01752 

0176  REF  3 

U177  REF  53 

0178  REF  1 


06,3416 
LAST  331  06,3417 

06,3420 
LAST  331  06,3421 

LAST  331  06,3422 

06,3423 


C 0006  1 IfilGZ 
22  156  0 
C 0006  1 

4 0327  0 

5 2 1-5  5 1 
3 1470  0 


EXTENO 

QXCH  MPAC  42 

extend 

DCS  DELVY 

DXCH  MPAC 
CA  ADSPAZ 


SAVE  0 

(PIPA  PULSES)  X 2( 4141 

(GYRO  PULSES) /(PI  PA  PULSE)  X 2(-6) 


gap: 


ASSEMBLE  REVISION  131  CF  AGE  PRCGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DEC.  19,1969  LEMONAIOdOA  PAGE  332 


L IMU  COMPENSATION  PACKAGE 


USER  'S  PAGE  NCo  5 F3  S3 


0179  REF  5 LAST  331  06,342A  0 3A33  0 


TC  GCOMPSUB  -(ADSRAZ) (PIPAYI  (GYRO  PULSES)  X 2(+lAI 


0100 

0101  PEF  2 LAST 

0182  REF  54  LAST 

0183  REF  I 

0184  REF  6 LAST 


331 

331 

332 


06 . 3425  0 0006  1 

06.3426  4 0331  1 

06.3427  52  155  1 

C6,3430  ? 1465  1 

06,3431  C 3433  0 


EXTEND 

DCS  DELVZ 

DXCH  MPAC 

CA  AOIAZ 

TC  GCOMPSUB 


(PIPA  PULSES)  X 2(414) 

(GYRO  PULSES)/(P!PA  PULSE)  X 2(-6)  * 

-(ACIAZ) (PIPAZ)  (GYRO  PULSES)  X 2(+14) 


AO1043 
A01fi44 
AOl  845 
AO1046 
A0ie47 


EXTEND 

DCS  DELVX 

DXCH  MPAC 

CS  ADOAZ 

TC  GCOMPSUB 


*** 


(PIPA  PULSE)  X 2(+14) 

(GYRO  PULSES)/(PIPA  PULSE)  X 2(-6) 

+ (ACOAZ) (PIPAX  ) (GYRO  PULSES)  X 2( 


0185 


REF  55  LAST  332 


06,3432  0 0156  0 


TC  MPAC  +2 


/ 


GAP  : 

L 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 


assemble  revision  131  OF  AGC  PRCGRAP  LUMINARY  0Y  NASA  2021112-091 


17:53  DEC*  19,1969  LEM0NAI0cl04  PAGE  333 


IMU  COMPENSATION  PACKAGE 


USER'S  PAGE  NOo  6 E3  S3 


REF  56  LAST  332 

REF  57  LAST  333 
REF  18  LAST  98 


06.3433  56  154  1 

06.3434  0 0006  1 

06.3435  7 0154  0 

06.3436  52  123  0 


GCOMPSUB  XCH  MPAC 

EXTEND 
MP  MPAC 

CXCH  VRUF 


AOIA  OR  ADSRA  COEFFICIENT  ARRIVES  IN  A 
C(MPAC»  = IPIPA  PULSESJ  X 2(+14) 

(GYRO  PULSESI/ (PIPA  PULSE!  X 2(-6l 
NOH  = (GYRO  PULSES!  X 2(+8) 


REF  56 

REF  59 
REF  27 
REF  32 
REF  19 


LAST  333 

LAST  333 
LAST  328 
LAST  300 
LAST  333 


06,3437 
06,3440 
06  ,3441 
06,3A42 

06.3443 

06.3444 


3 0155  0 
0 0006  1 
7 0154  0 
54  OCl  1 
3 4755  1 
20  123  0 


CA  MPAC  +1 

EXTEND 
MP  MPAC 

TS  L 

CAF  ZERO 

DAS  V8UF 


minor  part  PIPA  PULSES 
AOIA  OR  ADSRA 


NOW  = (GYRO  PULSES!  X 2(+8! 


REF  20 

REF  16 
REF  18 
REF  3 


LAST  333 

LAST  247 
LAST  330 
LAST  111 


06,3445 
06  ,3446 
06,3447 

06.3450 

06.3451 


2 0122  0 
0 1006  1 
7 4743  1 
50  130  n 
21'472  0 


CA  V0UF 

EXTEND 
MP  BIT9 

INDEX  eUF 

CAS  GCOMP 


PARTIAL  RESULT  - MAJOR 

SCALE  2(+6!  SFIFT  RIGHT  6 

RESULT  = (GYRO  PULSESI  X 2(+14) 
HKADlAl  (PIPAI  ! OR  H I ( AO  SRA  I ( P I P AI  ! 


REF  2)  LAST  333 

REF  17  LAST  333 
REF  28  LAST  333 
REF  33  LAST  333 
REF  19  LAST  333 
REF  4 LAST  333 


06.3452  3 0123  I 

06.3453  C 0006  I 

06.3454  7 4743  1 

06.3455  54  001  I 

06.3456  3 4755  1 

06.3457  5C  130  0 

06,3460  21'472  0 


CA  VBUF  +1 

EXTEND 
MP  BIT9 

TS  L 

CAF  ZERO 

INDEX  BUF 

DAS  GCOMP 


PARTIAL  RESULT  - MINOR 

SCALE  2(+61  SHIFT  RIGHT  6 

RESULT  = (GYRO  PULSESI  X 2(+?4l 
(AOIA! ( PIPAI ! CR  ( ADSP A ! ( P IP A I ! 


REF 


32  LAST 


328  C6,3461  C 0002  0 


TC  0 


GAP ; 

L 

0222 

0223 

022A 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 


ASSEHPLE  REVISION  131  CF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  I9tl969  LEMnNAID-104  PAGE  334 


IMU  CCMPENSATION  PACKAGE 


USER*  S PAGE  NC,  7 63  S3 


REF  20  LAST  333 


06.3462  0 0006  1 CRIFTSU6  EXTEND 

06.3463  22  131  1 QXCH  BUF  +1 


REF  3 LAST  328 
REF  60  LAST  333 

REF  19  LAST  255 
REF  21  LAST  334 
REF  5 LAST  333 


06,3464  0 0006 

r6,3465  7 1074 

06.3466  22  155 

06.3467  0 0006 

06.3470  7 4750 

06.3471  50  130 

06.3472  21*472 


1 

1 

0 

1 

0 

0 

0 


EXTEND  C{A)  = NBD  (GYPC  PULS6S)/(CS)  X 2(-5) 

MP  1/PIPAOT  (CSI  X 2(+P>  NOW  (GYRO  PULSES!  X 2{+3! 

LXCH  MPAC  +1  SAVE  FOR  FRACTIONAL  COMPENSATION 

EXTEND 

MP  BIT4  SCALE  2(+in  SHIFT  RIGHT  11 

INDEX  BUF 

CAS  GCOMP  HI (NBO) (D6LTAT » (GYRO  PULSES!  X 2(+l4I 


REF  61  LAST  334 

REF  20  LAST  334 
REF  29  LAST  333 
REF  34  LAST  333 
REF  22  LAST  334 
REF  6 LAST  334 


06’, 3473  3 C155  C 

06.3474  C 0006  1 

06.3475  7 4750  0 

06.3476  54  OCl  1 

06.3477  3 4755  I 

06.3500  50  130  0 

06.3501  21*472  0 


CA  MPAC  +l 

EXTEND 
MP  BIT4 

TS  L 

CAF  ZERO 

INDEX  BUF 

DAS  GCOMP 


NOW  MINOR  PART 

SCALE  2(+ll  ! SHIFT  RIGHT  11 


ADO  IN  FRACTIONAL  COMPENSATION 

(NRD! (OELTAT!  (GYRO  PULSES!  X 2(+14l 


REF  12  LAST  306 
REF  23  LAST  334 
REF  24  LAST  334 
REF  93  LAST  325 
REF  7 LAST  334 


REF  25  LAST  334 


06 .3502  3 4752 

06.3503  6 0130 

06.3504  56  130 

06.3505  5C  OCO 

06.3506  11*471 

06  ,3507  1 3511 

C6,3510  C 0131 


0 CRFTSUB2  CAF 
0 AO 

0 XCH 

1 INDEX 

0 CCS 

0 TCF 

1 TC 


TWO 

BUF 

BUF 

A 

GCCMP 
+ 2 

BUF  +1 


PIPAX,  PIPAY,  PIPAZ 


ARE  GYRO  COMMANDS  1 PULSE  CP  GREATER 

YES 

NO 


PEF  1 

REF  94  LAST  334 
REF  4 LAST  330 
REF  26  LAST  334 


06,3511  7 3561  1 

06  ,3512  10  Ono  0 

06.3513  55*477  0 

96.3514  0 0131  1 


MASK  COMPCHK 

CCS  A 

TS  GCOMPSW 

TC  BUF  +1 


DEC  -1 

ARE  GYRO  COMMANDS  GREATER  THAN  2 PULSES 
YES  - SET  GCOMPSW  POSITIVE 
NO 


GAP  5 

L 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

027? 

0274 

0275 

02  76 

0277 

0270 

0279 

0280 

0281 

0282 

0283 

02  84 

0285 

0286 


ASSEMBLE  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-C91 


17:53  DECo  19,1969  LEMONAIOol^^  PAGE  335 


IMU  COMPENSATION  PACKAGE 


USER'S  PAGE  NOe  8 E3  S3 


REF  5 LAST  328  06,3515  3 4751  0 1/GYRO  CAF  FOUR 

REF  27  LAST  334  06,3516  54  130  1 TS  BUF 


PIPAZ,  PIPAY,  PIPAX 


REF  28 
REF  a 

REF  21 
REF  29 
REF  9 


LAST  335 
LAST  334 

LAST  281 
LAST  335 
LAST  335 


06,3517 

36.3520 

06.3521 

06. 3522 
06  ,3523 
06,3524 


5C  130  0 
3 1472  1 
C 0006  1 
1 4744  0 
50  130  0 
55'472  0 


INDEX  BUF 
CA  GCOMP 

EXTEND 
MP  BITS 
INDEX  BUF 
TS  GCOMP 


♦1 


SCALE  GYRO  COMMANDS  FOP  IMUPULSE 
FRACTIONAL  PULSES 

SHI  FT  R IGHT  7 

FRACTIONAL  PULSES  SCALED 


REF  35  LAST  334 
REF  30  LAST  335 
REF  in  LAST  335 

REF  22  LAST  335 
REF  31  LAST  335 
REF  11  LAST  335 


96,3525  3 4755  1 

06  ,3526  50  130  0 

06,3527  57'471  1 

06.3530  0 0006  1 

06.3531  7 4744  0 

06.3532  50  130  0 

06.3533  21'472  0 


CAF  ZERO 
INDEX  BUF 
XCH  GCCMP 
EXTEND 
MP  BITe 

INDEX  BUF 
DAS  GCOMP 


SET  GCOMP  = 0 FCR  CAS  INSTRUCTION 
GYRO  PULSES 
SHIFT  RIGHT  7 

ADD  THESE  TO  FRACTIONAL  PULSES  ABOVE 


REF 

REF 

REF 

REF 


LAST  335 
LAST  328 
LAST  330 
LAST  335 


06.3534  1C  130  1 

06.3535  t 7752  0 

06.3536  1 3516  1 

06.3537  C1471  1 


LGCOMP 


CCS 
AD 
TCF 
EC  ADR 


BUF 

NEGl 

l/GYRO  +1 
GCOMP 


PIPAZ,  PIPAY,  PIPAX 


LESS  THAN  ZERO  IMPOSSIBLE 


REF  2 LAST  328 
REF  5fi  LAST  302 
REF  2 LAST  275 
REF  59  last  335 
REF  6 LAST  275 
REF  24  LAST  301 


06.3540  3 3537  0 

06.3541  C 4616  1 

06.3542  17314  1 

06.3543  0 4616  1 

C6,3544  17707  1 

06,3545  1 5155  1 


CAF  LGCOMP 

TC  BANKCALL 

CADR  IMUPULSE  CALL  GYRO  TCRQUING  ROUTINE 

TC  BANKCALL 

CADR  IMUSTALL  WAIT  FOR  PULSES  TO  GET  OUT 

TCF  ENOOFJOB  TEMPORARY 


06,3546  3 4751  0 GCCMPl  CAF 

C6,3547  54  130  1 TS 


FOUR 

BUF 


PIPAZ,  PIPAY,  PIPAX 


REF  34 
REF  13 

REF  23 
REF  35 
REF  14 


LAST  335 
LAST  3?5 

LAST  335 
LAST  335 
LAST  335 


06.3550 

06.3551 

06.3552 

06.3553 

06.3554 

06.3555 


50  130  0 
3 1472  1 
C 0006  1 
7 4744  0 
5C  130  0 
23*472  1 


INDEX  BUF 
CA  GCOMP 

E XTEND 
MP  8IT8 

INDEX  BUF 
LXCH  GCOMP 


+l 


RESCALE 

SHIFT  MINOR  PART  LEFT  7 - MAJOR  PART  = 0 
BITS  8-14  CF  MINOR  PART  WERE  = 0 


REF  36 
REF  3 


LAST  335 
LAST  335 


06.3556 

06.3557 


10  130  1 
6 7752  0 


REF  1 

REF  25  LAST  335 


06.3560  1 3547 

06.3561  77776 

06.3562  1 5155 


0 TC  F 

1 CCMPCHK  DEC 

1 TCF 


BUF  PIPAZ,  PIPAY,  PIPAX 

NEGl 

GCOMPl  +1 

-1  LESS  THAN  ZERO  IMPOSSIBLE 

ENDOF JOB 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  6Y  NASA  2021112-091 


17:53  OeCo  19,1969  LEMONAIO-IC^  PAGE  336 


L IMU  CCMPENSATICN  PACKAGE 


USER’  S PAGE  NCe  9 E3  S3 


0287  REF  5 LAST  33^ 

0288 

0289 

0290  REF  26  LAST  335 


06,3563 
06, 356A 
06  ,3565 
06,3566 


11'477  0 NBDONLY  CCS 
1 3567  1 TCF 
1 3567  1 TCF 
1 5155  1 TCF 


GCCMPSW  BYPASS  IF  GCPMPSW  NEGATIVE 

♦ 3 
+ 2 

ENCCF JCB 


029005 

02901  REF 

02902  REF 

02903  REF 
029<)A 


6 LAST 

27  LAST 

28  LAST 


231 

336 

336 


06,3567  C OOOA  0 
06  ,3570  10  076  1 
06,3571  1 5155  1 
Q6,3572  1 5155  1 
06,3573  1 3574  0 


INHINT 

CCS  FLAGWRn2 
TCF  ENOCFJOB 
TCF  ENOOFJOB 
TCF  +1 


PREREAD  T3RUPT  MAY  COINCIDE 


02905  REF 

02906  REF 

02907  REF 
02  908 
0291 


3 LAST  209 
24  LAST  335 

4 LAST  98 


06.3574  3 0104  1 

06.3575  7 4744  0 

06.3576  54  141  1 

06.3577  C 0006  1 

06,3600  1 3603  0 


CA  FLAGWRD8  IF  SURFACE  FLAG  IS  SET,  SET  TEMl 

MASK  BITB  POSITIVE  SO  THAT  THE  ACCELERATION  TERMS 

TS  TEn  WILL  8E  COMPENSATECo 

EXTEND 

BZF  +3  ARE  WE  ON  THE  SURFACE 


0292  REF  16 
02925  REF  1 


LAST  297 


06.3601 

06.3602 


0 4674  C 
77541  1 


TC  IBNKCALL 

CADR  PIPASR  +3 


ON  THE  SURFACE 

READ  PIPAS,  PUT  DO  NOT  SCALE  THFM 


0293  REF  2 

0294  REF  4 

0295 

0296 

0297  REF  5 

0298  REF  1 

0299  REF  2 

0300  REF  30 

0301  REF  31 


LAST  167 
LAST  334 


LAST  336 

LAST  336 
LAST  334 
LAST  336 


C6,3603 
06,3604 
06  ,3605 
C6,3606 
06,3607 

06 .3610 

06. 3611 

06.3612 

06.3613 


3 0025  0 
57’P74  C 
0 0003  1 

4 OCOn  0 
6 1074  0 
6 4736  1 
t 4736  1 
56  001  0 
56  001  0 


NeD2 


CA  TIME) 

XCH  1/PIPAOT 

REL  INT 

COM 

AD  1/PIPAOT 

AD  HALF 

AD  HALF 

XC  H L 

XCH  L 


(CS ) X 2( +1 4> 
PREVIOUS  TIME 


PRESENT  TIME  - PREVIOUS  TIME 
CORRECT  FOR  POSSIBLE  TIMEl  TICK 

IF  TIMEl  DID  NOT  TICK,  REMOVE  RESULTING 
OVERFLOW* 


0302 

03C3  REF 
0304  REF 


18  LAST 
22  LAST 


06,3614  0 0006  1 
256  06,3615  7 4742  0 
333  06,3616  52  125  0 


NB03 


EXTEND 

MP  6IT10 
DXCH  VBUF  *2 


CIA)  = DELTAT  (CS)  X 21+141 
SHIFT  RIGHT  5 


03041  REF  36 

03042  REF  6 

03043  REF  37 


LAST  335  06,3617  3 4755  1 

LAST  336  C6,3620  55*477  0 

LAST  335  06,3621  54  130  1 


CA  ZERO 

TS  GCCMPSW 

TS  BUF 


INDICATE  COMMANDS  2 PULSES  OR  LESS* 
INDEX  X , Y , Z* 


03044  REF 

03045  REF 


5 LAST  336  06,3622  10  141  1 
2 LAST  33C  06,3623  0 3364  0 


CCS  TEMl 

TC  IRIGX 


IF  SURFACE  FLAG  I S SET, 
COMPENSATE  ACCELERATION  TERMS- 


0305 

0306  REF  23  LAST  336 

0307  REF  62  LAST  334 


06.3624  C 0006  1 

06.3625  3 0125  1 

06.3626  52  155  1 


EXTEND 
OCA  VBUF 
DXCH  MPAC 


DELTAT  NOW  SCALED 


(CS)  X 2( 


19) 


0311 

0312 


LAST  330 


06,3627  4 1460  0 

06,3630  0 3652  0 


CS  NBOX  (GYRO  PULS£S)/(CS)  X 2(“5) 

TC  FBIASSUB  -( N BOX  I ( DELTAT  ) (GYRO  PULSES)  X 2(  + 14) 


03121  REF  6 LAST  336  06,3631  10  141  1 CCS  TEMl 

03122  REF  2 LAST  330  06,3632  0 3401  1 TC  IRIGY 


IF  SURFACE  FLAG  IS  SET, 
COMPENSATE  ACCELERATION  TERMS* 
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0313 

031A  REF 

0315  REF 

0316  REF 

0317  REF 


• .16,3633  0 0006  1 

2A  LAST  336  06,363A  <V  0125  0 

63  LAST  336  06,3635  52  155  I 

2 LAST  330  06,3636  3 1^61  0 

2 LAST  336  06,3637  0 3652  0 


EXTEND 

DCS  V8UF  +2 

OXCH  MPAC 

CA  NBOY 

TC  FBIASSUe 


OELTAT  SCALED  (CS)  X 2(+l9> 

(GYRO  PULSES)/(CS>  X 

-(NBOYKDELTAT)  (GYRO  PULSES!  X 2(  + l^! 


CCS 

TC 


IF  SURFACE  FLAG  IS  SET, 
COMPENSATE  ACCELERATION  TERMS 


0318 

0319 

0320 

0321 

0322 


REF  25  LAST  337 
REF  6A  LAST  337 
REF  2 LAST  330 
REF  3 LAST  337 


06,36A2  C CCC6  1 
06,36A3  A 0125  0 
06,36A^  52  155  1 
06,36A5  A 1A62  I 
06,3646  0 3652  0 


EXTEND 

DCS  VBUF  +2 

DXCH  MPAC 

CS  N6DZ 

TC  FBIASSUB 


DELTAT  SCALED  (CS!  X 2(+10) 

(GYRO  PULSESI/ (CS  ) X 2(-5  > 

+(NBOZ» (DELTAT)  (GYRO  PULSES)  X 2(+14) 


0323  REF  7 LAST  336 

0324  REF  3 LAST  335 

0325  REF  29  LAST  336 


06,3647  11'477  0 

06,3650  1 3515  1 

06  ,3651  1 5155  1 


CCS  6C0MPSW 

TCF  1/GYRO 

TCF  EN0DFJO8 


ARE  GYRO  COMMANDS  GREATER  THAN  2 PULSES 

YES 

NO 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  FRCGPAP  LUMINARY  BY  NASA  2021112-O<?l 
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0326 

0327 


REF  33  LAST  333  06,3652  56  002  0 FEIASSUB  XCh 

REF  38  LAST  336  06,3653  54  131  0 TS 


0328 

0329 

0330 

0331 

0332 


REF  3^  LAST  338 


REF 

REF 

REF 


LAST 

LAST 

LAST 


337 

330 

335 


06.3654 

06 .3655 

06.3656 

06.3657 
06,3660 


3 0002  0 
0 0006  1 
7 0154  0 
50  130  0 
21*472  0 


CA  0 

EXTEND 
MP  MPAC 

INDEX  PUF 

DAS  GCCMP 


0333 

0334 

0335 

0336 

0337 

0338 

0339 


REF  35 

REF  66 
REF  32 
REF  37 
REF  40 
REF  16 


LAST  338 

LAST  338 
LAST  336 
LAST  336 
LAST  338 
LAST  338 


06, 3661 
06  ,3662 

06.3663 

06.3664 

06.3665 

06. 3666 

06.3667 


3 0002  0 
0 0006  1 
7 0)55  1 
54  001  I 
3 4755  1 
50  130  0 
21*472  0 


CA  Q 

EXTEND 

MP  MPAC  +1 

TS  L 

CAF  ZERO 

INDEX  BUF 

DAS  GCOMP 


0340  REF 


06,3670  1 3502  1 


TCF  DRFTSUe2 


0341  REF  60  LAST  335 
03411  REF  1 


06.3671  0 4616  1 LAST8IAS  TC  BANKCALL 

06.3672  17270  1 CAOR  PIPUSEl 


03412  REF  8 LAST  337 

0342 

0343 

03A4  REF  30  LAST  337 


06.3673  11*477  0 

06.3674  1 3677  0 

06.3675  1 3677  0 

06.3676  1 5155  1 


CCS  GCCMPSW 

TCF  +3 

TCF  +2 

TCF  ENDCFJCe 


03441  REF  4 

03442  REF  3 

03443  REF  8 


LAST  336  06 

LAST  299  06 

LAST  337  06 


,3677  3 0)04  1 
,3700  7 4744  C 
,3701  54  141  1 


CA  FLAGWRC8 
MASK  SURFFBIT 
TS  TEMl 


0345  REF 

0346  REF 

0347 

03A8  REF 
0349  REF 


1 

6 


LAST 

LAST 


06,3702  3 7721  1 

336  06,3703  57'C74  0 

06,3704  4 0000  0 

322  06,3705  6 1234  0 

C6,3706  1 3610  1 


CAF  PRi031 

XCH  1/PIPADT 
COM 

AO  PIPTIME  +1 

TCF  Ne02 


0350  REF 

0351  REF 

0352  REF 


3 LAST  335 
10  LAST  330 
3 LAST  330 


06,3707  3 3537 

06.3710  56  0C3 

06. 3711  54  163 


0 GCOMPZER  CAF 

1 XCH 

1 TS 


LGCOMP 

EBANK 

MODE 


0353  REF  38 

0354  REF  9 

0355  REF  17 

0356  REF  18 

0357  REF  19 

0358  REF  20 

0359  REF  21 


LAST  330  06 

LAST  338  06 

LAST  338  06 

LAST  338  06 

LAST  338  06 

LAST  338  06 

LAST  338  06 


,3712  3 4755  1 

,3713  55*477  0 

,3714  55*471  0 

,3715  55*472  0 

,3716  55*473  1 

,3717  55*474  0 

, 3720  55*475  1 


CAF  ZERO 

TS  GCCMPSW 
TS  GCOMP 

TS  GCOMP  +1 

TS  GCOMP  +2 

TS  GCOMP  +3 

TS  GCCMP 
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N0O  SCALED  (GYRO  PLLSES)/(CS>  X 2(-5) 
OELTAT  SCALED  (CSI  X 21+191 
HKNBDHDELTATI  (GYRO  PULSES!  X 2(  + l^) 
NOW  FRACTIONAL  FART 


(NBOXOELTAT)  (GYRO  PULSES)  X 2(  + l4) 

CHECK  MAGNITUDE  OF  COMPENSATION 


IF  SURFACE  FLAG  IS  SET,  SET  TEMl 
POSITIVE  SO  THAT  THE  ACCELERATION  TERMS 
WILL  BE  COMPENSATECo 


2 SECONDS  SCALED  (CS)  X 2(+P) 


ROUTINE  TO  ZERO  GCOMP  BEFORE  FIRST 
CALL  TO  1/PIPA 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L IMU  COMPENSATION  PAQKAGE 

0360  REF  22  LAST  338  06,3721  55'A76  1 TS  GCOMP  +5 

0361  REF  3 LAST  330  06,3722  1 3361  1 TCF  IRIGl 
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RESTORE  EBANK  AND  RETURN 
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R63  USER'S  PAGE  NO*  1 EO  S3 

POOlO 

ROOll 

R0012 

SLBRCLTINE  NAME:  V89CALL 

MOO  NO:  0 DATE:  9 JAN  1968 

MOO  BY:  CIGITAL  OEVEL  GROUP  LOG  SECTION:  R63 

R0013 

FLNCTICNAL  OESCRIPTICN! 

R0014 

R0015 

CALLED  BY  VERB  89  ENTER  DURING  POOo  PRIG  10  USEDo  CALCULATES  AND 

DISPLAYS  FINAL  FCAI  BALL  ANGLES  TO  POINT  LM  +X  OR  *Z  AXIS  AT  CSM^ 

R0016 

R0017 

It,  KEY  IN  V 89  E ONLY  IF  IN  FPCG  00*  IF  NOT  IN  POO,  OPERATCR  ERROR  AND 

EXIT  R63,  OTHERWISE  CONTINUE* 

R0018 

R0019 

2«,  IF  IN  POO,  CO  IMU  STATUS  CHECK  ROUTINE  (R02e0TH)o  IF  IMU  ON  AND  ITS 

ORIENTATION  KNOWN  TO  LGC , CONTINUE* 

R0020 

R0021 

R0022 

R0023 

3o  FLASH  DISPLAY  V 04  N 06*  R2  INDICATES  WHICH  SPACECRAFT  AXIS  IS  TO 

BE  POINTED  AT  CSM*  INITIAL  CHOICE  IS  PREFERRED  (+ZI  AXIS  (R2=llo 

ASTRONAUT  CAN  CHANGE  TO  (+X»  AXIS  (R2  NOT  = l>  BY  V 22  E 2 E*  CONTINUE 

AFTER  KEYING  IN  PRCCEEO* 

R002A 

4o  BOTH  VEHICLE  STATE  VECTORS  UPDATED  BY  CCMC  EQSo 

R0025 

R0026 

R0027 

5u  HALF  MAGNITUDE  UNIT  LOS  VECTOR  (IN  STABLE  MEMBER  COORDINATES!  AND 

HALF  MAGNITUDE  UNIT  SPACECRAFT  AXIS  VECTOR  (IN  BODY  COORDINATES) 

PREPARED  FOR  VECPOINT, 

R0028 

R0029 

6*  GIMBAL  ANGLES  FROM  VECPCINT  TRANSFORMED  INTO  FDAI  BALL  ANGLES  BY 

BALLANGSo  FLASH  DISPLAY  V 06  N 18  AND  AWAIT  RESPONSE* 

R0030 
R0031 
R00  32 

7*  RECYCLE  - RETURN  TO  STEP  4* 

TERMINATE  - EX  IT  R63o 

PROCEED  - RESET  3AXISFLG  AND  CALL  RBOLEM  FOR  ATTITUDE  MANEUVER* 

R0033 

CALLING  SEQUENCE:  V 89  E» 

R0034 

R0035 

SUBROUTINES  CALLED:  CHKPGCH,  R02B0TH,  GOXCSPF,  CSMCONIC,  LEMCONIC, 

VECPOINT,  BALLANGS,  RSOLEM* 

R0036 

NORMAL  EXIT  MODES:  TC  ENDEXT 

R0037 

R0038 

R003Q 

ALARMS:  1*  OPERATCR  ERROR  IF  NCT  IN  POO, 

2c  PROGRAM  ALARM  IF  IMU  IS  OFF, 

3*  PROGRAM  ALARM  IF  IMU  ORIENTATION  IS  UNKNOWN* 

R0040 

OUTPUT:  NONE 

R0041 

ERASABLE  INITIALIZATION  REQUIRED:  NONE 

R0042 

DEBRIS:  OPTIONl,  +1,  TDECl,  FCINTVSM,  SCAXIS,  CPHI,  CTHETA,  CPSI, 
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R0043  3AXISFLGo 


0044 

0045 

0046 

0047 


REF 


REF 


4 LAST  2B6  £4,1606 

32, 2217 

1 26,2000 
26,2022 


EeANK=  RO^E 
BANK  32 
SETLOC  BAWLANGS 
BANK 


0048  REF  1 

0049  REF  61 

0050  REF  1 

0051  REF  3 

0052  REF  8 

0053  REF  15 

0054  REF  9 


LAST  338 

LAST  296 
LAST  307 
LAST  306 
LAST  341 


26,2022 

26. 2023 

26.2024 

26.2025 

26.2026 
26,2027 


0 4616  1 
11233  0 
3 6250  0 
55'050  1 
3 4753  1 
55'051  0 


VaOCALL 


COUNT*  ft/R63 

TC  BANKCALL 

CADR  R0280TH 

CAF  THREE 

TS  OPTIONX 

CAF  ONE 

TS  OPTIONX  +1 


IMU  STATUS  CHECKr  RETURNS  IF  ORIENTATION 
KNOWN*  ALARMS  IF  MOTo 
ALLOW  ASTRONAUT  TO  SELECT  DESIRED 
TRACKING  ATTITUDE  AXISc 


U055  REF 

0056  REF 

0057  REF 

0058  REF 

0059 

0060 

0061  REF 

0062 

0063  REF 
00635  REF 

0064  REF 

0065  REF 

0066  REF 

0067 

0068  REF 

0069  REF 

0070  REF 

0071  REF 

0072  REF 

0073 

0074  REF 

0075  REF 

0076 

0077  REF 
00771  REF 

0078  REF 

0079 

0080  REF 

0081  REF 

0082 

0083  REF 

0084  REF 

0085 

0086  REF 


62  LAST  341 
2 LAST  227 
26  LAST  302 


12  LAST  325 

2 LAST  209 
1 
1 

4 LAST  238 
1 


5 LAST  341 
2 LAST  341 

5 LAST  341 
1 

6 LAST  341 
2 LAST  341 

6 LAST  211 
1 

2 LAST  154 

10  LAST  341 
16  LAST  341 

1 

13  LAST  3^1 
4 LAST  301 


26.2030 

26.2031 

26.2032 

26. 2033 
26,2  034 

26.2035 

26.2036 
26  ,2037 

26.2040 

26.2041 

26.2042 

26.2043 

26.2044 

26.2045 

26. 2046 
26  ,2047 

26.2050 

26.2051 

26.2052 

26. 2053 

26.2054 

26.2055 

26. 2056 
26  ,2057 
26,2060 
26,2061 
26,2062 

26.2063 

26.2064 

26.2065 

26.2066 
26,2067 

26.2070 

26.2071 


3 2117  1 
0 4616  1 

20477  1 
C 5472  0 
0 2036  0 
0 2030  0 

0 6042  1 
43234  0 
21574  1 
14122  0 
02205  1 
34041  0 
27065  I 

77775  1 
COOOl  0 
16207  0 
02205  1 
34041  0 
270  77  1 
52375  1 
02207  0 
00001  0 
47121  0 
01734  0 
21727  0 
03773  1 

77776  1 

4 1C51  0 
6 4753  1 
0 0006  1 

1 2113  1 
0 6042  1 

77775  I 
06522  1 


V89R6CL 


AL  INEX 


CAF  V604N12 

TC  BANKCALL 

CACR  GOFLASH 

TC  ENOEXT 

TC  +2 

TC  -5 

TC  IN7PRET 

RTB  DAO 

LOACT IME 
DPIMIN 

STORE  TSTARTe2 

STCALL  TDECl 

CSMCONIC 

VLCAD 

RATT 
STOOL  RONE 

TSTART82 
STCALL  TDECl 

LEMCON 1C 
VLCAD  VSU 
RONE 
RATT 

MXV  RTB 

REFSMMAT 
NORMUNIT 
STORE  POINTVSM 
ex  IT 

cs  nPTicNx  H 

AD  ONE 
EXTEND 

HZF  ALINEZ 
TC  INTPRFT 

VLCAD 

UNI  TX 


V 04  N 12 


TERMINATE 

PROCEED 

DATA  IN*  OPTIONl  + I = I FOR  Z AXIS 
= 2 FCR  X AX  IS 


REAC  PRESENT  TIME 

SAVE  TIME  FOR  LEMCCNIC  CALL 
STORE  TIME  FOR  CSMCONIC  CALL 
CSM  STATE  VECTOR  UPDATE 
CSMCONIC  LEFT  R VFCTOP  IN  RATT 


SAVE  FOR  LINE  OF  SIGHT  (LOS)  COMPUTATION 

STORE  TIME  FOR  LEMCCNIC  CALL 
LEM  STATE  VECTOR  UPDATE 
CSM  POSITION  - LEM  POSITION  = LOS 
LOS  VECTOR  LFFT  IN  MPAC 

(REFSMMAT  X LOS)«  TRANSFORMS  LOS  FROM 
REFERENCE  COORD  TO  STAB  MEMB  COORD* 

STORE  LCS  FCR  VECPCINT  CALL 


1 FOR  Z AXIS*  2 FOP  X AXIS* 


X AXIS  ALIGNMENT 
READ  (v5,  0,  0) 
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0007 

0066 

0069 

0090 

00905 

0)9J 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 


REF 

REF 

REF 


REF 

PEF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


11 

1 

1 

63 
1 
1 

64 
3 

27 


31 

2 

65 

1 

2B 


LAST 


LAST 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


2 52 


341 


342 

341 

341 


300 

231 

342 

342 


26.2073 

26.2074 

26. 2075 

26.2076 

26.2077 
26, 210C 
26  ,2101 
26,2102 

26.2103 

26.2104 

26. 2105 

26.2106 
26,2107 
26,2110 
26  ,2111 
26,2112 


27765  1 
56040  0 
00322  1 
77776  1 
0 4616  I 
54272  1 
3 2120  0 
0 4616  1 
20477  1 
0 5472  0 
0 2106  1 
0 2C36  0 

0 5516  0 
00124  0 

C 4616  1 
54123  0 

1 5472  1 


V89CALL1  STCALL  SCAXIS 

VECPOl NT 
STCRE  CPHI 

EXIT 

TC  BANKCALL 

CADR  8ALLANGS 

CAF  VB06N18 

TC  BANKCALL 

CADR  GOFLASH 

TC  ENOEXT 

TC  +2 

TC  V89RECL 

TC  DOWNFLAG 

AORES  3AXISFLG 

TC  BANKCALL 

CACR  R60LEM 

TCF  ENCEXT 


0103 

0104 

0105 

0106 


REF 

REF 

REF 


14 


4 

1 


LAST  341 
LAST  301 


26.2113  0 6042  1 

26.2114  52175  0 

26.2115  C6516  0 

26.2116  54072  0 


AL  INEZ 


TC  INTPRET 

VLCAD  GOTO 
UNI  TZ 
V89CALL1 


0107 

0108 


26,2117  01014 

26,2120  01422 


0 ve04Nl2  VN 

1 VBC6N18  VN 


412 

0618 
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STORE  SELECTED  ALIGNMENT  AXIS 

PUTS  DESIRED  GIM  ANG  (06,IG,MG)  IN  TMPAC 

STORE  GIM8AL  ANGLES  FOR  BALLANGS  CALL 


PUTS  DESIRED  BALL  ANGLES  IN  FDAIX,Y,Z 
V 06  N 18 

NOUN  18  REFERS  TC  FPAIX,Y,Z 

TERMI NATE 

PROCEED 

RECYCLE 

RESET  3 AXIS  FLAG 
RESET  B1T6  FLAG  WORD  5 

PERFORMS  LEM  MANEUVER  TO  ALIGN  SELECTED 
SPACECRAFT  AXI  S TO  C SMo 
TERMINATE  R63 


Z AXI S ALIGNMENT 


REAC  in , 0,  o5 ) 
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c 
c 
c 
c 
c 
ic 
■ K 

s 

k 

C 

C 

i.  c 

c 

2 

C 

i C 

I c' 


USER'S  PAGE  NOo 


2-09] 
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GAP:  ASSEMBLE  REVISION  131  OF  AGC  PRCGRAM  LUMINARY  0Y  NASA  202111 

L ATTITUCe  MANEUVER  fiCUTINE  USER'S  PAGE  NCo  1 FP  S3 

POOOl  BLOCK  2 LGC  ATTITUDE  MANEUVER  ROUT  I NE- K ALC MANU 

R0002  MCD  2 DATE  5/1/67  BY  DON  KEENF 

R0003  PROGRAM  DESCRIPTION 


R0004 

R0006 

R0008 

ROOlO 

R0012 


KALCMANU  IS  A ROUTINE  WHICH  GENERATES  COMMANDS  FOR  THE  LM  DAP  TO  CHANGE  THE  ATTITUDE  OF  THE  SPACECRAFT 
DURING  FREE  FALLe  IT  IS  DESIGNED  TO  MANEUVER  THE  SPACECRAFT  FROM  ITS  INITIAL  ORIENTATION  TC  SOME  DESIRED 
ORIENTATION  SPECIFIED  8Y  THE  PROGRAM  WHICH  CALLS  KALCMANUt  AVOIDING  GIMBAL  LOCK  IN  THE  PROCESSo  IN  THE 
MCD  2 VERSION,  THIS  DESIRED  ATTITUDE  IS  SPECIFIED  BY  A SET  OF  THREE  COMMANDED  CDU  ANGLES  STORED  AS  2S  COMPLEMENT 
SINGLE  PRECISION  ANGLES  IN  THE  THREE  CONSECUTIVE  LOCATIONS,  CPHI,  CTHETA,  CPSI,  WHERE 


R0C14 

R0015 

R0016 


CPHT  = COMMANDED  OUTER  GIMBAL  ANGLE 
CTHETA  = COMMANDED  INNER  GIMBAL  ANGLE 
CPSI  = COMMANDED  MIDDLE  GIMEAL  ANGLE 


R0017 

R0019 

R0021 

R0023 

R0025 

R0027 

R002e 

R0030 

R0031 

R0033 

R0035 

R0037 

R0038 

R004i’i 

R0042 

R0044 

R0046 

R0048 

RCC^9 

R0053. 

R0052 

R0054 

R0056 

R0058 

R0060 

R0062 

R0064 

R0066 


WHEN  POINTING  A SPACECRAFT  AXIS  (Eol,  X,  Y,  Z,  THE  AOT,  THRUST  AXIS,  ETC)  THE  SUBROUTINE  VFCPOINT  MAY  BE 
USED  TO  GENERATE  THIS  SET  CF  DESIRED  CDU  ANGLES  (SEE  DESCRIPTION  IN  R6C) 

WITH  THIS  INFCRMATIGN  KALCMANU  DETERMINES  THE  DIRECTION  OF  THE  SINGLE  EQUIVALENT  ROTATION  (COF  ALSO  U)  AND  THE 
MAGNITUDE  OF  THE  ROTATION  (AM)  TO  BRING  THE  S/C  FROM  ITS  INITIAL  ORIENTATION  TO  ITS  FINAL  CRIENTATIQNo 
THIS  DIRECTION  REMAINS  FIXED  BCTH  IN  INERTIAL  COORDINATES  AND  IN  COMMANDED  S/C  AXES  THRCUGHCUT  THE 


MANEUVER* 


ONCE  COF  AND  AM  HAVE  BEEN  DETERMINED, 


KALCMANU 


THEN  EXAMINES  THE  MANEUVER  TC  SEE  IF 


IT  WILL  BRING 


THE  S/C  THROUGH  GIMBAL  LOCK*  IF  SO,  COF  AND  AM  ARE  READJUSTED  SO  THAT  THE  S/C  WILL  JUST  SKIM  THE  GIMBAL 
LOCK  ZCNE  AND  ALIGN  THE  X-AXIS*  IN  GENERAL  A FINAL  YAW  ABOUT  X WILL  BE  NECESSARY  TO  COMPLETE  THE  MANEUVER* 
NEEDLESS  TO  SAY,  NEITHER  THE  INITIAL  NOR  THE  FINAL  ORIENTATION  CAN  BE  IN  GIMBAL  LOCK* 


FCP  PROPER  ATTITUDE  CCNTROL  THE  DIGITAL  AUTOPILOT  MUST  BE  GIVEN  AN  ATTITUDE  REFERENCE  WHICH  IT  CAN  TRACK* 
KALCMANU  DOES  THIS  BY  GENERATING  A REFERENCE  OF  DESIRED  GIMBAL  ANGLES  (CCUXD,  COUYD,  COUZO  WHICH  ARE  UPDATED 
EVERY  ONE  SECOND  DURING  THE  MANEUVER*  TO  ACHIEVE  A SMOOTHER  SEQUENCE  CF  COMMANDS  BETWEEN  SUCCESSIVE  UPDATES, 
THE  PROGRAM  ALSO  GENERATES  A SET  CF  INCREMENTAL  CDU  ANGLES  (OELOCOU)  TO  BE  ADDED  TO  CDU  DESIRED  BY  THE  DIGITAL 
AUTOPILOT*  KALCMANU  ALSO  CALCULATES  THE  COMPONENT  MANEUVER  RATES  (CMEGAPD,  OMEGAOO,  OMEGARD),  WHICH  CAN 


BE  DETERMINED  SIMPLY  8Y  MULTIPLYING  COF  BY  SOME  SCALAR  (ARATE)  CORRESPONDING  TO  THE  DESIPEC  ROTATIONAL  PATE. 


ALTCMATIC  MANEUVERS  APE  TIMED  WITH  THE  HELP  OF  WAITLIST  SO  THAT  AFTER  A SPECIFIED  INTERVAL  THE  Y AND  Z 
DESIRED  RATES  ARE  SET  TO  ZERC  AND  THE  DESIRED  CDU  ANGLES  (CDUYO,  COUZD)  ARB  SET  EQUAL  TO  THF  FINAL  DESIRED  CDU 
ANGLES  (CTHETA,  CPSI)*  IF  ANY  YAW  REMAINS  DUE  TO  GIMBAL  LOCK  AVOIDANCE,  THE  FINAL  YAW  MANEUVER  IS 
CALCULATED  AND  THE  DESIRED  YAW  RATE  SET  TC  SOME  FIXED  VALUE  (ROLLRATE  = + OR  - 2 DEGREES  PER  SEO- 
IN  THIS  CASE  ONLY  AN  INCREMENTAL  COUX  ANGLE  (DELFROLL)  IS  SUPPLIED  TO  THE  DAP*  AT  THE  END  OF  THE  YAW 
MANEUVER  CR  IN  THE  EVENT  THAT  THERE  WAS  NO  FINAL  YAW,  COUXO  IS  SET  EQUAL  TO  CPHI  AND  THF  X-AXIS  DESIRED 
RATE  SET  TO  ZERO*  THUS,  UPON  CCMPLETIGN  OF  THE  MANEUVER  THE  S/C  WILL  FINISH  UP  IN  A LIMIT  CYCLE  ABOUT  THE 
DESIRED  FINAL  GIMBAL  ANGLES* 


R0067  PRCGRAM  LOGIC  FLOW 


R0068  KALCMANU  IS  CALLED  AS  A HIGH  PRIORITY  JOB  WITH  ENTRY  POINTS  AT  KALCMAN3  AND  VECPOINT*  IT  FIRST  PICKS 

R0070  UP  THE  CURRENT  CDU  ANGLES  TO  BE  USED  AS  THE  BASIS  FOR  ALL  COMPUTATIONS  INVOLVING  THE  INITIAL  S/C  ORIENTATION* 
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R0072  IT  THEN  DETERMINES  TFE  DIRECTION  COSINE  MATRICES  RELATING  BOTH  THE  INITIAL  AND  FINAL  S/C  ORIENTATION  TO  STABLE 
R0074  if  * * 

R0076  MEMBER  AXES  (MIS,  MFSIo  IT  ALSC  COMPUTES  THE  MATRIX  RELATING  FINAL  S/C  AXFS  TO  INITIAL  S/C  AXES  (MFIU  THE 

R0078  ANGLE  OF  ROTATION  (AMJ  IS  THEN  EXTRACTED  FROM  THIS  MATRIX,  AND  TESTS  ARE  MADE  TO  DETERMINE  IF 

RC080 

ROOei  A)  AM  LESS  THAN  ,25  DEGREES  (MINANGI 

R0082  81  AM  GREATER  THAN  170  DEGREES  (MAXANGI 


R0083  IF  AM  LESS  THAN  ,25  DEGREES,  NC  CCMPLICATEC  AUTOMATIC  MANEUVERING  IS  NECESSARYc  THEREFORE  HE  CAN  SIMPLY 

ROOaS  SET  ecu  DESIRED  EQUAL  TO  THE  FINAL  CDU  DESIRED  ANGLES  AND  TERMINATE  THE  JOB, 

R0087 

R0088  IF  AM  IS  GREATER  THAN  ,25  DEGREES  BUT  LESS  THAN  170  DEGREES,  THE  AXES  OF  THE  SINGLE  EQUIVALENT  ROTATION 

R0090  - # 

R0C91  (CCF)  IS  EXTRACTED  FPCM  THE  SXEH  SYMMETRIC  COMPONENTS  OF  MFI,  * * 

R0093  IF  AM  GREATER  THAN  170  DEGREES  AN  ALTERNATE  METHOD  EMPLOYING  THE  SYMMETRIC  PART  OF  MFI  (MFISVM)  IS  USED 

R0095 

RC096  TC  DETERMINE  CCFc 

R0097  THE  PROGRAM  THEN  CHECKS  TO  SEE  IF  THE  MANEUVER  AS  COMPUTED  WILL  BRING  THE  S/C  THROUGH  GIMBAL  LOCK,  IF 

R0C99  SC,  A NEW  MANEUVER  IS  CALCULATED  WHICH  HILL  JUST  SKIM  THE  GIMBAL  LOCK  ZONE  AND  ALIGN  THE  S/C  X-AXIS,  THIS 
ROlOl  METHOD  ASSURES  THAT  THE  AOOITICNAL  MANEUVERING  TO  AVOID  GIMBAL  LOCK  WILL  BE  KEPT  TO  A MINIMUM,.  SINCE  A FINAL 
ROX03  P AXIS  YAW  WILL  BE  NECESSARY,  A SWITCH  IS  RESET  (STATE  SWITCH  31)  TO  ALLOW  FOP  THE  COMPUTATION  OF  THIS  FINAL 
R0105  YAW, 


ROl^a 

R0108 

ROllO 

R01I2 


AS  STATED  PREVIOLSLY  KALCMANU  GENERATES  A SEQUENCE  OF  CESIRED  GIMBAL  ANGLES 

SECOND,  THIS  IS  ACCCMPLISHEC  BY  A SMALL  RCTATIGN  OF  THE  DESIRED  S/C  FRAME  ABOUT 
DESIRED  REFERENCE  MATRIX  IS  THEN, 


WHICH  ARE  UPDATED  EVFRY 
THE  VECTOR  COF,  THE  NEW 


R0113 

ROllA 

R0115 


R0116  a 

R0117  WHERE  DEL  IS  THE  MATRIX  CORR E SPCND I NG  TO  THIS  SMALL  ROTATION,  THE  NEW  CDU  ANGLES  CAN  THEN  BE  EXTRACTED 
R0119  « 

R0120  FROM  MI  S, 

R0121  AT  THE  BEGINNING  OF  THE  MANEUVER  THE  AUTOPILOT  DESIRED  PATES  (OMEGAPD,  OMEGAQO,  OMEGARDI  AND  THE 

R0123  MANEUVER  TIMINGS  ARE  ESTABLISHED,  ON  THE  FIRST  PASS  AND  ON  ALL  SUBSEQUENT  UPDATES  THE  CDU  DESIRED 
R0125  ANGLES  ARE  LOADED  WITH  THE  AFPRCPRIATE  VALUES  ANC  THE  INCREMENTAL  CDU  ANGLES  ARF  COMPUTED,  THE  AGC  CLOCKS 

R0127  (TIMEl  ANC  TIM62)  ARE  THAN  CHECKED  TO  SEE  IF  THE  MANEUVER  WILL  TERMINATE  BFFORE  THE  NEXT  UPDATE,  IF 

R0129  NCT,  KALCMANU  CALLS  FCR  ANCTHER  UPDATE  (RUN  AS  A JOB  WITH  PRIORITY  TBDI  IN  ONE  SECOND,  ANY  DELAYS  IN  THIS 

R0131  CALLING  SEQLENCE  ARE  AUTOMATICALLY  COMPENSATED  IN  CALLING  FOR  THE  NEXT  UPDATE, 

R0133 

R013A  IF  IT  IS  FOUND  THAT  THE  MANEUVER  IS  TC  TERMINATE  BEFORE  THE  NEXT  UPDATE  A ROUTINE  IS  CALLED  (AS  A WAIT- 

R0136  LIST  TASK)  TO  STOP  THE  MANEUVER  AT  THE  APPROPRIATE  TIME  AS  EXPLAINED  ABOVE, 

R0138 
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R0139  CALLING  SEQUENCE 


ROIAO 

R0142 

R0144 

R01A6 


IN  ORDER  TC  PERFORM  A KALCMANU  SUPERVISED  MANEUVER,  THE  COMMANDED  GIM8AL  ANGLES  MUST  BE  PRECOMPUTFD  AND 
STORED  IN  LOCATIONS  CPHI,  CTHETA,  CPSU  THE  USER:S  PROGRAM  MUST  THEN  CLEAR  STATE  SWITCH  NO  33  TO  ALLOW  THE 
ATTITUDE  MANEUVER  ROUTINE  TO  PERFORM  ANY  FINAL  P-AXIS  YAW  INCURRED  BY  AVOIDING  GIMBAL  LCCK,  THF  MANEUVER  IS 
THEN  INITIATED  BY  ESTA8LISHIAG  THE  FOLLOWING  EXECUTIVE  JOB 


R01A7 

ROIAB 

R0149 

R0150 

RU151 

R0152 

R0153 


CAF  PRIO  XX 

INhiNT 

TC  FINDVAC 

2CADR  KALCMAN3 

RELINT 


R0154  THE  USERtS  PROGRAM  MAY  EITHER  CCNTINUE  OR  WAIT  FOR  THE  TERMINATION  OF  THE  MANEUVERo  IF  THE  USER  WISHES  TO 
R0156  WAIT,  HE  MAY  PUT  HIS  JOB  TO  SLEEP  WITH  THE  FOLLOWING  INSTRUCTIONS 


R0157  L 

R0158  L+1 

R0159  L+2 

R0160  L+3 


TC  EANKCALL 

CAOR  ATTSTALL 

(BAD  RETURN! 

(GCCO  RETURN) 


R0161 

R0163 

R0165 


UPON  COMPLETION  OF 
SUCCESSFULLY,  OR  AT  L+2 
WAS  IN  GIMBAL  LOCKo 


THF  MANEUVER,  THE  PROGRAM  WILL  BE  AWAKENED  AT  L+3  IF  THE  MANEUVER  WAS  COMPLETED 
IF  TFE  MANEUVER  WAS  ABORTED®  THIS  ABORT  WOULD  OCCUR  IF  THE  INITIAL  OR  FINAL  ATTITUDE 


R0166  *>>*NOTA  BENE**«  IT  IS  ASSUMpD  THAT  THE  DESIRED  MANEUVERING  RATE  (0o5,  2,  5,  10,  CEG/SEC)  FAS  BEEN  SELECTED  BY 
R0168  KEYBCARO  ENTRY  PR  I CR  TO  TFE  EXECUTION  OF  KALCMANU® 

R0169  IT  IS  ALSO  ASSUMED  THAT  THE  AUTCPILCT  IS  IN  THE  AUTC  MODE®  IF  THE  MODE  SWITCH  IS  CHANGFO  DURING  THE 

R0171  MANEUVER,  KALCMANU  WILL  TERMINATE  VIA  GOODEND  WITHIN  1 SECOND  SO  THAT  R60  MAY  REQUEST  A TRIM  OF  THE  S/C  ATTITUDE 

R0173  THIS  IS  THE  ONLY  MEANS  FOR  MANUALLY  TERMINATING  A KALCMANU  SUPERVISED  MANEUVER® 

R0175  SUBROUTINES 


R0176  KALCMANU  USES  A NUMBER  CF  INTERPRETIVE  SUBROUTINES  WHICH  MAY  BE  OF  GENERAL  INTEREST^  SINCE  THESE  ROUTINES 

R0178  WERE  PROGRAMMED  EXCLUSIVELY  FCP  KALCMANU,  THEY  ARE  NOT,  AS  YET,  GENERALLY  AVAILABLE  FOR  USE  BY  OTHER  PROGRAMS- 

RDieO 

R0181  MXM3 

R0182  


OCWN 


THIS  SUBROUTINE  MULTIPLIES  TWO  3X3  MATRICES  AND  LEAVES  THE  RESULT  IN  THE 
LI  ST,  ue® , 


FIRST  18  LOCATIONS  OF  THE  PUSH 


R0186 

R0187 

Roise 

R0189 

R0190 

RC191 

R0192 


I M M M ) 

( 0 1 2) 

( ) 

(M  M M ) 

(3  4 5 ) 

( ) 

( M M M ) 


Ml 
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RC193 

R0194 
R0196 
R0198 
R0199 
R0201 
R02n3 
R020  5 
R0206 
R0207 

R020e 

R0210 

R0211 

R0212 

R0213 

R0215 

R021fc 

R0218 

R0219 

R0220 

R0221 

R0223 

R0225 

R0226 

R0227 


ATTITUDE  MANEUVER  ROUTINE 
( .6  7 


USER'S  PAGE  NCo 


INDEX  REGISTER  XI  MUST  EE  LOADED  WITH  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  Ml,  AND  X2  MUST  BE 

LEADED  WITH  THE  Cn^PLEMENT  OF  THE  STARTING  ADDRESS  FOR  M2o  THE  ROUTINE  USES  THE  FIRST  2D  LOCATIONS  OF  THE  PUSH 

DCWN  LISTa  THE  FIRST  ELEMENT  CF  THE  MATRIX  APPEARS  IN  PDO«  PUSH  UP  FOR  M , 

P 

TRANSPOS 


THIS  ROUTINE  TRANSPOSES  A 3X3  MATRIX  AND  LEAVES  THE  RESULT  IN  THE  PUSH  DOWN  LIST,  UEo 


INDEX  REGISTER  XI  MLST  CONTAIN  THE  COMPLEMENT  CF  THE  STARTING  ADDRESS  FOR  Mlo  PUSH  UP  FOR  THE  FIRST  AND  SUB- 
SEQUENT COMPCNENTS  CF  Mo  THIS  SLEROUTINE  ALSC  USES  THE  FIRST  20  LOCATIONS  OF  THE  PUSH  DOUN  LIST,- 
CDL  TC  DCM 


COSY  COSZ 


-COSY  SINZ  COSX 


COSY  SINZ  SINX 


SINY  SINX 


COSZ  COSX 


-COSZ  SINX 


-SINY  COSZ 


SINY  SINZ  CCSX 


COSY  SINX 
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R0243  8 
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R0244  WPERE  X 
R0245  Y 
R0246  Z 


CUTER  GIPBAL  ANGLE 
INNER  GI PBAL  ANGLE 
PIDDLE  GIMBAL  ANGLE 


R0247  THE  INTERPRETATION  CF  TUS  MATRIX  IS  AS  FOLLOWS 

,^0248  IF  A , A , A REPRESENT  THE  COMPONENTS  OF  A VECTOR  IN  S/C  AXES  THEN  THE  COMPONENTS  OF  THE  SAME  VECTOR  IN 

R0250  X Y Z 

R0251  STABLE  MEMBER  AXES  (fi  , B , B ) ARE 
R0252  ' X Y Z 


R0253  16 

R0254  ( X 

R0255  I 

R0256  { 

R0257  16 

R0258  ( Y 

R0259  ( 

R0260  (6 

R0261  I Z 


( > 
( ) 
(A  ) 
( Y) 
{ > 
(A  ) 
( Z > 


R0262 

R02fr4 

R0266 

R026e 

R0269 

R0271 


THE  SUBROUTINE  WILL  STORE  THIS  MATRIX  IN  SEQUENTIAL  LOCATIONS  OF  ERASABLE  MEMORY  AS  SPECIFIED  BY  THE  CALLING 
PRQGRAM.6  TC  DC  THIS  THE  CALLING  PROGRAM  MUST  FIRST  LOAD  X2  WITH  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  M, 

INTERNALLY,  THE  ROUTINE  LSES  THE  FIRST  16  LCCATIONS  CF  THE  PUSH  CCWN  LIST,  ALSO  STEP  REGISTER  SI  AND  INDEX 
REGISTER  X2o 


R0272  CCM  TO  CDL 

R0273  

CCSINE  MATRIX  (M  SCALED  BY  21  RELATING  S/C  AXIS  TO 

STARTING  ADDRESS  FOR  M®  THE  SUBROUTINE  LEAVES  THE 
Its  COMPLEMENT  ANGLES  SCALED  BY  2PU  THE  FORMULAS 


R0285  Z = ARCSI N ( M } 

R0286  3 

R02B7  Y = ARCSIN  (-M  /CCSZ) 

R02B8  6 

R0289  IF  P IS  NEGATIVE,  Y IS  REPLACEC  BY  PI  SGN  Y - Y 
R0290  0 


R0276  THIS  ROUTINE  EXTRACTS  THE  CDU  ANGLES  FROM  A DIRECTION 
R0278 

R0280  STABLE  MEMBER  AXESo  XI  PLST  CONTAIN  THE  CCPPLEPENT  CF  THE 
R0282  CORRESPONDING  GIHBAL  ANGLES  IN  V(MPAC)  AS  DOUBLE  PRECISION 
R0284  FCR  THIS  CCNVEFSICN  ARE 
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R0291  X = ARCSIN  (-M  /CCS2) 

R0292  5 


R0293  IF  M IS  NEGATIVE  X IS  REPLACED  BY  PI  SGN  X - X 
R029<‘  4 


R0295  THIS  ROUTINE  DOES  NOT  SET  THE  PUSH  OCWN  POINTER,  BUT  USES  THE  NEXT  8 LOCATIONS  OF  THE  PUSH  DOWN  LIST  AND 

R0297  RETURNS  THE  POINTER  TO  ITS  ORIGINAL  SETTING*  THIS  PROCEDURE  ALLOWS  THE  CALLER  TC  STORE  THE  MATRIX  AT  THE  TOP  OF 
R0299  THE  PUSH  DCWN  LIST* 


R030n  CELCOMP 

R0301  


R0302 
R03n3 
ROB  04 

R030fe  IS 

RO3O0 

R0309 

R03in 

R0311 


THIS  ROUTINE  COMPUTES  THE  DIRECTION  COSINE  MATRIX  (DELI  RELATING  CN 

ROTATED  WITH  RESPECT  TC  THE  FIRST  PY  AN  ANGLE,  A,  ABOUT  A UNIT  VECTOR,  Ue  THE  FORMULA  FOR  THIS  MATRIX  IS 

* 4 --T  * 

DEL  = I COSA  + UL  ll-COSA)  + V SIN'A 


R0312  WHERE 

R0313 

R0314 


R0315 

R03X6 

R0317 

R03ie 

R0319 

R0320 

R0321 

R0322 

R0323 

R0324 

R0325 


LU 


? 

(U  U L 

(X  X Y 

( 

( 2 

( u u u 

{ Y X Y 

( 

( 

(U  u u u 

( Z X Z Y 


u U I 
X Z I 


u U I 
Y ZI 
I 

2 I 
U I 
Z I 


R0326 
R0327 
R032  8 
R0329 
R0330 
R0331 
R0332 
R0333 


(0  -U  U 

( Z Y 

( 

(U  0 -U 

( Z X 

( 

(-U  L 0 

( Y X 
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R0334 

R0335 

R0336 

U = UNIT  ROTATION  VECTOR  RESOLVED  INTO  S/C  AXES 

A = ROTATION  ANGLE 

R0337 

R0338 

THE  INTERPRETATION  OF  DEL  IS  AS  FOLLOWS 

R0339 

R03A1 

R0342 

R0343 

IF  A , A , A REPRESENT  THE  COMPONENT  OF  A VECTOR  IN  THE  RCTATEO  FRAMEt  THEN  THF  COMPONENTS  OF  THE  SAME 

X Y Z 

VECTOR  IN  THE  ORIGINAL  S/C  AXES  (E  , 8 , B » ARE 

X Y Z 

R03<Vi 

R03A5 

R03^6 

RU3A7 

R03A8 

R03A9 

(B  > (A  ) 

( X»  (X) 

(I  * ( ) 

(E  ) = DEL  (A  ) 

( YJ  ( Y) 

( ) ( ) 

R0350 

R0351 

(E  ) (A  ) 

( Z ) ( Z) 

R0352 

R035A 

THE  ROUTINE  WILL  STORE  THIS  MATRIX  tSCALED  UNITY)  IN  SEQUENTIAL  LCCATICNS  CF  FPASABLE  MEMORY  BEGINNING  WITH 

R0356 

R0358 

R0360 

ThE  LOCATION  CALLEC  DEL*  IN  CPDER  TO  USE  THE  ROLTINEi  THE  CALLING  PROGRAM  MUST  FIRST  STORE  U (A  HALF  UNIT 

DOUBLE  PRECISION  VECTOR)  IN  THE  SET  OF  ERASABLE  LOCATIONS  BEGINNING  WITH  THE  ADDRESS  CALLED  COF*  THE  ANGLE,  A, 
MUST  THEN  BE  LOADED  INTC  DIMFAC), 

R0361 

R0363 

INTERNALLY,  THE  PROGRAM  ALSO  USES  THE  FIRST  1C  LCCATICNS  CF  THE  PUSH  OCWN  LIST* 

R0364 

R0365 

READCCUK 

R0366 

R0368 

THIS  BASIC  LANGUAGE  SUBPCLTINE  LCACS  T(MPAC)  WITH  THE  THREE  CDU  ANGLES* 

R0369 

R0370 

SI6NMPAC 

R0371 

RC373 

THIS  IS  A BASIC  LANGUAGE  SUBROUTINE  WHICH  LIMITS  THE  MAGNITUDE  OF  C(MPAC)  TO  + OR  - DPCSMAX  ON  OVERFLOWr 

R037^‘ 

PROGRAM  STORAGE  ALLOCATICN 

R0375 

R0376 

R0377 

1)  FIXED  MEMORY  1059  WORDS 

2)  ERASABLE  MEMORY  98 

3)  STATE  SWITCHES  3 

u 

c 

€ 

C 

€ 

C 

« 

( 

f 

ie 

£ 

f 

£ 
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f 
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R0379 


JOB  PRIORITIES 


SUPNARY  OF  STATE  SWITCHES  AND  FLAGWORCS  USED  BY  KALCMANUo 


R0385 

R03e6 

R0388 

R0390 

R0391 

R0392 

R0393 

R039^ 

R0396 

R0398 

R0399 

ROAOO 


R0A03 

K040A 

RO'tOS 
R CA06 
ROA07 
R0A08 
R 0409 
ROAIO 
ROAll 
R0412 
R0413 

R0414 


SIGNAL  END  OF  KALCPANU 
KALCRANU  IN  PROCESS 


* INTERNAL  TO  KALCMANU 

SUGGESTIONS  FCR  PROGRAP  INTEGRATION 

THE  FOLLOWING  VARIABLES  SHOULD  BE  ASSIGNED  TC  UNSWITCH  ERASABLE 

CPHI 

CTHETA 

CPSI 

PCINTVSP  +5 

SCAXIS  +5 

CELOCOU 

CELDCCUJ 

DELDCDU2 

RATEINDX 

THE  FOLLOWING  SUBROUTINES  PAY  BE  PUT  IN  A DIFFERENT  BANK 


USER  MUST  SET  SWITCH  BEFORE  INITIATING 


R0415 


MXM3 
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R0A16  TRANSFCS 
R0417  SIGNMPAC 
R041R  REACCCUK 
R0419  CnUTQOCM 
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0421 

0422 

0423 

R0424 

R042fr 

042  7 

0426 

0429 

0430 

0431 

0437 

0436 

043° 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

044  <3 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

046? 

0464 

046  5 

0466 

0467 

0468 

0469 

0470 

0471 

0472 
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ATTITUDE  MANEUVER  ROUTINE 


USER'S  PAGE  NQc  10  60  S3 


15,2050  BANK  15 

REF  1 22f2000  SETLOC  KALCMONI 

22,2004  SANK 


REF  3 LAST  288  E6,J675 


EPANK=  BCCU 


THE  THREE  DESIRED  CDU  ANGLES  MUST  BE  STORED  AS  SINGLE  PRECISION  TWOS  COMPLEMENT  ANGLES  IN  THE  THREF  SUCCESSIVE 
LOCATIONS,  CPHI,  CTHETA,  CPSU 


REF  1 
REF  15 

REF  1 
REF  4 

REF  I 

REF  1 
REF  1 

REF  4 
REF  ^ 

REF  1 

REF  4 
REF  2 

REF  2 

REF  5 
REF  1 

REF  12 

REF  13 

REF  14 

REF  15 
REF  5 

REF  1 

REF  1 

REF  2 

REF  3 


LAST  342 

LAST  353 

LAST  137 
LAST  353 

LAST  117 
LAST  342 

LAST  353 

LAST  353 

LAST  136 

LAST  353 

LAST  353 

LAST  353 
LAST  353 

LAST  353 
LAST  353 


22  ,2004 

22.2005 

22.2006 
22,2007 
22,2010 
22,2011 
22,2012 
22, 2013 
22  ,2014 

22.2015 

22.2016 
22,2017 
22,2020 
22  ,2021 
22,2022 
22,2023 
22  ,2024 

22. 2025 

22.2026 
22,2027 
22, 2030 
22  ,2031 

22.2032 

22.2033 
22  ,2034 

22. 2035 

22.2036 

22.2037 
22, 2040 
22  ,2041 

22.2042 

22.2043 

22 .2044 

22.2045 

22.2046 

22.2047 

22.2050 

22.2051 

22.2052 

22.2053 


0 6042  1 
77634  0 
44403  0 
03276  1 
51535  0 
00324  1 
51025  1 
04403  1 
44724  0 
72364  0 
03245  1 
C3276  1 
77624  1 
44410  I 
72364  0 
02230  1 
00322  I 
77624  1 
44410  1 
45160  1 
C3245  I 
44326  0 
45575  1 
50460  0 
77626  0 
5C466  C 
77626  0 
74474  0 
75160  1 
03302  0 
02230  1 
77624  1 
44312  1 
45575  1 
51532  1 
77626  0 
51540  1 
77626  0 
75546  1 
45001  1 


COUNT# 
KALCMAN3  TC 
RTB 

STCRE 

SLQAD 

nsu 


AXC  ,2 


CALL 
AXC, 2 


CALL 

SECAD  AXC,1 


VLCAO 
STOVL 
STADR 
STCVL 
STADR 
STCRE 
AXC  ,1 


CALL 

VLCAD 

STOVL 

STADR 

STCVL 

STADR 

STCRE 

SETPD 


$$/KALC 

INTPRET 

READCDUK 

BCOU 

A6S 

CPSI 

BPL 

LOCKANGL 

TOOBADF 

TLCAO 

MIS 

8CDU 

COUTOOCM 
TLCAD 
MF  S 
CPHI 

CDUTODCM 
CALL 
MI  S 

TRANSPOS 
STADR 
TMIS  +120 

TMIS  +6 

TMIS 
AXC  ,2 
TMIS 
MFS 

MXM3 
STADR 
MFl  +120 

MFl  +6 

MF  I 
CALL 


PICK  UP  THE  CURRENT  CDU  ANGLES  AND 
COMPUTE  THE  MATRIX  FROM  INITIAL  S/C 
AXES  TO  FINAL  S/C  AXES 
STORE  INITIAL  S/f  ANGLES 
CHECK  THE  MAGNITUDE  OF  THE  DESIRED 
MIDDLE  6IMBAL  ANGIE 

IF  GREATER  THAN  70  DEG  ABORT  MANEUVER 


COMPUTE  THE  T R ANS FORMAT  ICN  FROM  INITIAL 
S/C  AXES  TO  STABLE  MEMBER  AXES 

PREPARE  TO  CALCULATE  ARRAY  MFS 


MIS  AND  MFS  ARRAYS  CALCULATED  S2 


TMIS  = TRANSPOSEIMISI  SCALED  BY  2 


MFl  = TMIS  MFS  (SCALED  PY  4) 
TRANSPOSE  MFl  IN  PC  LIST 


t 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2'^2in2-09I 

L AITITLOE  MANEUVER  RCLTINE 


OA73 

0^74 

0^75 

0476 

0477 

0478 
04TQ 
0460 

R04B1 

R0482 

R0483 

04  84 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 
R0495 
R0496 
R0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

05  08 

0509 

0510 

0511 

0512 

0513 


22,2054 

REF  1 22,2055 

22,2056 

REF  1 22,2057 

22,2060 

REF  2 LAST  354  22,2061 

22, 2062 

REF  3 LAST  354  22,2063 

CALCULATE  COFSKEW  AND  MFISYM 


CCC23  C 
A4335  1 
45575  1 
5C46C  C 
77626  O 
50*66  C 
77626  0 
74474  0 


VLOAD 

STCVL 

STADR 

STCVL 

STADR 

STORE 


22,2064  45345  I 


REF 

REF 


REF 

REF 


354 

353 


LAST 

LAST 


22.2065 

22.2066 
22, 2067 
22  ,2070 
22,2C71 
22, 2072 
22  ,2073 

22.2074 

22.2075 

22.2076 


03305  1 
02233  1 
45325  I 
02235  1 
C3307  0 
45325  I 
03315  0 
C2243  0 
77666  1 
03325  0 


CALCULATE  AM  ANC  FRCCEEC  ACCCRCING  TO  ITS  MAGNITUDE 


REF 

REF 

REF 


REF 

REF 

PEF 


LAST 

LAST 

LAST 


22,2077 
22  ,2100 
22, 2101 
22,2102 

22.2103 

22.2104 
22  ,2105 
22,2106 
22,2107 
22  ,2110 
22,2111 
22,2112 

22.2113 

22.2114 
22  ,2115 
22,2116 


43345  1 
02231  0 
C2251  0 
43225  0 
06514  1 
C2241  1 
03333  1 
77726  1 
03335  1 
51025  1 
C4363  C 
44117  0 
77751  1 
00322  1 
37235  1 
44742  0 


STORE 

ARCCOS 

STORE 

OSU 


TLOAD 

STCALL 


18C 

TRNSPSPD 
STADR 
TMFI  +12D 


DSU 

TMFI  +2 
MF  I +2 
DSU 

MF  I +4 
TMFI  +4 
DSU 

TMFI  +10D 
MFI  +100 

COFSKEW 


DAD 

MFI 

MFI  +16D 
DAD 

DP1/4TH 
MFI  +80 
CAM 

AM 

BPL 

MI  NANG 
CHECKMAX 

CPHI 

COUXO 

TOOBADI 


0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 


LAST  354 


LAST  354 


22,2117 

22,2120 

22,2121 

22,2122 

22.2123 

22.2124 
22  ,2125 
22,2126 


45345  1 
03335  1 
04365  0 
77244  0 
44131  1 
C3325  0 
77656  1 
03270  I 


CHECKMAX  DLOAO  DSU 
AM 


MAXANG 

VLOAD 

ALTCALC 

COFSKEW 

COF 
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USER ‘S  PAGE  NOe  11  E6  S3 


TMFI  = TRANSPOSE  (MFH  SCALED  BY  4 


CALCULATE  COF  SCALED  BY  2/SIN<AMI 


EQUALS  MFISKEW 


CAM  = (MFin+MFI*+MFI8-l)/2  HALF  SCALE 
AM=ARCCCS (CAM)  (AM  SCALED  BY  2) 


MANEUVER  LESS  THAN  o25  DEGREES 
GO  DIRECTLY  INTC  ATTITUCE  HOLD 
ABOUT  COMMANDED  ANGLES 
STOP  RATE  AND  EXIT 


UNIT 

COFSKEW 


COF  IS  THE  MANEUVER  AXIS 


GAP:  ASSEHBLe  REVISION  131  CF  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-091 


ATTITUCE  MANEUVER  ROUTINE 


0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 
053? 

0533 

0534 

0535 

0536 
R0537 
R053e 
R0539 
R0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 
R0565 
R0566 
R0567 

0568 

0569 

0570 

0571 


11  LAST  355 


REF 

REF 

REF 

REF 

REF 


LAST 

LAST 


LAST 

LAST 


355 

355 

355 


CALCULATE  COF 


REF  3 LAST  354 


REF  5 LAST  355 


REF  6 LAST  355 


REF  2 LAST  354 


22,2127 

22.2130 

22.2131 

22.2132 

22. 2133 

22.2134 

22.2135 

22.2136 
22  ,2137 

22.2140 

22.2141 

22 .2142 

22.2143 

22.2144 

22.2145 


,2146 
,2147 
,2150 
,2151 
,2152 
,2153 
,2154 
,2155 
,2156 
,2157 
,2160 
,2161 
,2162 
,2163 
,2164 
,2165 
,2166 
, 2167 
,2170 
,2171 
,2172 
,2173 
, 2174 
,2175 


77650  1 

44744  C 
53375  0 
02231  n 
C3303  1 
77762  1 
27303  1 
02237  0 
74455  0 
03311  1 
27311  1 
02245  0 
74455  C 
03317  1 
03317  1 


70545  1 
03333  1 
45325  I 
06522  1 
C3333  1 
65  204  1 
21713  1 
03323  0 
56225  1 
COCOl  0 
00003  1 
65366  1 
C3313  0 
56225  1 
COQOl  0 
00003  1 
65366  1 
C3303  1 
56225  1 
00001  0 
00003  1 
55566  1 
77656  1 
03270  1 


ALTCALC  VLOAD 


DLOAD 

POOL 


SORT 

CSU 


SORT 

UNIT 

STORE 


DETERMINE  LARGEST  COF  AND  ADJUST  ACCORDINGLY 


22.2176 

22.2177 
22 ,2200 
22,2201 


45345  I 
C327C  I 
03272  0 
71240  1 


COFMAXGO  OLCAD 


LOCSKIPT 

VAD 

MFI 

TMFI 

MFISYM 
MFI  +6 
VSRl 
TMFI  +6 
MF I SYM  +6 
MFI  +120 
VSRl 

TMFI  +120 
MFISYM  +120 


SR] 

CAM 

OSU 

OPFALF 

CAM 

POOL 

SIGNMPAC 
MFISYM  +160 
DOV 


PDCL 

MFI SYM  +80 
DOV 


POOL 
MF  I SYM 
DOV 


OSU 

COF 

COF  +2 
DLCAO 


f 
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USER'S  PAGE  NCo  12  £6  S3 

SEE  IF  MANEUVER  GCES  THRU  GIMBAL  LOCK 
IF  AM  GREATER  THAN  170  DEGREES 


MFISYM=(MFI+TMFI »/2  SCALED  BY  4 

POO  CAM  £4 

PD2  1 - CAM  £2 

COFZ  = SQRT(MFISYM8-CAM>/1-CAM) 

£ ROOT  2 

COPY  = S0RT(MFISYM4-CAM)/(1-CAM)  £R0nT2 

COFX  =!  SQRT(MFISVM-CAM> /(l-CAM)  £RaOT  2 


COFY  G COFX 


GAP  : 

L 

0572 

0573 

0574 

0575 

0576 

05  77 

0578 

0579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 

0587 

0588 

0589 

0590 

0591 

0592 

059? 

0594 

0595 

0596 

0597 

0598 

0599 

0600 

0601 

0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 

0611 

0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 


i 
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USER'S  PAGE  NCe  1?  E6  S3 


REF  1 

REF  5 LAST  355 

REF  6 LAST  356 

REF  1 

REF  1 

REF  7 LAST  356 

REF  8 LAST  356 


REF  2 LAST  356 


22  ,2202  44211  0 

22.2203  C3270  I 

22.2204  50025  0 

22.2205  03274  0 

22.2206  4A266  0 

22.2207  77650  1 

22.2210  44242  0 

22.2211  45345  1 

22  ,2212  03272  0 

22.2213  C3274  0 

22.2214  77640  0 

22 .2215  44266  0 


C0MP12 

COF 

OSU  BMN 

COF  +4 
METHC03 

GOTO 

METHCCl 

12  DLCAO  OSU 

COF  +2 
COF  +4 

BMN 

METHODS 


COFZ  G CCFX  OR  COPY 
COFX  G COPY  DR  COFZ 

COFZ  G COPY  OR  COFX 


REF 

REF 


PEF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF 

REF 


REF 

REF 


REF 

REF 


REF 

REF 

REF 

REF 

REF 


10 

7 

I 

11 

12 


8 

2 

13 

14 

3 

8 

1 

15 

16 

9 

1 

17 

18 

10 

4 

19 


LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


LAST 

LAST 


LAST 


LAST 


LAST 

LAST 

LAST 


LAST 

LAST 


LAST 

LAST 

LAST 


354 


356 

356 

355 


356 

356 

356 

355 


356 

356 


356 


356 


356 

356 

356 


356 

356 

356 

356 

356 


22,2216  5U45  0 METHn02  OLOAO 


22,2217  03327  1 

22.2220  44224  0 

22.2221  57575  1 VLCAO 

22  ,2222  03270  1 

22.2223  03270  1 STCRE 

22.2224  51145  0 U2P0S  OLOAD 

22.2225  03305  1 

22.2226  44232  1 

22.2227  57545  1 OLOAO 

22.2230  03270  1 

22.2231  C3270  1 STORE 

22.2232  51145  0 0KU21  CLOAD 

22.2233  C3315  0 

22.2234  44744  0 

22.2235  57545  1 OLOAO 

22. 2236  C3274  0 

22.2237  03274  0 STORE 

22.2240  77650  1 GOTO 

22.2241  44744  0 


22,2242  51145  0 METHOCl  OLOAO 


22.2243  03325  0 

22.2244  44250  0 

22 .2245  57575  1 VLOAO 

22.2246  03270  1 

22.2247  03270  1 STORE 

22.2250  51145  0 UIPOS  OLCAO 

22.2251  C3305  1 

22  ,2252  44256  0 

22.2253  57545  I OLOAO 

22.2254  03272  0 

22.2255  03272  0 STORE 

22.2256  51145  0 0KL12  OLOAO 

22.2257  03307  0 

22.2260  44744  0 

22.2261  57545  1 OLDAD 

22  ,2262  03274  0 


BPL 

COFSKEW  +2 

U2  POS 

VCOMP 

COF 

COF 

PPL 

MFISYM  +2 

0KU21 

DCOMP 

COF 

COF 

BPL 

MFISYM  +ino 
LOC SKIRT 
OCOMP 
COF  +4 
COF  +4 

LOCSKIRT 

PPL 

CCFSKEW 

UIPOS 

VCOMP 

COF 

COF 

BPL 

MF I SYM  +2 
0KU12 
DCCMP 
COF  +2 
COF  +2 
BPL 

MF  I SYM  +4 
LOCSKIRT 
DC  CMP 
COF  +4 


COPY  MAX 
UY 

UX  UY 

SIGN  OF  UX  OPPOSITE  TO  UY 

UY  UZ 

SIGN  OF  UZ  OPPOSITE  TO  UY 


COFX  MAX 
UX 


UX  UY 

SIGN  OF  UY  CPPCSITE  TO  UX 

UX  UZ 

SIGN  OF  UZ  CPPCSITE  TO  UY 


GAP  : 

L 

0621 

0622 

0623 

062A 

0625 

0626 

0627 

0626 

0629 

0630 

0631 

0632 

0633 

063A 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 
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PAGE  357 


ATTITUDE  MANEUVER  ROLTINE 


USER  ‘S  PAGE  NOo  14 


66  S3 


REF  20 
REF  5 


REF  9 
REF  1 


REF  21 
REF  22 

REF  11 
REF  1 


REF  23 
REF  24 


REF  12 
REF  6 


REF  25 
REF  26 


REF  7 


LAST  356 
LAST  356 
LAST  356 

LAST  357 
LAST  357 

LAST  356 

LAST  357 
LAST  357 

LAST  357 
LAST  357 

LAST  357 
LAST  357 

LAST  357 


22  ,2264 

22.2265 

22.2266 
22  ,2267 

22.2270 

22.2271 

22.2272 

22.2273 

22.2274 

22.2275 

22.2276 
22  ,2277 

22.2300 

22.2301 

22.2302 
22, 23C3 
22  ,2304 

22.2305 

22.2306 
22  ,2307 

22.2310 

22.2311 


03274  0 
77650  1 
44744  0 
51145  0 
03331  0 
44274  0 
57575  1 
C3270  1 
03270  1 
51145  0 
03307  0 
44302  0 
57545  I 
C3270  1 
03270  1 
51145  0 
C3315  0 
44744  0 
57545  1 
03272  0 
03272  0 
7765C  1 
44744  0 


METHOO? 


U3P0S 


CKU31 


VLOAD 

STORE 

OLOAO 


DLOAD 

STORE 

OLOAC 


DLCAD 

STORE 

GOTO 


COF  +4 

LOCSKIRT 

BPL 

COFSKEW  +4 

U3FCS 

VCOMP 

COF 

CCF 

BPL 

MFISYM  +4 

0KU31 

DCOMP 

COF 

COF 

BPL 

MFI SVM  +100 
LOCSKIRT 
OCCMP 
COF  +2 
COF  +2 

LOCSKIRT 


CCFZ  MAX 

uz 


ux  uz 


SIGN  OF  UX  OPPOSITE  TO  UZ 


UY  UZ 


SIGN  OF  UY  CPPCSITE  TO  UZ 
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L ATTlTUCe  MANEUVER  ROLTINE 

R064A  MATRIX  CPERATICNS 

BANK  13 
SETLOC  KALCMCN2 
BANK 


0645  13,2207 

0646  REF  1 22,2000 

0647  22,2312 


0648  REF  6 LAST  353  E6,1675 


EBANK=  BCOU 


0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 


22,2312  76601  I M> 

22  ,2313  00001  0 

22.2314  CCCCl  0 

22.2315  62703  1 

22.2316  77776  1‘ 

22.2317  CCC07  0 

22.2320  62703  1 

22.2321  77776  1 

22.2322  C0C15  0 

22.2323  4150?  1 

22.2324  77776  1 

22.2325  77616  0 


13  SETPD  VLOAD* 

0 

0,1 

VXM’i'  PDVL* 
0.2 
6,1 

VXM^-  PDVL* 
0,2 
120,1 

VXM*  PUSH 

0,2 

PVO 


R0661 

R0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671  REF 

0672 

0673  REF 

0674 

0675  REF 

0676 

0677  REF 

0678 

0679  REF 
0660 

0681  REF 

0682 

0683  REF 

0684 

0685  REF 

0686 

0687  REF 

0688 


9 LAST 

10  LAST 

11  LAST 

12  LAST 

13  LAST 

14  LAST 

15  LAST 

16  LAST 

17  LAST 


RETURN  RITH  M1XM2  IN  PO  LIST 


300 

358 

358 

358 

358 

358 

358 

358 

358 


22.2326  76601 

22.2327  00001 

22.2330  00001 

22.2331  62713 

22.2332  00007 

22.2333  00015 

22.2334  77606 

22.2335  77776 

22.2336  50  120 

22.2337  52  013 

22.2340  5C  120 

22.2341  52  017 

22.2342  5C  120 

22.2343  52  013 

22 .2344  50  120 

22.2345  52  CIS 

22.2346  50  120 

22.2347  52  005 

22.2350  50  120 

22.2351  52  015 

22.2352  50  120 

22.2353  52  003 

22.2354  50  120 

22.2355  5?  QC7 

22.2356  50  120 

22.2357  52  003 


1 TRANSPOS  SETPO 
0 
0 

0 PCVL« 
0 

0 

1 PUSH 
1 TRNSPSPO  EXIT 

1 INDEX 

1 CXCH 

1 INDEX 

0 CXCH 

1 INDEX 

1 DXCH 

1 INDEX 

1 DXCH 

1 INDEX 

0 DXCH 

1 INDEX 

1 DXCH 

1 INDEX 

0 DXCH 

1 INDEX 

1 DXCH 

I INDEX 

0 DXCH 


VLOAD* 

0 

0,1 
PDVL* 
6,1 
120 , 1 


F I XLOC 
12 

FI XLCC 
16 

FIXLCC 

12 

FIXLOC 

14 

f 1 XLCC 

FIXLCC 

14 

F 1 XLCC 
2 

FIXLOC 

6 

F I XLOC 
2 


17:53  OECo  19,1969 


LEMONAIDr  104  PAGE  358 


USER'S  PAGE  NOe  15  E6  S3 


MXM3  MULTIPLIES  2 3X?  MATRICES 
AND  LEAVES  RESULT  IN  PD  LIST 
AND  MPAC 


TRANSPOS  TRANSPOSES  A 3X3  MATRIX 
AND  LEAVES  RESULT  IN  PD  LIST 
MATRIX  ADDRESS  IN  XRl 


MATRIX  IN  PD 

ENTER  WITH  MATRIX  AT  0 IN  PO  LIST 


o 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L ATTITUDE  MANEUVER  ROUTINF 


0609 

0690 


REF  16  LAST  353 


22  i2360  0 6042  1 

22,2361  77616  0 


TC  INTPRET 

RVQ 


0691  15,2050 

0692  REF  2 LAST  353  22,2000 

0693  22,2362 


BANK  15 
SETLOC  KALCMONI 
BANK 


0694  REF  7 LAST  350  66,1675 


EBANK=  0CDU 


0695 

0695 

0696 
0696 

R0697 


GIMBAL  LOCK 


22.2362  00013  0 

22.2363  13562  0 

22.2364  17070  0 

22.2365  34343  1 

CONSTANTS 


MINANG 

MAXANG 


2DEC  0^00069375 
20EC  0c472222222 


R0698  D = MGA  C CR RES FQN C I NG  TO  GIMBAL  LCCK  = 60  CEGPEES 

R0699  NGL  = BUFFER  ANGLE  (TC  AVOID  DIVISIONS  BY  ZERO!  = 2 DEGREES 


0700 

0700 

0701 

0701 

0702 

0702 

0703 

0703 

0704 

0704 

0705 

0705 

0706 
R0707 


22.2366 

22.2367 

22. 2370 

22.2371 

22.2372 

22. 2373 
22  ,2374 

22.2375 

22.2376 
22  ,2377 

22. 2400 

22.2401 

22.2402 


15666  0 
20443  0 
33555  1 
C1106  1 
67777  1 
77777  0 
04000  0 
00000  1 
00216  1 
36323  0 
17773  1 
00057  0 
14344  1 


INTERPRETIVE  SUBROUTINE  TO  READ  THE  COU  ANGLES 


2DEC 

2DEC 

2CEC 

20EC 

2DEC 

20EC 

DEC 


o433015 

e 86603 

-*25 

Q 125 

o008725 

c4996Q5 

e388889 


0708 

0709 

0710 

0711 

0712 


REF  5 LAST  255 

REF  67  LAST  338 

REF  7 LAST  307 

REF  1 


22  ,2403 

22.2404 

22.2405 
22  ,2406 
22,2407 


3 0034  0 READCDUK  CA 

54  156  1 TS 

C 0006  1 EXTEND 

3 0033  1 CCA 

1 6501  1 TCF 


CDU2 
MPAC  *2 

CDUX 

TLCAD  +6 


0713 

0714 

0715 

0716 

0717 
0716 
C719 

0720 

0721 

0722 


2?  ,2410 
22,2411 

REF  1 22,2412 

22  ,2413 

22.2414 

22.2415 

22 .2416 

22.2417 
22,2420 

REF  9 LAST  326  22,2421 


66370  0 
00003  1 
00051  0 
00001  0 
OCCIO  0 
77601  0 
00001  0 
47133  0 
00013  0 
21577  1 


CCUTQCCM  AXT,1  SSP 
OCT  3 

SI 

OCT  1 
STORE  7 
SETPD 

0 

LOOPSIN  SLCA04  RTB 

lOD,  1 
COULOG  IC 


17:53  DECo  19,1069  L EMONA  ID,,  104  PAGE  359 


USER'S  PAGE  NOe  16  E6  S3 


= SIN(D>  S2 
= SIN(D)  tl 
= -COS(D) 

= C0S(01C0S(DI  $2 
= SININGDCCSIOI  $2 
CnSINGLI  iZ 
= 70  DEGREES 


LUAD  TIMPACI  WITH  CDU  ANGLES 

AND  CHANGE  MODE  TO  TRIPLE  PRECISION 


SET  XRl,  SI,  AND  PO  FOR  LOOP 


GAP  : 


ASSEMBLE  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 


L ATTITUDE  MANEUVER  ROUTINE 


0725 

0726 

0727 

0728  REF 
072° 

0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 

0741 

0742 

0743 

0744 

0745 

0746 

0747 

0748 

0749 

0750 

0751 

0752 

0753 

0754 

0755 

0756 

0757 
C758 

0759 

0760 

0761 

0762 

0763 

0764 

0765 

0766 

0767 

0768 

0769 

0770 

0771 

0772 


22i2423 
22, 2424 
22  ,2425 
22,2426 

1 22,2427 

22  ,2430 

22.2431 

22.2432 
22  ,-2433 

22.2434 

22 .2435 

22.2436 

22.2437 

22 .2440 

22.2441 

22.2442 

22.2443 

22.2444 
22  ,2445 

22.2446 

22.2447 

22.2450 

22. 2451 

22.2452 

22.2453 

22. 2454 
22  ,2455 

22.2456 

22.2457 
22  ,2460 

22.2461 

22.2462 

22.2463 

22.2464 
22  ,2465 

22.2466 

22.2467 

22 .2470 

22.2471 

22.2472 

22.2473 

22.2474 
22  ,2475 

22.2476 

22.2477 

22 .2500 

22.2501 

22.2502 

22.2503 


00013  0 
65356  1 
00013  0 
41546  0 
71300  1 
44417  0 
00007  0 
72405  0 
00013  0 
10001  1 
41345  r 
00005  I 

00001  n 

41325  0 
00007  0 
00011  1 
72405  0 
00003  1 
72421  0 
00015  0 
10003  0 
41345  0 
00003  1 
CC005  1 
41325  0 
00007  0 
COOll  1 
72405  0 
00001  0 
72415  1 
00017  1 
10005  C 
77745  1 
OOOIl  1 
10007  1 
77745  1 
C0013  0 
72405  0 
00003  1 
lOCll  0 
41345  0 
C0013  0 
00001  0 
72476  1 
10013  1 
41345  0 
00005  1 
C0C13  0 
72476  1 
10015  1 


STORE 

SIN- 

COS 
TI  X,J 


OMP 

STORE 

DLCAD 


POOL 

DMP 

BOSU 

STORE 

OLOAD 


POOL 


DMP 

DAO 

STORE 

DLOAD 

STORE 

DLCAD 

DMP 

STORE 

OLOAD 


OCOMP 

STORE 

OLOAD 


DCOMP 

STORE 


100 
POOL 
lOD 
PUSH 
DLCAD 
LOOPSI N 
6 

SLl 

lOD 

0,2 

DMP 

4 

0 

OMP 

6 

80 

SLl 

2 

SLl 
120 
2 ,2 
DMP 
2 
4 

DMP 

6 

8D 

SLl 

0 

SLl 
140 
4 ,2 


80 


6,2 


1 OD 
SLl 

2 

80  ,2 
DMP 
lOD 
0 

SLl 

10D,2 

DMP 

4 

1 OD 
SLl 
12C,2 


17:53  DECo  19,1969  LEMONAIO  104  PAGE  360 


USER'S  PAGE  NO*  l^^  E6  S3 


LOAD  PD  V,ITH  0 SI  MPHI  ) 

2 COSIPHI ) 

^ SINITHETAI 
6 COSITHETAI 
8 SIN(PSr ) 

1 0 COS (PSI ) 


Cn=COS(THETA)COS<PSI I 


(PD6  SIN(THETA>SIN(PH1  ) ) 


C1  = -C0S  (THETA  >SIN(  PS  I )C0S(PHI  » 

(PD7  COSIPHU  S INI  THETA)  ) SCALED  4 

C2  = C0S(THETA)SIN(PSI)SINIPHn 

C?  = SIN{ PS  I ) 

C4  = C0S (PS  I ) COS  I PH  n 

C5  = -C0S  (PSI  ISINIPHI) 


C6=-S  IN  ( THETA  ) COS  ( PSI  ) 


GAP  : 

L 

0773 

0774 

0775 

0776 

0777 

0778 

077e 

0780 

0781 

0782 

0783 

0784 

0785 

0786 

0787 

0788 

0789 

0790 

0791 

R0792 

R0793 

R0794 

R0795 

R0796 

R0798 

R0799 

R0800 

0801 

0802 

0803 

0804 

0805 

0806 

0807 

0808 

0809 

R0810 

0811 

0812 

0813 

0814 

081'^ 

0816 

0617 
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ATTITUDE  MANEUVER  ROUTINE 


USER'S  PAGE  NO.  18  E6  S3 


22r2  504  77745  1 

22.2505  72405  0 

22.2506  00011  1 

22 .2507  41325  0 

22.2510  rcCC7  0 

22.2511  OOCOl  C 

22 .2512  72415  1 

22.2513  77626  0 

22.2514  67760  1 

22.2515  77745  1 

22.2516  72405  0 

22  ,2517  00011  1 

22.2520  41325  0 

22.2521  00007  0 

22 .2522  00003  1 

22.2523  72425  I 

22,2  524  77626  0 

22.2525  67756  1 

22.2526  77616  0 


OLOAO 

DMP  SL) 

80 

PCDL  DMP 
6 
0 

DAD  SLl 

STAOR 

STORE  14D,2 

OLCAC 

DMP  SLl 
8D 

PDCL  OMP 
6 
2 

DSU  SLl 

STAOR 

STORE  16C,2 

RVO 


(PUSH  UP  71 

(P07  COSIPHI  I SIM  THETAl  SIN(PSI  ) ) SCALE4 

( PUSH  UP  7} 

C7  = CnS (PHIIS IN (THETA  IS IN( PS  I) 

+ COS( THETA  I SI N( PHI  1 

( PUSH  UP  6 I 

(PD6  SIN(THETA)SIN(PHnSIN(PSn  ) SCALE4 


(PUSH  UP  6 1 

C8=-S  IN  (THETA  )SIN(PHI)SIN(PSn 
+CCS(THETA)COS(PHI » 


CALCULATION  OF  THE  MATRIX  DEL. 


^ # — T # 

CEL  = ( I CMATR  IX  ICCS  ( A I +UU  (l-COSIAN+UX  SINIAI  SCALED  1 


UPON  ENTRY  THE  STARTING  ADDRESS  OF  U IS  CCF , AND  A IS  IN  MPAC 


22  ,2527  41401  1 DELCOMP  SETPO  PUSH 


22.2530 

22.2531 
22  ,2532 

22.2533 

22.2534 

22.2535 

22.2536 
22  ,2537 


COOOl 
65356  1 
41546  0 
65302  0 
41021  1 
C6522  1 
21713  1 
77725  1 


SIN 

COS 

SR2 

8DSU 


0 

POOL 

PUSH 

POOL 

B0V6 

OPHALF 

SIGNMPAC 


MPAC  CONTAINS  THE  ANGLE  A 

POO  = SIMA) 

PD2  = COS(A» 

PO?  = CCS ( A ) 


P04  = l-COS(A I 


CCMPUTE  THE  DIAGONAL  COMPONENTS  CF  DEL 


REF  27  LAST  357 


22,2540 
22  ,2541 

22.2542 

22.2543 

22.2544 

22.2545 
22  ,2546 


03270  1 
41316  0 
G0C05  1 
52415  0 
0n003  1 
77604  0 
21713  1 


GAP 


ftSSE.BLE  REVISION  131  CF  AGC  PRCCRAR  LUMINARY  BY  NASA  202U12-C9I 


L attitude  maneuver  routine 


0818 

0819 

0820 
0821 
0822 

0823 

0824 

0825 

0826 
0827 
0628 

0829 

0830 

0831 

0832 

0833 

0834 


REF  1 

REF  28  LAST  361 


REF  4 LAST  361 
ref  2 LAST  362 
REF  29  LAST  362 


ref  5 LAST  362 
REF  3 LAST  362 


22,2547  16231  0 

22  ,2550  03272  0 

22.2551  41316  0 

22.2552  00005  I 

22.2553  52415  0 

22.2554  C0003  1 

22.2555  77604  0 

22.2556  21713  1 

22.2557  16241  1 

22  ,2560  03274  0 

22.2561  41316  0 

22.2562  00005  1 

22  ,2563  52415  0 

22,2564  C0003  1 

22  ,2  565  77604  0 

22.2566  21713  1 

22.2567  C2251  0 


STOOL  KEL 

COF  +2 
OSC  DMP 

4 

DAC  SL3 

2 

0OVB 

SIGNMPAC 
STOOL  KEL  +80 
COF  +4 
CSC  DMP 

4 

DAC  SL3 

2 

BOVB 

SIGNMPAC 
STORE  KEL  +160 


R0835  CCMPLIE  THE  OFF  DIAGCNAL  TERMS  CF  DEL 


0836 

0837 

0838 

0839 

0840 

0841 

0842 

0843 

0844 

0845 

0846 

0847 

0848 

0849 

0850 

0851 

0852 

0853 
0654 

0855 

0856 

0857 

0858 

0859 

0860 
0861 
0862 
0863 
086^ 
0865 


REF  30  LAST  362 
ref  31  LAST  362 

REF  32  LAST  362 


ref  6 LAST  362 
REF  4 LAST  362 


REF  7 LAST  362 
ref  5 LAST  362 
REF  33  LAST  362 

REF  34  LAST  362 


ref  35  LAST  362 


ref  0 LAST  362 
ref  6 LAST  362 


22.2570  41345  0 

22.2571  03270  1 

22.2572  03272  0 

22.2573  724C5  0 

22.2574  00005  I 

22.2575  41325  0 

22.2576  03274  0 

22  ,2577  00001  0 

22.2600  43206  I 

22.2601  00007  0 

22 .2602  41112  0 

22.2603  21713  1 

22.2604  16237  0 

22.2605  62421  I 

22,26C6  77604  0 

22,2607  21713  1 

22.2610  16233  1 

22.2611  03270  I 

22  ,2612  41205  0 

22.2613  C3274  0 

22.2614  00005  I 

22.2615  65352  0 

22.2616  03272  0 

22  ,2617  41405  0 

22i2620  00001  0 

22,2621  62415  0 

22  ,2622  00007  0 

22.2623  776C4  0 

22.2624  21713  1 

22.2625  16235  1 


OLOAO  OMF 
COF 

COF  +2 
DMP  SLl 

POOL  DMP 

COF  +4 
0 

PUSH  DAD 
6 

SL2  BOVB 

SIGNMPAC 
STOOL  KEL  +6 

ecsu  SL2 

BOVS 

S IGNMPAC 
STCDL  KEL  +2 
COF 

DMP  DMP 

COF  +4 


SLl  PDCL 

COF  +2 
DMF  PUSH 

0 

DAD  SL2 

6 

BOVB 

SIGNMPAC 
STCDL  KEL  +4 


n:53  OECo  L F RONS  10,  104  PAGE  362 

USER'S  PAGE  NOo  19  E6  S3 

UX  UX(1-CCSIAI 1 tCCSIAl  ‘1 

UY  UY(1-C0S(SI1  yCCSISI 

U2  UZ(1-C0S(AI I yCCSIAI  *1 

06  UX  UY  11-COS  A)  * 

09  UZ  SIN  A * 

06  UX  UZ  11-COS  A I * 

DP  UY  SINIAI 


UX  UZ  1 l-COSIA  I ItUY  SINl  A I 


GAP  : 

L 

0866 

0867 

0868 

0669 

0870 

0671 

0872 

0873 

087A 

0875 

0876 

0877 

0878 

0879 

0880 

0881 

0882 

0883 

0884 

0885 

0666 

0887 

80888 

R0889 

R0890 

R0891 

R0892 

R089A 

R0e95 

80896 

R0897 

RO890 

R0899 

R0900 

R0901 

80902 

R0903 

R0904 

R0905 

R0906 

R0907 

R0908 

R0909 

R0910 

R0911 
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ATTITUDE  MANEUVER  ROUTINE 


USER’S  PAGE  NOo  20  E6  S3 


REF  9 LAST 
REF  7 LAST 
REF  36  LAST 

REF  37  LAST 


REF  38  LAST 


REF  10  LAST 
REF  8 LAST 


REF  11  LAST 
REF  9 LAST 


22,2627 
362  , 22,2630 

362  22,2631 

362  22,2632 
22,2633 

363  22  ,2634 

22.2635 

22.2636 
363  22,2637 

22, 2640 
22  ,2641 

22.2642 

22.2643 
22  ,2644 

363  22,2645 

363  22,2646 

22,2647 
22,2650 
363  22,2651 

363  22,2652 

22,2653 


62421  1 
77604  0 
21713  1 
16245  0 
03272  0 
412C5  0 
03274  0 
COCOS  1 
65352  0 
C3270  1 
41405  0 
00001  0 
62415  0 
00007  0 
77604  0 
21713  I 
16247  1 
62421  1 
77604  0 
21713  1 
02243  0 
77616  0 


BOSU  SL2 
8OV0 

SIGNMPAC 
STCOL  KEL  +120 
CCF  +2 
DMP  DMP 

COF  +4 
4 

SLl  POOL 

COF 

DMP  PUSH 

0 

DAD  SL2 

6 

Bove 

SIGAVPAC 
STOOL  KEL  +14D 
ecsu  SL2 

BOVB 

SIGNMPAC 
STCRE  KEL  +100 
PVO 


UX  UZ  ( 1-C0S(A ) )-UY  SIN(A» 

06  UY  UZ  (l-COSIA))  $ 4 

08  UX  SIMA) 

UY  UZ(1-C0S(A) ) +UX  5IN(A) 

UY  UZ  (1-C0S(A ) ) -UX  SIN(A  ) 


DIRECTION  COSINE  MATRIX  TC  CCU  ANGLE  ROUTINE 

X]  CONTAINS  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  MATRIX  (SCALED  2) 

LEAVES  CDU  ANGLES  SCALED  2PI  IN  V(MPAC) 

COS(MGA)  WILL  BE  LEFT  IN  SI  (SCALED  II 

THE  DIRECTION  COSINE  MATRIX  RELATING  S/C  AXES  TO  STABLE  MEMBER  AXES  CAN  BE  WRITTEN  AS*** 

C =COS(THETAICCS(FSI  I 
0 

C =-CCS(ThETA)SIN(PS  l)COS(Phn+SI  ( THETA  I S IN  ( P HI) 

1 

C =COS{TFETA)SIN(PSI  )SIN(PHn  + S N ( THE  TA  ) COS  ( PH  I ) 

2 

C =SIN(PSI  I 

3 

C =COS(PSI)CCS(PHI  ) 

4 

C =-CCS ( PS  I IS IN( Phi  ) 

5 

C =-SIN(THETA)COS(PSl  ) 

6 

C =SI  N(THETA|  SI  N(  PSnCOS  (PHI  I +CaS  THETA)SIN(PHI) 

7 


C =-SIN(ThETAISIN(PS  I )SlN(Phn+CC  (THET  A ) COS  ( P H I I 


gap:  assemble  REVISION  131  HF  AGC  PPCGRAl 


LUMINAR' 


BY  NASA  2021112-091 


L ATTITUEE  MANEUVER  ROUTINE 


R0912 

R0913 

R0914 


WHERE  PHI  = 
THETA 
PS  I = 


CGA 
= IGA 
MGA 


0917 

0918 

0919 

0920 

0921 

0922 

0923 
092A 
092  5 

0926 

0927 

0928 

0929 

0930 

0931 

0932 

0933 
093A 

0935 

0936 

0937 

0938 

0939 
09AO 
09A: 
09^2 

0943 

0944 

0945 

0946 

0947 

0948 

0949 

0950 

0951 

0952 

0953 

0954 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF 


REF 


REF 

REF 

REF 

REF 

REF 


3 


1 


1 

3 

1 


4 


1 


1 

5 

1 


6 

2 


LAST  363 
LAST  359 


LAST  364 


LAST  361 


LAST  364 


LAST  364 


LAST  364 


LAST  364 
LAST  364 


22.2655 

22.2656 

22.2657 
22,2660 
22  ,2661 
22,2662 
22,2663 
22  ,2664 

22.2665 

22.2666 
22,2667 
22,267C 
22  ,2671 

22.2672 

22.2673 
22  ,2674 

22.2675 

22.2676 

22.2677 

22.2700 

22.2701 

22.2702 

22.2703 

22 .2704 
22,  2705 

22.2706 

22.2707 

22.2710 

22.2711 

22.2712 

22.2713 
22  ,2714 

22.2715 

22.2716 

22.2717 

22.2720 

32.2721 

22.2722 

22.2723 


67543  I 
00C07  0 
71406  n 
41152  1 
21713  1 
00051  0 
57543  I 
00015  0 
67471  I 
CCC51  0 
51123  0 
00001  0 
44702  1 
57545  1 
43244  1 
44677  I 
06522  I 
■J7650  1 
44701  I 
77625  0 
06522  1 
77606  I 
57543  I 
00013  0 
67471  1 
C0051  0 
51123  0 
00011  I 

44722  0 
57545  1 
43244  I 
44717  0 
06522  I 
77650  1 

44723  I 
52025  1 
06522  1 
44723  1 
77745  I 
43466  1 


CCMTOCCU 


SLHALFA 

CALCPHI 

□KTHETA 


SUHALFAP 


OKPHI 

VECOFANG 


CLOAO* 

PUSH 

SLl 

STORE 

DLCAD# 

CDV 

POOL* 

DLOAO 

BPL 

GOTO 

CSU 

PUSH 

OLCAD* 

ODV 

POOL* 

DLOAD 

BPL 

GOTO 

CSU 


CLOAD 

VDEF 


ARCS  IN 
6 ,1 
COS 
BOVB 

SIGNMPAC 

SI 

DCCMP 
120  ,1 
ARCS  IN 
SI 
BPL 

n , 1 

CKTHETA 

DCOMP 

DAD 

SUHALFA 

DPHALF 

CALCPHI 

DPHALF 

DCCMP 

mo  ,1 
ARCS  IN 
SI 

BPL 

80,1 

OKPHI 

OCOMP 

DAC 

SUHALFAP 

DPHALF 

VECOFANG 

GOTC 

DPHALF 

VECOFANG 

PVQ 


t 
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PD  +n  PSI 

PD  +2  THETA 

MUST  CHECK  THE  SIGN  OF  COS(THETA) 

TO  DETERMINE  THE  PROPER  QUADRANT 


PUSH  DOWN  PHI 

PUSH  UP  PHI 

PUSH  UP  PHI 


I 

i 

j 

2 

> 

3 

0 

2 

> 

2 

2 

2 

2 

2 

> 


2 


GAP: 

L 

P0955 
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ROUTINES  FOR  TERMINATING  THE  AUTOMATIC  MANEUVER  AND  RETURNING  TC  USER 


17:53  OECo  19»1969  L EMCNA I Do XOA 
USER'S  PAGE  NOe  22 


PAGE 
E6  S3 


365 


0956 

0957  REF 

0958 


22,272A 
22i2725 
22f  2726 


77776  1 
C 5567  0 
00401  1 


TOOBADF  EXIT 


22,2727  1 2732  1 


TCF  NDGO 

TC  BANKC 

CADR  ZATTE 


0964  REF 

0965 

0966  REF 

0967  REF 

0968  REF 

0968  REF 

0969  REF 


13  LAST 

12  LAST 
8 LAST 
I 
1 

31  LAST 


334  22,2734  3 4752  0 

22,2735  0 C004  0 

298  22,2736  0 5203  0 

359  E6,1675 

22,2737  03234  1 

22,2740  44066  1 

338  22,2741  1 5155  1 


CAF  TWO 
INHINT 

TC  WAITLIST 

EBANK=  8C0U 
2CA0R  GOCOMANU 

TCF  ENCCFJCe 


0970 

0971  REF 


LAST  365 


22,2742  77776 

22  ,2743  1 2732 


1 TOOBAOI  EXIT 
1 TCF 


NOGO 


DO  NOT  ZERO  ATTITUDE  ERRORS 
ZERO  ATTITUDE  ERRORS 

STOP  RATES 

ALL  RETURNS  ARE  NOW  MADE  VIA  G00D6ND 


t 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PRCCBAM  LUMINARY  0Y  NASA  2021112-091 

L gimbal  lock  AVOICANCE 


ROOOA. 

R0005 

0006 


DETECTING  GIMBAL  LOCK 

REF  1 22,27AA 


0007 

0008 

0009 

0010 
0011. 
0012 
0013 

AOOl^ 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 
R0029 
R0030 


REF 

REF 

REF 

REF 


REF 

REF 


0031 

0031 

0032 

0032 

0033 

0033 

0034 

0034 

0035 
0035 

A0036 


LHCSKIRT  EQUALS  NOGIMLCC 


22,2744  77614  1 NCGIMLCC  SET 


LAST  296 


22,2745 
22' ,2  746 
22,2747 

22.2750 

22.2751 

22.2752 


01074 
70740  0 
01322  0 
04772  1 
45002  1 
44527  1 


CALCMAN3 

OLCAD* 

PATEINCX 

ARATE  ,1 

CALL 

OELCCMP 


22,2753 
LAST  366  22,2754 

LAST  363  22,2755 

22,2756 
LAST  354  22,2757 

22  ,2760 
22,2761 
LAST  366  22,2762 

22.2763 

22.2764 
22  ,2  765 

22.2766 

22.2767 
22,27 70 

THE  FOUR  SELECTABLE 


74343  0 
C4772  1 
03270  1 
17325  C 
03335  1 
55605  1 
05C02  0 
04772  1 
77661  0 
20606  0 
03333  1 
77614  1 
01035  0 
45010  1 
FREE  FALL  MANEUVER 


OOV* 

ANGLTI ME 
ARATE , 1 


STORE 

SETGO 


CALCMAN2 
NEWANGL  +1 
RATES  SELECTED  BY 


LCACING  RATEINOX  WITF  0,2, 4, 6,  RESPECTIVELY 


22.2771 

22.2772 
22  ,2773 

22.2774 

22.2775 

22.2776 

22.2777 
22  ,3000 
22,3C01 


00221  0 
24255  0 
00554  0 
C2660  0 
C2660  0 
13301  1 
16161  C 
30707  1 
00003  1 


22,3002  04000  0 


17:‘53  DEC;  19,1069  LEMnNAID-104  PAGE  366 
USER'S  PAGE  KCr.  1 EO  S3 


0OORR888886 


0O222222222 


«0e888e8868 


o 4444444444 


ANGLTIME  2CEC  „0001907349 


CHOOSE  THE  DESIRED  MANEUVER  RATE 
FROM  A LIST  OF  FOUR 

COMPUTE  THE  INCREMENTAL  ROTATION  MATRIX 
OEL  CORRESPONDING  TO  A 1 SEC  ROTATION 
ABOUT  COF 


COMPONENT  MANEUVER  PATES  ^5  OEG/SEC 


MANEUVER  EXECUTION  TTMF  SCALED  AS  T2 


O(OFF)  = CONTINUE  MANEUVER 
KON)  = START  MANEUVER 


0o2  DEG/SFC 
Oo5  DEG/SEC 
2oO  DEG/SEC 
10«0  CEG/SEC 
lOOB-19 


1 22..  5 OEG/SEC 
f 22e  5 DEG/SEC 
S 22c5  OEG/SEC 
* 22«5  DEG/SEC 
FUDGE  FACTOR  TO  CONVERT 


MANEUVER  ANGLE  TO  MANEUVER  TIME 


GAP; 

L 

ROOOl 

R0003 

OOOA 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 
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KALCMANU  STEERING 


USER’S  PAGE  N0«  1 EO  S3 


GENERATICN  OF  STEERING  CCMMANCS  FOR  DIGITAL  AUTOPILOT  FREE  FALL  MANEUVERS 


NEt^  COMMANDS  WILL  6E  GENERATED  EVERY  CNE  SECOND  DURING  THE  MANEUVER 
REF  1 E6,17C6  EPANK=  TTEMP 


REF 

REF 

REF 

REF 

REF 


REF 

REF 


REF 


REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF 

REF 


REF 


68  LAST  365 
1 

95  LAST  334 
3 LAST  365 
17  LAST  359 

6 LAST  353 
10  LAST  363 

2 LAST  353 

7 LAST  367 

8 LAST  367 

9 LAST  367 

10  LAST  367 

1 

1 

1 

2 LAST  366 
1 

14  LAST  365 
1 

2 LAST  367 
9 LAST  365 

3 LAST  367 
2 LAST  367 

4 LAST  366 


22.3004 

22.3005 

22.3006 

22.3007 
22  ,3010 

22.3011 

22.3012 
22  ,3013 

22.3014 

22.3015 
22  ,3016 
22,3017 

22.3020 

22.3021 

22.3022 
22  ,3023 

22.3024 

22.3025 
22  ,3026 
22,  3027 

22.3030 

22.3031 

22.3032 
22  ,3033 
22,3024 
22,3035 
22  ,3336 
22,3037 

22.3040 

22.3041 

22.3042 
22  ,3043 
22,2000 
22,3044 


0 4616  1 
54266  I 

1C  000  0 

1 2730  0 
C 6C42  1 

75160  1 
03245  1 
02230  1 
77624  1 
44312  I 
45575  I 
50515  0 
77626  0 
50523  0 
77626  0 
74531  0 
45160  1 
03245  1 
44F54  0 
77634  0 
21621  I 
03303  1 
77414  0 
01215  0 
45122  1 

2 4752  0 
55'261  1 
51’261  0 

3 1675  1 
C 0006  I 
5 1261  0 
21'702  1 
0 0006  1 


NEWCELhI  TC 

CADR 

CCS 

TCF 

NEWANGL  TC 

AXC,1 


CALL 


VLOAD 
STCVL 
STADR 
STOVL 
STADR 
STCRE 
AXC,  1 


RTB 


BANKCALL 

ISITAUTC 

NOGC  -2 
INTPRET 
AXC,  2 
MIS 
KEL 

MXM3 
STADR 
MIS  +12C 

MIS  +6D 

MI  S 
CALL 
MIS 

DC  MTOCOU 


VI STC2S 
STORE  NCDU 
aCNCLR  EXIT 

CALCMAN2 
MANUSTAT 
CAF  TWC 

INCROCCU  TS  SPNDX 

INDEX  SPNDX 
CA  BCOU 

EXTEND 

INDEX  SPNDX 
MSU  NCDU 
EXTEND 

SETLGC  KALCMONl 
BANK 


CHECK  FOR  AUTO  STABILIZATION 
ONLY 


COMPUTE  THE  NEW  MATRIX  FROM  S/C  TO 
STABLE  MEMBER  AXES 


CALCULATE  NFW  DESIRED  CPU  ANGLES 


PICK  UP  THE  NFW  COU  ANGLES  FROM  MATRIX 

NEW  COU  ANGLES 

TO  START  MANEUVER 

*0  OTHERWISE 


INITIAL  ecu  ANGLES 
OP  PREVIOUS  DESIRED  CDU  ANGLES 


REF  1 

REF  96  LAST  367 
REF  17  LAST  341 


REF  4 LAST  367 

REF  1 

REF  5 LAST  367 


22.3044  7 3121  1 

22.3045  10  OOO  0 

22.3046  6 4753  I 

22.3047  1 3051  1 

22.3050  4 0000  0 

22.3051  51'261  0 

22.3052  55'637  0 

22.3053  51'261  0 


MP  OT/TAU 
CCS  A 
AO  ONE 
TCF  +2 
COM 

INDEX  SPNDX 
TS  DELOCOU 
INDEX  SPNDX 


CONVERT  TO  2S  COMPLEMENT 


ANGLE  INCREMENTS  TO  BE  ADDED  TO 
COUXO,  COUYC,  CDUZC  EVERY  TENTH  SECOND 


GAP 
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00A8 

0049 

0050 

0051 

0052 

0053 

0054 


REF  3 LAST  367 

REF  6 LAST  367 

REF  10  LAST  367 

REF  7 LAST  368 

REF  7 LAST  354 

REF  8 LAST  368 

REF  1 


22.3054  3 1702  0 

22.3055  51'261  0 

22.3056  57*675  1 

22.3057  51*261  0 

22.3060  55*634  0 

22.3061  ll'2tl  1 

22.3062  1 3035  0 


CA 

INDEX 

XCh 

I NOEX 

TS 

CCS 

TCF 


NCCU 

SPNDX 

8C0U 

SPNDX 

CDUXO 

SPNCX 

I NCRDCDU 


0055 


22 ,3063  C 0003  1 


REL  INT 


R0056  COMPARE  PRESENT  TIME  V>ITH  TIME  TC  TERMINATE  MANEUVER 


0057 

0058 

0059 

0060 
0061 
0062 
0063 

0063 

0064 

0065 


REF 

REF 

REF 


REF  13 
REF  2 
REF  1 
REF  1 


KEF  32 


LAST  367 

LAST  365 
LAST  367 


LAST 


365 


22  ,3065 

22. 3066 

22.3067 
22,3070 
E6, 1706 
22  ,3071 

22.3072 

22.3073 
22  ,3074 


1 3170  0 
3 4753  1 
C 0004  0 
C 5203  0 

03213  1 
44066  1 
C 0003  I 
1 5155  1 


TMANUCHK 


MANUSTAL 


TC  TIMECHK 

TCF  CONTMANU 
CAF  ONE 
INHINT 

TC  VjAITLIST 

E6ANK=  TTEMP 
2CA0R  MANUSTOP 


RELINT 

TCF  ENDOFJO0 


0066 

0067  REF 

0068  REF 

0069 

0070  REF 

0071  REF 

0072  REF 

0073  REF 

0074 

0075  REF 

0076  REF 

0077  REF 

0078  REF 

0079 

0080  REF 

0081 

0062  REF 

0063  REF 

0084  REF 

0085  REF 


11  LAST  308 
3 LAST  368 


2 LAST  366 

4 LAST  368 

5 LAST  368 

36  LAST  338 

1 

6 LAST  368 

37  LAST  "168 
1 

1 

2 LAST  368 
3P  LAST  368 

39  LAST  368 

40  LAST  368 


22.3076 

22.3077 
22, 31C0 
22  ,3101 

22 .3 102 

22.3103 
22  ,3104 

22. 3105 

22.3106 

22.3107 
22,3110 
22  ,3111 

22.3112 

22.3113 

22.3114 

22.3115 

22.3116 

22.3117 
22,3120 


C 0C06  1 
4 0025  1 
53*707  1 
C OC06  1 

3 1733  1 
21*707  1 
11*706  0 
0 0002  0 
1 31C7  0 
1 3117  1 
11*707  1 

r 0002  0 

1 3113  0 

4 onoo  0 
6 3166  0 
0 0006  1 
6 3)17  0 
24  002  0 
24  002  0 
C 0002  0 


TIMECHK 


MANUOFF 


2NDRETRN 


EXTEND 

DCS  TIME2 

OXCH  TTEMP 

EXTEND 

OCA  TM 

DAS  TTEMP 

CCS  TTEMP 

TC  Q 

TCF  *2 

TCF  2N0BFTRN 

CCS  TTEMP  4l 

TC  0 

TCF  MANUOFF 

CCM 

AO  ONESEK  *l 

EXTEND 

BZMF  2NDRETRN 

INCR  0 

INCR  Q 

TC  0 


0086 


22,3121  03146 


CT/TAU  DEC 


0087 

0088 
0089 


REF  12  LAST  368 


22.3122  77776  1 

22.3123  0 0006  1 

22.3124  3 0025  0 


MANUSTAT 


EXIT 

extend 

DCA 


T IME2 


t 


I 

17:53  CEC.  19,1969  LEHQMVID,194  PSGE  368 

USER'S  PSGE  NC.,  2 E6  S3  3 

ev  LEM  DAP 

3 

’3 

LOOP  FOR  THREE  AXES 

3 

.s 

3 

3 

END  MAJOR  PART  OF  MANEUVER  WITHIN  1 SEC 

UNDER  WAITLIST  CALL  TO  PANUSTOP  J 

3 

3 

3 

3 

3 

3 

3 


O 


3 


3 

INITIALIZATION  ROUTINE 
FOR  AUTOMATIC  MANEUVERS 

) 


3 


3 


gap: 

L 

0090 

0091 

0092 

0093 

0094 

C )95 

0096 

0097 

0098 

0090 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0106 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0137 
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KALCMANU  STEER  ING 


USER’S  PAGE  NOo 


E6  S3 


REF  3 LAST 

REF  2 LAST 

REF  4 LAST 

REF  15  LAST 

REF  2 LAST 

REF  2 LAST 

REF  97  LAST 

REF  2 LAST 

REF  3 LAST 

REF  ^ LAST 


REF  1 

REF  3 LAST 

REF  3 LAST 

REF  4 LAST 

REF  4 LAST 

REF  5 LAST 

REF  1 

REF  6 LAST 

REF  1 


360 

369 


136 

367 

366 

369 

197 


369 

369 

369 

134 

369 


22.3125 

22.3126 

22.3127 
22  ,3130 

22.3121 

22.3122 
22  ,3133 
22, 3124 

22.3135 

22.3136 

22.3137 
22  ,3140 

22.3141 

22.3142 

22.3143 

22. 31 44 

22.3145 

22.3146 

22.3147 

22.3150 

22.3151 

22.3152 

22.3153 

22.3154 

22.3155 

22.3156 

22.3157 
22,3160 


21*733  0 
C 0006  1 
4 3166  1 
21*733  0 
C 0004  C 
3 4752  0 
55*  700  0 
6 COOO  1 
55*701  I 
50  000  1 

3 1724  1 
51*700  1 
55*642  1 
0 0006  1 

6 3145  1 

4 OCOO  0 
C 0006  1 

7 3167  0 
C 0006  1 

5 1701  0 
7 1724  0 
C 0006  1 
5 1700  1 
11*530  I 
51*700  1 
55*274  0 
11*700  0 
1 3133  1 


DAS 

EXTEND 

DCS 

CAS 

INhINT 

CAF 

RATEBIAS  TS 

DOUBLE 

TS 

INDEX 


INDEX 

TS 

EXTEND 

BZMF 

COM 

EXTEND 

MP 


EXTEND 

INDEX 


TM 

ONESEK 

TM 

TUO 

KSPNDX 

KOPNOX 

BRATE 

KSPNDX 

OMEGAPO 

+ 2 


BI  ASCALE 

KDPNOX 

BRATE 

KSPNDX 

1 JACC 

KSPNDX 

OELPFPCR 

KSPNDX 

RATEBIAS 


TM+TO  MANEUVER  COMPLETION  TIME 

{ TM+TOI-1 


STORE  MANEUVER  RATE  IN 
OMEGAPD,  OMEGAQD,  OMEGARO 

COMPUTE  ATTITUDE  ERROR 
OFFSET  = (WX}ABS(WXI/2AJX 
WHERE  AJX=  2-JET  ACCELERATION 
= -1/16 


=AJX  $ 90  OEG/SEC-SeC 
$ 180  OEG 


REF  3 
REF  3 
REF  1 
REF  2 


LAST  336 
LAST  369 

LAST  368 


22.3161 

22.3162 

22.3163 

22.3164 


2 0C25  0 
6 3166  0 
57*705  1 
1 3C34  1 


CA  TIMEl 

AD  ONESEK  +1 

XCH  NEXTIME 

TCF  INCROCOU  -1 


22.3165  00000  1 ONESEK 

22.3166  00144  0 


DEC 

DEC 


22,3167  75777 


BIASCALE  OCT 


75777 


-1/16 


REF  4 LAST 
REF  2 LAST 
REF  98  LAST 
REF  19  LAST 
REF  1 
REF  I 


REF  14  LAST 
REF  7 LAST 
REF  1 
REF  1 


369 

369 

369 

368 


22  ,3170 

22.3171 

22.3172 

22.3173 

22.3174 

22.3175 
22  ,3176 
22,3177 
22  ,3200 
E6,17C6 
22,3201 
22  ,3202 


4 0025  1 
6 1705  1 
10  000  0 
6 4753  1 
1 3177  1 
6 4735  1 
4 0000  0 
C 0004  0 
0 5203  0 

03206  0 

44066  I 


CCNTMANU  CS 
AD 
CCS 
AD 
TCF 
AO 
COM 

MANUCALL  INHINT 
TC 

EeANK= 

2CA0R 


T IMEl 

NEXTIME 

A 

ONE 

MANUCALL 

NEGMAX 


WAITL  1ST 

TTEMP 

UPOTCALL 


RESET  FOR  NEXT  OCDU  UPDATE 


CALL  FOR  NEXT  UPDATE  VIA  WAITLIST 
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0138 

0139 

0140 


ref  4 LAST  369 
REF  3 LAST  369 
REF  33  LAST  368 


22.3203  2 3U6  0 

22.3204  27*705  0 

22.3205  1 5155  1 


CAF  0N6SEK  +1 

ADS  NEXTIME 

TCF  ENDCFJCP 


0141 

0142 

0143 

0144 
01*^4 

0145 


REF  I 

REF  13  LAST  301 

REF  0 LAST  369 

REF  1 

REF  1 

REF  5 LAST  284 


22.3206  3 7717  1 UPCTCALL  CAF  PRI026 


22,3207  0 5105  0 

E6, 1706 

22  ,3210  03003  1 

22.3211  44C66  1 

22.3212  C 5261  1 


TC  FINDVAC 

E6ANK=  TTEMP 
2CADP  NEWDELHI 

TC  TASKOVEP 


t 

•» 
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USER'S  PAGE  NOe  A E6  S3  ^ ^ 

. ■■  ‘-U 

INCREREM  TIME  PER  NEXT  UPDATE  ^ 

SATELLITE  PRPGRAM  TC  CALL  FCR  UPDATE 

OF  STEERING  COMMANDS  ^ 

3 

) 

3 

3 

O 

0 

3 

3 


0 
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0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


39  LAST  330 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


371 

369 

367 

369 


LAST  234 


22.3213 

22.3214 

22.3215 
22,  3216 
22,3217 

22.3220 

22. 3221 

22.3222 

22.3223 

22.3224 

22.3225 

22.3226 

22.3227 

22.3230 

22.3231 

22.3232 

22.3233 

22.3234 

22.3235 


2 4755  I 
55'641  1 
55*644  1 
55*276  1 
55*640  0 
55*643  0 
55*275  1 

3 0323  0 
55*636  1 
3 0322  1 
55*635  1 
3 0321  1 
55*634  0 
3 4755  1 
55*642  I 
55*637  0 
55*274  0 
3 1306  0 
54  063  0 


MANUSTOP  CAF 


ENDROLL  CA 


GOOOMANU  CA 


ZERO 

DEL0CDU2 

DMEGARC 

DELRERCR 

DELOCDUl 

OMEGAQO 

OE  LOEROR 

CPSI 

CDUZO 

C THE TA 

COUYD 

CPHI 

CDUXD 

ZERO 

OMEGAPD 

DELDCDU 

DE  LPERCB 

ATTPR 10 

NEHPR  IC 


0168 

0169 


REF 

REF 


LAST  234 
LAST  370 


22,32A0  C 5116  1 
22,3241  0 5261  1 


SPVAC 
TA  SKOVER 
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USER'S  PAGE  NCe  5 E6  S3 


ZERO  MANEUVER  RATES 


SET  DESIRED  GIMPAL  ANGLES  TO 
DESIRED  FINAL  GIMPAL  ANGLES 

NO  FINAL  YAW 

InEo  MANEUVER  DID  NCT  GC  THRU 
GIMBAL  LOCK  ORIGINALLY 

RESTORE  USERS  PRIO 


ZERC  ATTCAOP 


RETURN  TO  USER 


GAP  : 

L 

0001 

0002 

0003 

0004 

0005 

R0006 

R0007 

R0006 

ROOlO 

ROOll 

A0012 

A0013 

A0014 

A0015 

A0016 

A0017 

ROOie 

R0020 

R0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

002<? 

0030 

A003] 

0032 

0033 

0034 

0035 

0036 

0037 


t 


ASSEMBLE 
SYSTEM 
REF  ^ 

REF  1 


REVISION  131 
TEST  STANDARD 
LAST  322 


CF  AGO  PPCGRAM  LUMINARY  BY  NASA  2021112-C°1 


LEAD  INS 


E5 , 1642 


EBANK=  XSM 


23f2045 

04,2000 


BANK  33 
SETLCC  E/PRGG 


04,2562 


BANK 


17:53  DEC*  I9,iq6«3 
USER'S  PAGE 


LEMGNAI0*ID4  page  372 
NCo  1 EO  S3 


ref  1 COUNT*  f$/P07 

SPECIAL  PROGRAMS  TO  EASE  THE  PANGS  OF  ERASABLE  MEMORY  PROGRAMS* 

E/BKCALL  FOR  DOING  8ANKCALLS  FROM  ANC  RETURNING  TO  ERASABLE* 

THIS  ROUTINE  IS  CALLABLE  FROM  ERASABLE  OR  FIXED*  LIKE  BANKCALLr  HOWEVER,  SWITCHING  BETWEEN  S3  AND  S4 
1 S NCT  POSSIBLE* 


0 

''o 


THE  CALLING  SEQUENCE  IS: 


CADR 

CADR 

RETURN 

RETURN 

RETURN 


BANKCALL 
E/BKCALL 
ROUTI N£ 
HERE  FROM 
HERE  FRCM 
HERE  FROM 


WHERE  YOU  WANT  TO  GO  IN  FIXED« 
DISPLAY  TERMINATE,  BAD  STALL  CR  TC  Q* 
DISPLAY  PROCEED  OR  GOOD  RETURN  FROM  STALL^ 
DISPLAY  ENTER  OR  RECYCLE* 


O 


THIS 

OTHER  EMEMORY 


ROUTINE  REQUIRES  TWC  ERASABLES 
PROGRAMS* 


( EBUF2, 


IN  UNSWITCHED  WHICH  ARE  UNSHARED  BY  INTERRUPTS  AND 


0 


A 


ARE  PRESERVED  THROUGH  BANKCALL 


AND  E/BKCALL* 


REF  3 LAST  246 

REF  1 

REF  2 LAST  372 

REF  11  LAST  221 

REF  3 LAST  306 

REF  3 LAST  372 

REF  4 LAST  372 


REF  2 LAST  219 


04,2562  52  134  O'  E/BKCALL  DXCH  8UF2 


04.2563  53*167  1 

04.2564  25*166  I 

C4,2565  3 0006  1 

04.2566  7 5012  0 

04.2567  27*167  1 

04.2570  51*166  1 

04.2571  2*7777  0 

04.2572  0 4622  0 


DXCH  EBUF2 

INCR  EBUF2 

CA  8BANK 

MASK  LOWIO 

ADS  EBUF2  +1 

NCX  EBUF? 

CA  P -1 

TC  SWCALL 


REF  5 LAST  372 

REF  6 LAST  372 

REF  7 LAST  372 


04.2573  0 2577  0 

04.2574  0 2576  1 

04.2575  25*166  1 

04  ,2576  25*166  1 

04,2577  53*167  I 

•04,2600  52  C06  0 


TC  +4 

TC  +2 

INCR  FBUF2 
INCR  EBUF2 
E/SWITCH  DXCH  E0UF2 
0TC6 


SAVE  A,L  AND  GET  OP  RETURN* 

SAVE  CP  RETURN* 

RETURN  +1  BECAUSE  DOUBLE  CADR* 

GET  CURRENT  EBANK*  (SBANK  SOMEDAY! 
FORM  0BCON*  (WAS  FBANK) 

GET  CADR  CF  ROUTINE* 

GO  TO  ROUTINE,  SETTING  0 TO  SWRETURN 
AND  RESTORING  A + L* 

TX  0,  V34,  OP  8A0  STALL  RETURN* 
PROCEED  OR  GOOD  STALL  RETURN* 

ENTER  OR  RECYCLE  RETURN* 


0 

0 

0 

) 


0 


0 


GAP:  ASSEPBL6  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C91 


17:53  DEC*  19,1969  L EMONA  IDr- ITA  PAGE  373 


L SYSTEM  TEST  STANDARD  LEAD  INS  USER'S  PAGE  NO*  2 E5  S3 

PO038  E/CALL  FOR  CALLING  A FIXED  MEMORY  INTERPRETIVE  SUBROUTINE  FRCM  ERASABLE  AND  RETURNING  TO  ERASABLE* 


A0042 

A0043 

A0046 


THE  CALLING  SEQUENCE  IS»*o 


RTB 

E/CALL 

CACR  ROUTINE  THE  INTERPRETIVE  SUBROUTINE  YOU  WANT* 

RETURNS  HERE  IN  INTERPRETIVE. 


0045  REF 

0046  REF 

0047  REF 

0048  REF 

0049  REF 

0050  REF 

0051  REF 

0052 

0053  REF 

0054 

0055  REF 

0056  REF 


1 

33  LAST 

34  LAST 

35  LAST 

36  LAST 

8 LAST 

18  LAST 

9 LAST 

10  LAST 

19  LAST 


338 
37  3 
373 
373 

372 
367 

373 

373 

373 


04.2601  22  164  1 E/CALL  LXCH 

04.2602  50  001  0 INDEX 

04.2603  3 CCCl  0 CA 

04.2604  24  001  0 INCR 

C4,26C5  24  001  0 INCR 

04,2606  53'167  1 DXCH 

04  ,2607  0 6042  1 TC 

04,2610  77624  1 CALL 

■>4,2611  01166  1 

04.2612  77776  1 FXlT 

04.2613  23'167  0 LXCH 

04.2614  1 6044  0 TC F 


L 

L 

L 

E6UF2 

INTPRET 

EBUF2 

E6UF2  +1 
INTPRET 


ADRES  -1  CF  CAORo 
CACR  IN  Ao 

RETURN  ADRES  IN  Lo 
STORE  CAOR  AND  RETURN* 


INDIRECTLY  EXECUTE  ROUTINE-,  IT  MUST 
LEAVE  VIA  RVQ  OR  EQUIVALENT: 

PICK  UP  RETURN* 

2 SET  LOC  AND  RETURN  TO  CALLER, 


gap:  assemble  REVISION  131  CF  AGC  PRCGRAP  LUMINARY  GY  NASA  2021112-091 

L SYSTEM  TEST  STANDARD  LEAD  INS 


17: 53  DEC.  19,1969 
USER'S  PAGE 


LEMONAID  109 
NOo  3 


PAGE 
E5  S3 


P0057 

R0058 

R006n 


E/ JOeisAK 


FCR  WAKING  UP 
This  ROUTINE  MUST  BE 
THE  CALL ING  SEQUENCE 


ERASABLE  MEMORY  JOBS. 

CALLED  IN  INTERRUPT  OR  WITH 
IS: 


INTERRUPTS  INHIBITED. 


A0061 
A0062 
A 0063 
A0069 
A0065 
A0066 
A0067 
A006e 
A0069 
A0070 


INhINT 


CA  WAKEADR  ADDRESS  OF  SIEEPING  JOB 

TC  IBNKCALL 

CACR  E/JOewAK 

0 RETURNS  HERE 


IF  YOU  DIO  AN  INHlNTo 


0071 

0072  REF 

0073 


LAST  372 


33,2045 

04,2000 

04,2615 


BANK  33 
SETLCC  E/PROG 
BANK 


0074  REF 


LAST  372  TO  374:  27  27* 


COUNT*  $S/Pn7 


0075 

0076 

0077 

0078 
0070 


REF  \ 
REF  17 
REF  1 
REF  2 
REF  1 


LAST  256 
LAST  373 


04.2615  0 5137 

04.2616  i 4741 

04.2617  50  064 

04.2620  26  164 

04.2621  0 0072 


I E/JOBVsAK  TC 
0 CS 

0 NOX 

0 ADS 

1 TC 


JGEWAKE 

BlTll 

LCCCTR 

LOC 

RUPTBEG3 


ARRIVE  IWTH  AORES  IN  A. 

KNOCK  FIXED  MEMORY  BIT  CUT  OF  ADRESo 
RETURN 


GAP:  ASSEMBLE  REVISION  131  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-091  17:53  DECo  19,1969  LEMONAIOdO^  PAGE  375 

L IMU  PERFORMANCE  TESTS  2 USER'S  PAGE  NOn  1 EP  S3 

ROOOl  NAME-  IMU  PERFORMANCE  TESTS  2 

R0(I02  CATE-  MARCH  20,1967 

R0003  BY-  SYSTEM  TEST  GROUP  464-6900  EXTo  1274 

ROOC4  MGONO,-  ZERO 

R0005  FUNCTIONAL  DESCRIPTION 


R0006  PCSITICMNG  ROUTINES  FOR  THE  IMU  PERFORMANCE  TESTS  AS  WELL  AS  SOME  OF 
R0007  THE  TESTS  THEMSELVES®  FOR  A -DESC  R I PT I ON  OF  THESE  SUBROUTINES  AND  THE 
R0008  OPERATING  PROCECURES  (TYPICALLY!  SEE  STG  MEMO  685o THEORETI CA L REFoE-1973 


0TC9 

0010  REF  2 LAST 

0011 

0012  REF  2 LAST 

00121  REF  2 LAST 


44 

126 
44  TO 


33  ,2045 
27,2000 
37,2002 
E5 ,1416 
44  : 


2# 


BANK  33 
SETLOC  IMU2 
BANK 

EBANK=  POSITON 
CCUNT#  $$/P07 


00122  REF 
00124 


37.2002  0 5311  1 REDO  TC  NFWMODEX 

37.2003  00007  0 MM  07 


0021  REF 

0022  REF 

0023  REF 

0024  REF 

0025  REF 
00251  REF 

0026  REF 

0027  REF 

0028  REF 

0029  REF 

0030  REF 

0031  REF 

0032  REF 

0033 

0034  REF 

0035  REF 

0036  REF 

0037 

0038  REF 

0039  REF 

0040  REF 

0041  REF 

0042  REF 

0043  REF 

0044  REF 

0045 

0046 


1 

42  LAST 
2 LAST 
1 

2 LAST 
1 

1 

1 

1 

1 

3 LAST 

1 

20  LAST 

2 LAST 

13  LAST 
2 LAST 

1 

68  LAST 

14  LAST 
1 

69  LAST 
* LAST 
1 


371 

128 

375 


336 


373 


128 

319 

128 


359 

375 

367 

342 


37,2004 
37  ,2005 

37.2006 

37.2007 

37 .2010 

37.2011 

37.2012 

37.2013 

37.2014 
37,201  5 

37.2016 

37.2017 
37  ,2020 

37.2021 

37.2022 

37.2023 

37. 2024 

37.2025 
37,2C26 
37,20  27 

37.2030 

37. 2031 

37.2032 

17.2033 

37.2034 

37.2035 

37.2036 


0 2325  1 
3 4755  1 
55*414  0 
55'44C  1 
55*441  0 
65*576  C 
3 4361  1 
55*  571  1 
3 2476  0 
0 2367  1 
3 4736  1 
55*664  0 
0 6042  1 
62545  1 
02403  I 
15046  1 
02401  0 
77434  1 
21615  0 
56‘  154  1 
55*044  I 
2 2473  0 
0 4616  1 
20477  ] 
C 2270  0 
0 2037  1 
C 203)  I 


GEDIMUTT  TC 
IMUEACK  CA 
TS 
TS 
TS 
TS 

NEPnSPL  CA 
TS 
CA 
TC 
CA 
TS 

GUESS  TC 
LATAZCHK  DLOAD 

STCDL 


RT8 

XCH 

TS 

CAF 

TC 

CADR 

TC 

TC 

TC 


I MUZERP 

ZERO 

NOXCTR 

TORONDX 

TORQNDX  +1 

nVFLCWCK 

DEC17 

ZERONOX 

XNBADR 

ZEROING 

HALF 

XNB 

INTPPET 

SL2 

LATITUDE 
DSPTEMl  +1 
AZIMUTH 
EXIT 
1 STC2S 
MPAC 
DSPTEMl 
VN0641 
BANKCALL 
GOFLASH 
ENDTESTl 
+ 2 
-5 


GAP  : 


ASSEMBLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  0Y  NASA  2021112-OP1 


L IMU  PERFORMANCE  TESTS  2 


0047  REF 

0048 

0049  REF 

0050  RbF 

0051  REF 

0052 

0053  REF 

0054  REF 

0055 

0056 

0057  REF 

0058  REF 

0059 

0060  REF 

0061  REF 

0062 

0063  RFF 

0064  REF 

0065 

0066  REF 

0067 

0068  REF 

0069  REF 

0070 

0071  REF 

0072  REF 

0073  REF 

0074  REF 

0075 

0076 

0077  REF 

0078  REF 

0079  REF 

0080  REF 

0081  REF 

0082  REF 

0084  REF 

0085 

00851  REF 

00852  REF 
008525  REF 
00653  REF 

00853  REF 
/OOB54  REF 

00855  REF 

00856  REF 

00857  REF 

00858  REF 

00859  REF 

0086  REF 


21  LAST  375 

15  last  375 
10  LAST  359 

3 LAST  375 

16  LAST  376 
3 LAST  375 


1 

4 LAST  376 


4 LAST  376 
1 


2 LAST  376 

2 LAST  376 
1 

70  LAST  375 
2 LAST  269 
35  LAST  295 
9 LAST  282 


3 LAST  375 
32  LAST  3^2 

2 LAST  231 

1 

4 LAST  376 
1 

1 

1 

1 

3 LAST  375 
1 

] 

\ 

1 

2 LAST  376 
2 LAST  374 
7 LAST  371 
1 

A3  LAST  375 


37,2037 

37.2040 

37.2041 

37.2042 

37. 2043 
37  ,2044 

37.2045 

37.2046 
37  ,2047 

37.2050 

37.2051 

37.2052 

37.2053 

37.2054 

37.2055 

37. 2056 

37.2057 

37.2060 

37.2061 

37.2062 

37. 2063 
37  ,2064 

37.2065 

37.2066 

37.2067 

37.2070 

37.2071 

37.2072 
37,  2073 
37,2')74 
37,2075 
37,  2076 
37  ,2077 
37,2100 
37,210  1 

37.2102 

37.2103 

37.2104 

37.2105 

37.2106 
E5  ,1416 
37,21C7 

37.2110 

37.2111 

37. 2112 

37.2113 

37.2114 

37.2115 

37.2116 

37.2117 


0 6042  1 
47135  C 

01045  1 
21577  I 
C2401  0 
60535  1 

01046  1 
02403  1 
57546  1 
77752  I 
16437  C 
02403  1 
72556  1 
16435  1 
02401  0 
73406  1 
02675  1 
16705  1 
77746  1 
02677  0 
77676  0 
36703  0 
47355  1 
77776  1 

0 4616  1 
16771  1 

3 4736  1 
7 0077  0 
C C0C6  1 

1 2076  0 
25*414  1 
0 5516  0 

00056  1 
0 2315  I 
11*414  0 
0 2126  0 
C 2320  1 
0 0006  1 
3 1575  1 
C 5277  0 


C2113  0 
76065  0 
3 2116  0 
C 5133  0 
3 2116  0 
0 5137  1 
C 5261  1 
76500  0 
3 4755  1 


POSGMBL 


TC  INTPRET 

SLCAO  RT0 

DSPT6M1 
CDULCGIC 
STCRE  AZIMUTH 
SLOAO  SR2 

OSPTEMl 

STCRE  LATITUDE 
COS  OCOMP 

SLl 

STOOL  WANGI 

LATITUDE 
SIN  SLl 
STOOL  WANGO 

AZIMUTH 
PUSH  SIN 
STORE  YNB  +2 
STCDL  ZNB  +4 
COS 

STCRE  YN8  +4 
DCDMP 

STCALL  ZNB  +2 
CALCGA 

EXIT 

TC  BANKCALL 

CAOR  IMUCOARS 
CAF  BIT14 
MASK  FLAGWR03 
E XTEND 
BZ  F +2 
INCR  NDXCTR 
TC  DOHNFLAG 

ACRES  GLOKFAIL 
TC  IMUSLLLG 

CCS  NDXCTR 
TC  PIPACHK 

TC  FIMMUDD 

EXTEND 

OCA  PERFCLAY 
TC  LONGCALL 

£BANK=  POSITON 
2CACR  GOESTIMS 


CA  ESTICAOR 

TC  JOeSLEEF 

GOESTIMS  CA  ESTICAOR 

TC  JOEWAKE 

TC  TASKCVEP 

ESTICACR  CADR  FSTIMS 

TCRCUE  CA  ZERO 


17: 53  DECo  19,1069 
USER’S  PAGE 


LEMONA  ID.  104 
NCo  2 


PAGE 
E5  S3 


376 


IF  BIT14  SET,  GIMBAL  LCCK 

+1  IF  IN  GIMBAL  LnCK,OTHFPHISE  0 

RESET  GIMBAL  LOCK  FLAG 

IF  ONE  GC  AND  DC  A PIPA  TEST  ONLY 
ALIGN  AND  MEASURE  VERTICAL  PIPA  RATE 


CFLAY  WHILE  SUSPENSION  STABILIZES 


GAP  : 

L 

0087 

0068 

0009 

0090 

009}. 

0092 

0093 

009A 

0095 

0096 

0('97 

0098 

0099 

0100 

0101 

0102 

0103 

OlOA 

0105 

0106 

0107 

0108 

0109 

Olio 

Oil) 

0112 

Oil? 

OllA 

0115 

0116 

U117 

one 

0119 

0120 

0121 

0122 

0123 

012A 

0125 

0125 

0126 

0127 

0128 

0129 

0130 


PAGE  377 


ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021U2-091  17:  53  DECo  19,1969  LEMONAIO-in^ 


IMU  PERFORMANCE  TESTS  2 


REF  7 LAST  319 

REF  1 

REF  8 LAST  377 

REF  A LAST  376 

REF  2 LAST  128 

REF  1 


37.2120  55*097  I 

37.2121  3 15CA  1 

37.2122  55*050  1 

37,2  123  5l'A16  0 

37,2129  55*920  1 

37,2125  0 2957  0 


TS  DSPTFM2 

CA  DRIFTI 

TS  DSPTFM2 

INDEX  PCSITON 

TS  SOUTHOR 

TC  SHOW 


USER'S  PAGF  NCp  3 E5  S3 


REF  5 LAST 

REF  1 
REF  2 LAST 
REF  1 
REF  1 
REF  2 LAST 
REF  20  LAST 
REF  1 
REF  A9  LAST 
REF  2 LAST 
REF  2 LAST 
REF  2 LAST 
REF  1 

REF  16  LAST 

REF  I 

REF  5 LAST 

REF  1 

REF  39  LAST 


376  37,2126 

37, 2127 
37,2130 

375  17,2121 
37,2132 
37,2123 

128  37,2129 

369  37,2135 

37,2136 

376  37,2137 

128  37,2190 

307  37,2191 

377  37,2192 
37,2193 
37,2199 

369  37,2195 
37,2)96 

372  E5,1692 

37  ,2197 

370  37,2150 


0 2997  1 

2 9361  1 
55*976  1 

3 2979  1 
55*912  0 
3 9753  X 
55*  537  0 

2 9755  1 
51*915  0 
59  037  I 
5 5 *’972  0 
0 2332  1 
C 0C09  0 

3 9752  0 
0 5173  1 

02151  0 
0 5155  0 


PI PACHK 


INDEX  NDXCTR 
TC  +1 

TC  FARTHR# 

CA  DEC17 

TS  DATAPL  +9 
CA  0EC58 

TS  LENGTHCT 

CA  ONE 

TS  RESULTCT 

CA  ZERO 

INDEX  PIPINDEX 
TS  PIPAX 

TS  DATAPL 
TC  CHECKG 

INHINT 
CAF  TWO 
TC  TWIDDLE 
EBANK=  XSM 
ACRES  PIPATASK 
TC  ENDCFJOe 


PIPA  TEST 


ALLOW  PIP  COUNTER  TO  OVERFLOW  17  TIMES 
IN  THE  ALLCTED  TIME  INTERVAL 


REF  3 
REF  9 

REF  1 
REF  19 
REF  2 
REF  6 
REF  2 
REF  2 
REF  19 
REF  7 
REF  1 
REF  1 
REF  8 


LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 


377 

377 


336 

377 

377 

377 

270 

370 

377 


376 


37 .2152 

37. 2153 

37.2159 

37.2155 

37.2156 

37.2157 
£5,1692 

37.2160 

37.2161 

37.2162 
E5 ,1692 

37.2163 
37,2169 
37  ,2165 


0 00C6  1 
27*912  0 
2 1912  1 
C 0006  1 
6 2161  0 

2 9792  1 
C 5173  1 

02151  0 

3 9736  1 
0 5105  0 

C2166  ) 
76065  0 
0 5261  1 


PIPATASK  EXTEND 

DIM  LENGTHOT 
CA  LENGTHCT 

EXTEND 

BZMF  STARTPIP 
CAF  BITIO 
TC  TWIDDLE 

EBANK=  XSM 
AORES  PIPATASK 
STARTPIP  CAF  PRI020 
TC  FINDVAC 

E6ANK=  XSM 
2CADR  PIPJ06B 

TC  TASKOVER 


REF  6 LAST  ?77 

REF  2 LAST  377 

REF  5 LAST  377 


37.2166  51*919  1 

37.2167  0 2170  0 

37.2170  0 2997  1 

37.2171  2 1912  1 


PI pjoae 


TC 

TC 

CA 


NDXCTR 
+ 1 

EARTHR# 

LENGTHCT 


gap: 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021U2-091 


L IMU  PERFORMANCE  TESTS  2 


0131 

0132 

0133 


REF  35  LAST  377 


37»2172  C 0006  1 

27.2173  6 2175  0 

37.2174  0 5155  0 


EXTEND 

8ZMF 

TC 


+ 2 

ENOOFJOB 


0134  REF  7 

0135  -REF  2 

0136  REF  2 

0137  REF  3 

0136 

0139  REF  1 

0140  REF  4 

0141  REF  5 

0142 

0143  REF  6 

0144  REF  7 


LAST  262 
LAST  377 
LAST  377 
LAST  377 


LAST  378 
LAST  378 

LAST  378 
LAST  378 


37.2175 

37.2176 

37.2177 

37.2200 

37.2201 

37.2202 
37, 2.203 

37.2204 

37.2205 

37. 2206 
37  ,2207 


3 4756  1 
55*537  0 
0 2332  1 
n'473  1 
0 2205  1 
0 5675  0 

4 1476  1 
55*476  1 
0 0006  1 
4 1473  1 
21*477  0 


CA  FIVE 

TS  PESULTCT 

TC  CHECKG 

CCS  OATAPL  +1 

TC  +4 

TC  CCSHDLE 

CS  DATAPL  +4 

TS  OATAPL  +4 

EXTEND 

DCS  DATAPL 

DAS  DATAPL  +4 


0145  REF 

0146 

0147  REF 
0)48  REF 

0149 

0150  REF 

0151  REF 

0152 

0153  REF 

0154 

0155  REF 

0156  REF 

0157  RFF 

0158 

0159  REF 

0160  REF 

0161  REF 

0162  REF 

0163  REF 

0164  REF 

0165  REF 

0166  REF 

01661  REF 

01662  BEF 

01663  REF 

01664  REF 

01665  REF 
0)666  REF 

01667  REF 

01668  REF 

01669  REF 
0166S1  REF 
016692  REF 

0167  REF 


22 


e 

9 

1 

1 

10 

1 

1 

g 


1 

2 

1 

6 


LAST  376 

LAST  378 
LAST  378 


LAST  378 


LAST  377 
LAST  377 
LAST  377 


LAST  377 
LAST  377 
LAST  377 


LAST  377 


LAST  302 


LAST  378 
LAST  376 

LAST  378 
LAST  376 
LAST  378 
LAST  378 
LAST  377 


37.2210  0 6C42  I 

37.2211  45345  1 

37.2212  02501  1 

37.2213  02475  0 

37.2214  45044  0 

37.2215  76217  1 

37.2216  76275  0 

37  ,2217  56325  0 

37.2220  02477  1 

37.2221  47075  0 

37  ,2222  37056  0 

37.2223  21613  0 

37 .2224  01050  0 

37.2225  77776  1 

37.2226  11*414  0 

37.2227  0 2301  1 

37.2230  0 2457  0 

37.2231  3 2471  1 

37.2232  55*412  0 

37.2233  51*416  0 

37.2234  4 1417  0 

37.2235  55*442  0 

37.2236  11*415  1 

37.2237  1 2245  I 

37,2240  i 4747  0 
37,224)  27*565  1 

37.2242  3 4747  1 

37.2243  27*567  0 

37.2244  1 2251  1 

37.2245  4 4747  0 

37.2246  27*565  1 

37  ,2247  3 4747  1 

37.2250  27*563  ) 

37.2251  C 2447  1 


TC 

DLOAO 


BPL 


AINGOTN  PCCL 


DMPR 


STORE 
EX  IT 
CCS 
TC 
TC 

VERTORFT  CA 
TS 

INDEX 

CS 

TS 

CCS 

TCF 

PCN2  CS 

AOS 
CA 
AOS 
TCF 

PCN4  CS 

ADS 
CA 
ADS 

PON  TC 


INTPRET 

DSL 

DATAPL  +6 
DATAPL  +2 
CALL 
AINGCTN 
OVERFFI X 
OPV 

DATAPL  +4 

RT8 

0EC585 

SGNAGREE 

0SPTEM2 

NDXCTR 
COAAL IGN 
SHOW 
39900EC 
L ENGTHOT 
PCSI TCN 
SOUTHDR  -2 
DRIFTT 
PI PINOEX 
PaN4 
61T5 

EPCOMP  +2 
BIT? 

EPCOMP  +4 

PON 

BIT? 

ERCOMP  42 
RIT5 
ERCOMP 
EARTHR* 


i 


i 

17:53  DEC,  19,1969  LEM0NAID,10a  PAGE  378 

USER'S  PAGE  NC«  ^ E5  S3  i 

i 

i 

i 


DEC585  HAS  BEEN  REDEFINED  FOR  LEM 

TAKE  PLATFORM  OUT  OF  GIMBAL  LOCK 
ABCUT  I HCUR  VERTICAL  DRIFT  TEST 

OFFSET  PLATFORM  TC  MISS  PIP  DEAD-ZONES 
Z UP  IN  POS  4 
X UP 


GAP: 

L 

0168 

0169 

0170 

0171 

0172 

0173 

017^ 

0175 

0176 

0177 

0178 

0179 

0160 

0181 

0182 

0183 

0184 

0185 

0186 
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IMU  PERFORMANCE  TESTS  2 


USER  'S  PAGE  NCo  5 E5  S3 


REF  45 
REF  2 
REF  3 
PEF  4 
REF  3 
REF  4 
REF  8 
REF  2 
REF  2 
REF  1 
PEF  10 
REF  46 
REF  11 
REF  3 


LAST  377 
LAST  128 
LAST  379 
LAST  221 
LAST  375 
LAST  379 
LAST  359 
LAST  128 
LAST  376 


LAST  378 
LAST  379 
LAST  379 
LAST  370 


37.2252 

37.2253 
37  ,’S2  54 

27. 2255 

37.2256 

37.2257 

37.2260 

37.2261 

37.2262 

37.2263 

37.2264 

37. 2265 

37.2266 

37.2267 


3 4755  1 
55*404  1 
55*405  0 
2 4733  1 
55*440  1 
55*441  0 

2 0032  0 
55*413  1 
C 25CC  0 

3 1502  1 
55*050  1 
2 4755  I 
55*047  I 
0 2457  0 


GUESSl 


VALMIS 


CA 

TS 

TS 

CAF 

TS 

TS 

CA 

TS 

TC 

CA 

TS 

CA 

TS 

TC 


ZERO 

ER  VECTOR 

EPVECTHR  +1 

POSMAX 

TORQNDX 

TORQNCX  +1 

CDUX 

LOSVEC 

ESTIMS 

DR  IFTQ 

DSPTEM2  +1 

ZERO 

DSPTEM2 

SHOW 


ALLOW  ONLY  SOUTH  GYRO  FARTH  RATE  COMPENS 


REF  33 
REF  3 
REF  47 
REF  2 
REF  29 


LAST  376 
LAST  289 
LAST  379 
LAST  234 
LAST  342 


37.2270 

37.2271 

37.2272 

37.2273 
37  ,2274 


0 5516  0 
00007  0 
4 4755  0 
0 5314  1 
C 5472  0 


ENDTESTl 


TC  OOWNFLAG 

ADRES  IMUSE 

CS  ZERO 

TC  NEWMODEA 

TC  ENDEXT 


GAP; 

L 

ni87 

oiee 

0189 

0190 

0191 

01  92 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0209 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0219 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0229 

0225 

0226 

0227 

0228 


i 
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IMU  performance  tests  2 


USER'S  PAGF  NCo  6 E5  S3 


REF 

REF 


3 LAST  302 
1 


37.2275  93215  0 OVERFFIX  DAC  DAD 

37.2276  06532  0 DPPOSMAX 

37.2277  37069  1 ONEDPP 

37,2300  77616  0 RVO 


REF  2 LAST 
REF  98  LAST 
REF  7 LAST 
REF  8 LAST 
REF  q LAST 
PEF  71  LAST 
REF  3 LAST 
REF  72  LAST 
REF  7 LAST 
REF  1 
REF  3 LAST 


37, 2301 

375  37,2302 

379  37,2303 

307  37,2  309 

380  37,2305 

380  37,23C6 

376  37,2307 

376  37,2310 

380  37,2311 

335  37,2312 

37,2313 
380  37,2319 


0 0006 
23'571 
3 9755 
59  321 
59  322 
59  323 
n 9616 
16771 
0 9616 
17707 
0 3097 
0 1571 


1 

0 

1 

0 

0 

1 

1 

1 

1 

1 

1 

0 


COAALIGN  EXTEND 
QXCH 
CA 
TS 
TS 
TS 
TC 

CACR 

ALIGNCOA  TC 

CADR 

TC 

TC 


ZERONDX 

ZERO 

THETAO 

THFTAD  +1 

THFTAD  +2 

BANKCALL 

IMUCOARS 

BANKCALL 

IMUSTALL 

SCMERR2 

ZERONDX 


COARSE  ALIGN  SUBROUTINE 


37,2315  0 0006  1 IMUSLLLG  EXTEND 

REF  9 LAST  380  37,2316  22'571  C CXCH  ZERONDX 

REF  1 37,2317  0 2311  0 TC  ALIGNCOA 


REF  5 LAST  380 

REF  73  LAST  380 

REF  2 LAST  275 

REF  2 LAST  380 


37.2320 

37.2321 

37.2322 

37.2323 
37,2329 


C 0006  1 
23'571  0 
0 9616  1 
17201  1 
0 2311  0 


ZERONDX 

BANKCALL 

IMUFINE 

ALIGNCCA 


REF  6 LAST  380 

REF  79  LAST  380 

REF  3 LAST  266 

REF  3 LAST  380 


37.2325 

37.2326 

37.2327 

37.2330 

37. 2331 


0 0006  I 
23»571  0 
e 9616  1 
16705  1 
C 2311  Q 


IMUZERR 


EXTEND 

QXCH  ZERONDX 
TC  BANKCALL 

CADR  IMUZERO 
TC  ALIGNCCA 


REF 


PEF 


REF 

REF 

REF 

REF 


2 


3 

7 


LAST 


LAST 


LAST 

LAST 

LAST 

LAST 


292 


269 


269 

378 

377 

380 


37.2332  0 0006  1 

37.2333  23*917  1 

37,2339  0 2392  0 

37.2335  0 0003  1 

37.2336  3 0067  0 

37.2337  0 0006  1 

37  ,2390  6 2396  1 

37.2391  C 5122  C 

37.2392  0 0009  0 

37,2?93  51'915  0 

37,2399  9 0037  1 

37  ,2395  55»571  1 

37,2396  r 0009  0 


CHECKG  EXTEND 
QXCH 
TC 

CHECKGl  RELINT 
CA 

EXTEND 

BZMF 

TC 

INHINT 
I NDEX 
CS 
TS 

I NHINT 


OPLACE 
+ 6 

NEWJOfl 
+ 6 

CHANGl 

PIPINCEX 
PI  PAX 
ZFRONDX 


PIP  PULSE  CATCHING  ROUTINE 


GAP  : 

L 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 
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IMU  PERFORMANCE  TESTS  2 


USER'S  PAGF  NCe  7 E5  S3 


REF 

REF 

REF 


REF  1 
REF  6 LAST 
REF  5 LAST 
REF  3 LAST 
REF  11  LAST 
REF  1 
REF  4 LAST 
REF  12  LAST 
REF  5 LAST 
REF  13  LAST 

REF  5 LAST 


380 

380 

360 


381 

381 

378 

378 

381 
381 
381 
38  1 

380 


37.2350 

37 .2351 
37  ,2352 
37,2353 
37  ,2354 

37.2355 

37.2356 

37.2357 

37.2360 

37.2361 

37.2362 

27.2363 
37  ,2364 

37.2365 

37. 2366 


2 CC37  0 
6 1571  C 
C 0006  1 
1 2335  1 
51'415  0 

3 0037  0 
51*537  I 
55*472  0 
C 4102  0 
51*537  1 
55*473  1 
51*537  1 
23*474  1 
0 0003  1 
0 1417  1 


ENDCHKG 


INDEX  PIPINOEX 
CA  PIPAX 

AO  ZFRONDX 

EXTEND 

BZF  CHECKGl 
INDEX  PIPINDEX 
CA  PIPAX 

INDEX  RESULTCT 
TS  DATAPL 

TC  FINETIME 

INDEX  RESULTCT 
TS  DATAPL  41 

INDEX  RESULTCT 
LXCH  DATAPL  +2 
RELINT 

TC  QPLACF 


REF  37  LAST  373 

REF  9 LAST  381 
REF  49  LAST  380 
REF  38  LAST  381 

REF  39  LAST  381 
REF  10  LAST  381 
REF  1 

PEF  41  LAST  368 


37,2367  54  001 

27.2370  1 2372 

37.2371  55*571. 

27.2372  3 4755 

37. 2373  «=€  CCl 

37.2374  54  000 

37.2375  24  001 

27.2376  11*571 

37.2377  1 2371 
37,2400  C 0CC2 


1 ZEROING  TS 
1 TCF 

1 ZEROINGl  TS 
1 CAF 

0 INDEX 

0 TS 

0 INCR 

1 CCS 

1 TCF 

0 TC 


gap: 


ASSEMBLE  REVISION  J31  OF  AGC  PKCGRAP  LUMINARY  BY  NASA  2C2U12-C9) 


L I MU  PERFCRMANCE  TESTS  2 


0256 

0259 

0260 
0261 
0262 
0263 
026A 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 


REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


I 

5 LAST 


6 LAST 


4 LAST 


3 LAST 
2 LAST 
2 LAST 
5 LAST 


376 


362 


379 


341 

126 

382 

378 


37.2401  65345  0 

37.2402  37057  1 

37.2403  02403  1 

37.2404  575^6  1 

37.2405  73525  \ 

37.2406  02403  1 

37.2407  74266  0 

37.2410  36001  0 

37.2411  02405  1 

37. 2412  77634  0 

37.2413  21574  1 

37.2414  26433  I 

37.2415  37057  1 

37.2416  02564  1 

37.2417  77616  0 


ERTt-RVSE  CLCAD 


COS 

POOL 

VDEF 

STORE 

RTB 


POOL 

SCHZERCS 

LATITUDE 

OCCMP 

SIN 

LATITUDE 

VXSC 

OMEG/MS 

ERVECTCR 


LOACT IME 
STCVL  TMARK 

SCHZERCS 
STORE  ERCOMP 
RVQ 


0276 

0277  REF 

0278  REF 

0279  REF 

0280 

0281  REF 

0282  REF 
0263 

02  84  REF 

0285 

0286 

0287  REF 
0286 

0289  REF 

0290  PEF 

0291  REF 

0292  REF 

0293  REF 

0294 

0295  REF 

0296  REF 

0297 

0298  REF 


3 

4 
2 

3 

1 

2 


5 


8 

1 


LAST  325 
LAST  382 
LAST  128 

LAST  382 


LAST  378 


LAST  382 

LAST  377 
LAST  382 
LAST  382 
LAST  382 
LAST  382 

LAST  382 


LAST  382 


37.2420 

37.2421 

37.2422 
37  ,2423 

37.2424 

37.2425 

37.2426 

37.2427 

37.2430 

37.2431 

37.2432 
37  ,2433 

37.2434 

37.2435 
37,24  36 
37,2437 

37.2440 

37.2441 

37.2442 

37.2443 

37.2444 

37.2445 

37.2446 


47020  0 
00051  0 
21574  1 
02431  0 
51025  1 
02433  1 
76431  0 
77624  1 
76275  0 
74261  1 
20212  1 
02405  1 
53321  1 
02643  1 
02564  1 
16564  1 
02431  0 
02433  1 
47170  1 
02563  0 
21706  0 
77650  1 
00051  0 


EARTHR  TTA 


STORE 

OSU 


CALL 

ERTHR  SL 

MXV 

STCDL 

STCKE 
A XT  ,1 
ECADR 

GOTO 


RTB 

S2 

LOADTI ME 

TEMPTIME 

BPL 

TMARK 

ERTHR 

DVEPFFI X 

VXSC 

90 

EPVECTOR 

VAO 

XSM 

ERCDMP 

ERCOMP 

TEMPTI  ME 

TMARK 

RTB 

EPCOMP 

PULSEIMU 

S2 


02991 

02992 

02993 

02994 

02995 

02996 

02997 
02996 


REF  2 LAST 
REF  23  LAST 


REF  1 


REF  2 LAST 
REF  3 LAST 


37,2447 
128  37,2450 

378  37,2451 

37,2452 
37  ,2453 
37,2454 
376  37,2455 

382  37,2456 


C C006  1 
23*420  0 
0 6042  1 
77624  1 
76420  0 
77776  1 
C 2315  1 
C 1420  0 


EARTHR* 


EXTEND 

OXCH  CPLACES 

TC  INTPRET 

CALL 

EARThR 

EXIT 

TC  IMLSLLLG 

TC  QPLACES 


0300 


37,  2457  C 0006  1 SHOl^  EXTEND 


i 


P024 


C.  19,1969 
USER*  S PAGF 

= (SIN 


L EMHNA  lOo 106 
NCo  8 

-COS 


PAGE  382 
E5  S3 

0) (OMEG/MS ) 


GAP: 

L 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0306 

0309 

0311 

0312 

0313 

0315 

0316 

0317 

0318 

0319 

0320 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 
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IMU  PERFORMANCE  TESTS  2 


USER'S  PAGE  NC. 


E5  S3 


REF  6 LAST 
REF  6 LAST 
REF  12  LAST 
REF  1 
REF  75  LAST 
REF  5 LAST 
REF  2 LAST 
REF  7 LAST 
REF  1 


381  37,2460 

378  37,2461 

379  37,2462 
37,2463 

380  37,246* 

375  37,2465 

375  37,2466 

383  37,2467 

37,2470 


23*417  1 
3 1416  0 SHOV-l 
55'051  0 
3 2472  I 
0 4616  1 
20477  1 
C 2270  0 

0 1417  1 

1 2461  1 


QXCK  QPLACE 

CA  PCSITCN 

TS  DSPTEM2  +2 
CA  VB06N98 

TC  BANKCALL 

CADR  GOFLASH 

TC  ENDTESTl 

TC  QPLACE 

TCF  SHCWl 


REF  2 LAST 


REF  9 LAST 

REF  3 LAST 

REF  2 LAST 

REF  9 LAST 

REF  1 


REF  1 

REF  40  LAST 

REF  2 LAST 


REF  3 LAST 
REF  41  LAST 
REF  5 LAST 
REF  42  LAST 

REF  2 LAST 

REF  1 

REF  42  LAST 


37,2471 
37  ,2472 

37.2473 
273  4361 

37.2474 
319  37,2475 

302  4777 

375  37,2476 

382  37,2477 

4102 


4102 

4103 

4104 
381  4105 

4106 

383  41C7 

4110 

4111 

4112 

383  4113 

383  4114 

379  4115 

383  *116 

4117 

381  4120 

4121 

4122 

381  4123 


C7626 

01542 

C1451 


1 

0 

0 


00072  1 
C2737  0 


01664  I 
C1642  0 


0 0004  0 
0 0006  1. 
rc  004  0 
54  OCl  I 
C 0006  1 
C6  C04  0 
0 0006  1 

1 41T5  I 
0 0006  1 

00  004  0 
56  OCl  1 
4 4733  0 
6 0001  0 
C 0006  1 

1 4103  0 
C 0006  1 
00  003  1 
0 0002  0 


39900EC  DEC 
Ve06N98  VN 
VN0641  VN 
0EC17 

CEC50  DEC 

OGCPL  FCAOR 

ISECX 

XNEADR  GENAOR 
XSMAOR  GENADR 
BLOCK 
COUNT* 
FINETIME  INHINT 
EXTEND 
READ 
TS 

EXTEND 

RXOR 

EXTEND 

BZF 

EXTEND 

READ 

TS 

+4  CS 

AD 

EXTEND 

8ZF 

EXTEND 
R FAD 
TC 


3990 

0698 

0641 

ND  1 

58 

CGC 

ISEC 

XNB 

XSM 


2 

t$/P07 


LOSCALAR 

L 

LOSCALAR 


LOSCALAR 

L 

POSMAX 

L 

FINETIME 

HI  SCALAR 
Q 


RETURNS  WITH  INTERRUPT  INHIBITED 


LEMONAin.  104  PAGE  ?8A 
NOo  1 EO  S3 


ROOOl  PRCGRAJ<'-1  RU  PERFOBf'ANCE  TESTS  4 

R0002  DATE-NOV  15,1966 

R0003  BY-  GEORGE  SChMIOT  IL7-146  EXT  1126 

R0004  ^'Cn  NC-2ERC 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091  17:53  DECo  19,1069 

L IMU  PERFORMANCE  TESTS  4 USER'S  PAGE 


R0005  FUNCTIONAL  OESCRIPTICN 

R0006  THIS  SECTIC^  CONSISTS  OF  THE  FILTER  FOR  TFE  GYRO  DRIFT  TESTS,  NO  COMPASS 
R0007  IS  DONE  IN  LEMo  FCR  A OESCRIFTl.CN  OF  THE  FILTER  SEE  E-1973o  THIS 

ROOOe  SECTION  IS  ENTERED  FROM  IMU  2o  IT  RETURNS  THERE  AT  END  CF  TEST® 

R0009  £ARTHR,'6gC  Z ERC  , ER  THR  VSE 

ROOlO  NORMAL  EXIT 

ROOll  LENGTHCT  GOES  TO  ZERC-RETURN  TO  IKU  PERF  TESTS  2 CONTROL 
R0012  ALARMS 

R0013  1600  OVERFLOW  IN  DRIFT  TEST 

R0014  16C1  BAD  IMU  MCCING  IN  ANY  PCUTINE  THAT  USES  IMUSTALL 

R0015  OUTPUT 

■r0016  FLASHING  DISPLAY  OF  RESULTS-CONTROLLEO  IN  IMU  PERF  TESTS  2 
R0017  DEBRIS 

R0018  ALL  CENTRALS-ALL  OF  EBANK  XSM 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211  12-091 


17:53  DECo  19,1969  LEMONAIDolO^  PAGE  385 


L IMU  PERFORMANCE  TESTS  4 


USER*  S PAGE  NC« 


EO  S3 


0019 

0020  REF  1 

0021 

0022  REF  3 LAST 


375  TO 


33,2045 
37,2000 
37,2500 
383  : 


318 


32C* 


BANK  33 
SETLOC  IMU4 
BANK 

CCUNT*  $S/P07 


0023 


REF  10  LAST  383  E5,1642 


E6ANK=  XSM 


0024 

0025  REF  1 

0026  REF  3 

0027  REF  n 

0028  REF  1 

0029  REF  50 

0030  REF  6 

0031  REF  1 

0032  REF  1 

0033 

0034  REF  1 

0035  REF  11 

0036  REF  1 

0037  REF  2 

0038  REF  24 

0039 

0040  REF  3 

004J  REF  10 

0042  REF  1 

0043  REF  1 

0044  REF  4 

0045  REF  6 

0046  REF  23 

00461 

00462  REF  5 

0046  3 

00464  REF  1 

0047 

00471  REF  1 

00472 

0048  REF  1 


LAST  377 
LAST  385 

LAST  381 
LAST  381 


LAST  381 

LAST 
LAST 

LAST  382 
LAST  338 


LAST  385 
LAST  331 
LAST  339 

LAST  379 


37  ,2  500 
37,  25C1 

37.2502 
E5,1642 

37.2503 

37.2504 

37.2505 

37.2506 

37.2507 

37.2510 

37.2511 

37.2512 

37. 2513 

37.2514 

37.2515 

37.2516 

37.2517 

37.2520 

37.2521 

37.2522 

37.2523 
37  ,2524 

37.2525 

37.2526 

37.2527 

37.2530 

37.2531 

37.2532 

37.2533 
37  ,2534 
37,2535 


0 0004  0 
31*572  0 
0 *^173  1 

02536  0 
3 4755  1 
54  C37  I 
54  04C  1 
54  041  0 
C.  0003  1 
3 3075  0 
55*  571  1 
3 3076  0 
0 2367  1 
0 6042  1 
77735  0 
37057  1 
25477  1 
37070  1 
26445  0 
37057  1 
00325  0 
01472  I 
77735  0 
■02441  1 
5CC76  0 
76534  1 
77624  1 
76401  0 
77776  1 
C 3035  1 


375 

382 


eSTIMS 


INI-INT 

CAE  ISECXT 
TC  TWIDDLE 

£BANK=  XSM 
ADRES  ALLOOP 
CAF  ZERO 
TS  PIPAX 

TS  PIPAY 

TS  PIPAZ 

RELINT 

CA  77DECML 

TS  ZERONOX 

CA  ALXXXZ 

TC  ZFROING 

TC  INTPRFT 

SLOAD 

SCHZFROS 

STCVL  GCCMPSW  -I 
INTVAL  +2 
STCVL  ALXIS 

SCHZEROS 
STORE  DELVX 
STCRE  GCCMP 
SLOAD 

TORQNDX 
OCOMP  BMN 

VERTSKIP 

CALL 

ERTHRVSE 


VERTSKIP  EXIT 

TC  SLEEPIE  +l 


ZERO  THE  PIPAS 


GAP ; 


ASS6^'&LE  REVISION  131  OF  AGC  PRCGRAf^.  LUMINARY  8Y  NASA  202U12-'^91 


L IMU  PERFORMANCE  TESTS  A 


00481  REF 
004815 

00482 

00483  REF 

0049  REF 

0050  REF 

0051  REF 

0052  REF 

0053  REF 

00531  REF 

00532  REF 

00533 

00534 

0054  REF 

0055 

0056 

0057  REF 

0058  REF 

0059  REF 

0060  REF 

0061  REF 

0062  REF 

0063  REF 

0064  REF 

0065  REF 

0066  REF 

0067  REF 

0068  REF 

0069  REF 

0070  REF 

0071  REF 

0072  REF 

0073  REF 
0073  REF 
0076  REF 


2 LAST 


• 9 LAST 
1 

99  LAST 
1 

100  LAST 
2 LAST 
21  LAST 
1 


7 LAST 


2 LAST 

6 LAST 

12  LAST 
2 LAST 

51  LAST 

7 LAST 
7 LAST 

52  LAST 
2 LAST 
4 LAST 

53  LAST 

2 LAST 

3 LAST 
3 LAST 

15  LAST 

13  LAST 
I 

1 

10  LAST 


375 


377 


369 


386 

386 

377 


378 


365 

385 

385 

385 

365 

385 

385 

386 

385 

331 

386 

385 

332 
377 
377 

386 


386 


37.2536 

37.2537 

37.2540 

37.2541 

37. 2542 

37.2543 

37.2544 

37.2545 

37.2546 

37.2547 

37.2550 

37.2551 

27.2552 

37.2553 

37.2554 

37. 2555 
37  ,2  556 
37,2557 
E5, 1642 

37.2560 

27. 2561 

37.2562 

37.2563 

37. 2564 

37.2565 

37.2566 

37.2567 

37.2570 

37.2571 

37.2572 

37.2573 
E5, 1642 

37.2574 

37.2575 

37.2576 


3 1576  1 
C CCC6  I 
1 2542  1 
C 5261  1 
11*530  1 

3 0000  1 
55*531  0 

4 0000  0 
55*530  1 
4 4753  0 
6 1562  1 
0 0006  1 
1 2556  1 
3 1412  1 
C 0006  1 
6 2562  1 
31*572  0 
C 5173  1 

02536  0 
3 4755  1 
56  037  0 
54  324  0 
3 4755  1 
56  040  0 
54  326  1 
3 4755  1 
56  041  1 
54  330  C 
3 4736  I 
0 5105  0 

02577  0 

76065  0 
0 5261  1 


ALLQOP 


SPECSTS 


CA  OVFLOWCK 

EXTEND 
BZF  +2 

TC  TASKCVER 

CCS  ALTIW 

CA  A 

TS  ALT  IMS 

CS  A 

TS  ALTIM 

CS  ONE 

AD  GEOCOMPS 

EXTEND 
BZF  +4 

CA  LENGTHOT 

EXTEND 
BZMF  +5 

CAE  ISECXT 

TC  TWIDDLE 

EBANK=  XSM 
ADRES  ALLOOP 

CAF  ZERC 

XCF  PIPAX 

TS  OELVX 

CAF  ZERC 

XCF  PIPAY 

TS  DELVY 

CAF  ZERO 

XCF  PIPAZ 

TS  DELVZ 

CAF  PRI020 

TC  FINDVAC 

EBANK=  XSM 
2CADR  ALFLT 

TC  TASKOVER 


€ 


17:53  DECo  19,1969  LEMONAIO. 104  PAGE  386 
USER*S  PAGF  NCo  3 E5  S3 


SHOULD  NEVEP  HIT  THIS  LCCATIOM 


START  THE  JOB 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


I MU  PERFORMANCE  TESTS  9 


0075 

0076 
00761 

0077 

0078 

0079 

0080 
0081 
0082 
00821 
00822 
008231 
008232 
008233 
00823A 
008235 
008236 


LAST  386 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


383 

385 

385 
364 

386 

386 
375 

387 


37, 2577 
37,2600 
37,26C1 
27, 26C2 
37,2603 
37,26C4 

37.2605 

37.2606 

27.2607 

37.2610 

37.2611 

37.2612 
37  ,2613 

37.2614 

37.2615 
37  ,2616 
27,2617 


11*562  0 
0 2602  1 
0 2604  1 
C 4616  1 
15271  1 
C 6042  1 
77745  1 
37066  0 
24C51  0 
00325  0 
76505  0 
02643  1 
57545  I 
00160  0 
16523  1 
00162  1 
C2527  0 


NCRMLCP  TC 


GECCCMFS 
+ 2 

NCRMLOP 

8ANKCALL 

1/PIPA 

INTPRET 

INTVAL 

SI 

OELVX 
VSLl 
XSM 
DCOMP 
MPAC  +3 
DPIPAY 
MPAC  +5 
DPI PAZ 


REF 


008237 

00824 

00825 

00826 
00827 
0082  8 
00829  REF 

0083 

0084  REF 

0085  REF 

0086 

0087 

0088  REF 

0089 

0090  REF 

0091 

0092  PEF 

0093 

0094  REF 

0095  REF 


LAST  387 


LAST  385 


37.2620 

37.2621 

37.2622 

37.2623 

37.2624 

37.2625 

37 .2626 

37.2627 

37.2630 

37.2631 

37.2632 
37  ,2633 

37.2634 

37.2635 
37,26  36 
37,2637 
37,?640 

37.2641 

37. 2642 

37.2643 


76001  1 
00001  0 
COOlO  0 
57535'  0 
02563  0 
7764P  0 
76772  1 
50135  0 
02532  1 
76644  0 
72174  0 
00014  I 
02444  I 
62143  0 
02243  0 
77775  1 
12545  0 
66104  1 
76635  0 
02444  1 


SETPD  AXT.l 


SLOAO  DCOMP 

GEGCOMPS 


BMN 

SLOAD 


PERFERAS 
BMN 
ALTIMS 
ALFLT3 

AXT,2  LXA.l 
120 
ALXIS 

OLOAD*  INCR,1 

ALFDK  +1440,1 


+100,2 


TIX,2  SXA,1 
ALKCG2 


01074 

01075 
0108 

0109 

0110 
0111 
01  12 

0113 

0114 

0115 

0116 


REF 

REF 


REF 

REF 


2 LAST  387 


LAST  387 


37.2644 

37.2645 

37 .2646 

27. 2647 

27.2650 

37.2651 

27.2652 
37  ,2653 

37.2654 

37.2655 

37.2656 


7777C  1 
COOlO  0 
41343  0 
C2533  0 
37100  1 
43661  1 
21212  0 
02501  1 
C650)  Q 
40725  0 
37102  0 


ALFLT3 

CELMLP 


AXTiJ 


60 


DLCAO*  OMP 

DPIPAY  +80,1 
PI  PA  SC 

SLR  BOSU* 

90 

INTY  +80,1 
STCRE  INTY  +8C,1 
POOL  OMP# 

VELSC 


17:53  DEC:  19,1969  LEMCNAIDrl04  PAGE  387 


USER  ' S PAGE  NOe  4 


F5  S3 


LOADS  SLOPES  AND  TIME  CONSTANTS  AT  POST 


V 


GAP : 

L 

0117 

0118 

01J9 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0120 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 


ASSEf'BLE  REVISION  131  CF  AGC  PPCGFAr'  LUMINARY  0Y  NASA  2021112-091 


17:53  OECo  19,1«»69  LEM0NArDoin4 


PAGE  386 


IMU  PERFORMANCE  TESTS  4 


USER'S  PAGE  NOo 


E5  S3 


REF  1 


REF  I 

REF  2 LAST 

REF  ‘ 1 


REF  2 LAST 

REF  2 LAST 

REF  3 LAST 

REF  1 


REF  1 

REF  2 LAST 

REF  4 LAST 

REF  3 LAST 

PEF  3 LAST 

REF  4 LAST 

REF  5 LAST 

REF  3 LAST 

REF  6 LAST 

REF  4 LAST 

REF  5 LAST 

REF  6 LAST 

REF  1 

REF  5 LAST 

REF  2 LAST 

REF  3 LAST 

REF  1 


37,2657 

37.2660 

37.2661 
37  ,2662 

388  37,2663 

37,2664 
37,2  665 

37.2666 

37.2667 
129  37,2670 

387  37,2671 

368  37,2672 

37.2673 

37.2674 

37.2675 

37.2676 

37.2677 

388  37,2700 
37,2701 

388  37,2702 

388  37,2703 

37, 2704 

387  37,2705 

388  37,2706 
37,2707 

388  37,2710 

388  37,2711 

388  37,2712 

37,2713 
380  37,2714 

388  37,2715 

388  37,2716 

37 ,2717 
37  ,2720 
388  37,2721 

37,2722 
388  37,2723 

380  37,2724 

37  ,2725 

37.2726 

37.2727 


02521  0 
7773?  1 
45425  0 
71216  1 
06563  1 
77100  0 
76646  1 
00004  0 

56743  1 ALILP 
75324  0 
75240  C 
12453  0 
77104  1 
76667  1 
00010  0 

66140  1 ALKLP 
02445  0 
02445  0 
56743  1 
02450  1 
75216  0 
77613  0 
75276  0 
12501  0 
42743  1 
75314  0 
75230  1 
12463  0 
42673  0 
75216  C 
75266  1 
12511  1 
40743  0 
37105  1 
75216  C 
42772  0 
75256  1 
12521  1 
76104  0 
76676  1 
00010  0 


VLAUN  +00,1 

SL2R 

DSU  STAOR 
STORE  DELM  +80,1 
STCRE  DELM  +10C,1 
TIX,1  AXT,2 
OELMLP 
4 

OLOAO*  DMPR# 

ALK 

ALOK  +4,2 
STORE  ALK  +4,2 
TIX,2  AXT,2 
ALILP 
80 

LXCtl  SXA,1 
CMPXl 
CMPXl 
DLOAD*  DMPR# 

ALK  +1,1 
DELM  +8C,2 

DAD# 

INTV  +8C,2 
STCRE  INTY  +80,2 
DLOAD*  DAD* 

ALK  +120,2 
ALOK  +120,2 
STORE  ALK  +120,2 
OMPR*  DAC* 

DELM  +80,2 
INTY  +160,2 
STCRE  INTY  +160,2 
DLOAD*  DMP* 

ALSK  +1,1 
DELM  +80,2 
SLIR  DAD* 

VLAUN  +80,2 
STORE  VLAUN  +80,2 
TIX,2  AXT,1 
ALKLP 
60 


REF 

REF 

REF 

REF 


1 

4 last  380 
I 


2 LAST  118 


37.2730  64743  0 

37.2731  02523  1 

37.2732  02521  0 

37.2733  55523  0 

37.2734  C2531  1 

37.2735  76521  0 

37.2736  02001  1 


LOOSE 


CLCAD*  POOL* 

ACCWO  +80,1 
VLAUN  +80,1 
POOL*  VOEF 

PCSNV  +80,1 
MXV  VSLl 

TRANSMl 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-0<?1 
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L IPU  PERFORMANCE  TESTS  A 


USER'S  PAGE  NC«  f 


E5  S3 


0165 

0166  REF  71 

0167  REF  2 

0168 

0169  REF  72 

0170  REF  5 

0171 

0172  REF  73 

0173  REF  2 

0174 

0175  PEF  1 


37,2737  77745  I 

LAST  387  37,2740  C0155  0 

LAST  388  37,2741  06531  0 

37,2742  77745  1 

LAST  389  37,2743  00160  0 

LAST  388  37,2744  06521  I 

37,2745  77745  1 

LAST  389  27,2746  C0162  1 

LAST  388  37  ,2747  06523  0 

37.2750  777C0  0 

37.2751  76730  1 


DLOAO 

MPAC 

STORE  POSNV  +80,1 
CLCAD 

MPAC  +3 

STORE  VLAUN  +80,1 
OLCAO 

MPAC  +5 

STORE  ACCWD  +80,1 
TIX.I 

LOOSE 


0176 

0177 
C17& 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 


REF 

REF 


REF 


REF 


2 


1 


LAST 


253 


37. 2753 

37.2754 

37.2755 

37.2756 
37  ,2757 

37.2760 

37.2761 

37.2762 

27.2763 

37.2764 

37.2765 

27.2766 
37  ,2767 
37,?770 
37,2771 


76174 

OOC06 

00002 

57343 

02503 

37110 

77722 

73406 

56072 

CCC46 

10021 

77745 

77746 
10027 
77704 
76755 


1 

0 

1 

0 

0 

0 

1 

1 

0 

0 

1 

1 

0 

1 

1 


80CP 


AXT,2  AXTtl 
6 
2 

DLCAC*  DMPR 

ANGX  +2, 
GEORGEJ 

SR2R 

PUSH  SIN 
SL3R  XAD,1 
XI 

STORE  160,2 

OLCAD 

COS 

STORE  22D,2 
TIX,2 

800P 


1 


EVALUATE  SINES  AND  COSINES 


COSINES 


0192 

0193 

0194 

0195 

0196 


37,2772  77776  1 

REF  1 37,2773  2 5016  0 

REF  11  LAST  328  37,2774  54  003  0 

REF  1 E7,1400 

REF  2 LAST  389  37,2775  C 1400  1 


PERFERAS  EX  IT 

CA  EBANK7 

TS  EBANK 

E6ANK=  ATIGINC 
TC  ATIGINC 


GOTO  ERASABLE  TO  CALCULATE  CNLY  TO  RETN 


R0197  CALTICN 

R0198  THE  ERASABLE  PROGRAM  THAT  DCES  THE  CALCULATIONS  MUST  BE  LCACEC 
R0199  BEFORE  ANY  ATTEMPT  IS  MACE  TC  RUN  TFE  IMU  PERFORMANCE  TEST 


01995  REF 

0290  REF 

0291  REF 

0292  REF 

0293 

0294  REF 

0295  REF 

0296  REF 


LAST  376 
LAST  386 
LAST  385 
LAST  385 


LAST 

LAST 


E5,1400 

37.2776 

37.2777 

37.3000 

37.3001 

37.3002 

37.3003 

37.3004 


11*412  0 

0 3034  0 
11'440  1 

1 30C3  0 
C 3005  1 
3 CC32  0 
55*414  0 


379 

379 


EeANK=  AZIMUTH 
CCS  LENGTHCT 

TC  SLEEPIE 

CCS  TORONCX 

TCF  +2 

TC  SETUPERl 

CA  CDUX 

TS  LOSVEC  +1 


FOR  TROUBLESHGCTING  VD  POSNS  2S4 


GAP 


ASSEN8LE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  RY  NASA  2021112-091 


L 

I ML 

PERFORMANCE  TESTS  4 

0297 

REF 

26 

LAST 

387 

37,3005 

C 6042 

1 

SETLPERl 

TC 

INTPRET 

02  98 

37,3006 

65345 

0 

DLOAD 

POOL 

0299 

REF 

1 

37,3007 

C2473 

0 

ANGZ 

0300 

REF 

1 

37,3010 

C2477 

1 

ANGY 

0301 

37,3011 

55525 

0 

POOL 

VDEF 

0302 

REF 

2 

LAST 

389 

37,3012 

02501 

1 

ANGX 

0303 

37, 3013 

74276 

1 

VC  CMP 

vxsc 

0304 

REF 

2 

LAST 

389 

37  ,3014 

37110 

0 

GEORGEJ 

0305 

37,3015 

74521 

1 

MXV 

VSRl 

0306 

REF 

15 

LAST 

307 

37,3016 

02643 

1 

XSM 

0307 

REF 

10 

LAST 

383 

37  ,3017 

02740 

0 

STCRF 

OGC 

0308 

37, 3C20 

77776 

1 

EXIT 

0309 

REF 

1 

37,3021 

3 2475 

0 

CA 

CIGCPL 

0310 

REF 

77 

LAST 

387 

37,3022 

C 4616 

1 

TC 

BANKCALL 

031 1 

REF 

3 

LAST 

335 

37,3023 

17314 

1 

CAOR 

I MUPUl  SE 

0312 

REF 

3 

LAST 

382 

37,3024 

0 2335 

1 

TC 

IMUSLLLG 

0313 

REF 

7 

LAST 

389 

37,3025 

T1'440 

1 

GE0STRT4 

CCS 

TORQNCX 

0314 

REF 

1 

37 ,3026 

0 2263 

1 

TC 

VALMI  S 

0315 

REF 

27 

LAST 

390 

37,3027 

0 6042 

1 

TC 

INTPRET 

03151 

37,3030 

77624 

1 

CALL 

03152 

REF 

2 

LAST 

385 

37,3031 

76403 

0 

ERTHRVSE 

03153 

37,3032 

77776 

1 

EX  IT 

0316 

REF 

1 

37,3033 

0 2117 

1 

TC 

TCRCUF 

0317 

REF 

9 

LAST 

389 

37,3034 

55*412 

0 

SLGEPIE 

TS 

LFNGTHOT 

0318 

REF 

8 

LAST 

39P 

37,3035 

11 *440 

1 

CCS 

TnRQNDX 

0319 

REF 

LAST 

37  8 

37,3036 

0 2447 

1 

TC 

EARTHR» 

0320 

REF 

36 

LAST 

378 

37  ,3037 

0 5155 

0 

TC 

ENDOFJCB 

0321 

REF 

1 

37,3040 

2 5C14 

1 

SOMEERRR 

CA 

EBANK5 

0321  1 

REF 

12 

LAST 

38« 

37,30*1 

54  003 

0 

TS 

FBANK 

03212 

REF 

22 

LAST 

366 

37,3042 

3 4753 

1 

CA 

ONE 

0321  3 

REF 

3 

LAST 

366 

37 ,3043 

55*576 

0 

TS 

OVFLOWCK 

03214 

REF 

19 

LAST 

365 

37,3044 

0 5567 

0 

TC 

ALARM 

0322 

37,3045 

C1600 

0 

nCT 

1600 

0323 

REF 

3 

LAST 

383 

37 ,3046 

0 2270 

0 

TC 

END TE  STl 

0324 

REF 

1 

37  ,3047 

3 3054 

0 

SCMERR2 

CAF 

0CT1601 

0325 

RFF 

2 

LAST 

182 

27,3050 

C 5734 

1 

TC 

VARALARM 

0330 

REF 

3^ 

LAST 

379 

37,3051 

C 5516 

0 

TC 

DDWNFLAG 

0331 

REF 

4 

LAST 

379 

37,3052 

00007 

0 

ADRES 

I MUSE 

0332 

REF 

37 

LAST 

390 

37,3053 

C 5155 

0 

TC 

ENOOFJOB 

0333 

37  ,3054 

01601 

1 

OCT1601 

OCT 

(1601 

0334 

27,3055 

C6200 

0 

DEC585 

OCT 

06200 

0335 

37,3056 

00000 

1 

SCHZEROS 

2DEC 

oCnOOOOOO 

0335 

37,3057 

00000 

1 

I 


17:53  DECa  19,1969  L FMONA ID- 104  PAGE  390 
USER  'S  PAGE  NCt  7 E5  S3 

ANGLES  FROM  ORIFT  TEST  ONLY 


ONLY  POSITIVE  IF  IN  VERTICAL  ORIFT  TFST 


TEST  NOT  OVER-OFCRFMENT  LFNGTHOT 
ARE  WE  GOING  VERTDRIFT 


STOP  ALLCCP  FRCP  C/LLING  ITSELF 


3200  B+14 


ORDER  IS  IMPORTANT 


GAP : 

L 

0336 

0336 

0337 

0338 

0339 

03^0 

03A1 

0342 

03^3 

0344 

0344 

0345 

0345 

0346 

0347 

0348 

0348 

0349 

0349 

0350 

0350 

0351 

0351 

0352 

0352 

0353 

0353 
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IMU  PERFORMANCE  TESTS  4 


USER’S  PAGE  NO*  P E5  S3 


37.3060  00000  1 2DEC  oOOOOOOOO 

37.3061  00000  1 

37.3062  fOCOO  1 OCT  00000 

37.3063  00000  1 ONECPP  OCT  00000  ORDER  TS  IMPORTANT 

37.3064  COOOl  0 OCT  00001 


37.3065  00004  0 

37.3066  00002  0 

37.3067  C0220  1 

37.3070  77776  1 

37.3071  35730  0 

37.3072  00035  1 

37.3073  10317  0 

37.3074  17550  1 


INTVAL  OCT  4 

OCT  2 
CEC  )44 
DEC  -1 

SOUPLY  20EC  <>93505870 

2DEC  .26266423 


INITIAL  GAINS  FOR  PIP  OUTPUTS 
INITIAL  GAINS/4  FCR  EPECTICN  ANGLES 


REF 


LAST 


37,3075  00115  1 

387  37,3076  01443  0 

37,3077  04133  1 

37.3100  02265  1 

37.3101  57223  0 

37.3102  66451  1 

27.3103  05427  0 

37.3104  12577  1 

27.3105  77567  0 

37.3106  44202  1 


770ECML  OEC  77 

ALXXXZ  GENAOR  AL  XIS  -1 

PIPASC  20EC  ol3055869 

VELSC  2DEC  -.52223476 


ALSK  2DEC  ol7329931 


20EC  -.00835370 


512/980*402 
SSWAY  VEL  GAIN  X 
SSV.AY  ACCEL  GAIN 


980.402  /4096 
X 980.402/4096 


37,31C7 

37.3110 

37.3111 

27.3112 


24276  1 6ECRGEJ  2CEC  063661977 

14066  1 

23073  I GEORGEK  2DEC  .59737013 

11773  1 
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ROOOl  PROGRAM  NAME  - KEYBOARD  AND  DISPLAY  PRCGPAM 

R00P2  MOD  NO  - 4 DATE  - 27  APRIL  1967  ASSEMBLY  - PINOANCE  REV  18 

R0003  . MOD  BY  - FILENE 

R0004  LOG  SECTION  - PINBALL  GAME  BUTTONS  AND  LIGHTS 


R0009  FLNCTICNAL  OESCRIPTICN- 


PINBALL  GAME  BUTTONS  AND  LIGHTS 


17:53  OECo  19,1 
USER  'S 


ROOlO  THE  KEYBOARD  AND  DISPLAY  SYSTEM  PROGRAM  OPERATES  UNDER  EXECUTIVE 

ROOll  CCNTRGL  AND  PROCESSES  INFORMATION  EXCHANGED  BETWEEN  THE  AGC  AND  THE 
R0012  CCMPUTER  OPERATOR*  THE  INPUTS  TC  THE  PROGRAM  ARE  FROM  THE  KEYBOARD, 
R0013  FROM  INTERNAL  PROGRAMS,  AND  FRCM  THE  UPLINKo 

ROOl*^  THE  LANGUAGE  OF  CCMMUN I C AT  I CN  WITH  THE  PROGRAM  IS  A PAIR  OF  WORDS 

R0015  KNOWN  AS  VERB  AND  NOUN*  EACH  CF  THESE  IS  REPRESENTED  BY  A 2 CHARACTER 
R0016  CECIMAL  NUMBER*  THE  VERB  CODE  INDICATES  WHAT  ACTION  IS  TO  BE  TAKEN,  THE 
R0017  NCUN  CODE  INDICATES  TC  WHAT  THIS  ACTION  IS  APPLIED*  NOUNS  USUALLY 
R0018  REFER  TO  A GROUP  CF  ERASABLE  REGISTERS* 


R0020 

R0021 

R0022 

R0023 

R0024 

R0025 


VERBS  ARE  GROUPED  INTO  DISPL 
UPDATED  ONCE  PER  SECCND),  SP 
ARE  OUTSIDE  OF  THE  DOMAIN  OF 
: EXTENDED  VERBS : ) * 

A LIST  OF  VERBS  AND  NCUNS  IS 


AYS,  LOADS,  MONITORS  (DISPLAYS 
ECIAL  FUNCTIONS,  AND  EXTENDED  V 
PINBALL  AND  CAN  BE  FOUND  UNDER 

GIVEN  IN  LCG  SECTION  :ASSEM8LY 


OPERATION  INFORMATION:, 


THAT 

ERBSI 

LOG 

AND 


ARE 

THESE 

SECTION 


R0026  CALLING  SEQUENCES- 


R0027  KEYBOARD: 

R0028  EACH  DEPRESSION  DH  A KEYBOARD  BUTTON  ACTIVATES  INTERRUPT  K6YRLPT1 

R0029  AND  PLACES  THE  5 BIT  KEY  CCDE  INTO  CHANNEL  15*  KEYRUPTl  PLACES  THE  KEY 
R0030  CODE  INTO  MPAC,  ENTERS  AN  EXECUTIVE  REQUEST  FOR  THE  KEYBOARD  AND  DISPLAY 

R0031  PROGRAM  (AT  ;CHARIN;),  AND  EXECUTES  A RESUME* 


R0032  UPLINK: 

R0033  EACH  WORD  RECEIVED  BY  THE  UPLINK  ACTIVATES  INTERRUPT  UPRUPT  WHICH 

R0034  PLACES  THE  5 BIT  KEY  CODE  INTO  MPAC,  ENTERS  AN  EXECUTIVE  REQUEST  FOR  THE 

R0035  KEYBOARD  AND  DISPLAY  PROGRAM  (AT:CHARIN;)  AND  EXECUTES  A RESUME* 


R0036  INTERNAL  PROGRAMS: 

R0037  INTERNAL  PRCGRAMS  CALL  PINBALL  AT  :NVSUB:  WITH  THE  DESIRED  VERB/NOUN 

R0038  CODE  IN  A (LOW  7 BITS  FOR  NOUN,  NEXT  7 BITS  FOR  VERB!.-  DETAILS 

R0039  DESCRIBED  ON  REMARKS  CARDS  JUST  BEFORE  :NVSU8:  AND  :NVSBWA1T:  (SEE 

R0040  SYMBOL  TABLE  FOR  PAGE  NUMBERS)* 


R0045  NORMAL  EXIT  MOOES- 

R0046  IF  PINBALL  WAS  CALLED  BY  EXTERNAL  ACTION,  THERE  ARE  FOUR  EXITS: 

R004605  1)  ALL  BUT  (2),  (3),  AND  (4)  EXIT  DIRECTLY  TO  ENOOFJOB* 

R00461  2)  EXTENDED  VERBS  GO  TO  THE  EXTENDED  VERB  FAN  AS  PART  OF  THE 
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USER  ' S PAGE  NCo 


EO  S3 


R004615 

R00^62 

R00A63 

R004635 

R00464 

R00465 

ROOA66 

R00467 

ROOA68 

R00469 


PINBALL  EXECUTIVE  JCB  WITH  PRICRITV  30000<,  IT  IS  TFE 
RESPONSIBILITY  OF  THE  EXTENDED  VERB  CALLED  TO  EVENTUALLY 
CHANGE  PRIORITY  (IF  NECESSARY)  AND  CO  AN  EN00FJ08, 

ALSO  PINBALL  IS  A NOVAC  JOB®  E6ANK  SET  FOR  COMMON® 

3)  VERB  37®  CHANGE  CF  PROGRAM  (MAJOR  MODE)  CALLS  :V37;  IN  THE 
SERVICE  ROUTINES  AS  PART  OF  THE  PINBALL  EXEC  JCB  WITH  PRIO 
3)000®  THE  NEW  PROGRAM  CODE  (MAJOR  MODE)  IS  LEFT  IN  A® 

4)  KEY  RELEASE  8UTTCN  CALLS  tPINBRNCH:  IN  THE  DISPLAY  INTERFACE 
ROUTINES  AS  PART  CF  THE  PINBALL  EXEC  JOB  WITH  PRIO  30000  IF 
THE  KEY  RELEASE  LIGHT  IS  OFF  AND  :CAORSTOR:  IS  NOT  +0® 


R0047  IF  PINBALL  WAS  CALLED  BY  INTERNAL  PROGRAMS,  EXIT  FROM  PINBALL  IS  BACK 

R0048  TO  CALLING  ROUTINE®  DETAILS  DESCRIBED  IN  REMARKS  CARDS  JUST  BEFORE 
R0049  :NVSU8:  AND  ;NVSBWAIT:  (SEE  SYMBOL  TABLE  FOR  PAGE  NUMBERS)® 


R0050  ALARM  OR  ABORT  EXIT  MCOES- 

R0051  EXTERNAL  INITIATION: 

R0052  IF  SOME  IMPROPER  SEQUENCE  CF  KEY  CODES  IS  DETECTED,  THE  OPERATOR 

R0053  ERROR  LIGHT  IS  TURNED  ON  AND  EXIT  IS  TO  lENDOFJOB:® 


R0054  INTERNAL  FRCGRAM  IMTIATICN: 

R0055  IF  AN  ILLEGAL  V/N  COMBINATICN  IS  ATTEMPTED,  AN  ABORT  IS  CAUSEC 

R0056  (WITH  OCTAL  01501)® 

RO0561  IF  A SECOND  ATTEMPT  IS  MACE  TO  GO  TC  SLEEP  IN  PINBALL,  AN  ABORT  IS 

R00562  CAUSED  (WITH  OCTAL  01206)®  THERE  ARE  TWO  WAYS  TO  GO  TO  SLEEP  IN  PINBALL: 
R00563  1)  ENCIDLE  OR  OAT AWAIT® 

R00564  2)  NVS6WAIT,  PRENVBSY,  CR  NVSUEUSY® 


R0057  CONDITIONS  LEADING  TO  THE  ABOVE  ARE  DESCRIBED  IN  FORTHCOMING  MIT/IL 
R0058  E-REPCRT  DESCRIBING  KEYBOARD  ANC  DISPLAY  OPERATION  FOR  278® 


R0059  OLTPLT- 

R0060  INFORMATION  TO  BE  SENT  TO  THE  DISPLAY  PANEL  IS  LEFT  IN  THE  :OSPTAB : 

R0061  BLFFERS  REGISTERS  (UNDER  EXEC  CCNTRGD®  : CSPOUT:  (A  PART  OF  T4RUPT) 

R0062  HANDLES  THE  PLACING  OF  THE  :OSPTAB:  INFORMATION  INTO  OUTPUT  CHANNEL  10 

R0063  IN  INTERRUPT® 


R0064  ERASABLE  INITIALIZATION- 

R0065  FRESH  START  ANC  RESTART  INITIALIZE  THE  NECESSARY  E REGISTERS  FOR 

R0066  PINBALL  IN  :STARTSUE:®  REGISTEFS  ARE:  CSPTAB  BUFFER,  CADRSTOR, 

R0067  REQRET,  CLPASS,  DSPLOCK,  MONSAVE,  MONSAVEl,  VERBREG,  NOUNREG,  OSPLIST, 
ROO60  CSPCCLNT,  NCUT® 


R0069  A COMPLETE  LIST  OF  ALL  THE  ERASABLES  (BCTH  RESERVED  AND  TEMPORARIES!  FOR 
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R0070  PINBALL  IS  GIVEN  BELCWo 


R0071  THE  FOLLOWING  ARE  OF  GENERAL  INTEREST- 

R0072  REMARKS  CARDS  PRECEDE  THE  REFERENCED  SYMBOL  OEFINITIONe  SEE  SYMBOL 

RC073  TABLE  TO  FIND  APPROPRIATE  FACE  NUMEERSo 


R0074 
ROD  75 


NVSU8  CALLING  POINT  FOR  INTERNAL  LSE  OF  PINBALLa 
OF  RELATED  INTEREST  NVSEWAIT 


R0076 


NVSU6USY 


R0077 


PRENV8SY 


R0083 

R0064 


ENOIDLE 


ROUTINE  FOR  INTERNAL  PROGRAMS  WISHING  TO  GO  TO  SLEEP  WHILE 
AWAITING  OPERATORS  RESPONSEo 


R00851 

R00852 

R008525 

R0CI8527 


DSPPP  ROUTINE  BY  WHICH  AN  INTERNAL  PROGRAM  MAY  DISPLAY  A DECIMAL 

PROGRAM  CODE  (MAJOR  MODE)  IN  THE  PROGRAM  (MAJOR  MODE)  LIGHTS. 
(OSPMM  DOES  NOT  DISPLAY  DIRECTLY  BUT  ENTERS  EXEC  RECUEST 
FOR  OSPMMJB  WITH  PRIG  30000  AND  RETURNS  TO  CALLERa) 


R00e53  BLANKSUB  ROUTINE  BY  WHICH  AN  INTERNAL  PROGRAM  MAY  BLANK  ANY 

R00854  COMBINATION  OF  THE  DISPLAY  REGISTERS  Rl,  R2,  R3o 


R00855  JAMTERM  ROUTINES  BY  WHICH  AN  INTERNAL  PROGRAM  MAY  PERFORM  THE 

ROOR56  JAMPROC  TERMINATE  (V  34)  OR  PROCEED  (V  33)  FUNCTION© 


R0086  MCNITCR  VFRBS  FCR  PERICCIC  ( 1 PER  SEC)  CISPLAY© 

R00861  PLEASE  PERFORM,  PLEASE  MARK  SITUATION'S 

R00862  REMARKS  DESCRIBING  HOW  AN  INTERNAL  ROUTINE  SHOULD  HANDLE 

R00863  THESE  SITUATIONS  CAN  BE  FOUND  JUST  BEFORE  :NVSUB:  (SEE 

R00864  SYMBOL  TABLE  FCR  PAGE  NUMBEPIa 


R0087  THE  NCUN  TABLE  FCRMAT  IS  CESCRI8EC  ON  A PAGE  OF  REMARKS  CARDS  JUST 

ROO08  BEFORE  :0SPA6C:  I SEE  SYMBCL  TABLE  FCR  PAGE  NUMBER). 


R0089  THE  NOUN  TABLES  THEMSELVES  ARE  FOUND  IN  LOG  SECTICN  iPINBALL  NCUN 

R00891  TABLES:, 


R0090  FOR  FURTHER  DETAILS  ABOUT  OPERATIGN  OF  THE  KEYBCARC  AND  DISPLAY  SYSTEM 
R0091  PROGRAM,  SEE  THE  MISSION  PLAN  AND/OR  MIT/IL  E-2129 
110092  DESCRIBING  KEYBOARD  AND  DISPLAY  CPERATICN  FOR  278. 


ROISO  THE  FOLLOWING  QUOTATION  IS  PROVIDED  THROUGH  THE  COURTESY  OF  THE  AUTHORS. 

R0151  ::IT  WILL  BE  PPCVED  TO  THY  FACE  THAT  THOU  HAST  MEN  ABOUT  THEE  THAT 

R0152  USUALLY  TALK  OF  A NOUN  AND  A VERB,  AND  SUCH  ABCMINAELE  WORDS  AS  NO 
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L PINEALL  GAME  EUTTONS  ANO  LIC-FTS 

R0153  CHRISTIAN  EAR  CAN  ENDURE  TC  FEARot: 

R015A  HENRY  6,  ACT  2,  SCENE  A 


R0155  TFE  FCLLCWING  ASSIGNMENTS  FOR  FINBALL  ARE  MADE  ELSEWHERE 


USER'S  PAGE  NCo  A 


EC  S3 


R0156  RESERVED  FOR  PINBALL  EXECUTIVE  ACTION 


R0159 

R0160 

R0161 

R0162 

R0163 

R016A 

RC165 

R0166 

R0167 

R0168 

R0169 

R0170 

R0171 

R0172 

R0173 

R0174 

R0175 

R0176 

R0177 

R0178 

R0179 

R01795 

R0180 

R0181 

R0182 

R0183 

ROieA 

R0185 
ROl  86 
R0187 
ROiee 
R0189 
R0190 
R0191 


CSPCCUNT  ERASE 
DEC6RNCH  ERASE 
VER6REG  ERASE 
NCUNREG  ERASE 
XREG  ERASE 
YREG  ERASE 
ZREG  ERASE 
XREGLP  ERASE 
YREGLP  ERASE 
HI TEMCUT  = 


YREGLP 


ZREGLP  ERASE 
LOTEMOUT  = ZREGLP 


DISPLAY  POSITICN  INDICATOR 

+CEC,  - DEC,  OCT  INDICATOR 

VERB  CODE 

NOUN  CODE 

Rl  INPUT  BUFFER 

R2  INPUT  BUFFER 


R3  INPUT  BUFFER 
LC  PART  CF  XREG  (FOR  DEC  CCNV 
LO  PART  OF  YREG  (FOR  DEC  CCNV 
TEMP  FCR  DISPLAY  OF  HRS,  MIN, 
MUST  = LOTEMOUT-lo 
LC  PART  OF  ZREG  (FOR  DEC  CONV 
TEMP  FOR  DISPLAY  CF  HRS,  MIN, 
MUST  = HITEMOUT+1* 


ONLY  » 
CNLY) 
SEC 

ONLY) 

SEC 


MCOBEG  ERASE 
OSPLOCK  ERASE 
REGRET  ERASE 
LCADSTAT  ERASE 
CLPASS  ERASE 
NCUT  ERASE 
NOUNCAOR  ERASE 
MONSAVE  ERASE 
MCNSAvei  ERASE 
MONSA  VE2  ERASE 
DSPTAB  ERASE 
CAORSTOR  ERASE 
NVQTEM  ERASE 

NVBNKTEH  ERASE 

VERBSAVE  ERASE 
OSPLIST  ERASE 
EXTVBACT  REASE 
DSPTEMl  ERASE 
CSPTEM2  ERASE 
END  OF  ERASAfcL 


MGOe  CODE 

KEY6QARC/SU0ROUT INE  CALL  INTERLOCK 

RETURN  REGISTER  FOR  LOAD 

STATUS  INDICATOR  FOB  LOAOTST 

PASS  INDICATOR  CLEAR 

ACTIVITY  COUNTER  FOR  DSPTAB 

MACHINE  CACR  FCR  NOUN 

N/V  CODE  FOR  MONITOR^  (=  MCNSAVEl-ll 

NCUNCADR  FOR  MON  I TOR ( MATB S ) =MONSAVE  +1 

NVMONOPT  OPTIONS 

+ 130  0-lC, DISPLAY  PANEL  BUFF ERo 11-1 3 , C RELAYS 

ENDIDLE  STORAGE 

NVSUB  STORAGE  FOR  CALLING  ADDRESS 

MUST  = NVBNKTEM-l 

NVSUe  STORAGE  FOR  CALLING  BANK 

MUST  = NVQTEM+1 

NEEDED  FOR  RECYCLE 

WAITING  REG  FCR  DSP  SYST  INTERNAL  USE 
EXTENDED  VERB  ACTIVITY  INTERLOCK 
♦2  BUFFER  STORAGE  AREA  1 (MOSTLY  FOR  TIME) 

+2  BUFFER  STORAGE  AREA  2 (MOSTLY  FCR  DEG) 

ES  RESERVED  FOR  PINBALL  EXECUTIVE  ACTION 


R0I92 


TEMPORARIES  FOR  PINBALL  EXECUTIVE  ACTION 
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« 19tl969 
USER'S  PAGE  NOo 


R0193 

R019<^ 

R0195 


DSEXIT 

EXITEM 

BLANKRET 


INTei5+  RETURN  FOR  CSP  IN 

1NTB15+  RETURN  FOR  SCALE  FACTOR  ROUTINE  SELECT 

INT015+  RETURN  FOR  26LANK 


R0196  VvRORET 
R0197  WCRET 
R0I98  CECRET 


INTBITIS  RETURN  FCR  5BLANK 

INTBIT15  RETURN  FCR  OSPWC 

INTBIT15  RETURN  FOR  PUTCOMIOEC  LOAD) 


R0199  21/22REG 


INTBIT15  TEMP  FOR  ChARIN 


R0200  UPCATRET  = POLISH 
R0201  CHAR  = POLISH 
R0202  ERCNT  = PCLISH 
R0203  CECOUNT  = POLISH 


RETURN  FOR  UPDATNN,  UPOATVB 

TEMP  FOR  CHARIN 

COUNTER  FCR  ERROR  LIGHT  RESET 

COUNTER  FOR  SCALING  AND  DISPLAY  (DEC! 


R0204  SGNON 
R0205  NCUNTEM 
R0206  LISTEN 
R0207  DECTEM 


V6UF 

VBUF 

VBUF 

VBUF 


TEMP  FCR  +,-  ON 
CCINTER  FOP  MIXNCUN  FETCH 
COUNTER  FOR  OCTAL  DISPLAY  VERBS 
COUNTER  FOR  FETCH  (CEC  DISPLAY  VERBS) 


R0208  SGNOFF 
R0209  NVTEMP 
R0210  SFTEMPl 
R0211  HITEMIN 
R0212 

R0213  CODE 
R0214  SFTEMF2 
R0215  LOTEMIN 
R0216 

R0217  MIXTEMP 
R0218  SIGNRET 


VBUF 

VBUF 

VBUF 

VBUF 


VBUF 

VBUF 

VBUF 


VBUF 

VBUF 


+1  TEMP  FOR  +1-  ON 

+1  TEMP  FOR  NVSUB 

+ 1 STORAGE  FCR  SF  CCNST  HI  PAPT ( =S FT EMP2-1  ) 

+1  TEMP  FOR  LOAD  OF  HRS»  MIN,  SEC 

MUST  = LOTEMIN-lo 

+2  FCR  OSPIN 

♦2  STORAGE  FOR  SF  CONST  LO  PAR T( =SFTEMP1+1 ) 

+2  TEMP  FCR  LOAD  CF  HRSi  MIN,  SEC 

MUST  = HITEMIN+lo 
+ 3 FCR  MI-XNOUN  DATA 

+3  RETURN  FGR  +,-  ON 


R0219 

R0220 


ALSO  MlXTEMP+1 
ENTRET 


= VBUF44, 
DOTING 


MlXTEMP  + 2 = VBUF^Sa 

EXIT  FROM  ENTER 


R0227 

R0228 

R0229 


TEM2  ER 

DSMAG 
ICADCTEM  = 


EXEC  TEMP 

MAGNITUDE  STORE  FOR  OSPIN 
MIXNOUN  INDIRECT  ADDRESS  STORAGE 
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R0232  TEMA 
R0233  LSTPTR 
R023i  RELR6T 
R0235  FREERET 
R0236  CSPWCRET 
R0237  SEPSCRET 
R0238  SEPMNRET 


TEMA 
TEMA 
TEMA 
TEMA 
T ERA 
TERA 


EXEC  TEMP 

LIST  POINTER  FCR  GRABUSY 
RETURN  FOR  PELCSP 
RETURN  FCR  FREECSP 
RETURN  FOR  OSPSIGN 
RETURN  FOR  SEPSEC 
RETURN  FCR  SEPRIN 


R0239  TEM5  ERASE 

R02A0  NCUNAOD  * TER5 


EXEC  TEMP 

TERP  STORAGE  FCR  NOUN  ADDRESS 


R02A1  NNACTEM  ERASE 

R02A2  RNTYPTER  ERASE 

R02A3  lOAOlTEM  ERASE 

R02AA 

R02A5  IDA02TEM  ERASE 

R02A6 

R02A7  ICAC3TEM  ERASE 

R02A8 

R02A9  RUTMXTEM  ERASE 

R0250  END  CF  TEMFCRAPIES  FOR  PINBALL 


TEMP  FCR  NCUN  ADDRESS  TABLE  ENTRY 
TEMP  FOR  NOUN  TYPE  TABLE  ENTRY 
TEMP  FOR  INCIR  ADRESS  TABLE  ENTRY(MIXNN) 
MUST  = 10AD2TEM-lf  = IDAt)3TEM-2o 
TEMP  FOR  INCIR  ADRESS  TABLE  ENTRY(MIXNN) 
MUST  = IDAClTEM  + 1,  = IDA03TEM-lo 
TEMP  FOR  INOIR  ADRESS  TABLE  ENTRYIMIXNNI 
MUST  = ICAClTeM+2,  = I0AD2TEM+le 
TEMP  FOP  SF  ROUT  TABLE  ENTRYIMIXNN  ONLY) 
EXECUTIVE  ACTION 


R02501  ADDITIONAL  TEMPORARIES  FCR  PINBALL  EXECUTIVE  ACTION 

R02502  MFAC,  THRU  MPAC  +6 
R02503  BLF,  +1,  +2 
R0250A  BUF2,  +1,  +2 
R02506  MFTEMF 
R02507  ADDRKD 

R02509  END  OF  ADDITIONAL  TEMPS  FOR  PINBALL  EXEC  ACTION 


R0251 


RESERVED  FOR  PINEALL  INTERRUPT  ACTION 


R0252 

R0253 

A0254 

R0255 


OSPCNT  ERASE 
UPLGCK  ERASE 


COUNTER  FCR  OSPCUT 

BITl  = UPLINK  INTERLOCK  (ACTIVATED  BY 


END  OF  ERASABLES  RESERVED  FOR  PINBALL  INTERRUPT  ACTION 


RECEPTION  OF 


BAD  MESSAGE  IN  UPLINK) 


R0256  TEMPORARIES  FOP  PINEALL  INTERRUPT  ACTION 


R0257  KFYTEMPl  = WAITEXIT 

R0258  CSRUPTEM  = WAITEXIT 

R0259  KEYTEMP2  - RUPTAGN 

R0260  END  OF  TEMPORARIES  FOR  PINBALL 


TEMP  FOR  KEYRUPT,  UPRUPT 
TEMP  FOR  OSPOUT 
TEMP  FOR  KEYRUPTf  UPRUPT 
INTERRUPT  ACTION 
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P0261  THE  INPLT  CODES  ASSUMED  FOR  THE  KEYBOAPC  ARE* 

R0262  0 lOOOO 

R0263  1 00001 

R0264  S 01001 

R0265  VERB  lOCOl 

R026A  ERROR  RESlOOlO 

R0267  KEY  RUSE  llOOl 

R0268  + llOlO 

R0269  - 11011 

R0270  ENTER  UlOO 

R0271  CLEAR  11110 

R0272  NOUN  lllll 
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R0273  OUTPUT  FORMAT  FOR  DISPLAY  PANEL®  SET  OUTO  TO  AAAABCCCCCDOOOOo 
R0274  A-S  SELECT  A PELAYWQRC®  THIS  CETEPMINES  WHICH  PAIR  OF  CHARACTERS  ARE 
R0275  ENERGIZeCo 

R0276  e FCR  SPECIAL  RELAYS  SUCH  AS  SIGNS  ETC® 

R0277  C-S  5 BIT  RELAY  CODE  FOR  LEFT  CHAR  OF  PAIR  SELECTED  BY  PELAYWORO 
RO270  C-S  5 BIT  RELAY  CODE  FOR  RIGHTCHAR  OF  PAIR  SELECTED  BY  RELAYWCRC® 


R0279 

R0280 

R0281 

R02ft2 

R0283 

R0284 


THE  PANEL  APPEARS  AS 
MDl  MO  2 

VCl  VC2  (VERB! 
RlOl  R1D2  R1D3 

RZDl  R2C2  R2D3 

R3D1  R3C2  R303 


FOLLOWS  , 

NOl  NC2 
R1C4  R1C5 
R204  R2D5 
R304  P3D5 


(MAJOR  MCOE) 
(NOUN) 

(Rl  ) 

(R2I 
(R3  » 


R0285 
R0286 
R02  87 
R028B 
R0289 
R0290 
R0291 
R0292 
R0293 
R0294 
R0295 
R0296 


EACH 

MCI 

M02 

VDl 

VC2 

NOl 

N02 

RlCl 

R1D2 

RXD3 

R104 

R IDS 


OF  THE  SE  I S GIVEN  A 
25  R201  11 

24  R2D2  10 

23  R2D3  7 

22  R2D4  6 

21  R2C5  5 

20  R3D1  A 

16  R3C2  3 

15  R303  2 

1^  R3D4  1 

13  R3C5  0 


DSPCCLNT  NUMBER  FCR  USE  WITHIN 
ALL  ARE  OCTAL 


COMPUTATION  ONLY 


R0297 


THERE  IS  AN  11  REGISTER  TABLE 


(DSPTABI 


FOR  THE  DISPLAY  PANEL® 


R0298  DSPTAft  RELAYWO 

R0299  RELAOD 

R0300  1C  1011 

R0301  9 1010 

R03n2  8 1001 

R0303  7 1000 


EITll 


PITS  10-6 

MDl  (251 
vni  (?3) 
NDl  (21> 


BITS  5-1 

MC2  (24) 
VC2  (22) 
N02  (20) 

RlOl  { 16) 
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ROBOA 

R0305 

R0306 

R0307 

R03(i8 

R0309 

R0310 

R0311 


6 

5 

A 

3 

2 

1 

0 


0111 

0110 

0101 

0100 

0011 

CCIO 

0001 

0000 


NO 


«-R3 

-R3 


RELAYWORO 


R2C1  ( 
R2D3  ( 
P2C5  ( 
R3D2  ( 
R3D4  ( 


11  I 
7 » 

5 ) 
3) 

1 ) 


R103  (1A» 
R 1D5  ( 12) 
R2D2  (10) 
R20A  (6) 
R3C1  (A) 
R3C3  (2) 
R3D5  (C) 


R0312 

R0313 

R031A 

R0315 

R0316 

R0317 

R0318 

R0319 

R0320 

R0321 

R0322 

R0323 


THE  5 BIT  OUTPUT 
BLANK  00300 

0 lOlOl 

1 00011 

2 IlOQl 

3 lion 

A Ollll 

5 11110 

6 11100 

7 10011 

8 11101 

9 11111 


RELAY  CODES  ARE: 


R03231  OUTPUT  BITS  USED  BY  PINBALL: 


CHANNEL  11 
CHANNEL  U 
CHANNEL  11 


R03232  KEY  RELEASE  LIGHT  - BIT  5 OF 
R03233  VERB/NOUN  FLASH  - BIT  6 OF 
R03Z3A  CPERATCR  ERROR  LIGHT  - BIT  7 OF 
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P0324  START  CF  EXECUTIVE  SECTION  CF  PINBALL 


0325  40,2077  BANK  40 

03250J  REF  2 LAST  301  4C,20CC  SETLCC  PINBALL1 

0325C2  40,2077  BANK 


03258 

0330 

0331 

0332 

03321 

03322 

03323 
0J324 

03325 

03326 

03327 

03328 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 


PEF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


74 


REF  2 
REF  J 
REF  75 
REF  1 
REF  101 

REF  1 
PEF  1 
REF  2 
REF  3 
REF  4 
REF  5 
REF  6 
PEF  7 
REF  1 
REF  2 
REF  2 
REF  3 
REF  4 
REF  5 
REF  6 
REF  7 
REF  8 
REF  1 
REF  1 
REF  8 
REF  9 
REF  10 
REF  11 
REF  12 
REF  13 
REF  1 
REF  1 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


390 

224 

224 


389 

iOO 

400 

386 


400 

400 

400 

400 

400 

400 

400 

400 

400 

400 

400 

400 

400 

400 


400 

400 

400 

400 

400 

400 


40,2077 

40.2100 

40. 2101 

40 .2102 
4C,2103 

40.2104 

40.2105 

40.2106 

40.2107 

40.2110 

40.2111 

40.2112 

40.2113 

40.2114 

40.2115 

40.2116 

40.2117 

40.2120 

40.2121 

40.2122 

40.2123 

40.2124 

40.2125 

40.2126 

40.2127 

40.2130 

40.2131 

40.2132 

40.2133 

40.2134 

40.2135 

40.2136 

40.2137 

40 . 2140 

40.2141 

40.2142 

40.2143 

40.2144 
40  ,2145 

40.2146 

40.2147 
40,2150 


3 4753  I 
57'011  n 
£4  115  0 
11'041  1 

0 2105  1 
0 2112  1 

4 2156  0 
6 C154  1 
0 0006  1 

1 2112  0 
0 4374  0 
56  154  1 
54  117  1 
5C  COO  1 
0 2116  0 
C 3470  1 
0 2175  0 
0 2175  0 
0 2175  0 
0 2175  0 
0 2175  0 
0 2175  0 
0 2175  0 
0 2161  0 
0 2161  0 
0 3470  1 
C 347C  1 
0 3470  1 
0 3470  1 
0 3470  I 
0 3470  1 
0 2173  0 
0 2354  1 
0 3646  n 
C 347C  1 
C 3470  1 
C 3470  1 
0 3470  1 
0 3470  1 
C 3470  1 
C 3524  1 
0 2407  0 


CHAR  IN 


CHAR  IN2 


CCUNT*  $$/PlN 

CAF  ONE 

XCH  DSPLOCK 

TS  21/22REG 

CCS  CADRSTOP 

TC  +2 

TC  CHAPIN2 

CS  ELPCODEl 

AD  MPAC 

EXTEND 

8ZF  CHARIN2 

TC  PELDSPCN 

XCH  MPAC 

TS  CHAR 

I NOE  X A 

TC  +1 

TC  CHARALRM 

TC  NUM 

TC  NUM 

TC  NUM 

TC  NUM 

TC  NUM 

TC  NUM 

TC  NUM 

TC  89TEST 

TC.  R9TEST 

TC  CHARALRM 

TC  CHARALRM 

TC  CHARALRM 

TC  CHARALRM 

TC  CHARALRM 

TC  CHARALRM 

TC  NUM  -2 

TC  VERB 

TC  ERROR 

TC  CHARALRM 

TC  CHARALRM 

TC  CHARALRM 

TC  CHARALRM 

TC  CHARALRM 

TC  CHARALRM 

TC  V8RELDSP 

TC  POSGN 


BLOCK  DISPLAY  SYST 
MAKE  DSP  SYST  BUSY,  BUT  SAVE  OLD 
C(CSPLnCK»  FOR  ERPCP  LIGHT  RESETo 
ALL  KEYS  EXCEPT  FP  TURN  CN  KR  LITE  IF 
CADRSTDR  IS  FULLo  THIS  REMINDS  OPERATOR 
TO  RE-ESTABLISH  A FLASHING  DISPLAY 
WHICH  HE  HAS  OBSCURED  WITH  DISPLAYS  OF 
HIS  OWN  {SEE  REMARKS  PRECEDING  ROUTINE 
VBRELDSPIr 


INPUT  COOF 
0 
1 
2 

3 

4 

5 

6 
7 
10 
11 
12 

13 

14 

15 

16 
17 
20 
21 
22 

23 

24 

25 

26 
27 

30 

31 

32 


FUNCTION 


0 

VERB 

ERROR  LIGHT  RESET 


KEY  RELEASE 
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0364  REF  1 

0365  REF  1 

0366  REF  14  LAST  400 

0367  REF  1 

0368  REF  1 


40,2151  C 2374  0 
40»2152  0 2157  0 

40.2153  C 347C  1 

40.2154  0 2467  0 

40.2155  C 2370  1 


TC  NE6SGN  33 
TC  ENTERJMP  34 
TC  CHARALRM  35 
TC  CLEAR  36 
TC  NOUN  37 


ENTER 

CLEAR 

NOUN 


03685 

0369  REF  17  LAST  301 

0370  REF  I 


40.2156  00022  1 ELRCOOEl  OCT  22 

40.2157  0 4635  0 ENTERJMP  TC  POSTJUMP 

40,2160  e2CC2  1 CACR  ENTER 


0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 


REF  3 LAST  225 


REF  38  LAST  390 
REF  39  LAST  401 
REF  4 LAST  341 
REF  1 

REF  102  LAST  400 
REF  9 LAST  4C 0 
REF  15  LAST  401 


40.2161  10  776  0 

40.2162  0 2166  1 

40.2163  0 2166  1 

40.2164  0 5155  0 

40.2165  0 S155  0 

40.2166  3 625C  0 

40.2167  7 0777  1 

40,217C  10  COO  0 

40.2171  0 2175  0 

40.2172  C 3470  1 


e9TEST 


CCS 

TC 

TC 

TC 

TC 

CAF 

MASK 

CCS 

TC 

TC 


DSPCOUNT 

+ 4 + 

+ 3 +0 

EN0OFJO8  - BLOCK  DATA  IN  IF  DSPCOUNT  IS 

ENOOFJCB  -0 

THREE 

DECBRNCH 

A 

NUM  IF  DECBRNCH  IS  + , B OR  9 CK 

CHARALPM  IF  DECBRNCH  IS  +0,  REJECT  8 OR 


- OR  -0 


R0381  NUM  ASSEMBLES  OCTAL  3 BITS  AT  A TIME*  FOR  DECIMAL  IT  CONVERTS  INCOMING 
R0382  HCRO  AS  A FRACTION,  KEEPING  RESULTS  TO  DP* 

R0383  OCTAL  RESULTS  ARE  LEFT  IN  XREG,  YREG,  CR  ZREG*  HI  PART  OF  CEC  IN  XREG, 
R0384  YREG,  ZREG*  THE  LCW  PARTS  IN  XREGLP,  YREGLP,  OR  ZREGLPI 
R0385  DECBRNCH  IS  LEFT  AT  +0  FOR  CCT,  +1  FOR  + CEC,  +2  FCR  - DEC* 

R0386  IF  DSPCCUNT  WAS  LEFT  NO  MOPE  DATA  IS  ACCEPTED* 


0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 


REF 

REF 

REF 


LAST 

LAST 

LAST 


386 
400 
40  1 


REF  40  LAST  401 

REF  1 

REF  2 LAST  224 

REF  55  LAST  401 

REF  3 LAST  40  1 

REF  3 LAST  401 

REF  2 LAST  159 

REF  1 

REF  1 

REF  5 LAST  4n  1 

REF  1 

REF  1 

REF  5 LAST  401 


40.2174  54 

40.2175  10 

40.2176  0 

40.2177  C 

40.2200  0 

40.2201  0 

40,22C2  0 

40.2203  11 

40.2204  3 

40.2205  55 

40.2206  0 

40.2207  50 

40,2  210  3 

40.2211  7 

40.2212  54 

40.2213  3 

40.2214  54 

40,  2215  C 
40,2216  3 


776  0 NUM 
2202  0 
22C2  0 
2201  0 
5155  0 
2324  0 
•014  I 
4755  1 
•014  1 
2207  0 
117  0 
4066  0 
4346  0 
124  1 
0776  1 
143  0 
3356  I 
6250  0 


INDEX 

CAF 

MASK 


ZERO 

CHAR 

DSPCOUNT 


+ 1 

ENCOFJCB 

GETINREL 

CLPASS 

ZERO 

CLPASS 

+1 

CHAR 

RELTAB 

LOWS 

CODE 

DSPCOUNT 

COUNT 

OSPIN 

THREE 


♦0 

-BLOCK  DATA  IN  IF  DSPCOUNT  IS  - 
-0 

IF  CLPASS  IS  + OP  +0,  MAKE  IT  +0^ 


GAP*. 

L 

0A07 

0408 

0409 

04X0 

0411 

0412, 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

A0450 

0451 

0452 

0453 

0454 

0455 

0456 
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REF  103  LAST 
REF  1 
REF  1 
REF  2 LAST 
REF  1 
REF  2 LAST 
REF  3 LAST 
REF  4 LAST 
REF  4 LAST 
RFF  1 
REF  2 LAST 
REF  3 LAST 
REF  76  LAST 
REF  56  LAST 
REF  77  LAST 
REF  4 LAST 
REF  1 
REF  78  LAST 
REF  5 LAST 
REF  79  LAST 
REF  2 LAST 
REF  80  LAST 
REF  1 
REF  3 LAST 
REF  4 LAST 
REF  6 LAST 
REF  4 LAST 
REF  1 

REF  1 
REF  1 
REF  6 LAST 
REF  3 LAST 
REF  104  LAST 
REF  2 LAST 
REF  7 LAST 
REF  2 LAST 
REF  24  LAST 
REF  5 LAST 


REF  1 
REF  1 


401  40,2217 

401  40,2220 

40.2221 

40.2222 
224  40,2223 

40,2224 

402  40,2225 

402  40,2226 

402  43,2227 

401  40,2230 
40,2231 

402  40,2232 

402  40,2233 

400  40,2234 

401  40,2235 

402  40,2236 

224  43,2237 

40,2240 
402  40,2241 

402  40,2242 

402  40,2  24  3 

402  40,2244 

402  40  ,2245 

40,2246 
402  40,2247 

402  40,2250 

401  40,2251 

402  40,2252 

40.2253 

40.2254 

40.2255 

40.2256 

401  40,2257 

402  40,2260 

402  40,2261 

402  40,2262 

402  40,2263 

402  40,2264 

400  40,2265 

402  40,2266 

40,2267 

40.2270 

40.2271 


0 2232  0 
50  137  1 
57*  000  0 
54  C22  0 
4 0022  0 
4 0022  0 
56  022  I 
6 0117  0 
0 2247  I 
50  137  1 
57*000  0 
54  154  0 
3 4755  1 
54  155  1 

3 4363  0 

0 7312  0 
56  155  0 
6 0117  0 
54  155  1 
C 2247  1 
26  154  0 
C 2265  1 
5C  137  1 
55*000  1 

4 0776  0 
50  137  1 

6 2315  1 
C CCC6  1 

1 2257  I 
0 2312  0 

3 6250  0 

7 0777  1 
10  000  0 
0 2265  1 

4 0776  0 
0 2313  1 
4 4753  0 
6 0137  1 
C 0006  1 
6 2263  I 
C 7106  1 


MASK 

CCS 

TC 

INDEX 

XCh 

TS 

CS 

CS 

XCH 

AD 

TC 

CECTOeiN  INDEX 
XCH 
TS 
CAF 
TS 
CAF 
TC 
XCH 
AO 
TS 
TC 
ADS 
TC 

ENDNMTST  INDEX 
TS 
CS 

INDEX 

AO 

EXTEND 
BZ  F 
TC 

ENONUM  CAF 
MASK 
CCS 
TC 

ENCALL  CS 
TC 

OECEND  CS 
AD 

E XTEND 

BZMF 

TC 


OECBRNCH 

A 

DECTCBIA 

INRf  L 

VERBREG 

CYL 

CYL 

CYL 

CYL 

CHAR 

ENDNMTST 

INREL 

VERBREG 

MPAC 

ZERO 

MPAC 

TEN 

SHORTMP 

MPAC 

CHAR 

MPAC 

ENDNMTST 
MPAC 
OECEND 
I NREL 
VERBREG 
DSPCCUNT 
INRFL 
CR  ITCON 

ENDNUM 

MORNUM 

THREE 

OECBRNCH 

A 

DECENO 

DSPCOUNT 

MORNUM 

ONE 

INREL 

ENDALL 

DMP 


+ 1 

+ 1 
+ l 


+ 1 


REF  1 

REF  7 LAST  402 

REF  i-  LAST  402 

REF  105  LAST  402 

1 


40.2272  02322  0 

40.2273  3 6250  0 

40.2274  7 0777  1 

40.2275  5C  000  I 

40.2276  C 2276  0 

40.2277  0 2303  0 


ADRES  DECON 
CAF  THREE 

MASK  OECBRNCH 
INDEX  A 
TC  +0 

TC 


+0,  OCTAL,  +1,  + OECa  +2,  - OECrt 
+0  OCTAL 


SUM  X 2EXP-14  IN  MPAC 

10  X 2EXP-li 

lOSL’M  X 2EXP-2P  IN  MPAC,  MPAC  + 1 


NO  OF 

OF  MUST  BE  5TH  CHAR 


-n,  DSPCOUNT  = CPITCON 
- , DSPCOUNT  G/  CP ITCON 


BLOCK  NUMIN  BY  PLACING  DSPCOUNT 
NEGAT  IVELY 


IF  INREL=0,1(V6PEG,NNREG) , LEAVE  WHOLE 
IF  INRFL  = 2, 3, 4 (Rl, R2, P?  I, CONVERT  TO  FRAC 
MULT  SUM  X 2FXP-2e  IN  MPAC,  MPAC+1  BY 
2FXP14/10EXP5,  GIVES!  SUM/1  OF  XP5)  X2EXP-1  4 
IN  MPAC,  +1,  +2c 


REF 


OECSGN 


GAP  : 

L 

0^57 

0A58 

0A59 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0475 

R0476 

R0477 

0478 

0479 

0480 

0481 

0482 

0483 

048^ 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 
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REF  81 
REF  82 
REF  83 
REF  6 
REF  1 
REF  84 
REF  7 
REF  5 
REF  2 
REF  fl 
REF  9 
REF  41 


LAST  402 
LAST  403 
LAST  403 
LAST  402 

LAST  403 
LAST  403 
LAST  402 
LAST  402 
LAST  402 
LAST  403 
LAST  401 


40.2300  0 0006  1 

40.2301  4 0156  1 

40.2302  52  156  1 

40.2303  56  156  0 

40.2304  50  137  1 

40.2305  55*003  I 

40.2306  56  155  0 

40.2307  50  137  1 

40,2310  55*000  1 

40, 23)1  0 2263  1 

40.2312  10  776  C 

40.2313  54  776  C 

40.2314  0 5155  0 


EXTEND 

DCS  MPAC  +1 

CXCH  MPAC  +1 

+CECSGN  XCh  MPAC  *2 

INDEX  INREL 

TS  XREGLP  -2 

XCF  MPAC  +1 

INDEX  INREL 

TS  VERBREG 

TC  ENCALL 

MCRNUM  CCS  DSPCCUNT 

TS  OSPCOUNT 

TC  FNDOFJCB 


- CASE 


DECREMENT  DSPCCUNT 


40.2315  CC022 

40.2316  00020 

40.2317  C0012 

40.2320  00005 

40.2321  00000 


1 CRITCON  OCT 

0 OCT 

1 OCT 

1 OCT 

1 OCT 


22 
20 
) 2 


0 


(DEC  181 
(DFC  16> 
( DEC  10 ) 


40.2322  05174  0 DECCN  2DEC  E-5  814  2 EX P14/ 10 EXP5  = ol  6384  DEC 

40.2323  13261  0 


GETINREL  GETS  PROPER  DATA  REG  PEL  ADDRESS  FOR  CURRENT  C(DSPCCUNT)  AND 
PUTS  IN  INTO  INRELo  +0  VERBREG,  1 NOUNREG,  2 XREG,  3 YREG,  4 ZREGo 


REF  10  LAST  403 
REF  1 

REF  8 LAST  403 
REF  43  LAST  383 


40.2324 

40.2325 

40. 2326 

40.2327 


50  776  1 GETINREL  INDEX 
2 2330  0 CAF 

54  137  0 TS 

0 0002  0 TC 


DSPCOUNT 

INRELTAE 

INRFL 

0 


(A  TEMP,  REG) 


REF 


2 


LAST 


40,2330  CCC04  0 INRELTAB  OCT 


40.2331  00004  0 OCT 

40.2332  00004  0 CCT 

40.2333  CCCC4  0 OCT 

40.2334  00004  0 OCT 

40.2335  00003  1 OCT 

40.2336  00003  1 OCT 

40.2337  00003  1 OCT 

40.2340  CCC03  1 OCT 

40.2341  00003  I OCT 

40.2342  00C02  0 OCT 

40.2343  CCC02  0 OCT 

40.2344  00002  0 OCT 

40.2345  0Q002  0 CCT 

40.2346  00002  0 OCT 

378  40,2347  0 5675  0 TC 

40.2350  Cnoni  0 OCT 

40.2351  OOCOl  0 OCT 


3 

3 

3 


2 

2 

2 

2 

2 

CCSHULE 

1 

1 


R3C5  (OSPCOUNT  = 0 » 
R30A  =(1  ) 

R3D3  =(  2 » 

R3C2 
R3D1 
R205 
R2D4 
R2D3 
RPD2 
R2D1 
R105 
R1  D4 
P ID3 
P1D2 
Rini 


= o ) 

= (41 
= (5) 

= (6  1 
= ( 7) 

= (80 
= ( 9n ) 

= ( 100  1 
=(11D) 
=(1201 
=(1301 
= {14DI 


NO  DSPCOUNT  NUMBFP  = 15D 
N02  =(1601 

ND1  =(1701 


gap: 

L 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

A0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

05  37 

0538 

0539 

0540 

0541 

0542 

0543 
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PINBALL  GAME  BUTTONS  AND  LIGHTS 


USER'S  PAGE  NOo  13  EO  S4 


40.2352  CCCOO  1 OCT  0 

40.2353  00000  I OCT  0 


V02  =(18D) 

VOl  =(1  9D) 


REF  57 
REF  6 
REF  2 
REF  U 
REF  1 
REF  25 
FEF  5 
REF  58 
REF  2 
REF  1 
REF  1 


LAST  402 
LAST  403 
LAST  225 
LAST  403 

LAST  402 
LAST  402 
LAST  404 
LAST  224 


40.2354 

40.2355 

40.2356 

40.2357 

40.2360 

40.2361 

40.2362 

40 .2363 

40.2364 

40.2365 
40  ,2366 


3 4755  1 
55*000  1 
3 4360  0 
54  776  C 
0 2601  1 
3 4753  1 
54  777  1 
3 4755  I 
55*012  I 
3 42X7  1 
54  136  1 


VERB 


NVCCM 


CAP 

TS 

CAF 

TS 

TC 

CAF 

TS 

CAF 

TS 

CAF 

TS 


ZERO 

VERBREG 

VDl 

DSPCCUNT 

2BLANK 

ONE 

DECBRNCH 

ZERO 

REGRET 

ENOINST 

ENTRET 


REF  42  LAST 
REF  59  LAST 
REF  7 LAST 
REF  3 LAST 
REF  1 


403  40,2367 

404  40,2370 

306  40,2371 

383  40,2372 

40,2373 


0 5155  0 
3 4755  1 NGUN 
55'COl  0 
3 4361  I 
0 2357  1 


TC 

CAF 

TS 

CAF 

TC 


ENOOFJOB 

ZERO 

NCUNREG 

NDl 

NVCOM 


SET  FOR  DEC  V/N  CODE 
SET  FOR  ENTPASO 

IF  DSPALARM  OCCURS  BEFORE  FIRST  ENTPASO 
OR  NVSUB,  ENTRET  MUST  ALREADY  BE  SET 
TO  TC  ENOOFJOB 


NDl,  OCT  21  (DEC  1 7> 


REF  1 
REF  1 
KEF  17 
REF  9 
REF  18 
REF  6 
REF  4 
REF  60 
REF  5 

REF  43 


LAST  377 
LAST  403 
LAST  193 
LAST  404 
LAST  401 
LAST  404 
LAST  404 

LAST  404 


40.2374 

40.2375 

40.2376 

40 .2377 

40.2400 

40.2401 

40.2402 

40.2403 

40.2404 

40.2405 

40.2406 


0 2446  0 
0 2433  1 
3 4752  0 
50  137  1 
6 4745  0 
26  777  1 
11*014  1 
3 4755  1 
55*014  1 
0 2406  1 
0 5155  0 


NEGSGN  TC 
TC 
CAF 

eOTHSGN  INDE 
AC 
ADS 

FIXCLPAS  CCS 
CAF 
TS 
TC 
TC 


X 


SIGNTEST 
-ON 
TWO 
INREL 
B 1T7 

DECBRNCH 
CLPASS 
ZERO 
CLPASS 
+ 1 

ENCOFJOe 


SET  DEC  COMP  BIT  TC  I (IN  OECBRNCHI 
BIT  5 FOR  Rl,  BIT  4 FOP  R2, 

BIT  3 FOR  P3c. 

IF  CLPASS  IS  + OR  +0,  MAKE  IT 


REF  2 LAST  404 
REF  1 

REF  26  LAST  404 
REF  1 


40,2407  0 2446  0 

40 .2410  0 2413  0 

40.2411  3 4753  1 

40.2412  0 2377  0 


POSGN 


TC 

TC 

CAF 

TC 


SIGNTEST 
+ 0N 
ONE 

60THSGN 


REF  44  LAST  403 
REF  2 LAST  401 
REF  10  LAST  404 
REF  1 
REF  1 

REF  27  LAST  404 
REF  1 

REF  61  LAST  404 
REF  2 LAST  401 
REF  2 LAST  404 


40.2413 

40.2414 

40.2415 

40.2416 

40.2417 

40.2420 

40.2421 

40.2422 

40.2423 

40.2424 


22  002  0 
0 2324  0 
50  137  1 
3 2441  1 
54  123  0 
6 4753  1 
54  122  1 
3 4755  1 
54  124  1 
56  123  1 


SGNCOM 


LXCH  0 

TC  GETINREL 

INDEX  INREL 

CAF  SGNTAB  -2 
TS  SGNOFF 

AC  ONE 

TS  SGNCN 

CAF  ZERO 

TS  CODE 

XCH  SGNCFF 


GAP; 

L 

05^e^ 

05^5 

05i*b 

05^7 

0548 

054S 

0550 

0551 

0552 

0553 

055A 

0555 

0556 

0557 

0558 

055<3 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

R0578 

R0579 

R05  80 

R0581 

R0582 

R0583 

R05e^ 

R0  58  5 
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PINBALL  GAME  BUTTCNS  ANC  LICFTS 


USER'S  PAGE  NCo 


EO  S4 


REF  1 
REF  18  LAST 
REF  3 LAST 
REF  2 LAST 
REF  2 LAST 
REF  43  LAST 
REF  45  LAST 
REF  3 LAST 
REF  11  LAST 
REF  2 LAST 
REF  3 LAST 
REF  28  LAST 
REF  3 LAST 
REF  I 


40,2425 
374  40,2426 
404  40,2427 

404  40,2430 

405  40,2431 
383  40,2432 
404  40,2433 
404  40,2434 
404  40,2435 

404  40,  2436 

405  40,2437 
404  40,2440 
404  40,2441 

40,2442 


0 3440  1 
2 4741  1 
54  124  1 
56  122  0 
0 3440  1 
0 0001  0 
22  002  C -ON 
0 2324  0 
50  137  1 
2 2441  1 
54  122  1 
6 4753  1 
54  123  0 
0 2422  1 


TC  1) ESPIN 

CAF  BlTll 

TS  CODE 

XCH  SGNGN 

TC  IIDSPIN 

TC  L 

LXCH  Q 

TC  GETINREL 

INDEX  INREL 

CAF  SGNTA8  -2 
TS  SGNON 

AO  ONE 

TS  SGNOFF 

TC  SGNCCM 


40. 2443 

40.2444 

40.2445 


CQ005  1 
00003  1 
GOOOO  1 


S6NTAB 


OCT  5 
OCT  3 
OCT  0 


REF  46  LAST 
PEF  e LAST 
REF  7 LAST 
REF  106  LAST 
REF  44  LAST 
REF  J 
REF  1 
REF  1 
REF  2 LAST 
PEF  1 
REF  3 LAST 
REF  45  LAST 
REF  12  LAST 


REF  47  LAST 
REF  44  LAST 


405 

402 

404 

402 

404 


405 

405 

405 

404 


40  5 
405 


40.2446  22  002  0 

40.2447  3 6250  0 

40.2450  7 0777  1 

40.2451  10  000  0 

40.2452  C 5155  0 

40. 2453  4 4317  1 

40.2454  0 2462  0 

40.2455  4 4320  0 

40.2456  0 2462  0 

40.2457  4 4321  1 

40.2460  0 2462  0 

40.2461  0 5155  0 

40.2462  6 0776  1 

40.2463  0 CCC6  1 

40.2464  1 2466  0 

40.2465  0 0002  0 

40.2466  0 0001  0 


SIGNTEST  LXCH 
CAF 
MASK 
CCS 
TC 
CS 
TC 
CS 
TC 
CS 
TC 
TC 

SGNTSTl  AD 

EXTEND 

BZF 

TC 

TC 


0 

THREE 

DEC8RNCH 

A 

FNOOF JCP 

RlDl 

SGNTSTl 

P2C] 

SGNTSTl 

R3D1 

SGNTSTl 

ENDOF JOB 

DSPCCUNT 

+ 2 
0 
L 


ALLOWS  + ,-  ONLY  WHEN  D5 PC0UNT  = R1 01 , 
R2D1,  OR  R301e  ALLOWS  ONLY  FIRST  OF 
CONSECUTIVE  +/-  CHARACTERSo 
IF  LnW2  BITS  OF  DECBRNCH  NOT=  0,  SIGN 
FOR  THIS  WORD  ALRFADY  INo  REJECTo 


NO  MATCH  FGUNOo  SIGN  ILLEGAL 


MATCH  FOUND 
SIGN  LEGAL 


CLEAR  PLANKS  WHICH  Rl  , R2 , R3  IS  CURRENT  OR  LAST  TO  BE  0 1 SPL A YEO ( P ER T INE 
NT  XREG,YREG,ZRE&  IS  CLEARED)*  SUCCESSIVE  CLEARS  TAKE  CAPE  CF  EACH  RX 
L/  RC  UNTIL  Rl  IS  CCNE*  THEN  NC  FURTHER  ACTION 


THE  SINGLE  COMPONENT  LOAD  VERBS  ALLOW  ONLY  THE  SINGLE  RC  THAT  IS 
APPROPRIATE  TO  BE  CLEARED* 


CLPASS 


+0  PASSO,  CAN  BE  EACKEC  UP 
+NZ  HIPASS,  CAN  BE  BACKED  UP 
-NZ  PASSO,  CANNOT  BE  BACKED  UP 


GAP: 

L 

0586 

0587 

0588 

0589 

0590 

0591 

0592 

0593 

059A 

0595 

C596 

0597 

0598 

0599 

0600 

0601 

0602 

0603 

060A 

0605 

0606 

0607 

0608 

0609 

0610 

0611 

0612 

0613 

061A 

0615 

0616 

0617 

0618 

0619 

0620 

0621 

0622 

0623 

R062A 

R0625 

R0626 

0627 

0628 

0629 

0630 

0631 

0632 
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PINBALL  GAME  BUTTONS  ANC  LIGHTS 


USER'S  PAGE  NCr  15  EC  S4 


REF  13 
REF  29 

REF  30 
RPF  107 
REF  2 
J^EF  12 
REF  6 
REF  1 


REF  13 
REF  1 
REF  1 
REF  lA 
REF  15 
REF  2 
REF  1 
REF  3 
REF  16 
REF  I 

REF  7 
REF  78 
REF  1 
REF  2 
REF  17 
KEF  1 
REF  7 
REF  A6 
REF  A8 
REF  1 
REF  2 
REF  108 
REF  A9 
REF  3 
REF  A7 
REF  50 


LAST  AOS 
LAST  AOS 

LAST  A06 
LAST  AT-S 
LAST  A03 
LAST  AOS 
LAST  AO^, 


LAST  A06 


LAST  A06 
LAST  ACi6 
LAST  A06 

LAST  AOA 
LAST  A06 


LAST  AOA 
LAST  3Q0 

LAST  A06 
LAST  A06 

LAST  A06 
LAST  AOS 
LAST  AOS 

LAST  232 
LAST  At>6 
LAST  A06 
LAST  A03 
LAST  A06 
LAST  AOB 


A0,2A67 
A0,2A70 
AO,2A71 
AO, 2A72 
A0,2A73 
A0,2A7A 
AO, 2A75 
A0,2A76 
A0,2A77 
AO, 2500 
AO, 2501 
AO, 2502 
AO, 2503 
A0,250A 
AO, 2505 
AO, 2506 
AC,25C7 
AO ,2510 

40.2511 

40.2512 

40.2513 
A0,251A 

40.2515 

40.2516 

40.2517 

40.2520 

40.2521 

40.2522 
40,2  523 

40.2524 

40.2525 

40.2526 

40.2527 

40.2530 

40.2531 
AO, 2532 
AO, 2 533 
AO, 2534 


C 2473  0 
6 4753  1 
50  000  1 
3 2330  0 
SA  137  0 
11*014  1 
C 2505  C 
0 2502  1 
C 2502  1 
3 0137  1 
0 2527  0 
0 2522  0 
10  137  0 
54  137  0 
C 2527  0 
3 2577  0 
27'012  1 
3 0137  1 
54  125  0 
0 C006  I 
27'000  1 
0 4616  1 
62342  0 
3 0125  1 
54  137  0 
C 2525  1 
25*014  0 
0 5155  0 
22  002  0 
0 2540  1 
6 7751  0 
10  000  0 
0 0002  0 
C 5675  0 
0 5155  0 
C 0002  0 


CLEAR  CCS 
AD 
TC 
AO 

INDEX 

CAF 

TS 

CCS 

TC 

TC 

TC 

CA 

TC 

TC 

CLPASHI  CCS 
TS 
TC 
CAF 
AOS 
CA 
TS 

EXTEND 

DIM 

TC 

CACR 

CA 

TS 

CLEARl  TC 

INCR 

TC 

CLR5  LXCH 

TC 

LEGALIST  AC 
CCS 
TC 
TC 
TC 
TC 


OSPCCUNT 

ONE 

+2 

ONE 

A 

INRELTAB 
INREL 
CLPASS 
CLPASHI 
+ 2 
+ 1 

I NREL 

LEGALTST 

CLEARl 

INREL 

INREL 

LEGALTST 

DOUBLK  +2 

REGRET 

I NREL 

MI XTEMP 

VER6REG 
RANKCALL 
UPCATVE 
MI  XTEMP 
INREL 
CLP5 
CLPASS 
ENCOFJCB 
0 

5BLANK  +2 
NEG2 
A 
Q 

CCSHOLE 

END0FJO6 

0 


DO  NOT  CHANGE  DSPCCUNT  BECAUSE  MAY  LATER 
FAIL  LEGALTST, 

MUST  SET  INREL,  EVEN  FCR  HTPASSo 


+0  IF  CLPASS  IS  +0  OR  -,  IT  IS  PASSO 


+3  TO  - NUMBERo  BACKS  DATA  REQUESTS^ 

TEMP  STORAGE  FOR  INREL 
DECREMENT  VERB  AND  RE-DISPLAY 


RESTORE  INREL 


ONLY  IF  CLPASS  IS  + OR  +0, 

SET  FOR  HIGHER  PASSc 

USES  5BLANK  BUT  AVOIDS  ITS  TC  6ETINREL 


LEGAL  INREL  G/  2 

ILLEGAL  INREL=  0,1 
LEGAL  INREL  = ? 


SfiLANK  BLANKS  5 CHAR  DISPLAY  WORD  IN  Rl,  R2,  OR  R3o  IT  ALSO  ZEROES  XR6G, 
YREG,  OR  ZREGoPLACE  ANY  + OSPCCUNT  NUMBER  FOR  PERTINENT  RC  INTO  DSPCOUNT 
DSPCOUNT  IS  LEFT  SET  TO  LEFT  MCST  DSP  NUMB  FOR  RC  JUST  8LANKEO0 


REF  14  LAST  406 
REF  51  LAST  406 
REF  4 LAST  405 
REF  62  LAST  404 
REF  18  LAST  406 
REF  8 LAST  406 


40.2535 

40.2536 

40.2537 

40.2540 

40.2541 

40.2542 


54  776  0 
22  002  0 
0 2324  0 
3 4755  1 
50  T37  1 
55*000  1 


5BLANK 


TS  DSPCOUNT 

LXCH  0 

TC  GETINPEL 

CAF  ZERO 

INDEX  INREL 

TS  VERBREG 


NEEDED  FOR  BLANKSUB 


ZERO  X , Y , Z REGo 


GAP; 

L 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 

0661 

0662 

R0663 

R0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 

0673 

06  74 

0675 

0676 
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PINBALL  GAME  ELTTCNS  ANC  LIGHTS 


USER'S  PAGE  NOo  16  EO  S4 


REF  19 
REF  2 
REF  4 
REF  20 
REF  19 
REF  8 
REF  1 
REF  9 
REF  21 
REF  1 
REF  2 
REF  2 
REF  22 
REF  2 
REF  15 
REF  2 
REF  18 
REF  16 
REF  3 
REF  23 
REF  2 
KEF  17 
REF  45 


LAST  406 
LAST  403 
LAST  405 
LAST  407 
LAST  404 
LAST  405 


LAST  407 
LAST  407 

LAST  401 
LAST  401 
LAST  407 
LAST  406 
LAST  406 
LAST  404 
LAST  404 
LAST  4{‘7 
LAST  407 
LAST  407 
LAST  405 
LAST  407 
LAST  405 


40.2543 

40.2544 

40.2545 

40.2546 
40,2  547 

40.2550 

40.2551 

40.2552 

40.2553 
40,255^ 

40.2555 

40.2556 

40.2557 

40.2560 

40.2561 

40.2562 

40.2563 

40.2564 

40 .2565 

40.2566 

40.2567 

40.2570 

40.2571 


5C  137  1 
55'003  1 
54  124  1 
50  137  1 
4 4745  1 
7 0777  1 
7 2600  1 
54  777  1 
50  137  1 
3 2570  1 
54  143  0 
C 3356  1 
50  137  1 

3 2573  1 
54  776  0 
0 2601  1 

4 4752  I 
26  776  0 
0 2601  1 
5C  137  1 
3 4315  1 
54  776  0 
C 0001  0 


5BLANK1 


MASK 

MASK 


INREL 

XREGLP  -2 

CODE 

INRFL 

B1T7 

DFCBRNCh 

BRNCHCON 

DECBRNCH 

INREL 

SI  KBLANK  -2 
COUNT 
OSPIN 
INREL 

DOUBLK  -2 
DSPCOUNT 
2BLANK 
TWC 

OSPCCLNT 
2BLANK 
I NREL 

RlDl  -2 
OS  PCQUNT 
L 


ZERO  PERTINENT  DEC  COMP  BIT, 
PROTECT  OTHERS 

ZERC  LOW  2 BITS, 

BLANK  ISOLATED  CHAR  SEPARATELY 


SET  OSPCQUMT  TO  LEFT  MOST  DSP  NUMBER 
OF  REGo  JUST  BLANKED 


40.2572 

40.2573 

40.2574 

40.2575 

40.2576 
40  ,2577 


00016  0 
C0005  1 
00004  0 
00015  0 
OOCll  1 
00003  1 


SINBLANK 

COUBLK 


OCT  16 

OCT  5 

OCT 

OCT  15 

OCT  11 

OCT  3 


DEC  14 


DEC  13 
DEC  9 


40,2600  77774  0 8RNCHCCN  OCT  77774 


2eLANK  BLANKS  TWO  CHARo  PLACE  OSP  NUMBER  OF  LEFT  CHAR  OF  THE  PAIR  INTO 
DSPCOLNTo  THIS  NUMBER  IS  LEFT  IK  OSFCCUNT 


REF  18  LAST  407 
REF  1 
REF  I 

REF  2 LAST  4P7 
REF  23  LAST  224 


REF  6 LAST  224 
REF  52  LAST  406 


40.2601  3 0776  1 

40.2602  54  021  0 

40.2603  4 2614  1 
40,26C4  C 0004  0 

40.2605  50  021  1 

40.2606  57'022  0 

40.2607  0 0006  1 

40.2610  6 2612  0 

40.2611  25'015  1 

40.2612  0 0003  1 

40.2613  0 0002  0 

40.2614  C4000  0 


2BLANK  CA 
TS 
CS 

INHINT 

INDEX 

XCH 

EXTEND 
BZMF 
I NCR 
REL  INT 
TC 

6LANKCCN  OCT 


DSFCCUKT 

SR 

BLANKCCN 

SR 

DSPTAB 
+ 2 

NOUT 

0 

^000 


IF  OLD  CONTENTS  NOUT  OK 
IF  OLD  CONTENTS  +,  +1  TO  NOUT 
IF  -,NOUT  OK 


gap:  assemble  REVISION  J31  OF  AGC  PROGRAM  LUMINARV  BY  NASA  2021J 12-091 
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L PINBALL  GAME  BUTTONS  ANC  LIChTS 


USFR'  S PAGE  NC«  37  EC  S4 


P0677 

R0678 

R0679 


ENTER  PASS  C IS  THE  EXECUTE  FLNCTICNo  HIGHER  CRCER  ENTERS  ARE  TC  LOAO 
CATAo  THE  SIGN  OF  REGRET  DETERMINES  THE  PASS,  + FOR  PASS  0,-  FOR  HIGHER 
PASSES. 


R0680  MACHINE  CACR  TO  BE  SPECIFIED  (MCTBS)  NOUNS  DESIRE  AN  ECAPR  TC  BE  LCADEC 
R0681  WHEN  USED  WITH  LOAC  VERBS,  MONITOR  VERBS,  OR  DISPLAY  VERBS  lEXCEPT 

R0682  VERB  = FIXED  MEMORY  DISPLAY,  WHICH  RECUIRES  AN  FCACRU 


0683 

0683C1  REF 
068302 


^1,2000 
,2  300 
U,2000 


BANK  41 
SETLOC  PINBALL? 
BANK 


06835  REF 


06  64 
0685 
A0686 


REF 

REF 


1 

1 

1 


41.2000 

41.2001 


COUNT*  S$/PIN 
0 3557  0 NVSU8B  TC  NVSUBl 
C 3020  0 LOAOLVl  TC  LOAOLV 


STANDARD  LEAD  !NS<-  PONT  MOVE, 
END  OF  STANDARD  LEAD  INS. 


0687  REF  63 

0688  REF  8 

0689  REF  2 

0690  REF  2 

0691  REF  4 

0692  REF  1 

0693  REF  2 

0694 

0695  PEF  1 

0696  REF  5 

0697 

0698  REF  1 

0699  REF  9 

0700  REF  10 

0701  REF  109 

0702 

0703  REF  2 

0704  REF  19 

0705  REF  1 

0706  REF  2 

0707 

0708  REF  6 

0709  REF  7 

0710  REF  2 

0711  REF  8 


LAST  406 
LAST  406 
LAST  404 
LAST  404 
LAST  406 

LAST  408 


last  408 


LAST  405 
LAST  407 
LAST  406 

LAST  408 
LAST  407 

LAST  408 


LAST  408 
LAST  408 
LAST  276 
LAST  408 


41.2002  3 4755  1 

41.2003  55'014  1 

41.2004  ? 4217  1 

41.2005  54  136  1 

41.2006  11'012  1 

41.2007  C 2035  0 

41.2010  0 2035  0 

41.2011  0 2012  0 

41.2012  3 2033  0 

41.2013  6 IC12  0 

41.2014  C 0006  1 

41,  2015  1 2027  1 

41.2016  3 6250  0 

41.2017  7 0777  I 
41,2020  1C  000  0 
41  ,?021  r 2023  I 

41 . 2022  0 2027  0 

41.2023  10  776  0 

41 .2024  0 2353  0 

41.2025  C 2353  0 

41.2026  0 2027  0 

41.2027  4 1012  1 

41,2030  951012  1 

41  ,2031  0 4433  1 

41 ,2032  0 1012  0 


ENTER  CAF 
TS 
CAF 
TS 
CCS 
TC 
TC 
TC 

ENTPASHI  CAF 
AO 

EXTEND 

BZF 

CAF 

MASK 

CCS 

TC 

TC 

CCS 

TC 

TC 

TC 

ACCEPTWO  CS 
TS 
TC 
TC 


ZERC 
CLPASS 
ENCINST 
FNTRET 
REORET 
ENT  PASO 
ENTPASn 
+ 1 

MMACREF 

REGRET 

ACCEPTV.0 

THREE 

DEC6RNCH 

A 

+ 2 

ACCEPTWC 
OSPCOUNT 
GOOSPALM 
GOOSPALM 
+ 1 

REGRET 

REGRET 

FLASHOFF 

REGRET 


IF  +,  PASS  0 
IF  +,  PASS  0 
IF  -,  NOT  PASS  0 

IF  L/  2 CHAP  IN  FOR  MM  CODE,  ALARM 
AND  RECYCLEIDEC  IDE  AT  MMCHANG  + ll- 

IF  DEC,  ALARM  IF  L/  5 CHAR  IN  FOR  DATA, 
BUT  LEAVE  REGRET  - AND  FLASH  ON,  SO 
OPERATOR  CAN  SUPPLY  MISSING  NUMERICAL 
CHARACTERS  AND  CONTINUE. 

OCTAL.  ANY  NUMBER  OF  CHAR  OK. 

LESS  THAN  5 CHAP  DECIDSPCOUNT  IS  +» 

LESS  THAN  5 CHAR  OECIOSPCOUNT  IS  +I 
5 CHAR  IN  (OSPCOUNT  IS  -) 

5 CHAR  IN  (OSPCOUNT  IS 
SET  REORET  +o 


0712  REF  3 LAST  408 

0713  REF  I 


0136  ENTEXIT  = FNTRET 

41,2033  03444  0 MM/iCREF  ACRES  MMCHANG  +1 


ASSUMES  TC  REQMM  AT  MMCHANG. 


GAP:‘ 

L 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 

0728 

0729 

0730 

0731 

0732 

0733 

073^ 

0735 

0736 

0737 

0738 

0739 

0740 

0741 

0742 

0743 

0744 

0745 

0746 

0747 

0748 

0749 

0750 

0751 

0752 

0753 

0754 

0755 

0756 

0757 

0756 

0759 

0760 

0761 
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USER'S  PAGE  NOo  18  EO  S4 


41  ,2034  00034  0 LOWVER0  DEC 


28 


LOWER  VERB  THAT  AVOIDS  NOUN  TESTo 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 


40P 

406 

404 

408 

406 


REF  1 
REF  1 

REF  3 LAST  307 
REF  3 LAST  306 


REF  1 

REF  3 LAST  306 

REF  2 LAST  409 

REF  3 LAST  408 

REF  1 

REF  1 

REF  1 

REF  1 

REF  22  LAST  296 

REF  9 LAST  408 

REF  3 LAST  408 

REF  1 


REF  2 LAST  409 
REF  1 

REF  12  LAST  409 
REF  1 

REF  4 LAST  409 
REF  21  LAST  409 
REF  3 LAST  400 


REF  1 

REF  1 
REF  I 
REF  1 


REF  2 LAST  409 

REF  4 LAST  409 

REF  3 LAST  409 


41. 2036 

41.2037 

41.2040 

41.2041 

41.2042 

41.2043 

41 .2044 

41.2045 

41.2046 
41  ,2047 

41.2050 

41.2051 

41 .2052 

41.2053 

41.2054 

41.2055 

41.2056 
41  ,2057 
41,2060 
4 1 , 20  6 1 
41  ,2062 

41.2063 

41.2064 

41.2065 

41.2066 
41  ,2067 

41.2070 

41.2071 
41  ,2972 
41,  2073 

41.2074 

41.2075 

41.2076 
41  ,2077 

41.2100 

41.2101 

41.2102 

41. 2103 

41.2104 

41.2105 

41.2106 
41  ,2107 

41.2110 

41.2111 
41  ,2112 


4 4360  1 
54  776  0 
4 1000  1 
55'040  0 
6 2034  1 
0 0006  1 
6 2133  1 
C 0006  1 
3 2114  1 
52  006  0 
50  140  1 
0 2052  1 
C 2055  C 
0 2221  1 
10  146  0 
0 2131  0 
0 2353  0 
0 2064  1 
25'016  1 

0 4311  0 
C 2120  0 

3 4735  1 
55'014  1 

4 4217  0 
6 0136  0 
C 0006  1 

1 2073  0 
0 2116  0 
C 2311  0 
10  777  1 
C 4145  0 
4 4360  1 
54  776  0 
11'041  1 
0 2104  0 
0 2105  1 
C 2104  0 
0 4427  1 
57'004  1 
0 4303  0 
0 0006  1 
3 2114  I 
52  006  0 
0 2133  1 


ENTPASO 


TESTV6 


TESTNN 


REOACO 


USEAOO 


CAF  ZERO 

TS  OECBRNCH 

CS  VOl 

TS  OSPCnUNT 

CS  VERBREG 

TS  VERBSAVE 

AD  LOWVERB 

EXTEND 

BZMF  VEPBFAN 

E XTEND 

DCA  LOONNLOC 

cxcH  z 

INDEX  MIXBR 

TC  +0 

TC  +2 

TC  MIXNOUN 

CCS  NNACTEM 

TC  VERBFAN  -2 

TC  GODSPALM 

TC  REQACD 

INCR  NOUNCADR 

TC  SETNAOO 

TC  INTMCTBS  +2 

CAF  BIT15 

TS  CLPASS 

CS  ENDINST 

AD  ENTEXIT 

EXTEND 
8ZF  +2 

TC  INTMCTBS 

TC  REGDATZ 

CCS  OECBRNCH 

TC  ALMCYCLE 

CS  VDl 

TS  OSPCOUNT 

CCS  CADPSTOR 

TC  +3 

TC  USEADO 

TC  +1 

TC  FLASHON 

XCH  ZREG 

TC  SETNCADR 

EXTEND 

DCA  LOCNNLOC 

DXCH  Z 

TC  VERBFAN 


NOUN  VERB  SUB  ENTERS  HERE 

BLOCK  FURTHER  NUM  CHAR,  SO  THAT  STRAY 
CHAR  00  NOT  GET  INTO  VERB  OR  NOUN  LTS< 
IF  VERB  IS  G/E  LGWV8,  SKIP  NOUN  TEST.. 
SAVE  VERB  FOR  POSSIBLE  RECYCLE^ 
LOWVERB  - VB 

VERB  G/  E LOWVERB 
VFPB  L/  LCWVEPB 

SWITCH  BANKS  TO  NOUN  TABLF  READING 
ROUT INEo 


NORMAL 
MI  XED 
NORMAL 

NORMAL  IF  + 

NOT  IN  USE  IF  +0 

SPECIFY  MACHINE  CAOP  IF  - 

AUGMENT  MACHINE  CACP  IF  -9 

ECAOR  FROM  NOUNCAOPo  SETS  EB,  NOUNAOD: 

SET  CLPASS  FOR  PASSO  ONLY 

TEST  IF  REACHED  HERE  FPCM  INTERNAL  OR 
FROM  E XTERNAL 

EXTERNAL  MACH  CADR  TO  BE  SPECIFIED 

EXTERNAL  MACH  CADR  TO  BE  SPECIFIED 
ALARM  AND  RECYCLE  IF  DECIMAL  USED 
FOR  MCTBSo 
OCTAL  USED  OK 
BLOCK  NUM  CHAR  IN 

EXTERNAL  MCTBS  DISPLAY  WILL  LEAVE  FLASH 
ON  IF  ENDIOLE  NOT  = +0, 


ECACR  INTO  NOUNCADRo  SET  EB,  NOUNADD. 

SWITCH  BANKS  TO  NOUN  TABLE  READING 
ROUTI  NEo 


REF  22  LAST  409 


0776 


EBANK=  DSPCCUNT 


GAP: 

L 

0762 

0762 

0763 

0764 

0765 

0766 

0767 

0768 

0769 

0770 

0771 

0772 

0773 

C774 

0775 

0776 

0777 

0778 

0779 

0780 

0781 

0782 

0783 

0784 

0785 

0786 

0788 

0790 

0791 

C792 

0793 

0794 

0795 

0796 

0797 

0798 

0799 

0800 

0801 

0802 

0803 

0804 

0805 

0806 

0807 
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REF  1 
REF  1 


Al,2H3 

41,2114 


02103  1 LCCNNLCC  2CA0R  L0CNNTA6 
64101  0 


41,2115  77772  0 NEG5  OCT 


77772 


REF  .85  LAST  403 
REF  2 LAST  409 
REF  8 LAST  378 
REF  10  LAST  409 

REF  4 LAST  409 
FEF  2 LAST  408 
REF  23  LAST  409 
REF  2 LAST  409 
REF  1 

RFF  5 LAST  410 


41,2117 

41.2120 

41.2121 

41.2122 

41.2123 
41,  2124 
41  ,2125 

41.2126 

41.2127 
41  ,2130 


3 0156 

0 4303 

4 4756 
6 1000 
C 0006 

1 2133 
•3  4321 

54  776 
3 1016 
0 3410 
0 2133 


I NTMCTBS 


0 

0 

0 

0 

1 

0 

0 

0 

1 

1 

I 


CA 

TC 

CS 

AO 

EXTEND 

ezF 

CAF 

TS 

CA 

TC 

TC 


MPAC 

SETNCAOR 

FIVE 

VERBREG 

VERBFAN 

R301 

OSPCOUNT 

NOUNCAER 

DSPCCTRD 

VERBFAN 


INTERNAL  MACH  CADP  TD  BE  SPECIFIED* 
ECADR  INTC  NOUNCADR*  SFT  EB,  NOUNADOc 
NVSUB  CALL  LFFT  CAOR  IN  MPAC+2  FOR  MACH 
CACR  TO  BE  SPECIFIED* 

DONT  DISPLAY  CADP  IF  VP  = 05o 
V8  NOT  = 05e  DISPLAY  CACR^, 


REF  31 
REF  3 
REF  1 
REF  11 
REF  110 
REF  32 

REF  1 
REF  86 
RFF  4 
REF  18 
PEF  1 


LAST  406 
LAST  410 

LAST  410 
LAST  408 
LAST  410 


LAST  410 
LAST  234 
LAST  401 


41.2131 

41.2132 

41.2133 

41.2134 
41  ,2135 

41. 2136 

41.2137 
41  ,2140 

41.2141 

41.2142 

41.2143 

41. 2144 
41  ,2145 


6 4753  1 
0 4303  0 
4 2145  1 
6 1000  0 
10  000  0 
6 4753  1 
0 2141  1 
0 2146  0 
54  154  0 
0 4457  0 
0 4635  0 
66C00  1 
00050  1 


AD 

TC 

VERBFAN  CS 
AO 
CCS 
AC 
TC 
TC 
TS 
TC 
TC 

CAOR 

LST2C0N  CEC 


ONE 

SETNCAOR 

LST2C0N 

VERBREG 

A 

ONE 
+ 2 

V8FANDIR 

MPAC 

RELDSP 

POST  JUMP 

GOEXTVB 

40 


ECADR  INTO  NOUNCADRo  SETS  E6,  NOUNAOD* 

VERB-LST2C0N 

VERB  G/  LST2C0N 

VERB  L/  LST2C0N 

RELEASE  DISPLAY  SYST 

GO  TO  GOEXTVB  WITH  V0-4O  IN  MPAC,. 

FIRST  LIST2  VERB  (EXTENDED  VERB) 


REF  12  LAST  410 
REF  1 

REF  2 LAST  272 


41.2146  51  'OCO  0 

41.2147  2 2151  0 

41  ,2150  0 4640  1 


VBFANOIR 


INDEX 

CAF 

TC 


VERBREG 
VER6TAB 
BANK  JUMP 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 


409 


410 

410 


41  0 
410 
410 


41,27.51  62353 

41,2)52  62367 

41.2153  62375 

41.2154  62402 

41.2155  62362 

41.2156  62355 

41.2157  62525 

41.2160  61025 

41.2161  62353 

41  ,2162  62353 

41.2163  61454 

41.2164  63255 

41  ,2165  63255 

41.2166  63255 

41.2167  63255 


0 VERBTAB  CAOR 

1 CAOR 

1 CACR 

0 CACR 

1 CACR 

0 CACR 

1 CADR 

1 CADR 

0 CAOR 

0 CADR 

0 CACR 

0 CAOR 

0 CADR 

0 CACR 

0 CAOR 


GOOSPALM 

DSPA 

OSPE 

DSPC 

DSPAh 

DSPABC 

OECDSP 

OSPOPDEC 

GOOSPALM 

GOOSPALM 

DS  PALARM 

MONI TOR 

MONITOR 

MCNITTR 

MONITOR 


vBon 

VBOl 
V80  2 
VR03 
VB04 
VBC5 
VB06 
VBC7 
V0O8 
VBC9 
VBIO 
VB17 
VB)  2 
VB)3 
V614 


illegal 

DI  SPLAY  OCT  CCMP  1 (R1  ) 

DISPLAY  OCT  COMP  2 (Rl) 

DISPLAY  OCT  CCMP  3 (Rl ) 

DISPLAY  OCT  CCMP  1,2  (P1,R2> 
DISPLAY  nCT  COMP  1,2,3  (P1,R2,R3) 
DECIMAL  DISPLAY 
DP  DECIMAL  DISPLAY  (P1,R2) 

SPARE 

SPARE 

SPARE 

MONITOR  OCT  CCMP  1 (PI ) 

MONITOR  OCT  CCMP  2 (Rl) 

MONITOR  OCT  COMP  (PI) 

MONITOR  OCT  CCMP  1,2  (R1,R2) 
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0808  REF  5 

0009  REF  6 

C810  REF  7 

0811  REF  7 

0812  REF  8 

0813  REF  9 

OeiA  REF  1 

0815  REF  1 

0816  REF  1 

0817  REF  1 

0818  REF  1 

0819  REF  10 

0020  REF  1 

A0821 

0822  REF  n 

0823  REF  12 

082A  REF  I 

0825  REF  I 

0826  REF  I 

0827  REF  1 

0828  REF  1 

0829  REF  1 

0830  REF  1 

0831  REF  2 

0832  REF  13 

0833  REF  lA 


LAST 

LAST 

LAST 

LAST 


910 
All 

911 
910 
91  1 
91  1 


LAST  911 


LAST  911 
LAST  911 


LAST  908 
LAST  91  1 
LAST  911 


91.2170  63255  0 

91.2171  63255  0 

91.2172  63255  0 

91.2173  62353  0 

91 ,2179  62353  0 

91.2175  62353  0 

91.2176  62755  1 

91 .2177  62766  1 

91.2200  63CC3  1 

91.2201  62726  0 

91.2202  62622  0 

91.2203  62353  0 

91,2209  63900  0 


91,2205  62353  0 

91  ,2206  62353  0 

91,2207  63501  0 

91.2210  63525  0 

91.2211  61  521  0 

91.2212  61976  0 

91.2213  61509  1 

91.2219  63626  0 

91.2215  12997  0 

91.2216  63993  1 

91.2217  62353  0 

91.2220  62353  0 


CACR 

CAOR 

CACR 

CADR 

CADR 

CACR 

CADR 

CACR 

CACR 

CADR 

CACR 

CAOR 

CAOR 

CADR 

CAOR 

REQEXLOC  CACR 
CAOR 
CADR 
CADR 
CACR 
CACR 
CADR 
CADR 
CADR 
CAOR 


NONITCR 

MONITOR 

MONITOR 

GODSPALM 

GODSPALM 

GOCSPALM 

A LOAD 

BLOAC 

CLOAD 

ABLOAD 

ABCLCAC 

GODSPALM 

OSPFMFM 

GODSPALM 

GODSPALM 

V8RCEXEC 

V0ROWAIT 

V fiRES  EQ 

VBPROC 

VBTEkM 

VBTSTLTS 

SLAPl 

MMCHANG 

GODSPALM 

GODSPALM 


R0834  THE  LIST2  VERBFAN  IS  LOCATED  IN  THE  EXTENOEC  VERB  BANKo 
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V615 

VB16 

VB17 

V818 

VB19 

V620 

VB21 

V622 

USER 'S  PAGE  NCo  20  EO  S9 

MONITOR  OCT  COMP  1,2,3  (P1,R2,R3) 
MONITOR  DECIMAL 

MONITOR  DP  DEC  (FI ,R2) 

SPARE 

SPARE 

SPAR  E 

LOAD  CCMP  1 ( R1 ) 

LOAD  COMP  2 (ft2» 

V623  LOAC  COMP  3 (ft?  ) 

V029  LOAD  CCMP  1,?  (R1,R2» 

Ve25  LOAD  COMP  1,2,?  (P1,R2,R?I 
VB26  SPARE 

V027  FIXED  MEMORY  DISPLAY 

THE  FOLLOWING  VERBS  MAKF  NO  NOUN  TEST 


VB28 

SPARE 

VB29 
V830 
V031 
V032 
VB3  3 
VB39 
ve35 
VB36 
V837 
ve38 

VB39 

SPARE 

REQUEST  EXECUTIVE 

REQUEST  WAITLIST 

RESEQUENCE 

PROCEED  W ITHOUT  DATA 

TERMINATE  CURRENT  TEST  OR  LOAD  REO 
TEST  LIGHTS 

FRESH  START 

CHANGE  MAJOR  MODE 

SPARE 

SPARE 

GAP; 

L 

P0835 

R0836 

R0837 

R0836 

0839 

0840 

0841 

0642 

0843 

0844 

0845 

0846 

0847 

0848 

0849 

0850 

0851 

0852 

0853 

0854 

0855 

AC856 

A0857 

0858 

0859 

0860 

0861 

0862 

0863 

0864 

0865 

0866 

0867 

0868 

0869 

0870 

0871 

0872 

R0873 

R0874 

R0875 

0876 

0877 

0878 

067<3 
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NNA0TA6  CONTAINS  A RELATIVE  ACCPESS,  ICACCRELIIN  LCH  10  BITS),  REFERRING 
TC  WHERE  3 CONSECUTIVE  ADDRESSES  ARE  STORED  (IN  lOAOOTABIo 
MXNCUN  GETS  DATA  ANC  STORES  IN  M I XT  EMP , ♦ 1 , +2®  IT  SETS  NOUNADD  FOR 
•Ml  XTEMPc 


REF  4 
REF  15 


REF  9 
REF  13 


REF  6 
REF  19 
REF  1 
REF  1 
REF  1 
REF  2 
REF  2 
REF  1 


REF  1 
REF  1 
REF  1 
REF  2 
REF  3 
REF  3 
REF  1 
REF  111 

REF  2 

REF  3 
REF  1 
REF  7 


LAST  409 
LAST  411 

LAST  281 
LAST  410 


LAST  410 
LAST  407 


LAST  412 
LAST  306 


LAST  412 
LAST  412 
LAST  159 

LAST  410 

LAST  412 

LAST  412 

LAST  412 


41,2221  10  146  0 

41  ,2222  C 2226  0 

41.2223  C 2353  0 

41.2224  0 2226  0 

41.2225  0 2226  0 

41.2226  t-  6245  0 

41.2227  6 1000  0 

41.2230  0 0006  I 

41.2231  6 2233  1 

41 .2232  0 2133  1 

41. 2233  3 4752  0 

41.2234  54  117  1 

41.2235  6 2260  1 

41.2236  S4  145  0 

41  ,2237  50  117  0 

41.2240  3 015C  0 

41.2241  54  122  1 


MI XNOUN 


M IXNNl 


CCS  NNAOTEM 

TC  +4 

TC  GODSPALP 

TC  +2 

TC  41 

CS  SI  X 

AD  VERBREG 

EXTEND 
BZMF  +2 

TC  VERBFAN 

CAF  TWC 

TS  DECOUNT 

AD  MIXAC 

TS  NOUNADD 

INDEX  DECOUNT 

CA  lOAOl  TFM 

TS  NOLNTEP 


41.2242  0 3057  0 

41.2243  C 2261  0 

41.2244  C 2246  0 

41  ,2245  24  122  0 

41.2246  3 0122  0 

41.2247  7 4356  1 

41 .2250  0 4313  1 

41. 2251  50  COO  1 

41.2252  3 0000  1 

41.2253  50  145  1 

41.2254  56  000  1 

41  ,2255  10  117  1 

41.2256  0 2234  0 

41.2257  0 2133  1 


TC  SFRUTMIX 

TC  DPTEST 

TC  MIXNN2 

INCR  NOUNTEM 

M1XNN2  CA  NOUNTEM 

MASK  LOWll 

TC  SETEBANK 

INDEX  A 

CA  0 

INDEX  NOUNADD 

XCH  r 

CCS  DECOUNT 

TC  MIXNNl 

TC  VERBFAN 


+ IN  USE 
+0  NOT  IN  USE 
- IN  USE 
-0  IN  USE 


VERB  L/E  6 

AVOID  MIXNOUN  SWAP  IF  VB  NOT  = DISPLAY 


SET  NOUNADO  TO  MIXTEMP  + K 

GET  lOAODTAB  ENTRY  FCR  COMPONENT  K 

CF  NOUNo 

TEST  FOR  OPfFOR  OCT  DISPLAY)*  IF  SO,  GET 
MINOR  PART  ONLY* 

GET  SF  ROLT  NUMBER  IN  A 

NO  OP 

OP  GET  MINOR  PART 

ESUBK  (NO  DP)  CR  (ESUBKI+l  FOR  DP 
SET  EBANK,  LEAVE  EADRES  IN  A* 

PICK  UP  C(FSUBK)  NOT  OP 
OR  C((eSUBK)+l)  FCR  DP  MINOR  PART 

STORE  IN  MIXTEM  + K 


REF  3 


LAST  406  41,2260  0 0125 


MIXAC  TC 


MIXTEMP 


CPTEST 


ENTER  WITH  SF  ROUT  NUMBER  IN  A* 
RETURNS  TC  L+1  IF  NC  CP, 

RETURNS  TO  L*2  IF  DP* 


REF  112  LAST  412 

REF  53  LAST  407 
REF  54  LAST  412 


41,2261  50  000  1 

41  ,2262  3 2263  0 

41.2263  0 0CC2  0 

41.2264  0 0002  0 


DPTEST 


INDEX  A 

TCF  +1 

TC  0 

TC  0 


OCTAL  ONLY  NP  DP 
FRACT  NO  OP 


GAP; 
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USER’S  PAGE  NOo  22  EO  S4 


0880  REF  55 

0881  REF  56 

0882  REF  1 
0683  REF  2 

0884  REF  57 

0885  REF  3 

0886  REF  58 

0887  REF  59 

0888  REF  4 

08881  REF  60 

08882  REF  61 

08883  REF  62 

08884  REF  63 
08865  REF  64 

0889  REF  65 
0690 


LAST  412 
LAST  413 

LAST  413 
LAST  413 
LAST  412 
LAST  413 
LAST  413 
LAST  413 
LAST  4} 3 
LAST  413 
LAST  413 
LAST  413 
LAST  413 
LAST  413 


41,3265  0 0002  0 

41.2266  0 0002  0 

41.2267  1 2303  I 

41,2270  1 2303  1 

41  ,2271  0 0002  0 

41.2272  } 23C3  1 

41.2273  0 0002  0 

41.2274  C 0002  0 

41. 2275  1 2303  1 

41  ,2276  0 0002  0 

41,2277  C 0002  0 
41,2100  0 0002  0 

41  ,2301  0 0002  0 

41.2302  C CC02  0 

41.2303  50  002  0 

4l,23D4  0 cool  0 


DPTESTl 


TC  0 

TC  0 

TCF  DPTESTl 

TCF  DPTFSTl 

TC  0 

TCF  DPTESTl 

TC  0 

TC  0 

TCF  DPTESTl 

TC  0 

TC  0 

TC  0 

TC  0 

TC  Q 

INDEX  Q 

TC  1 


CEG  NO  CP 
ARITH  Nn  DP 
DPIOUT 
DP20UT 

LRPOSOUT  NO  DP  (DATA  IN  CHANNEL  13) 
DP3DUT 
HMS  NO  OP 

M/S  NO  DP 

DP40UT 
ARITHl 
2 INTOUT 
360-CDU 
PRANGOUT 
RRDOTOUT 


NO  DP 

NO  OP  TO  GET  HI  PART  IN  MPAC 
NO  DP 
NO  DP 
NO  DP 


RETURN  TO  L+2 


089)  REF 

0892  REF 

0893  REF 

0894  REF 

0895  REF 

0896  REF 

0897  REF 

0898  REF 

0899  REF 

0900  REF 

0901  REF 

0902  REF 


3 LAST  4P7 

1 

2 LAST  405 

2 LAST  413 

3 LAST  4in 
24  LAST  410 
66  LAST  413 

9 LAST  408 
79  LAST  406 
2 LAST  406 
2 LAST  409 
7 LAST  409 


41, 2305  3 4317  0 

41  ,2106  1 2312  1 

41,2307  3 4320  1 

41,2310  1 2312  1 

41  ,2311  3 4321  0 

41,2112  54  lit  0 

41.2313  4 0002  1 

41.2314  55’012  1 

41.2315  C 4616  1 

41.2316  60536  1 

41.2317  C 4427  1 
41,2120  I?  0136  0 


REQOATX  CAF 
TCF 

RECDATY  CAF 
TCF 

PECCATZ  CAF 
REQCOM  TS 


ENDRQDAT  TC 


RlOl 

REQCOM 

P2C1 

REQCOM 

P3D1 

DSPCOUNT 

Q 

REGRET 

BANKCALL 

58LANK 

FLASHCN 

ENTEXIT 


0903  REF  8 

0904  REF  67 

0905  REF  1 

0906 

0907  REF  3 

0908  REF  5 

0909  REF  5 

0910  REF  33 

0911  REF  I 

0912  REF  2 

0913  REF  3 

0914  REF  4 

0915  REF  4 

0916  REF  25 

0917  REF  9 

0918  PEF  1 


LAST  404 
LAST  413 


LAST  409 
LAST  409 
LAST  412 
LAST  410 

LAST  413 
LAST  413 
LAST  410 
LAST  404 
LAST  413 
LAST  413 


41.2322 

41.2323 

41.2324 

41.2325 
41  ,2326 
41,2327 
41,2330 
41  ,2331 

41.2332 

41.2333 

41.2334 
41,  2335 
41  ,2336 
41,2337 
41,2340 


55'001  0 
56  CC2  0 
54  117  1 
C 0006  1 
3 2114  1 
52  006  0 
10  146  0 
6 4753  1 
1 2334  0 
1 2335  I 

1 233.5  1 

0 4303  n 

2 4361  1 
54  776  0 

3 lOOl  1 

1 2347  1 


L'POATNN 


PUTAOD 


TS  NOUNREG 

XCH  0 

TS  UPDATRFT 

EXTEND 

OCA  LODNNLCC 

CXCH  Z 

CCS  NNADTEM 

AD  ONE 

TCF  PUTAOD 

TCF  PUTADO  +\ 

TCF  PUTADD  +1 

TC  SETNCACR 

CAE  NOl 

TS  DSPCOUNT 

CA  NOUNREG 

TCF  UPDATl 


SWITCH  BANKS  TO  NOUN  TABLE  READING 
ROUTINEo 

NORMAL 

MCTBS  DONT  CHANGE  NHUNAOD 
MCTBI  DONT  CHANGE  NCUNADD 
FCACR  INTO  NOUNCADRc  SETS  EP,  NOUNADD. 


C919  REF  14  LAST  412 
0920  REF  68  LAST  413 


41.2341  55'000  1 TS 

41.2342  56  CC2  0 UP0ATV8  XCH 


VERBREG 

0 


gap: 
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0923 

0924 

0925 

0926 

0927 


REF 

REF 

REF 

REF 

RFF 

REF 

REF 


41  ,23A3 

41.2344 

41.2345 

41.2346 

41.2347 
41  ,2350 

LAST  414  41,2351 


LAST 

LAST 

LAST 

LAST 

LAST 


413 

409 

413 

413 


54  117  1 

2 4360  0 
54  776  0 

3 1000  0 
0 4635  0 

61353  0 
0 CUT  C 


UPOATl  TC 


UPCATRFT 

VDl 

OSPCOUNT 
V ERBREG 
POSTJUMP 
GDVNUPOT 
UPDATRET 


41,2352  0 4145  0 GOALMCYC  TC 


0929 

0930 


REF  20  LAST  414 
REF  2 LAST  410 


41.2353  0 4635  0 GODSPALM  TC 

41.2354  61454  0 CADR 


POST  JUMP 
DSPALARM 
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USFR  • S PAGE  NCo  23 


EO  S4 


CANT  USE  SWCALL  TC  60  TC  DSPOECVN, S INC E 
UPDATVB  CAN  ITSELF  86  CALLED  BY  SWCALL 


NEEDED  BECAUSE  PANKJUMP  CANT  HANDLE  F/F, 
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L PINBALL  GAME  BUTTONS  AND  LIGHTS  USER'S  PAGE  ND®  24  EC  S4 

P0931  NCUN  TABLES 

R0932  NCLN  CODE  L/40,  NORMAL  NOUN  CASE-®  NCUN  CODE  G/E  40,  MIXED  NOUN  CASE® 

R0933  FCR  NORMAL  CASE,  NNADTAB  CONTAINS  ONE  ECAOR  FOR  EACH  NCUN® 

R093^-  +C  INDICATES  NCUN  NCT  USEC®  - ENTRY  INDICATES  MACHINE  CADRIE  OR  F)  TO 

R0935  BE  SPECIFIED®  -1  INDICATES  CHANNEL  TO  RE  SPECIFIED®  -0  INDICATES  AUGMENT 

R0936  OF  LAST  MACHINE  CACR  SUPPLIED® 


R0937  FOR  MIXED  CASE,  NNADTAB  CONTAINS  CNE  INDIRECT  A OCRESS ( I DADDR EL  ) IN  LOW 
R0938  10  BITS,  AND  THE  COMPONENT  CODE  NUMBER  IN  THE  HIGH  5 BITS® 


R093®  NNTYPTAB  IS  A PACKED  TABLE  OF  THE  FORM  MMMMMNNNNNPPPPP® 


R0940  FOR  THF  NORMAL  CASE,  M-S  ARE  THE  COMPONENT  CODE  NUMBER® 
R0941  N-S  ARE  THE  SF  ROUTINE  CODE  NUMBER® 

R0942  P-S  ARE  THE  SF  CONSTANT  CODE  NUMBER® 


R0943  MIXED  CASE, M-S  ARE  THE  SF  CONSTANTS  CODE  NUMBER 
R0944  N-S  ARE  THE  SF  CONSTANT?  CODE  NUMBER 
RC945  P-S  ARE  THE  SF  CCNSTANTl  CODE  NUMBER 
R0946  N-S  ARE  THE  SF  CaNSTANT2  CODE  NUMBER 
R0947  P-S  ARE  THE  SF  CCNSTANTl  CODE  NUMBER 
R0948  P-S  ARE  THE  SF  CONSTANTl  CODE  NUMBER 


3 COMPONENT  CASF 


2 COMPONENT  CASE 
1 COMPONENT  CASE 


R0949  THERE  IS  ALSO  AN  INDIRECT  ADDRESS  TABLE  I I DADO  TAB ) FOR  MIXFD  CASE  CNLY® 
R0950  EACH  ENTRY  CONTAINS  CNE  fcCADR®  IDADDREL  IS  THE  RELATIVE  ADDRESS  OF 
R0951  THE  FIRST  OF  THESE  ENTRIES® 

R0952  THERE  IS  CNE  ENTRY  IN  THIS  TABLE  FOR  EACH  COMPONENT  OF  A MIXED  NOUN 
R0953  THEY  ARE  LISTED  IN  CPOER  CF  ASCENDING  K. 


R0954  there  IS  ALSO  A SCALE  FACTOR  ROUTINE  NUMBER  TABLE!  RUTMXTAB  1 FCR  MIXEC 
R0955  CASE  ONLY®  THERE  IS  CNE  ENTRY  PER  MIXED  NOUN®  THE  FORM  IS, 

R0956  QQQQQRRRRRSSSSS 

R0957  C-S  ARE  THE  SF  ROUTINE  3 CODE  NUMBER  3 COMPONENT  CASE 

RC958  R-S  ARE  THE  SF  ROUTINE  2 CCDf  NUMBER 

R0959  S-S  ARE  THE  SF  ROUTINE  1 CODE  NUMBER 

R0960  R-S  ARE  THE  SF  ROUTINE  2 CODE  NUMBER  2 COMPONENT  CASE 

R0961  S-S  ARE  THE  SF  ROUTINE  1 CCDE  NUMBER 


R0962  IN  OCTAL  DISPLAY  AND  LOAD  (OCT  OR  DEC)  VERBS,  EXCLUDE  USE  OF  VERBS  WHOSE 

R0963  CCMPONENT  NUMBER  IS  GREATER  THAN  THE  NUMBER  OF  COMPONENTS  IN  NOUN® 

R0964  (ALL  MACHINE  ADDRESS  TO  BE  SPECIFIED  NCUNS  ARE  3 COMPONENT® t 


R09A7  IN  MULT  I-CCMPCNENT  LCAC  VERBS,  NO  MIXING  OF  OCTAL  AND  DECIMAL  DATA 

R0968  CCMPGNFNT  WORDS  IS  ALLCWED®  ALARM  IF  VIOLATION® 


R0969  IN  DECIMAL  LOADS  OF  DATA,  5 NUMERICAL  CHARACTERS  MUST  BE  KEYED  IN 
R0970  BEFORE  EACH  ENTER®  IF  NCT,  ALARM® 


GAP 
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P0971 

0972 

0973 

0974 

0975 

0976 
0577 

0978 

0979 

0980 

0981 

0982 

0983 

0984 

0985 

0986 

0987 

0988 

0989 

0990 

0991 

0992 
0903 

0994 

0995 
C996 

0997 

0998 

0999 

loop 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 


REF  20 
REF  1 
REF  3 

REF  41 
REF  34 
REF  2 
REF  4 

REF  42 
REF  1 
REF  1 
REF  5 

REF  43 
REF  1 
REF  35 
REF  1 
REF  6 

REF  1 
REF  21 
REF  2 
REF  7 

REF  2 
REF  22 
REF  16 
REF  113 
REF  1 
REF  3 


REF  1 
REF  114 
REF  4 
REF  27 
REF  2 
REF  44 
REF  2 
REF  3 
REF  2 


DISPLAY 
LAST  412 

LAST  412 

LAST  338 
LAST  413 
LAST  416 
LAST  416 

LAST  416 


LAST  416 
LAST  416 
LAST  416 
LAST  416 


LAST  416 
LAST  416 
LAST  416 

LAST  416 
LAST  416 
LAST  414 
LAST  4] 2 

LAST  413 


LAST  416 
LAST  413 
LAST  414 
LAST  416 
LAST  416 
LAST  410 
LAST  416 
LAST  416 


41  ,2355 

41.2356 

41.2357 

41.2360 

41. 2361 
41  ,2362 

41.2363 

41.2364 

41 .2365 

41. 2366 

41 .2367 
.41,2370 

41,2371 
41  ,2372 

41.2373 

41.2374 
41  ,2375 

41.2376 

41.2377 

41.2400 

41.2401 
41  ,2402 

41.2403 

41.2404 

41 .2405 
4l,24C6 
41,2407 

41 .2410 

41.2411 
41  ,2412 

41.2413 

41.2414 
41  ,2415 

41.2416 

41.2417 

41.2420 

41.2421 

41.2422 
41  ,2423 
41,2424 
41  ,2425 


4 47  52  1 
C 2426  0 
50  145  1 
4 0002  1 
56  132  1 
4 4753  0 
0 2426  0 
50  145  1 
4 UOOl  1 
56  131  I 
0 2445  0 
0 2470  0 
50  145  1 
4 0000  0 
56  130  0 
0 2407  0 
4 4753  0 
C 2441  1 
50  145  1 
4 0001  1 
0 2373  1 
4 4752  1 
0 2441  1 
50  145  1 
4 0002  1 
0 2373  1 
4 4752  I 
6 1000  0 
1C  COO  n 
0 2415  0 
C 0136  0 
0 2415  n 
54  122  1 
5C  000  1 

3 4317  0 
54  776  0 
50  122  0 

4 0130  1 
0 3410  I 
56  122  0 
0 2411  1 


CSPABC 

CSPAB 

OSPA 

OSFCCMl 

cspe 

CSPC 

DSPCnM2 

OSPCOM3 


cs 

TC 

INDEX 

CS 

XCH 

CS 

TC 

INDEX 

CS 

XCH 

TC 

TC 

INDEX 

CS 

XCH 

TC 

CS 

TC 

INDEX 

CS 

TC 

CS 

TC 

INDEX 

CS 

TC 

CS 

AO 

CCS 

TC 

TC 

TC 

TS 

INDEX 

CAF 

TS 

INDEX 

CS 

TC 

XCH 

TC 


TWO 

COMPTEST 

NOUNAOD 

2 

BUF 

ONE 

CCRPTEST 

NOINADO 

1 

BUF 

DECTE  ST 
TSTFGROP 
NOUNAOD 
0 

8UF 

PSPC0M2 

ONE 

DCCMPTST 

NOUNAOD 

1 

DSPCCMl 

TWO 

DCCMPTST 

NOINADD 

2 

DSFCGMl 

TWO 

VERBREG 

A 

DSPC0M3 
ENTEXIT 
+ 1 

DISTEM 

A 

PlDl 

DSPCOUNT 
DI STEM 
BUF 

OSPCCTWD 
DISTEM 
OS  PC0M2 


R1013 

R1014 

1016 

1017 

1022 

1023 

1024 


REF 

REF 

REF 

REF 

REF 


LAST 

LAST 


307 

413 


10  LAST  408 


41.2426 

41.2427 
41  ,2430 
41  ,2431 
41,2432 


54  123  0 
22  002  0 
0 2517  0 
0 4331  1 
7 6250  1 


CCMPTEST  TS 

LXCH 

COMPTSTl  TC 


GFTCOMP 

LEFT? 

THREE 
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416 


A B C AB  ABC 
-1  -0  +1  +2  +3 

+0  +0  +0  +1  +2 


IN  A 

IN  A AFTER  CCS 


+0,+l,+2  INTO  DISTEM 


S 


-VERB  COMP 


NOUN  COMP 


gap: 


ASSEf'BLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


PINBALL  GAME  BUTTCNS  AND  LIGHS 


1025  REF  5 

1026  REF  115 

1027  RFF 


1028 
1029 
10  30 


REF 

RFF 

R'EF 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


A)  6 
A16 
A07 
AO  6 
A12 
A17 


Al  t2A23 
A1,2A3A 
Al  ,2A35 
Alt 2A36 
Al  ,2437 
A I ,2AA0 


6 C123  I 
10  000  0 
0 0001  0 
C 5675  0 
0 2353  0 
0 OOOl  0 


AC  SFTEMPl 

CCS  A 

TC  L 

TC  CCSHCLE 

TC  GODSPALM 

NOCMPTST  TC  L 


R1031 

R1032 

1033 

103^ 

1035 

1036 


CCOMPTST  ALARMS  IF  CECIMAL  ONLY  BIT  (8ITA  OF  COMP  CODE  NUMBER) 
IF  NOT,  IT  PERFORMS  REGULAR  CCMFTESTo 


REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 


A17 

A16 

A16 


Al,2AA1 

A1,2AA2 


5A  123  0 
22  002  0 
2AA5  0 
2A30  1 


DECTEST 

COMPTSTl 


1037 

1038 

1039 
lOAO 
lOAl 
10A2 
10A3 


REF  87  LAST  AlO 
REF  2 LAST  A16 
ref  36  LAST  376 
REF  116  LAST  A17 
REF  17  LAST  A17 
REF  88  LAST  A17 


Al  ,2AA5 
Al  ,2AA6 
A1,?AA7 
Al  ,2450 
Al,2A51 
Al  ,2452 
Al  ,2453 


0 0006  1 
22  156  0 
0 2517  0 
7 4736  0 
K 000  0 
0 2353  0 
r C156  0 


DECTEST 


EXTEND 

OXCH  MPAC  +2 

TC  GETCOMP 

MASK  BITIA 

CCS  A 

TC  GODSPALM 

TC  MPAC  +2 


lOAA 

1045 

1046 

1047 

1048 

1049 


REF  71  LAST  417 
REF  3 LAST  417 
REF  37  LAST  417 
REF  117  LAST  417 
REF  3 LAST  41A 
REF  48  LAST  417 


41,2454  22  002  0 DCTSTCYC  LXCH 


41  ,2455  0 2517  0 TC 

41.2456  7 4736  C MASK 

41.2457  10  000  0 CCS 

41 .2460  0 4145  0 TC 

41.2461  C CCOl  0 TC 


0 

GETCOMP 

B1T14 

A 

ALMCYCLE 


R1050  NCUNTEST  ALARMS  IF  NC-LOAC  BIT  (BITS 
R 1051  IF  NOT,  I T RETLRNSo 


1052  REF  72  LAST 

1053  REF  t‘  LAST 

1054  REF  118  LAST 

1055  REF  49  LAST 

1056  REF  50  LAST 

1057  REF  18  LAST 


417  41,2462  22  002 

417  41  ,2463  0 2517 

417  41,2464  1C  000 

417  41,2465  0 0001 

417  41,2466  C 0001 

417  41,2467  0 2353 


OF 

0 

0 

0 

0 

0 

0 


COMP  CCDE  NUMBER!  = lo 

NOUNTEST  LXCH  Q 

TC  GETCOMP 

CCS  A 

TC  L 

TC  L 

TC  GCDSPALM 


1058  RFF 

1059  REF 

1060  P.EF 

1061 

1062  REF 

1063  REF 

1064 

1065 


73  LAST  417 
6 LAST  413 
36  LAST  416 

1 

4 LAST  409 


41  ,2470  22  002  0 

41.2471  3 C146  I 

41.2472  6 4753  1 

41.2473  C 0006  1 

41.2474  1 2506  1 

41.2475  50  140  1 

41.2476  0 2476  0 

41.2477  C 2501  1 


TSTFORCP  LXCH 


EXTEND 

BZF 

INDEX 


Q 

NNAOTEM 

ONE 

CHANDSP 
MI  XBR 
+0 
+ 2 
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NOUN  COMP  - VERB  COMP 
NOUN  COMP  G/  VERB  COMP 

NOUN  COMP  L/  VFPB  CCMP 
NOUN  COMP  = VERB  COMP 


- VERB  COMP 


ALARMS  IF  DEC  ONLY  BIT  = 1 (BIT4  OF  COMP 
CODE  NUMBERlc  RETURNS  IF  NOTa 


ALARMS  AND  RECYCLES  IF  DEC  ONLY  BIT  = 1 
{ eiT4  OF  COMP  CODE  NUMBER)-  RETURNS 
IF  NQTo  USED  BY  LOAD  VERBS© 


TEST  FOR  DPe  IF  SO,  GET  MINOR  PART  ONLY^ 
IF  NNAOTEM  = -1,  CFANN'EL  TO  BE  SPECIFIED 


NORMAL 


gap: 
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1066 

1067 

106B 

1069 

1070 

1071 


REF  51 
REF  1 
REF  2 
REF  52 
REF  8 
REF  53 


LAST  A17 

LAST  412 
LAST  418 
LAST  416 
LAST  413 


4lt2500 
41,2501 
41  ,2502 
4l,25C3 
41,2504 
41  ,25C5 


0 0001  0 
0 3051  0 
0 2261  0 
C CCOl  C 
24  145  I 
0 0001  n 


TC 

TC 

TC 

TC 

INCR 

TC 


L 

SFRUTNCR 

OPTEST 

L 

NOUNAOD 

L 


1072  REF  3 LAST  410 

1073  REF  6 LAST  270 

10731 

10732  REF  119  LAST  417 

1074 

1075  REF  120  LAST  418 

1076  REF  3 LAST  416 


41 ,2506 
41  ,2507 
41,2510. 
41,2511 
41  ,2512 

41.2513 

41.2514 


2 1016  1 
7 5004  1 
C 0006  1 
5 0000  1 
00  000  ] 
4 CCOO  0 
] 2273  0 


CHANOSP 


CA  NGUN'CADR 

MASK  L0W9 

EXTEND 

INDEX  A 

READ  0 

CS  A 

TCF  DSPCQMl 


1077  REF  2 LAST  306 

1078  REF  7 LAST  417 


41.2515 

41.2516 


CC147  0 CCPPICK 
00146  1 


ADRES  NNTYPTEP 
ADRES  NNADTEP 


1079  REF  5 LAST  417 

1080  REF  1 

1081  REF  121  LAST  418 

1082 

1083  REF  4 LAST  234 

1084  REF  74  LAST  417 


41  ,2517 
41,2520 

41.2523 
41  ,2522 
41,2522 

41.2524 


50  140  1 
3 2514  0 
50  000  1 
3 0000  I 
7 4350  1 
0 0002  0 


GET  COMP 


INDEX  MIXBR 
CAF  COMPICK 

INDEX  A 

CA  n 

MASK  HIS 

TC  0 


1085 

1066 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 


REF  5 LAST 
REF  2 LAST 
REF  11  LAST 
REF  4 LAST 
REF  1 
REF  9 LAST 
REF  122  LAST 

REF  2 LAST 
REF  2 LAST 
REF  3 LAST 
REF  1 
REF  65  LAST 
REF  89  LAST 
REF  90  LAST 
REF  5 LAST 
REF  5 LAST 
REF  28  LAST 
REF  6 LAST 
REF  3 LAST 
REF  91  last 
REF  1 


417  41,2525 

416  41,2526 

416  41  ,2527 

412  41,2530 

41,2531 

416  41,2532 

418  41,2523 
41,2534 

418  41,2535 

307  41,2536 

41 8 41  ,2537 

41,2540 
409  41,2541 

417  41,2542 

418  41,2543 

418  41,2544 

416  41,2545 

416  41,2546 

418  41  ,2547 

418  41,2550 

418  41,2551 

41,2552 


7 6250  1 
54  117  1 
54  122  1 
6 0145  I 
5C  COO  1 
4 0000  0 
50  122  0 
57*002  1 
10  122  I 
C 2531  1 
3 4755  1 
54  155  1 
54  156  1 
50  117  0 

3 4317  0 
54  776  0 
50  117  0 

4 1CC2  0 
54  154  0 
0 3072  1 


OECDSP  TC 
TC 

MASK 

TS 

DSPDCG6T  TS 
AO 

I NOEX 
CS 

INDEX 

XCH 

CCS 

TC 

DSPOCPLT  CAF 
TS 
TS 

INDEX 

CAF 

TS 

INCEX 

CS 

TS 

TC 


GETCOMP 

LEFT5 

THREE 

DECOUNT 

DECTEM 

NOUNACO 

A 

0 

DECTEM 

XREG 

DECTEM 

DSPCCGET 

ZERO 

MPAC 

MPAC 

DECOUNT 

RlCl 

DSPC0LN7 

DECOUNT 

XREG 

MPAC 

SFCONUM 


17:53  DEC«  19,1969  LEMnNAI0clC4  PAGE  418 
USER*  S PAGF  NCo  27  EO  S4 

MIXED  CASE  already  HANDLED  IN  MIXNOUN 

NO  CP 

OP  E + 1 INTO  NOUNAOD  FOR  MINOR  PART-. 


NORMAL  MIXED 

ADRES  NNTYPTEM  ADRES  NNAOTEM 


C(NNTYPTEM)  C(NNADTEM) 

GET  HIS  OF  NNTYPTABINORM )0F  NNADTABIMIXJ 


COMP  NUMBER  INTO  DECQUNT 
PICKS  UP  DATA 

DECTEM  ICOMP  +0,  2C0MP  +1,  3C0HP  +2 


CANT  USE  BUF  SINCE  DMP  USES  ITo 

MORE  TO  GET 
DISPLAYS  DATA 

C6C0UNT  ICOMP  +0,  2C0MP  +1 , 3C0MP  +2 


2X ( SF  CON  NUMB 


IN 


GAP;  ASSEMBLE  REVISION  131  OF  AGO  PRCCRAP  LUMINARY  9Y  NASA  2021112-09J 


PINBALL  GAME  BUTTONS  AND  LIGHTS 


1107  REF 
1100 

1109  REF 

1110  REF 

1111  REF 

1112 

1113  REF 
111^  REF 
1115  REF 


7 LAST  ^17 
1 

6 LAST  A13 
6 LAST  410 

1 

2 LAST  412 
1 


41.2553  54  123  0 

41.2554  0 0006  1 

41.2555  3 2567  1 

41  ,2556  52  006  0 

41,2557  50  140  1 

41,2560  0 2560  0 

41  ,2561  0 2564  1 

41.2562  C 3C57  0 

41.2563  0 2577  0 


TS  SFTEMPl 

EXTEND 

DCA  GTSFGUTL 

OXCH  Z 

INDEX  MIXBR 

TC  +0 

TC  DSPSFNOR 

TC  SFRUTMX 

TC  DECDSP3 


1116  REF  2 LAST  418 

1117  REF  2 LAST  419 


41  ,2564  0 3051 

41,2565  C 2577 


n CSPSFNCR  TC 
0 TC 


SFRUTNGR 

OECDSP? 


1118  REF  29  LAST  418 

1119  REF  1 

1119  REF  1 


0776 

41.2566  02141  1 GTSFOUTL 

41.2567  64101  0 


E6ANK= 

2CACR 


OSPCOUNT 

GTSFOUT 


1120  REF 

1121  REF 

1122  REF 

1123 

1124  REF 

1125  REF 

1126  REF 


80  LAST 
1 

7 LAST 

4 LAST 

8 LAST 
1 


413 

418 

416 

419 


41  ,2570 

41.2571 

41.2572 

41.2573 

41.2574 
41  ,2575 
41,2576 


0 4616  1 
61262  0 
10  117  I 
0 2575  1 
C C136  0 
54  117  1 
0 2541  0 


CSPOCEND  TC 

CAOR 

CCS 

TC 

TC 

TS 

TC 


BANKCALL 

DSPDECWD 

DECOUNT 

+2 

ENTEXIT 

DECOUNT 

OSPOCPUT 


1127  REF  123  LAST  418 

1128  REF  1 

1129  REF  3 LAST  410 


41,2577 
41 ,2600 
41,26C1 


5C  OOO  1 
3 2602  1 
C 4640  1 


CECCSP3 


INDEX  A 

CAF  SFOUTABR 

TC  BANKJUMF 


1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

11401 

11402 

11403 

11404 

11405 

1141 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


1 

1 

1 

1 

1 

1 

1 

1 

1 

2 
1 
1 
1 
1 
\ 


LAST 


419 


41.2602 

41.2603 
41,26C4 
41  ,2605 
41  ,2606 
41, 2607 

41.2610 

41.2611 

41.2612 

41.2613 

41. 2614 
41  ,2615 

41.2616 

41.2617 
41  ,2620 

41.2621 

41.2622 


61452  0 
62570  1 
6C615  0 
60733  0 
60744  0 
60751  1 
60635  I 
60753  0 
65230  0 
65303  r 
60751  1 
60740  1 
60766  0 
60623  0 
60645  0 
60662  0 


SFOUTABR  CADR 
CACR 
CAOR 
CACR 
CACR 
CAOR 
CADR 
CADR 
CAOR 
CACR 
CAOR 
CACR 
CACR 
CADR 
CACR 
CAOR 

EN  DR  TOUT  EQUALS 


PREDSPAL 

OSPDCEND 

DEGCLTSF 

APTOUTSF 

DP?  OUTSF 

DP20UTSF 

LRPOSOUT 

DP30UTSF 

HMSDUT 

M/SOUT 

DP20UTSF 

AROUTISF 

2 INTOUT 

360-CDLC 

RRANGQUT 

RRDOTCUT 


17:53  DECo  19,1969  L E VCN  A I D<,  104  PAGE  419 


USER'S  PAGE  NOo  20  EO  S4 


SWITCH  BANKS  TO  SF  CONSTANT  TABLE 
READING  RDUTINEo 
LOADS  SFTENP? , SFTEPPZo 


ALL  SFOUT  ROUTINES  END  HERE 


MORE  TO  DISPLAY 


ALARM  IF  DEC  DISP  WITH  OCTAL  ONLY  NOUN 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202U12-C91 


L PINBALL  GAME  BUTTONS  ANO  LIC-FTS 

R11A2  THE  FOLLOWING  IS  ATYPICAL  SF  ROUTINE  o IT  USES  MPACo  LEAVES  R 

R1143  L7S  IN  RPAC,  MFAC+lo  ENDS  WITF  TC  OSPCCEND 


1144  .REF  2 LAST  407  40,2615 


SETLOC  BLANKCCN  +1 


11445  REF  2 LAST  400  TO  4U8:  234  334*  COUNT*  t$/PIN 

R11A5  DEGOLTSF  SCALES  BY  olB  THE  LCW  14  BITS  OF  ANGLE  , ADDING  ol8  FOR 

R1146  NUMBERS  IN  THE  NEGATIVE  (AGC)  RANGE* 


1147 

1148 

1149 

1150 

1151 
11511 


REF  66  LAST  418 
RFF  92  LAST  418 
REF  1 

REF  1 
REF  1 


40,2615  3 4755  1 CEGOUTSF  CAF 


40.2616  54  156  1 TS 

40.2617  C 2706  I TC 

40.2620  0 2622  0 TC 

40.2621  0 2701  0 TC 

40.2622  0 2717  1 TC 


ZERO 

MPAC  +2 
F I XRANGE 
+ 2 

SET  AUG 
DEGCGM 


R1152  360-CDUC  CCRFUTES  360  - CCU  ANCLE  IN  MPAC,  STORES  RESULT  IN  MPAC  AND 
R11521  GOES  TO  DEGOUTSF* 


11522  REF  I 40,2623  0 2625  1 36C-COUO  TC  36C-C0L 

11523  REF  2 LAST  419  40,2624  0 2615  1 TC  DEGOUTSF 


11524  REF 

11525  REF 

11526 

11527 

11528 

11529 
115291 
115292 


93  LAST 
6 LAST 

1 

94  LAST 
37  LAST 

95  LAST 
75  LAST 


REF 

REF 

REF 

REF 

REF 


420 

383 


420 

417 
420 

418 


40.2625 

40.2626 

40.2627 

40.2630 

40.2631 

40.2632 

40.2633 
40  ,2634 


3 0154  1 
7 4733  0 
C 0006  1 
1 2634  0 

4 0154  0 
6 4753  I 
54  154  0 
0 0002  0 


360-CDL  CA  MPAC 

MASK  POSMAX 
EXTEND 

BZF  360-CDUE 

CS  MPAC 

AD  ONE 

TS  MPAC 

360-C0UE  TC  Q 


R1153  LRPOSOUT  DISPLAYS  +0,1, 2, OR  2 (WHOLE)  FOR  CHANNEL  33, BITS  7-6  = 11,10, 
R1154  01,00  RESPECTIVELY* 


1156  REF 

1157 

1158  REF 

1159 

1160  REF 

1161  REF 

1162  REF 


6 LAST  279 

20  LAST  377 

12  LAST  418 
96  LAST  420 
2 LAST  419 


40.2635 

40.2636 

40.2637 

40.2640 

40.2641 
40  ,2642 

40.2643 

40 .2644 


0 0006  1 
00  033  I 
0 0006  1 
7 4742  0 
4 0000  0 
7 6250  1 
'4  154  0 
0 2733  I 


LRFCSCUT 


EXTEND 

READ  CHAN33 

EXTEND 

MP  BITIO 

COM 

MASK  THREE 

TS  MPAC 

TC  ARTOUTSF 


R1163  RRANGOUT  AND  RRDOTOUT  CONVERT  RR  RANGE  AND  RANGE  RATE  FROM  SP  15  BIT 
R11633  MAGNITUDE  TO  DP  AND  THEN  SCALE  FOR  DISPLAY* 


11636  REF  1 40,2645  0 2671  0 RRANGOUT  TC 

11639  REF  27  LAST  325  40,2646  4 0110  0 CS 

11643  REF  20  LAST  301  40,2647  7 4751  1 MASK 


ftPSPTODP 

RACMCDES 

BITS 


7:53  DEC*  19,1969  LEMONAIOoIOA  PAGE  420 


USER'S  PAGE  NO*  29  EC  S4 


SET  INDEX  FOR  FULL  SCALE 

NO  AUGMENT  NEEDED  (SFTEMPl  AND  2 ARE  0) 
SET  AUGMENTEP  ACCORDING  TO  C(MPAC  +2) 


IF  ANGLE  IS  0 OR  180  OFGRFES,  DO  NOTHING 


COMPUTE  360  DEGREES  MINUS  ANGLE 


BITS  7-6  TO  BITS  2-1 


DI  SPLAY  AS  WH(^LF 


CONVERT  TO  DP* 

EIT  3 OF  FLAG12  * FI  SCAL  F 


GAP 


assemble  revision  131  OF  AGC  PROGRAM  LUMINARV  BY  NASA  2021112-091 


PINBALL  GAME  BUTTONS  AND  LIGHTS 


11646  REF 
11649  REF 
11653  REF 
11656  REF 
11659  REF 
11663  REF 
11666  REF 
11669  REF 
11673  REF 
11676  REF 


124  LAST 
1 

97  LAST 

125  LAST 

126  LAST 

127  LAST 

98  LAST 
2 LAST 
8 LAST 
1 


419 

420 

421 
421 
421 
421 
402 
419 


40.2650  1C  COO  0 

40.2651  0 2657  1 

40.2652  52  155  1 

40.2653  2C  COl  1 

40.2654  20  001  1 

40.2655  20  001  I 

40.2656  52  155  1 

40.2657  0 7106  1 

40,266C  00123  I 

40,2661  0 2745  0 


SCALELO 


CCS  A 

TC  SCALELC 

DXCH  MPAC 

DAS  A 

CAS  A 

OAS  A 

DXCH  MPAC 

TC  OMP 

AORES  SFTEMPl 

TC  L14/0UT 


11679  REF  2 

11683 

11686  REF  1 

11689  REF  99 

11693  REF  2 

11696 
11696 


LAST  420 

LAST  421 
LAST  421 


40i2662 

40.2663 

40.2664 

40.2665 

40.2666 

40.2667 
40,2670 


0 2671  0 
C 0006  1 
4 2670  0 
20  155  I 
0 2657  1 
00001  0 
C1150  1 


PROCTOUT  TC 

EXTEND 

DCS 

OAS 

TC 

BIASRDOT  20EC 


RRSPTOCP 

BIASROOT 

MPAC 

SCALELO 

17000 


11699  REF  7 
1171  REF  100 
11713  REF  101 
11716  REF  102 
11719 

11723  REF  19 
11726  REF  103 
11729  REF  76 


LAST  420 
LAST  421 
LAST  421 
LAST  421 

LAST  298 
LAST  421 
LAST  420 


40  ,2671 

40.2672 

40.2673 
40  ,2674 

40.2675 

40 .2676 

40.2677 
40,2700 


3 4733  1 
7 0154  0 
54  155  1 
3 0154  1 

6 OCOO  1 

7 4753  0 
54  154  0 
C 00C2  0 


RRSPTOCP 


CAF 

MASK 

TS 

CA 

DOUBLE 

MASK 

TS 

TC 


POSMAX 
MPAC 
MPAC  +1 
MPAC 

RlTl 

MPAC 

0 


1174 

1175 

1176 

1177 

1178 


REF  104  LAST  421 
REF  1 

REF  9 LAST  421 
REF  77  LAST  421 


40.2701 

40.2702 

40.2703 

40.2704 

40.2705 


0 0006  1 
5 0156  0 
2 2730  1 
52  124  1 
C 0C02  0 


SETAUG 


EXTEND 

INDEX  MPAC  +2 
OCA  0EGTA6 

DXCH  SFTEMPl 
TC  Q 


1179  REF 

1180  REF 

1181  REF 

1182 
1183 
lie*- 

1185 

1186 
1187 


105  LAST 

78  LAST 

79  LAST 


REF  23  LAST 
REF  106  LAST 
REF  107  LAST 
REF  80  LAST 


421 

421 

421 

409 

421 

421 

421 


40,2706  10  154  0 

4r,2707  0 0002  0 

40.2710  C 0002  0 

40.2711  1 2712  0 

40.2712  4 4735  0 

40.2713  7 0154  0 

40,2714.  54  154  0 

40.2715  5C  0C2  0 

40.2716  0 0001  0 


FIXRANGE  CCS 
TC 


TCF 

CS 

MASK 

TS 

INDEX 

TC 


MPAC 

Q 

0 


BIT15 

MPAC 

MPAC 


1198 

1109 

1190 

1191 

1192 

1193 


REF  108 
REF  2 
REF  109 
REF  2 
REF  10 


LAST 

LAST 

LAST 

LAST 

LAST 


421 

421 

421 

402 

421 


40,2717  0 0006  1 

40.2720  5 03  56  C 

40.2721  3 2730  1 

40.2722  52  155  1 

40.2723  0 7312  0 

40.2724  52  124  1 


CEGCOM 


EXTEND 
INDEX  MPAC 
DCA  DEGTAB 

DXCH  MPAC 
TC  SHORTMP 

DXCH  SFTEMPl 


+ 2 


17:53  DEC..  19  ,1969  LEMQNAIDol04  PAGE  421 
USER  'S  PAGE  NCe  3C  EC  S4 

DATA  IS  IN  LO  SCALE* 

DATA  IS  IN  HI  SCALE,  Mp  BY  8.. 

SCALE  FOR  DISPLAY, 

AND  GO  TO  ARITHDPI* 

CONVERT  TO  DP^ 

SUBTRACT  BIAS  OF  17000  CCUNTSo 
SCALE  FCR  DISPLAY* 

CONVERT  SP  15  BIT  MAG  TC  DPe 


LOADS  SFTEMPl  AND  SFTEMP2  WITH  THE 
OP  AUGMENTEP  CONSTANT 


IF  MPAC  IS  + RETURN  TO  L+T 
IF  MPAC  IS  - RETURN  TO  L+2  AFTER 
MASKING  OUT  THE  SIGN  BIT 


LOADS  MULTIPLIER  , DOES  SHORTMP,  AND 
ADOS  AUGMENTERo 


ADJUSTED  ANGLE  IN  A 


LE^ONAIOe  10^^  PAGE  A22 


GAP:  ASSei^BLE  REVISION  131  CF  AGC  PRCGRAN  LUMINARY  BY  NASA  2021112-091  17:53  DEC*  19,1969 

L PINBALL  GAME  BUTTONS  AND  LIGHTS  USER'S  PAGE  NOo  31  EC  S4 


1194  REF  no  LAST  421 

1195  REF  1 


4T,2725  20  155  1 

4'), 2726  0 2736  I 


DAS  MPAC 

TC  SCOUTENO 


1196 

1197 

1198 

1199 


40,2727  C56C5 

40  ,2730  03656 

40.2731  16314 

40.2732  31463 


1 DEGTAB  OCT 
1 OCT 

n OCT 

1 OCT 


05605 

03656 

16314 

31463 


HI  PART  OF  cie 
LOW  PART  OF  el e 
HI  PART  OF  ..45 
LC  PART  OF  c45 


1201 

1202 

1203 

1204 

1205 


REF  11  LAST  421 
REF  111  LAST  422 
REF  1 

REF  21  LAST  414 
REF  2 LAST  419 


40,27.33  52  124 

40.2734  *2  155 

40.2735  0 4415 

40.2736  C 4635 

40.2737  62570 


1 ARTGUTSF  DXCH 
1 DXCH 

C TC 

0 SCCUTENO  TC 

1 CAOR 


SFTEMPl 

MPAC 

PR  SHRTMP 
POSTJUMP 
OSPOCEND 


ASSUMES  POINT  AT  LEFT  CF  OP  SFCON 


IF  CIA) 


-0,  SHCRTMP  FAILS  TO  GIVE  -Oo 


12051  REF 

12052  REF 

12053  REF 

12054  REF 


12  LAST 
112  LAST 
2 LAST 
2 LAST 


422 

422 

422 

421 


40.2740  52  124 

40.2741  52  155 


I AROUTISF  DXCH 
1 DXCH 


SFTEMPl 

MPAC 


40.2742  0 4415  0 

40.2743  0 2745  0 


TC  PRSHRTMP 

TC  L14/0UT 


ASSUMES  POINT  BETWEEN  HI  AND  LC  PARTS  OF 
DP  SFCON,  SHIFTS  RESULTS  LEFT  14,  BY 
TAKING  RESULTS  FRCM  MPAC  + n MPAC+2« 


1206  REF  1 

1207  REF  113  LAST  422 

1208  REF  114  LAST  422 

1209  REF  115  LAST  422 

1210  REF  2 LAST  422 


40.2744  C 2757 

40 .2745  56  156 

40.2746  56  155 

40.2747  54  154 

40,2750  0 2736 


0 OPIOUTSF  TC 
0 L14/0UT  XCH 

0 XCH 

0 TS 

1 TC 


DPCUT 

MPAC  *2 
MPAC  +l 
MPAC 

SCOUT  END 


SCALES  MPAC,  MPAC  •*!  BY  OP  SCALE  FACTOR 
IN  SFTFMPl,  SFTEMP2o  THEN  SCALE  RESULT 
BY  B14„ 


40.2751  0 2757  0 

40.2752  0 2736  1 


0P2CUTSF  TC 
TC 


OPOUT 

SCOUTENO 


SCALES  MPAC 


MPAC  BY  OP  SCALE  FACTOR 


1213 

1214 

1215 

1216 


REF  3 LAST  422 

REF  10  LAST  412 

REF  1 

REF  4 LAST  422 


40.2753  0 2757  0 

40.2754  3 6245  1 

40.2755  0 3207  1 

40.2756  C 2736  1 


0P30UTSF 


OPOUT 
SI  X 

TPLEFTN 

SCOUTEND 


ASSUMES  POINT  BETWEEN  BITS  7-8  OF  HIGH 
LEFT  BY  7,  ROUNDS  MPAC+2  INTO  MPAC  + 1. 
SHIFT  LEFT  7c 


12165  REF  116 


LAST  422 


0162 


MPAC«-6 


MPAC  +6 


USE  MPAC  +6  INSTEAD  OF  OVFIND 


1217  REF  81  LAST  421  40,2757  56  002  0 DPCUT  XCH  Q 

1218  REF  1 40,2760  54  162  0 TS  MPAC+6 

1219  REF  1 40,2761  0 3003  1 TC  READLO 

1220  REF  2 LAST  277  40,2762  0 7262  0 TC  TPAGREE 

1221  REF  3 LAST  421  40,2763  0 7106  1 TC  DMP 

1222  REF  13  LAST  422  40,27b4  00123  1 AORES  SFTEMPl 

1223  REF  2 LAST  422  40,2765  0 C162  1 TC  MPAC+6 

Ri2231  THE  FOLLOWING  ROUTINE  DISPLAYS  TWO  CONTIGUOUS  SP  POSITIVE  INTEGERS 
R12232  AS  TWO  POSITIVE  DECIMAL  INTEGERS  IN  RXC1-RXC2  AND  RXD4-RX05  (RXD3  IS 
R12233  BLANK£0)o  THE  INTEGER  IN  THE  LOWER  NUMBERED  ADDRESS  IS  DISPLAYED  IN 


GET  FRESH  DATA  FOR  BOTH  HI  AND  LOo 
MAKE  DP  DATA  AGREE 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DEC  19 


969  L EMONAIOo 104  PAGE  423 


L PINBALL  GAME  EUTTCNS  ANC  LIGHTS  USER'S  PAGE  NCo  32  EC  S4 

R1223A  RXDl-RXD2o 


12235  REF  3 
122355  REF  2 

12236  REF  117 

12237  REF  1 
122371  REF  13 
122372  REF  9 
122373  REF  6 
122374  REF  30 
122375  REF  2 
122376  REF  118 
122377  REF  2 
122378  REF  22 
122379  REF  3 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


413 

404 

422 

42  0 
419 

418 

419 

422 

423 
423 
422 
422 


40f2766 
40  ,2767 
40,2770 
40  ,2771 
4-1,2772 

40.2773 

40 .2774 

40.2775 

40.2776 

40.2777 

40.3000 

40.3001 

40.3002 


0 2536  0 
0 2413  0 

3 0154  1 
0 3342  1 

4 6250  1 
5C  117  0 
6 4317  0 
54  776  0 
C 3C03  I 
3 0155  0 
0 3342  I 
0 4635  0 

62572  0 


2INT0UT  TC  5BLANK 

TC  +0N 

CA  MPAC 

TC  DSPDECVM 

CS  THREE 

INDEX  DECrUNT 
AD  RlDl 

TS  DSPCCUNT 

TC  RFAOLC 

CA  MPAC  +1 

TC  DSPOECVN 

TC  POSTJUMP 

CAOR  DSPDCENO 


+ 2 


TC  BLANK  RX03 
TURN  ON  + SIGN 

DISPLAY  1ST  INTEGER  (LIKE  VERB  AND  NOUN) 

RXD4 

GET  2N0  INTEGER 

DISPLAY  2N0  INTEGER  (LIKE  VERB  AND  NOUN) 


R122‘i  REAOLO  PICKS  UP  FRESH  DATA  FOR  BOTH  HI  AND  LO  AND  LEAVES  IT  IN 

R1225  MPAC,  MFAC  + U THIS  IS  NEEDED  FCR  TIME  DISPLAYo  IT  ZEROES  MPAC+2,  BUT 

R1226  DOES  NOT  FORCE  TPAGREEo 


1227  REF 

1228  REF 

1229  REF 

1230 

1231  REF 

1232  REF 

1233  REF 

1234  REF 

1235  REF 

1236 

1237  REF 

1238 

1239  REF 

1240  REF 

1241  REF 

1242  REF 


82  LAST 
a LAST 
7 LAST 


1 

10  LAST 

3 LAST 

4 LAST 
2 LAST 


128  LAST 

119  LAST 
67  LAST 

120  LAST 
9 LAST 


422 

96 

419 


423 

412 

412 

412 


421 

423 
420 
423 
42  3 


40,3003 
40  ,3004 

40.3005 

40.3006 
40,3  007 

40.3010 

40.3011 

40.3012 

40. 3013 
40  ,3014 

40.3015 

40.3016 

40.3017 

40.3020 

40.3021 

40.3022 


56  002  0 
54  144  1 
5C  140  I 
C 3006  I 
0 3023  0 
5C  117  0 
3 0150  0 
7 4356  1 
C 4313  1 
0 0006  I 
5 0000  I 
3 0001  0 
52  155  1 
3 4755  1 
54  156  i 
0 0144  0 


REAOLO  XCH 
TS 

INDEX 

TC 

TC 

INDEX 

CA 

MASK 

TC 

READLOl  EXTEND 
INDEX 
OCA 
DXCH 
CAF 
TS 
TC 


0 

TEM4 
MI  XRR 
+ 0 

ROLONOR 

DECOUNT 

IDADITFM 

LOWll 

SETEBANK 

A 

0 

MPAC 

ZERC 

MPAC  +2 
TEM4 


GET  lOAODTAB  ENTRY 
E SUBK 

SET  EB,  LEAVE  EAOP 
MIXED  NORM 
C(ESUBK)  CIE) 
C( (E  SUBK)+1) 


FCR  COMP  K OF  NOUNc 

ES  IN  Ao 
AL 

C(F  + 1 ) 


10 

I 


LAST 


418 


40.3023  3 0145  1 RDLONOR  CA 

40.3024  0 3014  1 ENCROLO  TC 


NOUNADD 

READLOl 


E 


1245 

124501  REF 
1245C2 


3 


LAST 


306 


42,3230 

42,2000 

42,3230 


BANK  42 
SETLOC  PINBALL3 
BANK 


12455  REF  1 

1246  REF  81  LAST 

1247  REF  3 LAST 

1248  REF  3 LAST 


419 

423 

422 


42.3230  0 4616  1 HMSOUT 

42.3231  61003  0 

42.3232  C 7262  0 


C-OUNT*  $S/PIN 
TC  BANKCALL 

CACR  REAOLO 
TC  TPAGRFF 


READ  FRESH  DATA  FOR  HI  AND  LC  INTO  MPAC, 
MPAC+lc 

MAKE  CP  DATA  AGREE 


GAP: 

L 

12<»9 

A1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

126] 

1262 

1263 

A1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

A1274 

1275 

1276 

1277 

1278 

1279 

1280 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1287 

1288 

1289 

1290 

1291 

1292 

1293 


i 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DEC,  19,1969  L EMflNA  ID,  104  PAGE  424 


PIN6ALL  GAME  EUTTCNS  ANC  LICFTS 


USER*  S PAGE  NCe  33  EO  S4 


REF  1 


REF  4 LAST 
REF  1 
REF.  4 last 
REF  31  LAST 
REF  82  LAST 
REF  2 LAST 
REF  1 
REF  1 
REF  121  LAST 
REF  1 
REF  2 last 
REF  122  LAST 
REF  3 LAST 


422 

413 

423 
423 
419 


423 

424 
424 
422 


REF  3 last  413 
REF  32  LAST  424 
REF  83  LAST  424 
PEF  3 LAST  424 


REF  1 

REF  123  LAST  424 

REF  2 LAST  4?4 

KEF  4 LAST  424 


REF  7 LAST  423 
REF  33  LAST  424 
REF  84  LAST  424 
REF  4 LAST  424 
REF  5 LAST  419 


42,3233  0 3417  0 

42  ,3234  0 7106  1 

42.3235  03271  0 

42.3236  3 4321  0 

A2,3237  54  776  0 

<2,3240  C 4616  1 

42.3241  61262  0 

42.3242  0 3435  0 

42.3243  3 3273  1 

42  ,3244  ■ 56  154  1 
A2,32<5  55'GC6  1 

42.3246  3 3274  0 

42.3247  56  155  0 
<2,3250  C 4415  0 


42.3251 

42. 3252 
42  ,3253 
<2,325< 
42,3255 
<2,3256 
< 2,  3257 
42,3260 
<2,3261 


3 4320  1 
54  776  0 
C 4616  1 
61262  0 
C 0C06  1 
3 3300  1 
52  155  1 
3 1006  0 
0 4415  0 


42  ,3262  3 4317  0 
<2,3263  54  776  C 
42,3264  0 4616  1 
<2,3265  61262  0 
<2,3266  C C136  0 


TC  SEPSECNR 

TC  OMP 

ACRES  SECCN2 

CAF  P201 

TS  DSPCCUNT 

TC  BANKCALL 

CAOR  DSPDECWD 

TC  SEPMIN 

CAF  MINCnN2 

XCF  MPAC 

TS  HITEMCUT 

CAF  MINC0N2  +1 

XCF  MPAC  +1 

TC  PRSHRTMF 

CAF  R2C1 

TS  OSPCOUNT 

TC  8ANKCALL 

CAOR  DSPDECWD 

EXTEND 

DCA  HRCCM 

nxCH  MPAC 

CA  HITEMOUT 

TC  PRSHPTMP 

CAF  PlOl 

TS  DSPCCUNT 

TC  BANKCALL 

CADR  DSPDECWD 

TC  ENTEXIT 


LEAVE  FRACT  SEC/60  TN  MPAC,  MPAC+lvLEAVE 
WHOLE  MIN  IN  B1T13  CF  LCTgMOUT  AND  ABOVE 
USE  ONLY  FRACT  SEC/60  MOD  60 
MULT  BY  «,06 

GIVES  CENTI-SEC/10EXP5  MOD  60 

DI SPLAY  SEC  MOD  60 

REMOVE  REST  OF  SECONDS 

LEAVE  FRACT  MIN/60  IN  MPAC  + U LFAVE 

WHOLE  HOURS  IN  MPACq 

SAVE  WHOLE  HOURS® 

use  ONLY  FPACT  MlN/6n  MOD  60 

IF  C(A>  = -0,  SHORTMP  FAILS  TO  GIVE  -0® 

MULT  BY  oOOP6 

GIVES  MIN/1CFXP5  MOD  6C 


DISPLAY  MIN  MOD  60 


MINUTES,  SECONDS  HAVE  BFEN  REMOVED 


LSE  WHOLE  HOURS 

IF  CIA)  = -0,  SHORTMP  FAILS  TO  GIVE  -0: 
MULT  BY  ®16384 
GIVES  HOURS/10exP5 

USE  REGULAR  DSPCFCWP,  WITH  ROUND  OFF® 


<2 ,3267  25660  0 
<2,3270  31742  1 
<2,3271  C1727  I 
42  ,3272  01217  1 
<2,3273  OOCll  I 
<2,3274  32445  0 
<2  ,3275  02104  0 
<2,3276  1C<22  1 
<2,3277  05174  0 
<2,3300  13261  0 
<2,3301  COCOO  1 
42  ,3302  0006?  0 


SECONl  20EC>!' 

SeC0N2  nCT 
ncT 

MINC0N2  CCT 
OCT 

MlNCONl  OCT 

ncT 

HRCONl  20EC 
OCT 

RNCCON  OCT 


1®666666666  E-4  B12*  2EXP12/6000 


01727 
01217 
00011 
32445 
02104 
10422 
0 16384 


®06  FOR  SECCNDS  DISPLAY 
o0006  FOR  MINUTES  CISLPAV 
e066®c66  UPPED  BY  2EXP-28 


COOOO 

00062  c5  SEC 


REF  85  LAST  424 
REF  4 LAST  423 
REF  4 LAST  423 
REF  124  LAST  424 


<2, 3303  0 4616 

42,3304  61003 

<2,3305  0 7262 

<2,3306  10  154 


1 M/SOUT  TC 
0 CAOR 

f)  TC 

0 CCS 


BANKCALL 
R EADLO 
TPAGREE 
MPAC 


READ  FRESH  DATA  FOR  HI  AND  LO  INTO  MPAC, 
MPAC+1, 

MAKE  OP  DATA  AGPFE 

IF  MAG  OF  (MPAC,  MPAC+1)  G/  59  M 59  S, 


gap: 

L 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1306 

i30P 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

A1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 


ASSEMBLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECr  19,1969  LEMONAI0el04  PAGE  425 


PINBALL  GAME  BUTTONS  AND  LIGHTS 


USER*  S PAGE  NC«  3^  EO  S4 


REF  1 

REF  1 

REF  129  LAST 

REF  1 

REF  2 LAST 

REF  3 LAST 

REF  125  LAST 

KEF  4 LAST 
REF  I 
REF  130  LAST 
REF  2 LAST 
REF  5 LAST 
REF  6 LAST 
REF  126  LAST 
REF  1 
REF  1 
REF  2 LAST 
REF  127  LAST 
REF  3 LAST 
REF  128  LAST 
REF  1 
REF  2 LAST 
REF  129  LAST 
REF  4 LAST 
REF  1 
REF  1 


42,3307 
42,3310 
42  ,3311 

423  42,3312 
42,3313 

425  42,331^ 

425  42,3315 

424  42,3316 
42  ,3317 

425  42,3320 
42,3321 

425  42,3322 

425  42,3323 

425  42  ,3324 

425  42,3325 

425  42,3326 

42  ,3327 
42,3330 
425  42,3331 

425  42,3332 

425  42,3333 

425  42  ,3334 

42,3335 

424  42,3326 

42  5 4 2,3337 

425  42,3340 
42  ,3341 
42,3342 


C 3311  1 
C 3342  1 
6 3377  I 
10  000  0 
C 3326  0 
0 3342  1 
C 3342  I 
10  155  1 
0 3321  1 
0 3342  1 
6 3400  0 
ir  000  0 
C 3326  0 
0 3342  1 
C 3342  1 
10  154  C 

3 3402  ] 
C 3337  0 

4 3402  0 
54  154  0 
4 3403  1 
54  155  1 
3 34C1  1 
0 3420  1 
54  154  0 
3 3403  0 
n 3334  0 
0 3404  1 


TC 

TC 

AO 

CCS 

TC 

TC 

TC 

CCS 

TC 

TC 

AD 

CCS 

TC 

TC 

TC 

M/SL  IM  IT  CCS 
CAF 
TC 
CS 
TS 
CS 

LIMITCCM  TS 
CAF 
Tf 

+LIMIT  TS 
CAF 
TC 

M/SNORM  TC 


+ 2 

M/SNCRM 

M/SCONl 

A 

M/SLIMIT 
M/SNORM 
M/SNCRM 
MPAC  +1 
+2 

M/SNCRM 

M/SCCN2 

A 

M/SLIMI T 

M/SNORM 

M/SNCRM 

MPAC 

M/SC0N3 

+L1MIT 

M/SCCN3 

MPAC 

M/SCCN3  +l 
MPAC  +l 
NORMAOR 
SEPSECNR  +1 
MPAC 

M/SCCN3  +1 
LIMITCOM 
S EPS  EC 


REF  1 
REF  3 
REF  14 
REF  34 
REF  86 
REF  1 
REF  68 
REF  5 
REF  23 
REF  11 
REF  8 
REF  3 
REF  87 
REF  3 
REF  2 
REF  130 

REF  1 
REF  131 
REF  12 
REF  9 


LAST  421 
LAST  423 
LAST  424 
LAST  424 


LAST  423 
LAST  407 
LAST  416 
LAST  423 
LAST  424 
LAST  407 
LAST  425 
LAST  407 
LAST  424 
LAST  425 


LAST  425 
LAST  425 
LAST  425 


42  ,3343 

42.3344 

42.3345 

42.3346 

42.3347 

42.3350 

42.3351 

42.3352 
42  ,3353 

42.3354 

42.3355 

42.3356 

42.3357 

42.3360 

42.3361 
42,  3362 
42  ,3363 

42.3364 

42.3365 

42.3366 

42.3367 


3 3375  0 
C 7312  0 

4 6250  1 
26  776  0 
C 4616  I 

61322  0 

3 4755  1 
54  124  1 

4 4752  1 
5C  117  0 
6 4317  C 
54  143  n 
C 4616  1 

61356  0 

0 3435  0 
56  155  0 
C 0006  1 

1 3376  1 
52  155  1 
50  117  0 
3 4317  0 


CAF  HISECON 

TC  SHORTMP 

CS  THREE 

AOS  DSPCCUNT 

TC  BANKCALL 

CAOR  DSPDC2NR 

CAF  ZERO 

TS  CODE 

CS  TWO 

INDEX  DECOUNT 

AO  PlOl 

TS  COUNT 

TC  BANKCALL 

CADR  DSPIN 

TC  SEPMIN 

XCH  MPAC  +1 
EXTEND 

MP  HIMINCCN 

OXCH  MPAC 

INDEX  OECOUNT 

CAF  RlOl 


DISPLAY  59BS9,  WITH  PROPER  SIGNo 
MPAC  = +no  1/  59M58e5S 

- HI  PART  OF  {5QM50o5S)  +I  FOR  CCS 
MAG  OF  MPAC  - FI  PART  OF  (59H58.  5SI 
G/  59M58o5S 

ORIGINAL  MPAC  = -0,  L/  ERMSflsSS 
L/  59M58o5S 

MAG  OF  MPAC  * HI  PART  CF  59M58c.5S 

MPAC+1  = +0c  L/  59M5e<.5S 

- LO  PART  OF  (59M58«5S)  +1  FOR  CCS 
MAG  OF  MPAC+1  - LO  PAPT  OF  (59M58(,5S) 
G/  59M58o5S 

ORIGINAL  MPAC  + 1 = -Oo  L/  59M58o5S 
L/  59M5eo5S 
= 59M58o  5S  LIMIT 

MPAC  CANNOT  BE  + /-  0 AT  THIS  POINT- 
FORCE  MPAC,  MPAC+I  TO  +/-  50M59e5S 

WILL  DISPLAY  S9M59S  IN  DSPOECNR 


SET  RETURN  TO  M/SN0RM  + 1«, 


LEAVE  FRACT  SEC/60  IN  MPAC,MPAC+lo  LEAVE 

WHOLE  MIN  IN  01713  OF  LCTEMOUT  AND  ABOVE 

USE  ONLY  FPACT  SFC/6n  MCD  60 

MULT  BY  «6  + 2EXP-14 

GIVES  SEC/100  MCD  60 

OSPCOUNT  ALREADY  SET  TO  RXDl 

DISPLAY  SEC  MOD  60  IN  D*05* 


RXD? 

PLANK  MIDCL  E CHAR 

REMOVE  REST  OF  SECONDS 
LEAVE  FRACT  MIN/6n  IN  MPAC+1 
USE  ONLY  FRACT  MI  N/6f'  MCD  60 
MULT  BY  o6  + 2EXP-7 
GIVES  MIN/100  MOD  6C 

RXDl 


gap: 

L 

13A4 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

138? 

1383 

1384 

1385 

1386 

1387 
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17:53  DECo  19,1969  LEMONAlDoin^  PAGE  426 


PINBALL  GAME  BUTTONS  ANC  LICFTS 


USER' S PAGE  NO.  35  FO  S4 


REF 

REF 

REF 

REF 

REF 


L AST 
LAST 
LAST 
LAST 


425 
425 
42  5 
423 
423 


42.3370 

42.3371 
42  ,3372 

42.3373 

42.3374 


54  776  0 
C 4616  1 
61322  0 
C 4635  0 
62572  0 


DSPCCUNT 
BANKCALL 
DSP0C2NR 
POST  JUMP 
DSPDCENO  +2 


DISPLAY  MIN  MOO  60  IN  0102o 


42  ,3375 
42,3376 


23147  1 HISECON  OCT 
23346  1 HIMINCCN  OCT 


23147 

233^6 


»6  + 2eXP-14 
o6  + 2eXP-7 


REF  7 LAST  425 


42 ,3377 
42,3400 
42,3401- 
42  ,3402 
42,3403 


77753  0 
41126  1 
C3343  0 
00025  0 
37016  1 


M/SCONl 

M/SCCN2 

NORMADR 

M/SC0N3 


OCT  77753 

OCT  41126 
ADRES  M/SNCRM 
OCT  00025 

OCT  37016 


- HI  PART  OF  { 59M58e5S)  +1  ,.C 

- LO  PART  OF  (59M5P-,5S)  +1 

59M  59o  5S 


REF  132 
REF  1 
REF  2 


REF  1 
REF  133 
RFF  3 

REF  2 
REF  1 
REF  83 
REF  1 
REF  5 
REF  1 

REF  134 
REF  3 
REF  1 
REF  2 
REF  69 
REF  135 
REF  136 
REF  137 
REF  2 


LAST  425 
LAST  426 


LAST  426 
LAST  425 


LAST  426 
LAST  423 
LAST  424 


LAST  426 
LAST  424 

LAST  426 
LAST  425 
LAST  426 
LAST  426 
LAST  426 
LAST  426 


42.3404 

42.3405 

42. 3406 

42.3407 

42.3410 

42.3411 
42  ,3412 

42.3413 

42.3414 
42  ,3415 

42.3416 

42.3417 

42.3420 

42.3421 
42  ,3422 

42.3423 

42.3424 

42.3425 

42.3426 

42.3427 

42.3430 

42. 3431 
42  ,3432 
42,3433 
42,3424 


10  155  1 
1 3414  1 
1 3414  1 
1 3410  0 
0 0006  1 
4 3302  1 
20  155  1 
1 3417  1 
C 0006  1 
3 3302  0 
1 3412  1 
56  002  0 
54  144  1 
C 7106  1 
03267  1 
C 0006  1 
3 0155  0 
53'007  0 
( 4404  0 
C 4404  0 
3 4755  1 
56  156  0 
56  155  0 
56  154  1 
0 0144  0 


SEPSEC  CCS 
TCF 
TC  F 
TCF 
EXTEND 
DCS 

SEPSECl  DAS 
TCF 

posec  EXTEND 

DCA 

TCF 

SEPSECNR  XCh 
TS 
TC 

ADRES 

EXTEND 

OCA 

OXCh 

TC 

TC 

CAF 

XCH 

XCF 

XCH 

TC 


MPAC  +1 

POSEC 

PGSEC 


RNOCCN  -1 
MPAC 

SEPSECNR 

RNDCON  -I 

SEPSECl 

Q 

SEPSCRET 

OMP 

SECONl 

MPAC 

HITEMOUT 

TPSLl 

TPSLl 

ZERO 

MPAC  +2 
MPAC  +1 
MPAC 

SEPSCRET 


IF  4,  ROUND  PY  ACDIN'G  o5  SEC 
IF  ROUND  BY  SUBTRACTING  >5  SEC 
FINDS  TIME  IN  MPAC,  MPAC  + 1 
ROUNDS  OFF  BY  +/-  c5  SBC 
LEAVES  WHOLE  MIN  IN  BIT13  OF 
LOTEMOUT  AND  ABCVFo 

LEAVES  FRACT  SEf/60  IN  MPAC,  MPAC+lo 


THIS  ENTRY  AVOIDS  ROUNDING  BY  «5  SEC 
MULT  BY  2expi2/60on 

GIVES  FRACT  SEC/60  IN  BIT12  OF  MPAC+1 
AND  BELOW, 

SAVE  MINUTES  AND  HCURS 


GIVES  FRACT  SEC/6n  IN  MPAC  + l , MPAC  + 2o 
LEAVE  FRACT  SEC/60  IN  MPAC,  MPAC+lo 


REF  84  LAST  426 
REF  1 
REF  1 

REF  21  LAST  420 
23  LAST  295 


42.3435 

42.3436 

42.3437 
42,3440 
42, 7441 
42  ,3442 
42,3443 


56  002  0 
54  144  1 
3 1007  1 
C 0006  I 
7 4751  I 
0 0006  1 
7 4737  1 


SEPMIN 


XCH  Q 

TS  SEPMNRET 

CA  LOTEMOUT 

EXTEND 

Mp  BIT3 

FXTEND 

MP  eiT13 


FINDS  WHOLE  MINUTES  IN  BIT13 
OF  LOTEMOUT  ANC  ABOVFo 
REMOVES  REST  OF  SECCNOSe 
LEAVES  FRACT  MIN/60  IN  MPAC  + 1- 
LEAVES  WHOLE  HCURS  IN  MPAC, 

SP  12,  THROW  AWAY  LPo 

SR  2,  TAKE  FROM  LPn  = SL  12e 


REF 


GAP;  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECe  19,1969  LEMONAIO^lOA  PAGE  A27 


L 


PINBALL  GAME  BUTTONS  AND  LIGHTS 


USER'S  PAGE  NC«  36  EC  S4 


1388 

A1389 

1390 

1391 

1392 

1393 

1394 


REF  138 


LAST  426  42  ,3444  22  155  0 


LXCH  MPAC  +1 


REF  4 LAST  426 

REF  139  LAST  427 

REF  6 LAST  426 

REF  1 

REF  2 LAST  426 


42,3445  3 1006  0 

42»3446  54  154  0 

42,3447  C 7106  1 

42.3450  03275  I 

42.3451  0 0144  0 


CA  HITEMOUT 

TS  MPAC 

TC  OMP 

AORES  MINCGNl 
ENOSPMIN  TC  S EPMNRET 


THIS  FORCES  BITS  12-1  TO  O IF  +, 
FORCES  BITS  12-1  TO  1 IF 


MULT  BY  1/15 

GIVES  FRACT  MIN/60  IN  MPAC+1„ 
GIVES  WHOLE  HOURS  IN  MPAC. 


R1395  THIS  IS  A SPECIAL  PURPOSE  VERB  FOR  DISPLAYING  A DOUBLE  PRECISION  AGC 
R1396  WORD  AS  10  DECIMAL  DIGITS  CN  THE  AGC  DISPLAY  PANELo  IT  CAN  BE  USED  WITH 
R1397  ANY  NOUN,  EXCEPT  MIXED  NQUNSc  IT  DISPLAYS  THE  CONTENTS 

R1398  OF  THE  REGISTER  NOUNACC  IS  POINTING  TO  • IF  USED  WITH  NOUNS  WHICH  ARE 

R1399  INHERENTLY  NOT  OP  SUCH  AS  THE  CCU  COUNTERS  THE  DISPLAY  WILL  BE  GARBAGEo 
R1400  DISPLAY  IS  IN  R1  AND  R2  ONLY  WITH  THE  SIGN  IN  Rio 


1401  REF 


40  ,3025 


SETLOC  ENDRDLO  +l 


14015 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 


1410 

1411 

1412 

1413 

1414 

1415 

1416 


REF  3 LAST 
REF  11  LAST 


REF  140  LAST 
REF  10  LAST 
REF  36  LAST 
REF  70  LAST 
REF  141  LAST 
REF  5 LAST 
REF  1 
REF  6 LAST 


420  TO 
423 


414 

423 

427 

425 

426 

426 

427 

424 

424 


423; 

40 .3025 

40.3026 

40.3027 

40.3030 

40.3031 

40.3032 
40  ,3033 

40.3034 

40.3035 

40.3036 

40.3037 

40 . 3040 

40.3041 

40.3042 

40.3043 


136  470* 

5C  140  1 
C 3C26  0 
C 3C31  0 
0 3454  1 
0 0006  1 
5 0145  1 
3 0001  0 
52  155  1 
3 4317  0 
54  776  0 
3 4755  I 
54  156  1 
0 7262  n 
C 3327  1 
0 0136  0 


COUNT* 

DSPOPOEC  INDEX 
TC 
TC 
TC 

EXTEND 

INDEX 

CCA 

DXCH 

CAF 

TS 

CAF 

TS 

TC 

TC 

ENDCPDEC  TC 


$ $ / P I N 
MI  XBR 
+0 
+ 2 

DSPALARM 

NOUNADD 

0 

MPAC 

RlDl 

DSPCOUNT 

ZERC 

MPAC  +2 
TPAGREE 
DSP20EC 
6NTEXIT 


NORMAL  NOUN 
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L PINBALL  GAME  BUTTONS  AND  LIGHTS  USER'S  PAGE  NOo  37  EC  SA 

P1A17  LEAD  VERBS  IF  ALARt-  CCNCITION  IS  DETECTED  DURING  EXECUTE, 

R1A18  CHECK  FAIL  LIGHT  IS  TURNED  ON  AND  ENDOFJCBo  IF  ALARM  CONDITION  IS 
R1A19  DETECTED  DURING  ENTER  OF  DATA,  CHECK  FAIL  IS  TURNED  ON  AND  IT  RECYCLES 
R1A20  TC  EXECUTE  CF  ORIGINAL  LCAC  VERB*  RECYCLE  CAUSED  BY  1)  DECIMAL  MACHINE 

R1421  CAOR  2)  MIXTURE  OF  OCTA L/OE C I MA L DATA  31  OCTAL  DATA  INTO  DECIMAL 

R1422  CNLY  NCUN  41  DEC  DATA  INTC  CCT  CNLY  NOUN  51  DATA  TOO  LARGE  FOR  SCALE 
R1423  6)  FEWER  THAN  3 DATA  WORDS  LCADEO  FOR  HRS,  MIN,  SEC  NOUNoB ( 2 )- ( 6 ) ALARM 

R1424  AND  RECYCLE  OCCUR  AT  FINAL  ENTER  OF  SETa  (1)  ALARM  AND  RECYCLE  CCCUR  AT 

R1425  ENTER  OF  CACR» 


1426  REF 


Al,2622 


SETLOC  ENDPTCUT 


14265  REF  2 

1427  REF  24 

1428  REF  3 

1429  REF  1 

1430  REF  1 

1431  REF  2 

1432  REF  1 

1433  REF  1 

1934  REF  3 

1435  REF  1 

1436  REF  1 

1437  REF  4 

1438  REF  2 


LAST  408  TO  420: 
LAST  425  41  ,2622 

LAST  A1  6 41,2623 

41,2624 
41  ,2625 
LAST  406  41,2626 

41,2627 
41,2630 
LAST  428  41,2631 

41  ,2632 
41,2633 
LAST  428  41,2634 

LAST  409  41  ,2635 


402  402* 

4 4752  1 
0 2426  0 
0 2462  0 
3 3031  0 
C 2341  0 
0 2305  0 
3 3032  0 
0 2341  0 
0 2307  1 
3 3033  1 
0 2341  0 
0 2311  0 


AeCLOAC 


COUNT#  tS/PIN 

CS  TWO 

TC  COMPTFST 

TC  NOUNTEST 

CAF  VBSPILO 

TC  UP0ATV8  -I 

TC  REODATX 

CAF  VBSP2LD 

TC  UPOATve  -1 

TC  REQOATY 

CAF  VBSP3LD 

TC  UPDATVB  -1 

TC  REQOATZ 


TEST  IF  NCUN  CAN  BE  LCACEOo 


1439  REF 

1440  REF 

1441 

1442  REF 

1443  REF 
14,44  REF 

1445  REF 

1446  REF 

1447 

1448  REF 

1449  REF 

1450  REF 

1451 

1452  REF 

1453  REF 

1454  REF 

1455 

145501  REF 
145502  REF 
145503 
1455C4 
145505  REF 


U LAST  422 
1 


4 LAST  413 
7 LAST  419 
71  LAST  427 

1 

12  LAST  427 

38  LAST  420 

2 LAST  428 

13  LAST  428 

25  LAST  428 

3 LAST  428 

14  LAST  428 

2 LAST  157 
10  LAST  4)3 


2 LAST  4U0 


91.2636  t.  6245 

41.2637  0 3034 

41.2640  0 0006 

41.2641  3 211t 

41  ,2642  52  006 

41.2643  3 4755 

41.2644  0 3120 

41  ,2645  50  145 

41.2646  54  CCC 

41.2647  3 4753 

41.2650  C 3120 

41.2651  5C  145 

41  ,2652  54  001 

41.2653  3 4752 

41.2654  0 3120 

41  ,2655  50  145 

41.2656  54  C02 

41.2657  4 4757 

41  ,2660  6 1001 

41.2661  C QCC6 

41.2662  1 2664 

41 .2663  0 3020 


C 

0 

1 

I 

0 

I 

1 

1 

0 

1 

1 

1 

I 

0 

1 

1 

1 

I 

1 

1 

0 

0 


PUTXYZ 


CS  SIX 

TC  ALLOC/OC 

EXTEND 

OCA  LODNNLCC 

DXCH  Z 

CAF  ZERO 

TC  PUTCOM 

INDEX  NOUNADD 

TS  0 

CAF  ONE 

TC  PUTCGM 

INDEX  NCUNAOO 
TS  1 

CAF  TWO 

TC  PUTCOM 

INDEX  NOUNAOD 

TS  2 

CS  SEVEN 

AD  NOUNREG 

EXTEND 
BZF  +2 

TC  LOADLV 


TEST  THAT  THE  3 DATA  WORDS  LOADED  ARE 
ALL  DEC  OR  ALL  OCT« 

SWITCH  BANKS  TC  NOUN  TABLE  READING 
ROUTINE, 

X COMP 


Y COMP 


? COMP 


IF  NOUN  7 HAS  JUST  BEEN  LOADED,  SET 
FLAG  BITS  AS  SPECIFIFDr 


GAP 
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145506 
145508  REF 
14551  REF 
145512 
145514  REF 


41  ,2664  0 0004  0 

1 41,2665  4 4763  0 

4 LAST  418  41, ‘2666  6 1002  1 

41  ,2667  0 0006  1 

1 41,2670  6 270C  I 


INFINT 

CS  0CT30 

AD  XREG 

EXTEND 

BZMF  CHANBITS 


145516  REF  5 LAST  429 
145518  REF  5 LAST  413 


41  ,2671  3 1002  1 

41,2672  0 4304  1 


CA  XREG 

TC  SETNCACR  +1 


14552  REF 
145522 
145524  REF 
145526  REF 
145526  REF 


LAST  428 

LAST  418 
LAST  428 
LAST  429 


41,2673  50  145  1 

41  ,2674  3 0000  1 

41.2675  54  001  1 

41.2676  3 4753  1 

41  ,2677  55*002  0 


INDEX  NOUNAOD 

CA  0 

TS  L 

CAF  ONE 

TS  XREG 


14553  REF 
145532 
145534  REF 


3 LAST  273 


4l,27C0  6 4361  1 

41 .2701  0 0006  1 

41.2702  1 2724  0 


CHANBITS  AD 

EXTEND 

ezF 


0CT21 

BITS0FF2 


145536  REF  2 LAST  409 
145536 

14554  REF  1 


41.2703  3 1004  1 

41.2704  0 0006  1 

41  ,2705  6 2713  0 


CA  ZREG 

EXTEND 

BZNF  BITSOFF 


145542  REF 
145544 
145546  REF 
145548 
14555  REF 


LAST  429 


41,2706  3 1003  0 

41  ,2707  0 0006  I 

41.2710  5 1002  1 

41.2711  05  000  I 

41.2712  1 2717  0 


CA  YREG 

EXTEND 

INDEX  XREG 

WOR  0 

TCF  BITSCFFJ 


145552  REF 
145553 
145554  REF 
145556 


LAST  429 
LAST  429 


41,2713  4 1003  1 

41  ,2714  0 0006  1 

41.2715  5 1002  I 

41.2716  03  000  1 


BITSOFF 


CS  YREG 

EXTEND 
INDEX  XREG 
WAND  0 


145556  REF  9 
14556  REF  131 
145562  REF  2 


LAST  429  41 

LAST  425  41 

LAST  429  41 


,2717  11*002 

,2720  K COO 
,2721  1 2724 


0 BITSOFF!  CCS 
0 CCS 

0 TCF 


XREG 

BITSaFF2 


145564  REF  16  LAST  429 
145566 


41,2722  50  145  1 

^1,2723  22  000  1 


INDEX  NOUNAOD 
LXCH  n 


145568 
1456  REF 


LAST  428 


41  ,2724  0 0003  1 

41,2725  0 3020  0 


BITSOFF?  RELINT 

TC  LOADLV 


14565  REF 

1457  REF 

1458  REF 
1450  REf; 
146U  REF 
1461  REF 


4 LAST 
40  LAST 

^ LAST 
2 LAST 
2 LAST 

5 LAST 


283 
429 
428 
428 
428 
42  8 


4763 

41.2726 

41.2727 

41.2730 

41.2731 

41.2732 


4 4753  0 
0 2426  C 
0 2462  n 
3 3031  0 
0 2341  0 


0CT30 

ABLOAD 


CS 

TC 

TC 

CAF 

TC 


B I TS4C5 
ONE 

COMPTEST 
NOUNTEST 
VBSPl  LC 
UPOATVe  • 


•1 
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USER'S  PAGE  NCo  38  EO  S4 


IS  IT  A CHANNEL  (30  HR  UNDER! 


YES 

ECADR  OF  ERASABLE  CELL 
SET  EBANK,  NOUNADD 


MAKE  IT  LOOK  LIKE  A CHANNEL  FOR  A WHILE 

DONT  TOUCH  CHANT  (SUPERBANK) 


R3  IS  ZERO  FOR  OFF,  NONZERO  FOR  ON 


WAS  IT  really  a CHANNEL 
YES 


TEST  IF  NOUN  CAN  BE  LCADEO. 


gap: 

L 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1507 

1508 

1509 

1510 

1511 
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USER*  S PAGF  NCe  39  EP  S4 


REF 

REF 

REF 

PEF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

PEF 

REF 

REF 

REF 


2 

2 

6 

2 

9 

2 

5 

8 

72 

4 

17 

41 

5 

18 


LAST  428 
LAST  420 
LAST  4?9 
LAST  428 
LAST  410 
LAST  428 

LAST  428 
LAST  428 
LAST  428 
LAST  428 
LAST  429 

LAST  429 
LAST  430 
LAST  430 

LAST  429 


41  ,2733 
41,2734 
41  ,2735 

41.2736 

41.2737 
41,2740 
41,  2741 
41  ,2742 

41.2743 

41.2744 
41  ,2745 
41,  2746 
41,2747 

41.2750 

41.2751 

41.2752 

41.2753 

41.2754 


0 2305  0 

2 3032  0 
0 2341  0 
C 2307  1 
4 4756  0 
C 3034  0 
C nC06  1 

3 2114  1 
52  006  0 

2 4755  1 
0 3120  1 
5C  145  1 
54  000  0 

3 4753  1 
C 3120  1 
50  145  1 
54  OCl  1 
0 3020  0 


PUTXY 


TC 

CAF 

TC 

TC 

CS 

TC 

EXTEND 

OCA 

OXCH 

CAF 

TC 

INDEX 

TS 

CAF 

TC 

INDEX 

TS 

TC 


REQOATX 
VBSP2LD 
UPDATVB  -1 
REQDATY 
FIVE 

ALLCC/CC 

LOONNLDC 

Z 

ZERO 

PUTCOM 

NDUNADO 

0 

ONE 

PUTCOM 

NOUNADD 

1 

LOAOLV 


TEST  THAT  THE  2 DATA  WORDS  LOADED  ARE 
ALL  DEC  OR  ALL  OCT» 

SWITCH  BANKS  TO  NOIN  TABLE  READING 
ROUTINE* 

X CCMP 


Y COMP 


REF  3 

REF  6 
REF  9 
REF  73 
REF  6 
REF  19 

REF  5 


LAST  430 

LAST  430 
LAST  430 
LAST  430 
LAST  430 
LAST  430 

LAST  430 


41  ,2755 

41.2756 

41.2757 

41.2760 

41. 2761 

41.2762 

41.2763 

41.2764 
41  ,2  765 


0 2305  0 
C 0006  1 

2 2114  1 
52  006  0 

3 4755  1 
0 3120  I 
50  145  1 
54  000  0 
0 3020  0 


ALQAC 


TC  REQOATX 

EXTEND 

OCA  LODNNLOC 
CXCh  Z 

CAF  ZERC 

TC  PUTCOM 

INDEX  NOUNADO 

TS  0 

TC  LOAOLV 


SWITCH  BANKS  TC  NGUN  TABLE  READING 
ROUT INEn 
X COMP 


REF  42  LAST  430 
REF  5 LAST  429 
REF  24  LAST  421 
REF  10  LAST  409 
REF  3 LAST  430 


REF  7 LAST  430 
REF  10  LAST  430 
REF  43  LAST  430 
REF  7 LAST  430 
REF  20  LAST  420 


REF  6 LAST  430 


41.2766  4 4753  0 

41.2767  n 2426  0 

41.2770  3 4735  1 

41.2771  55*014  I 

41.2772  0 2307  1 

41.2773  0 0006  1 

41.2774  3 2114  1 

41  ,2775  52  006  0 

41.2776  3 4753  I 

41.2777  0 3120  1 

41  ,3000  50  145  1 

41,3001  54  CCl  1 

41,3'»02  0 3020  0 


6LCAC 


CS  ONE 

TC  COMPTFST 

CAF  PIT15 

TS  CLPASS 

TC  REQDATY 

EXTEND 

OCA  LODNNLCC 

CXCH  Z 

CAF  ONE 

TC  PUTCOM 

INDEX  NOUNADO 

TS  1 

TC  LDADLV 


SET  CLPASS  FOR  PASSO  ONLY 


SWITCH  BANKS  TO  NOUN  TABLE  READING 
ROUTINE* 


REF  26  LAST  428 
REF  6 LAST  430 
REF  25  LAST  430 
REF  11  LAST  430 
REF  3 LAST  428 

REF  8 LAST  430 


41,3003  4 4752  1 CLCAO  CS  TWO 


41,3004  0 2426  0 

41  ,3005  3 4735  1 

41.3006  55*014  I 

41.3007  0 2211  0 

41.3010  C 0006  1 

41.3011  3 2114  1 


TC  COMPTEST 

CAF  8IT15 

TS  CLPASS 

TC  PEODATZ 

EXTEND 

OCA  LOONNLCC 


SET  CLPASS  FOR  PASSC  CNLY 


SWITCH  BANKS  TO  NOUN  TABLE  READING 
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1512  REF  11  LAST  ABC  ^1»3012  52  006  0 

1513  REF  27  LAST  ABO  Al.BOlB  3 A752  0 

151A  REF  a LAST  ABO  Al.BOlA  0 3120  1 

1515  REF  21  LAST  ABO  Al,3015  5C  1A5  I 

1516  Al,3016  5A  002  1 

1517  REF  7 LAST  ABO  Al,3017  0 3020  0 


CXCH  Z 

CAF  TWO 

TC  PUTCOM 

INDEX  NOUNAOC 

TS  2 

TC  LOAOLV 


1518  REF 

1519  REF 

1520  REF 

1521  REF 
15215  REF 

1522  REF 

1523  REF 
152A  REF 
1525  REF 


7A  LAST 
13  LAST 
75  LAST 
1 

5 LAST 

6 LAST 
37  LAST 
2A  LAST 

1 


A30 
AO  9 
A31 


AlO 
AlA 
A27 
A2  6 


Al,3020 
Al,3021 
Al,3022 
Alt3023 
Al  ,302A 
A1 ,3025 
Al  ,3026 
Al  ,3027 
Al,3030 


A A755  0 
55'C13  0 
0 AA57  0 
A A360  1 
5A  776  0 
0 A635  0 
61612  0 


LOAOLV 


CAF  ZERC 

TS  DECBRNCH 

CS  ZFRG 

TS  LCAOSTAT 

TC  RELDSP 

CS  VDl 

TS  DSPCOLN’T 

TC  POSTJUMP 

CADR  RECALTST 


1526 

1527 

1528 


Al,3031  00025  0 VBSPILC  DEC  21 
Al,3032  C0026  0 VBSP2LD  DEC  2? 
Al,3033  00027  1 V6SP3L0  DEC  23 


1529  REF 

1530  REF 

1531  REF 

1532  REF 

1533  REF 
153A  REF 

1535 

1536  REF 

1537  REF 

1538 

1539 

15A0  REF 
15^1  REF 


13  LAST 
lA  LAST 
3 LAST 
A LAST 
5 LAST 
132  LAST 


85  LAST 
lA  LAST 


A LAST 
06  LAST 


A25 

A31 

A07 

A31 

A31 

A29 


A26 

A31 


A17 

A31 


Al  ,303A  5A  117  1 
Al,3035  A 0777  1 
Al,3036  5A  021  0 
Al,3037  A 0021  0 
A1,30A0  A CC21  0 
Al  ,30A1  10  000  0 
A1,30A2  1 30AA  0 
A1,30A3  0 0002  0 
Al  ,30AA  6 0117  0 
A1,30A5  C 0006  1 
A1,30A6  I 3050  0 
A1,30A7  0 A1A5  0 
Al,3050  C 0C02  0 


ALLCC/CC  TS 
CS 
TS 
CS 
CS 
CCS 
TCF 
TC 
AO 

EXTEND 
6Z  F 
TC 

GOO  TC 


DECOUNT 

DECBRNCH 

SR 

SR 

SR 

A 


+2 

Q 

DECOUNT 


+ 2 

ALMCYCLE 

0 


15A2 

15A3 

15AA 

15A5 

15A6 

15A7 


REF  87 
REF  1 
REF  1 
REF  3 
REF  1 
REF  2 


LAST  A31 

LAST  A18 
LAST  A3l 


Al  ,3051 
Al,3052 
Al,3053 
Al  ,305A 
A1,3C55 
Al,3056 


56  002  0 
5A  llA  1 
2 A3A7  0 
7 01A7  1 
C A322  0 
0 OllA  0 


SFRUTNOP 


XCF 

TS 

CAF 

MASK 

TC 

TC 


0 

EXITEM 

MI05 

NNTYPTEM 
P IGHT5 
EXITEM 


1550 

1551 

1552 

1553 


REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 


A31 

A31 

A?1 


LAST  A29 
LAST  A31 


A1,3C57  56  002  0 SFRUTMIX  XCH  0 


Al,3060  5A  llA  1 
Al  ,3061  50  117  0 

Al ,3062  3 3111  0 

A 1,306 3 5 A 001  1 

Al  ,306A  50  117  0 


TS  EXITEM 

INDEX  DECOUNT 
CAF  DISPLACE 
TS  L 

INDEX  DECOUNT 
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USER'S  PAGE  NCo  ^0  EO  SA 

ROUTINE^ 


RELEASE  FOR  PRIORITY  DISPLAY  PROBLEMc 
TO  BLOCK  NUMERICAL  CHARACTERS  AND 
CLEARS  AFTER  A CCMPLETEC  LOAD 
AFTER  COMPLETED  LOAD,  GO  TO  RECALTST 
TO  SEE  IF  THERE  IS  RECALL  FROM  ENOIOLE« 


VB21  = ALOAO 
V622  = BLOAD 
VB23  = CLGAO 


TESTS  THAT  DATA  WORDS  LOADED  ARE  EITHER 
ALL  DEC  OR  ALL  OCT,  ALARMS  IF  NOT, 


SHIFTED  RIGHT  2 

DEC  COMP  BITS  IN  LCW  3 

SOME  ONES  IN  LOW  3 

ALL  ZEROS,  ALL  CCTALt  CK 

DEC  COMP  = 7 FOR  3C0MP,  =6  FOR  2C0MP 

(BUT  IT  HAS  BEEN  DECREMENTED  BY  CCSI 

MUST  MATCH  6 FOR  3CCMP,  5 FCR  2C0MP, 

ALARM  AND  RECYCLEo 

ALL  REQUIRED  ARE  DEC,  CK 


GETS  SF  ROUTINE  NUMBER  FOR  NORMAL  CASE 
CANT  USE  L FOR  RETURN,  TSTFORDP  USES  L, 


SF  ROUTINE  NUMBER  IN  A 

GETS  SF  ROUTINE  NUMBER  FOR  MIXED  CASE 


PUT  TC  GOO,  TC  PIGHT5,  OR  TC  LEFT5  IN  L 


GAP  : 

L 

1554 

1555 

1556 

1557 

R155fl 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1566 

1569 

1570 

1571 

1572 

R1573 

1574 

1575 

1576 

1577 

1576 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

R1597 

1598 
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PINEALL  GAME  BUTTONS  AND  LIGHTS 


USER'S  PAGF  NOc  41  EO  S4 


REF 

REF 

REF 


2 

2 

56 


LAST  401 
LAST  306 
LAST  A31 


DO  TC  60Q{DEC0UNT=n) 
REF  4 LAST  431 


41.3065  3 4346  1 

41.3066  7 0153  1 

41.3067  5C  001  0 

41 .3070  0 0000  1 

, 00  TC  RIGHT5(0FC0UNT=1) , 

41.3071  0 0114  0 SFRETl 


CAF  LOW?  L0W5,  MI05,  OR  F15  IN  A 

MASK  RUTMXTEM  GET  HIS,  MID5,  OR  L0W5  OF  RUTMXTAB  ENTRY 

INDEX  L 
TC  0 

DO  TC  LEFT5(DECOUNT=2I. 

TC  EXITEM  SF  ROUTINE  NUMBER  IN  A 


REF 

KEF 

PEF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


431 

432 
427 


431 

431 

432 
432 
432 
43  1 
43  2 


89  LAST 
5 LAST 
9 LAST 


17  LAST 

2 LAST 

57  LAST 

18  LAST 

3 LAST 
^ LAST 

58  LAST 


DO  TC  G0Q(0EC0UNT=0 
REF  6 LAST  432 


41  ,3072 

41.3073 

41.3074 

41.3075 

41.3076 
41  ,3077 

41.3100 

41.3101 
41  ,3102 
41,3K3 
41 ,3104 
41  ,3105 
41,3106 


56  002  0 SFCONUM 
54  114  1 
50  140  1 
0 3075  0 


C 3114  0 
50  117  0 
3 3111  0 
54  001  1 
50  117  0 
3 4346  1 
7 0147  1 
50  001  0 
C COOO  I 
, OQ  TC  P IGFT5 ( DEC0UNT=1  } , 
41,3107  6 0000  1 SFRET 

41,?11C  n C114  0 


XCF  0 
TS  EXITEM 

INDEX  MIXBR 
TC  +0 
TC  CONUMNCP 

INDEX  DECOUNT 
CAF  DISPLACE 
TS  L 

INDEX  DECOUNT 
CAF  LOWS 
MASK  NNTYPTEM 
INDEX  L 
TC  0 

00  TC  LEFT5(DECDUNT=2)9 
DOUBLE 

TC  FXITFM 


GETS  2X(  SF  CONSTANT  NUMBER) 


NORMAL  NOUN 
MIXED  NOUN 

PUT  TC  GOO,  TC  PIGFT5,  CP  TC  LEFT5  IN  L 


?X(SF  CONSTANT  NUMBER  ) IN  A 


REF  1 

RFF  2 LAST  431 
REF  3 LAST  418 


41  ,3111  0 3050 

41.3112  0 4322 

41.3113  0 4331 


1 DISPLACE  TC 

0 TC 

1 TC 


GOQ 

RIGHTS 

LEFTS 


REF 

REF 

REF 


4 LAST  4.32 

5 LAST  432 

7 LAST  432 


4 1,3114  3 4346  J. 

41.3115  7 0147  1 

41.3116  6 0000  1 

41.3117  0 0114  0 


CONUMNOR 


CAF  LOWS 

MASK  NNTYPTEM 
DOUBLE 

TC  EXITEM 


NORMAL  NOUN  ALWAYS  GETS  LOW  5 OF 
NNTYPTA6  FOP  SF  CONUM® 

2X(  SF  CONSTANT  NUMBER)  IN  A 


REF  19 
REF  90 
REF  1 
PEF  76 
REF  3 
REF  20 
REF  3 
REF  142 
PEF  21 
REF  10 
REF  143 
REF  10 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


PEF  1 
IF  MIXNCUN,  P 
KEF  22  LAST 


41, 3120 
41  ,3121 

41.3122 

41.3123 

41.3124 

41.3125 

41.3126 

41.3127 
41, 3130 
41  ,3131 

41.3132 

41.3133 

41.3134 

41. 3135 

.ACE  ADDRESS  FOF 
432  41,3136 


431 
422 

432 
407 
427 
43  2 
429 
432 
432 


54  117  1 PUTCOM 
56  002  0 
54  115  0 
3 4755  1 
54  162  0 
50  117  0 
57*005  0 
54  155  1 
50  117  0 
57'002  1 
5 4 154  0 
50  140  1 
0 3134  1 TC 

C 3162  I TC 

CCMPONENT  K INTO  NOUNADD, 
50  117  0 INDEX 


CAF 


INDEX 

XCF 


INDEX 


DECOUNT 

0 

DECRET 
ZERO 
MPAC+6 
DECCUNT 
XREGLP 
MPAC  +1 
DECOUNT 
XRE6 
MPAC 
MIXBR 
+0 

PUTNCRM 

SET  F8ANK  BITS# 
DECOUNT 


NORMAL  NOUN 

GET  IDAOOTAB  ENTRY  FOR  COMPONENT  K 


gap:  assemble  REVISION  131  OF  AGO  PRCC-PAP  LUMINARY  BY  NASA  2021112-091 


PINBALL  GAME  BUTTONS  AND  LIGHTS 


1599 

1600 
1601 
1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 
A1611 
A1612 
A1613 

1614 

1615 

1616 

1617 

1618 
1619 
162  0 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 


LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


423 

423 

429 

432 
431 
43  1 


419 

418 


433 

433 

433 

432 

433 


LAST  433 


41  ,3137 

41.3140 

41.3141 
41  ,3142 

41.3143 

41.3144 

41.3145 

41. 3146 

41.3147 

41.3150 

41.3151 
41  ,3152 


41.3153 

41.3154 

41.3155 

41.3156 
41  ,3157 

41.3160 

41.3161 


3 0150  0 
7 4356  1 
0 4303  0 
0 0006  1 
60  )17  0 
54  145  0 
10  777  1 
0 3217  0 
0 2454  0 
0 3057  0 
C 2261  0 
0 3200  0 


24  145  I 
3 0145  1 
26  117  1 
3 4755  1 
50  117  0 
53*777  0 
0 3200  0 


PUTOPCOM  INCR 
CA 
ADS 
CAF 
INDEX 
TS 
TC 


IDADITEM 

Lnwii 

SETNCADF 

DECOUNT 

NOUNADO 

DECBRNCH 

PUTDECSF 

OCTSTCYC 

SFRUTMIX 

DPTEST 

PUTC0M2 


NOUNADO 

NOUNADO 

DECOUNT 

ZERO 

OECOUNT 

0 

PUTCCM2 


1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


409 
433 
433 
433 
419 
433 
433 
433 
43  3 


41  ,3162 
41,3163 
41  ,3164 

41 .3165 

41.3166 
41  ,3167 

41.3170 

41.3171 

41.3172 

41.3173 


0 4311  0 
1C  777  1 
0 3217  0 
0 2454  0 
0 3051  0 
0 2261  0 
C 3174  0 
3 4755  1 
54  117  1 
0 3153  0 


S ETNADD 

DECBRNCH 

PUTDECSF 

OCTSTCYC 

SFRUTNOR 

DPTEST 

PUTCCM2  - 

ZERO 

OECOUNT 

PUTDPCCM 


1631 

1632 

1633 

1634 

1635 

1636 


REF  I 
REF  144 
REF  2 


41  ,3174 

41.3175 

41. 3176 
41  ,3  177 

41.3200 

41.3201 


3 0146  1 
6 4753  1 
0 0006  1 
1 3204  0 
56  154  1 
0 0115  1 


CA  NNAOTEM 

AD  ONE 

EXTEND 

BZF  CHANLOAO 
XCH  HPAC 

TC  OECRET 


1637 

1638 
163  8 


REF 

REF 

REF 


38  LAST  431 


0776 

41.3202 

41.3203 


C2147  1 
64101  0 


1639 

16391 

16392 

16393 


418 

431 


41.3204 

41.3205 
41  ,3206 
41  ,3207 


4 4757  1 
6 1016  1 
0 0006  1 
1 3020  1 


CHANLCAD  CS 


SEVEN 
NDUNCAOR 

EXTEND 

BZF  LOADLV 


17:53  DECe  19,1969  LEN0NAI0^104  PAGE  433 
USER'S  page  NDc  4?  ED  S4 

OF  NOUNo 

(ECAOPISUQK  FOR  CURRENT  COMP  HF  NOUN 
ECAOR  INTO  NDUNCADRo  SETS  EB,  NOUNADO^ 
C(NOUNADO)  IN  A UPCN  RFTURN 
PLACE  (£SUeK)-K  INTO  NOUNADD 


+ DEC 
+0  OCTAL 

TEST  IF  DEC  ONLY  BIT  = lo  IF  SO, 

ALARM  AND  RECYCLE®  IF  NCT,  CONTINUE® 

NO  DP 

TEST  FOR  DP  SCALE  FOR  OCT  LOAD®  IF  SO, 
+0  INTO  MAJOR  PART®  SET  NOUNADO  FOR 
LOADING  OCTAL  WORD  INTO  MINOR  PART. 

DP  (ESUBKl-K+1  OR  E+1 
NOUNADO  NOW  SET  FOR  MINOR  PART 
IESU6K)+1  OR  E+1  INTO  DECQUNT 
NOUNADO  SET  FOR  MINOR  PART 

ZERO  MAJOR  PARTIESUBK  OR  E) 


ECAOR  FROM  NOUNCADR®  SETS  EB,  NOUNADO 

+ DEC 
+0  OCTAL 

TEST  IF  DEC  ONLY  BIT  = 1®  IF  SO, 

ALARM  AND  RECYCLE®  IF  NOT,  CONTINUE® 
NO  CP 
OP 


IF  NNADTEM  = -1,  CHANNEL  TO  BE  SPECIFIED 


COMT  LOAD  CHAN  7.  ( IT  = SUPERBANK 


GAP  : 


ASSEMBLE  REVISION  131  CF  AGC  FRCGPAM  LUMINARY  8Y  NASA  2021112-001 


17: 53  PEC^  19 


969  LEMONA  ID-  1*^4 


PAGE  ^3^ 


L PINBALL  GAME  BUTTONS  AND  LIGHTS 


USER’S  PAGE  KCe  A?  EC  S4 


1639A  REF  5 LAST 

16A0  REF  7 LAST 

1641  REF  145  LAST 

16411 

16412  REF  146  LAST 

1642 

1643  REF  9 LAST 


433  41  ,3210  3 1016  1 

418  41,3211  1 5C04  1 

433  41,3212  56  154  1 

41,3213  0 0006  1 

434  41,3214  5 C154  1 

41,3215  01  000  0 

433  41,3216  0 3020  0 


CA 

MASK 

XCH 

EXTEND 
INDEX 
WR  ITE 
TC 


NOUNCADR 

LnW9 

MPAC 

MPAC 

0 

LOAOLV 


R1644  PUTCECSF  FINOS  MJXBR  AND  DECTUNT  STILL  SET  FROM  PUTCOM 


1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 


2 

14 


REF  1 

REF  12  LAST  431 
REF  n LAST  432 


REF  1 

RFF  4 LAST  433 

REF  1 

REF  4 LAST  433 


41  ,3217 

41.3220 

41.3221 

41.3222 

41. 3223 
41  ,3224 

41.3225 

41.3226 
41  ,3227 

41.3230 

41.3231 


0 3072  1 
54  123  0 
0 0006  1 
3 3203  0 
52  (C6  0 
50  140  1 
C 3225  1 
0 3231  1 
0 3057  0 
0 3232  1 
0 3C51  0 


PUTCECSF  TC  SFCONUM 

TS  SFTEMPl 

EXTEND 

DCA  GTSFINLC 

OXCH  Z 

INDEX  MIXBR 

TC  +-0 

TC  PU1SFNCR 

TC  SFRUTMIX 

TC  PUTDCSF2 

PUTSFNOR  TC  SFRUTNQR 


2X(SF  CON  NUMB)  IN  A 

SWITCH  BANKS  TO  SF  CONSTANT  TABLE 
READING  ROUTINE^ 

LOADS  SFTEMPl,  SFTEMP2o 


1656  REF  133 

1657  REF  1 

1658  REF  4 

1659  REF  1 

A1660 

1661  REF  1 

1662  REF  1 

1663  REF  1 

1664  REF  1 

1665  REF  1 

1666  REF  4 

1667  REF  2 

1660  REF  1 

1669  REF  5 

1671  REF  1 

16711  REF  1 

1671.2  REF  6 

16714  REF  2 

16715  REF  7 

16716  REF  B 

1672 


LAST 

LAST 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


431 


419 


42  7 
434 

434 


434 

434 

434 

434 


41.3232  50  nOO  1 

41.3233  2 3235  0 

41  ,3234  0 4640  1 

41,3235  62352  1 

41  ,3236  61142  1 

41,3237  61C44  0 

41.3240  61132  0 

41.3241  61150  1 

41. 3242  61175  0 

41  ,3243  61454  0 

41.3244  61150  ) 

41.3245  65452  1 

41  ,3246  61454  0 

41, 3247  61202  0 

41.3250  61145  0 

41.3251  61454  0 

41.3252  61C44  0 

41  ,3253  61454  0 

41.3254  61454  0 

41.3255 


FLT0CSF2  INDEX  A 

CAF  SFINTA8R 

TC  BANKJUMP 

SFINTABR  CACR  GOALMCYC 


CACR 

CAOR 

CADR 

CACR 

CADR 

CADR 

CACR 

CADR 

CADR 

CADR 

CADR 

CADR 

CADR 

CADR 

CADR 

ENCRUTIN  EQUALS 


BINROUND 

DEGINSF 

ARTHI NSF 

OP  INS  F 

DPI NSF2 

DSPALARM 

DP  INSF 

HMSl  N 

DSPALARM 

DPI NSF4 

ARTINISF 

OSPALAPM 

DEGINSF 

DSPALARM 

DSPALARM 


SWITCH  BANKS  FOR  EXPANSHION  ROOM 
ALARM  AND  RECYCLE  IF  DEC  LOAD 
WITH  OCTAL  ONLY  NCUNo 


LRPOSOUT  CANT  BE  LCADEOo 
SAME  AS  ARITHOPl. 

MTN/SEC  CANT  BE  LOADEOe 


2INT0UT  CANT  BE  LOADEOe 
TESTS  AT  END  FCR  36C-CCU 
RRAN60UT  CANT  BE  LCAOED. 
RRDOTOUT  CANT  BF  LOADEDo 


R1673  SCALE  FACTORS  FOR  THOSE  PCUTINES  NEEDING  THEM  ARE  AVAILABLE  IN  SFTEMPl, 

R1674  ALL  SFIN  ROUTINES  USE  MPAC  MPAC+l,  LEAVE  RESULT  IN  A,  END  WITH  TC  DECRET 


GAP 


ASSEMBLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


L PINBALL  GAME  EUTTCNS  ANC  LICFTS 


1675  REF 


40,3044 


SETLCC  ENDOPCEC  +l 


16755  REF  4 LAST  427  TO  428:  15  485*  COUNT*  tS/PIN 

R1676  DEGINSF  APPLIES  1000/180  =5.55555(10)  = 5.43434(R) 


1679 

1680 
1681 

1682  REF  20 

1683  REF  148 

1684  REF  1 

1685  REF  3 

1686  REF  4 

1687  REF  1 
1686  REF  5 

1689  REF  149 

1690  REF  1 

1691  REF  2 

1692 

1693  REF  150 

1694  REF  4 

1695  REF  1 

1696  REF  1 

1697  REF  151 

1698  REF  5 

1699  REF  1 

1700 

1701  REF  15? 

1702  REF  8 

1703  REF  153 

1704  REF  12 
1704C5 

17041 

17042  REF  1 

17043 

17044  REF  1 

1705  REF  134 

17051  REF  24 

17052 

17053 

17054  REF  2 

17055  REF  25 

17056  REF  4 


REF  7 
REF  1 
REF  147 
REF  19 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


LAST 

LAST 


LAST 

LAST 

LAST 


427  40,3044 

40,3045 

434  40,3046 

405  40,3047 

40,3050 

435  40,3051 

435  40,3052 

40,3053 
426  40,3054 

435  40,3055 

40,3056 
435  40,3057 

435  40,3060 

40,3061 
435  40,3062 

40  ,3063 
435  40,3064 

432  40,3065 

40.3066 

40.3067 
435  40,3070 

417  40,3071 

4(1,307  2 
40,3073 
435  40,3074 

421  40,3075 

435  40,3076 

434  40,3077 

40  ,3100 
4C,31C1 
40,3102 
4-0,3103 
40,3104 
434  40,3105 

285  40,3106 

40,3107 
40,3110 
42C  40,3111 

431  40,3112 

433  40,3113 


10  155  1 
2 4741  1 
0 3052  0 
4 4741  0 

6 0155  0 
0 3221  0 
C 4404  0 
C 4404  0 
C 3230  0 
C 4404  0 
10  154  0 
C 3065  1 
0 3065  1 

4 0000  0 

5 A 154  0 
10  162  0 
0 3124  0 
C 3077  1 
10  154  0 
0 5675  0 
0 2122  C 
0 3074  1 
56  154  1 

7 4733  0 
54  154  0 
50  140  1 
0 3100  0 
f 3104  1 
0 3114  0 

0 3105  0 
C 3117  0 
4 0000  0 

6 4752  0 
C 0006  1 

1 3112  1 
0 2625  1 
0 4635  0 

63200  0 


OEGINSF  TC 

ADRES 

CCS 

CAF 

TC 

CS 

AO 

TC 

TC 

0EGINSF2  TC 
TC 
TC 
CCS 
TC 
TC 
COM 
TS 

SIGNFIX  CCS 
TC 
TC 
CCS 
TC 
Tf, 

TC 

XCH 

MASK 

TS 

ENDSCALE  INDEX 
TC 
TC 
TC 

MIXBACK  TC 
TC 

NORBACK  CS 
AD 

EXTEND 

B2F 

TC 

ENCSCALl  TC 

CACR 


DMP 

OEGCONl 
MPAC 
BITll 
+ 2 

BITll 

MPAC 

2R0UND 

TPSLl 

TPSLl 

TESTCFUF 

TPSLl 

MPAC 

SIGNFIX 

SIGNFI X 

MPAC 
MPAC+6 
SGNTOl 
ENDSCALE 
MPAC 
CCSHOLF 
NEG180 
+ 1 

MPAC 
POSMAX 
MPAC 
MI  XBR 
+0 
+3 

SFMI  XCAL 
+2 

SFNORCAL 

A 

BIT2 
+ 2 

360-C0U 

POSTJUMP 

PUTCaM2 


+1 


+1 
+ 2 


17057  REF  89 
17056  REF  5 
17059  REF  1 


LAST  426 
LAST  434 


40.3114  C 4616  1 

40.3115  63057  0 

40.3116  0 3103  0 


SFMI  XCAL 


TC 

CADR 

TC 


RANKCALL 
SFRUTMI X 
MIXBACK 


17:53  DEC.  19,1969  LEMnNAIDrl04  PAGE  435 


USER’S  PAGE  NCo  EC  S4 


SF  ROUTINE  FOR  CEC  DEGREES 
MULT  BY  5.5  5(lO)X2EXP-3 
THIS  ROUNDS  OFF  MPAC+1  BEFORE  SHIFT 
LFFT  3,  ANO  CAUSES  360c0n  TO  OF/UF 
WHEN  SHIFTED  LEFT  ANO  ALARM. 


LEFT  1 
LEFT  2 

RETURNS  IF  NO  CF/UF  (LEFT3) 

IF+,  GO  TO  SIGNFIX 
IF  +0  , GO  TC  S IGN'F  IX 
IF  - , USE  -MAGNI TUOE  +1 
IF  -0  , US  F +0 

IF  OVERFLOW 

NO  0V6RFL0W/UNCFRFL0W 

IF  UF  FORCE  SIGN  TC  0 EXCEPT  -180 


IF  ROUTINE  NO.  IS  NOT  CCU  DEGREES, 
THEN  THIS  IS  360  - COU  DEGREES 
ANO  ANGLE  IN  MPAC  MUST  RF  REPLACED 
BY  360  DEGREES  MINUS  ITSELF. 


gap:  assemble  REVISION  131  CF  AGC  PPCGRAP  LUMIN4RY  BY  NASA  2021112-0Q1 
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17:53  DEC,  19,196«!  LEMONAID  104  PAGE 
USER'S  PAGE  AS  EO  SA 


436 


170591  REF  90  LAST  435 
170592  REF  5 LAST  434 
170593  REF  1 


40,3117 

40.3120 

40.3121 


0 4616  1 SFNORCAL  TC 
63051  0 CACR 

0 3105  0 TC 


BANKCALL 

SFRUTNCR 

NORBACK 


40.3122  4 4733  0 NEG180  CS 

40.3123  0 3C76  C TC 


POSMAX 

ENOSCALE 


1708  REF  154 

1709  REF  10 

1710  REF  135 

1711  REF  3 


LAST 
LAST 
L AST 
LAST 


435 

436 

435 

436 


40.3124 

40.3125 

40.3126 
40  ,3127 


0154 

4733 

0000 

3076 


CS 

MASK 

CS 

TC 


IF  OF  FORCE  SIGN  TC  1 


1712 

1712 


40.3130 

40.3131 


26161  0 DEGCONl  20EC  5<,  555555555  B-3 
30707  1 


1715  REF 

1716  REF 

1717  RFF 

1718  REF 

1719  REF 

1720 

1721  REF 

1722  REF 

1723  REF 

1724  REF 

1725  REF 


8 LAST 
15  LAST 

155  LAST 

156  LAST 

157  LAST 

2 LAST 
5 LAST 
2 LAST 
2 LAST 


43  5 
434 
436 
436 
436 

434 
431 

435 
435 


40.3132  0 7106  1 

40.3133  00123  1 

40.3134  56  156  0 

40.3135  56  155  0 

40.3136  56  154  1 

40.3137  0 0006  1 

40.3140  I 3142  I 

40 .3 141  0 4145  0 

40.3142  C 3217  0 

40.3143  C 3230  0 

40.3144  C 3112  0 


ARTHINSF  TC 

AORES 

XCF 

XCH 

XCH 

EXTEND 

6ZF 

TC 

eiNROUNC  TC 
TC 
TC 


OMP 

SFTEMPl 
HPAC  +2 

MPAC  +1 

MPAC 

BINRCUND 

ALMCYCLE 

2R0UND 

TESTCFUF 

ENDSCALl 


SCALES  MPAC,  +1  PY  SFTEMPl,  SFTEMP2. 
ASSUMES  POINT  BETWEEN  HI  AND  LO  PARTS 
OF  SFCONo  SHIFTS  RESULTS  LEFT  BY  14r 
(BY  TAKING  RESULTS  FROM  MPAC+1,  MPAC+2) 


TOO  LARGE  A LOADe  ALARM  AND  RECYCLE^ 


RETURNS  IF  NO  OF/UF 


17251  REF 

17252  REF 
17252  REF 


9 LAST  436 
16  LAST  436 
3 LAST  436 


40.3145  0 7106  1 ARTINISF  TC  OMP 


40.3146  00123  1 

40.3147  0 3142  0 


AORES  SFTEMPl 
TC  eiNROUND 


SCALES  MPAC,  +]  BY  SFTEMPl,  SFTEMP2. 
ROUNDS  MPAC+I  INTO  MPACo 


1739  REF  10 

1740  REF  17 

1741  REF  158 

1742 

1743  REF  159 

1744  REF  79 

1745  REF  160 

1746  REF  3 

1747  REF  3 

1748  RFF  13 

1749 

1750  REF  1 

1751  REF  27 

1752  REF  25 

1753  REF  91 

1754  REF  161 

1755  REF  92 

1756 


LAST  436 
LAST  436 
LAST  436 

LAST  43  6 
LAST  433 
LAST  436 
LAST  436 
LAST  436 
LAST  435 


LAST  433 
LAST  433 
LAST  432 
LAST  436 
LAST  436 


40.3150 

40.3151 

40.3152 

40.3153 

40.3154 

40.3155 

40.3156 

40.3157 

40.3160 

40.3161 

40.3162 

40.3163 

40.3164 

40.3165 

40.3166 
40  ,3167 

40.3170 

40.3171 


56  156  0 
6 COOO  1 
54  156  1 
3 4755  1 
6 0155  0 
0 3221  0 
C 3230  0 
50  140  I 
0 3162  1 
C 3173  I 
3 0117  0 
6 0145  I 
54  002  1 
56  155  0 
5C  CC2  0 
54  001  1 


DPINSF  TC 

AORES 

XCH 

DOUBLE 

TS 

CAF 

AD 

TC 

TC 

INDEX 

TC 

TC 

CA 

DPINCOM  AD 
TS 
XCH 
INDEX 
TS 


DMP 

SFTEMPl 
MPAC  +2 

MPAC  +2 

ZERO 

MPAC  +1 

2R0UND  +2 

TESTCFUF 
MI  XER 
+0 

DPI  NORM 
DECOUNT 
NOUNADD 
0 

MPAC  +l 

0 
1 


SCALES  MPAC,  MPAC  ■»!  BY  SFTEMPl, 
SFT£MP2o  STORES  LOW  PART  OF  RESULT 
IN  (£  SUBK)  +1  OR  E+1 


RETURNS  IF  NO  OF/UF 


MI XEDNOUN 
MIXED 
E SUBK 


NORMAL 


PLACE  LOW  PART  IN 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  6Y  NASA  2021112-091 


17:53  DEfe  19, I960  LEM0KAI0cl04 


PAGE  A37 
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USER'S  PAGE  NOc  ^6  EO  S4 


1757  REF 


LAST  AO, 3172  0 3112  0 


TO  ENDSCALl 


(E  SU0KI  +1  MIXFO 


1758  REF  80  LAST  436 

1759  REF  1 


40.3173  3 4755 

40.3174  0 3165 


1 CPINORM  oaf 
0 TC 


ZERO 

OPINCOM 


NORMAL 


1760  REF  11 

1761  REF  18 

1762  REF  12 

1763  REF  2 


LAST  436 
LAST  436 
LAST  428 
LAST  422 


1764  REF  3 LAST  434 


40.3175  C 7106  1 

40.3176  00123  1 

40. 3177  3 6245  1 

40.3200  0 3207  1 

40.3201  C 3152  1 


DPINSF2  TC 

AORBS 

CAF 

TC 

TC 


DMP 

SFTEMPl 
SI  X 

TPLEFTN 

DPINSF 


ASSUMES  PCINT  PETwEEN  PITS  7-8  OF  HIGH 
PART  OF  SF  CONST,  0PINSF2  SHIFTS  RESULTS 
LEFT  BY  7,  ROUNDS  MPAC+2  INTO  MPAC+1 
SHIFT  LEFT  7c 


1765  REF  12 

1766  REF  19 

1767  REF  28 

1768  REF  3 

1769  REF  4 


LAST  437  40 

LAST  437  40 

LAST  431  40 

LAST  437  40 

LAST  437  40 


,3202  0 7106  1 

,3203  00123  1 

,3204  3 4752  0 

,3205  0 3207  I 

,3206  0 3152  1 


0PINSF4  TC 

ACRES 

CAF 

TC 

TC 


OMP 

SFTEMPl 

TWC 

TPLEFTN 

DPINSF 


ASSUMES  POINT  BETWEEN  BITS  11-12  OF  HIGH 
PART  OF  SF  CONST,  DPINSF2  SHIFTS  RESULTS 
LEFT  BY  3,  BOUNDS  HPAC+2  INTO  MPAC  + 1, 
SHIFT  LEFT  3, 


1770  REF  93 

1771  REF  1 

1772  REF  94 

1773  REF  20 

1774  REF  6 

1775  REF  21 

1776  REF  1 

1777  RFF  2 


LAST  436 

LAST  437 
LAST  437 
LAST  435 
LAST  437 

LAST  437 


40,3207  56  C02 

40  ,3210  54  124 

40.3211  56  C02 

40.3212  54  123 

40.3213  0 4404 

40.3214  1C  123 

40.3215  0 3212 

40.3216  0 0124 


0 TPLEFTN  XCH 

1 TS 

0 XCH 

0 LEFTNCOM  TS 
0 TC 

0 CCS 

0 TC 

0 TC 


0 

SFTEMP2 

0 

SFTEMPl 

TPSLl 

SFTEMPl 

LEFTNCOM 

SFTEMP2 


SHIFTS  MPAC,  +1,  +2  LEFT  N,  SETS  OVFIND 
TO  +1  FOR  OF,  -1  FCR  UF, 

CALL  WITH  N-1  IN  A, 

LOOP  TIME  «37  MSEC, 


1778  REF  162  LAST  436 

1779 

1780  REF  163  LAST  437 

1781  REF  95  LAST  437 

1782  REF  164  LAST  437 

1783  REF  165  LAST  437 

1784  REF  96  LAST  437 

1785  REF  5 LAST  435 

1766  REF  97  LAST  437 


40,3217  56  155  0 

40.3220  6 0000  1 

40.3221  54  155  1 

40.3222  C 0002  0 

40.3223  6 0154  1 

40.3224  54  154  0 

40.3225  0 0002  0 

40.3226  54  162  0 

40.3227  C CC02  0 


2R0UND 


2RN0EN0 


XCH  MPAC  +1 

DOUBLE 

TS  MPAC  +1 

TC  0 

AD  MPAC 

TS  MPAC 

TC  0 

TS  MPAC+6 

TC  0 


IF  MPAC+1  OCES  NOT  CF/UF 

IF  MPAC  DOES  NOT  OF/UF 


1787 

1788 

1789 

1790 


REF  6 LAST  457 

REF  6 LAST  436 

REF  98  LAST  437 

REF  7 LAST  437 


40.3230  10  162  0 

40.3231  0 4145  0 

40.3232  0 QC02  0 

40.3233  0 4145  0 


TESTQFUF 


CCS 

TC 

TC 

TC 


MPAC+6 

ALMCYCLE 

0 

ALMCYCLE 


RETURNS  IF  NO  OF/UF 
CF  ALARM  AND  RECYCLEc 

UF  ALARM  AND  RECYCLEo 


1791  REF 


42,3452 


SETLOC  ENOSPMIN  +1 


REF  2 LAST  423  TC  427: 


17915 


146  146^ 


COUNT  >!■  $t/PIN 


GAP ; 

L 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1603 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1618 

1619 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1638 

1839 

1840 

1841 
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REF  1 
REF  1 
REF  81 
REF  166 
REF  1 
REF  167 
REF  2 
REF  168 
REF  4 
REF  1 
REF  169 
REF  1 
REF  3 
REF  2 
REF  170 
REF  14 
REF  2 
REF  2 
REF  1 
REF  1 
REF  171 

REF  1 
REF  2 


REF  8 
REF  3 
REF  2 
REF  172 
REF  15 
REF  3 
REF  3 
REF  1 
REF  2 
REF  3 
REF  173 


REF  9 
REF  82 
REF  174 
REF  6 
KEF  175 
REF  26 

REF  26 
REF  10 


LAST  437 


LAST  427 
LAST  437 


LAST  438 
LAST  438 
LAST  438 
LAST  425 


LAST  438 

LAST  429 
LAST  101 
LAST  438 
LAST  438 
LAST  438 
LAST  438 


LAST  438 


LAST  438 


LAST  437 
LAST  429 
LAST  101 
LAST  438 
LAST  438 
LAST  438 
LAST  430 

LAST  438 
LAST  438 
LAST  438 


LAST  438 
LAST  438 
LAST  438 
LAST  427 
LAST  438 
LAST  436 

LAST  435 
LAST  434 


42,3452 
42  ,3453 

42.3454 

42.3455 

42.3456 

42. 3457 
42  ,3460 

42.3461 

42.3462 
42  ,3463 
42,3464- 
42,3465 
42  ,3466 
42, 3467 

42.3470 

42.3471 

42.3472 
42  ,3473 

42.3474 

42.3475 
42  ,3476 
42,3477 
42 ,3500 
42 ,35C1 
42,3502 
42  ,3503 
42,3504 
42  ,3505 
42  ,3506 
42,3507 

42.3510 

42.3511 

42.3512 
42  ,3513 

42.3514 

42.3515 
42  ,3516 
42,3517 

42.3520 

42.3521 

42.3522 
42  ,3523 

42.3524 

42.3525 
42  ,3526 
42,3527 

42.3530 

42.3531 

42.3532 
42  ,3533 


0 3573  0 
0 7106  1 
03534  0 
0 3543  C 
3 4755  1 
54  156  1 
3 3536  1 
54  154  0 
3 3537  n 
56  155  0 
C 7312  C 
0 3554  0 
52  156  1 
52  124  I 
3 1003  0 
23' 006  0 


15 


1 


0 7106  1 
C3534  0 

0 3543  0 
4 3541  0 
C 3561  0 
56  155  0 
C 0006  I 
7 3540  1 
20  124  1 
C 0006  I 

1 3507  1 
0 4145  0 

3 1004  1 
23*007  I 
52  155  1 
C 7106  1 

03534  0 
0 3543  0 

4 3542  0 

0 3561  0 
52  124  1 
20  155  1 
C 0006  1 

1 3524  0 
0 4145  0 
3 4755  1 
54  156  I 
0 7262  0 
52  155  T 
50  145  I 
52  001  1 
C 4635  0 

63020  0 


ALL3CEC 

DMP 

WHCLECOR 

RNO/TST 

ZERO 

MPAC  + 

HR  CON 
MPAC 

HRCON  + 

MPAC  + 

SHCRTMP 

MPACTST 

MPAC  + 

HITEMIN 

YRE6 

YREGLP 

MPAC 

OMP 

WHCLECON 
PND/TST 
59MIN 
SI ZETST 
MPAC  + 


DAS 

EXTEND 
BZ  F 


CS 

TC 

DXCH 

OAS 

EXTEND 

BZF 


TC 

CAF 

TS 

TC 

OXCH 

INDEX 

OXCH 

TC 

CACR 


ALMCYCLE 

ZREG 

ZREGLP 

MPAC 

DMP 

WHOLECON 

PND/TST 

59o9<}SEC 

SIZETST 

HITEMIN 

MPAC 


ALMCYCLE 

ZERC 

MPAC  + 
TPAGREE 
MPAC 
NOUNADO 
0 

POSTJUMP 

LOADLV 


IF  ALL  3 WORDS  WERE  NOT  LOADED,  ALARM. 
XREG,  XREGLP  (=HCURSt  WERE  ALREADY  PUT 
INTO  MPAC,  MPAC  + \e 
ROUND  OFF  TC  WHOLF  HRS  IN  MPAC+lo 
ALARM  IF  MPAC  NON  ZERO  (G/  16383  )c 


ALARM  IF  MPAC  NCN  ZERO  (G/  745) 
STORE  HOURS  CONTRIBUTION 

PUT  YREG,  YREGLP  INTO  MPAC,  +lo 


ROUND  OFF  TC  WHOLE  MIN  IN  MPAC+1 
ALARM  IF  MPAC  NON  ZERO  CG/16383) 
ALARM  IF  MPAC+1  G/  59MIN 


LEAVES  MINUTES  CONTRIBUTION  IN  A,L 

ADO  IN  MINUTES  CONTRIBUTION 

IF  THIS  DAS  OVERFLOWS,  G/  745HR,39MIN 


PUT  ZREG,  ZREGLP  INTO  MPAC,  +U 


ROUND  OFF  TO  WHOLE  CENTI-SEC  IN  MPAC  + 1 
ALARM  IF  MPAC  NCN  ZERC  {G/163o83  SEC) 
alarm  if  MPAC+1  G/59o99  SEC 
ADO  IN  SECONDS  CONTRIBUTION 
if  THIS  DAS  OVERFLOWS, 

G/  745  HR,  3°  MIN,  14/.  55  SFCs 

ALARM  AND  RECYCLE 
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1842 

1843 

1844 

1845 

1846 

1847 

1848 


42»3534 
42  ,3535 

42.3536 

42.3537 

42.3540 

42.3541 

42.3542 


00006  1 
03240  1 
C0025  0 
37100  1 
13560  0 
00073  0 
13557  3 


WHOLECON  OCT 
OCT 

HRCCN  OCT 

OCT 

PINCCN  OCT 
SQMIN  OCT 
59o99SEC  OCT 


00C06 
03240 
00025 
37100 
1 3560 
00073 
13557 


1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 
1658 

1859 

1860 
1861 
1862 


REF  176  LAST  438 


REF  84 
REF  180 
REF  181 
REF  182 
REF  10 
REF  99 
REF  11 
REF  100 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


43  9 

438 

439 
439 
439 
439 
439 
439 

438 
437 

439 
439 


42.3543 

42.3544 

42.3545 

42.3546 

42.3547 

42.3550 

42.3551 
42  ,3552 

42.3553 

42.3554 
42  ,3555 

42.3556 

42.3557 
42,3560 


56  156  0 
6 0000  1 
5*  156  1 
3 4755  1 
6 0155  0 
54  155  1 
3 4755  I 
6 0154  1 
56  154  1 
10  154  0 
0 4145  0 
C 0002  0 
0 4145  0 
C 0002  0 


MPAC  + 

MPAC  ♦ 

ZERC 

MPAC  + 

MPAC  + 

ZEPC 

MPAC 

MPAC 

MPAC 

ALMCYCLE 

0 

ALMC  YCLE 


1863 

1864 

1865 
1666 

1867 

1868 

1869 

1870 

1871 

1872 


LAST 

LAST 

LAST 


42,3561 
42  ,3562 

42.3563 

42.3564 
42  ,3565 

42.3566 

42.3567 

42.3570 

42.3571 
42  ,3572 


54  156  1 
10  155  1 
6 4753  1 
1 3566  0 
6 4753  I 
6 0156  0 
C 0006  1 
6 3572  1 
C 4145  0 
C 0002  0 


SIZETST  TS 


MPAC 
MPAC 
ONE 
+ 2 
ONE 
MPAC 


R1873 

R1874 

1875 

1876 

1877 

1878 

1879 

1880 
1881 
1682 


ALL3CEC  TESTS  THAT  ALL  3 hCRDS  ARE  LCAOEO  IN  EEC  (FOR  HMSIMn 
ALARM  IF  NOTo(  TEST  ThAT  BITS  3,4,5  OF  DECBRNCH  ARE  ALL  = 1> 


REF 
REF  17 
REF  2 
REF  136 


REF 


1 


REF  2 
REF  102 


LAST 

LAST 

LAST 


LAST 

LAST 


42.3573 

42.3574 

42.3575 

42.3576 

42.3577 
42  ,3600 
42,36C1 
42,3602 


4 3600  0 
7 0777  I 
6 3600  1 
10  000  0 
C 3603  1 
77743  1 
C 3603  1 
C 0002  0 


ALLSDEC  CS 


0CT348AR  OCT 


0CT34BAR 

DECBRNCH 

0CT34BAR 

A 

FORCEV25 

77743 

F0RCEV25 


F0RCEV25  CS 


17:53  DEC#  19,1969  LeM0NAI0cin4  PAGE  439 
USER  'S  PAGE  NOo  ^8  FO  S4 

(10EXP5/2EXP14 I2EXP14 
1 HOUR  IN  CENT I-SEC 

1 MINUTE  IN  CFNTI-SEC 
59  AS  WHOLE 
5999  CENTI-SFC 

ROUNDS  MPAC+2  INTO  MPAC+1 
ALARMS  IF  MPAC  NOT  0 


CANT  OVFLOW 

ALARM  IF  MPAC  NON  ZERO 
alarm  and  RECYCLEo 

ALARM  AND  RECYCLEo 


called  WITH  - CON  IN  A 
GET  MAG  OF  MPAC+1 


MAG  OF  MPAC+1  - CON 

MAG  OF  MPAC+I  G/  CCNe  ALARM  ANO  PECYCLEc 
MAG  OF  MPAC+1  L/=  CON 


GET  BITS  3,4,5  IN  A 

GET  BITS  3,4,5  OF  CEC6RNCH  IN  A 

BITS  3,4,5  OF  DECBRNCH  MUST  ALL  = 1 


FORCE  VERB  25  TO  BE  EXECUTED  BY  RECYCLE 
IN  CASE  CPFRATCP  EXECUTED  A LOWER  LOAD 
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L PINBALL  GAME  BUTTCNS  AND  LICFTS  USER'S  PAGE  NGo  eO  S4 

18827  REF  13  LAST  439  42,3605  0 4145  0 TC  ALMCYCLE  VERBo  ALARM  AND  RECYCLE 

1883  42,3606  ENDHMSS  EQUALS 
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P18a4  PCNITCR  ALLCktS  CTHER  KEYBCARC  ACTIVITY*  IT  IS  ENCEO  BY  VFRB  TERMINATE, 

R1885  VERB  PROCEED  WITHOUT  DATA,  VERB  RESEQUENCE, 

R1886  ANCTHER  MONITOR,  OR  ANY  NVSUB  CALL  THAT  PASSES  THE  DSPLOCK  (PROVIDED 
R18861  THAT  THE  OPERATOR  HAS  SCMEHCR  ALLOWED  THE  ENDING  OF  A MONITOR  WHICH 
R18862  HE  HAS  INITIATED  THROUGH  THE  KEYBOARD** 


R1387  MCNITCR  ACTION  IS  SUSPENDED,  EUT  NOT  ENDED,  BY  ANY  KEYBOARD  AfTICN, 

R1888  EXCEPT  ERROR  LIGHT  RESET*  IT  BEGINS  AGAIN  WHEN  KEY  RELEASE  IS  PERFORMED* 

R1889  MONITOR  SAVES  THE  NOUN  AND  APPROPRIATE  DISPLAY  VERB  IN  MONSAVE*  IT  SAVES 
R1890  NCUNCAOR  IN  MQNSAVEl,  IF  NCUN  = MACHINE  CACR  TC  BE  SPECIFIED*  BIT  15  OF 
Rie91  MONSAVEl  IS  THE  KILL  MONITOR  SIGNAL  (KILLER  BIT)o  BIT  14  CF  MONSAVEI 
R18911  INDICATES  THE  CURRENT  MONITOR  WAS  EXTERNALLY  INITIATED  (EXTERNAL 
R1P912  MONITOR  BIT).  IT  IS  TURNED  OFF  BY  RELDSP  AND  KILMONON* 

R1692  MONSAVE  INDICATES  IF  MONITOR  IS  ON(+=ON,  +C=OFF) 

R1893  IF  MCNSAVE  IS  +,  MONITOR  ENTERS  NO  REQUEST,  BUT  TURNS  KILLER  BIT  OFF* 
R1894  IF  MONSAVE  IS  <-0,  MONITOR  ENTERS  REQUEST  AND  TURNS  KILLER  BIT  OFF* 

Rie95  NVSUB  (IF  EXTERNAL  MONITOR  BIT  IS  OFF),  V8=PR0CEED  WITHOUT  DATA, 

R1896  VB=RESEQUENCE,  AND  Ve=TERMINATE  TURN  KILL  MONITOR  BIT  ON* 


R1897  IF  KILLER  BIT  IS  ON,  MONREG  ENTERS  NO  FURTHER  REQUESTS,  ZEROS  MCNSAVE 
R1898  AND  MCNSAVEl  (TURNING  OFF  KILLER  BIT  AND  EXTERNAL  MONITOR  BIT)* 


R 1899 
1900 


MONITOR  OOSENT  TEST  FCR  MATOS  SINCE  NVSUB  CAN  HANDLE  INTERNAL  MATES  NOW 
REF  1 ^1,3255  SETLOC  ENDRUTIN 


19005  PEF  3 

1901  REF  1 

1902  REF  6 

1903  KEF  186 

19031  REF  7 

19032  REF  4 

19033  REF  137 

19034  REF  I 

19035 

19036  REF  2 

19037  REF  38 

19038  REF  187 
190381  RFF  85 
190382  REF  1 

1904  REF  3 

1905  REF  17 

1906  REF  4 

1907  PEF  5 

1908  BEF  6 

1909  RFF  7 

1910  REF  11 

1911  REF. 180 

1912  REF  06 


LAST  428  TO 

LAST  434 
LAST  439 
LAST  427 
LAST  409 
LAST  439 


LAST  441 
LAST  417 
LAST  4-^1 
LAST  439 

LAST  234 
LAST  4J6 
LAST  432 
LAST  402 
LAST  441 
LAST  441 
LAST  428 
LAST  441 
LAST  441 


43  5 : 

41.3255 

41.3256 
41  ,3257 

41.3260 

41.3261 

41.3262 

41.3263 
41  ,3264 

41.3265 

41.3266 

41.3267 

41.3270 

41.3271 

41.3272 

41.3273 
41  ,3274 
41  ,3275 
41,3276 
41  ,3277 

41.3300 

41.3301 

41.3302 


283  685* 

4 3264  0 
7 1016  0 
54  155  1 
4 C136  1 

6 4217  1 
1C  OOO  0 
0 3272  0 

60000  1 
0 3272  0 
3 4736  1 
26  155  1 
3 4755  1 
55'021  1 

3 6C77  1 

7 ICOO  1 
0 4331  1 
54  022  0 

4 0C22  0 
56  022  I 
6 ICOl  1 
54  154  0 
3 4755  1 


COUNT*'  $S/PIN 


MONITOR  CS 

MASK 

MONITl  TS 
CS 
AO 
CCS 
TC 

DIT15/14  OCT 
TC 
CAF 
ADS 
CAF 
TS 

MQMT2  CAF 
MASK 
TC 
TS 
CS 
XCH 
AD 
TS 
CAF 


6IT15/14 
NOUNCADR 
MPAC  +1 
EN7EX1T 
ENDINST 

MOM  T2 
60000 
MCNIT2 
B I T14 
MPAC  +I 
ZERO 

M0NSAVE2 

Lnw7 

VERBREG 

LEFTS 

CYL 

CYL 

CYL 

NGUNREG 

MPAC 

ZERO 


TEMP  STORAGE 


EXTERNALLY  INITIATED  MONITOR, 
SET  BIT  14  FOR  MDNSAVElc 

zero  NVMONOPT  OPTICNS 


TEMP  STORAGE 


GAP : 

L 

1913 

191A 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1923 

1924 

1925 

1926 

1927 

192  8 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1937 

1938 

1939 

1940 

1941 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 
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REF  3 
REF  4 

REF  1 

REF  2 

REF  47 
REF  15 
REF  39 
REF  1 
REF  1 
REF  189 
REF  3 

REF  4 


LAST  400 
LAST  409 


LAST  224 

LAST  439 
LAST  369 
LAST  433 


LAST  441 
LAST  442 

LAST 


41  ,3303 

41.3304 

41.3305 
41  ,3306 
4l,33C7 

41.3310 

41.3311 
41,  3312 
41  ,3313 

0776 
41,3314 
41  ,3315 

41.3316 

41 . 3317 
41  ,3320 
41,3321 


55*011  1 
11'041  1 
0 3307  0 
0 4502  I 
r QC04  0 
11 '017  1 
0 3316  0 
3 4753  1 
0 5203  0 

03322  1 

62101  0 
52  155  r 
53*020  0 
0 0003  1 
0 C136  0 


408 


TS  DSPLOCK 

CCS  CADRSTOR 

TC  +2 

TC  RELDSPl 

INhlNT 

CCS  MONSAVE 

TC  +5 

CAF  ONE 

TC  WAITLIST 

eBANK=  OSPCCUNT 

2CA0R  MONREQ 

CXCH  MPAC 

OXCH  MPNSAVE 

RELINT 

TC  FNTRET 


+ 0 INTO  DSPLOCK  SO  MOMTCP  CAN  RUNo 
TURN  OFF  KR  LITF  IF  CAOPSTOP  AND  OSPLIST 
ARE  BOTH  EMPTYo  (LITF  CCMES  ON  IF  NEW 
MONITOR  IS  KEYED  IN  CVER  OLD  MONITOR,) 


IF  MONSAVE  WAS  4,  NO  RFOUFST 
IF  MONSAVe  WAS  O,  REQUEST  MONREQ 


PLACE  MONITOR  VERB  AND  NOUN  INTO  MONSAVE 
ZERO  THE  KILL  MONITOR  BIT 
SET  UP  EXTERNAL  MONITOR  BIT 


REF  1 

REF  2 LAST  224 


REF  1 

PEF  2 LAST  442 
REF  1 

REF  16  LAST  442 
REF  40  LAST  442 
REF  2 LAST  442 

REF  2 LAST  160 
REF  5 LAST  330 
PEF  41  last  442 
REF  1 
REF  1 

kEF  11  LAST  386 


41,3322  0 4400  I MONREQ  TC  LOOSAMPT 


41.3323  11' 020  0 

41.3324  0 3330  I 

41  ,3325  0 3330  1 

41.3326  0 3341  1 

41.3327  0 3341  1 

41.3330  3 3345  0 

41.3331  0 5203  0 
0776 

41.3332  03322  1 

41.3333  62101  O 

41  ,3334  3 4355  0 

41.3335  r 5072  1 
0776 

41.3336  03346  0 

41.3337  621C1  0 

41,3340  0 5261  1 


CCS  MONSAVEl 
TC  +4 

TC  +3 

TC  KILLMDN 

TC  KILLMON 

CAF  MONDEL 
TC  WAITLIST 

EBANK=  DSPCOUNT 
2CA0B  MONREC 

CAF  CHRPRIO 
TC  NOVAC 
E8ANK=  OSPCOINT 
2CADR  MCNDC 

TC  TASKOVER 


CALLED  BY  WAITLIST 

TIME  IS  SNATCHED  IN  RUPT  FOR  NOUN  65 
IF  KILLER  BIT  = 0,  ENTER  REQUESTS 
IF  KILLER  BIT 
IF  KILLER  BIT 
IF  KILLER  BIT 


FNTFR  REQUESTS 
NO  REQUESTS 
NO  RECIJFSTS 


ENTER  WAITLIST  REQUEST  FOR  MONPEO 


ENTER  EXEC  REQUEST  FOR  MONDO 


REF  87  LAST  441 
REF  4 LAST  442 
REF  3 LAST  442 
REF  12  LAST  442 


41,3341 
41,  3342 
41  ,3343 

41.3344 

41 . 3345 


3 4755  1 KI LLMGN  CAF 

55*017  1 TS 

55*020  0 TS 

C 5261  1 TC 

00144  0 MONDEL  OCT 


ZERO 

MONSAVE 

MONSAVEl 

TASKCVER 

144 


ZERO  MONSAVE  AND  TURN  KILLER  BIT  OFF 

TURN  OFF  KILL  MCNITCR  BITr 
TURN  OFF  EXTERNAL  MONITOR  BITc 
FOR  1 SEC  MONITOR  INTERVALS 


REF  4 LAST  442 


REF  48  LAST  406 
REF  49  LAST  442 
REF  4 LAST  ^42 
REF  1 


41,3347 
41,3350 
41,335) 
41,3352 
41  ,3353 
41, 3354 


11*020  0 
0 3353  1 
0 3353  1 
0 5155  0 
0 5155  0 
11*011  1 
C 3?76  0 


MCNCO 


MONSAVEl 
+ 4 
+ 3 

ENCOFJOfl 
ENDOF JOB 
DSPLOCK 
MONBUSY 


CALLED  BY  EXEC 

IF  KILLER  BIT  = 0,  CONTINUE 

IF  KILLER  BIT  = 0,  CONTINUE 

IN  CASE  TERMINATE  CAME  SINCF  LAST  MONREQ 

IN  CASE  TERMINATE  CAME  SINCF  LAST  MONPEO 

NVSU8  IS  BUSY 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-09J 


L PINBALL  GAME  BUTTONS  ANO  LICFTS 


1955  REF 

1956  REF 
1958  REF 

1960  REF 

1961  REF 

1962  REF 

1963  REF 

1964  REF 

1965  REF 

1966  REF 

1967  REF 

1968  REF 

1969  REF 

1970  REF  1 

1971  REF 


4 LAST  4^1 

5 LAST  442 
1 

1 

6 LAST  443 
1 

1 

2 LAST  4^3 
18  LAST  441 
1 

5 LAST  442 
2 LAST  441 
5 LAST  4^2 

0 LAST  442 

1 


41 »3355 
41,3356 
41  ,3357 

41.3360 

41.3361 
41  ,3362 
41  ,3363 
41,3364 
41  ,3365 

41.3366 

41.3367 

41.3370 

41.3371 
41  ,3372 
41  ,3373 


3 6077  1 
7 1C17  1 
0 2321  0 
3 4144  1 
7 1C17  1 

6 3374  1 
54  023  1 
3 0023  0 
55*000  1 

3 3375  0 
54  136  1 

4 3264  0 

7 1020  0 
54  156  I 
n 2046  1 


CAF 

MASK 

TC 

CAF 

MASK 

AD 

TS 

CA 

TS 

CAF 

TS 

cs 

MASK 

TS 

ENDMONDG  TC 


L0W7 

MCNSAVE 

UPOATNN  - 

HI  C7 

MCNSAVE 

MONRFF 

EDCP 

EDOP 

VER6RE6 

MONBACK 

ENTRET 

eiT15/li 

MONSAVEl 

MPAC  ♦ 

TESTNN 


1972 


4124 


BLOCK  2 


X972C1  REF 
197202 


4000 

4124 


SBTLOC  FFTAG8 
BANK 


19725  REF 

1973  REF 

1974  REF 

1975 

1976 

1977  REF 

1978  REF 
19782  REF 
197B3  REF 
197832  REF 
197833  REF 
197835  REF 
197838  REF 

19784  RFF 

19785  REF 

19786 

19787  REF 


1 

2 LAST  *43 
2 LAST  441 


1 

7 LAST  443 

3 LAST  443 

4 LAST  443 
91  LAST  436 

7 LAST  430 
88  LAST  442 
10  LAST  413 
3 LAST  443 
1 

50  LAST  442 


4124  3 4144  1 

4125  7 1021  1 

4126  0 0006  1 

4127  1 4131  1 

4130  0 4132  0 

4131  3 1017  0 

4132  54  C23  I 

4133  3 0023  0 

4134  0 4616  1 

4135  62341  0 

4136  3 4755  1 

4137  55*012  1 

4140  3 1021  0 

4141  0 4255  1 

4142  0 4143  0 

4143  0 5155  0 


PASTEVB 


PASTEHPT 


EN  CPASTE 


COUNT*  St/PIN 

CAF  MIC7 

MASK  MQNSAVE2 

EXTEND 
BZF  +2 

TC  PASTEOPT 

CA  MONSAVE 

TS  EDCP 

CA  EOOP 

TC  BANKCALL 

CAOR  UPDATVe  - 

CAF  ZERO 

TS  REGRET 

CA  M0NSAVE2 

TC  BLANKSUB 

TC  +1 

TC  ENDOFJCB 


4144  37600  0 MID7 


OCT  37600 


1980  REF 
19805  REF 

1981 

1982  REF 


41,3374 
441  TO  443  : 

41.3374 

41.3375 


SETLOC  ENDMONDO 

79  764*  COUNT*  $S/PIN 

75377  0 MONREF  OCT  75377 

C4124  1 MONBACK  AORES  PASTEVB 


1983  RFF  2 LAST  4'10 

1984  REF  51  LAST  443 


41.3376  0 4374  0 MCNBUSY  TC 

41.3377  C 5155  0 TC 


PELCSPON 
ENOCF JCB 


!7:53  DECc  19,196Q  LeMnNAI0cl04  PAGE  *^43 
USER'S  PAGE  NCe  52  EO  S4 


PLACE  NOUN  INTO  NDUNREG  AND  DISPLAY  IT 

CHANGE  MONITOR  VERB  TC  DISPLAY  VERB 
-DECIO,  STARTING  IN  BITS 
R IGHT  7 


SET  RETURN  TO  PASTEVB  AFTER  DATA  DISPLAY 


PUT  ECADR  INTO  MPAC  +2o  INTMCTBS  WILL 
DISPLAY  IT  AND  SET  NOUNCAOR,  NOUNAOD, 
EBANKc 


NVMCNOPT  PASTE  CPTION 


PASTE  PLEASE  VERB  FOR  NVMONOPT 

PASTE  MONITOR  VERB  - PASTE  OPTION  IS  0 

RIGHT  7 

PLACE  MONITOR  VERB  OR  PLEASE  VERB  INTO 
VERBREG  AND  DISPLAY  I To 

ZERO  REOPET  SO  THAT  PASTED  VERBS  CAN 
BE  EXECUTED  BY  OPEPATORo 

PROCESS  NVMONOPT  BLANK  OPTION  IF  ANY 


1 


-OECIO,  STARTING  IN  BITP 


TURN  KEY  RELEASE  LIGHT 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L PINBALL  GAME  BUTTONS  AND  LIC-FTS 


R1985 

R1906 

R1987 


DSPFMEM  IS  USED  TO  DISPLAY  (IN  CCTAL)  ANY  FIXED  REGISTERc 

IT  IS  USED  k^ITK  NOUN  = MACHINE  CAOR  TO  BE  SPECIFIED*  THE  FCAOR  OF  THE 

DESIRED  LOCATION  IS  THEN  FUNCI-ED  IN*  IT  HANDLES  F/F  ( FCAOR  AOOO-7777) 


R19871  FOR  BANKS  L/E  27,  THIS  IS  ENOUGH* 

R19872  FCR  BANKS  G/E  30,  THE  THIRD  CCMPGNENT  OF  NOUN  26  (PRIO,  ADRES,  B6C0N) 
R19873  MUST  BE  PRELOAOEO  NITH  THE  DESIRED  SUPERBANK  BITS  (BITS  5,6,7)* 

R1987A  V23N26  SHOULD  BE  USED* 


R19e75  SLMKAPY 

R19876  FCR  BANKS  L/E  27,  V27N01 E ( FCAOR ) E 

R19e77  FCR  BANKS  G/E  30,  V2 3N26E ( SU FER8 I T S )E  V27N01E( FCAOR )E 


19891 

19892 

1990 

1991 

1992 

1993 


REF 

REF 

REF 

REF 

REF 

REF 


LAST  427 
LAST  442 
LAST  376 
LAST  432 
LAST  441 


41  ,3402 

41.3403 

41.3404 
41  ,3405 


3 4317  0 
54  776  0 
3 1046  1 
54  COl  1 
3 1016  1 
0 4651  1 


LAST  416  41,3406  C 3410  1 


REF  52  LAST  4^3 


41,3407  0 5155  0 


DSPFMEM  CAF 
TS 
CA 
TS 
CA 
TC 
TC 

ENOSPF  TC 


OSPCCUNT 
OSPTEMl  +2 
L 

NOUNCADR 
SUPOACAL 
DSPCCTWC 
ENDOF  JOB 


7:53  DEC*  19,1969  LEMONAIO*104  PAGE  *-44 


USER*  S PAGE  NO*  5?  EC  S4 


IF  F/F,  DATACALL  USES  BANK  02  OR  03* 

SUPERBANK  BITS  UEPE  PRELOAOEO  INTO 
3RC  COMPONENT  OF  NOUN  26* 

ORIGINAL  FCAOR  LCACEO  STILL  IN  NDUNCAOR* 
CALL  WITH  FCAOR  IN  A,  SUPERBITS  IN  L* 


GAP:  ASSEMBLE  REVISION  131  CF  AC-C  PROGRAM  LUMINARY  BY  NASA  ZOaillZ-O*;! 


P1994 

1995 
19955 

1996 

1997 
1990 

1999 

2000 
2001 
2002 
2003 
200A- 

2005 

2006 

2007 

2008 


PINBALL  GAME  BUTTONS  AND  LIGHTS 
WCRC  CISFLAY  BCUTINES 


REF 

REF 

REF 

PEF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 


A36 

A35  TO 
A39 


191  LAST  a/^3 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


AOA 
445 
445 
445 
42  3 
445 


40.3234 
437: 

40.3234 

40.3235 

40 .3236 
40  ,3237 

40.3240 

40.3241 

40.3242 

40. 3243 

40.3244 

40.3245 

40.3246 

40.3247 
40,3250 


120  605* 

56  002  0 
54  144  1 
10  154  0 
0 3247  0 
C 3247  0 
6 4753  1 
54  154  0 
r 2433  1 
4 0155  I 
54  155  I 
0 0144  0 
C 2413  0 
C Q144  0 


SETLCC  TESTCFUF  +4 
COUNT#  $$/PIN 
XCh  0 

LSPWCRET 
MPAC 


CCS 

TC 

TC 


+ 80 
+ 7 
ONE 
MPAC 
-ON 

MPAC  +1 
MPAC 

DSPWDRET 

+0N 

OSPWDRET 


2009 

2010 
2011 
2012 

2013 

2014 

2015 

2016 
2017 


40,3251  C 0006  1 DSPRND  EXTEND 


LAST  A45 


40.3252 

40.3253 

40.3254 

40.3255 

40.3256 

40.3257 


3315 

2C  155  1 

r 0006  1 

1 3261  0 
C CC06  1 
3 4733  1 


REF  196  LAST  445  40,3260  52  155  1 
REF  104  LAST  445  40,3261  0 0C02  0 


OCA 
DAS 
EXTEND 
BZF 

EXTEND 

DCA 

OXCH 

TC 


OPOSMAX 

MPAC 

0 


2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 


REF  1 
REF  1 
PEF  7 
PEF  1 
REF  1 
REF  5 
PEF  197 
F EF  3 
REF  5 
REF  6 
PEF  89 
REF  198 
REF  199 
REF  200 
REF  43 
REF  4 
REF  138 


LAST  445 


LAST  335 


LAST 

LAST 


LAST  445 
LAST  445 


LAST 

LAST 


425 

441 


40.3262 

40.3263 

40.3264 

40.3265 

40.3266 

40 .3267 
40  ,3270 

40.3271 

40.3272 

40.3273 

40.3274 

40.3275 

40.3276 

40.3277 
40  ,3300 

40. 3301 

40.3302 

40.3303 

40.3304 


56  002  0 
54  115  0 
0 3234  1 
0 3251  1 
3 4751  0 
54  137  0 
3 4363  0 
0 7312  0 


7 4346  0 
54  124  1 
3 4755  1 
56  156  0 
56  155  0 
5 4 1 54  C 
56  776  1 
54  143  0 
1C  COO  0 


DSPOECWD  XCH 


CAF 

DSPOCWCl  TS 
CAF 
TC 

TRACEl  INDEX 
CAF 
MASK 


CAF 

XCF 


TRACEIS  TS 
CCS 


WDRET 

OSPSIGN 

DSPRND 

FOUR 

WOCNT 

BINCON 

SHCRTMP 

MPAC 

RELTAB 

L0W5 

CODE 

ZERC 

MPAC  + 

MPAC  + 
MPAC 

DSPCOUNT 

COUNT 


17:53  OECo  19,1969  LEMCNAIDcl04  PAGE  445 


USER'S  PAGE  NOc  54  EO  S4 


ROUND  BY  5 EXP-6 


CeCREMENT  OSPCCUNT  EXCEPT  AT  +0 


GAP: 

L 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

R2048 

R2049 

2050 

2051 

2052 

2053 

R2054 

R2055 

2056 

2057 

2058 

2059 

2060 

R2061 

R2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

R2074 

R2075 

R2076 

R2077 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2C21112~091 


17:53  DEC*  19,l96Q  LEMnNAIDel04 


PAGE  446 


PINBALL  GAME  EUTTCNS  AND  LIGFTS 


USER'S  PAGE  NCb  55  EO  S^ 


REF  44  LAST  445 
REF  4 LAST  425 
REF  2 LAST  445 
REF  1 

REF  7 LAST  451 
REF  45  LAST  4^'6 
REF  2 LAST  445 


40t3305  54  776  0 

40.3306  0 3356  1 

40.3307  10  137  0 

40.3310  C 3267  1 

40.3311  4 4360  1 

40.3312  54  776  0 

40.3313  0 0115  1 


TS  DSPCCUNT 

TC  DSPIN 

CCS  WDCNT 

TC  DSPCCWCl 

CS  VOl 

TS  DSPCCUNT 

TC  WDRET 


00000  1 OCT 

02476  0 OECROUNO  OCT 


00000 

02476 


CSPCECNR  CONVERTS  C(  MPAC,MPAC-H>  INTO  A SIGN  AND  5 CHAR  DECIMAL 
STARTING  IN  LOC  SPECIFIED  IN  DSPCCUNT*  IT  COES  NOT  ROUND 


PEF  106  LAST  445 

REF  3 LAST  446 

REF  2 LAST  445 

PEF  2 LAST  446 


40.3316  56  002  0 

40.3317  54  115  0 

40.3320  0 3234  1 

40.3321  0 3266  0 


DSPOECNR  XCH 


0 

WDRET 
DSPS  IGN 
DSPOCWDl  -1 


DSPDC2NR  CONVERTS  C(  MPAC,MPAC+1)  INTO  A SIGN  AND  2 ChAR  DECIMAL 
STARTING  IN  LOC  SPECIFIED  IN  DSPCOUNT*  IT  DOES  NOT  ROUND 


REF  107  LAST  446 
REF  4 LAST  446 
REF  3 LAST  446 
REF  49  LAST  445 
PEF  3 LAST  446 


40,3322  56  002  0 DSPCC2NR  XCF 


40.3323  54  115  0 TS 

40. 3324  C 3234  1 TC 

40.3325  3 4753  1 CAF 

40.3326  0 3267  1 TC 


0 

WDRET 

DSPSIGN 

ONE 

OSPOCW  D1 


CSP2CEC  CONVERTS  C(MPAC)  AND  C(MPAC+1)  INTO  A SIGN  AND  10  CHAP  DECIMAL 
STARTING  IN  THE  LOC  SPECIFIED  IN  DSPCCUNT* 


REF  108 
REF  5 
REF  90 
REF  7 
REF  15 
REF  3 
REF  8 
REF  4 
REF  4 
REF  4 
REF  4 


LAST  446  40,3327 

LAST  446  40,3330 

LAST  445  40,3331 

LAST  445  40,3332 

LAST  425  40,3333 

LAST  405  40,333^ 

LAST  445  40,3335 

LAST  4^6  40,3336 

LAST  446  40,3337 

LAST  424  40,3340 

LAST  446  40,3341 


56  CC2  0 DSP20EC  XCH 


54  115  0 TS 

3 4755  1 CAF 

54  124  I TS 

3 6250  0 CAF 

0 3440  1 TC 

3 4751  0 CAF 

0 3440  1 TC 

0 2234  1 TC 

3 4320  1 CAF 


0 3267  1 END20EC  TC 


0 

WDRET 

ZERO 

CODE 

THREE 

IIDSPIN 

FOUR 

llOSP IN 

0SPSir7N 

R2D1 

DSPCCWCl 


-R2  OFF 
+R2  OFF 


CSPOECVN  DISPLAYS  C(AI  UPON  ENTRY  AS  A 2 CHAR  DECIMAL  BEGINNING  IN  THE 
DSP  LCC  SPECIFIED  IN  OSPCCLNT* 

C(AJ  SHOULD  BE  IN  FORM  N X 2EXP-14,  THIS  IS  SCALED  TC  FORM  N/lOO  BEFORE 
CISPLAY  CCNVERSIONo 


GAP;  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2C21I12-C91 


17:53  OECo  19,1969  L EMONA  ID,  lf»^  PAGE  AA-7 


L PINBALL  GAME  6UTTCNS  AND  LIGHTS 


USFR  *5  PAGE  NOe  56  EO  S4 


2078 

2079 

2080 
2081 
2082 
2083 
208A 
2085 


REF  1 
REF  201 
REF  91 
REF  202 
REF  109 
REF  6 
REF  3 


LAST 

LAST 

LAST 

LAST 

LAST 


A<if5 

A^6 

A47 

AA6 

446 


40.3342 

40.3343 

40.3344 

40.3345 

40.3346 

40.3347 
40,3350 


C C006  1 
7 3352  1 
22  154  1 
3 4755  1 
54  155  1 
56  002  0 
54  115  0 


LAST  426  40,3351  0 3325  0 


OSPOECVN  EXTEND 
MP 

LXCH 

CAF 

TS 

XCH 

TS 

TC 


VNDSPCON 

MPAC 

ZERC 

MPAC  +1 
0 

WORET 

DSPDC2NR  +3 


MULT  BY  pOl 

TAKE  RESULTS  FROM  Lc  ( MULT  BY  2EXP14)- 


NO  SIGN,  NO  ROUND,  2 CHAR 


2086 


40,3352 


CC244  0 VNDSPCCN  OCT  00244 


«01  ROUNDED  UP 


2087  REF  3 LAST  423 

2088  REF  27  LAST  438 

2089  REF  2 LAST  413 


40.3353  0 3342  1 

40.3354  C 4635  0 

40.3355  62351  1 


GCVNUPCT 


TC  OSPOECVN 

TC  POSTJUMP 

CADR  UPDATl  ♦•2 


THIS  IS  NOT  FOR  GENERAL  USEr  REALLY  PART 
OF  UPOATVBo 


2090 


40,3356 


ENCECVN  EQUALS 


2091 

20915 

R2092 

R2093 


REF  1 41,3410  SETLOC  ENDSPF  +1 

REF  5 LAST  443  TO  445:  12  776#  COUNT#  $S/PIN 

PSPOCTWO  DISPLAYS  CIA)  UPON  ENTRY  AS  A 5 CHAR  CCT  STARTING  IN  THE  DSP 
CHAR  SPECIFIED  IN  CSPCOUNTo  IT  STOPS  AFTER  5 CHAR  HAVE  BFEN  OISPLAYEOo 


2094  REF 

2095  REF 

2096  REF 

2097  REF 

2098  REF 

2099  REF 

2100  REF 

2101  REF 

2102  REF 

2103  REF 

2104  REF 

2105  REF 

2106  REF 

2107  REF 

2108  REF 

2109  REF 

2110  REF 

2111  REF 

2112  REF 

2113  REF 

2114  REF 

2115  REF 

2116  REF 

2117  REF 

2118  REF 

2119  REF 


8 LAST 
110  LAST 

7 LAST 
39  LAST 

46  LAST 

9 LAST 

3 LAST 
9 LAST 

10  LAST 

11  LAST 

139  LAST 
1 

140  LAST 

4 LAST 
6 LAST 

8 LAST 

47  LAST 

5 LAST 

141  LAST 

48  LAST 
28  LAST 

1 

4 LAST 
1 

8 LAST 

49  LAST 


441 
447 
447 
44  1 
446 
446 

446 

447 
447 
447 
445 

447 

445 

445 

446 

447 

445 
447 
447 
447 

447 

446 

447 


41  ,3410 

41.3411 

41.3412 

41.3413 

41.3414 

41.3415 

41.3416 
41,34)7 
41  ,3420 

41.3421 

41.3422 

41.3423 

41.3424 

41.3425 

41.3426 

41. 3427 
41  ,3430 

41.3431 

41.3432 

41 .3433 

41.3434 

41.3435 

41.3436 

41.3437 
41  ,3440 
41,3441 


54  022  0 
56  CC2  n 
54  115  0 
3 4736  1 
26  776  0 

3 4751  0 
54  137  0 

4 0022  0 
4 0022  0 
4 0C22  C 
4 0000  0 
7 4757  I 
50  000  1 

3 4066  0 
7 4346  0 
54  124  1 
56  776  1 
*4  143  0 
10  000  0 
54  776  0 
C 4635  0 

61446  0 
10  137  0 
0 3416  1 

4 4360  1 
54  776  0 


OSPOCTWC  TS 
XCH 
TS 
CAF 
ADS 
CAF 

WOAGAIN  TS 
CS 
CS 
CS 
CS 

MASK 

INDEX 

CAF 

MASK 

TS 

XCH 

TS 

CCS 

TS 

TC 

CACR 

CCTEACK  CCS 
TC 

DSPLV  CS 
TS 


CYL 

0 

WDRET 

BITIA 

DSPCCUNT 

FOUR 

WOCNT 

CYL 

CYL 

CYL 

DSPMSK 

A 

RELTAB 

LOWS 

CODE 

DSPCOUNT 

COUNT 

A 

DSPCCUNT 

POST  JUMP 

DSPOCTIN 

WDCNT 

WDAGAIN 

VOl 

DSPCCUNT 


MUST  USE  SAME  RETURN  AS  CSP2BIT<, 
TO  BLANK  SIGNS 


DECREMENT  DSPCCUNT  EXCEPT  AT  +0 


TO  BLOCK  NUMERICAL  CHARACTERS,  CLEARS, 
AND  SIGNS  AFTER  A COMPLETED  DISPLAY^ 
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L PINEALL  GAME  BUTTONS  AND  LIGHTS  USER'S  PAGE  NC©  57  EO  S4 

2120  REF  8 LAST  447  41,3442  0 0115  1 TC  WORET 

2121  REF  4 last  433  4757  OSPMSK  = SEVEN 


R2155  FCR  OSPIN  PLACE  0/25  OCT  INTC  CCUNT,  5 BIT  RELAY  CODE  INTO  CODE*  BOTH 
R2136  ARE  DESTROYED,  IF  6IT14  OF  CCLNT  IS  1,  SIGN  IS  BLANKED  V,ITF  LEFT  CHAR, 
R2137  FCR  OSPINI  PLACE  0,1  INTO  BITll  OF  CODE,  2 INTO  COUNT,  REL  ADDRESS  OF 
R2138  CSPTA6  ENTRY  INTO  CSREL, 


2139  REF  1 40,3356-  SETLOC  ENOECVN 


21395 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 
A2161 
A2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 


REF  6 LAST 
REF  111  LAST 
REF  1 
REF  7 LAST 
REF  6 LAST 
REF  6 LAST 
REF  7 LAST 
REF  1 
REF  20  LAST 
REF  7 LAST 
REF  142  LAST 

REF  1 
REF  9 LAST 
REF  1 
REF  10  LAST 
REF  40  LAST 
REF  8 LAST 
REF  143  LAST 
REF  29  LAST 
REF  50  LAST 
REF  9 LAST 


445  TO  447 : 
447  40,3356 

40,3357 
4^7  40,3360 

447  40,3361 

431  40,3362 

448  40,3363 
40,3364 

421  40,3365 

448  40,3366 

447  40,3367 

40.3370 

40.3371 

447  40,3372 
40,3373 

448  40,3374 

447  40,3375 

448  40,3376 

448  40,3377 

437  40,3400 

446  40,3401 

448  40,3402 


82  697' 
56  002  0 
54  114  1 
3 4346  1 
7 0143  0 
5A  021  0 
56  021  1 
54  141  1 
3 4753  1 
7 0143  0 
1C  000  0 
0 3372  1 
C 3402  1 
56  124  0 
0 4340  1 
54  124  1 

2 4736  1 
7 0143  0 
1C  COO  0 

3 4752  0 
6 4753  1 
54  143  0 


REF  2 
REF  24 

REF  6 
REF  51 
REF  1 
REF  10 
REF  1 

REF  11 

REF  I 
REF  11 


LAST  448 
LAST  407 

LAST  435 
LAST  448 

LAST  448 

LAST  448 

LAST  448 


40.3403 

40.3404 
4C, 3405 

40.3406 

40.3407 
40,3410 
40  ,3411 

40.3412 

40.3413 
40  ,3414 

40. 3415 

40.3416 

40.3417 
40,3420 


0 0004  0 
50  141  0 
11*022  1 
0 3410  1 

0 5675  0 

6 4753  I 
54  142  1 
5C  143  I 

7 3434  0 
0 0006  1 
6C  124  0 
0 0006  1 

1 3432  0 
5C  143  1 


COUNT*  $i/PIN 
CSPIN  XCF  Q 

TS  DSEXIT 

CAF  L0W5 

MASK  COUNT 

TS  SR 

XCH  SR 

TS  OSREL 

CAF  BITl 

MASK  COUNT 

CCS  A 

TC  +2 

TC  DSPINl 

XCH  CODE 

TC  SLEFT5 

TS  CODE 

CAF  BIT14 

MASK  COUNT 

CCS  A 

CAF  TWO 

AD  ONE 

TS  COLNT 


CSPINl  INHINT 

INDEX  DSREL 
CCS  DSPTA8 

TC  +2 

TC  CCSHCLE 

AD  ONE 

TS  OSMAG 

INDEX  COUNT 
MASK  DSMSK 
EXTEND 
SU  CCOE 
EXTEND 
8ZF  OSLV 
OFRNT  INDEX  COUNT 


CANT  USE  L FDR  RETURN,  SINCE  MANY  OF  THE 
ROUTINES  CALLING  DSPIN  USE  L AS  RETURN* 


LEFT  IF  COUNT  I S ODD 
RIGHtT  IF  COUNT  IS  EVEN 

DOFS  NOT  USE  CYL 


0IT14  = 1 , BLANK  SIGN 

BIT14  = 0,  LEAVE  SIGN  AlONF 

+n  INTO  CCUNT  FCR  RIGHT 

+1  INTO  COUNT  FOP  LEFT! SIGN  LEFT  ALONE) 

♦ 3 INTO  COUNT  FOR  LEFTITO  BLANK  SIGN) 


IF  + 


IF- 


SAME 


GAP: 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2C21I12-09] 


L PINBALL  GAME  BUTTCNS  ANC  LIGHTS 


2177 

2170 

2179 

2180 
2161 
2182 
2163 
218A 
2185 
2166 
2187 


REF  2 
REF  2 
REF  12 
REF  lAA 
REF  3 
REF  25 

REF  2 
REF  7 

REF  2 


LAST  AA8 
LAST  4A8 
LAST  448 
LAST  448 
LAST  448 
LAST  448 


LAST  448 
LAST  407 


LAST  448 


40,3421  4 3434  0 

40i3422  7 0142  1 

40.3423  6 0124  0 

40.3424  4 CCOC  0 

40.3425  EC  141  0 

40.3426  57*  022  0 

40.3427  C C006  1 

40.3430  6 3432  1 

40.3431  25'015  1 

40.3432  C 0003  1 DSLV 

40.3433  0 0114  0 


CS  DSMSK 

MASK  DSMAG 

AD  CODE 

CS  A 

INDEX  DSREL 

XCF  DSPTAB 

EXTEND 
BZMF  DSLV 

I NCR  NOUT 

RELINT 

TC  DSEXIT 


2100 

2189 

2190 

2191 


40.3434  G0C37 

40.3435  C1740 

40.3436  02000  ' 

40.3437  C374C 


QCT  37 
OCT  174C 
OCT  2000 
nCT  3740 


R2192  FCR  llOSPIN,  PUT  REL  ADCRESSS  OF  DSPTAB  ENTRY  INTO  A,  1 IN  BITll  OR 
R2193  6ITU  OF  CODE* 


2194 

2195 

2196 

2197 

2198 

2199 


REF  4 LAST  449 
REF  30  LAST  440 
REF  12  LAST  448 
REF  112  LAST  440 
REF  3 LAST  449 
REF  2 LAST  448 


40.3440 

40.3441 

40.3442 

40.3443 

40 .3444 

40.3445 


f4  141  1 
3 4752  0 
E4  143  C 
56  002  0 
54  114  1 
C 3403  0 


IIDSPIN 


TS 

CAF 

TS 

XCH 

TS 

TC 


DSREL 

TWO 

COUNT 

g 

DSEXIT 

DSPIM 


2200 

2201 

2202 

2203 


REF 

REF 

REF 


5 LAST  446 

5 LAST  434 
1 


40.3446  0 3356  1 

40.3447  3 3451  1 

40.3450  0 4640  1 

40.3451  63436  0 


DSPOCT  IN  TC 
CAF 
TC 

ENOSPOCT  CAOR 


OSPIN 

+2 

BAKKJUMP 

0CT8ACK 


R2204  CSPALARM  FINDS  TC  NVSLBEND  IN  ENTRET  FOR  NVSUB  INITIATED  RCUTINESc 
R2205  ABORT  WITH  01501# 

R2206  DSPALARM  FINOS  TC  ENDCFJCB  IN  ENTRET  FOR  KEYBOARC  INITIATED  ROUTINES, 
R2207  DC  TC  ENTRET# 


22075 

22076 
2208 

2209 

2210 
2211 
2211 1 
22112 

22113 

22114 


REF  9 LAST  447 
REF  50  LAST  447 
REF  1 

REF  8 LAST  441 

REF  16  LAST  401 
REP  1 

REF  P LAST  449 


40.3452  4 4360  1 

40.3453  54  776  0 

40.3454  4 3475  0 

40.3455  6 0136  0 

40.3456  C 0006  1 

40.3457  1 3472  I 

40.3460  4 3474  1 

40.3461  6 0136  0 

40.3462  0 0006  1 

40.3463  1 3465  1 


precspal 

DSPALARM 


CS 

TS 

CS 

AC 

EXTEND 

BZF 

CS 

AD 

EXTEND 
BZ  F 


vni 

OSPCCUNT 
NVSBENDL 
ENTEX IT 

CHARALPM  +2 

MCNACR 

ENTEXIT 

+2 
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USER'  S PAGE  NC#  58  EP  S4 


MASK  WITH  77740,76037,  75777,  OR  74037 


DSPTAB  ENTRY  WAS  - 
DSPTAB  ENTRY  WAS  + 


IN 


MUST  USE  SAME  RETURN  AS  OSPIN 


SO  DSPOCTWD  POFSNT  USE  SWfALL 


IF  This  IS  A MONITOR,  KILL  IT 
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22115  REF  17  LAST  4A9 

22116  REF  1 

22117  REF  3 LAST  265 

22116  REF  2 LAST  A43 

2212  REF  4 LAST  450 

2213  REF  53  LAST  4A4 

2214  REF  2 LAST  245 

2217 

22171  REF  3 LAST  450 

2218  REF  1 


A0f3465 
40t  3466 
40,3467 
AO, 3470 
40 ,3A71 

40.3472 

40.3473 

40.3474 
40,347$ 


0 3470  1 
C 42  04  0 
0 4364  1 
0 4124  1 


0 4364  1 
0 5155  0 
C 5642  1 
215C1  0 
04124  1 
C 4202  0 


TC 

TC 

CHARALRM  TC 
TC 
TC 
OCT 

MQNACR  GENAOR 
NVSBENDL  TC 


CHARALRM 

KILMONON 

FALTON 

PASTEV6 

FALTON 

ENDOFJOB 

POODGC 

215C1 

PASTEVB 

NVSUPENT 


R2219 

R2220 

R2221 

R2222 

R2223 


ALMCYCLE  TURNS  ON  CHECK  FAIL  LIGHT,  REDISPLAYS  THE  ORIGINAL  VERB  TH/ 
WAS  ExeCLTEO,  AND  RECYCLES  TC  EXECUTE  THE  ORIGINAL  VERB/NOUN  COMBIN/ 
THAT  WAS  LAST  EXECUTEDo  USED  FOR  BAD  DATA  DURING  LOAD  VERBS  AND  BY 
MCTBSo  ALSC  BY  MMCHANG  IF  2 NUMERICAL  CHARACTERS  WERE  NOT  PUNCHED  ir 
FOR  MM  CODEo 


2224  REF  3 

22245  REF  2 

2225  RFF  5 

2228  REF  3 

2229  REF  11 

2230  REF  92 

2231  RFF  8 

2232  REF  29 

2233  REF  2 


LAST  443 
LAST  443  TO 
LAST  450 
LAST  439 
LAST  443 
LAST  443 
LAST  443 
LAST  447 
LAST  401 


4145 

,3:  17  17* 

4145  0 4364  1 

4146  4 104C  0 

4147  55*012  1 

4150  C 4616  I 

4151  62341  0 

4152  C 4635  0 

4153  62002  1 


ALMCYCLE  TC 


ENOALM  CADR 


FALTON 

VERBSAVE 

REQPFT 

BANKCALL 

UPDATVB  - 

POST  JUMP 

ENTER 


R2234  MMCHANG  LSES  NOUN  DISPLAY  UNTIL  ENTERo  THEN  IT  USES  MODE  DISPo 

R2235  IT  GOES  TO  MODROUT  WITH  THE  NEW  M M CODE  IN  A,  BUT  NOT  DISPLAYED  IN 

R2236  MM  LIGHTS* 

R2237  IT  DEMANDS  2 NUMERICAL  CHARACTERS  BE  PUNCHED  IN  FCR  NEW  MM  CODE* 
R2238  IF  NOT,  IT  RECYCLES* 


22391 

2240 

A2241 

A2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 


REF 

REF 

REF 


1 41,3443  SETLOC  DSPLV  +3 

6 LAST  447  TO  448:  27  803#  CCUNT#  $t/PIN 

1 41,3443  0 3465  0 MMCHANG  TC  REOMM 


REF  23 
PEF  51 


REF  14 
REF  92 
REF  12 
REF  20? 
REF  5 
REF  52 


LAST  378 
LAST  449 


LAST  440 
LAST  447 
LAST  441 
LAST  447 
LAST  413 
LAST  450 


41,3444 
41  ,3445 

41.3446 

41.3447 

41.3450 

41.3451 
41  ,3#52 

41.3453 

41.3454 
41  ,3455 


2 4747  1 
6 0776  1 
C C006  1 
1 3451  0 
0 4145  0 

3 4755  I 
57*001  1 
54  154  0 
3 4361  I 
54  776  0 


CAF  BITS 

AO  OSPCOUNT 

EXTEND 
BZF  +2 

TC  ALKCYCLE 

CAF  ZERO 

XCH  NOUNRFG 

TS  MPAC 

CAF  NDl 

TS  DSPCOUNT 


17:53  DEC?  19,1969  LEMONA  IDr  ir>4  PAGE 


•50 


USER'S  PAGE  NC*  59  EG  S4 


PUT  MONITOR  VERB  BACK  IN  VER6PEG 
NOT  NVSU8  INITIATED*  TURN  ON  OPP  ERROR 


TURN  ON  CHECK  FAIL  LIGHT* 

GET  ORIGINAL  VERB  THAT  WAS  EXECUTED 
SFT  FUR  FNTPASO 

PUTS  ORIGINAL  VERB  INTO  VERBREG  AND 
DISPLAYS  IT  IN  VFR8  LIGHTS* 


FNTPASHI  ASSUMES  THE  TC  PFQMM  AT  MMCHANG 
IF  THIS  MOVES  AT  ALL,  MLST  CHANGE 
MMADREF  AT  FNTPASHI* 

CCT20  = N02* 

DSPrnUNT  MUST  = -NC2* 

DEMAND  THAT  2 NUM  CHAR  WERE  PUNCHED  IN* 

DSPCOUNT  NOT=  -ND2*  ALARM  AND  RECYCLE 
DSPCOUNT  = -N02* 


GAP  : 

L 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

22  60 

2261 

2262 

2263 

2264 

2265 

22  66 

2267 

2268 

2269 

2270 

2271 

2272 

R2273 

R2274 

R2275 

R2276 

R2277 

R227e 

2279 

2280 

2281 

2262 

2283 

2284 

2285 

2266 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 
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PINBALL  GAME  BUTTONS  AND  LIGHTS 

TC 

CACR 

cs 
TS 
CA 
TC 

CADR 


USER'S  page  NOo  6C  EC  S4 

EANKCALL 

26LANK 

VDl  BLOCK  NUM  CHAR  IN 

DSPCOUNT 

MPAC 

POSTJUMP 

M0DR0UT6  GO  THRU  STANDARD  LCCo 


REF  93 
REF  4 
REF  10 
REF  53 
REF  204 
REF  30 
REF  1 


LAST  450 
LAST  407 
LAST  449 
LAST  450 
LAST  450 
LAST  450 


41,3456 
41  ,3457 
^1,3460 

41.3461 

41.3462 

41.3463 

41.3464 


0 4616  1 
60601  0 
4 4360  1 
54  776  0 
3 0154  I 
0 4635  0 
10040  1 


REF  2 
REF  113 
KEF  12 
REF  6 
REF  54 
REF  93 
REF  13 
REF  94 
REF  5 
REF  3 
REF  52 
REF  18 
REF  10 


LAST  300 
last  449 
LAST  450 
LAST  450 
LAST  451 
LAST  450 
LAST  450 
LAST  451 
LAST  451 
LAST  413 
LAST  448 
LAST  439 
LAST  449 


04,2040 

41.3465 

41.3466 

41.3467 

41.3470 

41.3471 

41.3472 
41  ,3473 

41.3474 

41.3475 
41  ,3476 
41,3477 
41  ,3500 


4 00C2  1 
55’012  1 
3 4361  1 
54  776  0 
3 4755  1 
55'OCl  0 
0 4616  1 
6C601  0 
0 4427  1 
3 4753  1 
54  777  1 
0 0136  0 


MCORCUTB  = V37 

REOMM  CS  0 

TS  REGRET 

CAF  NDl 

TS  DSPCOUNT 

CAF  ZERO 

TS  NOUNREG 

TC  BANKCALL 

CACR  aeiANK 

TC  FLASHON 

CAF  ONE 

TS  OeCBRNCH 

TC  ENTEXIT 


SET  FOR  CEC 


V6RQEXEC  ENTERS  REQUEST 
IT  DOES  ENOOFJOB  AFTER 
IT  ASSUMES  NOUN  26  HAS 
CCMPONENT  I PRIORITYIR 
CCMPCNENT  2 JCB  ACRES 
COMPONENT  3 BBCON 


TO  EXEC 
ENTER  ING 
BEEN  FRE 
ITS  lC-1 
112  e IT 


FCR  ANY  ACCRESS  WITH 
REQUEST,  DISPLAY  SYST  1 S 
LCAOEO  WITH 

4>  BIT1  = 0 FOR  NOVAC,  BIT1  = 


ANY  PRIORITY, 
RELEASED, 

=1  FOR  FINOVACo 


REF  21 
REF  18 
REF  145 
REF  1 
REF  1 
REF  205 
REF  22 
REF  19 
REF  206 
REF  6 
REF  5 
REF  207 

REF  20 
REF  208 
REF  209 

REF  210 


LAST  448 
last  444 
LAST  449 


LAST  451 
LAST  451 
LAST  451 
LAST  451 
LAST  431 
LAST  461 
LAST  451 

LAST  451 
LAST  451 
LAST  451 

LAST  451 


41,3501 
41  ,3502 

41.3503 

41.3504 
41  ,3505 

41.3506 

41.3507 

41.3510 

41.3511 
41  ,3512 

41.3513 

41.3514 
41  ,3515 

41.3516 

41.3517 

41.3520 

41.3521 
41  ,3522 


2 4753  1 
7 1044  1 
1C  000  0 
0 3523  0 

3 4351  1 
54  154  0 

4 4753  0 
7 1044  1 
54  160  1 
0 4457  0 

2 4217  I 
54  157  0 
0 0006  1 

3 1046  1 
52  156  1 
3 0160  0 
C 0004  0 
0 0154  1 


VBRQEXEC  CAF 
MASK 
CCS 
TC 
CAF 

REQEXl  TS 
CS 
MASK 
TS 

RECUESTC  TC 
CA 
TS 

EXTEND 

DCA 

OXCH 

CA 

INHINT 

TC 


BI  T1 

DSPTEMl 

A 

SETVAC 

TCNOVAC 

MPAC 

BITl 

DSPTEMl 

MPAC 

RELOSP 

ENOINST 

MPAC 

DSPTEMl 

MPAC 

MPAC 

MPAC 


+4 


IF  BITl  = 
IF  BITl  = 
TC  NOVAC 


1,  FINDVflC 
0,  NOVAC 

OP  TC  FINOVAC  INTO  MPAC 


PPIO  INTO  MPAC+^  AS  A TEMP 


TC  ENDOFJCB  INTO  MPAC+3 

JOB  ADRES  INTO  MPAC+1 
eeCON  INTO  MPAC+2 
PRIO  IN  A 
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2297  REF  1 41,3523  3 4354  1 SETVAC  CAF  TCFINDVC 

2298  REF  1 41  ,3524  0 3506  1 TC  PEQEXl 


R2299  VBROWAIT  ENTERS  REQUEST  TO  WAITLIST  FOR  ANY  ADDRESS  WITH  ANY  DELAYo 
R2300  IT  DOES  ENOOFJCB  AFTER  ENTERING  R EQU EST , C I SPL A Y SYST  IS  RELEASED, 
R2301  IT  ASSUMES  NOUN  26  HAS  BEEN  FRELDADEO  WITH 
R2302  CCMFCNENT  1 DELAY  (LOW  BITS) 

R2303  CCMPCNENT  2 TASK  ADRES  (12  BIT) 

R2304  COMPONENT  3 BBCON 


2305  REF  1 

2306  REF  211  LAST  451 

2307  REF  21  LAST  451 


41,3525  3 4352 

41  ,3526  54  154 

41,3527  3 1044 


1 VEROWAIT  CAF 
0 TS 

0 CA 


TCWAIT 

MPAC  TC  WAITLIST  INTO  MPAC 

DSPTEM1  TIME  DELAY 


2308  REF 


41,3530  0 3511 


ENCRQWT  TC 


REQUFSTC  -1 


R2309 

R2310 

R2311 


REQUESTC  WILL  PUT  TASK  AQRES  INTO  MPAC+1 , BBCCN  INTC 
TC  ENGOFjnB  INTO  MPAC+3«  IT  WILL  TAKE  TIME  DELAY  OUT 
LEAVE  IT  IN  A,  INHINT  AND  TC  MPAC, 


MPAC+2  t 
OF  MPAC+4  AND 


2312  REF 
23125  REF 

2313  REF 

2314  REF 

2315  REF 

2316  REF 

2317  REF 

2318  REF 


2 LAST 
7 LAST 
53  LAST 
2 LAST 

2 LAST 
7 LAST 

3 LAST 
2 LAST 


449 

448  TO 
451 
431 

450 

451 
40  8 
431 


40,3476 

450; 

40.3476 

40.3477 

40.3500 

40.3501 

40.3502 

40.3503 


80  7bl 
3 4753  1 
55'C13  0 
0 4204  0 
0 4457  0 
0 4433  1 
0 3612  1 


VEPROC 


SETLCC  NVSBENOL 
COUNT*  Sf/PIN 
CAF  ONE 
TS  LOAOSTAT 

TC  KILMONON 
TC  RELDSP 

TC  FLASHOFF 

TC  RECALTST 


PROCEED  WITHOUT  DATA 
TURN  ON  KILL  MCMTCR  BIT 


SEE  IF  THERF  IS  ANY  RECALL  FROM  ENDIDLE 


2319  REF  54  LAST  452 

2320  REF  2 LAST  411 


40. 3504 

40.3505 


4 4753  0 VBTERM 
0 3477  0 


ONE 

VBPROC 


TFRM  VERB  SETS  LOADSTAT  NEG 


R23201 

R23202 

232033 

232036 

23204 
232043 
232046 

23205 
232053 

23206 

23207 

23208 

23209 


PROCKEY  PERFORMS  THE 
EXECUTIVE  CONTROL,  W 
REF  19  LAST  443 
REF  1 

REF  146  LAST  451 

REF  18  LAST  450 
REF  94  LAST  451 
REF  13  LAST  451 
REF  11  LAST  451 
REF  55  LAST  451 
RFF  3 LAST  452 


SAME  FUNCTICN  AS  VBPRCC, 
ITH  CHRPR  lOo 

40.3506  4 1000  1 

40.3507  6 3523  0 

40,3510  0 0006  1 

40  ,3611  26  000  0 

40.3512  C C006  1 

40.3513  1 3470  0 

40.3514  3 4755  1 

40.3515  55*012  I 

40.3516  4 4360  1 

40.3517  54  776  0 

40,3520  0 3476  1 


PROCKEY  CS 
AO 

EXTEND 

DIM 

EXTEND 

RZF 

PRCCKEYl  CAF 
TS 
CS 


BE  CALLED  UNDER 

VERBREG 

VBSP2L0* 

A 

CHARALRM 

ZERO 

REGRET 

vni 

DSPCOUNT 

VBPROC 


OONT  ALLOW  PROCEED  DURING  LOAO« 
OFC  22 


SET  REQRET  FOR  ENTER  PASS  Oo 
BLOCK  NUMERICAL  CHARACTERS,  SIGNS 


, CLEAR 


R2321 


VBRE  SEO 


WAKES  ENDIDLE  AT  SAME  LINE  AS  FINAL  ENTER  OF  LOAD  (L+3U 
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R2322 

R2323 

R2324 


(MAIN  USE  IS  INTENDED  AS  RESPCNSE  TO  INTERNALLY  INITIATED  FLASHING 
DISPLAYS  IN  ENDIDLEo  SHOULD  NOT  BE  USED  WITH  LOAD  VERBS, PLEASE  PERFORM, 
CR  PLEASE  MARK  VERBS  BECAUSE  THEY  ALREADY  LSE  L+3  IN  ANOTHER  CCNTFXTo ) 


VERESEQ  CS 


MAKE  IT  LOOK  LIKE  DATA  I No 


00026  0 VeSP2LC#  DEC 


gap:  assemble  revision  131  CF  AGC  PRCGRAM  LUMINARY  0Y  NASA  2021112-091  17:53  DEC.  lo»1969  LFMONAIDolOA  PAGE  *-54 

L PINEALL  GAME  BUTTONS  AND  LIGHTS  USER'S  PAGE  NOe  63  EO  S'V 

P2329  KEY  RELEASE  ROUTINE 


R2330  THIS  ROUTINE  AL^.AYS  TURNS  CFF  THE  UPACT  LIGHT  ANC  ALWAYS  CLEARS  DSPLOCK* 

R2331  THE  HIGHEST  PRIORITY  FUNCTION  OF  THE  KEY  RELEASE  BUTTON  IS  THE 
R2332  UNSUSPENDING  CF  A SUSPENDED  HCMTCR  WHICH  WAS  EXTERNALLY  INITIATEOo 
R2333  THIS  FUNCTION  IS  ACCOMPLISHED  BY  CLEARING  DSPLCCK  AND  TURNING  OFF 

R233A  THE  KEY  RELEASE  LIGHT  IF  BOTH  OSPLIST  AND  CADRSTOR  ARE  EMPTYo 


R2335 

R2336 

R2337 


IF  NO  SLCH  MONITOR  EXISTSi  THEN  PELOSP  IS  EXECUTED  TO  CLEAR  CSPLOCK 
AND  THE  EXTERNAL  MONITOR  BIT  (FREEING  THE  DISPLAY  SYSTEM  FOR  INTERNAL 
USEI»  TURN  CFF  THE  KEY  RELEASE  LIGHT,  ANC  WAKE  UP  ANY  JOB  IN  DSPLISTo 


R2338  IN  ADDITION  IF  THERE  IS  A JOB  IN  ENDIDLE*  THEN  CCNTROL  IS  TRANSFERRED 
R2339  TO  PINBRNCH  (IN  DISPLAY  INTERFACE  ROUTINE!  TO  RE-EXECUTE  THE  SERIES  OF 

R23391  NVSU6  CALLS  ETC®  THAT  PRECEOEC  THE  ENCIDLE  CALL  STILL  AWAITING  RESPONSE* 

R23<fn  THIS  FEATURE  IS  INTENDED  FOR  USE  WHEN  THE  OPERATOR  HAS  BEEN  REQUESTED  TO 

R23A1  RESPOND  TO  SOME  INTERNAL  ACTICN  THAT  USED  ENDICLE,  BUT  HE  HAS  WRITTEN 

R23A2  OVER  THE  INFORMATICN  CN  THE  DISPLAY  PANEL  BY  SOME  DISPLAYS  OF  HIS  OWN 
R23^3  INITIATION  WHICH  DO  NOT  SERVE  AS  RESPONSES®  HITTING  KEY  RLSE  WILL 

R234A  RE-ESTABLISH  THE  DISPLAYS  TO  THE  STATE  THEY  WERE  IN  BEFORE  HE  OBSCURED 

R2345  THEM,  SO  THAT  HE  CAN  SEE  THE  WAITING  REOUFST®  THIS  WORKS  ONLY  FOR 

R23A6  INTERNAL  PROGRAMS  THAT  USED  ENDIOLE  THROUGH  MARGARETS  DISPLAY 
R2347  SLBRCLTlNESo 


2346  REF 

2349 

2350  REF 

2351  REF 

2352  REF 

2353  REF 

2354  REF 

2355  REF 

2356  REF 

2357  REF 

2358 

2359  REF 

2360  REF 

2361  REF 

2362  REF 

2363  REF 

2364  REF 

2365  REF 

2366  REF 
23661  REF 


22  LAST 

11  LAST 
2 LAST 
41  LAST 
6 LAST 
147  LAST 
1 

8 LAST 
5 LAST 

54  LAST 
31  LAST 

4 LAST 
96  LAST 

5 LAST 

6 LAST 

55  LAST 
2 LAST 

56  LAST 


A26 

222 
AOO 
4*  8 
AA3 
452 

452 

442 

450 

451 
300 
A53 
442 
454 
454 
44  2 
A54 


40.3525 

40.3526 
^0,3527 

40.3530 

40.3531 

40.3532 

40.3533 

40.3534 

40.3535 

40.3536 

40.3537 

40.3540 

40.3541 

40.3542 

40.3543 

40.3544 

40.3545 
40  ,3546 
40,3547 


4 4751  1 
0 0006  1 
03  011  1 
1C  115  0 

2 4736  1 
7 1020  0 
10  COO  0 
0 3542  1 
0 4457  0 
n'041  1 
0 3540  0 
0 5155  0 
0 4635  0 

21051  0 

3 4755  1 
55'011  1 
11*041  1 
0 5155  0 
0 4502  1 
C 5155  C 


VBRELCSP  CS 

EXTEND 

WAND 

CCS 

CAF 

MASK 

CCS 

TC 

TSTLTS4  TC 
CCS 
TC 
TC 
TC 

CADR 

LNSUSPEN  CAF 
TS 
CCS 
TC 
TC 
TC 


BIT3 

DSALMOUT 
2)  /22REG 
61  T14 
MONSAVEl 
A 

UNSUSPEN 
RELDSP 
CADRSTOR 
+ 2 

ENOOF JC8 

POSTJUMP 

PINBRNCH 

ZERO 

DSPLOCK 

CADRSTOR 

ENOOF JOB 

RELOSPl 

ENDOF JC8 


TURN  OFF  UPACT  LITE 
CLD  DSPLOCK 

EXTERNAL  MONITOR  BIT  (FMB) 

OLD  DSPLOCK  AND  EMP  0CTH  1,  UNSUSPEND. 
NOT  UNSUSPENDING  EXTERNAL  MONITOR, 
RELEASE  DISPLAY  SYSTEM  AND 
DO  RE-ESTABLISH  IF  CAORSTOP  IS  FULL* 


EXTERNAL  MONITCP  IS  SUSPENDED, 

JUST  UNSUSPEND  IT  BY  CLEARING  DSPLOCK® 
TURN  KEY  RELEASE  LIGHT  OFF  IF  BOTH 
CAORSTOP  AND  CSPL 1ST  APE  EMPTY: 


2367 


40,3550 


ENCPELDS  EQUALS 
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P2368  NVSUfi  IS  USED  FOR  SUE  ROUTINE  CALLS  FRCM  LITHIN  CCMFUTERo  IT  CAN  BE 
R2369  USED  TO  CALL  THE  COMBINATION  OF  ANY  DISPLAY,  LCAC,  OR  MONITOR  VERB 
R237()  TOGETHER  WITH  ANY  NOUN  A.VAILA6LE  TC  THE  KEYBOARC^ 

R23701  PLACE  0 VVVVVVVNNNNNNN  INTO  Ao 

R23702  V-S  ARE  THE  7 BIT  VERB  CODE,  N-S  ARE  THE  7 BIT  NOUN  CODE* 


R23703  IF  NVSUB  IS  CALLED  WITH  THE  FOLLOWING  NEGATIVE  NUMBERS  (RATHER  THAN  THE 

R237CA  VERB-NOUN  CODE)  IN  A,  THEN  THE  DISPLAY  IS  BLANKED  AS  FOLLOWS- 

R23705  -A  FULL  BLANK,  -3  LEAVE  MODE,  -2  LEAVE  MODE  AND  VERB,  -]  BLANK  R-S  ONLY 


R2371  NVSUe  CAN  BE  USED  WITH  MACH  CADR  TO  BE  SPEC  BY  PLACING  THE  CAOR  INTO 
R2372  MPAC+2  BEFORE  THE  STANDARD  NVSUB  CALL* 


R2373  NVSUB 
R237A  SYSTEM 
R2375  IF  V:S 


RETURNS  TO  2+  CALLING  LOC  AFTER  PERFORMING  TASK,  IF  DISPLAY 
IS  AVAILABLE*  THE  NEW  NOUN  AND  VERB  COOES  ARE  OISPLAYEDo 
= 0,  THE  NEW  NCUN  CODE  IS  DISPLAYED  CNLY(RETURN  WITH  NO  FURTHER 


R2376  AOTION)*  IF  N-S  =0,  THE  NEW  VERB  CODE  IS  DISPLAYED  GNLY(RETURN  WITH  NC 
R2377  FURTHER  ACTION)* 


R2378  IT  RETURNS  TO  1+  CALLING  LCC  WITHCUT  PERFORMING  TASK,  IF  DISPLAY 
R2379  SYSTEM  IS  BLOCKED  (NOTHING  IS  DISPLAYED  IN  THIS  CASE)* 

R2380  IT  DOES  TC  ABORT  (WITH  CCT  01501)  IF  IT  ENCOUNTERS  A DISPLAY  PROGRAM 

R2381  ALARM  CONDITION  BEFORE  RETURN  TO  CALLER* 


R2382  THE  DISPLAY  SYSTEM  IS  BLOCKED  BY  THE  DEPRESSION  OF  ANY 
R2383  KEY,  EXCEPT  ERROR  LIGHT  RESET 

R238A  IT  IS  RELEASED  BY  THE  KEY  RELEASE  BUTTON,  ALL  EXTENDED  VERBS, 

R2385  PROCEED  WITHOUT  DATA,  TERMINATE,  RESEQUENCE,  INITIALIZE  EXECUTIVE, 
R2386  RECALL  PART  OF  RECALTST  IF  ENOIOLE  WAS  USED, 

R2387  Ve  = REQUEST  EXECUTIVE,  VB  = REQUEST  WAITLIST, 

R238fi  MONITOR  SET  UP* 


R23881  THE  DISPLAY  SYSTEM  IS  ALSO  BLOCKED  BY  THE  EXTERNAL  MONITOR  BIT,  WHICH 
R23802  INDICATES  AN  EXTERNALLY  INITIATED  MONITOR  IS  RUNNING  (SEE  MONITOR) 


R2389  A NVSUB  CALL  THAT  PASSES  OSPLCCK  AND  THE  EXTERNAL  MCNITCR  BIT  ENDS  OLD 
R23891  MONITOR* 


R23911 
R23912 
R23913 
R2391A 
R 2391 5 
R239I6 
R239n 


NVSUB  SHCULC  Bf  USED  TWICE  IN  SUCCESSION  FOR  :PLEASE  PERFORM;  SITLATICNS 
(SIMILARLY  FOR  PLEASE  MARK)*  FIRST  PLACE  THE  CCOEO  NUMBER  FOR  WHAT 
ACTION  IS  DESIRED  OF  OPERATOR  INTO  THE  REGISTERS  REFERRED  TO  BY  THE 
:CHECKLIST:  NCUN*  GO  TO  NVSUB  WITH  A DISPLAY  VERB  AND  THE  :CH£CKLIST: 
NOUN*  GO  TO  NVSUB  AGAIN  WITH  THE  CPLEASE  PERFORM:  VERB  AND  ZEROS  IN  THE 
LCW  7 BITS*  THIS  :PASTES  UP:  THE  :PLEASE  PERFORM:  VERB  INTO  THE  VERB 


R23918  NVMONOPT  IS  AN  ENTRY  SIMILAR  TC  NVSUB,  BUT  REQUIRING  AN  AODITICNAL 
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R 2391 ei 
R239182 
R239ie3 
R239184 
R239185 
R239186 
R239187 
R2391 86 
R2391 89 


PARAMETER  IN  Lo  IT  SHOULD  BE  USED 
Ao  AFTER  EACH  MONITOR  DISPLAY  A #P 
LIGHTS  CR  DATA  WILL  EE  BLANKEC  (CR 
SPECIFIED  IN  L«  IF  BITS  8-14  CF  L 
BE  INTERPRETED  AS  A VERB  CODE  AND 
CCOE  SHOULD  DESIGNATE  CNE  CF  THE  * 
OTHER  THAN  ZERO,  THEN  THEY  WILL  BE 
BLANKSUBo  IF  NVMONOPT  IS  USED  WITH 
THE  PARAMETER  IN  L HAS  NC  EFFECTo 


ONLY  WITH  A MONITOR  VERB-NOUN  CODE  IN 
LEASE*  VERB  WILL  BE  PASTED  IN  THE  VERB 
BOTH!  ACCORCING  TO  THE  OPTIONS 
ARE  OTHER  THAN  ZERO,  THEN  THEY  WILL 
PASTED  IN  THE  VERB  LIGHTS®  (THIS  VERB 
PLEASE*  VERBS®)  IF  BITS  1-3  OF  L ARE 
USED  TO  BLANK  DATA  BY  BEING  FED  TO 
A VERB  OTHER  THAN  A MONITOR  VERB, 


R2392  NVSUB  IN  FIXED-FIXED  PLACES  2*CALLING  LOC  INTO  NVGTEM,  TC  NVSU6END  INTO 
R2393  ENTRET*  (THIS  WILL  RESTORE  OLC  CALLING  BANK  BITS) 


2394  REF 


4154 


SETLOC  ENCALM  +1 


23945  REF  3 

2395 

2396  REF  1 

2397  REF  42 

23971  KEF  7 

23972  REF  6 

23973  REF  148 

23974  REF  114 

2398  REF  55 

2399  ref  115 

2400  REF  1 
24001  REF  4 

2401  REF  3 

2402  PEF  1 


LAST  450  TO 


LiST  454 
LAST  45^^ 
LAST  454 
LAST  454 
LAST  451 
LAST  452 
LAST  456 

LAST  443 
LAST  452 


450  : 
4154 
41  ‘:5 

4156 

4157 
41  60 

4161 

4162 

4163 

4164 

4165 

4166 

4167 
4170 


7 24* 

22  007  0 
123  0 
3 A736  1 
7 1020  0 
6 1011  0 
10  000  0 
C 0002  0 
3 A753  1 
6 0002  0 
55»036  1 
23'02l  0 
C 4204  0 
3 4201  0 


COUNT* 

NVSUB  LXCH 
NVMCNCPT  TS 
CAF 
MASK 
AO 
CCS 
TC 
CAF 

NVSeCOM  AD 
TS 

LXCH 

TC 

NVSU0COM  CAF 


tS/PIN 

7 

NVTEMP 

BIT14 

MQNSAVEl 

DSPLCCK 

A 

0 

ONE 

Q 

NVQTEM 

M0NSAVE2 

KILMONCN 

MVSB8BNK 


ZERO  NVMONOPT  CPTICNS 


EXTERNAL  MONITOR  BIT 


OSP  SYST  BLOCKED,  RET  TO  1+  CALLING  L(TC 
DSP  SYST  AVAILABLE 

2+  CALLING  LOC  INTO  NVQTEM 
STORE  NVMONOPT  CPTICNS 
TURN  ON  KILL  MONITOR  BIT 


2403  REF 

24031 

24032  REF 

2404  REF 

24041  REF 

24042 

24043  REF 

2405  REF 

2406  REF 

2407  PEF 


12  LAST 

4 LAST 
1 

2 LAST 

5 LAST 

1 

56  LAST 

2 LAST 


372 

276 

276 

456 

452 

408 


4171  56  006  1 

4172  C 0006  1 

4173  C4  007  1 

4174  55*037  0 

4175  3 4201  0 

4176  r 0006  1 

4177  Cl  007  1 

4200  C 2C00  0 
0776 

4201  62101  0 


XCH  B6ANK 
EXTEND 

ROR  SUPERBNK 
TS  NV8NKTEM 

CAF  PINSUPBT 
EXTEND 

WRITE  SUPERBNK 
TC  NVSUB8 

EBANKs  DSPCOUNT 
NVSBBBNK  BBCCN  NVSUBl 


SAVE  OLD  SUPERBITS 


GO  TO  NVSUBl  THRU  STANDARD  LOC 


24071  REH 


LAST  456 


4201 


PINSUPBT  = 


NVSBB6NK 


CONTAINS  THE 


PINBALL  SUPFRBITSc 


2412  REF  2 LAST  456 

2413  REF  2 LAST  285 


4202  53*037  0 NVSU8END  CXCH 

4203  0 5165  0 TC 


NVOTEM 

SUPDXCHZ 


NVBNKTEM  MUST  = NVCTEM+1 
CTCE  WITH  SUPERBIT  SWITCHING 


2414  REF 


41,3531 


SETLUC  ENOROWT  +1 


2414C5  REF  7 LAST  450  TO  452:  54  857*  COUNT*  $$/PIN 

R241412  BLANKDSP  BLANKS  DISPLAY  ACCORDING  TO  OPTION  NUMBER  IN  NVTEMP  AS  FOLLOWS 
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R241415  -4  FLLL  BLANK,  -3  LEAVE  MODE,  -2  LEAVE  MCCE  AND  VERB,  -1  BLANK  R-S  ONLY 


241^19  REF 
241422 
241425  REF 
24142S  REF 
241432  REF 
241435  REF 
241439  REF 
241442  REF 
241445 
241449  RFF 
241452  REF 
241455 
241459  REF 
241462 
241465 
241469  REF 
241472  REF 
241475  PEF 
241479  REF 
241482  REF 
241485  REF 
241489  REF 


L AST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


448 

449 
255 
457 
449 

456 
449 

457 


456 


452 

451 
430 

452 
456 
452 


41  ,3532 

41.3533 

41.3534 
41  ,3535 

41.3536 

41.3537 
41,3540 
41,  3541 
41  ,3542 

41.3543 

41.3544 
41  ,3545 

41.3546 

41.3547 

41.3550 

41. 3551 
41  ,3552 

41.3553 

41.3554 
4]  ,3555 
41,2556 


54  124  1 
4 4740  1 
50  124  0 
E7’C22  0 
1 0 000  0 
25*015  1 
C 3542  I 
10  124  1 
0 3533  1 
0 0003  1 
50  123  1 
C 3553  1 
0 3550  1 
55*000  1 
55'CCl  0 
55*014  1 
4 4360  1 
54  776  C 
0 4433  1 
C 36C1  C 


BLANKOSP  AD 

INhINT 

TS 

CS 

INDEX 

XCH 

CCS 

INCR 

TC 

CCS 

TC 

RELINT 

INDEX 

TC 

TC 

TS 

TS 

TS 

CS 

TS 

TC 

TC 


SEVEN 

CODE 
B IT12 
CODE 
DSPTAB 
A 

NCUT 
+ 1 

CODE 

BLANKDSP  +2 

NVTEMP 
♦ 5 
+ 1 

VERBREG 

NOUNREG 

CLPASS 

VOl 

DSPCCLNT 
FLASHOFF 
ENTSET  -2 


7, 8, 9, OR  10  (A  HAD  0,1,2, OR  3> 
ELANK  SPFCIFIFC  DSPTABS 


NVTEMP  HAS 


-3 

-2 


(N'FVER  TOUCH  MOOREG) 


PROTECT  AGAINST  INVISIBLE  FLASH 
ZEPCS  REQRET 


2415  REF 

2416  REF 

24161  REF 

24162 

24163  PEF 

24164  REF 

24165  REF 

2417  REF 

2418  REF 

2419  REF 

2420  REF 

2422  REF 

2423  PEF 

2424  REF 
A2425 

2426  REF 

2427  RFF 

2428  REF 

2429  REF 

24291  REF 

24292  REF 

2430  REF 

2431  RFF 

2432 

2433  REF 


2 LAST 
6 LAST 

3 LAST 


19  LAST 
2 LAST 

20  LAST 
5 LAST 

4 LAST 

212  LAST 

5 LAST 

5 LAST 

6 LAST 

213  LAST 

214  LAST 
1 

215  LAST 
9 LAST 

97  LAST 
14  LAST 
2 LAST 

216  LAST 

217  LAST 


457 

443 

457 

417 

i57 

457 

443 

457 

452 

457 

443 

457 

457 

457 

A57 

450 

454 

452 

450 

457 

457 


41  ,3557 

41.3560 

41.3561 
41  ,3562 
41,356? 

41.3564 

41.3565 

41. 3566 

41 .3567 

41.3570 

41.3571 
41  ,3572 

41.3573 

41.3574 


3 3603  1 
54  136  1 
10  123  0 
0 3566  1 
0 2353  0 
0 3531  0 
0 2353  0 
3 6077  1 
7 0123  0 
54  157  0 
3 0123  1 
54  023  1 
3 CC23  C 
54  160  1 


NVSU61 


41. 3575 

41 .3576 

41.3577 
41 , 3600 
41  ,3601 

41.3602 

41.3603 

41.3604 

41.3605 

41 .3606 


1C  157  0 
0 3604  0 
3 0160  0 
0 2341  0 
3 4755  I 
55*012  1 
0 4202  n 
10  160  1 
0 3611  1 
3 0157  1 


ENTSET 

NVSU62 


CAF  ENTSET 

TS  FNTPET 

CCS  NVTEMP 

TC  +4 

TC  GOOSPALM 

TC  BLANKOSP 

TC  GODSPALM 

CAF  L0W7 

MASK  NVTEMP 

TS  MPAC  +3 

f.A  NVTEMP 

TS  EDOP 

CA  FDCP 

TS  MPAC  +4 

CCS  MPAC  +3 

Tf  NVSUB2 

CA  MPAC  *4 

TC  UPDATVe  -I 

CAF  ZERO 

TS  REQRET 

TC  NVSUBEND 

CCS  MPAC  +4 

TC  +4 

CA  MPAC  +3 


IN  BANK 

SET  RETURN  TO  NVSUBEND 
WHAT  NOW 

NORMAL  NVSUB  CALL  (EXECUTE  VN  OR  PASTE! 
BLANK  DISPLAY  AS  SPECIFIED 


TEMP  FOR  NOUN  (CANT  USE  MPAC.  OSPOECVN 
USES  MPAC,  +1,  +2 

RIGHT  7 

TEMP  FOR  VERB  (CANT  USE  MPAC*-lo  DSPDECVN 
USE  S MPAC , +1 , +2) ; 

TEST  NOUN 

IF  NOUN  NOT  +0,  GO  ON 

IF  NOUN  = +0,  DISPLAY  VERB  c THEN  RETURN 
ZERO  REQRET  SO  THAT  PASTED  VERBS  CAN 
BE  EXECUTED  BY  OPFRATORo 

TFST  VERB 

IF  VERB  NOT  +0,  GO  ON 
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243A  REF 
2^35  REF 
2A36  REF 
2^37  REF 
2A38  REF 
2A39  REF 
2^40  REF 

2441  REF 

2442  REF 

2443  REF 

2444  REF 

2445  REF 

2446  REF 

2447  REF 

2448  REF 


2 LAST 

3 LAST 

218  LAST 

219  LAST 

220  LAST 
10  LAST 

221  LAST 
3 LAST 

98  LAST 
3 LAST 
13  LAST 
15  LAST 

222  LAST 

223  LAST 
3 LAST 


443  41,3607  C 2321  0 TC 

457  41,3610  0 4202  0 TC 

457  41,3611  3 0156  0 CA 

458  41,3612  54  161  C TS 

458  41  ,3613  3 0160  0 CA 

457  41,3614  C 2341  C TC 

458  41,3615  3 0157  1 CA 

456  41,3616  0 2321  0 TC 

457  41,3617  3 4755  1 CAF 

452  41,3620  55*013  0 TS 

457  41,3621  55'01*  1 TS 

457  41,3622  55'012  1 TS 

458  41  ,3623  3 0161  1 CA 

458  41,3624  54  156  1 TS 


408  41,3625  0 2035  0 ENONVSBl  TC 


UPDATNN  -1 
NVSUBENO 
MPAC  +2 
MPAC  +5 
MPAC  +4 
UPDATV8  -1. 
MPAC  +3 
UPDATNN  -1 
ZERO 

LOADSTAT 
CLPASS 
REGRET 
MPAC  +5 
MPAC  +2 
ENTPASO 


IF  VERB  = +0,  DISPLAY  NCUNo  THEN  RETURN 

TEMP  FOR  MACH  CAOR  TO  BE  SPEC.  (OSPDECVN 
USES  MPAC,  +1,  +2  1 

IF  BOTH  NOUN  AND  VERB  NOT  +0,  DISPLAY 
BOTH  AND  GO  TO  ENTPASOc 


SET  FOR  WAITING  FOP  DATA  CONDITION 
SET  REOPFT  FOP  PASS  0.-, 

PFSTORES  MACH  CAOR  TO  BE  SPEC  TO  MPAC+2 
FOP  USE  IN  INTMCT6S  (IN  ENTPASO), 


R2449  IF  INTERNAL  MACH  CADR  TO  BE  SPECIFIED,  MPAC+2  WILL  BE  PLACED  INTC 
R2450  NCUNCADR  IN  ENTPASO  (INTMCTBS  )» 


2451  REF  4 LAST  458  4204 

24515  REF  4 LAST  456  TO  456: 
A2452 

2453  PEF  26  LAST  430  4204 

2454  REF  8 LAST  456  4205 

A2455 

2458  REF  116  LAST  456  4206 


SETLOC  NVSUBENO  +2 
24  48#  CCUNT*  f$/PIN' 

3 4735  1 KILMONCN  CAF  BIT15 
55'C2C  0 TS  MONSAVEl 

C 0002  0 TC  C 


FORCE  BIT  15  OF  MCNSAVEl  TO  I- 
THIS  IS  THE  KILL  MONITOR  BIT- 
TURN  OFF  BIT  14,  TFE  EXTERNAL 
MONITOR  BITo 


R2459 

R2460 

R2461 

R2462 

R2463 


LCADSTAT 


+0  INACTIVEfWAITING  FOR  DATA)*  SET  BY  NVSUB 
+1  PROCEED  NO  DATA*  SET  BY  SPECIAL  VERB 
-1  TERMINATE  SET  BY  SPECIAL  VERB 
-0  DATA  IN  SET  BY  END  OF  LOAD  ROUTINE 

OR  RESEQUENCE  SET  BY  VERB  32 


R2464  L TC  ENOIOLE  (FIXED  FIXED) 

R2465  ROUTINES  THAT  REQUEST  LOADS  TFRCUGH  NVSUB  SHOULD  USE  ENDIDLE  WHILF 
R2466  WAITING  FOR  THE  DATA  TO  BE  LCAOEO*  ENOIOLE  PUTS  CURRENT  JOE  TO  SLEEP* 
R2467  ENDIDLE  CANNOT  EE  CALLED  FROM  ERASABLE  OR  F /F  MEMORY, 

R2468  SINCE  JOBSLEEP  AND  JOEWAKE  CA^  HANDLE  CNLY  FIXED  BANKS* 

R2469  RECALTST  TESTS  LOADSTAT  AND  WAKES  JOB  UP  TO, 

R2470  L+1  FCR  TERMINATE 

R2471  L+2  FOR  PROCEED  WITHOUT  DATA 

R2472  L+3  FOR  DATA  IN,  OR  RESEQUENCE 

R2473  n DOES  NOTHING  IF  LCADSTAT  INDICATES  WAITING  FOR  DATA* 


R2474  ENOIOLE  ABORTS  (WITH  CODE  01206)  IF  A SECOND  JC8  ATTEMPTS  TO  GC  TC  SLEEP 
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R2475  IN  PINBALLo  IN  PARTICULAR,  IF  AN  ATTEMPT  IS  MADE  TO  GO  TO  ENDIOLE  WHEN 

R2476  1)  CACRSTOR  NOT=  +0®  THIS  IS  THE  CASE  WHERE  THE  CAPACITY  OF  ENDIOLE  IS 

R2477  EXCEEOECo  ( + -NZ  INDICATE  A JCE  IS  ALREADY  ASLEEP  DUE  TO  ENDIDLFoI 
R2478  2)  DSPLIST  NOT=  +0*  THIS  INDICATES  A JCB  IS  ALREADY  ASLEEP  CUE  TO 

R2479  NVSUEUSYe 


2480  REF 
2461  REF 

2482  REF 

2483  REF 

2484  REF 

2485  REF 
2406  REF 
2487  REF 


117  LAST 
1 
1 

60  LAST 
4 LAST 
1 

7 LAST 
2 LAST 


458 


44 

372 

454 

376 


4207  22  002 

4210  0 4220  0 

4211  0 4224  1 

4212  3 0001  0 

4213  7 5C12  0 

'4214  6 0004  0 

4215  55*041  1 

421€  0 5133  0 


LXCH  0 

TC  ISCAOR+0 

TC  ISLIST+0 

CA  L 

MASK  LOWIO 

AO  F6ANK 

TS  CADRSTCR 

TC  JOBSLEEF 


0 ENDIOLE 


RETURN  ADDRESS  INTC  L-. 

ABORT  IF  CADRSTCR  NnT=  +0 

ABORT  IF  DSPLIST  NCT=  +0 

DONT  SET  DSPLOCK  TO  1 SO  CAN  USE 

ENDIOLE  WITH  MVSUB  INITIATED  MONITORo 

SAME  STRATEGY  FOR  CADR  AS  MAKFCAORo 


2488 


REF  57  LAST  454 


4217  0 5155  0 ENCINST  TC 


ENDOFJQB 


2489  REF 

2490  REF 

2491  REF  1 

2492  REF 


R LAST  459 
1 

le  LAST  459 
2 LAST  459 


4220  ll'04l  1 

4221  0 4227  1 

4222  C 0002  0 

4223  C 4227  1 


I SCADR+0 


CCS 

TC 

TC 

TC 


CADRSTCR 

DSPA60RT 

Q 

DSFABORT 


ABORTS  (CODE  ni2P6>  IF  CAORSTOR  NOT=  +0^ 
RETURNS  IF  CAORSTOR  = +0o 


2493  REF  2 LAST 

2494  REF  3 LAST 

2495  REF  119  LAST 

2496  REF  1 

2497 


224 

459 

459 


4224 

4225 

4226 

4227 
4230 


11'042  I 
0 4227  I 
0 0002  0 
0 5624  1 
31206  1 


lSLIST+0 

CSPA80RT 


CCS 

TC 

TC 

TC 

OCT 


DSPLIST 

DSPABORT 

Q 

BAILOUT 

31206 


ABORTS  (CODE  01206)  IF  DSPLIST  NOT=  +0o 
RETURNS  IF  DSPLIST  * +0o 


R2498 

R2499 


JAMTERM  ALLOWS  PROGRAMS  TC  PERFORM  THE  TERMINATE  FUNCTION* 
IT  DOES  ENDOFJOB* 


2500  REF  3 

2501 

25011  REF  6 

25012  REF  2 

25013  REF  16 

2502  REF  13 

2503  REF  58 

2504  REF  ?2 

2505  PEF  2 


LAST  456 

LAST  456 
LAST  211 
LAST  458 
LAST  457 
LAST  457 
LAST  454 
LAST  411 


4231  3 4201  0 

4232  0 0006  1 

4233  Cl  007  1 

4234  3 4242  1 

4235  55*012  1 

4236  4 4360  1 

4237  54  776  0 

4240  C 4635  0 

4241  61504  1 


JAMTERM 


CAF  PINSUPBT 

EXTEND 

WRITE  SUPERBNK 

CAF  34DEC 

TS  REQRET 

CS  VDl 

TS  DSPCOUNT 

TC  POSTJUMP 

CADR  VBTERM 


LEAVE  ENTER  SET  FOR  ENTPASSOo 


2506 


4242  00042  1 34CEC  DEC  34 


R2507  JAMPROC  ALLOWS  PROGRAMS  TO  PERFORM  THE  PRCCE EO/PROC EEO  WITHOUT  DATA 
R2508  FUNCTICNa  IT  OCES  ENCCFJCB* 

2509  REF  4 LAST  459  4243  3 4201  0 JAMPRCC  CAF  PINSUPBT 
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2510 

25101  REF  7 

25102  REF  1 

25103  REF  17 

2511  REF  14 

2512  REF  59 

2513  REF  33 

2514  REF  5 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


459 

459 

459 

459 

459 

453 


4244  n 0006  1 

4245  Cl  007  1 

4246  3 4254  0 

4247  55*012  1 

4250  4 4360  I 

4251  54  776  C 

4252  0 4635  0 

4253  61476  0 


EXTEND 

WRITE  SUPERBNK 

CAF  33DEC 

TS  REGRET  LEAVE  ENTER  SET  FOR  FNTPASSO* 

CS  VDl 

TS  DSPCOLNT 

TC  POSTJUMP 

CADR  VBPROC 


4254  00041  1 33CeC  DEC  33 


R2532  8LANKSUB  BLANKS  ANY  COMBINATION  OF  Rl , R2 , R3» 

R2533  CALL  WITH  BLANKING  CODE  IN  A* 

R2534  6ITU1  BLANKS  Rl  , eiT2=)  BLANKS  R2,  6IT3  = 1 BLANKS  R3o 

R2535  ANY  COMBINATION  OF  THESE  BITS  IS  ACCEPTED* 


R2536  CSPCCUNT  IS  RESTORED  TO  STATE  IT  WAS  IN  BEFORE  BLANKSUB  WAS  EXECUTED* 


2538  REF  6 
25381  REF  6 

2539  REF  43 

2540  REF  9 

25401  REF  7 

25402  REF  150 

25403  REF  120 

25404  REF  121 
A2541 

25411  REF  7 

25412 

25413  REF  122 
2542  PEF  123 

2544  REF  1 

2545  PEF  13 

25451 

25452  REF  8 

2546  REF  45 
25461  REF  5 
2546? 

25463  REF  9 

2547  REF  1 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


457 

457 
456 

458 

456 

457 

459 
46  0 

460 

460 

460 

456 

460 

416 

459 

460 


4255  7 4757  1 ELANKSUB  MASK  SEVEN 


4256  54  123  0 

4257  3 4736  I 

4260  7 IC20  0 

4261  6 ICll  0 

4262  10  000  0 

4263  C 0C02  0 

4264  24  002  0 

4265  10  123  0 

4266  1 4270  1 

4267  0 0002  0 

4270  22  002  0 

4271  3 4302  1 

4272  56  CC6  1 

4273  C 0006  1 

4274  04  007  I 

4275  52  131  0 

4276  3 4201  0 

4277  C 0006  1 

4300  C)  007  1 
43C1  0 3550  1 


TS  NVTEMP 

CAF  BIT14 

MASK  MONSAVEl 

AD  DSPLOCK 

CCS  A 

TC  0 

INCR  0 

CCS  NVTEMP 

TCF  +2 

TC  0 

LXCH  0 

CAF  BLNKBBNK 

XCH  B6ANK 

EXTEND 

ROR  SUPERBNK 

DXCH  8UF 

CAF  PINSUP8T 

EXTEND 

WRITE  SUPERBNK 

TC  BLNKSUBl 


STORE  BLANKING  CODE  IN  NVTEMPc 
EXTERNAL  MONITOR  BIT 


DSP  SYST  BLOCKECo  RET  TO  1+  CALLING  LOC 

DSP  SYST  AVAILABLE 

SET  RETURN  FOR  2+  CALLING  LOC 


NOTHING  TO  BLANK^  RET  TO  2+  CALLING  LOC 
SET  RETURN  FOR  2 + CALLING  LOC 


SAVE  OLD  SUPERBITS* 


2548 
25481 

2549 


460 

460 


4302  60101 

4303 


EBANK=  DSPCCUNT 
BLNKBBNK  B8C0N  BLNKSUBl 
ENCBLFF  EQUALS 


2550 
25505 

2551 
25511 


REF  1 40,3550 

REF  8 LAST  452  TO  456: 
REF  61  LAST  460  40,3550 

REF  46  LAST  460  40,3551 


SETLCC  ENDRELDS 

42  809#  COUNT#  $$/PIN 

3 0776  1 BLNKSUBl  CA  DSPCOUNT 

54  132  0 TS  6UF  +2 


SAVE  OLD  DSPCOUNT  FOR  LATER  RESTORATION 
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25512  REF 

2552  REF 

2553  REF 

2554  RFF 

2555  REF 

2556  REF 

2557  REF 

2558  REF 

2559  REF 

2560  REF 

2561  REF 

2562  PEF 

2563  REF 

2564  REF 

2565  REF 

2566  REF 


23  LAST  451 
1 

12  LAST  4*^4 

4 LAST  A23 
25  LAST  435 

2 LAST  461 

5 LAST  446 
5 LAST  461 

23  LAST  454 

3 LAST  461 

5 LAST  424 

6 LAST  461 

47  LAST  460 
62  LAST  460 

48  LAST  461 
3 LAST  456 


40,3552 

•40,3553 

40.3554 

40.3555 

40.3556 

40.3557 

40.3560 

40.3561 

40.3562 

40.3563 

40.3564 

40.3565 

40.3566 

40.3567 

40. 3570 

40.3571 


3 4753  1 
C 3572  1 
3 4317  0 
C 2535  C 
3 4752  0 
C 3572  1 
3 4320  1 
0 2535  0 
3 4751  0 
0 3572  1 
3 4321  O 
C 2535  C 
: 0132  I 
54  776  C 
52  131  0 
0 5166  0 


CAF  BITl 

TC  TESTBIT 

CAF  RlDl 

TC  *^6LANK  -1 

CAF  BIT2 

TC  TESTBIT 

CAF  P201 

TC  5BLANK  -I 

CAF  BIT3 

TC  TESTBIT 

CAF  P3D1 

TC  5BLANK  -1 

CA  BUF  +2 

TS  OSFCOUNT 

DXCH  BUF 

TC  SUPOXCHZ  +l 


TEST  BITli,  SEE  IF  R1  TO  BE  BLANKED* 


TEST  BIT  2o  SEE  IF  R2  TC  BE  BLANKED* 


TEST  BIT3*  SEE  IF  R3  TO  BE  BLANKED* 


RESTORE  DSPCOUKT  TC  STATE  IT  HAD 
BEFORE  BLANKSUBe 
CALL  L+2  OIRECTLYo 
DTCB  V.ITH  SUPFRBIT  SWITCHING 


2567  REF 

2568  REF 

2569  REF 

2570  REF 

2571 


6 LAST 
151  LAST 

124  LAST 

125  LAST 


460 

460 

460 

461 


40,3572  7 0123  0 TESTBIT  MASK 


40.3573  10  000  0 CCS 

40.3574  0 0002  0 TC 

40.3575  50  002  0 INDEX 

40.3576  C 0002  0 TC 


NVTEMP 

A 


Q 

Q 

2 


NVTEMP  CONTAINS  BLANKING  CODE- 


IF  CURRENT  BIT  = 
IF  CURRENT  BIT  = 


1,  RETURN  TO  L+1* 
0,  RETURN  TO  L+3, 


2572 


40,3577  ENCeSUei  EQUALS 


CSPMM 

PRIO 


DOES 

30000 


NOT 

FOR 


MOOR6G  DIRECTLY*  IT  PUTS  IN  EXEC  REQUEST  WITH 
AND  RETURNS  TO  CALLER* 


R257207  IF  MDOREG  CONTAINS  -C  , DSPPMJB  BLANKS 
R2572C9  CSPMM  MIST  BE  IN  BANK  27  CR  LCWER,  SO 


THE  MCDE  LIGHTS* 

IT  CAN  BE  CALLED  VIA  BANKCALL* 


25721  07,2666 
257215  REF  1 04,2000 
257217  04,2622 


BANK  7 

SETLOC  PINBALL4 

BANK 


257216  REF  1 

25722  REF  126  LAST 

25723  REF  224  LAST 

25724 

25725  PEF  3 LAST 

25726  REF  6 LAST 

25727  REF  63  LAST 

25728  REF  1 

25728  REF  1 
2 572  85 

25729  REF  225  LAST 


461 

458 

442 

442 

461 


461 


04,2622 
04  ,2623 

04.2624 

04.2625 

04.2626 
0776 

04.2627 

04.2630 

04.2631 

04.2632 


56  002  0 
54  154  0 
C CC04  0 
3 4355  0 
0 5072  1 


DSPMM 


03577  1 
60101  1 
0 0003  I 
0 0154  1 


ENCSPMM 


CCUNT«  $S/PIN 
XCF  Q 

TS  MPAC 

INHINT 

CAF  CHRPRIO 
TC  NOVAC 

E8ANK=  USPCCUNT 
2CA0R  DSPMMJB 

RELINT 
TC  MPAC 


R2573  CSPMM  PLACE  MAJOR  MODE  CODE  INTO  MODREG 
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25736 

2574 

2575 

2576 

2579 

2580 

25801 

25802 

25803 

2581 

2582 

2583 


PINBALL  GAPE  BUTTCNS  ANC  LIGI-TS 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


■ 9 LAST  460  TO 
1 

6A  LAST  461 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


265 

456 

447 

451 

462 

462 

459 


40  ,3577 

461 S 
40,3577 
4C,3600 
40,3601 
40  ,3602 
4C,3603 
^0,3604 
40,3605 
40,36C6 
40,3607 

40.3610 

40.3611 


23  832* 

3 4362  1 
56  776  1 
54  140  0 
11*010  0 
6 4753  I 
0 3342  1 
C 3607  0 
C 2601  1 
56  140  1 
54  776  0 
0 5155  0 


SETLOC  ENCBSUPl 


DSPCCUNT 

DSPMPTEP 

MOOREG 

ONE 

DSPOECVN 


26LANK 
OSPMMTEM 
DSPCOUNT 
ENDOF JOB 
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GETS  HERE  THRU  DSPPP 
SAVE  DSPCCUNT 


IF  MODREG  IS  ♦ OR  +0,  DISPLAY  MOOREG 
IF  MOOREG  IS  -NZ,  DO  NOTHING 
IF  MOOREG  IS  -0,  BLANK  MM 
RESTORE  DSPCOUNT 


R2584 

R2585 

R2586 


Dcrai  15;  ENTERED  DIRECTLY  AFTER  DATA  IS  LOADED  ( CR  RESEQUENCE  VERB 

EKECUTEOI,  tIrMINATE  VERB  IS  EXECUTED,  OR  PROCEED  WITHOUT  DATA  VERB  IS 


IS 


IF  CADRSTOR  NOT=  +0 
LIGHT  IF  DSPLIST  IS 


IT  PUTS  +0  I NTO  OSPLCCK 
EMPTY  (LEAVES  KEY  RISE  L 


, AND  TURNS  OFF  KEY  RLSE 
IGHT  ALONE  IF  NOT  EMPTYIc 


2589  REF  9 

2590  REF  1 

2591  REF  59 

2592  REF  99 

2593  REF  10 

2594 

2595  REF  3 

2596  REF  4 

2597  REF  I 

2598  REF  60 

2599  REF  1 
2630  REF  31 

2601  REF  2 

2602  REF  3 

2603  REF  3 

2604  REF  4 

26041  REF  15 

26042  REF  61 

26043  PEF  21 

26044  REF  4 

26045  REF  226 

2605 

2606  PEF  9 

2607  REF  61 


LAST  45P 

LAST  462 
LAST  458 
LAST  462 

LAST  376 
LAST  450 

LAST  462 

LAST  449 
LAST  374 
LAST  374 
LAST  462 
LAST  462 
LAST  457 
LAST  459 
LAST  457 
LAST  462 
LAST  461 

LAST  454 
LAST  462 


40.3612 

40.3613 

40.3614 
40  ,3615 

40.3616 

40.3617 

40.3620 

40.3621 

40.3622 

40.3623 

40.3624 

40.3625 

40.3626 

40.3627 
40,3620 

40.3631 

40.3632 

40.3633 

40.3634 

40.3635 

40.3636 

40.3637 

40.3640 

40.3641 


11*041  1 
0 3615  0 
0 5155  0 
3 4755  1 
57  'C41  0 
0 0004  0 
0 5137  1 
11*013  0 
0 3644  1 
0 5155  0 
C 3642  1 
3 4752  0 
SO  C64  0 
6 0164  1 
50  064  0 
54  164  0 
3 1001  1 
54  OCl  1 
3 1000  0 
50  064  0 
52  155  I 
0 0003  1 
C 4457  0 
0 5155  0 


RECALTST 

RECALl 


CADRSTOR 
RECALl 
ENDOF JOB 
ZERO 

r ADPSTCR 


CAF 

XCH 

INFINT 


CAF 

INDEX 


JOeWAKE 

LOAOSTAT 

DOPROC 

ENDOF JOB 

UQTFRM 

TWO 

LCCCTR 

LOC 

LCCCTR 

LOC 

N0UNRE6 


INDEX 

OXCH 

RELINT 


VERBREG 

LOCCTR 

MPAC 

RELDSP 
ENDOF JOB 


REF  ino  LAST  462 
REF  1 


40.3642  3 4755  I DOTERM 

40.3643  C 2626  0 


CAF 

TC 


NORMAL  EXIT  IF  KEYBOARD  INITIATED 


+ PROCEED  WITHOUT  DATA 
PATFALOGICAL  CASE  EXIT 
TERMINATE 

-9  DATA  IN  OR  RESEQUENCE 
LOC  IS  + FOR  BASIC  JCBS 


SAVE  VERB  IN  MPAC,  NOUN  IN  MPAC+1  AT 
TIME  OF  RESPONSE  TO  ENDIOLE  FOR 
POSSIBLE  LATFP  TESTING  PY  JCB  THAT  HAS 
BEEN  WAKED  UPo 


2608 

2609 


ZERO 

RECAL2 
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2610 

2611 


REF  57 
REF  2 


LAST  462 
LAST  462 


40.3644 

40.3645 


3 4753  1 
C 3626  0 


CCPROC  CAF 
TC 


ONE 

RECAL2 


GAP  ; 
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P2612  MI SCELLANECUS  SERVICE  ROUTINES  IN  FIXEC/FIXEC 


2613  REF 


4303 


SETLOC  ENC8LFF 


26135  REF  5 LAST  458  TO  460:  63  111#  COUNT*  $$/PIN 

R2614  SETNCAOR  E CADR  ARRIVES  IN  Ap  IT  IS  STORED  IN  NOUNCADRp  EBANK  BITS 

R2615  ARE  SETo  E ACRES  IS  DERIVED  AND  PUT  INTO  NOUNAOO. 


2616  REF  8 

2617  REF  13 

2618  REF  2 

2619  REF  1 


LAST 

LAST 

LAST 


444 

390 

193 


4303.  55*016  0 SETNCACR  TS  NOUNCAOR 

4304  54  003  0 TS  EBANK 

4305  7 A357  0 MASK  LOWS 

4306  6 5007  0 AD  OCT1400 


2620  REF  27  LAST  438 

2621  REF  127  LAST  461 


4307  54  145  0 

4310  0 0002  0 


TS  NOUNADD 

TC  0 


STORE  ECADR 
SET  EBANK  BITS 


PUT  E AORES  INTO  NOUNADD 


R2622  SE7NA0D 
R2623 


GETS  E CADR  FPCM  NCUNCADR,  SETS  EBANK  BITSi  DERIVES 
E ADRES  AND  PUTS  IT  INTO  NOUNADDo 


2624  REF  9 LAST  464  4311  3 1016  1 SETNADC  CA  NOUNCADR 

2625  REF  7 LAST  433  4312  1 4304  0 TCF  SETNCACR  +1 


R2626  SETEBANK  E CADR  ARRIVES  IN  Ap  EBANK  BITS  ARE  SET®  E ADRES  IS 

R2627  DERIVED  AND  LEFT  IN  Ap 


2628  KEF 

2629  REF 

2630  REF 

2631  REF  I 


14  LAST  464 
3 LAST  46A 
2 LAST  464 
28  LAST  464 


4313  54  C03  0 SETEBANK  TS  EBANK 

4314  7 4357  0 MASK  LOWS 

4315  6 5007  0 AO  OCT1400 

4316  C 0002  0 TC  0 


SET  EBANK  PITS 
E ACRES  LEFT  IN  A 


2632 

2633 

2634 


4317  00016  0 RlCl 

4320  OOOll  1 R2D1 

4321  00004  0 R3C1 


OCT  16 
OCT  IX 
OCT  4 


THESE  3 CONSTANTS  FORM  A PACKED  TABLE® 
CONT  SEPARATE® 


2635  REF 

2636  REF 

2637  KEF 

2638  REF 

2639  REF 

2640  REF 

2641  REF  l: 


3 LAST  234 

4 LAST  464 

5 LAST  464 

6 LAST  464 

7 LAST  464 

8 LAST  464 
19  LAST  464 


4322 

4323 

4324 

4325 

4326 

4327 
4330 


54  020  1 
4 0C2C  1 
4 0020  1 
4 0020  I 
4 0020  1 
56  020  0 
0 0C02  0 


RIGHTS 


TS  CYP 

CS  CYR 

CS  CYR 

CS  CYR 

CS  C YR 

XCH  CYR 

TC  Q 


2642  REF  12 

2643  REF  13 

2644  REF  14 

2645  REF  15 

2646  REF  16 


LAST  447 
LAST  464 
LAST  464 
LAST  464 
LAST  464 


4331  54  022  0 LEFTS  TS  CYL 

4332  4 0022  0 CS  CYL 

4333  A 0C22  0 CS  CYL 

4334  4 0022  0 CS  CYL 

4335  A 0022  n CS  fYL 


GAP : 

L 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

2665 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2677 

2670 

2679 

2680 

2681 

2682 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-091 


17:53  CECo  19,1969  LFMONAIO,104  PAGE  465 


PINBALL  GAME  BUTTONS  AND  LICFTS 


USER'S  PAGE  NCe  74 


EO  S4 


REF  17  LAST  464 
REF  130  LAST  464 


4336  56  022  1 

4337  C 0CC2  0 


XCH  CYL 

TC  0 


REF  131  LAST  465 


4340  6 0000  1 

4341  6 0000  1 

4342  6 COOC  I 

4343  6 0000  1 

4344  6 0000  1 

4345  C 0002  0 


SL  EFTS 


DOUBLE 
DOUBLE 
DOUBLE 
DOUBLE 
DOUBLE 
TC  Q 


4346  00037  0 LGH5 

4347  C1740  0 MID5 

4350  76000  0 HIE 


OCT  37 

OCT  1740 
OCT  760C0 


THESE  3 CONSTANTS  FCRM  A PACKED  TABLEo 
DONT  SEPARATEe 
MUST  STAY  HERE 


REF  7 LAST  461 
REF  17  LAST  442 
REF  13  LAST  442 
REF  16  LAST  386 


4351 

4352 

4353 

4354 


C 5C72  1 
C 52C3  0 
0 5261  1 
C 5105  0 


TCNOVAC  TC 
TCUAIT  TC 
TCTSKOVR  TC 
TCFINOVC  TC 


NOVAC 
WAITLIST 
TASKOVER 
FI NOVAC 


4355  30000  I CHRPRIO  OCT  3OC00 


EXEC  PRIORITY  CF  CFARIN 


REF  6 LAST  433 


4356  03777  0 LOWll 

4356  B12-1 

4357  00377  1 LOWS 


OCT  3777 
EQUALS  LOWll 
OCT  377 


4360  00023  0 VDl 

4361  00021  1 NDl 

4362  00025  0 MCI 


OCT  23 
OCT  21 
OCT  25 


THESE  3 CONSTANTS  FORM  A PACKED  TABLE 
DCNT  SEPARATE^ 


4363  C0C12 


BINCON  DEC  10 


REF  20  LAST  407 

REF  12  LAST  454 
REF  132  LAST  465 


4364 

4365 

4366 

4367 


C 0006  1 
05  Cll  1 
0 0002  0 


FALTON 


CA 

EXTEND 

WOP 

TC 


B1T7 

DSALMCUT 

0 


TURN  ON  OPERATCP  ERROR  LIGHT 
BIT  7 OF  CHANNEL  11 


REF  21  LAST  465 

REF  13  LAST  465 
REF  133  LAST  465 


4370  4 4745  1 

4371  C 0006  1 

4372  03  011  1 

4373  C CC02  0 


FALTCF 


CS  BIT7 

EXTEND 

WAND  DSALMOUT 
TC  0 


TURN  OFF  OPERATOR  ERROR  LIGHT 
PIT  7 OF  CHANNEL  11 


REF  24  LAST  450 

REF  14  last  465 
REF  134  LAST  465 


4374 

4375 

4376 

4377 


3 4747  1 
C 0006  1 
CS  Cll  1 
0 0002  0 


RELDSPON 


CAF  BITS 

EXTEND 

WOR  DSALMOUT 

TC  0 


TURN  ON  KEY  RELEASE  LIGHT 
BIT  5 OF  CHANNEL  n 


gap: 

L 

2683 

2684 

2685 

2686 

2687 

2686 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

R2696 

R2697 

R2698 

R2699 

R2700 

R2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 


ASSERBLE  REVISION  131  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  OECo  19,1969  LEMCNAI0cir4  PAGE  466 


PINBALL  GAME  BUTTONS  ANO  LIGHTS 


USER'S  PAGF  NOo  7=  FO  S4 


REF  13  LAST  368 
REF  5 LAST  317 
REF  135  LAST  46 5 


4400  C CC06  1 

4401  3 0025  0 

4402  52  014  0 

4403  0 0002  0 


LODSAMPT  EXTEND 
DCA 
DXCH 


T IMe2 
SAMPTIME 
0 


REF  227 
REF  228 
REF  229 
REF  230 

REF  136 
REF  7 
REF  137 


LAST  462 
LAST  466 
LAST  466 
LAST  466 

LAST  466 
LAST  437 
LAST  466 


4404  0 0006  1 

4405  3 0156  0 

4406  20  156  I 

4407  6 0154  1 

4410  26  154  0 

4411  54  007  1 

4412  C 0002  0 

4413  54  162  0 

4414  C 0002  0 


TPSLl 


EXTEND 

OCA  MPAC  *1 

DAS  MPAC  +l 

AO  MPAC 

AOS  MPAC 

TS  7 

TC  Q 

TS  MPAC+6 

TC  0 


SHI FTS  MPAC,  +1,  +2  LEFT  1 

LEAVES  OVFIND  SET  TO  +/-  I FOR  OF/UF 


TS  A ODES  NOT  CHANGE  A CN  OF/UFc 
NO  NET  HF/UF 

MPAC  +6  SET  TO  +/-1  FCP  OF/UF 


IF  MPAC»  +1  ARE  EACH  ♦NZ  OR  +C  AND  C(A>=-C»  SHCRTMP  WRONGLY  GIVES  +Co 
IF  MPAC.  ARE  EACH  -NZ  OR  -0  ANC  C{AI=+0,  SHCRTMP  WRONGLY  GIVES  +0, 
PRSHRTMP  FIXES  FIRST  CASE  ONLY,  BY  MERELY  TESTING  C(A)  AND  IF  IT  = -O , 
SETTING  RESULT  TO  -Oo 

(DO  NOT  USE  PRSHRTMP  UNLESS  MPAC.  +1  ARE  EACH  +NZ  OR  +0,  AS  THEY  ARE 
WHEN  THEY  CONTAIN  TH  E SF  CCNSTANTSe) 


REF  2 
REF  152 
REF  3 
REF  6 


LAST 

LAST 

LAST 

LAST 


461 

466 

445 


REF  101  LAST  462 
REF  231  LAST  466 
REF  232  LAST  466 
REF  233  LAST  466 
REF  138  LAST  466 


4415 

4416 

4417 

4420 

4421 

4422 

4423 

4424 

4425 

4426 


54  135  1 
10  OOO  n 

3 0135  0 
1 7313  0 
1 4417  0 

4 4755  0 
54  154  0 
54  155  1 
54  156  1 
0 0002  0 


TCF 

TCF 


MPTEMP 

A 

MPTEMP  C(A)  +,  OC  REGULAR  SHORTMP 

SHORTMP  +l  C(A)  +0,  00  REGULAR  SHCRTMP 

-2  C(A»  -,  DO  REGULAR  SHORTMP 

ZERO  f(Al  -0,  FORCE  RESULT  TC  -o  AND  RETURN, 

MPAC 

MPAC  +1 
MPAC  +2 
0 


REF  36  LAST  328 

REF  15  LAST  465 
REF  139  LAST  466 


4427  2 4746  0 

4430  0 0006  1 

4431  05  011  1 

4432  0 0002  0 


FLASHON  CAF 

EXTEND 

WCR 

TC 


BI  T6 

DSALMOUT 

Q 


TURN  ON  V/N  FLASH 
BIT  6 OF  CHANNEL  11 


REF  37  LAST  466 

REF  16  LAST  466 
REF  140  LAST  466 


4433  4 4746  1 

4434  C 0G06  1 

4435  03  011  1 

4436  0 0002  0 


FLASHOFF  CS 

EXTEND 


WAND 


6IT6 

DSALMOUT 


TC  Q 


TURN  OFF  V/N  FLASH 
BIT  6 OF  CHANNEL  11 


gap;  assemble  revision  131  CF  A6C  FPCGPAM  LUMINARY  0Y  NASA  2021112-091 
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L PI^eALL  GAME  EUTTONS  ANC  LIGHTS  USER'S  PAGE  NC*  76  EO  S4 

P2720  INTERNAL  USE  CF  KEYECARC  AND  CISPLAY  PROGRAM 

R2721  USER  MUST  SCHtDULE  CALLS  'TC  NVSLB  SC  THAT  THERE  IS  NQ  CONFLICT  CF  USE  OR 

R2722  CONFUSION  TC  OFERATORo  THE  OLC  GRABLOCK  IINT ERNAL / INTERNA L INTERLOCK! 

R2723  HAS  BEEN  REMOVED  AND  THE  INTERNAL  USER  NC  LONGER  HAS  THE  PROTECTION  THIS 
R2724  QFFEREOs 


R2725 
R 2726 
R2727 
R2728 
R2729 
R2730 
R2731 


THERE  ARE  TKC  UAYS  A JGB  CAN  EE  PUT  TO  SLEEP 
PROGRAM*  I)  BY  ENOIDLE 
2!  BY  NVSU0USY 

THE  BASIC  CCNVENTICN  IS  THAT  ONLY  CNE  JOB  WIL 
THE  KEYBOARD  + DISPLAY  PROGRAM  AT  A TIMEo  IF 
SLEEP  BY  MEAN'S  OF  (1)  OR  (21  ANC  THERE  IS  ALR 
PUT  TO  SLEEP  BY  (1»  OR  (21,  THEN  AN  ABORT  IS 


BY  THE  KEYBOARD  + DISPLAY 


L BE  PERMITTED  ASLEEP  VIA 
A JOB  ATTEMPTS  TO  GO  TO 
EAOY  A JOB  ASLEEP  THAT  ViAS 
CAUSED* 


R2732  THE  CALLING  SEQUENCE  FOR  NVSUB  IS 
R2733  CAF  V/N 

R2734  L TC  NVSUB 

R2735  L+1  RETURN  HERE  IF  OPERATOR  HAS  INTERVENED 

R2736  L+2  RETURN  HERE  AFTER  EXECUTION 


R2737 

R2738 

R2739 

R2740 

R2741 


A ROUTINE  CALLED  NVSUPLSY  IS  PRCVIOEC  (USE  IS  OPTIONAL!  TO  PUT 
YCUR  JOB  TO  SLEEP  UNTIL  THE  CPERATQR  RELEASES  THE  KEYBOARD  + DISPLAY 
SYSTEM*  NVSUBUSY  ALSC  TURNS  CN  THE  KEY  RELEASE  LIGHT* 

NVSUBUSY  CANNOT  BE  CALLED  FRCM  ERASABLE  OR  F/F  MEMORY, 

SINCE  JCBSLEEP  AND  JOBWAKE  CAN  HANDLE  ONLY  FIXED  BANKS* 


R2742  THE  CALLING  SEQUENCE  IS 

R2743  CAF  WAKEFCAOR 

R2744  TC  NVSUBLSY 


R2745  ♦ 


R2746  NVSUBUSY  IS  INTENDED  FOR  USE  WHEN  AN  INTERNAL  PROGRAM  FINOS  THE  OPERATCR 
R2747  IS  USING  THE  KEYBOARD  + DISPLAY  PROGRAM  (BY  HIS  CWN  INITIATION)*  IT  IS 
R2748  NCT  INTENDED  FOR  USE  WHEN  ONE  INTERNAL  PROGRAM  FINDS  ANOTHER  INTERNAL 
R2749  PROGRAM  USING  THE  KEYBOARD  + DISPLAY  PROGRAM* 


R2750  NVSUBUSY  ABORTS  (KITH  CODE  01206)  IF  A SECCNO  JOB  ATTEMPTS  TO  GC  TO 

R2751  SLEEP  IN  PINBALL*  IN  PARTICULAR,  IF  AN  ATTEMPT  IS  MADE  TO  GO  TO  NVSUBUSY 

R2752  WHEN 

R2753  1)  DSPLIST  NOT=  +0*  THIS  IS  THE  CASE  WHERE  THE  CAPACITY  OF  THE  OSPLIST 

R2754  IS  EXCEEDED* 

R2755  2)  CAORSTCR  NOT=  +0*  THIS  INDICATES  THAT  A JOB  IS  ALREADY  USING 


GAP;  ASSeMf^e  REVISION  131  CF  AGC  PRCGRAR  LUMINARY  BY  NASA  2021112-091 


17:53  pec«  19,1069  LEMONAlO  lOA  PAGE  468 


L PINBALL  GAME  BUTTONS  AND  LIGHTS 


US  ER'S  PAGE  NOo  77  Ef  SA 


R2756  6^D^0LEo  (+-NZ  INCIC^T£  A JOE  IS  ALREADY  ASLEEP  DUE  TO  ENQIOLE*) 


2757  REF  1 

2758  REF  141  LAST  466 

2759  REF  2 LAST  459 

2760  REF  34  LAST  460 

2761  REF  1 

2762 


4437  4 4444  Q PRENVBSY  CS 

4440  6 0002  0 AD 

4441  6 0004  0 AD 

4442  C 4635  0 NVSU8USY  TC 

4443  10633  0 CADR 

4444  02003  0 2K+3  OCT 


2K+3 

0 

FBANK 

POSTJUMF 

NVSUBSYl 

2003 


special  ENTRANCE  FOP  ROUTINFS  IN  FIXED 
BANKS  ONLY  DESIRING  THE  FCADR  OFILOC 
FROM  WHICH  THE  TC  PRENVBSY  WAS  DONEl  -2 
TO  PE  ENTEREDo 


R27625  NVSUBSYl  MUST  BE  IN  BANK  27  CR  LOWER,  SO  IT  WILL  PUT  CALLER  TC  SLEEP 
R27626  WITH  HIS  PROPER  SUPERBITSo 


2763  REF 
27635  REF 

2764  REF 

2769  REF 

2770  REF 

2771  REF 
277?  REF 

2773  REF 

2774  ref 


1 

2 LAST  461  TO 

62  LAST  462 
2 LAST  459 

2 LAST  459 

3 LAST  443 

63  LAST  468 
3 LAST  459 
3 LAST  459 


04,2633 

462; 

04.2633 

04.2634 

04.2635 

04.2636 

04.2637 

04.2640 

04.2641 


9 94 

54  001  1 
0 4220  0 
0 4224  1 
0 4374  0 
3 0001  0 
55*042  1 
C 5133  0 


NVSUBSYl 


ENCNVBSY 


SETLOC  ENDSPMM  +1 
COUNT*  $$/PIN 
TS  L 

TC  ISCAOR+0 

TC  lSLIST+0 

TC  RELOSPCN 

CA  L 

TS  DSPLIST 

TC  JOBSLEEP 


ABORT  IF  CACRSTOP  NOT=  +0^ 
ABORT  IF  DSPLIST  NCT=  +C« 


R2775  NVS6WA1T  IS  A SPECIAL  ENTRANCE  FOR  ROUTINES  IN  FIXED  BANKS  ONLY*  IF 
R2776  SYSTEM  IS  NOT  BUSY,  IT  EXECUTES  V/N  ANC  RETURNS  TC  L+1  (L=  LCC  FROM 

R2777  WHICH  THE  TC  NVSBWAIT  WAS  DONEIo  IF  SYSTEM  IS  BUSY,  IT  PUTS  CALLING  JOB 

R2778  TO  SLEEP  WITH  L-1  GCIN6  INTO  LIST  FOR  EVENTUAL  WAKING  UP  WHEN  SYSTEM 
R2779  1 S NOT  BUSYo 


2780 
27805 
2701 

2782 

2783 

27831 

27832 

27833 

27834 

2784 
A2785 

2786  REF 

2787  REF 


1 

6 LAST 

9 LAST 
44  LAST 
10  LAST 
8 LAST 
153  LAST 
1 
1 

142  LAST 
1 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


4445 

464  TO  468: 

4445 

461  4446 

460  4447 

460  4450 

460  4451 

466  4452 

4453 

4454 


98  2‘)9* 

22  007  0 
54  123  0 
3 4736  1 
7 1020  0 
6 1011  0 
1C  000  0 
1 4455  0 
1 4164  1 


468 


4455  24  002  0 

4456  1 4437  1 


SETLOC  NVSUeUSY 

COUNT*  S$/PIN 

NVSBWAIT  LXCH  7 

TS  NVTEMP 

CAF  eiT14 

MASK  MONSAVEl 

AC  DSPLOCK 

CCS  A 

TCF  NVSBWTl 

TCF  NVSBCOM 


NVSBWTl  INCR 
TCF 


Q 

PRENVBSY 


+ 3 


ZERO  NVMONOPT  OPTIONS 


EXTERNAL  MCMTCR  BIT 


BUSY 

FREE,  NVSUB  WILL  SAVE  L+1  FOR  RETURN 
AFTER  eXECUTIONo 

L + ?<.  PRENVBSY  WILL  PUT  L-3  INTO  LIST  AND 
GO  TO  SLEEPo 


R2788 

R2789 

R2790 

2791 

2792 
27921 


RELDSP  IS  USED  BY  VBPROC,  V8TERM,  V6RQEXEC,  V8RQWAIT,  VBRELOSP, 

VERB  DISPATCHER,  VBRESEQ,  RECALTSTo 

RELOSPl  IS  USED  BY  MCNITOR  SET  UP,  VBRELOSPo 

REF  143  LAST  468  4457  56  002  0 RELDSP  XCH  Q 

REF  1 4460  54  144  1 TS  RELRET 

REF  45  LAST  468  4461  4 4736  C CS  8IT14 


EXTENDED 


SET  OSPLQCK  TO  +0,  TURN  RELDSP  LIGHT 
OFF,  SEARCH  DSPL  1ST 


gap:  assemble  REVISION  131  OF  AGC  PROGRA^  LUPINARY  BY  NASA  2021112-091 


L PINBALL  GAPE  BUTTCNS  ANC  LICKTS 


27922 

27923  REF  11 

2792A  REF  12 

2793  REF  A 

279A 

2795  REF  1 

2796  REF  102 

2797  REF  5 

2799  REF  A 

2800 

2801  REF  25 

2802 

2803  REF  17 

2804  REF  103 

2805  REF  9 

2807  REF  2 

28C8  REF  lAA 

2809  REF  3 

A2610 

A2811 

2812  REF  6 

2813 

2814  REF  2 

2815  REF  104 

2816  REF  10 

2817  REF  4 


LAST  468 
LAST  469 
LAST  468 


LAST  466 
LAST  469 
LAST  462 

LAST  465 

LAST  466 
LAST  469 
LAST  468 
LAST  468 
LAST  468 
LAST  469 


LAST  469 

LAST  469 
LAST  469 
LAST  469 
LAST  469 


4462  0 0004  0 

4463  7 1C20  0 

4464  55'020  0 

•4465  11'042  I 

4466  0 4470  0 

4467  0 4473  0 

4470  3 4755  I 

4471  57*042  0 

4472  C 5137  1 

4473  C 0CC3  1 

4474 

4475 

4476 

4477 

4500 

4501 

4502 

4503 


INHINT 

MASK  MCNSAVEl 

TS  MONSAVEl 

CCS  DSPLIST 

TC  +2 

TC  PEL0SP2 

CAF  ZERC 

XCH  OSPLIST 

JOeWAKF 

BIT5 

OSALMOIT 
ZERO 
DSPLCCK 
RELPET 
0 

PELRET 


TC 

R6LDSP2  RELINT 
4 4747  0 CS 

C 0006  1 EXTEND 

02  011  1 WAND 

3 4755  1 CAF 

55*011  1 TS 

0 0144  0 TC 

56  0C2  0 RELCSPl  XCH 
54  144  I TS 


4504  11*042  1 

4505  0 4507  1 

4506  0 4473  0 

4507  3 4755  1 

4510  55*011  1 

4511  0 0144  0 


CCS  DSPLIST 

TC  +2 

TC  RELDSP2 

CAF  ZERO 

TS  DSPLOCK 

TC  RELRET 


2618 


4512 


ENCPINBF  EQUALS 


17:53  DEC,  19,J969  LEMONAIOolOA  PAGE  469 


USER*  S PAGE  NOo  78  EO  S4 


TURN  OFF  EXTERNAL  MONITOR  BIT 


LIST  EMPTY 


TLRN  OFF  KEY  RELEASE  LIGHT 
(BIT  5 OF  CHANNEL  11  ) 


SET  DSPLOCK  TO  NO  DSPLIST  SEARCH, 

TURN  KEY  RLSE  LIGHT  OFF  IF  OSPLIST  IS 
EMPTYo  LEAVE  KEY  PLSE  LIGHT  ALONE  IF 
OSPLIST  IS  NOT  EMPTY, 

+ NOT  EMPTYc  LEAVE  KEY  RLSE  LIGHT  ALONE 
+0  EMPTYo  TURN  OFF  KEY  RLSE  LIGHT 
- NOT  EMPTYn  LEAVE  KEY  RLSE  LIGHT  ALONE 


gap:  assemble  revision  131  CF  AGC  FRCGRAM  LUMINARY  BY  NASA  2321112-091 


17:53  OeCj  19,1969  L EMONA  lOr  1 O/*  PAGE  470 


L 

P28181 

26182 


PINBALL  GAME  BUTTONS  AND  LIGHTS 
PINTEST  IS  NEEDED  FCR  AUTC  CHECK  CF  PINBALL. 
REF  2 LAST  263  ^3,2002 


USER’S  PAGE  NCo  79 


eO  S4 


PINTEST  EQUALS  LST2FAN 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCCRAM  LUMINARY  BY  NASA  20211  12-091 


17:53  DECo  19,1969  LEM0NAI0-.  lOA  PAGE  471 


L PINBALL  GAME  BUTTONS  AND  LIGHTS  USER'S  PAGE  NOo  BT  EO  S^ 

P2819  VETSTLTS  TURNS  ON  ALL  DISPLAY  PANEL  LIGHTS*  AFTER  5 SEC,  IT  TURNS 
R2820  OFF  THE  CAUTION  AND  STATUS  LIGHTS* 


2821  REF 


SETLOC  ENDNVSBl  +1 


28215  REF 
2822 

28222  REF 
28224  REF 

2823  REF 

2824  REF 

2825  REF 

2826  REF 


8 LAST 

95  LAST 
6 LAST 

24  LAST 

19  LAST 

25  LAST 

20  LAST 


456  TO  450: 

41,3626 
451  41,3627 
292  41  ,3630 
461  41,3631 
224  41,3632 
471  41  ,3633 
471  41,3634 


61  918* 

C 0004  0 
C 4616  1 
66121  0 
4 4753  0 
7 1300  1 
6 4753  I 
55'3CC  I 


VeTSTLTS 


COUNT*  t$/PlN 
INHINT 

TC  BANKCALL 

CACR  CHKPOOH 

CS  BITl 

MASK  IMODESSB 

AO  BITl 

TS  IMCDES33 


OPP  ERR  IF  NOT  IN  POO 

SET  BIT  1 OF  IM0DES33  SO  IMUMON  WONT 
TURN  OUT  ANY  LAPPS* 


2827  REF 

2828 

2829  REF 

2830  REF 

2831  REF 
28311  REF 

2832  REF 

2833 

2834  REF 

2835  REF 

2836  REF 

2837  PEF 

2838  REF 

2839  REF 

2840  REF 

2841  REF 

2842  REF 

2843  REF 

2844  REF 

2845  REF 

2846  REF 

2847  PEF 

2848 

2849  REF 

2850 

2851  REF 

2852  REF 

2853  PEF 

2853  REF 

2854  REF 
A2855 
42856 


1 

18  LAST  469 

1 

27  LAST  457 
1 

21  LAST  420 

5 LAST  222 
5 LAST  402 
1 
1 

2 LAST  471 

28  LAST  471 

3 LAST  471 
1 

1 

29  LAST  471 

30  LAST  471 

31  LAST  471 
1 

9 LAST  457 


18  LAST  465 
32  LAST  471 
1 
1 

62  LAST  462 


41.3636 

41. 3637 
41  ,3640 

41.3641 

41.3642 
41  ,3643 

41.3644 

41.3645 

41.3646 

41.3647 
41  ,3650 

41.3651 

41.3652 
41  ,3653 

41.3654 

41.3655 

41.3656 

41.3657 
41  ,3660 
41  ,366’ 
41,3662 
41  ,3663 

41.3664 

41 . 3665 

41.3666 
1022 

41.3667 

41.3670 

41.3671 


05  on  1 

3 3675  0 
55'C35  I 
0 6022  1 
3 4742  1 
0 C006  1 
05  013  0 

3 4363  0 
54  117  1 

4 3672  0 
50  117  0 
55*022  1 
10  117  1 
C 3647  1 
4 3673  1 
55*023  0 
55*026  0 
55*030  1 
3 4760  I 
55*015  0 
0 0003  1 
3 3677  1 
0 0004  0 
0 5203  0 

03700  0 
62102  0 
0 5155  0 


TSTLTSl 


CAF  TSTCONl 

EXTEND 

WOR  OSALMOLT 

CAF  TSTCnN2 

TS  DSPTA0  +110 
TC  fl3STALL 

CAF  8IT10 

EXTEND 

WOR  CHAM3 

CAF  TEN 

TS  ERCNT 

CS  FULLOSP 

INDEX  ERCNT 

TS  0SPTA8 

CCS  EPCNT 

TC  TSTLTSl 

CS  FULLOSPl 

TS  DSPTA8  +1 

TS  OSFTAB  +4 

TS  DSPTA8  +6 

CAF  ELEVEN 

TS  NOUT 

PEL  INT 

CAF  SHCLTS 

INHINT 

TC  WAITLIST 

EBANK=  DSPTA6 
2CA0P  TSTLTS2 

Tf  ENDOFJOB 


TURN  ON  UPLINK  ACTIVITY,  TEPP,  KEY  RLSE, 
V/N  FLASH,  OPERATOR  ERROR 

TURN  ON  NO  ATT,  GIPBAL  LOCK,  TRACKER, 
FROG  ALMo 


TURN  ON  TEST  ALARM  OUTBIT 


TURN  ON  3 PLUS  SIGNS 


OSPLOCK  IS  LEFT  BUSY  (FROM  KEYBOARD 
ACTION)  UNTIL  TSTLTS3  TO  INSURE  THAT 
LIGHTS  TEST  WILL  PE  SEEN* 


2857 

2858 


41.3672  05675  0 FULLOSP  OCT  05675  DISPLAY  ALL  8:S 

41.3673  07675  I FULLOSPl  OCT  07675  DISPLAY  ALL  8:S  AND  + 
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2859 

A2e60 

A2B61 

2862 

A2863 

286<> 

A2865 

2866 


41i3674  00175  1 TSTCONl  OCT 


00175 


ill  ,3675  4067^ 

A1,3676  00115 

A1,3677  C076A 


0 TSTC0N2  OCT 

1 TSTC0N3  OCT 
1 SHOLTS  OCT 


A067A 

00115 

764 


2867 

2668 

2869 


fee  4 LAST  461 
REF  8 LAST  465 
REF  33  LAST  471 


41.3700  3 4355  0 

41.3701  0 5072  1 
1022 


TSTLTS2 


CAF  CHRPRIO 

TC  NOVAC 

E0ANK=  OSPTAB 


2870  BEF  1 

2870  REF  1 

2871  REF  14  LAST  465 


41  ,3702  03705  0 

41.3703  62102  0 

41.3704  0 5261  1 


2CADR  TSTLTS3 
TC  TASK0V6R 


2872  PEF 

2873 
2 874 

2875  BEF 
28751  REF 

2876  REF 

2877 

2878  BEF 

28781  REF 

28782 

28783  REF 

2879  RFF 

2880  REF 
2081  BEF 
2882  BEF 
2 883  REF 
2884  BEF 


1 


19  LAST  471 

2 LAST  471 

22  LAST  471 

6 LAST  471 
21  LAST  334 

23  LAST  290 
27  LAST  458 
34  LAST  472 

1 

21  LAST  471 

3 LAST  225 

22  LAST  472 


41.3705  4 3676  1 

41.3706  0 0004  0 

41.3707  0 0006  1 

41.3710  03  011  1 

41.3711  C 6022  1 

41  ,3712  4 4742  0 

41.3713  n 0006  1 

41.3714  03  C13  0 

41  ,3715  3 4750  1 

41.3716  C 0006  1 

41.3717  C2  012  0 

41.3720  6 4735  1 

41.3721  55*035  I 

41  ,3722  4 3745  0 

41.3723  7 1300  1 

41.3724  6 5026  0 

41  ,3725  55*  300  1 


TSTLTS3 


CS  TSTC0N3 

INHINT 

EXTEND 

ViANC  DSALMCUT 

TC  C13STALL 

CS  BITIO 

EXTEND 

WAND  CHAN13 

CAF  BIT4 

EXTEND 

RAND  CHAN12- 

AO  6IT15 

TS  OSPTAB  +1 

CS  13-11,1 

MASK  IM00ES33 

AD  PPI016 

TS  IHOOES33 


2885 

2886 
2387 
2888 


REF  1 

ref  42  LAST  229 
ref  4 LAST  261 
REF  43  LAST  472 


41.3726  4 3747  1 

41.3727  7 1277  0 
41,3720  6 5025  0 
41,3731  55*277  0 


CS  OCT550nO 

MASK  IMOOES30 

AO  PRIG15 

TS  IM00eS30 


2689 

2890 

2091 

2892 


REF  28  LAST  420 
REF  3 LAST  186 
REF  29  LAST  472 


41  ,3732 

41.3723 

41.3724 
41,3735 


4 3746 
7 Clio 
6 4745 
54  110 


0 

0 

0 

0 


CS  RFAILS2 

MASK  PACMCDES 

AD  FCOUFBIT 

TS  PADMQOCS 


2893 


41,2736  0 00C3 


RELINT 


2804  REF  96  LAST  471 

2895  REF  1 


41 ,3737  0 4616  1 

41,3740  10622  0 


TC  BANKCALL 

CACR  DSP^‘M 
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USFP'S  PAGE  Nflo  81  FO  S4 


UPLINK  ACTIVITY,  TEMP,  KEY  PL SE , 

V/N  FLASH,  OPERATCR  ERPOR^ 

OSPTAB+110  BITS  3,4,5,6,8,96  LR  LITES, 
NO  ATT,  GIMBAL  LOCK,  TRACKER,  PROG  ALM« 
CHAN  11  BITS  1,3,4,  7o 
UPLINK  ACTIVITY,  TEMP,  OPERATOR  ERROR; 

5 SEC 


CALLED  BY  WAITLIST 


CALLED  BY  EXECUTIVE 

TURN  OFF  UPLINK  ACTIVITY,  TEMP, 
OPERATOR  eRROR« 

TURN  OFF  TEST  ALARM  OUTBIT 


MAKE  NO  ATT  FOLLOW  BIT  4 OF  CHANNEL  12 
(NO  ATT  LIGHT  ON  IF  IN  COARSE  ALIGNI 

TURN  OFF  AUTO,  HOLD,  FREE,  SPARE, 

GIMBAL  LCCK,  SPARE,  TRACKER,  PROG  ALM 
SET  BITS  TO  INDICATE  ALL  LAMPS  OUTo  TEST 
LIGHTS  COMPLETEo 


ISOnOo 


REDISPLAY  CIMOOREGI 
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USER'S  PAGE  NOo  82  EO  SA 


2 896 
2697 

2898 

2899 

2901 

2902 

2903 

2904 


REF  4 LAST  456 

REF  5 LAST  457 

REF  35  LAST  468 

PFF  1 


^1,3741 

41.3742 

41.3743 
41  ,3744 

41.3745 

41.3746 

41.3747 
41,3750 


0 4204  0 
0-4433  1 
0 4635  0 
61534  1 
I6CC1  1 
00330  1 
55000  I 


13-11 ,1 
RFAILS2 
OCT55OO0 
EN0PINS2 


TC  KILMONON 

TC  FLASHCFF 

TC  POSTJUMP 

CADR  TSTLTS4 

OCT  ) 600) 

OCT  330 

OCT  55000 

EQUALS 


TURN  ON  KILL  MOMTCR  BIT« 

TURN  OFF  V/N  FLASH, 

DOES  RELOSP  AND  GOES  TO  PINBRNCH  IF 
ENDIDLE  IS  AWAITING  OPERATOR  RESPONSE, 

RADAR  COU  AND  DATA  FAIL  FLAGS-. 
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P2905  ERROR  LIGHT  RESET  (RSET)  TURNS  OFF, 

R2906  UPLINK  ACTIVITY,  AUTC,  HOLD,  FREE,  CPERATCR  ERROR, 

R2907  PROG  ALM,  TRACKER  FAILo 

R2908  LEAVES  GIVBAL  LCCK  ANC  NO  ATT  ALONE* 

R2909  IT  ALSO  ZEROES  THE  ;TEST  ALARM:  CUT  BIT,  WHICH  TURNS  OFF  ST  BY , P EST ART  * 

R2910  IT  ALSO  SETS  :CAUTION  RESET:  TO  1* 

R2911  IT  ALSC  FORCES  BIT  12  CF  ALL  CSPTAB  ENTRIES  TO  I* 


2912  REF 
29125  REF 

2913  RFF 

2914  REF 
2 915 

2916  REF 

2917 

2918  REF 

2919  REF 

2920  REF 

2921  REF 

2922  REF 

2923  REF 

2924  REF 

2925  REF 

2926  P.EF 

2927  REF 

2928  REF 

2929  REF 

2930  REF 


2 LAST 

10  LAST 

3 LAST 

11  LAST 

23  LAST 

20  LAST 
1 

35  LAST 
28  LAST 

36  LAST 

4 LAST 

23  LAST 

5 LAST 

24  LAST 

24  LAST 

44  last 

25  LAST 

45  LAST 


462  40,3646 

462  TO  464: 
454  40,3646 

469  40,3647 

40,3650 
472  40,3651 

40,3652 
472  40,3653 

40,3654 
472  40,3655 

472  40,3656 

474  40,3657 

472  40,3660 

472  40,3661 

474  40,3662 

474  40,3663 

474  40,3664 

472  40,3665 

474  40,3666 

474  43,3667 


39  871’ 
56  115  1 
55'Cll  1 
C 0004  0 

3 4742  1 
C 0006  1 
C5  011  1 
2 3735  C 
7 1035  1 

6 4735  1 
55'C35  1 

4 5026  1 

7 1300  1 

6 5026  0 
55*300  1 
4 4742  0 

7 1277  0 
6 4742  1 
55*277  0 


ERROR 


SETLOC  DOPRCC  +2 

COUNT*  $*/PIN 

XCH  21/22RFG 

TS  DSPLCCK 

INHINT 

CAF  BITIO 

EXTEND 

WOR  DSALMOUT 

CAF  GL+NCATT 

MASK  DSPTAB  +U0 

AD  BIT15 

TS  DSPTAB  +nO 

CS  PPI016 

MASK  IM0CES33 

AD  PRini6 

TS  IMOOES33 

CS  BITIO 

MASK  IM0DES30 

AO  BITIO 

TS  IMCDES30 


PESTORE  ORIGINAL  C(OSPLOCK).  THUS  ERROR 
LIGHT  RESET  LEAVES  DSPLOCK  UNCHANGEOo 

TURN  ON  iCAUTTON  RESET:  OUTBIT 

BITIO  CHAN  1} 

LEAVE  GIMBAL  LCCK  AND  NO  ATT  INTACT, 
TURNING  OFF  AUTC,  FCLO,  FREE, 

PROG  ALARM,  AND  TRACKER- 

RESET  FAIL  BITS  WHICH  GENERATE  PROG 
ALARM  SO  THAT  IF  THE  FAILURE  STILL 
EXISTS,  THE  ALARM  WILL  CCME  BACK, 


2931 

2932 

2933 

2934 


REF  1 

REF  30  LAST  472 
REF  4 LAST  472 
REF  31  LAST  474 


40.3670  4 3734  0 

40.3671  7 0110  0 

40.3672  6 4745  0 

40.3673  54  110  0 


CS  RFAILS 

MASK  RACMOCES 

AD  RCDUFBIT 

TS  RAOMODFS 


29341 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 
294^ 

2945 

2946 

2947 
2949 
2949 


REF  7 
REF  1 

REF  21 
REF  2 
REF  6 


REF  5 
REF  37 
REF  56 
REF  1 
REF  59 
PEF  154 


LAST  472 


LAST  474 
LAST  445 
LAST  471 

LAST  474 
LAST  474 
LAST  463 

LAST  474 
LAST  468 


40.3674  C 6C22  I 

40.3675  t-  4742  0 

40.3676  C 0006  1 

40.3677  C3  C13  0 

40.3700  4 3733  1 

40.3701  C 0006  1 

40.3702  03  011  1 

40.3703  3 4363  0 

40.3704  54  117  1 

40.3705  C 0004  0 

40.3706  50  117  0 

40.3707  11*022  1 

40.3710  6 4753  1 

40.3711  C 3716  1 

40.3712  6 4753  1 

40.3713  4 0000  0 


TSTA8 


ERM  INUS 


TC 

CS 

EXTEND 

WAN'D 

CS 

EXTEND 

WAND 

CAF 

TS 

INHINT 

INDEX 

CCS 


CHAM3 

ERCON 


DSALMOLT 

BINCON 

ERCNT 

ERCNT 

DSPTAB 

ONE 

ERPLUS 

ONE 

A 


TURN  OFF  :TEST  ALARM:  OUTBIT, 


TURN  OFF  UPLINK  ACTIVITY, 
OPERATOR  ERRORS 

(DEC  10) 

FRCNT  = COUNT 
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USER’S  PAGE  NOo  PA  EO  SA 


2950  REF 

2951  PEF 

2952  REF 

2953  REF 
295A  REF 

2955  REF 

2956  REF 

2957 

2950  REF 

2959  REF 

2960  PEF 

2961  REF 
29611  REF 

2962  REF 

2963  REF 


1 

1 

155  LAST 
2 LAST 

156  LAST 

6 LAST 
38  LAST 

7 LAST 
1 

105  LAST 

5 LAST 

6 LAST 
2 LAST 

63  LAST 


A7A 
475 
47  5 
474 

474 

475 

469 
307 
475 
10  8 
47  1 


40.3714  7 3736  1 

40.3715  0 3721  0 

40.3716  A 0000  0 

40V3717  7 3736  1 

40.3720  4 0000  0 

40.3721  5C  117  0 

40.3722  55'022  1 

40.3723  C 0003  1 

40.3724  10  117  1 

40.3725  C 3704  1 

40.3726  3 4755  1 

40.3727  54  375  1 

40.3730  54  376  1 

40.3731  55*357  0 

40.3732  0 5155  0 


ERPLUS 


ERCOM 


MASK  N0TBIT12 

TC  ERCOM 

CS  A 

MASK  N0TBIT12 

CS  A 

INDEX  ERCNT 

TS  nSPTAB 

RELINT 

CCS  ERCNT 

TC  TSTAB  +1 

CAP  ZERO 

TS  FAILREG 

TS  FAILREG  +1 

TS  SFAIL 

TC  ENDOFJOB 


MIGHT  WANT  TO  RESET  CLPASS,  OECBRNCH, 
ETCo 


2964 

A2965 

2966 
29665 

2967 


40,3733  00104  1 ERCCN 


OCT  lOA 


40.3734  00330 

40.3735  00050 

40.3736  73777 


1 RFAILS  OCT 
1 GL+NOATT  OCT 
1 N0TBIT12  OCT 


330 

00050 

73777 


CHAN  1.1  BITS  ^,7. 

UPLINK  ACTIVITY,  AND  OPERATOR  FRRORo 
RAOAP  COU  AND  DATA  FAIL  FLAGS. 

NO  ATT  AND  GIMBAL  LOCK  LAMPS 


2968 


40,3737 


ENCPINSl  EQUALS 


REF  5 LAST  322  30,2000 


S8ANK=  LOWSUPER 


2969 
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L 

R60,R62  USER'S  PAGF  NOo  1 60  S? 

ROlOO 

MCO  NO:  0 DATE:  1 MAY  1968 

ROlOl 

MCD  BY;  DIGITAL  OEVEL  GROUP  LCC-  SECTION  R60,R62 

R0102 

FUNCTIONAL  CESCRIPTICN: 

R0103 

R0104 

CALLEC  AS  A GENERAL  SUBROUTINE  TO  MANEUVER  THE  LM  TO  A SPECIFIED 

ATTITLDEo 

R0105 

R0106 

1,  IF  THE  3-AXIS  FLAG  IS  NOT  SET  THE  FINAL  CDU  ANGLES  ARE 

CALCULATED  (VECPOINTU 

R0107 

2c  THE  FOAI  BALL  ANGLES  (NCUN  18)  ARE  CALCULATED  (BALLANGS)® 

R0108 

3c  REQUEST  FLASHING  DISPLAY  V50  NIB  PLEASE  PERFORM  AUTO  MANEUVER^ 

R0109 

ROllO 

4c  IF  PRIORITY  DISPLAY  FLAG  IS  SET  DC  A PHASECHANGF®  THEN  AHAIT 

ASTRONAUT  RESPONSE® 

ROlll 

5c  DISPLAY  RESPONSE  RETURNS: 

R0112 

Ac  ENTER  - RESET  3-AXIS  FLAG  AND  RETURN  TO  CLIENT® 

R0113 

R0114 

R0115 

6®  TERMINATE  - IF  IN  POO  GO  TO  STEP  5Ao  OTHERWISE  CHECK  IF  R61  IS 

THE  CALLING  PROGRAM®  IF  IN  R61  AN  EXIT  IS  MADE  TO  GOTOVSEc  IF 

NOT  IN  R61  AN  EXIT  IS  OCNE  VIA  GOTCPODH® 

R0116 

Co  PROCEED  - CONTINUE  WITH  PRCGRAM  AT  STEP  6® 

R0117 

R0118 

6c  IF  THE  3-AXlSFLAG  IS  NCT  SET,  THE  FINAL  CDU  ANGLES  ARE  CALCULATED 
(VECPOINT), 

R0119 

7o  THE  FDAl  BALL  ANGLES  (NCUN  18)  ARE  CALCULATED  (BALLANGS)® 

R0120 

8c  IF  THE  G + N Sl^ITCH  IS  NOT  SET  GC  BACK  TC  STEF  3o 

R0121 

9c  IF  THE  AUTO  SWITCH  IS  NOT  SET  GO  BACK  TO  STEP  3c 

R0122 

ICc  NONFLASHING  DISPLAY  V06N18  (FCAI  ANGLES)® 

R0123 

lie  DO  A PHASEChANGEc 

R0124 

12o  DC  A MANEUVER  CALCULATICN  ANC  ICDU  DRIVE  ROUTINE  TO  ACHIEVE  FINAL 

R0125 

R0126 

GIMEAL  ANGLES  (GOMANURI® 

13c  AT  END  OF  MANEUVER  GO  TO  STEP  3c 

k0127 

R0128 

R0129 

IF  SATISFACTORY  MAKELVER  STEP  5A  EXITS  R60c 

FOR  FURTHER  ADJUSTMENT  OF  THE  VEHICLE  ATTITUDE  ABOUT  THE 

DESIRED  VeCTCR,  THE  ROUTINE  MAY  EE  PERFORMED  AGAIN  STARTING  AT 
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L htO,R62 

R0130  STEP  5C« 


R0131  CALLING  SECUENCE:  TC  BANKCALL 
R0132  CAOR  RSCLEM 


R0133  ERASABLE  INITIALIZATION  REQUIRED  : SCAXISi  POINTVSM  IFOR  VECPOINT) 
R013A  SAXISFLGo 


R0135  SUBROUTINES  CALLED:  VECPOINT,  PALLANGS,  GCPERF2R,  LINUSt  GQCSPER, 
R0136  GCMANUR,  CCWNFLAG,  PhASCHNG,  UPFLAG 


R0137  NORMAL  EXIT  MOOES:  CAE  TEMPR6n  (CALLERS  RETURN  ACCRESSI 
R0138  TC  BANKJUMP 


R0139  ALARMS:  NONE 

R0140  OUTPUT:  NONE 

R0141  DEBRIS:  CPHI,  CTHETA,  CPSI»  3AXISFLG,  TBASE2 


0142 

0143  REF 

0144 


34.2000 

26.2000 
26,2123 


BANK  3<- 
SETLCC  MANUVER 
BANK 


0145  REF 


1163 


EBANK=  TEMPR60 


0146  REF 

0147  REF 

0148  REF 


1 

2 LAST  272 
2 LAST  477 


26,2123 

26,21.24 


COUNT*  $S/R06 

0 4645  1 R60LEM  TC  MAKECADR 

55*163  0 TS  TEMPR60 


0149  REF  ] 

0150  REF  13  LAST  292 

0151  REF  157  LAST  475 

0152  REF  1 

0153  REF  28  LAST  390 

0154 

0155  REF  2 LAST  342 

0156  REF  5 LAST  371 

0157 


26,2125  2 4746  0 REOOMANN  CAF  3AXIS6IT 


26  ,2126  7 0101  0 

26,2127  1C  OCO  0 

26.2130  I 2136  0 

26.2131  C 6042  1 

26.2132  77624  1 

26  ,2133  56040  0 

26.2134  00322  1 

26.2135  77776  1 


MASK  FLAGWR05 

CCS  A 

TCF  T08ALL 

TC  INTPRET 

CALL 

VECPOINT 
STCRE  CPHI 

EXIT 


01571  #REF  14 

01572  *REF  3 

01573  *REF  35 

01574  *REF  3 

0158  *REF  97 
01585  REF  2 

0159  REF  1 

0160  REF  98 


LAST  300 
LAST  267 
LAST  390 
LAST  267 
LAST  472 
LAST  342 

LAST  477 


26 .2136 

26.2137 

26.2140 

26.2141 

26.2142 
26  ,2143 

26.2144 

26 .2145 


0 5504  0 
00013  0 
0 5516  0 
OQOOO  1 
0 4616  1 
54272  1 
3 2260  1 
0 4616  1 


TOEALL 


TOBALL. 


TC  UPFLAG 
ADRES  NEEDLFLG 
TC  DOWNFLAG 

ADRES  NEEC2FLG 
TC  BANKCALL 

CACR  BALLANGS 
CAF  V06M8 
TC  BANKCALL 
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USER'S  PAGE  NOo 


FO  S? 


IS  3-AXIS  FLAG  SET 
YES 


TO  COMPUTE  FINAL  ANGLES 

STORE  FINAL  ANGLES  - C PHI , CTHETA , CP S I 


INSURE  THAT  TOTAL  ATTITUDE  ERRORS  ARE 
DISPLAYED  ON  FOAI  ERROR  NEEDLES 


TO  CONVERT  ANGLES  TO  FOAI 


ASSE^'BLe  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  Z021112-C91 


GAP: 


RtCfft62 


0161  REF 

0162  REF 

0163  REF 

0164  REF 

0165  REF 

0166  REF 


1 

1 

1 

1 

1 

64  LAST 


475 


26.2146  20711  1 

26.2147  0 2246  0 

26.2150  0 2154  0 

26.2151  0 2201  0 

26.2152  0 2205  1 

26.2153  0 5155  0 


CACR  G0PeRF2R 

TC  R61TeST 

TC  RECOMANC 

TC  ENOMANUl 

TC  CHKLINUS 

TC  ENCCFJC6 


0167 

0166 

0169 

0170 

0171 

0172 

0173 

0174 

0175 


REF 

REF 

REF 

REF 

REF 

REF 


2 

14 

158 

1 

29 

3 

6 


LAST 

LAST 

LAST 


LAST 


LAST 

LAST 


477 

477 

477 


477 


477 

477 


26.2155 

26.2156 

26.2157 
26,2160 
26,2161 
26,2162 

26.2163 

26.2164 


2 4746 
7 0101 
1C  COO 
1 2165 
0 6042 
77624 


56040 

00322 

77776 


0 

0 

0 

0 

1 

1 

0 

1 

1 


RE  COMANC 


CAF 

MASK 

CCS 

TCF 

TC 

CALL 


3AXlSeiT 

FLAGWRD5 

A 

TQBALLC 

INTPRET 


VECPOINT 
STORE  CPHI 
EXIT 


0176  REF  99  LAST 

01765  REF  3 LAST 

0177  REF  1 

0178  REF  159  LAST 

0179  REF  1 


477 

477 

478 


26  ,2165  0 4616 

26.2166  54272 

26.2167  0 2261 

26.2170  10  000 

26.2171  I 2144 


1 TOEALLC  TC 
1 CAOR 

0 TC 

0 CCS 

0 TCF 


BANKCALL 

BALLANGS 

G+N,AUTO 

A 

TOBALLA 


0180 

0181 

0182 

0183 


REF  100 
REF  1 
REF  2 


LAST 

LAST 

LAST 


477  26,2172  3 2260  1 

478  26,2173  C 4616  1 

26,2174  20452  0 

478  26,2175  0 2205  1 


AUTCMANV  CAF 
TC 

CAOR 

TC 


V06N18 
BANKCALL 
GOOSPR 
CHKl INUS 


0184  REF  lOX  LAST  478 

0185  REF  1 


26.2176  0 4616  1 

26.2177  17741  0 


STARTMNV  TC 

CAOR 


BANKCALL 

GOMANUP 


0186 

0187 

0188 

0189 

0190 


REF  2 LAST  478 

REF  36  LAST  477 

REF  3 LAST  342 

REF  3 LAST  477 

REF  6 LAST  449 


26.2200  1 2144  0 

26.2201  0 5516  0 

26.2202  00124  0 

26,22C3  31'lt3  1 

26,2204  0 4640  1 


ENCFANUV 

ENOMANUl 


TCF  TOEALLA 

TC  OOWNFLAG 

ADRES  3AXISFLG 

CAE  TEMPR60 

TC  PANKJUMP 


0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 
C199 


REF  3 LAST  264 
REF  1 

REF  160  LAST  478 
REF  145  LAST  469 
REF  146  LAST  478 
REF  234  LAST  466 
REF  16  LAST  446 
REF  4 LAST  372 
REF  1 


26 

26 

26 

26 

26 

26 

26 

26 

26 


,2205 
,2206 
,2207 
,2210 
, 2211 
,2212 
,2213 
,2214 
,2215 


4 0100  1 
7 4740  1 
10  000  0 
0 0CO2  0 

3 0002  0 
54  156  1 

4 6250  1 
6 0133  0 
55'054  0 


CFKLINUS 


CS 

MASK 

CCS 


FLAGWRC4 

PDSPFBIT 

A 

0 

Q 

MPAC  +2 
THREE 
BUF2 
TfiASE2 


0200 

0201 


REF  3 LAST  290 


26.2216  0 5353  1 

26.2217  00132  1 


TC  PHASCHNG 

OCT  00132 
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USER  'S  PAGE  NOe  3 E2  S3 
DISPLAY  PLEASE  PERFORM  AUTO  MANEUVER 
PROCEED 

ENTER  loEo  FINISHED  WITH  R60 
TO  CHECK  FOR  PRIORITY  DISPLAYS 


IS  3-AXIS  FLAG  SET 
YES 

TO  COMPUTE  FINAL  ANGLES 
STORE  ANGLES 

TO  CONVERT  ANGLES  TO  FDAI 
CHECK  AUTO  MODE 

NOT  AUTO,  GC  REREOUEST  AUTO  MANEUVER,, 
STATIC  DISPLAY  DURING  AUTO  MANEUVER 

TO  CHECK  FOR  PRIORITY  DISPLAYS 
PERFORM  MANEUVER  VIA  KALCMANU 


FINISHED  MANEUVERc. 
RESET  3-AXIS  FLAG 


IS  PRIORITY  DISPLAY  FLAG  SET? 
NO  - EX  IT 
SAVE  RETURN 

OBTAIN  LOCATION  FOR  RESTART 
HOLDS  0 OF  LAST  DISPLAY 
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0202 

0203 

0204 


REF  22 
REF  1 
REF  235 


LAST  465 
LAST  478 


26,2220 
26  ,2221 
26,2222 


4745 

5464 

C156 


BI  T7 
L INUS 
MPAC  + 


RELINUS  CAF 
TC 


0207 

C208 

0209 

0210 


REF  161 
REF  1 


LAST  478 


26,2225 
26  ,2226 
26,2227 
26,2230 


2 4747  1 
7 0075  1 
1C  000  0 
1 2243  1 


CAF 

MASK 

CCS 

TCF 


0211 

0212 

0213 

0214 

0215 

0216 


REF  3 
REF  19 
REF  162 


4 LAST  478 


26.2231 

26.2232 

26.2233 

26.2234 

26.2235 
26  ,2236 


3 4745  0 
7 CC74  0 
10  000  0 
0 2240  0 
C 5353  1 
40112  1 


CAF 

MASK 

CCS 


0217 


REF  65 
REF  5 


LAST  478 
LAST  479 


26,2237  0 5155  0 


LAST  479 
LAST  477 


26,2242  C 5155  0 


0224 

0225 

0226 


REF 

REF 

REF 


LAST  478 
LAST  462 


26,2245  C 1054  1 


26.2246 

26.2247 
478  26,2250 


3 1010  1 
r 0C06  1 
1 2201  1 


R61TEST  CA 


T0ASE2 

MODPEG 


0227 

0228 

0229 

0230 

0231 


REF 

PEF 


LAST  247 


26.2251 

26.2252 

26.2253 

26.2254 

26.2255 


0100  0 
4740  1 
0006  1 
6001  1 
6025  0 


CA  FLAGWRC4 
MASK  POSPFBIT 
EXTEND 

8ZF  GOTOPOOH 
TC  G0T0V56 


0232 

0233 

0234 
R0236 


26.2256  20100  I eiT14+7  OCT  20100 

26.2257  C0203  0 0CT203  OCT  203 

26,2260  01422  1 V06N18  VN  0618 

SUBROUTINE  TC  CHECK  FCR  G+N  CCNTRCL,  AUTO  STABILIZATION 


26,2261  C 0006  1 G+N,AUTO  EXTEND 
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USER  *S  PAGE  N0«  4 E2  S3 

GO  SET  BITS  FOR  PRIORITY  DISPLAY 

RESTORE  ORIGINAL  PRIORITY 

DON'T  CONTINUE  R60  UNLESS  TPACKFLAG  ONo 

IS  IT  P20? 

YES 

NO,  MUST  BE  P25,  SET  2on  SPOT 

SET  2o  7 SPCT  FOR  P20 

SET  PRIO  DISPLAY  FLAG  AFTER  RESTART 

IF  WE  ARE  IN  POO  IT  MUST  BE  V49  OR  789 
THUS  WE  GC  TO  ENDEXT  VIA  USER 
ARE  WE  IN  R61  (P?0  OR  P25I 

NO 

YES 
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L R60iR62 


USER'S  PAGE  NCc  5 £2  S3 


02A0 

0291 

0292 

0293 
0299 

0295 

0296 

0297 


REF 

REF 

REF 

REF 


3 

27 

163 

1^7 


REF  2 
REF  96 
REF  198 


LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 


186 

979 

979 

978 


283 

96P 

980 


26,2263 

26.2269 

26.2265 

26.2266 
26,2267 

26.2270 

26.2271 


10  COO  0 
0 0C02  0 
C 0006  1 
OO  031  0 
7 9736  0 
0 0002  0 


READ 

MASK 

CCS 


ISITAUTG  EXTEND 
READ 
MASK 


CHAN30 

BITIO 

A 

U 

CHAN31 

BIT19 

0 


NOT  IN  G+N  C(A»  = + 
CHECK  FOR  AUTO  MODE 


(+1  = NOT  IN  AUTC,  ) = AOK 
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L R60,R62  USER'S  PAGE  NOo  6 E2  S3 

P0248  PROGRAM  DESCRIFTICN  EALLANGS 

R0249  MOD  NOo  LOG  SECTION  R60,R62 


R0250  WRITTEN  BY  RAMA  MoAIYAWAR 

R0251  FUNCTIONAL  DESCRIPTICN 


R0252  COMPUTES  LM  FOAI  BALL  DISPLAY  ANGLES 

R0253  CALLING  SEQUENCE 


R0254  TC  BALLANGS 

R0255  NORMAL  EX  IT  MOCE 


R0256  TC  BALLEXIT  (SAVED  Q) 

R0257  ALARM  OR  EXIT  MODE  NIL 

R0258  SUBROUTINES  CALLED 

R0259  CO*TR#G 

R0260  ARCTAN 


R0261  INPUT 

R0262  CPHI  ,jCTHETA,CPSI  ARE  THE  ANGLES  CORRESPCNCI  NG  TO  A0G,AI6,AMGo  THEY  ARE 
R0263  SP,2S  COMPLIMENT  SCALED  TO  HALF  REVOLUTIONo 
R0264  OLTPLT 


R0265  FCAlx,FOAIY,FOAIZ  ARE  THE  RECLIRED  BALL  ANGLES  SCALED  TO  HALF  REVCLUTICN 
R0266  SP,2S  CCNFLIMENTo 

R0267  THESE  ANGLES  wlLL  BE  DISPLAYED  AS  DEGREES  AND  HUNDREDTHS,  IN  THE  ORDER  ROLL,  PITCH,  YAW,  LSING  NOUNS  18  C 19- 


R0269  ERASAELE  I N IT  I AL  IZ AT  ICN  REQUIRED 

R0270  CPHI  ,CTHETA,CPSI  EACH  A SP  REGISTER 
R0271  DEBRIS 


R0272  A,L,C,MPAC,SINCOU,COSCDU,PUSHLIST, BALLEXIT 


NOMENCLATURE:  CPHI,  CTHETA,  t CPSI  REPRESENT  THE  CUTER,  INNER,  E 
EQUIVALENTLY,  COUX,  CDUY,  £ CDUZo 


MIDDLE  GIMBAL  ANGLES,  RESPECTIVELY;  OR 


NOTE 


ARCTAN  CHECKS  FCR  CVERFLCW  ANC  SHOULD  BE  ABLE  TU  HANDLE  ANY 


SINGULARITIESe 


0278  REF 

0279 


LAST  341  26,2000 

26,2272 


SETLOC  BAWLANGS 
BANK 


0200  PEF 

0281  REF 

0282  REF 

0283  REF 


) 

3 LAST  477 
1 

7 LAST  478 


26.2272 

26.2273 

26.2274 


COUNT*  Jt/BALL 

C 4645  1 BALLANGS  TC  MAKECADR 
55*337  0 TS  BALLEXIT 
3 0321  1 CA  CPHI 
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L P60,R62 


0284  PEF  7 

0285  REF  2 

0286  REF  8 

0287  REF  3 

0288  REF  9 


LAST  254  26 

LAST  371  26 

LAST  482  26, 

LAST  371  26 

LAST  482  26 


,2275  54  771  1 
,2276  3 0322  1 
,2277  54  765  1 
,2300  3 0323  0 
,?3C1  54  767  C 


TS  CDUSPOT 

CA  CTFETA 

TS  CDUSPOT 

CA  CPSI 

TS  CDUSPCT 


0289  REF  30  LAST  478 

0290 

0291 

0292  REF  1 ' 


26.2302 

26.2303 

26.2304 

26.2305 


0 6042  1 
45001  1 
00001  0 
47545  O 


TC  INTPRET 

SETPO  CALL 
OD 

CD*TR*G 


0293 

0294  REF  1 

0295  REF  1 


26.2306  41345  0 

26.2307  C0742  0 

26  ,2310  00746  1 


OLCAD 


DMP 

SI NCDUX 
COSCOUZ 


0296 

0297 

C298  REF 

0299  REF 

0300  REF 

0301 

0302  REF 

0303  REF 

0304  REF 

0305 

0306  REF 

0307  REF 

0308 

0309 

0310  REF 

0311 

0312  REF 

0313  REF 

0314 

0315  REF 

0316 

0317  REF 

0318  REF 

0319 

0320  REF 

0321 

0322  REF 

0323  REF 

0324 

0325 

0326  REF 

0327  REF 

0328 


1 

4 LAST  324 
2 LAST  482 

1 

4 LAST  324 
1 

2 LAST  482 
? LAST  482 


1 

1 

2 LAST  482 
2 LAST  482 

5 LAST  482 

2 LAST  482 

3 LAST  482 

5 LAST  482 
2 LAST  482 


2 LAST  367 
2 LAST  307 


2311 

2312 

2313 

2314 

2315 

2316 

2317 
,2320 
,2321 
,2322 
r2323 
, 2324 
,2325 
,2326 
,2327 
,2330 
,2331 
,2332 
,2  333 
, 2334 
,2335 
,2336 
,2337 
,2340 
,2341 
,2342 
,2343 
,2344 
,2345 
,2346 
, 2347 
,2350 
,2351 


57552  I 
65336  1 
0074C  1 
14C23  C 
00746  1 
72405  0 
C0750  0 
34021  0 
265C6  C 
41325  0 
00740  1 
0C742  0 
41512  I 
65205  0 
00744  0 
65205  0 
CC736  0 
CC750  0 
72405  0 
CC744  C 
45425  n 
63756  0 
0C736  C 
72405  0 
00750  C 
45415  0 
43754  0 
26506  0 
55525  0 
77634  0 
21621  1 
02345  1 
77776  I 


SLl  DCOMP 
ARCSIN  POOL 

S I NCOUZ 
STCOL  SIRTH 

COSCOUZ 
OMF  SLl 

COSCDUX 
STCALL  COSTH 
ARCTAN 
POOL  DMP 

SINCDUZ 
SI NCDUX 
SL2  PUSH 
DMP  POOL 

COSCDUY 
DMP  POOL 

SINCOUY 
COSCDUX 
DMP  SLl 

COSCDUY 
OSU  STADR 
STOOL  COSTH 

SI NCDLY 
OMP  SLl 

CCSCCUX 
OAO  STADR 
STCALL  SINTH 
ARCTAN 
POOL  VDEF 
RT6 

V1ST02S 
STCRE  FOAIX 
EXIT 


0329  REF 


LAST  481  26,2352 


1337  1 ENO0ALL  CA 


BALLEXIT 
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USER'S  PAGF  NOo 


SIN  (CGA) 

COS  (MGA) 

YAw''=  APCSIN(-SXCZ)  INTC  0 PO 
(SI NTH  = 18C  IN  P0> 

RESCALE 

(COSTH=  16D  IN  PD) 

ROLL  = ARCTAN(SZ/CZCX)  INTO  2 PO 

SXSZ  INTO  4 PD 
SXSZCY  INTO  4 PD 

SXSZSY  INTO  6 PD 


CXCY 

PULL  UP  FROM  6 PD 
COSTH  = CXCY  - SXSZSY 


CXSY 

PULL  UP  FROM  4 PP 

SINTH  = CXSY  + SXSZCY 

RETURNS  WITH  D(HPAC)  * PITCH 

PITCH  INTO  2 PD,  RCLL  INTO  MPAC  FROM  2PD 

VDEF  MAKES  V(MPAC)  = ROLL,  PITCH,  YAW 


MODE  IS  TP 
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L R6C,R62  USER'S  PAGE  NGe  8 E2  S3 


0329 


REF  7 LAST  478  ‘ 26,2353  C 464C  1 


TC 


BANK  JUMP 
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L R6n,R62  USER'S  PAGE  NPo  9 E2  S3 

P0330  PROGRAM  CESCPIPTION  - VECPCINT 


R0331  THIS  INTERPRETIVE  SUERCUTINE  MAY  EE  USED  TO  POINT  A SPACECRAFT  AXIS  IN  A DESIRED  CIRECTIONr,  THE  AXIS 

R0333  TO  BE  POINTED  MUST  APPEAR  AS  A HALF  UNIT  DOUBLE  PRECISION  VECTOR  IN  SUCCESSIVE  LOCATIONS  OF  ERASABLE  MEMORY 

R0335  BEGINNING  WITH  THE  LCCATICN  CALLED  SCAXIS,  THE  COMPONENTS  OF  THIS  VECTOR  ARE  GIVEN  IN  SPACECRAFT  COOROINATESo 

R0337  THE  DIRECTION  IN  WHICH  THIS  AXIS  IS  TO  BE  PCINTEO  MUST  APPEAR  AS  A HALF  UNIT  DOUBLE  PRECISION  VECTOR  IN 

R0339  SUCCESSIVE  LOCATIONS  OF  ERASABLE  MEMORY  BEGINNING  WITH  THE  ADDRESS  CALLED  PCINTVSMc  THE  CCMPONENTS  OF  THIS 

R0341  VECTOR  ARE  GIVEN  IN  STABLE  MEHBER  CCORCINATES,  WITH  THIS  INFORMATION  VFCPDINT  COMPUTES  A SET  OF  THREE  GI  MBAL 

R0393  ANGLES  (2S  COMPLEMENT)  CORESPCNDING  TO  THE  CROSS-PRODUCT  RCTATION  BETWE  EN  SCAXIS  AND  POINTVSM  AND  STORES  THEM 

R03A5  IN  T(MPAC)  6EFCRE  RETURNING  TC  THE  CALLER* 

R03^6  THIS  ROTATICN,  HCWEVER,  MAY  BRING  THE  S/C  INTO  GIMBAL  LOCK*  WHEN  POINTING  A VECTOR  IN  THE  Y-Z  PLANE, 

R03A8  THE  TRANSPONDER  AXIS,  OR  THE  AOT  FOR  THE  LEM,  THE  PROGRAM  WILL  CCRRECT  THIS  PROBLEM  BY  ROTATING  THE  CROSS- 

R0350  PRODUCT  ATTITUDE  ABOUT  POINTVSM  BY  A FIXED  AMOUNT  SUFFICIENT  TO  ROTATE  THE  DESIRED  S/C  ATTITUDE  OUT  OF  GIMBAL 

R0352  LOCK*  IF  THE  AXIS  TO  BE  PCIMED  IS  MORE  THAN  6 DEGREES  BUT  LESS  THAN  60,5  DEG  FROM  THE  +X  (OR-X)  AXIS, 

ROSS'V  THE  ACOITIQNAL  ROTATION  TO  AVOID  GIMAL  LOCK  IS  35  DEGREES*  IF  THE  AXIS  IS  MORE  THAN  60*5  CEGEES  FROM  -t-X  (OR  -X 

R0356  THE  ADDITIONAL  ROTATICN  IS  35  CEGREES*  THE  GIMBAL  ANGLES  CORRESPONDING  TO  THIS  ATTITUDE  ARE  THEN  COMPUTED  AND 

R0356  STORED  AS  2S  COMPLIMENT  ANGLES  IN  T(MPAC)  BEFORE  RETURNING  TO  THE  CALlERo 

R036n  WHEN  FCINTING  THE  X-AXIS,  OR  THE  THRUST  VECTOR,  OR  ANY  VECTOR  WITHIN  AO* 6 DEG  OF  THE  X-AXIS,  VFCPCINT 

R0362  CANNOT  CORRECT  FOR  A CROSS- P PCCLC T ROTATION  INTO  GIMBAL  LOCK*  IN  THIS  CASE  A PLATFORM  PFALIGNMENT  WOULD  BE 

R036A  REQUIRED  TO  POINT  THE  VECTOR  IN  THE  DESIRED  OIRECTIONo  AT  PRESENT  NO  INDICATION  IS  GIVEN  FOR  THIS  SITUATION 

R03be  EXCEPT  THAT  THE  FINAL  MIDDLE  GIMBAL  ANGLE  IN  MPAC  +2  IS  GREATER  THAN  59  DEGREES* 


R0368 

R0369 

R0370 

R0371 


CALLING  SEQUENCE  - 

1 I LOAD  SCAXIS,  P 
2)  CALL 

VECPCINT 


RETURNS  WITH 


R0373 

R037A 

R0375 


3)  DESIRED  MIDDLE  GIMBAL  ANGLE  IN  MPAC 


R0376 


ERASABLES  USED 


R0377 

R0378 

R0379 

R0380 

R0381 

R0382 

R0363 


1 ) SCAX  IS  6 

21  PCINTVSM  6 

3 I MIS  18 

A)  DEL  18 

5)  CCF  6 

6)  VECQTEMP  1 

7)  ALL  CF  VAC  AREA  43 


03  85 
0386 


REF  1 


27,2000 
27,20  32 


SETLOC  VECPT 
BANK 
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L ReO,R62 

0387  REF  1 

0388  REF  11  LAST  368  E6,1675 


COLNT*  St/VECPT 

e0ANK=  ecou 


038805 

03881  REF  1 
038815  REF  1 

03882 

038825  REF  11 
038865  REF  1 

0389 

0390  RFF  2 

0391  REF  I 

0392 

0393  REF  12 

0394  REF  2 
C395 

0396  REF  3 

0397 

0398  REF  3 

0399  REF  13 

0400 

0401 
A0402 

0403 

0404  REF  12 

0405 

0406  REF  1 

0407  REF  40 

0408 

0409 

0410  REF  1 

0411  REF  2 

0412 

0413  REF  13 

0414 

0415 

0416 

0417  REF  2 

0418 

0419  REF  14 

0420  REF  11 

0421 

0422  REF  3 


LAST  367 

LAST  485 

LAST  485 
LAST  353 

LAST  353 

LAST  341 
LAST  485 


27. 2032 

27.2033 

27.2034 

27.2035 
27  ,2036 
27,2037 

27.2040 

27.2041 

27.2042 

27.2043 

27.2044 

27. 2045 
27  ,2  .146 
27,2047 
27,20  50 

27.2051 

27.2052 

27.2053 

27 .2054 


40C20  1 
03324  1 
56035  1 
52164  0 
03245  1 
56046  C 
40C20  1 
03324  1 
56043  C 
47164  1 

03245  1 
44403  0 
34032  1 
44410  1 
61375  1 
03773  1 

03246  1 
77656  1 
00035  1 


VECPNTl  STQ  BCV 

VECOTEMP 

VECPNT2 

VECPNT2  AXC,2  GOTO 
MIS 

STCPANG 

VeCPOINT  STQ  BOV 

VECOTEMP 

VECLEAP 

VECLEAR  AXC,2  RT6 
MIS 

READCOUK 

STORANG  STCALL  ?5D 

CCUTCDCP 
VLOAO  VXM 

POINTVSM 
MI  S 

UNIT 

STCRE  28C 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


342 

366 

485 

485 

366 

485 

367 

367 


27.2055 

27.2056 

27.2057 

27.2060 

27.2061 

27.2062 

27.2063 

27.2064 
27  ,2065 

27.2066 

27.2067 
27  ,2070 

27.2071 

27.2072 

27.2073 

27.2074 

27.2075 

27.2076 

27.2077 
27 ,2100 


53435  0 
03765  0 
5740C  1 
56170  1 
17270  1 
00045  0 
50C25  0 
14415  1 
56170  1 
50375  C 
03765  0 
00035  1 
65552  0 
77624  1 
44527  1 
75160  1 
03245  1 
02230  1 
77624  1 
44312  1 


vxv 

BOV 

STCDL 

osu 

VLCAO 

SLl 

COMPMATX  CALL 
AXC  ,1 

CALL 


UNIT 

SCAXIS 

VCOMP 

PICKAXTS 

COF 

3 60 

BMN 

DP6-14 
P ICKAXIS 
DCT 

SCAXI  S 
280 

ARCCCS 

OELCOMP 
AXC, 2 
MIS 
KEL 

MXV3 


0423 

0424 

0425 

0426  REF  1 

0427  REF  1 


27.2101  51545  1 

27.2102  00007  0 

27.2103  50025  0 

27,21C4  14402  1 

27  ,2105  56160  0 


DLCAD 

DSU 


ABS 

6 

BMN 

SINGIMLC 

FINOGIMB 


17:53  OECo  1Q,1969  LEP0NAI03104 


PAGE  485 


USER 'S  PAGE  NOe  10  E2  S3 


THIS  ENTRY  USES  DESIRED  CDUS 

NOT  PRESENT-ENTER  KITH  CDUO'S  IN  MPAC 


SAVE  RETURN  ADDRESS 

ANC  CLEAR  OVFINO 

READ  THE  PRESENT  CDU  ANGLES  AND 
STORE  THEM  IN  PD25,  26,  27 

S/C  AXES  TO  STABLE  MEMBER  AXES  (MIS) 

RESOLVE  THE  POINTING  DIRECTION  VF  INTO 
INITIAL  S/C  AXES  ( VF  = POINTVSM) 


PO  28  29  30  31  32  33 

TAKE  THE  CROSS  PRODUCT  VF  X VI 

WHERE  V I = SCAXIS 


CHECK  MAGNITUDE 
OF  CROSS  PRODUCT 
VECTOR,  IF  LESS 
THAN  B-14  ASSUME 
UNIT  OPERATION 

INVALIDo 


NOW  COMPUTE  THE  TRANSFORMATION  FROM 
FINAL  S/C  AXES  TO  INITIAL  S/C  AXES  MFI 

COMPUTE  THE  TPANSFCRMATICN  FROM  FINAL 
S/C  AXES  TO  STABLE  MEMBER  AXES 
MFS  = MIS  MFI 
(IN  PD  L 1ST) 


MFS6  = SIN(CPSI ) $2 

= SIN{59  DEGS  ) 

/CPSI/  LESS  THAN  59  DECS 


$2 


GAP : 

L 

A0426 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

C440 

0441 

0442 

0443 

0444 

0445 

0446 

A0447 

AC448 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

0463 

A 0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

A0474 
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R6C,R62 


USER  *S  PAGE  NOe  H E6  S3 


KEo  DESIRED  ATTITUDE  NOT  IN  GIMBAL  LOCK 


REF  14  LAST  4B5 
REF  1 

REF  2 LAST  485 

PEF  15  LAST  485 

REF  16  LAST  486 

REF  17  LAST  486 
REF  18  LAST  486 

REF  1 


27,2107 

27.2110 

27.2111 

27.2112 

27.2113 
27,211^ 
27, 2115 
27  ,2116 
27,2117 

27.2120 

27.2121 

27.2122 

27.2123 

27.2124 


51545 

03765 

51025 

14404 

5616C 

77775 

77626 

50515 

77626 

50523 

77626 

50531 

03254 

57444 

56125 


1 

0 

1 

1 

0 

I 

0 

c 

0 

0 

0 

0 

I 

1 

1 


DLOAD  ABS  CHECK  TO  SFE  IF  WE  ARE  POINTING 

SCAXIS  THE  THRUST  AXIS 

DSU  BPL 

SINVECl  SIN  49<,4  DECS  $2 

FINDGIMp  IF  Sn,  WE  ARE  TRYING  TO  POINT  IT  INTO 

VLOAD  GIMBAL  LOCK,  ABORT  COULD  6C  HERE 

STAOR 

STCVL  MI S +12C 

STAOR  STORE  MFS  (IN  PD  LIST)  IN  MIS 

STCVL  MIS  +6 

STADR 

STCVL  MIS 

MIS  +6  INNER  GIMBAL  AXIS  IN  FINAL  S/C  AXES 

BPL  VCOMP  LOCATE  THE  IG  AXIS  OIRFCTION  CLOSEST  TO 

IGSAMEX  FINAL  X S/C  AXIS 


27,2125  50035  1 IGSAMEX  VXV  BMN  FIND  THE  SHORTEST  WAY  CF  ROTATING  THE 

REF  15  LAST  486  27,2126  03765  0 SCAXIS  S/C  OUT  OF  GIMBAL  LOCK  BY  A ROTATION 

REF  1 27,2127  56134  1 U = SCAXIS  ABOUT  +-  SCAXIS,  UE,  IF  (IG  ( SGN  MFS3) 

X SCAXIS  0 XF)  LESS  THAN  0 , U = SCAXIS 
OTHERWISE  U = -SCAXIS 


REF  16  LAST 
REF  41  LAST 
REF  1 


REF  17  LAST 
REF  42  LAST 

REF  18  LAST 

REF  1 
REF  1 

REF  1 
REF  1 


REF  1 


REF  3 LAST 

PEF  19  LAST 
REF  12  LAST 

REF  4 LAST 


486 

485 


486 

486 

466 


485 

4H6 

485 

485 


27.2131 

27.2132 

27.2133 

27.2134 
27,2125 

27.2136 

27.2137 

27.2140 

27.2141 

27.2142 

27.2143 
27  ,2144 

27.2145 

27.2146 


57575  1 
03765  0 
37270  0 
56137  1 

77775  1 U=SCAXIS 
C3765  0 
03270  1 

51545  1 CHEKAXIS 

03765  0 

51025  1 

14406  0 

56147  0 

52145  0 

14412  0 

56151  1 


VLOAD  VCOMP 
SCAXIS 
STCALL  COF 

CHEKAXIS 

VLOAD 

SCAXIS 
STORE  COF 
OLCAD  ABS 

SCAXIS 
DSU  BPL 

SINVeC2 
PICKANGl 
DLOAD  GOTO 

VECANG2 

COMPMFSN 


27,2147  77745  I 

27.2150  14410  I 

27.2151  77624  1 

27.2152  44527  1 

27  ,2153  75160  1 

27.2154  C3245  1 

27.2155  0223G  1 

27.2156  77624  1 

27.2157  44312  1 


PICKANGl  DLOAD 
CCMPMFSN  CALL 
AXC,1 


CALL 


VECANGl 


DELCCMF 

AXC,2 

HIS 

KEL 


MXM3 


ROTATE  ABOUT  -SCAXIS 


ROTATE  A8CUT  + SCAXIS 

SEE  IF  WE  APE  POINTING  THE  AOT 

SIN  29„5  OEGS  $2 

IF  SO,  ROTATE  50  DECS  ABOUT  +-  SCAXIS 
IF  NOT,  MUST  BE  POINTING  THE  TRANSPONDER 
CR  SOME  VECTOR  IN  THE  Y,  OR  2 PLANE 
IN  THIS  CASE  ROTATE  35  CEGS  TO  GET  OUT 
OF  GIMBAL  LOCK  {VFCANG2  $360) 

= 50  DEGS  $ 360 

COMPUTE  THE  ROTATION  ABOUT  SCAXIS  TO 
BRING  MFS  OUT  OF  GIMBAL  LOCK 


COMPUTE  THE  NEW  TRANSFORMATION  FROM 
DESIRED  S/C  AXES  TO  STABLE  MEMBER  AXES 
WHICH  WILL  ALIGN  VI  WITH  VF  AND  AVOID 


GAP: 

L 

A0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0403 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0406 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0516 

0517 

0517 

0518 

0518 

0519 

0519 
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R£0,R62 


USER'S  PAGE  Nflo  12  E6  S3 


REF  2 LAST 

REF  3 LAST 

REF  3 LAST 


27.2160 

27.2161 
367  27,2162 

37  ,2163 
482  27,2164 

27.2165 

27.2166 
485  27,2167 


45160  1 
COOOO  1 
44654  0 
40234  0 
21621  1 
00001  0 
77650  1 
C3324  1 


F INCGIMD  AXC  , 1 


RTB 


GOTO 


CALL 

0 

OCRTCCCL 

SETPn 

V1STC2S 

0 

VECQTEMP 


GIMBAL  LOCK 

EXTRACT  THE  CDMMANOEO  CDU  ANGLES  FROM 
THIS  MATRIX 

CONVERT  TO  2:S  COMPLEMENT 

RETURN  TO  CALLER 


REF  19  LAST 
REF  I 

REF  4 LAST 


27.2170 

27.2171 

486  27,2172 

27.2173 

27.2174 

27.2175 

27.2176 

487  27,2177 


50375  0 
00035  1 
03765  0 
72240  1 
54354  1 
00032  0 
77650  1 
03324  I 


PICKAXIS  VLOAO 


BMN 


GOTO 


DOT 
28C 
SCAXI  S 
TLOAD 
POTISO 
2 5D 

VECQTEMP 


IF  VF  X VI  = 0,  FIND  VF  c VI 


IF  VF  = VI  , COU  DFSIPED  = PRESENT  CDU 
PRESENT  ecu  ANGLES 


REF  I 


REF  20  LAST 
REF  1 


REF  20  LAST 


REF  1 
REF  43  LAST 


REF  2 LAST 
REF  2 LAST 

REF  44  LAST 
REF  45  LAST 
REF  2 LAST 

PEF  1 


REF  3 LAST 
REF  1 


35.2000 

26.2000 
26,2354 
26  ,2354 

486  26,2355 

26.2356 

26.2357 

487  26,2360 

26.2361 

26.2362 

486  26,2363 

26.2364 

26.2365 
485  26,2366 

487  26,2367 
26,2370 

487  26,2371 

487  26,2372 

487  26,2373 

26.2374 

26.2375 

26.2376 
487  26  ,2377 

26.2400 

26.2401 

26.2402 

26.2403 

26.2404 

26.2405 

26.2406 
26  ,2407 
26,2410 


i7375  0 
C3254  1 
06522  1 
472  56  0 
C3765  0 
40056  0 
54376  1 
17270  1 
00045  0 
50025  0 
14415  1 
54376  1 
77775  1 
03270  I 
17270  1 
C6522  1 
77650  1 
56072  I 
52175  0 
06522  1 
54372  0 
15555  0 
35172  0 
14113  1 
36326  0 
C7701  0 
35703  0 
04343  1 
21616  0 


P0T180 


XRCT 


PICKX 


SINGIMLC 


SANK  35 
SETLOC  MANUVERl 
BANK 

VLOAO  VXV 

MIS  +6 
HIDPHALF 
UNIT  VXV 

SCAXI  S 
UNIT  BOV 

PICKX 

STCDL  COF 
360 

esu  BMN 

OPB-14 

PICKX 

VLCAD 

COF 

STOOL  COF 

MI DPHALF 

GOTO 


VLOAO 


20EC 


COMPMATX 

GOTO 

HIDPHALF 

XRCT 

o42858360C3 


SINVECl  2DEC  e3796356537 


SINVEC2  2CEC  e24621)7800 
VECANGl  2CEC  ol388888889 


IF  VF,  VI  ANTIPAPALLEL,  108  DEG  ROTATION 
IS  PEQUIREDo  Y STABLE  MEMBER  AXIS  IN 
INITIAL  S/C  AXESc 
F IND  Y ( SM)  X X(  n 

FIND  UNITtVl  X UNIT(Y(SM)  X XIDM 
loEo  PICK  A VECTOR  IN  THE  PLANE  OF  XII), 
YISM)  PERPENDICULAR  TO  VI 

CHECK  MAGNITUDE 
OF  THIS  VECTOR® 

IF  LESS  THAN  0-14 , 

PICK  X-AXISo 


PICK  THE  XAXIS  IN  THIS  CASE 

= SIN(59)  S2 
= SIM49o4>  S2 
=SIN(29e5)  $2 
= 50  DEGREES 


S360 
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86 


L R60,R62 


USER' S PAGE  NCo  13  E6  S3 


0520 

0520 

0521 

0522 

0523 


26.2411  030700  VECANG2  2CeC  *09722222222 

26.2412  34344  0 

26.2413  00000  1 IBITOP  OCT  0 

26.2414  00001  0 CPe-l4  OCT  00001 

26.2415  COCOO  1 CCT  00000 


= 35  DEGREES 

KEEP  THIS  BEFORE  DPB(-14) 


$360 


gap:  assemble  REVISION  131  OF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021112-091 


L R60,R62 

P052A  ROUTINE  FOR  INITIATING  AUTOMATIC  MANEUVER  VIA  KEYBOARD  (VA9J 


0525 

0526  PEF  1 

0527 

0528  REF  12  LAST  A85 


39.2000 

23.2000 
23  ,2103 
E6,1675 


BANK  34 
SETLOC  P62 
BANK 

£eANK=  6CCU 


0529  REF  1 

0530  REF  1 


COUNT*  $S/R62 

23,2103  R62CISP  EQUALS  R62FLASH 


0531  REF  1 

0532  REF  102  LAST  478 

0533  REF  E LAST  383 

0534  PEF  30  LAST  379 

0535  REF  1 

0536  REF  2 LAST  489 


23.2103  3 5010 

23.2104  0 4616 

23.2105  20477 

23.2106  1 5472 

23.2107  1 2111 

23,2110  1 21C3 


0 R62FLASH  CAF 

1 TC 

1 CACR 

1 TCF 

n TCF 

0 TCF 


V06N22 

BANKCALL 

GOFLASH 

ENOEXT 

GUMOVE 

F62FLASH 


A0537 

A0538 

0539 

0540 


PEF  16  LAST  479  23,2111 
REF  4 LAST  478  23,2112 


C 5504  0 GQMOVE 
00124  0 


TC 

AORES 


UPFLAG 
3AX  I SFLG 


0541  REF  103  LAST 

0542  REF  2 LAST 

0543  REF  31  LAST 


489  23,2112  0 4616  1 
342  23,2114  54123  0 
489  23,2115  1 5472  1 


TC  BANKCALL 

CAOR  R6CLEM 
TCF  ENOEXT 
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USER'S  PAGE  NOo  14 


E6  S3 


FLASH  V06N22  AND 
ICDU  ANGLES 

TERMI NATE 

PROCEED 

ENTER 

ASTRONAUT  MAY  LOAD  NEW  ICOUS  AT  THIS 
POINT 

SET  FOR  3-AXIS  MANEUVER 


FNO  R62 


gap: 
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L S-EANC  ANTENNA  FOR  LM 


USER'S  PAGE  NCn 


EC  S3 


R2000  SUBROUTINE  NAME:  R05  - S-0ANC  ANTENNA  FCR  LM 


MODO  BY  T«  JAM 
MCDl  BY  Po  SHAKI 


R2003  FUNCTIONAL  DESCRIPTION 


R2004 

R2005 

R2006 

R2007 

R20O8 

R2009 

R2010 

R20101 


THE  S-EAND  antenna  ROUTINE.  R05,  COMPUTES  AND  DISPLAYS  THE  PITCH  AND 
YAU  ANTENNA  GIMBAL  ANGLES  RECUIREC  TO  POINT  THE  LM  STEERABLE  ANTENNA 
TOWARD  THE  CENTER  OF  THE- EARTH*  THIS  ROUTINE  IS  SELECTED  BY  THE  ASTRO- 
NAUT VIA  CSKY  ENTRY  CURING  COASTING  FLIGHT  OR  WHEN  THE  LM  IS  ON  THE  MOON 
SURFACE*  THE  EARTH  OR  MCCN  REFERENCE  COORDINATE  SYSTEM  IS  USED  DEPENDING 
ON  WHETHER  THE  LM  IS  ABOUT  TO  ENTER  OR  HAS  ALREADY  ENTERED  THE  MCCN 
SPHERE  CF  INFLUENCE,  RESPECTIVELY*  CAN  BE  CALLED  ANY  TIME  EXCEPT  WHEN 
ANOTHER  EXTENDED  VERB  IS  IN  USE*  DISPLAY  IS  MEANINGLESS  WITH  IMU  OFF* 


R2011  TC  CALL  SUBROUTINE,  ASTRONAUT  KEYS  IN  V 6^  E 


R2012  SUBROUTINES  CALLEO- 


R2014 
R2015 
R2016 
R2017 
R2018 
R2019 
R2020 
R2021 
R 2022 
R2023 


INTPR  ET 

LCAOTIME 

LEMCONIC 

LUNPOS 

COUTRIG 

^SHNS* 

BANKCALL 

650FF 

ENDOFJOB 

BLANKET 


R2024  RETURNS  WITH 

R2025  PITCH  ANGLE  IN  PITCHANG  REV*  BO 

R202A  YAW  ANGLE  IN  YAWANG  REV*  fiO 


R2027  ERASA8LES  USED 


R2030 

R2031 


P ITCHANG 

YAWANG 

RLM 


2032 

2033  REF 

2034 


4 LAST  289 


41  ,3750 
A2,2000 
42,3606 


BANK  41 
SETLOC  SBANO 
BANK 


2035 

2036 
2039 


REF 

REF 

REF 


1 E7,1A71 

2 LAST  46  TO  47: 

31  LAST  482  42,3606 


6BANK=  WHOCAP.ES 

2 2*  COUNT*  $$/R05 

0 6042  1 SBANOANT  TC  INTPRET 
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2040 

2041 

2042  REF 

2043  REF 

2044  REF 

2045 

2046  REF 

2047  REF 

2048 

2049  REF 

2050  REF 

2051  REF 

2052 

2053  REF 

2054 

2055  REF 

2056  REF 

2057 

2058  REF 

2059 

2060  REF 

2061 

2062  REF 

2063 

2064 

2065 

2066  REF 

2067 

2068  REF 

2069 

2070  REF 

2071  REF 

2072  REF 

2073 

2074  REF 

2075  REF 

2076  REF 

2077 

2078  REF 

2079 

2080  REF 

2081  REF 

2082 

2083  REF 

2084  REF 

2085  REF 
2006  REF 

2087 

2088  REF 

2089 


5 LAST  302 

6 LAST  341 

2 LAST  3^1 

1 

1 

3 LAST  341 
1 

3 LAST  210 
1 

2 LAST  125 
1 

2 LAST  491 
1 

4 LAST  491 


1 

7 LAST  341 

2 LAST  301 

2 LAST  119 
1 

1 

3 LAST  491 

4 LAST  491 

5 LAST  491 

1 

6 LAST  491 

7 LAST  491 

2 LAST  491 

8 LAST  491 

9 LAST  491 

10  LAST  491 


42,3607 

42V3610 

42.3611 

42.3612 
42  ,3613 

42.3614 

42.3615 
42  ,3616 
42,3617 

42.3620 

42.3621 

42.3622 
42  ,3623 

42.3624 

42.3625 
42  ,3626 
42,3627 

42.3630 

42.3631 

42.3632 

42.3633 

42.3634 

42.3635 
42  ,3636 
42,3637 

42.3640 

42.3641 

42.3642 
42  ,3643 

42.3644 

42.3645 
42  ,3646 
42,3647 

42.3650 

42.3651 
42,  3652 
42  ,3653 
4253654 
42,3655 
42  ,3656 
42,3657 

42.3660 

42.3661 

42.3662 
42  ,3663 
42,366^ 
42,3665 
42  ,3666 
42,3667 
42,3670 


47CC1  0 
00001  0 
21574  1 
34041  0 
27077  1 
46135  1 
00050  1 
65634  0 
77775  1 
00001  0 
16205  1 
0CC15  0 
77624  1 
33647  1 
74375  0 
02723  0 
24C01  0 
53372  1 
02205  1 
77650  1 
65636  1 
77775  1 
00001  0 
53401  1 
OOCOl  0 
45076  1 
47541  1 
76521  0 
01734  0 
71206  0 
06524  1 
02201  0 
26203  I 
77624  1 
47673  0 
162C5  1 
02207  0 
45206  I 
02205  1 
77605  1 
25767  C 
16207  0 
41215  I 
C2205  1 
25767  0 
26205  1 
02205  1 
63256  0 
C2205  1 
72431  1 


C0NV3 


C0NV4 

C0NV5 


SETPO  PTB 

no 

LOACT !ME 
STCALL  TOECl 

LEMCON IC 
SLCAD  BHI2 
X2 

C0NV4 

VLCAO 


STCDL 

CALL 

VLOAO 

VSLl 

GOTO 

VLOAO 

SETPO 

VCOMP 

MXV 

PISH 

STORE 

STOVL 

CALL 


PATT 

RLM 

TAT 

LUNPCS 

VXSC 

VMOON 

REMOI ST 

VAO 

PLM 

CnNV5 

PATT 

UNIT 

00 

CALL 

CDUTRIG 

VSLl 

REFSMMAT 
OLCAD 
HI 6ZER0S 
PITCHANG 
YAWANG 


♦SMNB* 
STOOL  RLM 

RLM  +2 
PUSH  DSU 
RLM 


OMP 

1CVSCRT2 
STOOL  RLM  +2 
OAC  OMP 
RLM 

10VSQRT2 
STOVL  RLM 
PLM 

UNIT  POVL 
PLM 

VPROJ  VSL2 


PICK  UP  CURRENT  TIME 

ADVANCE  INTEGRATION  TO  TIME  IN  TDECl 

USING  CONIC  INTEGRATION 

X2  =0  EARTH  SPHERE,  X2  =2  MOON  SPHERE 


UNIT  POSITION  VECTOR  FROM  EARTH  TO  MOON 


MEAN  DISTANCE  FROM  EARTH  TD  MOON 


UE  = -UMTIPATTI  EARTF  SPHERE 

UE  = -UNIT!  (PEMUUEM)  + RL)  MOON  SPHERE 

SET  PL  POINTER  TO  0 

COMPUTE  SINES  AND  COSINES  OF  CDU  ANGLES 
TRANSFORM  REFo  COORDINATE  SYSTEM  TO 
STABLE  MEMBER  B-1  X B-1  X B+1  = 6-1 
PC 


ZFRO  OUT  ANGLES 


PRE-MULTIPLY  RLM  PY  INBSA)  MATRIX(BO) 


P 


6-1 


PROJECTION  OF  R ONTO  LM  XZ  PLANE 


GAP:  ASSEMBLE  REVISION  J31  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2C21112-C91 


L S-BAND  ANTENNA  FOR  LM 


2090  REF 

2091 

2092  REF 

2093  REF 

2094 

2095  REF 

2096 

2097  REF 

2098 

2099  REF 

2100 

2101  REF 

2102  REF 

2103 

2104 

2105  REF 

2106  REF 

2107 

2108  REF 

2109  REF 

2110 

2111  REF 

2112  PFF 

2113  REF 

2114 

2115  REF 

2116  REF 

2117 

2118  REF 

2119  REF 

2120 

2121  REF 

2122 

2123  REF 

2124 

2125  REF 

2126 

2127  REF 

2128  REF 

2129 

2130 

2131  REF 

2132 

2133  REF 

2134  REF 

2135 

2136  RFF 
21362  REF 
21364  REF 

2137  REF 


1 

11  LAST  491 


1 

1 

12  LAST  492 

2 LAST  492 

13  LAST  492 


3 LAST  491 
1 

2 LAST  492 

1 

4 LAST  487 

4 LAST  492 

5 LAST  492 

1 

2 LAST  492 

14  LAST  492 

6 LAST  492 

3 LAST  492 

7 LAST  492 
1 

15  LAST  492 

16  LAST  492 


2 LAST  49  1 

9 LAST  30  2 
26  LAST  469 

32  LAST  489 
4 LAST  301 
7 LAST  479 
1 


42.3672 

62.3673 

42.3674 
42  ,3  675 

62.3676 

42.3677 
42  ,3700 

62.3701 

42.3702 

62.3703 

62. 3706 
42  ,3705 
62  ,3706 

62.3707 
42  ,3710 

42.3711 

42.3712 

42.3713 

42.3714 
42  ,3715 

42.3716 

42.3717 
42  ,3720 

42. 3721 

42.3722 

42.3723 
42,  3724 
42  ,3725 

42.3726 

42.3727 

42 .3730 

42.3731 

42.3732 

42.3733 

62.3734 
42  ,3735 

42.3736 

42.3737 
42  ,3  740 

42.3741 

42.3742 

42.3743 

42.3744 
42  ,3745 

42.3746 

42.3747 

42.3750 

42.3751 

42.3752 


06520  C 
40045  1 
02205  1 
65675  0 
40056  0 
65743  1 
47206  n 
065)  6 0 
57572  0 
02205  1 
63241  0 
06520  0 
02205  1 
75246  0 
77736  0 
26201  0 
0CC07  C 
51041  0 
06516  0 
65721  0 
45345  1 
06522  1 
02201  0 
02201  0 
47375  C 
00001  0 
00007  0 
77772  0 
16205  1 
02201  0 
74356  1 
06516  0 
71525  0 
02201  0 
52361  1 
C6522  I 
63241  0 
02205  I 
022C5  1 
75246  0 
77736  C 
02203  1 
77776  1 
3 1C43  1 
7 4747  0 
C 0006  I 
1 5472  1 
3 5017  I 
C 5146  1 
3 3765  0 


6VSU 


COVCNV  UNIT 
PUSH 


VSLl 

STORE 

OCT 


ABVAL 
AS  IN 
STOVL 


DOT 


CLOAD 


STORE 
NHAOJLST  VLCAD 


VSLl 

STOOL 

SIN 

POOL 

VXSC 

DOT 


ABVAL 

ASIN 

STORE 

SEANDEX  EXIT 
CA 

MASK 

EXTEND 

BZF 

CAF 

TC 

CAF 


HILMTY 

BOV 

RLM 

CCVCNV 

BOV 

SBANCEX 

vxv 

HIUNITZ 

VCCMP 

RLM 

PDVL 

HI  UNI TY 

RLM 

SIGN 

PITCHANG 

URP 

BPL 

HIUNITZ 

NOADJUST 

DSU 

HIDPHALF 
P I TCHANG 
PITCHANG 

vxv 

UP 

URP 

RLM 

PITCHANG 

VXSC 

HIUNITZ 

COS 

P I TCHANG 
VSU 

HIUMTX 
PDVL 
RLM 
RLM 
S IGN 

YAWANG 

EXTVBACT 

BIT5 


ENOE  XT 
PR  105 
PRICCHNG 
V06N51 
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USER'S  PAGE  NOo  3 £7  S4 

CLEAR  OVERFLOW  INDICATCR  IF  ON 

EXIT  ON  OVERFLOW 

URP  VECTOR  B-] 

UZ  X URP  = -(URP  X UZ  I 
X VEC  B-l 
SGN(XoUY)  UNSCALED 

ASINl  (SGN(XoUY  ) )AeV(xn  REV  BO 


YES,  -90  TO  +90 


Z = (UR  X URP I 

Z VEC  B-l 


(UX  CCS  ALPHA)  - (UZ  SIN  ALPHA) 
YAWoZ 


IS  BITS  STILL  ON 
NO 


DI SPLAY  ANGLES 


GAP: 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C91 


L S-BANO  ANTENNA  FQR  LM 


2138  REF 

2139  REF 

2140  REF 

2141  REF 

2142  REF 

2143  REF 

2144  REF 

2145  REF 

2146  REF 
2148  REF 

2150 

2151 

2151 

2152 

2153 

2154  REF 


104  LAST 
5 LAST 

7 LAST 

8 LAST 
67  LAST 
2A  LAST 

8 LAST 
4 LAST 
8 LAST 
2 LAST 


6 LAST 


301 
301 
493 
479 
461 
30  1 
301 
49  2 
28  2 


47  5 


42r3753  C 4616  1 TC 

42,3  7-54  20353  0 CAOR 

42.3755  C 5563  1 TC 

42.3756  C 5563  1 TC 

42  ,3757  C 5155  0 TC 

42,376C  2 4751  C CAF 

42.3761  0 5464  1 TC 

42.3762  3 4740  0 CAF 

42.3763  C 5146  1 TC 

42  ,3764  0 3606  1 TC 

42.3765  C1463  1 vn6N51  VN 

42.3766  26501  1 1CVSQRT2  20EC 

42  ,3767  07463  1 

0000  UR  EQUALS 

0006  URP  EQUALS 

30,2000  SeANK= 


8ANKCALL 

GOMARKFR 

B50FF 

B50FF 

EN0OFJO6 

eiT3 

BLANKET 

PR  IC4 

PR  I CCHNG 

SBANOANT 

0651 

o7071067815 

OC 

6D 

LOWSUPFR 


***  ENC  CF  LEMCKAICol04 
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USER'S  PAGE  NOo  * E7  S4 


TERMINATE 

PROCEED 

RECYCLE 

IMMEDIATE  RETURN 
BLANK  R3 


YES,  CONTINUE  DISPLAYING  ANGLESo 
1 /SQRT(2  J 


GAP;  ASSEMBLE  REVISION  131  OF  AGO  PFCCRAM  LUMINARY  0Y  NASA  2021112-091 


0001 

0002 

0003 


RADAR  LEAOIN  ROUTINES 

REF  I 


25,2003 
25  ,2000 
25,2003 


BANK  25 
SETLOC  RRLEADIN 
BANK 


REF  7 LAST  317  £4,1600 

RADAR  SAMPLING  LOOPo 


E6ANK=  RSTACK 


0006 

0007 

0000 

0009 


REF  7 LAST  281 
REF  15  LAST  472 


COUNT*  St/RLEAC 

25.2003  11*777  0 RAOSAMP  CCS  RSAMPDT 

25.2004  1 2006  1 TCF  +2 

25,2QC5  1 5261  0 TCF  TASKCVER 


0010 

0011 

0012 

0012 

0013 

0014 

0015 

0016 
0016 

0017 

0018 

0019 

0020 
0021 
0022 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 


LAST 

LAST 


471 

494 

279 


472 

494 


47  LAST  480 


LAST 

LAST 

LAST 

LAST 


280 
28  1 
280 
494 


25  ,2006 
E4,16C0 
25,2007 

25.2010 

25.2011 

25.2012 
E4,160Q 

25.2013 

25.2014 

25.2015 

25.2016 

25 .2017 

25.2020 

25.2021 

25.2022 


0 5203  0 

02Q03  0 
52064  1 
2 7716  C 

0 5072  1 

02023  1 
52064  1 
2 4736  1 
C 0006  1 
7 1776  1 
6 1775  C 
55*773  1 

1 5261  0 


CAF 


WAITLIST 

RSTACK 

RAOSAMP 


PR  I C25 
TC  NOVAC 

EBANK=  RSTACK 
2CA0R  DORSAMP 

CAF  BIT14 
EXTEND 

MP  RTSTLOC 
AD  RTSTBASe 
TS  RTSTOEX 

TCF  TASKCVER 


CC  THE  ACTUAL  RADAR  SAMPLE* 


0024 

0025 

0026 


REF  1 
REF  105 
REF  3 


25  ,2023 

25.2024 

25.2025 


0 2060  0 
C 4616  I 
17705  0 


TC  VARADAR 

TC  BANKCALL 

CADR  RAOSTALL 


0027  REF 


25,2026  25*575  1 


0028 

00281 

00262 

00263 

00264 


REF  15 
REF  3 
REF  164 
REF  1 


LAST 

LAST 

LAST 


478 

282 

480 


25,2027 

25 .2030 

25.2031 

25.2032 
25  ,2033 


C 0004  0 
3 0101  1 
7 4741  0 
10  000  0 
1 2050  1 


OnRSAMP2  INHINT 
CA 

MASK 
CCS 
TC  F 


0029 

0030 

0031 


REF  2 
REF  4 
REF  10 


LAST 

LAST 

LAST 


103 

494 

494 


25.2034 

25.2035 

25.2036 


53'lCl  1 
51*776  0 
53*601  0 


DXCH  SAMPLSUM 
INDEX  RTSTLOC 
DXCH  RSTACK 


003X1 

00312 

00313 


REF  32  LAST 
REF  7 LAST 


474 

420 


25,2037 
25  ,2040 
25,2041 


3 OUO  1 
C 0006  1 
06  033  1 


CA  PADMCDES 

EXTEND 

RXCR  CHAN33 
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USER  'S  PAGE  N0«.  1 EO  S? 


TIMES  NORMAL  ONCF-PER-SECOND  SAMPLING* 
+0  INSERTED  MANUALLY  TERMINATES  TEST* 


FOR  CYCLIC  SAMPLING,  RTSTOEX  = 
PTSTLOC/2  + RTSTBASE 

0 FOR  RR,  2 FOR  LR* 


SELECTS  VARIABLE  RADAR  CHANNEL* 


ADVANCE  FAIL  COUNTER  BUT  ACCEPT  BAD  DATA 


DON'T  UPDATE  RSTACK  IF  IN  R77« 


GAP;  ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-0'31 


L RADAR  LEACIN  ROUTINES 


0031A  REF  38  LAST  466 

00315 

00316  REF  2 LAST  494 


25  ,2042 

25.2043 

25.2044 


4746 

C0C6 

2050 


1 

1 

1 


MASK 

EXTEND 

6ZF 


BIT6 

R77IN 


00317  REF  20  LAST  390 
0031  8 

00319  REF  3 LAST  494 


25.2045  C 5567  0 

25.2046  00522  1 

25.2047  25'575  1 


TC  ALARM 

nCT  522 

INCR  PFAILCNT 


0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 


REF  5 LAST  49^ 
REF  2 LAST  279 


REF  6 LAST  495 
REF  32  LAST  462 
REF  7 LAST  495 
REF  68  LAST  493 


25.2050 

25.2051 

25.2052 

25. 2053 

25.2054 

25.2055 

25.2056 

25.2057 


4 1776  1 
6 1774  1 

n 0006  1 
1 2056  I 
3 1776  0 
6 4752  0 
55'776  1 
1 5155  I 


R77IN 


CS  RTSTLOC 

AO  RTSTMAX 

EXTEND 
6ZF  +3 

CA  RTSTLOC 

AD  TWO 

TS  RTSTLOC 

TCF  ENDOFJOB 


R0056  VARIABLE  RADAR  DATA  CALLER  FCR  ONE  MEASUREMENT  ONLYo 


0057 

0058 

0059 

0060 
0061 


REF  60  LAST  474 

REF  5 LAST  478 

REF  5 LAST  494 

REF  1 

REF  3 LAST  372 


25.2060  3 4753  1 

25.2061  54  133  I 

55.2062  51'773  0 

25.2063  3 2065  0 

25.2064  1 4622  1 


VARAOAR  CAF  ONE 
TS  BUF2 

INDEX  RTSTOex 
CAF  RORLOCS 
TCF  SWCALL 


0062  REF  1 

0063  REF  1 

0064  REF  1 

0065  REF  1 

0066  REF  I 

0067  REF  I 


25,  2065 
25  ,2066 
25,2067 

25.2070 

25.2071 
25,  2072 


53114  0 
53112  0 
53110  1 
53106  0 
53104  1 
53102  1 


RORLOCS 


CADR  RRRANGE 
CACR  RRRDDT 
CADR  LRVELX 
CADR  LRVEIY 
CACR  LRVELZ 
CADR  LRALT 
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USER'S  PAGE  NCe  2 64  S3 


CYCLE  RTSTLOC 


STORAGE  IS  DP 

CONTINUOUS  SAMPLING  AND  2N  TRIES  - GONEc 


KILL  BE  SENT  TC  RACAR  RCUTINE  IN  A BY 
SWCALLo 


NOT  TOUCHING  Qo 

=0 
= l 
=2 
= 3 


gap:  assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
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POOOl 

R0002 

R0003 

R0004 

R0005 

R0006 

ROOn? 

ROOOB 

R0009 

ROOlO 

ROOll 

R0012 

R0013 

R0014 

R0015 

R0016 

R0017 

R0018 

R0019 

R0020 

R0021 

R0022 

R0023 

R0024 

R0025 

R0026 

R0027 

R002e 

R0029 

R0030 

R0031 

R0032 

R0033 

R0034 

R0035 

R0036 

0037 


P20-P25 

RENCEZVOUS  NAVIGATION  PROGRAM  2C 

PROGRAM  CESCRIPTIQN 

MOD  NO  - 2 

BY  Pa  VOLANTE 

FLNCTICNAL  OESCRIPTICN 

THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  CONTROL  THE  RENOEZVCUS  RAOAP  FROM 
STARTUP  THROUGH  ACQUISITION  AND  LOCKON  TO  THE  CSM  AND  TO  UPDATE  EITHER 
THE  LM  OR  CSM  STATE  VECTOR  (AS  SPECIFIED  BY  THE  ASTRONAUT  BY  OSKY  ENTRY) 
CN  THE  BASIS  OF  THE  RR  TRACKING  OATAo 
CALLING  SEQUENCE  - 

ASTRONAUT  REQUEST  THROUGH  DSKY  V37E2nE 
SUBROUTINES  CALLED 

R02BOTH  ( IMU  STATUS  CHECK) 

GCFLASH  (PINEALL-CISPLAY  ) 

R23LEM  (MANUAL  ACCUISITICN) 

LS201  (LOS  DETERMINATION) 

LS2Q2  (RANGE  LIMIT  TEST) 

R61LEM  (PREFERRED  TRACKING  ATTITUDE) 

RZILEM  (RR  DESIGNATE)  EN00FJ08 

R22LEM  (DATA  READ)  GOPERFl 

R31LEM  (RENDEZVOUS  PARAMETER  DISPLAY) 

PPICLARM  (PRIORITY  DISPLAY) 

NORMAL  EXIT  MODES- 

P20  MAY  EE  TERMINATED  IN  TkO  NA Y S- A STRONAUT  SELECTION  OF  IDLING 
PROGRAM  (PCO)  EY  KEYING  V37E00E  OR  BY  KEYING  IN  V56E 
ALARM  OR  ABORT  EXIT  MOOES- 

RANC-E  GREATER  THAN  400  NM  DISPLAY 
0LTPU7 

TRKMKCNT  = NO  OF  RENDEZVOUS  TRACKING  MARKS  TAKEN  (COUNTER) 

ERASABLE  I MT  I AL  1 Z AT  I C N REQUIRED 
FLAGS  SET  + RE  SET 

SRCHOPT ,RNDVZFLG,ACMOOFLO, VEHUPFLGtUPOATFLG ,TRACKFLG , 

DEBRIS 

CENTRALS-A.QtL 

REF  7 LAST  493  30,2000  SBAN'K=  LOWSUPER 


USER  ' S PAGE  NGe 


FLAGUP 

FLAGOOWN 

BANKCALL 

TASKOVER 


FOP  LOW  2CA0P’Se 


0030 

0039 

0040 


33,2045 

24,2000 

24,2000 


BANK  33 
SETLCC  P20S 
BANK 


0041 

0042 
00421 

0043 

0044 

0045 

0046 

0047 


REF 

REF 

REF 

REF 


LAST  270  E7,1456 

LAST  236  24,2000 

24,2000 
24,20C1 

24.2002 

24.2003 

24.2004 


0 5327  1 
00004  0 
05022  1 
26000  0 
0 2670  I 


PR0622 

PRCG20 


OCT 

OCT 

OCT 


05022 

26000 

LUNSFCHK 


PRIORITY  26 
CHECK  IF  ON  LUN/ 


P SURFACE 


GAP;  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
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L P20-P25 


USER  ' S PAGE  NCe  2 E7  S3 


00A8  REF  1 

OO'Vg  REF  1 

0050  REF  17 

0051  REF  3 

0052  REF  61 

0053  REF  1 

0054  REF  1 

0055  REF  106 

0056  REF  1 

0057  PEF  4 

0058  REF  1 

0059 

0060  REF  62 

0061  REF  2 

0062 

0063  REF  2 

0064  REF  1 

0065  REF  107 

0066  REF  7 

0067  REF  5 

0068  REF  1 

0069 

0070  REF  32 

0071 

0072  REF  1 

0073 

0074  REF  1 

0075 

0076  REF  1 


LAST  489 
LAST  291 
LAST  495 


LAST  494 
LAST  479 


LAST  4f'7 
LAST  497 


LAST  497 


LAST  497 
LAST  489 
LAST  497 


LAST  A90 


2A,2005  C 2C07  I 

24.2006  0 2036  0 

24.2007  0 5504  0 

24.2010  00026  0 

24.2011  3 4753  1 

24.2012  E5‘ 144  0 

24.2013  2 A363  0 

24.2014  0 4616  1 

24.2015  2Q63A  1 

24.2016  C 6001  0 

24.2017  0 2021  0 

24.2020  C 2013  I 

24.2021  4 4753  0 

24.2022  6 1144  I 

24.2023  C 0006  1 

24.2024  1 2040  0 

24,2''25  3 2311  0 

24.2026  C A616  1 

24.2027  20477  1 

24.2030  0 6CC1  0 

24.2031  0 2033  0 

2A,2032  0 2025  1 

24.2033  0 6042  I 

24.2034  77650  1 

2A,2035  6A217  1 

32.2217 
32 ,2000 

22.2217 


OReCHGO 


ORBCHGl 


0RBCHG2 


TC  ORECHGO 

TC  PR0G20A  -2 

TC  UPFLAG 

ADRES  VEHUPFLG 

CAF  ONE 

TS  0PTIQN2 

CAF  OCT0001  2 

TC  BANKCALL 

CAOR  G0PERF4 

TC  GOTOPOOH 

TC  ORBCHGl 

TC  -5 

CS  ONE 

AD  □PTI0N2 

EXTEND 

B2F  PROG20A 

CAF  Vn6N33* 

TC  BANKCALL 

CAOR  GOFLASH 

TC  GOTCPCCH 

TC  0ReCHG2 

TC  -5 

TC  INTPRET 

GOTO 

ORBCHGS 
BANK  32 

SETLOC  P20S4 

BANK 

COUNT#  $$/P20 


YES 

NO  - CONTINUE  WITH  P2n 

SET  VEHUPFLG  - CSM  STATE 

VECTOR  TO  BE  UPDATED 

SET  R2  FOR  OPTION  CSM  WILL  NOT 

CHANGE  PRESENT  ORBIT 

DISPLAY  ASSUMED  CSM  ORBIT  OPTION 

TERMINATE 

PROCEED  VALUE  OF  ASSUMED  OPTION  OK 
P2  LOADED  THRU  PSKY 


FLASH  VERB-NOUN  TO  REQUEST  ESTIMATED 

TIME  OF  LAUNCH 

TERMINATE 

PROCEED  VALUES  OK 

TIME  LOADED  THRU  OSKY 


0077 

0078  REF 

0079 

0080  REF 
00801  REF 

0081  REF 

0082 

0083  REF 

0084  REF 

0085 

0086  REF 
00B7  REF 
0088 

0089  REF 

0090 

0091  REF 

0092 

0093  REF 

0094  REF 

0095  REF 


5 LAST  299 

9 LAST  308 

2 LAST  150 
7 LAST  491 

A LAST  238 

1 

3 LAST  238 

2 LAST  238 

3 LAST  238 
1 

2 LAST  211 
2 LAST  150 

4 LAST  491 


22,2220 

32  ,2221 

32.2222 

32.2223 
32, 222A 

32.2225 

32.2226 

32.2227 

32.2230 

32.2231 

32.2232 

32 .2233 

32.2234 

32.2235 

32.2236 

32.2237 
32  ,2240 
32 ,2241 
32,22A2 


77745  1 
03A42  0 
03661  0 
00041  1 
A3C14  0 
01674  0 
C1673  1 
43C14  0 
C1676  1 
P1675  1 
77624  1 
27133  0 
77624  1 
11210  1 
77775  I 
00017  1 
17631  C 
00015  0 


CRBCHGB 


CALL 

OLOAO 


STORE 

STORE 

CLEAR 


CLEAR 

CALL 

CALL 

VLOAO 

STCOL 


I NTSTALL 
TIG 

LNCHTM 
TOEC? 
CLEAR 
V I NTFLAG 
I NTYPFLG 
CLEAR 
OIMOFLAG 
060R9FLG 

I NTEGRV 

GPP2PC 

RATTl 

RSUBL 

TAT 


ESTIMAT  EC  LAUNCH  T IME 

LM  INTEGRATION 
PRECISION  - ENCKE 

NO  W-MATRIX 


PLANETARY  INERTIAL  ORIENTATION 


SAVE  LM  POSITION 
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USER  • S PAGF  NCe  3 E7  S3 


0098 

0099  REF  5 

0100  REF  2 

0101 

0102  REF  4 

0103  REF  3 

0104  REF  1 

0105 

0106  REF  5 

0107  REF  3 

0108 

0109  REF  4 

0110 

0111  REF  2 

0112 

0113  REF  6 

0114  REF  1 

0115  REF  3 

0116  REF  1 

0117 

0118  REF  2 

0119 

0120  REF  3 

0121 
0122 

0123  REF  2 

0124  REF  2 

0125 

0126  REF  3 

0127 

0128  REF  2 

0129 

0130  REF  1 

0131 

0132  REF  2 

0133  REF  3 

0134  REF  1 

0135  REF  3 

01351 

0136  REF  2 

0137 

0138  REF  1 

0139  REF  1 

01391 

0140  REF  2 

01401 

01402  PEF  1 

01403  REF  2 


LAST 

LAST 


LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 


497 

407 

497 
238 

498 
497 

497 

497 

211 

497 

498 

497 

150 

498 

498 

126 

126 

496 

498 

126 


150 

150 


32.2244 

32.2245 

12. 2246 

32.2247 
32,225C 
32,2251 
32  ,2252 

32.2253 

32.2254 

32 .2255 
22,  2256 
32,2257 

32.2260 

32.2261 
32  ,2262 

32.2263 

32.2264 
32  ,2265 

32.2266 

32.2267 

32.2270 

32.2271 
32  ,2272 

32.2273 

32.2274 
32  ,2275 

32.2276 

32.2277 
32  ,2300 
32,2301 
32  ,2302 
32,2303 
32  ,2304 
32  ,23  05 

32.2306 

32.2307 

32.2310 

32.2311 
32  ,2312 

32.2313 

22.2314 

32.2315 

32. 2316 

32.2317 

32.2320 

32.2321 
32  ,2322 

32 .2323 

32.2324 


43C14 
C1474 
01673 
43C14 
C1676 
02756 
64257 
43C14 
01476 
C1475 
77624 
27133 
77624 
11210 
77775 
00C25 
25761 
00C17 
OllOl 
53435 
01761 
24025 
C3631 
53435 
00025 
27637 
CllOl 
50256 
C3637 
77752 
02732 
44316 
06514 
77766 
26730 
01101 
266  55 
01761 
77676 
02744 
45C14 
C3666 
24732 
77676 
C3645 
77745 
CQ037 
27663 


C 

1 

0 

1 

1 

0 

1 

1 

0 

0 

0 

c 

1 

0 

1 

1 

I 

0 

c 

1 

0 

0 

c 

0 

0 

0 

0 

0 

0 

c 

0 

1 

0 

0 

1 

c 

1 

0 

0 

0 

0 

1 

0 

1 

I 

0 

0 

1 

c 

1 


ND^iMATX 


STCALL 

SET 


CLEAR 


SET 


CALL 

CALL 

VLCAD 

STOVL 

STORE 

VXV 

STOVL 

VXV 

STOVL 

UNIT 

SLl 

STCRE 

DSO 

SORT 

STOVL 

STOVL 

VCCMP 

STORE 

CLEAR 


VCCMP 

STORE 

CLOAD 

STOVL 


TCECl 

INTSTALL 

CLEAR 

VI NTFLAG 

INTYPFLG 

BCFF 

DI MOFLAG 
RENCWFLG 
NGt,MATX 
SET 

OIMOFLAG 

D6CR9FLG 

INTEGPV 

GRP2PC 

VATTl 

VSUBC 

PATTI 

RSUBC 

UNIT 

VSUBC 

20D 

RSUBL 

UNIT 

20D 

UCSK 

RSUBC 

GOT 

UCSM 

CSTH 

BDSU 

ONEO-2 

SNTH 

RSUBC 

RVEC 

VSUBC 

VVEC 

CALL 

RVSW 

TIMETHET 

NElsVEL 

T 

TRANSTM 


CSM  INTEGRATION 


W MATRI  X VALID 
NO 

YES  - SET  FCP  W MATPIX 


CSM  INTEGRATION 


SAVF  CSM  VELOCITY 
SAVE  CSM  POSITION 

COMPUTE  NORMAL  TO  CSM  ORBITAL  PLANE 
NSU61=UN1T(RICM)  CPCSS  VICMI 
SAVE  NSUBl 

COMPUTE  ESTIMATED  ORBITAL 
PLANE  CHANGE 

UCSM  = UNIT(R(LM)  CROSS  NSUBl) 

COMPUTE  ANGLE  BETWEEN  UCSM 
AND  RSUBC 

COS  A = UCSM  DOT  UNIT  (R(CMI) 

SAVE  DOE  TIMF-THETA  SUBROUTINE 
COMPUTE  SINE  A 


SAVE  FOR  TIME-THETA  SUBROUTINE 
POSITION  OF  CSM  AT  ESTo  LAUNCH 
TIME  FOR  TIMF-THETA  0-27 
VELOCITY  OF  CSM  AT  E ST,^  LAUNCH 

TI  ME  FOR  TI ME  THETA  B-5 


TERMINAL  VELOCITY  CF  CSM 

TRANSFER  T I MF 
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L P20-P25 


USER  ‘S  PAGE  NOo  A E7  S3 


OlAOA  PEF 
01 A1 
OlAll 
01A2 

0143  REF 
01A4 

0145  REF 

0146 

0147  REF 

0148 

0149 

0150  REF 

0151  REF 

0152 

0153  REF 

0154 

0155  REF 
01551  REF 

0156  REF 

0157  REF 

0158  REF 

0159  REF 

0160  REF 

0161  PEF 

0162  REF 
01621 
01622 

0163  REF 

0164 

0165  PEF 

0166 

0167  REF 

0168  PEF 

0169 

0170  REF 

0171 

0172  REF 


3 LAST 


2 LAST 
4 LAST 

3 LAST 


1 

3 LAST 
7 LAST 

3 LAST 

3 LAST 

4 LAST 
A LAST 
A LAST 
2 LAST 
2 LAST 
2 LAST 
1 


2 LAST 


108  LAST 
3 LAST 

2 LAST 

2 LAST 


498  22,2325 

32,2326 
32  ,2327 
32,2330 
150  32,2331 

32,2332 

498  32,2333 
32,2334 

499  32,2335 

32.2336 

22.2337 
22, 2^40 

498  32,2341 

22,2342 
498  22,2343 

32  ,2344 

498  32,2345 

497  32,2346 

322  32,2347 

499  32,?35C 

323  32,2351 

111  32,2352 

499  32,2353 

111  32  ,2354 

32.2355 

32.2356 
32  ,2357 

37  32,2360 

32.2361 

32.2362 

22.2363 
497  32,2364 

497  32,2365 

24,2036 
496  24,2000 

24,2036 
496  TO  497: 


C3645  C 
77646  0 
24025  0 
COCCI  0 
03653  1 
53435  0 
03631  0 
53435  0 
C3653  1 
76561  1 
G0C25  0 
37665  C 
11210  1 
77624  1 
27410  1 
44345  0 
C3663  1 
03661  0 
25517  0 
C?653  1 
01535  0 
25503  0 
03665  1 
35511  1 
27705  0 
45174  1 
00002  0 
26660  0 
77624  1 
27417  0 
77776  1 
0 4616  1 
50040  C 


30 


30^ 


ABVAL 

STOVL 

STORE 

VXV 

VXV 

VXSC 

STCALL 

CALL 

CLOAD 

STOVL 

STORE 

STCVL 

STCALL 

AXT,2 


CALL 

F XI  T 

TC 

r.ACR 

BANK 

SETLOC 

BANK 

COUNT* 


NEWVEL 

20D 

00 

NEWPOS 

UNIT 

RSUBL 

UNIT 

NEWPCS 

VSLl 

200 

NCSMVEL 

GRP2PC 

INTSTALL 
BOSU 
TRANSTM 
LNCHTM 
TFT 
NEWPCS 
RCV 
RRECT 
NC  SMVEL 
VRECT 
MIMRECT 
CALL 
2 

ATCPCSR 

INTWAK60 

BANKCALL 

PRCG20A 

24 

P20S 

$$/P20 


TERMINAL  POSITION  CF  CSM 
COMPUTE  NORMAL  TO  CSM  ORBITAL  PLANE 
NSUeZ  = UMKNEWPCS  CRCSS  P(LMH 
ROTATE  TERMINAL  VE L INTC  DESIRED 
ORBITAL  PLANE 

VSUBC  = ABVAL ( NEWVEL ) t UNIT!  NSUB2 
NEW  CSM  VELOf  ITY 


LAUNCH  TIME  - TPANSFER  TIME 


0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 


REF  37 
REF  4 
PEF  109 
PEF  2 
REF  18 
REF  2 
REF  19 
REF  2 
REF  20 
REF  2 
REF  38 
REF  2 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


478 

497 

499 

341 

497 

289 

499 

289 

499 

289 

499 

289 


24.2040 

24.2041 

24.2042 

24.2043 

24. 2044 

24.2045 

24.2046 

24.2047 

24.2050 

24.2051 


0 4616  1 
11233  0 
C 5504  0 
00027  I 
C 5504  0 
00031  0 
C 5504  0 
00010  0 
0 5516  0 
00037  0 


DGWNFLAG 

VEHUPFLG 

BANKCALL 

R02  BCTH 

UPFLAG 

UPDATFLG 

UPFLAG 

TRACKFLG 

UPFLAG 

PNDVZFLG 

DOWNFLAG 

SRCHCPTN 


RESET  VEHUPFLG-  LM  STATE  VECTOR 
TO  BE  UPDATED 

SET  UPDATE  FLAG 
SET  TRACK  FLAG 
SET  RENDEZVOUS  FLAG 
INSURE  SEARCH  OPTION  OFF 
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L P20-P25 


0185 
0166 
0187 

0186 

0189 

0190 

0191 

0192 

0193 

0195 

0196 
C197 

0198 

0199 

0200 
0201 
0202 
0203 
020^ 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 


REF  39  LAST 
REF  1 
REF  40  LAST 
REF  5 LAST 
REF  41  LAST 
REF  3 LAST 
REF  42  LAST 
REF  1 
REF  5 LAST 
KEF  6 LAST 

REF  106  LAST 

REF  1 

REF  33  LAST 

REF  6 LAST 
REF  9 LAST 
PEF  I 

REF  1 

REF  236  LAST 

REF  1 

REF  1 

REF  110  LAST 

PEF  1 

REF  2 LAST 


REF  1 

REF  69  LAST 


499  14f2052 
2A,2C53 

500  24,205A 

281  24,2055 

500  24,2056 

272  24,2  057. 

500  24,2060 

24, 2061 
290  24  ,2062 

479  24,2063 

24,2064 
475  24,2065 

24,2066 
407  24,2067 

2A,2070 
491  2A,2071 

498  24,2072 
2A,2073 
24,207* 
24,2075 
£^,2076 

479  24,2077 

2A,2100 
24,  21G1 
24,2102 

499  2A,2103 
24,210A 

479  24,2105 

24,21C6 
24,2107 
A95  24,2110 


C 5516  0 
CCCAO  0 
0 5516  0 
C0063  I 
C 5516  0 
00126  1 
0 5516  0 
OOOAl  1 
0 6011  1 
0 5353  I 
04C22  0 
3 4755  1 
55'A62  I 
0 6042  1 
77634  0 
2157A  1 
34041  0 
51256  1 
77624  1 
53570  0 
77776  I 
50  154  1 
C 2101  0 
C 2111  1 
3 2305  0 
C A616  1 
21563  1 
0 6025  0 
C 21C2  0 
C 2063  0 
0 5155  0 


P20L6MI 


TC 

ACRES 

TC 

ACRES 

TC 

AOPES 

TC 

ACRES 

TC 

TC 

DCT 

CAF 

TS 

TC 

RTB 


DOWNFLAG 

ACMCCFLG 

OORNFLAG 

R04FLAG 

OORNFLAG 

NQRRMON 

DOWNFLAG 

LOSCMFLG 

CLRAOMOO 

PHASCHNG 

04022 

ZERO 

MARKCTR 

INTPRET 


LCADTIME 
STCALL  TCECl 

LPS20o] 

CALL 


LPS20o2 

EXIT 

INDEX  MPAC 

TC  +1 

TC  P2CLEMA 

526ALARM  CAF  ALRM526 

TC  BANKCALL 

CAOR  PRIOLARM 

TC  G0T0V56 

TC  -4 

TC  P20LEM1 

TC  ENCOFJCE 


0217  REF 

0218 

0219  REF 

0220  REF 

0221  REF  1 

0222  REF 

0223  REF 

0224 

0225 

0226  REF 

0227  REF 
02272  REF 
0227A  REF 
02276 
02278  REF 

0228  REF 

0229 


7 LAST  500 

2 LAST  496 
1 

11  LAST  500 
1 

8 LAST  500 


3 LAST  479 
9 LAST  493 

16  LAST  479 

4 LAST  479 

1 

26  LAST  461 


24.2111 

24.2112 

24.2113 

24.2114 
2A,2115 

24.2116 

24.2117 

24.2120 

24.2121 

24.2122 

24.2123 

24.2124 

24.2125 
2A, 2126 
24,2127 
24,2130 
2^,2131 


0 5353  1 
04022  0 
0 2670  1 
0 2117  1 
0 4616  1 

*i6116  0 

0 5353  1 
05022  1 
lOOOO  0 

3 7717  1 
C 5146  1 

2 0075  0 
7 4747  0 
C 0CC6  I 

1 2232  I 

3 4752  0 
C 0006  1 


P20LEMA  TC 
OCT 
TC 
TC 
TC 

CAOR 

P20LeM8  TC 
OCT 
OCT 
CAF 
TC 
CA 

MASK 
FXTEND 
82  F 

P20LEMB7  CAF 

E XTEND 


PHASCHNG 
04022 
LUNSFCHK 
P20LeH8 
BANKCALL 
R6UEM 
PHASCHNG 
^>5022 
10000 
PR  1026 
PRICCHNG 
FLAGWROl 
TRACKBIT 

P20LEMWT 

BIT2 
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ALSO  MANUAL  ACCUISITION  FLAG  RESET 

'TURN  CFF  R04FLAG  TO  ENSURE  GETTING 
ALARM  521  IF  CANT  READ  RADAR 
ENSURE  R25  GIMBAL  MONITOR  IS  ENABLED 
IRESET  NQRRMON  FLAG) 

RESET  LOS  BEING  COMPUTED  FLAG 


ZERO  MARK  COUNTER 

LOS  DETERMINATION  ROUTINE 


TFST  RANGE  R/UTINE 


NORMAL  RETURN  WITHIN  400  N M 
ERROR  EXIT  - RANGE  > 400  No  MIo 


TERMINATE  EXITS  P20  VIA  V56  CODING 
PRGC  (ILLEGAL 
ENTER  RECYC  LE 


CHECK  LUNAR  SURFACE  FLAG  IP22  FLAG) 


PREFERRED  TRACKING  ATTITUDE  ROUTINE 

RESTART  AT  PRIORITY  10  TO  ALLOW  V37 
REQUESTED  PROGRAM  TC  RUN  FIRST 
RESTORE  PRIORITY  26 

1 S THE  TRACK  FLAG  SET 


BRANCH  - NO  - WAIT  FOP  IT  TO  BE  SET 
IS  RR  AUTO  MODE  DISCRETE  PRESENT 
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0230  REF 

0231 

0232  REF 


8 LAST  A9A 
1 


2A,2132  02  033  0 
■2A,2133  0 0006  1 
2A,213A  1 2170  1 


RAND  CHAN33 
EXTEND 

B2F  P20LEM63 


0233  RtF 
023A  REF 

0235 

0236  REF 


A LAST  298 
9 LAST  A79 


2A,2135  A 6CC7  I 
2A»2136  6 1010  1 
2A,2137  0 0006  1 
2A,21AO  1 2153  0 


P20LEMB5 


CS  CCT2A 

AD  MODREG 

EXTEND 

BZF  P20L£Me6 


02363  REF  3 

02366 

02369  REF  2 

02A1  REF  1 

02A2  REF  112 

02A3  REF  2 

02AA  REF  3 

02A5  REF  2 

02A6  REF  3 

02A7  REF  70 

02A8  REF  1 

02A9  REF  113 

0250  REF  1 

0251  REF  A 

0252  REF  A 

0253  REF  3 

025A  REF  1 

0255  REF  1 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


A06 

501 

500 

500 

500 

500 

501 

500 

501 

501 

501 

500 


2At21Al 
2A,21A2 
2A,21A3 
2A,21AA 
2A, 21A5 
2A,21A6 
2A,21A7 
2A, 2150 
2A,2151 
2A,21S2 
2A,2153 
2A,215A 
2A»  2155 

24.2156 

24.2157 
24,2160 
24  ,2161 
24,2162 


6 7751  0 
C CC06  1 

1 2153  0 
3 2307  1 
C 4616  1 

21563  1 
0 6025  0 
0 2117  I 
0 2117  1 
C 5155  0 

2 2306  0 
C 4616  1 

20624  0 
0 6025  0 
0 2117  1 
0 2670  1 
0 2166  1 
0 3137  I 


AC 

EXTEND 

BZF 

CAF 

TC 

CADR 

TC 

TC 

TC 

TC 

P20LEMB6  CAF 
TC 

CADR 

TC 

TC 

TC 

TC 

TC 


NEG2 

P2CLEMB6 

ALRM514 

BANKCALL 

PR  lOLARM 

GCT 0V56 

P20LeMB 

P20LEMB 

ENCCFJCB 

GCT201 

BANKCALL 

GOPERFl 

GOTOV56 

P20LEMB 

LUNSFCHK 

P20LEMe2 

R23  LEM 


0256 

0257 

0258 


REF 

REF 

REF 


LAST 

LAST 

LAST 


499 

500 
5ni 


24.2163  0 5504  0 P20LEM61 

24.2164  00040  0 

24.2165  0 2117  1 


TC 

ACRES 

TC 


UPFLAG 

ACPOCFLG 

P2CLEVB 


0259  REF 

0260  REF 


6 LAST  450 
6 LAST  501 


24  ,2166  0 4364  1 

24,2167  0 2117  1 


P20LEMe2  TC 
TC 


FALTON 

P20LEPB 


0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 


REF  1 
REF  5 
REF  7 

REF  1 
REF  43 


LAST  494 


LAST 

LAST 


LAST 

LAST 


24.2170  4 OnO 

24.2171  7 4737  1 

24.2172  C 0006  1 

24.2173  1 2205  0 

24.2174  3 4355  0 

24.2175  7 0076  I 

24.2176  0 0006  1 

24.2177  I 2211  0 

24.2200  0 5516  0 

24.2201  00037  0 


CS  RADMODES 
MASK  RCCUneiT 
EXTEND 

BZF  P20LEMB4 
CAF  BIT13-14 
MASK  FLAGRRD2 
EXTEND 

BZF  P20LFMC3 
TC  OOV.NFLAG 
ACRES  SRCHOPTN 


0 P20LEMB3 
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YES  - DO  AUTOMATIC  ACQUISITION  (R21> 


RADAR  NOT  IN  AUTO  CHECK  IF 
MAJOR  MODE  IS  20 


BRANCH  - YBS-OK  TO  DO  PLEASE  PERFORM 


ALSO  CHECK  FOR  P22 

BRANCH  - YES  OK  TC  DO  PLEASE  PERFORM 
TRACK  FLAG  SET-FLASh  PRIORITY  ALARM  514- 
RACAR  GOES  OUT  OF  AUTO  MODE  WHILE  IN  USE 

TERMINATE  EXITS  VIA  V56 
FRCCEEO  AND  ENTER  BOTH  GO  BACK 
TO  CHECK  AUTO  MODE  AGAIN 

REQUEST  RR  AUTC  MCCE  SELECTION 


TERMINATE  EXITS  P20  VIA  V56  CODING 
PROCEED  CHECKS  AUTO  MODE  DISCRETE  AGAIN 
ENTFR  INDICATES  MANUAL  ACQUISITION  (R23» 
YES  - R23  NOT  ALLOWEO-TURN  ON  OPR  ERROR 
NO  - DO  MANUAL  ACQUISITION 


RETURN  FROM  R23  - LOCKON  ACHIEVED 
SET  MANUAL  FLAG  AND  GO  BACK  TO  CHECK 
RR  AUTO  MCOF 


TURNS  ON  OPEPATCR  ERROR  LIGHT  ON  DSKY 
AND  GOES  BACK  TO  CHECK  AUTO  MODE 


ARE  RR  CDUS  BEING  ZEROEC 


BRANCH  - YES  - WAI T 

IS  SEARCH  OR  MANUAL  ACQUISITION  FLAG  SET 


ZERO  MEANS  AUTOMATIC  RR  ACOUISTION 
RESFT  TO  AUTO  MODE 
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0271  PEF  44  LAST  501 

C272  REF  3 LAST  501 

0273  REF  2 LAST  500 


24.2202  0 5516  0 

24.2203  OOC40  0 

24.2204  C 2232  0 


TC  DOVsNFLAG 

AORES  ACMGOFLG 
TC  P20LEMWT 


0274  REF  1 

0275  REF  114  LAST 

0276  REF  7 LAST 

0277  KEF  2 LAST 


24,2205  3 2304  1 
501  24,2206  0 4616  1 
302  24,2207  C1736  1 
501  24,2210  0 2170  0 


P20L6MS4  CAF 
TC 

CADR 

TC 


250DEC 

RANKCALL 

OELAYJOB 

P20LEM63 


027705  REF 

02771 

027715  REF 

02772  REF 
027725  REF 
02779 

0278  REF 

0279 

0280  REF 

0281  REF 

0282 

0283  REF 

0284  REF 

0285  REF 
02  86 

0287  REF 

0288  PEF 


34  LAST  500 

7 LAST  500 
10  LAST  500 
1 

9 LAST  500 

20  LAST  479 
4 LAST  479 


71  LAST  501 
17  LAST  500 
5 LAST  5no 

1 

1 


24. 2211 

24.2212 

24.2213 

24.2214 

24.2215 

24. 2216 

24.2217 

24.2220 

24.2221 

24.2222 

24.2223 

24.2224 

24.2225 

24.2226 

24.2227 

24 .2230 

24. 2231 


C 6C42  1 
77634  0 
21574  1 
34041  0 
50312  1 
77776  1 

0 5353  1 
04022  0 

30  074  1 
7 4745  1 
C 0CC6  1 

1 5155  1 
30  075  0 
7 4747  0 
0 0006  1 
1 2264  1 
C 2675  1 


P20LEMC3 


P20LEMC4 

P20LEMC 


TC  INTPRET 

RTB 

LOACTIME 
STCALL  TOECl 
UPPSV 

EXIT 

TC  PHASCHNG 

OCT  04022 

CAE  FLAGWRDO 

MASK  RNDVZBIT 

EXTEND 

BZF  ENOCFJOB 

CAE  FLAGWRDl 

MASK  TRACKBIT 

EXTEND 

BZF  PZOLEMD 

TC  R21LEM 


0291  REF 

0293  REF 

0294  REF 
C295  REF 
0296  REF 
02  97 

029ft  REF 

0299  PEF 

0300 

0301  REF 


2 LAST  502 

5 LAST  386 
2 LAST  241 

18  LAST  502 

6 LAST  502 

72  LAST  502 
10  LAST  502 

73  LAST  502 


24.2232 

24.2233 

24.2234 

24.2235 

24.2236 

24.2237 

24.2240 

24.2241 

24.2242 

24.2243 


3 2304  1 
C 5173  1 
02244  1 
30  075  0 
7 4747  0 
0 0006  1 
1 5155  1 
C 5353  1 
40072  0 
0 5155  0 


P20LEMWT 


P20LMKT1 


CAF 

TC 

ADRES 

CAE 

MASK 

EXTEND 

BZF 

TC 

OCT 

TC 


250DEC 

TWIDDLE 

P2CLEMC1 

FLAGWRDl 

TRACKBIT 

ENOOFJOB 

PHASCHNG 

40072 

ENCOFJCB 


0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 


REF  21  LAST  502 
REF  5 LAST  502 

PEF  17  last  494 
REF  19  LAST  502 
REF  7 last  502 

REF  1 


24,2244  30  074  1 P20LEMC1  CAE  FLAGWRDO 


24.2245  7 4745  I 

24.2246  ( CC06  1 

24.2247  1 5261  0 

24,2^50  30  C75  0 

24.2251  7 4747  0 

24.2252  0 0006  1 

24.2253  1 2261  1 


MASK  RNDVZBIT 

EXTEND 

BZF  TASKOVER 

CAE  FLAGWRDl 

MASK  TPACK6IT 

EXTEND 

BZF  P20LEMC2 
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USER'S  PAGF  NO*  7 E7  S3 

WAIT  2<,9  SECONDS  THEN  GO  TO  RR  DATA  READ 

WAIT  2<,5  SECONDS  WHILE  RR  CDUS  ARE  BEING 
ZEROED-THEN  GO  BACK  AND  CHECK  AGAIN 


IS  THE  RENDEZVOUS  FLAG  SET 

NO  - EX  IT  P2D 

IS  TRACK  FLAG  SFT  (BIT  5 FLAGWORO  1» 

BRANCH-TRACK  FLAG  NOT  ON-WAIT  15  SECONDS 


USE  INSTEAD  OF  WAITLIST  SINCE  SAME  BANK 
WAIT  2«.5  SECONDS 
IS  TRACK  FLAG  SET 


NO-EXIT  WITHOUT  DOING  2o7  PHASE  CHANGE 


I S RENDEZVOUS  FLAG  SET 


NO  - EXIT  P20/R22 
IS  TRACK  FLAG  SET 


NO-OONT  SCHEDULE  R22  JOB 


gap:  assemble  REVISION  131  OF  AGC  FRCGBAP  LUMINARY  8Y  NASA  2021112-0<?1 


L P20-P25 


0310  REF  A 

0311  REF  17 

0312  REF  8 

0313  REF  1 

0313  REF  1 

031A  REF  18 


LAST  500 
LAST  465 
LAST  496 


LAST  502 


24.2254 

24.2255 
E7,1456 
24  ,2256 
24,2257 
24,2260 


3 7717  1 
C 5105  0 

02631  1 
5CC67  0 
0 5261  1 


CAF  PRI026 

TC  FINCVAC 

EBANK=  LOSCOUNT 
2CADR  R22LEM4? 


TC  TASKOVER 


0315  REF 

0316 


24.2261  0 5221  0 P20LEMC2  TC  FIXCELAY 

24.2262  02734  0 DEC  1500 


0317  REF 


3 LAST  502 


24  ,2263  0 2244 


TC  P2CLEMCI 


0318  REF  1 

0319  REF  6 LAST  502 

0320  REF  1 

0321  REF  74  LAST  502 


24,2264  3 2667  1 P20LEMD  CAF  1500DEC 


24.2265  0 5173  1 

24.2266  02270  0 

24.2267  0 5155  0 


TC  TWIDDLE 

ADPES  P20LEMD1 
TC  FN'OCFJCB 


0322  REF  20 

0323  REF  8 

0324  REF  165 

0325  REF  1 

0326  REF  2 

0327 

0328  REF  2 


LAST 
LAST 
LAST 

LAST  503 


LAST  503 


24.2270 

24.2271 

24.2272 

24.2273 

24.2274 

24.2275 

24.2276 


30  075  0 
7 4747  0 
10  OOC  0 
1 2277  0 
0 5221  0 
02734  0 
0 2270  0 


P20LeMCl 


502 

502 

404 


CAE  FLAGWROl 

MASK  TRACK0IT 

CCS  A 

TCF  P2CLEMD2 

TC  FIXCELAY 

DEC  1500 

TC  P20LEM01 


0329 

0330 

0331 

0332 

0332 

0333 


REF  5 LAST  503 

REF  18  LAST  503 

REF  9 LAST  503 

REF  2 LAST  501 


REF  19  LAST  503 


24,2277  3 7717  1 

24.2300  0 5105  0 
£7,1456 

24.2301  02211  1 

24.2302  50067  0 

24,2302  0 5261  1 


P20LEMD2 


CAF  PR1G26 

TC  FINDVAC 

EBANK=  LOSCCUNT 
2CA0R  P20LEMC3 


TC  TASKOVER 


0334 

0335 

0336 

0337 

0338 

0339  REF 

0341  REF 
03415 

0342 

0343  REF 

0344  REF 

0345 

0346  REF 

0347 


3 

3 


LAST 

LAST 


LAST 

LAST 


474 

354 


499 

238 


24.2304 

24.2305 
24,2S06 
24,2307 

24.2310 
4363 

23  ,2513 

24.2311 

24.2312 

24.2313 

24.2314 

24.2315 

24.2316 

24.2317 


00372  1 
00526  0 
00201  1 
00514  1 
00074  1 


01441  1 
45020  1 
01757  0 
27410  1 
77624  1 
26643  1 
43014  0 


250CEC 

ALRM526 

0CT201 

ALRM514 

MAXTRI ES 

□CTC')012 

ONEB-2 

V06N33# 

UPPSV 


DEC 

OCT 

OCT 

OCT 

CEC 

EQUALS 

EQUALS 

VN 

STO 


CALL 


BOF 


250 

00526 

00201 

514 

60 

RINCON 

DPl/4Th 

0633 

CALL 

LS21X 

I N'TSTALL 

SETIFLGS 

SET 
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USER'S  PAGE  NOo  8 £7  S3 

YES-SCHEDULE  R22  JCB  (PR  DATA  REAO> 


TRACK  FLAG  NOT  SET  ,WAIT  15  SECONDS 
ANC  CHECK  AGAIN 

WAITLIST  FOR  15  SECONDS 

IS  TRACK  FLAG  SET 

YES-SCHEDULE  DESIGNATE  JOB 
NO-WAIT  1 5 SECONDS 

SCHEDULE  JOB  TO  DO  R21 

START  AT  PERMo  MEMORY  INTEGRATION 


UPDATES  PERMANENT  STATE  VECTORS 
TO  PRESENT  TI  ME 


IF  W-MATRIX  INVALID, DCNT  INTEGRATE  IT 


GAP: 

L 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0361 

0362 

0363 

036^ 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

03  80 

0381 

0382 

0363 

0384 

0385 

0386 

0387 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 
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F20-P25 


USER*  S PAGE  NCc  9 E7  S3 


REF  4 LAST  498 

REF  1 

REF  6 LAST  498 

REF  4 LAST  254 

REF  1 

REF  4 LAST  498 


REF  5 LAST  499 

REF  1 

REF  6 LAST  498 


REF  5 LAST  498 
REF  4 LAST  499 


REF  Q LAST  503 

REF  4 LAST  238 

REF  7 LAST  504 


REF  3 LAST  503 
REF  11  LAST  502 
REF  6 LAST  504 


REF  5 LAST  504 
REF  1 
REF  1 


REF  1 
REF  I 


PEF  1 


PEF  2 LAST  503 


24.2321 

24.2322 

24.2323 

24.2324 

24.2325 

24. 2326 

24.2327 

24.2330 

24. 2331 
2-4,2332 

24.2333 

24.2334 
24,23  35 

24.2336 

24.2337 

24.2340 

24.2341 

24.2342 

24.2343 

24.2344 

24.2345 

24. 2346 

24.2347 

24.2350 

24.2351 

24.2352 

24.2353 

24.2354 

24.2355 

24.2356 

24.2357 

24.2360 

24.2361 

24.2362 

24.2363 


01476  0 
43C14  C 
04307  1 
50327  1 
C1475  0 
77614  1 
0C747  0 
50364  0 
77614  1 
C1474  1 
77624  1 
27133  0 
77624  1 
11210  1 
77624  1 
27410  1 
43145  0 
01571  0 
01674  0 
77624  1 
26643  1 
34041  0 
27133  0 
77214  0 
04347  0 
50216  1 
01661  1 
77742  0 
26352  1 
01667  1 
77742  0 
C2360  0 
77650  1 
C1757  0 


UPPSV5 


UPPSVl 


UPPSV4 


BON 

BOF 

SET 

CALL 

CALL 

CALL 

CLOAO 

CALL 


RENCWFLG 

UPPSVl 

DIMOFLAG 

SET 

SURFFLAG 

UPPSV5 

D60R9FLG 


VEHUPFLG 

UPPSV3 

VINTFLAG 


INTEGRV 

GRP2PC 

I NTSTALL 
CLEAR 
TETCSM 
VINTFLAG 


SETIFLGS 
STCALL  TDECl 

INTEGRV 
BOFF  VLOAO 

SURFFLAG 

P20LEMC4 

RCVLEM 

VSR2 

STOVL  LMFCS 
VCVLEM 

VSR2 

STORE  LMVEL 
GOTO 

LS21  X 


SET  DIMOFLAG  TO  INTEGRATE  W-MATRIX 
IF  ON  LUNAR  SURFACE  W IS  6X6 
OTHERWISE  9X9 


GROUP  2 PHASE  CHANGE 
TO  PROTECT  INTEGRATION 


GET  TETCSM  TO  STORE  IN  TOEC  FOR  LM  INT® 


INTEGRATE  OTHER  VEHICLE 
WITHOUT  W-MATRIX 


REF  8 LAST  504 

REF  7 LAST  504 

REF  5 LAST  504 

REF  10  LAST  504 

REF  9 LAST  504 

REF  2 LAST  112 

REF  1 


34.2364  45014  0 UPPSV3  CLEAR 

24.2365  01674  0 

24.2366  27133  0 

34.2367  77624  1 CALL 

24.2370  11210  1 

24.2371  77624  1 CALL 

24.2372  27410  1 

24.2373  71214  C SET 

24,-2374  01474  1 

24.2375  01643  1 

24.2376  77650  1 GOTO 

24.2377  50345  0 


CALL 

VINTFLAG 

INTEGRV 

GRP2PC 

INTSTALL 

DLGAO 

VINTFLAG 

TETLFM  GET  TETLEM  TO  STORE  IN  TOEC  FOR  CSM  INT, 

UPPSV4 
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USER  PAGE  NO*  10  E7  S3 


REF  10  LAST  503 
REF  1 


E7,.1456 


E8ANK=  LOSCCUNT 
COUNT*  $$/P22 
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L F20-P25 


USFP*  S PAGE  NCo  11  E?  S3 


POAOl  PROGRAM  DESCRIPTION 

R0402  PPEFERREC  TRACKING  ATTITUDE  PROGRAM  P25 

R0403  PCD  RC  - 3 

R04U4  BY  P.  VQLANTE 

R0405  FUNCTIONAL  DESCRIPTION 

RC406 

R0407  THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  COMPUTE  THE  PREFERRED  TRACKING 

R0408  ATTITUDE  OF  THE  LM  TC  CONTINUCUSLY  POINT  THE  LM  TRACKING  BEACON  AT  THE 

R0409  C5M  AND  TO  PERFORM  THE  MANE.UVER  TO  THE  PREFERRED  TRACKING  ATTITUDE  AND 

R0410  CONTINUOUSLY  MAINTAIN  THIS  ATTITUDE  WITHIN  PRESCRIBED  LIMITS 
R0411  CALLING  SEQUENCE  - 

R0412  ASTRONAUT  REQUEST  THROUGH  DSKY  V37E25E 

R0413  SUBROUTINES  CALLED  - 

R0414  BANKCALL  FLAGUP 

R0415  R02a0TH  ( IMU  STATUS  CHECK  I ENDOFJOB 

R0416  R61LEM  (PREF  TRK  ATT  RCUT  I WAITLIST 

R0417  TASKOVER  FINCVAC 

R0418  NCRMAL  EXIT  MOCES  - 

R0419  P25  MAY  BE  TERMINATED  IN  TWC  WAYS-ASTRCNAUT  SELECTION  OF  IDLING 

R0420  PROGRAMIPOOI  BY  KEYING  VSTEOCE  CR  BY  KEYING  IN  V56E 

R0421  ALARM  DR  ABORT  EXIT  MOOES  - 

R0422  NONE 

R0423  OUTPUT 

R0424  ERASABLE  I MT  I AL  I Z AT  I CN  RECUIPEC 
R0425  FLAGS  S 

R0426  TRACK 

R0427  DEBRIS 

R0428  NONE 

0429  REF  11 

0430  REF  1 

0431  REF  2 

0432 

0433 

0434 


ET  +•  RESET 
FLG,P25FLAG 


LAST  505  E7,1456 

LAST  496  24,24Cn 

24,2401 
24,2^02 
24,2403 


C 5327  1 
00004  0 
05022  1 
26CQ0  0 


E0ANK=  LOSCCUNT 
COUNT*  i$/P25 
TC  2PHSCHNG 

OCT  4 
OCT  05022 
nCT  26C00 


MAKE  GROUP  4 INACTIVE  (VERB  37) 
PRIORITY  26 


0435  REF  1 

0436  REF 

0437  REF 

0438  REF 

0439  REF 

0440  REF 
04402  REF 
04404  REF 

0441  REF 

0442 

0443  REF 
OiA4  REF 

0445 

0446  REF 

0447  REF 


15  LAST  502 
3 LAST  499 

22  LAST  501 
3 LAST  499 

23  LAST  506 

2 LAST  289 
45  LAST  502 

3 LAST  499 
11  LAST  502 

2 LAST  230 
31  LAST 

75  LAST  503 
9 LAST  503 


24.2404  0 4616  1 

24.2405  11233  0 

24.2406  C 5504  0 

24.2407  00031  0 

24.2410  C 5504  C 

24.2411  00006  1 

24.2412  C 5516  C 

24.2413  CCCIC  0 

24,24X4  0 5353  1 

24.2415  04022  0 

24.2416  ' ^i743  0 

24.2417  7 0074  0 

2A,2420  C CCC6  1 

24.2421  1 5155  1 

24.2422  3 4747  1 


P25LEM1 


TC 

CADR 

TC 

AORES 

TC 

ADPES 

TC 

ADRES 

TC 

OCT 

CAF 

MASK 

EXTEND 

BZF 

CAF 


BANKCALL 

R02BOTH 

UPFLA6 

TRACKFLG 

UPFLAG 

P25FLAG 

DOWNFLAG 

RNDVZFLG 

PHASCHNG 

04022 

P25FLB I T 

STATE 

ENDOFJOB 
TRACKB IT 


IMU  STATUS  CHECK 
SET  TRACK  FLAG 
SFT  P25FLAG 


IS  P25FLAG  SET 

IS  TRACKFLAG  SET? 
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P20-P25 


0AA8 

0AA9 

0450 

0451 

0452 

0453 

0454 

0455 
0458 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0466 

0467 

0468 


REF  32 

REF  1 
REF  7 
REF  1 
REF  116 
REF  I 
REF  2 
REF  1 
REF  7 
REF  1 
REF  76 
REF  1 
REF  19 
REF  12 
REF  3 


REF  20 


LAST  506 

LAST  460 

LAST  506 

LAST  241 

LAST  503 

LAST  506 

LAST  503 
LAST  506 
LAST  507 

LAST  503 


24i2424 

24,2425* 

24.2426 

24.2427 

24.2430 

24 .2431 

24.2432 

24.2433 

24.2434 

24.2435 

24.2436 

24 . 2437 

24.2440 
67,1456 

24.2441 

24.2442 

24.2443 

24. 2444 


7 0075 
C 0006 
1 2433 
3 4757 
E5'745 
0 4616 
46123 
C 2414 
3 2444 
0 5173 
02437 
0 5155 
3 5024 
0 5105 


1 

1 

0 

0 

I 

1 

0 

1 

1 

1 

0 

0 

1 

0 


C2414  1 
50067  0 
C 5261  1 
13560  0 


P25LMWT1 


P25LeM2 


60SCN0S 


MASK 

EXTEND 

BZF 

CAF 


EBANK= 

2CA0R 


STATE  +1 

P25LMWT1 

SEVEN 

P65CNTR 

BANKCALL 

R65L  EM 

P25LEMI 

60SCNDS 

TWIDDLE 

P25LEM2 

ENDOFJOB 

PRICJ.4 

F INDVAC 

LOSCOUNT 

P25LEW1 


TC  TASKCVER 

DEC  6000 
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USER'S  PAGE  NOe  12  E7  S3 

NO-SKIP  PHASE  CHANGE  AND  WAIT  1 MINUTE 
CALL  R65  - FINE  PREFERRED 

TRACKING  ATTITUDE  RCUTINE 

THEN  GO  CHECK  FLAGS 

WAIT  ONF  MINUTE  THEN  CHECK  AGAIN 


GAP  : 
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LEMP20S  r 1*5  PAGE  500 


L P20-P25 


USER  *S  PAGE  NOr,  13  E7  S3 


P0A71 
R0A72 
R0A73 
R0474 
R0^75 
R0476 
R0477 
R0A78 
R0479 
R0A80 
ROA81 
R0482 
R0483 
R0484 
R0485 
R 0486 
R0487 
R0488 
R0489 
R0490 
R 0491 
R0492 
R0493 
R0494 
R0495 
R0496 
R0497 
R049  8 
RC499 
R050O 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 


DATA  REAC  ROUTINE  22  (LEM> 
PROGRAM  DESCRIPTION 
MOD  NO  - 2 
BY  P V0LANT6 
FUNCTIONAL  DESCRIP7ICN 


TC  PROCESS  AUTOMATIC  RP  MARK  CATA  TO  UPDATE  THE  STATE  VECTOR  OF  EITHER 
LM  OR  CSM  AS  DEFINED  IN  THE  RENDEZVOUS  NAVIGATION  PROGRAM  ( P20  ) 

CALLING  SEQUENCE  - 

TC  BANKCALL 

CAOR  R22LEM 
SUBROUT INES  CALLED  - 

LSR22ol  GCFLASH  WAITLIST 

LSR22o2  PRIOLARM  BANKCALL 

LSR22e3  R61LEM 

NORMAL  EXIT  MODES- 

R22  WILL  CONTINUE  TO  R EC YC L E , UPOAT ING  STATE  VECTORS  WITH  RADAR  DATA 
UNTIL  P20  CEASES  TC  OPERATE  (RENDEZVOUS  FLAG  SET  TC  ZERO)  AT  WHICH  TIME 
R22  WILL  TERMINATE  SELFe 
ALARM  OP  ABORT  EXIT  MODES- 
PRIORITY  ALARM 

PRIORITY  ALARM  525  LOS  NOT  WITHIN  3 DEGREE  LIMIT 
OUTPUT 

SEE  OUTPUT  FROM  LSR22o3 
EFASAPLE  INITIALIZATION  REQUIRED 
SEE  LSR22o  1 r LSR22«.2  ,LSR22o3 
FLAGS  SET  + RESET 
NGANGFLG 


DEBR  I S 
SEE  l: 
REF  2 
REF  1 
REF  12 

REF  6 
REF  33 

KEF  77 
REF  10 
REF  34 


REF  1 
REF  A8 


REF  24 


REF  2 
REF  27 


REF  9 


22ol  .LSP  22. 
LAST  148 

LAST  506 

LAST  502 
LAST  507 

LAST  507 
LAST  506 
LAST  508 


LAST  494 
LAST  472 


LAST  500 
LAST  500 

LAST  501 


2,  LSR  22o  3 
E7, 1737 

24,2445 
24  ,2446 
24,2447 

24.2450 

24.2451 

24.2452 

24.2453 

24.2454 

24.2455 

24.2456 

24.2457 

24.2460 

24.2461 

24.2462 

24.2463 

24.2464 

24.2465 
24  ,2466 


C 5353  1 
04022  0 
3 4745  0 
7 0074  0 
0 0006  1 
1 5155  1 
3 4747  1 
7 0075  1 
C 0006  1 

1 2640  0 
3 4736  1 
0 0006  I 

02  012  0 
C C006  I 
L 2111  0 
3 4752  0 
C 0006  I 
02  033  0 


EBANK= 

CCUNT* 

R22LEM  TC 
OCT 
CAF 
MASK 
EXTEND 
BZF 
CAF 
MASK 
EXTEND 
BZF 

R22LEM12  CAF 

EXTEND 

RAND 

EXTEND 

BZF 

CAF 

EXTEND 

RAND 


LRS22e  IX 

St/R22 

PHASCHNG 

04022 

RNITVZB  IT 

STATE 


ENDCFJCB 
TRACK8I  T 
STATE  +1 


R22WA1T 
BIT!  4 


CHAN12  - 


P20LEMA 

BIT2 


CHAN33 


IS  RENOESVnUS  FLAG  SET? 


NO-EXIT  R22  AND  P20 
IS  TRACKFLAG  SET? 


NO  WAIT 

IS  RR  AUTO  TRACK  FNABLE  DISCRETE  STILL 
ON  (A  MONITOR  REPOSITION  BY  R25  CLEARS  IT 


NO  - RETURN  TO  P20 
YES 

IS  RR  AUTC  MODE  DISCRETE  PRESENT 


GAP : 

L 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

05g1 

0562 

0563 

0564 

0565 

0566 

0567 

0568 
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P20-P25 


USER  'S  PAGE  NOo  14  E7  S3 


REF  1 
REF  34 
REF  2 

REF  2 
REF  13 

REF  117 
REF  1 
REF  237 

REF  J 
REF  1 
REF  1 
REF  118 
REF  3 
REF  5 
REF  1 

REF  78 


LAST  501 
LAST  501 

LAST  503 
LAST  508 

LAST  507 

LAST  500 


LAST  509 
LAST  501 
LAST  501 


LAST  508 


24',  2467 
24  ,2470 

24.2471 

24.2472 

24.2473 

24.2474 

24.2475 

24.2476 

24.2477 
24,2  500 
24,2501 
24,2  50  2 

24.2503 

24.2504 

24.2505 

24.2506 

24.2507 

24.2510 

24.2511 

24.2512 
24,2512 
24,251^ 


0 0006  1 
1 2472  0 

0 2135  1 
4 0110  0 
7 4737  1 
C CCC6  1 

1 2631  0 
0 5353  1 

C0152  1 
0 4616  1 
64366  C 
50  154  1 
0 2 504  1 
C 2525  1 
0 2217  1 
3 2664  1 
C 4616  1 
21563  1 
0 6025  0 
0 2515  1 
0 2506  0 
0 5155  0 


BZF 

TC 

CS 

MASK 

EXTEND 

BZF 

TC 

DCT 


CACR 

INDEX 


+2 

P20LEMB5 

PADMODES 

PCDU06IT 

P 22LEM42 
PHASCHNG 
0C152 
BANKCALL 
LRS22ol 
MPAC 
♦ 1 

R22LEM2 

P20LEMC 

ALRM525 

BANKCALL 

PR  lOLARM 

G0TQV56 

R22LEM1 

-5 

ENOCFJCB 


YES  CONTINUE 
NO  - SET  IT 

ARE  RR  ecus  BEING  ZEROED 


COLS  BEING  ZEROED 

IF  A RESTART  OCCURS, AN  EXTRA  PAOAR 
READING  IS  TAKEN, SC  BAD  DATA  ISN'T  USED 
YES  READ  DATA  + CALCULATE  LCS 
DATA  READ  SUBROUTINE 


NORMAL  RETURN  (GOOD  DATA) 

COULD  NOT  READ  RADAR-TRY  TO  REDESIGNATE 
RR  LOS  NOT  WITHIN  3 DEGREES  (ALARM) 


TERMINATE  EXITS  P20  VIA  V56  COOING 
PROC  (DISPLAY  DELTA  THETA) 

ENTER  ( ILLEGAL  OPTION) 


REF  14  LAST 

REF  1 

REF  119  LAST 

REF  I 

REF  6 LAST 

REF  2 LAST 

REF  2 LAST 

REF  15  LAST 

REF  4 LAST 
REF  1 
REF  21  LAST 
REF  11  LAST 

REF  2 LAST 
REF  12C  LAST 
REF  1 
REF  238  LAST 

REF  2 LAST 
REF  121  LAST 
REF  2 LAST 
REF  3 LAST 
REF  22  LAST 
REF  . 1 


509  24,2515 

24.2516 

24.2517 
509  24,2520 

24,2521 
509  24,2522 

509  24,2523 

509  24,2524 

509  24,2525 

24,2526 
501  24,2527 

24,2  530 
503  24,2531 

508  24,2532 

24,2533 

508  2A,  2534 

509  24,2535 
24,2536 

509  24,2537 

24,2540 
509  24,2541 

509  24,2542 

500  24,2*^43 

509  24,2544 

509  24,2545 

24,2546 


0 5353  I 
04022  0 
3 2665  0 
0 4616  1 
20510  1 
0 6025  0 
0 2525  1 
C 2217  I 
0 5353  1 
04022  0 
C 2670  1 

0 2545  1 

3 0075  0 
7 4747  0 
0 0006  1 

1 2640  0 
0 4616  1 

51334  1 
50  154  1 
0 2541  0 
0 2545  1 
0 4616  1 
46116  0 
C 2640  I 

4 0075  1 
7 4746  1 


R22LEM1 


R22LEM2 


R22LEM3 


TC  PHASCHNG 

OCT  04022 

CAF  V06N05 

TC  BANKCALL 

CADR  PRICeSP 

TC  GaT0V56 

TC  R22LEM2 

TC  P20LEMC 

TC  PHASCHNG 

OCT  04022 

TC  LUNSFCHK 

TC  P22LEM3 

CA  FLAGWRCl 

MASK  TRACKBIT 

EXTEND 

BZF  P22WAIT 

TC  BANKCALL 

CACR  LRS22.,2 

INDEX  MPAC 

TC  +l 

TC  R22LEM3 

TC  BANKCALL 

CACR  R61LEM 

TC  R22WAIT 

CS  FLAGWRDl 

MASK  NOUPFBIT 


DISPLAY  DELTA  THETA 


TERMINATE  EXITS  P20  VIA  V56  CODING 
PROC  (OK  CONTINUE) 

ENT  ER (RECYCLE ) 


CHECK  IF  CN  LUNAR  SURFACE  (P22FLAG  SET) 
YES-BYPASS  FLAG  CHECKS  AND  LRS22o2 
IS  TRACK  FLAG  SET 


NO  - WAIT 
YES 

CHECKS  PR  BORESIGHT  WITHIN  30  DEG  OF  +Z 


NORMAL  RETURN(LnS  WITHIN  30  OF  Z-AXIS) 


NOT  WITHIN  30  DEG  OF  Z-AXlS 

SHOULD  WE  BYPASS  STATE  VFCT(^R  UPDATE 

(IS  NOUPDATE  FLAG  SFT?) 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  FPCGRAf^  LUMINARY  BY  NASA  2021112-091 


L P20-P25 


0569 

0570  REF  3 LAST 

0571  REF  23  LAST 

0572  REF  1 

0573 

0574  REF  4 LAST 

0575  REF  6 LAST 

0576  REF  2 LAST 


24,2547  C 0006  1 
509  24,2550  1 2631  0 

509  24,2551  3 0075  0 

24.2552  7 4745  1 

24.2553  C 0006  1 

510  24,2554  1 2631  0 

503  24,2555  3 7717  1 

231  24,2556  55*055  1 


EXTEND 

BZF  R22LEM42 
CA  FLAGVJROI 
MASK  UPOATBIT 


EXTEND 

flZF  R22LEM42 
CAF  PRI026 

TS  PHSPR0T2 


0577  REF  35  LAST  502 

0578 

0579  REF  1 

0580 

0581  REF  16  LAST  509 

0582 

0583  REF  1 

0584 

0585  REF  107  LAST  500 

0586  REF  2 LAST  154 


0587  REF 

0588 

0589  REF 

0590  REF 

0591  REF 

0592  REF 

0592  REF 

0593  REF 

0594 

C595  REF 

0596 

0597 

0598  REF 

0599 

05991  REF 

0600  REF 

0601  REF 

0602  REF 

0603 

06032  REF 
06034  REF 

0603  6 

06038  REF 

06039  REF 

0604 

0605  REF 

0606 

0607  REF 

0608  REF 

0609  REF 

0610  REF 


17  LAST  510 

2 LAST  194 
10  LAST  494 

3 LAST  510 
1 

1 

36  LAST  510 

4 LAST  510 


1 

3 LAST  147 

33  LAST  495 

5 LAST  510 
79  LAST  509 

6 LAST  510 

34  LAST  510 

1 

37  LAST  510 
6 LAST  504 
1 

2 LAST  500 
5 LAST  509 


24.,2557 

24.2560 

24.2561 

24.2562 

24.2563 

24.2564 

24.2565 

24.2566 

24.2567 

24.2570 

24.2571 

24.2572 

24.2573 

24.2574 
E7 ,1746 

24.2575 

24.2576 

24.2577 

24.2600 

24.2601 

24.2602 

24.2603 

24.2604 

24.2605 

24.2606 

24.2607 

24.2610 

24.2611 

24.2612 

24.2613 

24.2614 

24.2615 

24.2616 

24.2617 

24.2620 

24.2621 
24,^62? 

24.2623 

24.2624 

24. 2625 

24.2626 


0 6042  I 
77650  1 
5^416  0 
77776  1 

0 5353  I 
04022  0 

1 2624  1 
77776  1 

3 4755  1 
55*  746  1 
C 5353  1 
04022  0 

3 7720  0 
C 5072  1 

02645  1 
50067  0 
0 6042  1 
77735  0 
03747  0 
50054  0 
50600  1 
50612  1 
77650  1 
03675  0 

4 4752  1 
55*746  1 

0 5155  0 
77776  1 

3 1746  0 
6 4752  0 
C CCC6  1 

1 2445  1 
0 6042  1 

77624  1 
11210  1 
77650  1 
55431  1 
25*462  0 
0 2670  1 
0 2642  0 


TC 

GOTO 

R22LEM93  EXIT 
TC 
OCT 
TCP 

R22L6M96  EXIT 
CAF 
TS 
TC 
OCT 
CAF 
TC 

6eANK= 

2CA0R 

TC 

SLCAD 

BZE 


GOTO 

V34T0N49  CS 
TS 
TC 

R22LEM7  EXIT 
CA 
AO 

E XTEND 
8Z  F 
TC 

CALL 

GOTO 

R22LEM44  INCR 
TC 
TC 


INTPRET 

LSR22e3 

PHASCHNG 

04022 

R22LEM44 

ZERO 
N49FLAG 
PHASCHNG 
04022 
PR  IC27 
NO  VAC 
N49FL  AG 
N49DSP 

INTPRET 

N4SFLAG 

BMN 

-3 

R22LEM7 

LGRET 

TWC 

N49FLAG 

ENDOFJOB 

N49FLAG 

TWO 

R22LEM 

INTPRET 

GRP2PC 

A STOK 
MARKCTR 
LUNSFCHK 
R 22LEM4e 


17:53  DECo  19,1960  LEMP20S  145  PAGE  510 
USER'S  PAGE  NOo  15  E7  S3 

BRANCH-YES 
IS  UPDATE  FLAG  SET 

UPDATE  FLAG  NOT  SET 
INSURE  HIGH  PRIO  IN  RESTART 


NORMAL  EXIT  FROM  LSP226  3 
PHASE  CHANGE  TO  PROTECT  AGAINST 
CONFLICT  WITH  GRP2FC  ERASEABLE 


SET  N49FLAG  = ZERO  TO  INDICATE 
V06  N49  DISPLAY  HASNT  BEEN  ANSWERED 

TO  PROTECT  01  SPLAY 
PROTECT  DISPLAY 


LOOP  TO  CHECK  I F FLAG 
SETTING  CHANGED-BRANCH  - NO 
PROCEED 

DISPLAY  ANSWERED  BY  R ECYCL E- INCORPORATE 
NEXT  MEASUREMENT 


WAS  ANSWER  TO  DISPLAY  PRO  OR  TERM 

BRANCH  - TERM  - TAKE  ANCTHER  RR  READING 

PHASE  CHANGE  AND 

GO  TO  INCORPORATE  CATA© 


INCREMENT  COUNT  OF  MARKS  INCORPORATED,. 
ARE  WE  ON  LUNAR  SURFACE 
YFS  - WAIT  2 SECONDS 


GAP;  ASSEPPLE  REVISION  J31  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


17:?3  DECo  19,1969  LEPP20S  ^145  PAGE  511 


L 


P20-P25 


USER  ' S PAGE  NOc  16  E7  S3 


0611  REF  10  LAST  A30 

0612  REF  1 

0613  REF  6 LAST  510 

0614  REF  2 LAST  510 

0615  REF  35  LAST  510 

0616  RfcF  2 LAST  507 

0617  REF  122  LAST  509 

0618  KEF  2 LAST  507 

0619  REF  2 LAST  510 

0620  REF  2 LAST  503 

0621  REF  3 LAST  502 


24,2627  3 4756  1 CA 

24.2630  0 2634  1 TC 

24.2631  C 2670  1 R22LEM42  TC 

24. 2632  C 2642  0 TC 

24.2633  3 4752  0 CA 

24.2634  E5'745  I R22LEM45  TS 

24.2635  0 4616  1 TC 

24.2636  46123  0 CACR 

24.2637  C 2445  0 TC 

24.2640  3 2667  1 R22WAIT  CAF 

24.2641  C 2233  1 TC 


FIVE 

R22LFM45 
LUNS  FCHK 
R22LEM46 
TWO 

R65CNTR 

PANKCALL 

P65LEM 

R22LEM 

1500DEC 

P20LEMWT  +1 


NOT  ON  LUNAR  SURFACE 
R65C0UNTER  = 5 

CHFCK  IF  ON  LUNAR  SURFACE  (P22FLA6  SET! 
YES  - WAIT  2 SECONCS 
NO-SET  R65COUNTER  = 2 


FINE  PREFERRED  TRACKING  ATTITUDE 


0622  REF  123  LAST  511 

06226  REF  3 LAST  280 

0623  REF  3 LAST  511 


24.2642  0 4616  1 

24.2643  01735  1 

24.2644  C 2445  0 


R22LEM46 


TC 

CACR 

TC 


BANKCALL 

2SFCDELY 

R?2LE>^ 


WAIT  2 SECONDS  AND  TAKE  ANOTHER  MARK 


0624  REF 

0625  REF 

0626  REF 

0627  REF 
062R  REF 

0629  REF 

0630  REF 

0631  REF 

0632 

0633  REF 

0634  REF 

0635  REF 

0636  REF 

0637  REF 

0638  REF 


1 

124  LAST 
2 LAST 
1 

63  LAST 
7 LAST 
80  LAST 
IP  LAST 

125  LAST 

2 LAST 

126  LAST 
4 LAST 

3 LAST 

4 LAST 


511 

509 

4^7 

510 
510 

510 

511 
49  5 
511 
494 
509 
511 


24  ,2645 
24,2646 
24, 26^7 
24  ,2650 

24.2651 

24.2652 

24.2653 

24. 2654 

24.2655 

24.2656 

24.2657 
24  ,2660 

24.2661 

24.2662 

24.2663 


3 2666  0 
0 4616  1 

20510  1 
0 2607  1 

4 4753  C 
55*746  1 
C 5155  0 
C 5353  1 

00152  1 
C 4616  1 
53112  0 
0 4616  I 
177C5  C 
0 2217  1 
0 2445  0 


N49CSP  CAF 
TC 

CADR 

TC 

CS 

TS 

TC 

R22RSTRT  TC 
OCT 
TC 

CADR 

TC 

CACR 

TC 

TC 


V06N49NB 

BANKCALL 

PPIOOSP 

V34T0N49 

ONE 

N49FLAG 

ENDCFJCB 

PHASCHNG 

00152 

BANKCALL 

PRROOT 

BANKCALL 

PACSTALL 

P20LeMC 

R22LEM 


EXCESSIVE  STATE  VECTOR  UPDATE  - FLASH 
VERB  06  NCUN  49  Pl^DELTA  R,  R2=DELTA  V 
TERMINATE  - SET  N49FLAG  = -2 
PROCEED  - N40FLAG  = -1 
RECYCLE  - N4QFLAG  = + VALUE 

IF  A RESTART  OCCURS  WHILE  READING  RADAR 
CGME  HERE  TO  TAKF  A RANGE-RATE  READING 
WHICH  ISNT  USED  TO  PREVENT  TAKING  A BAD 
READING  AND  TRYING  TO  INCORPORATE  THE 
BAD  DATA 

WAIT  FDR  READ  fCWRLFTE 

COULD  NCT  READ  RADAR-TRY  TC  REDESIGNATE 
REAC  SUCCESSFUL-CONTINUE  AT  R22 


0639 

0640 

0641 

0642 
R0644 
R0645 
R0646 


24.2664 

24.2665 

24.2666 

24.2667 

LLNSFCHK-CLOSEO  SUBROUTINE  TC 
RETURNS  TO  CALLER  +1 
TO  CALLER  +2 


00525  0 ALRM525  OCT  00525 

01405  1 V06N05  VN  O0605 

01461  0 V06N49NP  VN  00649 

02734  0 15C0DEC  DEC  1500 

CHECK  IF  CN  LUNAR  SURFACE  tP22FLAG) 
IF  P22FLAG  SET 
IF  P22FLAG  NOT  SET 


0647  REF  2 LAST  505  TO  506:  0 0*  COUNT#  $$/P22 

0648  REF  5 LAST  338  24,2670  4 0104  0 LUNSFCHK  CS  FLAGWR08 

0649  REF  4 LAST  338  24,2671  7 4744  0 MASK  SUPFF8IT 

0650  REF  166  LAST  503  24,2672  1C  000  0 CCS  A 

0651  REF  149  LAST  48^  24,2673  24  002  0 INCR  0 

0652  REF  150  LAST  511  24,2674  C 0002  0 TC  0 


CHFCK  IF  ON  LUNAR  SURFACE 
IS  SURFFLA6  SET? 

BRANCH  - P22FLAG  SET 

NOT  SET 

RETURN 


gap; 

L 

P0653 

R0654 

R0655 

R0656 

R0638 

R0659 

R066n 

R0661 

R0662 

R0663 

R0664 

R0665 

R0666 

R0667 

R066e 

R0669 

R0670 

R067] 

R0672 

R0673 

R0674 

ROe75 

R0b76 

R0677 

R0678 

R0679 

RObBO 

RObei 

R0682 

R0683 

06  84 

0665 

0686 

0687 

0688 

0689 

0690 

0691 

06  92 

0693 

0694 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 
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P20-P25 


USER'S  PAGE  NOo  17  £7  S3 


RR  DESIGNATE  ROUTINE  (R21LEM» 
PROGRAM  OESCR I PTI ON 
PCD  NO  - 2 
BY  P VCLANTE 
FUNCTIONAL  DFSCRIPTICN 


TO  POINT  THE  RENOEZVCUS  RADAR  AT  THE  CSM  UNTIL  AUTOMATIC  ACQUISITION 
OF  THE  CSM  IS  ACCOMPLISHED  BY  THE  RADARo  ROUTINE  IS  CALLED  BY  P20« 
CALLING  SEQUENCE  - 

TC  BANKCALL 

CACR  R21LEM 
SL8RQLTINES  CALLED  - 

FINCVAC  FLAGLP  ENDCFJCB  PRIOLARM 

NOVAC  INTPRET  LPS20ol  PhASCHNG 

V.AITLIST  JOBSLEEP  JOEWAKE  FLAGDOWN 

TASKOVER  BANKCALL  RADSTALL  RROESSM 

NCRPAL  EXIT  MOCFS 

IftHEN  LOCK-ON  IS  ACHI EVED , BRANCH  WILL  BE  TO  P20  WHERE  R2?  (DATA  READ 
WILL  EE  SELECTED  OR  A NEED  FOR  A MANEUVER ( BRANCH  TO  P20LEMA) 

ALARM  OR  A6CRT  EXIT  MCOES- 

PRIORITY  ALARM  503  WHEN  LCCK-CN  HASNiT  BEEN  ACHIEVED  AFTER  30SECS  - 
THIS  REQUIRES  ASTRONAUT  INTERFACE-  SELECTION  OF  SEARCH  OPTION  OF 
ALQLI SI TION 
OUTPUT 

SEE  LPS20ol  , RROESSM 
ERASABLE  I NI T I A LI  2 AT  I CN  REGUIREC 

RRTARGET.RACMOOES  ARE  USED  BY  LPS2nel  AND  RRDESSM 
FLAGS  SET  + RESET 

LUSCMFLG  LOKONSW 

CE6R1S 

SEE  LPSZOel  , RRDESSM 


REF 

REF 

REF 


13  LAST  507  E7,1456 


49  LAST  508 


REF  25 
REF  7 
REF  1 
REF  108 
REF  4 
REF  5 
REF  1 
REF  21 
REF  35 
REF  167 
REF  1 
REF  29 
REF  6 
REF  4 
REF  7 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


508 

511 

510 

318 

512 


474 

512 

375 

512 


24.2675 

24.2676 

24.2677 

24.2700 

24.2701 
24  ,2702 
34,27C3 

24.2704 

24.2705 

24.2706 

24.2707 

24.2710 

24.2711 

24.2712 
24,  27^2 

24.2714 

24.2715 


4 4736  0 
C 0006  1 
03  012  1 
0 2670  1 
0 2706  1 

3 4755  1 

5 5*106  0 
55*107  1 
0 2716  0 
2 4740  0 
7 0110  0 
10  000  0 
0 2726  0 
2 4735  1 
55*106  0 

4 4736  0 
55*107  1 


EBANK=  LOSCCUNT 

COUNT*  f$/R21 

CS  eiT14 

E XTENO 

WAND  CHAN12  — 

TC  LUNSFCHK 

TC  R21LEM5 

CAF  ZERO 

TS  TANG 

TS  TANG  +1 

TC  R21LEM6 

BI  T12 
RACMODES 
A 

R21LEM10 
BIT15 
TANG 
HALF 
TANG  +1 


CAF 

MASK 

CCS 


REMOVE  RR  SELF  TRACK  ENABLE 


COMMAND  ANTENNA  TO  MODE  CENTER 
IF  NOT  ON  SURFACE-MODE  1-(T=0,S=0) 


gap:  assemble  REVISION  131  CF  AGC  PPCGRAP  LUMINARY  BY  NASA  2021112-091 


0703 

0704 

0705 

0706 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 

0728 

0729 

0730 

0731 

0732 
A0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 

0741 

0742 

0743 

0744 

0745 

0746 

0747 
07473 
07476 

0748 

0749 

0750 


REF  46 
REF  3 
REF  127 
REF  2 

REF  128 
REF  5 
REF  1 
REF  24 
REF  2 
REF  1 
REF  1 
REF  17 
REF  14 
REF  38 


LAST 

LAST 

LAST 


506 
272 
51  1 


RFF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST  270 


LAST 

LAST 


LAST 

LAST 


REF 

REF 

REF 

REF 

REF 

RFF 

REF 

REF 

REF 


REF  3 
REF  129 
REF  6 

REF  1 
REF  1 
REF  130 
REF  4 


1 


506 

500 


LAST  478 
LAST  512 
LAST  510 


8 LAST  502 


504 

500 


LAST  513 
LAST  513 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


513 

500 

513 


508 

513 

513 


513 

509 

509 

503 
51  1 
513 


LAST  513 


LAST 

LAST 


512 

5)1 


19  LAST  511 


24.2716 

24.2717 

24.2720 

24.2721 

24.2722 

24.2723 

24.2724 

24. 2725 

24.2726 

24.2727 
24,2730 
24  ,2731 
24,2722 

24.2733 

24.2734 

24. 2735 

24.2736 

24.2737 

24.2740 

24.2741 

24.2742 

24.2743 

24.2744 

24.2745 

24.2746 

24.2747 

24.2750 

24.2751 

24.2752 

24.2753 

24.2754 

24.2755 

24.2756 

24.2757 
24  ,2760 

24.2761 

24.2762 
24, 27.63 

24.2764 

24.2765 

24.2766 

24.2767 

24.2770 

24.2771 

24.2772 

24.2773 

24. 2774 

24.2775 

24.2776 


0 5516  0 
00012  1 
0 4616  1 
52506  0 
C 2723  0 
C 4616  1 
17705  0 
0 2761  C 
r 5504  0 
00041  1 
3 2310  1 
55‘ 113  1 
3 6250  0 
55*456  0 
C 6042  1 
43234  0 
21574  1 
11122  0 
34041  0 
51256  1 
77776  1 
C 5504  0 
00012  1 
C 5516  r 
00126  1 
C 6042  I 
77624  1 
52404  0 
77776  1 
0 3002  0 

C 2111  1 
0 4616  1 
17705  0 
C 2761  0 
0 2770  0 
3 3000  1 
0 4616  1 
21563  1 
0 6025  0 
0 2775  0 
0 2211  1 
0 5155  0 
0 5516  0 
00041  J 
0 .2670  1 
C 2232  0 
C 3123  1 
0 5353  1 
04022  0 


R21LEM6  TC 


R21LEM10  TC 

ACRES 


P21LEM2  CAF 


R21LeMl  TC 


R21LEM3  TC 


R21-503  CAF 


R21SRCF  TC 


DOWNFLAG 
LOKONSW 
BANKCALL 
RRCESNB 
+ 1 

BANKCALL 

RADSTALL 

P21-503 

UPFLAG 

LCSCMFLG 

MAXTRIES 

DESCOUNT 

THREE 

LOSCOUNT 

INTPR  ET 

DAD 

LOAOTIME 

HALFSEC 

TDECl 

LPS20ol 

UPFLAG 

LOKONSW 

DOWKFLAG 

NORRMON 

INTPRET 

PROESSM 


P20LEMA 
BANKCALL 
RADSTALL 
+ 2 

R21FN0 

ALRM5  03 

BANKCA  LL 

PR  lOLARN 

G0TCV56 

R21SRCH 

P20LEMC3 

ENOOFJOB 

DOWNFLAG 

LOSCMFLG 

LUNSFCHK 

P70LFMWT 

R21DISP 

PHASCHNG 

04022 
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USER'S  PAGE  NO*  18  E7  S3 


BAD  RETURN  FROM  DESIGNATE  -ISSUE  ALARM 

EVERY  FOURTH  PASS  THRU  DODES 
ALLOW  60  PASSES  (APPROX  45  SECONDS) 

TO  DESIGNATE  AND  LCCK  GN 


EXTRAPOLATE  TO  PRESENT  TIME  + - 5 SEC: 
LOS  DETERMINATION  ROUTINE 


SET  LCKCNSW  TO  PACAP-CN  CFSIREO 


INPUT  (RRTARGET  UPCATED  BY  LPS20*1) 
DESIGNATE  ROUTINE 

LCS  NOT  IN  MODE  2 COVERAGE 

ON  LUNAR  SURFACE 

VEHICLE  MANEUVER  PEOUIPEOc 

NO  VEHICLE  MANEUVER  REQUIRED 

WAIT  FOR  DESIGNATE  COMPLETE  - LOCKGN  OR 

BAOEND-LCCKCN  NCT  ACHIEVED  IN  60  TRIES 

EXIT  ROUTINE  RETURN  TO  P20  (LOCK-ON) 

ISSUE  ALARM  503 


TERMINATE  EXITS  P20  VIA  V56  COOING 
PROC 


RESET  LOSCNFLG 

ARE  WE  ON  LUNAR  SURFACE 

YFS  - BYPASS  V 50  N 7?  DISPLAY 

PUT  UP  VERIFY  MAIN  LOBE  LOCKGN  DISPLAY 


0751 

0752 

0753 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
P20-P25 
REF  1 


24,2777 

24.3000 

24.3001 


0 3210  1 
00503  1 
00527  1 


TC  R24LEM 

□ CT  00503 

nCT  527 


0754 

0755 

0756 

0757 

0758 

0759 

0760 

0761 

0762 
07625 

0763 

0764 

0765 

0766 

0767 

0768 

0769 

0770 

0771 

07721 

07722 
07724 

0773 

0774 

0775 

0777 

0778 

0779 

0780 

0781 

0782 

07821 

07822 

07823 

07824 
0784 

0705 

0706 
0787 
0790 

0789 

0790 

0791 

0792 

0793 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF 

REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


513 

141 

513 

513 

513 

513 


9 LAST  513 


2 LAST 
13  LAST 

3 LAST 


141 

513 

513 


2 LAST  513 
1 

82  LAST  5)3 
1 
1 

41  LAST  514 

2 LAST  514 
1 

3 LAST  514 
1 

3 LAST  514 


LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


514 

514 


514 

514 

502 

514 

272 

514 

513 

514 


24.3002 

24.3003 

24.3004 

24.3005 

24.3006 

24 .3007 

24.3010 

24.3011 
24  ,3012 

24.3013 

24.3014 

24.3015 

24.3016 

24.3017 

24.3020 

24.3021 

24.3022 

24. 3023 

24.3024 

24.3025 

24.3026 

24.3027 

24.3030 

24.3031 

24.3032 

24.3033 

24.3034 

24.3035 

24.3036 

24.3037 
2^,3040 
24,3041 
24  ,3042 

24.3043 

24.3044 

24.3045 

24.3046 

24.3047 

24.3050 

24.3051 
24  ,3052 

24. 3053 

24.3054 

24.3055 

24.3056 


3 2310  1 
55*423  1 
0 5504  0 
00005  1 
0 5516  0 
00041  1 
0 6042  I 
77634  0 
21574  1 
77615  0 
11120  1 
C3425  1 
34041  0 
51256  1 
77624  1 
52404  0 
77776  1 
0 3C35  1 
0 5155  0 
0 6032  0 
52604  1 
0 6042  1 
43014  0 
00345  0 
51045  1 
C0225  I 
51042  0 
11*423  1 
0 30*0  0 
0 3107  1 
55*423  1 
0 6042  1 
52145  0 
C3425  1 
51013  1 
77745  1 
C3425  1 
34041  0 
50312  1 
77776  1 
C 5 504  0 
C0264  1 
C 5516  0 
00012  1 
C 5504  0 


R21LEM4  CAF 


ACRES 

TC 

R21LEM12  RTB 

R21LEM00  DAD 

STORE 

STCALL 

CALL 

EX  IT 


CAOR 

TC 

PCF 


R21LEM13  CCS 
TC 
TC 

R21LEM7  TS 
TC 

R21LEM50  CLGAD 

R21LEM8  DLCAC 

STCALL 

EXIT 

TC 

ADRES 

TC 

ACRES 

TC 


MAXTRIFS 

REPCSCNT 

UPFLAG 

FSPASFLG 

DOWNFLAG 

LOSCMFLG 

INTPRET 

LOADT IME 

TENSEC 
REPCSTM 
TDECl 
LPS20<,  1 

PRDESSM 

R21LEH13 

ENDOFJOB 

K I LLTASK 

BEGDES 

INTPRET 

f LRGO 

FSPASFLG 

P21LEM8 

FSPASFLG 

P 21LEM50 

REPQSCNT 

R21LEM7 

R21LEM11 

REPCSCNT 

INTPRET 

GOTO 

REPCSTM 

R21LEMOO 

REPCSTM 

TDECl 

UPPSV 

UPFLAG 
CDESFLAG 
DOWNFLAG 
1 CKCNSW 
UPFLAG 


17:53  OECo  19,1969  LEMP20S  145  PAGE  514 


USER’S  PAGE  NOo  E7  S3 

SEARCH  ROUTINE 


SET  UP  COUNTER  FOP 
60  PASSES  (APPROX  600  SECSo  ) 

SET  FIRST  PASS  FLAG 
RESET  LOS  BEING 
COMPUTED  FLAG 


TIME  T = T + 1 0 SECSo 
SAVE  FOR  LONGCALL  AND  UPPSV 

COMPUTE  LOS  AT  TI  ME  T 


LOS  NOT  IN  MOOF  2 COVERAGE 
VEHICLE  MANEUVER  REQUIRED 


FIRST  PASS  THRU  PEPCSITION 
NO-GO  TO  CONTINUOUS  DESIGNATE 
YES-RESET  FIRST  PASS  FLAG 

HAVE  WE  TRIED  60  T IMES? 

NO-AOO  10  SeCSo  RFCCMPUTE  LOS 
YES-PUT  OUT  ALAPM  530 


SET  RAOMOOES  BIT  15  FOP 
CONTINUOUS  DESIGNATION 


GAP: 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARV  BY  NASA  20211  12-091 


L F20-P25 


079A  REF 

0795  REF 

0796  REF 

0797 

07971  REF 
C79B 

0799  REF 
080n  REF 
0001  REF 
0802 
08021 

0803  REF 
080A  REF 

0805  REF 

0806  REF 

0806  REF 

0807  REF 

0808  REF 

0809  REF 

0810  REF 

0811  REF 

0812  REF 

0813  REF 

0814  PEF 

0814 

0815  REF 

0816  REF 

0817  REF 

0818  REF 

0819  REF 

0820  REF 

0821  REF 

0822  REF 

0824 

0825 

0825 

0826 
0826 

0827  REF 

0828 

0829  REF 

0830  REF 

0831  REF 

0832  PEF 

0833  REF 

0834 

0835  REF 

0836  REF 

0837  REF 


5 LAST 
131  LAST 
3 LAST 

43  LAST 

10  LAST 
5 LAST 


2 LAST 
2 LAST 

15  LAST 
1 

1 

83  LAST 
2 LAST 

1 

6 LAST 

7 LAST 

20  LAST 

16  LAST 

2 LAST 

21  LAST 
1 

132  LAST 
5 LAST 
0 LAST 
9 LAST 
10  LAST 

84  LAST 


20  LAST 
1 

133  LAST 
2 LAST 
11  LAST 
5 LAST 

23  LAST 
2 LAST 
85  LAST 


513  24., 3057 

513  24,  3060 

513  24,3061 
24,3062 

514  24,3063 
24,3064 

514  24,3065 

514  24,3066 
24,3067 

24.3070 

24.3071 

515  24,3072 

376  24,3073 

5)3  E7,1456 

24. 3074 

24.3075 
514  24,3076 

514  24,3077 
24,3100 

500  24,3101 

510  24,3102 

507  24,3103 

515  67,3456 

512  2^,3104 
24,3105 

507  24,3106 

24,3107 
515  24,3110 

513  24,3111 

513  24,3112 

515  24,3113 

515  24,3114 

515  24,3115 

24.3116 

24.3117 
24,^120 
24,3121 
24  ,3122 

513  24,3123 

24.3124 

24.3125 
515  24,3126 

478  24,3127 

515  24,3130 

513  24,3131 

24 ,3132 

479  24,3133 

479  24,3134 

515  24,3135 


CQ126  I 
0 4616  1 
52506  0 
C 3C63  1 
0 6042  1 
44234  1 
21574  1 
03425  1 
03427  0 
77776  1 
G 0006  1 

2 1427  1 
0 5277  0 

C3077  1 
50067  0 
C 5155  0 
C 6032  0 
52613  1 
0 6011  1 

3 7717  1 
0 5105  0 

02726  0 
50067  0 
C 5261  1 
3 3116  1 
0 4616  1 
21563  1 
0 6025  0 
0 6025  0 
0 6025  0 
0 5155  0 
00530  1 
00000  1 
01750  1 
00000  1 
00062  0 
0 5353  1 
04022  0 
3 3136  0 
C 4616  1 
20711  I 
C 6025  0 
0 2232  0 
C 3125  1 
3 4745  0 
0 5464  I 
0 5155  0 


AORES 

TC 

CAOR 

TC 

TC 

RTB 


STORE 

EXIT 

EXTEND 

DCA 

TC 

EBANK* 

2CA0R 


NCRRMCN 
BANKCALL 
PRDESNB 
+ 1 

INTPRET 

BOSU 

LOADTIME 

REPOSTM 

OELTATM 


DELTATM 
LONGCALL 
LOSCOUNT 
R21 LEM9 


R21LEMg 


TC  ENCCFjre 

TC  KILLTASK 

CACR  STCESIG 
TC  CLPADMOC 

CAF  PRI026 
TC  FINOVAC 

FBANK=  LOSCCUNT 
2CADR  R21LEM10 


TC  TASKCVER 

R21LEM11  CAF  ALRH530 

TC  BANKCALL 

CADR  PRIOLARM 

TC  G0T0V56 

Tf  G0TCV56 

TC  GOTOV56 

TC  ENOOFJOB 

ALRM530  OCT  00530 

TENSEC  20EC  1000  B-28 

HALFSEC  2DEC  50 

R21DISP  TC  PHASCHNG 

OCT  04022 

CAF  V06N72PV 

TC  BANKCALL 

CADR  G0PERF2R 

TC  G0TCV56 

TC  P20LEMWT 

TC  -5 

CAF  eiT7 

TC  LINUS 

TC  ENCCFJCR 
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USER’  S PAGE  NCo  20  £7  S3 


COMPUTE  DELTA  TIME 
FOR  LONGCALL 


ALARM  53n-L0S  NOT  IN  COVERAGE 
AFTER  TRYING  TO  DESIGNATE  FOR 
600  SECS, 


FLASH  V 50  N 72  - PLEASE  PERFORM  RR 
MAIN  LOBE  LOCKCN  VERIFICATION 

TERMINATE  EXITS  VIA  V ^6 
PROCEED  CONTINUES  TO  R22 
ENTER  ILLEGAL 


SET  BITS  TO  MAKE  THIS  A PRIORITY  DISPLAY 


17: E3  DECo  19,1969  LEMP20Sol45  PAGE  516 


GAP:  ASSEMBLE  REVISION  131  GF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021112-091 

L P20-P25  ■ ■ USER'S  PAGE  NC,  21  E7  S3 

0838  24,3i36  ’ bisiO  l ”v66N72PV'  Vir  ' OObH  ^ ^ 


gap: 

L 

P0839 

R08A0 

R08AI 

R0642 

R0e43 

ROSAA 

R0845 

R06A6 

R08A7 

R08A8 

R08A9 

R0850 

R0851 

R0652 

R0853 

R085A 

R0855 

R0856 

R0857 

R0e58 

R085<5 

R0860 

0861 

0862 

0863 

086A 

0865 

0866 

0867 

C868 

0869 

0870 

0871 

0872 

0873 

0P7A 

0875 

0876 

0877 

0878 

0879 

0880 

0881 

0882 

0883 

068A 

0885 

0886 

0887 

0888 
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P20-P25 


USER'S  PAGE  NCo  22  E7  S3 


MANUAL  ACQUISITION  ROUTINE  R23LEM 
PROGRAM  CESCRIPTION 
MCD  NC  - 2 
BY  P VOLANTE 
FUNCTIONAL  CESCRIPTION 


TO  ACQUIRE  THE  CSM  BY  MANUAL  OPERATION  OF  THE  RENDEZVOUS  RADAR 
CALLING  SEQUENCE  - 

TC  R23Lei* 

SUBROUT  INES  CALLED 

BANKCALL  R61LEM 

SETMINDB  GOPERFl 

NORMAL  EXIT  MODES  - 

IN  RESPONSE  TO  THE  GOPERFl 


.SELECTICN  OF  ENTER 
, SELECTION  OF  PROC 
.SELECT  ION  OF  TERM 


WILL  RECYCLE  R23 
WILL  CONTINUE  R23 
WILL  TERMINATE  R23 


ALARM  OR  ABORT  6XM  MCOES  - 
SEE  NORMAL  EXIT  MOOES  ABOVE 
OLTPLT 
N«  A, 

ERASABLE  INITIALIZATION  REQUIREC- 

ACMODFLG  MLST  BE  SET  TC  1 (FANUAL  MODE) 


REF 

REF 

REF 

REF 

REF 

PEF 


LAST 

LAST 


51A 

515 


17  LAST  336 


REF  50  LAST  512 


REF  26 
REF  1 
REF  134 
REF  2 
REF  1 
REF  1 


FEF 

REF 

REF 

REF 

REF 


LAST  512 


LAST 

LAST 


REF 

REF 

REF 


LAST 

LAST 


LAST 

LAST 


LAST 

LAST 


517 

297 


11A2 

24,3137 
2A, 31A0 
2^,3141 
2A,3142 
2A,31A3 
24,3144 
2^,3145 
24,3146 
2A,31A7 

24.3150 

24.3151 
2A,3152 

24.3153 

24.3154 

24. 3155 

24.3156 

24.3157 
24, 316C 

24.3161 

24.3162 

24.3163 

24.3164 
2A, 3165 

24.3166 

24.3167 
2A,3nO 


0 5504  0 
00126  1 
0 0004  0 
C 4674  0 
AOlAl  1 
0 0003  1 
3 A736  1 
0 0006  1 
05  C12  1 
3 3207  1 
0 4616  1 
20e2A  0 
C 3200  0 
0 3156  0 
( 3203  0 
C 0004  0 
0 4523  I 
00035  1 
0 3170  1 
0 A674  0 
A0115  0 
0 0003  1 
0 5516  C 
00126  1 
0 2163  1 
C 0003  1 


R23LEM  TC 


AORES 

INFINT 

TC 

CAOR 

RELINT 

CAF 

EXTEND 

WCR 

CAF 


GENPET 

$S/R23 

UPFLAG 

NORRMCN 

IBNKCALL 

SETMINDB 


TC 

CAOR 


R23LEMH  INhlNT 


B1  T14 

CHAN12  -- 

0CT2e5 

BANKCALL 

GCPERFJ 

R23LEM2 

R23LFM11 

R23LEM3 

RRL  IMCHK 
CDUT 
OUTOFL IM 
IBNKCALL 
RE  STORDB 

DOWNFLAG 

NORRMOM 

P20LEMB1 


OUTDFLIM  RELINT 


P20 


SET  NO  ANGLE  MONITOR  FLAG 

SELFCT  MINIMUM  DEADBAND 

ENABLE  TRACKER 


TERMINATE 

PROCEDE 

ENTER-  DO  ANOTHER  MANUVER 

YES  - CHECK  IF  ANTENNA  IS  WITHIN  LIMITS 

NOT  WITHIN  LIMITS 
RESTORE  DEADBAND  TO 
ASTRONAUT  SELECTED  VALUE 

CLEAR  NO  ANGLE  MPN  ITOR  FLAG 

RADAR  IS  LOCKED  ON  CONTINUE  IN  P20 


GAP: 

L 

0669 

0890 

0891 

0892 

0893 

089^ 

0895 

0896 

0897 

0898 

0899 

0900 

0901 

0902 

0903 
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REF  1 
REF  135 
REF  6 
REF  2 
REF  2 
REF  2 
PEF  86 
REF  52 
REF  8 
REF  12 
REF  136 
REF  3 
REF  1 


LAST  517 
LAST  515 
LAST  517 
LAST  517 
LAST  517 
LAST  515 
LAST  517 
LAST  517 
LAST  515 
LAST  518 
LAST  509 


29.3171  3 3206  0 

29.3172  0 9616  1 

29.3173  21563  1 
29,3179  C 32CC  0 

29.3175  0 3171  0 

29.3176  0 3203  0 

29.3177  C 5155  C 

29.3200  0 5516  0 R23LEM2 

29.3201  ■ 00126  1 

29.3202  0 6C25  0 

29.3203  0 9616  1 R23LEM3 

29,3209  96116  C 

29,3205  0 3195  1 


CAF  0CT501  PV 

TC  BANKCALL 

CADR  PRIOLARM 

TC  R23LEM2 

TC  OUTOFLIM  +1 

TC  R23LEM3 

TC  ENDOFJCB 

TC  OOWNFLAG 

AORES  NORRMON 

TC  G0T0V56 

TC  BANKCALL 

CADR  R61LEM 

TC  R23LEM1 


ISSUE  ALARM  - RR  ANTENNA  NOT  WITHIN 
L IMITS 

TERMINATE  - EXIT  R23  TO  ROO  (GO  TO  POOH) 

PROCEED  ILLEGAL 

RECYCLE-  DO  ANOTHER  MANUVER 

CLEAR  NO  ANGLE  MONITOR  FLAG 

AND  EXIT  VI A V56 


29.3206  00501  0 0CT501PV  OCT 

29.3207  C02C5  0 OCT215  OCT 


501 

205 
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P0904 

R0905 

R0906 

R0907 

R0908 

R0909 

R0910 

R0911 

R0912 

R0913 

R0914 

R0915 

R0916 

R0917 

R0919 

R0919 

R0920 

R0921 

R0922 

R0923 

R0924 

R0925 

R0g26 

R0927 

R0928 

R0929 

R0930 

R0931 

R0932 

R0933 

0934 

0935 

0936 

0937 

0936 

0939 

0940 

0941 

0942 

0943 

0944 

0945 

0946 

0947 

0948 

0949 

0950 


MOD  NO  - 2 
BY  P,  VGLANTE 
FUNCTIONAL  DESCRIPTICN 

TO  ACCUIRE  Tl-E  CSM  0Y  A SEARCH  PATTERN  WHEN  THE  RENDEZVOUS  RADAR  HAJ 
FAILED  TO  ACQUIRE  THE  CSM  IN  THE  AUTOMATIC  TRACKING  MODE  AND  TO  ALLOW 
TFE  ASTRONAUT  TO  CONFIRM  THAT  RE ACQU I S I T I ON  HAS  NOT  BEEN  BY  SIOELCBEo 
CALLING  SEQUENCE 

CAF  PRIONN 

TC  FINOVAC 

EBANK=  DATAGCOD 

2CACR  P24LEM 

SUBROUTINES  CALLED 

FLAGUP  FLAGCCWN  EANKCALL 

R61LEM  GOFLASHR  FINOVAC 

ENCCFJOG  NOVAC  LSR24ol 

NORMAL  EXIT  MOOES- 

ASTRONAUT  RESPONSE  TO  DISPLAY  CF  OMEGA  AND  CATAGOGDoHE  CAN  EITHER 
REJECT  BY  TERMINATING  (SEARCH  CPTION  AND  RESELECTING  P20)  OR  ACCEPT  B' 
PROCEEDING  (EXIT  ROUTINE  AND  RETURN  TC  AUTC  MODE  IN  P20 ) 

ALARM  OR  ABORT  EXIT  MODES- 
SEE  NORMAL  EXIT  MODES  ABOVE 
OUTPUT  - 

SEE  OUTPUT  FROM  LSR24*1  + ReiLEM 
ERASABLE  INITIALIZATION  RECUIPEC 
SEE  INPUT  FOR  LSR2^,l 


REF  3 
REF  1 
REF  30 
REF  4 
REF  53 
REF  5 
REF  109 
REF  4 
REF  2 
REF  3 
REF 


LAST  318  £7,1733 


21 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


517 
501 

518 

514 
512 

519 
318 
519 

515 


REF  1 
REF  137 
REF  1 
REF  13 
REF  1 


LAST  518 


24.3210 

24.3211 

24.3212 

24.3213 

24.3214 

24.3215 

24.3216 

24.3217 

24.3220 

24.3221 

24.3222 

24. 3223 

24.3224 

24.3225 

24. 3226 


C 5 504  0 
00C37  0 
0 5516  0 
0nC41  1 
3 4755  1 
55*  733  0 
55*734  1 
55*735  n 
C 5353  I 
04022  0 
3 3255  0 
0 4616  1 
20505  0 
0 6C25  0 
C 3232  1 


ERANK=  DATAGCCD 
COUNT*  $S/R24 
TC  UPFLAG 

ADRES  SPCHOPTN 
TC  DDWNFLAG 

AORES  LOSCMFLG 
CAF  ZERO 

TS  DATAGOOC 

TS  OMEGAO 

TS  OMEGAO  + 

TC  PHASCHNG 

OCT  04022 

CAF  V16N80 

TC  BANKCALL 

CAOR  PRJOOSPR 
TC  G0TCV56 

TC  R24END 


0951  REF 


24,3227  0 3236  0 
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USER  'S  PAGE  NOc  24 


F2  S3 


SET  SRCHOPT  FLAG 

RESFT  LOS  BFING  COMPUTED  FLAG  TO  MAKE 
SURE  DODES  COESN'T  GO  TO  R21 

ZERO  OUT  DATA  INDICATOR 
ZERO  OMEGA  DISPLAY  REGS 
ZERO  OMEGA  01  SPLAY  REGS 


PROCEED  EXIT  R24  TC  P20LEM1 


RECYCLE 


CALL  P61  TO  MANEUVER  S/C 


gap; 

L 

0952 

0953 

0956 

0956 

0957 

0958 

0959 

0960 

0961 

0962 

0963 

096^^ 

0965 

0966 

0967 

0968 

0969 

0970 

0971 

0972 

0973 

0976. 

0975 

0976 

0977 

0979 

0980 

0981 

0983 

0989 

0935 

0986 

0987 

0988 

0989 

0990 

0991 

A 09  92 

0993 

0999 
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LEPP20S  r 195  PAGE  520 


P2n-P25 


USER  'S  PAGE  NOo  25  £7  S3 


REF  138  LAST  519  29,3230  0 9616  1 TC 

REF  1 29,3231  55992  0 CACR 

REF  3 LAST  515  29,3232  0 6C32  0 R29eN0  TC 

REF  1 29,3233  55693  0 CACR 

REF  7 LAST  515  29,3239  0 6011  1 TC 

REF  2 LAST  500  29,3235  1 2063  I TCF 


BANKCALL 
LRS29,1 
KI LLTASK 
CALLDGCH 

CLRACMOC  CLEAR  BITS  10  & 15  OF  RADMOOESc 

P20LEM1  ANC  GO  TO  600  MIe  RANGE  CHECK  IN  P20. 


REF  1 
REF  1 


6011  BLCCK  3 

6000  SETLCC  FFTAG6 

6011  BANK 

COUNT#  5$/R29 


REF  1 

REF  36  LAST  512 
REF  37  LAST  520 
REF  28  LAST  508 

REF  27  LAST  517 


6011  9 6C21  0 

6012  0 0009  n 

6013  7 0110  0 

6019  59  no  0 

6015  9 9752  1 

6016  C Q0C6  1 

6017  03  012  1 


CLRAOMOD  CS 

INHINT 

MASK 


EXTEND 

V,ANO 


BI  Tin+15 

RACMOCES 

PAOMODES 

6IT2 

CHAN12  — 


DISABLE  RR  ERROR  COUNTERS 
USER  WILL  RELINT 


REF  151  LAST  511 


6020  C 0002  0 


TC 


Q 


REF 


REF 


3 LAST 
2 LAST 


999 

519  TO 


6021 
29,3236 
29,2000 
29,3236 
520  : 


91CC0  1 BITlO+15  OCT  91000 
BANK  29 
SETLOC  P20S 
BANK 

22  22#  COUNT#  $$/R29 


REF  22 

REF  9 
REF  2 
REF  8 
REF  1 
REF  139 
REF  8 
REF  9 
REF  1 
REF  190 
REF  9 
REF  110 
REF  2 


LAST  519 

LAST  520 
LAST  520 
LAST  520 

LAST  520 
LAST  502 
LAST  513 

LAST  520 
LAST  518 
LAST  519 
LAST  229 


29,3237 
29,3290 
29,  3291 

29.3292 

29.3293 
29,3299 

29 .3295 

29.3296 

29.3297 

29.3250 

29.3251 

29.3252 

29.3253 


C 5353  1 
09022  0 
C 6032  0 
55693  0 
C 6011  1 
3 9779  1 
0 9616  I 
01736  1 
C 2670  1 
0 3252  1 
C 9616  1 
96116  0 
3 9755  1 
5 S' 303  1 


R29LEM3  TC 
OCT 
TC 

CADR 

TC 

CAF 

TC 

CADR 

TC 

Tf 

TC 

CACR 

R29LeM9  CAF 
TS 


PHASCHNG 

09022 

KULTASK 

CALLOGCH 

CLRAOMOO 

c5SEC 

BANKCALL 

DELAY  JOB 

LUNSFCHK 

R29LEM9 

BANKCALL 

R61LEM 

ZERO 

PADCADR 


REF 


29,3259  0 3220 


TC  R29LEM2 


KILL  WAITLIST  FOR  NEXT  POINT  IN  PATTERN 
CLEAR  BITS  10  + 15  CF  PAOMODES 

WAIT  FOR  DESIGNATE  LCCP  TO  DIE 


CHECK  IF  ON  LUNAR  SURFACE 
YES-OONT  00  ATTITUDE  MANEUVER 
CALL  R61  TO  DO  PREFERRED  TRACKING 
ATTITUDE  MANEUVER 

ZERO  OUT  RAOCAOR  (WHICH  WAS  SET  BY 
ENDRAOAR  WHEN  DESIGNATE  STOPPED!  SO  THAT 
RROeSSM  WILL  RETURN  TO  CALLER 
AND  GO  BACK  TO  PUT  UP  V16  N80  DISPLAY 


29,  3255- 


C9120  0 VI 6N80  VN  01680 
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L P20-P25  USER'S  PAGE  NCo  26  E7  S3 

P0995  PREFERRED  TRACKING  ATTITUDE  ROUTINE  R61LEM 
R0996  PROGRAM  DESCRIPTION 

R0997  MCO  NO  ; 3 CATE  : 4-11-67 

R0998  MCD  BY  ; P VOLANTE  SOC 


R0999  FUNCTIONAL  OESCRIPTICN- 

RIOOO  TO  COMPUTE  THE  PREFERRED  TRACKING  ATTITUDE  OF  THE  LM  TO  ENABLE  PR 

RlOOl  TRACKING  OF  THE  CSM  AND  TO  PERFORM  THE  MANEUVER  TO  THE  PREFERRED 

RI002  ATTITUOEo 

RlOna  CALLING  SEQUENCE- 

R1004  TC  BANKCALL 

R1005  CAOR  RdlLEM 

R1006  SUBROUTINES  CALLED 

R1007  LPS20*1  VECPniNT 

R1008  KALCMAN3 


R1009 
RIOIO 
RlOll 
R1012 
R 1013 
R1014 
R1015 
R1016 
R1017 

Rioia 

R1019 

R1020 

R1021 

1022 

1023 

1024 

1025 

1026 
1027 
1026 

1029 

1030 

1031 

1032 

1033 

10331 

10332 
10332 

10334 

10335 

1034 
10341 


NORMAL  EXIT  MODES- 

NCRMAL  RETURN  IS  TC  CALLER  * 1 
ALARM  OR  ABORT  EXIT  MCDES- 

TERMINATE  P20  + R61  EY  BRANCHING  TO 
RENDEZVOUS  FLAG  ARE  NCT  SET* 

OUTPUT  - 

SEE  OUTPUT  FOR  LPS20ol  ♦ ATTITUDE  MAN 
ERASABLE  INITIALIZATION  RECUIREC 
GENRET  USED  TO  SAVE  Q FOR  RETURN 
FLAGS  SET  + RESET 
3AXISFLG 
DEBRIS 

SEE  SUBROUTINES 
REF  1 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


17  LAST  515 


REF  10 
REF  168 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


461 

517 

519 


521 

519 

521 

472 

506 

512 

521 

521 


23«2000 

22,2116 

67,1456 

23,2116 
23  ,2117 

23.2120 

23.2121 
23  ,2122 

23.2122 

23.2124 

23.2125 

23.2126 

23.2127 

23.2130 

23.2131 

23.2132 

23.2133 

23.2134 


C 4645  1 
55*142  0 
C 5504  0 
0002A  1 
0 2152  0 
C A6A5  I 
55*142  0 

0 5516  0 
Cn02A  1 

3 4750  1 
0 0006  1 
02  023  0 
10  OOO  0 

1 2152  1 
0 5504  0 


2CEN0  IF  BOTH  TRACKFLA6 

EUVER  ROUTINE  ( R 60 > 


SETLOC  R61 
BANK 

EBANK=  LOSCOUNT 
COUNT*  $$/R61 
TC  MAKECADR 

TS  GENRET 

TC  UPFLAG 

ACRES  R61FLAG 
TC  R61C+L02 

TC  MAKECADR 

TS  GENRET 

TC  DOWNFLAG 

R61FLAG 
BIT4 

EXTEND 

RAND  CHAN33 
CCS  A 
TCF 


TC 


P61C+L02 

UPFLAG 


SFT  R61  FLAG 


RESET  R61  FLAG 

BYPASS  RADAR  READING  IF  DATA 
GOOD  NOT  PRES  ENT 


NO  DATA  GOOD 
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P20-P35 


USER'S  PAGE  NOo  27 
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10342 

10343 

10344 

10345 


10346 

10347 

10348 
1034C 

1035 

10351 

10352 

10353 

10354 

10355 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1046 

1047 

1048 

1049 

1050 

1051 

1052 
10525 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1072 

1073 

1074 

1075 

1076 

1077 


REF  3 
REF  142 
REF  7 

REF  14? 
REF  2 
REF  144 
REF  8 

REF  55 
REF  7 
REF  12 
REF  35 

REF  1 
RfcF  44 

REF  4 
REF  21 


REF  11 
RfF  1 
REF  15 
REF  ^ 

REF  2 
REF  4 

REF  1 
REF  1 
REF  8 

REF  23 

REF  13 
REF  24 

REF  2 
REF  145 
REF  2 
REF  169 
REF  1 
REF  45 

REF  3 
REF  1 

REF  239 


LAST  511 
LAST  522 
LAST  513 

LAST  522 
LAST  495 
LAST  522 
LAST  522 

LAST  521 
LAST  522 
LAST  509 
LAST  508 


LAST  515 

LAST  492 
LAST  487 

LAST  515 

LAST  514 
LAST  514 

LAST  103 
LAST  485 


LAST  481 

LAST  520 

LAST  522 
LAST  510 

LAST  522 
LAST  522 
LAST  470 
LAST  521 

LAST  522 

LAST  522 


LAST  509 


23»2136 

23,2137 

23.2140 

23.2141 

23.2142 
23,214? 

23.2144 

22.2145 

23.2146 

23.2147 
23,2150 
23  ,2151 

23.2152 

23.2153 
23  ,2154 

23.2155 

23.2156 

23.2157 

23.2160 

23.2161 

23.2162 

23.2163 
23,2  164 

23.2165 

23.2166 

23.2167 
23,2170 
23  ,2171 

23.2172 

23.2173 

23.2174 

23.2175 

23.2176 

23.2177 

23.2200 

23.2201 

23.2202 

23.2203 
23  ,2204 

23.2205 

23.2206 

23.2207 
23,2210 
23  ,2211 

23.2212 

23.2213 
23  ,2214 

23. 2215 

23.2216 


53112  0 
0 4616  1 
17705  0 
12  143  I 

0 4616  1 
53114  0 

C 4616  1 
17705  0 
12  150  0 
C 5516  0 
00063  1 
3 4747  1 
7 0075  1 
0 )006  1 

1 2314  1 
C 6042  1 

77775  1 
C6516  0 
03765  0 
43234  0 
21574  1 
15712  1 
34C41  0 
51256  1 

77775  1 
CllCl  0 
03773  1 
45034  1 
46322  0 
56032  0 
QC322  1 

77776  1 
C 5353  I 

04C22  0 
3 4747  1 
7 0075  1 
0 0006  1 
1 2314  I 
C 4616  1 
54261  0 
10  COO  0 
C 2302  I 
0 6042  1 
45175  0 
01101  C 
47650  1 
45345  1 
00162  1 


R61C+L02 


R6K  + L03 


R61LeMl 


ADRES  R04FLAG 
TC  6ANKCALL 

CACR  PRROOT 
TC  BANKCALL 

CADR  RADSTALL 
NOCP 

TC  BANKCALL 

CACR  RRRANGE 
TC  BANKCALL 

CADR  RADSTALL 
NOCP 

TC  DOWNFLAG 

ACRES  R04FLAG 
CAF  TPACKBIT 
MASK  STATE  +1 
EXTEND 

S2F  R65WAIT 
TC  INTPRET 

VLCAO 

HI  UM  TZ 
STORE  SCAXIS 
RTB  OAC 

LOAOTIME 
3SEC0NDS 
STCALL  TDECl 

LPS20o 1 

VLOAO 


RRTARGET 
STORE  POINTVSM 
RTE  CALL 

READCDID 
VECPNTl 
STORE  CPHI 
EXIT 

TC  PHASCHNG 

OCT  04022 
CAF  TPACKBIT 
MASK  FLAGWRCl 
EXTEND 

BZF  R65WAIT 
TC  BANKCALL 

CADR  G+N,AUTC 
CCS  A 
TC  R61C+L04 

TC  INTPRET 

VLCAD  CALL 

RR  TARGET 
CDU*SMN0 
DLOAO  DSU 

MPAC  +5 


PREVENT  521  ALM 
READ  RR  RANGE  AND  ROCT 
EVERY  R65  PASS  ( 3 TIMES 
BEFORE  FIRST  MARK,  CNCE 
DUPING  ANY  MARK  PROCESSING, 


TRACKFLAG 


NOT  SET 


TRACK  AXIS  UNIT  VECTOR 

EXTRAPOLATE  FORWARC  TC  CENTER 
SIX  SECOND  PERIODo 

LOS  DETERMINATION  + VEH  ATTITUDE 


GET  OESIPEO  CDU'S  FOP  VECPNTl 

COMPUTES  FINAL  ANGLES  FPOM  PRESENT  COUDS 
STORE  FINAL  ANGLES  - CPH I , CTHET A , CP S 1 


IS  TRACK  FLAG  SET 


CHECK  FOR  AUTO  MODE 
NOT  IN  AUTO 


GET  PHI  - ARCCOS  OF  Z-COMPONENT  OF  LOS 


gap: 

L 

1079 

1080 

1082 

1083 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

109A 

1095 

1096 

1097 

1098 

1099 

1100 

llOl 

1102 

1103 

1104 

1105 

1106 

1107 

1106 

1109 

1110 

nil 

1112 

1113 

1114 

1115 

1116 

1117 

me 

1119 

1120 

1123 

112^^ 

1125 

1126 

1127 

1129 

1130 

1131 

1132 

1133 
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P2C-P25 


USER'S  PAGE  NOe  28  E7  S3 


REF  1 

REF  1 
REF  9 
REF  4 
REF  15 


REF  9 
REF  10 
REF  k 
REF  2 

REF  18 
REF  2 
REF  16 
REF  1 


REF  19 
REF  3 
REF  20 
REF  2 
REF  56 
PEF  5 
REF  33 
REF  2 
REF  146 
REF  3 

REF  21 
REF  5 
REF  24 

REF  57 
REF  3 
REF  25 
REF  1 
REF  170 
REF  1 
PEF  3 


REF  2 
RFF  4 
REF  1 
REF  8 
REF  1 
PEF  87 
REF  8 
REF  21 


LAST  371 
LAST  206 
LAST  464 


LAST  522 
LAST  523 
LAST  482 
LAST  371 

LAST  521 
LAST  389 
LAST  523 


LAST  517 
LAST  365 
LAST  523 
LAST  517 
LAST  522 
LAST  489 
LAST  521 
LAST  479 
LAST  522 
LAST  489 

LAST  523 
LAST  517 
LAST  522 

LAST  523 
LAST  523 
LAST  522 

LAST  522 

LAST  511 

LAST  523 
LAST  523 

LAST  507 

LAST  518 
LAST  515 
LAST  515 


23,  2217 

23.2220 

23.2221 
E6, 1634 
23  ,2222 

23.2223 

23.2224 
23  ,2225 

23.2226 

23.2227 

23.2230 

23.2231 

23.2232 
E7,1456 

23.2233 

23.2234 
2 3,2235 

23.2236 

23.2237 

23.2240 

23.2241 

22.2242 
23,224? 
23  ,2244 

22.2245 

23.2246 

23.2247 
23,2250 
23  ,2251 
23  ,2252 
23,2253 
23  ,2254 

23.2255 

23.2256 

23.2257 

23. 2260 

23.2261 

23.2262 

23.2263 
23  ,2264 

23.2265 

23.2266 

23.2267 
23,2270 
23  ,2271 

23 .2272 

23.2273 
2?  ,2274 

23.2275 

23.2276 


C622C  0 
77440  1 
46236  I 

3 5015  0 
54  CC3  0 
0 0C04  0 
0 0006  1 
3 C322  1 
53'635  1 
3 C323  0 
55'636  1 
0 0003  I 

3 5C16  0 
54  f)03  0 
C 2261  0 
77776  1 
C 0C04  0 
C 4674  0 
40154  0 
C 4674  0 
40141  1 
C 5516  0 
C0124  0 
C 5504  0 
00077  1 
C A616  1 
54123  0 
0 0004  0 
0 4674  0 
40115  0 
C 5353  1 
04022  0 
0 5516  0 
C0C77  1 
3 0075  0 
7 4742  0 
10  COO  0 
C 2305  0 
n'745  1 
0 2270  0 
C 2305  0 
55'?45  I 
3 2321  0 
0 5173  1 
02275  0 
0 5155  0 
3 7717  1 
C 5105  0 


R61LEM2  BMN 


TS 


INhINT 

EXTEND 

OCA 

OXCH 

CA 

TS 

RELINT 

EBANK= 

CAF 


P61C+L05  EXIT 


CACR 

INhINT 


ADRES 

R61C  + L06  CA 

MASK 


CAF 

TC 


COSl 5DE6 

EXIT 

R61 C+L05 

CDUXO 

E8ANK6 

EBANK 


CPHI 
CDUXD 
CPS  1 
COUZD 

LOSCCUNT 

EBANK7 

EBANK 

R61C+L06 


IBNKCALL 

2ATTER0R 

IBNKCALL 

SETMIND6 

OOWNFLAG 

3AXISFLG 

UPFLAG 

POSPFLAG 

BANKCALL 

P6CLEM 

IBNKCALL 

RESTOROB 

PHASCHNG 

04022 

DCWNFLAG 

PDSPFLAG 

FLAGWROl 

R61 FLBIT 

A 

R61C+L4 
R65CNTP 
+ 2 

R61C+L4 
R65CNTR 
06SEC 
TWIOOLE 
R61C+L2 
ENOOFJOe 
PR  IC2  6 
F INDVAC 


BRANCH  - PHI  > 15  DEGREES 
PHI  GPE  lOOEG 


REDUCE  ATTITUDE  ERROR 


SET  PRIORITY  DISPLAY  FLAG 


RESET  PRIORITY  DISPLAY  FLAG 


R65CNTR  = 0 - EXIT  ROUTINE 


GAP: 
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1134 

1135 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 
11^4 

1145 

1146 
11463 
11466 


P20-P25 

REF  19 
REF  1 
REF  1 
REF  22 
REF  147 
REF  4 
REF  2 
REF  4 
REF  8 
REF  1 
REF 


REF 

REF 

REF 

HEF 


LAST  523 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


515 

523 

478 

523 

521 

483 


36  LAST  522 


LAST 

LAST 

LAST 

LAST 


523 

52A 

A73 

515 


£7 ,1A56 
23,2277 

23.2300 

23.2301 

23.2302 

23.2303 

23.2304 

23.2305 

23.2306 

23.2307 

23.2310 

23.2311 

23.2312 

23.2313 
23,231A 
23  ,2315 


02127  1 
46067  1 
C 5261  1 

0 4616  1 
54272  1 

0 2261  0 
31'142  1 

1 4640  0 
3 2316  1 
7 0074  0 
C CC06  1 
1 5155  1 
0 2261  0 
0 4635  0 

50232  I 


TC 

CAE 

TCF 

CAF 

MASK 

EXTEND 

BZF 


TC 

R65RA1T  TC 


TASKCVEP 

BANKCALL 

BALLANGS 

R61C+Lr6 

GENRET 

BANKJUMF 

B I T7+9PV 

STATF 

ENOOFJGB 
R61C+L06 
POST  JUMP 
P20LEMWT 


USER'S  PAGE  NCo  29 


TO  CONVERT  ANGLFS  TO  FDAI 


EX  IT  R61 

IS  RENDEZVOUS  CP  P25FLAG  SET 


1147 

1148 

1148 

1149 

1150 

1152 

11521 

11522 

11523 

11524 

11525 

11526 

11527 

11528 

11529 

1153 

11531 

11532 

11533 

1155 

1156 

1157 


REF  5 
REF  17 
REF  20 
REF  11 
REF  12 
REF  240 


REF 

PEF 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


523 

523 

259 

523 

524 
522 

371 

524 

524 

524 


23.2316 

23.2317 

23 .2320 

23. 2321 
0024 

23.2322 

23.2323 
23  ,2324 
23,2325 
£6,1634 
23  ,2326 
23,2327 

23.2330 

22.2331 

23.2332 

23.2333 

23.2334 
23,2325 
23  ,2336 

4512 

4000 

4512 


00500  1 
17350  1 
34602  1 
C1130  ] 

C 0004  0 
3 5015  0 
56  003  1 
54  070  1 

3 1634  1 
ez  0 
0 0006  1 
3 1636  0 
52  156  1 
3 0070  0 
54  003  0 

0 0003  1 

1 6502  1 


06SEC  DEC  600 

PHI  FOUALS  20D 

READCDUD  INHINT 
CAF 
XCH 


EBANK6 
E6ANK 
TS  PUPTREGl 
EBANK=  COUXO 
CA  CDUXD 

TS  MPAC 


EXTEND 

OCA 

DXCH 

CA 


CDUYD 
MPAC  +1 
PUPTREGl 
EBANK 


TS 

RELINT 
TCF 
BLOCK  02 
SETLOC  RAOARFF 
BANK 


TMODE 


REACS  DESIRED  COU'S  AND  STORES  IN 
MPAC  TP  EXITS  WITH  MOCE  SET  TO  TP 


20  LAST  524  E7,1456 


GAP:  ASSEP6I.E  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-C91 
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L P20-P25 


USER'S  PAGE  NOo  30  E?  S3 


P1160  TFE  FCLLOWING  SUBROUTINE  RETURNS  TO  CALLER  + 2 IF  THE  ABSOLUTE  VALUE  CF  VALUE  OF  CIAI  IS  GREATER  THAN  THE 

R1162  NEGATIVE  OF  THE  NUMBER  AT  CALLER  +lo  OTHERWISE  IT  RETURNS  TO  CALLER  +3*  MAY  BE  CALLED  IN  RLPT  OR  UNDER  EXEC. 


1164 

1165 

1166 
1167 


4512  C 0C06  1 

4513  6 4515  1 

A514  1 4516  C 

4515  4 OOCC  0 


MAGSUB 


EXTEND 
BZMF  +2 
TCF  +2 
COM 


1168  REF  152  LAST  520 

1169 

1170 

1171  REF  1 

1172  REF  3 LAST  269 


4516  50  002  0 

4517  6 OOOO  1 

4520  r 0006  1 

4521  6 6744  0 

4522  1 6742  1 


INDEX  Q 
AO  0 

EXTEND 
BZMF  0+2 
TCF  0+1 


ABS(A)  <=  CONST  GO  TC  L+3 
ABStAl  > CONST  GO  TO  L+2 


GAP; 
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L P20-P25 

P1173  PROGRAM  NAME_  RRLIMCHK 
R1175  FLNCTICNAL  OESCRIPTICN 

R1176  RRLIMCHK  CHECKS  RR  OESTRED  GIMBAL  ANGLES  TC  SEE  IF  THEY  ARE  WITHIN 
R1177  THE  LIMITS  OF  THE  CURRENT  MOTEo  INITIALLY  THE  DESIRED  TRUNNION  AND 
R1178  SHAFT  ANGLES  ARE  STORED  IN  ITEMFl  AND  ITeMP2<,  THE  CURRENT  RR 
R1179  ANTENNAE  MODE  (RADMQDES  BIT  12)  IS  CHECKED  WHICH  IS  = 0 FOR 
R1180  MCDE  1 AND  =1  FOR  MCCE  2o 

R1181  MODE  1 - THE  TRUNNION  ANGLE  IS  CHECKEC  AT  MAGSUB  TO  SEE  IF  IT  IS 
R1182  BETWEEN  -55  AND  +55  CEGREESc  IF  NOT,  RETURN  TO  L +2o  IF  WITHIN  LIMITSt 

R1183  THE  SHAFT  ANGLE  IS  CHECKEC  TC  SEE  IF  IT  IS  BETWEEN  -70  AND  +59  DEGREES*, 

R118A  IF  NOT,  RETURN  TO  L +5*,  IF  IN  LIMITS,  RETURN  TC  L +3o 
R1185  MCDE  2 - THE  SHAFT  ANGLE  IS  CHECKED  AT  MAGSUB  TO  SEE  IF  IT  IS 
RH86  BETWEEN  -139  AND  -25  OEGREESe  IF  NCT,  RETURN  TC  L +2*.  IF  WITHIN 

R1187  LIMITS,  THE  TRUNNION  ANGLE  IS  CHECKED  TO  SEE  IF  IT  IS  BETWEEN  +125 

R1188  AND  -125  (+235)  DEGREES*  IF  NCT,  RETURN  TO  L +2*  IF  IN  LIMITS,  RETURN 
R1109  TC  L +3* 


USER'S  PAGE  NO,.  31  E7  S3 

ARE  IN  THE  LIMITS  OF  THE  CURRENT  MODFo 


R1190 

R1191 

R1192 


CALLING  SEQUENCE: 

L TC  RRLIMCHK  (WITH  INTERRLFT  INhlBITEC) 

L +1  ADRES  T,S  (DESIRED  TRLNMCN  ANGLE  ADDRESS) 


R1193  ERASABLE  INITIALIZATION  RECUIREC: 

R119A  RAOMOOES,  MCDEA,  MODEB  (GR  DESIRED  TRUNNION  ANC  SHAFT 

R1195  ANGLES  ELSEWHERE  IN  CONSECUTIVE  LOCATIONS  - UNSWITCHED  ERASABLE  CR 

R1196  CURRENT  EBANK)* 

R1197  SUBROUTINES  CALLED,  MAGSLB 

R1190  JCBS  CR  TASKS  INITIATED.  NONE 

R1199  ALARMS,  NCNE 

R1200  Exit, 

R1201  L + 3 


1202 
1203 
12  04 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 


REF  153  LAST  525 


REF  2 
REF  38 
REF  171 
REF  1 

REF  7 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


526 

259 

526 

325 

520 

523 


LAST  526 


4523 

4524 

4525 

4526 

4527 

4530 

4531 


4535 

4536 


0 0006  I 
5 .0002  0 
5 0000  1 
3 0001  0 
24  C02  0 
52  062  1 
22  002  0 

3 4740  0 
7 0110  0 
1C  CCO  0 

1 4550  1 

3 0061  0 


INDEX 
DCA 
I NCR 
CXCH 
LXCH 

CAF 

MASK 

CCS 

TCF 

CA 


M00E2CHK 

ITEMPl 


LICALLER  +2)  TO  L« 

SEE  WHICH  MCDE  PR  IS  IN* 


MODE  1 IS  DEFINED  AS 


GAP  : 

L 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1220 

1229 

1230 

1231 

1232 

1233 

1234 
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USER'S  PAGE  N0«  32  E7  S3 


REF  1 

REF  64  LAST  46  0 


4537  0 4512  O 

4540  66161  1 

4541  0 0001  0 


TC  MAGSUB 

DEC  -o30555 
Tf  L 


U ABS(T)  L 55  OEGSo 

2o  ABS(S  + 5<.5  OEGSJ  L 64.  5 DEGS 

(SHAFT  LIMITS  AT  +59,  -70  DEGS I 


REF  1 

REF  3 LAST  95 

REF  2 LAST  527 

REF  65  LAST  527 

REF  1 


4542  3 4562  1 

4543  6 0C62  0 

4544  0 4512  0 

4545  64420  0 

4546  0 0001  0 

4547  C 4560  0 


CAF  5o5DEGS 

AC  ITEMP2  S 

TC  MAGSUB 

DEC  -o35033  64.5  DEGS 

TC  L 

TC  RRLIMOK  IN  LIMITSc 


REF  1 

REF  4 LAST  527 

REF  3 LAST  527 

REF  66  LAST  527 


4550  3 4563  0 

4551  e 0062  0 

4552  0 4512  0 

4553  65673  0 

4554  0 0001  0 


MCDE2CHK  CAF 


02 DEGS 
I TEMP2 
MAGSUB 
-o31667 


MODE  2 IS  DEFINED  AS 

It,  ABS(T»  G 125  DEGSo 
2e  ABS(S  + 82  DEGS)  L 57  DEGS 

(SHAFT  LIMITS  AT  -25,  -139  DECS) 


REF  8 LAST  526  4555  2 0061  0 

REF  4 LAST  527  4556  C 4512  0 


CA  ITEMPl 

TC  MAGSUB 


4557  51615  1 


DEC  -*69444  125  DEGS 


REF  67  LAST  527 
REF  68  LAST  527 


4560  50  OCl  0 PRLIMCK  INDEX 

4561  0 0001  0 TC 


( 


TC  I ) 


4562  00765  0 5.50EGS  CEC 

4563  16450  1 82DEGS  DEC 


*03056 

*45556 
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P1235  PROGRAM  NAME.  SETTRKF 
R1237  FUNCTICNAL  CESCRIPTICN. 

R1238  SETTRKF  UPDATES  ThE  TRACKER  FAIL  LAMP  ON  TFE  DSKY, 

R124n  INITIALLY  THE  LAMP  TEST  FLAG  {IMCDESSS  BIT  1)  IS  CHECKEOe 

R1241  IF  A LAMP  TEST  IS  IN  PROGRESS,  THE  PROGRAM  EXITS  TO  L +lc 

R12A2  IF  NO  LAMP  TEST  THE  FCLLCWIN'G  IS  CHECKED  SEQUENTIALLY. 

R1243  1)  RR  CDU:S  BEING  ZEROED,  RR  COU  OK,  AND  RR  NOT  IN 

R12^4  ALTO  MODE  (RAOMODES  BITS  13,  7,  2)o 

R1245  21  LR  VEL  DATA  FAIL  AND  NO  LR  PCS  DATA  IPACMOCES  BITS 

R1246  8,5) 

R1247  3)  NC  PP  DATA  ( R AC MC CE S E 1 T 4) 

R124e  THE  ABSENCE  OF  ALL  THREE  SIMULTANEOUSLY  IN  (1),  THE  PRESENCE  OF  BOTH 

R1249  IN  (2),  AND  THE  PRESENCE  OF  (3)  RESULTS  IN  EITHER  THE  TRACKER  FAIL 

R1250  LAMP  (DSPTAB  +11D  BIT  8)  BEING  TURNED  CN  OR  LEFT  ONo  OTHERWISE, 

R1251  THE  TRACKER  FAIL  LAMP  IS  TURNED  OFF  OR  IS  LEFT  OFF*  THEREFORE,  THE 
R1252  TRACKER  FAIL  LAMP  IS  TURNEC  CN  1 F_ 

R1253  A ) RR  CDU  FAILED  WITH  RR  IN  AUTC  NCDE  AND  RR  CDU.'S  NOT  BEING  ZEROEDc 

R1254  B)  N SAMPLES  OF  LR  DATA  COULD  NOT  BE  TAKEN  IN  2N  TRIES  WITH 

R1255  EITHER  THE  ALT  CF  VEL  INFCRMATICN 

R1256  C)  N SAMPLES  OF  RR  DATA  COULD  NCT  BE  OBTAINED  FROM  2N  TRIES 
R1257  WITH  EITHER  THE  AL 


R1258  CALLING  SEQUENCE: 
R1259  L TC  SETTRKF 


R1260  ERASABLE  INITIALIZATION  RECUIPEC;  IH0CES33,  RACMODES,  DSPTAB  +110 
R1261  SUBROUTINES  CALLED,  NONE 

R1262  JCBS  CR  TASKS  INITIATED,  NONE 

R1263  ALARMS,  TRACKER  FAIL  LAMP 


R1264  EXIT,  L +1  (ALWAYS) 


1267 

1266 

1269 


REF  25 
REF  172 
REF  156 


LAST 

LAST 

LAST 

LAST 


471 
474 
526 
52  6 


4564  3 4753  1 

4565  7 1300  1 

4566  1C  COO  0 

4567  0 0002  0 


SETTRKF 


MASK 

CCS 

TC 


B ITl 
IMCCES33 
A 
0 


1270  REF  25  LAST  336 

1271  REF  69  LAST  527 


4570  3 4744  ) RRTRKF  CA 

4571  54  001  1 TS 


1272  REF  2 LAST  187 

1273  REF  39  LAST  526 

1274 

1275  REF  1 


4572  3 4615  1 

4573  7 0110  0 

4574  C 0006  1 

4575  1 460)  0 


CAF  13,7,2 
MASK  RACMODES 
EXTEND 

6ZF  TRKFLCN 


1276  REF  1 

1277  REF  40  LAST  528 


4576  3 4750  1 RRCHECK  CAF  RROATABT 

4577  7 0110  0 MASK  RACMODES 
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USER'S  PAGE  NC*  33  67  S3 

P IF  EITHER : 

HEP  THE  ALT  OR  VEL  INFCRMATIONc 


ED, 

NO  ACTION  IF  DURING  LAMP  TEST, 


SEE  IF  CDU  FAILEOo 

CONDITION  3 ABOVEo 
SEE  IF  RR  DATA  FAILEOo 


GAP ; 

L 

1278 

1279 

1280 

1201 

1202 

1203 

12  8A 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 
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USER  'S  PAGE  NOc  3A  E7  S3 


FEF  173  LAST  528 
REF  7C  LAST  52  8 
REF  39  LAST  475 
REF  71  LAST  529 


REF  4 LAST  276 


4600  10  000  0 

4601  3 0001  0 

4602  6 1C35  0 

4603  7 0001  1 

4604  C 0006  1 

4605  1 6745  C 


TRKFLCN 


CCS  A 

CA  L 

AC  OSPTAB 

MASK  L 

EXTEND 
bZF  TCC 


+11  D 


HALF  ADD  DESIRED  AND  PRESENT  STATESo 


NO  CHANGEo 


REF  40  LAST  529 

REF  10  LAST  260 
REF  11  LAST  436 
REF  30  LAST  512 
REF  41  LAST  529 
REF  157  LAST  52  8 


4606  3 1035  0 FL IP 

4607  C 0006  1 

4610  C6  001  0 

4611  7 4733  0 

4612  6 4735  1 

4613  55'035  I 

4614  0 0002  0 


CA  DSPTAB  4110 

EXTEND 

RXOR  LCHAN 
MASK  POSMAX 

AO  BIT15 

TS  DSPTAB  +110 

TC  Q 


CANT  USE  LXCH  DSPTAB  +11D  (RESTART  PROB) 


4615  101C2  C 13,7,2  OCT  10102 

4616  ENCRMOOF  EQUALS 
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P1293  PROGRAM  NAME_  PRTURNCN 

R1294  FUNCTIONAL  DESCRIPTION, 

R1295  RRTURNON  IS  THE  TURN-CN  SEQUENCE  WHICH,  ALONG  WITH 

R1296  RRZEROSB,  ZEROS  THE  COU:S  AND  CETERMINES  THE  RR  MODEo 

R1297  INITIALLY,  CONTROL  IS  TRANSFERRED  TO  RRZEROSB  FOR  THE 
R1298  ACTUAL  TURN-CN  SECUENCEo  UPON  RETURN  THE  PROGRAM 
R1299  WAITS  1 SECOND  BEFORE  REMOVING  THE  TURN-CN  FLAG 
R130C'  (RACMOOES  BITl)  SO  THE  REPOSITION  ROUTINE  WON:T 
R1301  INITIATE  PRCGRAM  ALARM  OOSOlo  A CHECK  IS  THEN  MADE 
R1302  TO  SEE  IF  A PROGRAM  IS  USING  THE  RR  (STATE  BIT  7),  IF 
R1303  SC,  THE  PROGRAM  EXITS  TO  ENDRAOAR  SO  THAT  THE  RR  CDU 
R1304  FAIL  FLAG  (RADMODES  BIT  7»  CAN  EE  CHECKEC  BEFORE 
R1305  RETURNING  TO  THE  WAITING  PROGRAM,,  IF  NOT,  THE  PROGRAM  EXITS 
R1306  TC  TASKCVER* 


R1307  CALLING  SEQUENCE:  WAITLIST  TASK  FROM  RRAUTCHK  IF  THE  RR  POWER  ON  AUTO 
R1308  BIT  (CHAN  33  BIT  2 1 CHANGES  TO  0 AND  NO  PROGRAM  WAS  USING 
R13C9  THE  RR  (STATE  EIT  7>. 

R1310  ERASABLE  IN  I T I AL  IZ  AT  I ON  RECU I RE  0 : 

R1311  RACMCCESr  STATE 


R1312  SLBROniNES  CALLED,  RRZERCSE,  FIXDELAY,  TASKOVER,  ENDRAOAR 

R1313  JOBS  CR  TASKS  INITIATED, 

R1314  NCNE 


R1315  ALARMS,  NONE  (SEE  RRZEROSBl 


R1316  EXIT,  TASKOVER,  ENDRACAR  (WAITING  PROGRAM! 


1317 

1318  REF 

1319 


24  ,3256 
25,2000 
25,2073 


BANK  2^ 
SETLOC  P20S1 
BANK 


1320  REF 

1321  REF 

1322  REF 

1323  REF 

1324 

1325  REF 

1326  REF 

1327  REF 

1328  REF 


21  LAST 
1 
1 

3 LAST 
1 

41  LAST 

42  LAST 
23  LAST 


503 


526 
530 
52  4 


E7 ,1456 

25,2073  0 2102  0 

25,2C74  0 5221  0 

25,2075  C0144  0 

25  ,2076  4 4753  0 

25,2077  7 0110  0 

25.2100  54  no  0 

25.2101  I 5261  0 


EBANK  = 
COUNT* 
RRTURNON  TC 
TC 
DEC 
CS 

MASK 

TS 

TCF 


LOSCCUNT 

tS/RSUB 

RRZEROSB 

FIXDELAY 

100 

TURNONBT 

PACMCCES 

RADMODES 

TASKOVER 


WAIT  1 SEC  BEFORE  REMOVING  TURN  ON  FLAG 
SO  A MONITOR  REPOS  ITICN  WONT  ALARM*, 
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P1329  PRCGRAP  NARE_  RRZERCSE 
ftl330  FUNCTIONAL  OESCRIPTICN. 

R133i  RRZEROSe  IS  A CLOSED  SUBROUTINE  TQ  ZERO  THE  RR  CDU:S» 

R1332  DETERPINE  THE  RR  MCCE,  AND  TLPNS  CN  THE  TRACKER  FAIL 

R1333  LAMP  IF  REQLIREDo  INITIALLY  THE  RR  CDU  ZERC  BIT  (CHAN  12 
R1334  PIT  IS  SET*  FOLLOWING  A 20  MILLISECOND  WAIT,  THE  LGC 
R1335  FR  COL  COUNTERS  (OPTY,  OPTX>  ARE  SET  = 0 AFTER 

R1336  WHICH  THE  RR  CDU  ZERO  DISCRETE  (CHAN  12  BIT  1)  IS 

R1337  REMCVECo  A 4 SECOND  WAIT  IS  SET  TC  ALL  THE  RR  CDU:S 
R1338  TO  REPEAT  THE  ACTUAL  TRUNNION  AND  SHAFT  ANGLES*  THE 
R1339  PR  ecu  ZERC  FLAG  (RAQMODES  BIT  13)  IS  REMOVED*  THE 

R1340  CONTENTS  CF  CPTY  IS  THEN  CHECKED  TC  SEE  IF  THE  TRUNNION 

R1341  ANGLE  IS  LESS  THAN  90  DEGREES*  IF  NOT,  BIT  12  CF 
R1342  RADMCCES  IS  SET  = 1 TO  INDICATE  RR  ANTENNA  MODE  2* 

R1343  IF  LESS  THAN  9C  DEGREES,  BIT  12  CF  RADMOCES  IS  SET  = 0 TQ 

R1344  INDICATE  PR  ANTENNA  MODE  I*  SETTRKF  IS  THEN  CALLED  TQ 
Ri345  SEE  IF  THE  TRACKER  FAIL  LAMP  SHCULC  BE  TURNED  ON, 


R1346  CALLING  SEQUENCE:  L TC  RRZ6RCSB  (FRCM  RRTURNCN  AND  RRZERC) 
R1347  ERASABLE  INITIALIZATION  REQUIRED: 

R1348  PADMCOeS  (BIT  13  SET),  OSPTAB  +11D 


R134Q  SUBROUTINES  CALLED.  F1XD6LAV,  MAGSU6,  SETTRKF 

R1350  JCBS  CR  TASKS  INITIATED. 

R1351  NONE 


R1352  ALARMS.  TRACKER  FAIL 

R1353  EXIT.  L +1  (ALWAYS! 


1354 

1355 

1356 

1357 

1358 

1359 

1360 


REF  2 LAST  106 
REF  27  LAST  528 

REF  28  LAST  520 
REF  4 LAST  530 


25,2102  C 0006  1 RRZER0S8  EXTEND 


25,21C3  23'312  0 

25  ,2104  3 4753  1 

25.2105  C 0006  1 

25.2106  05  012  1 

25  ,2107  0 5221  0 

25,2110  CC002  0 


QXCH  RRRET 

CAF  BITl 

EXTEND 

WOR  CHAN12-- 

TC  FIXOFLAY 

DEC  2 


1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 


REF  111  LAST  520 
REF  5 LAST  517 
REF  4 LAST  318 
REF  64  LAST  511 


REF  29  LAST  521 
REF  5 LAST  531 


25.2111  3 4755  1 

25.2112  5A  C35  0 
25,21)3  5A  C36  0 
25  ,2114  4 4753  0 

25.2115  C 0006  1 

25.2116  03  012  1 
25  ,2117  0 522)  0 
25,2120  C1750  1 


ZERO 

COUT 

CDUS 

ONE 

CHAN12 

FIXDELAY 

1000 


REF  3 


1369 


LAST 


509  25,2121  4 4737  1 


CS 


PCOUO0IT 


17:53  DEC*  19,1969  LeMP2ns  ^145 
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£7  S3 


BIT  13  OF  RADMODES  MUST  BE  SET  BEFORE 
CCMING  HERE* 

TURN  ON  ZERC  RR  CDU 


REMOVE  ZEROING  BIT* 

RESET  FAIL  INHIBIT  IN  1C  SECS  - 0*281 
REMOVE  ZEROING  IN  PROCESS  BIT* 
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L P20-P25 


1370  REF  A3  LAST  530  25,2122  7 CllC  0 

1371  REF  A4  LAST  532  25,2123  54  110  0 


MASK  RADMCOES 
TS  RAOMODES 


1372 

1373 

1374 


REF  6 LAST  531  25,2124  3 0035  1 

REF  5 LAST  527  25,2125  0 4512  0 

25,2126  57777  I 


CA  CDUT 

TC  MAGSLB 

DEC  -e5 


1375 


25,2127  1 2132  1 


TCF  +3 


1376 

1377 

1378 

1379 

1380 

1381 


REF  112  LAST  531 

REF  3 LAST  526 
REF  45  LAST  532 
REF  1 

REF  46  LAST  532 


25,2130 
25,21-31 
25,2132 
25  ,2133 
25,2134 
25,2125 


3 4755  1 
1 2133  0 
3 4740  0 
56  110  I 
7 7744  0 
26  110  0 


CAF  ZERO 
TCF  +2  • 

CAF  ANTENBIT 

XCF  RAOMODES 
MASK  -BIT12 
ADS  RAOMODES 


1382  REF 

1383  REF 

1384  REF 


2 LAST  187 

3 LAST  531 
1 


25 .2136  C 4564  1 

25.2137  C 1312  0 
7744 


-eiT12 


TC  SETTRKF 

TC  RRRET 

EQUALS  -1/8 
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TRACKER  LAMP  MIGHT  GO  ON  NOWo 

DONFo 

IN  SPROOT 
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L P20-P25  USER'S  PAGE  NC*  38  E7  S3 

P1385  PRCGPAM  AAME_  CCRREFCS 
R1386  FUNCTIONAL  DESCRIPT1CN_ 

R13e7  DCRREPOS  IS  A SEQUENCE  OF  TASKS  TO  DRIVE  THE  RENDEZVOUS  RADAR 
R1388  TO  A SAFE  POSITION^  INITIALLY  SETRRECR  IS  CALLED  WHERE  THE  RR 
R1389  ERROR  COUNTERS  (CHAN  12  BIT  2>  ARE  ENABLED  AND  LASTYCMO 
R1390  AND  LASTXCMO  SET  = 0 TC  INDICATE  THE  DIFFERENCE  BET^iEEN  THE 
R1391  DESIRED  STATE  AND  PRESENT  STATE  OF  THE  CCMMANCS#  THE  RR 
R1392  TURN-QN  FLAG  (RADMOCES  BIT  11  IS  CHECKED  AND  IF  NOT  PRESENT, 

R1393  PROGRAM  ALARM  C0501  IS  REQUESTED  BEFORE  CCNTINUING,  IN  EITHER 

R1394  CASE,  FOLLOWING  A 20  MILLISECCND  WAIT  THE  PROGRAM  CHECKS  THE  CURRENT 

R1395  RR  ANTENNA  MODE  (RADMQDES  BIT  12U  RRTONLY  IS  THEN  CALLED 

R1396  TO  DRIVE  THE  TRUNNION  ANGLE  TC  0 DEGREES  IF  IN  MODE  I AND  TO  180 

R1397  DEGREES  IF  IN  MODE  2o  UPON  RETURN,  THE  CURRENT  RR  ANTENNA 

R1398  MCDE  (RADMOCES  BIT  121  IS  AGAIN  CHECKED*  RRSONLY  IS  THEN 

R1399  CALLED  TO  DRIVE  THE  SHAFT  ANGLE  TC  0 DEGREES  IF  IN  MODE  1 AND  TO 

R1400  -90  DEGREES  IF  IN  MODE  2*  IF  CURING  RRTONLY  OR  RRSONLY  A 

RlAOl  REMCOE  HAS  BEEN  REGUESTEC  (RACMCCES  BIT  141,  ANC  ALWAYS 

R1402  FOLLOWING  COMPLETION  OF  PRSONLY,  CCNTRCL  IS  TRANSFERRED  TO 

R1403  REPOSRPTo  HERE  THE  REPOSITION  FLAG  IRADMOOES  BIT  11)  IS 

R1404  REMOVED*  A CHECK  IS  THEN  MADE  CN  THE  CESIGNATE  FLAG  (RADMOOES 

R14n5  BIT  10)o  IF  PRESENT,  CONTROL  IS  TRANSFERRED  TO  BEGOES*  IF  NCT  PRESENT 

R1406  INDICATING  NC  FURTHER  ANTENNA  CCNTROL  REQUIRED,  THE  RP  ERROR 

R1407  COUNTER  BIT  ICHAN  12  BIT  2)  IS  REMOVED  ANC  THE  ROUTINE  EXITS  TC 

R1408  TASKCVER* 


R1409  CALLING  SEQUENCE: 

R1410  WAITLIST  CALL  FROM  RRGIMON  IF  TRUNNION  AND  SHAFT  COU  ANGLES 
R1411  NCT  WITHIN  LIMITS  OF  CURRENT  MODE* 


R1412  ERASABLE  INITIALIZATION  RECUIPEC: 
R1413  RADMOCES 


R1414  SL6RCLTINES  CALLED 

R1415  RRTONLY,  RRSONLY,  EEGOES  (EXIT) 


R1416  JCBS  CR  TASKS  INITIATED. 
R1417  NCNE 


R14ie  ALARMS-  NONE 
R1419  EXn_  TASKOVER,  BEGDES 
1420  REF  1 25,2140  C 2167  0 DCRREPOS  TC 

R1421  ALARM  501  DELETED  IN  CANCE  279  PER  PCR  97* 

1422  REF  6 LAST  531  25,2141  0 5221  0 TC 

1423  25,2142  00002  0 DEC 


1424  REF  4 LAST  532  25,2143  3 4740  0 CAF 


SETRRECR  SET  UP  RR  COU  ERROR  COUNTERSu 

FI XOELAY 
2 

ANTENBIT  MANEUVER  TRUNNION  ANGLE  TC  NOMINAL  POS* 


gap:  assemble  REVISION  )31  OF  AGC  PROGRAM  LUMINARV  BY  NASA  2021112-001 


L P20-P25 


1425 

1426 

1427 

1428 


LAST 

LAST 

LAST 


532 

529 

529 


25  r21^4  7 Olio  0 

25  »2145  10  000  0 

25  ,2146  3 4735  1 

25,2147  C 2252  0 


MASK  RACMCCeS 

CCS  A 

CAF  6IT15 

TC  PRTCMY 


1429 

1430 

1431 

1432 

1433 


REF  5 LAST  533 
REF  48  LAST  534 
REF  175  LAST  534 
REF  5 LAST  512 
REF  I 


25.2150  3 4740  0 

25.2151  7 0110  0 

25.2152  10  000  0 

25  ,2153  4 4736  0 

25,2154  0 2255  1 


CAF  ANTENBIT 

MASK  RACMCOES 

CCS  A 

CS  HALF 

TC  RRSONLY 


1434 
A 1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 


REF  2 LAST  189 

REF  49  LAST  534 
REF  50  LAST  534 
REF  1 

REF  176  LAST  534 
REF  2 LAST  514 
REF  29  LAST  520 

REF  30  LAST  531 
REF  24  LAST  530 


25.2155 

25.2156  7 Clio  0 

25.2157  54  110  0 

25.2160  7 4742  0 

25.2161  10  000  0 

25.2162  1 2604  0 

25.2163  4 4752  1 

25.2164  0 0006  1 

25.2165  03  012  1 

25.2166  1 5261  0 


PEPnSBIT 

MASK  PADMCOES 

TS  RADMODES 

MASK  DESIGBIT 

CCS  A 

TCF  BEGDES 

C S B I T2 

EXTEND 

WAND  CHAN12  — 

TCF  TASKCVER 


4 4741  0 REPOSRPT  CS 


1445  ' REF  30  LAST  53* 

1446 

1447  REF  31  LAST  534 

1448  REF  177  LAST  534 

1449  REF  158  LAST  529 


25,2167  3 4752  0 

25.2170  C 0006  1 

25.2171  C2  012  0 

25  ,2172  10  000  0 

25,2173  C 0002  0 


SETRRECR  CAF 

EXTEND 

RAND 

CCS 

TC 


B IT2 

CHAM2  — 

A 

0 


1450  REF  7 LAST 

1451  REF  1 

1452  REF  31  LAST 

1453 

1454  REF  32  LAST 

1455  REF  159  LAST 


204 

534 

534 

534 


25,2174  54  112  1 

25  ,2175  54  113  0 

25.2176  3 4752  0 

25.2177  C 0006  I 

25,2200  05  012  1 

25,22Cl  C 0CO2  0 


TS  LASTYCMO 

TS  LASTXCMO 

CAF  61 T2 

EXTEND 

WOR  CHAN12 

TC  0 
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0 FOR  MODE  1 AND  180  FOP  MODE  2: 

NOW  PUT  SHAFT  IN  RIGHT  POSITION 

-90  FOR  MODE  2o 

RETURNS  HERE  FROM  RRIAXIS  IF  REMODE 
RFOUFSTED  DURING  PEPOSITIONo 
REMOVE  REPOSIT  ION  EITo 

SEE  IF  SOMEONE  IS  WAITING  TO  DESIGNATES 

IF  NO  FURTHER  ANTENNA  CONTROL  REQUIRED, 
REMOVE  ERROR  COUNTER  ENABLE® 

SET  UP  RR  ERROR  COUNTERSo 

DO  NOT  CLEAR  LAST  COMMAND  IF 
ERROR  COUNTERS  ARE  ENABLED® 


ENABLE  RR  CDU  ERROR  COUNTERS; 


GAP:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L P20-P25 


P1456  PROGRAM  NAME_  REMODE 


R1458  FLNCTICAAL  DESCRIPTICN_ 

R1460  REMQDE  IS  THE  GENERAL  REMOOING  SUBRQUTINEo  IT  DRIVES  THE 

R1461  TRUNNION  ANGLE  TO  0 DEGREES  IF  THE  CURRENT  MODE  IS  MODE  1, 

R1462  180  DEGREES  FOR  MODE  2,  THEN  DRIVES  THE  SHAFT  ANGLE  TO  -45 

R1463  DEGREES,  AND  FINALLY  DRIVES  THE  TRUNNION  ANGLE  TC  -130  DEGREES, 

R1464  TC  PLACE  TFE  RR  IN  MCDE  2,  -50  DEGREES  FOR  MODE  1,  BEFORE 

R1465  INITIATING  2-AXIS  CONTRCLo  ALL  REMODING  IS  DONE  WITH  SINGLE 

R1466  AXIS  ROTATIONS  (RRlAXISIo  INITIALLY  THE  RR  ANTENNA  MODE  FLAG 
R1467  (RAOMCDES  BIT  12)  IS  CHECKEOo  CONTROL  IS  THEN  TRANSFERRED  TO 
R1468  RRTONLY  TO  DRIVE  THP  TRUNNION  ANGLE  TC  0 DEGREES  IF  IN  MODE  1 

R1469  OR  180  DEGREES  IF  IN  MODE  2o  RRSQNLY  IS  THEN  CALLED  TO  DRIVE 

R1470  THE  SHAFT  ANGLE  TO  -45  OEGREESe  THE  RR  ANTENNA  MODE  FLAG 

R1471  '(RADMOOES  BIT  121  IS  CHECKED  AGAIN*  CONTROL  IS  AGAIN 
R1472  TRANSFERRED  TO  RRTCNLY  TC  DRIVE  TFE  TRUNNION  ANGLE  TO  -130 
R1473  DEGREES  TO  PLACE  THE  RR  IN  MCDE  2 IF  CURRENTLY  IN’  MCDE  1 OR  TO 

R1474  -50  DEGREES  IF  IN  MODE  2 TO  PLACE  THE  RR  IN  MODE  1*  RMODINV 

R1475  IS  THEN  CALLED  TO  SET  RAOMCDES  BIT  12  TO  INDICATE  THE  NEW 

R1476  RR  ANTENNA  MODE*  THE  REMODE  FLAG  (RADMOOES  BIT  14) 

R1477  IS  REMOVED  TO  INDICATE  THAT  REMOOING  IS  COMPLETE*  THE  PROGRAM 

R1478  THEN  EXITS  TO  STCESIG  TC  BEGIN  2-AXIS  CCNTRGL* 


R1479  CALLING  SEQUENCE; 

R1480  FROM  EEGCES  WHEN  REMOOE  FLAG  (RAOMODbS  BIT  lA)  IS  SET* 

R1481  THIS  FLAG  MAY  BE  SET  IN  RRDESSM  AND  RRDESNE  IF  RRLIMCHK 

R1482  DETERMINES  THAT  THE  DESIRED  ANGLES  ARE  WITHIN  THE  LIMITS  OF  THE 

R1483  CTHEP  MCDE* 


R1484  ERASABLE  INITIALIZATION  REQUIRED: 
R1485  RACMOCES 


R1486  SUBROUTINES  CALLED 

R1487  RRTONLY,  RRSONLY,  RMODINV  (ACTUALLY  PART  CF» 


R1488  JCBS  OR  TASKS  INITIATED 
R1489  NONE 


R1490  ALARMS.  NONE 


R1491  EXIT.  STOESIG 


1492  REF  6 

1493  REF  51 

1494  REF  178 

1495  REF  32 

1496  REF  2 


LAST  534  25,2202 

LAST  534  25,2203 

LAST  534  25,2204 

LAST  53A  25,2205 

LAST  534  25,2206 


3 4740  0 
7 0110  0 
10  000  0 
2 A735  1 
0 2252  0 


RENCOE 


CAF  ANTENBIT 

MASK  RADMOOES 

CCS  A 

CAF  81T15 

TC  RRTONLY 


1497  REF 

1498  REF 


1 25,2207  3 7743  0 

2 LAST  534  25,2210  0 2255  1 


CAF  -450EGSR 

TC  RRSONLY 
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IVES  SHAFT  TO  -45,  AND  FINALLY  DRIVES 
S DONE  WITH  SINGLE  AXIS  ROTATIONS  (SEE 


DRIVE  TRUNNION  TO  0 ( 3 801 
(ERROR  COUNTER  ALREADY  ENABLED) 


GAP: 

L 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

15C5 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 
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P20-P25 


USER' S PAGF  NCo  41  E7  S3 


REF  52  LAST 
REF  7 LAST 
REF  179  LAST 
REF  1 
REF  1 
REF  3 LAST 


535  25,2211  4 0110  0 CS 

535  25,2212  7 4740  1 MASK 

535  25  ,2213  10  000  0 CCS 

25.2214  3 2243  0 CAF 

25.2215  6 2242  I AO 

535  25,2216  0 2252  0 TC 


RACMOCES 
ANTEN6I  T 
A 

-800EGSR  GO  TO  T = -130  (-5CI* 

-500EGSP 

FRTONLY 


REF  53  LAST  536  25,2217  4 CllC  0 

REF  8 LAST  536  25,2220  7 4740  1 

RFF  180  LAST  536  25,2221  10  COO  0 

REF  33  LAST  535  .25,  2222  3 4735  1 

REF  4 LAST  536  25  ,2223  0 2252  0 


MASK 

CCS 

CAF 


GO  TO  T = -180  (+0 )* 


REF  54  LAST  536 
REF  9 LAST  536 
REF  181  LAST  536 
REF  6 LAST  534 
REF  3 LAST  535 


25.2224  4 CllO  C 

25.2225  7 4740  1 

25.2226  10  000  0 

25.2227  4 4736  0 

25,2230  0 2255  1 


CS  RACMOCES  GO  TO  S = -90  ( +0  ) * 

MASK  ANTENBIT 

CCS  A 

CS  HALF 

TC  RRSONLY 


REF 


25,2231  0 2244 


TC  RMOCINV 


REF  1 

REF  55  LAST  536 
REF  56  LAST  556 


25,2232  4 4736  0 
25  ,2233  7 0110  0 
25,2234  54  110  0 


CS  REMCOeiT  END  OF  REMODE* 

MASK  RADMOOES 
TS  RACMOCES 


REF  2 LAST 
REF  57  LAST 


REF  1 

REF  2 LAST  515 
REF  2 LAST  284 


25,2235  3 4742  1 

25  ,2236  7 0110  0 

25,2237  0 CC06  1 

25.2240  1 3560  0 

25.2241  C 2613  1 
7743 

25  ,2242  67070  1 
25,2243  61615  1 


CAF 

MASK 

EXTEND 

B2F 

TC 

-45DEGSR  = 
-SncEGSR  DEC 
-80DEGSR  DEC 


OESIGBI T 
RADMODES 

RGOODENO 
STCES  IG 
13  ,14,15 
27778 


WAS  REMODE  CALLED  CURING  CESIGNATE? 

( BITIO  RAOMOOES  = 1) 

NO-RETURN  TO  CALLFR  WAITING  IN  RADSTALL 
YES  - RETURN  TO  DESIGNATE 


REF  58  LAST  536 
REF  10  LAST  536 

REF  11  LAST  529 
REF  59  LAST  536 
REF  160  LAST  534 


25,2244  22  110  1 

25  ,2245  3 4740  0 

25.2246  C 0006  1 

25.2247  06  001  0 

25.2250  54  110  0 

25.2251  C OC02  0 


RMQDINV 


L XCH 
CAF 

EXTEND 

RXOR 


RADMOOES 

ANTENBIT 

LCHAN 

RADMODES 

Q 


INVERT  THE  MOOF  STATUS* 
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P1533  PROGRAM  NAMES.  RRTONLY,  RRSCMY 
R1534  FUNCTIONAL  OESCRIPTICN. 

R1535  RRTONLY  AND  RRSONLY  ARE  SUBPCLTINES  FCR  CCING  SINGLE  AXIS 
R1536  RF  MANEUVERS  FOR  REMODE  AND  PEPCSITIONo  IT  DRIVES  TC 

R1537  hITHIN  1 DEGREE*  INITIALLY,  AT  RRlAX2r  THE  REMODE  AND  REPOSITION 

R1538  FLAGS  (RAOMODES  BITS  14,  U)  ARE  CHECKED*  IF  BCTH  EXIST, 

R1539  THE  PROGRAM  EXITS  TO  REPOSRPT  (SEE  DORREPOS)*  THIS  INDICATES 
R1540  THAT  SCMECNE  POSSIBLY  REOUESTEC  A DESIGNATE  (RADHOCES  BIT  10) 

R1541  WhlCH  REQUIRES  A REMOOE  (RADMCDES  BIT  14)  AND  THAT  A 

R1542  REPOSITION  IS  IN  PROGRESS  (RACMCDES  BIT  ll)o  IF  NONE 

R1543  OR  ONLY  ONE  OF  THE  FLAGS  EXIST,  REMCOE  OR  REPOSITION,  MAGSUB 

R1544  IS  CALLED  TO  SEE  IF  THE  APPROPRIATE  ANGLE  IS  V.ITHIN  I DEGREE-,  IF  YES, 

R1545  CCNTRCL  RETURNS  TO  THE  CALLING  ROUTINE*  IF  NOT,  CONTROL  IS 
R1546  TRANSFERRED  TO  RROUT  FOR  SINGLE  AXIS  MANEUVERS  WITH  THE  OTHER 

R1547  ANGLE  SET  = 0*  FOLLOWING  A *5  SECOND  WAIT,  THE  ABCVE  PROCEDURE  IS 

R1548  REPEATED* 


R1549  CALLING  SEQUENCE:  L-1  CAF  WANGLE*  (DESIRED  ANGLE  SCALED  PI) 
R1550  L TC  RRTONLY  (TRUNNION  CNLY  ) 

R1551  RRSONLY  (SHAFT  ONLY) 

R1552  RRTONLY  IS  CALLED  BY  PREP0S2S; 

R1553  RRTONLY  AND  RRSONLY  ARE  CALLED  BY  DORREPOS  AND  REMODE 

R1554  ERASABLE  INITIALIZATION  REQUIRED: 

R1555  CIA)  = DESIRED  ANGLE,  RAOMOOES 


R1556  516RCLT1NES  CALLED. 

R1557  FIXOELAY,  REPOSRPT,  MAGSU8,  RRCLT 


R155e  JCBS  CR  TASKS  INITIATED. 
R1559  NONE 


R1560  ALARMS.  NONE 

R1561  EXIT.  REPOSRPT  (REMOCE  AND  REPOSITION  FLAGS  PRESENT  - RADMDDES 
R1562  BITS  14,  11) 

R1563  L+1  (ANGLE  WITHIN  ONE  DEGREE  OR  RR  OUT  OF  AUTO  MODE) 


1564 

1565 

1566 


REF  2 LAST  106 
REF  113  LAST  532 
REF  1 


25.2252 

25.2253 

25.2254 


55*313  0 
3 4755  1 
1 2257  1 


RRTONLY 


PDES 
ZERC 
RR  lAXI 


DESIRED  TPUNION  ANGLE* 


1567  REF  3 LAST  537 

1568  REF  65  LAST  531 


25.2255  55*313  0 RRSONLY  TS 

25.2256  3 4753  1 CAF 


RDES 

ONE 


SHAFT  COMMANDS  AP  F UNRESOLVED  SINCE  THIS 
ROUTINE  ENTERED  ONLY  WHEN  T = 0 OR  180* 


1569  REF  1 

1570 

1571  REF  4 LAST 

1572  REF  1 


25,2257  55*314  1 

25.2260  0 0006  1 

25.2261  23*212  C 

25  ,2262  1 2265  0 


PRIAXIS 


TS  RRINOEX 

EXTEND 

OXCH  RRPET 
TCF  PR1AX2 


532 


GAP:  ASSEMBLE 


L P20-PH5 

1573  REF  7 
157^ 


1575  REF  60 

1576  PEF  2 

1577 

1578  PEF  1 


1579  REF  4 

1560 

1581  REF  2 

1582  REF  7 

1583  REF  9 

1584 

1585  REF  1 

1586  PEF  72 

1587  REF  61 

1588  REF  4 

1589  REF  1C 

1590  REF  6 

1591 


1502 

1593 


11 

5 


1594  REF  3 

1595  ■ 

1596  REF  73 

1597  REF  1 

1598  REF  1 


1599  REF  1 


1600 


REVISION  131  OF  AGC  PPCCRAR  LUMINARY  RY  NASA  2021112-091 


LAST  533 


25»2263  0 5221 

35,2264  00062 


0 NXTRRIAX  TC 
0 DEC 


fixoelay 

50 


LAST 

LAST 


536 

292 


25. 2265 

25.2266 

25.2267 
25, 2270 


A Clio  0 
7 7713  1 

0 7006  1 

1 2155  0 


RRJAX2 


CS  PAOMODES 

MASK  PRI022 
EXTEND 

BZF  PEPOSRPT 


LAST  537 

LAST  537 
LAST  532 
LAST  527 


LAST  529 
LAST  538 
LAST  189 
LAST  538 
LAST  532 


25.2272 

25.2273 

25.2274 

25.2275 
25  ,2276 
25,2277 
25,2300 
25  ,2301 
25,23C2 

25.2303 

25.2304 

25.2305 


5 1314  n 
20  035  0 
54  C61  1 
0 0006  1 
7 2316  0 
OCl  I 
3 0110  1 
7 A752  1 
£6  061  0 
0 4512  0 
77644  I 


CA  RDGS 

EXTEND 

INDEX  RRINOEX 

MSU  COUT 

TS  ITEMPl 

EXTEND 

MP  PRSPGAIN 

TS  L 

CA  RADMGOES 

MASK  AUTCMHIT 

XCH  ITEMPl 

TC  MAGSUB 

DEC  -o00555 


LAST  538  25  ,2306  10  061 
LAST  537  25,2307  0 1312 


CCS  ITEMPl 

TC  RRRET 


LAST  538 
LAST  538 


25.2310 

25.2311 

25.2312 

25.2313 

25.2314 


1 2313 
56  CCl 
53*355 


CCS  RRINOEX 

TCF  +2 

XCH  L 

OXCH  TRUNNCMD 
TC  RPOUT 


25,2315  1 2263  0 


TCF  NXTRRIAX 


25,2316  22715 


RRSPGAIN  CEC 


©59062 
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2 SAMPLES  PER  SECOND* 


IF  SOMEONE  REOUESTES  AS  DESIGNATE  WHICH 
REOLIRES  A REMODF  AND  A RFPCSITION  IS  IN 
PROGRESS,  INTERRUPT  IT  AND  START  THE 
REMODE  IMMECIATELYo 


SAVE  ERROR  SIGNAL* 


TRIES  TO  NULL  *7  OF  ERROR  OVER  NEXT  *5 


STORE  RR-OUT-OF-AUTO-MOOE  BIT. 
SEE  IF  WITHIN  ONE  DEGREE* 
SCALED  IN  HALF-REVS* 


NO*  IF  PR  OUT  OF  AUTO  MODE,  EXIT* 
RETURN  TO  CALLER© 


CCMMAND  FOR  OTHER  AXIS  IS  ZERO* 
SETTING  A TO  0* 


CCME  BACK  IN  *5  SECONDS* 


NULL  * 7 ERROR  I N * 5 SEC* 


GAP:  ASSEMBLE  REVISION  131  QF  AGC  PRCGPAM  LUMINARY  BY  NASA  2021112-091 


L P20-P25 

Pi601  PROGRAM  NAME.  RRGUT 


R1603 
R1604 
R1605 
R1606 
R16n7 
R 1608 
R1609 
R1610 
R1611 
R1612 
R1613 
R1614 
R1615 
R‘1616 


FUNCTIONAL  OESCRIPTICN. 

RROUT  RECEIVES  RR  GYPO  COMMANDS  IN  TANG,  TANG  +1  IN  RR 
ERROR  CCLNTER  SCALINGo  RRCUT  THEN  LIMITS  THEM  AND 
GENERATES  COMMANDS  TO  THE  COU  TO  ADJUST  THE  ERROR  COUNTERS 
TC  THE  DESIRED  VALUES,  INITIALLY  MAGSUB  CHECKS  THE  MAGNITUDE  OF 
THE  COMMAND  (SHAFT  CN  1ST  PASS)  TC  SEE  IF  IT  IS  GREATER  THAN 
364  PULSES,  IF  NOT,  CONTROL  IS  TRANSFERRED  TO  RROUTLIM  TO 
LIMIT  THE  COMMAND  TC  +384  CR  -384  PULSES,  THE  DIFFERENCE  IS 
THEN  CALCULATED  BETWEEN  THE  DESIRED  STATE  AND  THE  PRESENT  STATE  OF 
THE  ERRCR  COUNTER  AS  RECORCEC  IN  LASTYCMC  AND  LASTXCMD, 

THE  RESLLT  IS  STORED  IN  OPTXCMO  (1ST  PASS)  AND  OPTYCMD  (2ND 
PASS),  FOLLOWING  THE  SECOND  PASS,  FOR  THE  TRUNNION  COMMAND,  THE 
OCOUT  AND  OCOUS  ERRCR  CCUNTEP  DRIVE  BITS  (CHAN  14  BITS  12,  11) 

ARE  SET,  THIS  PROGRAM  THFN  EXITS  TC  THE  CALLING  PRCGRAM, 


R1617  CALLING  SEQUENCE: 

R1618  L TC  RRCUT  (WITH  RUPT  INHIBITED)  RROUT  IS  CALLED  BY 
R1619  RRTONLY,  RRSONLY,  AND  DOOES 


R1620  ERASABLE  IN  IT  I AL  I 2 AT  I CN  RFCUIRED: 

R1621  TANG,  TANG  +1  (OFSIRED  COMMANDS),  LASTYCMC, 
R1622  (JST  PASS  = 0),  (LR  ERROR  COUNTER  ENABLE  SET 


LASTXCMC 
(CHAN  12  BIT  2 ), 


R1623  SUBRCLTINES  CALLED. 
R1624  MAGSUB 


R1625  JCBS  CR  TASKS  INITIATED. 
R1626  NCNE 


R1627  ALARMS.  NONE 
R1628  EXIT.  L+1  (ALWAYS) 

Q 

ONE 

ITEMP2 
A 

TRUNNCMC 
(TEMPI 


1630  REF  161 

1631  REF  66 

1632  REF  5 

1633  REF  182 

1634  REF  2 

1635  REF  12 


LAST  536  25, 

LAST  537  25, 

LAST  527  25, 

LAST  536  25, 

LAST  538  25, 

LAST  53B  25, 


2317  22  002  0 

2320  3 4T53  1 

2321  54  062  1 

2322  50  000  1 

2323  3 135A  1 

2324  54  061  1 


RROUT  LXCH 
CAF 

RR0UT2  TS 

INDEX 

CA 

TS 


1636  REF 

1637 

1638  REF 


7 LAST  538 

1 


25,2325  C A512 
25,2'>26  77177 

25,2327  1 2346 


C TC 

0 -RRL IM  IT  DEC 
0 TCF 


MAGSUB 

-384 

RROUTLIM 


1639 

1640 

1641 

1642 


REF  13  LAST  539 
PEF  6 LAST  539 
REF  B LAST  534 


25,2330  3 0061 

25  ,2331  50  062 

25.2332  56  U2 

25.2333  A (3000 


0 SETRRCTR  CA 
0 INDEX 

0 XCh 

0.  COM 


1 TEMPI 
ITEMP2 
LASTYCMD 
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USER'S  PAGE  NOo 


RROR  COUNTER  SCALING,  RRGUT  LIMITS  THEM 


SIRED  VALUESo  RUPT  MUST  BE  INHIBITED, 

SAVE  RETURN, 

LOOP  TWICE, 


SAVE  SIGN  OF  COMMAND  FOR  LIMITING, 

SEE  IF  WITHIN  LMITS, 

LIMIT  COMMAND  TO  MAG  OF  3PAc 

COUNT  OUT  DIFFEPFNCE  BETWEEN  DESIRED 
STATE  AND  PRESENT  STATE  AS  PECORDEO  IN 
LASTYCMD  AND  LASTXCMD 


GAP: 

L 

1643 

1644 

1645 

1646 

1647 

1646 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 
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REF 

REF 

REF 

REF 


LAST  539 
LAST  233 
LAST  539 


25.2335 

25 .2336 

25. 2337 


50  062  0 
5A  C53  0 


AC  ITEMPl 

AO  NEGO 

INDEX  ITBMP2 

TS  CDLTCMO 


PREVENT  +0  IN  CUTCCUNTEP 


REF  ft  LAST  540  25,2340  10  062  1 
REF  1 25,2341  1 2321  1 


CCS  ITEMP2  PROCESS  BOTH  INPUTSi 

TCF  RRCUT2 


REF  1 

REF  7 
REF  74 


LAST  284 
LAST  538 


25.2342 

25.2343 

25.2344 

25.2345 


3 5020  0 
0 0006  1 
C5  C14  1 
0 0001  0 


CAF  PRIC’6 
EXTEND 

WOR  CHAM4 

TC  L 


ENABLE  CCUNTERSo 

PUT  ON  COU  DRIVES  S AND  T 
RETURN^ 


REF  15  LAST  540 
REF  1 

REF  2 LAST  540 
REF  16  LAST  540 
REF  1 


25  ,2346  10  061  1 RROUTLIM  CCS 


25,23i,7  4 2326  0 CS 

25.2350  1 2352  0 TCF 

25.2351  3 2326  1 CA 

25,  2352  54  061  1 TS 

25  ,2353  1 2331  0 TCF 


ITEMPl 
-RRLI MIT 
+ 2 

-RRLIMIT 
I TEMPI 
SETRRCTR 


LIMIT  COMMAND  TO  ABS  VAL  OF  384o 


GAP : 

L 

P1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1666 

1669 

1670 

1671 

1672 

1672 

1673 

1674 

1675 

1676 

1677 

167e 

1679 

1680 

1681 

1682 

1683 
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USER'S  PAGE  NCo  46  E7  S3 


ROUTINE  TO  ZERO  THE  RR  CDUS  AND  DETERMINE  THE  ANTENNA  MODE* 

PEF  1 2 5,2354  3 2403  1 RRZERO  CAF  BITll+1  SEE  IF  MONITOR  REPOSITION  OR  NOT  IN  AUTO 

REF  62  LAST  538  25,2355  7 0110  0 MASK  PAOMODES  IF  SO,  OONT  RE-ZEPC  CDUSo 

REF  183  LAST  539  25,2356  1C  COO  0 CCS  A 

PEF  I 25,2357  1 3513  1 TCF  RAONOCF  (IMMEDIATE  TASK  TO  RGOOCENO), 


REF  4 LAST  531 
REF  63  LAST  541 
REF  5 LAST  541 
REF  64  LAST  541 


25  ,2360  0 0004  0 

25.2361  4 4737  1 

25.2362  7 0110  0 

25  ,2363  6 4737  0 

25,2364  54  110  Q 


INFINT 

CS  PCOUOBIT 
MASK  PAOMODES 
AD  RCDUOBIT 
TS  PAOMCDBS 


SET  FLAG  TO  SHOW  ZFROING  IN  PROGRESSn 


REF  67  LAST  539 
REF  20  LAST  494 
REF  22  LAST  530 
REF  1 
PEF  1 


25.2365  3 4753  1 

25.2366  r 5203  0 
E7, 1456 

25  ,2367  02401  0 

25,2370  52067  1 


CAF  ONE 

TC  WAITLIST 

EBANK=  LOSCCUNT 
2CA0R  PRZ2 


REF  65 
REF  5 
REF  184 
REF  1 
REF  21 


REF  3 


LAST  541 
LAST  538 
LAST  541 


LAST-  495 


LAST  330 


25.2371 

25 .2372 

25. 2373 

25.2374 

25.2375 

25.2376 
25  ,2377 
25,2400 


4 0110  0 
7 4752  1 
1C  COO  0 
1 2377  1 
0 5567  0 
00510  0 

0 0003  1 

1 4631  0 


CS  RADMODE S 

MASK  AUTDMBIT 

CCS  A 

TCF  P0AD6ACK 

TC  ALARM 

OCT  510 

ROADBACK  RELINT 

TCF  SWRETURN 


SEE  IF  IN  AUTO  MGDEo 


AUTO  DISCRETE  NOT  PRESENT  - TRYING 


REF  2 LAST  530  25,2401  0 2102  0 RRZ2  TC 

REF  1 - 25,2402  1 3551  1 TCF 


RRZEROSB 

ENDPADAR 


COMMON  TO  TUPNON  AND  RPZEROo 


25,2403  C2001  1 BITll+l  OCT  02001 
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P2C-P25  USER'S  PAGE  NOo  47  E7  S3 

P1684 

PROGRAM  NAME_  RPOESSM  P (HALF-UNIT)  IN  RRTARGETo  REMODES  IF 

R1686 

R1687 

R1688 

RI689 

R 1690 
R1691 
R1692 
R1693 
R1694 

R 1695 
R1696 
R1697 
R1698 
R1699 
R1700 
R1701 
R1702 
R1703 
R1704 
R1705 
R17u6 
R1707 
R1708 

FLRCTICNAL  OESCRIPTICA. 

THIS  INTERPRETIVE  ROUTINE  ^ILL  DESIGNATE,  IF  DESIRED  ANGLES  ARE 

WITHIN  THE  LIMITS  CF  EITHER  MODE,  TO  A LINE-OF  SIGHT  (LOS)  VECTCR 
(HALF-UMT)  KNCWN  WITH  RESPECT  TC  THE  STABLE  MEMBER  PRESENT 

ORIENTATION^  INITIALLY  THE  IML  C0U:5  ARE  READ  AND  CCNTBCL 

TRANSFERRED  TO  SMN8  TO  TRANSFORM  THE  LOS  VECTOR  FROM  STABLE 

MEMBER  TO  NAVIGATION  BASE  CCCROINATES  (SEE  STG  MEMO  -6991 

PRANGLES  IS  THEN  CALLED  TO  CALCULATE  THE  RR  GIM6AL  ANGLES, 

TRUNNION  ANO  SHAFT,  FCR  BOTH  THE  PRESENT  ANO  ALTERNATE  MODE® 

RRLIMCHK  IS  CALLED  TC. SEE  IF  THE  ANGLES  CALCULATFO  FOR  THE 

PRESENT  MODE  ARE  WITHIN  LI^ITSo  IF  WITHIN  LIMITS,  THE  RETURN 

LCCATICN  IS  INCREMENTED,  INASMUCH  AS  NO  VEHICLE  MANEUVER  IS 

REQUIRED,  BEFORE  EXITING  TO  STARTDESo  IF  NCT  WITHIN  LIMITS  OF  THE 

CURRENT  MODE,  TRYSWS  IS  CALLECa  FOLLOWING  INVERTING  OF  THE  RR 

ANTENNA  MODE  FLAG  (RADMOOES  BIT  12),  RRLIMCHK  IS  CALLED 

TO  SEE  IF  THE  ANGLES  CALCULATED  FOR  THE  ALTERNATE  MCDE  ARE  WITHIN 

LIMITSo  IF  YES,  THE  RR  ANTENNA  MODE  FLAG  IS  AGAIN  INVERTED, 

THE  REMOOE  FLAG  (RAOMODES  BIT  141  SET,  AND  THE  RETURN  LOCATION 

INCREMENTED,  TO  INDICATE  NO  VEHICLE  MANEUVER  IS  REQUIRED,  BEFORE 

EXITING  TC  STARTDESe  IF  THESE  ANGLES  ARE  NCT  WITHIN  LIMITS 

OF  THE  ALTERNATE  MODE,  THE  RR  ANTENNA  MODE  FLAG  (RADMOOES 

BIT  12)  IS  INVERTED  BEFORE  RETURNING  DIRECTLY  TO  THE  CALLING  PROGRAM 

TO  INDICATE  THAT  A VEHICLE  MANEUVER  IS  RE(3UIRECo 

R1709' 

R1710 

R1711 

R171.2 

R1713 

CALL  ING  SEQUENCE: 

L STCALL  RRTARGET  (LOS  HALF-UNIT  VECTOR  IN  SM  COORDINATES) 

L+1  RRDESSM 

L+2  BASIC  (VEHICLE  MANEUVER  REQUIRED) 

L+3  BASIC  (NC  VEHICLE  MANEUVER  REQUIRED) 

R1714 

R1715 

ERASABLE  INITIALIZATION  REQUIRED: 

RRTARGET,  RAOMODES 

R1716 

R1717 

R1718 

SUBR0L7INES  CALLED. 

READCOUS,  SMNB,  RRANGLES,  RRLIMCHK,  TRYSWS  (ACTUALLY 

PART  CF) , RMGOINV 

R 1719 
R1720 

JOBS  OR  TASKS  IMTIATEO 

NCNE 

R1721 

ALARMS.  NCNE 

R1722 

R1723 

R 1724 

EXIT^  L+2  (NEITHER  SET  OF  ANGLES  ARE  WITHIN  LIMITS  OF  RELATED  MCDE) 

STARTOES  (DESIGNATE  PCSSIBLE  AT  PRESENT  VEHICLE  ATTITUDE-RETURNS 

TO  L+3  FROM  STARTDES)  CAN  BE  DONE  IN  PRESENT  VEH  ATTITUDE: 

1726 

1727 

25,24C4  A3020  1 RRDESSM  STQ  CLEAR 

REF  4 LAST  272  25,2405  01112  1 OESRET 

GAP:  ASSEfMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202U12-C91 


L P20-P25 


1728  REF 

1729 

1730  REF 

1731 

1732  REF 

1733  REF 


1 

2 LAST  A91 

4 LAST  522 
2 LAST  A91 


25,2407 
25,2A10 
25,2A11 
25  ,2412 
25,2413 


47541  1 
45175  0 
01101  0 
47673  0 


CALL 

VLCAO 


RRNBS^. 

CDUTR  IG 
CALL 

RRTARGET 

#SMNB# 


1734 

1735  REF  1 

1736 


25.2414  77624  I 

25.2415  26133  1 

25.2416  77776  I 


CALL 

RRANGLES 

EXIT 


173  7 

1738  REF 

1739  ■ REF 

1740 

1741  REF 

1742  REF 

1743  REF 

1744  REF 

1745 

1746  REF 

1747  REF 


3 LAST  517 

4 LAST  325 

5 LAST  542 
1 

6 LAST  511 
5 LAST  511 

1 

I 


25,2417 

25.2420 

25.2421 
25  ,2422 

25.2423 

25.2424 
25  ,2425 

25. 2426 

25.2427 

25.2430 

25.2431 


0 0004  0 
0 4523  1 
01106  1 
0 2425  0 
25*112  1 

0 2443  0 
4 0104  0 
7 4744  0 
0 0006  1 

1 2467  1 
0 2472  1 


CKOESSR 


INFINT 

TC  RRLIMCHK 

AORES  MOOEA 

TC  +3 

INCR  DESRFT 

TC  STAR  TOES 

CS  FLAGWR08 

MASK  SURFFBIT 

EXTEND 

BZF  NORDSTAL 

TC  TRYSKS 


1748  REF  7 

1749  REF  6 

1750 

1751  REF  2 

1752  REF  37 

1753  REF  7 

1754  REF  185 

1755  REF  1 

1756  REF  89 


LAST  543 
LAST  543 

LAST  543 
LAST  524 
LAST  508 
LAST  541 

LAST  524 


25  ,2432 

25.2433 

25.2434 
25  ,2435 

25.2436 

25.2437 

25.2440 

25. 2441 
25  ,2442 


4 0104  0 LUNDESCH  CS 
7 4744  0 MASK 

0 0006  1 EXTEND 

1 2467  1 BZF 

3 0C74  1 CA 

7 4745  1 MASK 

10  000  0 CCS 

C 2502  1 TC 

1 5155  1 TCF 


FLAGWBD8 

SURFFBIT 


NORDSTAL 

STATE 

RNDVZBIT 

A 

NOOESSM 

ENOOFJOR 
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COMPUTES  SINES  AND  COSINES,  ORDER  Y Z X 
LOAC  VECTOR  AND  CALL  TRANSFORMATION 

GET  RR  GIM0AL  ANGLES  IN  PRESENT  AND 
ALTERNATE  MOOEo 


CONFIGURATION  F 
NOT  IN  CURRENT 
INCREMENT  SAYS 
SHOW  DESIGNATE 


OP  CURRENT 
MODE 

NO  VEHICLE 
REQUIRED 


MODEo 

MANEUVER  REQo 


CHECK  IF  ON  LUNAR 


SURFACE  (SURFFLAG=P22F 


ERANCH-YES-CANNOT  DESIGNATE  IN  MODE  2 


OVERFLOW  RETURN  FRCM  RRANGLES 
CHECK  IF  ON  LUNAR  SURFACE 

BRANCH-YE  S-PE  TURN  TO  CALLER  - ALARM  527 


TEST  PNDVZFLGo 

NOT  ON  MOON^CALL  FCR  ATTITUDE  MANEUVER 
oooBUT  NOT  IN  R29o 
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P1757  PROGRAM  NAM£_  STARTCES 
R1759  FUNCTIONAL  DESCRIPTICN, 

R1761  STARTDES  IS  ENTEREC  WFiN  WE  ARE  READY  TO  BEGIN  DESIGNATIQNo 
R1763  BIT  14  CF  RAOMOCES  IS  ALREADY  SET  IF  A REMOCE  IS  REQUIREDo 
R1765  AT  THIS  TIME*  THE  PR  ANTENNA  MAY  BE  IN  A REPOSITION 
R1767  CFERATION*  IN  THIS  CASE,  IF  A REMCOE  IS  REQUIRED  IT  MAY  HAVE 

R1768  ALREADY  BEGIN  BUT  IN  ANY  CASE  THE  REPOSITION  WILL  BE  INTERRUPTEOo 

R1769  OTHERWISE,  THE  REPOSITION  WILL  EE  COMPLETED  BEFORE  2-AXlS 
R1770  DESIGNATION  BEGINS.  INITIALLY  CESCOUNT  IS  SET  = 60  TO  INDICATE 
R1771  THAT  30  SECONDS  WILL  BE  ALLOV.EO  FOR  THE  PR  DATA  GCCC  INBIT 

R1772  (CHAN  33  BIT  4>  IF  LOCK-ON  IS  DESIRED  (STATE  BIT  5)o  BIT  10 

R1773  CF  RAOMCCES  IS  SET  TO  SHOW  THAT  A DESIGNATE  IS  REQUIRED. 

R1774  THE  REPOSITION  FLAG  (RADMODES  BIT  U»  IS  CHECKED.  IF  SET, 

R1775  THE  PROGRAM  EXITS  TO  L+3  OF  THE  CALLING  PROGRAM  (SEE  PROESSM 
Ri776  AND  RR0ESN6).  THE  PROGRAM  WILL  BEGIN  DESIGNATING  TO  THE  DESIRED 
R1777  ANGLES  FOLLOWING  THE  REPOSITION  OR  REMOOE  IF  ONE  WAS 
R1778  REQUESTED.  IF  THE  REPCSITICN  FLAG  IS  NOT  SET,  SETRRECR  IS  CALLED 

R1779  WHICH  SETS  THE  RR  ERROR  COUNTER  ENABLE  BIT  (CHAN  12  BIT  2> 

R1780  AND  SETS  LASTYCMC  AND  LASTXCMD  = 0 TO  INDICATE  THE 
R1781  DIFFERENCE  BETWEEN  THE  PRESENT  AND  DESIREC  STATE  OF  THE  ERROR 
R17-82  CCUNTERSo  A 20  MILLISECOND  WAITLIST  CALL  IS  SET  FOR  BEGCES 

R1783  AFTER  WHICH  THE  PRCGPAM  EXITS  TC  L+3  OF  THE  CALLING  PROGRAM. 


1795 

1.796 

1797 

1798 

1799 

1800 
1601 


REF  6 
REF  66 
REF  3 
REF  67 
REF  3 
REF  186 


LAST 

LAST 

LAST 


543 
541 
536 

544 
534 
5^3 


REF 


1 


25.2443 

25.2444 

25.2445 

25.2446 

25.2447 

25.2450 

25.2451 


25'  112  I 
4 Olio  0 
7 4742  0 
26  110  0 
7 4741  0 
1C  000  0 
1 2457  1 


STARTDES  INCR 
CS 
MASK 
ADS 
MASK 
CCS 
TCF 


DESRET 

RADMODES 

DESIGBIT 

RACMCDES 

REPOSBI  T 

A 

DESRETRN 


1802 


LAST  533  25,2452  0 2167  0 


TC 
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STORED  AS  A HALF-UMT  VECTOR  IN  RRTARGET 


CKON  IS  DESIRED.  B1T14  OF  RADMODES  IS 
CR  REPOSITION  OPERATION.  IN  THIS 
THE  REPOSITION  WILL  BE  INTERRUPTED. 
GINS. 


SEE  IF  REPOSI 
ECTP  ALREADY 
SET  UP  ERROR 


TIONING  IN  PROGRESS. 
SET  UP. 

COUNTERS. 


gap:  ASSfcMBLE  REVISION  131  CF  AGC  PRCC-RAM  LUMINARY  BY  NASA  2C21112-091 


P 


25 


1803  REF  36  LAST  51  1 

180A  REF  21  LAST  5A1 

1805  REF  23  LAST  5A1 

1806  REF  3 LAST  534 

1806 


25f2A53  3 4752  0 

25*2454  0 5203  0 

E7,1456 

25.2455  C2eOA  1 

25.2456  52067  1 


CAF  TWC 

TC  WAITLIST 

F6ANK=  LOSCCUNT 
2CA0R  BEGDES 


1807  REF  3 

1808 

1809  REF  1 

1810  REF  90 

1811 

1812  REF  7 

1813  REF  8 

1814-  REF  9 


LAST  520 


LAST  543 

LAST  544 
LAST  545 
LAST  524 


25,2457 

25.2460 

25.2461 

25.2462 
25  ,2463 

25.2464 

25.2465 
25  ,2466 


3 13C3  C 
0 0006  1 
1 2463  0 
0 5155  0 

0 0003  1 
25*112  1 
3 1112  1 

1 4640  0 


DESRETRN 

DESRTRN 


CA  RADCADR 

EXTEND 

eZF  DESRTRN 

TC  ENDOFJOB 

RELINT 

INCR  DESRET 

CA  DESRET 

TCF  BANKJUMP 


1815  REF  114  LAST  537 

1816  REF  4 LAST  5^5 

1817  REF  2 LAST  545 


25,2467 

25.2470 

25.2471 


3 4755  1 
55*303  1 
1 2463  0 


NQROSTAL 


CAF  ZERO 

TS  RADCADR 

TCF  DESRTRN 


17:53  DECo  19,1969  LEMP20S  *145 
USER  'S  PAGF  NOo  Sf 


PAGE 
E7  S3 


545 


FIRST  PASS  THRU  DESIGNATE 

YES  SET  EXIT 
NO 


ZERO  RADCADR  TO  WIPE  OUT  ANYONE 
WAITING  IN  RADSTALL  SINCE  WE  ARE  NOW 
RETURNING  TO  P 20  AND  MAY  DO  NEW  RADSTALL 
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P1818 


SEE  IF  RRDESSM  CAN  BE  ACCCMPLISHEO  AFTER  A REMCCEo 


1819  REF  2 LAST 

1820  REF  h LAST 

1821  REF  A LAST 

1822  REF  2 LAST 


536  25,2A72  0 22AA  1 TRYSWS  TC  RMODINV 

543  25  ,2473  0 4523  1 TC  RRLIMCHK 

325  25,2474  ClllO  0 ADRES  MCOEB 

543  25,2475  I 2502  0 TC F NOOESSM 


1823 

1824 

1825 


RFF  3 LAST 
REF  2 LAST 
REF  68  LAST 


546  25,2476  0 2244  1 
536  25,2477  3 4736  1 
544  25  ,2500  26  110  0 


TC  RMCCINV 

CAF  REM008IT 

ADS  RAOMOOES 


1826  REF 


25,2501  1 2423 


TCF  OKCESSM 


1827  REF 

1828  REF 

1829  REF 


4 LAST  546 
9 LAST  545 
3 LAST  543 


25 .2502 

25.2503 

25.2504 


0 2244  1 
25' 112  1 

1 2467  1 


NODESSM 


TC 

INCR 

TCF 


RMODINV 

OESRET 

NOROSTAL 


1830 


25  ,2505 


00074  1 MAXTRYS  DEC  60 
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(NOTE  RUPT  INHIBIT! 

TRY  DIFFERENT  MODE* 

VEHICLE  MANEUVER  REQUIREOc 


RESET  BIT12 

SET  FLAG  FOR  REMODEo 


RE-INVERT  MODE  AND  RETURN 
TO  CALLER  +? 


GAP 
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P1831  DESIGNATE  TO  SPECIFIC  PR  GIMBAL  ANGLES  {INDEPENDENT  OF  VEHICLE  MOTlONIo  ENTER  WITH  DESIRED  ANGLES  IN 

Ria33  TANG  AND  TANG  +lc 


1834  REF  6 LAST  521  25,2506  0 4645  1 RRDESNE  TC 

1835  REF  10  LAST  546  25,25C7  55'112  0 TS 


MAKECADP 

CESRET 


1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 


REF  58  LAST  523 

REF  6 LAST  519 

REF  1 

REF  2 LAST  513 

PEF  1 

REF  8 LAST  512 

REF  1 


25.2510  0 5516  0 

25.2511  00041  1 

25.2512  3 2505  C 

25.2513  55'n3  I 

25.2514  C 0004  0 

25.2515  C 2551  1 

25.2516  01106  1 

25.2517  1 2534  0 


TC  DOWNFLAG 

ACRES  LOSCMFLG 
CA  MAXTRYS 

TS  OESCOUNT 
INFINT 

TC  RRLIMNB 

ADRES  TANG 
TCF  TRYSWN 


RESET  FLAG  TO  PREVENT  DOOES  FROM  GOING 
BACK  TO  R21 

SET  TIME  LIMIT  COUNTER 

FOP  DESIGNATE 

SEE  I F CUPP  FNT  MODE  0K« 

DO  SPECIAL  V^l  limit  CHECK 


SEE  IF  IN  OTHER  MODE-, 


1844 

1845  - 

1846  REF  9 LAST  547 

1847  REF  6 LAST  326 

1848  REF  46  LAST  522 


25.2520 

25.2521 
25,2  522 
25,2523 
25  ,2524 


Q 0002  1 
0 0006  1 
2 1107  0 
53'753  0 
0 6042  1 


OKDESNB 


RELINT 
EXTEND 
OCA  TANG 

OXCH  TANGNB 
TC  INTPRET 


1849 

1850  REF 

1851  REF 


1 

5 LAST  543 


25.2525  77624  1 

25.2526  46041  0 

25.2527  CllOl  0 


CALL  GET  LOS  IN  NB  COORCSo 

RRN6 

STCRE  PRTARGET 


1852 

1853 


REF 


25, 2530 
LAST  543.  25,2531 


SET  EXIT 

PRNBSW 


185* 

1855  REF  2 

1856  REF  5 

1857  REF  2 

1858  REF  10 

1859  REF  ! 


LAST  543 
LAST  546 
LAST  547 
LAST  547 


25,2522  C CCC4  C 
25,2532  1 2444  0 

25.2534  0 2244  1 TRYSWN 

25.2535  0 2551  1 

25.2536  01106  1 

25.2537  1 2544  1 


INhINT 

TCF  STAR  TOES  +1 

TC  RMODINV 

TC  RRLIMNB 

ADRES  TANG 

TCF  NQOESNB 


SFE  IF  OTHFR  MODF  WILL  DOe 
DO  SPECIAL  V41  LIMIT  CHECK 

NOT  POSSIBLEo 


1860 

1861 

1862 

1863 


REF  6 
REF  3 
REF  69 
REF  1 


LAST  547 
LAST  546 
LAST  546 


25,2540 
25  ,2541 

25.2542 

25.2543 


0 2244  1 
3 4736  I 
26  110  0 

1 2520  0 


TC  PMODINV 

CAF  PEMODBIT  CALL  FOR  REMODEe 

ADS  RACMCOES 

TCF  OKDESNB 


1664 

1865 

1866 
1867 
I860 


REF  7 LAST  547 
REF  22  LAST  541 


REF  9 LAST  520 
REF  91  LAST  545 


25  ,2544 

25. 2545 

25.2546 

25.2547 
25,2550 


0 2244  1 
C 5567  0 
00502  0 
0 6011  1 
C 5155  0 


NOCESNE 


TC 

TC 

OCT 

TC 

TC 


RMOOINV  REINVERT  MODF  BIT., 

ALARM  BAC  INPUT  ANGLESe 

502 

CLRAOMCD 

ENDOFJOe  AVOID  503  ALARMe 


1869  REF  162  LAST  539 

1870 

1871  REF  163  LAST  547 

1872 


25.2551 

25.2552 

25.2553 

25.2554 


50  002  0 
3 0000  1 
24  002  0 
C 0006  1 


RRLIMNB 


INDEX  Q 
CAF  P 
INCR  0 
EXTEND 


THIS  ROUTINE  IS  IDENTICAL  TO  PRLIMCHK 
EXCEPT  THAT  THE  MODE  1 SHAFT  LOWER 
LIMIT  IS  -85  INSTEAD  OF  -70  DEGREES 
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1873  REF  187  LAST  544  25,2555 

1874  25,2556 

1875  REF  17  LAST  540  25,2557 

1876  REF  164  LAST  547  25,2560 


5 0000  1 INDEX  A 

3 0001  0 CCA  0 

52  062  1 OXCH  ITEMPl 

22  002  0 LXCh  0 


1877 

1878 

1879 

1880 
1661 
1882 
1683 
1864 


REF  U 
REF  70 
REF  188 
REF  2 
REF  18 
REF  8 

REF  75 


LAST  536 
LAST  547 
LAST  548 
LAST  526 
LAST  548 
LAST  539 

LAST  540 


25.2561 

25.2562 
25  ,2563 

25.2564 

25.2565 

25.2566 
25,  2567 
25  ,2570 


2 A740  0 
7 0110  0 
10  000  0 
1 R550  1 

3 0061  0 
0 4512  0 

66161  1 
0 0001  0 


CAF  ANTENBIT 

MASK  RAOMODES 

CCS  A 

TCF  M0DE2CHK 

CA  ITFMPl 

TC  MAGSUB 

DEC  -,30555 

TC  L 


1885  REF 

1886 

1807  REF 
1886  REF 

1889  REF 

1890 

1891  REF 

1892  RfF 

1893  REF 
1694  REF 


9 LAST  540 
1 

2 LAST  527 
9 LAST  548 

76  LAST  548 
2 LAST  527 
1 


25,2572 
25  ,2573 

25.2574 

25.2575 

25.2576 
25,2517 
25  ,2600 

25.2601 

25.2602 


3 0062  C 
0 0006  1 
6 2601  1 
6 4562  1 

0 4512  0 SFAFTL  IM 
64420  0 
C 0001  0 

0 4560  0 

6 2603  0 NEGSHAFT 

1 2575  0 


CA  ITEMP2 

EXTEND 

BZMF  NEGSHAFT 

AD  5o50FGS 

TC  MAGSUB 

DEC  -o35833 

TC  L 

TC  BPLIMOK 

AD  20,5DEGS 

TCF  SHAFTLIM 


1895 


25,2603  03512  1 2Oo50EGS  DEC  ,1)389 


17:53  DEC,  19,1069  L6MP20Sol45  PAGE  5^-6 


USER'S  PAGE  NO,  53  E7  S3 

READ  GIMBAL  ANGLES  INTO  ITEMP  STORAGE 

LICALLER  +2)  TO  L 

SEE  WHICH  MODE  PR  IS  IN, 

MODE  2 CAN  USE  PRLIMCHK  CODING 

MODE  1 IS  DEFINED  AS 
l«  A8S(T>  L 55  CEGS 
2 SHAFT  LIMITS  AT  +59,  -85  DECS 

LCAC  SHAFT  ANGLE 

IF  NEGATIVE  SHAFT  ANGLE,  ADD  20,5  DECS 


64,5  DEGREES 
NOT  IN  LIMITS 
IN  LIMITS 

MAKE  NEGATIVE  SHAFT  LIMIT  -85  DEGREES 
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P1896 

PROGRAM  NAME.  8EGDES 

R1897 

R1898 

R1899 

R1900 

R190X 

R1902 

R1903 

R 190A 
R1905 
R19C6 

R 1907 
R1908 
R1909 
R1910 
R1911 
R1912 
R1913 
R191A 
R1915 
R1916 
R1917 
R1918 
R1919 

R 1920 
R1921 
R1922 

FUNCTIONAL  OESCRIPTICN. 

BEGDES  CHECKS  VARIOUS  CESIGNATE  REQUESTS  AND  REQUESTS  THF 

ACTUAL  RR  DESIGNATION,  INITIALLY  A CHECK  IS  MACE  TC  SEE  IF  A 

REMOCE  IRACMOCES  BIT  14)  IS  PEOLESTEO  OR  IN  PROGRESS,  IF  SO, 

CCNTRCL  IS  transferred  TO  STCESIG  AFTER  ROUTINE  REMODE  IS 

EXECUTED,  IF  NO  REMODE,  STOESIG  IS  IMMEDIATELY  CALLED  WHERE 

FIRST  THE  REPOSITION  FLAG  (RACMCCES  BIT  11)  IS  CHECKED,  IF 

PRESENT,  THE  DESIGNATE  FLAG  (RADMCCES  BIT  10)  IS  REMOVED 

AFTER  WHICH  THE  PROGRAM  FXITS  TO  ROBADEND,  IF  THE  REPOSITICN 

FLAG  IS  NCT  PRESENT,  THE  CONTINUOUS  DESIGNATE  FLAG  (RADMODES 

BIT  151  IS  CHECKED,  IF  PRESENT,  ON  EXECUTIVE  CALL  IS  IMMEDIATELY 

MADE  FCR  CODES  AFTER  WHICH  A ,5  SECOND  WAIT  IS  INITIATED  BEFORE 

REPEATING  AT  STDESIG,  IF  THE  RR  SEARCH  ROUTINE  ILRS24,1)  IS  DESIGNATING 

TO  A NEW  POINT  (NEwPTFLG  SET)  THE  CURRENT  DESIGNATE  TASK  IS  TERMINATED, 

IF  CONTINUOUS  DESIGNATE  IS  NCT  WANTED,  THE  CESIGNATE  FLAG  (RADMODES 

BIT  10)  IS  CHECKED,  IF  NCT  PRESENT,  THE  PROGRAM  EXITS  TO  ENDRAOAR  TO 

CHECK  RR  COU  FAIL  EEFORE  RETURNING  TO  THE  CALLING  PROGRAMe  IF  OESIGNATF 

IS  STILL  REQUIRED,  CESCCUNT  IS  CHECKED  TO  SEE  IF  THE  30  SECONDS  HAS 

EXPIRED  BEFORE  RECEIVING  THE  RR  DATA  GOOD  (CHAN  33  BIT  4) 

SIGNAL,  IF  CUT  OF  TIME,  PROGRAM  ALARM  00503  IS  REQUESTED,  THE 

RR  ALTO  TRACKER  ENABLE  AND  RR  ERRCR  COUNTER  ENABLE 
(CHAN  12  BITS  14,2)  BITS  REMOVED,  AND  THE  CESIGNATE  FLAG 
(RACMCCES  BIT  10)  REMOVED  BEFCRE  EXITING  TO  RDBADEND,  IF 

TIME  HAS  NOT  EXPIRED,  DESCCUNT  IS  CECREMENTEC,  THE 

EXECUTIVE  CALL  MADE  FOR  OOOES,  AND  A ,5  SECOND  WAIT  INITIATED 

BEFORE  REPEATING  THIS  PROCEDURE  AT  STDESIG, 

R1923 

R192A 

R1925 

R 1926 

CALLING  SEQUENCE: 

WAITLIST  CALL  FROM  STARTDES 

TCF  BEGDES  FROM  DORREPCS 

TC  STOESIG  RETURNING,  FROM  REMCDE 

R1927 

R 1928 

ERASABLE  IN  IT lAL IZAT  ICN  REQUIRED: 

DESCOLNT,  RADMCDES 

R1929 

R1930 

SUBROUTINES  CALLED. 

ENORADAR,  FINCVAC 

R1931 

JOBS  OR  TASKS  INITIATED.  OOCES 

R1932 

R1933 

ALARMS.  PROGRAM  ALARM  00503  (30  SECONDS  HAVE  EXPIRED)  WITH  NO  RR  DATA 

GCOD  (CHAN  33  BIT  4)  RECEIVED  WHEN  LOCK-CN  (STATE  BIT  5)  WAS  REQUESTED, 

R193A 

R1935 

R1936 

EXIT.  TASKOVER  (SEARCH  PATTERN  DESIGNATING  TO  NEW  POINT) 

ENDRADAR  (NC  DESIGNATE  - RADMCCES  BIT  10) 

PDBAOENO  (REPOSITION  CR  30  SECONDS  EXPIREC) 

1937 

REF  71  LAST  548  25,2604  0110  0 BEGDES  CS  RADMODES 
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1938  REF  A LAST 

1939  REF  189  LAST 

1940  REF  3 LAST 

1941  REF  1 

1942  REF  0 LAST 

1943 


547 

548 
536 


538 


25.2605  7 4736  0 

25.2606  10  000  0 

25  ,2607  0 2613  1 

25.2610  C 2202  0 

25.2611  0 5221  0 

25.2612  00062  0 


OeSLOOP 


REMOOBIT 

A 

STDESIG 
RtPCDE 
F I XOELAY 
50 


1944 

1945 

1946 


REF  4 LAST  544 
REF  72  LAST  549 
REF  190  LAST  550 


25.2613  2 4741  1 STDESIG  CAF  REPCSBIT 

25.2614  7 0110  0 MASK  PADMOOES 

25.2615  10  000  0 CCS  A 


1947  REF 


25,2616  I 2634  0 


TCF  8ADDES 


1948 

1949 

1950 

1951 


REF  73  LAST  550 

REF  1 


25 ,2617  10  110  0 

25.2620  1 2623  0 

25.2621  1 2623  0 

25.2622  1 2640  0 


CCS  RAOMOOES 

TCF  +3 

TCF  +2 

TCF  MQREOES  +1 


1952  REF  74 

1953  REF  4 

1954  REF  191 

1955  REF  2 


LAST  550  25 

LAST  544  25 

LAST  550  25 

LAST  541  25 


,2623  4 Olio  0 
,2624  7 4742  0 
,2625  10  000  0 
,2626  1 3551  1 


CS  RAOMOOES 

MASK  DESIGBIT 

CCS  A 

TCF  ENDRAOAR 


1956  REF 

1957  REF 


25,2627  11'113  1 STCESIGl  CCS 

25,2630  1 2637  0 TCF 


OESCOUNT 

MCRECES 


1958  REF  1 

1959 

1960  REF  33 

1961  REF  59 

1962  REF  1 

1964  REF  1 


LAST  534 
LAST  547 


25.2631  4 2645  0 

25.2632  0 0006  1 

25.2633  03  012  1 

25 .2634  0 5516  0 BACOES 

25.2635  CC271  0 

25.2636  1 3565  0 


CS 

EXTEND 

MAND 

TC 

ACRES 

TCF 


B14+B2 

CHAM2- 
OOWNFLAG 
DESIGFLG 
P D0AOEND 


1965 

1966 

1967 

1968 

1969 
1969 


REF  4 LAST  550 
REF  9 LAST  523 
REF  22  LAST  523 
REF  24  LAST  545 
REF  1 
REF  1 


25  ,2637  55*113  1 MQREOES  TS  OESCOUNT 


25.2640  2 7717  1 

25.2641  0 5105  0 
E7,1456 

25.2642  02646  1 

25.2643  52067  1 


CAF  PRIC26 

TC  FINDVAC 

eeANK=  LOSCCUNT 
2CADR  DODES 


1970  REF 

1971 


25.2644  ) 261) 

25.2645  20002 


1 TCF 

1 ei4+62  OCT 


DESLCCP 

20002 
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2 SAMPLES  PER  SECONDo 


SEF  IF  GIMBAL  LIMIT  MONITOR  HAS  FOUND  US 
OUT  OF  BOUNDSo  IF  SO,  THIS  BIT  SHOWS  A 
PEPOSITICN  TO  BE  IN  PROGRESS^ 


SEE  IF  CONTINUOUS  DESIGNATE  WANTEOe 
IF  SO,  OONT  CHECK  PIT  IP  TO  SEE  IF  IN 
LIMITS  BUT  GO  RIGHT  TO  FINCVAC  ENTRYo 


IF  NON-CONTINUCUS,  SEE  IF  END  OF 
PROBLEM  (DATA  GCOO  IF  LCCK-ON  WANTED  OR 
WITHIN  LIMITS  IF  NOT)®  IF  SO,  EXIT  AFTER 
CHECKING  RR  COU  FAILo 


SEE  IF  THF  TINE  LIMIT  HAS  EXPIRED 


IF  OUT  OF  TIME,  REMOVE  ECR  ENABLE  + TRKR 


UPDATE  GYRO  TORQUE  COMMANDS, 
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P1972 

PROGRAM  NAME.  CODES 

R1973 

R1974 

R1975 

R1976 

R1977 

R1978 

R 1979 
R1980 

R 1981 
R1982 
R1983 

R 198A 
R1985 
R1986 

R 1987 
R1988 

R 1989 
R1990 
R1991 
R1992 
R1993 
R1994 
R1995 
R1996 
R1997 
R1998 
R1999 
R2000 
R2001 
R2002 
R2003 
R2004 
R2005 
R2C06 
R2007 
R2008 
R2009 
R2010 

FLNCTICNAL  DESCRIPTICN. 

CODES  CALCULATES  AND  REQUESTS  ISSUANCE  CF  RR  GYRC  TCRQUE 

CCMMANDSo  INITIALLY  ThE  CURRENT  RR  COU  ANGLES  ARE  STORED  AND 

THE  LOS  HALF-UNIT  VECTOR  TRANSFCRMED  FROM  STABLE  MEMBER  TO 

NAVIGATION  BASE  COORDINATES  VIA  SMN6  IF  NECESSARY,  THE 

SHAFT  AND  TRUNNION  COMMANCS  ARE  TFEN  CALCULATED  AS  FOLLOWS. 

+ SHAFT  = LOS  0 (COS(S),  0,  -SIN  (SM  (OCT  PRODUCT) 

-TRUNNION  = LOS  o (SIN  (T)  SIN  (S),  COS  (T),  SIN  (T)  COS  (S)  1 

THE  SIGN  OF  THE  SHAFT  COMMAND  IS  THEN  REVERSED  IF  IN  MODE  2 
(PAOMOOES  BIT  12)  BECAUSE  A RELAY  IN  THE  RR  REVERSES  THE 

PCLARITY  OF  THE  COMMANOo  AT  RRSCALUP  EACH  COMMAND  IS 

SCALED  AND  IF  EITHER,  OR  BOTH,  CF  THE  COMMANDS  IS  GREATER  THAN 
o5  DEGREES,  MPAC  +1  IS  SET  POSITIVE*  IF  A CONTINUOUS  DESIGNATE 
(RAOMCOES  BIT  15)  IS  CESIREC  ANC  THE  SEARCH  ROUTINE  IS  NOT  OPERATING, 

THE  RR  AUTO  TRACKER  ENABLE  BIT  (CHAN  12  BIT  14)  IS  CLEARED  AND  RROUT 

CALLED  TO  PUT  OUT  THE  COMMANDS  PROVIDED  NO  REPOSITION  (RAOMCOES  BIT  11) 

IS  IN  PROGRESS*  IF  A CONTINUOUS  DESIGNATE  AND  THE  SEARCH  ROUTINE  IS 

OPERATING  (SRCHOPT  FLAG  SET)  THE  TRACK  ENABLE  IS  NCT  CLEARED*  IF  NO 

CONTINUOUS  DESIGNATE  AND  BOTH  COMMANDS  ARE  NOT  LESS  THAN  *5  DEGREES  AS 

INDICATED  BY  MPAC  +1,  THE  RR  AUTO  TRACKER  ENABLE  BIT  (CHAN  12  BIT  14)  IS 

CLEARED  ANC  RROUT  CALLED  TO  PUT  OUT  THE  COMMANDS  PROVIDED  NO  REPCSITICN 
(RAOMCOES  BIT  11)  IS  IN  PROGRESS*  IF  BOTH  COMMANDS  ARE  LESS  THAN  *5 

DEGREES  AS  INDICATED  BY  MPAC+1,  THE  RR  AUTO  TRACKER  ENABLE  BIT 
(CHAN  12  BIT  lAI  IS  CLEARED  AND  RROUT  CALLED  TO  PUT  OUT  THE 

CCMMANOS  PRCVICEC  NC  REPOSITICN  (RADMOCES  BIT  11)  IS  IN 

PROGRESS*  IF  BOTH  COMMANDS  ARE  LESS  THAN  *5  DEGREES,  THE 

LCCK-CN  FLAG  (STATE  BIT  5)  IS  CHECKED*  IF  NOT  PRESENT,  THE 

DESIGNATE  FLAG  (PADMOOES  BIT  10)  IS  CLEARED,  THE  RR  ERROR 

COUNTER  ENABLE  BIT  (CHAN  12  BIT  2)  IS  CLEARED,  AND  ENDOFJOB 

CALLED*  IF  LCCK-ON  IS  DESIRED,  THE  RR  AUTO  TRACKER  (CHAN  12 

BIT  lA)  IS  ENABLED  FOLLOWED  BY  A CHECK  CF  THE  RECEIPT  OF  THE 

RR  DATA  GOOD  (CHAN  33  BIT  A)  SIGNAL*  IF  RR  DATA  GOOD 

PRESENT,  THE  DESIGNATE  FLAG  (RACMCDES  BIT  10)  IS  CLEARED, 

THE  RR  ERROR  COUNTER  ENABLE  BIT  (CHAN  12  BIT  21  IS  CLEARED, 

ANC  ENOCFJOe  CALLED*  IF  RR  DATA  GOOD  IS  NOT  PRESENT,  RROUT 

IS  CALLED  TO  PLT  OUT  THE  CCMMANDS  PROVIDED  NO  REPOSITION 
(RAOMODES  BIT  11)  IS  IN  PROGRESS  AFTER  WHICH  THE  JOB  IS  TERMINATED 

VIA  ENDCFJCB* 

R2011 

R2012 

CALLING  SEQUENCE: 

EXECUTIVE  CALL  EVERY  ,5  SECONDS  FROM  BEGDES* 

R2013 

R2014 

R2015 

ERASABLE  I N I T I AL I Z AT  1 CN  RECUIPEC: 

RRTARGET  (HALF-UNIT  LOS  VECTOR  IN  EITHER  SM  OR  NB  COORDINATES), 

LOKCNSW  (STATE  BIT  5),  RRNBSW  (STATE  BIT  6),  RAOMODES 

R2016 

R2017 

SLBROLTINES  CALLED 

REACCCUS,  SMNB,  CDOLOGIC,  MAGSUB,  RROUT 

gap: 

L 

R2018 

R2019 

R2020 

R2021 

2022 

2023 

202^ 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

20  34 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 
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JOBS  OR  TASKS  INITIATED. 

NONE 

ALARMS.  NCNE 

EXIT.  ENOOFJOB  lALltAYSI 


25,2646’  0 0006  1 DOCES  EXTEND 

REF  8 LAST  538  25  ,2647  3 0036  1 CCA  CDUT 

REF  11  LAST  547  25,2650  53'107  1 OXCH  TAhG 


REF  47  LAST  547  25,2651  0 6042  1 TC  INTPRET 


REF 

REF 

REF 

REF 

PEF. 

REF 

REF 

REF 


6 

3 

1 

1 

2 


1 

3 

3 


LAST 

LAST 

LAST 

LAST 

LAST 


25,2653 
547  25,2654 

25,2655 
547  25,2656 

25  ,2657 

25.2660 

25.2661 
113  25,2662 

25,2663 
25  ,2664 
25,2665 
543  25,2666 

25,2667 
543  25,2670 


77201 

OOOCl 

CHOI 

74214 

00311 

52671 

01767 

63372 

G1761 

53361 

13101 

45056 

47541 

77624 

47673 


1 

0 

0 

0 

1 

0 

0 

1 

0 

0 

0 

0 

1 

1 

0 


SETPD  VLCAC 
0 

RRTAR6ET 
BCN  VXSC 

RRNBSR 

DONBRD  TARGET  IN  NAV-BASF  COORDINATFS 

MLCSV  MUITIPLY  UNIT  LOS  BY  MAGNITUDE 

VSH  POVL 

LCSVEL 

VXSC  VAD  ACC  ONE  SECCNO  RELATIVE  VELOCITY  TO  LOS 

MCTOMS 
UMT  CALL 

CDUTR  IG 

CALL 

*SVNB* 


25,2671 

REF  12  LAST  552  25,2672 

25,2673 

REF  11  LAST  376  25,2674 

25.2675 

25.2676 
25  ,2677 
25, 27CQ 
25,2701 
25,27C2 

25.2703 

25.2704 

REF  13  LAST  552  25', 2705 


14041  1 DONBRD  STOOL 
OHIO  0 

41434  1 RTB 

21577  1 

65356  I SIN 

41546  C CnS 

65205  0 DMP 

C0041  1 
00045  0 

44205  0 DMP 

OCCOl  0 

77626  0 STAOR 

76667  1 STORF 


32D 

TANG  +J 
PUSH 

COULOGIC 
POOL 
PUSH 
POOL 
32D 
3 60 
BDSU 
0 


TANG  +’ 


SHAFT  COMMAND  = V (32 D ) o ( COS (S ) , 0, 
(-SIN( SJ 

SIN(S)  TO  0 AND  CnS(S)  TO  2o 


SHAFT  COMMAND 


25,2706 

REF  14  LAST  552  25  ,2707 
REF  12  LAST  552  25,2710 

25.2711 

25.2712 

25. 2713 

25.2714 


47135  0 SLOAD 

01107  0 
21577  1 

71406  0 PUSH 

73525  1 POCL 

41206  0 PISH 

00003  1 


RTB 

TANG 

CDULCGIC 

COS  COS(T)  TO 

SIN 

DMP  SIN(T)  TO 

2 
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L 


P20-P25 


USER  'S  PAGE  NOo  58  E7  S3 


2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 


25f2715  65352  0 

25  ,2716  00005  1 

25,2717  A1325  0 

25.2720  00C07  0 

25.2721  00001  0 

25.2722  55552  C 

25.2723  77441  0 

25.2724  00041  1 


SLl  POOL 

4 

PDCL  DMP 

6 
0 

SLl  VDEF 

DOT  EXIT 

320 


EEFINE  VECTOR  U 


= (SIMTISINIS  ) I 
(COS(T>  ) 

tSINITKOSISJ  ) 


DOT  U WITH  LOS  TO  GET  TRUNNION  COMMAND*. 


GAP: 

L 

P206‘5 

R2071 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2060 

2081 

2082 

2083 

2086 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 
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P20-P25  USER'S  PAGF  NO®  59  E7  S3 

AT  THIS  POINT  WE  HAVE  A ROTATION  VECTOR  IN  DISH  AXES  LYING  IN  THE  TS  PLANEo  CONVERT  THIS  TO  A 
CCMMANDED  RATE  ANC  ENABLE  THE  TRACKER  IF  WE  ARE  WITHIN  e5  DEGREES  OF  THE  TARGETo 


REF  242 

REF  1 
REF  3 
REF  75 
REF  22 


REF  15 

REF  16 

REF  2 
REF  1 
REF  48 


LAST  524 

LAST  539 
LAST  550 
LAST  512 

LAST  552 
LAST  554 
LAST  554 
LAST  552 


25.2725 

25.2726 
25  ,2727 

25.2730 

25.2731 

25.2732 

25. 2733 
25  ,2734 

25.2735 

25.2736 
25  ,2737 

25.2740 

25.2741 

25.2742 

25.2743 


4 0154  0 
C 0006  1 
7 3075  1 
55*354  0 
4 0110  0 
7 4740  1 

0 0QC6  1 

1 2737  1 

3 1107  0 
1 2740  1 

4 1107  1 
C 0006  1 
7 3075  1 
55*355  1 
f 6C42  1 


CS  MPAC 

EXTEND 

MP  PDESGAIN 

TS  TRUNNCMC 

CS  PADMODES 

MASK  B1T12 

EXTEND 
6ZF  +3 

CA  TANG  +1 

TCF  +2 

CS  TANG  +1 

EXTEND 

MP  RDESGAIN 

TS  SHAFTCMD 

TC  INTPRET 


COT  WAS  NEGATIVE  OF  DESIRED  ANGLE. 

SCALING  ON  INPUT  ANGLE  WAS  4 PADlANSo 
TRUNNION  COMMAND  FCP  RROUT 
A RELAY  IN  THE  RR  REVERSES  POLARITY  OF 
THE  SHAFT  COMMANDS  IN  MODE  2 SO  THAT  A 
POSITIVE  TORQUE  APPLIED  TO  THE  SHAFT 
GYRO  CAUSES  A POSITIVE  CHANGE  IN  THE 
SHAFT  ANGLEc  COMPENSATE  FOR  THIS  SWITCH 
BY  CHANGING  THE  POLARITY  OF  OUR  COMMAND^ 


SCALING  ON  INPUT  ANGLE  WAS  4 RAOIANSo 
SHAFT  COMMAND  FOR  RROUT 


REF  4 


REF  1 
REF  7 


LAST 


25.2744 

25.2745 

25.2746 
25  ,2747 

25.2750 

25.2751 

25.2752 

25.2753 

25.2754 
552  25,2755 

25,  2756 
25,2757 

25.2760 

25.2761 
552  25  ,2762 


41345  0 
C0003  1 
00005  1 
65352  0 
65276  1 
00001  0 
72405  0 
CQ005  I 
43066  0 
00311  1 
52761  0 
77624  1 
47675  0 
77441  0 
01101  0 


DLOAD  DMP 
2 
t- 

SLl  POOL 

UCCMP  POOL 
C 

DMP  SLl 

VOEF  BON 

PPNRSW 
+ 3 

CALL 

♦NBSM* 
DOT  EXIT 

RRTARGET 


COS  (S  u 
CQS(TI« 

Z COMPONENT  OF  URRo 
Y COMPONENT  = -SINIT 
SINISIb 

COS  (T  )b 

FORM  URR  IN  NB  AXESo 

BYPASS  NBSM  CONVERSION  IN  VFRB  41.) 


GET  URR  IN  SM  AXESo 

GET  COSINE  OF  ANGLE  BETWEEN  RR  AND  LOSo 


REF  1 
REF  243 
REF  244 
REF  115 

REF  68 
REF  245 


LAST  554 
LAST  554 
LAST  545 

LAST  541 
LAST  554 


25.2764 

25.2765 

25. 2766 
25  ,2767 

25.2770 

25.2771 
25  ,2772 


0 CC06  I 
4 3C77  0 
2C  155  1 
10  154  0 
3 4755  1 

1 2772  0 
3 4753  1 
54  155  1 


EXTEND 

DCS 

DAS 

CCS 

CA 

TCF 


COS1/20G 

MPAC 

MPAC 

ZERO 

+2 

ONE 

MPAC  +1 


DIFFERENCE  OF  COSINES,  SCALED  8-2o 
IF  COS  ERROR  BIGGER,  ERROR  IS  SMALLERo 

ZERO  IF  RR  IS  POINTED  OK,  ONE  IF  NOT. 
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P2111  SEE  IF  TRACKER  SFCULC  BE  ENA0LEC  OR  CISABLED* 


2112 

2113 

2114 

2115 

2116 
2117 
2116 

2119 

2120 
2121 


REF  76  LAST 

REF  1 

REF  2 LAST 

REF  1 

REF  246  LAST 

REF  1 

REF  38  LAST 

REF  1 

REF  192  LAST 

REF  1 


554 
55  5 
554 
543 
550 


25.2773 

25.2774 
25  ,2775 

25.2776 

25.2777 

25.3000 

25.3001 

25.3002 

25.3003 

25.3004 


10  110  0 
1 2777  0 
1 2777  0 
1 3C27  0 
10  155  1 
1 3010  1 
4 CC74  C 
7 4747  0 
10  000  0 
1 3015  1 


CCS 

TCF 

TCP 

TCF 

SIGNLCHK  CCS 
TCF 
CS 

MASK 

CCS 

TCF 


PACMODES 

SIGNLCHK 

SIGNLCHK 

OORROUT 

MPAC  +1 

OGCCOCHK 

STATE 

L0K0N8I T 

A 

RROESDLN 


2122 

2123 

2124 


REF  51  LAST 
REF  34  LAST 


517 

550 


25  ,3005  3 4736  1 
25,30C6  C 0006  I 
25,3007  05  012  1 


CAF  BIT14 

EXTEND 

WOR  CHAN12  — 


2125  REF  23  LAST  521 

2126 

2127  REF  11  LAST  521 

2128  REF  193  LAST  555 

2129  RfF  2 LAST  555 


25,3010  3 4750  1 CGCCDCFK  CAF 


25.3011  C 0006  1 EXTEND 

25.3012  02  033  0 RAND 

25.3013  10  OOO  0 CCS 

25.3014  1 3C27  0 TCF 


BIT4 

CHAN33 

A 

DCRRCUT 


2130  REF  28  LAST  4B0 

2131  REF  77  LAST  555 


25  ,3015  4 4742  0 RRCESCUN  CS 

25,3016  7 0110  0 MASK 


BITIO 

PAOMODES 


2132 


25,3017  C 0004  0 


INFINT 


2133 


PEF 


78  LAST  555 


25  ,3020  54  110  0 


TS  PAOMODES 


2134  REF  60  LAST  550 

2135  REF  7 LAST  547 

2136  REF  32  LAST  534 

2137 

2138  REF  35  LAST  555 

2139  REF  92  LAST  547 


25.3021  0 5516  C 

25.3022  00041  1 

25.3023  4 4752  1 

25.3024  C 0CC6  1 

25  ,3025  03  012  1 

25,3026  1 5155  1 


TC  DCHNFLAG 

AORES  LOSCMFLG 

CS  BIT2 

EXTEND 

WAND  CHAN12  - 

TCF  ENDCFJCe 


2140  REF  8 LAST  501 

2141  REF  1 

2142 

2143  REF  1 

2144  REF  49  LAST  554 

2145 

2146  REF  8 LAST  554 

2147  REF  2 LAST  552 

2148 

2149 

2150  REF  3 LAST  552 

2151  REF  2 LAST  552 

2152 

2153 

2154  REF  9 LAST  555 


25.3030 

25.3031 

25.3032 

25.3033 

25. 3034 
25  ,3035 

25.3036 

25.3037 

25.3040 

25.3041 

25.3042 

25.3043 

25.3044 
25  ,3045 


C 00C6  1 
1 3051  1 
0 6042  1 
74375  0 
01101  0 
01767  0 
<il572  1 
74375  0 
C1761  0 
13101  0 
53362  0 
77656  1 
15101  0 


OORROUT 


CA  FLAGWRD2 

MASK  BIT12t14 
EXTEND 

BZF  N0TP20 
TC  INTPRET 

VLCAD  VXSC 

RRTARGET 

MLOSV 

VSLl  PUSH 
VLOAD  VXSC 

LOSVEL 
MCTOMS 
VSRl  VAC 
UNIT 

STOOL  RRTARGET 
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IF  CONTINUOUS  DESIGNATE  WANTED,  PUT  OUT 
COMMANDS  WITHOUT  CHECKING  MAGNITUDE  OF 
ERROR  SIGNALS 

SEE  IF  BCTH  AXES  WERE  WITHIN  ,5  OEGS. 

IF  WITHIN  LIMITS  AND  NO  LOCK-ON  WANTED, 
PROBLEM  IS  FINISHED. 


ENABLE  THE  TRACKER. 


SFF  IF  DATA  GOOD  RECEIVED  YET 


WHFN  PROBLEM  DONE,  REMOVE  BIT  10  SO  NEXT 
WAITLIST  TASK  WE  WILL  GO  TO  RGOCOENO. 


RESFT  LOSCMFLG  TO  PREVENT  A 
RFCOMPUTATION  OF  LCS  AFTER  DATA  GOOD 
TURN  OFF  ENABLE  RR  ERROR  COIMTEP 


WITH  ECTR  OISABLFDo 


IF  BOTH  LOSCMFLAG  AND  SEARCH  FLAG  ARE 
ZERO,  BYPASS  VELOCITY  ADJUSTMENT  TO  LOS 


MULTIPLY  UNIT  LOS  EY  MAGNITUDE 


ADD  o5  SEC.  OF  VELOCITY 
TO  LOS  VECTOR 


STORE  VELOCITY-CORRECTED  LOS  (UNIT> 


GAP:  ASSEf^BLE  REVISION  131  OF  AGO  PRCCRAP  LUMINARY  8Y  NASA  2021112-091 
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2155 

2156  REF 

2157 
2150 

2159  REF 

2160  REF 

2161  REF 

2162  REF 


3 LAST 


79  LAST 
5 LAST 
194  LAST 
2 LAST 


555 


555 

550 

555 

538 


25f 3C46 
25  i3047 

25.3050 

25.3051 

25.3052 

25.3053 

25.3054 

25.3055 


0C045 
01767 
77776 
C 0004 
4 0110  0 
7 4741  0 
10  000  0 
C 2317  0 


N0TP20 


0 

0 

1 

0 


360 

STORE  MLOSV 

EXIT 

INhlNT 

CS  PAOMODES 

MASK  REPOSBIT 

CCS  A 

TC  RROUT 


AND  STORE  MAGNITUDE 


PUT  OUT  COMMAND  UNLESS  MONITOR 
REPOSITION  HAS  TAKEN  OVER= 


2163 

2164 

2165 

2166 

2167 

2168 

2170 

2171 

2172 

2173 

2174 

2175 

2176 


REF  9 
REF  1 

REF  93 
REF  25 
REF  1 
REF  5 
REF  2 


REF  4 
REF  3 
REF  148 
REF  1 


LAST  555 


LAST  555 
LAST  550 

LAST  520 
LAST  550 

LAST  380 
LAST  380 
LAST  524 


25,3056 
25  ,3057 

25.3060 

25.3061 

25.3062 

25.3063 

25.3064 

25.3065 

25.3066 

25.3067 

25.3070 

25.3071 
25  ,3072 


2 0076  0 
7 4740  I 

0 0C06  1 

1 5155  1 
11'456  0 
0 3C73  0 
0 6032  0 

52613  1 
C 0003  1 
10  067  1 
0 5122  0 
0 4616  1 
50732  1 


CA  FLAGHR02 

MASK  LOSCMBIT 

FXTEND 

BZF  ENDOFJOB 

CCS  LOSCOUNT 

TC  DODESENO 

TC  KILLTASK 

CACR  DESLOOP 

RELINT 

CCS  NEWJOB 

TC  CHANGl 

TC  8ANKCALL 

CACR  R21LEM2 


IF  LOSCMFLG  NOT  Sf  T , DON'T  TEST 
LCS  COUNTER 

TEST  LOS  COUNTER  TO  SEE  IF  TIME  TO  GET 
A NEW  LOS 

YES  - KILL  TASK  WHICH  SCHEDULES  OCDES 


2177  REF  26  LAST  556 

2178  REF  94  LAST  556 


25.3073  5f'456  0 DODESENO  TS 

25.3074  0 5155  0 TC 


LOSCCUNT 

ENDOFJOB 


2179 

21795  REF 

2180 
2180 
2181 
2181 


25,3075  21122  0 RDESGAIN  DEC 

7715  BIT12,14  EQUALS 

25  ,3076  07777  1 C0S1/2CG  20EC 

25,3077  33005  1 

25.3100  00210  0 MCTOMS  2DEC 

25.3101  OCOOO  1 


*53624 
PRl 024 

*999961923  0-2 
100  B-13 


TRIGS  TO  NULL  o5  ERROR  IN  *5  SECc 
OCT  24000 

COSINE  OF  0*5  DEGREES* 
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P2182 

R2ie3 


P20-P25 

RADAR  READ  INITIALIZATION 

RADAR  DATA  ARE  READ  BY  A BANKCALL  FOR  THE  APPROPRIATE  LEAD-IN  BELCWo 


USER'S  PAGE  NCo  62  E7  S3 


25.3102  0 3122  0 LRALT  TC 

25.3103  00017  1 ALLREAC  OCT 


ONE  SAMPLE  PER  READING* 


LAST  557 


25,3104  0 2123  1 LRVEL2 


LAST  557 


LAST  557 


2192  REF  5 LAST  557  25,3112  0 3122  0 RRRDOT  TC  INITREAD  -1 

2193  25,3113  C0012  1 OCT  12 


2194  REF  6 LAST  557  25,3114  0 3122  0 RRRANGE  TC  INITREAD  -1 

2195  25,3115  00011  1 OCT  11 


R2196  LRVEL  IS  THE  ENTRY  TO  THE  LR  VELOCITY  READ  ROUTINE  ^<HEN  5 SAMPLES  ARF 

R2197  WANTED*  ENTER  WITH  C(A)=  0,2,4  FCR  L RV  EL  Z , LR  VEL  Y , LR  VEL  X RESP« 


STORE  VBEAM  INDEX  HERE  MOMENTARILY 
SPECIFY  FIVE  SAMPLES 


2198 

2199 

2200 
2201 


REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 


511 

557 

495 


25.3116 

25. 3117 

25.3120 

25.3121 


55' 104 
3 4756 
51'104 
1 3104 


TS  TIMEHOLD 

CAF  FIVE 
INDEX  TIMEHOLD 
TCF  LRVELZ 


GAP;  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211J2-091 
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2202  REF  69  LAST  55A 

2203 


25i3122  3 4753  1 -1  CAF  ONE 

25,3123  C 0CC4  0 INITREAO  INHINT 


2204 

2205 

2206 
2207 


REF  3 

REF  25 
REF  4 


LAST  557 

LAST  493 
LAST  558 


25.3124 

25.3125 

25.3126 
25  ,3127 


55'104  I 
C 0006  1 
7 4751  1 
53*105  0 


TS  TIMEHOLD 

EXTEND 
MP  61 T3 

DXCH  TIMEHOLD 


2208 

2209 

2210 
R22J] 
A2212 

2213 


REF  195 
REF  1 
REF  70 


LAST  556  25,312C  10  COC  0 CCS  A 

25,3131  55*110  1 TS  NSAMP 

LAST  558  25  ,3132  '6  4753  I AC  ONE 

INSERT  FOLLOWING  INSTRUCTION  TO  GET  2N  TRIES  FOR  N SAMPLESo 

DOUBLE 


LAST  224  25,3133  55*077  1 


TS 


SAMPL IM 


2214  REF  1 

2215 

2216  RFF  12  LAST 

2217  REF  1 


555 


25, 3134  3 3156  0 

25  ,3135  0 0006  I 

25.3136  02  033  0 

25.3137  55*112  0 


CAF  DG6ITS 

EXTEND 

RAND  CHAN33 
TS  OLDATAGD 


2218  REF  I 

2219 

2220  REF  8 LAST  474 


25  ,3140  4 3103  1 

25.3141  C 0006  1 

25.3142  03  013  0 


CS  ALLREAD 

EXTEND 

WAND  CHAN13 


2221  REF  165  LAST  548 

2222 

2223  KEF  22  LAST  523 

2224  REF  1 


25.3143  50  002  0 

25.3144  3 0000  1 

25.3145  0 4674  0 

25.3146  3600C  I 


INDEX  Q 
CAF  0 

TC  IBNKCALL 

CADR  PADSTART 


2225 

2226  REF  14  LAST  466 

2227  REF  5 LAST  558 


25,3147  0 00C6  1 

25  ,3150  3 0025  0 

25,3151  21 *105  0 


EXTEND 

DCA  TIME2 
DAS  TIMEHOLD 


2228 

2229 

2230 

2231 


REF  116 
REF  77 
REF  3 
REF  2 


LAST 

LAST 

LAST 


554  25  ,3152  3 4755  1 

540  25,3153  54  OCl  1 

494  25,3154  52*101  1 

541  25,3155  1 2377  1 


CAF  ZERO 
TS  L 

DXCH  SAMPLSUM 
TCP  ROAOBACK 


2232 


25,3156 


00230  0 DGBITS  OCT 


230 
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USER’S  PAGE  NC*  63  E7  S3 

ENTRY  TO  TAKE  ONLY  1 SAMPLE* 


GET  DT  OF  MIDPOINT  OF  NOMINAL  SAMPLING 
INTERVAL  (ASSUMES  NO  BAD  SAMPLES  WILL  BE 
ENCCUNTEREO  )<, 


READ  CURRENT  VALUE  CF  DATA  GOOD  BITS# 


REMC1VE  ALL  RADAR  BITS 


TIME  OF  NOMINAL  MIDPOINT, 


GAP:  ASSEMBLE  REVISION  l3l  OF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 
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P2233  RADAR  RLPT  READER 

R2234  THIS  ROUTINE  STARTS  FROM  A RACARUPT*  IT  READS  THE  DATA  $ LOTS  MORE* 

2235  REF  2 LAST  41  25,2000  SETLOC  RAOARUPT 

2236  25,3157  BANK 


2237 


REF 


2238 

2239  REF 

2240  REF 

2241 

2242  REF 


LAST 

LAST 


460 

255 


LAST  255 


41: 

25,3157 

25.3160 

25.3161 

25.3162 

25.3163 


C 0006  1 
C4  007  1 
54  016  1 
C 0006  1 
22  012  1 


tS/RRUPT 

SUPERBNK 

BANKRUPT 

ORUPT 


22421 

22422  REF  16  LAST  318 

22423  REF  2 LAST  318 


25  ,3164  0 0006  1 

25.3165  3 1454  0 

25.3166  53'272  0 


EXTEND 

OCA  TTOGO 
DXCH  TTOTIG 


2243  REF 

2244 

2245  REF 

2246  REF 

2247 

2248  REF 

2249  REF 

2250  REF 

2251  REF 

2252  REF 

2253  REF 

2254  REF 

2255  REF 

2256 

2257  REF 


8 LAST  507 

9 LAST  558 

2 LAST  107 

1 

1 

3 LAST  559 
5 LAST  318 
3 LAST  558 
1 

1 

23  LAST  547 
16  LAST  261 


25 ,3167 

25.3170 

25.3171 

25.3172 

25. 3173 
2 5 ,3174 

25.3175 

25.3176 
25  ,3177 

25.3200 

25.3201 

25.3202 

25.3203 

25.3204 

25.3205 


3 4757  0 
C 0006  1 

02  013  1 
55'332  0 
C C006  1 
1 3200  1 

3 0046  0 
51*332  1 
55*327  1 
11 *077  1 
1 3223  0 
1 3206  1 
0 5567  0 

00520  0 
0 5270  1 


CAF 

EXTEND 

RAND 

TS 

EXTEND 

8ZF 

CA 

INDEX 

TS 

TRYCOUNT  CCS 
TCF 
TCF 
TC 
OCT 
TC 


SEVEN 

CHAN13 

DNINCEX 

TRYCOUNT 

RNRAD 

DNINDEX 

ONRRANGE  -1 

SAFPLI P 

PLENTY 

NOMORE 

ALARM 

520 

RESUME 


2258  REF  4 LAST  282 

2259  REF  4 LAST  282 

2260 

2261  REF  I 


25.3206  3 0107  1 NGMCRE  CA  FLGHRDll 

25.3207  7 4735  0 MASK  LR6YRIT 

25.3210  C 0006  1 EXTEND 

25.3211  1 3220  0 6ZF  BADRAD 


2262 

2263 

2264 

2265 


LAST  559 


25.3212  4 0077  0 

25.3213  7 4743  1 

25.3214  0 0006  1 

25.3215  1 3220  0 


CS  FLAGWRD3 
MASK  R04FLBIT 
EXTEND 

BZF  BACRAC 


2266 

2267 

2268 

2269 

2270 

2271 


REF  24  LAST  559 

REF  71  LAST  558 
REF  4 LAST  559 
REF  2 LAST  550 
REF  5 LAST  559 


25.3216  0 5567  0 

25.3217  00521  1 

25.3220  4 4753  C BADRAD 

25.3221  55*077  I 

25.3222  0 3563  1 

25.3223  55*077  1 PLENTY 


TC 

OCT 

CS 

TS 

TC 

TS 


ALARM 

521 

ONE 

SAMPLIM 
RC8A0ENC  -2 
SAMPLIM 


17:53  OECo  10,1969  LEMP20S  o]45  PAGE  559 


USER'S  PAGE  NCo  64  E7  S3 


MUST  SAVE  S8ANK  BECAUSE  OF  RUPT  EXITS 
VIA  TASKOVER  IBADENO  OP  GCCDENO* 


LOAD  TIME  TO  T IG 

FOR  R65  RADAR  READING* 


IF  RADAR  SELECT  BITS  ZERO, DO  NOT  STORE 
DATA  FOR  DOWNLIST  (ERASABLE  PROBLEMS) 


IS  LRBYPASS  SET? 


NO*  R12  IS  ON  — BYPASS  521  ALARM* 
CHECK  R04FLAG* 

IF  1,R04  IS  RUNNING*  OC  NOT  ALAPM- 


P20  WANTS  THE  ALARM, 


gap:  assemble  REVISION  131  OF  AGC  PRCGBAM  LUMINARY  8Y  NASA  2021)12-091 


2272 

2273 

2274 

2275 

2276 


P20-P25 
REF  26 
REF  10 
REF  1 


LAST 

LAST 


25.3224 

25. 3225 

25.3226 

25.3227 
25, 323C 


3 4751  0 
C 0006  1 
C2  013  1 
0 0006  1 
1 3277  1 


CAF  BIT3 

EXTEND 

RAND  CHAN13 
EXTEND 

BZF  PENDRAD 


2277 

2287 

2288 

2289 

2290 

2291 

2292 


1 


25  ,3231 

25.3232 

25.3233 
25  ,3234 

25. 3235 

25.3236 

25.3237 


0 3365  1 
3 6250  0 
0 0006  1 

06  013  0 

7 6250  1 
0 0006  1 

1 3273  0 


TC 

CAF 

EXTEND 

RXOR 

MASK 

EXTEND 

BZF 


CHAN13 
BI  N3 


2295 

2296 

2297 

2298 

2299 

2300 


REF  1 
REF  78 
REF  3 


25.3240 

25.3241 

25.3242 

25.3243 

25.3244 

25.3245 

25.3246 

25.3247 


3 4733  I 
7 0046  1 
6 2000  0 
54  001  1 
30  046  0 

6 COCO  1 

7 4753  0 
52  064  1 


AO 
TS 
CAE 

DOUBLE 

MASK 

DXCH 


POSMAX 

RNRAD 

LVELBUS 


2301 

2302 
A2303 


CAF 


2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 

LAST 


559 

559 
548 
556 

560 


25.3252 

25.3253 
25,  3254 

25.3255 

25.3256 

25.3257 

25.3260 

25.3261 

25.3262 


11'  no  1 

C 32  63  0 
4 4753  0 
55*077  1 
4 0061  1 
7 0110  0 
54  110  0 
0 3612  1 
0 3556  1 


CCS 

TC 

cs 


TC 


NSAMP 

NOEND 

ONE 

SAMPLIM 

IT  EMPl 

PADMODES 

PADMOOES 

RACLITES 

RGOODEND 


2313 

2314 

2315 

2316 

2317 

2318 

2319 


REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 


555 

558 

558 


25.3263 

25.3264 

25.3265 

25.3266 

25.3267 
25  ,3270 
25,3271 


55*110  1 
ll'C77  1 
1 3267  0 
1 3444  1 
3 4750  1 
0 4674  0 
260CC  1 


NCENO  TS 
RESAMPLE  CCS 
TCF 
TCP 
CAF 
TC 
CADR 


OATAFAIL 
BI  T4 
I6NKCALL 


REF  17  LAST  559  25,3272  0 5270  1 


LRhEIGFT  CAF 


17:53  DECo  19,1969  LEMPpCS  <.148  PAGE  560 
USER'S  PAGE  NCo  6f  E7  S3 

TO  FIND  OUT  WHICH  RADAR 

R77  QUITS  HEPEo 
= 00003  OCT 

RESET  ACTIVITY  BIT 

TAKE  A LR  RANGE  READING 


DATA  GOOD  ISNT  CHECKED  UNTIL  AFTER  READ- 
ING DATA  SO  SOME  PADAR  T^STS  WILL  WORK 
INCEPENOENT  OF  DATA  GOOOo 


WHEN  ENOUGH  GOOD  DATA  HAS  BEEN  GATHERED, 
RESET  DATA  FAIL  FLAGS  FOR  SETTRKF-, 

LAMPS  MAY  GO  OFF  IF  DATA  JUST  GOOOe 


SEE  IF  ANY  MORE  TRIES  SHOULD  PE  MAOEo 

N SAMPLES  NOT  AVAILABLE^ 

RESET  ACTIVITY  BIT« 


(POSITION  OF  DATA  GOOD  BIT  IN  CHAN  331 


gap: 

L 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DEC*  19»1969  LEMP20S  ol45  PAGE  561 


P20-P25 


USER'S  PAGE  NCo  66  £7  S3 


REF  18  LAST  333  25.3275  2 4743  0 
REF  1 25,3276  0 3321  1 


CAF  BIT9 

TC  SCALECHK  -1 


REF  6 LAST  556 
REF  82  LAST  560 
REF  196  LAST  558 
REF  3 LAST  559 


25  ,3277  3 4741  1 

25.3300  7 Clio  0 

25.3301  10  000  0 

25.3302  1 3220  0 


RENORAC 


CAF  REP0S8IT 
MASK  RACMCDES 
CCS  A 
TCF  BAORAD 


MAKE  SURE  ANTENNA  HAS  NOT  GONF  OUT  OF 
LIMITS* 


REF  83 
REF  5 
REF  197 
REF  4 


LAST  561 
LAST  474 
LAST  561 
LAST  561 


25, 33C3 

25.3304 

25.3305 

25.3306 


4 0110  0 
7 4745  1 
1C  000  0 
I 3220  0 


CS  RAOMODES  BE  SURE  RR  COU  FASNT  FAILED* 

MASK  RCDUFBIT 

CCS  A 

TCF  BAORAD 


REF  25  LAST  560 
REF  21  LAST  560 


25  ,3307  3 4750  1 

25,3310  54  061  1 


CAF  BIT^  SEE  IF  DATA  HAS  BEEN  GOOOe 

TS  ITEMPl  (POSITION  OF  DATA  GOOD  BIT  IN  CHAN  331 


REF  29 

REF  12 
REF  166 
REF  198 

REF  1 
REF  27 
REF  79 


LAST  560 

LAST  560 
LAST  558 
LAST  561 


LAST  560 
LAST  560 


25.3312 

25. 3313 

25.3314 

25.3315 

25.3316 
25  ,3317 

25.3320 

25.3321 


3 4753  1 
C C006  1 

02  013  1 
54  002  1 
10  000  0 
1 3320  1 
1 3332  I 

3 4751  0 
54  001  1 


CAF  BITl 

EXTEND 

RAND  CHAN13 
TS  Q 

CCS  A 

TCF  +2 

TCF  RADIN 
CAF  BIT3 

TS  L 


SEE  IF  RR  ROOT* 


FOR  LATER  TESTING* 


NO  SCALE  CHECK  FOR  RR  POGT* 


REF  13  LAST 
REF  80  LAST 
REF  84  LAST 

REF  12  LAST 
REF  199  LAST 
REF  1 


558 

561 

561 

536 

561 


25.3322 

25. 3323 

25.3324 

25.3325 

25. 3326 

25.3327 

25.3330 

25.3331 


C 0006  1 
02  C33  0 
56  001  0 
7 0110  0 
C 0006  1 
06  001  0 
10  000  0 
0 3351  0 


SCALECHK  EXTEND 
RAND 
XCH 
MASK 
E XTEND 
RXOR 
CCS 
TC 


CHAN33 

L 

PACMOCES 

LCHAN 

A 

SCALCHNG 


SCALE  STATUS  NOW 
SCALE  STATUS  BEFORE 
SEE  IF  THEY  DIFFER 
THEY  DIFFER 


REF  13  LAST 
REF  4 LAST 
REF  5 LAST 


560  25,3332 
560  25,3333 
259  25,3334 


3 4733  1 RACIN 
7 QC46  1 
54  064  1 


CAF  POSMAX 

MASK  RNRAD 
TS  ITEMP4 


REF  5 LAST  561 

REF  30  LAST  561 
REF  8 LAST  560 


25.3335  30  046  0 

25.3336  6 COOO  1 

25.3337  7 4753  0 

25,3340  54  063  0 


CAE  RNRAD 

DOUBLE 
MASK  BITl 
TS  ITEMP3 


REF  167 
REF  1 


LAST  561 


25,3341 
25  ,3342 


10  002  1 
1 3403  1 


CCS  0 SEE  IF  RR  ROOT. 

TCF  SCALADJ  NO,  BUT  SCALE  CHANGING  MAY  BE  NEEDED- 


REF 

REF 


1 

9 LAST  561 


25. 3343  C 0006  1 EXTEND 

25.3344  4 2002  0 OCS  RDOTBIAS 

25.3345  20  064  1 DASAMPL  OAS  ITEMP3 


IF  PR  RANGE  RATE,  THROW  OUT  BIAS* 


GAP  : 

L 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

R2379 

2380 

2381 

2362 

2383 

2384 

2385 

2386 

2387 

2386 

2389 

2390 

2391 

2392 

2393 


■SSEMBLE  REVISION  131  OF  AGC  PRCGRAP  LUMINARY  8Y  NASA  2021112-091 


LEMP20S  145  PAGE  562 


17: 53  DEC«  19, 1969 


P2n-P25 


USER'S  PAGf  NOo  67  67  S3 


REF  22  LAST  561 
REF  2 LAST  560 
REF  1 


25.3346  3 0061  0 CGCHECK2  CA 

25.3347  0 3426  1 TC 

25,3350  C 3254  1 TC 


ITEMPl 
DGCHECK  +1 
GCCDRAD 


SEE  THAT  DATA  HAS  BEEN  GOOD  BEFORE  AND 
AFTER  TAK  ING  SAMPLEc 


REF  85  LAST  561 
REF  31  LAST  561 

REF  13  LAST  561 
REF  06  LAST  562 
REF  2 LAST  558 

REF  14  LAST  561 
REF  2 LAST  558 
REF  34  last  523 
REF  1 

PEF  5 LAST  561 


25,3351  22  110  1 SCALCHNG  LXCh 


25.3352  6 4753  1 AD 

25.3353  C 0006  1 EXTEND 

25.3354  C6  001  0 RXOR 

25.3355  54  110  0 TS 

25', 3356  3 3156  0 CAF 

25,3357  C 0006  1 EXTEND 

25.3360  02  033  0 RAND 

25.3361  55'112  0 TS 

25.3362  C 5504  0 TC 

25.3363  00120  1 ACRES 

25.3364  1 3220  0 TCF 


RADMOCES 

BIT! 

LCHAN 

RAOMODES 

OGBITS 

CHAN33 

OLOATAGD 

UPFLAG 

RNGSCFLG 

BACRAO 


UPDATE  LAST  VALUE  CF  DATA  GOOD  BITS© 


SET  RNGSCFLG 
FCR  LRS24<,1 


R77  MUST  IGNORE  DATA  FAILS  SC  AS  NOT  TO  DISTURB  THE  ASTRONAUT, 


REF  16  LAST  494 
REF  4 LAST  494 
REF  200  LAST  561 
REF  168  LAST  561 
REF  1 

REF  87  LAST  562 
REF  81  LAST  561 
REF  2 LAST  562 

REF  15  LAST  562 
REF  82  LAST  562 
REF  88  LAST  562 
REF  3 LAST  560 


25.3366 

25. 3367 

25.3370 

25.3371 

25.3372 

25.3373 

25. 3374 

25.3375 

25.3376 

25.3377 

25.3400 

25.3401 

25.3402 


4 0101  0 
7 4741  0 
10  000  0 
0 0002  0 
4 3402  C 
7 0110  0 
54  OCl  1 
3 3402  1 
C 0006  1 
02  033  0 
6 0001  0 
54  no  0 

0 3556  I 
00220  1 


R77CHECK 


CS  FLAGWRD5 

MASK  P77FLBIT 

CCS  A 

TC  Q 

CS  BITS5,e 

MASK  PAOMODES 

TS  L 

CA  BI  TS5  ,8 

EXTEND 

RAND  CHAN3? 

AO  L 

TS  RAOMODES 

TC  RGGCDENC  -2 

OCT  220 


NOT  R77 

UPDATE  LP  DATA  GOOC  BITS  IN  RAOMODES 


GAP  ; 

L 

P2394 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2422 

2423 

2424 

2425 

2426 

2426 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

24A2 

2443 

2444 

2445 

2446 

2^47 

2448 


ASSEf'BLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19,1969  LEMP20S  <.145  PAGE  563 


P20-P25  USER'S  PAGE  NOr  68  E7  S3 

THE  FOLLOWING  ROUTIN.E  INCORPORATES  RR  RANGE  AND  LP  ALT  SCALE  INFORMATION  AND  LEAVES  DATA  AT  LO  SCALE. 


REF  83  LAST  562 
PEF  I 


25,3403  10  001 

25,34CA  1 3406 

25,3405  1 3346 


1 SCALAOJ  CCS 
1 TCF 

1 TCF 


+2 

DGCHECK2 


L HAS  SCALE  INBIT  FOR  THIS  RADARr 
ON  HIGH  SCALE* 


REF  4 
REF  28 
REF  201 
REF  1 


LAST  559 
LAST  561 
LAST  562 


25.3406 

25.3407 
25  ,3410 
25,3411 


3 1332  1 
7 4751  1 
10  000  0 
1 3420  0 


CA  DNINDEX 

MASK  BIT3 

CCS  A 

TCF  LRSCK 


REF  10  LAST  561 


REF  11  LAST  563 


25.3412 

25.3413 

25.3414 

25.3415 

25.3416 


52  064  1 
20  001  1 
2C  001  1 
20  001  1 
52  064  1 


DXCH 

DOOUBL 

DDOUBL 

ODOUBL 

OXCH 


I TFMP3 

ITEMP3 


PEF 


LAST  563  25,3417  1 3346 


TCF  0GCHECK2 


REF  12  LAST 

REF  1 


563 


25  ,3420  C 0006  1 

25.3421  3 0064  0 

25.3422  20  001  1 

25 .3423  20  001  1 

25.3424  1 3345  1 


LRSCK 


EXTEND 

OCA 

DOOUBL 

DDOUBL 

TCF 


ITEMP3 

DASAMPL 


REF  23  LAST  562 


PEF  16 
REF  84 
REF  24 
REF  3 
REF  85 
REF  4 
REF  25 
REF  86 
REF  202 
REF  1 
REF  13 
REF  4 
REF  169 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


562 

563 
563 

562 

563 
563 
563 
563 
563 

563 

558 

562 


25.3425 

25.3426 

25.3427 

25.3430 

25.3431 

25.3432 

25.3433 

25.3434 

25.3435 

25.3436 

25.3437 
25  ,3440 

25.3441 

25.3442 

25.3443 


54  061  1 
0 0006  1 
02  033  0 
54  001  1 
4 0061  1 
7 1112  0 
6 0001  0 
57'112  1 
7 0061  1 
6 0001  0 
10  000  0 
0 3264  1 
52  064  1 
21'101  1 
0 0002  0 


TS  ITEMPl 

EXTEND 

RAND  CHAN33 
TS  L 

CS  ITEMPl 

MASK  OLDATAGD 

AD  L 

XCH  PLOATAGD 

MASK  ITEMPl 
AO  L 

CCS  A 

TC  RESAMPLE 

OXCH  ITEMP3 
DAS  SAMPLSUM 

TC  0 


UPDATE  DATA  GOOD  BIT  IN  OLDATAGD  AND 
MAKE  SURF  IT  WAS  ON  BEFORE  AND  AFTER  THE 
SAMPLE  WAS  TAKEN  BEFCRE  RETURNING*  IF 
NOT,  GOES  TO  RESAMPLE  TC  TRY  AGAIN*  IF 
MAX  NUMBER  OF  TRIES  HAS  BEEN  REACHED, 

THE  BIT  CORRESPONDING  TO  THE  DATA  GOOD 
WHICH  FAILED  TO  APPEAR  IS  IN  ITEMPl  AND 
CAN  BE  USED  TO  SET  RAOMOOES  WHICH  VIA 
SETTPKF  SETS  THE  TRACKER  FAIL  LAMP* 

SHOULD  BOTH  BE  ZFPCc 

IF  DATA  GOOD  BEFORE  AND  AFTER,  ADD  TO 
ACCUMULATIONt. 


REF  26  LAST  563 
REF  89  LAST  562 
REF  27  LAST  563 
REF  90  LAST  563 


25.3444 

25.3445 

25.3446 

25. 3447 


4 0061  1 
7 0110  0 
6 C061  0 
54  110  0 


DATAFAI L 


CS  ITEMPl  IN  THE  ABOVE  CASE,  SET  RADMODES  BIT 

MASK  RADMODES  SHOWING  SOME  RADAR  DATA  FAILED* 

AD  ITEMPl 

TS  PAOMCOES 


14 

5 


25.3450  52  064  1 

25.3451  53'101  1 


OXCH  ITEMP3  IF  WE  HAVE  BFEN  UNABLE  TC  GATHER  N 

DXCH  SAMPLSUM  SAMPLES,  USE  LAST  CNE  ONLY* 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
P20-P25 


17:53  DECo  19,1969  LEHP20S  1*5  PAGE  564 
USER'S  PAGE  NC«  69  E7  S3 


GAP 


ASSEMBLE  REVISION  131  CF  AGC  PRCCPAM  LUMINARY  BY  NASA  2021112-091 


17;53  DECo  19,1969  LEPP20S  elAS  PAGE  565 


L P20-P25  USFR*S  PAGE  NOc  70  £7  S3 

P2451  CODING  TO  PROTECT  CHANNEL  13  WILL  RAOAR  READ  IS  IN  CRITICAL  PERIOD 


2453  REF  1 

2454 


17,2000 
17, 20C0 


SETLDC  C13BANK 
BANK 


2455  REF  170  LAST 

2456 

2457  REF  4 LAST 

2458  REF  87  LAST 


563  17,2000  54  002  1 

17,2001  0 0006  1 

383  n,20C2  CO  004  0 

563  17,2003  54  001  1 


RACSTART  TS  0 

+1  EXTEND 

READ  LOSCALAR 
TS  L 


READ  PRESENT  T IRE 


2459 

2460 

2461 

2462 

2463 


REF  8 

REF  39 
REF  9 
REF  1 


LAST  448 

LAST  495 
LAST  565 


17.2004 

17.2005 

17.2006 

17.2007 
17,2010 


7 4346  0 
4 0000  0 

6 4746  0 

7 4346  0 
55*270  1 


MASK  L0W5 
COM 

AD  BIT6 

MASK  LOWS 
TS  PADDEL 


ONLY  THE  LOW  5 BITS  MATTER 
COMPUTE  DELTA  TIME  TO  NEXT  T5  TICK 


2464  REF 

2465 

2466  REF 


LAST  501 
LAST  560 


17.2011 

17. 2012 

17.2013 


6 7751  0 
0 0006  1 
6 2001  1 


AD  NEG2  IF  A TICKING  OF  T5  IS  NEAR,  WAIT  UNTIL 

EXTEND  IT  HAS  TICKED®  THE  MAX  DELAY  HERE  WILL 

BZMF  RADSTART  +l  BE  937o5  MICROSECCNOS 


2467 

2468 

2469 


REF  171 
REF  13 


LAST  565 
LAST  561 


17.2014 

17.2015 

17.2016 


3 CCC2  0 
0 0006  1 
05  013  0 


CA  0 

EXTEND  IT  IS  SAFE  TO  SET  THE  ACTIVITY  BIT  NOW 

WOR  CHAN13  BECAUSE  OF  THF  ABOVE  LOOP 


2470  REF  88  LAST 

2471  REF  1 

2472  REF  1 


565  17,2017 

17 .2020 

17.2021 


4 cool  1 
55*267  1 
C 4707  0 


CS  L 

TS  RADTIME  SAVF  NEGATIVE  TIME  CF  READ 

TC  ISWRETRN 


2473  REF 


17,2022  55*266  0 C13STAL1  TS  CISFSAV 


2477 

2478 

2479 

2480 

2481 


REF  26 
REF  14 
REF  1 


LAST  561 
LAST  565 


17,2023 
17,  2024 

17.2025 

17.2026 
17,  2027 


3 4750  1 
C 00C6  1 
02  013  1 
0 0006  1 
1 2C50  1 


CA  BIT4 

EXTEND 

RAND  CHAN13 
EXTEND 

BZF  TCCSTAL  IF  NO  RADAR  ACTIVITY,  RETURN 


24815 

2482 

2483 

2484 

2485 

2486 

2487 


REF 

REF 

REF 

REF 

REF 


5 LAST 
2 LAST 

7 LAST 

8 LAST 
89  LAST 


565 

565 

536 

565 

565 


17  ,2030 

17.2031 

17.2032 

17.2033 

17.2034 

17.2035 

17.2036 


32  031  0 
0 C006  1 
00  0C4  0 
6 1267  0 
6 4736  1 
6 4736  1 
56  001  0 


LOSCALAR 
PACT IME 
HALF 
HALF 
L 


NECESSARY  TO  PREVENT  A TC  TRAP  *** 

COMPUTE  DELTA  T SINCE  LAST  RADAR  READ 
CORRECT  FOR  TIME  OVERFLOW 


2488  REF  1 

2489  REF  2 LAST  565 

2490 

2491  REF  90  LAST  565 


17, 2037  3 2053  0 

17  ,2040  6 1270  0 

17.2041  C 0006  1 

17.2042  60  001  0 


CA  cCMSCALR 

AD  RAODEL 

EXTEND 
SU  L 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  <021112-091 


L P20-P25 


2492  17,2043  C 0006  1 

2493  REF  2 LAST  565  17,2044  6 2C50  0 


EXTEND 

BZMF  TCQSTAL 


2494  REF  1 

2495 

2496  REF  1 


17.2045  6 2054  1 

17.2046  C 0006  1 

17  ,2047  6 2030  0 


AD  -DTSCALR 
EXTEND 

BZMF  C13SL00P 


2497  PEF  172  LAST  565 

2498  REF  2 LAST  565 

2499 


17.2050  22  C02  0 

17.2051  3 1266  1 

17.2052  52  005  0 


TCQSTAL 


LXCH 

CA 

OTCF 


0 

C 


13FSAV 


C0440  1 90MSCALR 
77754  1 -DTSCALR 


REF 


LAST  520  6000 

6022 


SETLOC  FFTAG6 
BANK 


2504  REF 

2505  REF 

2506  REF 


1 

3 LAST  468 
1 


6022  3 7727  1 C13STALL  CAF  PR1D36 

6023  56  C04  0 XCH  F6ANK 

6024  1 2022  1 TC  F C13STAL1 


17:53  DEC*  19,1969  LEMP20S  r 145  PAGE  566 


USER'S  PAGE  NOe  71  F7  S3 

FORBIDDEN  ZONE  IS  PAST,  RETURN 

IN  THE  FORBIDDEN  PERIOD,  LOOP  UNTIL  Oo Ko 
ALL  IS  WELL,  RETURN 

90  millisec  in  scalar 

-5o  9375  MS  IN  SCALAR 


PRI036 


16000  = FCADR  (17,2000) 


gap; 

L 

P2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2 52  5 

2526 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2 543 

2544 

2545 

2545 
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P20-P25  ■ USER'S  PAGE  NOo  72  E7  S3 

THIS  ROUTINE  CHANGES  THE  LR  FCSITICN,  ANC  CHECKS  THAT  IT  GOT  THEREo 


REF  2 LAST  530  25,20C0 

25,3454 


SETLOC  P20S1 
BANK 


REF 


2 LAST  530  TO  559:  564  564* 

25,3454  C 0004  0 LRP0S2 


COUNT*  SS/RSUB 
I NHINT 


REF  91  LAST  563 
REF  1 

REF  92  LAST  567 


25.3455  4 0110  0 

25.3456  7 4746  1 

25.3457  26  110  0 


CS  RADMODES 

MASK  LPPOSBIT  SHOW  DESIRED  LR  POSITION  IS  2 

ADS  PAOMCOES 


REF  24  LAST  515 
REF  17  LAST  563 
REF  2 LAST  541 


25.3460  3 4745  0 

25.3461  C 0006  1 

25.3462  02  033  0 

25  ,3463  0 0006  1 

25,3464  1 3513  1 


CAF  BIT7 

EXTEND 

RAND  CHAN33 
EXTEND 

BZF  RADNCCP 


SEE  IF  ALREADY  THEREo 


REF  24 

REF  36 
PEF  1 
REF  22 
REF  27 
REF  1 
REF  1 
REF  3 


LAST  426 
LAST  555 

LAST  545 
LAST  556 

LAST  558 


25.3466 

25.3467 

25.3470 

25.3471 
E7 ,1456 
25  ,3472 

25.3473 

25.3474 


3 4737  0 
C 0006  1 
05  012  1 
3 3530  1 
C 5203  0 

03526  0 
52C67  1 
0 2377  0 


CAF  eiT13 

EXTEND 

WOR  CHAM2  — COMMAND  TQ  POSITION  2 

CAF  6SECS  START  SCANNING  FOP  INBIT  AFTER  7 SECS^ 

TC  WAITLIST 

EBANK=  LOSCCLNT 

2CADR  LRPOSCAN 

TC  P0AD6ACK 


REF  6 LAST  560 
REF  9 LAST  550 


25.3475  55*077  1 LRFCSNXT  TS 

25.3476  C 5221  0 TC 


SAMPLIM 
FI XDELAY 


STAN  ONCE  PER  SECOND  15  TIMES  MAX  AFTER 


25  ,3477  00144  0 


DEC  100 


INITIAL  DELAY  OF  7 SECONOSo 


REF  25  LAST  567 
REF  18  LAST  567 
REF  1 


25.3500 

25.3501 
25  ,3502 
25,35C3 
25,3504 


3 4745  C 
0 0006  1 
02  033  0 
C 0006  1 
1 3520  1 


CAF 

EXTEND 

RAND 

EXTEND 

BZF 


BIT7 

CHAN33 

LASTLPOT 


SEE  IF  LR  PnS2  IS  ON 


IF  THERE,  WAIT  FINAL  SECOND  FOR  BOUNCEo 


REF  9 LAST  567  25,3505  11*077  1 
REF  1 25,35C6  1 3475  0 


CCS  SAMPLIM  SEE  IF  MAX  TIMF  UP® 

TCF  LRPCSNXT 


REF  25  LAST  567 

PEF  37  LAST  567 
REF  3 LAST  559 


25  ,3507  4 4737  1 

25.3510  C 0C06  1 

25.3511  03  012  1 

25.3512  1 3565  0 


CS  BIT13  IF  TIME  UP,  DISABLE  COMMAND  AND  ALARMo 

EXTEND 

WAND  CHAN12- 
TCF  RDBAOEND 


PEF  73  LAST  560 
REF  23  LAST  567 
REF  28  LAST  567 
REF  4 LAST  562 


25,3513  3 4753  1 RAONOOP  CAF  ONE 


25.3514  0 5203  0 
E7,1456 

25.3515  03560  1 

25.3516  52067  1 


TC  WAITLIST 
EBANK=  LOSCCUNT 
2CA0P  PGOODEND 


NO  FURTHER  ACTION  REQUESTEDo 


GAP  : 


ASSEf'eiE  REVISION  X31  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L P20-P25 


25A6 


REF  A LAST  567 


25,3517  C 2377  0 


TC  RCADEACK 


167 


3 5000  1 LASTLRCT  CA 
0 5224  0 TC 


2549 

2550 

2551 
2 552 


REF  26  LAST  567 

REF  3fl  LAST  567 
REF  5 LAST  567 


25.3522  4 4737  1 

25.3523  C 0006  1 

25.3524  C3  C12  1 

25.3525  1 3560  0 


CS 

EXTEND 

MAND 

TCF 


BIT13 

CHAN12 

RGOnOFNC 


2553  REF  1 

25532  REF  2 LAST  567 

25534 


25.3526  3 4317 

25.3527  1 3475 

25,3530  01130 


0 LRPCSCAN  CAF 

C TCF 

1 6SECS  DEC 


FOURTEEN 
LR  POSNXT 
600 


25538  REF  I 

25539  REF  149 

2554  REF  9 

25541  REF  1 

25542  REF  1 


LAST 

LAST 


556 

522 


25.3531  C 3454 

25.3532  0 4616 

25.3533  17705 

25.3534  0 3536 

25.3535  I 3547 


1 LRP2C0MM  TC 
1 TC 

0 CACR 

1 TC 

0 TCF 


LRPCS2 
BANKCALL 
RACSTALL 
LP2ALM 
GOP  INNER 


25543 
2 5544 
25545 


REF  25  LAST  559 
REF  2 LAST  568 


25.3536 

25.3537 
25,3540 


0 5567 
00523 

1 3547 


OCT 

TCF 


ALARM 

523 

GOPINNER 


25546  REF 

25547  REF 
25546  REF 
25549  REF 
2555  REF 
25551  REF 


25552 

25555 

25556 


REF 

REF 

REF 


3 

19 

1 

14 

2 

52 

1 

37 

5 


LAST 

LAST 

LAST 


LAST 

LAST 


524  25,3542 

E7,1427 
561  25,  3543 

568  25,3544 

555  25,3545 

25,3546 
524  25,3547 

454  25,3550 


0 

0 


3 4733  1 
55*427  0 

4 4736  0 
55'430  0 
0 4635  0 

21051  0 


V59GP63  CA 
TS 

EBANK= 

CA 

TS 

CS 

TS 

GOPINNER  TC 

CADR 


EBANK7 

EBANK 

RPCRTIKE 

POSMAX 

RPCRTIM6 

BITl*- 

RPCRTQS^^ 

POSTJUMP 

PI NBRNCH 


17:53  OECo  19,1969  LEMP20S  ol45  PAGE  568 
USER  *5  PAGE  NOe  73  67  S3 


REMOVE  CCMMANO 


SET  UP  FOR  15  SAMPLES- 


gap; 

L 

P2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2 570 

2571 

2572 
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P20-P25 


USER'S  PAGE  NOo  74  E7  S3 


SEQUENCES  TO  TERMINATE  RR  CPERATICNSo 


REF  6 LAST  561 
REF  93  LAST  567 
REF  203  LAST  563 
PEF  6 LAST  568 
REF  4 LAST  567 
REF  117  LAST  558 
REF  2 LAST  99 


25,3551 
25  ,3552 

25.3553 

25.3554 

25.3555 

25.3556 

25.3557 


'3  4745  0 
7 0110  0 
1C  CCC  0 
.1  3560  0 
1 3565  0 
4 4755  0 
54  332  I 


ENDRAOAR  CAF  RCDUF8IT 

MASK  RADMOOES 

CCS  A 

TCF  RGOOOEND 

TCF  PCBACENC 

-2  CS  ZERO 

TS  PUPTAGN 


PROLOG  TO  CHECK  PR  COU  FAIL  BEFORE  ENOa 


RGOOOEND  WHEN  NOT  UNDER  WAITLIST  CONTROL 


REF  37  LAST  545 
REF  38  LAST  568 
PEF  2 LAST  246 


25.3560  3 4752  0 

25.3561  0 4635  0 

25.3562  17656  1 


RGCCDENC  CAF 


TWC 

POSTJUMP 

600DEN0 


REF  118  LAST  569 
REF  3 LAST  569 
REF  38  LAST  569 
REF  39  LAST  569 
REF  1 


25.3563  4 4755 

25.3564  54  332 

25.3565  3 4752 

25.3566  0 4635 

25  ,3567  17653 


0 -2  CS 

1 TS 

0 RCBAOENC  CAF 

0 TC 

1 CACR 


ZERO 
P UPTAGN 
TWC 

POSTJUMP 

BACEND 


RDBAOENO  WHEN  NOT  UNDER  WAITLISTo 


REF  18  LAST  513 


6250  BI N3  EQUALS  THREE 


GAP: 
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L 

P20-P25  USER'S  PAGE  NCe  75  E7  S3 

P2573 

R257A 

PROGRAM  NAME  LPS20«1  VECTOR  EXTRAPCLA7I CN  AND  LOS  CCMPUTATICN 

MCDo  NCo  2 GY  J,  C«  COYNE  SDC  CATE  12-7-66 

R2575 

FUNCTIONAL  OESCRIPTICN_ 

R2576 

R2578 

R2580 

1)  EXTRAPOLATE  THE  LEM  AND  CSM  VECTORS  IN  ACCORDANCE  WITH  THE  TIME  REFEREO  TO  IN  CALLER  + lo 

2)  COMPUTES  THE  LCS  VECTOR  TC  THE  CSM,  CONVERTS  IT  TO  STABLE  MEMBER  COORDINATES  AND  STORES  IT  IN  PRTARGETs 

3)  COMPUTES  THE  MAGNITUDE  .CF  THE  LCS  VECTCR  ANC  STORES  IT  IN  MLCSV 

R2581 

R 2582 

CALLING  SECUENCe  CALL 

LPS20.1 

R2583 

SUBROUTINES  CALLEC. 

R 2564 

LEMPREC  ,CSMPREC 

R2585 

NORMAL  EXIT,  RETURN  TO  CALLER  + 2 

R2586 

ERRCR  EXITS.  NCNE 

R2587 

ALARMS.  NONE 

R2588 

OUTPUT. 

R2589 

R2590 

R2591 

LOS  VECTOR  (HALF  UNIT)  IN  SM  CCCRDINATES  STORED  IN  RRTARGET 

MAGNITUDE  OF  THE  LOS  VECTOR  (METERS  SCALED  8-29)  STORED  IN  MSLCV 

RRNBSW  CLEARED 

R2592 

INITIALIZED  ERASEA6LE 

R2593 

R259A 

TCECl  MUST  CONTAIN  TFE  TIME  FCR  EXTRAPOLATION 

SEE  ORBITAL  INTEGRATION  ROUTINE 

R2595 

CEBRIS. 

R2596 

MPAC  OESTRCYEO  BY  THIS  ROUTINE 

2597 

2598 

2599 

23,2337  BANK  23 

REF  A LAST  520  2A,2000  SETLOC  P20S 

2A,3256  BANK 

GAP  : 

L 

2600 

2601 

2602 

2603 

260A 

2605 

2606 

2607 

2608 

2609 

2670 

2611 

2612 

2613 

261^ 

2615 

2616 

2617 

2616 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2 640 

2641 

2642 

2 643 

2644 

2645 

2646 


ASSePBLE  REVISION  131  CF  AGC  PRCCRAP  LUMINARY  0Y  NASA  2021112-091 


17:53  DECo  19,1969  LEPP20S«145  PAGE  571 


P20-P25  USER’S  PAGE  NOe  76  E7  S3 

REF  1 . COUNT*  $$/LPS20 


REF  3 LAST 

REF  8 LAST 

REF  1 

REF  6 LAST 

REF  1 


REF  3 LAST 

REF  5 LAST 

REF  2 LAST 

REF  1 

REF  2 LAST 

REF  5 LAST 

REF  16  LAST 

REF  2 LAST 

REF  2 LAST 

REF  3 LAST 


REF  8 LAST 

REF  6 LAST 

REF  3 LAST 

REF  50  LAST 

REF  4 LAST 

REF  6 LAST 

REF  3 LAST 

REF  4 LAST 

REF  1 

REF  1 


REF  1 

REF  9 LAST 

REF  10  LAST 

REF  4 LAST 


REF  5 LAST 
REF  4 LAST 


24,3256 
504  24,3257 

555  24,3260 

24.3261 

24.3262 
504  24,3263 

24.3264 

24.3265 
491  24,3266 

24,3267 
491  24,3270 

504  24,3271 

24,3272 
504  24,3273 

497  24,3274 

522  24,3275 

341  24,3276 

24, 3277 
571  24,3300 

571  24,3301 

24, 33C2 
491  24,3303 

24,3304 

556  24,3305 

556  24,3306 

555  24,3307 

555  24,3310 

571  24,3311 

24, 3312 
571  24  ,3313 

506  24,3314 

24.3315 

24.3316 

24.3317 

24.3320 

24.3321 

24. 3322 
24  ,3323 
24,3324 

571  24,3325 

555  24,3326 
24,3327 

556  24,3330 
24,3331 

554  24,3132 

571  24,3333 


01343  1 
51265  1 
77614  1 
04307  1 
51275  0 
77624  1 
27077  1 

77775  I 
00001  0 
26352  1 
OCC07  0 
16360  0 
00C15  0 
34C41  0 
27065  1 
52375  1 
00007  0 
02360  n 
76521  0 
01734  0 

77776  I 
0 6032  0 

52613  1 
0 6C42  1 
25761  C 
00001  0 
43051  1 
02352  1 
C0350  1 
51322  0 
77604  0 
57754  0 
77661  0 
20212  1 
41056  1 
50102  1 
76521  0 
01734  0 
15101  0 
C0045  0 
01767  0 
77614  1 
C0231  1 
01757  0 


LPS20ol  STQ 

BON 

LMINT  CALL 
VLCAD 
STCVL 
STOOL 

CSMINT  STCALL 
VLCAD 

MXV 

EXIT 

TC 

CAOR 

TC 

STOVL 

VSU 

B0V6 

VSL 

NOTSHIFT  UNIT 

MXV 

STOOL 

STORE 

CLRGO 


Lose  MFLG 
L M I NT 


SURFFLAG 

CSMINT 


LEMCONIC 

Ratt 

LMPCS 

VA7T 

L MVEL 

TAT 

TOECl 

CSMCONIC 

VSU 

VATT 

LMVEL 

VSLl 

REFSMMAT 

KILLTASK 

DESLOOP  - 

INTPRET 

LOSVEL 

RATT 

eOFF 

LMPnS 

RNOVZFLG 

NOTSHIFT 

TCOANZIG 

9D 

BOVB 

526ALARM 

VSLl 

REF  SMMAT 
RRTARGET 
360 
MLOSV 

RPNOSW 

LS21X 


LOSCMFLG  = 0 MEANS  NOT  CALLED  BY  R21 
SO  CALL  LEMCONIC  TO  GET  LM  STATE 
IF  IN  R21  AND  ON  LUNAR  SURFACE 
DON'T  CALL  LEMCONIC 


EXTRAPOLATE  LEM 


SAVE  LM  POSITION  P-29 
SAVF  LM  VELOCI TY  R-7 

EXTRAPOLATE  C SM 

COMPUTE  RELATIVE  VELOCITY  VICSMI  - V(LM> 


KILL  THE  TASK  WHICH  CALLS  DOOES  SINCE 
STORING  INTO  FRASFABLES  DOOES  USES 


IF  OVERFLOW  , RANGE  MUST  BE  GREATER 
THAN  400  No  Mo 

CONVERT  TO  STABLE  MEMBER 

SAVE  MAGNITUDE  OF  LCS  VECTOR  FOR 
VELOCITY  CORRECTION  IN  DESIGNATE 


GAP:  ASSEMBLE  REVISION  131  CF  A6C  PRCCRAP  LUMINARY  BY  NASA  2021112-C91 

L P2n-P25 


17:53  DECo  19»1?69  LEMP20S  olA5 
USER  'S  PAGE  NOo  77 


PAGE 
E7  S3 


572 


P2647  PROGRAM  NAME_  LPS20o2  400  NM  RANGE  CHECK 

R264a  MCDo  NDo  2 BY  J,0«  COYNE  SDC  CATE  12-7-66 


R2649  FUNCTIONAL  0£SCRIPTICN_ 

R2650  CCMPARES  THE  MAGNITUDE  CF  THE  LCS  VECTOR  TO  400  NM 

R2651  CALLING  SEQUENCE  CALL 

R2652  LPS20o2 


R2653 

R2654 

R2655 


SL6R0LTINES  CALLED.  NCNE 

NORMAL  EXIT  _ RETURN  TO  CALLER  +1 r MPAC  EO  0 (RANGE  400NM  OR  LESS® I 
ERRCR  EXITS  _ RETURN  TO  CALLER  *1,  MPAC  EQ  1 (RANGE  GREATER  THAN  400NM) 


R2656  ALARMS.  NONE 

R2657  OUTPUT.  NONE 

R2658  INITIALIZED  ERASEABLE. 

R2659  PEL  36D  MUST  CONTAIN  THE  MAGNITUDE  OF  THE  VECTOR 
R2660  DEBRIS 

R2661  MPAC  DESTROYED  BY  THIS  ROUTINE 


2662 

2663 

2664 


REF  3 LAST  567 
REF  1 


25,2000 

25,3570 


SETLOC  P20S1 
BANK 

COUNT*  tS/LPS20 


2665 

2666  REF 

2667  REF 

2668 

2669  REF 

2670 

2671  REF 

2672 

2673  REF 

2674 


5 LAST 
1 

1 


1 

1 


25.3570 

25.3571 

25. 3572 
25  ,3573 

25.3574 

25.3575 
25  ,3576 
25, 3577 
25,3600 
25,36C1 


45345  1 
01767  0 
13603  0 
77644  1 
53577  1 
A3535  0 
06524  J 
<3535  0 
13602  1 
00001  0 


LPS20*  2 


TOFAR 

CN6/SP 


OLOAD 

BPL 

SLOAD 

SLOAD 

DEC 


OSU 

MLCSV 

FHNM 

TOFAR 

RVO 

ZERO/SP 

RVC 

ONE/SP 

1 


MAGNITUDE  OF  LOS 
OVER  400NM  _ 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 

L P20-P25 


17:  53  OECo  19,1969  LEMP20S^.  145  PAGE  573 
USER'S  PAGE  NO*  78  E7  S3 


26467  0 FHNM 
00000  I 


2DEC 


740800  6-20 


AnO  NAUTICAL  MILES  IN  METERS  B-20 


gap:  assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C91  17:53  DECo  IQ, 1969  LEMP20S  -145  PAGE  574 

L P20-P25  USER'S  PAGF  NO,  79  E7  S3 

P2676  PROGRAM  NAME:  LRS22ol  (DATA  READ  SUBROUTINE  II 

R2677  MCDo  NO®:  1 BY:  Po  VCLAME  SDC  DATE:  11-15-66 

R2678  functional  OESCRIPTICN 

R2679  1)  REACS  RENDEZVOUS  RADAR  RANGE  AND  RANGE-RATE , TR UN  ION  AND  SHAFT  ANGLES, THREE  COU  VALUES  AND  TIMEc  CONVERTS  THIS 

R2681  DATA  AND  LEAVES  IT  FOR  THE  MEASUREMENT  INCORPORATION  ROUTINE  (LSR22o3)o  CHECKS  FOR  THE  RR  DATA  GOOD  DISCRETE, FOR 
R2683  RR  REPOSITION  AND  RR  CDU  FAIL 

R2684  2)  CCMFAPES  RADAR  LOS  WITH  LCS  CCMPUTEO  FROM  STATE  VECTORS  TO  SEE  IF  THEY  ARE  WITHIN  THREE  DEGREES 

R2686  CALLING  SEQUENCE:  8ANKCALL  FCR  LRS22ol 


R2687  SUBROUTINES  CALLED: 

R2688  RRROOT  LPS2C<,1 

R2689  RRRANGE  BANKCALL 

R2690  RACSTALL  CCULCGIC 

R2691  RRNB  SMN8 

R2692  NORMAL  EXIT;  RETURN  TO  CALLER+1  WITH  MPAC  SET  TO 


ERROR  EXITS:  RETURN  TO  CALLEP+J  WITH  ERROR  CODE  STORED  IN  MPAC  AS  FOLLOWS: 


R2707  ALL  CF  THE  FOLLOWING  OUTPUTS  ARE  USED  BY  LRS22o3: 

R2708  RDOTM-  THE  RR  RANGE-RATE  READING, CP,  IN  METERS  PER  CFNTISECONO,  SCALED  B-7 

R2710  RRTRUN-RR  TRUNION  ANGLE, OP, IN  RE VOLUT I CNS  , SCALE D BC 

R2711  RRSHAFl-RR  SHAFT  ANGLE, CP, IN  R EVCLUT I ONS , S C AL ED  BO 

R2712  AIG,AMG,AOG-TH6,  CDU  ANGLES, THREE  SP  WORDS 

R2713  MKTIME-THE  TIME  OF  THE  RR  RE ADI NG, DP , IN  CENTISECONDS 


R2714  ERASABLE  I N I TI AL I Z AT  I C N RECUIREC: 

R2715  RNRAC.THE  RADAR  READ  COUNTER  FROM  WHICH  IS  OBTAINED: 


gap; 

L 

R2716 

ft2718 

R271P 

R2720 

2721 

2722 

2723 

ZIZ^ 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

273A 

Z1^5 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 
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P20-P25  USER'S  PAGE  NCo  80  £7  S3 

DRR  RANGE  SCALED  9*38  FT,  PER  BIT  ON  THE  LOW  SCALE  AND  75o04  FTo  PER  BIT  ON  THE  HIGH  SCALE 
2JRR  RANGE  RATE, SCALED  o6278  FT»/SECq  PER  BIT 

THE  CDU  ANGLES  FPCM  CDUX , CCLY , COU Z AND  TIMEl  AND  TIME2 


DEBRIS:  LRS2  2«  IX  , A , L , Q , P U SH  L I ST 


32  ,2366 

REF  2 LAST  ^*1  32,2000 

32,2366 

REF  2 LAST  41  TO  41 : 4 4* 


BANK  32 
SETLCC  LRS22 
BANK 

COUNT*  $$/LRS22 


REF  7 LAST  547 
REF  3 LAST  508 
REF  61  LAST  555 
REF  2 LAST  562 

REF  29  LAST  563 


REF  19 
REF  91 
REF  1 
REF  94 
REF  92 
REF  95 

REF  150 
REF  4 
REF  151 
REF  10 
REF  1 


LAST  567 
LAST  565 

LAST  569 
LAST  575 
LAST  575 

LAST  568 
LAST  522 
LAST  575 
LAST  568 


32.2366 

32.2367 

32.2370 

32.2371 
32  ,2372 

32.2373 

32.2374 
32  ,2375 

32.2376 

32.2377 
32  ,2400 

32.2401 

32.2402 

32.2403 

32.2404 
32  ,2405 

32.2406 

32.2407 
32  ,2410 


0 4645  1 
55'737  1 
0 5516  0 
C0120  1 

0 0004  0 

3 4751  0 
C 0006  1 
02  033  0 
54  CCl  I 

4 4751  1 
7 0110  0 
6 0001  0 
54  110  0 
C 0003  1 
C 4616  1 

53112  0 
6 4616  1 
17705  0 

1 2543  0 


LRS22,l  TC 
TS 
TC 

AORES 

INHINT 

CAF 

EXTEND 

RAND 

TS 

CS 

MASK 

AO 

TS 

RELINT 
REAOROOT  TC 

CACR 

TC 

CAOR 

TCF 


MAKECADR 
LR  S22«  1 X 
OCWNFLAG 
RNGSCFLG 

eiT3 

CHAN33 

L 

RRR  SBI  T 

RADMODES 

L 

RADMODES 

BANKCALL 
PPROOT 
BANKCALL 
RADSTALL 
EREX ITl 


GET  RR  RANGE  SCALE 
FROM  CHANNE  L 33  BI  T 3 


READ  RANGE-RATE  (ONE  SAMPLE! 

WAIT  FOR  DATA  READ  COMPLETION 
CnULO  NOT  READ  RADAR-EPROP  EXIT  1 


REF  6 LAST 
REF  247  last 
REF  6 LAST 
REF  3 last 

PEF  2 LAST 
REF  248  LAST 
REF  10  last 
REF  249  LAST 

REF  15  LAST 
REF  250  LAST 

REF  9 LAST 
REF  17  LAST 


558 

555 

563 

148 

255 

575 

389 

575 

558 

575 

552 

554 


32.2411 

32.2412 

32.2413 

32.2414 
32  ,2415 

32.2416 

32.2417 

32.2420 

32.2421 

32.2422 

32.2423 

32. 2424 
32  ,2425 

32.2426 

32.2427 
32  ,2430 


C 0004  0 
53*105  0 
52  162  0 
53*101  1 
53*747  0 
C 0006  1 
2 0034  0 
52  160  1 

2 0032  0 
54  156  1 
C 0006  1 

3 0025  0 
52  155  1 
C 0006  1 
2 0036  1 
53*107  1 


INHINT 

DXCH  TIMEHOLD 
OXCH  MPAC  +5 

DXCH  SAMPLSUM 
DXCH  RDOTMSAV 
EXTEND 
DCA  COUY 

DXCh  MPAC  +3 

CA  CDUX 

TS  MPAC  +2 

EXTEND 

OCA  T1MF2 

OXCH  MPAC 

EXTEND 
DCA  CDIT 

DXCH  TANG 


NO  INTERRUPTS  WHILE  READING  TIME  AND  COU 
SET  MARK  TIME  EQUAL  TO  THE  MID-POINT 
TEMP  BUFFER  FOR  DOWNLINK 
SAVE  RANGE-RATE  REACING 


SAVF  ICDU  ANGLES 

TEMP  BUFFER  FOR  DOWNLINK 

TEMP  BUFFER  FOR  DOWNLINK 

SAVE  TIME 

SAVE  TIME  OF  CDY  READINGS  IN  MPAC 
SAVE  TRUMON  AND  SHAFT  ANGLES  FOR  RRNB 


7:5?  DEC®  1'5,1969  LEKP20S  ^145  PAGE  576 
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USER'S  PAGE  NOo  81  E7  S3 


2762  REF 

2763  REF 
276A  REF 

2765  REF 

2766 
27665 

2767  REF 

2768  REF 

2769  REF 

2770  REF 

2771  REF 

2772  REF 

2773 

2774  REF 

2775  REF 

2776  REF 

2777  REF 

2778  REF 

2779 

2780  REF 

2781 

2782 

2783  REF 

2784  REF 

2785 

2786  REF 

2787  REF 

2788  REF 

2789 

2790  REF 

2791  REF 

2792  REF 

2793  REF 

2794 

2795  REF 

2797  REF 

2798  REF 

2799  REF 
2600 

2801  REF 

2802  REF 

2803 

2804  REF 

2805  REF 

2806  REF 

2807  REF 

2808  REF 

2809  REF 


152  LAST 
3 LAST 

153  LAST 
11  LAST 

1 


6 LAST 
3 LAST 

251  LAST 
5 LAST 

252  LAST 
3 LAST 

18  LAST 

7 LAST 

253  LAST 

3 LAST 
51  LAST 

4 LAST 


3 LAST 

19  LAST 

13  LAST 
2 LAST 

20  LAST 

14  LAST 
2 LAST 
7 LAST 

1 

4 LAST 

2 LAST 

3 LAST 


17  LAST 
5 LAST 

4 LAST 

10  LAST 
1 

11  LAST 
4 LAST 

12  LAST 


575  32  f2432 
522  32,  2^33 

576  32t2434 

575  32,2435 

32,2436 
32  ,2437 
32,2440 
559  32,2441 

201  32,2442 

575  22,2443 

203  32,2444 

576  32,2445 

203  32,2446 

32  ,2447 

575  32,2450 

547  32,2451 

576  32,2452 

203  32,24!3 

571  32,2454 

32,2455 

575  32,2456 
32  ,2457 

32.2460 

32.2461 
148  32  ,2462 

32, 2463 

576  32,2464 

552  32,2465 

148  32,2466 

32  ,2467 
576  32,2470 

576  32,2471 

148  32  ,2472 

575  32,2473 

32.2474 

32.2475 
203  32,2476 

547  32,2477 

148  32,2500 

32,2501 
571  32  ,2502 

522  32,2503 

32,2504 

576  32,2505 

482  32,2506 

32  ,2507 
576  32^,2510 

576  32,2511 

576  32,2512 


0 00C3  1 
0 4616  1 
53114  0 
0 4616  1 
17705  0 
0 2537  1 
0 0004  0 
C 0006  1 
: 1331  1 
53'761  1 
52  162  0 
53*755  0 
52  160  1 
53’460  0 
0 0006  1 
3 1107  0 
53*753  0 
3 0156  0 
55'46l  1 
C 6042  1 
14025  0 
03747  0 
57261  0 
20217  1 
24002  0 
03751  1 
47135  0 
01107  0 
21577  1 
C3734  1 
47135  0 
Cllin  0 
21577  1 
17736  0 
CllCl  0 
66405  0 
24004  0 
37757  0 
46041  0 
17741  0 
00Q25  0 
34041  0 
51256  1 
77776  1 
3 1457  0 
54  765  1 
3 1460  1 
54  767  0 
3 1461  0 
54  771  I 


R EL  INT 

TC  BANKCALL 

CAOR  PRRANGE 
TC  BANKCALL 

CAOR  RACSTALL 

TC  CHEXFRR 

INhINT 
EXTEND 

OCA  ONRRANGE 

OXCH  RANGROOT 

OXCH  MPAC  +5 
OXCH  MKTIME 
OXCH  MPAC  +3 
OXCH  AIG 
EXTEND 
OCA  TANG 
OXCH  TANGN6 
CA  MPAC  +2 
TS  AOG 
TC  INTPRET 

STCDL  20D 

RDCTMSAV 
SL  OMPR 

] 40 

RDOTCONV 
STORE  RDOTM 
SLOAD  RTB 
TANG 
CDULOGIC 
STORE  RRTRUN 
SLOAD  PT6 

TANG  +1 
CDULOGIC 
STOOL  RRSHAFT 
SAMFLSUV 
DMP  SL2P 

pangconv 

STCALL  RM 

RRN6 

STOOL  FRBCRSIT 
20D 

STCALL  TOECl 

LPSZOol 

EX  IT 

CA  AIG 

TS  COUSPCT 
CA  AMG 
TS  COUSPCT  +2 
CA  AOG 
TS  COUSPOT  +4 


REAC  RR  RANGE  (ONE  SAMPLE! 

WAIT  FOR  READ  COMPLETE 

CHECK  FOR  ERRORS  DURING  REAC 

COPY  CYCLE  FOR  MARK  OATA  ON  DOWNLINK 

RANGE, RANGE  RATE  (PAW  DATAI 


MARK  TIME 

COUY,  COUZ 

PRESERVE  TANG 

TRUNNION  AND  SHAFT  ANGLES 

COUX 

SAVE  TIME  OF  COU  READINGS  IN  200 

CONVERT  ROOT  UNITS  AND  SCALING 

START  WITH  READING  SCALED  B-28,  -o6270 

FTo/SECONO  PFP  PIT 

END  WITH  METFRS/CENTISECONC,  B-7 


GET  TRUNION  ANGLF 

CONVERT  TO  DP  ONES  COMPo  IN  REVOLUTIONS 
ANC  SAVE  FOP  TMI  ROUTINE  (LSR22«.3» 

DITTO  FOR  SHAFT  ANGLE 


CONVERT  UNITS  AND  SCALING  CF  RANGE 
PEP  BIT,  END  WITH  METER S , SC ALEO  -29 

COMPUTE  RAOAR  LOS  USING  RRNB 
AND  SAVE 

GET  STATE  VECTOR  LOS  AT  TIME  OF  CDU  READ 


STORE  IMU  CDU  ANGLES  AT  MARKTIME 
IN  COUSPCT  FDR  TRG*SMNB 


gap; 

I 

2810 

2811 

2612 

2813 

2814 

2815 

2816 

2817 

2818 

281P 

2820 

2821 

2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2837 

2638 
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REF  52 

REF  11 
REF  1 

REF  4 

REF  22 

REF  1 
REF  1 


LAST  576 
LAST  571 

LAST  576 
LAST  452 


32.2513 

32.2514 

32. 2515 
32  ,2516 
32,2517 
32,2520 
32  ,2521 
32,2  522 

32.2523 

32.2524 

32.2525 


0 6042  1 
45175  0 

cnoi  0 

47653  1 
77641  1 
03741  0 
65552  0 
01045  1 
50025  0 
24547  1 
64532  1 


TC  INTPRET 

VLOAO  CALL 

RRTARGET 

TRG*SMNB 

DOT 

RRBOPSn 
SLl  ACOS 
STORE  OSPTEMl 
DSU  BMN 

THREEOEG 

NORMEXIT 


LOAD  VECTOR  AND  CALL  TRANSFORMATION 

ROTATE  LOS  AT  MAPKTIRE  FRCR  SM  TO  NBc 
DOT  WITH  RADAR  LOS  TO  GET  ANGLE 

BETWEEN  THEM 

STORE  FOR  POSSIPLE  DISPLAY 
IS  IT  LESS  THAN  3 DEGREES 

YES-NORMAL  EXIT 


REF  33-  LAST  555 
REF  254  LAST  576 
REF  1 


32.2526  77776  1 

32.2527  3 4752  0 
32,2530  54  154  0 
32  ,2531  1 2535  1 


EXIT  ERROR  EXIT  2 

CAF  BIT2  SET  ERROR  CODE 

TS  MPAC 

TCF  OUT22eI 


REF  119  LAST  569 
REF  255  LAST  577 
REF  4 LAST  575 
REF  10  LAST  545 
REF  17  LAST  562 
REF  1 

REF  204  LAST  569 
REF  1 


32,25?2  77776 

32.2533  3 4755 

32.2534  54  154 

32.2535  31*737 

32.2536  0 4640 

32.2537  30  101 

32,2540  7 4742 

32  ,2541  10  000 

32,2542  1 2404 


1 NCRMEXIT  FXIT 
1 CAF 

0 TS 

0 0UT22ol  CAE 

1 TC 

1 CHEXERR  CAE 
0 MASK 

0 CCS 

1 TCF 


ZERO 

MPAC 

LRS22* 1 X 
BANKJUMP 
FLAGWRC5 
PNGSCBI  T 
A 

REAORDCT 


NORMAL  EXIT-SET  MPAC  EQUAL  ZERO 
EXIT  FROM  LRS22ol 

CHECK  IF  RANGE  SCALE  CHANGED 
YES-TAKE  ANOTHER  READING 


REF  32  LAST 
REF  256  LAST 
REF  2 LAST 


REF  12  LAST 


562 

577 

577 


577 


32.2543  2 4753 

32.2544  54  154 

32.2545  C 2535 

32  ,2546  00210 

32,2547  21042 

1100 


1 EREXITl  CA 

0 TS 

C TC 

1 THREECEG  2DEC 
1 


BITl 
MPAC 
0UT22» 1 
*008333333 


RRLOSVEC  EQUALS  RRTARGET 


SET  ERRCR  CODE 

THREE  DEGREES, SCALED 
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L P20-P25  USER'S  PAGE  NOo  83  E7  S3 

P2839  PROGRAM  NAME  - LRS22o2  (DATA  READ  SUBROUTINE  2) 

R2840  MCDo  NOo  : 1 BY:  P VCLAATE  SCC  DATE  4-11-67 

RZ841  FUNCTIONAL  OESCRIPTIGN- 

R2842  2)  CFECKS  IF  THE  RR  LOS  (loE*  THE  RADAR  BORESIGHT  VECTOR)  IS  UITHIN  30  DEGREES  CF  THF  LM  +Z  AXIS 

R2844  CALLING  SEQUENCE-  BANKCALL  FCR  LRS22*2 

R2845  SUBROUTINES  CALLED:  G+N,AUTO  SETMAXDB 

R2846  NCRPAL  EXIT  - RETURN  TO  CALLER  hITH  MPAC  SET  TO  +0  (VIA  SWRETURN) 

R2847  ERROR  EXIT  - RETURN  TO  CALLER  V.ITH  MpAC  SET  TO  OOOOl  -RADAR  LCS  KCT  WITHIN  30  DEGREES  OF  LM  +Z  AXIS 


R2849  ALARMS  - NONE  IN  THE  AUTC  MODE 


R2851  ERASABLE  INITIALIZATION  REQUIRED  - 

R2852  RRLOSVEC  - THE  RR  L INE-OF- S IGHT  VECTOR-A  HALF  UNIT  VECTOR  COMPUTED  BY  LRS22ol 

R2854  RM  - RR  RANGE,  METERS  8-29,  FROM  LRS22ol 

R2855  BIT  14  CHANNEL  31  -INDICATES  AUTOPILOT  IS  IN  AUTO  MODE 


R2856  DEBRIS 


A,L,C  MPAC  -PUSHLIST  AND  PUSHLOC  ARE  NOT  CHANGED  BY  THIS  ROUTINE 


2858  REF 

2859 

2860  REF 

2861  REF 

2862  REF 
A2863 

2864 

2865  REF 
A2866 
A2867 

2868 

2869  REF 

2870  REF 

2871 

2872  REF 

2873  REF 

2874  REF 

2875 


5 LAST 

8 LAST 
5 LAST 
53  LAST 


5 LAST 


1 

1 

33  LAST 
257  LAST 
1 


570  24,2000 

24,3334 

575  24,3334  0 4645  1 

577  24,3335  55'737  I 

577  24,3336  C 6042  1 

24,3337  65545  0 

577  24,3340  03745  1 


577 

577 


24.3341  50025  0 

24.3342  11356  1 

24. 3343  51350  0 

24.3344  77776  1 

24.3345  3 4753  1 

24.3346  54  154  0 

24.3347  1 3353  0 

24,3350  77776  1 


SETLOC  P20S 
BANK 

LRS22«2  TC  MAKECADR 

TS  LRS22clX 

TC  INTPRET 


30D6GCHK  OLOAD  ACCS 

PRBOR  SI  T +4 


OSU  BMN 

30CEG 
OKEXl  T 

EX  IT 

CAF  8IT1 

TS  MPAC 

TCF  0UT22o2 


CHECK  IF  RR  LOS  IS  WITHIN  30  DEG  OF 
THE  SPACECRAFT  +Z  AXIS 
BY  TAKING  ARCCOS  OF  Z-CCMPc  OF  THE  RR 
LOS  VECTOR, A HALF  LNIT  VECTOR 
IN  NAV  BASE  AXES) 


NORMAL  EXIT-WITHIN  30  DEGo 
ERROR  EXIT-NOT  WITHIN  30  OEGo 
SET  ERROR  CODE  IN  MPAC 


NORMAL  EXIT-SET  MPAC  = ZERO 


gap:  assemble  REVISION  131  OF  AGC  PRCGRAf-  LUMIN/iRY  BY  NfiSA  20211  12-091 


J7:53  CECo  19,1969  LEMP20S 


145  PAGE  579 


USER'S  PAGE  NOo  84 


2876 

2877 

2878 

2879 


REF  120 
REF  258 
REF  6 
REF  11 


LAST 

LAST 

LAST 

LAST 


577 

578 
578 
577 


2<^,3351 
2^, 3352 
2A,3353 
2A,3S54 


3 4755  1 
5<i  154  0 
31*737  0 
C 4640  1 


0UT22o2  CAE 


ZERO 

MPAC 

LRS22olX 

6AAKJUMF 


2880 

2880 


24.3355  02525  1 30DEG  2DEC  o083333333  THIRTY  DBGR EES , SCALED  REVS, BO 

24.3356  12525  0 
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L P20-P25 

P2881  PROGRAM  NAME  - LSR22o3 

R2883  MOOo  NO  3 

R2885  MCDe  BY  - DANFCRTH 

R2887 

R2888  FUNCTIONAL  CESCRIPTICN 


USER'S  PAGE  NCo  85  E7  S3 

DATE  - 29  MAY  1967 
LOG  SECTION  - P20-2^ 

ASSEMBLY  LEMP20S  REV  1C 


R2889 

R2891 

R2893 


THIS  ROUTINE  CCMPUTES  THE  B-VECTCRS  AND  DELTA  Q FOR  EACH  OF  THE  QUANTITIES  MEASURED  BY  THE  RENDEZVOUS 
RADARo (RANGE, RANGE  RATE, SHAFT  AND  TRUNNION  ANGLESIo  THE  ROUTINE  CALLS  THE  INCORPl  AND  INC0RP2  ROUTINES 
WHICH  COMPUTE  THE  CEVIATICNS  ANC  CORRECT  THE  STATE  VECTOR* 


R2fa9A  CALLING  SEQUENCE 

R2895  THIS  ROUTINE  IS  PART  OF  P20  RENDEZVOUS  NAVIGATION  FOR  THE  LM  COMPUTER  0 NLY*  THE  ROUTINE  IS  ENTERED  FROM 

R2897  R22LEM  CNLY  AND  RETURNS  DIRECTLY  TO  R22LEM  FOLLOWING  SUCCESSFUL  INCORPORATION  OF  MEASURED  DATA*  IF  THE 

R2899  COMPUTED  STATE  VECTOR  DEVIATIONS  EXCEED  THE  MAXIMUM  PERMITTED*  THE  ROUTINE  RETURNS  TO  R22LEM  TO  DISPLAY 
R2901  THE  DEVIATIONS*  IF  THE  ASTRONAUT  ACCEPTS  THE  DATA  R22LEM  RETURNS  TO  LSR22*3  TO  INCCPPORATE  THE 
R2903  DEVIATIONS  INTC  THE  STATE  VECTOR*  IF  THE  ASTRONAUT  REJECTS  THE  DEVIATIONS,  NO  MORE  MEASUREMENTS  ARE 

R2905  PROCESSED  FOR  THIS  MAR K , I * E* , R 2 2LE M GETS  THE  NEXT  MARKc 


R2906 
R 2907 
R2908 
R2909 
R2910 
R29H 
R 2912 
R2913 
R2914 
R2915 
R2916 
R2917 


SUBROUTINES  CALLED 
WLINIT  LGCUPOTE 

GETULC  RARARANG 


INTEGPV  INCORPl 

INCCRP2  NBSM 


ARCTAN 

INTSTALL 


OUTPUT 

CORRECTED  LM  CR  CSM  STATE  VECTCR  (PERMANENT! 

NUMBER  OF  HARKS  INCORPORATED  IN  MARKCTR 

MAGNITUDE  OF  POSITION  DEVIATION  (FOR  DISPLAY)  IN  R22DISP 
MAGNITUDE  OF  VELOCITY  OEVIATICN  (FOR  DISPLAY)  IN  R22DISP 
UPDATED  W-HATR IX 


METERS  B-29 
42  M/CSEC  B-7 


R2918 
R2919 
R2920 
R2921 
R2922 
R2923 
R292A 
R2925 
R2926 
R2927 
R292P 
R 2929 
R2930 
R2931 
R2932 


ERASABLE  INITIALIZATION  REQUIRED 
LM  AND  CSM  STATE  VECTORS 
W-MATRI X 

MARK  TIME  IN  MKTIME 

RADAR  RANGE  IN  RM  METERS  B-29 

RANGE  RATE  IN  RDCTM  METEPS/CSES 
SHAFT  ANGLE  IN  RRSHAFT  REVSoBO 
TRUNNION  ANGLE  IN  RRTPUN  REVS* 
GIMBAL  ANGLES  INNER  IN  AIG 
MIDDLE  IN  AMG 
OLTER  IN  ACG 


e-7 

BO 


REFSMMAT 

RENDWFLG 

NCANGFLG 

VEHUPFLG 


R2933  DEBRIS 

R2934  PLSHLIST — ALL 

R2935  MX,  MY,  MZ  (VECTORS) 


gap: 

L 

ft2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2946 

2949 

2950 

2951 

29  52 

2953 

2954 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 
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P20-P25  USEP'S  PAGF  NCo  86  E7  S3 

LLC ,R  X2 , SINTHETA  ,LGRET,RDRET  ,eV£CTCR,W*  INC,X7  8T 


REF  1 


13,2207 

26,2000 

26,2416 


BANK  13 
SETLOC  P20S3 
BANK 


REF  29  LAST 
REF  1 

REF  7 LAST 

REF  7 LAST 
REF  1 
REF  1 

REF  6 LAST 

PEF  1 

REF  11  LAST 

REF  10  LAST 
REF  4 LAST 

REF  1 

REF  8 LAST 

REF  12  LAST 

REF  7 LAST 
REF  5 LAST 
REF  1 

REF  8 LAST 
REF  5 LAST 

REF  11  LAST 
REF  3 LAST 

REF  1 

REF  2 LAST 

REF  1 

REF  13  LAST 

REF  12  LAST 
REF  5 LAST 

REF  3 LAST 


567  E7,1456 

26,2416 
510  26,2417 

26,2420 
571  26,2421 

26.2422 

26.2423 

26.2424 
50i-  26  ,2425 

26,2426 
504  26,2427 

26,2430 
504  26,2431 

504  26,2432 

26.2433 

26.2434 

26.2435 
581  26,2436 

26,2437 
581  26  ,2440 

26,2441 
504  26,2442 

504  26,2443 

26.2444 

26.2445 
581  26,2446 

504  26,2447 

26  ,2450 
581  26,2451 

498  26,2452 

26.2453 

26.2454 
561  26,2455 

26.2456 

26.2457 

26,2460 

581  26,2461 

26, 2462 
561  26,2463 

581  26,2464 

26,2465 
581  26,2466 


77624  1 
31210  1 
43014  0 
043C7  1 
55200  0 
02466  1 
45014  0 
00747  0 
54460  1 
27410  1 
45014  0 
C1674  0 
26643  I 
77624  1 
55242  0 
77624  1 
11210  1 
77624  1 
27410  1 
43C14  0 
C1676  1 
02756  1 
54450  1 
43014  0 
01476  0 
C1475  0 
43014  0 
C1474  1 
01673  1 
45014  0 
C1472  1 
55242  0 
77650  1 
54510  I 
77624  1 
27410  1 
45014  0 
01474  1 
26643  1 
77624  1 
55242  0 


LSR22o  3 


NOTWCSM 


EBANK= 

COUNT* 

CALL 


LOSCOUNT 

t$/LSR22 


GPP2PC 
BON  SET 

SURFFLAG 
LSR22«4 
OMENFLG 
BOFF  CALL 

VEHUPFLG 
DDLEM 
INTSTALL 
CLEAR  CALL 

VI NTFLAG 
SETIFLGS 

CALL 

I NTGRCAL 

CALL 


GRP2PC 

CALL 

INTSTALL 
CLEAR  BCFF 

DIMOFLAG 
RENCWFLG 
NDThCSM 
SET  SET 

DIMOFLAG 
D60PSFLG 
SET  CLEAR 

VI NTFLAG 
INTYPFLG 
SET  CALL 

STATEFLG 

INTGRCAL 

GCTC 


MARKTEST 

CALL 

I NTSTALL 
SET  CALL 

VINTFLAG 

SETIFLGS 

CALL 

INTGRCAL 


ARE  WE  ON  LUNAR  SURFACE 
YES 


LM  PRECISION  INTEGRATION 


CSM  WITH  W-MATRIX  INTEGRATION 


GAP : 

L 

2983 

298^ 

2985 

2966 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

299^h 

2995 

2996 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

300^ 

3005 

3C06 

30C7 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 
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USER'S  PAGE  NC,  87  E7  S3 


REF  9 

REF  14 

REF  9 
REF  6 
REF  1 

REF  10 
REF  6 

REF  4 
REF  13 

REF  2 
REF  4 

REF  7 
REF  1 
REF  1 

REF  8 
P£F  1 
REF  121 
REF  5 
REF  154 
REF  3 
REF  54 


REF  2 
REF  1 


REF  2 
REF  10 


REF  3 
REF  1 


REF  1 


REF  1 


LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 


LAST 

LAST 

LAST 


26,2467 
581  26,2470 

26,2471 
581  26,2472 

16,2473 
581  26,2474 

581  26,2475 

26.2476 

26.2477 

582  26,2500 

581  26,2  501- 

26,2502 
581  26,  2503 

581  26,2504 

26,2505 
581  26,2506 

581  26,2507 
26,2510 

582  26,2511 

26.2512 

26.2513 

26. 2514 

581  26,2515 
26,2516 

579  26,2517 

523  26,2520 

576  26,2521 

511  26,2522 

570  26,2523 

26.2524 

26.2525 
37  26,2526 

26  ,2527 

26.2530 

26.2531 

26.2532 
147  26,2533 

582  26,2534 

26.2535 

26.2536 
316  26  ,2537 

26.2540 

26.2541 

26.2542 

26.2543 

26.2544 

26.2545 

26.2546 

26.2547 
26,2550 


77624  1 
27410  1 
43C14  0 
C1676  1 
C2756  1 
54502  1 
43014  0 
01476  0 
01475  0 
43014  0 
C1673  1 
01674  0 
45014  0 
C1472  1 
55242  0 
45014  0 
02716  0 
54514  0 
55251  1 
77414  0 
04307  1 
54524  0 
3 4755  1 
55'745  1 
0 4616  1 
46123  0 
0 6C42  1 
43174  1 
00000  1 
04304  1 
54532  1 
77714  0 
00002  0 
45134  0 
C3720  I 
11210  1 
66170  1 
OQOCl  0 
01356  0 
54335  0 
01775  0 
20635  0 
77634  0 
21634  0 
C0025  0 
77624  1 
55333  1 
57414  1 


CALL 

CALL 

CLEAR 

SET 

NOTWLEM  CLEAR 

SET 

MAPKTEST  BCN 

RANGE6Q  BON 

CA 

TS 

TC 

CACR 

TC 

RANGEBQl  AXT,2 

1NCR,2 

SETX2  SXA,2 

AXT,1 

SLCAD 

RTB 

STORE 

CALL 

BON 


GRF2PC 

INTSTALL 

BOFF 

OIMOFLAG 
P ENCWFLC- 
NOTWLEM 
SET 

DI  MOFLAG 

06CR9FLG 

CLEAR 

I NTYPFLG 

VINTFLAG 

CALL 

STATEFLG 

INTGRCAL 

CALL 

RFNDWFLG 
RANGE BQ 
WLINIT 
EXIT 

SURFFLAG 

RANGEBCl 

ZERO 

R65CNTR 

BANKCALL 

R65LEM 

I NTPRFT 

BON 

0 

LMCCNFLG 

SETX2 

2 

CALL 

SCALSHFT 
GP  P2PC 
SXA,1 
1 

WHCHREAG 

SR 

RVARMl  N 
200 

TPMOOE 

200 

GETULC 

VCOMP 


LM  mTH  t<-MATRIX  INTEGRATION 


HAS  W-MATRIX  BEEN  INVALIDATED 
HAS  W-MATRIX  BEEN  INVALIDATED 

YES-REINITIAL  IZE 

DON'T  CALL  R65  IF  CN  SURFACE 


CLEAR  X2 

IS  NOON  SPHERE  OF  INFLUENCE 

YESo  STORE  ZERO  IN  SCALSHFT  REGISTER 


O-MOONe  2-EARTI- 

STORE  RANGE  CODE  (1>  FOR  R3  IN  NOUN  49 


GFT  SINGLE  PRECISION  RVARMIN  (B-12I 
SHIFT  TO  TRIPLE  PRECISION  (6-40) 


AND  SAVE  IN  200 

BEGIN  COMPUTING  THE  B-V ECTORS , DE LT AO 

B-VFCTORS  FOR  RANGE 

BO,  COMP*  IF  LM  BEING  CORRECTED 


GAP  : 

L 

3033 

303^ 

3035 

3036 

3037 

3038 

3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 
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P20-P25 


USER'S  PAGE  NCo  88  E7  S3 


REF  7 LAST 

REF  2 LAST 

REF  2 LAST 

REF  3 LAST 

REF  4 LAST 

PEF  5 LAST 

REF  2 LAST 

REF  3 LAST 

PEF  1 


REF  2 LAST 

REF  2 LAST 

REF  1 

REF  3 LAST 

REF  1 


581  26,2551 
26,2552 

147  26,2553 

37  26,2554 

583  26,2555 

583  26,2556 

26,2557 
26,2560 
26,2  561 
576  26,2562 

26.2563 

26.2564 
147  26,2565 

26.2566 

26.2567 
389  26,2570 

26.2571 

26.2572 

26.2573 

26.2574 

26.2575 

26.2576 

26.2577 
26,2600 

582  26,2601 

127  26,2602 

26. 2603 

26.2604 

26.2605 

26.2606 

26,2607 

583  26,2610 
26,2611 
26,2612 


00707  1 
54553  0 
27525  0 
06524  1 
03533  1 
17541  1 
00045  0 
44257  1 
56174  0 
03757  1 
77657  0 
56574  1 
17547  1 
00045  0 
63501  0 
C0C47  1 
53605  1 
01771  1 
20577  0 
53657  0 
20601  1 
57176  n 
47057  0 
57176  0 
21634  0 
02707  0 
76276  0 
00025  0 
72240  I 
54611  0 
00025  0 
C2707  0 
77624  1 QOK 
55401  1 


VEHUPFLG 
♦ 1 

STOVL  6VECT0R 
ZEROVECS 

STCRF  BVeCTCR  *6 
STOOL  BVECTOR  +12D 
36D 

SRR#  BDSU 
2,2 
RM 

SLR* 

2,2 

STCOL  OELTAQ 
3 6D 

NORM  DSO 
X) 

DMP  SR* 

RANGEVAR 
0 -2,1 
SR*  SR* 

0,1 

0,2 

SR*  PTB 
0 ,2 

TPMODE 

STORE  VARIANCE 
OCOMP  TAD 
200 

BMN  TLCAO 
OOK 
200 

STORE  VARIANCE 
CALL 

LGCUPOTE 


B1 

B2 


SHIFT  FROM  EARTH/MCON  SPHERE  TO  B-29 
RM  - {MAGNITUDE  RCSM-RLM) 

SHIFT  TO  EARTH/MCON  SPHERF 
EARTH  B-29o  MOON  6-27 
RLC  B-29/B-27 
NORMALIZE  AND  SQUARE 


MULTIPLY  BY  RANGEVAP(612»  THEN 
UNNORMALIZE 


8-40 

B-40 


e-40 


REF 

REF 

REF 


PEF 


4 


11 


2 


8 


LAST 

LAST 

LAST 


582 

582 

582 


583 


26. 2613  45131  0 

26.2614  01357  1 

26.2615  00002  0 

26.2616  11210  1 

26,2617  77624  1 

26.2620  55333  1 

26.2621  53725  1 

26.2622  00045  0 

26.2623  57202  0 

26.2624  24045  0 

26.2625  57414  1 

26.2626  00707  1 

26.2627  54630  0 

26.2630  77761  1 

26.2631  00045  0 


5SP 

DEC 

CALL 

POOL 

STOVL 

BON 

VXSC 


CALL 

WHCHREAD 

2 

GRP2PC 

GETULC 

SR* 

360 
0 -4,2 
360 
VCCMP 
VEHUPFLG 
+ 1 

?6D 


STORE  R-RATF  CODE  (2)  FOR  R3  IN  NOUN  49 

R-VFCTOR,DFLTAQ  FOR  RANGE  RATE 

GET  RLC  SCALED  6-29/8-27 
AND  SHIFT  TO  B-23 

THEN  STORE  BACK  IN  360 

81,  COMPo  IF  LM  BEING  CORRECTED 


B1  = RLC  ( P-24/B-22 I 


gap: 

L 

3082 

3083 

308A 

3085 

3086 

3087 

3088 

3090 

3091 

3092 

3093 

3094 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 
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USER’S  PAGE  N0«  8®  £7  S3 


REF  5 LAST  583 

REF  1 

REF  2 LAST  504 

REF  1 

REF  1 

FEF  I 

REF  4 LAST  583 

REF  1 

REF  5 LAST  584 

REF  1 

PEF  6 LAST  584 

REF  4 LAST  576 

REF  3 LAST  583 

REF  9 LAST  583 

REF  6 LAST  584 

REF  3 LAST  583 

REF  7 LAST  584 

PEF  8 LAST  584 


26. 2632 

26.2633 

26.2634 
26,  2635 
26  ,2636 
26,2637 
26,2640 
26  ,2641 

26.2642 

26.2643 

26.2644 

26.2645 
26  ,2646 
26,2647 

26.2650 

26.2651 

26.2652 

26.2653 
26  ,2654 

26.2655 

26.2656 

26.2657 
26, 2660 
26,2661 
26,2662 

26.2663 

26.2664 

26.2665 

26.2666 
26,2667 
26,2670 
26  ,2671 

26.2672 

26.2673 
26  ,2674 

26.2675 

26.2676 

26.2677 

26.2700 

26.2701 

26.2702 

26.2703 
26  ,2704 

26.2705 

26.2706 

26.2707 

26.2710 

26.2711 

26.2712 

26.2713 


27533  1 
01653  0 
53257  1 
57170  0 
01667  1 
537X5  I 
01601  1 
571  70  0 
.52255  1 
01615  1 
50315  0 
COOOl  0 
00007  0 
53606  1 
56174  0 
57316  1 
Cn73  C 
02707  0 
54335  0 
C1776  0 
20621  0 
00C31  0 
50025  0 
02707  0 
54666  0 
77745  1 
00031  0 
C2707  0 
61545  0 VOK 
53725  1 
03751  1 
56577  1 
77625  0 
77675  0 
00045  0 
27547  1 
00001  0 
47235  0 
57414  1 
00707  1 
54703  1 
77657  0 
57200  I 
27525  0 
06524  1 
00025  U 
27541  1 
03525  0 
60246  1 
00025  0 


STCVL  DVECTCR  +6 
NUVLEM 
VSR*  VAC 
6,2 

VCVLEM 
PDVL  VSR* 

NUVCSM 

6 ,2 

VAO  VSU 

VCVCSM 
PCVL  DOT 
0 
6 

PUSH  SRR* 

2,2 

DSO  OMPR 

PATEVAR 

STORE  VARIANCE 
SLCAO  SR 

WARM!  N 
16D 

STORE  24C 
DSU  BMN 

VARIANCE 

VPK 

OLOAD 

240 

STORE  VARIANCE 
OLOAO  SR  2 
PCCL  SLR* 

RDOTM 

0 -1,2 

DSU 

DMPR 

36D 

STCVL  OELTAO 
0 

VXV  VXV 
BON  VCOMP 

VEHUPFLG 
♦ 1 

VSR* 

0 -2,2 

STCVL  BVECTCR 
ZEROVECS 
STORE  200 
STOVL  bVECTGR  +120 
BVECTOR 
ABVAL  NORM 
200 


SHIFT  FOR  EAPTH/MCCN  SPHERE 
EARTH  B-7,  MOON  P-5 
VL  TO  P06 

SHIFT  FOR  EARTH/MOON  SPHERE 


VC  - VL  = VLC  TO  PDF 


ROOT  B-8/B-6  TO  P012 

SHIFT  FRCM  EAPTH/MCCN  SPHERE  TO  B-8 
R0DT#*2  B-16  X PATEVAR  B12 


GET  SINGLE  PRECISION  VVARMIN  (B+12) 
SHIFT  TO  OP  ( B -4 ) 

AND  SAVE  IN  24D 

IS  MINa  VARIANCE  > COMPUTED  VARIANCE 
BRANCH  - NO 

YES  - USE  MINIMUM  VARIANCE 


RDOT(P012)  FROM  B-P/B-6 
TO  B-lO/B-8 

SHIFT  TO  EARTH/MCCN  SPHFRE 
R-7  TO  8-10/B-8 


E-33 

NOk^  GET  BO 

(ULC  X VLC)  X ULC 

BO,  COMPo  IF  LM  BEING  CORRECTED 


SCALED  B-5 


ZFRO  OUT  20  TO  25  IN  PUSHLIST 


LOAD  BO,  GET  MAGNITUDE  AND  NORMALIZE 
SHIFT  COUNT  IN  20C 


GAP; 

L 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3140 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 

3158 

3150 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 
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USER*  S PAGE  NG,  9C  E7  S3 


REF  9 LAST 

REF  1 

REF  1 

REF  10  LAST 

REF  11  LAST 
REF  12  LAST 

REF  13  LAST 
REF  4 LAST 

REF  5 LAST 

PEF  7 LAST 

REF  3 LAST 
REF  0 LAST 
REF  2 LAST 


26,2714 

504  26,2715 
26  ,2716 
26,271 7 

26.2720 

26.2721 

26.2722 

26.2723 

26.2724 

26.2725 

26.2726 

26.2727 

26.2730 

26.2731 
585  26,2732 

26,2733 
585  26,2734 

505  26,2735 
26  ,2736 
26,2737 

585  26,2740 

584  26  ,2741 

26.2742 

26.2743 

585  26,2744 
26,2745 
26  ,2  746 
26,2747 
26,2750 

564  26  ,2751 

26,2752 
583  26,2753 

585  26,2754 

583  26,2755 


C3533  1 
71301  0 
00027  1 
00027  1 
50025  0 
C0C25  0 
54727  1 
52150  1 
C0026  C 
54731  0 
77750  0 VCKl 
00024  1 
53775  1 V0K2 
03525  C 
20201  0 
27525  0 
C3533  1 
77657  0 
2C201  0 
17533  1 
03547  1 
77657  0 
20201  0 
03547  1 
53745  1 
00045  0 
20200  1 
41316  0 
02707  0 
47C12  1 
21634  0 
36707  1 
55401  1 


VLCAD  ABVAL 

6VECT0R  +60  LHAC  B1 , GET  MAGNITUDE  AND  NORMALIZE 

NORM  DLOAD 

22C  SHIFT  COUNT  IN  22D 

220  FIND  WHICH  SHIFT  IS  SMALLER 

OSU  BMN  BRANCH-  60  HAS  SMALLER  SHIFT  COUNT 

200 
VOKl 
LXA,]  GOTC 

220  LOAD  X2  WITH  THE  SMALLER  SHIFT  COUNT 

V0K2 

LXA,1 

200 

VLOAD  VSL*  THEN  ADJUST  BO,Bi,nELTAO  AND  VARIANCE 

BVECTOR  WITH  THIS  SHIFT  COUNT 

0,1 

STCVL  BVECTOR 

6VECTCR  +6 

VSL# 

0,1 

STOOL  BVECTOR  +6 
DELTAO 

SL* 

0,1 

STCRE  DELTAQ 

DLOAD  SL#  GET  RLC  AND  ADJUST  FOR  SCALE  SHIFT 

360 

0 -1  ,1 

OSQ  OMP  MULTIPLY  RLC**2  BY  VARIANCE 

VARIANCE 

SL4  RTB  SHIFT  TO  CONFORM  TO  BVECTORS  AND  DELTAQ 

TPMODE 

STCALL  VARIANCE  AND  STORE  TP  VARIANCE 

LGCUPDTF 


26,2756  77624  I CALL 

REF  12  LAST  583  26,2757  11210  1 

26,2760  7741^  0 BON 

REF  9 LAST  582  26,2761  04307  1 

REF  1 26,2762  55176  1 

REF  5 LAST  576  E7,1457  tBANK= 

REF  1 26,2763  2 3332  0 MXMYMZ  CAF 

REF  14  LAST  460  26,2764  54  0C6  C TS 

REF  6 LAST  585  26,2765  3 1457  0 CA 

REF  13  LAST  576  26,2766  54  765  1 TS 

REF  2 LAST  576  26,2767  3 1460  1 CA 

REF  14  LAST  585  26  ,2770  54  767  0 TS 

REF  5 LAST  576  26,2771  3 1461  C CA 

REF  15  LAST  585  26,2772  54  771  1 TS 

PCF  55  LAST  582  26,2773  0 6042  1 TC 


GRP2PC 

EXIT  ARE  ANGLES  TO  BE  DCNE 

SURFFLAG 

RENDFND  NO 

A IG 

AIGBANK 

B6ANK 

AIG  YES,  COMPUTE  MX,  MY,  MZ 

CDUSPOT 

AMG 

CDUSPOT  +2 
AOG 

CDUSPOT  +4  GIMBL  ANGLES  NOW  IN  CDUSPOT  FCR  TRG*NBSM 

INTPRET 


GAP : 

L 

3181 

3182 

3183 

316^ 

3185 

3186 

3107 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

319ft 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228 

3229 

3230 
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USER'S  PAGE  N0«  °1  E7  S3 


REF  5 LAST 

REF  4 LAST 

REF  10  LAST 

REF  5 LAST 

REF  3 LAST 

REF  2 LAST 

REF  11  LAST 

REF  2 LAST 

REF  5 LAST 

REF  3 LAST 

REF  12  LAST 

REF  2 LAST 

REF  I 

REF  5 LAST 

REF  2 LAST 

REF  6 LAST 

REF  6 LAST 

REF  3 LAST 

REF  3 LAST 

REF  6 L AST 

REF  3 LAST 

REF  3 LAST 

REF  1 


REF  2 LAST 


REF  2 LAST 

REF  6 LAST 

REF  4 LAST 

REF  3 LAST 


REF  10  LAST 


26,2774 

341  26,2775 

254  26,2776 

26,2777 
571  26,3000 

147  26,3001 

302  26  ,3302 

26,3003 
554  26,3004 

26,3005 
586  26,3006 

147  26,3007 

342  26,3010 
26,3011 

506  26,3012 

26,3013 
586  26,3014 

147  26,3015 

26. 3016 

26.3017 

583  26,3020 
26,3021 

147  26,3022 

26,3023 
586  26,3024 

482  26,3025 

586  26,3026 

26,3027 
586  26,3030 

482  26,3031 

482  26,3032 

26,3033 
576  26,3034 

26.3035 

26. 3036 

26.3037 
198  26,3040 

26.3041 

26 .3042 

26.3043 
147  26,3044 

26  ,3045 

585  26,3046 

586  26,3047 
26,3050 

566  26,3051 

26.3052 

26.3053 

584  26,3054 
26,3055 


47666  1 
76505  0 
01734  0 
27677  1 
06520  0 
77624  1 
47675  0 
76505  0 
01734  0 
27705  0 
06516  0 
77624  1 
47675  0 
76505  0 
01734  0 
37713  0 
55361  0 
77331  0 
01357  1 
00003  I 
03724  0 
72441  C 
03677  1 
24023  0 
03724  0 
72441  0 
C3713  1 
34021  0 
26506  0 
41221  0 
03736  0 
15441  1 
41472  0 
52545  1 
01701  n 
44257  1 
56176  1 
53605  1 
03722  0 
21601  0 
27547  1 
03724  0 
76435  1 
03705  0 
77656  1 
57414  1 
00747  0 
55056  1 


SHAFTBC 


VLOAO 

VXM 

STOVL 

CALL 

VXR 

STCVL 

CALL 

VXP 

STCALL 

SSP 

DEC 

DGT 

STOVL 

DOT 

STCALL 

BOSU 

SL3R 

DLOAD 

SRR# 

OPP 

STCVL 

vxv 


CALL 

UNITY 

TRG*NeSP 

VSLl 

REFSMMAT 

MX 

UNITY 

*NBSM« 

VSLl 

REFSMPAT 

MY 

UNITZ 

#N8SM# 

VSLl 

PEF  SMMAT 
MZ 

RAOARANG 

VLOAO 

HHCHREAC 

3 

ULC 

SLl 

MX 

S INTH 
ULC 
SLl 
MZ 

COSTH 

APCTAN 

DMP 

RRSHAFT 
2P  1/8 
PUSH 
SL3 
X7a9 
BOSU 
0,2 
SRR* 

R XZ 

0,1 

OELTAO 

ULC 

VSLl 

MY 


UNIT 

BCFF  VCOMP 

VEHUPFLG 
+ 1 


STORE  SHAFT  CODE  (31  FOR  R3  IN  NOUN  49 


180 


160 


SHIFT  FROM  -5/-3  TO  80 


SHIFT  TO  EARTH/MOON  SPHERE 
EARTH  B-29<.  MOON  B-27 


BO,  COMPo  IF  CSM  BEING  CORRECTED 


GAP  : 

L 

3231 

3232 

3233 

3234 

3235 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

324fl 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

32b0 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

32  69 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3270 

3279 
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USER  'S  PAGE  NOe  92  E7  S3 


REF  14  LAST  585 
REF  4 LAST  584 
REF  15  LAST  587 
REF  16  LAST  587 
REF  3 LAST  586 


REF  17  LAST  587 
REF  1 
REF  1 

REF  4 LAST  587 


REF  5 LAST  587 


REF  h LAST  585 

REF  9 LAST  585 

REF  3 LAST  585 


26,3056  27525  0 

26  ,3057  06524  1 

26,3060  03533  I 

26,3)61  17541  1 

26.3062  03722  0 

26.3063  53657  0 

26.3064  20577  0 

26.3065  56176  1 

26.3066  03541  1 

26.3067  77735  0 

26.3070  02011  0 

26.3071  41215  1 

26.3072  15436  1 

26.3073  C3722  0 

26.3074  41257  1 

26.3075  21601  0 

26.3076  03722  0 

26.3077  53657  0 

26,3100  20577  0 

26,  3101  57176  0 

26.3102  47057  0 

26.3103  57176  0 

26.3104  21634  0 

26 .3105  36707  1 

26.3106  55401  1 


STOVL  BVECTOR 
ZEROVECS 

STORE  BVECTOR  +6 
STOOL  BVECTOR  +12D 
RX  Z 

SR*  SRR*  SHIFT  FROM  FARTh/MCCN  SPHERE  TO  B-25 

0 -2,  1 

0,2 

STORE  BVECTOR  +120 

SLOAD 

SHAFTVAR 
UAD  DMP 

IMUVAR  RAD**2  B12 

RXZ 

SRR*  DMP 

0,1  SHIFT  TO  EARTH/MOON  SPHERE 

F XZ 

SR*  SR* 

0 -2,1 

0,2 

SR*  RTB 

0,2 

TPMOOE  STORE  VARIANCE  TRIPLE  PRECISION 

STCALL  VARIANCE  B-40 

LGCUPDTE 


REF  13  LAST 

REF  2 LAST 

REF  6 LAST 

REF  5 LAST 

REF  4 LAST 

REF  6 LAST 

REF  11  LAST 

REF  18  LAST 
REF  5 LAST 
REF  19  LAST 
REF  20  LAST 
REF  6 LAST 

REF  21  LAST 


26,3107 

585  26,3110 
26,3) 11 

586  26,3112 
26,3113 

506  26,3114 

26  ,3115 
506  26,3116 

26,3117 
586  26,3120 

26,3121 
537  26,3122 

26,3123 

586  26,3124 
26,3125 

587  26,3126 

587  26,3127 

587  26,3130 

587  26,3131 

567  26,3132 

26.3133 

26.3134 

26.3135 
587  26,3136 


77624  1 
55361  0 
77331  0 
01357  1 
00004  0 
03724  0 
76435  1 
03705  0 
76435  1 
03724  0 
57414  1 
00747  0 
55126  1 
27525  C 
06524  1 
03533  1 
17541  1 
03722  0 
53657  0 
20577  0 
56176  1 
03543  0 


TRLN3Q 


CALL 

GRP2PC 

CALL 

R ADARANG 

SSP  VLOAC  STORE  TRUNNION  CODE  (4)  FOR  R3  IN  N49 

WHCHREAD 
CEC  4 

ULC 

VXV  VSLl 

MY 

VXV  VSLl  (ULC  X MY ) X ULC 

ULC 

BOFF  VCOMP  60,  COMPo  IF  CSM  BEING  CORRECTED 

VEHUPFLG 
+ 1 

STCVL  BVECTCR 

Z EROVEC  S 

STORE  BVECTOR  +6 

STQDL  BVECTOR  +120 

RXZ 

SR*  SRR*  SHIFT  FROM  EARTH/MCON  SPHERE  TO  B-25 

C -2,1 

0,2 

STORE  BVECTOR  +140 


gap: 

L 

3280 

32B1 

3282 

3203 

3284 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

R3313 

R3314 

R3315 

R3316 

R3317 

R3318 

R3319 

R3320 

R3321 

R3322 

R3323 

R3324 

R3325 
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USER'S  PAGE  NGo  93 


E7  S3 


KEF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 


LAST  587 
LAST  587 


LAST  576 
LAST  586 
LAST  586 


9 LAST  588 


REF  14  LAST  587 


REF  1 

FUNCTIONAL  OESCKIPTI 


,3137 
,3140 
,3141 
,3142 
,3143 
,3144 
,3145 
,3146 
,3147 
, 3150 
,3151 
,3152 
, 3153 
,3154 
,3155 
,3156 
,3157 
,3160 
,3161 
,3162 
, 3163 
,3164 
,3165 
, 3166 
,3167 
,3170 
,3171 
,3172 
,3173 
,3174 
,3175 
,3176 
,3177 


77735  0 
02012  0 
41215  1 
15436  1 
03722  0 
41257  1 
21601  0 
03722  0 
53657  0 
20577  0 
57176  0 
47057  0 
57176  0 
21634  0 
16707  0 
03732  I 
44336  1 
C3734  1 
56405  0 
15441  1 
52525  1 
01703  1 
44257  1 
56176  I 
53605  1 
03722  0 
21601  0 
37547  0 
55401  1 
77624  1 
11210  1 
77650  1 
50562  0 


SLOAO 

OAO 


TRUNVAR 
DMP 
I MUVAR 
RXZ 
DMP 
0,1 
P xz 
SRI- 
0 -2,1 
0,2 
PT  8 
0,2 

TPMOOE 
VAR  I ANCE 
SI  NTHE  TA 
8DSU 
FRTRUN 
SL3R 
2P  1/8 
SL3 

X789  +2 
BOSU 
0,2 


0,1 

STCALL  OELTAO 

LGCUPOTE 

CALL 

GRP2  PC 

GOTO 

R22LEM93 


SHIFT  TO  EARTH/MOGN  SPHERE 


STORE  VARIANCE  TPIPLF  PRECISION 

SIN  THETA  IN  PD6 

SHIFT  FROM  -5/-^  TO  BO 

EARTH  8-29c  MOON  6-27 


LSR22o4  IS  THE 
COMPUTER  ONLYo 
ANC  RANGE  RATE 


ENTRY  TO  PERFORM  LUNAR  SURFACE  NAVIGATION  FOR  THE  LM 
THIS  ROUTINE  COMPUTES  THE  B-VECTORS  AND  CELTA  C FOR  RANGE 
MEASURED  BY  TFE  RENDEZVOUS  RADAR 


SLBROLTINES  CALLED 

INSTALL  LGCLPUTE  INCORPl  RP-TO-R 

INTEGRV  G6TULC  INC0RF2 


OL7PL7 
CORRECTED 
NUMBER  OF 
MAGNITUDE 
MAGNITUCE 
UPDATED  W 


CSM  STATE  VECTOR  (PERMANENT! 

MARKS  INCCRPORATEC  IN  MARKCTR 
OF  POSITICN  DEVIATION  (FOR  DISPLAY 
OF  VELOCITY  DfcVIATICN  (FOR  DISPLAY 
-MATRIX 


IN  R220ISP 
IN  R22DI SP 


METERS  R-29 
+ 2 M/CSEC  B-7 


GAP: 

L 

R3326 

R3327 

R3328 

R3329 

R3330 

R3331 

R3332 

3333 

333^ 

3335 

3336 

3337 

333P 

3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3350 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

R3367 

3368 

3369 

3370 
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P20-P25  USER'S  PAGE  N0«  94  E7  S3 

ERASAELE  INITIALIZATION  REQUIRED 
LM  AND  CSM  STATE  VECTORS 
W-MATRIX 

MARK  T IM£  IN  MKT  IME 

RADAR  RANGE  IN  RM  METERS  B-29 

RANGE  RATE  IN  ROUTM  METERS/CSEC  8-7 
VEHUPFLG 


REF  15 

REF  3 
REF  14 

REF  5 

REF  15 

REF  2 
REF  16 

REF  3 
REF  1 

REF 
REF 

REF 
REF 

REF 

REF 


LAST  582 

LAST  582 
LAST  582 

LAST  582 

LAST  588 

LAST  581 
LAST  589 

LAST  510 


7 LAST  582 
11  LAST  582 

15  LAST  589 

5 LAST  582 

6 LAST  589 
2 LAST  582 


26.3200 

26. 3201 

26.3202 

26.3203 

26.3204 

26.3205 

26.3206 

26.3207 

26.3210 

26. 3211 

26.3212 

26.3213 
26, 321A 

26.3215 

26.3216 

26.3217 

26.3220 

26. 3221 

26.3222 

26.3223 
26, 322A 

26.3225 

26.3226 

26.3227 
26,3230 


27A10  1 
43014  0 
01472  1 

01674  0 
77624  1 
552A2  0 
77624  1 
11210  1 
A5014  0 
02666  0 
27410  I 
A6145  0 
03463  0 
55231  1 
A3C1A  0 

01675  1 
C1A76  0 
43014  0 
01474  1 
01673  1 
77624  1 
55242  0 
77650  1 
54514  0 


4 CALL 

INTSTALL 
SET  CLEAR 

STATEFLG 

VINTFLAG 

CALL 

I NTGRCAL 

CALL 

GRP2PC 
CLEAR  CALL 

DMENFLG 
INTSTALL 
DLQAD  8HIZ 

MARKCTR 
1NITWMX6 
CLEAR  SET 

060R9FLG 
01 MOFLAG 
SET  CLEAR 

VINTFLAG 

INTYPFLG 

CALL 

INTGRCAL 

GOTO 

RANGEBQ 


CALL  TO  GET  LM  POS  + VEL  IN  REP  COORD., 


SET  MATRIX  SIZE  TO  6X6  FOR  INCOPP 
IS  THIS  FIRST  TIME  THROUGH 
YESc  INITIALIZE  6X6  W-MATRIX 


REF  2 LAST  582 

REF  16  LAST  589 

REF  6 LAST  581 

REF  7 LAST  589 

REF  3 LAST  589 


26.3231  77624  1 

26.3232  55251  1 

26.3233  45C14  0 

26.3234  01474  1 

26.3235  26643  1 

26.3236  77624  1 

26.3237  552A2  0 

26.3240  77650  1 

26.3241  54514  0 


INITWMX6  CALL 
SET 


CALL 

GOTO 


WLINIT 

CALL 

VI NTFLAG 
SETIFLGS 


INTGRCAL 


RANGEBC 


INI TIALIZE  W-MATPI X 


THIS  RCUTINE  CLEARS  RFINAL  (CP)  ANO  CALLS  INTEGRV 


1 


26.3242  71220  1 INTGRCAL  STC  DLCAO 

26.3243  03675  0 IGRET 

26.3244  03755  0 MKTIME 


REF 

REF 


6 LAST  576 


GAP  : 

L 

3371 

3372 

3373 

337^ 

R3375 

R3376 

3377 

3378 

3379 

3380 

3301 

3382 

33B3 

: 
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P20-P25  USER'S  PAGE  NOo  95  E7  S3 

REF  10  LAST  576  26,3245  34041  0 STCALL  TOECl 

REF  8 LAST  504  26  ,3246  27133  0 INTEGPV 

26,3247  7765C  1 GOTO 

REF  2 LAST  589  26,3250  03675  0 IGRET 

THIS  ROUTINE  INITIALIZES  THE  l^-^'ATRIX  BY  ZEROING  ALL  W THEN  SETTING 
CIAGCNAL  ELEMENTS  TO  INITIAL  STORED  VALUESo 


M 

WBANK 
BBANK 
WSIZE 
Wo  I NO 
ZERO 


REF  4 

REF  1 
REF  15 
PEF  1 
REF  2 
REF  122 
)^|  3 


26,3252 
26  ,3253 

26.3254 

26.3255 

26.3256 


77776  1 hLINIT 
3 3231  0 
54  C06  0 
3 3437  1 
55»256  0 
3 4755  1 
= i »:  = i 1 


EBANK= 

EXIT 

CAF 


UNIT  NAf'E  -00E-*  TYPE  10  -PN 


PCCE  -NC  FOLD- 


123A567890XY/STUVWI  :_'',=JKLHNOPOR-Z(  ABCDEFGHI+p  * ?>1 23  A567890XY /STUVHj : = JKLMNOPOR-Z  ( ABCDEFGHI +<,  ) ;-.  • ?> 

12345  67e90XY/STUVh|  = JKLMNCPQR-Z  ( ABCD6  FGh  1 +,  ) ?S*#£a<  ; ' ?>1234567890X  Y/STUV  W | ,=JKLMNOPOR- Z < APCDEF6HI +„  ) 


GAP: 

L 

2983 

2984 

2985 

2966 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3000 

3001 

300  2 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3026 

3029 

3030 

3031 

3032 
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P20-P25 


USER'S  PAGE  NCa  87 


67  S3 


REF  9 

REF  14 

REF  9 
REF  6 
REF  1 

REF  10 
REF  6 

REF  4 
REF  13 

PEF  2 
REF  4 

REF  7 
REF  1 
REF  1 

REF  8 
REF  I 
REF  121 
REF  5 
REF  154 
REF  3 
REF  54 


REF  2 
REF  1 


REF  2 
REF  10 


REF  3 
REF  1 


REF  1 


REF  1 


LAST  581 

LAST  581 

LAST  581 
LAST  581 


LAST  582 
LAST  581 

LAST  581 
LAST  581 

LAST  581 
LAST  561 

LAST  582 


LAST  581 

LAST  579 
LAST  523 
LAST  576 
LAST  511 
LAST  578 


LAST  37 


LAST  147 
LAST  582 


LAST  316 


26,2467 

26.2470 

26.2471 

26.2472 

26.2473 

26.2474 

26.2475 

26.2476 

26.2477 

26.2500 

26.2501 

26.2502 

26.2503 

26.2504 

26.2505 

26.2506 

26.2507 

26.2510 

26.2511 
26,25X2 

26.2513 

26.2514 

26. 2515 

26.2516 

26.2517 
26,2520 
26  ,2521 

26.2522 

26.2523 
26  ,2524 

26.2525 

26.2526 

26.2527 

26.2530 

26.2531 

26.2532 

26.2533 

26.2534 

26.2535 

26.2536 
26,2527 
26, 2540 
26  ,2541 

26.2542 

26.2543 
26  ,2544 

26.2545 

26.2546 

26.2547 
26,2550 


77624  1 
11210  1 
77624  1 
27410  1 
43014  0 
01676  1 
C2756  1 
54502  1 
43014  0 
01476  0 
01475  0 
43C14  0 

01673  1 

01674  0 
45014  0 
01472  1 
55242  0 
45014  0 
02716  0 
54514  0 
55251  1 
77414  0 
C43C7  1 
54524  0 

3 4755  1 

55'745  1 

0 4616  1 
46123  0 

0 6042  1 
43174  1 
COOOO  1 
04304  1 
54532  1 
77714  0 
00002  0 
A5134  0 
03720  1 
11210  1 
66170  1 
00001  0 
01356  0 
54335  0 
01775  0 
20635  0 
77634  0 
21634  0 
CCC25  C 
7762A  1 
55333  I 
57414  1 


CALL 

CALL 

CLEAR 


SET 


NCTWLEM  CLEAR 


SET 


MARKTEST  BON 


RANGEBQ  BON 


CA 

TS 

TC 

CADR 

TC 

RANGEBQl  AXT,2 


INCR  ,2 

SETX2  SXA,2 

AXT,1 

SLOAO 

RTB 

STORE 

CALL 

BON 


GRP2PC 

INTSTALL 

BOFF 

OIMOFLAG 

RENDWFLG 

NOTWLEM 

SET 

01 MOFLAG 

D60R9FLG 

CLEAR 

INTYPFLG 

V INTFLAG 

CALL 

STATEFLG 

INTGRCAL 

CALL 

RENDWFLG 
RANGEBQ 
WLINIT 
EX  IT 

SURFFLAG 

PANGEBOI 

ZERO 

R65CNTR 

BANKCALL 

R65LeM 

INTPRET 

BON 

0 

LMOONFLG 

SETX2 

2 

CALL 

SCALSHFT 

GRP2PC 

SXA,5 

1 

WHCHREAD 

SR 

RVARMIN 

280 

TPMOOE 

20C 

GETULC 

VCOMP 


LM  WITH  W-MATRIX  INTEGRATION 


HAS  W-MATRlX  BEEN  INVALIDATED 
HAS  W-MATRIX  BEFN  INVALIDATED 


YES-REI NITI AL I ZE 

DON'T  CALL  R65  IF  ON  SURFACE 


CLEAR  X2 

IS  MOON  SPHERE  OF  INFLUENCE 

YESc  STORE  ZERO  IN  SCALSHFT  REGISTER 


O-MCON*  2-EARTH 

STORE  RANGE  CODE  (1)  FOR  R3  IN  NOUN  4° 


GET  SINGLE  PRECISICN  RVARMIN  (B-12) 
SHIFT  TO  TRIPLE  PRECISION  (B-40) 


AND  SAVE  IN  20D 

BEGIN  COMPUTING  THE  B- VECTORS , DE LT AO 

e-VECTORS  FOP  RANGE 

eo,  COMP®  IF  LM  BEING  CORRECTED 


gap: 

L 

3033 

303A 

3035 

3036 

3037 

3038 

3039 

30AO 

30A1 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

304? 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 
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P20-P25 


USER'S  PAGE  NCc  88  E7  S3 


REF  7 LAST 

REF  2 LAST 

REF  2 LAST 

REF  3 LAST 

REF  4 last 

REF  5 LAST 

REF  2 LAST 

REF  3 LAST 

REF  1 


REF  - 2 LAST 

REF  2 LAST 

REF  1 

REF  3 LAST 

REF  1 


581  26r255l 
26,2552 

I'^T  26,2553 
37  26,2554 

5fa3  26,2555 
583  26,2556 

26,2557 

26.2560 

26.2561 
576  26,  2.562 

26.2563 

26.2564 
147  26,  2565 

26.2566 

26.2567 
389  26,2570 

26.2571 

26. 2572 

26.2573 

26.2574 

26.2575 

26.2576 

26.2577 
26,2600 

582  26  ,2601 

127  26,2602 

26.2603 

26.2604 

26.2605 
26  ,2606 
26,2607 

583  26,2610 
26,2611 
26, 2612 


27525  0 
06524  1 
03533  1 
17541  1 
0CC45  0 
44257  1 
56174  0 
03757  I 
77657  0 
56574  I 
17547  1 
00045  0 
63501  0 
00047  1 
53605  I 
01771  1 
20577  0 
53657  0 
20601  1 
57176  0 
47057  0 
57176  0 
21634  0 
02707  0 
76276  0 
00025  0 
72240  1 
54611  0 
00025  0 
02707  C 
77624  1 QOK 
554C1  1 


VEHUPFLC 
+ 1 

STOVL  BVECTOR 
ZEROVECS 

STORE  BVECTOR  +6  B1 

STOOL  BVECTOR  +12D  B2 

360 

SRR#  BDSU 

2,2  SHIFT  FROM  EARTH/MGON  SPHERE  TO  B-29 

RM  RM  - (MAGNITUOE  PCSM-RLM) 

SLR4 

2,2  SHIFT  TO  EAFTH/MOCIN  SPHERE 

STOOL  DELTAC  EARTH  B-29c  MOON  B-27 

360  RLC  B-29/6-27 

NORM  OSC  NORMALIZE  AND  SQUARE 

XI 

DMF  SR* 

PANGEVAR  MULTIPLY  BY  R ANGEV AR ( 81 2 ) THEN 

0 -2,1  UNNOPMALIZE 

SR*  SR* 

0,1 

0,2 

SR*  RTB 

0,2 

TPMODE 

STORE  VARIANCE  8-^0 

DCOMP  TAD 

200  e-40 

6MN  TLCAO 

QOK 

2 00  B-40 

STORE  VARIANCE 

CALL 

LGCUPDTE 


REF  4 LAST  582 

REF  11  LAST  582 

REF  2 LAST  582 

REF  8 LAST  583 


26.2613  45131  0 

26.2614  01357  1 

26.2615  C0002  0 

26.2616  11210  1 

26,2617  77624  1 

26.2620  55333  1 

26.2621  53725  1 

26.2622  00045  0 

26.2623  57202  0 

26.2624  24045  0 

26.2625  57414  1 

26.2626  00707  1 

26.2627  54630  0 

26,2630  77761  I 

26  ,2631  00045  0 


SSP  CALL 

WHCHREAC 
DEC  2 

6RP2PC 

CALL 


GETULC 
POOL  SR* 

360 
0 -4,2 
STCVL  36C 
BON  VCGMP 

VEHUPFLG 
♦ I 

vxsc 

360 


STORE  R-RATE  CODE  (2)  FOR  R3  IN  NOUN  49 

B-VECTOR ,DELT AQ  FOR  RANGE  RATE 

GET  RLC  SCALED  P-2S/B-27 
AND  SHIFT  TO  B-23 

THEN  STORE  BACK  IN  360 

81,  CUMP«  IF  LM  BEING  COPRFCTEO 


B1  = RLC  (B-24/B-22> 


GAP : 

L 

3082 

3083 

308A 

3085 

3086 

3087 

3008 

3089 

3090 

3091 

3092 

3093 

3094 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

311) 

3112 

3113 

31)4 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 
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USER'S  PAGE  NO.  89  E7  S3 


REF  5 LAST 

REF  1 

REF  2 LAST 

REF  1 


REF  1 


REF  ! 

REF  4 LAST 

REF  1 

REF  5 LAST 

REF  1 


REF  6 LAST 

REF  4 LAST 


REF  3 LAST 


PEF  9 LAST 


REF  6 LAST 
REF  3 LAST 


REF  7 LAST 
REF  8 LAST 


583  26,2632 

26.2633 

26. 2634 

26.2635 
504  26,2636 

26,2637 

26.2640 

26.2641 

26.2642 
26  ,2643 

26.2644 

26.2645 

26.2646 

26. 2647 
26  ,2650 

26.2651 

26.2652 

583  26  ,2653 

26.2654 

26.2655 

26.2656 

26.2657 
26,2660 

584  26,2661 
26,2662 
26  ,2663 
26,2664 

564  26,2665 

26,2666 
26,2667 
576  26,2670 

26.2671 

26.2672 
26  ,2673 
26,2674 

583  ^6,2675 

26  ,2676 
26,2677 
26,2700 

583  26,2701 
26,2702 
26  ,2703 
26,2704 

584  26,2705 

583  26  ,2706 
26,2707 

584  26,2710 

584  26,2711 

26.2712 

26.2713 


27533  1 
C1653  0 
53257  1 
57170  0 
01667  1 
53715  1 
01601  1 
57170  O 
52255  1 
01615  I 
5C315  0 
00001  0 
00007  0 
536C6  1 
56174  0 
57316  1 
01773  0 
02707  0 
54335  0 
01776  C 
20621  0 
00031  0 
50025  0 
02707  0 
54666  0 
77745  1 
C0031  0 
02707  0 
60545  0 
53725  1 
03751  1 
56577  1 
77625  0 
77675  0 
00045  0 
27547  1 
00001  0 
47235  0 
57414  1 
00707  1 
54703  1 
77657  0 
57200  1 
27525  0 
06524  1 
00C25  0 
27541  1 
C3525  0 
60246  1 
00025  0 


VOK 


STOVL  BVECTOR  +6 
NUVLEM 
VSR*  VAO 
6,2 

VCVLEM 
POVL  VSR* 

NUVCSM 

6 ,2 

VAD  VSU 

VCVCSM 
PDVL  DOT 
0 
6 

PUSH  SRR* 

2,2 

OSC  DMPR 

PATEVAR 

STORE  VARIANCE 
SLOAO  SR 

VVARMI N 
160 

STORE  2^'0 
OSU  BMN 

VARIANCE 

VOK 

OLOAO 

240 

STORE  VARIANCE 
□LOAD  SR2 
POOL  SLR* 

ROOTM 

0 -1  ,2 

DSU 

CMPR 

360 

STOVL  DELTAO 
0 

vxv  vxv 

BON  VCOMP 

VEHUPFLG 
+ 1 

VSR* 

0 -2  ,2 

STOVL  BVECTOR 
ZEROVECS 
STCRE  20C 
STOVL  BVECTOR  +120 
BVECTOR 
ARVAL  NORM 
200 


SHIFT  FOR  EAPTH/MCCN  SPHERE 
FARTH  6-7n  MOON  B- 5 
VL  TO  PD6 

SHIFT  FOR  EARTH/MOQN  SPHERE 


VC  - VL  = VLC  TO  PD6 


ROOT  B-8/8-6  TO  P012 

SHIFT  FROM  EARTH/MCON  SPHERE  TO  B-8 
R00T*#2  B-16  X PATFVAP  B12 


GET  SINGLE  PRECISION  VVARMIN  (B+12» 
SHIFT  TO  OP  (6-4) 

AND  SAVE  IN  240 

IS  MINo  variance  > COMPUTED  VARIANCE 
BRANCH  - NO 

YES  - USE  MINIMUM  VARIANCE 


RDDT(PD12)  FROM  B-R/B-6 
TO  P-10/ 0-8 

SHIFT  TO  EARTH/MOON  SPHERE 
B-7  TO  B-lO/B-8 


B-33 

NOW  GET  BO 

(ULC  X VLC)  X ULC 

BO,  CQMPe  IF  LM  BEING  CORRECTED 


SCALED  B-5 


ZERO  OUT  20  TO  25  IN  PUSHLIST 


LOAC  Bf),  GET  MAGNITUDE  AND  NORMALIZE 
SHI  FT  COUNT  IN  200 


gap:  assemble  revision  131  OF  AGC  PRCGRAP  LUMINARY  BY  NASA  2C21U2-Ogi 
L P20-P25 


17:53  DEC»  19,1069  LEPP20S  n\^5  PAGE  585 
USER'S  PAGE  NOo  90  E7  S3 


3132 

3133  REF 

3134 

3135 

3136 

3137 

3138 

3139  REF 

3140 

3141 

3142  REF 

3143 

3144 

3145 

3146  REF 

3147 

3148  REF 

3149  REF 

3150 

3151 

3152  REF 

3153  REF 

3154 

3155 

3156  REF 

3157 

3158 

3159 

3160 

3161  REF 

3162 

3163  REF 

3164  REF 

3165  REF 


9 


1 


1 


10 

11 

12 


13 

4 


5 


8 

2 


LAST  564 


LAST  585 

LAST  585 
LAST  565 


LAST  585 
LAST  584 


LAST  585 


LAST  584 

LAST  503 
LAST  585 
LAST  583 


26.2714 

26.2715 

26.2716 

26.2717 
26  ,2720 

26.2721 

26.2722 

26.2723 

26.2724 

26.2725 

26.2726 

26.2727 
26  ,2730 

26.2731 

26.2732 
26  ,2733 

26.2734 

26.2735 

26.2736 

26.2737 
26  ,2740 

26.2741 

26.2742 
26  ,2743 

26.2744 

26.2745 

26.2746 

26.2747 

26.2750 

26.2751 

26.2752 
26  ,2753 

26.2754 

26.2755 


51575  1 
03533  I 
71301  0 
CC027  1 
00027  1 
50025  0 

00025  0 
54727  1 
52I5C  1 

00026  C 
54731  0 
77750  0 
00024  1 
53775  1 
03525  0 
20201  0 
27525  0 
C3533  1 
77657  0 
2C2C1  0 
17533  1 
03547  1 
77657  C 
20201  0 
C3547  1 
53745  1 
00045  0 
202C0  I 
41316  0 
02  707  0 
47012  I 
21634  0 
36707  1 
55401  1 


VOKl 

V0K2 


VLCAD  A6VAL 

BVECTOP  +60  LOAD  B1 , GET  MAGNITUDE  AND  NORMALIZE 

NORM  OLCAC 

220  SHI  FT  COUNT  IN  220 

22D  FIND  WHICH  SHIFT  IS  SMALLER 

OSU  BHN  BRANCH-  BO  HAS  SMALLER  SHIFT  COUNT 

200 
VOKl 
LXA,1  GOTC 

220  LOAD  X2  WITH  THF  SMALLER  SHIFT  COUNT 

V0K2 

LXA  ,1 

200 

VLOAO  VSL*  THEN  ADJUST  BO,B1,DELTAO  AND  VARIANCE 

BVECTOR  WITH  THIS  SHIFT  COUNT 

0,1 

STCVL  BVECTCR 

bVECTQR  +6 

VSL* 

0,1 

STOOL  BVECTOR  +6 
DELTAQ 

SL« 

0,1 

STORE  DELTAQ 

OLOAD  SL*  GET  RLC  AND  ADJUST  FOR  SCALE  SHIFT 

360 

0 -1  ,1 

nSO  DMP  MULTIPLY  RLC**2  BY  VARIANCE 

VARIANCE 

SL4  RTB  SHIFT  TO  CONFORM  TC  BVECTORS  AND  DELTAQ 

TPMOOE 

STCALL  VARIANCE  ANC  STORE  TP  VARIANCE 

LGCUPDTF 


3166 

3167  REF  12 

3168 

3169  REF  9 

3170  REF  1 

3171  REF  5 

3172  REF  1 

3173  REF  14 

3174  REF  6 

3175  REF  13 

3176  REF  2 

3177  REF  14 

3178  REF  5 

3179  REF  15 

3180  REF  55 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


26,2756 
583  26,2757 

26,2760 
582  26,2761 

26.2762 
576  £7,1457 

26.2763 
460  26,2764 

585  26,2765 

576  26,2766 

576  26,2767 

585  26,2770 

576  26,2771 

585  26,2772 

582  26,2773 


77624  1 
11210  1 
77414  0 
04307  1 
55176  1 

2 3332  C MXMYMZ 
54  006  0 

3 1457  0 
54  765  1 
3 1460  1 
54  767  0 
3 1461  0 
54  771  1 
C 6042  1 


CALL 

GRP2PC 
BON  EXIT 

SURFFLAG 
RENDENO 
EBANK=  AI6 
CAF  AIGBANK 

TS  BBANK 

CA  AIG 

TS  CDUSPQT 

CA  AM6 

TS  COUSPOT  +2 

CA  AOG 

TS  COUSPOT  +4 

TC  INTPRET 


ARE  ANGLES  TO  BE  DONE 
NO 


YES,  COMPUTE  MX,  MY,  MZ 


GIMPL  ANGLES  NOW 


IN  COUSPOT  FOR  TRG*N8SM 


GAP: 

L 

3181 

3182 

3183 

318A 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

319A 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

32  02 

3203 

3204 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228 

3229 

3230 
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USER'S  PAGE  NCe  91  E7  S3 


REF  5 
RtF  4 

REF  10 
REF  5 
REF  3 

REF  2 

REF  11 
REF  2 
REF  5 

REF  3 

REF  12 
REF  2 
REF  1 

REF  5 

REF  2 

REF  6 
REF  6 
REF  3 

REF  3 
REF  6 
REF  3 

REF  3 
REF  1 


REF  2 


REF  2 

REF  6 
REF  4 

REF  3 


REF  10 


LAST  341 
LAST  254 


LAST  571 
LAST  147 
LAST  302 


LAST  554 

LAST  566 
LAST  147 
LAST  342 

LAST  586 


LAST  586 
LAST  147 


LAST  583 


LAST  147 

LAST  586 
LAST  482 
LAST  586 

LAST  566 
LAST  432 
LAST  482 

LAST  576 


LAST  198 


LAST  147 

LAST  585 
LAST  586 

LAST  586 


LAST  584 


26.2775 

26.2776 

26.2777 
26, 300C 

26.3001 

26.3002 

26.3003 

26.3004 

26.3005 

26.3006 

26.3007 
26, 3010 
26  ,3011 

26.3012 

26.3013 

26.3014 

26.3015 

26.3016 

26.3017 

26.3020 

26.3021 

26.3022 
26,3C23 

26.3024 

26.3025 

26.3026 

26.3027 

26. 3030 

26.3031 

26.3032 

26.3033 
26  ,3034 

26.3035 

26.3036 
26  ,3037 
2^,3040 

26.3041 

26.3042 

26.3043 
26  ,3044 

26.3045 

26 .3046 
26  ,3047 

26.3050 

26.3051 

26.3052 

26.3053 
26  ,3054 
26,3055 


47666  1 
76505  0 
C1734  0 
27677  1 
06520  0 
77624  1 
47675  0 
76505  C 
01734  C 
27705  C 
06516  C 
77624  1 
47675  0 
76505  0 
01734  0 
37713  C 
55361  0 
77331  0 
01357  1 
00003  1 
03724  0 
72441  0 
03677  1 
24C23  0 
03724  0 
72441  0 
C3713  1 
34021  0 
26506  0 
41221  0 
03736  0 
15441  1 
41472  0 
52545  1 
C17C1  C 
44257  1 
56176  1 
53605  1 
03722  0 
21601  0 
27547  1 
03724  0 
76435  1 
03705  0 
77656  1 
57414  1 
00747  0 
55056  I 


SHAFTBQ 


VLOAD  CALL 
UNITX 
TRG^NBSM 
VXM  VSLJ 

refsmmat 

STCVL  MX 

UNITY 

CALL 

*NBSM* 
VXM  VSLl 

refsmmat 

STCVL  MY 

UNI  TZ 


CALL 

♦NESM# 
VXM  VSLl 

R EFSMMAT 
STCALL  MZ 

RADARANG 
SSP  VLOAO 

WHCHREAD 
DEC  3 

ULC 

OCT  SLl 

MX 

STCVL  SINTH 
ULC 

OOT  SLl 

MZ 

STCALL  COSTH 
ARCTAN 
BOSU  DMP 

RR  SHAFT 
2PI/8 

SL3R  PUSH 

CLOAD  SL3 

X709 
SRR*  BOSU 

0,2 

OMp  SRR* 

RXZ 

0,1 

STOVL  OELTAO 

ULC 

VXV  VSLl 

MY 

UNIT 

BOFF  VCCMP 

VEHUPFLG 

+1 


STORE  SHAFT  CODE  (3)  FOR  R3  IN  NOUN  49 

18D 

160 

SHIFT  FROM  -5/-3  TC  BO 

SHIFT  TO  EARTH/MOON  SPHERE 
EARTH  6-29o  MOCN  B-27 

BO,  COMP,  IF  CSM  BEING  CORRECTED 


GAP : 

L 

3231 

3232 

3233 

3234 

3235 

3236 

3237 

3238 

323« 

3240 

324] 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 
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REF  14  LAST 
REF  4 LAST 
REF  15  LAST 
REF  16  LAST 
REF  3 LAST 


REF  17  LAST 


REF  1 

REF  1 

REF  4 LAST 


REF  5 LAST 


REF  4 LAST 

REF  9 LAST 

REF  3 LAST 


585  26,3056 

584  26,3057 

587  26,3060 

587  26,3061 

586  26,3062 

26.3063 

26.3064 

26.3065 

587  26,3066 
26,3067 
26,3C70 

26.3071 

26.3072 
587  26,3073 

26.3074 

26. 3075 
587  26,3076 

26,3077 

26. 3100 

26.3101 

26.3102 

26.3103 

585  26,3104 

585  26,3105 

585  26,3106 


27525  0 
06524  1 
03533  1 
17541  I 
C3722  0 
53657  0 
20577  0 
56176  I 
03541  I 
77735  0 
02011  0 
41215  1 
15436  1 
03722  0 
41257  1 
216C1  0 
03722  0 
53657  0 
2C577  0 
57176  0 
47057  0 
57176  0 
21634  0 
367C7  I 
55401  1 


STCVL  6VECT0R 
ZEROVECS 

STORE  BVECTOR  +6 
STOOL  BVECTOR  +12D 
RXZ 

SR*  SPP*  SHIFT  FROM  EARTH/MCON  SPHERE  TO  B-25 

0-2,1 
0,2 

STORE  BVECTOR  +12D 

SLCAD 

SHAFTVAR 
DAO  OMP 

IMUVAR  RA0**2  B12 

P XZ 

SRR*  OMP 

0,1  SHIFT  TO  EARTH/MOON  SPHERE 

R XZ 

SP*  SR* 

0-2,1 

0,  2 

SR*  RTB 

0,2 

TPMODE  STPOE  VARIANCE  TRIPLE  PRECISION 

STCALL  VARIANCE  B-40 

LGCUPOTE 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF 


13 

2 

6 

5 


6 

11 

18 

5 

19 

20 

6 


21 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 


26,3107 

585  26,3110 
26,3111 

586  26,3112 
26,3113 

586  26  ,3114 

26,3115 
586  26,3116 

26,3117 

586  26,3120 
26,3121 

537  26,3122 

26, 3123 
566  26,3124 

26,3125 

587  26,3126 

587  26,3127 

587  26,3130 

587  26,3131 

587  26,3132 

26,  3133 

26.3134 

26.3135 
587  26,3136 


77624  1 
55361  0 
77331  0 
01357  1 
00004  0 
03724  0 
76435  1 
C37C5  0 
76435  1 
03724  0 
57414  1 
00747  0 
55126  1 
27525  C 
06524  1 
C3533  1 
17541  1 
03722  0 
53657  0 
20577  0 
56176  1 
03543  0 


TRUN BO 


CALL 

GRP?  PC 

CALL 

FACARANG 

SSP  VLOAD  STORE  TRUNNION  CODE  14)  FOR  R3  IN  N49 

WHCHREAO 
DEC  4 

ULC 

vxv  VSLl 

MY 

VXV  VSLl  (ULC  X MY)  X ULC 

ULC 

BOFF  vrOMP  BO,  COMPo  IF  CSM  BEING  CORRECTED 

VEHUPFLG 
+ 1 

STOVL  BVFCTOR 

ZEROVECS 

STCRE  BVECTOR  +6 

STOOL  BVECTOR  +120 

RXZ 

SR*  SRR*  SHIFT  FROM  EARTH/MCON  SPHERE  TO  6-25 

0 -2,  1 

0,2 

STORE  BVECTOR  +140 


gap: 

L 

3280 

3281 

3282 

3283 

328^ 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

R3313 

R3314 

K3315 

R3316 

R3317 

R3318 

R 3319 

R3320 

R3321 

R3322 

R3323 

R3324 

R3325 
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USER  ' S PAGE  NQo  93  £7  S3 


REF  1 

REF  2 LAST  587 

REF  7 LAST  587 

REF  8 LAST  568 


REF  5 LAST  587 
REF  10  LAST  587 
REF  -2  LAST  1^8 

REF  3 LAST  576 

REF  2 LAST  566 

PEF  3 LAST  586 


REF  9 LAST  588 

REF  7 LAST  586 

REF  4 LAST  587 

REF  14  LAST  587 

REF  1 

FLNCTICNAL  CESCRIPT 


26,313-7 

26.3140 

26.3141 

26.3142 

26.3143 

26.3144 

26.3145 
26  ,3146 
26,3147 

26.3150 

26.3151 

26.3152 

26.3153 

26.3154 

26.3155 
26  ,3156 
26,3157 

26.3160 

26.3161 

26. 3162 

26.3163 

26.3164 

26.3165 

26.3166 

26.3167 

26.3170 

26.3171 

26.3172 

26.3173 
26,317A 

26.3175 

26.3176 

26.3177 
ION 


77735  n 
02012  0 
41215  1 
15436  1 
03722  0 
41257  1 
21601  0 
03722  0 
53657  0 
20577  0 
57176  0 
A7C57  0 
57176  0 
21 634  0 
167C7  0 
03732  1 
44336  1 
03734  1 
56405  0 
15441  1 
52525  1 
01703  1 
44257  1 
56176  1 
53605  1 
03722  0 
21601  0 
37547  0 
55401  1 
77624  1 
11210  1 
77650  1 
50562  0 


RENDENO 


SLCAC 

TRUNVAR 
DAD  DMP 

I MUVAR 
R XZ 

SRR*  OMP 
0,1 
RXZ 

SR*  SR* 

0 -2,1 

0,2 

SR*  RTB 

0,2 

TPMOOE 

STOOL  VARIANCE 
SINTHETA 
ASIN  BDSU 

RPTRUN 
OMP  SL3R 
2PI/8 

POOL  SL3 

X789  +2 
SRR*  BDSU 
0,2 

OMF  SRR* 

R XZ 

0,1 

STCALL  OELTAG 

LGCUPOTE 

CALL 

GRP2PC 

GOTO 


R22LEM93 


SHIFT  TO  EAPTH/MGON  SPHERE 


STORE  VARIANCE  TRIPLE  PRECISION 

SIN  THETA  IN  PD6 

SHIFT  FROM  -5/-?  TC  00 

EARTH  B-29«,  MOON  B-27 


LSR22o4  IS  THE  ENTRY  TO  PERFCRM  LUNAR  SURFACE  NAVIGATION  FOR  THE  LM 
COMPUTER  ONLYo  THIS  ROUTINE  COMPUTES  THE  B-VECTGRS  AND  DELTA  Q FCR  RANGE 
AND  RANGE  RATE  MEASURED  BY  THE  RENDEZVOUS  RADAR 


SUBROUTINES  CALLED 

INSTALL  LGCUPOTE  INCORPl  RP-TO-R 

INTEGRV  GETLLC  INCCRF2 


OUTPUT 
CORRECTED 
NUMBER  OF 
MAGNITUDE 
MAGNITUDE 
LPOATEO  W- 


CSM  STATE  VECTOR  (PERMANENT) 

MARKS  INCCRPORATEO  IN  MARKCTR 
OF  POSITION  DEVIATION  (FOR  DISPLAY) 
OF  VELOCITY  CEVIATICN  (FOR  DISPLAY! 
•MATRIX 


IN  R22DISP 
IN  R22DISP 


METERS  B-29 
+ 2 M/C  SEC  B-7 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCCRAM  LUMINARY  0Y  NASA  2021112-091 
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R3326  ERASABLE  1 MT  lAL  I ZAT  ICN  RECUIREE 

R3327  LM  AND  C SM  STATE  VECTORS 

R3328  K-MATRIX 

R3329  MARK  TIME  IN  NKTIME 

R3330  RADAR  RANGE  IN  RM  METERS  B-29 

R3331  RANGE  RATE  IN  RDOTM  METERS/CSEC  8- 

R3332  VEHUPFLG 


3333 

333^  REF 

3335 

3336  REF 

3337  REF 

3338 

3339  REF 

3340 

3341  PEF 

3342 

3343  REF 

3344  REF 

3345 

3346  REF 

3347  REF 

3348 

3349  REF 

3350  REF 

3351 

3352  REF 

3353  REF 

3354 

3355  REF 

3356 

3357  REF 


15  LAST  582 

3 LAST  582 

14  LAST  582 

5 LAST  582 

15  LAST  588 

2 LAST  581 

16  LAST  589 

3 LAST  510 
1 

7 LAST  582 
11  LAST  582 

15  LAST  589 

5 LAST  582 

6 LAST  589 
2 LAST  582 


26.3200 

26.3201 

26.3202 

26.3203 

26.3204 

26.3205 

26.3206 
26  ,3207 

26. 3210 

26.3211 

26.3212 

26.3213 

26.3214 

26.3215 

26.3216 

26.3217 

26. 3220 

26.3221 

26.3222 

26. 3223 

26.3224 

26.3225 

26. 3226 

26.3227 
26,3230 


77624  1 
27410  1 
43014  0 
C1472  1 

01674  0 
77624  1 
55242  0 
77624  1 
11210  1 
45C14  0 
02666  0 
27410  1 
*6145  0 
03463  0 
55231  1 
43014  0 

01675  1 
01476  0 
43C14  0 
C1474  1 
01673  1 
77624  1 
55242  0 
77650  1 
54514  0 


LSR22»4 


CALL 

SET 

CALL 

CALL 

CLEAR 

□ LOAD 

CLEAR 

SET 

CALL 

GOTO 


I NTSTALL 
CLEAR 
STATEFLG 
V INTFLAG 

INTGRCAL 

GPP2  PC 

CALL 

DMENFLG 

I NTSTALL 

8HI2 

MARKCTR 

INITWMX6 

SET 

D6CR9FLG 
OIMOFLAG 
CLEAR 
VI NTFLAG 
INTYPFLG 

I NTGRCAL 

R ANGEBC 


3358 

3359 

3360 

3361 

3362 
336? 
336i 

3365 

3366 


REF  2 LAST  582 

REF  16  LAST  589 

REF  6 LAST  581 

REF  7 LAST  589 

REF  3 LAST  589 


26.3231 

26 .3232 

26. 3233 

26.3234 

26.3235 

26.3236 

26.3237 

26.3240 

26.3241 


45C14  0 
01474  1 
26643  1 
77624  1 
55242  0 
77650  1 
54514  0 


IN  ITWMX6  CALL 
SET 


CALL 

GOTO 


WLINIT 

CALL 

VINTFLAG 

SETIFLGS 

INTGPCAL 

RANGEBQ 


R3367 


THIS  ROUTINE  CLEARS  RFINAL  (CPI  AND  CALLS  INTEGRV 


336B 

3369  REF  1 

3370  REF  6 LAST  576 


26,3244 


7122C  1 INTGRCAL  STQ 
03675  0 
03755  0 


OLCAD 
IGPET 
MKT IME 


17:53  DEC«  19,3969  LEMP20S  145  PAGE  589 


USER'S  PAGE  NOc  9^*  £7  S3 


CALL  TO  GET  LM  POS  + VEL  IN  REF  COORDo 


SET  MATRIX  SIZE  TO  6X6  FOP  INCORP 
IS  THIS  FIRST  TIME  THROUGH 
YES,  INITIALIZE  6X6  W-MATPIX 


INITIALI ZE  W-MATR 


GAP : 

L 

3371 

3372 

3373 

337A 

R3375 

R3376 

3377 

33  78 

3379 

3380 

3381 

3382 

3383 

33  eA 

3385 

3386 

3387 

3338 

3389 

3390 

3391 

3392 

3393 

339^ 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

340? 

3404 

3405 

3406 

3407 

3408 

34C9 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 
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USER'S  PAGE  NOe  95 


E7  S3 


REF  18  LAST  576  26,3245  34041  0 

BEF  8 LAST  504  26,3246  27133  0 

26,3247  77650  1 

BEF  2 LAST  589  26,3250  03675  0 


STCALL  TDECl 

INTEGP.V 

GOTO 

IGRET 


This  ROUTINE  INITIALIZES  THE  t<-MATPlX  BY  ZEROING  ALL  W THEN  SETTING 
CIAGCNAL  ELEMENTS  TO  INITIAL  STORED  VALUES* 


REF  4 

REF  1 
REF  15 
REF  3 
REF  2 
REF  122 
REF  3 
REF  5 
REF  4 

REF  2 
REF  16 
REF  56 

REF  10 
REF  1 
REF  2 

REF  1 

BEF  1 


REF  6 
REF  7 
REF  8 

REF  11 
REF  1 
REF  1 

BEF  1 

REF  1 
REF  9 
REF  10 
REF  11 

REF  1 
REF  12 


LAST  128 


LAST  585 

LAST  107 
LAST  582 
LAST  590 
LAST  59C 
LAST  590 


LAST  585 
LAST  590 
LAST  5B5 

LAST  585 

LAST  118 


LAST  590 
LAST  590 
LAST  590 

LAST  590 


LAST  590 
LAST  590 
LAST  500 


65,1400 

26.3251 

26.3252 

26.3253 

26.3254 
26  ,3255 

26.3256 

26.3257 

26.3260 

26.3261 

26.3262 

26.3263 

26.3264 

26.3265 

26.3266 

26.3267 

26.3270 

26.3271 

26.3272 

26.3273 

26.3274 

26.3275 

26.3276 

26.3277 

26 .3300 

26.3301 

26.3302 

26.3303 

26. 3304 

26.3305 

26.3306 

26.3307 

26.3310 

26.3311 

26.3312 

26.3313 

26. 3314 

26.3315 

26.3316 

26.3317 

26.3320 

26.3321 


77776  1 
3 3331  0 
54  006  0 
3 3437  1 
55'256  0 
3 4755  1 
fl'256  I 
55'4C0  0 
11'256  0 
0 3255  0 
3 3332  0 
54  006  0 
0 6042  1 
67214  I 
04307  1 
55274  0 
02001  1 
77650  1 
55276  1 
77735  0 
02007  1 
77661  0 
20606  0 
02401  0 
C2411  1 
02421  1 
67214  I 
C4307  I 
55311  1 
02002  1 
77650  1 
55313  0 
77735  0 
02010  1 
02511  0 
02521  0 
02531  1 
77735  0 
C2C03  0 
02621  0 
77735  0 


£BANK=  W 
WLINIT  EXIT 

CAF  WBANK 

TS  B6ANK 

CAF  wsize 

TS  WcIND 

CAF  ZERC 

INDEX  hoIND 

TS  W 

CCS  W«1N0 

TC  -5 

CAF  AIG8ANK 

TS  DBANK 

TC  INTPRET 

BON  SLCAD 

SUBFFLAG 

WLSRFPCS 

WRENOPCS 

GOTO 

WPGSTORF 


WLSRFPOS  SLCAD 

WSURFPOS 

WPCSTORE  SR 


5 

STORE  W 
STCRE  W +8D 
STORE  W +160 
BCN  SLCAD 

SURFFLAG 

WLSRFVEL 

WRENDVEL 


GOTO 

WVELSTOR 

hLSRFVEL  SLHAD 

WSURFVEL 

WVELSTCR  STORE  W +72D 
STORE  W +800 
STORE  W +880 
SLCAD 


WSHAFT 
W +144D 


RESTORE  EBANK  7 


IF  ON  LUNAR  SURFACE,  INITIAL IZE  WITH 
WSURFPOS  AND  WSURFVEL  INSTEAD  OF 
WPENDPOS  AND  WRENDVEL 


SHIFT  TO  B-19  SCALE 


LAST  590 


STORE 

SLCAD 
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3419  REF  1 

3420  REF  13  LAST 

3421 

3422  REF  8 LAST 

3423  REF  4 LAST 

3424 

3425 


26f3322  02004  1 

590  26,3323  02631  I 

26,3324  66214  C 

582  26  ,3325  02476  0 

569  26,3326  03463  0 

26,3327  00000  1 

26,3330  77616  0 


WTRUN 

STORE  W +152C 
SET  SSP 

PENDWFLG 

MABKCTP 

0 

RVQ 


3426 
342  7 
3426 
3429 


REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 


591 

589 

585 

510 


54065  C WBANK 
54067  1 AIGBANK 


EBANK=  W 
BBCON  WLINIT 
EBANK=  AIG 
BBCON  LSP22«3 


R3430  GETULC 


R343]  THIS  SUBROUTINE  COMPUTES  THE  RELATIVE  POSITION  VECTOR  BETWEEN  THE  CSM 
R3432  ANC  THE  LM,  LEAVING  THE  UNIT  VECTOR  IN  THE  PUSHLIST  AND  MPAC  AND  THE 
R3433  MAGNITUDE  IN  36Do 


3434 

3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 
R3456 


REF  1 
REF  3 

REF  2 
REF  1 

REF  1 

REF  1 
REF  7 

REF  8 
RACARANG 


LAST 


LAST 


LAST 


LAST 


582 


504 


587 


591 


26. 3333 

26.3334 

26.3335 

26.3336 
26  ,3357 

26.3340 

26.3341 
26  ,3342 
26, 33A3 

26.3344 

26.3345 

26.3346 

26.3347 

26.3350 

26.3351 
26  ,3352 

26.3353 

26.3354 

26.3355 

26.3356 

26.3357 
26,3360 


77201  I 
00001  0 
C1645  1 
77754  1 
03720  1 
53257  1 
57165  1 
01661  1 
53715  1 
01573  1 
57165  1 
52255  1 
01607  1 
41434  1 
21725  1 
17724  0 
CCC45  0 
77657  0 
20201  0 
24045  0 
03724  0 
77616  0 


GETULC 


SFTPD 

LXA  ,2 
VSR* 

PDVL 

VAD 

RTB 

STOOL 

SL* 

STOVL 

PVQ 


VLCAO 

0 

DELTALEM 

SCALSHFT 
VAC 
90  ,2 
RCVLEM 
VSR* 

DELTACSH 

9D,2 

vsu 

PCVCSM 

PUSH 

NORMUNXl 

ULC 

360 


0,1 

?6D 

ULC 


R3457  THIS  SUBROUTINE  COMPU TES ' S I NTHET A = -ULC  DOT  MY 

R3458  RXZ  = (SORT  I I-S INTHETA**2  I I RLC 

R3459  CLTPLT 

R3460  LLC  IN  ULC,  POO 

R3461  RLC  IN  PC36D 

R3462  SIN  THETA  IN  SINTHETA  ANC  PC6 

R3463  RXZ  NORM  IN  RXZ  (N  IN  Xl  ) 
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USER'S  PAGE  NOa  96  E5  S3 

SET  RENOWFLG  - W-MATRIX  VALID 
SET  MARK  COUNTER  EQUAL  ZERO 


LOAD  X2  WITH  SCALE  SHIFT 
SHIFT  FOR  EARTH/MCCN  SPHERE 

SHIFT  FOR  EAPTH/MOON  SPHERE 

USE  NORMUNIT  TO  PRESERVE  ACCURACY 

ADJUST  MAGNITUDE  FROM  NORMUNIT 


ULC  IN  POO  AND  MPAC, RLC  IN  360 


GAP  : 

L 

3A64 

3465 

3466 

3467 

3468 

3469 

3470 

3471 

3472 

3473 

3474 

3475 

3476 

3477 

3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3508 

3509 

3510 

3510 

3511 
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USER'S  PAGE  NC<.  97  E5  S3 


REF  2 
REF  3 

REF  5 

REF  3 

REF  4 

REF  4 
REF  10 

REF  3 

REF  4 
REF  1 

REF  3 

REF  4 

REF  3 
REF  4 

REF  4 
REF  1 

REF  5 
REF  1 

REF  I 
REF  6 

REF  2 

REF  1 

REF  5 

REF  30 


LAST  147 
LAST  583 

LAST  587 

LAST  588 

LAST  503 

LAST  583 
LAST  588 

LAST  592 

LAST  510 

LAST  127 

LAST  591 

LAST  316 
LAST  592 

LAST  592 


LAST  592 

LAST  592 
LAST  592 

LAST  592 


LAST  581 


26,336? 

26.3363 

26.3364 

26. 3365 

26.3366 

26.3367 

26. 3370 

26 .3371 
26,337? 

26.3373 

26.3374 

26.3375 

26.3376 

26.3377 

26.3400 

26.3401 

26.3402 

26.3403 

26.3404 

26. 3405 

26.3406 

26.3407 

26. 3410 

26.3411 

26.3412 

26.3413 

26.3414 

26.3415 

26.3416 

26.3417 

26.3420 

26.3421 

26.3422 

26.3423 

26.3424 

26.3425 
26,342^ 
26,3427 
26,3430 
26  ,3431 

26.3432 

26.3433 
26  ,3434 

26.3435 

26.3436 

26.3437 

26. 3440 

26.3441 
67,1456 


55333  1 
50276  1 
C37C5  0 
41572  1 
03732  1 
44316  0 
06514  1 
41366  1 
C0045  0 
60352  0 
00047  1 
03722  0 
77650  1 
C3675  0 
45020  1 
03675  0 
46533  0 
51575  1 
C2673  1 
53754  1 
C3720  1 
56174  0 
24317  1 
02665  0 
53646  0 
56174  0 
00315  0 
54335  0 
02005  0 
20613  1 
50025  0 
00315  0 
50566  1 
45335  0 
C20C6  0 
00317  1 
77640  0 
50566  1 
77624  1 
46745  0 
77650  1 
03675  0 
C01Q3  0 
03370  0 
00241  0 
31103  1 
36652  0 


RACARANG  STQ 

VCOMP 

SLIR 

STGRE 

OSQ 

SORT 

SLl 

STORE 

GOTO 

IGCUPDTE  STQ 

VLOAO 

LXA,2 

STCVL 

ABVAL 

STORE 

SLDAO 

OSU 

SLOAO 

BMN 


GETULC 

DOT 

MY 

PUSH 

SINTHETA 

BOSU 

DP1/4TH 

DMP 

3 60 

NORM 

XI 

RXZ 

RORET 

CALL 

LGRFT 

INCORPl 

ABVAL 

DELTAX  +6 

SRR* 

SCALSHFT 

2,2 

R22DISP  +2 

DELTAX 

SRR* 

2,2 

R220I SP 
SR 

RMAX 

100 

BMN 

R22DISP 

R22LEM96 

DSU 

VMAX 

R220I SP  +2 


ASTOK 

IMLVAR 


CALL 

GOTO 

2DEC 


P22LEM96 

INCQRP2 

LGRET 
E-6  612 


WSIZe  DEC  161 

2PI/8  2DEC  2e 141592653  6-2 


EeANK=  LOSCCUNT 


SIN  THETA  TO  P06 


1 - (SIN  THETA )4*2 


SET  SHIFT  COUNTER  IN  XI 
EXIT 


n-MOONa  2-GAPTH 

SET  VEL  DISPLAY  TO  B-*^ 


SET  POS  DISPLAY  TO  B-29 


GO  DISPLAY 


VMAX  MINUS  VELo  DEVIATION 
GO  DISPLAY 


RAC**2 
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USER'S  PAGE  NCr  og  g?  $3 


P3512  PRCGRAM  NAME  LRS24«1  RR  SEARCH  ROUTINE 

R3513  MCD  NO  0 BY  P VOLANTE  SOC  DATE  1-15-67 


R3514  FUNCTICNAL  OESCRIPTICN 


R3515  DRIVES  THE  RENDEZVOUS  RADAR  IN  A HEXAGONAL  SEARCH  PATTERN  ABOUT  THE  LOS  TO  THE  CSM  (COMPUTED  FROM  THE  CSM  AND  LM 
R3517  STATE  VECTORS)  CHECKING  FOR  THE  DATA  GOOD  DISCRETE  AND  MONITORING  THF  ANGLE  BETWEEN  THE  PACAR  BtHRESIGHT  AND  THE 

R3519  LM  +Z  AXiSe  IF  THIS  ANGLE  ExCEECS  30  DEGREES  THE  PREFERRED  TRACKING  ATTITUOF  ROUTINE  IS  CALLED  TC  PERFORM  AN 

R3521  ATTITUDE  MANEUVERo 


R3522  CALLING  SECUENCE  - BANKCALL  FCR  LfiS24el 


R3523  SLBROLTINES  CALLED 


R3524 
R3525 
R3526 
R3527 
R 3526 


LEMCONIC 
CSMCCMC 
J060ELAY 
WAITL  1ST 
RRNB 


R61LEM 

PRDESSM 

FLAGDCV^N 

FLAGUP 

BANKCALL 


R3529  EXIT  - TO  ENOOFJOB  WHEN  THE  SEARCH  FLAG  (SRCHOPT)  IS  NOT  SET 


R3530  OUTPUT 


R3531 

R3532 

R3533 


DATAGOOD  ( SP )-FOR 
OMEGAD  (SPI-FOR 


DI SPLAY 
UI SPLAY 


IN  Rl-  00000 

mil 

IN  R2-  ANGLE 


INDICATES  NO  LOCKCN 
INDICATES  LOCKON  ACHIEVED 

BETWEEN  RR  BORESIGHT  VECTOR  AND  THE  SPACECRAFT 


AXIS 


R3535  ERASABLE  INITIALIZATION  REQUIRED 
R3536  SEARCH  FLAG  MUST  BE  SET 

R3537  LM  AND  CSM  STATE  VECTORS  AND  REFSMMAT  MATRIX 

R3538  DEBRIS 


R3539 

R3540 

R3541 

R3542 

R3543 


RLMSRCH 

VXRLM 

LOSCESRC 

DATAGOOD 

MPAC 


UXVECT 

UYVECT 

NSRChPNT 

OMEGAD 

PUSHLIST 


3544  REF 

3545  REF 

3546  REF 

3547  REF 

3548 


1 

123  LAST 
2 LAST 
53  LAST 


590 

146 

568 


26.3442  3 4755  1 

26.3443  55'736  0 
26  ,3444  3 4736  1 
26,3465  C n006  1 


COUNT#  S$/LRS24 
LRS24ol  CAF  ZERC 

TS  NSRCHPNT 

CHKSRCh  CAF  BIT14 

EXTEND 


SET  SEARCH 
ISSUE  AUTO 


PATTERN  POINT  COUNTER 
TRACK  ENABLE  TO  RADAR 


TO  ZERO 


GAP : 

L 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 

3558 

3558 

3559 

3560 

3561 

3562 

3563 

3564 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


7:53  OECo  19,)969  LeMP20S.l*5  PAGE  594 


P20-P25 


USER'S  PAGE  NOe  99  E7  S3 


REF  39 
REF  1 
REF  10 

REF  95 


LAST  568 
LAST  556 
LAST  556 


2‘6  ,3446 
26,3447 

26.3450 

26.3451 

26.3452 


05  012  1 
3 4736  1 
7 0076  1 
C 0006  1 
1 5155  1 


WOR  CHAN12  ' 
CAF  SRCHCBIT 
MASK  FLAGWR02 
EXTEND 

BZF  ENOCFJCP 


CHECK  IF  SEARCH  STILL  REQUESTED 
{ SPCHOPT  FLAG  SET ) 

NO-TERMINATE  JOB 


REF  1 

REF  24  LAST  567 
REF  31  LAST  592 
REF  ? LAST  520 


REF  96  LAST  575 
REF  5 LAST  550 


REF  96  LAST  594 
REF  57  LAST  590 


26.3453  3 3713  1 

26.3454  C 0004  0 

26.3455  C 5203  0 
E7 ,1456 

26.3456  03643  0 

26.3457  54067  1 

26.3460  0 0003  1 

26.3461  4 0110  0 

26  ,3462  7 4736  0 

26.3463  C 0006  1 

26.3464  1 5155  1 

26.3465  0 6042  I 


CAF  6SFC0NDS  SCHEDULE  TASK  TO  DRIVE  RADAR  TO  NEXT  PTo 

INHINT 

TC  WAITLIST  IN  6 SECONDS 

EBANK=  LOSCOUNT 
2CA0R  CALLDGCH 


RELINT 

CS  RADMODES  IS  REMOOE  IN  PROGRESS 

MASK  PEMODBIT 

EXTEND 

BZF  FNDOFJOB  YES-  WAIT  SIX  SECONDS 

TC  INTPRET 


REF  12  LAST 
REF  1 
REF  19  last 
REF  4 LAST 

REF  7 LAST 
REF  4 LAST 
REF  3 LAST 
REF  1 
REF  6 LAST 
REF  20  LAST 
REF  3 LAST 

REF  8 LAST 
REF  5 LAST 

REF  2 LAST 
REF  4 LAST 

REF  9 LAST 

REF  2 LAST 

REF  5 LAST 
REF  2 LAST 

REF  13  LAST 
REF  3 LAST 


26,3466 
522  26,3467 

26,3470 
590  26,3471 

571  26,3472 

26,3473 
571  26,3474 

150  26,3475 

571  26,3476 

26,3477 
571  26,3500 

594  26,3501 

571  26,3502 

26,3503 
594  26,3504 

594  26,3505 

26,3506 
146  26,3507 

594  26,3510 

26,3511 
594  26,3512 

26,3513 
146  26,3514 

26  ,3515 
594  26,3516 

594  26,3517 

26,3520 
586  26,3521 

594  26,3522 

26,3523 


43234  0 
21574  1 
15715  0 

34C41  C LR  S24«.  11 
27077  1 
77775  1 
00001  0 
27676  0 
000C7  0 
17740  1 
00015  0 
34041  0 
27065  1 
52375  1 
OOCOl  0 
03676  0 
77656  1 
27712  0 
00007  0 
47256  0 
00001  0 
77656  I 
03704  1 
52375  1 
0C007  0 
03740  1 
76521  0 
01734  0 
03740  1 
53135  0 


RT6  DAD 

LOADTIME 
?o5S£CS 
STCALL  TDECl 

LEMCONIC 

VLOAO 

RATT 

STDVL  RLMSRCh 
VATT 

STODL  SAVLEMV 
TAT 

STCALL  TDECl 

CSMCONIC 
VLCAO  VSU 
RATT 
RLMSRCH 

UNIT 

STOVL  LOSOESRD 
VATT 

UNIT  VXV 
RATT 

UNIT 

STORE  VXRCM 
VLOAD  VSU 
VATT 
SAVLEMV 
MXV  VSLl 

refsmmat 

STORE  SAVLEMV 
SLOAD  BZe 


COMPUTE  LOS  AT  PRESENT  TIME  + io5  SECo 


EXTRAPOLATE  LM  STATE  VECTOR 


SAVE  LEM  POSITION 

SAVE  LEM  VELOCITY 

EXTRAPOLATE  CSM,  STATE  VECTOR 
EXTRAPOLATE  CSM  STATE  VECTOR 
LOS  VECTOR  = P(CSMt-R(LM) 


STORE  DESIRED  LOS 

COMPUTE  UNIT(V(CMI  CROSS  RICMM 


CONVERT  FROM  REFERENCE  TO  STABLE  MEMBER 

VLC  = V(CSM)  - V(LM) 

CHECK  IF  N=0 


GAP  : 

L 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3608 

3609 

3610 

3611 

3612 

3613 

3614 

3615 

3616 

3617 

3618 

3619 

3620 

3621 

3622 

3623 

3624 

3625 

3626 

3627 

3626 

3629 

3630 

3631 

3632 

3633 

3634 

3635 

3636 

A3637 

3638 

3639 

3640 

3641 

3642 

3643 


ASSEMBLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  8Y  NASA  2021112-091 
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17:53  DECg  19,1969  LEMP20S  145  PAGE  595 
USER'S  PAGE  NCo  TOO  E7  S3 


REF  3 LAST  593 

REF  1 

REF  1 

REF  1 

REF  2 LAST  146 

REF  1 

REF  2 LAST  146 

REF  1 

REF  1 

REF  3 LAST  595 

REF  2 LAST  595 

REF  1 

REF  A LAST  595 

REF  5 LAST  595 

REF  3 LAST  595 

BEF  2 LAST  595 

REF  3 LAST  595 

REF  2 LAST  595 


REF  2 LAST  595 
REF  4 LAST  595 


REF  5 LAST  59  5 


REF  1 

REF  3 LAST  594 
REF  14  LAST  594 


REF  13  LAST  577 
REF  4 LAST  59A 
REF  5 LAST  571 


REF  7 LAST  571 
REF  4 LAST  571 


26.3525 

26.3526 
26  ,3527 

26. 3530 

26.3531 

26.3532 

26.3533 
26  ,3534 
26, .3535 

26.3536 

26.3537 
26, 35A0 

26.3541 

26.3542 
26,35A3 
26  ,3  544 

26.3545 

26.3546 
26  ,3547 

26.3550 

26.3551 

26.3552 

26. 3553 
26  ,3554 

26.3555 

26.3556 
26  ,3557 

26.3560 

26.3561 

26.3562 

26.3563 

26.3564 

26.3565 

26.3566 
26  ,3567 

26.3570 

26.3571 

26.3572 

26.3573 
26,35T4 
26,3575 


53025  0 
15711  1 
55623  0 

77775  1 
03720  1 
24C15  0 
03726  1 
00023  0 
77761  1 
15705  1 
27720  1 
00015  0 
53361  0 
06522  1 
03720  1 
77656  1 
27720  1 
00015  0 
77761  I 
15705  1 
27726  1 
00C23  0 
52361  1 
06522  1 
03726  1 
77656  1 
03726  1 
53361  0 
15707  0 
C3712  0 
64256  1 
01734  0 
77772  0 
25101  0 
037A0  1 
01761  0 

77776  1 
C QC04  0 
0 6032  0 

52613  1 


DSU 

VLOAO 

STOVL 

STORE 

VXSC 

STCVL 

VXSC 

UNIT 

STOVL 

VXSC 

STCVL 

VXSC 


OFFCALC 


UNIT 

STORE 

VXSC 


UNIT 

VSLl 

CCNTDES6  STOVL 

STORE 
EX  IT 
INHINT 
TC 

CAOR 


NSRCHPNT 

OESGLCS 

BZE 

ONEUCT 

CALCXY 

UXVECT 

UXVECTFR 

UYVeCT 

UYVECTPR 

S IN60DEG 
UXVECT 
UXVECTPR 
VAC 

C0S60DEG 

UXVECT 

UXVECT 

UXVECTPR 

SI N600EG 
UYVECT 
UYVECTPR 
VSU 

C0S60DEG 

UYVECT 

UYVECT 

VAD 

OFFSTFAC 

LOSDESRO 

MXV 

REFSMMAT 

RETARGET 

SAVLEMV 

LOSVEL 


K ILLTASK 
DESLOOP  +2 


REF  1 

REF  97  LAST  594 
RfcF  2 LAST  595 
REF  98  LAST  595 
REF  58  LAST  594 


26,3576  4 4735  0 C0NTDES2  CS  CDESBIT 


26,3577  7 0110  0 

26.3600  6 4735  1 

26.3601  5A  110  0 

26.3602  C 6C42  1 


MASK  RADMGOES 

AD  CDESBIT 

TS  RACMODES 

TC  INTPRET 


YES-DESIGNATE  ALONG  LOS 
I S N=1 

YES-CALCULATF  X AND  Y AXES  OF 
SEARCH  PATTERN  COORDINATE  SYSTEM 
NO-RUTATE  X-Y  AXES  TO  NEXT  SEAPCH  POINT 

SAVE  ORIGINAL  X ANC  Y VECTORS 
UXPRIME  = ORIGINAL  UX 
UYPRIME  = ORIGINAL  UY 

UX  =(COS  60IUXPR  +(SIN  60IUYPR 


UY=(-SIN60>UXPR  +(COS  6r)UYPR 


OFFSET  VECTOR  = K(UY1 

LOS  VECTOR  + OFFSET  VECTOR  DEFINES 

DESIRED  POINT  IN  SEARCH  PATTERN 

CONVERT  TO  STABLE  MEMBER  COORDINATES 


KILL  ANY  PRESENTLY  WAITLISTED  TASK 
WHICH  WOULD  DESIGNATE  TO  THE  LAST 
POINT  IN  THE  PATTERN 

SET  BIT  15  OF  RADMOOES  TO  INDICATE 
A CONTINUOUS  DESIGNATE  WANTFDr 


26,3603 


77624  1 


CALL 


GAP : 

L 

36AA 

36A5 

36A6 

3647 

A3648 

A3649 

3650 

3651 

3652 

3653 

3654 

3655 

3656 

3657 

3650 

3659 

3660 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DEC.,  19,1969  LEMP20S  tl45  PAGE  596 


P20-P25  USER’S  PAGE  NOo  Id  E7  S3 

REF  3 LAST  51A  26,3604  524C4  0 HRDESSM  CESIGNATE  RADAR  TO  RRTAPGET  VECTOR 


REF  1 

REF  2 LAST  596 


26.3605  77776  1 

26.3606  0 3675  0 

26.3607  0 3675  0 


FX  IT 

TC  LIMALARM  LOS  NOT  IN  MODE  2 COVERAGE  (P22) 

TC  LIMALARM  VEHICLE  MANEUVER  REQUIRED  (P20) 


REF  10  LAST  575 
REF  8 LAST  576 
REF  59  LAST  595 

REF  3 LAST  576 

REF  3 LAST  146 
REF  97  LAST  594 


26,3610  0 0006  1 OMFGCALC  EXTEND 


26.3611  2 0036  1 

26.3612  53''753  0 

26.3613  0 6042  1 

26.3614  77624  1 

26.3615  46041  0 

26.3616  65545  0 

26,3637  00045  C 

26.3620  03735  0 

26.3621  77776  1 

26.3622  0 5155  0 


DCA  COUT 
OXCH  TANGNB 
TC  INTPRET 

CALL 

RRNB 
DLOAP  ACCS 
36D 

STORE  OMEGDISP 
EXIT 

TC  FNOCFJCe 


COMPUTE  OMEGA, ANGLE  BETWEEN  RR  LOS  AND 
SPACECRAFT  *Z  AXIS 


OMEGA  IS  ARCCOSINE  OF  Z-COMPONENT  OF 
VECTOR  COMPUTED  BY  RRN8  (LEFT  AT  32DI 
STORE  FOP  DISPLAY  IN  R2 


GAP : 

L 

P3661 

3662 

3663 

3664 

3665 

3666 

3667 

3668 

3669 

3670 

3671 

3672 

3673 

3674 

3675 

3o76 

3677 

3678 

3679 

3680 

3681 

3662 

3683 

3684 

3685 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 


ASSEMBLE  REVISION  131  OF  AGC  PFCCPAP  LUMINARY  BY  NASA  2021I12-C91 
P20-P25 

CALCULATE  X ANC  Y VECTORS  FOR  SEARCH  PATTERN  COORDINATE  SYSTEM 


17:53  DECa  19,1969  LEMP20S  clA5  PAGE 
USER’S  PAGE  NOo  102  E7  S3 


597 


REF  5 LAST  594 

REF  4 LAST  595 

REF  6 LAST  *595 

REF  5 LAST  597 


REF  7 LAST  597 
REF  6 LAST  595 

REF  1 


26,3623  47375  0 CALCXY  VLCAD  VXV 


26.3624  03704  1 

26.3625  C3712  0 

26.3626  77656  1 

26.3627  2772C  1 

26.3630  03712  0 

26.3631  53435  0 

26.3632  03720  1 

26.3633  03726  1 

26.3634  7765C  1 

26.3635  55561  0 


VXRCM 

LOSOESRD 

UNIT 

STCVL  UXVECT 

LOSOFSRD 
VXV  UNIT 

UXVECT 
STORE  UYVECT 
GOTO 

OFFCALC 


UX  = (VLM  X RLMIX  LOS 


UY  = LOS  X UX 


REF  6 LAST  597 
REF  15  LAST  505 

REF  1 


26.3636 

26. 3637 
26  ,3640 

26.3641 

26.3642 


64375  1 
03712  C 
01734  0 
52172  1 
55567  0 


OESGLOS 


VLDAD 


VSLl 


MXV 

LOSOESRD 

REFSMMAT 

6CTC 

CONTOESG 


WHEN  N=  OjPES  IGNATE  ALONG  LOS 
CONVERT  LOS  FROM  REFERENCE  TO  SM  COORDS 


REF  22 
REF  8 

REF  25 
REF  2 
REF  23 
REF  6 
REF  1 
REF  1 
REF  26 


LAST  502 
LAST  543 

LAST  534 
LAST  494 
LAST  550 
LAST  594 


LAST  597 


26.3643 

26.3644 

26.3645 

26.3646 

26. 3647 
26  ,3650 
E7,1675 

26.3651 

26.3652 

26. 3653 


30  074  1 
7 4745  I 
C 0006  1 

1 52  61  0 

2 7716  0 
C 5105  0 

03654  0 
54067  1 
C 5261  1 


CALLDGCH 


CAE  FLAGWPDO 
MASK  RNDVZBIT 
EXTEND 

6ZF  TASKOVER 
CAP  PRI025 
TC  FINOVAC 

EeANK=  RLMSRCH 
2CA0P  DATGDCHK 

TC  TASKCVEP 


IS  RENDEZVOUS  FLAG  SET 


NO-EX  IT  R24 

YES  -SCHEDULE  JCB  TO  DRIVE  PAOAP  TO  NEXT 
POINT  IN  SEARCH  PATTERN 


PEF  27  LAST 
REF  20  LAST 

REF  1 

PEF  13  LAST 

REF  4 last 

PEF  2 LAST 
REF  5 LAST 
REF  1 


565 

575 


437 

595 

520 

597 


26.3654  3 4750 

26.3655  C 0006  1 

26.3656  C2  033  0 

26 .3657  C 0006  I 

26.3660  1 3667  1 

26.3661  4 6245  0 

26.3662  6 1736  1 

26.3663  C 0006  1 

26.3664  i 3442  1 

26.3665  25'736  1 

26.3666  1 3444  1 


CAF  eiT4 

EXTEND 

RAND  CHAN33 

EXTEND 

eZF  STCREJ  S 

CS  SI  X 

AC  NSPCHPNT 

EXTEND 

BZF  LRS24ol 

INCR  NSPCHPNT 

TCF  CHKSRCH 


1 CATGDCHK 


CHECK  IF  DATA  GOOD  DISCRETE  PRESENT 


YES-  GO  TO  STORE  11111  FOR  DISPLAY  IN  R1 
IS  N GREATFP  THAN  6 


YES  - RESET  N = 0 AND  START  AROUND  AGAIN 
NO-SET  N = N+1  AN  GO  TO 
NEXT  POINT  IN  PATTERN 


1 

5 LAST  519 


26,3667  3 3703  0 STCREIS  CAF 

26,3670  55'733  0 TS 


ALLIS 

DATAGOCD 


STORE  mil  FOR  DISPLAY  IN  PI 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  CECo  \9,\<i69  LFMP20S  -145  PAGE  598 


L P20-P25 


USER'S  PAGF  NOe  103  E7  S3 


3701  REF  8 LAST  595 

3702  REF  5 LAST  595 

3703  REF  9P  LAST  596 


26.3671 

26.3672 

26.3673 
26,367A 


C OOOA  0 
C 6C32  0 
52613  1 
C 5155  0 


INFINT 

TC 

CAOR 

TC 


KULTASK 
DESLOOP  + 
ENCCFJCB 


2 


DELETE  CESIGNATF  TASK  FROM 
WAITLIST  USING  KILLTASK 


370A  RFF  26 

37C5 

3706 

3707  REF  9 

3708  REF  A 

3709  REF  99 


LAST  568 


LAST  598 
LAST  5°4 
LAST  598 


26, 3675 
26  ,3676 
26,3677 

26.3700 

26 .3701 

26.3702 


C 5567  0 
00527  1 
0 OCCA  0 
0 6032  0 
556A3  0 
0 5155  0 


LIMALARM  TC 
OCT 

INHINT 

TC 

CAOR 

TC 


ALARM 

527 

KILLTASK 
CALLDGCH 
ENDCF JCB 


ISSUE  ALARM  527-LCS  NOT  IN  M00E2 
COVERAGE  IN  P22  OR  VEHICLE  MANEUVER 
REQUIRED  IN  P2n 
KILL  WAITLIST  CALL  FOR  NEXT 
POINT  IN  SEARCH  PATTERN 


3710 

3711 

3711 

3712  REF 

3713 

3714 

3715 

3716 

3716 

3717 

3718 
3718 

A3719 

A3720 

3721 

3722 

3722 

3723  REF 

3724 

3725  REF 

3726 

3727  REF 

3728 

3729  REF 

3730  REF 

3731  REF 

3732  REF 
3732 


7 


26.3703 

26.3704 

26.3705 
364  23  ,2521 

0014 

0022 

0014 

26.3706 

26.3707 

26.3710 

26.3711 

26.3712 


25547  0 
33555  1 
01106  1 


01642  0 
11045  0 
00001  0 
00000  1 
00454  1 


ALLIS 
SI  N60DEG 

C0S60DEG 

UXVeCTPR 

UYVECTPR 

RLMUNIT 

OFFSTFAC 

CNEOCT 

3SECnNDS 


DEC  mil 
2DEC  o86603 

= OPHALF 

EQUALS  )2C 
EQUALS  18D 
EQUALS  120 
2DEC  0<,05678 

OCT  OnOOl 
20EC  300 


3 LAST  491 

3 LAST  226 

1 

1 

4 LAST  461 
2 LAST  490 
2 LAST  263 


26.3713  01130  1 

26.3714  COOOO  1 

26.3715  00226  1 

23,2523 

4616 

6000 

6025 

6025  0 0006  1 

6026  3 6031  0 

6027  1 5165  1 
E7,1471 

6020  C3C45  0 

6031  66107  1 


6SEC0NCS  CEC  600 
loSSECS  20EC  150 


ZERC/SP  EQUALS  HI6ZERCS 
BLOCK  02 
SETLOC  FFTAG5 
BANK 

COUNT#  $5/P20 
G0T0V56  EXTEND 

OCA  VB56CACP 

TCF  SUPDXCHZ 

EBANK=  WHOCARES 
VB56CA0R  2CA0R  TRMTRACK 


(2DEC  o50) 
PREVIOUS 


TANGENT  OF  3c25  DEGREES 

****  NOTE-THESE  TWO  CONSTANTS  MUST  ###* 
*###  BE  IN  THIS  CROER  EFCAUSE  **** 

###*  ONEOCT  NEEDS  A LOWER  ORDER  #*** 
##**  WORD  OF  ZEROES  *### 


PRO  TERMINATES  BY  G0T0V56  INSTEAD  OF 
GOTOPOOH 


gap: 
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L 

P20-P25  USER'S  PA6F  NOe  10*  E7  S3 

P3733 

R 373A 

PROGRAM  NAME:  R29  (RENOEZVOLS  RADAR  DESIGNATE  DURING  POWERED  FLIGHT) 

MOO  NO*  2 BY  Ho  BLAIR-SMITH  JULY  2,  1968* 

R3735 

FUNCTIONAL  DESCRIPTION: 

R3736 

R3738 

R3740 

R37A2 

R37AA 

R37A6 

DESIGNATES  THE  RENDEZVOUS  RADAR  TOWARD  THE  COMPUTED  LOS  TO  THE  CSM,  WITH  THE  CHIEF  OBJECTIVE  OF  OBTAINING  RANGE 
AND  RANGE  RATE  DATA  AT  2-SECCNO  INTERVALS  FOR  TRANSMISSION  TO  THE  GROUND*  WHEN  THE  RR  IS  WITHIN  .5  DEGREE  OF 

TEE  COMPUTED  LOS,  TRACKING  IS  ENABLED,  AND  DESIGNATION  CONTINUES  UNTIL  THE  OATA-GODD  DISCRETE  IS  RECEIVED*  AT 
THAT  POINT,  DESIGNATION  CEASES  AND  A RADAR-READING  ROUTINE  TAKES  OVER,  PREPARING  A CONSISTENT  SET  OF  DATA  FOR 
DOWN  TELEMETRY*  THE  SET  INCUDES  RANGE,  RANGE  RATE,  MARK  TIME,  TWO  RR  COU  ANGLES,  THREE  IMUCOU  ANGLES,  AND  AN 
INDICATOR  WHICH  IS  1 WHEN  THE  SET  IS  CONSISTENT  AND  0 OTHERWISE*  THE  INDICATOR  IS  IN  TRKMKCNT* 

R37A9 

CALLING  SEQUENCE:  BEGUN  EVERY  2 SECONDS  AS  AN  INTEGRAL  PART  OF  SERVICER 

R3750 

SUBROUTINES  CALLED: 

R3751 

R3752 

R3753 

R375A 

R3755 

R3756 

REMCDE  RRTONLY 

UNIT  MPACV6UF 

QUICTRIG  AX#SR«T 

SFSIN  SFCCS 

SETRRECR  RROUT 

RPRDOT  RRRANGE 

R3757 

EXIT:  TO  N0R29N0W,  IN  SERVICER* 

R3758 

OUTPUT:  (ALL  FOP  DOWNLINK) 

R3759 

R3760 

R3761 

R3762 

R3763 

RM  ROOTM  (RAW) 

AIG  AMG 

ACG  TRKMKCNT  TRKMKCNT  = OOOOl  IF  SET  IS  CONSISTENT, 

TANGNB  TANGNB  +1  CTHERWISE  TRKMKCNT  = 00000* 

MKT  IME 
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P20-P25  USER’S  PAGE  NC»  105  E7  S3 

P376A 

ERASABLE  INITIALIZATION  REQUIRED: 

R3765 

R3767 

R3768 

R3769 

NCR29FLG  BEAORFLG  (TO  1 AND  0 BY  FRESH  START)  (RESET  N0R29FLG  TO  LET  SERVICER  RUN  R29) 

PIPTIME  RAOMOOES  (BIT  10)  (BIT  SET  TC  0 BY  FRESH  START) 

R(CSM)  V(CSM) 

R V (PIPTIME  THRU  V BY  AVE  G IN  SERVICER) 

R 3770 

DEBRIS: 

R3771 

R3772 

R3773 

R3774 

RACMOCES  (BIT  10  ) 

LCSSM  LOSVOT/4  (=  RRTARGET  £ LOSVEL) 

SAVECDUT  OLDESFLG  (SAVECOUT  = MLOSV) 

LCSCMFLG  REACRFLG 

rt3775 

ALARMS:  NONE, 

R3776 

CCMPONENT  JOBS  ANC  TASKS: 

R3777 

R3779 

R3780 

INITIALIZING,  IF  RR  IS  FCUND  TC  BE  IN  MGCE  1:  JOB  R29REH0J  AND  TASK  REMODE;  ALWAYS:  TASK  PREP0S29c 
CESIGNATING:  TASK  BEGDES29  6 JOB  R2900DES, 

RADAR  READING:  TASK  R29READ  ANC  JOB  R29RCJO0,  ALL  JOBS  ABE  NOVAC  TYPE, 

3781 

3782 
3763 

33,2045  BANK  33 

REF  ) 33,2000  SETLOC  R29/SERV 

33  ,2045  BANK 

3784 

REF  1 COUNT*  $$/R29 

3785 

REF  2 LAST  390  5014  NR29CRDR  EQUALS  EDANK5 

GAP  t 

L 

P3786 

R3788 

3790 

3791 

3792 

3793 

3794 

3795 

3796 

3797 

3798 

3799 

3800 

3801 

3802 

3803 

3804 

3805 

3806 

3807 

38C8 

3809 

3810 

3811 

3812 

3813 

3814 

3814 

3815 

3816 

3817 

3816 

3819 

3820 

3821 

3822 

3823 

3824 

3824 

3825 

3826 

3827 


ASSEf^BLE  REVISION  131  OF  AGC  PROGRAN  LUMINARY  BY  NASA  2D21U2-C91 


17:53  DECo  19,1969  LEMP20S  -,145  PAGE  601 
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SERVICER  CCMES  TO  R29  FROM  "P29?"  IF  N0R29FLG,  READRFLG,  RRREMCCE,  RRCCUZRO,  RRREPOS,  AND  C ! S PL  AY- 1 NERT  lAL-DAT A 
ARE  ALL  RESET,  AND  THE  RR  IS  IN  LGC  MODE  (OFTEN  CONFUSINGLY  CALLED  AUTO  MOOEIo 


REF  99  LAST  595 
REF  5 LAST  550 

REF  1 


33.2045  4 CllC  0 R29 

33.2046  7 4742  0 

33.2047  C 0006  1 

33,2050  1 2123  I 


CS  PAOMCOES 
MASK  PESIGBIT 
EXTEND 

B2F  R29<,L0S 


BRANCH  IF  DESIGNATION  IS  ALREADY  ONo 


REF  100 
REF  54 


REF  40 
REF  2 
REF  U 
REF  12 
REF  1 
RFF  39 
REF  40 
REF  155 
REF  3 
REF  12 
REF  101 
REF  205 
REF  1 


LAST  601 
LAST  5P3 

LAST  5P4 
LAST  556 
LAST  594 
LAST  601 

LAST 
LAST 
LAST 
LAST 
LAST 
LAST 
LAST 


33  ,2051 

33.2052 

33.2053 
33  ,2054 

33.2055 

33.2056 

33.2057 

33.2060 

33.2061 

33.2062 

33.2063 
33  ,2064 

33. 2065 

33.2066 

33.2067 
33,2070 
33  ,2071 


0 0004  0 
26  110  0 
4 4736  0 
0 0006  1 
C3  C12  1 
4 4740  1 
7 0076  1 
54  076  1 
4 4753  0 
7 0074  0 
54  074  0 

0 4616  1 
52167  0 

3 4740  0 
7 0110  0 
1C  000  0 

1 2104  1 


555 

601 

582 

544 

548 

601 

577 


INF INT 

ADS  FACNCCES 

CS  BIT14 

EXTEND 

VtANO  CHAM2  “ 

CS  Lose  MB  IT 

RASK  FLAGWRC2 

TS  FLAGWRD2 

CS  OLDESBIT 

MASK  STATE 

TS  STATE 

TC  BANKCALL 

CADR  SETRRECR 

CA  ANTENBIT 

MASK  RACMODES 

CCS  A 

TCF  SFTPRPOS 


SHOW  THAT  DESIGNATION  IS  NOW  DNc 

REMCVE  RR  TRACK  ENABLE  DISCRETE® 

CLEAR  LOSCMFLG  TO  SHOW  DES®  LOOP  IS  OFF® 

SHOW  THAT  DESo  LOOP  IS  NOT  REQUESTED® 
ENABLE  RR  ERROR  COUNTERS® 

TEST  RR  MODE  B IT® 

MODE  2® 


REF  2 LAST  330 
REF  11  LAST  510 
REF  32  LAST  594 
REF  1 
REF  1 

REF  6 LAST  601 
REF  102  LAST  601 
REF  103  LAST  601 
REF  6 LAST  594 
REF  104  LAST  601 
REF  1 


33.2072  2 5C31  0 

33.2073  0 5072  1 
E7 , 1456 

33.2074  021X3  0 

33.2075  66067  0 

33.2076  4 4742  0 

33.2077  7 0110  0 

33  ,2)00  54  110  0 

33,21Ci  2 4736  1 

33.2102  26  110  0 

33.2103  1 2573  0 


CA  PRIC2!. 

TC  NOVAC 

FeANK=  LOSCCUNT 

2CADR  R29REM0J 

CS  DESIGBIT 

MASK  PADMODES 

TS  RAOMODES 

CA  REMCCeiT 

AOS  RADMODES 

TCF  NCR29N0W 


MODE  ) ; MUST  R EMOOE® 

NEEDS  OWN  JOB  TO  PADSTALL  IN® 


CLEAR  DESIGNATE  FLAG  IN  RAOMODES 
BEFORE  CALLING  REMCOB 

SHCW  THAT  REMOOTNG  IS  ONc 
CONTINUE  SERVICER  FUNCTIONS® 


REF  74 
REF  25 
REF  33 
REF  1 
REF  1 
REF  7 
REF  105 
REF  2 


LAST  567  33,2104 

LAST  59^  33,2105 

LAST  601  £7,1456 

33,21C6 
33  ,2107 
LAST  561  33,2110 

LAST  601  33,2111 

LAST  601  33  ,2112 


3 4753  1 SETPRPOS 

0 5203  0 

03604  0 
52067  1 
3 4741  1 
26  110  0 

1 2573  0 


CA  ONE 

TC  WAITLIST 
E0ANK=  LOSCCUNT 
2CADR  PREP0S29 

CA  REPOSBIT 

AOS  RADMODES 
TCF  N0R29Nnw 


TASK  TO  SET  TRUNNION  ANGLE  TO  -180  DEG® 

SHOW  THAT  REPOS  IT  ICNING  IS  ON® 


GAP: 

L 

P3828 

3829 

3830 

3831 

3832 

3832 

3833 

3834 

3835 

3836 

R3837 

3838 

3839 

3840 

3841 

3842 

3843 

3844 

3845 

R3846 

3848 

3849 

3850 

3851 

3852 

3853 

3854 

3855 

3856 

3857 

3858 

3859 

3860 

3861 
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FCRCE  RENDEZVOUS  RADAR  INTO  MODE  2o 


REF  75  LAST  601 
REF  26  LAST  601 
REF  34  LAST  601 
REF  2 LAST  550 

REF  156  LAST  601 
REF  12  LAST  576 


'3,2113  3 4753  1 R29REMCJ  CA  ONE 


33.2114  C 5203  0 
E7,1456 

23.2115  02202  0 

33.2116  52067  1 

33.2117  0 4616  1 

23,2120  17705  C 


TC  WAITLIST 
FEANK=  LOSCOUNT 
2CADP  REMOOE 

TC  BANKCALL 
CADR  RADSTALL 


REMODE  must  run  as  a TASK,-. 
WAIT  FOR  END  OF  REMOOINGo 


REF  100  LAST  598  33,2121  1 5155  1 
REF  101  LAST  602  23,2122  1 5155  1 


TCF  FNOOFJOB  BAD  FXIT  CAN'T  HAPPEN® 

TCF  ENCOFJOB 


TASK  TC  PREPOSITION  THE  RR  TRUNNION  ANGLE  TO  -180  DEG® 


REF 


25,2000  SETLOC  R29S1 

25,3604  BANK 


REF  2 LAST  369 
REF  5 LAST  536 
REF  8 LAST  601 
REF  106  LAST  601 
REF  107  LAST  602 
REF  27  LAST  597 


25.3604  3 4735 

25.3605  0 2252 

25.3606  4 4741 

25  ,3607  7 0110 

25.3610  54  110 

25.3611  1 5261 


1 PREP0S29  CA 
0 TC 

0 CS 

0 MASK 

0 TS 

0 TCF 


NEGMAX 

PRTONLY 

REPCSBIT 

RACMODES 

PACMCOES 

TASKQVER 


-180  DEGo 

DRIVE  TRUNNION  CDUo 

SHOW  THAT  REPOS  IT  ICNING  IS  OFF„ 


COMPUTE  LINE-OF-SIGHT  ANO  LOS  VELOCITY,  AND  PASS  THEM  TO  THE  R290G0FS  LOOP* 


REF 


33, 2045 
33,2123 


SETLOC  P29 
BANK 


REF  4 LAST  338 
REF  259  LAST  579 

REF  16  LAST  575 
REF  260  LAST  602 
REF  4 LAST  338 
REF  261  LAST  602 

REF  23  LAST  554 
REF  262  LAST  602 
REF  60  LAST  596 


33.2123 

33.2124 
33  ,2125 

33.2126 

23.2127 
33,2130 
23,  2131 

33.2132 

33.2133 

33.2134 
33  ,2135 
23,2136 


0 0006  1 
4 1234  1 
52  155  1 
C C0C6  1 
3 0025  0 
20  155  1 
54  163  1 
3 0155  0 
0 C006  1 
7 4740  1 
52  155  1 
C 6C42  1 


R29«  LOS 


EXTEND 

DCS  PIPTIME 

DXCH  MPAC 

£ XTENO 

OCA  T1ME2 

OAS  MPAC 

TS  MODE 

CA  MPAC  +1 

CXTENO 

MP  BIT12 

DXCH  MPAC 

TC  INTPRET 


(MPACI  = T-PIPTIME,  SCALED  B-28o 
SET  MODE  TO  DOUBLE  PRECISIONo 


T-PlPTIME  NOW  SCALED  B-17. 


GAP: 

L 

P3862 

R3864 

3865 

3866 

3867 

3668 

3869 

3870 

3871 

3872 

3873 

3874 

3875 

3876 

3877 

3878 

3879 

3880 

3881 

3882 

3883 

3884 

3885 

3686 

3387 

3688 

3889 

3890 

3891 

3892 

3893 

3894 

3894 

3895 

3896 

3896 
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P20-P25  USER'S  PAGF  NCo  108  E7  S3 

L0SCMFLG=0  MEANS  THAT  THE  CESIGNATICN  IS  READY  FOR  NEW  DATA,,  SETTING  LOSCMFLG  MAKES  IT  GO  AWAY  SO  SETUP290  CAN 
START  IT  UP  when  THE  CATA  IS  IN  PLACEe 


REF  1 

REF  2 LAST  149 


REF  1 

REF  4 LAST  235 

REF  9 LAST  571 

REF  1 

REF  3 LAST  601 


33,2137  52315  1 

33.2140  C172e  0 

33.2141  03527  1 

33.2142  74325  0 

33.2143  52255  1 

33.2144  01720  0 

33.2145  03521  1 

33.2146  77414  0 

33.2147  01043  1 

33.2150  66152  I 

33.2151  1 2573  0 


POVL  VSU 

V(CSR) 

V 

POOL  VXSC 
VAD  VSU 

P (CSM> 

R 

BTFSET  EXIT 

LOSCMFLG 
SETUP29C 
TCF  NOP29NOW 


PUSH  DOWN  T-PI  PTI  MEc 
LOSVEL  = VtCSM)  - Vo 

SWAP  LOSVEL  FOR  T-PIPTIRE,  MULTIPLY  THEM 
AND  ADD  THE  RESULT  TO  R(CSM)  - R TO  GET 
AN  UP-TO-DATE  LOS  VECTOR  IN  SM  AXESo 

(ROFSET  DOES  ITS  THING  INHINTEC.) 

IF  DESIGNATE  LOOP  IS  OFF,  CHANGE  LOSCM- 
FLG TO  ON  AND  GO  TO  SET  UP  NEW  DATA,. 

IF  DESo  LOOP  IS  ON,  LET  IT  USE  OLD  DATA., 


REF 

REF 

REF 

REF 


1 


1 

1 


IP 


LAST 


603 


33,2152  25101  0 SETUP29D  STOVL  LOSSM 


23.2153  OOCOl  0 

33.2154  77761  1 

23.2155  26177  1 

33.2156  01761  0 

33.2157  77414  0 

33,216C  01263  1 


0 

VXSC 

e5SEC817 
STORE  LnSVDT/4 
CLEAR  EXIT 

LCSCMFLG 


LIME-OF-SIGHT  VECTOR,  STABLE  MEMBER  AXES 

1/2  SECOND'S  WCRTH  CF  LCS  VELOCITY^ 

LET  R290LOnP  USE  NEW  DATA. 


REF  41  LASt  601 
REF  2 LAST  601 

PEF  4 LAST  6t.'3 

REF  42  LAST  603 


33.2161  4 0074  0 

33.2162  7 4753  0 

33.2163  C 0006  1 

33.2164  1 2573  0 

33.2165  C 0004  0 

22.2166  26  C74  0 


CS  STATE 

MASK  OLCESBIT 
EXTEND 

0ZF  NOR29NOW  BRANCH  IF  R2o  OESo  LOOP  IS  REQUESTED, 

INFINT 

ADS  STATE  CTHERWISE  REQUEST  IT  NOW, 


REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 


1 

1 

4 LAST  383 
27  LAST  602 
35  LAST  602 

1 

1 

5 LAST  603 


23.2170 

33.2171 

33.2172 
E7, 1456 

33.2173 

33.2174 

23.2175 


6 4777  1 
C 5203  0 


03357  0 
50067  0 
1 2573  0 


TC 

EBANK= 

2CADR 


PIPCTR 
SUPERllO 
1 SEC 

WAITLIST 

LOSCCUNT 

BEGDES29 


SEE  IF  TASK  SHOULD  BE  OFFSET  ONE  SECONOc 
-96C  +100D  = 4o 
0 + lOOD  = lOPOo 


START  BEG0ES2Q  TASK  ASAPo 


TCF  NQR29NCW 


RELINT 


AND  CONT  INUE 


SERVICER  FUNCTIONS. 


33.2176  00006  1 c5SECRl7  2DEC  50  6-17 

33.2177  10000  0 


GAP: 

L 

P3897 

R3899 

3900 

3901 

3902 

3903 

39P4 

3905 

3906 

3907 

3907 

3908 

3909 

3910 

3911 

3912 

3913 

3914 

3915 

3916 

3917 

3918 

3919 

3920 

3921 
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R29  DESIGNATE  JOB  ANO  TASK  MACHINERYo  TASK  RECURS  EVERY  *5  SEC  UNTIL  DESIGNATE  IS  CALLED  OFF;  IT  MAY 
CENTISECOND  OR  THO  IF  IT  COMES  UP  WHILE  SeTUP290  IS  SUPPLYING  NEW  DATAo 


PAGE  604 
E7  S3 

WAIT  FOR  A 


REF  6 LAST  578 


24,3357 

24,2000 

24,3357 


BANK  2A 
SETLOC  P20S 
BANK 


REF 


1 


COUNT*  t$/R29 


REF  3 
REF  12 
REF  2 
REF  1 
REF  1 


LAST  601 
LAST  601 
LAST  603 


2A, 3357 

24.3360 
E3,1760 

24.3361 

24.3362 


3 5031  0 
0 5072  1 

02550  0 
64063  0 


BEG0ES29  CAF 
TC 


EeANK= 


2CA0R 


PR  I C?  1 
NDVAC 
LOSVnT/4 
R29DODES 


START  R29D0DES  JOB  TWICE  A SECONOo 


REF  2 LAST  520 
REF  4 LAST  568 


2A,3363  3 A774  1 P29CLCCP  CAF 
24,3364  0 5224  0 TC 


c5SEC 

VAROELAY 


REF  108  LAST  602  24,3365  4 OllO  0 

REF  7 LAST  601  24,3366  7 4742  0 

REF  206  LAST  601  24,3367  10  000  0 

REF  28  LAST  602  24,3370  1 5261  0 


CS  RACMODES 
MASK  DESIGBIT 
CCS  A 

TCF  TASKCVER  QUIT  IF  DESIGNATION  IS  CALLED  OFF 


REF  13  LAST  601  24,3371  4 0076  1 CS 

REF  3 LAST  601  24,3372  7 4740  1 MASK 

24.3373  C 0006  1 EXTEND 

24.3374  1 3377  0 BZ  F 

REF  14  LAST  604  24,3375  26  076  1 ADS 

REF  2 LAST  603  24,3376  1 3357  1 TCF 


FLAGWRD2 

L0SCM6IT 

+3  BRANCH  IF  SETUP20D'S  SUPPLYING  NEW  DATA* 

FLAGWR02  SET  LOSCMFLG:  SHOW  THAT  DESo  LOOP  IS  ON- 

BEG0ES29 


REF  76  LAST  602  24,3377  3 4753  1 
REF  1 24,3400  1 3364  1 


CA  ONE 

TCF  R290L00P  +1  WAIT  A CENTISECOND  FOR  NEW  DATAr 


gap: 

L 

P3922 

R3923 

R3925 

R3927 

R3929 

R 3931 

R3933 

R3935 

3936 

3937 

3938 

3939 

39'VO 

3941 

3942 

3943 

3944 

3945 

3946 

3947 

3948 

3949 

3950 

3951 

3952 

3953 

3954 

3955 

3956 

3957 

3958 

3959 

396U 

3961 

3962 

3963 

3964 

3965 

3966 
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THIS  ROUTINE  DOES  MUCH  THE  SAME  THING  AS  OOOES,  BUT  A GREAT  DEAL  FASTER®  IT  TAKES  THE  NDN-UMTIZEO  LOS  VECTOR 
IN  STABLE  MEMBER  COORDINATES  (LCSSMI  AND  A OELTA-LOS  IN  SM  AXES  (LOSVOT/4)  WHICH  IS  1/2  SFC  TIMES  LOS  VELOCITY, 
AND  DEVELOPS  THE  SHAFT  AND  TRUNMCN  CCMMANDS  USING  SINGLE  PRECISION  AS  MUCH  AS  POSSIBLE,  AND  INTERPRETIVE  NOT  AT 
ALL®  THE  UNITILOSSM  + LOSVEL  * 1 SEC)  IS  COMPUTED  IN  DP  AND  TRANSFORMED  TC  NAV  BASE  COCPDINATES  IN  DOUBLE  PRE- 
CISION (USING  SP  SINES  AND  COSINES  CF  CDU  ANGLES),  AND  THE  REST  TS  DONE  IN  SPo 


THE  FUNCTIONAL  DIFFERENCE  IS  THAT  R29DODES  ALWAYS  CLEARS  LOSCMFLG  WHEN  IT  ENOS,  AND  IT  STARTS  UP  THE  R29READ 
TASK  WHEN  LCCK-CN  IS  ACHIEVECo 


REF 


LAST 


40 


32,2550 
32, 2000 
32,2550 


BANK  32 
SETLOC  F2DPS*32 
BANK 


RfcF  1 

REF  3 LAST  604  E3,1760 


CCUNT*  S.$/R29 
EBANK=  LOSVnT/4 


REF 

REF 

REF 


LAST 

LAST 

LAST 


604 

576 

557 


32,2550 
32,  2551 
32,2552 


3 4753  1 R29D00ES  CA 
55'1C6  0 TS 
3 4756  1 CA 


ONE 
TANG 
F IVE 


INDICATE  1ST  PASS  THRU  VECTOR  LOOP® 


REF  207 
REF  173 
REF  22 
REF  1 


LAST 

LAST 

LAST 


604 
566 

605 


32,2553 
32,  2554 
32  ,2555 
32,2556 


10  000  0 
54  002  1 
11'106  0 
1 2564  C 


R29CV8EG  CCS 


A 

0 

TANG 

R290PASJ 


COUNT  DOWN  BY  TWOS  IN  VECTOR  LOOPr 


DO  THIS  ON  1ST  PASS  THRU  LOOP^ 


REF  174 
REF  4 
REF  175 
REF  2 


LAST  605 
LAST  605 
LAST  605 
LAST  603 


32,2560 
32,  2561 

32.2562 

32.2563 


C 0006  I 
5 0C02  0 
3 1761  0 
50  002  0 
21*101  1 


EXTEND  (A  "PASS"  HERE  MEANS  3 TIMES  AROUND). 

INDEX  0 

DCA  LOSVOT/4 

INDEX  0 

DAS  LOSSM  ADVANCE  LOS  VECTOR  1/2  SECOND® 


REF  176  LAST  605 
REF  3 LAST  605 
REF  177  LAST  605 
REF  263  LAST  602 
REF  23  LAST  605 
REF  1 


32,  2566 
32,2567 
32,2570 
22,  2571 
32  ,2572 


0 0006  1 
5 0002  0 
3 llCl  0 
50  002  0 
52  156  1 
11 ' 106  0 
1 2600  1 


R29DPAS1  EXTEND 
INDEX 
DCA 
INDEX 
OXCH 
CCS 
TCF 


Q 

LOSSM 

0 

MPAC  +1 
TANG 

F 29DVEND 


MOVE  CURRENT  LOS  (1ST  PASS)  OR  LOS  PRO- 
JECTED 1/2  SFC  AHEAD  (2ND  PASS)® 

RUG  OUT  HERE  I N 1 ST  PASS® 


REF  178 
REF  5 
REF  179 
REF  264 


LAST 

LAST 

LAST 

LAST 


605 
605 
605 
60  5 


22.2573 

32.2574 

32.2575 
32,  2576 
32  ,2577 


C 0C06 
5 0002 
3 1761 
50  002 
20  156 


I 

0 

0 

0 

1 


EXTEND 

INDEX 

OCA 

INDEX 

DAS 


0 

LOSVOT/4 

0 

MPAC  H 


PROJECT  LOS  1 SECOND  AHEAD  (2ND  PASS). 


REF  180  LAST  605 
REF  1 


32,2600  10  002  1 R29DVEN0  CCS 

32,26C1  1 2553  1 TCF 


Q 

R29DVBEG 


BRANCH  TO  CONTINUE  VECTCR  LOOP® 


GAP: 

L 

P3967 

3969 

3970 

3971 

3972 

3973 

397A 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3966 

3987 

3988 

3989 

3990 

3991 

3992 

3993 

3994 

3995 

3996 
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P20-P25 


USER*  S PAGE  NC,  111  £3  53 


UNITIZE  AND  TRANSFORM  TO  NAV  BASE  AXES  THE  PRESENT  LOS 


(1ST  PASS)  OP  THE  1-SEC  PROJECTED  LOS 


(2N0 


PASSIo 


REF  265 
REF  266 
REF  1 
REF  18 
REF  1 
REF  1 
REF  1 


LAST  605 
LAST  606 

LAST  358 


32i2602 
22  >2603 
22,  2604 

32.2605 

22.2606 
32,2607 
32  ,2610 


52  156  1 
52  155  1 
2 2776  0 
54  120  0 
0 4713  0 
01023  1 
0 7535  0 


OXCH  MPAC  +1 

CXCh  MPAC 

CA  R29FXLCC 

TS  FIXLOC 

TC  USPRCAOR 

CADR  UNIT 

TC  MPACV8UF 


= ACRES  INTB15+  -340 

WITH  FIXLOC  ARMED  FOR  LENGTH  AND  LENGTH 
SQUARED,  BORROW  UNITIZING  ROUTINEc 
MOVE  UNIT(LOS)  TO  AX#SR*T  ARC  APEAo 


REF  24 
REF  1 


KEF  II 
KEF  1 
REF  3 
REF  16 
REF  6 
REF  17 
REF  1) 
REF  18 
REF  157 
REF  1 


LAST  605 


LAST  596 

LAST  575 
LAST  585 
LAST  359 
LAST  606 
LAST  575 
LAST  606 
LAST  602 


32.2612 

22.2613 

22.2614 

32.2615 

22.2616 
32,2617 
32  ,2620 
22,2621 

32.2622 

22.2623 

22. 2624 

32.2625 

32.2626 

22. 2627 


1 2630  1 
0 0004  0 
0 0006  1 
3 0036  1 
53'767  I 
3 0033  1 
54  765  1 

2 0034  0 
54  767  0 
2 0C32  0 
54  771  I 
0 4616  I 

47617  1 


TCF 

INHINT 

EXTEND 

OCA 

DXCH 

CA 

TS 


TANG 
+ 2 

GOTANGLS 


CDUT 

SAVECOUT 

COUY 

CDUSPOT 

CDU2 

CDUSPOT  +2 
CDUX 

CDUSPOT  +4 

BANKCALL 

QUICTRIG 


REF  19  LAST  569 
REF  158  LAST  606 
REF  1 


32  ,2630 

22.2631 

32.2632 


4 6250  1 GOTANGLS  CS 
C 4616  I TC 

47677  1 CADR 


THREE 

BANKCALL 

AX#SR*T 


GET  CDU  ANGLES  ONLY  AFTER  1ST  PASSo 
ENSURE  CONSISTENT  CDU  READINGS* 

TRUNNION  AND  SHAFT  ANGLES* 


CDU  ANGLES  IN  FUNNY  CRDER  FOR  AX#SR*To 
GET  SINES  AND  COSINES  OF  CDU  ANGLES* 

TRANSFORM  UNIT  LOS  TO  NE  AXES  (ULOSNBIe 


REF  25 
REF  1 


LAST  606  32,2633  11'106  0 

22.2634  1 2636  1 

32.2635  1 2703  0 


CCS  TANG 

TCF  +2 

TCF  R290PAS2  GO  TO  RR  COMMAND  CCMP*  AFTER  2N0  PASS* 


GAP  ; 

L 

P3997 

R3999 

AOOO 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4006 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

402  7 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 
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CCMPUTE  COSINE  OF  THE  ANGLE  BETWEEN  THE  PRESENT  LOS  AND  THE  RP  BORESIGHT  VECTOR,  AND  SET  THE  SELFTRACK  ENABLE  IF 
THE  COSINE  IS  APPROXIMATELY  CCS(o5  DEG)  CR  GREATER  (1,6,  SMALLER  ANGLE), 


REF  26  LAST 
REF  2 LAST 
REF  3 LAST 
REF  2 LAST 
REF  3 LAST 
REF  3 LAST 
REF  5 LAST 

REF  26  LAST 
REF  267  LAST 
REF  4 LAST 
REF  4 LAST 
REF  5 LAST 

KEF  3 LAST 

REF  27  LAST 
KEF  268  LAST 
REF  6 LAST 
REF  4 LAST 
REF  7 LAST 

REF  4 LAST 

REF  28  LAST 
REF  269  LAST 

REF  270  LAST 
REF  271  LAST 
REF  208  LAST 
REF  55  LAST 


REF  41  LAST 
KEF  2 LAST 


22,2636 
606  32  ,2637 

606  22,2640 

191  22,2641 

253  32  ,2642 

607  22,  2643 

190  22,2644 

602  22,2645 

22,2646 
337  32  ,2647 

606  22,2650 

607  32,2651 

607  32  ,2652 

607  32,  2652 

32,2654 
607  22,2655 

32,2656 
607  32  ,2657 

607  32,2660 

607  32,2661 

607  32  ,2662 

607  32,2663 

32,2664 
607  32,2665 

22,2666 
607  32  ,2667 

607  22,2670 

32,2671 
607  32  ,2672 

607  22,2673 

605  32,2674 

601  22,2675 

32,2676 
32  ,2677 
601  32,2700 

32,2701 
6(*5  32  ,2702 


C 0004  0 
55  * 106  0 

3 1766  1 
C 5032  0 
54  166  1 

4 1766  C 
C 5033  1 
54  163  1 
r 0006  1 

7 0124  1 
52  155  I 

2 1767  0 
0 5033  1 
55' 766  C 
C 0006  1 
7 0166  1 
C 0006  I 
7 0122  1 
20  155  1 

3 1767  0 

0 5032  0 
55'767  I 
0 0006  1 
7 0166  I 
C 0006  1 
7 0126  n 
20  155  1 
C 0006  1 
3 0155  0 

20  155  1 T6STC0S 
1 0 000  0 
3 4736  1 
12  677  1 
C 0006  1 
C5  012  1 
C 0003  1 

1 2552  0 


INHINT 

TS  tang 

CA  SAVECDUT 

TC  SPCOS 

TS  PUSHLOC 

CS  SAVECDUT 

TC  SPSIN 

TS  MODE 

EXTEND 

MP  VRUF  +2 

DXCH  MPAC 

CA  SAVECDUT  +-1 

TC  SPSIN 

TS  SAVECDUT 

EXTEND 

MP  PUSHLOC 

EXTEND 

MP  VBUF 

DAS  MPAC 

CA  SAVECDUT  +1 

TC  SPCOS 

TS  SAVECDUT  +1 

EXTEND 

MP  PUSHLCC 

EXTEND 

MP  VBUF  +4 

DAS  MPAC 

EXTEND 

DCA  MPAC 

OAS  MPAC 

CCS  A 

CA  8IT14 

NOOP 

EXTEND 

WOR  CHAN12  - 

REL  INT 

TCF  R20DV6FG  -1 


INDICATE  2N0  PASS  THRU  VECTCR  LOOPo 

PUSHLOC  = COS  To 

MODE  = -SIN  To 

FORM  - SIN  T ULOSNBYo 

SAVECDUT  NOW  = SIN  S, 


FORM  SIN  S COS  T ULCSNBXo 


SAVECDUT  +1  NOW  = COS  S o 


FORM  COS  S CnS  T ULCSNBZo 
COS(ERROR)  = ULnSNB  - (SIN  S COS  T, 

- SINT,  COS  S COS  T I 

(ULCSN6  IN  VBUF  WAS  A HALF-UNIT  VECT(3R), 
TEST  FOR  ♦ OVERFLOW,  NONE,  OR  MINUSo 


IF  PLUS  OVERFLOW,  SET  SELFTRACK  ENABLEo 
MAKE  2N0  PASS  THRU  VECTCR  LOOPj 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PRGGPAf'  LUMINARY  BY  NASA  2021112-091 
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L P20-P25  . USER'S  PAGE  NOe  113  E3  S3 

PA037  COMPUTE  SHAFT  AND  TRUNNION  CCMMANCS  TO  NULL  HALF  THE  ERROR  IN  HALF  A SECOND* 


4039  REF  a 

4040 

A041  REF  20 

4042  REF  27 

4043  REF  9 

4044 

4045  REF  30 

4046  REF  28 

4047  REF  6 

4048 

4049  REF  1.0 

4050 

4051  PEF  31 

4052  REF  272 

4053  REF  5 

4054 

4055  REF  32 

4056  REF  273 

4057  REF  7 

4058 

4059  REF  11 

4060 

4061  REF  33 

4062  REF  274 

4063  REF  275 

4064 

4065  REF  1 

4066  REF  4 

40665  REF  29 

4067 

4068  REF  2 

4069  REF  2 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


607 

607 

607 
60  8 

608 
608 

607 

608 

608 

607 

607 

606 

608 
608 

608 

608 

608 

608 


554 
60  8 

608 

554 


32.2703 

32.2704 
32  ,2705 

32.2706 

32.2707 

32.2710 

32.2711 
32  ,2712 

32.2713 

32.2714 

32 .2715 

32. 2716 

32.2717 

32.2720 

32.2721 
32  ,2722 

32.2723 

32.2724 

32.2725 

32. 2726 

32.2727 
32,2730 
32,  2731 
32  ,2732 

32.2733 

32.2734 

32.2735 

32.2736 

32.2737 

32.2740 

32.2741 

32.2742 


3 1767  0 
C 0006  I 
7 0122  1 
53'1C7  1 

4 1766  0 
C 0006  1 
7 C126  C 
21'107  1 
4 C163  1 
0 0006  1 
7 1766  0 
C 0006  1 
7 0122  1 
52  155  1 

3 0166  0 
0 0006  1 
7 0124  1 
20  155  1 

4 0163  1 
C 0006  1 
7 1767  1 
C 0006  1 
7 0126  0 
20  155  1 
3 0154  I 
0 0006  1 
7 2777  n 
55*354  0 
3 1106  1 
C 0006  1 
7 2777  0 
55*355  1 


R290PAS2  CA 

EXTEND 

MP 

DXCH 

CS 

EXTEND 

MP 

OAS 

CS 

EXTEND 

MP 

EXTEND 

MP 

CXCH 

CA 

EXTEND 

MP 

OAS 

CS 

EXTEND 

MP 

EXTEND 

MP 

DAS 

CA 

EXTEND 

MP 

TS 

CA 

EXTEND 

MP 

TS 


SAVECDUT  fl 

VBUF 

TANG 

SAVECDUT 

VBUF  +4 

TANG 

MODE 

SAVECDUT 

VBUF 

MPAC 

PUSHLCC 


VBUF  +2 

MPAC 

MODE 

SAVECDUT  +1 

VBUF  +4 

MPAC 

MPAC 

RR29GAIN 

TRUNNCMD 

TANG 

RR29GAIN 

SHAFTCMO 


FORM  COS  S ULOSNB'Xc 


FORM  - SIN  S ULCSNB'Zo 
RAW  SHAFT  CMO  = ULCSN8*  r (COS  S,  0, 
- SIN  SI 


FORM  SIN  T SIN  S ULCSNB'X* 


FORM  COS  T ULOSNB'Yo 


FORM  SIN  T COS  S ULCSNP'Zo 
RAW  TRUNNION  CMO  = ULOSNB*  « 

(SIN  S SIN  T,  COS  T,  SIN  S COS  TI, 


STORE  REFINFO  SHAFT  CGMMANO  FOR  RROUT 


gap: 

L 

P'^OTO 

RA072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4060 

4081 

4082 

40  83 

408-^ 

4085 

4066 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 
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WHETHER  CR  ^CT  TRACKING  WAS  ENAELBC  THIS  TlMEi  ChECK  ON  PR  DATA-GOODc  IF  PRESENT*  STOP  DESIGNATING  AND  START 
READING  DATA  FROM  THt  RENDEZVOUS  RADAR* 


REF  28  LAST  597 
REF  21  LAST  597 

REF  1 


32,2743  3 4750  1 

32  ,2744  0 0006  1 

12,2745  C2  C33  0 
32,2746-  0 0004  0 
32  ,2747  0 0006  1 

32,  2750  1 2754  1 


DGOOO? 


CAF 

EXTEND 

RAND 

INFINT 

EXTEND 

BZF 


El  T4 
CHAN33 


R29LCKCK 


GET  RR  DATA-GODD  BIT* 

(MAINLY  FCR  RRPUT  ), 

ERANCH  IF  OATA-GOOD  IS  PRESENT* 


REF  159 
REF  3 
REF  1 


32.2751 

32.2752 

32.2753 


C 4616  I 
52317  0 
1 2772  0 


TC  BANKCALL 

CADR  PRCUT  DATA-GOOD  IS  ABSENT,  SO  SEND  COMMANOSc 

TCF  END290CD 


REF  8 
REF  109 
REF  110 
REF  34 


REF  42 
REF  2 
REF  li 
REF  2 
REF  2 
REF  5 
REF  28 
REF  36 
REF  1 
REF  1 


LAST  604 
LAST  604 
LAST  609 
LAST  577 

LAST  607 
LAST  222 
LAST  559 
LAST  603 
LAST  603 
LAST  603 
LAST  603 
LAST  603 


32.2754 

32.2755 

32.2756 

32.2757 

32. 2760 

32.2761 

32.2762 

22. 2763 
32  ,2764 

22.2765 

32.2766 
32  ,2767 
E7, 1456 

32.2770 

22.2771 


4 4742  0 

7 Clio  0 
54  110  0 
4 4752  1 
0 0006  1 
03  012  1 

3 4743  0 
26  C77  0 
11*055  I 

4 4776  1 
6 4777  1 
C 5203  0 

03401  1 
50067  0 


R29L0K0N  CS 

MASK 

TS 

CS 

EXTEND 

WAND 

CA 

AOS 

CCS 

CS 

AD 

TC 

e8ANK= 

2CADR 


DESIGBIT 

RACMCCES 

RADMODFS 

BIT2 

C HAN)  2 

REA0R8IT 

FLAGWRC3 

PIPCTR 

SUPERHO 

ISEC 

WAITLIST 

LOSCCUNT 

P29REA0 


SHCV.  THAT  DESIGNATION  IS  OVER, 


DISABLE  RR  ERROR  CGUNTERSc 

SHOW  THAT  READING  FAS  BEEN  PEQUESTEOo 
SEE  IF  TASK  SHOULD  BE  OFFSET  } SEC* 

- 060  + 1000  = 4c 
0 + 1000  = lOOOc 


START  READING  TASK  AND  JOB* 


REF  4 LAST  604 
REF  15  LAST  604 
REF  16  LAST  609 
REF  102  LAST  602 


32,2772  4 4740  1 

32  ,2773  7 3076  I 

32.2774  54  076  1 

32.2775  1 5155  1 


EN02900D  CS 

MASK 

TS 

TCF 


LOSCMBI T 
FLAGWRD2 
FLAGWRC2 
FNOOFJO0 


ALWAYS  CLEAR  LPSCMFLGo 


REF  4 LAST  96 

REF  6 LAST  595 

REF  14  LAST  595 

REF  6 LAST  572 


32.2776  . 00052 

22.2777  56655 
63,1760 

1100 
63, 1766 


0 R29FXL0C 

1 RR29GAIN 
LOSVDT/4 
LOSSM 
SAVECOUT 


ACRES  INTB15+  -34D 
DEC  -<,53624 
EQUALS  LOSVEL 
EQUALS  PRTARGET 
EQUALS  MLOSV 


gap:  ASSEf'Bie  REVISION  131  OF  A6C  PROGRAM  LUMINARY  BY  NASA  2021112-091 


P20-P25 


P4105 


RR  READING  IS  SET  UP 


BY  R290CDES  ^^HEN  IT  DETECTS  RR  LGCK-ONo 


4106  24,3401 

4107  REF  7 LAST  604  24,2000 

4108  24,3401 


BANK  24 
SETLOC  P20S 
BANK 


4109  REF  2 LAST  604  TO  605: 

4110  REF  37  last  609  £7,1456 


4111 

4112 

4113 

4114 
4114 


REF 

REF 

REF 

REF 

REF 


LAST 
LAST 
L AST 


24,3  401 

24.3402 
E7, 1456 

24.3403 

24.3404 


COUNT*  $t/R29 

EBANK=  LOSCCUNT 

R29REA0  CAF  PRI026 

TC  NQVAC 

EBANK=  LOSCCUNT 
2CA0R  R29R0J0B 


4115  REF  2 LAST  560 

4116  REF  5 LAST  604 


24.3405  2 5000  1 

24.3406  0 5224  0 


CA  2SECS 

TC  VARDELAY 


4117  REF  12  LAST  609 

4118  REF  3 LAST  609 

4119  REF  209  LAST  607 

4120  REF  2 LAST  609 

4121  REF  29  LAST  604 


24,3407  3 0C77  1 

24.3410  7 4743  1 

24.3411  10  000  n 

24.3412  1 34C1  0 

24.3413  1 5261  0 


CA  FLAGWRD3 

MASK  READRBIT 

CCS  A 

TCF  R29REA0 

TCF  TASKOVER 


4122  REF  13 

4123  REF  3 

4124  REF  210 

4125  REF  1 

4126  REF  111 

4127  REF  6 

4128  REF  211 

4129  REF  1 


LAST  610 
LAST  282 
LAST  610 

LAST  609 
LAST  541 
LAST  610 


24,3414  ? 0077  1 R29ROJOB  CA  FLAGWRD3 


24.3415  7 4741  0 

24.3416  10  000  0 

24.3417  1 3501  1 

24.3420  3 0110  1 

24.3421  7 4752  1 

24.3422  1C  COO  0 

24.3423  1 3476  0 


MASK  NR29FBIT 

CCS  A 

TCF  ENDR29RD 

CA  RADMOOES 

MASK  AUTOMBIT 

CCS  A 

TCF  ENDRR029 


4130  REF  160  LAST  609 

4131  REF  5 LAST  575 

4132  REF  161  LAST  610 

4133  REF  13  LAST  602 

4134  REF  2 LAST  610 


24.3424  C 4616  1 

24.3425  53112  0 

24.3426  0 4616  1 

24.3427  17705  0 

24,3430  1 3476  0 


TC  BANKCALL 

CADR  RRRDDT 

TC  BANKCALL 

CADR  RACSTALL 

TCF  ENDRR029 


17:53  DECo  19,1969  L6MP20S  .145  PAGE  610 


USER  ' S PAGE  NOe  11*=  E3  S3 


CALLED  BY  WAITLIST, 


START  JOB  TO  REAP  AND  OCWNLINK  FOR  R29o 


2 SECONDS  LATER,  SEE  IF  READING  IS  STILL 
ALLOWED  (NO  TRACKER  FAIL  ETCol 


I T*  S OK;  CALL  IT  AGAl No 
IT  AIN'T;  WAIT  FOR  REOESIGNATEc 


CALLED  VIA  NOVACo 
TEST  *'N0R29FLG"o 

R?9  OVER,  ex  IT  WITH  RR  STILL  LOCKED  ON 


TEST  RR-NOT-IN-AUTC-HOOe  BITo 
ASTRO  TOOK  PR  OUT  CF  AUTO  MODE# 


INITIATE  READING  OF  RANGE  RATEc 

GO  TO  SLEEP  UNTIL  IT'S  REAOYo 
BAD  READ;  REDESIGNATEo 


GAP  : 


ASSEMBLE  REVISION  131  OF  AGO  PRCCRAM  LUMINARY  BY  NASA  202in2--C91 


L P20-P25 

P<^135  R29  RADAR  READING  CCNTINUECo 


A136  REF  7 

4137  REF  276 

4138 

4139 

4140  REF  12 

4141  hEF  277 

4142 

4143  REF  4 

4144  REF  278 

4145  REF  12 

4146  REF  279 


LAST  575 
LAST  608 


LAST  606 
LAST  611 


LAST  606 
LAST  611 
LAST  606 
LAST  611 


24,3421  53*105  0 

24.3432  52  155  1 

24.3433  0 0004  0 

24.3434  0 0006  1 

24.3435  2 0036  1 

24.3436  52  157  0 

24,34-37  0 0006  1 

24.3440  2 0034  C 

24.3441  52  161  0 

24.3442  2 0032  0 

24.3443  54  162  0 


CXCH  TIMEHOLC 

DXCH  MPAC 

INFINT 

EXTEND 

OCA  COUT 

DXCH  MPAC  *2 

EXTEND 

DCA  COIY 

OXCH  MPAC  +4 

CA  COUX 

TS  MPAC  +6 


41^7  KEF  162  LAST  610 

4148  REF  4 LAST  576 

4149  REF  163  LAST  611 

4150  REF  14  LAST  610 

4151  REF  1 


24,3444  C 4616  1 R29RANGE  TC  8ANKCALL 


24.3445  53114  0 

24.3446  0 4616  1 

24.3447  17705  0 

24,3A50  1 3467  0 


CADR  RPRANGE 
TC  BANKCALL 

CADR  RACSTALL 
TCF  R29RkR? 


4152 

4153  REF  7 

4154  REF  6 

4155  REF  280 

4156  REF  7 

4157  REF  281 

4158  REF  9 

4159  REF  282 

416C  REF  8 

4161  REF  283 

4162  REF  6 

4163  REF  78 

4164  ref  4 

4165  REF  103 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


576 
56  3 
611 
589 
611 
596 
611 
591 
611 
585 
605 
316 
609 


24 ,3451 
24,2452 
24,345? 
24,3454 
24, 3^55 
24,3456 
2A,3A57 

24.3460 

24.3461 

24.3462 

24.3463 

24.3464 

24. 3465 
24  ,3466 


0 0004  0 
53*331  C 
53*757  1 
52  155  1 
53*755  0 
52  157  0 
5 3*  753  0 
52  161  0 
53*460  0 
3 0162  1 
55*461  1 
3 4753  I 
55*462  1 

1 5155  1 


INF  INT 

DXCH  DNRRAKGE 

OXCH  RM 

CXCH  MPAC 

DXCH  MKTIME 

OXCH  MPAC  +2 

DXCH  TANGNB 

DXCH  MPAC  +A 

CXCH  AIG 

CA  MPAC  +6 

TS  AOG 

CA  ONE 

TS  TRKMKCNT 

TCF  FNDOFJGB 


4166  REF  18  LAST  577 

4167  REF  29  LAST  555 

4168  REF  212  LAST  610 

4169  REF  3 LAST  610 

4170  REF  62  LAST  575 

4171  REF  ? LAST  575 

4172  REF  1 


24,3A67  4 0101  0 R29RRR?  CS  FLAGWRD5 


24.3470  7 4742  0 

24.3471  10  000  0 

2R,3472  1 3476  0 

24,347?  0 5516  0 

24.3474  00120  1 

24.3475  1 3444  1 


MASK  BITIO 

CCS  A 

TCF  ENDRR029 

TC  OOWNFLAG 

ADRES  FNGSCFLG 

TCF  R29PANGE 


4173  REF  56  LAST  607 

41.74 

4175  REF  43  LAST  609 

4176  REF  124  LAST  593 

4177  REF  5 LAST  611 

4178  REF  63  LAST  611 


24,3476  4 4736  0 

2A,3477  C 0006  1 

24.3500  03  012  1 

24.3501  3 A755  1 

24.3502  55*462  1 

24.3503  0 5516  0 


ENDRR029  CS 

EXTEND 

WAND 

eNCR29RC  CA 
TS 
TC 


BIT14 

CHAN12  — 
ZERO 

TRKMKCNT 

DOWNFLAG 
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TIME  OF  PR  READING,  FOR  DOWNLINK- 
BE  SURE  OF  5 CONSISTENT  COU  ANGLESo 

RRCOU  ANGLES  AT  PP  READ,  FCR  DOWNLINK- 

MPAC'S  7 WORDS  APE  BUFFER  FOR  COPYCYCLE: 
IMUCOU  ANGLES  AT  RR  READ,  FCR  DOWNLINK, 

INITIATE  READING  OF  RR  RANGEo 

GO  TO  SLEEP  UNTIL  IT'S  READY, 

BAD  READ  OR  SCALE  CHANGE  WHICH? 

COPYCYCLE  TC  LAY  OUT  NEW  P2Q  DOWNLINK. 


SHOW  THAT  DOWNLINK  DATA  IS  CONSISTENT, 


WAS  IT  A SCALE  CHANGE  (REAL  OR  PHONY! ? 
NO,  A BAD  RFAD;  REDESIGNATE, 

YES;  CLEAR  FLAG  AND  READ  AGAIN, 


TROUBLE  MADE  US  COMF  HERE  TO  LEAVE  THE 
RR-REAOING  MODE,  DISCREDIT  DOWNTEL 


GAP 
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L P20-P25  USER'S  PAGE  NOc  117  E7  S3 

4179  REF  1 2A,35C4  C0063  1 ADRES  READRFL6 

4180  REF  104  LAST  611  24,3505  1 5155  1 TCF  EN0OFJO6 


GAP: 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021)  12-091 


L P20-P25 

PA181  W-MATPIX  MONITOR 

31.2007  BANK  31 

31  ,2000  SETLOC  VB67 

21.2007  BANK 

COUNT#  £$/EXTVB 


4182 

4183  REF  1 

4184 

4185  REF  1 


4166  REF 


3 LAST  319  E4,16CrO 


EBANK=  WWPOS 


4187  REF  61 

4188 

4189  REF  1 

4190 

4191 

4192  REF  4 

4193  REF  2 

4)94 

4195  REF  2 

4196  REF  3 

4197 

4198  REF  4 

4199  REF  5 

4200  REF  1 

4201  REF  164 

4202  REF  7 

4203  REF  33 

4204  REF  1 

4205  REF  1 

4206 

4207  REF  13 

4208  REF  181 

4209  REF  182 

4210  ref  5 

4211  REF  183 

4212  REF  6 

4213  REF  93 

4214  REF  184 

4215  REF  1 

4216  REF  213 

4217 

4218  REF  1 

4219  REF  35 

4220  REF  1 


LAST  602 


LAST  613 
LAST  319 

LAST  31° 
LAST  613 

LAST  613 
LAST  613 

LAST  611 
LAST  292 
LAST  492 


LAST  605 
LAST  605 
LAST  613 
LAST  613 
LAST  613 
LAST  613 
LAST  575 
LAST  613 

LAST  611 


LAST  562 


31, 20C7 
31  ,2010 

31.201 1 

31.2012 
31  ,2013 

31.2014 

31.2015 

31.2016 

31.2017 
31  ,2020 

31.2021 

31.2022 
31  ,2023 

31. 2024 

31.2025 

31.2026 

31.2027 
31  ,2030 
31,203) 
31,2n32 
31  ,2033 

31.2034 

31.2035 

31.2036 

31.2037 
31  ,2040 

31.2041 

31.2042 
31  ,2043 
3 1,2044 

31.2045 

31.2046 

31.2047 
31  ,2050 


0 6042  1 
77624  1 
62120  0 
77776  1 
0 0006  1 
3 1601  1 
53*607  0 
C 0006  1 

2 16C3  0 
53*611  1 
0 0006  ) 

3 1605  0 
53*  613  0 
; 2143  C 

0 4616  1 
20334  1 

1 5472  1 
1 2032  0 
1 2024  1 
22  007  0 

3 4756  1 
54  CC2  1 
50  002  0 

4 1600  ) 
50  CC2  0 
6 1606  0 
26  00)  1 
10  002  1 
1 2034  0 
22  000  1 
0 0006  1 
1 2051  0 
C 5504  0 

00160  0 


V67CALL  TC 

CALL 

EXIT 

EXTEND 

OCA 

OXCH 

EXTEND 

DCA 

DXCH 

EXTEND 

OCA 

OXCH 

VC6N99DS  CAF 
TC 

CACR 

TCF 

TCF 

TCF 

V6N99PR0  ZL 
CA 

N99L00P  TS 

INDEX 

CS 

INDEX 

AO 

ACS 

CCS 

TCF 

LXCH 

EXTEND 

BZF 

TC 

ADRES 


INTPRET 

V67WW 


WWPOS 
WW8IAS  +2 

WWVEL 
WWBIAS  +4 

WWBIAS 

WWBIAS  +6 

V06N99 

BANKCALL 

GOXCSPF 

FNDEXT 

V6N99PR0 

V06N99DS 

F IVF 
0 
0 

WWPOS 

Q 

WWPOS  +6 
L 
0 

N99L00P 

A 

V06N9933 

UPFLAG 

V67FLAG 


4221 

4222 

4223 

4224 

4225 

4226 


REF  62  LAST  613 
REF  2 LAST  613 
REF  34  LAST  613 


31.2051  0 6042  1 

31.2052  77414  0 

31  ,2053  03707  1 

31.2054  62C56  0 

31.2055  1 5472  1 

21.2056  77745  1 


V06N9933  TC  INTPRET 

BON  EXIT 

V67FLAG 
♦ 2 

TCF  ENOEXT 

OLCAO 
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SAVE  THE  PRESENT  NS9  VALUES  FOR 
COMPARISON  AFTER  THE  DISPLAY 


THE  SUM  OF  ALL  CIFFERENCES  MUST  BE  ZERO. 
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L P20-P25 


4227 

4228 

4229 

REF 

7 

LAST 

613 

31  ,2057 

31.2060 

31.2061 

02201 

72412 

14001 

n 

0 

C 

SL4 

STOOL 

WWPOS 

SLl 

00 

4230 

REF 

3 

LAST 

613 

31  ,2062 

02203 

1 

WWVEL 

423! 

31,2063 

14003 

1 

STOOL 

20 

4232 

REF 

6 

LAST 

613 

31,2064 

02205 

1 

wweiAS 

4233 

31  ,2065 

77661 

0 

SL 

4234 

31,2066 

20213 

0 

J 00 

4235 

31,2067 

00005 

1 

STORE 

40 

4236 

31,2070 

72014 

1 

8GN 

LXA.l 

4237 

REF 

12 

LAST 

590 

31,2071 

C4307 

1 

SURFFLAG 

4238 

REF 

1 

31  ,2072 

6.2102 

0 

V67SUPF 

4239 

31,2073 

QOOOO 

1 

00 

4240 

31,2074 

72130 

0 

SXA  ,1 

LXA  ,1 

4241 

REF 

3 

LAST 

590 

31  ,2075 

02000 

0 

WRENOPOS 

4242 

31 ,2C76 

0CCC2 

0 

20 

4243 

31,2077 

52130 

1 

SXA  ,1 

GOTO 

4244 

REF 

2 

LAST 

590 

31,2100 

02  001 

1 

WPFNOVEL 

4245 

REF 

1 

31, 2101 

62110 

0 

V67CLRF 

4246 

31,2102 

661  50 

0 

V67SURF 

LXA,1 

SXA  ,1 

4247 

31,2103 

00000 

1 

00 

4248 

REF 

2 

LAST 

590 

21, 2104 

C2CC6 

0 

WSURFPCS 

4249 

31  ,2105 

66150 

0 

LXA,  1 

SXA,  1 

4250 

31,2106 

C0002 

0 

20 

4251 

REF 

2 

LAST 

590 

31,2107 

02007 

1 

WSURFVEL 

4252 

31  ,2110 

66150 

0 

V67CLRF 

LXA.l 

SXA,1 

4253 

31, 2111 

CC0C4 

0 

40 

4254 

REF 

2 

LAST 

591 

31,2112 

0 2003 

0 

WTRUN 

4255 

31,2113 

7773C 

0 

SXA  ,1 

4256 

REF 

2 

LAST 

590 

31,2114 

C2Q02 

1 

WSHAFT 

4257 

31,2115 

77414 

0 

CLEAR 

EXIT 

4258 

REF 

9 

LAST 

591 

31,2116 

02676 

1 

RENCWFLG 

4259 

REF 

35 

LAST 

613 

31,2117 

1 5472 

1 

TCF 

ENDEXT 

4260  ■ 

31  ,2120 

40020 

1 

V67WW 

STO 

BOV 

4261 

REF 

5 

LAST 

382 

31,2121 

C0C51 

0 

S2 

4262 

31,2122 

62123 

0 

+ 1 

4263 

31,2123 

45014 

0 

CLEAR 

CALL 

4264 

REF 

3 

LAST 

613 

31,  2124 

C3667 

0 

V67FLAG 

4265 

REF 

17 

LAST 

589 

31  ,2125 

27410 

1 

INTSTALL 

4266 

31,2126 

71331 

0 

SSP 

OLOAD 

4267 

REF 

6 

LAST 

387 

31,2127 

00051 

0 

SI 

4260 

31  ,2130 

00006 

1 

DEC 

6 

4269 

REF 

6 

LAST 

587 

31, 2131 

C6524 

1 

ZERCVeCS 

42  70 

REF 

6 

LAST 

614 

31,2132 

02201 

0 

STORE 

WWPOS 

4271 

REF 

4 

LAST 

614 

31,2133 

02203 

1 

STORE 

WWVEL 

4272 

REF 

7 

LAST 

614 

31,2134 

02205 

1 

STORE 

WWBl  AS 

4273 

31  ,2135 

77770 

1 

AXT.l 

4274 

31,2136 

OC066 

1 

DEC 

54 

4275 

31,2137 

47573 

0 

NXPOSVEL 

VLOA 0* 

VSQ 

4276 

REF 

15 

LAST 

591 

31,2140 

02467 

0 

W +540,1 
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USER'S  PAGE  NOo  119  F4  S3 


SHIFT  FROM  NOUN  SCALING  (6-5)  TO 
INT  ERNAL  SCAL ING  ( 6+5 ) 


GAPa 

L 

42  77 

A278 

4279 

4280 

4281 

4282 

4283 

4284 

42  85 

4286 

4287 

42  88 

42  89 

4290 

4291 

4292 

4293 

4294 

4295 

42  96 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 
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USER  'S  PAGE  NOo  120  E4  S3 


31,2141  77650  1 GOTO 

REF  1 31,2142  60002  0 ADDPOS 

31,2143  C1543  1 V06N99  VN  0699 


REF  1 
PEF  1 


30,2000 

30,2002 


SFTLOC  VB67A 
BANK 

COUNT*  S*/EXTVe 


KEF  9 LAST 
REF  10  LAST 

REF  16  LAST 

REF  5 LAST 
KEF  6 LAST 


REF  17  LAST 

REF  8 LAST 

REF  9 LAST 

REF  1 


REF  10  LAST 
PEF  7 LAST 

REF  8 LAST 
REF  11  LAST 

REF  12  LAST 


REF  1 

REF  4 LAST 
REF  13  LAST 
REF  9 LAST 
REF  11  LAST 

REF  14  LAST 
REF  1 


REF  2 LAST 

PEF  15  LAST 

REF  6 LAST 

REF  2 LAST 


30,2002 

614  30,2003 

615  30,2304 
30,2  005 

614  30,20C6 

30,2007 

614  30,2010 

615  30,2011 
30,2012 

615  30,2013 

30,2014 

614  30,2015 

615  30,2016 
30,2017 

30.2020 

30.2021 

30.2022 
615  30,2023 

615  30,2024 

30,2025 
615  30,2026 

615  30,2027 

30,2030 
615  30,2031 

30.2032 

30.2033 

30.2034 
30  ,2035 

380  30,2036 

615  30,2037 

615  3 0,2  040 

615  30,2041 

30,2042 
615  30,2043 

30. 2044 

30.2045 

30.2046 
615  , 30,2047 
615  30,2050 

30,2051 
614  30,2052 

300  30,2053 


02201  0 
47573  0 
02555  C 
77615  0 
02203  1 
C2203  I 
47573  0 
02643  1 
77615  n 
02205  1 
02205  1 
75500  0 
62137  0 
77661  0 
206)3  I 
J6205  1 
02203  1 
77766  0 
16203  1 
C2201  0 
77766  0 
02201  0 
52000  0 
6C035  I 
6CC42  1 
77745  1 
06532  0 
02201  0 
02203  1 
C2205  1 
45345  1 
02201  0 
20060  0 
71240  1 
60051  0 
20060  0 
02201  0 
66150  0 

00051  0 

00052  0 


ACCPOS 


OAD 

WWPQS 
STORE  WWPOS 
VLOAD*  VSO 

W +108D, 

DAD 


WWVEL 
STORE  WWVEL 
VLCAO*  VSO 

W +)62C,1 

DAD 

WW6IAS 
STORE  WWBIAS 
TTX,1  SORT 

NXPOSVEL 

SR 


lOD 

STCDL  WWEIAS 
WWVEL 

SORT 

STCDL  WWVEL 
WWPOS 


SORT 

STCRE  WWPCS 
BOV  GOTO 
+ 2 

V67XXX 


CLOAO 

DPPCSMAX 
STORE  WWPOS 
STORE  WWVEL 
STORE  WWBIAS 
DLOAD  OSU 

WWPOS 
FT99999 
BMN  OLOAO 
+ 3 

FT99999 
STORE  WWPOS 
LXA,1  SXA,1 
S2 

OPRET 


SHIFT  FROM  INTERNAL  SCALING  (B  + 51  TO 
NOUN  SCALING  (B-5) 
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L P20-P25 


USER'S  PAGE  NO*  121  £4  S3 


4326  REF  AO  LAST  569 

4327  REF  2 LAST  300 


30.2054  77776  1 

30.2055  C 4635  0 

30.2056  27A21  0 


EX  IT 

TC  POSTJUMP 

CAOR  INTHAKE 


A328 

4328 


30,2057  01670  1 FT99999  2CEC  30A79  6-lo 

30,2060  17000  1 


GAP; 


ASSEMBLE  REVISION  131  OF  AGC  PRCCRAM  LUMINARY  BY  NASA  2021112-091 


P4329 

4330 

4331 

4332 

4333 


REF 


REF 


25  f3612 

3 LAST  559  25,2000 

25, 3612 

3 LAST  559  TO  567:  237  240* 


BANK  25 
SETLOC  RACAPUPT 
BANK 

COUNT*  $$/RRUPT 


4334  PEF  39  LAST  610  E7,J456 


EBANKs  LOSCCUNT 


4346 

4347 

4348 

4349 

4350 


REF  28 
REF  28 
REF  214 
PEF  79 
REF  1 


LAST  560  25,3612  4 4747  0 RADLITES  CS 


LAST  563  25,3613  6 0C61  0 AD 

LAST  613  25,  3614  IC  COO  0 CCS 

LAST  bll  25  ,3615  4 4753  0 CS 

25,3616  1 3646  1 TCF 


BIT5 

ITEKPl 

A 

ONE 

VLIGHT 


4351  REF 

4352  REF 


) 25,3617  1 4570  0 TCF 

4 LAST  259  25,3620  54  065  0 HEIGHT  TS 


RR  TRKF 
ITEMP5 


4353  REF  1 

4354  REF  94  LAST 


25,3621  3 4747  1 

613  25,3622  54  001  1 


CA  HLITE 

TS  L 


4359  REF  1 

4360  PEF  112  LAST  610 

4361  REF  215  LAST  617 

4362  REF  1 


25,3623  3 4747  1 

25,  3624  7 CllC  0 

25.3625  10  000  0 

25.3626  1 3640  I 


CA 

8DTHLITS  MASK 
CCS 
TCF 


LRALTBIT 

RADMCOES 

A 

ONLITES 


4363  REF  5 LAST  559 

4364  RFF  5 LAST  617 

4365  REF  1 

4366  REF  216  LAST  617 

4367  REF  2 LAST  617 


25,3627 

25.3630 

25. 3631 

25.3632 

25.3633 


2 0107  1 
50  065  1 
7 4753  C 
10  000  0 
1 4570  0 


CA  FLGUROll 

INDEX  ITEMP5 

MASK  HFLSHBIT 

CCS  A 

TCF  RRTRKF 


4368 

4369  REF 

4370  REF 


LAST  182 
LAST  528 


25.3634  0 0006  1 LITIT 

25.3635  22  066  I 

25.3636  C 4602  I 


E XTENO 

QXCH  ITEMP6 
TC  TRKFLQN  +l 


LAST  617 


25,3637  0 0066  1 


ITEMP6 


4374 

4375 

4376 

4377 


617 

617 

6)7 

617 


25.3640 

25.3641 

25.3642 

25.3643 


50  065 
4 4753 
7 0107 
54  107 


CNLITES  INDEX 


ITEMP5 

HFLSHBIT 

FLGWRDll 

FL6WRC11 


4378 

4379 

4380 

4381 

4382 

4383 
43  84 


REF  95  LAST  617 
REF  1 

REF  7 LAST  617 
PEF  1 

REF  96  LAST  617 
REF  27  LAST  560 
REF  1 


25.3644  3 0001  0 

25.3645  1 3634  1 

25.3646  54  065  0 

25.3647  3 4751  0 

25.3650  54  001  1 

25.3651  3 4744  I 

25.3652  1 3624  0 


VLIGHT 


L 

LITIT 

ITEHP5 

VLITE 

L 

BITS 

BOTHLI 


TS 
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4385  REF  29  LAST  617  4747  HLITE  EQUALS  BIT5 

4386  REF  30  LAST  575  4751  VLITE  EQUALS  BITS 


***  END  OF  LEMP20S  «145  *** 
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L P30,P37  USER'S  PAGE  NOc  1 EO  S3 

P0023  PFCC-RAM  CESCRIPTICN  P30  CATE  3-6-67 

R002A  MOOol  BY  RAMA  AIYAWAR 

R0025  FUNCTIONAL  DESCRIPTION 

R0026  ACCEPT  ASTRONAUT  INPUTS  OF  TIG,CELV(LV> 

R0027  CALL  IMU  STATUS  CHECK  ROUTINE  ( R02 I 

R0028  DISPLAY  TIME  TO  GOi  APOGEE,  PERIGEE,  OELV(MAG),  MGA  AT  IGN 

R0029  REQUEST  BURN  PROGRAM 


R0030  CALLING  SEQUENCE  VIA  JOB  FROM  V37 
R0031  EXIT  VIA  V37  CALL  CR  TO  GCTOFCCF  (V3AE) 


R0032  SUBROUTINE  CAL LS-F LAGUP  , PHASCHNG,  BANKCALL,  ENCOFJCB,  GOFLASH,  GOFLASHR 
R0033  G0PeRF3R,  INTPRET,  BLANKET,  GOTOPOCH,  R02B0TH,  S30.1, 

R003A  TTG/N35,  MICGIM,  CISFMGA 


R0035  ERASABLE  INITIALIZATION-  STATE  VECTOR 

R0036  OUTPUT-RINIT,  VINIT,  +MGA,  VTIG,  RTIG,  DELVSIN,  DELVSAB,  DELVSLV,  HAPO, 
R0037  HP6R,  TTOGO 

R0038  DEBRIS-  A,L,  MPAC,  PUSHLIST 


00381 

00382  REF  1 

00383 

0038A  REF  2 
0039  REF  1 
OOAO  REF  36 
OOAl  REF  3 

00411  REF  37 

00412  REF  4 


316 


32  ,3000 
35,2000 
35,2000 
£4,1652 


LAST  613 
LAST  499 
LAST  619 
LAST  506 


35.2000 

35.2001 

35.2002 
35  ,2003 


0 5504  0 
00027  I 
C 5504  0 
00031  0 


P30 


BANK  32 
SETLCC  P30S 
BANK 

E8ANK=  +HGA 
COUNT*  $Ji/P30 
TC  UPFLAG 

ADRES  UPDATFLG 
TC  UPFLAG 

ADRES  TRACKFLG 


SET  UPDATE  FLAG 
SFT  TRACK  FLAG 


0042  REF  1 

0043  REF  1 


35,2C04  2 2C32  I P30N33  CAF 
35,2005  0 3621  1 TC 


V06N33 

VNPOOH 


T OF  IGN 

RETURNS  ON  PROCEED,  PCOF  ON  TERMINATE 


0051  REF  1 

0052  REF  2 LAST  619 


35.2006  3 3636  1 

35.2007  0 3621  1 


CAF  V06N81  DISPLAY  DELTA  V (LV> 

TC  VNFQOH  REDISPLAY  ON  RECYCLE 


0057  REF  64 

0058  REF  4 

0059  REF  63 

0060 

0061  REF  1 

0067  # 

00675  REF  5 

00676  *REF  1 

00677  * 

0068  REF  1 


LAST  611 
LAST  619 
LAST  613 


LAST  619 


35  ,2010 
35,2Cll 
35,2012 
35  ,2013 
35,2C14 

35.2015 

35.2016 

35.2017 
35  ,2020 
35,2021 


0 5516  0 
00027  1 
0 6042  1 
77624  1 
70CC0  C 
43014  0 
C0470  1 
C1067  1 
77776  1 
3 2C33  0 


PARAM30 


TC  DOWNFLAG 

ADRES  UPDATFLG 

TC  INTPRET 

CALL 

S3  0e1 

SET  SET 

UPDATFLG 

XOELVFLG 

EX  IT 

CAF  V06N42 


RESET  UPDATE  FLAG 


DISPLAY  APOGEE, PFRIGEE  ,OFLTA  V 


gap:  assemble  REVISION  131  CF  AGC  PPCGRAW  LUMINARY  BY  NASA  2021112-001 


L P30fP37 


0069  REF  3 LAST  619 


35t2022  0 3621  1 


TC  VNPOOH 


0070  REF  6A  LAST  619 

0071  * 

0072  >!'REF  1 

007^ 

0075  REF  1 

0076 

0077  REF  1 


35.2023 

35.2024 
35  ,2025 

35. 2026 

35.2027 
35,2030 
35,  2031 


C 6042  1 
77614  1 
01071  0 
77624  1 
73515  1 
77650  1 
72026  0 


REVN1645  CALL 


INTPRET 
F INALFLG 
VN1645 
REVN1645 


0100 

0102 


35.2032  01441  1 V06N33  VN  0633 

35.2033  C1452  0 V06N42  VN  064? 
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P0105  PROGRAM  DESCRIPTION  SBOol  DATE  9NnV6e 


R0106 

R0107 

R0108 

ROlOO 

ROllO 

ROlll 

R0112 

R0113 

ROllA 

R0115 

R0116 

R0117 

R0118 

R0119 

R0120 

R0121 

R0122 

R0123 

R0124 

RC125 

R0126 

R0127 

R0128 

R0129 

R0130 

R01301 

R0131 

R01311 

R0132 

R0133 

R013A 

R0135 

R0136 

R0137 

R0138 


RCD  NO  1 LCG  SECTION  P30,P37 

MOO  BY  RAMA  AIYAKAR 
FUNCTIONAL  DESCRIPTION 

BASED  ON  STORED  TARGET  FARAMETERSIR  OF  I GN  IT  ION  ( RT  I G ) , V OF 
IGNITION(VTIG) .TIME  OF  IGNITION  ( TI G ) ) , COM FUTE  PERIGEE  ALTITUDE 
APCGEE  ALTITUDE  AND  CELTAV  REQU  IR ED ( CEL  VS  IN > e 
CALLING  SEQUENCE 
L CALL 


L + 1 S30a 

NORMAL  EXIT  MODE 

AT  L+2  OR  CALLING  SEQUENCE  (GOTO  L+2) 

SUBROUTINES  CALLED 
LEMPREC 
PERIAPC 

ALARM  OR  ABORT  EXIT  MCOES 
NONE 

ERASABLE  INITIALIZATION  RECUIPEC 

TIG  TIME  OF  IGMTICN  DP  B2BCS 

DELVSLV  SPECIFIED  DELTA-V  IN  LOCAL  VERTe 
COCRDS,  OF  ACTIVE  VEHICLE  AT 
TIME  OF  IGMTICN  VECTOR  E+7  METERS/CS 

OUTPUT 


OEBR  IS 


RTI6  POSITION  AT  TIG 

VTIG  VELOC I TY  AT  TIG 

PCL  4D  APOGEE  ALT ITUCE 
HAPO  APOGEE  ALTITUDE 
P CL  8C  PER  IGEE  ALTITUDE 
HPER  PERIGEE  ALTITUDE 
OELVSIN  SPECIFIED  DELTA-V 
COORD#  OF  ACTIVE  V 
TIME  OF  IGMTICN 
OELVSAB  MAGo  OF  DELVSIN 
CTEMP  TEMP#  ERASABLE 
QPRET.MPAC 
PUShLIST 


VECTOR  e+29 
VECTOR  8+29 
OP  B+29 

CP  e+29 

DP  8+29 

DP  e+29 

IN  INERTIAL 
EHICLE  AT 
VECTOR  e+7 
VECTOR  8+7 


METERS 
METERS/CS 
M , 6+27 

METERS 
M , e+27 

METERS 


METERS# 

METERS# 


METERS/CS 

METERS/CS 


0139  REF 

0140 


34,2000  SETLOC  P30S1 

34,2000  BANK 


0141  REF 


COUNT*  t$/S3QS 


0142 

0143 

0144 

0145 

0146 


REF  1 

REF  10  LAST  497 
REF  21  LAST  594 
REF  3 LAST  2U9 


34 

-34 

34 

34 

34 


,2001 

,2002 

,2003 

,2004 


71220  1 
03632  0 
03442  0 
34041  0 
27056  1 


S30#l 


STQ  DLOAD 
QTEMP 
TIG 

STCALL  T0EC1 

LEMPREC 


TIME 


IGNITION  SCALED  AT  2 


+29JCS 


ENCKE  ROUTINE  FOR 


LEM 


0147 


34  ,2005  67175  0 


VLOAD  SXA,2 
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01471 

REF 

10 

LAST 

594 

34,2006 

00001 

C 

RATT 

0148 

REF 

1 

34,2007 

02777 

1 

RTX2 

0150 

REF 

2 

LAST 

144 

34,2010 

03642 

1 

STORE 

RTIG 

0153 

34,2011 

57456 

1 

UNIT 

VCOMP 

0154 

REF 

3 

LAST 

liS 

34  ,2012 

27656 

1 

STCVL 

DELVS  IN 

0155 

REF 

6 

LAST 

594 

34,2013 

00CC7 

0 

VATT 

0156 

REF 

2 

LAST 

144 

34,2014 

03650 

1 

STORE 

VTIG 

0158 

34,2015 

53435 

0 

vxv 

UNIT 

0159 

REF 

3 

LAST 

622 

34, 2016 

03642 

1 

RTIG 

0160 

34  ,2  017 

66001 

0 

SETPD 

SXA,  1 

0161 

34,2020 

00001 

0 

0 

01611 

REF 

2 

LAST 

125 

34,2021 

02776 

C 

R TXl 

0162 

34 ,2022 

47206 

0 

PUSH 

VXV 

0163 

REF 

4 

LAST 

622 

34,2023 

03656 

1 

DELVSI N 

0164 

34,2024 

63372 

1 

VSLl 

PDVL 

0165 

34,2025 

63315 

0 

POVL 

POVL 

0166 

REF 

5 

LAST 

622 

34,2026 

03656 

1 

DELVSIN 

0167 

REF 

2 

LAST 

200 

34,2027 

03434 

1 

OELVSLV 

0168 

34,2030 

76505 

0 

VXM 

VSLJ 

0169 

34,2031 

00001 

0 

0 

0170 

REF 

6 

LAST 

622 

34,2032 

03656 

1 

STORE 

DELVS  IN 

0172 

34,2033 

77646 

0 

ABVAL 

0173 

REF 

2 

LAST 

144 

34,2034 

27664 

0 

STOVL 

OELVSAB 

0174 

REF 

4 

LAST 

622 

34,2035 

C3642 

1 

RT  IG 

0175 

34,2036 

53315 

0 

PDVL 

VAD 

0176 

REF 

3 

LAST 

622 

34,2037 

03650 

1 

VT  IG 

0177 

REF 

7 

LAST 

622 

34,2040 

03656 

1 

DELVSIN 

01771 

34,2041 

77624 

1 

CALL 

0178 

REF 

1 

34,2042 

46341 

0 

PERIAPO] 

01781 

34,2043 

77624 

1 

CALL 

01782 

REF 

1 

34,2044 

46451 

0 

SHIFTRl 

017822 

34,2045 

77624 

1 

CALL 

017824 

REF 

1 

34,2046 

45636 

0 

MAXCHK 

01783 

REF 

2 

LAST 

316 

34  ,2047 

16321 

0 

STODL 

HPER 

01784 

34,2050 

00005 

1 

01785 

34,2051 

77624 

1 

CALL 

01786 

REF 

2 

LAST 

622 

34  ,2(^52 

46451 

0 

SHIFTRl 

01787 

34, 2053 

77624 

1 

CALL 

01788 

REF 

2 

LAST 

622 

34,2054 

45636 

0 

MA  XCHK 

U179 

REF 

4 

LAST 

316 

34,2055 

36317 

1 

STCALL 

HAPO 

Ul80 

REF 

2 

LAST 

621 

34, 2056 

03632 

0 

QTEMP 
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RADIUS  VECTPP  AT  IGNITION  TIME 

ZRF/LV  IN  DELVSIN  SCALED  AT  2 

VELOCITY  VECTOR  AT  TIG,  SCALED  2(7)  M/CS 


YRF/LV  POL  0 SCALED  AT  2 


YRF/LV  POL  6 SCALED  AT  2 
ZRF/LV  POL  120  SCALEC  AT  2 


DELTAV  IN  INERT*  COOR*  SCALED  TO  B + 7M/CS 


DELTA  V MAG* 

(FOR  PERIAPO) 

VREOUIREO  = VTIG  + DELVSIN  (FOR  PERIAPO) 


RESCALE  IF  NFEOEO 

LIMIT  DISPLAY  TO  9999.  9 N«  MI 

PERIGEE  ALT  2(29)  PETEPS,  FOR  DISPLAY 


RESCALE  IF  NEEDED 

LIMIT  DISPLAY  TO  9999*9  No  MI* 


APOGEE  ALT  2(?o)  METERS,  FOR  DISPLAY 


ASSEMBLE  REVISION  i31  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-09] 
P32-P35,  P72-P75 

COELLIPTIC  SEQUENCE  INITIATICN  (CSI)  FPCGRAMS  (P32  ANC  P72 > 

MCO  NC  -1 
MOO  8Y  ^^HITe*P 

PURPCSE 


17:53  CECo  19,1969  LEMP30S  -105  PAGE  623 
USER  'S  PAGF  NOe  ] EO  S3 


R0014 

R0015 

R0016 

R0017 


INITIATICN  (CS.II  MANEUVER  AND  ThE  CONSTANT  DELTA  ALTITUDE 
(CDH)  MANEUVERc 


R0020 

R0021 

R0022 


(31  TO  DISPLAY  TO  THE  ASTRONAUT  AND  THE  GRCUN'C  DEPENDENT  VARIABLES 
ASSOCIATED  WITH  THE  CONCENTRIC  FLIGNT  PLAN  MANEUVERS  FOR 
APPROVAL  BY  ThE  AST  PC N AUT/GROUNC® 


R0025  ASSUMPTIONS 


R0026 

R0027 

R0028 

Rooaas 


(1)  AT  A SELECTED  TP  I TIME  THE  LINE  OF  SIGHT  BETWEEN  THE  ACTIVE 
AND  PASSIVE  VEHICLES  IS  SELECTED  TO  BE  A PRESCRIBED  ANGLE  (E» 
FROM  THE  HORIZONTAL  PLANE  DEFINED  BY  THE  ACTIVE  VEHICLE 
POS IT  ION, 


R0029 

R0030 

R0031 


(21  THE  TIME  BETWEEN  CSI  IGMTICN  ANC  CCH  IGNITION  MUST  BE 
COMPUTED  TO  BE  GREATER  THAN  10  MINUTES  FOR  SUCCESSFUL 
CCMPLETICN  CF  THE  FRCGRAM, 


ROD  32 
R0033 
R0034 


(3)  THE  TIME  BETWEEN  CCH  IGMTICN  ANC  TPI  IGNITION  MUST  BE 
COMPUTED  TO  BE  GREATER  THAN  10  MINUTES  FOR  SUCCESSFUL 
CCMPLETICN  CF  THE  FPCGRAM, 


R0037 

R0038 

R00385 


(5)  CSI  BURN  IS  DEFINED  SUCH  THAT  THE  IMPULSIVE  DELTA  V IS  IN  THE 
horizontal  PLANE  DEFINED  BY  THE  ACTIVE  VEHICLE  PCSITICN  AT  CSI 
IGNITION, 


R0039 

R0040 

ROOAl 


(61  THE  PERICENTER  ALTITLOE  OF  THE  CPBIT  FCLLCWING  CSI  ANC  CDh 
MUST  86  GREATER  THAN  35,000  FT  (LUNAR  ORBIT)  OR  85  NM  (6APTH 
ORBIT)  FOR  SUCCESSFUL  CCMPLETICN  OF  THIS  PROGRAM, 
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R0044 

R0045 

MOCIFICATICN  OF  DELTA  V (LV)  COMPONENTS  MAY  RESULT  IN  AN 

CUT-CF-PLANE  CSI  MANEUVER* 

R004O 

R0047 

(8»  STATE  VECTOR  UPDATES  BY  P27  ARE  CISALLCWEO  DURING  AUTOMATIC 

STATE  VECTOR  UPDATING  INITIATED  BY  P 20  (SEE  ASSUMPTION  10)* 

R0048 

R0049 

R0050 

R0051 

(9)  COMPUTED  VARIABLES  MAY  BE  STORED  FOR  LATER  VERIFICATION  BY 

THE  GROUND*  THESE  STORAGE  CAPABILITIES  ARE  NORMALLY  LIMITED 

ONLY  TO  THE  PARAMETERS  FOR  ONE  THRUSTING  MANEUVER  AT  A TIME 

EXCEPT  FOR  CONCENTRIC  FLIGHT  PLAN  MANEUVER  SEQUENCES* 

R0052 

R0053 

R0054 

R0055 

R0056 

R0057 

R0058 

R0059 

(10)  THE  RENDEZVOUS  RADAR  MAY  OR  MAY  NOT  BE  USED  TO  UPDATE  THE  LM 

OR  CSM  STATE  VECTORS  FOR  THIS  PROGRAM*  IF  RADAR  USE  IS 

DESIRED  THE  RADAR  V,AS  TURNED  ON  AND  LOCKED  ON  THE  CSM  BY 

PREVIOUS  SELECT  ICN  CF  P20*  RADAR  SIGHTING  MARKS  RILL  BE  MADE 

AUTOMATICALLY  APPROXIMATELY  CNCE  A MINUTE  WHEN  ENABLED  BY  THE 

TRACK  AND  UPDATE  FLAGS  (SEE  P2^»*  THE  RENDEZVOUS  TRACKING 

MARK  COUNTER  IS  ZERCEC  BY  THE  SELECTION  OF  P20  AND  AFTER  EACH 

THRUSTING  MANEUVER* 

R0060 

(11)  THE  ISS  NEED  NOT  BE  CN  TO  COMPLETE  THIS  PROGRAM* 

R0061 

(12)  THE  OPERATION  CF  THE  FRCGRAM  UTILIZES  THE  FOLLOWING  FLAGS  - 

R0062 

R0063 

R0064 

R0065 

ACTIVE  VEHICLE  FLAG  - DESIGNATES  THE  VEHICLE  WHICH  IS 

DOING  RENDEZVOUS  THRUSTING  MANEUVERS  TO  THE  PROGRAM  WHICH 

CALCULATES  THE  MANEUVER  PARAMETERS*  SET  AT  THE  START  CF 

EACH  RENDEZVOUS  PRE-THR UST I NG  PROGRAM* 

R0066 

R0067 

R0068 

FINAL  FLAG  - SELECTS  FINAL  PROGRAM  DISPLAYS  AFTER  CREW  HAS 

COMPLETED  THE  FINAL  MANEUVER  COMPUTATION  AND  DISPLAY 

CYCLE* 

R0C69 

R0070 

R0071 

R0072 

EXTERNAL  DELTA  V STEERING  FLAG  - DESIGNATES  THE  TYPE  OF 

STEERING  REQUIRED  FOR  EXECUTION  OF  THIS  MANEUVER  BY  THE 

THRUSTING  PRCGFAM  SELECTED  AFTER  COMPLETION  OF  THIS 

PROGRAM* 

R0073 

R0074 

(13)  IT  IS  NORMALLY  REQUIRED  THAT  THE  ISS  BE  ON  FOR  1 HOUR  PRIOR  TO 

A THRUSTING  MANEUVER* 

R0075 

(lA)  This  PROGRAM  IS  SELECTED  BY  THE  ASTRONAUT  BY  DSKY  ENTRY  - 

R0076 

P32  IF  THIS  VEHICLE  IS  ACTIVE  VEHICLE* 

R0077 

P72  IF  THIS  VEHICLE  IS  PASSIVE  VEHICLE* 

ROllO 

INPUT 

ROlll 


tl)  7CSI 


TIME  OF  THE  CSI  MANEUVER 
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R0112  (2)  NN 

R0113 

R0114 

R0115  (3»  ELfcV 

R0116  (4)  TTPI 

R0130  OUTPUT 


NUMBER  OF  APSICAL  CROSSINGS  THRU  WHICH  THE  ACTIVE 

VEHICLE  OPEIT  CAN  BE  ADVANCED  TO  OBTAIN  THE  COH 

MANEUVER  POINT 

DESIREC  LCS  ANGLE  AT  TPI 

TIME  OF  THE  TPI  MANEUVER 


R0131 

R013^ 

R0133 

R0134 

R0135 

R0136 

R0137 

R0138 


(1)  TRKMKCNT 

(2)  TTOGO 
(3»  t-MGA 

(4)  OIFFALT 

(5)  T1T0T2 

(6)  T2T0T3 

(7)  OELVLVC 
(8  1 OELVLVC 


NUMBER  CF  MARKS 

TIME  TO  GC 

MIDDLE  GIMBAL  ANGLE 

DELTA  ALTITUDE  AT  CDH 

DELTA  TIME  FROM  CSl  TO  CDH 

DELTA  TIME  FROM  CDH  TO  TPI 

DELTA  VELOCITY  AT  CSI  - LOCAL 

DELTA  VELOCITY  AT  COH  - LOCAL 


VERTICAL  COORDINATES 
VERTICAL  COORDINATES 


R0139  DOWNLINK 


R01391 

R01392 

R01393 

R01394 

R01395 

R01396 

R01397 

R01398 

R01399 

R0140 

R01401 


(1)  TCSI 

(2)  TCDH 

(3)  TTPI 

(4)  TIG 


(7)  DIFFALT 
(81  NN 


TIME  OF  THE  CSI  MANEUVER 
TIME  OF  THE  CCH  MANEUVER 
TIME  OF  THE  TPI  MANEUVER 
TIME  OF  THE  CSI  MANEUVER 
(5»  OELVEETl  DELTA  VELCCITY  AT  CSI  - REFERENCE  COORDINATES 
(6)  0ELVEET2  DELTA  VELCCITY  AT  COH  - REFERENCE  COORDINATES 
DELTA  ALTITUDE  AT  COH 

NUMBER  CF  APSICAL  CRCSSINGS  THRU  WHICH  THE  ACTIVE 
VEHICLE  ORBIT  CAN  BE  ADVANCED  TO  OBTAIN  THE  CDH 


(9)  ELEV 


MANEUVER  PCINT 
DESIRED  LCS  ANGLE  AT  TPI 


R01402  COMMUNICATION  TO  THRUSTING  PROGRAMS 


R01403 

R01404 

R014n5 

R01406 

R01407 

R01408 

R01409 

R0141 


(4)  CELVSIN 

(5)  DELVSA8 


TIME  OF  THE  CSI  MANEUVER 

POSITION  CF  ACTIVE  VEHICLE  AT  CSI  - BEFORE  ROTATION 
INTO  PLANE  OF  PASSIVE  VEHICLE 

VELCCITY  CF  ACTIVE  VEHICLE  AT  CSE  - BEFORE  ROTATION 
INTO  PLANE  OF  PASSIVE  VEHICLE 

DELTA  VELCCITY  AT  CSI  - REFERENCE  COORDINATES 
MAGNITUDE  CF  DELTA  VELCCITY  AT  CSI 


(6J  XD6LVFL6  SET  TO  INDICATE  EXTERNAL  DELTA  V VG  CCMPUTATICN 


R0150  SUBROUTINES  USED 


R0151  AVFLAGA 

R0152  AVFLAGP 

R01525  P20FLG0N 

R0153  VARALARM 

R0154  BANKCALL 

R0155  GCFLASH 

R0156  GCTOPOOH 
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R01562 

R01564 

R0157 

ROlSe 

R0159 

R0160 

R0161 

R0162 

R0163 

R0164 

R0165 

R0166 


VNPOOH 

GOFLASHR 

BLANKET 

ENDOFJOB 

SELECTMU 

ADVANCE 

INT  INT 

PASSIVE 

CSI/A 

S32/33ol 

DISOVLVC 

VN16A5 


0400 

0401  REF  1 

0402 

0403  REF  1 

0404  REF  1 

0500  REF  1 

0502  REF  I 

0503  REF  1 

0503C5 

05O3C6  REF  1 

050307  REF  3 

05031  REF  I 

05032 

05033  REF  2 

05034 

05035  REF  3 

0503  8 

05039  REF  1 

0504  REF  284 

05041  REF  3 

05042  REF  1 

05043  REF  165 

05044  REF  8 

05045  REF  6 

050^6 

0505  REF  1 

05051  PEF  2 

0506  REF  3 

05061  REF  4 

05062  REF  5 

0507  REF  1 

0506  REF  4 

050801  REF  65 

0508C2 

050803  REF  6 

050804 

050805  REF  1 


LAST 


LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


317 


143 

626 


611 

390 


497 

497 


626 

317 

307 

626 

620 

620 

626 


35.2034 
35,2000 

25.2034 
E7,1470 

35. 2034 

35.2035 

35.2036 

35.2037 
35  ,2740 

35. 2041 

35.2042 

35.2043 

35.2044 
35  ,2045 

35.2046 

35.2047 

35.2050 

35. 2051 

35.2052 

35.2053 

35.2054 
35  ,2055 

35.2056 

35.2057 

35.2060 

35.2061 

35.2062 

35.2063 

35.2064 

35.2065 

35.2066 

35.2067 
35  ,2070 

35.2071 

35.2072 

35.2073 


0 2354  1 
0 2037  1 
0 2361  1 
0 00C6  1 
3 2425  0 
52'621  1 
0 2060  0 
77734  1 
C3613  0 
77740  1 
C3613  0 
77533  1 
32430  1 
3 0154  1 
C 5734  1 
3 5006  1 
C 4616  1 
20477  1 
C 6001  0 
0 2053  0 
0 2366  0 
3 2424  1 
55'467  1 
55*  633  1 
55*634  0 
3 2415  0 
0 3621  1 
0 6042  1 
57545  1 
C3634  0 
71240  1 
72120  1 


P32 

P72 

P32STR  T 

ALMXI TA 
ALMX IT 


BANK  35 
SETLOC  CSI/COH 
BANK 

E6ANK=  SUBEXIT 
COUNT*  i$/P327? 
TC  AVFLAGA 

TC  P32STRT 

TC  AVFLAGP 

EXTEND 

DCA  PSOZERO 
DXCH  CENTANG 
TC  P32/P72A 

SXA,2 

CSIALRM 

LXC,  1 


P32/P72A 


VN0611 


CS  1 ALRM 
SLOAD*  EXIT 

ALARM/TB 
CA  MPAC 

TC  VARALARM 

CAF  V05NOP 

TC  BANKCALL 

CACR  GOFLASH 

TC  GCTOPOOH 

TC  -4 

TC  P20FLG0N 

CAF  P302ERC 

TS  NN  +1 

TS  TCSI 

TS  TCSI  +1 

CAF  V06N11 

TC  VNPCOH 

TC  INTPRET 

CLCAD  nCOMP 

TCSI 

BMN  DLOAO 

VN0655 
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gap:  assemble  REVISION  131  CF  AGC  PPQGRAM  LUMINARY  BY  NASA  2021112-091 


L P32-P35,  P72-P75 


050806  REF  3 

050807  REF  22 

050808  REF  1 

05C8C9 

05081  REF  1 

050811 

050812  REF  2 

050813  REF'  2 

05081A 
050815 

050816  REF  2 

050817  REF  3 

050818  REF  5 

050819  REF  2 

05082  REF  1 

050821 

050822  REF  1 

050823  REF  7 

050824 

050825  REF  1 

050826 

0509  REF  1 

0510  REF  166 

0511  REF  9 

0512  REF  7 

0513 

0514 

0518  REF  1 

0519  REF  5 

0520  REF  66 

0521 

0522  REF  8 

0523  REF  11 

0524  REF  1 

0525 

0526  REF  1 

0527 

0528 

0529  REF  3 

0530 

0531  REF  2 

0532  REF  9 

0533 

0534  REF  4 

0535  REF  I 

0536 

0537  REF  1 

0538 

0539  REF  1 

0540 


LAST 

LAST 


LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


LAST 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


504  35,2074 

621  35,2075 

35.2076 

35.2077 

35.2100 

35.2101 
498  35,2102 

143  35,2103 

35.2104 

35.2105 
498  35,2106 

498  35,2107 

615  35,2110 

126  35,2111 

35.2112 

35.2113 


01643  1 
34041  0 
46403  1 
53775  1 
03536  1 
57176  0 
26655  0 
03544  1 
43057  1 
57176  0 
03466  0 
16744  1 
06532  0 
36756  0 
25557  1 
77615  0 


626 


62  6 
626 
626 


626 

626 

627 

621 


146 

143 

627 

308 


35.2114 

35.2115 

35.2116 
35  ,2117 

35.2120 

35.2121 

35.2122 

35.2123 

35.2124 

35.2125 

35.2126 
35  ,2127 

35.2130 

35.2131 
35  ,2132 

35.2133 

35.2134 

35.2135 

35.2136 

35.2137 

35.2140 

35.2141 
35  ,2142 

35.2143 

35.2144 

35.2145 
35,  2146 
35  ,2147 

35.2150 

35.2151 

35.2152 

35.2153 

35.2154 

35.2155 


03574  1 
03634  0 
77776  1 
d 2065  0 
77776  1 
3 3633  1 
0 4616  1 
20477  1 
0 6001  0 
0 2127  1 
C 2121  1 
3 3632  0 
0 3621  I 
C 6042  I 
77745  1 
03634  0 
37442  1 
20000  0 
77624  1 
71016  0 
77201  1 
00001  0 
03506  1 
65315  0 
03500  1 
03634  0 
65325  n 
03636  1 
33641  1 
45006  0 
73376  1 
77624  1 
46435  1 
77624  1 


TETLEM 
STCALL  TDECl 

PRECSET 
VLOAO  VSR* 
RACT3 
0,2 

STOVL  Rvec 

VACT3 

VSR*  SET 
0,2 
RVSR 
STOOL  VVEC 

OPPCSMAX 
STCALL  RDESIRFD 
T IMERAD 

DAO 

TDEC2 

STORE  TCSI 
EXIT 

TC  VN0611 

VN0655  EXIT 

CAF  V06N55 

TC  BANKCALL 

CADR  GOFLASH 
TC  GOTOPOOH 

TC  +2 

TC  -5 

CAF  V06N37 

TC  VNPOOH 

TC  INTPRET 

OLCAD 

TCSI 
STCALL  TIG 

SELECTNU 

P32/P728  CALL 

ADVANCE 
SETPD  VLCAO 

00 

VPASSl 
POVL  POOL 

RPASSl 
TCSI 
POOL  POOL 

TTP  I 
TWCPI 

PUSH  CALL 

INTINT 

CALL 

PASSIVE 

CALL 
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0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0566 

0567 

05671 

05672 

0568 

0569 
05691 

0572 

0573 

05731 

05732 

0574 

0575 

0576 


REF 

REF 

PEF 


REF 

PEF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF 

REF 

REF 


LAST  620 
LAST  619 


LAST  318 
LAST  628 


LAST  318 
LAST  628 


LAST  628 


LAST  200 

LAST  628 
LAST  118 
LAST  118 
LAST  200 


LAST  627 
LAST  620 


35.2156 

35.2157 

35.2160 

35 .2161 

35.2162 

35.2163 

35 .2164 

35.2165 

35.2166 

35.2167 
35, 2170 
35  ,2171 

35.2172 

35.2173 

35.2174 

35.2175 

35.2176 

35.2177 
35, 22C0 
35  ,2201 

35.2202 

35.2203 
35  ,2204 

35.2205 

35.2206 

35.2207 
35,2210 
35  ,2211 

35.2212 

35.2213 

35.2214 
35,  2215 

35.2216 

35.2217 
35,2220 
35  ,2221 
35,2222 


70113  0 
43014  0 
C1311  0 
72163  0 
C0470  1 
77745  1 
02253  1 
02253  1 
51025  1 
32427  1 
72165  0 
77745  1 
02255  1 
02255  1 
51025  1 
32427  1 
72173  1 
77776  1 
2 2417  1 
0 3621  1 
0 6042  1 
45175  0 
02267  0 
71100  0 
26267  0 
02311  0 
26303  0 
02275  0 
45170  0 
01522  0 
72375  0 
77745  1 
03636  1 
37640  1 
73515  1 
77650  1 
72136  0 


P32/P72C  BON 


P32/P720  OLOAD 


EXIT 

CAF 


VLOAD 

STOVL 

STOVL 

AXT,J 

VN 

OLOAD 

STCALL 

GOTO 


CSI/A 

SET 

FI NALFLG 
P32/P72D 
UPDATFLG 

T1T0T2 

T1TCT2 

BPL 

60MIN 

P32/P72E 

T2TOT3 
T2T0T3 
BPL 
60MI  N 
P32/P72F 

V06N75 

VNPOOH 

INTPRET 

CALL 

OELVEETl 

S32/33<,1 

DELVEETl 

PACT2 

RACTl 

0ELVEET2 

CALL 

0682 

DISOVLVC 

TTPl 

TTPIO 

VN1645 
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P32-P35,  F72-P75 

CONSTANT  DELTA  HEIGHT  (OOH)  fRCGRAMS  (P33  ANC  P73 I 


USER*  S PAGE  NCc 


RlOll 

R1012 

R1013 


MOD  NO  -1  LOG  SECTION  - P22-P35,  P72-P75 

MOD  BY  WHITEbP  DATE  1JUNE67 

PURPOSE 


R1018 

R1019 

R1020 


(3)  TO  DISPLAY  TO  THE  ASTRONAUT  AND  THE  GROUND  DEPENDENT  VARIABLES 
ASSOCIATED  WITH  THE  COH  MANEUVER  FOR  APPROVAL  BY  THE 
ASTRCNALT/GRQUNC. 


ASSUMPTIONS 


R102A 

R1025 

R1026 


(1)  THIS  PROGRAM  IS  BASED  UPON  PREVIOUS  COMPLETION  OF  THF 

CO-ELLIPTIC  SEQUENCE  INITIATION  ICSI)  PROGRAM  (P32/P72)o 
THERFORE  - 


Ri027 

R1028 

R1029 

R1030 


(A)  AT  A SELECTED  TPI  TIME  (NOW  IN  STORAGE)  THE  LINE  OF  SIGHT 
BETWEEN  THE  ACTIVE  AND  PASSIVE  VEHICLES  WAS  SELECTED  TO  BE 
A PRESCRIBED  ANGLE  l£)  (NOW  IN  STORAGE)  FROM  THE 
HORIZONTAL  PLANE  DEFINED  BY  THE  ACTIVE  VEHICLE  POSITIONo 


POSITION  AT  CSI  IGMTIONo 


R1039 

RIOAO 

R1041 


(F)  THE  PERICENTER  ALTITUDES  OF  THE  ORBITS  FOLLOWING  CSI  AND 
CDH  WERE  CUMPUTEO  TO  BE  GREATER  THAN  35,000  FT  FOP  LUNAR 
ORBIT  OR  85  NM  FOR  EARTH  ORBITo 
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R1044 

R1045 

■'  MODIFICATION-CF  DELTA  V (LVI  COMPONENTS  MAY  HAVE  RESULTED 

IN  AN  OLT-OF-PLANE  MANEUVER© 

R10<,& 

R1047 

(21  STATE  VECTOR  UPCATES  BY  P27  ARE  CISALLDWED  DURING  AUTOMATIC 

STATE  VECTOR  UPDATING  INITIATED  BY  P20  (SEE  ASSUMPTION  41© 

R104e 
R1049 
RIO  50 
R1051 

(31  COMPUTED  VARIABLES  MAY  BE  STORED  FOR  LATER  VERIFICATION  BY 

7HF  GROUND©  THESE  STORAGE  CAPABlLlTES  ARE  NORMALLY  LIMITED 

ONLY  TO  THE  PARAMETERS  FOR  ONE  THRUSTING  MANEUVER  AT  A TIME 

EXCEPT  FOR  CONCENTRIC  FLIGHT  PLAN  MANEUVER  SEQUENCES© 

R1052 

R1053 

R105A 

R1055 

R1056 

R1057 

R1056 

R1059 

(41  THE  RENUEZVCUS  RADAR  MAY  CR  MAY  NOT  BE  USED  TO  UPDATE  THE  LM 

OR  CSM  STATE  VECTORS  FOR  THIS  PROGRAM©  IF  RADAR  USE  IS 

DESIRED  THE  RADAR  WAS  TURNED  ON  AND  LOCKED  ON  THE  CSM  BY 

PREVIOUS  SELECTION  CF  P20©  RADAR  SIGHTING  MARKS  WILL  BE  MADE 

AUTOMATICALLY  APPROXIMATELY  ONCE  A MINUTE  WHEN  ENABLED  BY  THE 

TRACK  ANC  UPDATE  FLAGS  (SEE  P20>«  THE  RENDEZVOUS  TRACKING 

MARK  COUNTER  IS  ZERCEO  BY  THE  SELECTICN  OF  P20  AND  AFTER  EACH 

THRUSTING  MANEUVER© 

R1060 

(5)  THE  ISS  NEED  NOT  BE  CN  TC  COMPLETE  THIS  PROGRAM© 

R1061 

16)  THE  OPERATION  OF  THE  PROGRAM  UTILIZES  THE  FOLLOWING  FLAGS  - 

R1062 

R1063 

R1064 

R1065 

ACTIVE  VEGICLB  FLAG  - DESIGNATES  THE  VEHICLE  WHICH  IS 

DOING  RENOEZVOLS  THRUSTING  MANEUVERS  TC  THE  PROGRAM  WHICH 

CALCULATES  THE  MANEUVER  PARAMETERS©  SET  AT  THE  START  OF 

EACH  RENDEZVOUS  PRE-THRUST ING  PROGRAM* 

R1066 

R1067 

R 1066 

FINAL  FLAG  - SELECTS  FINAL  PROGRAM  DISPLAYS  AFTER  CREW  HAS 

COMPLETED  TFE  FINAL  MANEUVER  COMPUTATION  AND  DISPLAY 

CYCLE© 

R1069 

R1070 

R1071 

R1072 

EXTERNAL  DELTA  V STEERING  FLAG  - DESIGNATES  THE  TYPE  OF 

STEERING  RECUIFED  FCR  EXECUTION  OF  THIS  MANEUVER  BY  THE 
thrusting  program  SELECTED  AFTER  COMPLETION  CF  THIS 

PROGRAM©  , 

R1073 

R1074 

(71  IT  IS  NORMALLY  REOLIRED  THAT  THE  ISS  BE  ON  FUR  1 HOUR  PRIOR  TO 

A THRUSTING  MANEUVER© 

R1075 

(8)  THIS  PROGRAM  IS  SELECTEC  BY  TFE  ASTRONAUT  BY  OSKY  ENTRY  - 

R1076 

P33  IF  THIS  VEHICLE  IS  ACTIVE  VEHICLE© 

R1D77 

P73  IF  THIS  VEHICLE  IS  PASSIVE  VEHICLE© 

RlllO 

INPUT 

Kill] 

(1)  TTPIO  TIME  OF  THE  TPI  MANEUVER  - SAVED  FROM  P32/P72 
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R 1130 


SAVED  FROM  P32/P72 


R1121 
R1132 
R 1133 
R1139 
R1135 
R 1136 
R1137 


(1)  7RKMKCNT  NUMBER  OF  f'ARKS 

(2  ) TTOGC  TIWE  TC  GC 

(3)  +MGA  MIOOLG  GIREAL  ANGLE 

(9)  OIFFALT  DELTA  ALTITUDE  AT  COH 

15)  T2TOT3  DELTA  TIME  FROM  CDh  TO  COMPUTED  TPI 

(6>  NOMTPI  DELTA  TIME  FRCM  NOMINAL  TPI  TO  COMPUTED  TPI 

(7)  DELVLVC  DELTA  VELOCITY  AT  CDH  - LOCAL  VERTICAL  COORDINATES 


R1139  DC^»NLINK 


R11301 
R11392 
R 11393 
R11394 
R11395 
R11396 
Rll^02 


(11  TCDH  TIME  OF  THE  CDH  MANEUVER 

(2)  TTPI  TIME  OF  TFE  TPI  MANEUVER 

(3)  TIG  TIME  OF  THE  CDH  MANEUVER 

(4)  OeLVEET2  DELTA  VELOCITY  AT  CDH  - REFERENCE  COORDINATES 
(51  OIFFALT  DELTA  ALTITUDE  AT  CDH 

(6»  ELEV  DESIRED  LCS  ANGLE  AT  TPI 
COMMUNICATION  TO  THRUSTING  PROGRAMS 


R11A03 
R1140A 
R11405 
R11406 
R11407 
R11408 
R 11409 
R1141 


<1) 

(2> 

(3) 

(41 
( 5» 
(6) 


TIG 

RTI6 

VTIG 

DELVSIN 

DELVSA8 

XOELVFLG 


TIME  OF  THE  CDH  MANEUVER 

POSITION  CF  ACTIVE  VEHICLE  AT  CDH  - BEFORE  RCTATION 
INTO  PLANE  CF  PASSIVE  VEHICLE 

VELOCITY  CF  ACTIVE  VEHICLE  AT  CDH  - BEFORE  ROTATION 

INTO  PLANE  OF  PASSIVE  VEHICLE 

DELTA  VELOCITY  AT  CDH  - REFERENCE  COORDINATES 

MAGNITUDE  CF  DELTA  VELCCITY  AT  CDH 

SET  TO  INDICATE  EXTERNAL  DELTA  V VG  COMPUTATION 


R1150  SL8R0LTINES  LSEO 


R1151  AVFLA6A 

R1152  AVFLAGP 

R11525  P20FLGCN 

R1153  VNPOOH 

R1154  SELECTMU 

R1155  ADVANCE 

R1156  CCHMVR 

R1157  INTINT3P 

R1158  ACTIVE 

R1159  PASSIVE 

R1160  S33/34ol 

M161  ALARM 

R1162  BANKCALL 

R1163  GOFLASH 

R1164  GGTOPOOH 

R1166  S32/33ol 


GAP  : 
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R1167  VM6A5 


1502  REF  1 

1503  REF  2 

1505  REF  2 

15051  REF  1 

1506  REF  7 

1507  REF  6B 

1508 

15081  REF  2 

15082  REF  6 

1509  REF  A 

1510  REF  12 

1511  REF  2 

1512 

1513  REF  2 

151A 

1515  REF  1 

1516 

1517 

1518  REF  3 

1519 

1520  REF  3 

1521  REF  1 

1522 

1523  REF  1 

1524 

1525 

1526  REF  2 

1527 

1528  REF  2 

1529  REF  2 

1530 

1531  REF  2 

1532 

1533  REF  3 

1534  REF  1 

1535  REF  1 

1536  REF  1 

1537 

1538  REF  1 

1539  REF  27 

1540 

1541  REF  2 

1542  REF  167 

1543  ref  10 

1544  REF  8 

1545 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 


626 


626 
62  6 

628 

628 


628 

628 

307 

627 

627 

627 


627 


62  8 


143 

143 

632 

627 

626 


598 

626 

627 

627 

627 


35.2223 

35.2224 

35.2225 

35.2226 
35  ,2227 

35.2230 

35.2231 

35.2232 
35,2223 

35.2234 

35.2235 

35.2236 
35  ,2237 
35,22AO 
35,22A1 

35.2242 

35.2243 

35.2244 

35.2245 

35.2246 
35  ,2247 

35.2250 

35.2251 

35.2252 

25.2253 

35.2254 

35.2255 

35.2256 

35.2257 

35.2260 

35.2261 

35.2262 

25. 2263 

35.2264 

35.2265 

35.2266 

35.2267 

35.2270 

35.2271 
35  ,2272 

35.2273 

35.2274 

35.2275 

35.2276 

35.2277 

35.2300 

35.2301 


0 2354  1 
0 2226  0 
0 2361  1 
0 2366  0 
3 2416  0 
C 3621  1 
0 6042  1 
77745  1 
C3640  0 
17636  1 
01777  1 
37442  1 
20000  0 
77624  1 
71C16  0 
77624  1 
71133  0 
77201  I 
COCOl  0 
C3544  1 
45115  0 
02311  0 
71071  1 
77624  1 
46425  0 
77201  1 
COCOl  0 
C3530  1 
45115  0 
03522  1 
71071  1 
77624  1 
46435  I 
43145  0 
32425  0 
03460  C 
36317  1 
72  674  1 
77454  1 
72307  0 
C 5567  0 
00611  1 
3 5006  1 
C 4616  1 
20477  1 
C 6001  0 
0 2303  0 


P73  TC 

P33/P73A  TC 
CAF 


SS/P3373 

AVFLAGA 

P33/P73A 

AVFLAGP 

P20FLG0N 

V06N13 

VNPOOH 

INTPRET 


STOOL 

STCALL 

P33/P738  CALL 
CALL 


TTPIO 

TTPI 

TCCH 

TIG 

SELECTMU 


ADVANCE 


CDHPVR 
SETPD  VLOAD 
OD 

VACT3 

PCVL  CALL 
RACT2 
INTINT3P 

CALL 


ACTIVE 
SETPD  VLOAD 
00 

VPASS2 
PDVL  CALL 

RPASS2 

INTINT3P 

CALL 

PASSIVE 
DLOAD  SET 

P30ZERC 
I TSWICH 
STCALL  NOMTPI 

S33/34ol 
8ZE  EXIT 

P33/P73C 
TC  ALARM 

OCT  611 

CAF  V05N09 

TC  BANKCALL 

CADR  GOFLASH 

TC  GCTOPCOH 

TC  +2 
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1546  REF 

1547  REF 

1548 

1549  REF 

1550  REF 

1551 

1552  REF 

1553  REF 

1554  REF 

1557 

1558  REF 

1559  REF 

1560  REF 

1561 

1562  REF 

1563 

1564  REF 

1565  REF 

1566 

1567  REF 

1568  REF 

1569  REF 

1570 

1571  REF 

1572 

1573  REF 

1574 

1575  REF 
15751  REF 
15753 

15755  REF 

1576 

1577  REF 
1570  REF 

1579  REF 

1580 

1581  REF 

1584  REF 

1585  REF 

1589  REF 

1590 

1591  REF 


2 LAST  6?2 
69  LAST  632 

4 last  632 

2 LAST  632 

3'  LAST  628 
1 

7 LAST  628 

3 LAST  633 

7 LAST  632 

8 LAST  633 

5 LAST  632 

3 LAST  628 
1 

4 LAST  633 

5 LAST  628 

9 LAST  633 

3 LAST  632 


5 LAST  633 
1 

6 LAST  633 

4 LAST  628 

2 LAST  628 
8 LAST  632 
70  LAST  633 

4 LAST  628 

2 LAST  628 

5 LAST  633 

3 LAST  628 

1 


35i23C2 
35t2303 
35  ,2304 

35.2305 

35.2306 
35  ,2307 

35. 2310 

35.2311 

35.2312 

35.2313 
35  ,2314 

35.2315 

35.2316 

35.2317 

35.2320 

35.2321 

35.2322 

35.2323 
35  ,2324 

35.2325 

35.2326 
35  ,2327 

35.2330 

35.2331 

35.2332 

35. 2333 
35  ,2334 

35.2335 

35.2336 
35  ,2337 

35. 2340 

35.2341 

35.2342 

35.2343 
35  ,2344 

35.2345 

35.2346 
35  ,2347 

35.2350 

35.2351 

35.2352 

35.2353 


0 2226  0 
0 6042  1 
77745  1 
32425  0 
02317  0 
43014  0 
• 01311  0 
72313  0 
C0470  1 
43345  1 
02317  0 
03636  1 
03636  1 
77625  0 
C1777  1 
51025  1 
32427  1 
72321  I 
77615  0 
32427  1 
16253  1 
03636  1 
41425  1 
03640  0 
45246  0 
32427  1 
43244  1 
72332  0 
32427  1 
45565  0 
75522  0 
77776  1 
3 2417  1 
C 3621  1 
0 6042  1 
45175  0 
02275  0 
71100  0 
36275  I 
73515  1 
77650  I 
72240  1 


TC  P33/P73A 

TC  INTPRET 

DLOAD 

P30ZERC 
STORE  NOMTPl 
P33/P73C  BON  SET 

FI NALFLG 
P33/P73D 
UPCATFLG 

P33/P730  OLOAD  DAD 

NOMTPl 
TTPI 
STORE  TTPI 
DSU 

TCOH 

P33/P73E  DSU  BPL 

60MIN 

P32/P73E 

OAC 

60MIN 

STOOL  T1T0T2 
TTPI 
DSU  PUSH 
TTPIO 

P33/P73F  ABS  DSU 

60HIN 

BPL  DAD 

P33/P73F 
60MIN 
SIGN  STAOR 
STORE  T2TPT3 
EX  IT 

CAF  V06N75 
TC  VNPOOH 

TC  INTPRFT 

VLOAD  CALL 

DeLVEET2 
S32/33»l 
STCALL  0ELVEeT2 
VNl 645 

GOTO 

P33/P73B 
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gap:  ASSEf^BLE  REVISION  131  OF  AGC  PROGRAM  LUMINARV  RY  NASA  2021112-091 


L P32-P35,  F72-P7S 

P3800  eooeo  AVFLAGA/P  «. 

R3850  SLBROUTINES  USED 

R3851  ^ LPFLAG 

R3852  DOWNFLAG 


3900 

3901  REF 

3902  REF 

3903  REF 
390^  PEF 

3905 

3906  REF 

3907  REF 

3908  REF 

3909  REF 

39091 

39092  REF 

39093  REF 

3910  REF 

39101  REF 

39102  REF 

3911  REF 


2 LAST  626 

38  LAST  619 
1 

3 LAST  63^» 

4 LAST  634 
65  LAST  619 

2 LAST  634 

5 LAST  634 

6 LAST  634 

39  LAST  634 
8 LAST  633 

40  LAST  634 
5 LAST  619 

7 LAST  634 


35.2354 

25.2355 

35.2356 
15  ,2357 

25.2360 

35.2361 

35.2362 
25,2263 

35.2364 

35.2365 

35.2366 
35  ,2367 

35.2370 

35.2371 
35  ,2372 

25.2373 

35.2374 


0 0006  1 
23'470  0 
C 5504  0 
00050  1 
0 1470  0 
0 0006  1 
23'470  0 
0 5516  C 
00050  1 
0 1470  0 
C 0006  1 
23'470  0 
0 5504  0 
00027  1 
0 5504  0 
00C31  0 
0 1470  0 


AVFLAGA  EXTEND 

QXCH  SUBEXIT 
TC  UPFLAG 

ACRES  AVFLAG 
TC  SUBEXIT 

AVFLAGP  EXTEND 

QXCH  SUBEXIT 
TC  DOWNFLAG 

ADR6S  AVFLAG 
TC  SUBEXIT 

P20FLGON  EXTEND 

QXCH  SUBEXIT 
TC  UPFLAG 

ADRES  UPOATFLG 
TC  UPFLAG 
ADRES  TRACKFLG 
TC  SUBEXIT 


17:53  CEC>  19,1969  LEPPROS  .,105  PAGE  634 


USER  'S  PAGE  NOo  12  E7  S3 


AVFLAG  = LEM 


AVFLAG  = CSM 


SET  UPOATFLG 
SET  TRACKFLG 


gap:  assemble  REVISION  131  CF  AGC  PPCC-RAR  LUMINARY  BY  NASA  2021112-091 

L P32-P35,  P72-P75 

P4600  DISDVLVC 

R4650  SUBROUTINES  USED 

R465i  S32/33<.X 

R^652  VNFCCH 


4700  REF 

4701 

4702  REF 

47021  REF 

47022 

47023  REF 

47024 
470241 
470243  REF 

47025  REF 

4702  6 

4703  REF 

4704  REF 

4705  REF 

4706 

4707  REF 


11  LAST  319 

2 LAST  142 
1 

12  LAST  635 

1 

13  LAST  635 

2 LAST  635 
9 LAST  633 

71  LAST  633 

3 LAST  635 


35,2376 
35  ,2377 

35.2400 

35.2401 

35.2402 

35.2403 

35.2404 

35.2405 

35.2406 
35  ,2407 

35.2410 

35.2411 

35.2412 

35.2413 
35  ,2414 


03434  1 
45020  I 
03463  0 
71120  1 
64375  1 
03434  1 
OOOCl  0 
66172  0 
03615  0 
03434  1 
77776  1 
2 1615  1 
0 3621  1 
0 6042  1 
77650  1 
03463  0 


01 SOVLVC  STORE  OELVLVC 
STQ  CALL 

NORMEX 
S32/33oX 
VLOAO  MXV 

DELVLVC 

OD 

VSLl  SXA,1 

VER6NCUN 
STORE  OELVLVC 
EX  IT 

CA  VER8NCUN 

TC  VNPOOH 

TC  INTPRET 

GOTO 

NORMEX 


17:53  DECfl 


19,196«’  LEMP30S  . l'^5  PAGE  635 


USER'S  PAGE  NOo 


13  E7  S3 


GAP : 

L 

P4800 

4901 

4902 

490? 

4914 

4914 

4915 

4915 

4916 

4916 

4917 

4917 

4919 

4920 

4921 

4922 

4923 

4924 

4925 
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P32-P35,  P72-P75 


USER'S  PAGE  NCo 


67  S3 


oocoo  CCNSTANTS  o«oeo 


35, .2415 

35.2416 

35.2417 

35.2420 

35.2421 

35.2422 

35.2423 

35.2424 

35.2425 

35.2426 
35  ,2427 

35. 2430 

35.2431 

35.2432 

35.2433 
35  ,2434 

35.2435 

35.2436 


C1413  0 
01415  0 
C1513  1 
77776  1 
62460  1 
17777  0 
37776  0 
00000  1 
COOOO  1 
00025  0 
37100  1 
C0600  1 
00601  0 
00602  0 
rC6C3  1 
00604  0 
C0605  1 
00606  1 


V06N11  VN 
V06N13  VN 
V06N75  VN 
SN359+  2DEC 

CS359+  2D6C 

P30ZER0  2C6C 

60MIN  2DEC 

ALARM/TB  OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 


0611 

0613 

0675 

-o  000086601 


+ <,499999992 


0 

360000 

00600 

00601 

00602 

00603 

00604 

00605 

00606 


GAP  : 

L 

P5  JOO 

R5150 

R515? 

R5153 

R5154 

R5155 

R5156 

R6157 

R5158 

R5159 

R5160 

5400 

5401 

5402 

5403 

5404 

5413 

5413 

5414 

5414 

5415 

5415 

5416 

5416 

5417 

5417 

5418 

5418 

5419 

5419 

542  0 

5420 

5421 

5421 

5422 

5422 

5423 

5423 

5424 

5424 

5425 

5425 

5426 

542o 

5500 

5501 

5502 
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P22-P35,  P72-P75  USER'S  PAGE  NOo  15  E7  S3 


coooo  CSI/A 
SIBROLTINES  USED 


VECShIFT 
TIMETHET 
PERI APO 
SUFTRl 
I NTI  NT2C 
CCHMVR 
^ PERIAPDl 
INTINT 
ACTIVE 


REF 

REF 

REF 


REF 

REF 


1 


1 


LAST  634 


34,2000 
34,2057 
E7  ,1470 

34,2057 
34  ,2060 

34.2061 

34.2062 

34.2063 

34.2064 

34.2065 

34.2066 

24.2067 

34.2070 

34.2071 

34. 2072 

34.2073 

34.2074 

34.2075 

34.2076 

34.2077 

34.2100 

34.2101 

34.2102 
34  ,2103 

24.2104 

34.2105 

34.2106 

34.2107 

34.2110 

34.2111 

34.2112 

34.21 13 

34.2114 

34.2115 


00000  1 
00020  0 
.00003  1 
34661  1 
00606  1 
C4467  0 
00601  0 
33216  1 
IGCOO  0 
00000  1 

00000  1 

00001  0 
00004  0 
31566  C 
OOOOO  1 
01177  1 
C0C02  0 
27311  1 
77754  1 
57611  0 
OOOOO  1 
12326  0 
00116  1 
C0730  0 
CQOOO  1 
06433  0 
00003  1 
25140  0 
43014  0 
03260  0 
03061  0 


LOOPMX 

INITST 

CVPAXl 

DVMAX2 

10P82 

1DPB28 

PMINE 

6PSILN1 

NI  CKELDP 

FI FPSOP 

PMINM 

DELMAXl 

ONETHTH 

TMIN 

CSI/A 


BANK  34 
SETLCC  CSI/COH) 

BANK 

6BANK=  SUBEXIT 
CCUNT*  $$/CSI 
20EC  16 

2DEC  o 03048  B-7 

2CEC  3o0490  8-7 

20EC  3«>01^472  B-7 

20EC  loOB-2 

2DEC  1 

2CEC  157420  B-29 

2DEC  o000304e  8-7 

2DEC  c021336  B-7 

2CEC  -ol52400  B-7 

2CEC  10668  B-29 

2DEC  o6C96000  B-7 

2DEC  cOOOl  B-3 

20EC  60000 

CLEAR  SET 

S32olFl 
S3  2clF2 


INIT  lAL  OELOV  = 1C  FPS 
MAXIMUM  OVl  = 1000  FPS 
9R9  FPS 


85  NM  - MUST  PE  8 WORDS  BEFORE  PMINM 
o 1 FPS 

7 FPS  (CHANGED  FROM  ^05  FPSI 
50  FPS 

35000  FT  - MUST  BE  8 WORDS  AFTER  PMINE 
200  FPS 


10  MIN 

INITIALIZE  INDICATORS 

DVTl  HAS  EXCEEDED  MAX  INDICATOR 

FIRST  PASS  FOR  NFWTON  ITERATION  INOICATR 


GAP: 

L 

5503 

5504 

5505 

5506 

5507 

5506 

5509 

5510 

5511 

5512 

5513 

5514 

5515 

5516 

5517 

5518 

5519 

5520 

5521 

5522 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 

5531 

5532 

5533 

5534 

5535 

5536 

5537 

5538 

5539 

5540 

5541 

5542 

5543 

5544 

5545 

5546 

5547 

5548 

5549 

5550 

5551 

5552 
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P22-P35,  P72-P75 


USER  * S PAGF  NCo  16  E7  S3 


REF  5 LAST 

REF  1 

REF  4 LAST 

REF  3 LAST 

REF  2 LAST 

REF  1 

REF  5 LAST 

REF  6 LAST 

REF  1 

REF  7 LAST 

REF  1 

REF  4 LAST 

REF  2 LAST 

REF  2 LAST 

REF  3 LAST 

REF  1 

REF  4 LAST 

REF  2 LAST 

REF  1 

REF  3 LAST 

REF  1 

REF  1 


34.2116 

34.2117 

34.2120 

24.2121 
623  34,2122 

34,2123 
626  34,2124 

34  ,2125 
34,2126 
628  34,2127 

34.2130 

34.2131 
491  34,2132 

34.2133 

34.2134 

34.2135 
592  34,2136 

34,2137 
638  34,2140 

34.2141 

34.2142 
34  ,2143 
34,2144 

638  34,2145 

34.2146 

34.2147 

34.2150 

34.2151 

34.2152 
638  34,2153 

34,2154 
118  34,2155 

3 4,2156. 
34,2157 
1^6  34  ,2160 

24,2161 

143  34,2162 
34,2163 

144  34,2164 
34,2165 

638  34,2166 

34,2167 
638  34,2170 

34.2171 

34.2172 

34.2173 

34.2174 

34.2175 

34.2176 

34.2177 


43C14  0 
03262  1 
03063  1 
77745  1 
32425  0 
03606  1 
C3614  1 

77201  1 CSI/B 
00001  0 
C23C3  0 
41446  1 
7C5C1  1 
00050  1 
51515  1 
C3552  C 
55301  0 
00047  1 
53664  0 

00046  0 
57175  0 
41215  1 
30070  0 
65301  0 

00047  1 
02321  0 
56342  1 
75457  0 
2C172  I 
53515  0 
02303  0 
47315  0 
02261  0 
77656  1 
72441  0 
03472  0 
45421  1 
60203  0 
30062  0 
03612  1 

43345  1 CSI/81 
03606  1 
30072  1 
03606  1 
77025  0 
30060  1 
G0006  1 
77644  1 
70776  0 

77601  0 CSI/B2 
00001  0 


CLEAR  SET 

S32,1F3A 

S32olF3B 

DLCAD 

P30ZERC 
STORE  LOOPCT 
STORE  CSIALRM 
SETPO  VLOAD 
00 

PACTl 

A8VAL  PUSH 
NORM  SRI 
X2 

POVL  ABVAL 
RPASS3 
NORM  BDCV 
XI 

XSU,2  SR* 

XI 
1 »2 

DAD  OMP 

IDPB2 

NORM  POOL 
XI 

RTMU 

SRI  DDV 

SL*  SORT 

0 -7,1 
PDVL  UNIT 
RACTl 

POVL  VXV 
UPl 

UNIT 

DOT  SLl 

VACTl 
80SU  STADR 
STOOL  OELVCSI 
INITST 

STORE  DELDV 
OLOAO  OAO 

LOCPCT 
1DPB28 
STORE  LOOPCT 
DSU  AXT,2 
LOOPMX 
6 

BPL 

SCNOSOL 

SETPO 

00 


00=1ST  2 PASSES  2NC  CYCLE  01=fIRST  CYCLE 
?0=2N0  CYCLE  11=50FPS  STAGE  2N0  CYCLE 


RAI 


PA1/RP3 


(1+ (RA1/RP3) )RA1 


B29  PL020 
B29-N2+  B1  PL04D 

B1  PL020 
B2 

B20+62  = B31  PLOOD 
PL02D 


E38-B31=  67  PLOOO 
B7 

PL02D 


UNlTtURPl  X UVPl  X URAl)  = UHl 
VAl  o UHl  B7 


PLOOO 


10  FPS 

IF  LOOPCT  = !6 


gap: 
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5553 

5554  REF  4 

5555 

5556  REF  I 

5557  REF  I 

5558 

5559 

5560  REF  2 

5561  REF  ■'  2 

5562 

5563  REF  2 

5564  REF  1 

5565  REF  2 

5566  RtF  3 

5567 

5568  REF  3 

5569  REF  1 

5570 

5571  REF  5 

5572  REF  6 

5573 

5574  REF  5 

5575 

5576  REF  3 

5577 

5578 

5579  REF  7 

5580  REF  5 

5581 

5582  REF  3 

5583  REF  1 

5584  REF  2 

5585  REF  1 

5586  REF  4 

5587 

5588  REF  3 

5589  REF  3 

5590  REF  1 

5591  REF  3 

5592  REF  2 

5593 

5594  REF  3 

5595  REF  1 

5596  REF  1 

55  97 

5598  REF  3 

5590  ref  1 

5600  REF  4 

560nCl 

560002 


LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 


34,220C 
638  34,2201 

34.2202 

34.2203 

34.2204 

34.2205 

34. 2206 

637  34,2207 

638  34,2210 
34,2211 

638  34,2212 

34,2213 

638  34,2214 

639  34,2215 
34,2216 

639  34,2217 

34.2220 

34.2221 
639  34,2222 

639  34,2223 

34,2224 
638  34,2225 

34, 2226 

638  34,2227 

34.2230 

34. 2231 

639  34,2232 

628  34,2233 

34,2234 
638  34,2235 

34, 2236 
144  34,2237 

34,2240 
627  34,2241 

34,2242 
627  34,2243 

627  34,2244 

34,2245 
498  34,2246 

498  34,2247 

34,2250 
622  34,2251 

34.2252 

34.2253 
34^,2254 

622  34,2255 

34,2256 
626  34,2257 

34.2260 

34.2261 


51545  I 
03574  1 
50025  0 
20C64  0 
70224  1 
43174  1 
00C07  0 
03300  1 
70776  0 
43C14  0 
03342  1 
7C216  C 
03303  1 
70776  0 

71214  0 CSI/B22 

03060  1 

30066  1 

77765  0 

03574  1 

0.3574  1 

41575  0 CSI/623 

02303  0 
63256  C 
02261  0 
53435  0 
76561  1 
03574  1 
02267  0 
40C55  0 
03472  0 
7C237  0 

37566  0 CSI/B231 

46441  1 

26744  1 

77614  I 

03466  0 

26655  0 

32421  1 

36730  0 

24732  I 

72142  0 

C2776  0 

37604  1 

46351  1 

77624  1 

46451  0 

17602  0 

03621  1 

52054  1 

70263  1 


OLCAO  ABS 

DELVCSI 
DSU  BMN 

DVMAXl 
CSI/B23 
AXT,2  BCN 
7 

S32e  IFl 
SCNDSOL 
BCFF  BON 

S32clF3A 
CSI/B22 
S32olF3B 
SCNDSCL 
SET  OLCAD 

S32olFl 

0VMAX2 

SIGN 

DELVCSI 
STORE  DELVCSI 
VLOAD  PUSH 
PACTl 

UNIT  PDVL 
UPl 

VXV  UNIT 
VXSC  VSLl 

DELVCSI 

STORE  OELVEETl 
VAQ  BOV 

VACTl 
CSI/B23D 
STCALL  VACT4 

VECSHI  FT 
STPVL  VVEC 
SFT 

RVSW 
STOVL  RVFC 

SN359+ 
STCALL  SNTH 

TIMETHET 
SRI  LXA,1 

RTXl 

STCALL  HAFPAl 
PER  lAPG 

CALL 

SHIFTRl 
STOOL  PGSTCSI 
C ENTANG 
BZE  GOTC 

*2 


17:53  CEC«  19,1969  LEMP30S  ^105  PAGE  639 


USER'S  PAGE  NG*  17  F7  S3 


FLAG  3 NEQ  3 


UNITIURPl  X UVP"*  X UPAl)  = UHl 


iLSO  CSTH 
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USER'S  PAGE  NGc 


560002  REF 
56000A 
5600C5  REF 
5601 


5602 

5603 

5604 

5605 

5606 

5607 
5606 

5609 

5610 

5611 

5612 

5613 

5614 

5615 

5616 

5617 

5618 
5610 
5620 
562] 

5622 

5623 

5624 

5625 

5626 

5627 

5628 

5629 

5630 

5631 

5632 

5633 

5634 

5635 

5636 

5637 

5638 

5639 

5640 

5641 

5642 

5643 
56^4 

5645 

5646 

5647 


PEF 

REF 


REF 

PEF 


REF 

REF 

REF 


2 LAST  126 


2 LAST  640 


4 LAST  639 


8 LAST  638 


3 LAST  640 
2 LAST  126 


2 LAST  638 

3 LAST  118 


LAST  640 
LAST  640 


LAST  640 


2 LAST  37 
1 

7 LAST  640 
4 LAST  640 
2 LAST  144 


3 LAST  638 

4 LAST  640 

6 LAST  638 


34.2262 

34.2263 
34  ,2264 
34,2265. 
34,2266 
34  ,2267 
34, 227C 

34.2271 

34.2272 

34. 2273 

34.2274 

34.2275 

34.2276 

34.2277 

34.2300 

34.2301 

34.2302 
34, 2203 

34.2304 

34.2305 
3^,2306 
34  ,2307 
34,23)C 

34.2311 

34.2312 

24.2313 
34  ,2314 

34.2315 

34.2316 

34.2317 

34.2320 

34.2321 

34.2322 

24.2323 

34.2324 

34.2325 

34.2326 

34.2327 

34. 2330 

34.2331 

34.2332 

34.2333 

34.2334 

34.2335 

34.2336 

34.2337 

34.2340 

34.2341 

34.2342 

34. 2343 


70372  0 
77745  1 
02752  0 
50025  0 
30110  1 
70372  0 
45145  0 
00041  1 
46451  0 
60201  1 
00003  1 
C3047  1 
50315  0 
02303  0 
C3566  1 
56246  1 
00003  1 
45257  0 
20201  0 
30100  0 
71240  1 
70372  0 
02740  C 
45312  0 
30070  0 
14C17  1 
02317  0 
56342  I 
41325  0 
02740  0 
00C41  1 
77624  1 
46451  0 
72412  0 
41366  1 
52414  1 
04343  1 
70330  0 
50315  0 
02303  0 
03566  1 
03617  1 
77646  0 
41301  0 
00050  1 
53660  1 
CCC47  1 
20204  0 
14C15  0 
32425  0 


□ LOAD 

osu 


ABS 

SL# 


SL2 

STOOL 


SRI 

POOL 


SL4 

SORT 

BCFF 


STORE 

ABS 

NORM 


ONETHTH 

riRCL 

CALL 


20 

XI 

007 

RACTl 

VACT4 

ODV 

020 

osu 

0,  1 

NICKELOF 

DLOAD 

CIPCL 

P 

osu 
1 Dpe2 
3 40 

RTSRl/MU 

DDV 

UMP 

P 

R1 

SHIFTRl 

SLl 

DMP 

SL3 

CMOONFLG 

CSI/B3 

DOT 

RACTl 

VACT4 

RDCTV 


DMP 


(/ROOTV/)/P3 


636-629=  87 


ll/POOT  MU)/P] 


( ( P/MUl  5)  /R  1 


( ( P/MU  I**o5  )RD0TV/R1 


B-45  PL02D 


6-31  PL02D 


XSU,1  SL* 


+ B36-B?=  B2 


3,1 

12C 

P30ZERC 


gap; 

L 

5648 

5649 

5650 

5651 

565? 

5653 

5654 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

5664 

5665 

5666 

5667 

5668 

5669 

5670 

5671 

5672 

5673 

5674 

5675 

5676 

5677 

5678 

5679 

5680 

5681 

5682 

5683 

5684 

5685 

5686 

5687 

5698 

5689 

5690 

5691 

5692 

5693 

5694 

5695 

5696 

5697 
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REF  4 LAST 

REF  8 LAST 

REF  5 LAST 

REF  3 LAST 

REF  2 LAST 

REF  5 LAST 

REF  4 LAST 

REF  4 LAST 

REF  3 LAST 

REF  A LAST 

REF  1 

REF  2 LAST 

KEF  2 LAST 


REF  7 LAST 


REF  4 LAST 
REF  3 LAST 


REF  10  LAST 
REF  6 LAST 

REF  10  LAST 


REF  4 LAST 


REF  6 LAST 

REF  9 LAST 

REF  1 

REF  4 LAST 

REF  7 LAST 

REF  1 

REF  4 LAST 


34.2344 

34.2345 

34.2346 

639  34,2347 

640  34,2350 
34,2351 

640  34,  2352 

640  34,2353 
34, -2354 

639  34,2355 

639  34,2356 

34,2357 
639  34,2360 

639  34  ,2361 

639  34,2362 

34,2363 

641  24,2364 

34. 2365 

34.2366 

639  34,2367 
34,2370 

641  34,2371 

24. 2372 

34.2373 

640  34,2374 

34.2375 

34.2376 

626  34,2377 

641  34,2400 

34.2401 

34.2402 

34.2403 

627  34,2404 

633  24,2405 

34  ,2406 
633  34,2407 

34.2410 

34.2411 
639  34,2412 

34.2413 

34.2414 
641  34,2415 

641  34,2416 

34,2417 
■34,2420 
632  34,2421 

622  34,2422 

34,2423 
627  34,2424 

34, 2425 


00C21  1 
53575  0 
00015  0 
26730  1 
02303  0 
75315  1 
03566  1 
03617  I 
45076  1 
46441  1 
26744  1 

77614  I 

03466  0 
36655  1 
24732  I 
51125  0 
03617  1 
70376  1 
45345  1 
03604  0 
52006  0 
7U376  1 

71201  1 CIRCL 
00001  0 
32425  0 
77606  1 

41345  0 NTP/2 

03467  1 
03604  0 
45261  0 
20217  1 

77615  0 
03634  0 
C1777  1 
77021  1 
03636  I 
00005  1 
40240  0 
70776  0 
00001  0 
63375  0 
C3566  1 
02303  0 
77624  1 
71062  0 
26311  0 
00C07  0 
27514  1 
03506  I 
63201  1 


STORE  16C 
VLCAO  UNIT 
12D 

STCVL  SNTH 
RACTl 
PCVL  SIGN 
VACT4 
BDOTV 

VCCMP  CALL 

VECSHI FT 
STOVL  VVEC 
SET 

RVSU 
STCALL  RVEC 

TI METHET 
PDDL  8PL 

RDOTV 

NTP/2 

DLOAD  DSU 

HAFPAl 
PUSH  GOTO 
NTP/2 
SETPD  OLCAO 
OOD 

P30ZERG 

PUSH 

OLOAO  OMP 
NN 

HAFPAl 
SL  DSU 

1 4D 

DAO 

TCS  I 
STORE  TCDH 
BDSU  AXT,2 
TTPI 
5D 

8MN  SETPD 

SCNDSCL 

OD 

VLOAC  POVL 
VACT4 
RACTl 

CALL 

1NTINT2C 
STOVL  PACT2 
VATT 

STOVL  VACT2 
VPASSl 
SETPD  POVL 


ALSO  STORES  CSTH  AND  0 


GAP: 

L 

5698 

5699 

5700 

5701 

570? 

5703 

5704 

5705 

5706 

5707 

5708 

5709 

5710 

5711 

5712 

5713 

5714 

5715 

5716 

5717 

5718 

5719 

5720 

5721 

5722 

5723 

5724 

5725 

5726 

5727 

5728 

5738 

5739 

5740 

5741 

5742 

5743 

5744 

5745 

5746 

5747 

5748 

5749 

5750 

5751 

5752 

5753 

5754 

5755 

5756 
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REF  3 

■’ref  2 
REF  3 
REF  8 
REF  3 
REF  2 

REF  5 


REF  4 
REF  2 

REF  6 
REF  2 
REF  5 


REF  6 

REF  7 
REF  11 

REF  2 

REF  2 

REF  2 

REF  4 


REF  2 


REF  4 


REF  5 


REF  3 


LAST  627 

LAST  641 
LAST  632 
LAST  641 
LAST  632 
LAST  632 

LAST  641 


LAST  632 
LAST  622 

LAST  640 
LAST  143 
LAST  642 


LAST  642 

LAST  641 
LAST  6^1 

LAST  627 

LAST  627 

LAST  632 

LAST  317 


LAST  627 


LAST  639 


LAST  642 


LAST  642 


34.2426 

24.2427 
34  ,2430 

34.2431 

34.2432 

34.2433 

34. 2434 

34.2435 

34.2436 

24.2437 

34.2440 

34.2441 

34.2442 
34  ,2443 

34.2444 

34.2445 

34.2446 

34.2447 

34.2450 

34.2451 

34.2452 

14.2453 
34  ,2454 

34.2455 

34.2456 

34.2457 

34.2460 

34.2461 

34.2462 

34.2463 

34.2464 

34.2465 

34.2466 

34.2467 

34.2470 

34.2471 

34.2472 

34.2473 

34.2474 

34.2475 

34.2476 

34.2477 

34.2500 

34.2501 

34.2502 
34  ,2503 

34.2504 

34.2505 

34.2506 

34. 2507 


00001  0 
C3500  1 
77624  1 
71062  0 
27522  1 
00007  0 
37530  0 
71133  0 
40375  1 
C2311  0 
00001  0 
45115  0 
03544  1 
46341  0 
77624  1 
46451  0 
27604  0 
C3544  1 
63201  I 
00001  0 
02311  0 
65325  0 
01777  1 
03636  1 
41525  0 
33641  I 
77624  1 
73376  1 
77624  1 
46425  0 
77745  1 
02257  0 
73401  0 
C0007  0 
53515  0 
03536  1 
CflOOl  0 
47315  0 
02261  0 
77656  1 
71525  0 
C2257  C 
45561  1 
77754  1 
74345  0 
76455  I 
00023  O 
50206  0 
03536  1 
41552  0 


OD 

PPASSl 

CALL 

INTINT2C 
STOVL  FPASS2 
VATT 

STCALL  VPASS2 
CDHMVR 
VLCAC  SETPD 
RACT2 
OD 

PCVL  CALL 
VACT3 
PER  lAPOl 

CALL 


STCVL 

SETPD 

PDDL 

POOL 

CALL 

CALL 

DLOAD 

SETPD 

POVL 

STORE 

PDVL 


SHIFTRl 

POSTCDH 

VACT3 

PDVL 

OD 

RACT2 

PDDL 

TCDH 

TTPI 

PUSH 

TWCPI 

INTINT 

ACTIVE 

ELEV 
S INE 
6D 

UNIT 

RACT3 

OOD 

vxv 

UPl 


UNIT 

POCL  COSINE 
ELEV 

VXSC  STAOR 
STCRE  18C 
DLOAD  VXSC 
VAC  VSLI 

1 8D 

PUSH  DOT 

RACT3 

SLl  PUSH 


URA3  AT  OOD 
PL]AD,PL080 


UNITtURA3XUVA3XURA3)  = UH’  61  PL14D 

(COSLOS) (UH3I  62  PLOBD 

PLUS 

(SINLOS  MURA?  1 = U 62  PLOOD 

81 

PL060 

(U  e RA3)  = TEMPI  B1  +629=830 

B29  PL080 


gap: 

L 

5757 

5758 

5759 

5760 

5761 

5762 

5763 

5764 

5765 

5766 

5767 

5768 

5769 

5770 

5771 

5772 

5773 

5774 

5775 

5776 

5777 

5778 

5779 

5780 

5781 

5782 

5783 

5784 

5785 

5786 

5787 

5788 

5789 

5790 

5791 

5792 

5793 

5794 

5795 

5796 

5797 

5798 

5799 

5800 

5801 

5802 

5803 

5604 

5805 

5806 
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REF  285 

REF  4 
REF  5 

REF  286 

REF  2 
KEF  3 


REF  1 
REF  4 

REF  2 


REF  1 

REF  5 
REF  6 

REF  1 
REF  8 
REF  1 


REF  1 


REF  6 
REF  4 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 


LAST 

LAST 


LAST 


LAST 

LAST 


626  34,2511 

34,2512 

642  34,2513 

643  34,2514 
34,2515 

643  34,2516 

34,2517 
638  34,2520 

643  34,2521 

34,2522 
34', 2523 
74,2524 
638  34,2525 

34,2526 
638  34,2527 

34.2530 

34. 2531 

34. 2532 

34.2533 

638  24,2534 

643  34,2535 

34.2536 

24.2537 

639  34,2  540 

34.2541 

34.2542 

34.2543 

34.2544 

34.2545 

34.2546 

34.2547 

34.2550 

34.2551 

34.2552 

34.2553 

24.2554 

34.2555 

34.2556 

34.2557 

34.2560 

34.2561 

34.2562 

34.2563 

34.2564 
643  34,2565 

34,2566 
643  34,2567 

34.2570 

34.2571 


50315  0 
03536  1 
03536  1 
57551  1 
00155  0 
5C315  0 
03552  0 
03552  0 
76371  0 
71244  0 
7C542  0 
03606  1 
77025  0 
30072  1 
00001  0 
77654  0 
72043  0 
70545  1 
03612  I 
03612  1 
77621  1 
C3576  0 
37  574  0 
70165  1 

41566  1 K1GRK2 

45276  0 

00C07  0 

14013  0 

45425  0 

77762  1 

77646  0 

14017  1 

00013  0 

45246  0 

00017  1 

71240  1 

70561  1 

CC015  0 

00013  0 

77745  1 K2e 

00013  0 

76561  1 

53455  0 

03536  1 

53515  n 

C3552  0 

53515  0 

03560  1 


□SO  TLOAO 
MPAC 

POVL  DOT 

RACT3 
RACT3 
TLCAO  DCOMP 
MPAC 

POVL  DOT 

RPASS3 
RPASS3 
TAD  TAD 
ePL  DLGAD 
K1CRK2 
LOOPCT 
DSU  AXT,2 
10PB2e 
ID 

BZE 

ALMXI  TA 
OLCAD  SRI 

OELDV 
STORE  DELOV 
BDSU 

UVPBEV 

STCALL  OBLVCSI 
CSl/Bl 
SORT  PUSH 
DCOMP  DSU 
06  D 

STOOL  lOD 
DSU  STADR 
STORE  12D 
ABS 

STCDL  140 
100 

ABS  DSU 
1 40 

BMN  DLOAD 
K2o 
12D 

STCRF  lOD 
OLCAD 

lOD 

VXSC  VSLl 
VAO  UNIT 
RACT3 

POVL  UNIT 

R PASS’ 
PDVL  UNIT 

VPASS3 


TEMPlif#2 

RA3oRA3 
PP3o  RP3 

TEMPl«*2  + RA3t  RA3+RP3e  RP3=TEMP2 


TEMP3  = TEMP2#«o5 
-TEMP1-TEMP3  =K2  AT  IOC 

-TEMP1+TEMP3  =K1  AT  l?D 


K = K 


1 


V=BA3+KU  UNIT 


B58 


PLllO 


B58  PL140 


PLllD 

PLP0O 


629  PLIOD 


PL080 

PL060 


PL06D 
PLl  2D 


REF 


GAP: 

L 

5807 

5808 

5809 

5810 

5811 

5812 

5813 

5814 

5815 

5816 

5817 

5818 

5819 

5820 

5821 

5822 

5823 

5824 

5 82  5 

5826 

5827 

5828 

5829 

5830 

5831 

5832 

5833 

5834 

5835 

5836 

5837 

5838 

5839 

5840 

5841 

5842 

5843 

5844 

5845 

5846 

5047 

5848 

5849 

5850 

5851 

5852 

5853 

5854 

5855 

5856 
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REF  2 
REF  1 


REF  2 
REF  9 

REF  2 
REF  9 


REF  10 
REF  3 

REF  3 
REF  1 
REF  3 
REF  2 


REF  3 

REF  1 
REF  2 

REF  7 
REF  8 


REF  4 
REF  4 


REF  4 
REF  11 
REF  4 

REF  9 
REF  3 


LAST  637 


LAST  144 
LAST  643 

LAST  643 
LAST  640 


LAST  644 
LAST  644 

LAST  639 

LAST  639 
LAST  644 


LAST  644 


LAST  638 

LAST  643 
LAST  644 


LAST  644 
LAST  644 


LAST  644 
LAST  644 
LAST  644 

last  644 
LAST  644 


34.2572 

34.2573 

34.2574 
34  ,2575 

34.2576 

34.2577 

34.2600 

34.2601 

34.2602 

34.2603 

34.2604 
34  ,2  605 

34. 2606 

34.2607 

34.2610 

34.2611 

34.2612 

34.2613 

34.2614 

34.2615 

34.2616 

34.2617 

34.2620 

34.2621 

34.2622 

34.2623 

34.2624 

34.2625 

34. 2626 

34.2627 

34.2630 

34.2631 

34.2632 

34.2633 

34.2634 

34.2635 

34.2636 

34.2637 

34.2640 

34.2641 

34.2642 

34.2643 

34.2644 

34.2645 

34.2646 

34.2647 

34.2650 

34. 2651 
34  ,2652 
34,2653 


63235  0 
0CCC7  0 
00007  0 
50235  0 
COOCl  0 
77626  0 
53762  1 
72441  0 
75326  1 
00015  0 
41542  1 
71214  0 
03301  0 
70644  0 
OOOOl  0 
65225  1 
03610  0 
03574  1 
60225  I 
03576  0 
C0C47  1 
65265  0 
00003  1 
C3574  1 
03576  0 
43C14  0 
03342  1 
70656  0 
C3343  0 
70656  0 
41345  0 
C0003  1 
03610  0 
71244  0 
70663  0 
30062  0 
77765  0 
03612  1 
03612  1 
43C14  0 
03062  0 
03263  0 
77745  1 
OOOOl  0 
17610  0 
03574  1 
03576  0 
43025  1 
03612  1 
03261  1 


FPSTPAS 


VXV  PDVL 

C60 
06D 

VXV  DOT 

OOD 

STADP 

STCVL  120 
DOT  SLl 

ARCCOS  SIGN 
120 

SRI  PUSH 

BON  DLOAD 

S32olF2 
FR  STPAS 
OOD 

OSU  POOL 

GAMPREV 
DELVCSI 
DSU  NORM 

DVPREV 

XI 

BODV  POOL 
02C 

OELVCSI 
STORE  DVPREV 
BOFF  BOFF 

S32«1F3A 
THROCHK 
S32ol  F3B 
THROCHK 
DLCAC  DMP 
020 

GAMPREV 
BPL  DLCAC 

F IFTYFPS 
IN  ITST 

SIGN 

DELOV 
STORE  DELOV 

SET  CLEAR 

S32<,1F3A 
S32ol  F3B 

OLOAD 

noo 

STOOL  GAMPREV 
DELVCSI 
STORE  DVPREV 

OSU  CLEAR 

DELOV 
S32ol F2 


UVP3  X URP3 


PLl  80 


(UPP3XV I: (UVP3XURP3>=TEMP 


PL12D 

PLOBO 

PLOOO 


BO 

GAMMA=SIGN(TEMP)APCCS(UNITVcURP3  > PL02D 


NOT  THE  FIPST  PASS  OF  A CYCLE 
GAMMA-GAMPREV  B1  PL04D 


B7 


{GAM-GAMPR£V> /(DV-DVPREV)  8-6+Nl  PL06D 
= SLOPE 


GAP  2 

L 

5857 

5858 

5859 

5860 

5861 

5862 

5863 

586A 

5865 

5866 

5867 

5868 

5869 

5870 

5871 

5872 

5873 

587A 

5875 

5876 

5877 

5878 

5879 

5880 

5881 

5882 

5883 

588A 

5885 

5886 

5887 

5688 

5889 

5890 

5891 

5892 

5893 

589^ 

5895 

5896 

5897 

5898 

5899 

5900 

5901 

5902 

5903 

5904 

5905 

5906 
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USER'S  PAGE  NCe 


REF 

REF 

REF 

PEF 


REF 

REF 


REF 

REF 

REF 

REF 


REF 

PEF 

REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 


LAST  644 


LAST 

LAST 


LAST 

LAST 


644 

645 


LAST  645 
LAST  645 
LAST  6A5 


LAST  640 


LAST  645 


LAST 

LAST 

LAST 


2 LAST 

13  LAST 

14  LAST 

15  LAST 

15  LAST 

16  LAST 


6^5 
64  5 
645 


645 

645 

645 

645 

645 

645 


34  ,2654 

29.2655 

34.2656 
34,26  57 

34.2660 

34.2661 

34.2662 

24.2663 

34.2664 

34.2665 

34.2666 
34  ,2667 

34.2670 

34.2671 

34.2672 

24. 2673 
34  ,2674 

34.2675 

34.2676 
34  ,2677 

34.2700 

34.2701 

34.2702 

34. 2703 
34  ,2704 

34.2705 

34.2706 
34,2  707 

24. 2710 

34.2711 

34.2712 

34.2713 

34.2714 

34.2715 

34.2716 
34  ,2717 

34.2720 

34.2721 

34.2722 

34. 2723 

34.2724 

34.2725 

34. 2726 

34.2727 

34.2730 

34.2731 

34.2732 

34.2733 

34.2734 

34.2735 


37574  0 
7C165  1 
43014  0 
03302  0 
7C702  0 
C3303  I 
70702  0 
75345  1 
30102  1 
00005  1 
77765  0 
03610  0 
03612  1 
43276  0 
03574  1 
17574  1 
00001  0 
43014  0 
03063  1 
03062  0 
37610  1 
70176  0 
60345  0 
00005  1 
00050  1 
54065  0 
OOOOl  0 
00047  1 
77657  0 
20601  1 
17612  1 
OGCCl  0 
03610  0 
51545  1 
03612  1 
45206  I 
20C76  C 
71240  1 
70737  0 
50C25  C 
30106  0 
70732  0 
75345  1 
30106  0 
03612  1 
03612  1 
45345  1 
03574  1 
03612  1 
37574  0 


STCALL 

ThRDCHK  BON 


FIFTYFPS  OLDAO 


STORE 

OCOMP 


STOOL 

SET 


STCALL 

NEV.TN  DLCAO 


SR* 

STCOL 

STORE 

DLCAO 

PUSH 

BMN 

DSU 


STORE 

CSISTEP  CLOAO 


OELVCSI 

CSI/Bl 

BON 

S32elF3A 

NEWTN 

S32»1F38 

NEWTN 

SIGN 

FIFPSOP 

04  0 

GAMPREV 
DE  LDV 
DAD 

OELVCS I 
OELVCSI 
000 
SET 

S32clF38 

S32*1F3A 

GAMPREV 

CSI/B2 

NORM 

040 

X2 


0,1 

DELDV 

OOD 

GAMPREV 

ABS 

DELOV 

DSU 

EPSI  LM 
DLOAD 
CS  I/SOL 
BMN 

DELMAXl 

CS  ISTEP 

SIGN 

DELMAXl 

DELOV 

DELDV 

DSU 

OELVCSI 
DELDV 
OELVCS  I 


GAP: 

L 

5907 

5908 

5909 

5910 

5911 

5912 

5913 

5914 

5915 

5916 

5917 

5918 

5919 

5920 

5921 

5922 

5923 

5924 

5925 

5926 

5927 

5928 

5929 

5930 

5931 

5932 

5933 

5934 

5935 

5936 

5937 

5938 

5939 

5940 

5941 

5942 

5943 

5944 

5945 

5946 

5947 

5948 

5949 

5950 

5951 

5952 

5953 

595A 


ASSEMBLE  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DEC*  19,1969  LEMP30S  105  PAGE  646 


P32-P35,  P72-P75 


USER'S  PAGE  NOo  24  E7  S3 


REF  3 LAST 
REF  2 LAST 


REF  4 LAST 


REF  1 

REF  5 LAST 


REF  3 LAST 


REF  2 LAST 

REF  6 LAST 

REF  8 LAST 

REF  11  LAST 

REF  6 LAST 


REF  1 


REF  7 LAST 


REF  12  LAST 

REF  9 LAST 

REF  5 LAST 

REF  2 LAST 

REF  1 

REF  7 LAST 

REF  1 

REF  7 LAST 

\REF  2 LAST 


REF  5 LAST 
REF  8 LAST 


REF  4 LAST 
REF  4 LAST 


REF  8 LAST 

REF  8 LAST 

REF  5 LAST 

REF  1 


34,2737 
639  34,  2740 

34.2741 

34.2742 
639  14,2743 

34.2744 

34. 2745 

641  34,2746 
34 ,274.7 
34, 2750 

642  34,2751 
34,2752 

646  34,2753 

646  34  ,2  754 

34,2755 
642  34,2756 

641  34,2757 

633  34,2760 

34.2761 

34.2762 

34.2763 

34.2764 
646  34,2765 

34.2766 

34.2767 

642  34,2770 

646  34,2771 

633  34,2772 

34,2773 
646  34,2774 

34.2775 

34.2776 
645  34,2777 

34,3000 

645  34,3001 

646  34,3002 
34,3003 

638  34,3004 

641  34,3005 

34,3006 

639  34,3007 

644  34,3010 

34,3011 
646  34,3012 

6<‘6  34,3013 

643  34,3014 
34,3015 


70165  1 

77145  1 CSI/SOL 
03602  0 
00002  0 
77750  0 
02776  C 
50023  0 
30072  1 
70776  0 
71374  1 
C0003  1 
03604  0 
50023  0 
30072  1 
70776  0 
45345  1 
01777  1 
03634  0 
02253  1 
45374  0 

00004  n 
30112  0 
77040  0 
7C776  0 

00005  1 
45345  1 
C3636  1 
01777  1 
02255  1 
51025  1 
30112  0 
72157  1 

43014  0 SCNOSOL 

03302  0 

72045  0 

03343  0 

72045  0 

71334  0 

03613  0 

32425  0 

43014  0 

C3260  0 

03061  0 

43014  0 

03262  1 

03263  0 
37  606  0 
70125  0 


CSI/Bl 
DLCAO  A)(T,2 

POSTCSI 

2 

LXA,1 

P TXl 

OSU*  BMN 

PM  NE  -2  ,T 
SC  NO  SOL 
AXT,2  DLCAC 

3 

POSTCDH 
DSU*  BMN 

PMINE  -2,1 
SCNDSOL 
OLOAD  DSU 
TCOH 
TCS  I 

STORE  T1TCT2 
AXT,2  DSU 

4 

TMIN 

BMN  AXT,2 

SCNOSCL 

OLCAD  DSU 
TTPI 
TCDH 

STORE  T2T0T3 
DSU  0PL 
TM  IN 
P32/P72C 
BON  BOFF 

S32ol F3A 
ALMXI  T 
S32olF3B 
ALMXIT 
SXA,2  OLOAD 

CS  lALRM 
P30ZERC 
CLEAR  SET 

S32clF> 
S32.1F2 
CLEAR  CLEAR 

S32«l  F3A 
S32*IF3B 
STCALL  LOOPCT 
CSI/B 


gap: 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211)2-091 


17:53  DEC.  )9,1969  LEMP^OS  c 105  PAGE  6A7 


L P32-P35,  P72-P75 


USER'S  PAGE  NCo  25  £7  S3 


P6000  oeooo  ADVANCE  , 
R6050  SUBROUTINES  USED 


R6051  PRECSET 

R6052  ROTATE 


6100 

6101  REF 

6102  REP 

6103  REF 
610A  REF 

6105 

61055  REF 

6106  REF 

6107  REF 

6108  REF 

6109  REF 

6110  REF 

6111  REF 

6112 

6113  REF 
611A 

6115  REF 

6116  REF 

6117  REF 

6118  REF 

6119  REF 

6120  REF 

6121  REF 

6122  REF 

6123  REF 

6124  REF 

6125  REF 

6126  REF 


9 LAST  637 
13  LAST  632 
2?  LAST  627 
2 LAST  62  7 

2 LAST  619 
2 LAST  643 

4 LAST  642 

5 LAST  641 

5 LAST  643 
4 LAST  642 

4 LAST  642 

6 LAST  647 

5 LAST  6^2 

7 LAST  643 

5 LAST  622 
1 

7 LAST  642 
10  LAST  641 

6 LAST  642 
4 LAST  622 
2 LAST  647 
2 LAST  641 
4 LAST  639 

m LAST  647 


34.3016 

34.3017 

34.3020 

34.3021 
34  ,3022 

34.3023 

34.3024 

34.3025 

34.3026 

34.3027 

34.3030 

34.3031 

34.3032 

34.3033 

34.3034 

34.3035 

34. 3036 
34  ,3037 

34.3040 

34.3041 
34,3  042 

34.3043 

34.3044 

34.3045 

34.3046 
34  ,3047 

34.3050 

34.3051 


03442  0 
24041  0 
46403  1 
77214  0 
01067  1 
C3560  1 
C3530  1 
27506  1 
03552  0 
03522  1 
03500  1 
47256  0 
03506  I 
77656  1 
26261  0 
03536  1 
37642  0 
71052  0 
02311  0 
26303  0 
03544  1 
37650  0 
71C52  0 
03514  1 
37472  I 
03470  1 


ADVANCE 


STQ  DLCAD 

SUBEXIT 

TIG 

STCALL  TOECl 

PRECSET 
SET  VLCAD 

XDELVFLG 
VPASS3 
STCRE  VPASS2 
STOVL  VPASSl 
RPASS3 
STORE  RPASS2 
STORE  RPASSl 
UNIT  VXV 

VPASSl 

UNIT 

STCVL  UPl 

RACT3 

STCALL  RTIG 

ROTATE 
STORF  RACT2 
STCVL  RACTl 
VACT3 

STCALL  VTIG 

ROTATE 
STORE  VACT2 
STCALL  VACTl 

SUBEXIT 


gap: 

L 

P62P0 

6300 

6301 

6302 

6303 

6304 

6305 

6306 

6307 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-091 


17:53  DEC  19,1969  LEMP30S  rl05  PAGE  648 


P'2-P35,  Pia-PTS 


USER 'S  PAGE  NOo  26  E7  S3 


REF  6 LAST  647 
REF  7 LAST  648 


34.3052 

34.3053 

34.3054 

34.3055 

34. 3056 
34,30  57 

34.3060 

34.3061 


41406  0 
74241  0 
02261  0 
02261  0 
51352  1 
63256 
74246 
43572 


ROTATE 


0 

1 

0 


PUSH  PUSH 
DOT  VXSC 
UPl 
UPl 

VSL2  BVSU 
UNIT  PDVL 
ABVAL  VXSC 
VSLl  RVO 


gap:  ASSEf'Bie  REVISION  131  OF  AGC  PPCCRAM  LUMINARY  fiY  NASA  2021112-091 


P7000 

7100 

7101 

7102 

7103 
710^ 

7105 

7106 

7107 

7108 

7109 

7110 

7111 

7112 

7113 


P32-P35,  P72-P75 


LAST 

LAST 


3A,30e2  65325  0 INTINT2C  POOL  POOL 


LAST  642 


LAST  6^2 


LAST  646 


LAST  649 


34. 3063 

34.3064 

34.3065 

34.3066 

34.3067 

34.3070 

34.3071 

34.3072 

34. 3073 

34.3074 

34.3075 

34.3076 
34  ,3077 


03634 
01777  1 
41525  0 
33641  1 
77650  1 
73376  1 
’65325  0 
C1777  1 
03636  1 
41525  0 
32425  0 
77650  1 
73376  1 


INTINT3P  POOL 


TCSI 
TCOH 
PUSH 
TWOPI 

INTI  NT 

POOL 

TCOH 

TTPI 

PUSH 

P30ZERQ 

INTINT 


17:53  DECo  19,1969  LFMPBOS  t 105  PAGE  6^9 


USER'S  PAGE  NOo  27  E7  S3 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L P32-P35,  912-915 

P7400  532/33,1 

R7^50  SUBROUTINES  USED 


REF  11  LAST  647 


75002 

75003 

75004 

7501 

7502 

7503 

7504 

7505 
75051 

7506 

7507 

7508 

7509 

7510 


REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


628 

635 

635 

622 

622 

650 


34.3100 

34.3101 
34  ,3102 

34.3103 

34.3104 

34.3105 

34. 3106 

34.3107 

34.3110 

24.3111 
34  ,3112 

34.3113 

34.3114 

34.3115 

34.3116 

34.3117 


76020  1 
03470  1 
01521  0 
77624  1 
72375  0 
77624  1 
71120  1 
61375  1 
03434  1 
COCCI  0 
77772  0 
03656  1 
51406  1 
27  664  0 
77650  1 
03470  1 


S32/33ol  STO 


VSLl 

STORE 

PUSH 

STOVL 

GOTO 


AXT  , I 
SUBEXIT 
068! 

DI  SDVLVC 

S32/33,  X 
VXM 

DELVLVC 

00 

OELVSIN 

ABVAL 

DELVSAB 


17:53  DECo  19,1969  LEMP30S  105 


PAGE  650 


USER'S  PAGE  NCo  28  E7  S3 


GAP ; 

L 

P7800 

7900 

7901 

7902 

7903 

7904 

7905 

7906 

7907 

7908 

7909 

7910 


ASSEMBLE  REVISION  131  CF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021112-091 


17:53  OECo  19,1969  LEMP30S.105  PAGE  651 


P32-P35,  P72-P75  USER'S  PAGE  MD*.  29  E7  S3 

coeoo  S32/33oX  0,0,0 


REF  0 LAST 
REF  11  LAST 

REF  9 LAST 


648 


647 


651 


34,3120  77201  1 S32/33oX  SETPD 


34.3121  00007  0 

34.3122  02261  0 

34.3123  63276  I VCOMP 

34.3124  02303  0 

34.3125  57456  1 UNIT 

34.3126  ■ 47206  0 PUSH 

34.3127  02261  0 

34.3130  77772  0 VSLl 

34.3131  CCCCl  0 STORE 

34.3132  77616  0 RVQ 


VLCAD 

6D 

UPl 

POVL 

RACTl 

VCOMP 

VXV 

UPl 

OD 


gap: 

L 

P0OOO 

R8050 

R8051 

R8052 

R8053 

8100 

8101 

8102 

8103 

8104 

8105 

8106 

8107 

8108 

8109 

8110 

8111 

8112 

8113 

8114 

8115 

8116 

8117 

8118 

8119 

8120 

8121 

8122 

8123 

8124 

8125 

8126 

8127 

8128 

8129 

8130 

8131 

8132 

8133 

8134 

8135 

6136 

8137 

8138 

8139 

8140 

8141 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19,196Q  LEMP30S  -105  PAGE  652 


P32-P35r  P72-P75  USER'S  PAGE  NCe  30  E7  S3 

•eooo  CDMMVR  »oo»o 
SUBROUTINES  USED 


VECShIFT 

TIMETHET 

ShlFTRJ 


REF  13  LAST 

REF  e LAST 

REF  1 

REF  5 LAST 

REF  2 LAST 


REF  3 LAST 


REF  5 LAST 


REF  6 LAST 


REF  10  LAST 


REF  5 LAST 
REF  7 LAST 


REF  5 LAST 

REF  3 LAST 

REF  6 LAST 


REF  5 LAST 

REF  5 LAST 

REF  4 LAST 


REF  2 LAST 


REF  3 LAST 


REF  9 LAST 


34,3133 

650  34,3134 

647  34,3135 

34  ,3  136 
34,3137 
647  34,3140 

34,3141 
652  34,3142 

34,3143 
498  34,3144 

34,3145 
592  34,3146 

34,3147 

34.3150 

34.3151 

34.3152 
652  34,3153 

34,3154 

651  34,3155 
34,3156 

641  34,3157 

652  34,3160 
34,3161 

647  34,3162 

641  34,3163 

641  34,3164 

34,3165 
641  34,3166 

641  34,3167 

641  34,3170 

34,3171 
622  24,3172 

3'4,3173 

34.3174 

34.3175 
652  34,3176 

34,3177 

34.3200 

34.3201 
652  34,3202 

34.3203 

34.3204 


77220  1 
03470  1 
02311  0 
53406  0 
27544  1 
03522  1 
50256  0 
C3544  1 
72406  0 
16732  n 
65316  0 
06514  1 
45202  I 
72566  1 
57515  1 
77635  1 
03522  1 
65241  0 
02261  0 
A5565  0 
51047  0 
03522  1 
45115  0 
03530  1 
46441  1 
26744  I 
77614  1 
03666  1 
36655  1 
24732  1 
53754  1 
C2777  1 
57576  1 
C0023  0 
76441  1 
03544  I 
51515  1 
63257  1 
57576  1 
C23U  0 
65246  1 
77625  0 


CCHMVR 


STQ  VLOAD 

SUBEXIT 

RACT2 

PUSH  UNIT 
STOVL  UNVEC 
PPASS2 
UNIT  DOT 

UNVEC 

PUSH  SLl 
STCOL  CSTH 
DSO  POOL 

DP1/4TH 
SR2  DSU 
SORT  SLl 
PCVL  VCOMP 
VXV 

RPASS2 
DOT  POOL 
UPl 

SIGN  STADR 
STCVL  SNTH 

RPASS2 
POVL  CALL 

VPASS2 
VECSHIFT 
STCVL  VVEC 
CLEAR 

RVSW 
STCALL  RVEC 

TIMETHET 
LXA,2  VSL* 

RTX2 

0,2 

STCRE  18C 
DOT  SLIR 
UNVEC 
PDVL  ABVAL 
SL*  POVL 
0,2 
RACT2 

ABVAL  POOL 
DSU 


UR  SUB  A 


OD  = V SUB  PV 


2D  = LENGTH  OF  P SUB  A 


GAP : 

L 

eiA2 

81A3 

81 A4 

8145 

8146 

8147 

8148 

8149 

8150 

8151 

8152 

8153 

8154 

8155 

8156 

8157 

0158 

8159 

8160 

8161 

8162 

8163 

8164 

8165 

8166 

8167 

8168 

8169 

8170 

8171 

8172 

8173 

8174 

8175 

8176 

0177 

8178 

8179 

8180 

8181 

8182 

8163 

8184 

8185 

8186 

8187 

8188 

6189 

6190 

8191 


17:53  0EC«  19,1969  LEMP30S  .105  PAGE  653 


ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021312-091 


P32-P35,  P72-P75 


USER'S  PAGE  NCo  31  E7  S3 


REF  4 LAST  318 

REF  2 LAST  126 

REF  10  LAST  644 

REF  3 LAST  640 

REF  7 LAST  642 

REF  5 LAST  653 


REF  11  LAST  653 
REF  2 LAST  638 


REF  7 LAST  645 
REF  3 LAST  653 


REF  11  LAST  652 
REF  4 LAST  652 


REF  5 LAST  653 

REF  7 last  647 

REF  3 LAST  647 


34.3205 

24.3206 

34.3207 

34.3210 

34.3211 

34.3212 

34.3213 

34.3214 

34.3215 

34.3216 

34.3217 

34.3220 

34.3221 

34.3222 

34.3223 

34.3224 

34.3225 

34.3226 

34.3227 
34  ,3230 

34.3231 

34.3232 

34.3233 

34. 3234 

34.3235 

34.3236 

34.3237 

34.3240 

24. 3241 

34.3242 

34.3243 

34.3244 
34  ,3245 

34.3246 

34.3247 
34,3250 
34,  3251 

34.3252 

34.3253 

34. 3254 

34.3255 

34.3256 

34.3257 

34.3260 

34.3261 

34.3262 

34.3263 

34.3264 

34.3265 

34.3266 


00003  1 
1760C  1 
02742  I 
65301  0 
00047  1 
00041  1 
77624  1 
46451  0 
56362  0 
41457  1 
20174  1 
65225  1 
03600  1 
56302  0 
00005  1 
75406  1 
41275  1 
00007  0 
OOOOl  0 
65272  0 
00003  1 
65301  0 
00C47  1 
02321  0 
56342  1 
65257  1 
20174  1 
00005  1 
653C1  0 
00050  1 
02321  0 
56342  1 
44257  1 
57604  1 
63525  0 
00011  1 
75421  1 
47315  0 
022  61  0 
03544  1 
74256  0 
00C13  0 
74315  0 
03544  1 
COCll  1 
76455  I 
77626  0 
74233  C 
77651  0 
03514  1 


020 

STOOL  DIFFALT 
RIA 

NORM  POOL 
XI 
R1 

CALL 

SHIFTRl 
SRIR  DDV 
SL#  PUSH 

0 -5,1 
CSU  POOL 

DIFFALT 
SR  2 ODV 
04D 

PUSH  SORT 
OMPR  DMP 
06  0 
OOD 

SL3R  POOL 
02D 

NORM  POOL 
XI 

RTMU 

SRI  DDV 

SL#  POOL 

0 -5,1 
04D 

NORM  POOL 

X2 

RTMU 

SRI  DDV 

SLY  BDSU 

0 -6  ,2 

POOL  OSO 

08D 

BDSU  SORT 

PDVL  VXV 

UPl 
UNVEC 

UNIT  VXSC 

lOD 

PDVL  VXSC 

UNVEC 
08D 

VAO  VSLl 

STADR 

STORE  VACT3 

VSU 

VACT2 


DELTA  H IN  MET  EPS  0 + 29 

2 - R VYY/MU  040 


A SUB  A 


B+29  040 


A SUB  P 

A SUB  P/A  SUB  A 


B+31 
B + 2 
060 


V SUB  AV  METERS/rS  R + 7 08D 

R SUB  A MAGNITUDE  B+29 


2MU  B+38 

2 MU/R  SUPAA  B+14  lOD 

ASUBA  B+29 


2U/R  - U/A  P + 16  (METERS/CSISO 

100 

S0RT(MUI2/R  SUB  A-1 /A  SUB  A ) -VSU B A2 ) 10 D 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


17: 53  OECo  19,1 96' 


LFMP30S  - 1^5  PAGE  654 


L P32-P35,  P72-P75  USER'S  PAGE  NCo  32  E7  S3 

8199  REF  6 LAST  633  34,3267  36275  1 STCALL  0ELVEET2  DELTA  VCOH  - REFERENCE  COORDINATES 

8200  REF  14  LAST  652  34,3270  C347C  1 SUBEXIT 


GAP:  ASSEMBLE  REVISION  l3l  CF  AGC  PRCCRAP  LUMINARY  BY  NASA  3021112-091 


17:53  neCo  19,1960  LEMP3CS  r,lP5  PAGE  655 


L P22-P35,  P72-P75 


USER’S  PAGE  NOe  ?3  E7  S3 


P6201  ooaoo  CCVPTGO 


R8202  SLBRQITINES  LSEO 

R8203  CLOKTASK 

R820A  2PHSCFNG 


8205 

8206  REF 

8207 


LAST  626 


35,2437 
35,2000 
35  ,2437 


BANK  35 
SETLOC  CSI/CDH 
BANK 


8208  REF 


£7,1 ^65 


EBANK=  RTRN 


8209  REF 


COUNT*  $$/P3575 


8210 

8211  REF  2 

8212  REF  125 

8213  REF  2 

8214  REF  35 

8215 

8216  REF  29 

8217  REF  2 

8218  REF  2 

8218 

8219  REF  3 

6220 

8221 

8222 

8223  REF  3 


LAST  655 
LAST  611 
LAST  150 
LAST  609 

LAST  609 
LAST  243 
LAST  2^4 

LAST  506 


LAST  655 


35,2437 
35, 24A0 

35.2441 

35.2442 

35. 2443 
35  ,2444 
35  ,2445 
E7,1455 
35  ,2446 
35,2447 

35.2450 

35.2451 

35.2452 
35  ,2453 
35,2454 


0 0006  I 
22'465  1 
3 4755  1 
55'162  1 
2 4752  0 
C 0004  0 
C 5203  0 

02723  0 
74C67  0 
0 5327  1 
40036  n 
C5C24  1 
13000  0 
0 1465  I 


CCMPTGC 


EXTEND 
QXCH  RTRN 

CAF  ZERO 

TS  DISPCEX 

CAF  PIT2 

INHINT 

TC  WAITLIST 

EBANK=  WHICH 

2CA0R  CLOKTASK 

TC  2PHSCHNG 

OCT  40036 

OCT  05024 

OCT  13000 

TC  RTRN 


***  END  CF  LEPF30S  ©105  *** 
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L GROUND  TRACKING  DETERMINATION  PROGRAM  - P2]  USER'S  PAGE  NOc 

POOOl  GRCUNC  TRACKING  DETERMINATION  PROGRAM  P21 

R0002  PROGRAM  OESCRIPTICN 

R0003  MOD  NO  - 1 

ROOO-V  MCC  BY  - NoMoNEVULE  . 

ROODS  FUNCTIONAL  OECRIPTICN- 
R0006 

R0007  TC  PROVIDE  THE  ASTRONAUT  DETAILS  OF  THE  LM  OR  CSM  GROUND  TRACK  WITHOUT 
ROOne  THE  NEED  FOR  GROUND  COMMUN I C AT  I CN  (REQUESTED  BY  DSKYU 
R0009  CALLING  SEQUENCE  - 
ROOlO 

ROOll  ASTRONAUT  REQUEST  THROUGH  DSKV  V37E21E 
R0012  SUBROUTINES  CALLEC- 
R0013 
ROOIA 
R0015 
R0016 
R0017 
R0018 
R0019 
R0020 
R0021 
R0022 
R0023 
R0024 
R0025 
R0026 
R0027 
R0028 
R0C29 
R003D 
R0031 
R0032 
R0033 
R003<^ 

R0035 
RU036 
R0037 
R0038 
R0039 

ROOAO  AZO  20EC  o775320616A  REVCLUTIONS 

ROOAl  FOR  UUNAR  ORBITS  50ALM  VECTOR  IS  NEEDED 
R0042 

R00A3  50ALM  2DEC  -267C03A0600  E-5  RADIANS 

ROOAA 

R0045  5CALM  _2  2DEC  -7e  51  i»l  2 8400  E-4  RADIANS 

R0046 

R0047  504LM  _4  2CeC  _2  <,5  5 319  86A 1 E-A  RADIANS 

R004e 

R0049  NONE 
R0050  DEBRIS 


GOPER  F4 
GCFLASH 
THI SPREC 
CTHPREC 
LAT-LCNG 

NORMAL  EXI T MODES- 

ASTRONAUT  REQUEST  TROUGH  OSKY  TC  TERMINATE  PROGRAM  VSAE 
ALARM  OR  ABORT  EXIT  MOOES- 


NONE 

OUTPUT  - 


OCTAL  DISPLAY  CF  OPTION  CCDE  AND  VEHICLE  WHOSE  GROUND  TRACK  IS  TO  BE 
CCMPUTEC 

CPTICN  CCDE  00002 
This  00001 

OTHER  00002 

DECIMAL  DISPLAY  OF  TIME  TO  BE  INTEGRATED  TC  HOURS  » MINUTES  » SECONDS 
DECIMAL  DISPLAY  OF  LAT, LONG, ALT 
ERASABLE  I MT  I A L I Z AT  I CN  RECUIPEC 

AXO  2CEC  A,d52^59653  E-5  RADIANS  *68-69  CONSTANTS" 

-AYO  2DEC  2o 1A7535898  E-5  RADIANS 


1 EO  S3 
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R0051 

R0052  CENTRALS-A,C»L 

R0053  OTHER-THOSE  USED  BY  THE  ABCVE  LISTED  SUBROUTINES 
R0054  SEE  LEMPREC*LAT-LUNG 

0055  REF  8 LAST  496  30i2000  SBANK=  L0WSUP6R 


0056 

0057  REF  8 
0056 


LAST 


610 


33,2200 
24,2000 
24  ,3506 


BANK  33 
SETLOC  P2CS 
BANK 


0059  REF 

0060  REF 

0061  REF 

0062  REF 

0063  REF 

0064  REF 

0065  REF 

0066  REF 

0067 

0068 

00662  REF 
00684  REF 
00686  REF 

0069  REF 

0070  REF 

0071  REF 

0072  REF 

0073 

0074 

0075  REF 

0076 

0077  REF 
00775  REF 

0078  REF 

0079  REF 

0080 

0081  REF 

0082  REF 

0083  REF 

0084 

0085  REF 

0086 
0087 

0068  REF 

0089 

0090  REF 

0091  REF 

0092 

0093  REF 

0094 


4 LAST 
1 

90  LAST 
3 LAST 
36  LAST 
166  LAST 
2 LAST 
9 LAST 


126  LAST 

23  LAST 

24  LAST 
1 

169  LAST 
11  LAST 
10  LAST 


72  LAST 

25  LAST 
1 

24  LAST 
18  LAST 

1 

I 

17  LAST 
4 LAST 


18  LAST 

12  LAST 
6 LAST 

9 LAST 


241  E7,1762 

617  24  ,3506 
497  24,  3507 
655  24,3510 

632  24,3511 

497  24,3512 

632  2^,3513 

24.3514 

24.3515 
655  24,3516 

577  24,3517 

657  24,3520 

24,3521 
657  24,3522 

632  24,3523 

657  24,3524 

24.3525 

24.3526 
635  24,3527 

24,3530 
657  24,3531 

24,3532 
647  24,3533 

614  24,3534 

24.3535 

24.3536 

24.3537 
589  24,3540 

24,3541 
657  24,3542 

24.3543 

24.3544 
657  24,3545 

24,3546 
589  24,3547 

589  24,3550 
24,3551 

590  24,3552 
24,3553 


3 4753  1 
55'144  0 
3 4752  0 
0 4616  1 
20634  1 
C 6001  0 
C 3516  C 
C 3510  0 
3 4755  I 
55*044  1 
55*045  0 
3 3675  0 
0 4616  1 
20477  1 
C 6CCI  0 
0 3527  1 
0 3521  1 
C 6C42  1 
53145  1 
01045  1 
51667  1 
34041  0 
27410  1 
43014  0 
00304  0 
51555  0 
01674  0 
70535  0 
C1145  0 
43030  0 
51546  1 
01474  1 
43014  0 
C1676  1 
01673  I 
77624  1 
27133  0 
77650  1 


EPANK= 

COUNT* 

CAF 


P2) TIME 
f $/P21 
ONE 

0PTI0N2 

BIT2 

BANKCALL 

G0PERF4 

GOTOPOOH 


P21PR0G1  CAF 


P21PR0G2  STCALL 
BON 


SLCAD 
BE  IZ 


CALL 

GOTO 


2ERC 
OSPTFMl 
DSPTEMl  + 
V6N34 
BANKCALL 
GOFLASH 
GDTCPOCH 
+ 2 
-5 

I NTPRET 
6ZE 

DSPTEMl 

P21PRTM 

TDECl 

INTSTALL 

CLEAR 

P2]  FLAG 

P21CGNT 

VINTFLAG 

SRI 

0PTICN2 

SET 

+2 

VINTFLAG 
CLEAR 
UI  MOFLAG 
INTYPFLG 

I NTEGRV 
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USER’S  PAGE  NOe  2 EO  S3 


FOP  LOW  2CA0F*Se 


ASSUMED  VEHICLE  IS  LM  , R2  = OOOOl 
OPTION  2 


TERMINATE 

PROCEED  VALUE  OF  ASSUMED  VEHICLE  OK 
R2  LOADED  THROUGH  CSKY 
INITIAL  TIME  = PRESENT  TIME 


LOAD  DESIRED  TIME  OF  LAT-LONGc 


TERM 

PROCEED  VALUES  CK 
TIME  LOADED  THROUGH  OSKY 


INTEG  TO  TIME  SPECIFIED  IN  TDECl 


ON RECYCLE  USING  BASE  VECTOR 

OFF--IST  PASS  CALL  BASE  VECTOR 


ZERO — THIS  VEHICIEILMI 
CNE--CTHER  VEHICLEICMI 


PRECISION 

CALCULATE 

-AND 
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0095  REF 

0096 

0097  REF 

0098  REF 

0099  REF 

0100  REF 

0101  REF 

0102  REF 

0103 

0104  REF 

0105  REF 

0106 

0107  REF 

0108 

0109 

0110  REF 

0111 

0112  REF 

0113 

0114  REF 

0115  REF 

0116  REF 

0117  REF 

0118  REF 

0119  REF 

01191 

01192 

01193  REF 

01194  REF 

01195 

01196  REF 

01197 

01198  REF 

01199  REF 

0120 

0121  REF 

0122  REF 

0123 

0124 

0125 

0126 

0127 

0128  REF 

0129  REF 

0130 

0131  REF 

0132 

0133  REF 

0134  REF 

0135 


1 

2 LAST  150 
5 LAST  499 
2 LAST  150 

4 LAST  323 

5 LAST  657 
5 LAST  499 

13  LAST  657 
1 

1 


2 LAST  658 


7 LAST  594 

6 LAST  658 
4 LAST  498 
3 LAST  658 

7 LAST  498 
3 LAST  658 


3 LAST  319 
11  LAST  622 

9 LAST  642 

4 LAST  658 
3 LAST  319 


2 LAST  658 
5 LAST  657 


13  LAST  614 
1 

2 LAST  657 
1 

8 LAST  653 


24.3555 

24.3556 

24.3557 
24  ,3560 

24.3561 

24.3562 

24.3563 

24.3564 

24.3565 

24.3566 

24.3567 

24.3570 

24.3571 

24.3572 

24.3573 

24.3574 

24.3575 

24.3576 

24.3577 

24.3600 

24.3601 

24.3602 

24.3603 

24.3604 
24  ,3605 

24.3606 

24.3607 

24 .3610 

24.3611 

24.3612 

24.3613 

24.3614 

24.3615 
24  ,3616 

.24,3617 
24  ,3620 

24.3621 

24.3622 

24.3623 

24.3624 
2<*,3625 

24.3626 

24.3627 

24.3630 

24.3631 

24.3632 

24.3633 

24.3634 
24  ,3635 


03676  0 
25535  0 
03704  1 
15543  1 
03763  0 
01517  0 
43014  0 
01676  1 
00263  C 
53135  0 
01163  1 
51574  C 
77614  1 
00063  I 
77624  1 
27106  0 
77745  1 
00015  0 
27763  0 
C0C17  I 
27676  0 
00025  0 
03704  1 
53646  0 
57576  1 
27712  0 
00001  0 
5C256  C 
00007  0 
67471  1 
03712  0 
03714  0 
67334  1 
01162  0 
01145  0 
46142  I 
51625  1 
77650  1 
51630  0 
77614  I 
04307  I 
51632  1 
77614  1 
C0C64  0 
67214  1 
01663  0 
C0050  1 
43054  1 


P21C0NT  VLOAO 

STOVL 

STODL 

STCRE 

CLEAR 

SLOAO 

SET 

♦3  CALL 

P21VSAVE  CLGAC 

STOVL 

STOVL 

STORE 

ABVAL 

STOVL 

UNIT 

DDV 

STORE 

SXA,2 


SRI 

GOTO 

+ 3 BON 

+4  SET 

P210SP  CLEAR 

BZE 


P21VSAVE 

P21BASEP 

RCV 

P21BASEV 

VCV 

P21TIME 

TET 

CLEAR 

OIMOFLAG 

MOCNFLAG 

6ZF 

P210RIG 

+3 

MOCNFLAG 

INTEGRVS 

TAT 

P21TIME 

RATTI 

P216ASEP 

VATTl 

P21BASEV 

SL* 

0,2 

P21VEL 

PATT 

DOT 

VATT 

AS  IN 

P21VEL 

P21GAM 

SLCAO 

P210R1G 

OPTION2 

BHI  Z 

+ 3 

+ 4 

SURFFLAG 

P210SP 

P21 FLAG 

SLOAO 

LUNAFLAG 

X2 

SET 
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-SAVE  BASE  VECTOR 

RECYCLE — INTEG  FROM  BASE  VECTOR 
— PCS 

“VEL 

— TIME 


ZERC=EARTH 
2=M00N 


SAVE  CURRENT  BASEVECTOR 
—TIME 

— PCS  B-29  OR  B-27 
— VEL  B-07  OR  B-05 

VEL/  FOR  N91  OISP 

U(R)o  V 
U(RI„U(V) 

STN-1  U(R>oU(V)  , -90  TC  C90 
0=eARTH 


GENERATE  D1 SPLAY  DATA 


GAP;  ASSE^-BLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2C‘21112-C91 
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0136 

0137  REF 

0138 

0139  REF 

0190  REF 

0191  REF 

0192 

0193  REF 
0199  REF 

01992 

01993  REF 
01995  REF 

0195 

0196  REF 

0197  REF 

0198  REF 

0199  PEF 

0150  REF 

0151  REF 

0152 

0153  REF 
0159  REF 

0155  REF 

0156 

0157  REF 
01572 

01579  REF 
01576  REF 

0158 

0158 

0159 

0160 
01602 
01602 


2 LAST 

12  LAST 
2 LAST 
8 LAST 


1 

1 

2 LAST 
1 

170  LAST 
12  LAST 

11  LAST 

12  LAST 
73  LAST 

7 LAST 
1 

26  LAST 
1 

13  LAST 
1 


29,3636 
658  29,3637 

29,3690 
o58  29,3691 

115  29,3692 

658  29,3693 
29,3699 
29., 3695 
29,3696 
29  ,3697 
29,3650 

319  29,3651 

29 ,36  52 
29,3653 
657  29,3659 

657  29,3655 

657  29,3656 

659  29,3657 

657  29,3660 
29,3661 

658  29,3662 
29,3663 

657  29,3669 

29.3665 

29.3666 
29  ,3667 

599  29,3670 

29.3671 

29.3672 

29. 3673 
29,3679 

29.3675 

29.3676 

29.3677 


51690  1 
01963  1 

77775  1 
00001  0 
16032  1 
00015  0 
95019  0 
00662  0 
26397  0 
77605  I 
11677  1 
03716  1 

77776  1 
3 3679  1 
0 9616  1 

20977  1 
C 6001  0 
C 6001  0 
0 6092  1 
93395  1 
03763  0 
11673  0 
01095  1 
77639  0 
51521  0 
52039  1 
21579  1 
51533  C 
00003  1 
25190  0 
01953  1 
01992  1 
00293  1 
32703  1 


P21PRTM 


600SEC 

V06N93 

V6N39 

KoOl 


VLCAD 

STOOL 

CLEAR 


DMP 

STORE 
EX  IT 
CAF 
TC 

CACR 

TC 

TC 

TC 

DLOAD 


STORE 

RTe 

RTB 


2DEC 

VN 

VN 

20EC 


+ 2 

LUNAFLAG 

RATT 

ALPHAV 

TAT 

CALL 

ERADFLAG 

LAT-LCNG 


KoOl 

P21ALT 

V06N93 

BANKCALL 

GOFLASh 

GCTOPQOH 

GOTOPOOH 

INTPRET 

DAO 

P21TIM6 

6oosec 

DSPTEMl 

P21PR0G1 

GOTO 

LOAOTIME 

P21PROG2 

60000 

006^3 

00639 

oOl 
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USER  'S  PAGE  NOo  9 £7  S3 

0=FARTH 


MPAC  = ALT, METERS  B-29 

ALT/100  FCR  N91  DISP 

DISPLAY  LAT, LONG, ALT 
LATtLONG  = 1/2  REVS  BO 
ALT  = KM  619 
TERM 

V32E  RECYCLF 


600  SECONDS  OR  10  MIN 


MIN 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17: 53  DEC  19,1969 


ISSING  c055  PAGE  660 


L P5A-P35,  P7VP75 

POOlO  TRANSFER  PHASE  INITIAt'iCN  (TFI)  PROGRAMS  (P3A  AND  P74) 


ROOll  MOO  NO  -1  LOG  SECTION  - P32-P35,  P72-P75 

R0012  MOD  BY  WHITEoP  DATE  IJUNE67 


R0C13  PLPPCSE 

ROOl^  (1)  TO  CALCULATE  THE  RECLIREO  DELTA  V AND  OTHER  INITIAL  CONDITIONS 

R0015  REQUIRED  BY  THE  ACTIVE  VEHICLE  FOR  EXECUTION  OF  THE  TRANSFER 

R0016  PHASE  INITIATION  (TFI)  MANEUVER,  GIVEN  - 


R0017  (A)  TIME  OF  IGNITION  TIG  (TPII  OR  THE  ELEVATION  ANGLE  (E)  OF 

R0018  THE  ACT  Ive/PASS  IVE  VEHICLE  LOS  AT  TIG  (TPII, 


R0019 

R0020 


(B1  CENTRAL  ANGLE  OF  TRANSFER  (CENTANG)  FROM  TIG  (TPI)  TO 
INTERCEPT  TIME  (TIG  (TPF)), 


R0021 


TO  CALCULATE  TIG  (TFI)  GIVEN  E OR  E GIVEN  TIG  (TPI), 


R0022  (3)  TO  CALCULATE  THESE  PARAMETERS  BASED  UPON  MANEUVER  DATA 

R0023  APPROVEC  ANC  KEYED  INTO  THE  DSKY  BY  THE  ASTRONAUT# 


R0024 

R0025 

R0026 


TO  DISPLAY  TO  THF  ASTRCNALT  ANC  THE  GROUND  CERTAIN  CEPENCENT 
VARIABLES  ASSOCIATED  hITH  THE  MANEUVER  FOR  APPROVAL  BY  THE 
ASTRCNALT/GRCUNO* 


R0027  (5)  TO  STORE  THE  TPI  TARGET  PARAMETERS  FOR  USE  BY  THE  DESIRED 

R0028  THRUSTING  PROGRAM# 


R0029  ASSUMPTIONS 


R003n  (1)  LM  ONLY  - THIS  PROGRAM  IS  BASED  UPON  PREVIOUS  COMPLETION  OF 

R003L  THE  CONSTANT  DELTA  ALTITUDE  (CCH)  PROGRAM  (P33/P73)o 

R0032  THEREFORE  - 


USER'S  PAGE  NOr  1 E(  S3 


R0033 

R003A 

R0U35 

R0036 


(A)  AT  A SELECTED  TPI  TIME  (NOW  IN  STORAGE)  THE  LINE  OF  SIGHT 
BETWEE^N  THE  ACTIVE  AND  PASSIVE  VEHICLES  WAS  SELECTED  TO  BE 
A PRESCRIBED  ANGLE  (El  (NOW  IN  STORAGE)  FROM  THE 
HQRI2CNTAL  PLANE  CEFINEO  BY  THE  ACTIVE  VEHICLE  POSITION# 


k0037  (B)  THE  TIME  BETWEEN  CDH  IGMTICN  ANC  TPI  IGNITION  WAS 

R003e  COMPUTED  TO  BE  GREATER  THAN  10  MINUTES# 


R0039 

ROO^O 

ROOAl 

R00^2 


(C)  THE  VARIATION  CF  THE  ALTITUDE  DIFFERENCE  BETWEEN  THE 
ORBITS  WAS  MINIMIZED# 

(D)  THE  PEFICENTER  ALTITUC6S  OF  ORBITS  FOLLOWING  CSI  AND 
COH  WERE  COMPUTED  TC  BE  GREATER  THAN  35,000  FT  FCR  LUNAR 
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L P3A-P35, 

P7A-P75  USER'S  PAGE  NCr.  7 EF  S3 

R0043 

CR6IT  CR  85  NM  FCR  EARTF  0R8ITa 

R0044 

R00i>5 

R0046 

R0047 

(E)  THE  CSI  AND  COH  MANEUVERS  I^ERE  ASSUMEC  TO  BE  PARALLEL  TO 

THE  PLANE  OF  THE  PASSIVE  VEHICLE  QRBITo  HOWEVER,  CREW 

MODIFICATICN  CF  DELTA  V (LV)  COMPONENTS  MAY  HAVE  RESULTED 

IN  AN  OUT-OF-PLANE  MANEUVER^ 

R004e  (21 

R0049 

STATE  VECTOR  UPCATEC  BY  P27  ARE  DISALLOWED  DURING  AUTOMATIC 

STATE  VECTOR  UPDATING  INITIATED  EY  P20  (SEE  ASSUMPTION  (A)},- 

R0050  (31 

R0051 

R0052 

R0053 

R0054 

R0055 

1 THIS  PROGRAM  MUST  BE  DONE  OVER  A TRACKING  STATION  FOR  REAL 

TIME  GROUND  PARTICIFATICN  IN  DATA  INPUT  AND  OUTPUT®  COMPUTED 

VARIABLES  MAY  BE  STCRED  FOR  LATER  VERIFICATION  BY  THE  GROUND® 

THESE  STORAGE  CAPABILITIES  ARE  LIMITED  ONLY  TO  THE  PARAMETERS 

FOP  ONE  THRUSTING  MANEUVER  AT  A TIME  EXCEPT  FOR  CONCENTRIC 

FLIGHT  PLAN  MANEUVER  SEUUENCES® 

R0056  (A) 

R0057 

R00  58 

R0059 

R0060 

R0061 

R0062 

R0063 

THE  RENDEZVOUS  RADAR  MAY  CR  MAY  NOT  BE  USED  TO  UPDATE  THE  LM 

OR  CSM  STATE  VECTORS  FOR  THIS  PROGRAM,  IF  RADAR  USE  IS 

DESIRED  THE  RADAR  WAS  TURNED  ON  AND  LOCKED  ON  THE  CSM  BY 

PREVIOUS  SELECTION  CF  P20c  RADAR  SIGHTING  MARKS  WILL  BE  MADE 

AUTOMATICALLY  APPROXIMATELY  ONCE  A MINUTE  WHEN  ENABLED  BY  THE 

TRACK  ANC  UPCATE  FLAGS  (SEE  P20I®  THE  RENDEZVOUS  TRACKING 

MARK  COUNTER  IS  ZEROED  EY  THE  SELECTION  OF  P20  AND  AFTER  EACH 

THRUSTING  MANEUVER® 

R006A  (5) 

THE  ISS  NEED  NOT  BE  CN  TO  COMPLETE  THIS  PROGRAM® 

R0065  (61 

1 THE  OPERATION  OF  THE  PROGRAM  UTILIZES  THE  FOLLOWING  FLAGS  - 

R0066 

R0067 

R0068 

R0069 

ACTIVE  VEHICLE  FLAG  - DESIGNATES  THE  VEHICLE  WHICH  IS 

DOING  RENDEZVCUS  THRUSTING  MANEUVERS  TC  THE  PROGRAM  WHICH 

CALCULATES  THE  MANEUVER  PARAMETERS®  SET  AT  THE  START  OF 

EACH  RENDEZVCUS  FBE-THRUST  INC  PROGRAM® 

R0070 

R0071 

FINAL  FLAG  - SELECTS  FINAL  PROGRAM  DISPLAYS  AFTFP  CREW  HAS 

SELECTED  THE  FINAL  MANEUVER  COMPUTATION  CYCLE® 

R0072 

RU073 

R0074 

EXTERNAL  DELTA  V FLAG  - DESIGNATES  THE  TYPE  OF  STEERING 

REyUIRED  FUR  EXECUTION  OF  THIS  MANEUVER  BY  THE  THRUSTING 

PROGRAM  SEL6CTEC  AFTER  COMPLETION  OF  THIS  PROGRAM® 

R0075  (7) 

R0076 

R0077 

R0078 

R0079 

ONCE  THE  PARAMETERS  REQUIRED  FCR  CCMFUTION  OF  THE  MANEUVER 

HAVE  BEEN  COMPLETELY  SPECIFIED,  THE  VALUE  OF  THE  ACTIVE 

VEHICLE  CENTRAL  ANGLE  CF  TRANSFER  IS  COMPUTED  AND  STORED® 

THIS  NUMBER  WILL  BE  AVAILABLE  FCR  DISPLAY  TO  THE  ASTRONAUT 

THROUGH  THE  USE  CF  V06N52® 

R0080 

R0081 

THF  ASTRONAUT  WILL  CALL  THIS  DISPLAY  TC  VERIFY  THAT  THE 

CENTRAL  ANGLE  OF  TRANSFER  OF  THE  ACTIVE  VEHICLE  IS  NOT  WITHIN 

gap:  assemble  revision  131  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-^91 

L F3A-P35 , F74-P75 


17:53  DEC,  IQilofeQ  KISSING  o055  PAGE  662 
USER'  S PAGE  NCc  3 EC*  S3 


RC0e2 

ROO03 

R0084 


170  TO  ISO  DEGREESe  IF  THE  ANGLE  IS  WITHIN  THIS  ZONE  THE 
ASTRONAUT  SHOULD  REASSESS  THE  INPUT  TARGETING  PARAMETERS  BASED 
UPON  DELTA  V AND  EXPECTED  MANEUVER  TIME, 


R0085 

R0086 

R0C87 

Rooes 


HIS  PROGRAM  IS  SELECTED  BY  THE  ASTRCNAUT  8Y  DSKY  ENTRY  - 
P3A  IF  THIS  VEHICLE  IS  ACTIVE  VEHICLEo 
P74  IF  THIS  VEHICLE  IS  PASSIVE  VEHICLE. 


R0089 

R0090 

R0091 

R0092 


(1>  TTPI  TIME  OF  THE  TPI  MANEUVER 

12)  ELEV  DESIRED  LCS  ANGLE  AT  TPI 

(31  CENTANG  ORBITAL  CENTRAL  ANGLE  OF  THE  PASSIVE  VEHICLE  DURING 
TRANSFER  FRCM  TPI  TO  TIME  OF  INTERCEPT 


R0093 


R009A 

R0095 

R0096 

R0097 

R0098 

R0099 

ROlOO 

ROlOl 

R0102 

R0103 

R0104 


(II  TRKMKCNT  NUMBER  CF  MARKS 
( 2)  TTOGO  T1  ME  TO  GC 
(3)  +MGA  MIDDLE  GIMBAL  ANGLE 

(Al  TTPI  CCMPUTEC  TIME  CF  TPI  MANEUVER 

OR 

ELEV  COMPUTED  LOS  ANGLE  AT  TPI 

(5)  POSTTPI  PERIGEE  ALTITUDE  AFTER  THE  TPI  MANEUVER 
(61  DELVTPl  MAGNITUDE  OF  DELTA  V AT  TPI 
(7)  DELVTFF  KAGNITUCE  CF  DELTA  V AT  INTERCEPT 
(81  DVLOS  DELTA  VELOCITY  AT  TPI  - LINE  OF  SIGHT 
(9)  OELVLVC  DELTA  VELOCITY  AT  TPI  - LOCAL  VERTICAL  CCCRDINATES 


R01C5  OCWNLINK 

R0114  (1)  TTPI  TIME  OF  THE  TPI  MANEUVER 

R0115  (21  TIG  TIME  OF  THE  TPI  MANEUVER 

R0116  (3)  ELEV  DESIRED  LCS  ANGLE  AT  TPI 

R0117  (41  CENTANG  ORBITAL  CENTRAL  ANGLE  OF  THE  PASSIVE  VEHICLE  DURING 

R0118  TRANSFER  FROM  TPI  TO  TIME  OF  INTERCEPT 

R0119  (51  OELVEETS  DELTA  VELOCITY  AT  TPI  - REFERENCE  COCRDINATES 

R0120  (6)  TPASS4  TIME' OF  INTERCEPT 

R0121  CCMMUNICATICN  TC  THKLSTING  PRCGRAMS 


R0122 

R0123 

R0124 

R0125 


(1)  TIG  TIME  OF  THE  TPI  MANEUVER 

(21  RTARG  OFFSET  TARGET  POSITION 

(3)  TPASS4  TIME  OF  INTERCEPT 

(41  XCELVFLG  RESET  TO  INDICATE  LAMBERT  (AIMPOINT)  VG  COMPUTATION 


SUBROUTINES  USED 


R0127 


AVFLAGA 
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R0128  AVFLAGP 

R0129  VNPOOH 

R0130  CISPLAYE 

R0131  SELECTMU 

R0i32  PRECSET 

R0133  S33/3A, I 

R013A  ALARM 

R0135  BANKCALL 

R0136  GCFLASH 

R0137  GOTOPOOH 

R0138  TIMETI-ET 

R0139  S3^/35o2 

ROIAO  PERIAPOl 

R0141  ShIFTRl 

R0142  S3A/35o5 

R0143  VN16A5 


0144  RfF  3 

0145 

0146  REF  15 

0147  REF  I 

0148  REF  3 

0149  REF  1 

0150  REF  3 

0151  REF  3 
01515  REF  2 

0152  REF  10 

01521 

01522  REF  I 

01523  REF  5 
01528  REF  10 
0152S  REF  5 

0153  REF  1 

0154  REF  74 

0155 

0156  REF  1 

0157  REF  14 

0158  REF  14 

0159  REF  6 

0160 

0161  REF  1 

0162  REF  2 

0163 

0164  REF  3 

0165 

0166 

0167  REF  7 

0168  RFF  2 

0169 

0170  REF  3 


LAST  655 
LAST  654 
LAST  632 

LAST  632 
LAST  632 
LAST  627 
LAST  635 


LAST  639 
LAST  649 
LAST  641 

LAST  659 


LAST  649 
LAST  647 
LAST  642 


LAST  663 
LAST  632 


LAST  614 
LAST  632 

LAST  663 


35,2000 
35,2455 
E7, 1470 

35.2455 

35.2456 

35.2457 

35.2460 

35.2461 

35.2462 

35.2463 
35  ,2464 

35.2465 

35.2466 

35.2467 
3 5,2470 

35.2471 

35.2472 

35.2473 
35  ,2474 

35.2475 

35.2476 

35.2477 

35.2500 

35.2501 

35.2502 
35, 25C3 

0032 

35,25C4 

35.2505 

35 .2506 
35,25C7 
35,2510 


C 2354 
C 2460 
0 2361 
0 2366 
3 3632 
0 3621 
C 0006 
3 3655 
52'621 
2 2424 
55*466 
C 3603 
C 6042 
71214 
C1270 
03636 
17442 
02257 
430  54 
725C2 
01070 
77624 
20000 

43145  0 
06524  1 
03460  0 
43C14  0 
01310  1 


P34 

P74 

P34/P74A 


P34/P740 

CELELO 

P34/P74C 


1 

1 

1 

0 

0 

1 

1 

1 

1 

1 

0 

1 

1 

0 

0 

1 

0 

0 

1 

0 

1 

1 

0 


SETLOC  CSI/COH 
BANK 

EBANK=  SUBEXIT 
COUNT*  $$/P3474 
TC  AVFLAGA 

TC  P34/P74A 

TC  AVFLAGP 

TC  P20FLGCN 

CAF  V06N37 
TC  VNPOOH 

E XT6ND 

CCA  130DEG 
DXCH  CENTANG 
CAF  P30ZERG 
TS  NN 

TC  DISPLAYF 

TC  INTPRET 

CLEAR  CLCAC 

ETPIFLAG 

TTPI 

STCOL  TIG 
ELEV 

RZE  SET 

P34/P74B 

ETPIFLAG 

CALL 


SE  LECTMU 
EQUALS  26C 
CLCAC  SET 

ZERDV6CS 
ITSWICH 
BON  CLEAR 

ETPIFLAG 
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SET  UPDATFLG,  TRACKFLG 
TTPI 


ELFV  ANC  CENTANG 


GAP: 

L 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0168 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 
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REF  4 

REF  15 
REF  5 
REF  25 
REF  3 

REF  2 


REF  1 
REF  28 

REF  3 
REF  171 
REF  13 
REF  13 
REF  2 


LAST  663 
LAST  633 

LAST  663 
LAST  664 
LAST  657 
LAST  647 

LAST  632 


LAST  632 

LAST  632 
LAST  659 
LAST  659 
LAST  659 
LAST  663 


35.2512 

35.2513 

35.2514 
35  ,2515 

35.2516 

35.2517 

35 .2520 

35. 2521 

35.2522 

35.2523 

35.2524 

35.2525 

35.2526 

35. 2527 

35.2530 

35. 2531 

35.2532 

35.2533 
35,  2534 


72513  C 
C3660  1 
02317  0 
43345  1 
03636  1 
02317  0 
34041  0 
46403  1 
77624  1 
72674  1 
77454  I 
72535  1 
0 5567  0 
00611  1 
3 5006  1 
0 4616  1 
2C477  1 
0 6001  0 
0 2460  1 
0 2525  I 


SWCHSET 

INTLOOP 


SWChSET 
ITSWICH 
STORE  NOMTPI 
DLCAO  DAD 
TTPI 
NCMTPI 

STCALL  TDECl 

PRECSET 

CALL 


S33/34o  1 
BZE  EXIT 

SWCHCLP 
TC  ALARM 

OCT  611 

CAF  V05N09 

TC  BANKCALL 

CAOR  GOFLASH 

TC  GOTOPQOH 

TC  P34/P74A 

TC  -7 


PROCEED 

V32 


REF  4 
REF  1 
REF  4 
REF  X 

REF  2 
REF  1 

REF  3 
REF  11 
REF  75 


REF  5 
REF  12 
REF  6 

REF  4 

REF  6 
REF  6 


REF  6 
REF  3 


REF  6 


LAST  664 
LAST  663 


LAST  663 


LAST  663 
LAST  663 
LAST  663 


LAST  646 
LAST  653 
LAST  663 

LAST  652 

LAST  652 
LAST  647 


LAST  652 
LAST  647 


LAST  652 


35  ,2535 

35.2536 

35.2537 
35  ,2540 

35. 2541 

35.2542 

35.2543 

35. 2544 
35  ,2545 

35.2546 

35 . 2547 
35  ,2550 

35.2551 

35.2552 

35.2553 
35,  2554 

35.2555 

35.2556 

35.2557 

35.2560 

35.2561 

35.2562 

35.2563 

35.2564 
35  ,2565 

35.2566 

35.2567 

35.2570 

35.2571 


43014  0 
03600  1 
72514  1 
01310  1 
72545  0 
77776  1 
C 3603  1 
C 2550  0 
77776  1 
3 3632  0 
0 3621  1 
0 6042  1 
71201  1 
00001  0 
02777  1 
14047  1 
03621  1 
71406  0 
16732  0 
77756  0 
2673C  1 
03552  0 
77657  0 
57176  0 
26655  0 
03560  1 
43057  1 
57176  0 
03466  0 


SWCHCLR  BONCLR 


EXIT 

TC 

TC 

P34/P740  EXIT 
CAF 
TC 

P34/P74E  TC 

SGTPD 


STGDL 

PISH 

STOOL 

SIN 

STCVL 

VSR* 


BON 

ITShICH 

INTLOOP 

FTPIFLAG 

P34/P74D 

DISPLAYE 

P34/P74E 

V06N37 

VNPOOH 

INTPRBT 

DLCAO 

00 

RTXl 

XI 

CBNTANG 

COS 

CSTH 

SNTH 

RPASS3 


0,2 

STOVL  RVEC 

VPASS3 
VSR*  SET 


0,2 

RVSW 


DISPLAY  TTPI 

DISPLAY  ELEV  AND  CENTANG 


TTPI 
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0220  REF 

0221  REF 

0222 

0223  REF 

0224  REF 

0225 

0226  REF 

0227  REF 

0228  REF 

0229 

0230  REF 

0231  REF 

0232  REF 

0233 

0234  REF 

0235  REF 

0236  REF 

0237 

0238  REF 

0239  REF 

0240 

0241  REF 

0242  REF 

0243  REF 

0244  REF 

0245 

0246  REF 

0247  REF 

0248  REF 

0249 

0250  REF 

0251 

0252  REF 

0253 

0254  REF 


7 LAST 

5 LAST 

16  LAST 
1 

2 LAST 

3 LAST 
1 

3 LAST 

6 LAST 
1 

1 

3 LAST 

8 LAST 

I 

3 LAST 

8 LAST 

4 LAST 

17  LAST 
15  LAST 

1 

12  LAST 
76  LAST 

1 

4 LAST 
1 


652  35,2572 

652  35,2573 
35,2574 

664  35,2575 
35,2576 
35  ,2577 

498  35,26CC 

2C0  35,2601 

35  ,2602 
• 35,2603 

2(  0 35,2604 

317  35,2605 

35,26C6 
35,2607 
35,2610 
317  35,2611 

647  35,2612 

35. 2613 

35.2614 
642  35,2615 

35,2616 

653  35  ,2617 

317  35,2620 

665  35,2621 

663  35,2622 

35.2623 

35.2624 

664  35,2625 

664  25,2626 

35,2627 

35.2630 

35.2631 
633  35,2632 

35. 2633 

35.2634 


36744  0 
24732  1 
77745  1 
03636  1 
03610  0 
77615  0 
00037  0 
37631  1 
73216  0 
51575  1 
02366  0 
27576  0 
C35C6  1 
51451  0 
03566  1 
26350  0 
03536  I 
45115  C 
02337  1 
46341  0 
77624  1 
46451  0 
17606  1 
03636  1 
03442  0 
77776  1 
3 3634  0 
0 3621  1 
C 6042  1 
77624  1 
73432  0 
77624  1 
73515  1 
77650  1 
72504  0 


STCALL  VVEC 

TI METHET 

OLOAD 

TTPl 

STORE  INTIME 
OAC 


T 

STCALL  TPASS4 

S34/35o2 
VLOAD  ABVAL 

DELVEET3 
STCVL  DELVTPI 
VPASS4 
VSU  A6VAL 

VTPRIME 
STOVL  DELVTPF 
RACT3 

PDVL  CALL 

VI  PR  I ME 
PERIAPOl 

CALL 

SHIFTRl 
STCDL  PCSTTPI 
TTPI 

STORE  TIG 
EXIT 

CAF  V06N58 
TC  VNPOOH 

TC  INTPRET 

CALL 

S34/35o5 

CALL 

VNl 645 


GOTO 

P34/P74C 


FOP  INITVEL 

RENDEZVOUS  TIME 
FOP  IMTVEL 
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P0255  RENDEZVOUS  MIC-COURSE  MANEUVER  PROGRAMS  (P25  AND  P7f) 

R0256  MOO  NO  -1  LOG  SECTION  - F32-P35,  P72-P75 

R0257  MOD  8Y  WHITEcP  DATE  1JUNE67 


R0258  PURPOSE 


R0259 

R0260 

R0261 


(1)  TO  CALCULATE  THE  REQUIRED  DELTA  V AND  OTHER  INITIAL  CONDITIONS 
REQUIRED  BY  THE  ACTIVE  VEHICLE  FOR  EXECUTION  OF  THE  NEXT 
MIDCCURSE  CCRRECTICN  CF  THE  TRANSFER  PHASE  OF  AN  ACTIVE 


R0262 


VEHICLE  RENOEZVCLSo 


R0263 

R026A 

R0265 


ASTRONAUT/GROUNO* 


CERTAIN  DEPENDENT 
APPROVAL  BY  THE 


K0266 

R0267 


(3 


TC  STCRE  THE  TPM  TARGET  PARAMETERS  FOR  USE  BY  THE  DESIRED 
THRUSTING  PROGRAMo 


R0268 

R0269 


ASSUMPTIONS 

(1>  THE  ISS  NEED  NOT  EE  CN  TC  COMPLETE  THIS  PROGRAM® 


R0272 
R0273 
R02  7^- 
R0275 
R0276 
R0277 


(3)  THE  RENDEZVOUS  RADAR  IS  ON  AND  IS  LOCKED  ON  THE  CSM®  THIS  WAS 
DONE  DURING  PREVIOUS  SELECTION  OF  PZO®  RADAR  SIGHTING  MARKS 
WILL  BE  MADE  AUTOMATICALLY  APPROXIMATELY  ONCE  A MINUTF  WHEN 
ENABLED  BY  THE  TRACK  AND  UPDATE  FLAGS  (SEE  P20Io  THE 
RENDEZVOUS  TRACKING  MARK  COUNTER  IS  ZEROED  BY  THE  SELECTION  OF 
P20  AND  AFTER  EACH  THRUSTING  MANEUVFRo 


(A)  THE  OPERATION  OF  THE  PROGRAM  UTILIZES  THE  FOLLOWING  FLAGS 


R0279 

RO280 

R0281 

R0282 


ACTIVE  VEHICLE  FLAG  - DESIGNATES  THE  VEHICLE  WHICH  IS 
DOING  RENDEZVOUS  THRUSTING  MANEUVERS  TO  THE  PROGRAM  WHICH 
CALCULATES  THE  MANEUVER  PARAMETERS®  SET  AT  THE  START  OF 
EACH  RENDEZVOUS  PRE-THRUST ING  PROGRAM® 


R0283 

R0284 


FINAL  FLAG  - SELECTS  FINAL  PRCGRAM  DISPLAYS  AFTER  CREW  HAS 
SELECTED  THE  FINAL  MANEUVER  COMPUTATION  CYCLE® 


R0285  EXTERNAL  DELTA  V FLAG  - DESIGNATES  THE  TYPE  OF  STEERING 

R0286  REQUIRED  FOR  EXECUTION  OF  THIS  MANEUVER  BY  THE  THRUSTING 

R0267  PROGRAM  SELECTED  AFTER  COMPLETION  OF  THIS  PROGRAM® 


R0288  (51  THE  TIME  OF  INTERCEPT  (TdNTM  WAS  DEFINED  BY  PREVIOUS 

R0289  COMPLETION  OF  THE  TRANSFER  PHASE  INITIATION  (TPI)  PROGRAM 

R0290  (P34/P74)  AND  IS  PRESENTLY  AVAILAELE  IN  STORAGE® 
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R0291 

R0292 

R0293 

R0294 

R0295 


(6)  ONCE  THE  PARAMETERS  REQUIRED  FOR  COMPUTION  OF  THE  MANEUVER 
HAVE  BEEN  COMPLETELY  SPECIFlEOi  THE  VALUE  OF  THE  ACTIVE 
VEHICLE  CENTRAL  ANGLE  OF  TRANSFER  IS  COMPUTED  ANO  STCREDo 
THIS  NUMBER  WILL  6£  AVAILABLE  FOR  DISPLAY  TO  THE  ASTRONAUT 
THROUGH  THE  USE  OF  V0eN52e 


R0296 

R0297 

R0298 

R0299 

R0300 


THE  ASTRONAUT  WILL  CALL  THIS  DISPLAY  TO  VERIFY  THAT  THE 
CENTRAL  ANGLE  CF  TRANSFER  OF  THE  ACTIVE  VEHICLE  IS  NOT  WITHIN 
170  TO  190  OEGREESo  IF  THE  ANGLE  IS  WITHIN  THIS  ZONE  THE 
ASTRCNAUT  SHOULD  REASSESS  THE  INPUT  TARGETING  PARAMETERS  BASED 
UPON  DELTA  V AND  EXPECTED  MANEUVER  TIMEo 


R030L 

R0302 

R0303 

R030^ 


(7>  THIS  PROGRAM  IS  SELECTED  BY  THE  ASTRCNAUT  BY  OSKV  ENTRY  - 
P35  IF  THIS  VEHICLE  IS  ACTIVE  VEHICLE, 

P75  IF  THIS  VEHICLE  IS  PASSIVE  VEHICLE, 

(1)  TPASS4  TIME  OF  INTERCEPT  - SAVED  FRCM  P34/P74 


R0307 

R030e 

R0309 

R0310 

R0311 


(1)  TRKMKCNT  NUMBER  CF  MARKS 


(2)  TTOGO 

(3)  ♦MCA 
(4»  DVLOS 
(5)  DELVLVC 


TIME  TO  GC 
MIDDLE  GIM8AL  ANGLE 
DELTA  VELCCITY  AT  MID 
DELTA  VELOCI TY  AT  MID 


LINE  OF  SIGHT 

LOCAL  VERTICAL  COORDINATES 


R0312  DCWNLINK 

R0325  (1)  TIG  TIME  OF  THE  TPM  MANEUVER 

R0326  12»  0ELVEET3  DELTA  VELOCITY  AT  TPM  - REFERENCE  COORDINATES 

R0327  (3)  TPASS4  TIME  OF  INTERCEPT 

R0328  CCMMUNICATION  TO  THRUSTING  PROGRAMS 


R0329 

R0330 

R0331 

R0332 


(1>  TIG  TIME  CF  THE  TPM  MANEUVER 

(2)  RTARG  OFFSET  TARGET  POSITION 

(3»  TPASS4  TIME  OF  INTERCEPT 

I4J  XOFLVFLG  RESET  TO  INDICATE  LAMBERT  (AIMPOINTI  VG  COMPUTATION 


SUBROUTINES  USED 


R0334  AVFLAGA 

R0335  AVFLAGP 

R0336  LOADTIME 

R0337  SELECTMU 

R033e  PRECSET 

R0339  S34/35ol 

R0340  S34/35,2 
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0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 
03525 

0353 

0359 

0360 

0361 

0362 

03621  REF 

03622 
03622 
03624 

0363 


0364 

0365 
03  66 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0379 

0380 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 


663 

309 


4 LAST  663 


2 LAST 
4 LAST 
77  LAST 


REF 

REF 

REF 

REF 

REF 


668 

663 

665 


LAST  663 


16  LAST 
2 LAST 
26  LAST 
4 LAST 


LAST 

LAST 

LAST 


668 
665 
66  5 
664 
664 


66  5 
665 
665 


35  ,2635 

25.2636 

35.2637 

35.2640 

25. 2641 

35.2642 

35.2643 

35.2644 
35  ,2645 

35.2646 

35.2647 

35.2650 

25.2651 

35.2652 

35.2653 

35.2654 

35.2655 

35.2656 

35.2657 

35 .2660 

35.2661 

35.2662 

25.2663 
35,  2664 
35  ,2665 

35.2666 

35.2667 
35  ,2670 

25. 2671 

35.2672 

35.2673 


0 2354  1 
0 00C6  1 
3 1401  0 
C 2644  0 
C 2361  1 
C 0006  I 
3 1403  1 
53'576  0 
0 2366  0 
C 6042  1 
77624  1 
20000  0 
77634  0 
21574  1 
03612  1 
77615  0 
03576  0 
03442  0 
03610  0 
34041  0 
46403  1 
77624  1 
73204  0 
77624  1 
73216  0 
77624  I 
73432  0 
77624  1 
73515  1 
77650  1 
72651  0 


TC 

P75  TC 

EXTEND 

OCA 

P35/P75A  DXCH 
TC 
TC 

CALL 

P35/P75B  RTB 

STCRE 

OAO 

STCRE 

STORE 

STCALL 

CALL 

CALL 

CALL 

CALL 

GOTO 


ATIGINC 
P35/  P75A 
AVFLAGP 


TIG 
INTI  PE 
TDECl 
PRECSET 

S34/35vl 

S34/35,2 

S34/35*  5 

VN1645 


P35/P75B 


17:53  DEC. 


9,1969  KISSING  r055  PAGE  668 


USER’S  PAGE  NO* 


£7  S3 


SET  UPOATFLG,  TPACKFLG 


FOR  INITVEL 

ADVANCE  8DTH  VEHICLES 

GFT  NORM  AND  LOS  FOP  TRANSFORM 


GET  DELTA  V(LV) 


GAP: 

L 

P0381 

0382 

03  83 

0384 

0385 

0386 

0387 

0386 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

042  8 

0429 
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P34-P35,  P74-P75  USER'S  PAGE  NCe  10  E7  S3 

o««eo  S33/34ol  oo«oe 


REF  4 LAST 
REF  1 


REF  1 

REF  1 

REF  9 LAST 

REF  I 

REF  8 LAST 

REF  1 

REF  7 LAST 

REF  1 

REF  4 LAST 

REF  1 

REF  2 LAST 

REF  10  LAST 

REF  11  LAST 


REF  1 


REF  2 LAST 


REF  3 LAST 

REF  12  LAST 

REF  1 

REF  6 LAST 


REF  5 LAST 

REF  1 

REF  1 

REF  1 

REF  7 LAST 

REF  2 LAST 

REF  1 


35,2674 
635  35,2675 

35.2676 

35.2677 
35  ,2700 
35,27C1 

35.2702 

35 .2703 
665  35,27C4 

35,2705 
653  35,2706 

35,2707 
664  35,2710 

35,2711 
664  35,2712 

35 .2713 

35.2714 

668  35,2715 
35,2716 

669  35,2717 
35  ,2720 

669  35,2721 

35.2722 

35 .2723 

25.2724 

35.2725 

35.2726 

35.2727 
35,2730 

669  35,2721 

35.2732 

35.2733 
669  35,2734 

669  35,2735 

35.2736 

35.2737 
627  35  ,2740 

35.2741 

25.2742 
664  35,2743 

25,2744 
35  ,2745 
35,2746 
' 35,2747 

663  35  ,2750 

669  35,2751 

35.2752 

35.2753 


66220  1 
03463  0 
03614  1 
40C00  0 
40345  1 
33643  0 
00001  0 
27574  1 
03536  1 
27500  1 
03544  1 
27506  1 
03552  0 
27522  1 
03560  1 
03530  1 

77624  1 
73204  0 
63235  0 
03536  I 
53515  0 
03536  1 
46315  1 
51352  1 
C2211  0 
63256  0 
63241  0 
COOOl  0 
75241  1 
02311  C 
65552  0 
50315  0 
C2211  C 
03536  1 
71244  0 
72742  0 
06532  0 
41425  1 
71214  0 
03740  1 
73171  1 
03576  0 
14033  1 

77625  C 
02257  0 
03576  C 
45246  0 
33647  1 


S32/34,l  STQ 


OCT 

CLCAD 


STOVL 

STOVL 

STOVL 

STCVL 

STORE 

ELCALC  CALL 

VXV 

POVL 

PDVL 

VSL2 

UNIT 

COT 

DOT 

SLl 

PDVL 


BPL 


DSU 

TESTY  80FF 


STCCL 

OSU 

STORE 

A8S 


SSP 

NOR  ME  X 
TITER 
^0000 
SETPD 
MAX250 
CD 

SECMAX 

RACT3 

RAPREC 

VACT3 

VAPREC 

FPASS3 

PPPPEC 

VPASS3 

VPPREC 

S34/35o  1 
POVL 
PACT3 
UN  IT 
RACT3 
VPROJ 
BVSU 
ULCS 
PDVL 
PDVL 
00 
SIGN 
ULOS 
ACOS 
DOT 
ULCS 
RACT3 
DLCAC 
TESTY 
OPPOSMAX 
PUSH 
DLOAO 
ITSWICH 
ELEX 
OELEL 
DELELO 

ELEV 
DELEL 
D SU 
ELEPS 


NORMAL  AND  LOS 

(RA#VA)*RA  CD 
ULOS  AT  6D 

XCHNJ  AND  UP 


UP  AT  00 
UPoUN^RA  AT  00 
UP  IN  MPAC 


EA  AT  00 


GAP  : 

L 

0^30 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0436 

0439 

0440 

0441 

0442 

0443 

044<> 

0445 

0446 

0448 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0466 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 
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P34-P35,  PT4-P75 


REF 

REF 


LAST  669 


LAST  669 


REF  287  LAST  643 


REF  13  LAST  669 


REF  8 LAST  598 

REF  8 LAST  669 

REF  6 LAST  670 


REF  9 LAST  670 


REF  9 LAST  669 


REF  5 LAST  669 


REF  6 LAST  670 


35.2754 

35.2755 
25,  2756 
35,2757 

35.2760 

35. 2761 
35  ,2762 

35.2763 

35.2764 

35.2765 
35,  2766 
35,2767 
35,2770' 
35, 2771 
35  ,2772 

35.2773 

35.2774 

35.2775 

35.2776 

35.2777 
35,3000 
35,30C1 
35  ,3002 

35.3003 

35.3004 
35  ,3005 

25.3006 

35.3007 
35,3C1C 
25,  3011 

35 .3012 

35.3013 

35.3014 
35  ,3015 

35.3016 

35.3017 
,35,3020 

35. 3021 

35.3022 

35.3023 

35.3024 
35  ,3025 

35.3026 

35.3027 

35.3030 

35. 3031 

35.3032 
35,3023 
35,3034 
35  ,3035 


77640  0 
73201  0 
70535  C 
03614  1 
72030  1 
03463  0 
00154  1 
77330  1 
03613  0 
03552  0 
65256  0 
00045  0 
53515  0 
03536  1 
77725  1 
41525  C 
00045  0 
77621  1 
00015  0 
14037  0 
06522  1 
41425  1 
02257  0 
50165  G 
00037  0 
03463  0 
71545  0 
56205  0 
00017  1 
00015  0 
77676  0 
00035  1 
44246  1 
06522  1 
77240  1 
03463  0 
02261  0 
53435  0 
00007  0 
41241  0 
03544  1 
00015  0 
47315  C 
00001  0 
03560  1 
53435  0 
00001  0 
41241  0 
03560  1 
00017  1 


BMN 

FIGTIME  SLOAD 
BHIZ 

SXA,1 

UNIT 

POVL 

POOL 

POOL 

BDSU 

STOOL 

OSU 

SIGN 


OCOMP 

STORE 

ABS 


VXV 

DOT 


T IMEX 

SRI 

TITER 

LXA,1 

NPRMEX 

MPAC 

VLCAD 

TITER 

RPASS3 

POOL 

3 60 

UNIT 

RACT3 


120 

300 

DPHALF 

PUSH 

ELEV 

BMN 

300 

NORMEX 

COS 

DDV 

140 

120 

28D 
BOSU 
DPhAL  F 
VLCAO 
NOR  ME  X 
UNRM 
UNI  T 
60 
DMP 
VACT3 
120 
VXV 
00 

VPASS3 
UNI  T 
00 
DMP 

VPASS3 

140 


USER'S  PAGF  NOo  11  E7  S3 

COMMERCIALS  EVERYWHERE 

TOO  MANY  ITERATIONS 


PP  - RA  MAGNITUDES 


SINCE  COS{lfiO-A»=-COS  A 


&AP: 

L 

UA60 

0461 

0482 

0483 

0464 

0485 

0486 

0487 

0486 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 
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P34-P35,  P74-P75 


USER'S  PAGE  NOo  12  E7  S3 


REF  13  LAST  664 


REF  2 


REF  10 
REF  9 

REF  11 

REF  4 


REF  2 
REF  1 

REF  3 

REF  4 
REF  1 

REF  5 

REF  1 

REF  3 
REF  2 

REF  1 
REF  4 

REF  1 
REF  5 


LAST  670 

LAST  670 
LAST  670 

LAST  671 

LAST  649 

LAST  669 

LAST  671 

LAST  67  0 

LAST  671 

LAST  669 
LAST  669 

LAST  671 

LAST  671 


35,3036 
35  ,3037 

35. 3040 

35.3041 

35.3042 
35,3C43 
35  ,3044 

35.3045 

35.3046 

35.3047 
35,  3050 

35.3051 

35.3052 

35.3053 

35.3054 

35.3055 

35.3056 

35.3057 

35. 3060 

35.3061 

25.3062 

35.3063 

35.3064 

35.3065 

35.3066 

35.3067 

35. 3070 

35.3071 

35.3072 

35. 3073 
35  ,3  074 

35.3075 

35.3076 
35  ,3077 

35. 3100 

35.3101 

35.3102 

35.3103 
35  ,3104 

35.3105 

35.3106 
35  ,3  107 

35.3110 

35.3111 

35.3112 

35.3113 
35  ,3114 

35.3115 

35.3116 
35  ,3117 


77621  1 
63301  0 
00047  1 
00007  0 
50235  0 
CCOOl  0 
02261  0 
50315  0 
00001  0 
00007  0 
65552  C 
77765  0 
43225  0 
06522  1 
02257  0 
65525  0 
00035  1 
75221  1 
06522  I 
00037  0 
77615  0 
56205  0 
33641  I 

77605  1 
41257  1 
20176  0 
51406  1 
50025  0 
03574  1 
72077  0 
75345  1 
03574  1 

77606  1 
51135  1 
03614  1 
73107  0 
71331  0 
C3614  1 
37777  1 
77650  1 
73145  0 
41345  0 
03576  0 
00033  1 
71244  0 
73123  0 
03574  1 
77605  1 
33645  0 
17574  1 


OKMAX 


REPETE 


8DSU 

NORM 


vxv 


PDVL 


SLl 

SIGN 

CSU 


POOL 

BCSU 


OAC 

DMP 

OMP 

SL* 

PUSH 

OSU 


CLOAO 

PISH 

SLCAD 


SSP 

ncT 

GOTO 

CLGAD 

BPL 


DMP 

STOOL 


PDVL 

XI 

60 

DOT 

00 

UNRM 

DOT 

00 

60 

ACCS 

DAC 

DPHALF 

ELEV 

ACCS 

280 

S IGN 

DPHALF 

300 

DOV 

TWOPI 

OMP 

n -3,1 

ABS 

BMN 

SECMAX 

OKMAX 

SIGN 

SECMAX 

BPL 

TI  TER 

REPETE 

DLOAO 

TITER 

37777 

STORDELT 

DMP 

OELEL 

DELELO 

DLCAC 

NEXTES 

SECMAX 

THIRD 

SECMAX 


NORMALIZED  WA  - WP  :2D 


RA*PPoUN  14D 


ALPHA 


P I 


CONTAINS  RP-RA 


REPLACE  TIME  WITH  MAX  TIME  SIGNED 


TEST  FIRST  ITERATION 


GAP : 

L 

0530 

0531 

0532 

0533 

053A 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 
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P34-P35,  P7A-P75 


USER'S  PAGE  NOa  1? 


REF  1 

REF  4 LAST 

REF  3 LAST 

REF  1 

REF  1 

REF  2 LAST 

REF  2 LAST 

REF  3 LAST 

REF  1 

REF  4 last 

REF  6 LAST 

REF  7 LAST 

REF  2 LAST 

REF  2 LAST 

REF  1 

REF  3 LAST 

REF  2 LAST 

REF  2 LAST 

REF  2 LAST 

REF  3 LAST 

REF  1 

REF  18  LAST 

REF  8 LAST 

REF  19  LAST 

REF  5 LAST 

REF  2 LAST 

REF  10  LAST 


35.3120 

35.3121 

35.3122 

35.3123 
671  35,3124 

35,3125 
671  35,3126 

35,3127 
35,3130 
35  ,3131 

35. 3132 

35.3133 

35.3134 

671  35,3135 
35,3136 

672  35,3137 
35,3140 

672  35  ,3141 

35.3142 

35.3143 

35.3144 
672  35,3145 

35,3146 

664  35,3147 

672  35,3150 

35,3151 
669  35,  3152 

669  35,3153 

35.3154 

35.3155 

35.3156 
642  35,3157 

35,3160 
669  35  ,3161 

669  35,3162 

35,3163 
672  '35,3164 

35,  3165 
632  35  ,3166 

35,3167 
35,3170 
35  ,3171 

665  35,3172 

672  35,3173 

672  35,3174 

35,  3175 
664  35  ,3176 

67C  35,3177 

671  35,3200 

35  ,3201 


70446  0 
52076  1 
73133  1 
51545  1 
03576  0 
51525  1 
00033  1 
77625  0 
71240  1 
73136  1 
77646  0 
52165  1 
03606  1 

73145  0 
57545  1 
03606  1 
70406  1 
03606  1 
77615  0 
77650  1 

73146  0 
C3606  1 
77615  0 
C2317  0 
02317  0 
63375  0 
035C6  1 
03500  1 
77624  1 
73372  0 
77624  1 
46425  0 
63375  0 
03530  1 
03522  1 
77624  I 
73372  0 
77624  1 
46435  I 
7765C  1 
72714  0 
43345  1 
03636  1 
02317  0 
17636  1 
77614  1 
01310  1 
73201  0 
02257  0 
52145  0 


ABS 

DCORP 

NEXTES  DLOAO 

POOL 

DSU 

BMN 

ABS 

RESIGN  SIGN 


REVERS  OLOAD 

PUSH 

STORE 

OAO 

GOTO 

STOROELT  STORE 
ACTIM6  CAC 

STORE 

VLOAO 


CALL 

CALL 

VLOAO 


CALL 

CALL 

GOTO 

ELEX  CLOAD 

STOOL 

BON 


STORE 

TIMEX  OLOAD 


SR  1 

GOTO 

RESIGN 

ABS 

DELEL 

ABS 

DELELO 

DLOAO 

REVERS 

GOTO 

DELTEEC 

STCROELT 

OCOMP 

DELTEEC 

SR  1 

DELTEEO 


AOTIME 

DELTEEC 

NGMTPI 

NOMTPI 

POVL 

VAPREC 

RAPRFC 

GOI  NT 

ACTIVE 

POVL 

VPPREC 

RPPREC 

GO  I NT 

PASSIVE 

E LCALC 

DAO 

TTPI 

NOMTPI 

TTPI 

ETPIFLAG 
TIMEX 
f LEV 
GOTO 


CROSSED  OVER  SCLUTICN 
0T=  l-S  IGNIOTO 1 //DT//)/2 


WRONG  DIRECTION 


SUM  OF  DELTA  T :S 


STORE  NEW  RAf-T3  VACT3 


STORE  NFW  RPASS3  VPASS3 


E7  S3 


gap:  ASSEPBLE  revision  131  CF  AGC  PPCCRAP  LUMINARY  BY  NASA  2021112-C91 
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17:53  OECo  19,1«>69  KISSING  c055  PAGE  673 
USER'S  PAGE  NOo  1A  E7  S3 


ZEROVEC  S 
NORMEX 


GAP: 

L 

P0582 

R0583 

R058^ 

0585 

0586 

05  87 

0588 

0589 

0590 

0591 

0592 

0593 

0594 
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P24-P35,  P74-P75 


USER  'S  PAGE  NCc 


REF 

REF 


LAST 

LAST 


669 

674 


35,32C4 
35  ,3205 

35.3206 

35.3207 

35.3210 

35.3211 

35.3212 

35.3213 

35.3214 

35.3215 


52375  1 
03552  0 
03536  1 
41456  0 
26311  0 
C3536  1 
53435  0 
03544  1 
02261  0 
77616  0 


S34/35®!  VLCAD 


STORE 

RVQ 


vsu 

RPASS3 

RACT3 

PUSH 

ULOS 

RACT3 

UNIT 

VACT3 

UNRM 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211)2-001 


P3A-P35,  P7A-P7F 


P05R5 

R0596 

0597 

0596 

0599 

0600 
0601 
0602 
0603 
060A 

0605 

0606 
06061 
06062 

06063 

06064 

06065 

06066 

0607 

0608 

0609 

0610 
0611 

R0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 
0621 
0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

06331 

06332 

06333 

06334 


ADVANCE  PASSIVE  VE 


LAST  663 


REF  9 

REF  5 
REF  4 
REF  10 
REF  2 
REF  5 
CCMPUTE 


LAST  6' 
LAST  21 
LAST  6 
LAST  6' 
LAST  6 
PFI  = PI 


REF  16  LAST  674 


LAST  674 


REF 

REF 

REF 

REF 


REF 

REF 

REF 


LAST 

LAST 

LAST 


LAST  675 


17  LAST  675 


TG  RENOE 

35.3216 

35.3217 
35,322C 

35.3221 

35.3222 

35.3223 
35  ,3224 

35.3225 

35.3226 

35.3227 
35,3230 
35  ,3231 

35.3232 

35.3233 
35  ,3234 

35.3235 

35.3236 

35.3237 

35.3240 

35.3241 

35.3242 
(ACCSIUMT 

35  ,3243 

35.3244 

35.3245 

35.3246 

35.3247 
35  ,3250 

35.3251 

35.3252 
35  ,3  253 

35.3254 

35.3255 

35.3256 

35.3257 
35  ,3260 
35,326) 
35,3262 
35  ,3  263 

35.3264 

35.3265 

35.3266 

35. 3267 
35  ,3270 
35,3271 
'35,3272 
35  ,3273 


ZVOLS  Tn 
77220 
C347r 
03560 
65315 
03552 
03610 
65325 
C3631 
33641 
46125 
C3467 
73235 
77745 
41545 
06524 

77624 
73376 
27444 
00C07 
27506 
C3444 

RA*UNIT 

63256 

03536 

41456 

5C235 

COOOl 

02261 

77715 

72441 

00001 

75326 

43244 

73260 

C6532 

15756 

03631 

77625 
03610 
03452 
40335 
03467 
OOCOl 
63325 
33653 
03536 
26323 


CLCAD 

DLOAD 

o23  CALL 

r,25  STCVL 

STOVL 


FROM  LAMPERT 
VLOAD 
SUEEX  IT 
VPASS3 
POOL 
RPASS3 
INTIME 
POOL 
TPASS4 
TWOPI 
BHIZ 
NN 

S3435o23 

PUSH 

ZEROVECS 


RP>-P  nS  IGN{RA*RP, 
0 UNIT 


STOOL 

DSU 


STORE 

SLOAO 


PCCL 

STOVL 


INTI  NT 
PTARG 
VATT 
VPASS4 
PTARG 
U) 

PDVL 

RACT3 

PUSH 

DOT 

00 

UNRM 

SLl 

00 

SIGN 

DAO 

NOPIE 

OPPGSMAX 

ACTCENT 

TPASS4 

INT IME 
DELLT4 
SETPO 
NN 
00 

PDVL 

EPSFOUR 

PACT3 

PINIT 


17:93  OECo  19,1969  KISSING  oOSS  PAGE  675 


USER'S  PAGE  NCc  16  E7  S3 


CONIC 


PRECISION 

GET  TARGET  VECTOR 


UNIT  RP 
UNI T RA 


RA*RPe  U 

UM  T RAo  UNIT  RP 


REASONABLE  TWO  PI 


NUMBER  OF  OFFSETS 


GAP 


ASSEMBLE  REVISION  131  CF  AGC  PPCCRAf'  LUMINARY  BY  NASA  2021112-091 


L P3A-P35,  P7A-P75 


06335  REF 

06336  REF 

06337  REF 

0634 

0635  REF 

0636 

0637  REF 

0638 

0639 

0640  .REF 

0641  REF 


11  LAST  674  35»3274  03544  1 

1 35i3275  36331  0 

1 35,3276  22CC0  1 

35,3277  77624  1 

1 35,33C0  73357  1 

25,33C1  64375  1 

4 LAST  665  35,3302  023660 

35,33C3  00001  0 

35,3304  77772  0 

15  LAST  650  35  ,3305  37434  0 

17  LAST  675  35,3306  C3470  I 


VACT3 
STCALL  VIMT 

I NITVEL 

CALL 

LOMAT 

VLCAO  MXV 

DELVEET3 

OD 

vsn 

STCALL  DELVLVC 
SUeEXIT 


17:53  DEC#  19,196?  KISSING  ,055  PAGE  676 


USER'S  PAGE  NOe  17  E7  S3 


GAP : 

L 

P0642 

06A3 

06AA 

06<^5 

06A6 

0647 

0646 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 

0661 

0662 

0663 

0664 

0665 

0666 

0667 

0666 

0669 

0670 

0671 

0672 

0673 

0 6 74 

0675 

0676 

0677 


ASSEMBLE  REVISION  131  CF  AGC  PkCGRAP  LUMINARY  0Y  NASA  2021112-091 


17:53  DECo  19,1969  K I SS I N'G  055  PAGE  677 


P34-P35,  P74-P75  USER'S  PAGE  NOr.  18  E7  S3 

«o«<)o  S34/35«3  «••<>« 


REF  9 LAST 
REF  2 LAST 

REF  16  LAST 

REF  5 LAST 

REF  12  LAST 
REF  18  LAST 

REF  17  LAST 
REF  6 LAST 

REF  8 LAST 

REF  6 LAST 

KEF  13  LAST 
REF  6 LAST 

REF'  5 LAST 

REF  5 LAST 

REF  6 LAST 

REF  6 LAST 

REF  4 last 
REF  10  LAST 


673  35,3310 

676  35,3311 

35,3312 
676  35,3213 

35.3314 

25.3315 
676  35,3316 

35,3317 

676  35,332C 

675  35,3321 

35,3322 
668  35,3323 

675  35,3324 

35,3325 
675  35,3326 

35  ,3327 
675  25,  3330 

35,3331 
659  35,3332 

675  35,3333 

35  ,3334 

674  35,3335 
35,3336 

675  35,3337 
35,  334C 
35,3341 

677  35,3342 

25.3343 

35.3344 
677  35,3345 

35.3346 

35.3347 
317  25,3350 

677  35,3351 


73357  1 
61375  1 
C3434  1 
00001  0 
77772  0 
02366  0 
63255  0 
C3544  1 
03536  1 
65325  0 
03442  0 
03631  0 
41525  0 
06532  0 
77624  1 
73376  1 
77775  1 
00001  0 
C3444  0 
41575  0 
02311  0 
57435  1 
02261  0 
41456  0 
76435  1 
02311  0 
77715  1 
64315  1 
02366  0 
00001  0 
77772  0 
26303  1 
03463  0 


S34/35,3  STQ 


VLCAL 


VSLl 

STORE 

VAC 


PDCL 


PCDL 


CALL 
NORFEX 
LOMAT 
VX  M 

DELVLVC 

00 

OELVEET? 

PDVL 

VACT3 

RACT3 

POOL 

TIG 

TPASS4 

PUSH 

OPPOSMAX 


CALL 

I NTI NT 

VLOAD 

RATT 

STORE  RTARG 
NCVRWRT  VLOAD  PUSH 
ULOS 

VXV  VCOFP 

UNRM 
UNIT  PUSH 
VXV  VSLl 

ULOS 

PDVL 

PDVL  MXV 

0ELVEeT3 

OD 

VSLl 

STCALL  DVLCS 
NORMEX 


GET  MATRIX  IN  PUSH  LIST 
NEW  DEL  V TPI 


SAVE  FOR  TRANSFORM 
NEW  V REG 


INTEGe  FOR  NEW  TARGET  VEC 


gap:  ASSEPBIE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-CSl 


17:53  DEC,  19il069  KISSING  t055  PAGE  678 


L P3A-P35t  P1A-P75 

P0676  S3A/35.4  ooe»e 


0679  35»3352 

0680  REF  11  LAST  677  35,3353 

0681  35,3354 

0682  35,3355 

0683  REF  1 35,  3356 


40220  0 S3A/35o4  STQ  SETPD 

03463  0 NORMEX 

00001  0 00 

77650  1 GOTO 

73334  I NOVRWRT 


USER  »S  PAGF  NO©  7 9 E7  S3 


NO  ASTRONAUT  OVERWRITE 


GAP  : 

L 

P068A 

0685 

06  86 

0687 

0668 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 


ASSEMBLE  REVISION  131  OF  AGC  PRCCRAV  LUMINARY  BY  NASA  2021112-091 


17:53  DEC#  19,1969  KISSING. 055  PAGE  679 


P34-P35,  P74-P75  USER'S  PAGE  N0«  20  E7  S3 

«o««9  LCMAT 


REF  6 LAST 
REF  19  LAST 


REF  7 LAST 


REF  10  LAST 
kEF  9 LAST 


REF  4 LAST 
REF  19  LAST 

REF  7 LAST 


REF  8 LAST 

REF  27  LAST 

REF  3 LAST 

REF  3 LAST 

REF  3 LAST 

REF  1 

REF  4 LAST 

KEF  6 LAST 


REF  6 LAST 


REF  5 LAST 

REF  2 LAST 

REF  14  LAST 

REF  5 LAST 


35,3357 
677  35,3360 

35,3361 
677  35,3362 

35.3363 

35.3364 

35. 3365 
679  35,3366 

35,3367 
35,  3370 

35.3371 

35.3372 
675  35,3373 

672  35  ,3374 

35,  3375 
35,3376 
655  35,3377 

657  35,3400 

35  ,3401 

657  35,3402 
35,3403 
i5,34C4 

679  35,3405 

35,3406 
668  35,3407 

35,3410 

658  35  ,3411 

652  35,3412 

35,3413 
640  35  ,3414 

35, 3415 
679  35,3416 

65P  35,3417 

35,3420 
35  ,3421 
658  35,3422 

35,3423 
35  ,3424 
658  35,3425 

658  35,3426 

35,3427 
677  35,3430 

679  35  ,3431 


02261  0 
24007  0 
03536  1 
57456  1 
00015  0 
76435  1 
02261  0 
00001  0 
43401  0 
00023  0 

65325  0 GGINT 
06524  1 
02317  0 
41406  0 

45020  1 INTINT 
03465  0 
27410  1 
71214  0 
01673  1 
43054  1 
73406  1 
C1473  0 
45545  1 
63736  0 
73014  0 
00063  1 
02777  1 
43C14  0 
04303  0 
73417  1 
00263  0 

25517  0 ALLSET 

77657  0 

57176  0 

25535  0 

77657  0 

57176  0 

35543  C 

27106  0 

52175  0 

CQOOl  0 

03465  0 


VLCAD  VCCMP 
UNRW 

STOVL  6D 

RACT3 
UNIT  VCGMP 
STORE  120 
VXV  VSLl 
UNRM 

STCRE  00 
SETPD  PVQ 
180 

POOL  POOL 

ZFROVECS 
NONTP I 
PUSH  PUSH 

Stq  call 

RTRN 

intstall 

CLEAR  OLOAO 

INTYPFLG 
BZe  SET 

+2 

INTYPFLG 
OLOAO  STAOR 
STCDL  TOECl 
SET  LXA,2 

MOONFLAG 

RTX2 

BON  CLEAR 

CMOONFLG 
ALLSET 
MOONF  LAG 
STCVL  TET 
VSR* 

0,  2 

STCVL  PCV 
VSR* 

0,2 

STCALL  VCV 

INTEGRVS 
VLCAD  GOTO 
RATT 
RTRN 


Y 


Z*-Y 


on 

NOT 


CROEP  OR  INSERT  BEFORE  INTINT 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PFCCRAP  LUMINARY  BY  NASA  2C21112-C91 


L P2A-P35,  p-i4-P?5 

P0728  oeooo  S34/3Se5  ooooe 
8072^5  SL8R0LTINES  USED 


R0730 

R0731 

R0732 

R0733 

R0734 

R0735 


6ANKCALL 

GCFLASH 

GOTOPOOH 

S34/35e3 

S34/35o4 

VNPOOH 


0736 

0737  REK 

0738  REF 

0739  REF 

0740 

0741  REF 

0742  REF 

0743 

0744  REF 

07441  REF 

07442  REF 

07443 

0745  REF 

0746  REF 

0747  REF 
0740  REF 

0749 

0750  REF 

0751  REF 
07511  REF 


18  LAST 
4 LAST 
1 

9 LAST 
1 

1 

.17  LAST 
2 LAST 

2 LAST 
172  LAST 
14  • LAST 
14  LAST 

2 LAST 
4 LAST 
20  LAST 


35,3432 

676  35,3433 

633  35,3434 

35.3435 

35.3436 

634  35,3437 
35  ,3440 

35.3441 

35.3442 

677  35,3443 

105  35,3444 

35,3445 
619  35,3446 

664  35,3447 

664  35,3450 

664  35,3451 

35,3452 
680  35,3453 

568  35,  3454 

568  35,3455 


43C20  1 
03470  1 
C1311  0 
73441  1 
52014  0 
CC470  1 
73505  0 
77214  0 
03274  0 
03434  1 
C1236  1 
77776  1 
3 3636  1 
C 4616  1 
20477  1 
C 6001  C 
C 3454  1 
C 3446  1 
3 5C16  0 
54  003  0 


S34/35« 


FLAGON 


5 STO 


SET 


CLEAR 


STORE 

EXIT 

CAF 

TC 

CACR 

TC 

TC 

TC 

CA 

TS 


BON 

SUBEXIT 
FI NALFLG 
FLAGON 
GOTO 

UPOATFLG 

FLAGOFF 

VLCAC 

NTARGFLG 

DELVLVC 

GOT/2 

V06N81 
BANKCALL 
GOFLASH 
GCTOPOCH 
+ 2 

FLAGON  +5 

FBANK7 

EBANK 


07512 

07513 

07514 

07515 

07516 

07517 

07518 

0751  9 

0752 

07521 

07522 

07523 

07524 

07525 

0753 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 


REF  14 
REF  105 
REF  186 
REF  18 
REF  187 
REF  3 
REF  97 
REF  180 
REF  1 
REF  217 


REF  41 
REF  2 


613 

613 

680 

680 

680 

680 

617 

680 

617 


634 

680 


35.3456 

35.3457 
35  ,3460 

35.3461 

35.3462 

35.3463 

25. 3464 

35.3465 

35.3466 

35.3467 
35  ,3470 

35.3471 

35.3472 

35.3473 
35,347-4 


22  007  0 

3 4756  1 
54  002  1 
50  002  Q 

4 1433  C 
50  002  0 
6 1235  1 
26  001  1 
10  002  1 
1 3460  1 
22  000  1 
C 0006  I 
1 3475  0 
0 5504  0 

0C146  1 


ZL 

CA  FIVE 

NTARGCHK  TS  0 

INDEX  Q 

CS  DELVLVC 

INDEX  Q 

AO  GOT/2 

AOS  L 

CCS  Q 

TCF  NTARGCHK 
LXCH  A 

EXTEND 
BZF  +3 

TC  UPFLAG 

ADRES  NTARGFLG 


0754  REF  78  LAST  668 

0755 

0756  REF  3 LAST  680 


35.3475  0 6042  1 

35.3476  45014  0 

35.3477  03354  0 


TC  INTPRET 

BOFF  CALL 

NTARGFLG 


17:53  DEC*  19,1969  KISSING  c055  PAGE  660 


USER  'S  PAGE  NO,  2? 


E7  S3 


PRO 

LOAD 


TO  BE  SURE 


gap:  assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L P34-P35i  P7^-P75 


U757  REF  1 

0758  REF  1 

0759 

0761  REF  7 LAST 

0762  REF  9 LAST 

0763 

076A  REF  1 

0765 

0766  REF  1 

0767  REF  13  LAST 

0768  REF  79  LAST 

0769 

0770  REF  19  LAST 


677 

650 


665 

680 

680 


35f35C0 
35i  3501 
35  ,3502 
35,3503 
35,350A 
35  ,3505 

35.3506 

35.3507 
35-,  3510 
35,3511 
35  ,3512 
35,3513 
35,351A 


73502  1 
73307  1 

77775  1 
02366  0 
03656  1 
77624  1 
73352  1 

77776  1 
3 3635  1 
C 3621  1 
0 6042  1 

77650  I 
03470  1 


NOCHG 


FLAGOFF 


VLOAD 

STORE 

CALL 

EX  IT 
CAF 
TC 
TC 

GOTO 


NOChG 
S34/35o  3 

DELVEET3 
DELVSI N 

S34/3  5o4 

V06N59 

VNPOCH 

INTPRET 

SUBEXIT 


17:53  OECo  19, 1969  KISSING  oOSS  PAGE  681 


USER'S  PAGF  NCo  2?  E7  S3 


gap: 

L 

P0771 

R0772 

R0773 

R077A 

R0775 

R0776 

R0777 

R0778 

R0779 

R0780 

0781 

0782 

0783 

0784 

0785 

0786 

0787 

0788 

0789 

0790 

0791 

0792 

C793 

0794 

0795 

0796 

0797 

0798 

0799 

0800 

0801 

0802 

0803 

0804 

0805 

0806 

0807 

0608 

0809 

0810 

0811 

0612 

0813 

0814 

0815 

0816 

0817 


assemble  revision  131  CF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021112-091 


17:53  OECc  19,1960  KISSING  cn55  PAGE  682 


P3A-P35,  P7A-P75  USER’S  PAGF  NOe  23  E7  S3 

o»oo«  VM645  coooo 

SLBRQUTINES  USED 

P3XnRP7X 

GET+PGA 

BANKCALL 

DELAY  JOB 

COMPTGO 

GOFLASHR 

GCTCFCCH 

FLAGUP 


REF  20 
REF  1 
REF  3 

REF  5 
REF  1 
REF  2 

REF  3 
REF  A 


REF  1 
REF  2 
REF  1 

REF  3 
REF  80 

REF  10 

REF  I 

REF  I 
REF  21 
REF  1 
REF  6 
REF  173 
REF  9 
REF  1 
REF  174 
REF  15 
REF  1 
REF  1 
REF  1 
REF  13 
REF  3 


LAST  681 

LAST  619 

LAST  680 

LAST  682 

LAST  662 
LAST  682 

LAST  682 

LAST  682 
LAST  681 

LAST  681 

LAST  682 

LAST  609 
LAST  680 
LAST  520 

LAST  682 
LAST  680 


LAST  43A 
LAST  655 


35.3515 

35.3516 

35.3517 

35.3520 

35.3521 

35.3522 

35.3523 
35  ,3524 
35,  3525 

35.3526 

35.3527 
35,  353C 
35  ,3531 

35.3532 

35.3533 
35  ,3534 

35.3535 

35.3536 

35.3537 
35,3540 
35  ,3541 

35.3542 

35.3543 
35  ,3544 
35,  3545 

35.3546 

35.3547 
3 5,  3550 
35  ,3551 

35.3552 

35.3553 
35  ,3554 

35.3555 

35.3556 

35.3557 

35.3560 

35.3561 


33651  0 
02253  1 
71214  0 
01351  1 
73543  I 
33651  0 
77615  0 
33651  0 
02253  1 
77414  0 
01742  1 
73543  1 
0 3613  Q 
0 3536  1 
C 3544  1 
0 6042  1 
41575  0 
03656  I 
77624  1 
15725  C 
77776  1 
0 2437  0 
3 1470  0 
55*464  1 
3 4777  1 
C 4616  1 
01736  1 

2 3637  0 
0 4616  1 

20477  1 
C 3560  1 
C 3563  1 
C 357?  0 

3 0005  1 
55*162  1 


VN1645  STQ 


STORE 

BOFF 


DAD 

STORE 

BOFF 


TC 

TC 

TC 

TC 

VLCAD 

CALL 

GET45  EXIT 
TC 
CA 
TS 
CAF 
TC 

CACR 

CAF 

TC 

CACR 

TC 

TC 

TC 

KILCLOCK  CA 
TS 


4 MGA 
DLOAD 
FINALFLG 
GET45 


DP-oCl 


DP-«01 
+ KGA 
EXIT 

REFSMFLG 

GET45 

P3X0RP7X 

+2 

GET-iS  +1 
INTPRET 
PUSH 
DELVSIN 

GET+PGA 

COMPT  GO 
SUBEXIT 
QSAVED 
ISEC 

BANKCALL 

DELAYJOB 

V16N45 

BANKCALL 

GOFLASH 

KI LCLCCK 

N45PR0C 

CLUPCATE 

Z 

DI  SPOEX 


MGA  = -<,01 


MGA  = -o02 


P3X 

P7X 


COMPUTE  MGA 


INITIATE  TASK  TO  UPDATE  TTOGO 


TRKMKCNT,  TTOGO,  +MGA 


TERMINATE 

PROCEED 

RECYCLE  - RETURN  FOR  INITIAL  COMPUTATION 


GAP: 

L 

0818 

0819 

0820 

0821 

0822 

0823 

0824 

0825 

0826 

0827 

0826 

082Q 

0830 

0831 

0832 

0833 

0834 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19,1969  KISSING  .055  PAGE  683 


P34-P35,  PI^-PTS 


USER  'S  PAGE  NOo  ?4  e7  S3 


REF  15 
REF  17 
REF  40 


REF  2 
REF  25 

REF  A2 
REF  6 
REF  14 
REF  4 
REF  26 

REF  81 

REF  10 
REF  2 


LAST  680 
LAST  609 
LAST  565 


LAST  682 
LAST  523 

LAST  680 
LAST  682 
LAST  682 
LAST  682 
LAST  683 

LAST  682 

LAST  680 
LAST  682 


35.3562 

35.3563 

35.3564 

35.3565 

35.3566 

35.3567 

35.3570 

35.3571 

35.3572 
35  ,3573 

35.3574 

35.3575 
35  ,3  576 
35,3577 

35.3600 

35.3601 

35.3602 


C 6CC1  0 
4 0076  1 
7 4746  1 
C 0006  1 
I 3560  0 
C 5353  1 
04024  0 
C 5504  0 
00047  1 
3 0005  1 
55'162  1 
0 5353  1 
04024  0 
C 6C42  1 
52014  0 
00670  0 
C3464  1 


N45PR0C 


CLUPOATE 


TC  GCTCPCCH 

CS  FLAGWRD2 

MASK  BIT6 

EXTEND 

BZF  KILCLOCK 

TC  PHASCHNG 

OCT  04024 

TC  UPFLAG 

AORES  FINALFLG 

CA  Z 

TS  OISPCEX 

TC  PHASCHNG 

OCT  04024 

TC  INTPRET 

CLEAR  GOTO 

UPCAT  FLG 
OSAVFO 


FINALFLG  IS  SET-FLASH  V37-AWAIT  NEW  PGM 


SET 

FINALFLG 


GAP;  ASSEPBLE  REVISION  131  OF  AGC  PRCCRAM  LUMINARY  BY  NASA  2021112-C<51 


L P3A-P35f  P1A-P75 


P0835  oo.oo  CISPLAYE  oeoeo 
R0836  SL8ROLTINES  USED 


R0837  BANKCALL 

R0838  GCFLASHR 

R0839  GOTQPOOH 

R0840  BLANKET 

R0841  ENOCFJCe 


0842 

0843  REF  12  LAST  678 

0844  REF  2 LAST  627 

0845  KEF  175  LAST  682 

0846  REF  16  LAST  682 

0847  REF  16  LAST  683 

0848  REF  13  LAST  684 

0849 


35  ,3604 

35.3605 

35.3606 

35.3607 

35.3610 

25. 361 1 

35.3612 


0 0006  1 
23'463  1 
2 3633  1 

0 A616  1 
20A77  1 

1 6001  I 
C 1A63  1 
1 3605  0 


OISPLAYE  EXTEND 
OXCH 
CAF 
TCR 
CADR 
TCF 
TC 
TCF 


NDRMEX 

V06N55 

BANKCALL 

GOFLASH 

GOTOPOOH 

NCRMEX 

-5 


17: 53  DECo  19,1969 


I SSI NG  t 055  PAGE  684 


USER'S  PAGF  NCc 


25 


£7  S3 


GAP:  ASSEMBLE  REVISION  131  OF  A6C  PRCGRAf/  LUPINARY  BY  NASA  2021112-091 


17:F3  DECj  19,1969  KISSING  -055  PAGE  685 


L P34-P35,  F74-P75  USER’S  PAGE  NCo  26  E7  S3 


P0853 

„ P3XCRP7X 

0*00 

0854 

REF 

2 LAST 

247 

35, 3613 

3 

7747 

1 

P3XORP7X 

CAF 

HIGH9 

0855 

REF 

10  LAST 

501 

35,3614 

7 

1010 

0 

MASK 

MODREG 

C856 

35,3615 

C 

0006 

1 

EXTEND 

0857 

35, 3616 

1 

3620 

1 

BZF 

♦ 2 

0858 

REF 

189  last 

680 

35,3617 

24  002 

0 

INCR 

0 

0859 

35,3620 

0 

0002 

0 

RETURN 

R0860 

0 VNPnOF 

oooo 

-> 

R0861 

SUBROUTINES  USED 

R0862 

BANKCALL 

RQ663 

GCFLASH 

R 0864 

GOTQPOOH 

0865 

35,3621 

0 

0006 

1 

VNPOOH 

EXTEND 

0866 

REF 

6 LAST 

679 

35  ,3622 

23'465 

1 

QXCH 

PTRN 

0867 

ref 

3 LAST 

635 

35,3623 

5 

5'615 

0 

TS 

VERBNGUN 

0668 

REF 

4 LAST 

685 

35 , 3624 

3 

1615 

1 

CA 

VERBNGUN 

0869 

REF 

176  LAST 

684 

35  ,3625 

0 

4616 

1 

TCR 

BANKCALL 

0870 

REF 

17  LAST 

684 

35, 3626 

2C477 

1 

CADR 

GCFLASH 

0871 

REF 

17  LAST 

684 

35,3627 

1 

6001 

1 

TCF 

GDTOPOOH 

0872 

REF 

7 LAST 

685 

35,3630 

0 

1465 

1 

TC 

RTRN 

0873 

35,3631 

1 

3624 

0 

TCF 

-5 
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PO07A  e,»oo  CONSTANTS  ooooo 


0875 

0876 
0677 

0878 

0879 

0880 
0861 
0881 


0882 

0882 

0883 
0863 
0084 

0884 
0886 
0887 

08871 
00871 
03072 

08872 


35  ,3632 

25.3633 

35.3634 
35  ,3635 
35, 3626 
35,3637 
35,36AO 
35,36A1 
35  ,3642 
35,3643 
35,36A4 

35.3645 

35. 3646 

35.3647 

35.3650 

35. 3651 
35  ,3652 

35.3653 

35.3654 

35.3655 


01445  0 
01467  0 

01472  1 

01473  0 
C1521  0 
04055  0 
14441  0 
37325  1 
00001  0 
20650  0 
12525  0 
12525  0 
00CC4  0 
21505  1 
77777  0 
61337  1 
01252  0 
25253  1 
13434  0 
16162  0 


V06N37 

V06N55 

V06N58 

V06N59 

Vr)6N81 

V16N45 

TV.CPI 

MAX250 


CCT 

nc  T 
2DEC 


0637 

0655 

0658 

0659 
0681 
1645 

6<,283185^07  B-4 
25  E3 

*333333333 

*27777777  £-3 

77777 
61337 

*0416666666 
*3611111111 


CONSTANTS 

ADJACENT 


-^01  FCR  MGA  OSP 
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P0868  goeo«  INITVEL  .ogoe 

R0889  MOO  NO  -I  LOG  SECTION  - P34-P35,  P7A-P75 

R0890  MCO  BY  ViHITEgP  DATE  21NCV67 

R0891  FUNCTIONAL  DESCRIPTION 

R0892 
R0893 
R0894 
R0895 
R0896 
R0897 
80898 
R0899 
R0900 
R0901 


THIS  SUBROUTINE'  COMPUTES  THE  REQUIRED  INITIAL  VELOCITY  VECTOR  FOR 
A TRAJECTCRY  OF  SPECIFIED  TRANSFER  TIME  BETWEEN  SPECIFIED  INITIAL 
AND  TARGET  POSITIONS.  THE  TRAJECTORY  MAY  BE  EITHER  CCMC  CR 
PRECISION  DEPENCING  CN  AN  INPUT  PARAMETER  (NAMELY,  NUMBER  CF 
OFFSETS).  IN  ADDITION,  IN  THE  PRECISICN  TFAJFCTCPY  CASE,  THE 
SUBROUTINE  ALSO  COMPUTES  AN  OFFSET  TARGET  VECTOR,  TO  BE  USED 
DUPING  PURE-CCNIC  CRCSS-PRCCUCT  STEERING®  THE  OFFSET  TARGET 
VECTOR  IS  THE  TERMINAL  FCSITICN  VECTOR  OF  A CCNIC  TRAJECTCRY  WHICH 
HAS  THE  SAME  INITIAL  STATE  AS  A PRECISION  TRAJECTORY  WHOSE 
TERMINAL  POSITICN  VECTOR  IS  THE  SPECIFIED  TARGET  VECTOR® 


R0902  IN  ORDER  fO  AVOID  THE  INHERENT  SINGULARITIES  IN  THE  180  DEGREE 

R0903  TRANSFER  CASE  WHEN  THE  (TRUE  OR  OFFSET)  TARGET  VECTOR  MAY  BE 

R0904  SLIGHTLY  OUT  OF  THE  ORBITAL  PLANE,  THIS  SUBROUTINE  ROTATES  THIS 

R0905  VECTOR  INTO  A PLANE  DEFINED  BY  THE  INPUT  INITIAL  PCSITICN  VECTOR 

R0906  AND  ANCTHER  INPUT  VECTCB  (USUALLY  THE  INITIAL  VELOCITY  VECTOR), 

R0907  WHENEVER  THE  INPUT  TARGET  VECTOR  LIES  INSIDE  A CONE  WHOSE  VERTEX 

R0908  IS  THE  ORIGIN  OF  COCRDINATES,  WHOSE  AXIS  IS  THE  180  DEGREE 

R0909  TRANSFER  DIRECTION,  AND  WHOSE  CONE  ANGLE  IS  SPECIFIED  BY  THE  USER® 

R091D  THE  LAMBERT  SUBROUTINE  IS  UTILIZED  FOR  THE  CCMC  COMPUTATICNS  AND 

R0911  THE  CCASTING  INTEGRATION  SUBROUTINE  IS  UTILIZED  FOR  THE  PRECISION 

R0912  TRAJECTORY  COMPLTA T I CN S. 


R0913  CALLING  SEQUENCE 

R0914  L CALL 

R0915  L+1  INITVEL 

R0916  L+2  (RETURN  - ALWAYS) 


R0917  INPUT 


R0918 

R0919 

R0920 

R0921 

R0922 

R0923 

R0924 

R0925 

R09251 

R092  6 


(1)  RINIT  INITIAL  POSITION  RADIUS  VECTOR 

(2)  VIMT  INITIAL  POSITION  VELOCITY  VECTOR 

(3)  RTARG  TARGET  PCSITICN  RADIUS  VECTOR 

(4)  OELLTA  DESIRED  TIME  OF  FLIGHT  FROM  RINIT  TO  RTARG 

(5)  INTIME  TIME  OF  RIMT 

(6)  00  NUMBER  OF  ITERATIONS  CF  L AMfiERT/ I NTEGR VS 

(7)  2D  ANGLE  TC  180  DEGREES  WHEN  ROTATION  STARTS 

(8)  RTXl  -2  FOR  EARTH,  -IOC  FCR  LUNAR 

(9)  RTX2  COORDINATE  SYSTEM  ORIGIN  - 0 FCR  EARTH,  2 FCR  LUNAR 

PUSHLOC  SET  AT  ^C 
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L P2A-P35,  PTA-P^S 

ft0927  OUTPUT 

R0928  (1)  RTARG  OFFSET  TARGET  POSITION  VECTOR 

R0929  (2)  VIPRIME  MANEUVER  VELOCITY  REQUIRED 

R0930  (3)  VTPRIME  VELOCITY  AT  TARGET  AFTER  MANEUVER 

R0931  (A)  OELVEET3  DELTA  VELOCITY  BEQUIREC  FOR  MANEUVER 


R0932  SUBROUTINES  USED 


R0933  LAMBERT 

R0934  INTSTALL 

R0935  INTEGRVS 


0936  PEF 

0937 


SETLOC  INTVEL 
BANK 


0938  REF 

0958 

0959  REF 

0960 

0961  REF 

0962  REF 

0963  REF 

09631 

09632  REF 

0964 

0965  REF 

0967  REF 

0968 

0969  REF 

0970  REF 

0971  REF 

0972 

0973  REF 

0974  REF 

0975 

0976  REF 

09761 

09762  REF 
R0977 


1 


7 LAST  677 
14  LAST  684 
1 

2 LAST  145 

4 LAST  679 
1 

2 LAST  675 

3 LAST  688 

2 LAST  676 

3 LAST  698 

2 LAST  688 

3 LAST  688 

3 LAST  688 
INI TI ALI ZATI CN 


11  ,2000 
11,2001 
11,2002 
11,2003 
ll,20C4 

11.2005 

11 .2006 
H,20C7 
11  ,2010 
11,2011 
11,2012 
11  ,2013 

11.2014 

11.2015 

11.2016 
11,2017 
11  ,2020 
11,2021 
11,2022 
11  ,2023 

11. 2024 

11.2025 


77614  1 
C0475  I 
44175  1 
03444  0 
C3463  C 
03472  0 
77646  0 
C3723  1 
46135  1 
03000  1 
22026  0 
72575  0 
C2323  1 
26323  1 
02331  1 
77752  1 
26331  1 
03472  C 
77752  1 
03472  0 
77646  0 
03723  1 


COUNT’ 

INITVEL  SET 
HAVEGUES  VLOAD 


STORE 

ABVAL 

STORE 

SLOAD 


VLCAO 


STOVL 

VSL2 

STCVL 


VSL2 

STORE 

ABVAL 

STORE 


GUESSU 

STQ 

RTARG 

NORMEX 

RTARGl 

RTMAG 

BHIZ 

RTX2 

INITVELl 
VSL2 
PIMT 
R INIT 
VIMT 

VINIT 
RTARGl . 

RTAPGl 

RTMAG 


0978 

0979 

0980 

0981 

0982 

0983 

0984 

0985 

0986 


REF  1 

REF  1 

REF  288  LAST 
REF  2 LAST 


670 

126 


11  ,2027 

11.2030 

11.2031 
11  ,2032 

11.2033 

11.2034 

11.2035 

11. 2036 


71331  0 
03617  1 
77776  I 
70546  1 
17667  0 
67154  0 
00154  1 
02701  0 
77775  1 


INITVELl  SSP  DLOAC 
ITCTR 
0 -1 

COSINE  SRI 
STOOL  C0ZY4 
LXA,2  SXA,2 
MPAC 

VTARGTAG 


VLOAD 
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COGA  GUESS  NOT  AVAILABLE 


829 

B27 

67 

B5 


SET  ITCTR  TO  -1,LCAC  MPAC  WITH  E4{PL  201 

CALCULATE  COSINE  ( E4  ) (+2> 

SFT  C0ZY4  TO  C0SINF(E4)  < PL  00) 


SET  VTARGTAG  TO  OD  ( SP ) 


GAP: 
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0987  REF  A 

0988  REF  3 

0989  REF  4 

0990  REF  2 

0991  REF  4 

0992  REF  2 

0993 

0994 

0995  REF  5 

0996 

0997 

0998  REF  4 

0999  REF  2 

1000  REF  5 

1001 
1002 

1003  REF  2 

1004  REF  1 

1005  REF  3 

1006 

1007  REF  1 

1008  REF  2 

R1009  ROTAT 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 


LAST 

LAST 

LAST 


LAST 

LAST 


688  11,2037 

126  11,2040 

688  11,2041 

126  11,2042 

675  11,2043 

126  11,2044 

11.2045 

11.2046 

689  11,2047 
11,2050 
11  ,2051 

688  11,2052 

126  11,2053 

689  11  , 2054 
11, 2055 
11  ,2056 

688  11,2057 
11,2060 

689  11  ,2061 
11,2062 
11,2063 

689  11  ,2064 

INTO  YC  PLANE  - 


C2323  1 
26655  0 
03472  0 
16663  0 
03452  1 
02671  0 
77201  I 
00001  0 
02323  1 
41456  0 
53435  0 
02331  1 
26674  0 
03472  0 
50256  0 
43015  1 
03667  0 
C3665  1 
03667  0 

43044  O INITVEL2 
22105  0 
03465  0 

SET  UNIT  NORMAL  TO 


STOVL 

STCDL 


UNIT 

vxv 


UNIT 

DAD 


STORE 

BPL 


RIMT 

RIVEC 

PTARGl 

P2VEC 

0ELLT4 

TDESIREO 

VLCAD 

00 

RIMT 

PUSH 

UNIT 

VIMT 

UN 

RTARGl 

DOT 

CLEAR 

CCZY4 

NDRMSt, 

C02Y4 

SET 

INITVEL3 

NORMSW 


1010 

1011  REF  3 

1012 

1013 

1014  REF  3 

1015 

1016 

1017 

1018  REF  4 

1019 

1020  REF  2 

1021  REF  2 

1022 

1023  REF  2 

1024  REF  5 

1025  REF  6 

1026 

1027  REF  1 

1028  REF  6 

1028C2 

102804  REF  4 

102806 
1028Ce 
10281 
10282 
10283 


LAST 


LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 


689 

689 

689 

37 

686 

669 

669 

689 

689 

689 


11  ,2065 
11,2066 
11,2067 
11  ,2070 
11,2071 
11  ,2072 
11  ,2073 

11.2074 

11.2075 
U ,2076 
11,2C77 
11  ,2100 
11  ,2101 
11,210  2 
11  ,2103 

11.2104 

11.2105 

11.2106 
11,2107 
11  ,2110 
11, '2111 
11,2112 

11.2113 

11.2114 
11  ,2115 
11  ,2116 


41575  0 
02663  0 
63246  1 
46206  1 
C2674  P 
51352  1 
74256  0 
77772  0 
02663  0 
67351  I 
24007  0 
03617  1 
77244  0 
22105  0 
02663  0 
C3472  0 

63345  0 INITVEL: 

260C7  1 

C2663  0 

63256  0 

02655  0 

41456  0 

57435  I 

00003  1 

77606  1 

71350  I 


VLOAD  PUSH 
P2VEC 

ABVAL  POVL 
PUSH  VPROJ 
UN 

VSL2  BVSU 
UNIT  VXSC 
VSLl 

STORE  R2VFC 
TLCAO  SLCAC 

ZERCVEC 
ITCTR 
BPL  VLCAC 

INI TVEL3 
P2VEC 

STORE  RTARGl 
DLOAO  PDVL 

MU  EARTH 
R2VEC 

UNIT  POVL 
R1  VEC 

UNIT  PUSH 
VXV  VCOMP 

2D 

PUSH 
LXA,] 


OLGAD 
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RIVFC  EQ  RIMT 

R2VEC  60  RTARG 

TDESIREO  EO  DELLT4 

INI  TIALIZE  PI  TO  ^0 
MPAC  60  P IN  IT  ( +29 ) 

UMT(RI  I 1+1  ) (PL  6D) 

MPAC  EO  UNITIRI  ) X VI  (+9) 


TFMP=URTr.UR  I ( +2  ) 


(PL  OD) 


UN  CALCULATED  IN  LAMBERT 


RC  TO  60  (+29) 

RC  TO  MPAC,  AeVAL(RC) 


(PL  6D) 

( +20  ) TO  (^D(  PL  20  ) 
(PL  80) 


(PL  no) 


(PL  20) 

POSITIVE  VALUE 

20  = UNIT(R2VEC)  (PL  80) 


(PLl^D) 


80  = UNITIRIVEC) 

-N  = UNIT(R2VFC)  X UNITIRIVEC) 


(PL20D) 


ASSEMBLE  REVISION  131  CF  AGC  PRCGRAf'  LUMINARY  BY  NASA  2021112-091 


1028A 

10285 

10286 

10287 

10288 
10289 
1029 

10291 

10292 

10293 
1029A 

10295 

10296 

1032 

1033 

1034 

1035 

1036 

1037 
R1038 


P34-P35,  P74-P75 


LAST  664 


REF  14  LAST  671 


LAST  126 


11  ,2117 
11  ,2120 
11,2121 
11  ,2122 

11.2123 

11.2124 
11  ,2125 
11,2126 
11,2127 

11.2130 

11.2131 
11  ,2132 

11.2133 

11.2134 

11.2135 

11.2136 

11 .2137 

11.2140 

11.2141 


02776  0 
C0023  0 
62040  1 
22124  0 
77767  I 
67310  1 
00012  1 
0CC47  1 
77230  0 
22132  1 
41476  1 
77775  1 
50235  0 
71244  0 
22137  1 
41476  1 
67154  0 
COOOO  1 
C2672  0 


BHIZ 

VCOMP 

VLOAD 

VXV 

BPL 

OCOMP 

LXA,2 


PTXl 
38D 
INCR  ,1 


SLOAD 

300 


PUSH 

DOT 
DLOAD 
IN  ITVEL4 
PUSH 
SXA,  2 
00 

GETPSCN 


SET  INPUTS  UP  FCB  LAMBERT 


R 1044 

1045 

1046 

1047 
R104a 
R1049 

1050 

R1051 

R1052 

R1053 


11.2142 

11.2143 
11  ,2  144 
11,2145 


66350  1 
02776  n 
00027  1 
C0024  1 


SSP 
P TXl 
ITERCTR 
200 


OPERATE  THE  LAMBERT  CONIC  RCUTINE  ICOASTFLT  SUBROUTINE! 

11,2146  77624  1 CALL 

REF  1 11,2147  25212  1 LAMBERT 

ARRIVED  AT  SOLLTICN  IS  60CD  ENCUGH  ACCORDING  TO  SLIGHTLY  WIDER  BOUNDS 

11,2150  77214  0 CLEAR  VLCAD 

REF  2 LAST  66B  11,2151  C0675  0 GUESSW 

REF  8 LAST  665  11,2152  02744  1 VV6C 

STORE  CALCULATED  INITIAL  VELOCITY  REQUIRED  IN  VIPRIME 


REF 


LAST  665  11,2153  16337  1 


STOOL  VIPRIME 


IF  NUMIT  IS  ZERC,  CCNTINUE  AT  INITVELB,  CTHERWISE 
SET  UP  INPUTS  FOR  ENCKE  INTEGRATION  (INTEGRVSI-, 


1054  REF  3 LAST  688  11,2154 

1055  11  ,2155 

1056  REF  1 11,2156 

1057  REF  20  LAST  679  11,215? 

1061  11,2160 

1062  REF  5 LAST  688  11,2161 

1063  REF  5 LAST  679  11  ,2162 

1064  11,2163 


02702  0 
45030  0 
22233  0 
27410  1 
43135  1 
C30CO  1 
00263  0 
43030  0 


VTARGTAG 
BHIZ  CALL 

I N1TVEL7 
INTSTALL 
SLCAD  CLEAR 
PTX2 

MOONFLAG 
BHIZ  SET 
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(PL14D) 

(PL2f'OI 
( PL14D) 
(PL  2DI 
(PL  00) 

(PL  2DI 


INITIAL  VELOCITY  REQUIRED  (+7) 
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1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 
1C76 

1077 

1078 

1079 

1080 
1081 
1082 

R1083 

R1084 


LAST  690 


REF 
REF 
REF 
REF 
REF 
REF 
REF 

REF 
REF 
REF 
REF 

REF 
REF 
IF  ITER 
INITVELC 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

ATIOM 

CTHE 


669 

689 
679 

690 
679 
675 
679 

689 

679 

679 

679 

658 
126 
COUNT 
RV»I  SE 


11  ,2164 

11.2165 

11.2166 
11,2167 
11,2170 
11  ,2171 

11.2172 

11.2173 
LI  ,2174 

11.2175 

11.2176 
U ,2177 
11,2200 
11,2201 
11,2202 
11,2203 
11  ,2204 
11,2205 

ER  (ITCTR) 
REITERATE 


INITVEL5  VLOAD 


22166  0 
CC063  I 
77775  1 
02323  I 
C2655  0 
25535  0 
02337  1 
15543  1 
03610  0 
C1517  0 
43015  1 
03452  1 
C1  673  1 
34G41  0 
27106  0 
77775  1 
00025  0 
C2703  1 
EO  NO*  IT 
LAMBERT  AND  ENCKE 


STCALL 

VLOAD 


STORE 

(NUMITI 


R IN  IT 
RIVFC 
PCV 

VIPPINE 

VC  V 

INTIME 

TET 

CLEAR 

DELLT4 

I NTYPFLG 

TDECI 

INTEGRVS 

VATTl 
VTAPGET 
, CONTINUE  AT 


1095 

1086 

1087 

1068 

1089 

1090 

1091 

1092 

1093 
R1094 


11,2206 

LAST  689  11,2207 

11,2210 
11, 2211 
LAST  691  11,2212 

LAST  69C  11,2213 

11,2214 
11  ,2215 
11,2216 


LAST  658 


oooni 

55134 
03616 
02701 
46135 
000  50 
22230 


OFFSET  CONIC  TARGET  VECTCR 


1096  11,2217  52375  1 

1097  REF  7 LAST  689  11,2220  03472  0 

1098  REF  5 LAST  658  11,2221  00017  1 

1099  11,2222  77655  1 

1100  REF  7 LAST  689  11  ,2223  02663  0 

1101  REF  8 LAST  691  11,2224  16663  0 

1102  REF  4 LAST  689  11,2225  03667  0 

1103  11,2226  77650  1 

1104  REF  1 11,2227  22C62  0 

R1105  CCMPLTE  THE  DELTA  VELCCITY 


10 

XSU,2 

ITCTR 

VTARGTAG 

BHIZ 

X2 

IN1TVEL6 


1106 

1107 

1108 

1109 

1110 
1111 


LAST  691 


11.2230 

11. 2231 
ll  ,2232 

11.2233 

11.2234 
11  ,2235 


77775  1 
02663  0 
03472  0 
52375  1 
02337  1 
02331  1 


INITVEL6  VLCAC 

STORE 
IN1TVEL7  VLCAO 


P2VEC 

RTARGl 

vsu 

VIPRIME 

VINIT 
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increment  ITCTR 


IF  SPIMPACI  EQ  0,  CONTINUE  AT  IMITVELC 


CONTINUE  ITERATING  AT  INITVEL2 


gap: 
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L P2A-P35, 


P7A-P75 


1112  REF 

1113  REF 
lllA  REF 

1115 

1116  REF 

1117  REF 

11171 

11172  REF 
1116  REF 

1119  REF 

1120 

1121  REF 

1122  REF 

1123 

112A  REF 

1125  REF 

1126 

1127  REF 
1129 

11281  REF 

11282  REF 
112825 

11283  REF 
11289 

11285  REF 

11286  REF 

11287 
112871 
112875  REF 

11288 

1129 

1130  REF 

1131  REF 

1132 

1133  REF 
1139  REF 

RU35 

R1136 


8 LAST  681 
3 LAST  691 
2 LAST  665 

6 LAST  690 


3 LAST  692 
9 LAST  692 

5 LAST  691 

6 LAST  692 
9 LAST  691 


10  LAST  692 
9 LAST  692 

10  LAST  692 

8 LAST  690 
1 

3 LAST  65? 

9 LAST  653 
2 LAST  195 


2 LAST  145 


11  LAST  692 
8 LAST  680 

3 LAST  697 
15  LAST  688 


11»2226 
11 *2237 
11*2290 
11*2291 
ll  ,2292 
11,2293 
11*2299 
11,2295 
11*2296 
11,2297 

11.2250 

11.2251 
11  ,2252 
11,2253 
11,2259 
11  ,2255 
U,2256 
11,2257 
11  ,2260 
11,2261 
11  ,2262 
11,2263 
11,2269 
11  ,2265 

n ,2266 

11,2267 
11  ,2270 

11.2271 

11.2272 
U ,2273 
11,2279 
11  ,2275 

11.2276 

11.2277 
11  ,2300 
11,2301 


o END  OF  INITVEL  RCUTINE 


26366  C 
02703  1 
03566  1 
96135  1 
03000  1 
22260  0 
7C575  1 
03566  1 
27566  1 
02337  1 
77792  0 
26337  1 
03972  0 
77792  0 
27972  0 
02366  0 
77792  C 
02366  0 
70750  1 
02776  0 
10003  0 
91206  0 
C2792  1 
56392  1 
00C91  1 
17721  0 
77661  0 
20607  I 
03717  0 
77201  1 
COCCI  0 
03972  0 
03999  0 
52C19  0 
01267  0 
03963  C 


STOVL 

STORE 

SLCAD 


VL0AD 

STCVL 

VSR2 

STOVL 


VSR2 

STOVL 


VSR2 
STORE 
INITVELX  LXA.l 


PUSH 

SRI 

STOOL 

SR 

STORE 

SETPD 


STORE 

CLEAR 


DELVEET3 

VTARGET 

VTPRIME 

BHI  Z 

PTX2 

INITVELX 

VSR2 

VTPRIMF 

VTPRIME 

V IPR I ME 

VI  PRI HE 
RTARGl 

R TARGl 
DELVEET3 


DELVEET3 

DLCAC* 

RTXl 

MUTABLE  - 

DMP 

RIA 

OCV 

R) 

MU/A 


6 

MUASTEER 

VLCAC 

00 

RTARGl 

RTARG 

GOTO 

XOELVFLG 

NORMEX 


17:53  OECo  19,1969  KISSING 
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692 
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USER’S  PAGE  NCc 


P1137  MICGIM  ««««« 


R113e  MOD  NO*  Oi  By  KILLMAN,  subroutine  RENDGUIDi  LOG  P34-P35,  P74-P75 
R1139  REVISICN  03,  17  FEB  67 

RllAO  IF  THE  ACTIVE  VEHICLE  IS  CCING  THE  COMPUTATION,  MIDGIM  CCMPUTFS 

R1141  THE  POSITIVE  MICOLE  GIMBAL  ANGLE  OF  THE  ACTIVE  VEHICLE  TO  THE  INPUT 
R11A2  DELTA  VELOCITY  VECTOR  (OC  IN  PUSH  LISTI,  CTHERHISE 

R11A3  MIOGIM  CONVERTS  THE  INPUT  DELTA  VELOCITY  VECTOR  FROM  INERTIAL  CCCRCIN- 
R1144  ATES  TO  LOCAL  VERTICAL  COOKOINATES  OF  THE  ACTIVE  VEHICLE* 


R11A5  ««  INPLTS  eo 

R1146  NAME  MEANING  UNI TS /SC AL I NG/ MODE 

R1147  AVFLAG  INT  FLAG  - 0 IS  CSM  ACTIVE,  1 IS  LEM  ACTIVE  BIT 

R11A9  RINIT  ACTIVE  VEHICLE  RADIUS  VECTOR  METEPS/CSEC  (+7)  VT 

R1150  VIMT  ACTIVE  VEHICLE  VELOCITY  VECTOR  METERS/CSEC  (+7)  VT 

R1151  00  (PL)  ACTIVE  VEHICLE  DELTA  VELOCITY  VECTOR  METERS/CSEC  (47)  VT 


R1152  *o  OUTPUTS  ** 


R1153  NAME 


MEANING 


UNITS/SCALING /MODE 


R1154 
R1155 
R 11  56 


+MGA  4 MIDDLE  GIMBAL  ANGLE 
CELVLVC  DELTA  VELOCITY  VECTOR  IN  LV  COORD* 
MGLVFLAG  INT  FLAG  - 0 IS  4MGA  CCMPUTEC,  1 IS 


REVOLUTIONS  (+0)  DP 
METERS/CSEC  (47)  VT 
CELVLVC  COMP*  - BIT 


R1158 

R1159 

R1160 


R1161 

R1162 

R1163 

R1164 


CALL 


NO  S 
OEBR 

ALAR 


ING  SEQUENCE  ** 

CALL 

MIOGIM 

(RETURN  - ALWAYS) 

UBROUTINES  CALLED  * * 

IS  - ERASEA6LE  TEMPCRARY  LSAGE 
G,L,  PUSH  LIST,  MPAC* 

MS  - NONE  ** 
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PU65  MIDDLE  GIMBAL  ANGLE  CCMPUTATICN* 


REF 


I 


1168 

1169 

1169 

1176 
11765 

1177 

1178 

1179 

1180 
1181 
1182 
1183 
118A 
1185 
1166 

1191 

1192 

1193 
119A 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 
R1207 


COUNT*  tt/MIDG 


REF  16  LAST  597 


REF 

REF 

REF 


6 LAST  691 


LAST  680 


LAST  694 


Q6t3723 

06,3724 

J6,3725 

06.3726 

36.3727 
76,3730 
06,373) 

06.3732 

06.3733 

06.3734 
06  ,3735 
06  ,3736 
06,3737 
06  ,3740 

06.3741 

06 . 3742 

06.3743 

06.3744 

06.3745 
06  ,3746 
06,3747 
06  ,3750 

06.3751 

06.3752 
06  ,3753 
06,3754 
06  ,3  755 

06.3756 

06.3757 
06  ,3760 


20000  0 
00000  1 
53575  0 
77656  1 
72441  0 
01742  1 
51136  1 
15736  1 
43215  0 
15724  1 
15724  1 
02253  1 
43414  1 
02675  1 
53575  C 
02323  1 
77676  0 
CCC23  0 
53435  0 
C2331,  I 
00015  0 
53435  0 
00C23  C 
24C07  0 
00001  0 
76521  0 
00007  0 
03434  1 
43414  1 
02475  0 


HALFREV  2DEC 


UNIT 


DOT  SLl 

REFSMMAT  +6 
ARCSIN  BPL 

SETMGA 
OAC  DAO 

HALFREV 

HALFRFV 

SETMGA  STORE  +MGA 

CLR  RVQ 

MGLVFLAG 

GEToLVC  VLCAU  UNIT 

RINIT 


VCOMP 

STORE 

VXV 


STOVL 

MXV 


STORF 

SET 


T 8D 
UNIT 
VINIT 
120 
UN  IT 
18D 
6D 
00 


DELVLVC  ‘ 
RVQ 

MGLVFLAG 


END  OF  MIOGIM  ROUTINE 
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(PL  OD)  V (+71  TO  MPAC,  UMTIZE  UV  (+11 

OCT  UV  WITH  YISTABLE  MEMBER!  AND  RESCALE 
FROM  +2  TO  +1  FOR  ASIN  ROUTINE 


CONVERT  -MGA  TO  +MGA  BY 
ADDING  ONE  RFVCLUTIPN 


CLEAR  MGLVFLAG  TO  INDICATE  +MGA  CALC 
AND  EXIT 

(PL  60  R (+29)  IN  MPAC,  UNITIZE  UR 
U(-R  1 

U(-PI  TO  leo 

U1-R)*V  EQ  V»U(R)  , U(V*P) 

U(V*«»  TO  12D 

U( V*R )*U(-R > , U( ( V*P )*{-R » ) 

TRANSFORMATION  MATRIX  IS  IN  6D  (+1) 
DELTA  V ( +7  » IN  00 

CONVERT  FROM  INEP  CCGR  TO  LV  COOR  (+8) 
AND  SCALE  +7  IN  MPAC 
STORE  IN  DELVLVC  ( +7) 

SET  MGLVFLAG  TC  INCICATE  LVC  CALC 
AND  EXIT 
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P 1208 
1208  2 

12084  REF  1 

1208E 

12088  REF  I 


10,2000 

10,2000 

10,2000 


BANK  10 
SETLOC  SLCTMU 
BANK 

CCUNT*  SS/MIDG 


1210 

1211 

1212 

1213  REF  4 

1214  REF  1 

1215 

1216 

1217 

1218 

1219  REF  2 

1220  REF  9 

1221  REF  4 

1222  REF  3 

1223 

1224  REF  5 

1225  REF  1 

1226 

1227  REF  4 

1228 

1229  REF  7 

1230  REF  7 

1234 

1235  REF  6 


LAST  679 


LAST  692 
LAST  692 
LAST  640 
LAST  695 

LAST  695 


LAST  653 

LAST  692 
LAST  683 


LAST 


10,2  000 
10,2001 
10,2002 
10,2003 
1C,20C4 

10.2005 

10.2006 
10,2007 
10  ,2010 
10,2011 
10,2012 

10.2013 

10.2014 

10.2015 

10.2016 
10,2017 
10,2020 
10,2021 
10 ,2022 
10  ,2023 

10.2024 

10.2025 

10.2026 
10,2027 


77160  0 
00002  0 
COOOO  1 
77614  1 
C4343  1 
20C11  0 
77160  0 
C0012  1 
00002  0 
66143  1 
lOOll  0 

02776  0 
22317  1 
10003  0 
54214  1 
C4343  1 
20022  0 
206C7  1 
02221  0 
43134  0 

02777  1 
01271  1 
77650  1 
72515  1 


SELECT  MU 


SETMUER 


RTRNMU 


AXC,1  AXT,2 
2D 
00 

eOFF 

CMCCNFLG 
SETMUER 
AXC,1  AXT,2 
100 
20 

DLCAD*  SXA,1 

MUTABLE  +‘ 
RTXl 

STCDL#  RTSRl/MU 
MUTABLE 
BCFF  SR 

CMCGNFLG 

RTRNMU 

60 

STORE  RTMU 
SXA,2  CLEAR 
RTX2 

F INALFLG 

GCTO 


666 


VN1645 


17:53  DECo  19,1969  KISSING  £.055  PAGE  695 
USER'S  PAGE  NCe  36  E7  S3 


[ 
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P1236  ••»««  PERIAPO  oeoeo 


R1237  PCD  NO  -1  LOG  SECTION  - F34-F35,  P74-P75 

R1238  MOD  BY  ViHIlEcP  DATE  18JAN68 


R1239  FLNCTICNAL  CESCRIPTICN 

R12A0  THIS  SUBROUTINE  CCPPUTES  THE  TWC  BOCY  APCCENTER  AND  PERICENTER 

R1241  ALTITUDES  GIVEN  THE  POSITION  AND  VELOCITY  VECTORS  FOB  A PCINT  ON 

R1242  THE  TRAJECTCBY  AND  TFE  PRIMARY  ECOYo 


R1243  SETRAD  IS  CALLED  TO  DETERMINE  THE  RADIUS  CF  THE  PRIMARY  BCDY* 

R1244  APSIDES  IS  CALLED  TO  SOLVE  FOR  THE  TWO  BODY  RADII  OF  APOCENTER  AND 

R1245  PERICENTER  AND  THE  ECCENTRICITY  CF  THE  TRAJECTORY, 


R1246  CALLING  SEQUENCE 

R1247  L CALL 

R12A8  L+1  PERIAFC 

R1249  L+2  (RETURN  - ALWAYS) 


R1250  INPUT 


R1251 
R1252 
R1253 
R1254 
R1255 
R 1256 


(1)  RVEC  POSITION  VECTOR  IN  METERS 

SCALE  FACTOR  - EARTH  +29,  MOON  +27 

(2)  VVEC  VELOCITY  VECTOR  IN  METERS/CENT  ISECONO 

SCALE  FACTOR  - EARTH  +7,  MOCN  +5 

(3)  XI  PRIMARY  BCCY  INDICATOR 

EARTH  -2,  MOCN  -IP 


R1257  OUTPUT 


R125e 
R1259 
K1260 
R 1261 
R1262 
R1263 
R1264 
R1265 
R 1266 
R1267 
R1268 
R1269 
R1270 


(1)  2C 
(2  ) 4C 
( 3 I 60 
(41  80 

(5)  ecc 

(6)  XXXALT 

(7)  PUSHLOC 


APCCENTER  RADIUS  IN  METERS 
SCALE  FACTOR  - EARTH  +29,  MCCN  +27 
APCCENTER  ALTITUDE  IN  METERS 
SCALE  FACTOR  - EARTH  +29,  MOON  P27 
PERICENTER  RADIUS  IN  METERS 
SCALE  FACTCR  - EARTH  +29,  MOON  +27 
PERICENTER  ALTITUDE  IN  METERS 
SCALE  FACTOR  - EARTH  +29,  MOON  +27 
ECCENTRICITY  CF  CONIC  TRAJECTORY 
SCALE  FACTCR  - +3 

RADIUS  OF  THE  PRIMARY  BODY  IN  METERS 
SCALE  FACTOR  - EARTH  +29,  MOON  +27 
EQUALS  100 


R1271  SUBROUTINES  USED 


R1272 


SETRAD 
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APSIDES 


127A  REF 
1275 


23,2000  SETLCC  APCPERI 

23,2337  BANK 


1276 


REF 


COUNT*  $$/PERAP 


1277 
1277 
A 1278 


23,2337  00302  0 RPAD 

23,23A0  17755  C 


2DEC  6373338  B-29  STANDARD  RADIUS  OF  PAD  37-Bo 
= 20  909  901b  57  FT 


1279 

1200-  REF 
1281 

1282  REF 

1283 

120A  KEF 

1285 

1286  REF 

1287 

1288  REF 

1289  REF 

1290  REF 

1291  REF 

1292 

1293 
129* 

1295  REF 

1296 
1207 

1298  REF 

1299 

1300  REF 


8 LAST 

9 LAST 
10  LAST 

7 LAST 

16  LAST 
1 

2 LAST 
1 

3 LAST 

* LAST 

17  LAST 


695 

690 

695 

66* 

692 

1** 


607 

697 

697 


23,23*1 
23,23*2 
23,23*3 
23,23** 
23,23*5 
23,23*6 
22,23*7 
23  ,2350 

23.2351 

23.2352 
23  ,2353 
23,225* 

23.2355 

23.2356 

23.2357 

23.2360 

23.2361 

23.2362 
23  ,2363 
23,236* 

23.2365 

23.2366 


5375*  1 
02777  1 
57176  0 
267**  1 
53750  0 
02776  C 
57176  0 
02655  0 
*5020  1 
03*63  0 
*6367  1 
37671  0 
2570*  0 
*1*01  1 
QC0C3  1 
65225  1 
C3671  1 
OOCOl  0 
*5206  1 
C3671  1 
52006  0 
03*63  0 


PERIAPCl 


PERIAPO 


LXA,2  VSR* 
RTX2 
0,2 

STCVL  VVEC 
LXA.l  VSR* 
RTXl 
0,2 

STORE  PVEC 
STQ  CALL 

NORPEX 
SETRAD 
STCALL  XXXALT 
APSIDES 
SETPD  PUSH 
2D 

OSU  POOL 

XXXALT 

OD 

PUSH  DSU 

XXXALT 
PUSH  GOTO 

NORPEX 


20  = APOCENTER  RADIUS  B?9  OR  B27 

*D  = APOGEE  ALTITUDE  B29  OR  B27 

6D  = PERICENTER  RADIUS  B29  OR  B27 

80  = PERIGEE  ALTITUDE  B29  OR  B27 
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P1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 


SETRAD 
REF  1 
REF  10 

REF  11 
REF  1 

REF  3 


LAST  691 

LAST  698 

LAST  202 


23,2367  41545 

23.2370  06340 

23.2371  63L30 

23.2372  C0047 

23.2373  00002 

23.2374  46135 

23.2375  00050 

23  ,2376  46402 

23,2277  51575 

23.2400  02023 

23.2401  77725 

23.2402  43545 


C SETRAO  OLCAO 

0 

0 SXA,1 

1 
0 

1 SLCAO 

1 
0 

1 VLCAO 

I 

1 PCCL 

1 SETRAOX  OLCAO 


PUSH 

RPAD 

INCP,2 

X2 

20 

BHTZ 

X2 

SETRAOX 

ABVAL 

RLS 

RVO 
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iAP: 

’1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 
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PRECSET 

REF  Ifi 
REF  2 
REF  4 

REF  1 

REF  3 
REF  29 
REF  3 

REF  1 

REF  19 

REF  15 
REF  3 
REF  4 
REF  20 
REF  11 
REF  13 


REF  16 
REF  4 
REF  4 
REF  11 
REF  12 
REF  fl 


LAST  697 
LAST  627 
LAST  621 


LAST  699 
LAST  691 
LAST  2C9 


LAST  699 


LAST  679 
LAST  634 
LAST  672 
LAST  679 
LAST  675 
LAST  677 


LAST  699 
LAST  699 
LAST  672 
LAST  675 
LAST  699 
LAST  675 


23  ,2403 

23.2404 

23.2405 

23.2406 
23,24C7 
23  ,2410 

23.2411 

23.2412 

23.2413 

23.2414 

23.2415 

23.2416 

23.2417 

23.2420 

23.2421 

23.2422 
23  ,2423 

23.2424 

23.2425 

23.2426 

23.2427 
23,2430 
23,243) 

23.2432 

23.2433 
22,2424 

23.2435 

22.2436 

22.2437 
23  ,2440 


77620  0 
C3463  0 
27574  C 
27056  1 
77624  1 
46421  1 
77745  1 
03574  1 
3404)  0 
27C42  1 
77624  1 
46431  0 
7765C  1 
03463  0 
43175  0 
OOCOl  0 
01352  1 
46435  1 
27536  1 
00007  0 
03544  1 
77616  0 
43175  0 
00001  0 
01352  1 
46425  0 
27552  0 
OCC07  0 
C356C  ) 
77616  0 


PRECSET 


LERSTORE 


ACTIVE 


CSRSTORE 


PASSIVE 


STQ 

STCALL 

CALL 

DLOAO 

STCALL 

CALL 

GOTO 

VLCAD 

STOVL 

STORE 

RVQ 

VLOAO 

STOVL 

STCRE 

RVQ 


NORMEX 
TDEC2 
L EMPRFC 

LEMSTORE 

TDEC2 

TOECl 

CSRPREC 

CSMSTORE 

NORMS  X 

BOFF 

RATT 

AVFLAG 

PASSIVE 

RACT3 

V ATT 

VACT3 

BOFF 

RATT 

AVFLAG 

ACTIVE 

P-PASS3 

VATT 

VPASS3 


GAP: 

L 

P13A5 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 
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VECSHIFl 

REF  9 LAST  697 

REF  11  LAST  697 


23.2441 

23.2442 

23.2443 

23.2444 

23.2445 
23  ,2446 
23,2447 
23,2450 


53754 

C2777 

57176 

63350 

C2776 

63257 

57176 

77616 


1 

1 

0 

J 

C 

1 

0 

0 


VECSHIFT  LXA,2 


LXA  ,1 
VSR# 
RVO 


VSR# 
RTX2 
0,  2 
POVL 
RTXl 
PDVL 
0 ,2 
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P135A  SHIF7R1 

1355 

1356  REF  10  LAST  700 

1357 


23,2A51 
23, 2^152 
23,2453 


53754  I SHIFTRl  LXA,2  SL* 
02777  1 RTX2 

57576  1 0,2 


135B 


23,2A54  77616  0 


RVQ 
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P1359  FRCGPflM  DESCRIPTION 

R1360  SIBROLTINE  NAME  R36  CUT-CF-FLANE  RENDEZVOUS  ROUTINE 

R1361  MOD  NO,  0 DATE  22  DECEMBER  67 

R1362  MCO  BY  ^oMcN£VILLE  LCG  SECTION  EXTENDED  VERBS 

R 1363  FUNCTIONAL  DESCRIPTICN 

R136A  TC  DISPLAY  AT  ASTRONAUT  REQUEST  LGC  CALCULATED  RENDEZVOUS 
R1365  OLT-OF-PLANE  PARAMETERS  (Y  , YCCT  , PSD,  (REQUESTED  BY  DSKY), 

R1366  CALLING  SEQUENCE 

R1367  ASTRONAUT  REQUEST  THROUGH  DSKY  V SO  E 
R1368  SUBROUTINES  CALLED 


R1369  EXDSPRET 
R1370  GCMARKF 
R1371  CSMPREC 
R1372  LEMPREC 
R1373  SGNAGREE 
R137A  LCACTIME 


R1375 

R1376 

R1377 

Rl37e 

R1379 

R13B0 

R 1381 
R1382 

R1383 

R 138A 

R1385 

R1386 

R1367 

1388 

1389 

1390 


NCRMAL  EX  IT  MODES 

ASTRONAUT  REQUEST  THROUGH  DSKY  TC  TERMINATE  PROGRAM  V 34  E 

ALARM  OR  AEORT  EXIT  MODES 

NCNE 

OUTPUT 

CECIMAL  DISPLAY  OF  TIME  t Y , YDCT  AND  PSI 

DISPLAYED  VALUES  Y , YDCT  , A^D  PSI  , ARE  STORED  IN  ERASABLE 
REGISTERS  RANGE  i RRATE  AND  RTHETA  RESPECTIVELY, 

ERASABLE  I NIT  I AL I Z AT  1 CN  RECUIREC 

CSM  AND  LEM  STATE  VECTORS 

DEBRIS 


CENTRALS  A ,Q,L 

OTHER  THOSE  USED  BY  THE  ABOVE  LISTED  SUBROUTINES 


REF 


20 

04 

04 


,2115 

,2000 

,2642 


BANK  20 
SETLCC  R36LM 
BANK 
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1391  REF  18  LAST  677 

1392  REF  1 


EBANK=  TIG 
COUNT*  $S/R36 


1393 

1394  REF  19 

1395  REF  6 

1396  REF  1 

1397  REF  177 

1398  REF  9 

1399  REF  36 

1400 
140L 

1402  REF  82 

1403 

1404  REF  7 

1405  REF  1 

14Cg  REF  30 

1410  REF  1 

1411 

1412  REF  13 

1413  REF  17 

1414  REF  2 

1415 

1416 

1417 

1418  REF  1 

1419  REF  9 

1420  REF  31 

1421  REF  1 

1422 

1423  REF  14 

1424  REF  18 

1428 

1429 

1430  REF  3 

1431 

1432  REF  2 

1433  REF  9 

1434 

1435 

1436  REF  3 

1^37  REF  5 

1438 

1439 

1440 

1441 

1442 

1443 
1443C5 

1444 


LAST 

LAST 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 


LAST 

LAST 


LAST 

LAST 


LAST 

LAST 

LAST 


LAST 

LAST 


703 
30  7 

685 

280 

614 


663 

703 

699 


699 

699 

118 


659 

703 


703 

703 


703 

703 

319 


703 

319 


C4,2642  C 0006  1 

04.2643  3 1442  I 

14.2644  53'051  0 

04.2645  3 2755  1 

C4,2646  0 4616  1 

04,2647  20334  1 

04.2650  1 5472  1 

34.2651  1 2653  1 

04  ,2652  1 2645  0 

04.2653  C 6C42  1 

04.2654  53145  I 

04.2655  01051  1 

04.2656  10752  0 

04.2657  34041  0 

04.2660  27042  1 

34.2661  63375  0 

04.2662  00007  0 

04.2663  COCCI  0 

)4,2664  02207  0 


04.2665  63256 

04.2666  53435 

04.2667  77626 

04.2670  61562 

04.2671  00015 

34.2672  3404] 

04.2673  27C56 

04.2674  63375 

0A,2675  00007 

04,2676  OOCCl 
04  ,2677  41406 

04,2700  63245 

04,27U1  02207 

04  ,2702  72441 

04.2703  C2215 

04.2704  26201 

04.2705  OOOCl 

C4,27C6  72441 

04,2707  02215 

04.2710  26203 

34.2711  0C007 

04.2712  41456 

04.2713  47235 

04.2714  00001 

04.2715  0OC23 

04.2716  53552 

04  ,2717  77656 

04,2720  24001 


0 

0 

0 

1 

C 

0 

1 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

1 

0 


P36 


R36INT 


EXTEND 
OCA  TIG 

DXCH  DSPTEMX 
CAF  V06M.  6N 

TC  BANKCALL 

CAOR  GOMARKF 
TCF  ENCEXT 

TC  F +2 

TCF  -5 

TC  INTPRET 

OLQAD  eZE 

DSPTEMX 
GFTNCW 
STCALL  TDECl 

CThPREC 
VLOAD  POVL 
VATT 
RATT 

STORE  PPASS36 
UNIT  PDVL 

VXV  UNIT 

STADR 

STODL  UNP36 
TAT 

STCALL  TDECl 

THISPREC 
VLOAD  PDVL 
VATT 
RATT 
PUSH  PUSH 

BVSU  POVL 

RPASS36 
DOT  SLl 

UNP36 
STOVL  RANGE 

00  C 

DOT  SLl 

UNP36 
STCVL  RRATE 

06D 

UNIT  PUSH 

VXV  VXV 

OOD 
18C 

VSL2  UNIT 

UNIT 

STOVL  OOC 


SET  T IME-OF-EVENT  TC  TIG  FOR  NOMINAL 
DI SPLAY 


TERMINAT  E 
FROCFEO 

RECYCLE  FOP  ASTRONAUT  INPUT  TIME 


ASTCR-LOAOEO  ZERO,  GET  PRFS  TIME 


R 

P 


U 


VELOCITY  VECTOR  V OOD 

A 

POSITION  VECTOR  R IN  060  AND  120 

A - - 

LINE  OF  SIGHT  VECTOR  P - R 120 

P A 

Y = U o R 

A 

Y = U oV 

A - 

U = UNIT!  R > 18D 

RA  A 

(U  XV  >XU  =U 
PA  A PA  A 

UNIT  HORIZONTAl  IN  FORWARD  OIRc  OOD 
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1A45 

1AA6 

14A7 

lAAB 

1449 
144905 

1450 

1451 

1452 

1453  REF 

1454 

1455 

1456 

1457  REF 
1456  REF 

1459 

1460  REF 

1461  REF 

1466 

1467  REF 
1466  REF 

1469  REF 

1470  REF 

1471  REF 

1472  REF 

1473 

1474  REF 

1475  REF 

1482 

1483 


5 


1 

2 

6 

7 

1 

178 

10 

37 

38 
2 

15 

1 


LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


319 


37 

704 

704 


703 

703 

703 

704 
286 

668 


74.2721  00023  0 

04.2722  74241  0 

04.2723  00C15  0 

J4  ,2724  77752  1 

04.2725  53445  I 

54.2726  77656  1 

04.2727  50206  0 

04.2730  CCCOl  0 

04.2731  65552  0 

04.2732  26205  1 

04.2733  50235  0 

04.2734  * 00001  0 

04.2735  71244  0 

04.2736  10743  0 

04.2737  24020  0 

04.2740  77625  0 

04.2741  02205  1 

04.2742  C2205  1 

04.2743  77776  1 

04.2744  3 2756  I 

04.2745  C 4616  1 

54.2746  20334  1 

04.2747  1 5472  1 

04,2750  1 5472  1 

04  ,2751  1 2642  1 

04.2752  52034  1 

04.2753  21574  1 

04.2754  10657  1 

04.2755  C142C  0 

J4,2756  C1532  1 


R36TAG2 


GETNOW 


V06N16N 

V06N90N 


18D 

DOT  VXSC 
120 

VSL2 

BVSU  UNIT 
UNIT 

PUSH  DOT 

000 

SLl  ARCCOS 

STOVL  PTHETA 

VXV  POT 

OOD 

BPL  OLCAO 

P 36TAG2 
LOCPMAX 

OSU 

RTHETA 
STORE  RThETA 

EXIT 

CAF  V06N90N 

TC  BANKCALL 

CAOR  GOMARKF 

TCF  ENCEXT 

TCF  ENDEXT 

TCF  R36 

RTB  GOTO 

LOADTI ME 
R36INT 
VN  00616 

VN  00690 
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U 


LOS  PROJECTFO  INTO  HORIZONTAL  120 
PLANE 

PSI=  ARCCOSdJ  :U  ) 

A L 


DISPLAY  Y , YOOT  , AND  PSI 


TERMINATE 

PROCEED  , END  CF  PROGRAM 
RECYCLE,  TIG  OR  ASTRC-CPTICN 
ASTRO-SELECTED  PRESENT  TIMF 


GAP;  ASSEMBLE  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  aoailia-C*?! 


L 


POOOl 

0C02 

0003  REF 
OOOA 


40,3737 

4C,20Qa 

40,3737 


BANK  40 
SETLOC  R31L0C 
BANK 


0005  REF 


COUNT#  $$/R51 


0006  REF 

0007  REF 

0008  REF 

0009  REF 
0009  REF 
OOin  REF 
0011 

0012  REF 

0013  REF 

0014 

0015  REF 


9 LAST  261 
24  LAST  597 
22  LAST  682 
1 
1 

10  LAST  567 

1C  LAST  492 
24  LAST  602 


I 


40,3737  2 5015  0 

40.3740  0 5105  0 
E7,1470 

40.3741  03121  0 

40.3742  76067  1 

40.3743  C 5221  C 

40.3744  00144  0 

40.3745  3 1043  1 

40.3746  7 4740  1 

40.3747  0 0006  1 

40,3750  1 3743  0 


R31CALL 


CAF  PRI03 

TC  FINOVAC 

E0ANK=  SUEEXIT 
2CA0R  V83CALL 


DSPDELAY  TC  FIXOELAY 

DEC  100 

CA  EXTVBACT 

MASK  BIT12 

EXTEND 

eZF  OSPCELAY 


0016  REF  5 LAST 

0017  REF  14  LAST 

0018  REF  3 LAST 

0019  REF  1 

0019  REF  1 

0020  REF  30  LAST 


492  40,3751 

610  40,3752 

668  £7,1611 

40.3753 

40.3754 
610  40,3755 


2 5017  1 
C 5072  1 

03113  1 
76067  1 
1 5261  0 


CAF  PR105 

TC  NOVAC 

EBANK=  TSTPT 
2CADR  DISPN5X 


TCF  TASKCVER 


00202 

00204  REF  1 

00206 

00206  REF  1 


37  ,3113 
37,2000 
37,3113 


BANK  37 
SETLCC  R31 
BANK 

COUNT#  t$/R31 


0021  REF  1 

0022  REF  179  LAST  704 

0023  REF  11  LAST  704 

0024  REF  9 LAST  493 

0025  REF  10  LAST  705 

0026  REF  2 LAST  705 


37.3113  2 3407 

37.3114  0 4616 

37.3115  20334 

37.3116  0 5563 

37.3117  0 5563 

37,3120  1 3U3 


DI 


SPN5X  CAF 
TC 

CADR 

TC 

TC 

TCF 


V16N54 

BANKCALL 

GOMARKF 

B5CFF 

eSOFF 

0ISPN5X 


0027  REF  4 LAST 

0028  REF  2 LAST 

0029 

0030  REF  1 


282  37,3121  4 0103  1 

188  37 ,3122  7 4747  0 

37,3122  C 3CC6  1 

37,3124  I 3377  0 


V83CAL'L 


CS  FLAGWRD7 
MASK  AVEGFBIT 
EXTEND 

0ZF  MUNG? 


0031  REF 

0032  REF 

0033 

0034  REF 


8 LAST  543 
7 LAST  543 

1 


37.3125  4 0104  0 

37.3126  7 4744  0 

37.3127  0 0006  I 

37,3130  1 3403  1 


CS  FLAGWRC8 
MASK  SUPFFBIT 
EXTEND 

RZF  ONEPASF 


0035  REF  83  LAST  703  37,3121  0 6042  1 

0036  37,3132  77634  0 


TC  INTPRET 

RTB 
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KI SSI NG 


055 


PAGE  705 


USER’S  PAGE  NOo 


EC  S3 


‘ \ 


TEST  AVERAGE  G FLAG 

ON  - TEST  MUNFLAG 

ON  SURFACE  - BYPASS  LEMPREC 


extrapolate  both  STATE  VECTORS 


GAP;  ASSEMBLE  REVISION  131  OF  AGC  PPCGRA^  LUMINARY  BY  NASA  2021112-091 


L R31 


0037  PEF 

0038  REF 

0039  REF 
00^0 

OOAl  REF 
00<f2  REF 
00A3  REF 
00A4  REF 
0(JA5  REF 

0046  RFF 

0047  REF 

0048  REF 

0049 

0050  REF 

0051  REF 

0052  REF 

0053  REF 

0054 


16  LAST 

32  LAST 

5 LAST 

6 LAST 

1 

9 LAST 
1 

10  LAST 
I 

33  LAST 
4 LAST 

7 LAST 
1 

10  LAST 


704  37,3133 

703  37,3134 

699  37,3135 

37,3136 
691  37,3137 

37,3140 
691  37,3141 

37,3142 
703  37,3143 

37  ,3144 
706  37,3145 

609  37,3146 

37,3147 
706  37,3150 

37  ,3151 
706  37,3152 

37.3153 

37.3154 


21574  1 
34041  0 
27C56  I 
77775  I 
00017  1 
26170  0 
00025  0 
161C5  1 
00015  0 
02114  1 
34C41  0 
27042  1 

77775  1 
Q0017  1 
26140  0 
00025  0 
C2120  0 

77776  I 


LOADTI RE 
STCALL  TCECl 

LERPREC 

VLOAO 

PATTI 

STOVL  BASETHP 
VATTl 

STOOL  BASETHV 
TAT 

COCMBASE  STORE  BASETIME 
STCALL  TOECl 

CSMPREC 

VLOAO 

RATTl 

STOVL  BASEOTP 
VATTl 

STORE  BASEOTV 
EX  IT 


0055  REF  5 LAST  705 

0056  REF  3 LAST  705 

0057 


37,  315  5 4 C103  1 REV83  CS  FLAGWRC7 

37.3156  7 4747  0 MASK  AvEGFBIT 

37.3157  C 0006  J EXTEND 


0058  REF 


37,3160  1 3326 


BZF  6ETRVN 


0059  REF 

0060  REF 

0061 

0062  REF 


LAST  705 
LAST  705 


37  ,3161 

37.3162 

37.3163 

37.3164 


4 0104  0 
7 4744  0 
C 0006  1 
1 3370  I 


CS  FLAGWRDP 
MASK  SURFFBIT 
EXTEND 

BZF  R31SURF 


0063  REF  84 

0064 

0065  REF  17 

0066  REF  34 

0067  REF  2J 

006B 

0069  REF  2 

0070  REF  7 

0071  REF  8 

0072  REF  2 

0073  REF  7 

0074  REF  2 

0075 

0076  REF  2 

0077 

0078  REF  8 

0079 

0080  REF  10 

0081  REF  8 

0082  REF  4 

0083 


LAST  705 

LAST  706 
LAST  706 
LAST  690 

LAST  706 
LAST  691 
LAST  691 
LAST  706 
LAST  691 
LAST  706 

LAST  299 

LAST  706 

LAST  69  1 
LAST  691 
LAST  691 


37.3165  C 6C42  1 

37.3166  77634  0 

37.3167  21574  1 

37.3170  34041  0 

37.3171  27410  1 

37.3172  43175  C 

37.3173  C2170  0 

37.3174  00263  0 

37.3175  25535  C 

37.3176  02105  1 

37.3177  15543  1 

37,32C0  C2114  1 

37.3201  43014  0 

37.3202  C4344  0 

37.3203  77205  0 

37  ,3204  00063  1 

37.3205  77614  1 

37.3206  01473  0 

37.3207  35517  1 

37,3210  27106  0 

37  ,3211  77775  1 


TC 

RTB 

STCALL 

VLCAD 

STCVL 

STCOL 

BOF 


SET 

STCALL 

CTFCONIC  VLOAO 


I NTPRET 

LOACT  IRE 

TOECl 

INTSTALL 

CLEAR 

BASETHP 

MOCNFLAG 

RCV 

BASETHV 

VCV 

BASETI RF 
SET 

ROCNTHIS 
+ 2 

MOONFLAG 

INTYPFLG 

TET 

INTEGRVS 
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PRECISION  BASE  VECTOR  FOR  LM 


PRECISION  BASE  VECTOR  FOR  CM 


IF  AVEGFLAG  SFT,  USE  PN,VN 

IF  ON  SURFACE, USE  LEMAREC 

CO  CONIC  EXTRAPOLATION  FOR  BOTH  VEHICLES 


GET  APPROPRIATE  MOCNFLAG  SETTING 


CONIC  EXTRAP< 


INTEGRATION 


AT  LAST  — 


GAP ; 

L 

008A 

0063 

0066 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

009A 

0095 

0096 

0097 

0P98 

0099 

0100 

0101 

0102 

0103 

OlOA 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 
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REF  19 
REF  7 
REF  15 
REF  1 
REF  22 

REF  11 
REF  11 
REF  35 


REF  2 
REF  9 
REF  9 
REF  2 
REF  8 
REF  3 


REF  3 


REF  10 
REF  9 
REF  5 


REF  20 
REF  8 


REF  2 


REF  10 
REF  16 

REF  2 

REF  6 
REF  9 

REF  6 


REF  ) 
REF  17 


REF  3 


LAST  703 
LAST  341 
LAST  703 

LAST  706 

LAST  706 
LAST  706 
LAST  706 

LAST  706 
LAST  706 
LAST  706 
LAST  706 
LAST  706 
LAST  706 

LAST  706 

LAST  707 
LAST  706 
LAST  706 


LAST  707 
LAST  707 

LAST  591 


LAST  703 
LAST  707 

LAST  707 

LAST  703 
LAST  707 

LAST  586 


LAST  694 


LAST  707 


37,3212 
37  ,3213 
37,321A 

37.3215 

37.3216 

37. 3217 

37.3220 

37.3221 

37.3222 
37  ,3223 

37.3224 

37.3225 

37.3226 

27.3227 

37.3230 

37.3231 
37,  3232 

37.3233 

37.3234 

37.3235 
37  ,3236 
37, 3237 

37.3240 

37.3241 

37.3242 

37.3243 

37.3244 

37.3245 
37  ,3246 
37,3247 

37.3250 

37.3251 

37.3252 
37  ,3253 

37.3254 

37.3255 

37.3256 

37.3257 

37.3260 

37.3261 

37.3262 
37  ,3263 

37.3264 

37.3265 

37.3266 

37.3267 

37.3270 

37.3271 

37.3272 
37  ,3273 


00001 

26207 

00CC7 

36215 

27410 

71214 

01473 

00015 

C0041 

43175 

02140 

00263 

25535 

C212C 

15543 

02114 

43014 

04344 

77236 

00063 

35517 

271C6 

52375 

OOOOl 

C2207 

65234 

21725 

00C45 

77657 

20201 

26201 

C0007 

50251 

02215 

77752 

26203 

02207 

63256 

06516 

77624 

47663 

41505 

01734 

72431 

00001 

53445 

00007 

47315 

COOOl 

02215 


0 

0 

0 

1 

1 

0 

0 

0 

1 

0 

0 

0 

0 

0 

1 

1 

0 

n 

C 


0 

1 

0 

0 

1 

1 

0 

0 

0 

0 

0 

1 

0 

I 

1 

0 

c 

0 

1 

1 

1 

c 

1 

0 

1 

0 

0 

0 

0 


RATT 
STOVL  RONE 
VATT 
STCALL  VONE 

INTSTALL 
SET  DLCAO 

INTYPFLG 

TAT 

OTHINT  STCRE  TDECl 
VLOAO  CLFAR 

EASECTP 
MOONF  LAG 
STOVL  RCV 

BASECTV 
STOOL  VCV 

BASETIME 
BCF  SET 

MOONTHIS 

+2 

MOONF LAG 
STCALL  TET 

I NTEGBVS 

COMPOISP  VLOAO  VSU 
RATT 
RCNF 
RTB  POOL 

N0RMUNX1 

360 

SL* 

0,1 

STOVL  RANGE 
VATT 

VSU  DOT 
VONF 

SLl 

STOVL  RRATE 
RONE 
UNIT  PDVL 
UNI  TZ 

CALL 


CDL*N8SM 
VXM  PUSH 

REFSMMAT 
VPROJ  VSL2 
00 

evsu  UNIT 
6D 

PDVL  VXV 
00 

VONF 


GET  SET  FCR  CONIC  EXTRA P, , CTHFP. 


UNITIRANGEI  TO  PD  C-5 
RESCALE  AFTER  NORMUNIT 
SCALED  2(29IM 

(VCM-  VLN)oUNIT(LCS),  PC=0 
SCALED  2(7IM/CS 

UNIT(R)  TO  PD  0-5 

UNIT  ( Z ) /4  TO  PD  6-11 
UMT(P)=UNIT(UZ  -(UZIPRCJ  (UP  n 

UNIT(P)  TO  PD  12-17 
UNIT( RL 1 


gap: 

L 

013A 

0135 

0136 

0137 

0130 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

C146 

0147 

0148 

0149 

U150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

C175 

0176 

0177 

0178 

0179 
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R21 


USER  »S  PAGE  NOc  4 EO  S3 


REF  8 


REF  9 
REF  9 
REF  10 


LAST  704 


LAST  677 
LAST  708 
LAST  708 


27.3274 

37.3275 

37.3276 

37.3277 
37,3300 
27,32Cl 

37.3302 

37.3303 

37.3304 
37  ,3305 
37,33C6 
37,3307 

37.3310 

27.3311 

37.3312 

37.3313 

37.3314 
37  ,3315 


50235  0 
00001  0 
00015  0 
77715  1 
75241  1 
CCCC7  C 
00015  0 
65512  1 
26205  1 
00001  0 
51041  r 
00007  C 
77315  0 
45345  I 
06532  0 
02205  1 
C2205  1 
77776  1 


VXV  DOT 
OD 
12C 

POVL 

DOT  SIGN 
6 0 
120 

SL2  ACCS 

STOVL  RTHETA 
00 

COT  PPL 

60 
+ 5 

OLCAO  DSU 

DPPOSMA 

RTHETA 

STORE  RTHETA 

EX  IT 


(UR  * VLI*UR  a U(PI 

SIGN  TO  12-13  , LTAC  U( P» 

ARCCOS(UPaUZ(SIGN) ) 

IF  URoUZ  NEG, 

RTHETA  = 1 - RTHETA 


REF  30 
REF  11 

REF  39 


LAST  618 
LAST  705 

LAST  704 


37.3316 

37.3317 

37 .3320 

37.3321 


3 4747  1 
7 1043  0 
C 0006  1 
1 5472  1 


CA  BIT5 

MASK  EXTVBAC7 

EXTEND  IF  ANSWERED, 

BZF  ENDEXT  TERMINATE 


REF  12 
REF  25 
REF  13 
REF  1 


LAST  708 
LAST  705 
LAST  7(>e 


37.3322 

37.3323 

37.3324 

37.3325 


4 1043  0 
7 4740  1 
27'043  0 
1 3155  1 


CS  EXTV8ACT 

MASK  BIT12 

ADS  FXTV8ACT  SET  BIT  12 

TCF  FEV83  AND  START  AGAINo 


REF 

REF 

REF 


3 

10 

85 


REF  5 


REF  10 
REF  5 
REF  4 
REF  2 


REF  2 
REF  5 

REF  10 
REF  11 
REF  86 

RFF  2 
REF  1 


LAST 

LAST 

LAST 


536 

500 

706 


LAST  322 


LAST  707 
LAST  322 
LAST  707 
LAST  603 


LAST  603 
LAST  602 


LAST  705 
LAST  708 
LAST  708 


LAST  231 


37,3327 

37.3330 

37.3331 
37  ,3332 

37.3333 

37.3334 

37.3335 

37. 3336 

37.3337 

37.3340 

37.3341 
37  ,3342 
37,3343 
37,^344 
37  ,3345 

37.3346 

37.3347 

37.3350 

37.3351 


0 6042  1 
40375  1 
01220  0 
00001  0 
26207  C 
01226  0 
26215  0 
01726  0 
65315  0 
C1720  0 
01234  0 
77776  1 
3 5015  0 
C 5146  1 
C 6C42  1 
77214  0 
C3347  1 
77363  1 


GETRVN 


CA  PRIC22 

TC  PRICCHNG 
TC  INTPRET 

VLCAD  SETPO 
RN 
0 

STOVL  PONE 
VN 

STOVL  VONE 

VtCSM) 
POVL  POLL 

RICSMl 

PIPTIME 

EXIT 

CA  PRI03 

TC  PRIOCHNG 
TC  INTPRET 

BOFF  VLCAO 

MUNFLAG 

GETBVN2 


INHIBIT  SERVICER 


LM  STATE  VECTOR  IN  PN,VN 


LOAD  R(CSMI,V(CSM)  IN  CASE  MUNFLAG  SET 
(TO  INSURE  TIME  C CM  PAT ABI L I TY I 


IF  MUNFLAG  RESET,  CO  CM  DELTA  PRECISION 


GAP:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L R3l 


01 8A 

0185 

0186 

0187 

0188 


REF  18  LAST  707 


37.3352 

37.3353 

37.3354 


REF  19  LAST  709 

REF  1 


37.3356 

37 .3357 

37.3360 

37.3361 

37.3362 


60505  1 
C1734  0 
77715  1 
76505  C 
01734  0 
40206  1 
COQOl  0 
77650  1 
77240  1 


VXM  VSR4 

REFSMMAT 

PDVL 

VXM  VSLl 

REFSMNAT 
PUSH  SETPD 
n 

GOTO 

COMPCISP 


0189 

0190  REF  23 

0191 

0192  REF  12 

0193  REF  1 

0194  REF  87 

0195 

0196  REF  18 

0197  REF  36 

0198  REF  6 

0199 

0200  REF  1 

0201  REF  2 

0202  REF  2 

0203 

0204  REF  2 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 


37,3363 
707  37,3364 

37,3365 

707  37,3366 
37,3367 

708  37,3370 
37,3371 

706  37,3372 

707  37,3373 

706  37,3374 

37.3375 

37.3376 
188  37  ,3377 

188  37,3400 

37,3401 
706  37,3402 


77624  1 
27410  1 
52014  0 
01673  1 
77222  0 
C 6C42  1 
77634  0 
21574  1 
34C41  C 
27056  1 
77650  1 
77211  0 
4 0102  0 
7 4744  0 
C 0006  1 
1 3326  1 


GETRVN2 


R31SURF 


MUNG? 


CALL 

INTSTALL 
CLEAR  GOTC 

INTYPFLG 

OTHINT 

TC  IMFRET 

RTB 

LOADTIME 
STCALL  TDECl 

LEMPREC 

GCTQ 

OTHCONIC 
CS  FLAGWR06 

MASK  MU^FLBIT 

EXTEND 

B2F  GETRVN 


0205 

0206 
0207 
0206 


REF  88  LAST  709 

REF  19  LAST  709 
REF  1 


37.3403  0 6042  1 

37.3404  52034  1 

37.3405  21574  1 

37.3406  77144  0 


ONEBASE  TC 
PTQ 


INTPRET 

GOTO 

LOACTIME 

OOCMBASE 


0209 


37,3407 


C4C66  0 V16N54  VN 


1654 
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USER’S  PAGE  NCe  5 ED  S3 

CHANGE  TO  REFERENCE  SYSTEM  AND  RESCALE 
R TO  PO  0-5 

V TO  PO  5-11 


PREC  EXTRAP  FOR  CTHER 


LM  IS  ON  SURFACE,  SO  PRECISION 
INTEGRATION  USES  PLANETARY  INERTIAL 
ORIENTATION  SUEROUTINE 

DO  CSM  CONIC 


IF  MUNFLAG  SET,  CSM  BASE  NOT  NEEDED 
GET  CSM  BASE  VECTOR 


I 


gap:  assemble  revision  131  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-09^ 
L R31 


17i  53  OECo  19tl969  KISSING  q055  PAGE  710 
USER'S  PAGE  NO.  6 EC  S3 
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L P76  USER'S  PAGE  NOo  1 EO  S3 


P5000  1)  PRCGRAN  NAME  - TARGET  DELTA  V PROGRAM  (P76), 

R5001  2)  FUNCTIONAL  DESCRIPTION  - UPON  ENTRY  BY  ASTRONAUT  ACTION,  P76  FLASHES  DSKY  REQUESTS  TO  THE  ASTRONAUT 

R5003  TC  PROVIDE  VIA. DSKY  (1)  THE  DELTA  V TO  BE  APPLIED  TC  THE  OTHER  VEHICLE  STATE  VECTOR  AND  121  THE 

R5005  TIME  ITIG)  AT  WHICH  THE  CTHER  VEHICLE  VELOCITY  WAS  CHANGED  BY  EXECUTION  OF  A THFLSTING  MANEUVERo  THE 

R5007  other  VEHICLE  STATE  VECTOR  IS  INTEGRATED  TO  TIG  AND  UPDATED  BY  THE  ADDITION  OF  DELTA  V (DEITA  V HAVING 

R5009  BEEN  TRANSFORMED  FROM  LV  TO  REF  COSYSI,  USING  INTEGRVS,  THE  PROGRAM  THFN  INTEGRATES  THE  OTHER 

R5011  VEHICLE  STATE  VECTOR  TO  THE  STATE  VECTOR  OF  THIS  VEHICLE,  THUS  INSURING  THAT  THE  W-MATRIX  AND  BOTH  VEHICLE 

R'50)3  STATES  CORRESPOND  TO  THE  SAME  TIME, 

R5014  3)  ERASABLE  INITIALIZATION  RECUIREC  - NONE, 

R5015  4)  CALLING  SEQUENCES  AND  EXIT  MODES  - CALLED  BY  ASTRONAUT  REQUEST  THRU  DSKY  V 37  E 76  E, 

R5017  EXITS  BY  TCF  ENOOFJOB, 

R5018  51  OUTPUT  - CTHER  VEHICLE  STATE  VECTOR  INTEGRATED  TO  TIG  AND  INCREMENTED  BY  DELTA  V IN  RFF  CCSYS, 

R5020  THE  PUSHLIST  CONTAINS  THE  MATRIX  BY  WHICH  THE  INPUT  DELTA  V MUST  BE  POST-MULT  I PL  I EO  TO  CONVERT  FROM  LV 

R5022  ■ TO  REF  COSYS, 

R5023  61  DEBRIS  - OTHER  VEHICLE  STATE  VECTOR, 

R5024  71  SUBROUTINES  CALLED  - BANKCALL .GOXDSPF .CSMPREC  (OR  LE MPREC 1 , ATCPCSM  (OP  ATOPL EM ) , INT STAL L , INTW AK 6 , PHASCHNG 

R5026  INTPRET,  INTEGRVS,  ANC  MINIRECT, 


R5027  81  FLAG  USE  - MCONFL AG , CMOON F LA G , I NTY PFLG , R AS FL AG  , AND  MARKCTR, 


5028 

5029  REF  1 

5030 


30, 2061 
13,2000 
13,2207 


BANK  30 
SETLOC  P76LOC 
BANK 


5031  REF 


COUNT#  SS/P76 


5032 


REF  20  LAST  703 


E7  ,1441 


EBANK=  TIG 


5033  REF  43  LAST  683 

5034  REF  6 LAST  634 


13,22C7  C 5504  0 P76 

i3,221u  00031  0 


TC  UPFLAG 

AORES  TBACKFLG 


50341  REF 

50342 

50343  REF 

50344  REF 

50345 


89  LAST  709 

20  LAST  694 
4 LAST  318 


13.2211  0 6042  1 

13.2212  77775  I 

13  ,2213  03434  I 

13.2214  C2223  0 

13.2215  77776  1 


TC  INTPRET 

VLCAO 

OELVLVC 
STORE  DELVOV 
EXIT 


5035 

5040 

5041 

5042 

5043 

5044 

5045 

5046 

5047 
5043 

5049 

5050 

5051 


REF  1 

REF  180  LAST  705 
REF  18  LAST  685 
REF  1 


REF  2 LAST  711 
REF  181  LAST  711 
REF  19  LAST  711 
REF  2 LAST  711 


REF  90  LAST  711 


13.2216  2 2335  0 

13.2217  0 4616  1 

13.2220  20477  1 

13.2221  1 2331  0 

13.2222  C 2224  1 

13  ,2223  0 2216  0 

13.2224  ' 2334  1 

13.2225  0 4616  1 

13  ,2226  20477  1 

13,2227  1 2331  0 

13.2230  0 2232  0 

13.2231  G 2224  1 

12.2232  C 6042  I 


CAF 

TC 

CADR 

TCF 

TC 

TC 

CAF 

TC 

CACR 

TCF 

TC 

TC 

TC 


V06N84  +1 
BANKCALL 
GOFLASH 
ENCP76 
+ 2 
-5 

V06N84 
BANKCALL 
GOFLASH 
EN0P76 
+ 2 
-5 

INTPRET 


FLASH  VERB  06  NOUN  33,  DISPLAY  LAST  TIG, 
AND  WAIT  FOR  KEYBOARD  ACTION, 


PROCEED 

STIHRE  DATA  AND  REPEAT  FLASHING 
FLASH  LAST  DELTA  V, 

AND  WAIT  FOR  KEYBOARD  ACTION, 


RETURN  TC  INTERPRETIVE  CODE 


GAP: 
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L 


P76 


5053  REF  21 

50535  REF  4 

5054  REF  37 

5055  REF  2 

5056 

5057  REF  21 

5058 

5059 

5060 

5061  REF  17 

5062 

5063 

5064 

5065 

5066  REF  5 

6067 

5068 

5069 

5070  REF  18 

5071 

5072 

5073  • REF  24 

5074 

5C75  REF  1 

5076 

5077 

5078 

5079  REF  9 

5080  REF  22 

5081 

5082 

5083  REF  10 

5084  REF  22 

5085  REF  10 

5086 

5087  REF  13 

5088  REF  1 

5089  REF  38 

5090  REF  6 

5091 

5093  REF  25 

5094 

5095  REF  8 

5096  REF  3 

5097  REF  11 

5098  REF  12 

5099  REF  11 

5100  REF  11 

5101 


LAST 

LAST 

LAST 

LAST 

LAST 


LAST 


LAST 


LAST 


LAST 


LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


711  l',2234 

238  13,2235 

705  12,2236 

703  13,2237 

13,2240 
707  13,2241 

13.2242 

13.2243 

13.2244 
707  13,2245 

13,^246 
13,2247 
13  ,2250 
13,2251 

711  13,2252 
13,2253 
13,  2254 
13, 2255 

712  13,2256 
13,2257 
13,2260 

709  13,2261 

13.2262 

13.2263 
12,  2264 

13.2265 

13.2266 
707  13,2267 

712  13  ,2270 

13.2271 

13.2272 
707  13,2273 

712  13,2274 

707  13,2275 

13,2276 
709  13,  2277 

13  ,2300 
712  13,2301 

707  13,2302 

13  ,2303 
7J2  13,2304 

13, 2305 

706  13,2306 

499  13,2307 

712  13,2310 

707  13,2311 

712  13,2312 

706  13  ,2313 

13,2314 


01076  1 
34041  0 
27C42  1 
53575  0 
OCCOl  C 
77676  0 
00C31  0 
53435  0 
00007  0 
00C23  0 
53435  0 
00031  0 
24C15  0 
02223  0 
76505  0 
C0C15  0 
77655  1 
00007  0 
CCC07  0 
77624  1 
27410  1 
77624  1 
26336  0 
53775  1 
00007  0 
57176  0 
255^3  1 
00001  0 
77657  0 
57176  0 
15535  0 
03442  0 
C1517  0 
71214  0 
C1673  1 
01643  1 
34041  0 
27106  0 
77624  1 
27410  1 
77775  1 
00017  I 
C1503  0 
15535  0 
00015  0 
25517  0 
00025  0 
77624  1 


OLCAC  SET 
TIG 

NOOOFLAG 
STCALL  TDECl 

OTHPREC 

COMPMAT  VLOAC  UNIT 
PATT 

VCOMP 

STORE  240 
VXV  UNIT 
VATT 

STCRE  18C 
VXV  UNIT 

240 

STCVL  12C 

DELVOV 
VXM  VSLl 

12D 

VAD 

VATT 

STORE  6 
CALL 

INTSTALL 

CALL 

P76SUB1 
VLOAO  VSR# 

6 

0,2 

STCVL  VCV 
RATT 

VSR* 

0,2 

STOOL  RCV 
TIG 

STORE  TET 
CLEAR  CLCAC 

I NTYPFLG 
TETTHIS 

INTCTHIS  STCALL  TDECl 

INTEGRVS 

CALL 

I NTSTALL 

VLOAD 


RATTl 
STCRE  RRECT 
STOOL  RCV 
TAT 

STOVL  TET 

VATTl 


CALL 


17:53  OECo  19,1969  KISSING  o055  PAGE  712 
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SET  TD£C1=TIG  FOR  ORBITAL  INTEGRATION 


U(-R) 

U(-PI  TO  240 
U(-P)XV  = U(VXR ) 


U{VXR>XU(-R)  = UI (PXVIXP) 


V(MPAC}=OELTA  V IN  PEFCOSYS 


V(PC6)=VATT  + DELTA  V 

PREVENT  WOULD-BE  USER  CF  ORBITAL 

INTEG  FROM  INTERFERING  WITH  UPDATING 


GAP: 

L 

5102 

5103 

5104 

5105 

5106 

5107 

5109 

5110 

5111 

5116 

5119 

5120 

A5121 

5125 

5126 

5129 

5130 

5131 

5132 

5133 

5134 

5135 

5136 

5137 

5138 

5139 

5140 
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USER'S  PAGE  NCo  3 


055  PAGE  713 
£7  S3 


REF  2 LAST  499 
REF  27  LAST  683 


13  ,2315  27705  0 

13.2316  77776  1 

13.2317  C 5353  1 

13,2320  04024  0 


MINIRECT 

EXIT 

TC  PHASCHNG 

CCT  04024 


♦ REF  91  LAST 

♦ REF  1 

♦ REF  1 

♦REF  2 LAST 

♦REF  5 LAST 


711 


499 

712 


13  ,2322 

13.2323 

13.2324 
13  ,2325 

13.2326 

13.2327 
13,2330 


0 6042 
45014 
05070 
26660 
77624 


27417 

77414 

01276 


1 

0 

0 

0 

1 

0 

0 

0 


OUT 


I NTPRET 
CALL 

REINTFLG 
A TOPOTH 


CLEAR 


I NTKAKEO 
EXIT 

NODOFLAG 


REF  127  LAST  657 
RFF  LAST  591 

REF  18  LAST  685 


13.2331  3 4755  1 

13.2332  55'462  I 

13.2333  1 6001  1 


ENCP76 


CAF  ZERO 

TS  MARKCTR 

TCF  GOTOPCCH 


ALLOW  V37o  NO  NEED  TO  CLFAR  NDOOFLAG  AT 
ENCP76  SINCE  FLAG  NOT  SET  WHEN  DISPLAY 
RESPONSES  TRANSFER  THERE  FROM  P76+o 

CLEAR  RR  TRACKING  MARK  COUNTER 


REF  11  LAST 

REF  6 LAST 
REF  3 LAST 

REF  12  LAST 


13.2334 

13.2335 

13.2336 

13.2337 
707  13,2340 

13  ,2341 
695  13,2342 

615  13,2343 

13  ,2344 
13,2345 
713  13,2346 


01524  0 V06N84 

C1441  1 

43174  1 P76SU81 

C0C02  0 

0C063  I 

77014  1 

C4303  0 

00052  0 

00000  1 

43414  1 

00263  0 


NV  0684 

NV  0633 
AXT,2  SET 
2 

MOCNFLAG 
BON  AXT,2 

CMOCNFLG 

OPRET 

0 

CLEAR  RVQ 

MOCNFLAG 


SET  MEANS  MCON  IS 


SPHERE  OF  INFLUENCE- 


SET  MEANS  PERM  CM 


STATE  IN  LUNAR  SPHEREe 
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POOOl 

R0002 

R0004 

R0006 

ROODS 

ROOlO 

R0012 

R0013 


SLERCITINE  NAME:  V82CALL 

MOO  NO:  0 

MCO  BY:  RR  BAIRNSFATHER 
NCD  NC:  1 ''CD  by: 

MOO  NO:  2 l«UO  BY 

MCO  NO:  3 MOO  BY 

NEV.  functional  OESCRIPTICN: 
USED  THROUGHOUT, 


DATE:  16  FEB  67 

LOG  SECTION:  R30 

RR  BAIRNSFATt-ER  DATE:  11  APR  67  SR3C»1  CHANGED  TO  ALLCW  MONITOR  OPERN 

ALONSO  DATE  : 11  CEC  67  VBe2  PROGRAM  REWRITTEN 

ALONSO  DATE:  26  MAR  68  PROG  MOD  TO  HANDLE  DIF  EARTF/MOON  SCALE 

CALLED  BY  VERB  82  ENTER*  PRIORITY  10 
CALCULATE  AND  DISPLAY  ORBITAL  PARAMETERS 


ROOl^ 

R0015 

R0016 

R0017 

R0018 

ROOlP 

RC020 

R0021 

R0022 

R0023 

R0024 

R0025 

R0026 

R0027 

RQ026 


IF  AVERAGE  G IS  OFF: 

FLASH  DISPLAY  V04N06*  P2  INDICATES  WhlCF  SHIP'S  STATE  VECTOR  IS 
TO  BE  UPDATED,  INITIAL  CHOICE  IS  THIS  SHIP  (R2=l>o  ASTRONAUT 
CAN  CHANGE  TO  OTHER  SHIP  BY  V22EXE,  WHERE  X NOT  EO  lo 
SELECTED  STATE  VECTCR  UPDATED  BY  THISPREC  ICTHPREC)^ 

CALLS  SR30gl  (WHICH  CALLS  TFFCONMU  + TFFRP/RA)  TO  CALCULATE 
RPER  tPERlGEE  RAClUSi,  RAPO  (APOGEE  RADIUS),  HPER  (PERIGEE 
HEIGHT  ABOVE  LAUNCH  PAD  OR  LUNAR  LANCING  SITE),  HAPC  (APOGEE 
HEIGHT  AS  ABOVE),  TP6R  (TIME  TO  PERIGEE),  TFF  (TIME  TC 
INTERSECT  300  KFT  ABOVE  PAD  OR  35KFT  ABOVE  LANDING  SITE), 

FLASH  MONITOR  V16N4A  (HAPO,  HPER,  TFF)*TFF  IS  -59M59S  IF  IT  WAS 
NCT  COMPUTABLE,  CTHERuISE  IT  INCREMENTS  ONCE  PER  SECOND, 
ASTRONALT  HAS  OPTION  TO  MCNITOR  TPEK  BY  KEYING  IN  N 32  E, 
display  is  IN  HMS,  IS  NEGATIVE  (AS  WAS  TFF),  AND  INCREMENTS 
ONCE  PER  SECOND  CNLY  IF  TFF  DISPLAY  WAS  -59M59So 


R0029  2*  IF  AVERAGE  G IS  ON: 

R0030  CALLS  SR30*1  APPROX  EVERY  TWO  SECS*  STATE  VECTOR  IS  ALWAYS 

R0031  FOR  THIS  VEHICLE*  V82  DDES  NCT  DISTURB  STATE  VECTOR*  RESULTS 

R0032  OF  SR30*1  ARE  RAPO,  RPER,  HAPO,  HPER,  TPER,  TFF* 

R0033  FLASH  MONITOR  VldN'^A  (HAFC,  HPER,  TFF)-. 

R0036  ADDENDUM;  HAPO  AND  HPER  SHOULD  BE  CHANGED  TO  READ  HAPOX  AND  HPERX  IN  THE 
R0037  ABOVE  REMARKS* 


R0038  CALLING  SEQLENCE:  VERB  82  ENTER* 


R0039  SUBROUTINES  CALLEC:  SR3C*l,  GOXDSPF 

ROO^O  MAYBE  - THISPREC  , OTHPREC,  LOADTIME,  DELRSPL 

ROOAl  NORMAL  EXIT  MODES:  TC  ENDEXT 


R0042  ALARMS;  NONE 


R00A3 
ROOA<, 
R0045 
R0046 
ROO*!,? 
ROOAB 
R00A9 
ROO  50 


HAPOX 

HPERX 

RAPO 


RPER 

TFF 

-TPER 


OLTPIT : 


(-29)  M 
(-29)  M 
(-29)  M EARTH 
(-27)  M MOCN 
(-29)  M EARTH 
(-27)  H MOCN 

(-29)  CS  CONTAINS  NEGATIVE  QUANTITY 

(-28)  CS  CONTAINS  NEGATIVE  QUANTITY 


GAP:  ASSEPBLE  REVISION  131  OF  AGC  PftOCRAM  LUMINARY  BY  NASA  2021112-091 

L ft3C 

R0051 

R0052  EFASAELE  INITIALIZATION  REQUIREC:  STATE  VECTOR® 


17:53  DECo  19|1969 
USER  *5  PAGE 


KISSING  O055  PAGE  715 
NCe  2 EO  S3 


R0053  DEBRIS:  OPRET,  RONEi  VONE ,TFF/ RT PU . HFERMIN,  RPACTEM,  V82EMFLGo 
R0059  MAYBE:  TSTART32,  Ve2FLAGS,  T0EC1^ 


0055 

0056 

0057 
0050 
0059 


REF  3 
REF  2 
REF  2 


LAST  316  64,1517 

31,2144 
LAST  44  22,2000 

22,3242 

LAST  44  TU  44;  4 


4* 


EBANK=  HAPOX 
BANK  31 
SETLOC  R30LCC 
BANK 

COUNT#  St/R30 


0060 

0061 

0062 

0063 

0064 


REF  92  LAST  713 

REF  3 LAST  266 
BEF  1 
REF  1 


22.3242  0 6042  1 

22.3243  52C14  0 

22.3244  03712  0 

22.3245  45^65  1 

22.3246  45247  1 


V82CALL 


TC 

BON 


INTPRET 

GOTC 

AVEGFLAG 

V82GaN 

V82GCFF 


IF  AVERAGE  G ON 
IF  AVERAGE  G OFF 


0065 

0066  REF 

0067  REF 
0060  REF 

0069  REF 

0070  REF 

0071  REF  1 

0072  REF 

0073  REF 

0074 

0075 
A0076 

0C77  REF 

0078  REF 

0079  REF 

0080  REF 

0080  REF 

0081 

0082  REF 

0083  REF 

0084  RFF  1 

0085  REF 
A0086 

0087  REF 

0068  REF 

0089  REF 

0090  REF 

0090  REF 

0091 

0092  REF 


39  last  569 

11  LAST  34) 

81  LAST  657 

12  LAST  715 

1 

82  LAST  711 
8 LAST  613 

40  LAST  7r'8 


29  LAST  609 

30  LAST  655 

3 LAST  316 
1 

1 

1 

21  LAST  680 
28  LAST  713 
2 LAST  116 

6 LAST  294 
25  LAST  705 

4 LAST  715 
1 

1 

20  LAST  606 


22,3247  77776  1 

22,3250  3 4752  0 

?2r325l  55'C5C  1 

22.3252  3 4753  1 

22.3253  55*051  0 

22.3254  3 3316  0 

22.3255  0 4616  I 

22.3256  20334  1 

22.3257  0 5472  0 

22.3260  0 3262  1 

22.3261  C 3254  I 

22  ,3262  3 4750  1 

22.3263  C 5203  0 
E4, 1 540 

22.3264  C3430  0 

22.3265  44064  0 

22  ,3266  0 0003  1 

22,3267  3 3320  0 

22.3270  54  003  0 

22 .3271  3 4755  1 

22. 3272  55*537  0 

22.3273  3 5021  1 

22.3274  C 5105  0 
£4  ,1540 

22.3275  03321  1 

22.3276  44064  0 

22  ,3277  C 0003  1 
22,3300  3 6250  0 


V82GOFF 


EXIT 

CAF  TWO 

TS  OPTICNX 

CAF  ONE 

TS  OPTICNX  ♦) 

CAF  OPTICNVN 

TC  6ANKCALL 

CACR  GCXCSPF 

TC  ENOEXT 

TC  +2 

TC  -5 


CAF  6IT4 

TC  WAITLIST 

E8ANK=  TFF 
2CA0R  TICKTEST 


ALLCW  ASTRONAUT  TC  SELECT  VEHICLE 
DESIRED  FOR  ORBITAL  PAPAMFTERS 
CALCULATION  AND  DISPLAY® 


V 04  N 06 


TERMINATE 

PROCEED 

DATA  INo  OPTIONl+1  = 1 FOR  THIS  VEHICLE^ 
UNEC  1 FOR  OTHER  VEHICLE® 


80  MS 


RELINT 

V82G0FLP  CAF 
7S 
CAF 
TS 


TFFBANK 

EBANK 

ZERO 

V82FLAGS 


CAF  PRIG7 

TC  FINDVAC 

e6ANK=  TFF 
2CA0R  ve2GnFFl 


MAJOR  RECYCLE  LOOP  ENTRY 


ZERO  FLAGS  FOP  TICKTEST.  INHIBITS 
DECREMENTING  OF  TFF  AND  -TPER® 

V82G0FF1  WILL  EXECUTE  STATE  VECTOR 
UPDATE  AND  ORBIT  CALCULATIONS  FOR 
SELECTED  VEHICLE  ABOUT  PROPFR  BOOYo 


REL  INT 

V82STALL  CAF  THREE 


STALL  IN  THIS  LOOP  AND  WITHOLD  V 16  N 44 


GAP: 

L 

0093 

009A 

0095 

0096 

0007 

0098 

0096 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0106 

0109 

0110 

Oil) 

0112 

0113 

C114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0126 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 
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R30 


USER'  S PAGE  NC.  ? E4  S3 


REF  3 
REF  218 
PEF  1 
REF  7 
REF  183 
REF  10 
REF  1 


LAST  715 
LAST  680 

LAST  682 
LAST  715 
LAST  682 


22.3301 

22.3302 

22.3303 

22.3304 

22.3305 
22  ,3306 
22,33C7 


7 1537  0 
K 000  0 
0 3310  0 
3 4777  1 
C 4616  1 
01736  1 
C 330P  1 


MASK  Ve2FLAGS  UNTIL  STATE  VECTOR  LPOATF  SETS  ONE  OF 

CCS  A OUR  FLAG  BITS* 

TC  FLAGGON  EXIT  FROM  STALL  LOCP, 

CAF  ISEC 

TC  BANKCALL 

CACR  DELAYJ08 

TC  V82STALL 


REF  1 

REF  184  LAST  716 
REF  9 LAST  715 
REF  11  LAST  705 
REF  12  LAST  716 
REF  1 


22,3310  3 3317  1 FLAGGON  CAF 


22,3311  0 4616  1 TC 

22,  3312  20334  I CAOR 

22.3313  0 5563  1 TC 

22.3314  C 5563  1 TC 

22.3315  0 3267  1 TC 


V16N44 

BANKCALL 

GGXDSPF 

B50FF 

B5CFF 

V82G0FLP 


MONITOR  HAPC,HP£R,TFF, 


TERM  THIS  TFLLS  TICKTEST  TC  KILL  ITSELF 
PROCEED  DITTO 

RECYCLE  RECOMPUTE  STATE  VECT  + DISPLAY 


REF 


22  ,3316  01014  0 OPTIONVN  VN  412 

22,3317  C4C54  1 V16N44  VN  164^ 

5 LAST  715  22,3320  C2140  0 TFFBANK  ECADR  TFF 


R.EF  93 

REF  20 
REF  39 
REF  3 

REF  13 
REF  82 

REF  1 
REF  94 

REF  3 

REF  23 
REF  11 
REF  19 
REF  5 

REF  1 
REF  1 

REF  1 
REF  2 

REF  12 
REF  1 

REF  1 


LAST  715 

LAST  709 
LAST  712 
LAST  3^1 

LAST  715 
LAST  715 


LAST  716 

LAST  712 

LAST  712 
LAST  708 
LAST  712 
LAST  708 


LAST  116 
LAST  698 


22.3321 

22.3322 

22.3323 

22.3324 

22.3325 
22  ,3326 
22,3327 
22,3330 
22  ,3331 

22. 3332 

22.3333 

22.3334 

22.3335 

22.3336 

22.3337 
22,334^' 
22  ,3341 

22.3342 

22.3343 

22.3344 

22.3345 

22 .3346 

22.3347 

22.3350 

22.3351 

22. 3352 

22.3353 

22.3354 

22.3355 


C 6042  1 
77634  0 
21574  1 
00041  1 
C2205  1 
77776  1 
4 1051  C 
6 4753  1 
C 0006  1 
1 3356  0 
C 6042  1 
77624  1 
27042  1 
77775  1 
OOCCl  0 
26207  0 
00007  0 
02215  0 
77743  1 
73774  1 
00027  0 
77743  1 
72411  0 
02201  0 
46135  1 
CC05C  1 
45367  1 
77650  I 
45373  1 


V82GGFF1  TC  INTPRET 

RTS 

LOADTIME 
STCRE  TOECl 
STCRE  TSTART82 
EXIT 

CS  OPTICNX  +1 

AD  ONE 
EXTEND 

BZF  THISSHIP 
OTHSHIP  TC  INTPRET 

CALL 

CTHPREC 

BOTHSHIP  VLOAD 

RATT 
STOVL  PONE 
VATT 
STORE  VONE 
OLOAD* 

)/RTMUE,2 
STORE  TFF/RTML 
CLOAD* 

MINPERE,2 
STORE  HPERMIN 
SLOAO  BHIZ 
X2 

EARTHPAD 

GOTO 


TIME  FOR  STATE  VECTOR  UPDATE^ 

TIMF  FOR  INTERNAL  USEo 

1 FOR  THIS  VEHICLE,  NOT  1 FOR  OTHERo 


CALL  STATE  VECTOR  UPDATE  FOR  OTHER  SHIPo 

MOVE  RESULTS  INTO  TFFCCNIC  STORAGE  AREAS 
TP  BE  CALLED  BY  SRSOplo 
RATT  AT  (-29»M  FOR  EARTF  OR  MOON 

VATT  AT  (-7)M/CS  FOR  EARTH  OR  MOON 

X2  IS  0 FOR  EARTH  CENTERED  STATE  VEC 
X2  IS  2 FCP  MCON 
AS  LEFT  BY  THISPPEC  CR  CTHPRECc 

TFFRTMU,  HPERMIN  AND  RPAOTEM  ARE  ALL 
EARTH/MOON  PARAMETERS  AS  SET  HERE. 


MCCNFAO 


GAP;  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021U2-091 


R30 


0138 

0139 

0140 

0141 

0142 


REF 

REF 

FEF 


95  LAST 
2 LAST 
1 


716 

703 


22.3356  C 6042  1 

22.3357  77624  1 

22.3360  27056  1 

22.3361  7765C  I 

22.3362  45336  0 


INTPRET 
THISPREC 
BOTHSHI P 


TFE  FCLLOUING  CONSTANTS  ARE  PAIRWISE 


INDEXED#  DO  NOT  SEPARATE  PAIRS# 


0146 

0146 

0147 
0147 


22.3363 

22.3364 

22.3365 

22.3366 


GCOOl 

11530 

00002 

31230 


0 

1 

0 

I 


MI NPERM 
MI KPERE 


2DEC 

2CEC 


10668  0-27 
91440  e-29 


0148 

0149  REF  2 LAST  698 

0150  REF  1 


22,3367  43145  0 

22.3370  C6340  0 

22.3371  03635  1 


EARTHPAO 


DLOAO 


CLRGO 

RPAD 

V82EMFLG 


0151  REF 


22,3372  45377  0 


BOTHPAD 


0152 

0153  REF 

0154 

0155  REF 

0156  REF 

0157  PFF 

0158 

0159  REF 

0160  REF 

0161  REF 

0162 

0163  REF 

0164  REF 

0165 

0166  REF 

0167  REF 

0168  REF 

0169 

0170  REF 

0171  REF 

0172  REF  1 


4 LAST  698 

2 LAST  717 
2 LAST  116 
1 

21  LAST  716 

4 LAST  716 

5 LAST  717 

2 LAST  308 
1 

3 LAST  717 

6 LAST  717 

4 LAST  717 

34  LAST  578 
4 LAST  716 
05  LAST  612 


22, 3373 
22  ,3374 

22.3375 

22.3376 
22  ,3377 

22.3400 

22.3401 

22.3402 

22.3403 
22  ,3404 

22.3405 

22.3406 
22  ,3407 

22. 3410 

22.3411 

22.3412 

22.3413 
22  ,3414 

22.3415 

22.3416 
'22  ,3417 


51575  I 
02023  I 
77614  1 
03475  1 
36203  0 
45551  1 
45234  0 
21574  1 
C2205  I 
02205  1 
53145  1 
02143  0 
45420  0 
43345  1 
02143  0 
02205  1 
02143  0 
77776  1 
3 4753  1 
55*537  0 
0 5155  0 


MOONPAO  VLOAD  ABVAL 
RLS 

SET 


BOTHPAD 


TI CKTPER 


V82EMFLG 
STCALL  FPADTEM 
SR30#1 
RTB  DSU 

LOADT I ME 
TSTART82 
STORE  TSTART82 
CLCAC  62E 

-TPER 
TICKTFF 
DLCAD  DAO 

-TPER 
TSTARTe2 
STCRE  -TPER 
FX  IT 

CAF  eiTl 
TS  VSBFLAGS 
TC  ENOOFJOB 


0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 


RFF  6 LAST  716 
REF  7 LAST  717 
REF  7 LAST  717 

REF  37  LAST  657 
REF  5 LAST  717 
RfF  106  LAST  717 


22.3420  43345 

22.3421  02141  1 

22.3422  02205  1 

22.3423  02141  1 

22  ,3424  77776  1 

22  ,3425  3 4752  0 

22.3426  55*537  0 

22.3427  0 5155  0 


DAD 
TFF 

TSTARTa2 
STORE  TFF 

EX  IT 

CAF  BIT2 

TS  V82FLAGS 

TC  ENOOFJOB 


1 TICKTFF  DLOAO 


17:53  DEC#  19,1969  KISSING 


.055  PAGE  717 


USER*  S PAGF  NC# 


CALL  STATF  VECTOR  UPDATE  FOP  THIS  SHIP. 


35  KFT  MIN  PERIGEE  HEIGHT  FOR  MOON(-27>M 
300  KFT  (-29)M  FOP  EARTH 


PAD  37-8  PADIUS#  SCALED  AT  {-29»Mo 
INDICATE  EARTH  SCALING  FCR  SR30al 


COMPUTE  MOON  PAD  RADIUS  FROM  RLS  VECTORc 
SCALED  AT  (-27)M# 

INDICATE  MCON  SCALING  FCR  SR30#1 

CALCULATE  ORBITAL  PARAMETERS 


PRESENT  TIME  - TIME  V82G0FF1  BEGAN 
SAVE  IT 

SR30ol  SETS  -TPeR  = ''  IF  HPER  L/ 

HPERMIN  (300  OR  35)  KFT# 

(-TPER  = 0) 

(-TPER  NON  7ER0)  TFF  WAS  NOT  COMPUTED, 
BUT  WAS  SET  TO  59M59SoDCNT  TICK  TFF,  DO 
TICK  -TPER#  DISPLAY  BOTH# 

-TPER  CORRECTED  FOR  TIME-  SINCE  V82GnFFl 
BEGAN# 

INFORMS  TICKTEST  TO  INCREMENT  ONLY  -TPER 


1-TPER=0)  TFF  WAS  COMPUTEO#T  ICK  TFFt 
DO  NOT  TICK  -TPER# 01  SPLAY  TFF,  BUT  NOT 
-TPER# 

TFF  CORRECTED  FCR  TIME  SINCE  V6260FF1 
BEGAN# 


INFORMS  TICKTEST  TC  INCREMENT  ONLY  TFF. 


gap: 

L 

0181 

0182 

0183 

018<» 

0165 

01B6 

0187 

0188 

0186 

0189 

0190 

C191 

0192 

0193 

C193 

0199 

0195 

0196 

0197 

0190 

A0199 

0200 

0201 

0202 

0203 

0209 

0205 

0206 

0207 

0208 

0209 

0210 
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R30 


USER'S  PAGE  NO.  5 E9  S3 


REF  31 
REF  19 
REF  219 
REF  1 
REF  3 
REF  15 
REF  15 
REF  91 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


708 

708 

716 


597 

705 

718 

715 


REF  31  LAST  705 
REF  8 LAST  716 
REF  31  LAST  715 
REF  8 LAST  717 
REF  2 LAST  715 


REF  21  LAST  715 
REF  6 LAST  717 
REF  220  LAST  718 


REF  32  LAST  718 


22.3930  3 9797  1 

22.3931  7 1093  0 

22.3932  1C  GCO  0 

22t3933  C 3991  0 
22,3939  2 7716  0 

22,3935  0 5072  1 

1093 


TICKTEST  CAF 
MASK 
CCS 


BITS 

EXTVBAfT 

A 

DOT  ICK 
PR  IC25 
NOVAC 
EXTVBACT 


22. 3936 

22.3937 
22,3990 
22,  ^.991 
22  ,3992 
£9,1590 
22,3993 
22  ,3999 

22.3995 

22.3996 

22.3997 
22,3950 
22  ,3951 


C5972  C 
09062  1 
0 5261  1 
3 9777  1 
C 5203  0 

03930  0 
99069  0 
3 6250  0 
7 1537  0 
5C  000  1 
C ^951  1 
0 5261  1 


OOTICK 


2CA0R  ENOEXT 

TC  TASKCVER 
CAF  1 SEC 
TC  WAITLIST 

E6ANK=  TFF 
2CA0R  TICKTEST 

CAF  THREE 
MASK  V82FLAGS 
INCEX  A 
TC  +1 

TC  TASKOVER 


■REF  1 
REF  9 
REF  98 
REF  129 
REF  . 9 

REF  33 
REF  10 
REF  99 
REF  130 
REF  5 
REF  39 


LAST  718 
LAST  680 
LAST  715 
LAST  718 
LAST  710 
LAST  718 
LAST  718 
LAST  718 
LAST  717 
LAST  718 


22,3952  0 3960 

22  ,3953  3 9777 

22,3959  59  CCl 

22.3955  3 9755 

22.3956  21»541 

22.3957  C 5261 

22  ,3960  3 9777 

22.3961  59  001 

22.3962  3 9755 

22  ,3963  21*  593 

22,3969  C 5261 


0 TC 

1 TFFTICK  CAF 

1 TS 

1 CAF 

1 OAS 

1 TC 

1 TPERTICK  CAF 
1 TS 

1 CAF 

0 DAS 

1 TC 


TPERTICK 

ISEC 

L 

?ERC 

TFF 

TASKCVER 

ISEC 


ZERO 

-TPER 

TASKCVER 


THIS  WAITLIST  PROGRAM  PERPETUATES  ITSELF 
□NCF  A SEC  UNTIL  BIT  5 OF  EXTVBACT  =0a 


TERMINATE  V 82oCANT  CALL  ENCEXT  IN  ftUPTo 


R6-RE0UEST  TICKTEST« 


IF  NO  FLAGBITS  SET  DCKT  CHANGE  TFF  OR 
-TPFR,  BUT  CONTINUE  LOOPo 
CNLY  BIT  1 SETe  INCR  -TPER  BY  1 SEC. 
ONLY  PIT  2 SET.  INCP  TFF  RY  I SEC^ 


gap: 

L 

0211 

A02I2 

0213 

021A 

0215 

0216 

0216 

0217 

0218 

0219 

AC220 

A0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

A022O 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 
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R30 


USER' S PAGE  NCe  6 E4  S3 


22i3465  77776  1 V82G0N  EXIT 


REF  7 
REF  26 
REF  10 
REF  1 
REF  1 

REF  5 
REF  4 


LAST  715 
LAST  715 
LAST  718 


LAST  556 
LAST  556 


22  ,3466 
22,3467 
E4,1540 

22.3470 

22.3471 

22.3472 

22.3473 

22.3474 


3 5021  1 
C 5105  0 

03503  1 
44064  C 
C 0003  1 
10  067  1 
C 5122  0 


CAF  PRI07 
TC  FINCVAC 

EBANK=  IFF 
2CA0R  V82GCN1 

R EL  INT 

CCS  NEWJCe 
TC  CHANGl 


REF  2 
REF  185 
REF  10 
REF  13 
REF  14 
REF'  1 


LAST  716 
LAST  716 
LAST  716 
LAST  716 
LAST  719 


22,3475 
22  ,3476 
22,3477 

22.3500 

22.3501 
22,35C2 


3 3317  1 
C 4616  1 
2C334  1 
C 5563  1 
C 5563  1 
C 3475  1 


V82RE0SP  CAF 
TC 

CAOR 

TC 

TC 

TC 


V16N44 

BANKCALL 

GCXDSPF 

B50FF 

65CFF 

V82RE0SP 


AVERAGE  G ONe  USE  CURRENT  STATE  VECTOR 
FOP  ORBITAL  PARAMETER  CALCULATIONS, 

LESS  THAN  LAMBERT 

V82G0N1  WILL  PERFORM  ORBIT  CALCULATIONS 
ABCUT  PROPER  BODY  APPROX  ONCE  PER  SEC, 


WITHOLO  V16  N44  UNTIL  FIRST  ORBIT  CALC 
IS  CONE*  NOTE:  V82G0N1  (PRI07,  FINOVAC 
JOB)  IS  COMPLETED  BEFOFE  V82G0N  (PRI07 
NOV  AC  JOBIo 

MONITOR  HAPC,  HPER,  TFF 


TERM  THIS  TELLS  V82GON1  TO  KILL  ITSELF, 
PROC  DITTO, 

RECYCLE 


REF  96  LAST  717 


22  ,3503  0 6042 


V82G0N1  TC 


INTPRET 


REF  6 LAST  708 

REF  1 

REF  12  LAST  716 

REF  6 LAST  708 

REF  6 LAST  716 

REF  4 LAST  707 

REF  1 

REF  1 


22.3504  52175  0 

22.3505  C1220  0 

22.3506  45507  1 

22.3507  26207  0 

22.3510  01226  0 

22.3511  02215  0 

22  ,3512  52014  0 

22.3513  04304  ] 

22.3514  45516  I 

22.3515  45527  0 


VLOAD 


NEXTLINE  STOVL 


STCRE 

BON 


GOTO 
P N 

NEXTLINE 

RONE 

VN 

VONE 

GOTO 

MCCNTHIS 

MOONGON 

EARThGON 


THIS  EXEC  PROGRAM  PERPETUATES  ITSELF 
ONCE  A SEC  UNTIL  BIT  5 OF  EXTV8ACT  =0, 
HCLOS  CFF  CCS  NEWJCB  PETWEEN  RN  AND 
VN  FETCH  SO  RN  , VN  APE  FROM  SAME 
STATE  VECTOR  UPDATE^ 

RN  AT  (-29IM  FOR  EARTH  CR  MOON 

VN  AT  (-7)M/CS  FCP  EARTH  OR  MOON 

FLAG  INDICATES  BODY  ABOUT  WHICH  ORBITAL 
CALCULATIONS  ARE  TO  BE  PERFORMED, 

IF  SET  - MOON  , IF  RESET  - EARTH* 


REF  3 LAST  717 

REF  I 

REF  2 LAST  716 

REF  1 

REF  3 LAST  716 

REF  5 LAST  717 

REF  1 

REF  4 LAST  719 

REF  2 LAST  716 

REF  3 LAST  719 

REF  2 LAST  716 

REF  4 LAST  719 

REF  3 LAST  717 

REF  3 LAST  717 

REF  2 LAST  717 


22.3516  71214  C 

22.3517  03475  1 

22.3520  04001  1 

22.3521  14037  0 

22  ,3522  05364  0 

2?, 3523  26201  0 

22,3524  02023  1 

22  ,3525  52046  1 

22.3526  45536  C 

22.3527  71214  0 

22.3530  03675  0 

22.3531  04003  0 

22,3  532  14037  0 

22.3523  05366  1 

22.3524  16201  0 

22  ,3535  06340  0 

22.3536  36203  0 

22.3537  45551  1 


MGGNGON  SET 

STOOL 
STOVL 
A8VAL 
EARTHGON  CLEAR 

STODL 

STOOL 

V82GON2  STCALL 


DLCAD 

Ve2EMFLG 

1/RTMUM 

TFF/RTML 

MINPERM 

HPERM IN 

PLS 

GOTO 

V82GCN2 

DLOAO 

V82BMFLG 

1 /PTMUE 

TFF/RTMU 

MINPERE 

HPERMl N 

kPAO 

RPAOTEM 

SR  30*  1 


INDICATE  MOON  SCAIING  FCR  SR30«1 
LUNAR  PARAMETERS  LOADED  HERE  FOR  SR30.  1 


SCALED  AT  (-27)M« 


INDICATE  EARTH  SCALING  FOR  SR30o  1 
EARTH  PARAMETERS  LCAOED  HERE  FOR  SR30ol 


COMMON  CODE  FOR  EARTH  f.  MOONo 


GAP: 


ASSEMBLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-C91 


0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 


REF  16 

REF  42 
REF  11 
REF  186 
REF  11 
REF  2 


LAST 

LAST 

LAST 

LAST 

LAST 


719 

716 

719 


<2,3540 

22.3541 

22.3542 

22.3543 
22,3  544 

22.3545 

22.3546 
22  ,3547 
<2,3550 


77776  1 
3 4747  1 
7 1C43  0 
C 0006  1 
1 5472  1 
3 4777  1 
0 4616  1 
01736  1 
( 3503  1 


EXIT 

CAF 

MASK 

EXTEND 

BZF 

CAF 

TC 

CADR 


FNOEXT 
1 SEC 

BANKCALL 
DELAY  JOB 
V82GCM 


REF 


0267 


V82G0N3 


17:53  DECo  39,1969  KISSING  *^055  PAGE  720 


USER  ' S PAGE  NOe  f E4  S3 

SEE  IF  ASTRONAUT  HAS  SIGNALLED  TERMINATE 

YES,  TERMINATE  VB  82  LCCP 

WAIT  ONE  SECCNO  BEFORE  REPEATING 
ORBITAL  PARAMETER  COMPUTATIONo 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PRCCRAf'  LUMIN; 


8Y  NASA  2P21112-091 


17:53  OECo  19,1969  KISSING  .^055  PAGE  721 


L R30 


USER'S  PAGE  NCo  8 EA  S3 


P026e 

R026Q 

R0271 

R0273 

R0275 

R0277 

R0279 

R02ei 

R0283 


SR30q1 

0 

MCC  8Y:  PR  eAIRNSFaTFEP 

Mco  NO:  1 wco  by:  RR  EAIRNSFATHER 

POO  NO:  2 MOD  BY:  RR  BAIRNSFATHER 

PCO  NC:  3 PCD  BY  /SLCNSC 

POO  NO:  A POD  BY  4LCNSC 

PCD  NO:  5 MOO  by:  RR  BAIRNSfATHER 


CATE:  11  APR  67 
DATE:  lA  APR  67 

DATE:  11  DEC  67 
DATE:  26  MAR  68 
DATE:  6 AUG  68 


CATE:  16  FEB  67 

LOG  SECTION:  R32 

SR20ol  CHANGED  TO  ALLOW  MONITOR  OPERN 
ADD  OVFL  CK  FOR  RAPP 
SUBROUTINE  REWRITTEN 

PROG  MOO  TO  HANDLE  DIF  EARTH/MOON  SCALE 
OVFL  CK  FOR  HAPC  C FPEPeVOIOS  MOD  #2r 


R02eA  NEW  FUNCTIONAL  DESCRIPTION:  CRBITAL  PAPAPETERS  DISPLAY  FOR  NCUNS  3?  AND 

R0286  'SP30ol  CALLS  TFFCCNMU  AND  TFFFP/RA  TO  CALCULATE  RPER  (PERIGEE  RADIUS), 

R0287  RAPO  (APOGEE  RADIUS),  HPER  (PERIGEE  HEIGHT  ABOVE  LAUNCH  PAD  OR  LUNAR 
RU2e8  LANDING  SITE),  HAPC  (APOGEE  HEIGHT  AS  ABOVE),  TPER  (TIME  TC  PERIGEE), 

R0269  TFF  (TIPE  TC  INTERSECT  300  KFT  ABOVE  PAD  OR  35KFT  ABOVE  LANDING  SITE)o 

R0290  IF  HPER  IS  GREATER  THAN  OR  ECUAL  TC  HP6RP1N,  CALCULATES  TPER  AND  STORES 

R0291  NEGATIVE  IN  -TPER*  OTHERWISE  STORES  +0  IN  -TPER*  WHENEVER  TPER  IS 
R0292  CALCULATED,  TFF  IS  NCT  CCPFUTAELE  AND  DEFAULTS  TO  -59MIN  59SFCo  IF  HAPO 
R0293  WOULD  EXCEED  9999*9  NM,  IT  IS  LIMITED  TC  THAT  VALUE  FOR  DISPLAYn 


CHANGED  TO  READ  HAPOX  AND  HPERX  IN  THE 


R0296 

R0297 

R029e 

R0299 

RC300 

R0301 

R0302 

RC303 

R030A 

R0305 

R0307 

R0309 

RC310 

R0311 

R0312 

R0313 

R031^ 

R0315 

R0316 

R0317 

R0318 

R0319 

R0320 


CALL  ING  SEQUENCE: 

SUBROUTINES  CALLED 
NCRMAL  EX  I T MQCE: 
ALARMS ; 


OUTPUT:  RAPO 


RPEP 


CALL 

SP30«1 

TFFCCNMU,  TFFRP/RA,  CALCTPER,  CALCTFF 
CALLING  LINE  +l  (STILL  IN  INTERPRETIVE  MODE) 
NCNE 

APOGEE  RADIUS 


PERIGEE  RADIUS 


HAPCX 
HPERX 
TFF 
-TPER 
ERASABLE  INITIALI 
TFF/RTPU 

RONE 

VONE 

RPAOTEM 


EARTH  CENTERED  CCCRD* 

MOON  CENTERED  CCORO* 

EARTH  CENTERED  COORD* 

MOON  CENTERED  CGORDo 

APOGEE  ALTITUDE  ABOVE  PAD  OR  LAND*  SITE  MAX  VALUE  LIMITED  TO  9999*  9 NM* 
PERIGEE  ALT*  ABCVE  PAD  OP  LANC*  SITE  PAX  VALUE  LIMITED  TO  9999^9  NM* 

TIME  TO  30CKFT  OR  35KFT  ALTITUDE 
TIME  TC  PERIGEE 


HPERMIN 

V82EMFLG 


-29)  M EARTH 
-27  ) M MOCN 
-29)  P EARTH 
-27  ) M MOON 
-29)  M 
-29)  M 
-28  ) CS 
-281  CS 
ZATION  REQUIRED- 

(+17)  EARTH  RECIPROCAL  OF  PROPER  GRAV  CONSTANT  FOR 
EARTH  OR  PCCN  = l/SQRT(MU)o 
STATE  VECTOR 
STATE  VECTOR 

RADIUS  OF  LAUNCH  PAD  OR  LUNAR  LANCING 
SITE* 

(300  OR  35)KFT  MINIMUM  PERIGEE  ALTITUDE 
ABOVE  LAUNCH  PAD  OR  LUNAR  LANCING  SITE* 


(+1A)  MCCN 
(-29  ) M 
(-7)  P/CS 
(-29)  M EARTH 
(-27  ) M MOON 
(-29)  M EARTH 
(-27)  M MOON 


(INT  Sw  EIT)  RESET  FOR  EARTH,  SET  FOR  MOON* 


R0321  DEBRIS:  CPRET,  POL,  S2 


GAP  : 

L 

0322 

0323 

0324 

0325 

A0326 

A0327 

A0328 

A0329 

A0330 

A0331 

A0332 

A033? 

A,0334 

A0335 

0336 

0337 

0336 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

A0349 

0350 

0351 

0352 

A0353 

A0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

A0365 

A0366 

0367 

0368 

0369 

0370 
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17: 53  DECo  19,1969 


ISSING  -055  PAGE  722 


B30 


USER'S  PAGE  ^Ce  9 E4  S3 


REF 


COUNT#  SJ/SR3CS 


REF 


7 LAST  615 


22  ,3551 
22,3552 
22  ,3553 


44001  C SR30el 
00001  0 
00051  0 


SETPD 


REF  5 LAST 

REF  1 

REF  13  LAST 

REF  14  LAST 
REF  7 LAST 

REF  8 LAST 

REF  1 

REF  1 

REF  4 LAST 


22,3554 
719  22,3555 

22  ,3556 
719  22,3557 

22,3560 
722  22  ,3561 

719  22,3562 

22,3563 
722  22,3564 

22,  3565 

22.3566 

22.3567 
22, 3570 

22,?571 
719  22,3572 

22,3573 


77214  0 
C3755  0 
45565  0 
02207  0 
77752  1 
26207  0 
C2215  0 
77752  1 
02215  0 

77624  1 TFFCALL 
57362  1 

77624  1 
57430  1 

77625  0 
02203  1 
6441^  1 


BOFF  VLUAD 

V82eMFLG 

TFFCALLS 

RCNE 

VSL2 

STOVL  RONE 
VCNE 

VSL2 

STCRE  VONE 
CALL 

TFFCCNMU 

CALL 

TFFRP/RA 

OSl 

RPAOTEM 
BOFF  SR2R 


REF  6 LAST 


REF  3 LAST 

REF  4 LAST 

REF  I 

REF  5 LAST 

REF  280  last 


722 


622 

715 


722 

688 


22.3574 

22.3575 
22  ,3576 
22 ,3577 
22,3600 
22  ,3601 
22,36C2 

22.3603 

22.3604 

22.3605 


03755  0 
45576  1 

77624  1 
45636  0 
16120  0 
00017  1 

77625  0 
02203  I 
00161  1 
64414  I 


CALL 

STORHAPO  STOOL 

OSU 

STORE 

BCFF 


V82EMFLG 
♦ 1 

MAXCHK 

HAPOX 

RPER 

PPAOTEM 
MPAC  +4 
SR2R 


REF  7 LAST  722  22,3606 

22  ,3607 
22,3610 

REF  4 LAST  722  22,3611 


03755  0 
45610  1 
77624  1 
45636  0 


V82FMFLG 
+ l 

CALL 

MA  XCHK 


INITIALIZE  PUSHDOWN  LISTo 


SR3n«l  INPUT:  RONE  AT  (-29)M  EARTH/MOON 
VONE  AT  (-7IM/CS 

TFFCONMU, TFFRP/RA .CALCTPER  AND  CALCTFF 
CALLS  REQUIRE  : 

EARTH  CENTERED  (NC  RESCALING  REQUIRED! 

RONE  SCALED  TO  B-29  M 

VCNE  SCALED  TO  B-7  M/CS 

MOON  CENTERED  (RESCALING  REQUIRED! 

RONE  SCALED  TO  6-27  M 

VONE  SCALED  TO  B-5  M/CS 

OFF  FOR  EAPTF  , ON  FCR  MOONo 


TFFRP/RA  COMPUTES  RAPO.RPERc 
RETURNS  WITH  RAPO  IN  0(MPAC)<, 


NEFD  HAPO  AT  (-20)  M FOR  DISPLAY. 

IF  MOON  CENTERED,  RESCALE  FROM  (-27)M 
IF  EARTH  CENTERED  ALREADY  AT  (-29!M„ 
OFF  FOR  EARTH  , ON  FOB  MOON, 

IF  HAPO  > MAXNM,  SET  HAPO  =9909*9  NM* 
OTHERWISE  STORE  ( R APO-R PAOTEM ) IN  HAPO, 


GIVES  HPEP  AT  ( -2 9 ) M EARTH,  (-27!M  MOON* 
SAVE  THIS  FOP  COMPARISON  TO  HPEPMIN, 

NEED  HPER  AT  (-29)8  FOR  DISPLAYo 
IF  MOON  CENTERED,  RESCALE  FROM  (-27)Mc 
IF  EARTH  CENTERED  ALREADY  AT  (-29)M. 

OFF  FCP  earth,  CN  FOR  MOON* 

IF  HPFR  > MAXNM,  SET  HPER  = 9999*9  NM* 


GAP: 


ASSEMBLE  REVISION  131  OF  AGC  PPCCRAM  LUMINARY  BY  NASA  2021112-091 


L R30 


0371 

REF 

? 

LAST 

316 

22, 3612 

16122 

1 

STORHPER 

STCDL 

HPERX 

03  72 

REF 

290 

LAST 

722 

22,3613. 

00161 

1 

MPAC  +4 

037? 

22,3614 

51025 

1 

osu 

BPL 

0379 

PEF 

5 

L AST 

719 

22»3615 

02201 

0 

HPERMI  N 

0375 

REF 

1 

22  ,3616 

45622 

0 

DOTPER 

0376 

22,3617 

52145 

0 

CLCAC 

GCTC 

0377' 

REF 

4 

LAST 

598 

22,3620 

06524 

1 

HI6Z6R0S 

C378 

REF 

1 

22,3621 

45626 

1 

SKIPTPER 

0379 

22, 3622 

45145 

0 

OOTPER 

DLOAD 

CALL 

03  80 

REF 

2 

LAST 

722 

22,3623 

00017 

1 

RPEP 

0381 

PEF 

1 

22,3624 

57466 

1 

CALCTPER 

038? 

22, 3625 

77676 

0 

DCCMP 

03  83 

REF 

6 

LAST 

718 

22  ,5626 

16143 

0 

SK  IPTPER 

STOOL 

-TPER 

0384 

RCF 

6 

LAST 

72  3 

22,3627 

02201 

0 

HPERMIN 

0385 

22,3630 

45015 

1 

DAO 

CALL 

0386 

REF 

6 

LAST 

722 

22  ,3631 

02203 

1 

RPADTEM 

0387 

RCF 

1 

22, 3632 

57471 

1 

CALCTFF 

03  88 

22,3633 

77676 

0 

OCOMP 

0389 

REF 

11 

LAST 

719 

22,3634 

36141 

0 

STCALL 

TFF 

0390 

REF 

8 

LAST 

722 

22, 3635 

00C51 

0 

S2 

0391 

22  ,3636 

51025 

1 

MAXCHK 

CSU 

8PL 

0392 

RFF 

1 

22,3637 

C5646 

0 

MAXNM 

0393 

22,3640 

45643 

1 

+ 3 

0394 

22,3641 

43415 

0 

OAC 

RV(3 

0395 

REF 

2 

LAST 

723 

22,3642 

C5646 

0 

MAXNM 

03  96 

REF 

LAST 

723 

22,3643 

43545 

1 

+ 3 

OLOAD 

RVQ 

0397 

3 

22,3644 

05646 

0 

MAXNM 

0398 

C398 

22,3645 

22  ,3646 

01065 

05603 

n 

1 

MAXNM 

20CT 

UIC65  05603 

17:5?  0£Cq  19,1969  KISSING  ^055  PAGE  723 


USER'S  PAGE  NOo  10  EA  S3 

STORE  (RPER  - RPAOTEH)  INTO  HPERX,, 

HPEPMIN  AT  (-29)M  FOR  EARTH,  (-27»M  MOON 
IF  HPER  L/  HPERMIN  (300  OR  35IKFT, 

THEN  ZERO  INTO  -TPERo 
OTHERWISE  CALCULATE  TPER» 


TPER  IS  PUT  NEG  INTC  -TPER® 

HPERMIN  AT  (-29)M  FOR  EARTH,  (-27IM  MOON 

RPADTEM  AT  (-29)M  FOR  EARTH,  (-27»M  MOON 
GIVES  59M59S  FOP  IFF  IF  RP£R  G/ 

HPEPMIN  + PPAOTFRc  (TPER  HAS  NON  ZERO) 
OTHERWISE  COMPUTES  TFF«  (GOTO) 


IF  C(MPAC)  > 9999o9  NM,  MPAC  = 9999^9  NM 
OTHERWISE  C(MPACI  = BIMPAOo 


(USED  BY  P30 


P37  ALSO 


GAP:  ASSEt'BLE  REVISION  131  CF  AGC  PRCCRAf-  LUMINARY  BY  NASA  202U12-C?! 
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► L R30 


END  CF  KISSING  *055 


USER'S  PAGE  NOo  11  E4  S3 
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BURNf  BABY,  BURN  — MASTER  ICMTICN  ROUTINE 


17:53  DEC^  19,1969  FLY 


USER*  S PAGE  NCo 


] 


fl53  PAGE  725 


EO  S3 


0001 

0002 

0003 

0009 

0005 

R0006 

ROOOB 

ROOIO 

R0012 

R0013 

R0015 

R0017 

R0019 

R0021 

R0022 


REF 


PEF 

REF 


LAST 


36,2029 

36,2000 

36,2029 

£7,1955 


BANK  36 
SETLOC  P90S 
BANK 

LAST  655  £7,1955  EeANK=  WHICH 

LAST  9C  TO  90:  2 20>:'.  COUNT*  SS/PAO 

THE  MASTER  IGMTICN  RCUTINE  IS  DESIGNED  FOR  USE  BY  THE  FOLLOWING  LEM  PROGRAMS:  P12,  P90,  P92,  P6l  , Pft3o 
IT  PERFORMS  ALL  FUNCTIONS  IMMEDIATELY  ASSOCIATED  WITH  APS  OR  OPS  IGNITION:  IN  PARTICULAR,  EVERYTHING  LYING 
BETWEEN  THE  PRE-IGMTION  TIME  CHECK  — ARE  WE  WITHIN  95  SECONDS  OF  TIG?  — AND  TIG  + 26  SECCNDS,  WHEN  DPS 
PROGRAMS  THROTTLE  LPo 

VARIATIONS  AMONG  PROGRAMS  ARE  ACCOMODATEO  BY  MEANS  OF  TABLES  CONTAINING  CONSTANTS  (FOR  AVEGEXIT,  FOR 
WAITLIST,  FOR  PINBALL)  ANC  TCF  INSTRUCTIONS*  USFRS  PLACF  THF  AORES  OF  THE  HEAD  OF  THF  APPROPRIATE  TABLE 
(OF  P61TA6LE  FOR  P61LM,  FOR  EXAMPLE)  IN  ERASABLE  REGISTER  'WHICH*  ( E9 ) . THE  IGNITION  ROUTINE  THEN  INDEXES  BY 
WHICH  TO  OBTAIN  OR  EXECUTE  THE  PROPER  TABLE  ENTRY,  THE  IGNITION  ROUTINE  IS  INITIATED  BY  A TCF  BURNBABY, 
THROUGH  BANKJUMP  IF  NECESSARY*  THERE  IS  NO  RETURN* 

THE  MASTER  IGNITION  ROUTINE  WAS  CONCEIVED  AND  EXECUTED,  AND  (NCTA  BENE)  IS  MAINTAINED  BY  ADLER  AND  EYLES. 

HCM  SGIT  QUI  MAL  Y PENSE 


R0025 

R0026 

R0027 


TABLES  FOR  THE  IGNITION  ROUTINF 


R0028 


NOLI  SE  TANGERE 


0029 

0030 

0031 

0032 

0033 
0039 

0035 

0036 

0037 

0037 

0038 

0039 
0090 

R0093 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


35  LAST  718 


9 LAST  725 


36,2029 

36.2025 

36.2026 

36.2027 
36,2020 

36.2031 

36.2032 
E7, 1955 

36.2033 
36,2039 

36.2035 

36.2036 
36,2027 


01512  0 
1 2327  I 
I 2616  0 
1 3066  0 
1 5261  0 
1 2150  0 
00000  1 

03796  1 
£9067  1 
1 2902  1 
1 2567  0 
1 2525  C 


067^ 
ULLGNCT 
TCF  C0MFAIL3 

TCF  GOCUTOFF 

TCF  TASKOVER 

TCF  PIZSPOT 

DEC  0 

£BANK=  WHICH 
2CA0R  SERVEXIT 


TCF 

TCF 

TCF 


DI SPCHNG 
WAITABIT 
P12  I6N 


(0) 

(1  ) 

(2) 

(3) 

(9  ) 

(5) 

(6)  NO  ULLAGE 


(7) 

(11  ) 
( 12) 
(13) 


0099 

0095 

0096 

0097 

0098 

0099 


REF  2 
PEF  1 
REF  1 
REF  36 
REF  1 


LAST  725 

LAST  725 


36.2090 

36.2091 

36.2092 

36.2093 
36,2099 
36  ,2095 


01950  I 
1 2327  1 
1 2620  0 
1 3053  0 
1 5261  0 
1 2150  0 


P90TAeL£ 


VN 

TCF 

TCF 

TCF 

TCF 

TCF 


0690 

ULLGNCT 

C0MFA1L9 

GCPOST 

TASKCVER 

P90SP0T 


(0  ) 
(1  ) 
(21 
(3  ) 
(9) 
( 5) 


r 


GAP  : 

i. 

0050 

0051 

0052 

0052 

0053 

005^ 

0055 

0056 

R0058 

0060 

0061 

0062 

0063 

0063 

0P6A 

0065 

R0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

007A 

0075 

0075 

0076 

0077 

0078 

0079 

R0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0090 

0091 

0092 
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BURN,  BABY,  BURN  — MASTER  IGMTICN  ROUTINE 


USER  'S  PAGE  NOo  2 E7  S3 


REF  1 
REF  1 
REF  1 
REF  1 
REF  2 
REF  1 
REF  1 


LAST  725 


36.2046 
£6,1422 

36.2047 

36.2050 

36.2051 

36.2052 

36.2053 

36.2054 


04300  0 

C3672  1 
74066  1 
1 2372  1 
1 2567  0 
1 2510  0 
1 3127  1 


DEC  2240  (61 

eBANK=  OMEGAO 

2CA0R  STEERING  (7  1 

TCF  P40SJUNK  ( 11  I 

TCF  WAITABIT  (121 

TCF  P40IGN  (13) 

TCF  REP40ALM  (1^1 


REF  I 

REF  2 LAST  726 

REF  1 

REF  1 

REF  1 

REF  ) 


36.2055  1 2153  0 

36.2056  77776  I 

E6, 1422 

36.2057  C3402  1 

36.2060  74066  1 

36.2061  1 2404  1 

36.2062  1 2573  0 


P41TABLE  TCF  P41SP0T 
DEC  -1 
eBANK=  OMEGAO 
2CA0R  CALCN85 

TCF  COMMON 
TCF  TI6TASK 


(71 

(111 
(12  1 


REF  1 
REF  - 2 
RFF  2 
REF  37 
REF  1 

REF  3 
REF  2 

REF  2 
REF  3 
REF  1 
REF  1 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


725 

725 

725 


726 

726 

726 

726 


36,2063  01450  1 P42TA8LE  VN  0640 


36.2064  1 2324  1 

36.2065  1 2620  0 

36.2066  1 3053  0 

36.2067  1 5261  0 

36.2070  1 2150  0 

36.2071  05120  I 

E6, 1422 

16.2072  03672  I 

36.2073  74C66  1 

36.2074  1 2372  1 

36.2075  1 2567  0 

36.2076  1 2545  C 

36.2077  1 3424  1 


TCF  WANTAPS 

TCF  C0MFAIL4 

TCF  GOPOST 

TCF  TASKCVER 

TCF  P42SP0T 

DEC  2640 

EflANK=  OMEGAO 

2CADR  STEERING 

TCF  P40SJUNK 

TCF  WAITABIT 

TCF  P42IGN 

TCF  P42STAGF 


(01 
(1  1 
(21 
(3) 
(41 
( 51 
(6  1 

(7) 

(lit 
(121 
(13  I 
( 1^1 


REF  3 LAST  725 

REF  2 LAST  725 

REF  1 

REF  38  LAST  726 

REF  1 

REF  5 LAST  725 

RFF  2 last  725 

REF  2 LAST  725 

REF  4 LAST  726 


36.2100  01476 

36.2101  I 2327  1 

36.2102  1 2616  0 

36.2103  1 3003  0 

36.2104  1 5261  0 

36.2105  ] 2153  0 

36.2106  04300  0 

E7,1455 

36.2107  C3746  1 

36.2110  64067  1 

36.2111  1 2402  1 

35.2112  1 2567  0 


0662 
ULLGNOT 
TCF  C0MFAIL3 
TCF  V99RECYC 
TCF  TASKOVER 
TCF  P63SPCT 
DEC  2240 
6eANK=  WHICH 
2CA0R  SERVEXIT 

TCF  DISPCHNG 
TCF  WAITABIT 


0 P63TABLE  VN 
TCF 


(2  1 
(31 
( 41 
(51 
(61 

(7) 

(11  I 
{ 121 


GAP: 

L 

OOQ3 

R0096 

0112 

0113 

0114 

0115 

0116 

C117 

0118 

0119 

0120 

0121 

0122 

012? 

R0126 

R0127 

R0128 

R0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0141 

0142 

0143 

0173 

0174 

0175 

C176 

0179 

0180 

0182 

0183 

0185 

0186 


ASSEMBLE  REVISION  131  QF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  EEC.  19,1969  FLY 


153  PAGE  727 


6LRN,  BABY,  BURN  — MASTER  IGMTICN  ROUTINE 


USER  ' S PAGE  NO.  3 


E7  S3 


REF 


36,2113  1 2^64 


TCF  P63IGN 


REF  4 LAST 

REF  3 LAST 

REF  2 LAST 

REF  39  LAST 


REF  3 LAST 
REF  5 LAST 
REF  1 


726 
726 
725 
72  6 


726 

726 


36.2114  01477  1 

36.2115  1 2327  I 

36.2116  1 2616  0 

36.2117  1 3066  0 

36,2120  1 5261  C 

36  ,2121  12  122  0 

36.2122  12  123  I 

36.2123  12  124  0 

36.2124  12  125  1 

36.2125  1 2402  1 

36.2126  1 2567  0 

36.2127  1 2535  1 


AERTAfiLE  VN 
TCF 
TCF 
TCF 
TCF 
NOOP 
NCCP 
NOOP 
NOOP 
TCF 
TCF 
TCF 


0663 

ULLGNCT 

C0MFAIL3 

GCCUTOFF 

TASKOVEP 


DI SPCHNG 
WAITABIT 
ABRTIGN 


10  » 
(1  ) 
(2) 

(3) 

(4) 
( 5) 
(6  ) 
(7J 


(11  ) 
(12) 
(13) 


GENERAL  PURPOSE  IGNITION  ROUTINES 


REF  20  LAST  713 


36.2130  0 5353  I 

36.2131  C4C24  0 


eURNBAev  TC 
OCT 


PHASCHNG 

04024 


GROUP  4 RESTARTS  HERE 


PEF  131  LAST  718 
PEF  4 LAST  317 
REF  5 LAST  727 


36  ,2132  3 4755  1 

36.2133  55»507  0 

36.2134  55'510  C 


CAF  ZERO  EXTIRPATE  JUNK  LEFT  IN  DVTCTAL 

TS  OVTOTAL 

TS  OVTOTAL  +1 


REF  187 
REF  1 


LAST  720 


36 .2135 

36.2136 


0 4616  1 
73707  0 


TC  BANKCALL  P40AUT0  MUST  BE  BANKCALLEO  EVEN  FROM  ITS 

CADR  P40AUTC  OWN  BANK  TO  SFT  UP  RETURN  PROPERLY 


REF  23  LAST  712 
REF  2 LAST  1^9 


36,2137  0 0006  1 E>»RNB*B*  EXTEND 


36.2140  3 1442  1 

36.2141  53'512  I 


DC  A TIG 
DXCH  GUPLTIME 


STORE  NOMINAL  TIG  FOR  OBLATFNESS  COMP- 
AND FOR  P7ri  OR  P71o 


REF  24 
REF  1 


LAST  560 


36.2142 

36.2143 

36.2144 

36.2145 


C 0004  0 
C 4674  0 
7557C  1 
0 0003  1 


INFINT 

TC  IBNKCALL 
CADR  ENGIN0F3 
RELINT 


REF 


6 LAST  726 


36.2146  51*455  1 

36.2147  1 0005  0 


INDEX  WHICH 
TC  F 5 


REF  2 LAST 

REF  3 LAST 

REF  2 LAST 

REF  1 


725  36,2150 

727  36,2150 

726  36  ,2153 
36,2150 


4762 


P42SPCT  = 
P12SP0T  = 
P63SP0T  = 
P4CSP0T  CS 


P40SPCT 

P4CSP0T 

P41SP0T 

CNTDNDEX 


(5  ) 
(5) 
(5) 
(5  ) 


IN  P63  CLOKTASK  ALREADY  GOING 


gap:  assemble  REVISION  131  OF  AGC  PRCGRAM  LUMINAOY  BY  NASA  2021U2-n91 


PURNi  BABY,  BURN 


master  igmticn  routine 


01861  REF  188 

01862  REF  1 

0187  REF  97 
01871 

0188  REF  24 

0189  REF  1 
018«1  REF  40 
01892  REF  1 

0190 

0191  REF  3 

0192  REF  1 

0193  REF  5 

0194 

0195  REF  12 

0196  REF  20 

0197 

C198  REF  3 

0199  REF  9 

0200 

0201  REF  21 

0202  REF  3 

0203  REF  1 

0204  REF  '2 
02042  REF  13 
02044  REF  41 

0205 

0206  REF  1 

0207  REF  1 


LAST 

LAST 

LAST 

LAST 


LAST 


LAST 


LAST 

LAST 


LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 


72  7 
719 
727 
716 


708 


706 

712 

709 

TOP 

712 

728 
70  8 

121 

712 

728 


36  ,2151 

36.2152 

36.2153 

36.2154 

36.2155 

36.2156 

36.2157 

36.2160 

36.2161 

36.2162 

36.2163 

36.2164 

36.2165 

36.2166 

36.2167 

36.2170 

36 .2171 

36. 2172 

36.2173 

36.2174 

36.2175 

36.2176 

36.2177 

36.2200 

36.2201 

36. 2202 

36.2203 

36.2204 


0 4616 
7467C 

0 6042 
45345 
C3442 
35147 
34041 
61C71 
45014 
C3347 
74202 
27042 
64375 
00025 
ri734 
77762 
25726 
C0017 
64312 
01734 
35720 
67067 
16317 
00C15 
O0041 
77624 
27553 

1 2213 


P41SPDT 


1 

0 

1 

1 

0 

0 

0 

0 

0 

I 

1 

1 

I 

0 

0 

1 

0 

1 

0 

0 

1 

1 

0 

0 

1 

1 

1 

1 


TC  BANKCALL 

CADR  STCLCK2 
TC  INTPRET 

CLCAC  DSU 
TIG 

029, 9SEC 
STCALL  TDECl 

INITCDLVi 
BOFF  CALL 

MUNFLAG 
GOMIDAV 
CSRPREC 
VLCAD  MXV 

VATTl 

REFSMMAT 

VSRl 

STOVL  V(CSM) 
RATTl 


VSL4  MXV 

REFSMMAT 
STCALL  R(CSM) 
MUNGRAV 
STCCL  G(CSM» 
TAT 

STORE  TDECl 
CALRB 

MlDTOAVl 
TCF  CALLT-35 


0200 

0209 

0210 
0211 
0212 
0213 


REF  3 LAST  197 
REF  25  LAST  728 

REF  2 LAST  72  8 
REF  26  LAST  728 


36.2205  C 0006  I 

36.2206  3 1561  1 

36.2207  53*442  C 

36.2210  0 0006  1 

36.2211  3 3147  0 

36. 2212  21 *442  0 


EXTEND 

OCA  PIPTIMEl 

CXCH  TIG 

EXTEND 

DCA  029,9SEC 

DAS  TIG 


0214  REF 

0215  REF 

0216 

0217  REF 

0218  REF 

0219 

0220 
0221 
0222 
0223 

0223 

0224  REF 

0225 


291  LAST 

5 LAST 

1 

6 LAST 

7 LAST 
3 LAST 

17  LAST 
3 LAST 

29  LAST 


REF 

REF 

REF 

REF 


723  36,2213  52  155  1 

242  36,2214  53*  500  I 

36.2215  0 0006  1 

36.2216  4 3762  0 

728  36,2217  21*500  1 

36,2220  C 0006  1 

728  36  ,2221  3 1500  0 

515  36,2222  0 5277  0 

559  E7,1453 

242  36,2223  02242  1 

36,2224  74067  0 

727  36  ,2225  0 5353  I 

36,2226  20254  0 


CALLT-35 


DXCH  MPAC 
DXCH  SAVET-30 
EXTEND 

CCS  5SEC0P 
CAS  SAVET-30 
EXTEND 

CCA  SAVET-30 
TC  LONGCALL 

E8ANK=  TTOGO 
2CADR  TI6-35 


TC  PHASCHNG 

OCT  20254 


17:53  DECo  19,1969  FLY 


153  PAGE  728 


USER'S  PAGE  NCo 

MUST  BE  BANKCALLEO  FOR 
RETURN 
(51 


4 E7  S3 

GENERALI  ZED 


CSM  VELOCITY  - M/CS*2(7) 

CSM  POS IT ICN  - M*2 (24» 

CSM  GRAVITY  VECf  - M/CS*2(7) 

RELOAD  TDECl  FOP  MIDTOAVo 

MADE  IT  IN  TIME© 

TIG  WAS  SLIPPEC,  SC  RESET  TIG  TO  29,9 
SECONDS  AFTER  THF  TIME  TO  WHICH  WE  DIO 
INTEGRAT  Eo 


DELTA-T  UNT  IL  TIG- 30 

DELTA-T  UNTIL  TIG-35 


4o25SP0T  FOR  TIG-35  RESTART, 


GAP  : 


17:53  DEC*  19,1969  FL' 


153  PAGE  729 


ASSEMBLE  REVISION  131  OF  A6C  PPCGRAf'  LUMINARY  BY  NASA  2021112-091 


BURN,  BABY,  BURN  — MASTER  IGNITION  ROUTINE 


USER’S  PAGE  NCe  5 £7  S3 


0226- 

0227 

0226 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 


LAST 

LAST 

LAST 

LAST 


717 
727 
683 
72  8 


REF  lOB  last  729 


36  ,2227 

36.2230 

36.2231 

36.2232 

36. 2233 
36  ,2234 

36.2235 

36.2236 

36.2237 
36, 22A0 
36,22A1 


0 5321  1 
CCC77  1 

1 5155  1 
A A762  1 
55'162  1 
n 6042  1 

51575  1 
02553  1 
03472  0 
77776  1 
1 5155  1 


STORE 

EXIT 

TCF 


CHECKMM 

63 

ENDOF JOB 

CNTCNCex 

0!  SPDEX 

INTPRET 

ABVAL 

VNl 

ABVEL 

ENOOF JC0 


INITIALIZE  ABVEL  FOR  P63  DISPLAY 


0238 

0239 

0240 


REF 

REF 

REF 


LAST  523 
LAST  242 


36.2242 

36.2243 
36,22AA 


3 3762  I TIG-35 
0 5173  1 
023C0  0 


CAF  5SEC 

TC  TWIDDLE 

ACRES  TIG-30 


0245 

0246 
C247 

0248 

0249 

0250 

0251 


REF  30  LAST  728 


LAST  729 
LAST  727 


REF 

REF 

REF 

REF 


LAST  727 
LAST  729 


36.2251 

36.2252 

36.2253 

36.2254 

36.2255 

36.2256 

36.2257 


51*455  1 
4 0006  0 
C 0CO6  1 
6 5261  I 
3 3151  I 
C 5173  1 
02270  0 


INDEX  WHICH 
CS  6 
EXTEND 

BZMF  TASKCVER 
CAF  4o9SEC 
TC  TWIDDLE 
AORES  TIG-30ol 


4ol5SP0T  FOR  TIG-30  RESTART 
BLANK  DSKY  FOR  5 SECONDS 


CHECK  ULLAGE  TIME* 


SET  UP  TASK  TO  RESTCPE  DISPLAY  AT  TIG-30 


0252 

0253 

0254 

0255 
0255 
02  56 


REF 

REF 

REF 

REF 

REF 

REF 


41  LAST  729 


36.2260 

36.2261 
E7  , IA53 

36.2262 

36. 2263 

36.2264 


02265  1 
7A067  0 
1 5261  0 


CAF  PRI017 

TC  NCVAC 

EBANK=  TTDGO 
2CA0R  P4ieLANK 


A NEGATIVE  ULLAGE  TIME  INDICATES  P41  , IN 
WHICH  CASE  WE  HAVE  TO  SET  UP  A JOB  TO 
BLANK  THE  DSKY  FOR  FIVE  SFCONDS,  SINCE 
CLOKJOB  IS  NOT  PUNNING  DURING  P41: 


.TCF 


TASKOVER 


0257 

0258 

0259 


REF  189 
REF  1 
REF  109 


LAST  728 
LAST  729 


36.2265 

36.2266 

36.2267 


0 4616  1 P4ieLANK  TC 

20A57  0 CACR 

1 5155  1 TCF 


BANKCALL 

CLEANOSP 

ENDOFJOB 


BLANK  DSKY* 


0260 
02  61 
0262 
0263 

0263 

0264 


REF 

REF 

REF 

REF 

REF 

REF 


19  LAST  729 


A2  LAST  729 


36.2270 

36.2271 
E7,1453 

36. 2272 

36.2273 
36,227A 


02275  0 
74067  0 
1 5261  0 


7IG-30*1  CAF  PRI017 

TC  NOVAC 

EDANK=  TTCGO 
2CA0R  T1G-30A 

TCF 


SET  UP  JOB  TO  RESTORE  DISPLAY  AT  TIG-30 


TASKOVER 


gap:  ASSE^'BLE  REVISION  131  OF  AGC  PRCC-RAR  LUMINARY  BY  NASA  Z02ll)2-OPi 


L BURN,  BAEY,  BURN  — MASTER  IGNITION  ROUTINE 


0265 

0266 
0267 


REF  1 36i2275  3 3765  0 T1G-30A  CAF 

REF  IFO  LAST  729  36|2276  C 4616  1 TC 

REF  1 36,2277  20466  1 CAOR 


VI 6N85e 

BANKCALL 

REGOOSP 


R0268 


0269 

0270 

0271 


REF  1 

REF  11  LAST  729 
REF  3 LAST 


36.2300  2 3150  C TIG-30 

36 .2301  0 5173  1 

36.2302  02354  1 


CAF  S24,9SEC 

TC  TWIDDLE 

ACRES  TIG-5 


0272  REF  3 LAST  729 
C273  REF  7 LAST  729 


36.2303 

36.2304 


4 4762  1 
55*162  1 


CS  CNTONDEX 

TS  DISPOEX 


0274 

0275 

0276 

0277 

0278 

0279 

0280 


REF  8 


REF  5 
REF  8 
REF  12 
REF  2 


LAST  729 


LAST  727 
LAST  728 
LAST  73C 
LAST  240 


36.2306 

36.2307 

36.2310 

36.2311 

36.2312 

36.2313 


51*455  I 
3 0006  I 
C 0006  1 
6 2327  0 
55*477  0 
0 5173  1 
02350  0 


INDEX  WHICH 
CAF  6 
EXTEND 

BZMF  ULLGNTT 
TS  SAVET-30 

TC  TWIDDLE 

AORES  ULLGTASK 


0281  REF  22  LAST  71fl 

0282  REF  100  LAST  718 

0283  REF  23  LAST  730 

0284  REF  3 LAST  218 

0285  REF  5 LAST  369 

0266  REF  1 


36.2314  3 6250  0 

36.2315  54  CCl  1 

36.2316  4 6250  1 

36.2317  52  752  0 

36.2320  4 0025  1 

36.2321  55*052  0 


CA  THREE 

TS  L 

CS  THREE 

DXCH  -PHASEl 

CS  TIMEI 

TS  TBASei 


02861  REF  9 LAST 
02  862 


730  36,2322  51*455  I 

36,2323  I 0001  1 


INDEX  WHICH 
TCF  1 


02863  REF 

02864  REF 

02865  REF 


11  LAST  297 


LAST 

LAST 


29  7 
730 


36.2324 

36.2325 

36.2326 


4 0106  1 
7 4737  1 
26  106  I 


CS  FLGWRCin 
MASK  APSFLBIT 
ADS  FLGWRDir 


0287 

0288 

0289 

0290 


REF  10  LAST  730 
REF  3 LAST  105 


36,2327 

36.2330 

36.2331 

36.2332 


C 0006  1 
5 1455  1 
3 0010  0 
53*252  1 


ULLGNOT 


EXTEND 

INDEX  WHICH 

DCA  7 

DXCH  AVEGEXIT 


0291  REF  40 

0292  REF  101 

0293  REF  41 

0294  RCF  3 


LAST  715 
LAST  730 
LAST  730 
LAST  226 


36.2333 

36.2334 

36.2335 

36.2336 


3 4752  0 
54  001  1 

4 4752  1 
52  760  1 


CAF  Two 

TS  L 

CS  TWC 

DXCH  -PhASF4 


0295  REF  6 LAST  730 
C296  RCF  2 LAST  235 


36,2337  4 CC25  1 

36,2340  55'06C  1 


CS  TIMEI 

TS  TBASE4 


02961 


36,2341  C 0006 


ReC029l7  EXTEND 


17:53  DEC*  19,1969  FLY 


153  PAGE  730 


USER'S  PAGE  NCo  6 E7  S3 

RESTORE  CISPLAYo 

REGOOSP  DCES  A TCF  ENDOFJOB 


START  UP  CLCKTASK  AGAIN 

PICK  UP  APPROPRIATE  ULLAGE-ON  TIME 

DON'T  SET  UP  ULLAGE  IF  CT  IS  NEG  OR  ZERO 

SAVE  oelta-t  fcp  restart 

RESTART  PROTECT  ULLGTASK  (IcSSPOT) 


(1)  FOR  P42  ENSURE  APSFLAG  IS  SET  IF  IT 
WASN'T  SET,  DAP  WILL  BE  INITIALIZED  TO 
ASCENT  VALUES  BY  1/ACCS  IN  2 SECONDS* 

a> 

LOAD  AVEGEXIT  WITH  APPROPRIATE  2CA0R 

4,2SP0T  RESTARTS  IMMEDIATELY  AT  RE004«.2 
ANC  ALSO  AT  TI6-5  AT  THE  CORRECT  TIME* 


SET  TBASE4  FOR  TIG-5  RESTART 


gap:  assemble  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-n91 
L BURN,  BABY,  BURN  — MASTER  IGMTION  ROUTINE 


17:53  DECo  19,1969  FLY 
USER’S  PAGE  NOo 


«153  PAGE  731 
7 E7  S3 


02962  REF  10  LAST  540 

02963  REF  4 LAST  233 


36.2342  3 4755  1 

36.2343  52  754  0 


DCA  NEGO  CLEAR  OUT  GROUP  2 SO  LAMBERT  CAN  START 

CXCH  -PHASE2  IF  NEEDED* 


0297 

0290 


LAST  729 


36,  2344  10  762  0 RED04o2  CCS 

36,2345  1 5261  0 TCP 


PHASES 

TASKOVER 


IS  SERVICER  GOING? 

YES,  DON'T  START  IT  UP  AGAIN* 


PREREAD  ENDS  THIS  TASK 


R0301 


0302 

0303 

0304 

0305 


REF  31  LAST  729 
REF  44  LAST  731 


36.2350 

36.2351 

36.2352 

36.2353 


C 2663  0 
C 5353  1 
00001  0 
1 5261  0 


LLLGTASK  TC 
TC 
OCT 
TCF 


THIS  COMES  AT  TIG-7*5  OP  TIG-3o5 


0307 

03072 

03074 


REF 

REF 


36.2354 

36.2355 

36.2356 


C 00C6  1 
3 4755  1 
52  756  I 


TIG--5  EXTEND 

OCA  NEGO 
CXCH  -PHASES 


INSURE  THAT  GROUP  3 IS  INACTIVE* 


03076 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST 

last 

LAST 

LAST 

LAST 

LAST 


729 

730 
242 

634 

731 
731 


36,2357 

36.2360 

36.2361 

36.2362 

36.2363 

36.2364 

36.2365 

36.2366 

36.2367 


2 3762  1 
0 5173  1 
024C7  C 

0 5516  0 

00153  0 
0 5516  C 

00154  I 
0 5516  0 

C0122  0 


CAF  5SEC 
TC  TWIDDLE 
ACRES  TIG-0 

TC  DOWNFLAG 
ACRES  IGNFLA6 
TC  DOWNFLAG 
ACRES  ASTNFLAG 
TC  DOWNFLAG 
ADRES  20CMFLAG 


RESET  IGNFLAG  AND  ASTNFLAG 
FOR  LIGHT-UP  LOGIC 


REF  11  LAST  730 


LAST  727 


S40el3  IN  PROGRESS? 


03204 

0321 

0322 

0323 
0323 


REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 


366 

719 

729 

241 


36,2374 
36  ,2375 
£7,1453 

36.2376 

36.2377 


02540  1 
56067  0 


CAF  PRIC20 

TC  FINDVAC 

EBANK=  TTC60 
2CA0R  S40cl3 


REF  32  LAST  731 


3*5SP0T  FOR  S40o23 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  8Y  NASA  2C21112-C91 


17:53  DECo  19,1969  FLY 


153  PAGE  732 


L BLRN,  HA6Y,  BURN  — MASTER  IGMTICN  ROUTINE 


USER'S  PAGE  NOe  8 E7  S3 


0324  REF  1 

0325  REF  8 LAST  730 

03252  REF  33  LAST  731 

03254 

0326  REF  45  LAST  731 


36,2A02  4 476C 

36.2403  55»162 

36.2404  0 5353 

36.2405  40074 

36.2406  1 5261 


C DI SPCHNG  C S 

1 TS 

I COMMON  TC 

0 OCT 

0 TCF 


VB990EX  <11 ) 

D I SPOE  X 

PHASCHNG  RESTART  TIG-0  (4c7SP0T) 

40074 

TASKOVFR 


R0327 


0328  REF 

0329  REF 

0330  REF 


6 LAST  706  36,2407  4 0103 

1 36,2410  7 4737 

7 LAST  732  36,2411  2t  103 


1 TIG-O  CS  FLAGRRD7 

1 MASK  IGNFLBIT 

1 AOS  FLAGWRC7 


SFT  IGNFLAG  SINCE  TIG  HAS  ARRIVED 


0331  REF  3 

0332 

0333  REF  1 

0334  REF  2 

0335  REF  32 

0336  REF  21 

03365  REF  2 

03365 

0337  REF  4 

0338 


LAST  729 


LAST  2^1 
LAST  718 
LAST  244 
LAST  241 

LAST  655 


36.2413 

36.2414 

36.2415 

36.2416 
E7,1515 

36.2417 

36. 2420 

36.2421 

36.2422 


1 2425  1 
3 1422  1 
C 5203  C 


03667  0 
72C67  0 
0 5327  1 
40C33  0 


TC  CHECKMM  IN  P63  CASE,  THROTTLE-UP  IS  ZOOMTIME 

CEC  63  AFTER  NOMINAL  IGNITION,  NOT  ACTUAL 

TCF  IGNYET? 

CA  ZOOMTIME 

TC  WAITLIST 

E84NK=  DVCNTR 
2CADR  ZOOM 

TC  2PHSCHNG 

CCT  40033 


0339 

0340 


36.2423  05014  1 

36.2424  77777  0 


CCT  05014 
OCT  77777 


0341  REF  1 

03^2  REF  6 LAST  732 

C343 

0344  REF  12  LAST  731 

0345 


36.2425 

36.2426 

36.2427 

36. 2430 

36.2431 


3 4740  0 
7 0103  1 
C 00C6  1 
5 1455  1 
1 0012  0 


IGNYET? 


CAF 
MASK 
EXTEND 
INDEX 
ez  F 


ASTNBIT 

FLAGWRD7 

WHICH 

12 


CHECK  ASTNFLAG:  HAS  ASTRONAUT  RESPONDED 
TC  OUR  ENGINE  ENAPLE  REQUEST? 


BRANCH  IF  HE  HAS  NCT  RESPONDED  YET 


0346  REF  19 

03461  REF  3 

03462  REF  20 

03463  REF  6 

0347 

0348  REF  22 

0349  REF  27 

0350 

0351  REF  23 

0352 

0353  REF  17 

0354  REF  4 


LAST 

LAST 

LAST 

LAST 


611 

218 

732 

25S 


36.2432 

36.2433 

36.2434 

36.2435 

36.2436 

36.2437 

36.2440 

36.2441 

36.2442 

36.2443 

36.2444 

36.2445 


4 0101  0 
7 4745  1 
26  101  0 
4 4355  I 
0 0006  1 
02  011  0 
6 4737  0 
0 0006  1 
Cl  011  (1 
C 0006  I 
3 0025  0 
53‘342  1 


CS 

MASK 

AOS 


FLAGWRD5 
ENGONBIT 
FLAGWRC5 
PR  1030 


AD 

FXTEND 
WR  ITF 
EXTEND 
DCA 
CXCH 


INSURE  ENGONFLG  IS  SFTc 


TURN  ON  THE  EMGINEo 


SET  TEVENT  FOR  DOWNLINK 


03542  REF  1 
03544  REF  12  LAST 
03546  REF  13  LAST 


297 

732 


36.2446  4 4735  0 

36.2447  7 0111  1 

36,^50  *=4  111  1 


CS  PULSES  MAKE  SURE  THAT  CAP  IS  NOT  IN  MINIMUM 

MASK  DAPBOOLS  IMPULSE  MODE  IN  P J 2 , P4r  ,P42 ,AN0  P63 

TS  DAPBCCLS 
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0355 

0356  REF  A 

0357  REF  27 

0358 

0359  PEF  16 

0360  REF  28 


LAST  2A2 
LAST  728 


LAST  732 
LAST  733 


36.2451  n 0006  1 

36.2452  2 1517  0 

36.2453  53'442  0 

36.2454  C 0006  X 

36.2455  ? 0025  0 

36.2456  21'442  0 


EXTEND 

DCA 

OXCH 

EXTEND 

DCA 

DAS 


TGC 

TIG 

TIME  2 
TIG 


03601 

03602 

03603 


REF  1 

REF  10  LAST  706 
REF  11  LAST  733 


36,  2457  t-  4742  C 

36.2460  7 0104  0 

36.2461  54  104  0 


CS  FLUNDBIT 
MASK  FLAGWR08 
TS  FLAGWRCe 


0361 

0362 


REF  13  LAST  732 


36.2462  51'455  1 

36.2463  1 0013  1 


INDEX  WHICH 
TCF  13 


0364  PEF  1 
0366  REF  1 


36.2464  C 0CC6  1 P63IGN 

36.2465  3 3143  1 

36.2466  53»252  1 


EXTEND 

DCA  LUNLANAO 
CXCH  AVGEXIT 


36,2467  3 0005  I 

36,2470  55*162  1 


(1370  REF 

0371  REF 

0372  REF 


1 

1 

2 LAST  733 


36.2471  4 0105  1 

36.2472  7 4743  1 

36.2473  26  105  1 


0373  PEF  9 LAST  722 

0374  REF  1 

0375  kEF  10  LAST  733 


36.2474  4 0103  1 

36.2475  7 4741  0 

36.2476  26  103  1 


DISPDEX 

CS  FLAGHRC9) 

MASK  LETAB6IT/ 

FLAGWR09C 

CS  FLAGWRC7 

MASK  SWANDBIT 

ACS  FLAGWRC7 


03754 

03755  REF  19  LAST  733 

03756  REF  29  LAST  733 


36,2477  C 0006  1 

36.2500  3 0025  0 

36.2501  52*442  C 


EXTEND 

OCA  TIMe2 
DXCH  TIG 


0376  REF 

0377  REF 
03771  REF 

0378  REF 

0379  REF 


132  LAST  727 
1 

2 LAST  151 
42  LAST  730 
2 LAST  151 


36.2502  2 4755  1 

36.2503  55*346  C 

36,25C4  55*621  1 

36.2505  3 4752  0 

26.2506  55*623  0 


CAF  ZERO 

TS  WCHPHASE 

TS  WCHPHCLC 

CA  TWO 

TS  FLPASSO 


0380  REF 

0361  REF 

0362  PEF 
03  83 

0384  REF 

0385  REF 

0386  REF 

0387  REF 
03875  REF 
03875 

0388  REF 


? LAST 

21  LAST 
1 

3 LAST 
3 LAST 
33  LAST 

22  LAST 
3 LAST 

5 LAST 


726  36,2507 

722  36  ,2510 

26.2511 

36.2512 
733  36,2513 

732  26,2514 

732  36,2515 

732  £7,1515 

732  36,2516 

36,2517 
732  36,2520 


1 2545  0 

4 0101  0 P40IGN 
7 4740  I 
0 0006  1 
1 2545  0 
3 1422  1 
C 5203  0 

03667  0 
72067  0 

0 5227  1 P63IGN1 


TCF  P42IGN 
CS  FLAGWRD5 

MASK  NOTHRBIT 
EXTEND 

B2F  P42IGN 
CA  ZOOMTIME 

TC  WAITLIST 

FBANK=  DVCNTR 
2CA0R  ZnCM 

TC  2PHSCHNG 
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USER*  S PAGE  NCe  9 E7  S3 

UPDATE  TIG  USING  TGO  FROM  S40c  13 


PERMIT  GUICANCE  LOOP  DISPLAYS 


(13)  INITIATE  BURN  DISPLAYS 

ASSASSINATE  CLOKTASK 

SET  FLAG  FOP  PTO-PTI 

SET  SWANDISP  TO  ENABLE  RlOn 

INITIALIZE  TIG  FOP  P70  AND  P71t 

INITIALIZE  WCHPHASE  AND  FLPASSO 
ALSO  WHCPHOLD 


(13) 


GAP 
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0389 

0390 
03  91 


36.2521  40033  0 

36.2522  05014  1 

36.2523  77777  0 


OCT  40033 
OCT  05014 
OCT  77777 


0392  KEF 
0398  REF 
0398C5  REF 
039B1  REF 


LAST  733 
LAST  524 
LAST  715 
LAST  225 


36.2524  1 25A5  0 

36.2525  3 5C15  0 P12IGN 

36.2526  54  003  0 
E6,1536 


TCF  P42IGN 

CAF  EBAN'K6 

TS  EBANK 

EBANK=  AOSC 


039814  REF 
C39815  REF 
03982  REF 
039825  REF 


1 

8 LAST  734 
1 
1 


36,2527  3 1A12  1 

36  ,2530  55'536  1 

36.2531  3 1413  0 

36.2532  55»540  0 


CA  IGNAOSQ 

TS  AOSQ 

CA  IGNACSR 

TS  AOSR 


03983  REF  5 LAST 
039835  REF  23  LAST 

03984  REF  2?  LAST 


680 

734 

733 


36.2533  3 5016  0 

36.2534  54  003  0 
E7 ,1515 


CAF  EBANK7 

TS  EBANK 

E6ANK=  DVCNTR 


0399  REF  16  LAST  733 

0400  REF  10  LAST  733 


36.2535  3 0005  1 ABRTIGN  CA 

16.2536  55'162  1 TS 


SPDEX 


04001 

04002  REF 

04003  REF 


36,2537  0 0006  1 

1 36,2540  3 3145  I 

2 LAST  733  36,2541  53'252  1 


EXTEND 

DCA  ATMAGACR 
OXCH  AVGEXIT 


0401 

0402 

0403 


REF  11  LAST  733 
REF  2 LAST  733 
REF  12  LAST  734 


36.2542  4 0103  1 

36.2543  7 4741  0 

36  ,2544  26  103  1 


CS  FLAGWRC7 
MASK  SWANDBIT 
ACS  FLA6WRC7 


0405 

0409 

0410 

0411 

0412 

0413 

0414 


REF  1 

REF  14  LAST 

REF  15  LAST 

REF  1 

REF  18  LAST 

REF  221  LAST 

REF  1 


36,2545 
732  36,25A6 

734  36,2547 

36,2550 
683  36,2551 

71fl  36,2552 
36,2553 


i 4746  0 
7 0111  1 
54  111  1 
3 4743  0 
7 0076  1 
10  000  0 
1 3526  1 


P42IGN 


CS 

MASK 

TS 

CAF 

MASK 

CCS 

TCF 


dr  IFTBIT 
DAPBOOLS 
DAPBCOLS 
IMPULBIT 
FLAGWRD2 
A 

I MPLBURN 


0415 

0416 

0417 

0418 

0419 

0420 


REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 

LAST 


731 

731 

734 

731 

734 


36  ,2554 

36.2555 

36.2556 

36.2557 


00154  1 
C 5516  C 
00161  1 


DVMONCON  TC 

ACRES 

TC 

ACRES 

TC 

ACRES 


DOWN  FLAG 

IGNFLAG 

DOKNFLAG 

ASTNFLAG 

DOl^NFLAG 

IDLEFLAG 


0421  REF  34  LAST  732 

0422 


36.2562  0 5353  1 

36.2563  40054  1 


TC  PHASCHNG 

OCT  40054 


0423  REF  11  LAST  705 

0424 


36.2564  0 5221  0 

36.2565  C0C62  0 


TC  FIXDFLAY 

DEC  50 


17:53  DECo  19,1969  FLY  <153  PAGE  734 

USER'S  PAGE  NC«  10  67  S3 

3o3SP0T  FOR  ZOCM  RESTART,. 

TYPE  C RESTARTS  FERE  IMMEDIATELY 


INITIALIZE  DAP  BIAS  ACCELERATION 
ESTIMATES  AT  PJ2  IGNITIONc 


(13)  KILL  CLOKTASK 


CONNECT  ASCENT  GYIDANCE  TO  SERVICER^ 


ENABLE  RlOo 


ENSURE  that  PnwEPEC-FL  IGHT  SWITCHING 
CURVES  ARE  USFDe 

EXAMINE  IMPULSE  SWITCH 


CONNECT  DVMDN 


TURN  ULLAGE  OFF  HALF  A SFCONO  AFTER 
LIGHT  UPe 
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0A25  REF  1 36,2566  0 2657  I ULLAGOFF  TC  NOULLAGE 


0426  26,2567  C 0006  1 

0427  REF  12  LAST  731  36,2570  3 4755  1 

0428  REF  4 LAST  730  26,2571  52  760  1 


hAITABIT  EXTEND 
OCA 
CXCH 


NEGO 

-PHASE4 


KILL  GROUP  4 


0429  REF  46  LAST  732 


36, 2572 


5261  0 


TCF  TASKOVER 


04292  REF  42  LAST  731 

04293  REF  1 


36.2573  0 4635  0 TIGTASK  TC 

26.2574  73656  C CADR 


POST  JUMP 
TTGTASKl 


I 12) 


R0430 


04302 

04303  REF  1 


31,2144 
35, 20CO 


043C4 

04305  REF 


35,3656 


BANK  31 
SETLOC  P4CS3 
BANK 

CCUNT*  £t/P4n 


0431  REF 

0432  REF 

0433  REF 

0434  FEF 
0434  REF 
04342  REF 
04344  REF 


6 LAST 
18  LAST 
6 LAST 
1 
1 

72  LAST 
3 LAST 


474 
72  9 
611 


734 

287 


35,3656  3 5026 

35  ,3657  0 5072 

E7, 1462 

35.3660  03245 

35.3661  74C67 

35.3662  0 5516 

35  ,3663  00303 


0 

1 

1 

0 

C 


TIGTASKl  CAF  PRID16 

TC  NOVAC 

EBANK=  TRKMKCNT 
2CA0R  TIGNOV< 


TC  OOUNFLAG 

ADRES  PULSEFLG 


0435  REF  35  LAST  734 

0436 


35.3664  0 5353  1 

35.3665  00006  1 


TC  PhASCHNG 

OCT  6 KILL  GRCUP  6o 


0437  REF  47  LAST  735  35,3666  1 5261  0 


TCF  TASKOVER 


R0438 


0439  REF 

0440 

0441  REF 


LAST  732 


35,3667  0 5321  1 ZOCM 

35,3670  00C77  1 


TC  CHECKMM 

DEC  63 


35,3671  1 3677  0 


TCF  P40Z0,0M 


P40  OR  P63? 


0442 

0443 


REF  *44  LAST  711 
REF  2 LAST  731 


35  ,3672  0 5504  0 

25,3673  CC122  0 


P63Z00M  TC  UPFLAG 

ACRES  ZrCMFLAG 


indicate  that  thpottle-up  has  come 


0445  REF  25  LAST  727 

0446  REF  1 
04462  REF  1 


35.3674  0 4674  0 

35.3675  62327  0 

25.3676  1 3704  0 


TC  IBNKCALL 

CACR  FLATOUT 
TCF  P40ZCCMA 


04463  REF  28 

04464  REF  2 

04465  REF  30 


LAST  732  35 

LAST  213  35 

LAST  715  25 


,3677  3 4737 
,3700  54  C55 
,3701  2 4750 


0 P40Z00M  CAF 

C TS 

1 CAF 


DIT13 

THRUST 

BITi 
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04^.66  35,  37C2  C 0C06  1 EXTEND 

04467  REF  B LAST  540  35,3703  05  014  1 WOR  CHAN14 


0447 

0448 

0449 


PEF  36  LAST  735 
REF  48  LAST  735 


35,3704  0 5353  1 P40Z0CMA  TC 

35,37C5  CCC03  1 OCT 

35  ,3706  1 5261  0 TCF 


PhASCHNG 

3 

TASKOVER 


04493 

04494  REF 

04495 

04496  REF 


36,2575 

4 LAST  725  36,2000 

36',2575 

4 last  725  TO  735:  361  3814 


BANK  36 
SETLOC  P4CS 
BANK 

COUNT*  $S/P4fi 


R0450 


0451  REF  45 

0452  REF  2 

0453  REF  46 

0454  REF  1 

0455  REF  10 

0456.  REF  24 

0457  REF  I 

0458 

04o0  REF  191 

0461  REF  1 

0462  REF  1 

0463  REF  11 

0464  kef  37 

0465 

04655  REF  1 10 


LAST  735 
LAST  734 
LAST  736 

LAST  447 
LAST  734 


LAST  730 


LAST  734 
LAST  736 

LAST  729 


36.2575  C 5504  0 

36.2576  00161  1 

36.2577  0 5504  0 

36,26CC  C0175  1 

26.2601  2 4751  0 

36.2602  55*515  0 

36.2603  10  764  0 

36.2604  1 2607  0 

26.2605  C 4616  1 

36  ,2606  74667  0 

26,2607  4 4765  0 

36,2610  55'162  1 

36  ,2611  0 5353  I 

26.2612  C0CC4  C 

26.2613  1 5155  1 


CCMFAIL 


TC  UPFLAG  (15) 

AORES  lOLEFLAG 

TC  UPFLAG  SET  FLAG  TO  SUPPRESS  CONFllCTING  DISPLAY 

ADRES  FLUNDISP 

CAF  FOUR  RESET  OVMON 

TS  DVCNTR 

CCS  PHASE6  CLOCkTASK  ACTIVE? 

TCF  +3  YES 

TC  6ANKCALL  CThERwISE,  START  IT  UP 

CACR  STCLOKl 

CS  V897DEX 

TS  OISPDEX 

TC  PHASCHNG  TURN  OFF  GROUP  4b 

OCT  00004 

TCF  ENOOFJCB 


0466  REF  14  LAST  733 

0467 


36.2614  51'455  1 

26.2615  1 0002  I 


CCMFAILl  INDEX  WHICH 
TCF  2 


0468  REF  17  LAST  734 

0469 


36.2616  3 0005 

26.2617  1 2621 


1 CCMFAIL3  CA 
1 TCF 


+2 


{ 15)  KI LL  CLCKTASK  USING  2 


0470  REF  4 LAST  730 

0471  REF  12  LAST  736 


36.2620  4 4762 

36.2621  55*162 


1 C0MFAIL4  CS 
I TS 


CNTDNOEX 

DISPOEX 


0472  REF  73 

0473  REF  3 

0474  REF  74 

0475  REF  2 

0476  REF  111 


LAST  735  26 

LAST  736  36 

LAST  736  36 

LAST  736  26 

LAST  736  36 


,2622  0 5516  0 
,2623  00161  1 
,2624  0 5516  0 
,2625  00175  1 
,2626  1 5155  1 


TC  DOWNFLAG 
ADRES  IDLEFLAG 
TC  DOWNFLAG 
AORES  FLUNDISP 
TCF  ENOOFJOB 


RECONNECT  OV  MONITOR 

PERMIT  GUIDANCE  LOOP  DISPLAYS 


0477  PEF  38  LAST  736 

0478 


36,2627  C 5353 
36,2630  00003 


1 CCMFAIL2  TC 
1 OCT 


PHASCHNG 

00003 


KILL  ZOCM  RESTART  PROTECTION 
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USER’S  PAGE  NOo  13  F7  S3 


0A79 

0A80  PEF 

0481  REF 

0482  REF 

0483  REF 
04832  REF 
04834  REF 

0484  REF 

0485  REF 

0486  KEF 

0487  RE-F 

0488  REF 

0489 

0490  REF 

0491  REF 

0492  REF 


10  LAST 
4 LAST 
26  LAST 
1 

47  LAST 

1 

1 

1 

48  LAST 
2 LAST 

35  LAST 

14  LAST 
4 LAST 
112  LAST 


59  8 
733 

735 

736 


737 

226 

73,7 

731 

730 

736 


36.2631 

36.2632 

36.2633 

36.2634 

36.2635 

36.2636 

36.2637 

36.2640 

36.2641 

36.2642 

16.2643 

36. 2644 

36.2645 

36.2646 

36.2647 
36,2650 


C CCC4  C 
0 6032  0 
73667  1 
C 4674  0 
75565  0 
C 5504  0 
00312  1 
0 2651  1 
CC310  C 
0 5504  0 
00314  1 
3 4753  1 
C 0004  0 

0 5173  1 
02354  1 

1 5155  1 


INHINT 

TC  KILLTASK 

CACR  ZOOM 
TC  IBNKCALL 

CADR  ENGIN0F4 
TC  UPFLAG 
ADRES  DRIFTOFL 
TC  INVFLAG 

ADRES  ACP6TFLG 
TC  UPFLAG 

ACRES  ULLAGFLG 
CAF  81  T1 
INFINT 

TC  TWIDDLE 

ACRES  TIG-5 
TCF  FND0FJD6 


KILL  ZOOM,  IN  CASE  IT'S  STILL  TC  COME 

CCMMAND  ENGINE  CFF 

SET  THE  DRIFT  BIT  FOR  THE  DAP* 

USE  OTHER  RCS  SYSTEM 
TURN  ON  ULLAGE 


R0493 

R0494 

R0495 


SUBROUTINES  OF  THE  IGNITION  ROUTINE 


0496  REF  190  LAST  685 

0497  REF  1 

0498 

0499 

0500  REF  14  LAST  562 

0501  REF  1 


36.2651 

36.2652 

26.2653 

36.2654 

36.2655 

26. 2656 


3 0002 
C 5522 

4 CCOO 
C 0006 
C6  001 
1 5511 


0 INVFLAG  CA  0 

1 TC  DEBIT 

0 COM 

1 EXTEND 

0 RXOR  LCHAN 

0 TCF  COMFLAG 


R0502 


0503  REF  1 

0504  REF  16  LAST  734 

0505  REF  17  last  737 

0506  PEF  191  LAST  737 


36,2657  4 4746  1 NGLLLAGE  CS  ULLAGEP 

36.2660  7 0111  1 MASK  DAPBQOLS 

36.2661  54  111  1 TS  DAFBCCLS 

2b,2p62  C 0002  0 TC  0 


MUST  BE  CALLED  IN  A TASK  OR  UNDER  INHINT 


R050T 


0508  REF 

0509  REF 

0510  REF 


18 

2 

19 


LAST  737  36,2663  4 0111 

LAST  737  36,2664  7 4746 

LAST  737  36,2665  26  111 


1 ONLLLAGE  CS  OAPBCGLS 

1 MASK  ULLAGER 

1 ACS  OAPBOCLS 


0511  REF  192  LAST  737 


36,2666  0 0002  0 


TC  0 


TURN  ON  ULLAGEo  MUST  PE  CALLED  IN 
A TASK  OR  WHILE  INFINTECd 


R0512 


0513  REF  133  LAST  733 

0514  REF  13  LAST  736 


36,2667  3 4755  1 STCLCKl  CA 
36,2670  55'162  1 STCL0K2  TS 


ZERO 
DI SPDEX 


THIS  ROUTINE  STARTS  THE  COUNT-DOWN 
(CLOKTASK  AND  CLCKJCPU  SETTING 


GAP:  ASSEf^bLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L PLRN,  BABY,  BURN  — MASTER  IC-MTICN  ROUTINE 


0515  REF  9 

0516  REF  3 

0517 

0518  REF  30 

0519  REF  292 

0520 

0521  REF  20 

0522  REF  293 

0523  REF  7 

0524  REF  12 

0525  REF  193 

0526  REF  294 

0527  REF  10 

0520 

0529  REF  19« 

0530  REF  102 

0531  REF  A3 

053?  ' 

0533  REF  15 

0534  REF  3 

0535  REF  6 

0536 

0537 

0538 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


576  36,2671 

730  36,2672 

36,2673 
733  36,2674 

728  36,2675 

26,2676 
723  36,2677 

738  36  ,2700 

438  36,2701 

720  36,2702 

737  36,2703 

738  26,2704 

565  36,2705. 

36,2706 

736  26,27C7 

730  36,2710 

733  36,2711 

36,2712 

737  36,2713 

655  36,2714 

733  36,2715 

36.2716 

36. 2717 
36,2720 


C 4645  1 
55*060  1 
C 0006  1 
2 1442  I 
52  155  1 
C 0006  1 
4 0025  I 
20  155  1 
0 7262  0 

2 4777  1 
54  002  1 
52  155  1 
7 4346  0 
C 0006  1 
1C  002  1 

3 0001  0 
6 4752  0 
C 0004  0 
0 5173  1 

02723  0 
0 5327  1 
40036  0 
C5024  1 
13000  0 


STCLCK3 


TC  MAKECACR 

TS  T8ASE4 

EXTEND 
OCA  TIG 

DXCH  MPAC 

EXTEND 

DCS  TIME2 

CAS  MPAC 

TC  TPAGREF 

CAF  ISEC 

TS  0 

OXCH  MPAC 

MASK  LOWS 

EXTEND 
DV  Q 

CA  L 

AC  TWC 

INFINT 

TC  TWIDDLE 

ACRES  CLCKTASK 

TC  2PHSCHNG 

CCT  40036 

OCT  05024 

OCT  13000 


0539  REF  4 LAST  738 

0540  REF  12  LAST  579 


36.2721  2 1C60  0 

36.2722  0 4640  1 


CA  TBASE4 

TC  BANKJUMP 


0541  REF  7 LAST  73C 

0542  REF  1 


36,2723  4 0025  1 CLCKTASK  CS 

36,7724  55*C64  0 TS 


IMEl 

TBASE6 


0543  REF  14 

0544  REF  1 

0545 

0546  REF  3 

0547  REF  19 

0548  REF  21 

0549  REF  1 

0549  REF  1 


LAST  737 


LAST  510 
LAST  735 
LAST  731 


36.2725 

36.2726 

36.2727 

36.2730 

36.2731 
£7,  1453 

36.2732 

36.2733 


12  720  0 
3 7720  0 
C 5C72  1 


02743  0 
74C67  0 


CCS  DISPDEX 
TCF  KILLCLCK 
NOOP 

CAF  PR  1027 
TC  NOVAC 

EBANK=  TTOGO 
2CADR  CLOKJC0 


0550  REF  12  LAST  734 

0551 

0552  REF  4 LAST  73  8 


36.2734  0 5221  0 

36.2735  C0144  0 
36,2726  I 2723  I 


TC  FIXOELAY 

CEC  100 

TCF  CLOKTASK 


0553 

0554  REF  13  LAST  735 

0555  REF  2 LAST  216 


36,2737  0 0006  1 

36,  27,40  3 4755  1 

36,2741  52  764  0 


KILLCLCK  EXTEND 

DCA  NEGO 
DXCH  -PHASE6 


17:53  CEC,  19,1969  FLY 
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USER'S  PAGF  NCe  14  E7  S3 

SETTING  CISPDEX  POSITIVE  KILLS  IT> 
RETURN  SAVE  (NCT  FCP  RESTARTSI 


HAVE  TIG  - TIME2,  LNDCUBTEDLY  A + NUMBER 
POSITIVE,  SINCE  WE  PASSED  THE 
45  SECOND  CHECK 


RESTRICT  MAGNITUDE  CF  NUMBER  IN  A 


GET  REMAINDER 


6o3SP0T  FOP  CLOKTASK 


SFT  TBASE6  FOR  GPOLP  6 RESTART 


WAIT  A SECOND  8EFGRF  STARTING  OVER 


KILL  RESTART 


gap:  ASSE^'6LE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
L ■ BURN,  BABY,  BURN  — MASTER  IGMTICN  ROUTINE 


0556 


REF  49  LAST  736 


36,2742  1 5261  0 


TCF  TASKCVER 


0557 

0558 

0559 

0560 

0561 

0562 

0563 
056^ 

0565 

0566 

0567 

0568 

0569 

0570 


REF  31  LAST 
REF  22  LAST 

REF  21  LAST 
REF  23  LAST 

REF  15  LAST 
REF  113  LAST 
REF  114  LAST 


REF  222  LAST 
REF  1 


738 

738 

738 

739 

738 
737 

739 


734 


36.2743  C 0006  1 

36.2744  4 1442  0 

36.2745  53*454  1 

36.2746  0 0006  1 

36.2747  3 0025  0 

36.2750  21*454  1 

36.2751  0 0004  0 

36.2752  11*162  1 

36.2753  1 5155  1 

36.2754  1 5155  1 

36. 2755  4 OCOO  0 

36  ,2756  0 0003  1 

36,2757  5C  CCC  1 
36,2760  1 3015  I 


CLOKJOB 


EXTEND 
DCS  TIG 

OXCH  TTOGG 

EXTEND 

DCA  TIME2 

DAS  TTOGO 

INF  INT 

CCS  DISPDEX 

TCF  ENOOFJOB 

TCF  ENCOFJCe 

COM 

RELINT 

INDEX  A 

TCF  01 SPNOT  - 


0571  REF  1 


4765 


Ve970EX  = GCT35 


05713  REF  134 
05712  REF  1 

0572  REF  1 

0573  REF  192 

0574  REF  1 

0575  REF  1 

0576  REF  1 
C577  REF  1 


LAST  737 

LAST  736 


36.2762 

36.2763 

36.2764 

36.2765 

36. 2766 

36.2767 
36,2770 


4 4755  0 
55*066  1 
3 0371  1 

0 4616  1 
20474  1 

1 3017  0 
1 2614  1 
1 2627  1 


CS  ZERO 

TS  NVWORDl 

CA  NVWORD  +2 

TC  BANKCALL 

CACR  CLOCPLAY 

TCF  STCPCLCK 

TCF  COMFAILl 

TCF  C0MFAIL2 


40583 

0584 

0585 

0586 

0587 
05  88 
0569 


REF  1 
REF  193 
REF  1 
REF  2 
REF  3 


LAST  739 
LAST  739 


36.2771 

36.2772 

36.2773 

36.2774 

36.2775 

36.2776 


3 3152  1 

0 4616  1 
20460  1 

1 3017  0 
1 3C34  1 
1 2771  0 


-25 


CAF  V06N61 
TC  BANKCALL 

CADR  RBFLASH 
TCF  STOPCLOK 

TCF  ASTNRETN 

TCF  -5 


0590  REF 


'4762 


CNTDNOEX  = L0W4 


0591 

C592 

0593 

0594 


REF  15 

REF  194 
REF  2 


LAST  736 

LAST  739 
LAST  730 


36,2777 
36  ,3000 
36,3CC1 
36,3002 


51*455  1 
3 0000  1 
C 4616  1 
20466  1 


INDEX  WHICH 
CAF  0 

TC  BANKCALL 

CADR  REGOOSP 


0595  REF 


LAST  471  4760 


Ve99DEX  = ELEVEN 


05955 


36, 3003 


V99R6CYC  EQUALS 


05956  REF  19  LAST  561 

05957  REF  2 LAST  739 


36,3003  4 4743  1 -13 

36,3C04  £5*066  I 


CS 

TS 


6IT9 

NVWCRDl 


17:53  OECo  19,)969  FLY 
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IF  CISPDEX  HAS  BEEN  SET  POSITIVE  BY  A 
TASK  OR  A HIGHER  PRIORITY  JOB  SINCE  THE 
LAST  CLOKTASK,  AVOID  USING  IT  AS  AN 
I N0EX« 

*#*>!'*  DISPDEX  MUST  NEVER  BE  -0 
( -1  DUE  TC  EFFECT  CF  CCS  » 


NEGATIVE  OF  THIS  TS  PROPER  FOR  DISPDEX 
INDICATE  VERB  97  PASTE 

NVWROD+2  CONTAINS  E APPROPRIATE  NOUN 


TERMINATE  CLOKTASK  ON  THE  WAY  TO  POOH 


THIS  DISPLAY  IS  CALLED  VIA  ASTNCLOK 
IT  IS  PRIMARILY  USED  BY  THE  CPEW  IN  P63 
TO  RESET  HIS  EVENT  TIMER  TO  AGREE  WITH 
TIGo 


0CT17;  NEGATIVE  PROPER  FOR  DISPDEX 

THIS  DISPLAY  COMES  UP  AT  ONE  SECOND 
INTERVALSo  IT  IS  NCRMALLY  OPERATED 
BETWEEN  TIG-30  SECONDS  AND  TlG-5  SECONDS 
REGOOSP  DOES  ITS  OWN  TCF  ENOOFJOB 

0CT13;  NEGATIVE  PROPER  FOR  DISPDEX 


INDICATE  VERB  99  PASTE 


GAP  : 


ASSEMBLE  REVISION  131  OF  AGC 
BURN,  BABY,  BURN  — MASTER 


PROGRAM  LUMINARY  BY  NASA  20215  12-091 
IGNITION  ROUTINE 


0596  REF  16 

0597 

0598  REF  195 

0599  REF  2 

0600  REF  3 

0601  REF  1 

0602  REF  1 


LAST  739  36 

26i 

LAST  739  36. 

LAST  739  36 

LAST  739  36, 

36 
36 


,3005  51'455  5 

,3006  3 0000  1 

,3007  0 4616  I 

,3010  20474  1 

.3011  1 3017  0 

,3012  1 3045  1 

,3C13  5 3050  0 


INDEX  WHICH 

CAF  0 

TC  BANKCALL 

CACR  CLCCPLAY 

TCF  STCPCLCK 

TCF  ^PROCEED 

TCF  CENTER 


0606 


REF  44  LAST  738 


4752 


BLANKOEX  = TWO 


0607 

0608 
0609 


REF  196  LAST 
REF  2 LAST 
REF  115  LAST 


740  36,3014 
729  36,3015 
739  36,3016 


C 4616  1 -2  TC  BANKCALL 

20457  0 CAOR  CLEANOSP 

I 5155  1 DISPNOT  TCF  ENDOPJOB 


0610  REF  J 

06U  REF  19  LAST  713 


36,3017  C 3021  1 STCPCLCK  TC 
36,3020  1 6001  1 TCF 


NULLCLCK 

GOTQPOOH 


0612 

0613 

0614  REF  1 

0615  REF  2 

0616  REF  11 

0617  REF  3 

0618  REF  39 

0619 

0620  REF  18 

0621  REF  16 

0622  REF  2 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


36.3021  C 0004  0 

36.3022  C 00C6  1 

36.3023  23'141  1 

735  36,3024  0 2657  I 

737  36,3025  0 6022  0 

730  36,3026  74350  1 

736  36,3027  C 5353  1 

36,3030  00001  0 

736  36,3031  3 0005  1 

739  36,3032  55*162  1 

740  26,3033  0 1141  1 


NULLCLCK  INFINT 
EXTEND 

QXCH  P4C/RET 

TC  NOULLAGE 

TC  KILLTASK 

CACR  ULLGTASK 

TC  PHASCHNG 

OCT  1 

CA  Z 

TS  DISPDEX 

TC  P4C/PET 


06222  REF  4C 
06224 

0623  REF  135 

06231  REF  17 

06232  REF  3 

0625  REF  28 

0626  REF  2 

0627  REF  1 

0627  REF  1 

0628  REF  116 


LAST  740 

LAST  739 
LAST  740 

LAST 
LAST 

LAST  740 


36.3034 

36.3035 

36.3036 

36.3037 

36.3040 

36.3041 
65,1757 

36.3042 

36.3043 
26, 3C44 


0 5353  1 
04024  0 

3 4755  1 
55*162  1 
3 5C23  0 
C 5105  0 

03212  0 
64065  0 

1 5155  I 


731 

125 


ASTNRETN 


TC  PHASCFNG 

nCT  04024 
CAF  ZERO 
TS  DISPCEX 

CAF  PRIOl? 

TC  FINDVAC 

EBANK=  STARIND 
2CA0R  ASTNRET 


TCF  ENDCFjCe 


0629 

0630 


REF  49  LAST  737 
REF  3 LAST  734 


36  ,3045  0 5504  0 

26,3046  00154  1 


*PROCEEC  TC 

ACRES 


UPFLAG 

ASTNFLAG 


0631  REF 


2106 


TCF  IGNITE 


0632 


36,3050 


0004  0 ^'ENTER  INFINT 


17:53  OECo  19,1969  FLY 
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USER'S  PAGE  NC*  16  E7  S3 


THIS  IS  THE  "PLEASE  ENABLE  ENGINE" 
DISPLAY;  IT  IS  INITIATED  AT  TlG-5  SEC. 
THE  DISPLAY  IS  A V99NXX,  WHERE  XX  IS  THE 
NOUN  THAT  HAD  PREVIOUSLY  BEEN  DISPLAYED 
TERMINATE  GOTCPCOF  TURNS  OFF  ULLAGEo 


NEGATIVE  CF  THIS  IS  PRCPER  FOR  DISPDEX 

BLANK  DSKYc  THE  OSKY  IS  BLANKED  FOR 
5 SFCONCS  AT  TIG-35  TO  INDICATE  THAT 
AVERAGE  G I S STAPTINGc 


STOP  CLOKTASK  £ TURN  OFF  ULLAGE  ON  THE 
WAY  TC  Pf'O  (GCTOPCOH  RELINTS  I 


TURN  OFF  ULLAGE. 
CON'T  LET  IT 


ON, 


EITHER<.«« 


NOT  EVEN  IF  THERE'S  A PESTARTo 


KILL  CLOKTASK 


STOP  DISPLAYING  BUT  KEEP  RUNNING; 


GAP:  ASSEMBLE  REVISION  131  GF  AGC  PRCGPAf'  LUMINARY  BY  NASA  20  21112-091 

L BURN,  BABY,  BURN  — MASTER  IGNITION  ROUTINE 


0633 

063A 


REF  17  LAST  7A0 


36.3051  51»455  1 

36.3052  1 0003  0 


INDEX  WHICH 
TCF  3 


0635  REF  2 

0636  REF  29 

0637  REF  24 

0638  REF  2 
0636 

06382 

06383  REF  27 

06384  REF  2 

0639  REF  2 

0640  REF  41 

0641 


LAST  213 
LAST  740 
LAST  739 
LAST  242 


LAST  737 
LAST  232 
LAST  740 
LAST  740 


36,3053  3 4644  0 GOPOST  CAF  PRI012 


36  ,3  054  C 5105  0 
E7, 1453 

36.3055  03227  0 

36.3056  74C67  0 

36.3057  ( CCC4  0 

36.3060  0 4674  0 

36.3061  40205  I 

36.3062  0 3021  1 

36.3063  0 5353  1 

36.3064  C0134  1 


TC  FINDVAC 

E6ANK=  TTCGC 
2CA0R  POSTBURN 

INHINT 

TC  IBNKCALL 

CACR  ALLCOAST 
TC  NULLCLCK 

TC  PHASCHNG 
OCT  00134 


0642 


REF  117  LAST  740 


36,3065 


5155 


TCF  ENDOFJOe 


0643 

064<» 

0645 

0646 
0646 

0649 

0650 


REF  3 LAST  729 
REF  30  LAST  741 
REF  5 LAST  733 
REF  1 
REF  1 

REF  75  LAST  736 
REF  3 LAST  736 


36.3066  3 5027 

36.3067  C 5105 
67  ,1516 

36.3070  02416 

36.3071  30067 

36.3072  0 5516 

36.3073  0C175 


1 

0 

0 

0 

0 

1 


GCCUTOFF  CAF 


PRIC17 

FINDVAC 

TGO 

CUTCFF 


TC  DOHNFLAG 

AORES  FLUNOISP 


06502 

06504  REF 
06506  REF 

0651  REF 

0652  REF 

0653 

0654 

0655  REF 

0656  REF 

0656 

0657  REF 


28  LAST 
3 LAST 
3 LAST 
42  LAST 


6 LAST 
2 LAST 

118  LAST 


741 

741 

741 


741 

741 

741 


36,3  074  C 0004  0 

36.3075  C 4674  0 

36.3076  40205  1 

36.3077  0 3021  1 

36.3100  C 5353  1 

36.3101  07024  0 

36.3102  17000  I 

E7,15U 

36.3103  02416  0 

36.3104  30067  0 

36.3105  1 5155  1 


INFINT 

TC  IBNKCALL 

CAOR  ALLCOAST 
TC  NULLCLOK 
TC  PHASCHNG 

OCT  07024 
OCT  17000 
eBANK=  TGC 
2CA0R  CUTOFF 

TCF  ENDCFJOB 


0658 

0659 

0660 
0661 
0662 

0663 

0664 

0665 


REF  13 
REF  2 
REF  223 
REF  1 
REF  36 

REF  16 
REF  2 


LAST 
LAST 
LAST 

LAST  737 


LAST  738 
LAST  242 


36.3106 

36.3107 

36.3110 

36.3111 

36.3112 

36.3113 

36.3114 

36. 3115 


4 0103  1 
7 4737  1 
1C  000  0 
1 3122  1 
3 4753  1 
0 0004  0 
C 5173  1 
02432  0 


734 

732 

739 


IGNITE 


CS  FLAGWPD7 

MASK  IGNFLBIT 

CCS  A 

TCF  IGMTEl 

CAF  BITl 

INHINT 

TC  TWIDDLE 

ADRES  IGNITION 


0666  REF 


36,3116  3 4360  0 


0CT23 


17:53  OeC«  19,1069  FL' 
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USER'S  PAGE  NOo  17 


E7  S3 


(3»  MUST  BE  LOWFR  PRIORITY  THAN  CL0KJ08 


SET  UP  THE  DAP  FOR  COASTING  FLIGHT* 


4ol3  RESTART  FOP  POSTBURN 


SET  UP  THE  DAP  FOR  CCASTING  FLIGHT, 


IMMEDIATE  RESTART  AT  IGNITION, 


GAP  : 

L 

0667 

0666 

0669 

0670 

0671 

0672 

R0673 

0674 

0675 

0676 

0677 

0678 

0679 

06  80 

0681 

0682 

0683 

R06ft4 

0685 

0686 

0687 

0688 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 
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ASSfcl'BLE  REVISION  131 
BURN,  BABY,  BURN  — 


OF  AGO  PRCGRAP  LUMINARY  BY  NASA  2C21U2-C91 
MASTER  IGMTICN  ROUTINE 


USER  'S  PAGE  NOn  18  £7  S3 


REF  103  LAST  738 
REF  5 LAST  735 


36,3117  5A  001  1 

36.3120  4 0000  0 

36.3121  52  760  1 


f S 

COM 

CXCH 


-PHASE** 


REF  5 LAST  7?6 
REF  18  LAST  740 


36.3122  *1  A762  1 IGNITEI  CS  CNTONOEX 

36.3123  55*162  1 TS  DISPOEX 


RESTORE  CLO  01  SPLAY* 


REF  119  LAST  741  26,3124 


5155 


TCF  ENDCFJCB 


PEF  29  LAST  664 


36.3125  C 5567  0 P40ALM  TC 

36.3126  01706  1 OCT 


ALARM 

1706 


PROGRAM  SELECTION  NOT  CONSISTENT  WITH 
VEHICLE  CONFIGURATION 


RtF  4 LAST  664 
REF  197  LAST  740 
REF  20  LAST  711 


36,3127  3 5006  1 REP4nALM  CAF  V05N09 

36.3130  0 4616  1 Tf  BANKCALL 

36.3131  20477  1 CAOR  GOFLASH 


REF  20  LAST  740 
REF  2 LAST  72  6 


36.3132  1 6001  I 

36.3133  1 3135  1 

36.3134  1 3127  1 


TCF  GOTCPCOF  V34E  TERMINATE 

TCF  *2  PROCEED  CHECK  FOR  P42 

TCF  PEP40ALM  V32E  REDISPLAY  ALARM 


REF  18  LAST  741 


INDEX  WHICH 
TCF  14 


FOR  P42,  ALLOW  CREW  TO  PROCEED  EVEN 
THOUGH  VEHICLE  IS  UNSTAGED 


REF  1 


21,2144 

35,2000 

25,37C7 


BANK  31 
SETLDC  P40S2 
BANK 


REF 


2 LAST  735  TC  736:  25  25* 


COUNT*  I$/P40 


REF  10  LAST  738 
REF  4 LAST  478 
KEF  198  LAST  742 
REF  3 LAST  522 
REF  224  LAST  741 
REF  1 

REF  8 LAST  730 
REF  13  LAST  730 
REF  225  LAST  742 
REF  1 

REF  33  LAST  720 
REF  4 LAST  480 
ref'  2 LAST  742 


35,3707  0 4645 

35,3710  55*163 

35  ,3711  0 4616 

35.3712  54261  0 

35.3713  10-000  0 

35  ,3714  1 3726  0 

25.3715  2 4737  0 

25.3716  7 0106  1 

35.3717  1C  000  0 

25,3720  1 3733  1 

35  ,3721  3 4747  I 

35.3722  C 0006  1 

35.3723  C2  030  0 

35.3724  0 0006  I 

35. 3725  1 3733  1 


MAKECACR 
TEMPR6C 
TC  BANKCALL 

CACR  G+N,AUTO 

CCS  A 

TCF  TURNITON 

CAF  APSFLBIT 

MASK  FLGWRDIC 

CCS  A 

TCF  G06ACK 

CAF  BITS 

EXTEND 

RAND  rHAN30 

EXTEND 

eZF  GOBACK 


1 P4nAUTC  TC 

0 TS 

1 P40A/P 


HELLO  THERE* 

FDR  GENERALIZED  RETURN  TO  OTHER  BANKS* 
SUBROUTINE  TO  CHfCK  PGNCS  CCNTROL 
AND  AUTO  STABILIZATION  MOOES 
♦0  INDICATES  IN  PGNCS,  IN  AUTO 
+ INDICATES  NOT  IN  PGNCS  AND/OR  AUTO 
ARE  WE  ON  THE  DESCENT  STAGE? 


RETURN 

YES,  CHECK  FOR  AUTCTHRCTTLE  MODE 


IN  AUTOTHRPTTLE  MOCE  — RETURN 


GAP: 

L 

0704 

U705 

0706 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

0714 

R0716 

R0717 

R0718 

0719 

0720 

0721 

0722 

0723 

0724 

0724 

0727 

0728 

0728 

0729 

0730 

0730 

0731 

0732 

0733 
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eURN,  BABY,  BURN  — MASTER  ICMTICN  ROUTINE 


USER*  S PAGE  NCc  19  B7  S3 


REF  1 
REF  199 
REF  3 
REF  21 
REF  I 
REF  5 
REF  13 


LAST  742 
LAST  517 
LAST  742 

LAST  742 
LAST  738 


35.3726 

35.3727 

35.3730 

35.3731 

35.3732 

35.3733 

35.3734 


3 3735  0 
C 4616  1 
20624  0 
1 6001  1 
1 3711  1 
3 1163  1 
C 464C  1 


TURMTCN  CAF 
TC 

CADR 

TCP 

TCF 

GOEACK  CA 
TC 


P40A/ PMC 

BANKCALL 

GOPERFl 

GCTOPGCF 

P40A/P 

TEMPR60 

BANKJUMF 


DISPLAY  V50N25  Rl=203  PLFASE  PERFORM 
CHECKLIST  203  TURN  ON  PGNCS  ETCo 

V34e  TERMINATE 
RECYCLE 

GOnOBYEo  COME  AGAIN  SOONo 


35,3735  00203  0 


P40A/PM0  OCT 


00203 


REF 


LAST  736 


36,3137 
36, 2C00 
36,3137 


BANK  36 
S6TL0C  P40S 
BANK 


REF 


LAST  736  TO  742: 


226  6C74 


CGUNT#  $$/P40 


CCNSTANTS  FCR  TFE  IGNITION  ROUTINE 


PEF  1 
REF  1 
REF  1 
REF  I 

REF  25  LAST  736 
PEF  1 
REF  1 


36,2107 

36,3137 

36.3140 

36.3141 

£7,1515 

36.3142 

36.3143 


C2040  I 
02050  0 
02063  0 

02423  0 
62067  1 


SERVCAOR 

F40A0RES 

P41A0RES 

F42ACRES 

LUNLANAD 


= P63TA8LF  +7 

ACRES  PAOTABLE 

ACRES  P41TA6LE  -5 

ACRES  P42TAeLE 

E6ANK=  DVCNTP 
2CA0R  LUNLAND 


REF  26  LAST  743 
REF  1 
REF  1 

REF  22  LAST  743 


E7,1515 

36.3144 

36.3145 


E6ANK=  DVCNTR 

03372  1 ATMAGACR  2CADR  ATMAG 
7C067  1 


6001 


GOTOPOOH 


36.3146 

36.3147 


COOOO  1 D29o9SEC  20EC  2990 
C5656  1 


36,3150  04672  0 S24o9SEC  DEC  2490 


36,3151  C0752  1 4o 9SEC  DEC  490 


REF  34  LAST  742 
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L BURN,  BABY,  BURN  — MASTER  IGMTICN  ROUTINE  USER'S  PAGE  NOc  20  F7  S3 


07331 


26,3152  C1475  0 VC6N61  VN 


0661 


GAPS  ASSEMPLfe  REVISION  131  CF  AGC 

L BURN,  BABY,  BURN  — MASTER 

P0735  KILLTASK 

R0736  MOD  NO:  N6 U PROGRAM 

R0737  MCD  BY;  COVELL I 


R0738  FLhCTICAAL  DESCRIPTICK: 

ROTSQ  KlLLTASK  IS  USED  TO  REMOVE  A TASK  FROM  THE  WAITLIST  BY  SUBSTITUTING  ANULL  TASK  CALLED  'NULLTASK'  (OF  COURSE!, 

R07A1  WHICH  MERELY  DDES  A TC  TASKOVERo  IF  THE  SAME  TASK  IS  SCHEDULED  MORE  THAN  ONCE,  ONLY  THE  ONE  WHICH  HILL  OCCUR 

R07A3  FIRST  IS  REMOVED*  IF  THE  TASK  IS  NCT  SCHECULEC,  KlLLTASK  TAKES  NO  ACTION  AND  RETURNS  WITH  NO  AtARM,  KlLLTASK 

R0745  LEAVES  INTERRUPTS  INHIBITED  SO  CALLER  MUST  RELINT 


R07A6  CALLING  SECUENCE: 

AQ748  L TC  KlLLTASK  IN  FIXED-FIXED 

A07A9  L+1  CADR  ????????  CAOR  (NOT  2CAOP)  OF  TASK  TO  BE  REMOVED* 

AC750  L + 2 (RELINT!  RETURN 


PROGRAM  LUMINARY  BY  NASA  2021112-091  17:53  DEC*  19,1969  FLY  *153  PAGE  745 

IGNITION  ROUTINE  USER'S  PAGE  NO*  21  E7  S3 


R0751 

R0752 

R0753 

R0764 

0755 

0756 

0757 
C758 

0759 

0760 
07605 

0761 

0762 

0763 

0764 

0765 


EXIT  MODE:  AT  L+2  OF  CALLING  SEQUENCE* 
ERASABLE  I N I T I A L I Z AT  I CN=  NONE* 

OUTPUT:  2CADR  OF  NUILTASK  IN  LST2 

ITEMPl  - ITEMP4,  A,L,0* 


DEBRIS: 
REF  19 


LAST 

LAST 


223 

566 


REF 

REF 


REF  226 
REF  195 


17  LAST  590 


E3,1410 

6032 

6000 

6032 

6032 

6033 

6034 

6035 

6036 
60  37 
6040 


3 6041  1 

0 0004  0 
22  000  1 
50  002  0 
3 0000  1 
22  006  1 

1 2200  0 


EBANK=  LST2 
BLCCK  3 
SETLOC  FFTAG6 
BANK 

COUNT*  $t/KILL 
CA  KILL88 

INHINT 
LXCH  A 
INDEX  0 
CA  0 

LXCH 
TCF 


BBANK 
K ILLTSK2 


KlLLTASK  MUST  BE  IN  FIXED-FIXED* 


GET  CADR* 

CONTINUE  IN  SWITCHED  FIXED 


56063  1 KILLBB 


0769  REF 

0770 

0771  REF 


SETLOC  P4CSI 
BANK 

CGLNT*  $$/K  ILL 


REF  10  LAST  548  27,2200  22  062  0 KILLTSK2  LXCH 


SAVE  CALLER'S  EBANK 


GAP:  ASSfcMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  fiY  NASA  2021112-091 
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0773  REF  196  LAST  745 

0774 

0775  REF  29  LAST  617 


27.2201  2A  C02  0 

27.2202  C 0006  1 

27.2203  22  061  0 


INCR  0 
EXTEND 

OXCh  ITEMPl 


0776 

0777 
077fl 
0779 


REF  15  LAST  563 
REF  5 LAST  459 
REF  21  LAST  A35 
REF  6 LAST  561 


27,220A  FA  C63  0 

27.2205  7 5012  0 

27.2206  6 4741  1 

27. 2207  5A  064  1 


TS  ITEMP3 

MASK  LOWIO 

AO  eiTll 

TS  ITEMP4 


0700  REF  6 

0781  REF  16 

0762  REF  17 


LAST  746  27 

LAST  746  27 

LAST  746  27 


,2210  4 5012  0 
,2211  1 CC63  0 
,2212  5A  C63  0 


CS  LOWIO 

MASK  ITEMP3 
TS  ITEMP3 


C783 

0784  REF  104 

0785  REF  21 

0786  REF  7 

0787 

0738  REF  1 

0789  REF  1 

0790  REF  105 

0791 

0792  REF  3 

0793  REF  106 

0794  REF  107 

0795  REF  1 


LAST 

LAST 

LAST 


LAST 


LAST 

LAST 


742 

745 

746 


746 


746 

746 


27.2213  22  C07  0 

27.2214  50  COl  0 

27.2215  4 1410  1 

27.2216  6 0064  0 

27.2217  0 0006  1 

27.2220  1 2232  1 

27.2221  < 4747  0 

27.2222  6 0001  0 

27.2223  C 0006  1 

27.2224  1 2230  0 

27.2225  24  001  0 

27.2226  24  001  0 

27.2227  1 2214  0 


ADRSCAN 


LETITLIV 


ZL 

INDEX  L 

CS  LST2 

AC  ITEMP4 

EXTEND 

EZF  TSTFQANK 

CS  LSTLIM 

AD  L 

EXTEND 

6ZF  DEAD 

INCR  L 

INCR  L 

TCF  ADRSCAN 


0796  REF  30  LAST  746 

0797 


27.2230  52  062  1 DEAD 

27.2231  52  CC6  0 


DXCH  ITEMPl 
DTC6 


0798  REF  7 LAST  746 

0799  RFF  108  LAST  746 

0800  REF  22  LAST  746 

0801 

0002  REF  18  LAST  746 

0803 

0804  REF  1 

0805  REF  1 


27.2232  4 5012  0 

27.2233  50  001  0 

27.2234  7 1411  0 

27  ,2235  0 0006  1 

27.2236  60  063  1 

27.2237  0 0006  1 

27.2240  1 2242  0 

27.2241  1 2221  0 


CS  LOWIO 

INDEX  L 

MASK  LST2  +1 

EXTEND 

SU  ITEMP3 

EXTEND 

BZF  KILLOEAD 

TCF  LETITLIV 


TSTF0ANK 


0806  REF  1 

0807  REF  109  LAST 

0808  REF  23  LAST 

0809  REF  2 LAST 


746 

746 

746 


27.2242 

27.2243 

27.2244 

27.2245 


3 4353  0 
50  COl  0 
55'410  1 
1 2230  0 


TCTSKOVR 

L 

LST2 

DEAD 


0810 


REF  35  LAST  743 


4747 


LSTLIM  EQUALS  6IT5 


17J53  CeCv.  19,1969  FLY  cl53  PAGE  746 

USER'S  PAGE  NCc  22  E3  S3 

RETURN  2CA0R  IN  I TEMP  1 , I TF  MP2 
CADR  IS  IN  A 

GENAOP  OF  TASK 

F8ANK  OF  TASK 

COMPARE  GENADRS 

IF  THEY  MATCH,  COMPARE  FRANKS 

ARE  we  DONE? 

YES  - DCNE,  SO  RETURN 

CONTINUE  LOCPo 


CCMFAPE  FBANKS  CNLYo 


MATCH  - KILL  I To 
NO  MATCH  - CONT  INUEo 


REMOVE  TASK  6Y  INSERTING  TASKOVER 


DEC  16 
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USER'S  PAGE  NCo 


POOOl  PROGRAM  DESCRIPTICN  F40BCTH  CECEMPER  22,  1956 

R00n2  MOO  03  BY  PETER  ADLER  MARCH  3,  1967 

R0003  CALLED  VIA  JCB  FROM  V37E' 


R0004  FUNCTIONAL  OESCRIPTIGN 


R0005 

R0007 


1>  TO  COMPUTE  A PREFERRED  IMU  ORIENTATION  AND  A PREFERRED  VEHICLE  ATTITUDE  FOR  A LM  DPS 
THRUSTING  MANEUVEPo 


Roooe 

R0009 

ROOll 


3>  TO  DO  THE  VEHICLE  MANEUVER  TC  THE  THRUSTING  ATTITUDE# 

41  TO  CONTRCL  THE  PCNCS  DURING  COUNTDOWN,  IGNITION,  THRUSTING,  AND  THRUST  TERMINATION  OF  A 
PGNCS  CCNTROLLEO  DPS  MANEUVER# 


R0012 

R0014 


IN  POSTBURN — ZERO  RENDEZVOUS  COUNTER,  MAINTAIN  VG  CALCULATICNS  FOR  POSSIBLE  RCS  MANEUVER, 
SET  MAXIMUM  DEACGAND  IN  DAP,  RESET  STEERLAW  CSTEER  TO  ZERO* 


R0C16 

R0018 


NOTE  : 


P42,  WHICH  IS  IN  THIS  LOG  SECTION,  COES  THE  SAMF  FOR  AN  APS  BURN,  AND  P^l  COES  1-3  FOP 
RCS  PLUS  DISPLAYS  PARAMETERS  FOR  MANUAL  CONTROL# 


R0019  SUBROUTINES  USED 


R0020 

R0021 

R0022 

R0023 

R0024 

R0025 

R0026 

R0027 

R0028 

R0029 

R0030 

R0031 

R0033 

R0Q35 


R02 

S40#l 

S40#13 

S40#2, 3 

S4J#0 

S40#9 

RBOLEM 

LEMPREC 

PREREAC 

ALLCCAST 

CLOKTASK 

PHASCHNG, 

PRIOLARM, 

KILLTASK, 


IMU  STATUS  CHECK 

COMPUTATION  CF  THRUST  DIRECTION 

LENGTH  OF  BLRN 

PREFERRED  IMU  ORIENATTION 

X PRODUCT  STEERING 

LAMBERT  VTCGAIN 

ATTITUDE  MANEUVER 

EXTRAPOLATE  STATE  VECTCR 

AVERAGE  G,  SERVICER 

CAP  COASTING  INITIALIZATION 

ERGO  CLGCKJC0 — CCUNT  DCWN 

INTPRET,  FLAGUP,  FLAGOQWN,  WAITLIST,  LONGCALL,  GGFLASH,  GOFLASHR,  GCPERFl,  ALARM, 
GCTOPOCH,  ENCCFJCE,  BANKCALL,  SETMAXDB,  SETMIND8,  CHECKMM,  FLATPUT,  OUTFLAT, 
SGNAGREE,  TPAGREE,  ETC, 


R0036  RESTARTS  VIA  GROUP  4 


R0037  DISPLAYS 


R0036 

R0040 

R0041 

R0042 

R0043 

R0044 

R0045 

R0045 


V50N25  203  A/P  TO  PGNCS,  AUTO  THROTTLE  MQOE,  AUTO  ATTITUDE  CGNTRCL 

V06N40  TTI,  VG,  DELTAVM  (CISPLAYEC  ONCE/SECONO  BY  CLOKTASK) 

V50N99  PLEASE  PERFORM  ENGINE  ON  ENABLE 

V05N40  TG  (TIME  TO  GC  TC  CUTOFF),  VG , DELTAVM — ONCE/SECCNO 
V16N40  FINAL  VALUES  CF  TG,  VG,  DELTAVM 

V15N85  COMP  OF  VG  (BODY  AXES)  FCR  PCSS#  RCS  MANUAL  MANEUVER 
V05NJ9  POSSIBLE  ALARMS 
V50N07  PLEASE  SELECT  FOO 
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L P40-PA7 


USER'S  PAGE  NO® 


2 


EO  S3 


800^^7 


R00A8  V06N4A  HAPO,  PERI,  TFF 

R00<»9  V06N35  TIME  TO  PERIGEE,  HMS 


RC050  ALARM  OR  ABORT  EXIT  RCOES 


R0051 

R0053 


PROGRAM  ALARM,  FLASHING  DISPLAY  OF  ALARM  CODE  1706  IF  P40  SELECTED  WITH  DESCENT  UNIT  STAGED® 
V34E  (TERMINATE)  IS  TPE  CNLY  RESPONSE  ACCEPTED®  TC  GOTOPOOH® 


R005A 

R0056 


PROGRAM  ALARM,  FLASH  CCOE  1703:  TIG  LESS  THAN  <*5  SECS  AWAY- 
TIG  BY  A5  SECSo 


V3AE=  GOTOPOOH  OR  V33E=  SLIP 


R0057  ERASABLE  I N I T I A L I Z A T I CN 
R0058  CE0RIS 
R0059  GUTPLT 


RQ06U 

R0062 

R0063 


SEE  SLBROLTINES  E®Go:  SA0,1,  S^0®2,3,  S40,13, 
XOELVFLG  = 3 FOR  EXT  DELV  COMPUTATION 
= 0 FOR  AIMFT  (LAMBERT)  COMP 


SAO«e, 


SA0o9, 


TR IMG IMB 


0064  REF  2 LAST  36  TO  39:  10  10* 

0065  REF  19  LAST  742  £7,1455 


CCUNT*  $$/P40 
E8ANK=  WHICH 


0066 

0067  REF 
0066 


LAST  743 


36,3153 

36,2000 

36,3153 


BANK  36 
SETLOC  P40S 
BANK 


0069  REF'  43  LAST  741 
00692 


36.3153  C 5353  I P40LM  TC 

26.3154  C4C24  0 OCT 


PHASCHNG 

04024 


00694  REF  1 

0070  REF  20  LAST  748 


36.3155  3 3137  1 

26.3156  55'455  0 


CAF  PAOADRES  INITIALIZATION  FOR  PURN6ABY<. 

TS  WHICH 


0071 

0072 

0073 

0074 
0079 
0060 


REF  14 
REF  9 
REF  227 
REF  1 
REF  200 
REF  4 


LAST  742  26,3157 

LAST  742  36,3160 

LAST  745  36,3161 

36,3162 
LAST  743  36,3163 

LAST  506  26,3164 


2 0106 
7 4737 
1C  000 
1 2125 
0 4616 
11233 


0 

) 

0 

0 

1 

0 


CA  FLGWRDIO 

MASK  APSFLBIT 

CCS  A 

TCF  P40ALM 

TC  BANKCALL  GO  DO  IMU  STATUS  CHECK  ROUTINE® 

CADR  R026CTH 


OOBO)  REF  20 

00802  REF  5 

00803  REF  228 

00804  REF  1 
0U805  REF  1 

00806  REF  2 

00807  REF  11 

00808  REF  27 


LAST  737  36,3165 

LAST  297  36,3166 

LAST  748  36,3167 

36.3170 

36.3171 
LAST  105  36,3172 

LAST  736  36,3173 

LAST  743  36,3)74 


4 Oil! 
7 4737 
10  000 
3 2022 
6 2023 
55»250 
3 4751 
55»515 


1 

1 

0 

0 

1 

0 

0 

0 


CS  DAPBOOLS  INITIALIZE  DVMGN 

MASK  CSMCCCKC 

CCS  A 

CAF  THRESHl 

AO  THRESH3 

TS  DVTHRUSH 

CAF  FOUR 

TS  OVCNTR 
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0081  REF  59  LAST 

0082 

0083  REF  1 

0084  REF  1 

0085  REF  2 LAST 

00852 

00854  REF  1 

00856 

0086  REF  1 

0087  REF  1 

0C88 

0089  REP  I 

0090 


729 


145 


36,3175. 

36.3176 

36.3177 
36,320C 
3b, 3201 
36,3202 
36,32C3 

36.3204 

36.3205 
36,  3206 
36,3207 

36.3210 

36.3211 


0 6042  1 
^3175  0 
34001  1 
C2663  0 
03735  C 
77735  n 
26C02  I 
70476  0 
37743  0 
56246  I 
77624  1 
56413  I 
77776  1 


P40  IN 


TC  INTPRFT 

VLOAD  CLEAR 
FOPS 

NCTHRCTL 
STORE  F 
SLOAD 

DPSVEX 
OCOMP  SRI 
STCALL  VEX 

S40e  1 

CALL 

S40o2  ,3 

EXIT 


LOAD  CONSTANTS  FOR  DPS  BURN 
LOAD  F,  MOOT,  TCeCAY 


LOAC  EXHAUST  VELOCITY  FDR  TGO  COMP, 
COMPUTES  UT  AND  VGTIG 

COMPUTES  PREFERRED  IMU  OR  1 ENTAT ION 


00901  36,3212  0 0C04  0 

00902  REF  29  LAST'  741  36,3213  0 4674  0 

00903  REF  1 36,3214  40143  0 


INUNT 

TC  IBNKCALL 

CADR  PFLITEDB  ZERO  ATTITUDE  ERRORS,  SET  DB  TO  ONE  DEG, 


0091  REF 


36,3215  C 3217  0 


TC  P40SXT4 


R0092 

0093  REF 
R0094 


36  ,3216  1 2130  0 


TCF  BURNBABY 


0095 

0096  REF 
OlUO 


■ 36,3217  0 0006  1 P40SXTA  EXTEND 
LAST  740  36,3220  23'141  1 QXCH  P40/RFT 

36,3221  C 0003  1 PAIMANU  RFLINT 


0101  REF  76  LAST  741 

0102  REF  6 LAST  523 


36.3222  0 5516  0 

36.3223  00124  0 


TC  OnwNFLAG  CLEAR  3AXISFLG  — 860  WILL  USE  VECPOINT, 

AORES  3AXISFLG 


0103  REF  201  LAST  748 

0104  REF  4 LAST  523 

0105  REF  4 LAST  749 


36.3224  C 4616  I 

36.3225  54123  0 

36.3226  C 1141  1 


TC  BANKCALL 

CACR  R60LEM  00  ATTITUDE  MANEUVER  ROUTINE 

TC  P40/BET 


0106  REF  7 

0107  REF  19 

0108  REF  19 

0109 

0110  REF  1 

0111  REF  4 

0112  REF  1 

0113  REF  202 

0114  REF  1 

0115  REF  1 

0116  REF  2 

0117  REF  3 


LAST 

LAST 


LAST 

LAST 


735 
740 
74  2 


730 

749 


735 

7<.l 


36,3227 

36.3230 

36.3231 

26. 3232 

36.3233 

36.3234 

36.3235 

36.3236 
36,3227 
36,3240 
36  ,3241 


3 CC05  1 
55*162  1 
C 0006  1 
2 2C60  0 
53*252  1 
2 3764  1 
C 4616  1 
20636  0 
C 3262  I 
1 3245  0 
0 3227  0 


EPANK=  TRKMKCNT 

PCSTOURN  CA  Z 

TS  OISPDFX 

EXTEND 

DCA  ACADN85 

DXCH  AVEGEXIT 

CAP  V16N40 

TC  BANKCALL 

CADR  GOFLASHR 

TC  TERM40 

TCF  TIGNOW 

TC  P0ST8URN 
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0118  REF  44  LAST  748 

0119 

0120  REF  120  LAST  742 


36,3ZA2  0 5353 

36.3243  00014 

36.3244  1 6155 


1 PAOPHSl  TC 
I OCT 

1 TCF 


PHASCHNG 
00014 
ENDCF JC6 


0121 

01211  REF  30 

01212  REF  4 

0122  REF  31 

0123  REF  3 

0124 

0125  REF  2 

0126  REF  203 

0127  REF  1 

0128  REF  2 

0129  , REF  3 

0130 


LAST  749 
LAST  523 
LAST  750 
LAST  523 

LAST  730 
LAST  769 

LAST  749 
LAST  750 


36  ,3245 

36.3246 

36.3247 
36  ,3250 

36.3251 

36.3252 
36  ,3253 
36,5254 

36.3255 

36.3256 

36.3257 
36,3260 


0 0004  0 
C 4674  0 
40154  C 

0 4674  0 
40141  1 

C 0003  1 
•3  3765  0 
f 4616  I 
20463  1 
C 3262  1 

1 3262  0 
0 3253  0 


T I GNO  W 


INFINT 

TC  I6NKCALL 

CADR  ZATTEPCP 

TC  I8NKCALL 

CACR  SETMINCB 

REL  INT 

CAF  V16N85B 

TC  BANKCALL 

CADR  PEFLASHR 

TC  TEPM40 

TCF  TeRM40 

TC  -5 


01305  REF 


36,3261  1 3242  1 


TCF  P40PHS1 


0131 

0132  REF 

0133  REF 

0134  REF 

0135  REF 

0136  PFF 

0137  REF 

0138 

0139  REF 

0140  REF 

0141 

0142  REF 


• 1 

5 LAST 
136  LAST 

8 LAST 
20  LAST 
20  LAST 

32  LAST 

6 LAST 

23  LAST 


36.3262 

36.3263 
749  36,3264 

740  36,3265 

749  36,3266 

749  36,3267 

749  36,3270 
36,3271 

750  36,3272  0 

523  36,3273 

36,3214 
743  36,3275 


0 0006  I TERM40 
3 2110  0 
1 
1 
1 
1 
1 
0 
0 
0 
1 
0 


E)(TENO 

DCA  SERVCAOR 

OXCH  AVEGEXIT 

CAF  ZERO 

TS  TRKMKCNT 

CA  Z 

TS  DISPOEX 

INHINT 

TC  IBNKCALL 

CADR  RESTORDR 

RELINT 

TC  GOTOPQOH 


53'252  1 
3 4755  1 
55*462 
3 0005 
55*162 
C 0004 
4674 
40115 
C 0CC3 
C 6001 


ZERO  RENOZVS  CNTEPS 


0143  REF  2)  LAST 

0144  REF  1 

0145  REF  1 

0146  REF  22  LAST 


748 


750 


E7,1455 

36.3276  3 3140  1 P41LM 

36.3277  55*455  0 


EBANK=  WHICH 
CCUNT*  $$/P41 
CAF  P41A0RES 

TS  WHICH 


INITIALIZATION  FOR  PURNBA6Y 


0147  REF  204  LAST  750 

0148  REF  5 LAST  748 


36.3300  0 4616  1 

36.3301  11233  0 


TC  BANKCALL 

CAOR  R028CTH 


0149  REF  100 

0150 

0151  REF  1 

0152  REF  1 

0153  REF  1 


749  36,3302 

36.3303 

36.3304 

36.3305 
36  ,3306 


C 6042  1 
71214  0 HfVTA) 
CC7nO  0 I ' 

75311  C 
34017  0 


TC  INTPRET 

BON  DLQAD 

NJETSFLG 

P41FJET1 

FRCS4 


BOTH  LM 

IF  NJETSFLAG  IS  SET,  LCAO  ? JET  F 

IF  NJETSFLAG  IS  CLEAR,  LOAD  4 JET  F 


0154  REF  3 LAST 

0155  REF  1 


36,3?07 

36,331U 


37735  1 P41FJET  STCALL  F 
75314  0 P41IN 


0156 


36,3311  77745 


P41FJET1  CLCAD 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PRCGRA^'  LUMINARY  BY  NASA  20211l2-0‘;i 


L 


PA0-P47 


0157  REF  1 

C15Q  REF  4 LAST  750 


36 

36 


24C21 
C3  735 


0 

C 


STORE 


0159 

0160 

0164 

0165 

0166 


REF 


36, 3314 

2 LAST  749  36,3315 

36,3316 

2 LAST  749  36,3317 

36 ,3320 


77624  1 P41IN  CALL 
56246  1 

77624  1 P41N0RM  CALL 
56413  1 

77776  1 EXIT 


S4Col 
S4Co2 ,3 


0169 

0170  REF  33  LAST  750 

0171  PEF  5 LAST  750 

0172  REF  3'4  LAST  751 

0173  PEF  ^ LAST  750 

0174  REF  2 LAST  749 


36.3321  C 0CC4  0 

36.3322  0 4674  0 

36.3323  40154  0 

36.3324  C 4674  0 

36.3325  40141  1 

36.3326  0 3217  0 


I NHI NT 

TC  I0NKCALL 
CACR  ZATTEROR 
TC  I8NKCALL 
CACR  SETMIN08 
TC  P40SXT4 


0175  REF  101  LAST 
C176 

0177  REF  4 LAST 

0170  REF  1 

0179  REF  6 LAST 

0180 


750 

198 

319 


36, 

36, 

36, 

36, 

36, 

36, 


3327  0 6042  1 

3330  45175  0 

3331  03701  1 

3332  57267  0 

3333  03502  0 

3334  77776  1 


TC  INIPRFT 

VLCAC  CALL 
VGTI6 
S4le  1 

STCRE  VG80CY 
EXIT 


0101 

0182 

0183 


PEF  3 LAST  750 
REF  205  LAST  750 
REF  1 


36.3335  3 3765  0 

36.3336  C 4616  1 

36.3337  20447  1 


CAF  V16N85B 

TC  6ANKCALL 

CADR  GOOSPRET 


01831  REF 

01832  REF 

01833  REF 

01834  REF 

01835  PEF 

01835  REF 

01836  REF 

0184 

0185 


6 LAST 
21  LAST 
31  LAST 

3 LAST 
1 
1 

7 LAST 


705 

750 

741 

244 


738 


36.3340  3 50J7  1 

36.3341  55'162  1 

36.3342  C 5105  0 
£7,1700 

36.3343  03365  1 

36  ,3344  74067  0 

36.3345  C 5327  1 

36.3346  00076  0 

36.3347  04024  0 


CAF  PRIC5 
TS  DISPDEX 

TC  FINDVAC 

EBANK=  VGPREV 
2CA0ft  DYNMDISP 

TC  2PhSCHNG 
OCT  0OC76 
OCT  04024 


R0186 

0187  REF  1 
A01871 


36,3350  1 2137  1 


TCF  B«RNB«^B# 


01872 

01873 

01874 


REF  13 
REF  2C6 
REF  12 


LAST  738 
LAST  751 
LAST  720 


36,3351 
36  ,3352 
36,3353 


3 4777  1 
0 4616  1 
C1736  1 


8LNKWAIT 


CAF 

TC 

CADR 


1 SEC 

BANKCALL 

OELAYJCe 


01875 

01976 

80186 


REF  22  LAST  751 
REF  45  LAST  740 


36.3354 

36.3355 


3 1162  0 R£C06«7  CA  DISPOEX 

6 4752  0 AD  TWO 


17:53  DEC. 


19,1969  fly 


PAGE  751 


USER'S  PAGE  N0« 


E7  S3 


BOTH 

CALCULATE  PREFERFEC  IMU  ORIENTATION  AND 
SET  PFRATFLG, 

ZERO  ATTITUDE  ERRORS 
SET  0»3  DEGREE  DEADBAND 


TRANSFORM  VEL DC  I TY-TO-B E-GA I NF D AT  TIG 
FROM  REFERENCE  COORDINATES  TO  LM  BODY- 
AXIS  COORDINATES  FCR  V16N85  01SPLAY„ 
(SCALED  AT  2 {+7»  METER  S/CEN  T1  SECOND » 


FDR  SAFETY  ONLY 


GROUP  6 RESTARTS  AT  RECC6n7 
GROUP  4 RESTARTS  HERE 


ON  A RESTART,  DC  NCT  PUT  UP  DISPLAY  IF 
BLANKING  (BETWEEN  TIG-35  AND  TIG-30) 


gap:  assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  8Y  NASA  2C2m2-Oqi 


01880?  REF  4 
OlSeOA  REF  207 
0188C5  REF  2 


LAST 

LAST 

LAST 


751 

751 

751 


36.3360 

36.3361 

36.3362 


3 3765  0 
C A616  1 
20A47  1 


V16Ne5B 

BA^KCALL 

GODSPRET 


018608 

0188C9 

01081 

018811 

018812 

018813 

01381^ 

018815 

018816 

013817 

018818 

018819 

01682 


REF  23  LAST  751 


REF  121 
REF  102 

REF  4 
REF  2 
REF  7 


LAST  750 
LAST  751 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


751 

751 

751 

751 

752 
751 


LAST  751 


36,3365 
36  ,3366 
36,3367 

36.3370 

36.3371 

36.3372 

36.3373 
36, 337<» 

36.3375 

36.3376 

36.3377 

36.3400 

26.3401 


3 1162  0 
•C  0006  1 
6 5155  0 
0 6042  1 
45175  0 
037CI  1 
57267  0 
035C2  C 
77776  1 
3 4777  1 

0 4616  1 
01736  1 

1 3365  C 


CYNMQISP  CA 

EXTEND 

6ZMF 


OISPDEX 

ENDOFJOe 
TC  INTPRET 

VLCAD  CALL 

VGPREV 

S41ol 

STCRE  VG6C0Y 
EXIT 

CAF  ISEC 
TC  BANKCALL 

CACR  0ELAYJ08 
TCF  DYNFCISP 


0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 
C198 


REF  103 
REF  1 

REF  5 
REF  3 
REF  8 


LAST  752 


LAST 

LAST 

LAST 


752 

752 

752 


36.3402 

36.3403 
36, 34Q4 

36.3405 

36.3406 

36.3407 
36  ,3410 

36.3411 

36.3412 

36.3413 


0 6042  1 
77624  1 
75615  1 
45175  0 
C3701  I 
57267  0 
03502  0 
77776  1 
0 4635  0 
65746  1 


CALCN85  TC 


VLOAD  CALL 

VGPPEV 
SAlc  1 

STORE  VGBOOY 


REF  45  LAST  750 


24  LAST  752 


55 


0203 

0204 

0205 
0208 
0209 


REF  15 
REF  10 
REF  229 
REF  2 
REF  209 


LAST 

LAST 

LAST 

LAST 

LAST 


748 

748 

748 

748 

752 


36.3420 

36.3421 

36.3422 
36  ,3423 
36,3424 


4 0106  1 
7 4737  1 
1C  OOO  0 
0 3125  1 
0 4616  1 


MASK 
' CCS 


P42STAGE  TC 


P4CALM 

BANKCALL 


17:53  DEC, 


969  FLY 
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« 19,1 

USFR*  S PAGE  NCe  6 E7  S3 


A NON-POSITIVE  OISPDEX  INDICATES  PAST 
TlG-35,  SO  SFRVICER  WILL  BE  DOING  THE 
UPDATING  CF  NOUN  85o  STOP  CYNMDISP« 


INITIALIZATION  FOR  BURNBA8V 


( 


gap:  assemble  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 


PA0-PA7 


0210  PEF  6 

02101  REF  1 

02102  REF  3 

02103  REF  12 

02104  REF  28 


LAST  750 

LAST  748 
LAST  740 
LAST  748 


36,3425 

36,3A26 

36,3427 

36.3430 

36. 3431 


11233  0 
3 6C00  1 
55'250  0 
3 4751  0 
55'515  C 


CACR  R02B0TH 

CAF  THRESH2 

TS  DVTHRUSH 

CAF  FOUR 

TS  OVCNTP 


0211  REF  104 

0212 

0213  REF  5 

0214  REF  1 

0215  REF  5 

0216 

02162  PEF  1 

02164  REF  1 


LAST  752 
LAST  699 
LAST  751 


36.3432 

36.3433 

36.3434 
36  ,3435 
36  ,3436 
36,3437 

36.3440 

36.3441 


0 6042  1 
77214  0 
01072  0 
34007  1 
C3735  0 
52135  1 
26001  1 
752C4  C 


TC  INTPRET 

SET  VLOAD 

AVFLAG 
FAPS 

STCRF  F 
SLOAO  GOTH 

APSVEX 
P40I  N 


0217 


REF  25  LAST  752 


E7,1455 


EBANK=  WHICH 


0218 

0219 

0220 
0221 
0222 
0223 


REF  1 
REF  210  LAST 
REF  7 LAST 
REF  105  LAST 

REF  1 


752 

753 
753 


36,3442  0 4616  1 

36  ,3443  11233  0 

36.3444  0 6C42  1 

36.3445  77624  1 
36  ,3446  27547  1 


P47LM 


CCUNTO  $$/P47 
TC  BANKCALL 

CACR  R02B0TH 
TC  INTPRET 

CALRB 

MIDT0AV2 


0224 

0225 

0226 


REF  295 
REF  17 
REF  1 


LAST  738 
LAST  741 


36,3447 

36.3450 

36.3451 


3 0155  0 
0 5173  1 
03453  0 


CA  MPAC  +1 

TC  TWIDDLE 

ACRES  STARTP47 


02261 


REF  122  LAST  752 


36,3452  1 5155 


TCF  ENOOFJOB 


0227 

02391 

02392 


46  LAST  752 


36.3453 

36.3454 

36.3455 


0 5353  1 STAfiTP47  TC 


PHASCFN6 

05014 

77777 


02393 

0240  REF 

0241  REF 

0242  REF 

0243  REF 

0244  PEF 

0245  REF 

0245  REF 

0246  REF 
A0247 


1 

6 LAST  750 
5 LAST  731 
32  LAST  75  1 
4 LAST  318 
1 
1 

2 LAST  242 


36.3456  C 0006  I 

36.3457  3 3770  1 

36.3460  53*252  1 

36.3461  3 4736  1 

36.3462  C 5105  0 
E7,1622 

36.3463  C3517  1 

36.3464  74067  0 

36.3465  1 S344  1 


EXTEND 
DC  A 
CXCH 
CAF 
TC 


ACADN83 
AVFGEXIT 
PR  1020 
F I NOVAC 
DELV  IMU 
P47BCDY 


TCF  RED04o2 


0246  REF  106  LAST  753 

0249 

0250  REF  1 

0251  REF  2 LAST  149 

0252  REF  11  LAST  682 


36.3466 

36.3467 

36.3470 

36.3471 

36.3472 


0 6042  1 
53375  0 
03502  0 
03527  1 
C3656  1 


CALCN83 


TC  INTPRET 

VLCAO  VAD 

OELVCTL 
DELVREF 
STORE  OELVSIN 


17:53  OECc  19,1969  FLY 
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USER'S  PAGE  NCo  7 E7  S3 

INITIALIZE  CVMON 


LOAD  FAPS,  MDOTAPS,  AND  ATDECAY  INTO 
F,  MDOT,  AND  TCeCAY  PY  VECTOR  LOADo 


CHECKS  PHASE  5 AND  GOES  TO  PRERFAD 
SEE  TIG-30  IN  BURNBABYe 


TEMP  STORAGE  FOR  RESTARTS 


gap:  assemble  REVISION  131  OF  AGC  PRCGRA^  LUMINARY  BY  NASA  2021112-091 


b PA0-PA7 


025A  REF  4 

0255  REF  5 

0256 

02561  REF  47 

02562 


LAST  752 
LAST  753 

LAST  753 


36i3473 

36.3474 

36.3475 

36.3476 

36.3477 
36  ,3500 


77624  1 
57267  0 
03623  0 
77776  1 
C 5353  1 
10035  0 


S41o  1 

STORE  DELVIMU 
EXIT 

TC  PHASCHNG 

OCT  10035 


02563  REF  107  LAST  753 

02564 

02565  REF  12  LAST  753 

02566  REF  2 LAST  753 

02567 


36,3501  C 6C42  1 

36,3-502  77775  1 

36.3503  03656  I 

36.3504  03502  0 

36.3505  77776  1 


TC  IMPRET 

VLOAD 

DELVSIN 
STORE  DELVCTL 
EXIT 


REF  44  LAST  752 
REF  4 LAST  752 


36.3506  0 4635  0 

36.3507  65746  1 


TC  POSTJUMP 

CADR  SERVEXIT 


C259 

0260 

0261 

0262 

0263 


REF  211  LAST  753 
REF  2 LAST  749 
■ref  2^  LAST  750 
REF  25  LAST  754 


36.3510  3 3766  0 PATBOO  CAF  V16P3 


36.3511  C .4616  I 

36.3512  20636  0 

36.3513  C 6001  0 

36.3514  C 6CC1  0 


TC  BANKCALL 
CAOR  GOFLASHR 
TC  GCTOPOCF 
TC  GCTOPCGH 


02631  REF 


LAST  753  36,3515  1 3517  0 


TCF  P47B0DV 


02632  REF 


2 LAST  750 


36,3516 


3242 


TCF  P40PHS1 


0264  REF  108  LAST 

0265 

0266  REF  5 LAST 

0267  REF  6 LAST 

0268  REF  3 LAST 

0269 

0270  REF  1 


754  36,3517  0 6042  1 

36,3520  77775  1 

723  36,3521  C6524  1 

754  36,3522  03623  0 

754  36,3523  03502  0 

36.3524  77776  1 

36.3525  0 3510  0 


P47eQDY  TC  INTPRET 

VLUAO 

H16ZERCS 
STORE  DELVIMU 
STCRE  DELVCTL 
EXIT 

TC  P47600 


0271 

0272 
02721 

0273 
02  74 

0275 

0276 

0277 

0278 

0279 
0260 
0281 
02  82 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


1 

18  LAST  753 

2 LAST  242 

77  LAST  749 

3 LAST  734 

78  LAST  754 

4 LAST  740 

79  LAST  754 
1 

48  LAST  754 


745: 

36.3526 

36.3527 

36.3530 

36.3531 

36.3532 

36.3533 
36,3  534 

36.3535 

36.3536 

36.3537 

36.3540 

36.3541 


12  619* 

3 1517  0 
0 3741  n 
C 5173  1 
03546  0 
0 5516  0 
00153  C 
0 5516  0 
fC154  1 
0 5516  0 
00044  1 
C 5353  1 
40114  1 


IMPL8URN  CA 


COUNT*  J.$/P40 


ACRES 

TC 

OCT 


TGO 
GETOT 
TWIDDLE 
ENGOFTSK 
DOWNFLAG 
IGNFLAG 
DOWNFLAG 
ASTNFLAG 
DOWNFLAG 
IMPULSW 
PHASCHNG 
40114 


0283  REF  13  LAST  738 

0284 


36.3542  C 5221  0 

36. 3543  00062  0 


TC  FIXDELAY 

DEC  50 


17:53  CEC«  19,1969  FLY 
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USER*  S PAGE  NCo  8 E7  S3 


REREADAC  AND  HERE 


TURN  OFF  IGNFLAG 
TURN  OFF  ASTNFLG 
TURN  OFF  IMPULSW 

RESTART  PROTECT  ENGOFTSK  (ENGINOFFI 


WAIT  HALF  A SECOND 


GAP: 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-091 


P40-PA7 


0285  REF  3 LAST  740 


0286  REF  50 


0287 

0286 

0289 


REF 

REF 

REF 


LAST  739 
LAST  751 
LAST  755 


36t354^  0 2657  1 

36t3545  0 5261  1 

36.3546  0 4674  0 

36.3547  75551  1 

36,3550  0 5261  I 


TC  NOULLAGE 


TC  TASKOVER 

ENGOFTSK  TC  IBNKCALL 

CAOR  ENGINCFF 

TC  TASKOVER 


0290  REF  3 

0291  REF  33 


LAST  741 
LAST  753 


26.3551  3 4644  0 

36.3552  C 5105  0 


ENGINOFF  CAF 
TC 


PR  1012 
FI NOVAC 


0292  PEF 

0293  REF 
0293 


9 LAST  750  E7,l462 

4 LAST  749  26,3553 

36,3554 


C3227  0 
74067  0 


EBANK=  TPKMKCNT 
2CADR  PCSTBURA 


0294  REF 

0295  REF 

0296  PEF 

0297  REF 

0297  REF 

0298  REF 
0299.  PEF 
0300  REF 


34 


1 

1 

14 
I 

15 


LAST 

LAST 

LAST 


LAST  741 
LAST  755 


26.3555 

26.3556 
66,1422 

36.3557 

26.3560 

36.3561 

36.3562 
36,3562 


3 4753  1 
C 5203  0 

03612  1 
74066  1 

4 0103  1 
7 4745  I 
26  103  1 


741 

733 

726 


ENGIN0F2 


CAF 

TC 

EBANK= 

2CADR 


BITl 

WAITLIST 

OMEGAQ 

COASTSET 


ENGINOFl 


CS 

MASK 

AOS 


FLAGWRD7 

IDLEF0IT 

FLAGWR07 


0301  PEF 


4 LAST  755 


36,3564  0 2657 


TC  NOULLAGE 


0302 

0303  PEF  22  LAST 

0304  REF  5 LAST 


36,3565 
739  36,3566 
732  36,3567 


C CC06  1 ENGIN0F4  FXTEND 

3 0025  0 OCA  TIME2 

53*342  1 OXCH  TEVENT 


0305  REF 

03051  REF 

03052  REF 

03053  REF 

0306 

0307  REF 

0308  REF 

0309 

0310  REF 


4 

22 

23 


24 
6 

25 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


732 

733 
755 
732 

722 

753 

755 


36,3570 
36  ,3571 

36.3572 

36.3573 

36.3574 

36.3575 

36.3576 

36.3577 
36,3600 


i 4745  1 
7 0101  0 
54  ICl  0 
A 4355  1 
C 0006  1 
C2  Cll  0 
6 4736  1 
C 0006  1 
Cl  on  0 


ENGINOFS 


CS 

MASK 

TS 

CS 

EXTEND 

RAND 

AD 

EXTEND 

WRITE 


ENG0N6I T 
FLAGWR05 
FLAGHRC5 
PRI030 

OSALMCUT 
PR  1020 

DSALMCLT 


0314  REF  21  LAST  748 

0315  REF  1 

0316  PEF  22  LAST  755 


36.3601  4 Oil!  1 

26.3602  7 4736  C 

36.3603  26  111  1 


CS  DAPBOOLS 
MASK  USEQRJTS 
AOS  PAPBOOLS 


0317 

0319 

0320 

0321 

0322 


REF  1 

REF  3 LAST  735 

REF  31  LAST  735 

REF  9 LAST  736 


36.3604  4 4737  1 

36.3605  54  C55  0 

36.3606  3 4750  I 

36.3607  0 0006  1 

36,3610  05  C14  1 


CS  HIRTHPOT 

TS  THRUST 

CAF  BIT4 

EXTEND 

WCR  CHANJ4 


0323  REF 


LAST  566  36,3611  0 4707  0 


TC  ISWRETRN 


17:53  CECo  19,1Q69  FLY 


153  PAGE  755 


USER'  S PAGE  NCc  9 67  S3 

TURN  OFF  ULLAGE 

THIS  CODING  ALLOWS  ENGINOFF  ET  AL  TO  BE 
USEC  BOTH  BY  WAITLIST  AND  BY  TC  IBNKCALL 

MUST  BE  LOWER  PPIP  THAN  CLOCKJOB 


SET  THE  IDLE  B I To 


INSURE  ENGONFLG  IS  CLEAR, 

ENGIN0F3  IS  USED  AS  A PRE-FNGINE  ARM 
SUBROUT INE, 

TURN  OFF  THE  FNGIKF  - PFS  CP  APS 


TURN  OFF  TRIM  GIMBAL 


ZERO  AUTO-THROTTLE  WHENEVER  THE  ENGINE 
IS  TURNED  OFF, 

THE  HARDWARE  DOES  SC  CNLY  WHEN  THE 
ENGINE  IS  DISARMED, 


P^0-P^7 


032^  REF  36 

0325  REF  A 

0326  REF  52 


LAST  755  36 

LAST  7t*l  36 

LAST  755  36 


,3612  0 4674 
,3613  40205 
,3614  C 5261 


0 COASTSET  TC 

1 CADR 

I TC 


IBNKCALL 

ALLCOAST 

TASKOVER 


0327  REF 
0326 

0329  REF 

0330  REF 

0331 

03311  REF 

03312  REF 

03313  PEF 

03314  REF 

03315 

03316  REF 

03317  REF 

03318 

0331  9 PEF 

0332  REF 

03321 

03322  REF 

03323  REF 

0333  REF 

0336 

03361  REF 

03362  REF 

0337  PEF 

0338 

0339  REF 

0340  REF 

0341  REF 

0341  REF 

0342  REF 

0343 

0344 


5 LAST 

3 LAST 
1 

4 LAST 
4 LAST 

3 LAST 
1 

6 LAST 
1 

1 

1 

2 LAST 
2 LAST 
1 

1 

1 

4 LAST 

34  LAST 
2 LAST 
1 
1 

8 LAST 


755 

144 


692 

756 

689 


708 


756 

756 


299 

755 

145 


751 


£6,1422 

36.3615 

36.3616 

36.3617 

26.3620 

36.3621 
36  ,3622 

36.3623 

36.3624 

36.3625 

36.3626 

36.3627 

36.3630 

36.3631 

36.3632 

36.3633 

36.3634 

36.3635 

36.3636 

36.3637 

36.3640 

36.3641 
36  ,3642 

36. 3643 

36.3644 
£7,1706 

36.3645 
36  ,3646 
36  ,3647 

36.3650 

36.3651 


45020  1 
C3665  1 
56447  0 
43C14  0 
01307  1 
03665  1 
C37C5  C 
75637  1 
45345  1 
01234  0 
03763  0 
50025  C 
03432  1 
75662  1 
43345  1 
03763  0 
03432  I 
03765  C 
77776  1 
10  754  0 
1 3667  1 
3 4737  0 
C 0004  0 
C 5105  0 

C2707  0 
56067  0 
C 5327  1 
00172  0 
10035  0 


EeANK=  OMfcGAQ 
UPCATEVG  STQ  CALL 

QTEf'Pl 

S40o8 

BCR  BON 

XOELVFLG 
OTEMPl 
N'CRRSW 
IRCSETUP 
DLCAO  DSU 

PI PTIME 
TI6SAVE 
DSU  BMN 

TNFWA 
GETPANS 
DLCAO  DAD 

TIGSAVe 

TNEWA 

STORE  TIGSAVEP 
ISOSETUP  EXIT 

CCS  PHASE2 
TCF  N0«9 
CAF  PRIOlO 
INHINT 

TC  FINOVAC 

E6ANK=  V6 
2CA0R  S40o9 

TC  2PHSCHNG 
OCT  00172 
OCT  10035 


0347  REF 
034701 
034702  REF 

03471  REF 

03472  REF 
03472  REF 

03474  REF 

03475  REF 

03476 

03477  REF 
03476  KEF 

0348  REF 

0349  REF 


)9  LAST  754 

2 LAST  756 

3 LAST  756 

7 LAST  71Q 

8 LAST  6=4 
7 LAST  719 
7 LAST  694 

7 LAST  677 
7 LAST  756 
6 LAST  691 
5 LAST  756 


ENDSTEER  TC 

DLOAO 


36.3652 

36.3653 

36.3654 

36.3655 
36  ,3656 
36,2657 
36,3660 
36,3^-61 

26.3662 

36.3663 

26.3664 

26. 3665 

36.3666 


C 6C42  1 
77745  1 
03765  0 
27763  0 
0122O  0 
26323  1 
01226  0 
02331  1 
45345  1 
03631  0 
01234  0 
27452  0 
03665  1 


GETRANS 


STCVL 

STCVL 

STORE 

DLCAO 

STCAl L 


I NTPRET 

T I6SAVEP 

TIGSAVE 

RN 

RIMT 

VN 

VINIT 

DSU 

TPASS4 

PI PTIME 

DELLT4 

OTEMPl 


USER  'S  PAGE  NOo  10 


E7  S3 


DO  DAP  COASTING  INITIALIZATION 


X-PRODUCT  STEERING 


LAMBERT  VTDGAIN 

2o  17SPCT  FOR  S40e  9 

HERE  AND  RFPtADAC  AFTER  RESTART 


GAP  : 


ASSEf'BLE  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


L 


PA0-PA7 


03491 

03492 

03493 
0350 


REF  110  LAST 

REF  6 LAST 
REF  111  LAST 


756 

756 

757 


36,3667 
36  ,3670 

36.3671 

36.3672 


n 6042  1 
77650  1 
03665  1 
0 6042  1 


STEER  ING  TC 


0351 

0352  REF 

0353 


LAST  752 


36.3673 

36.3674 

36.3675 


77776  1 


CALL 

UPDATEVG 

EXIT 


0354  REF  29  last  75? 

0355 

0356  REF  6 LAST  734 

0357  REF  24  LAST  734 

0359  REF  19  LAST  734 

0360  REF  2 LAST  734 

0361  REF  230  LAST  752 


E7,1515 
36,3676 
36  ,3677 

36.3700 

36.3701 

36.3702 

36. 3703 


C 0004  C NSTEER 

3 5016  0 
54  CC3  0 

4 0076  1 
7 4743  I 
10  COO  0 


EBANK*  OVCNTR 
INHINT 

CA  EBANK7 

TS  EBANK 

CS  FLAGV«R02 

MASK  IMPULBIT 

CCS  A 


0362 

0363 

0364 

0365 

0366 

0367 
036e 


REF  16  LAST  755 
REF  2 LAST  755 
REF  231  LAST  757 

REF  45  LAST  754 
REF  5 LAST  754 


36.3704 

36.3705 

36. 3706 
36  ,3707 

36.3710 

36.3711 

36.3712 


1 3711 
4 0103 
7 4745 
10  OOO 
1 3713 
0 4635 
65746 


1 

1 

1 

0 

C 

0 

1 


TCF  +5 

CS  FLAGWRC7 

MASK  IDLEFBIT 

CCS  A 

TCF  +3 

TC  POSTJUMP 

CACR  SERVEXIT 


03681  REF  37  LAST  756 

03682  REF  3 LAST  365 


36.3713  0 4674  0 

36.3714  40166  1 


TC  IBNKCALL 

CAOR  STOPRATE 


0369  REF  80  LAST  754 

0370  REF  2 LAST  754 


36.3715  0 5516  0 

36.3716  00044  1 


TC  DOWNFLAG 

ADRES  IMPULSV» 


REF  50  LAST  740 
REF  4 LAST  736 


36  ,3717  0 5504  0 

36,3720  C0161  1 


TC  UPFLAG 
ACRES  IDLEFLAG 


0373 

C374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0391 

0392 

0393 

0394 

0395 


REF  32 
REF  296 

REF  23 
REF  297 
REF  8 
REF  298 
REF  2 
REF  19 
REF  3 
REF  9 


LAST  739 
LAST  753 


LAST  755 
LAST  757 
LAST  738 
LAST  757 
LAST  754 
LAST  754 
LAST  754 
LAST  756 


36.3722 

36. 3723 

36.3724 

36.3725 

36.3726 

36.3727 

26.3730 

36.3731 

36.3732 

36.3733 

36.3734 

36.3735 

36.3736 
36  ,3737 


0 0004  0 
C 0006  1 

3 1442  1 
52  155  1 
0 0006  1 

4 OC25  1 
20  155  1 
C 7262  C 
30  155  0 
0 3741  0 
C 5173  1 

03546  0 
0 5327  1 
40114  1 
00035  1 


INFINT 

EXTEND 

OCA 

CXCH 

EXTEND 

DCS 

DAS 

TC 

CAE 


TIG 

MPAC 

TIME2 

MPAC 

TPAGREE 

MPAC  +1 

GETCT 

TWIDDLE 

ENGOFTSK 

2PHSCHNG 

40114 

00035 


17:53  DECo  19,1969  FLY  tl53  PAGE  757 
USER  'S  PAGE  NOo  11  E6  S3 


CHECK  IMPULSE  SWITCF,  IT  IS  SET  EITHER 
BY  S40.  13  IF  TBUPN<6  SECS  OR  BY  $40^8  IF 
STEERING  IS  ALMOST  DONE* 


IMPULSH  = 0 EXI  T 

IMPULSW  = 1 WHY?  CHECK  lOLFFLAG 

nOLEFLAG  = 0 — > CVMON  ONI 

DVMON  ON — >THRUSTING — >IMPULSVi  VIA  S40<,  8 
OVMON  OFF — >1MPULSW  ON  VIA  S40cl3 — >EXIT 


TURN  OFF  IMPULSW 


TURN  OFF  CVMON 


ENGCFTSK  (ENGINCFF) 
SERVICER— REPEADAC 


P^0-P47 


0396 


PEF  123  LAST  753  36,37A0 


TCP  ENDOFJCP 


0397  REF 

0398 

0399 

0400  REF 

0401  REF 

0402  REF 

0403  REF 

0404  REF 

0405  REF 

0406  REF 


232  LAST 


137  LAST 
83  LAST 

110  LAST 

138  LAST 

8 LAST 

9 LAST 
197  LAST 


757  36,3741  1C  OOO 

36.3742  I 3745 

36.3743  1 3745 

750  36,3744  3 4755 

716  36,3745  6 4753 

746  36  ,3  746  56  001 

758  36,3747  3 4755 

754  36,3750  53'5i7 

758  36,3751  3 1517 

746  36,3752  C 0002 


0 

0 

0 

1 

1 

0 

1 

1 

0 

0 


GETDT 


CCS 

TCP 

TCF 

CAF 


A 

+ 3 
+ 2 

ZERO 

ONE 

L 

ZERO 
TGO 
TGC  +1 
Q 


0425 

0426 

0427 
0427 
042  8 

0429 

0430 

0431 

0432 
0437 
0436 

0439 

0440 

0441 


REF 

REF 


15  LAST 
2 LAST 


36.3753 

36.3754 

36.3755 

36.3756 

36.3757 

36.3760 

36.3761 
36  ,3762 

36.3763 

36.3764 

36.3765 

36.3766 
752  <•777 

743  36,2057 


COCOO  1 SEC15DP 
02734  0 SEC15 
00000  1 SEC30CP 
C567C  0 

00000  1 SEC45CP 
10624  0 SEC45 
CCOOO  1 5SECUP 
00764  1 5SEC 
C5C50  1 26SECS 
04050  0 V16N40 

04125  0 V16N856 

C4123  0 V1683 

SECOl 
ACACNeS 


OCT  OOOOO 

DEC  1500 

2CEC  3000 

OCT  OOOOO 

DEC  4500 

OCT  OOOOn 

DEC  500 

DEC  2600 

VN  1640 

VN  1685 

VN  1 683 

= ISEC 

= P41TA0LE  + 


0442  REF  7 LAST  754 

0443  REF  1 

0443  REF  1 


E7, 1622 
36,3767 
36,3770 


EBANK=  DELVI MU 
03466  0 ACA0N83  2CADR  CALCNeS 
74C67  0 


USER'S  PAGE  NOo  12 


E7  S3 


DON'T  SEPARATE 
DON'T  SEPARATE 

DON'T  MOVE  FROM  JUST  BFFCRE  SEC45 
CCN'T  MOVE  FFOM  JUST  BEFORE  5SEC 
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17t  53  DEC#  19,1969  FLY 


P04^5 

R04A6 

R0A67 

R0498 

R0AA9 

R0A50 

R0A5I 

R0A52 

R0A53 

R095A 

R0455 

R0456 

R0457 

R0458 

R0459 

R0460 

R046] 

R0462 

R0463 

R0464 

80465 

R0466 

R0467 

R0468 

R0469 

R0470 

R0471 

R0472 

R0473 

R0474 

R0475 

R0476 

R0477 

R0478 

R0479 

R0480 

R0481 

80482 

R04B3 

80484 

R0485 

R04e6 

R0487 

80486 

80489 

R0490 

R0491 

C492 

0493 

0494 


PA0-PA7 

PROGRAM  CeSCRIPTION  SAOol  OATE15NOV6e 

PCD  NO?  LOG  SECTION  P40-P47 

MOD  BY  ZELDIN  AND  ADAPTED  BY  TALAYCC 
FUNCTIONAL  CESCRIPTION 

COMPUTE  INITIAL  THRUST  D I RECT I ON  (UT  I AND  INITIAL  VALUE  OF  VG 
VECTOR(VGTIGIo 
CALLING  SECUENCE 
L CALL 

L+J  SA0«1 

NORMAL  EXIT  PCCE 

AT  L+2  UF  CALLING  SECUENCE  (GOTO  L+?l  NORMAL  RETURN  OR 
ERROR  RETURN  IF  NOSOFLAG  =1 
SLBROLTINES  CALLED 
LEMPREC 
INITVEL 
CALCGRAV 
MICGIM 

ALARM  OP  A6CRT  EXIT  MODES 

L+2  OF  CALLING  SEQUENCE  , UNSCL VABLE  CCMC  IF  N0S0FLAG=1 
ERASABLE  INITIALIZATION  REQUIRED 

WEIGHT/G  ANTICIPATED  VEHICLE  MASS  CP  B16KGM 

XDELVFLG  t = DELTA-V  M ANE UVER  ,0=A I MPT  STEER 

F thrust  fch  engine  USEC 

IF  DELTA-V  MANEUVER 

CELVSIN  SPECIFIED  CELTA-V  REQUIRED  IN 

INERTIAL  CCCROSo  OF  ACTIVE  VEHICLE 
AT  TIME  OF  IGNITION 
DELVSAB  MAG,  OF  OELVSIN 
RTI6  PCSITICN  AT  TIME  OF  IGNITION 

VTIG  VELOCITY  AT  TIME  OF  IGNITION 


USER  'S  PAGE  NO.  1? 


IF  AIMPT  STEER 


VECTOR  B7M/CS 
OP  67M/CS 

VECTOR  B29M 
VFCTCR  e7M/CS 


TIG 

RTARG 

CSTEER 

OLTARG 


VGTIG 

OELVLVC 

BCT 

-GOT 

PTIG 


TIME  OF  IGMTICN 
POSITION  TARGET  TIME 
C FOR  STEEP  LAW 
TARGET  TIME-IGNITION  TIME 

DESIRED  THRUST  DIRECTION 
INITIAL  VALUE  OF  VELOCITY 
TC  BE  GAINEC  (INERT.  CODRO.  ) 
VGTIG  IN  LCCo  VERT.  CCCRCSo 


V REQUIRED  AT  TIG 
FOR  S40.13 

CALC  IN  S40.1B(AIMPT)  FOR  S40 


VECTo  B2M/(CSoCSl 


VECTOR  B7M/CS 
e7M/CS 


V REQUIRED  AT  (TIG-2SEC) 

VECT  B7M/CS 
VECTOR  B29M 


S QTEMPl 

MPACiQPRET 
PUSHLIST 


POSITION  AT  TIME  OF  IGNITION 


1A,2347 
27, 2000 
27,2246 


BANK  14 
SETLCC  P40S1 
BANK 


gap:  ASSEH6LE  REVISION  131  CF  AGC  PRCCRAM  LUMINARV  0Y  NASA  2021112-C91 


L PA0-P47 


REF 

0^96 

0497  REF 

0498  REF 
0498]  REF 

0499 

0500  REF 

0501  REF 

0502 

0503 

0504  REF 

0505  REF 

0506 

0507  REF 
05Q8  REF 

0509  REF 

0510  REF 

0511 

0512 

0513 

0514  REF 

0515 

0516  REF 

0517  REF 

0518 

0519  REF 

0520 

0521  REF 


3 LAST 
33  LAST 

4 LAST 

5 LAST 
1 


5 LAST 
8 LAST 


6 LAST 
3 LAST 

7 LAST 
9 LAST 


1 

4 LAST 


6 LAST 
13  LAST 


27  ,2240 
622  27,2247 

757  27,2250 

756  27,2251 

27, 2252 
756  27,2253 

27.2254 

27. 2255 
27  ,2256 

647  27,2257 

756  27,2260 

27,2261 
647  27,2262 

146  27,2263 

760  27,2264 

756  27,2265 

27.2266 

27.2267 

27.2270 

27.2271 

27.2272 
650  27,2273 

27.2274 

27. 2275 

753  27,2276 
27,2277 

754  27,2300 


71220  1 
03632  0 
03442  0 
03763  0 
77614  1 
01347  0 
56336  1 
77201  1 
00001  0 
03650  1 
02331  1 
53435  0 
03642  1 
27673  0 
03642  1 
C2323  1 
65236  0 
C0045  0 
56205  0 
16412  1 
412C5  0 
C3664  0 
01244  1 
77671  1 
03735  0 
24017  1 
03656  1 


CALCTHE7  SETPO 


STORE 

VKV 

STOVL 

STORE 

VSQ 

DMP 

DRP 


ODV 


i>$/S40o  1 
OLOAO 
OTEFP 
TIG 

T I6SAVE 


XOFLVFLG 

S40olB 

VLCAO 

0 

VTIG 

VINIT 

UNIT 

RTIG 

UT 

RTIG 
RI  M T 
POOL 
36D 
00  V 

THETACON 

DFP 

DELVSAB 
WE  IGHT/G 


STCVL  140 

DELVSI N 


0522 

0523  REF  4 

0524  REF  5 

0525 

0526 

0527  REF  14 

0528 

0529 

0530 

0531 

0532  REF  6 

0533 

0534  REF  5 

0535 

0536 

0537 
0536 

0539  REF  6 

0540 

0541 

0542 


LAST  760 
LAST  760 

LAST  760 

LAST  760 
LAST  751 

LAST  760 


27,2301  74241  0 

27,23C2  C3673  0 

27.2303  03673  0 

27.2304  41552  0 

27.2305  65245  I 

27.2306  03656  1 

27,23C7  C0C17  1 

27.2310  63356  1 

27.2311  00007  0 

27.2312  53435  0 

27.2313  03673  0 

27.2314  45561  1 

27.2315  50076  0 

27.2316  65256  0 

27.2317  00017  1 

27.2320  74346  0 

27.2321  74255  0 

27,^322  C37C1  1 

27.2323  C0045  0 

27.2324  53352  0 

27.2325  77626  0 


DOT  VXSC 
UT 
UT 

VSL2  PUSH 

BVSU  POOL 

OELVSIN 

14C 

SIN  PDVL 

60 

VXV  UNIT 

UT 

VXSC  STADR 

STCVL  VGTIG 

UNIT  POOL 

14C 

COS  VXSC 

VAC  VXSC 

VGTIG 
3 60 

VSL2  VAC 

STAOR 


17:53  OECo  19,1969  FLY 
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USER'S  PAGE  NOo  14  F7  S3 


UP  IN  UT 


(DELTAVoUP  )UP  SCALED  AT  2( +71  PoD,L;  0 
DELTA  VP  SCALED  AT  2(471  PoD.Lo  6 


UNIT(VPXUP)SIN(THETAT/2)  IN  VGTIG> 
UNITIOELTA  VPl  IN  P,0o  Le  6 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  6Y  NASA  2021112-09) 
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153  PAGE  761 


P40-P47 


USER'S  PAGE  NCc  15 


E7  S3 


05A3  REF 


7 LAST  76C  27,2326. 


7^,076  0 


STORE  VGTIG 


VG  IGNITION  SCALED  AT  2(+7»M/CS 


0544 

0545  REF 

0546  REF 
0547, 

0548  REF 

0552 

0553  REF 

0554 

0555  REF 

0556  REF- 

0557 

0558  REF 

0559  REF 

0560  REF 

0561 

0562  REF 

0563 

0564  REF 

0565  REF 

05651 

05652  REF 

0566  REF 
05665  REF 

0567  REF 

0568 

0569  REF 

0570  REF 

0571 

0572  REF 

0573  REF 

0574  REF 

0575 

0576  REF 
C577 

0578  REF 

0579  REF 

0580 

0581  REF 

0582  REF 

0583 

0584  REF 

0585 

0586  REF 

0587  REF 

0588 

0589  REF 


7 LAST 

8 LAST 

1 

4 LAST 

34  LAST 
42  LAST 


8 LAST 
7 LAST 

7 LAST 

24  LAST 

8 LAST 
10  LAST 


2 LAST 
20  LAST 
6 LAST 
9 LAST 

11  LAST 
1 

4 LAST 
1 

1 

12  LAST 

11  LAST 

2 LAST 

n LAST 
9 LAST 

8 LAST 

3 LAST 
2 LAST 

5 LAST 


760 

761 


756 

756 

709 


149 

716 

760 

760 


692 

761 


316 

761 


27, 2227 
27  ,2330 
27,2321 

27. 2332 

27.2333 

27.2334 

27.2335 

27.2336 

27.2337 

27 .2340 

27.2341 

27.2342 
27  ,2343 

27. 2344 

27.2345 

27.2346 

27. 2347 

27.2350 

27.2351 

27 .2352 

27 .2353 

27.2354 

27 .2355 

27.2356 

27.2357 

27.2360 

27.2361 

27.2362 

27.2363 
27,2164 

27.2365 

27.2366 

27.2367 

27.2370 

27.2371 

27.2372 

27.2373 

27.2374 

27.2375 

27.2376 
27,2177 

27.2400 

27.2401 

27.2402 

27.2403 
27,24C4 


77656  1 
27673  0 
C37C1  1 
45006  0 
15741  1 
77650  1 
03632  0 
77745  1 
C3442  0 
00041  1 
776‘21  1 
03621  0 
37452  0 
27056  I 
40375  1 
00001  0 
CCCOl  0 
03642  1 
02323  1 
77656  1 
27537  0 
C0C07  0 
03650  1 
02331  1 
65345  0 
06524  1 
16406  1 
43214  1 
03745  1 
■56366  1 
16410  0 
66006  1 
C2776  C 
45134  0 
C2777  1 
22000  1 
41575  0 
02366  0 
C3701  1 
77656  1 
17673  0 
00045  0 
27664  1 
15741  1 
77650  1 
C3632  0 


PUSH 

GOTO 

OLCAC 

STCRE 

EDSU 

STCALL 

VLOAO 


STORE 

STORE 

UNIT 

STCVL 

STORE 

STCRE 

OLGAD 


SMALLEPS  PUSH 
SXA,2 


STORE 

UMT 

STOOL 


VGTIG 

CALL 

GETeLVC 


TPASS4 

DELLT4 

LERPPEC 

S6TPI) 

RATT 


UN  IT/R/ 

VATT 

VTIG 

VIMT 

POOL 

ZEPOVECS 

EPSl 

DAD 

NOPMSW 

SMALLEPS 

EPS2 

SXA.l 

RTXl 

CALL 

RTX2 

INITVEL 

PUSH 

DELVEET3 

VGTIG 

UT 

360 

VGOISP 
GE  T, LVC 


THRUST  DIRECTIGK  SCALED  AT  2(-t-l» 

VGTIG  IN  LV  COOR  AT  2(*7)M/CS  IN  DELVLVC 


INTERCEPT  TIME  - TIGo 

LOAD  STATE  VECTOR  AT  TIG  FCR  INITVEL< 


NUMIT 


n 


EPSIL0N4  = 10  DEGREES  CR  45  OEGREESo 


VGTIG  = VR  - VNo 
UT  = UNIT  (VGTIG) 

CONVERT  VGTIG  (IN  PUSHL  1ST  ) TO  LOCAL 
VERTICAL  COOPOINATESs 


0590 

0590 


27,2405  00707  1 EPSl  2DEC*^  2o777777778  E-2*  10  DEGREES  AT  ) REVCLUTICNo 

27,24C6  03434  I 


gap: 
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L PA0-PA7 


USER'S  PAGE  NO.  16  E7  S3 


0591 

0591 

0592 
0592 


27,2A07 
27,2A10 
27,2A11 
27  ,2412 


C3070  0 
34344  0 
C0C2A  1 
13714  1 


EPS2 


2DEC*  9.722222222  E-2*  35  DEGREES  A7  1 REVOLUTICN. 


THETACGN  2DEC  .31830989  6-8 


GAP:  ASSEMBLE  REVISION  \31  OF  AGC  PRCGRA^'  LUPlNflPV  BY  NASA  2021112-091  17:53  DEC*  19,1969  FLY  ,153  PAGE  763 

I PA0-P47  USER'S  PAGE  NCe  17  E7  S3 

P0593  SUBROUTINE  NAME:  S40o2,3  MOD*  NO*  3 DATE:  APRIL  1967 

R0594  MCCIFICATION  BY:  JONATHAN  D.  ACOELSTON  (ADAMS  ASSOCIATES) 

R0595  MODo  N0»  4:  JULY  18,  1967  : PETER  ADLER  (MIT/IL) 


R0596  MCO*  NO.  5:  OCTOBER  18,  1967:  PETER  ADLER  (MIT/IL) 


R0597  ORIGINALLY  BY:  SAYCEAN  ZELCIN  (MIT  INSTRUMENTATION  LAB)  AND  RICHARD  TALAYCO  (SYSTEM  DEVELOPMENT  CCRP) 

R0599  S4no2,3  COMPUTES  "POINTVSM"  t^HICH  IS  THE  HALF-UNIT  DESIRED  THRUST  VECTOR  IN  STABLE-MEMBER  COORDINATES  FROM  "UT** 

R0601  l^I-ICh  IS  THE  SAME  VECTOR  IN  REFERENCE  COORDINATESo  IT  DETERMINES  THE  CORRECT  VALUES  FCR  "SCAXIS"  USING  THE  +X 

k06O3  Axis  FOR  DPS,  APS,  AND  RCS  BURNS.  THE  "WINGS-LEVEL  HEADS-UP"  LM  ORIENTATION  IS  THEN  COMPUTED  IN  REFERENCE 

R0605  COORDINATES.  THESE  VECTORS  ALSC  DEFINE  THE  "PREFERRED  IMU  ORIENTATION".  UPON  COMPLETION  OF  THIS  CALCULATION, 
R0607  TFE  "PREFERRED  ATTITUDE  CCMPUTEC"  FLAG  IS  SET  (PFRATFLG). 


R0608  CALLING  SEQUENCE: 


Aa609 

A0610 

A0611 


L CALL  INTERPRETIVE  CALL. 

L +1  S40.2,3 

L +2  (RETURN)  GIMBAL  ANGLE  VECTOR  IN  MPAC. 


R0612 

R0613 

R06li‘ 


SLBRCLTINES  CALLED: 
NORMAL  RETURN:  L ♦ 
ALARM/AEORT  MODES: 


NONE. 

2 (SEE  CALLING  SEQUENCE  ABOVE). 
NONE. 


R0615  INFL7: 


R0616 

R0618 

R0619 


1.  REFSMMAT 

2.  UT 

3.  RTIG 


MATRIX  FRCM  REFERENCE  TO  STABLE-MEMBER  COORDINATES  SCALED  AT  2. 
HALF-UNIT  DESIRED  THRUST  DIRECTION. 

PCSITICN  AT  TIG  IN  REFERENCE  COORDINATESo 


R0621  OUTPUT; 


R0622 

R0623 

R062& 

R0625 

R0627 

R0629 


: YSCREF  : 
: ZSCREF  : 

2.  PCINTVSM 

3.  SCAXIS 

4.  PFRATFLG 


WINGS-LEVEL'hEAOS-UP  LM  ORIENTATION 
IN  REFERENCE  CCCRDINATES 
(PREFERRED  IMU  OP  I ENTA T ION ) • 

DESIRED  THRUST  DIRECTION  IN  STABLE-MEMBER  COORDINATES. 

HALF-UNIT  OF  AXIS  TO  ALIGN  IN  STABLE-MEMBER  COORDINATES. 

INTERPRETIVE  FLAG.  ON:  PREFERRED  ORIENTATION  COMPUTED;  OFF:  NOT  COMPUTED, 


R0631  DEBRIS:  NONE. 
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USER'S  PAGE  NO,  18  E7  S3 


0632  REF 

0633 

0634  REF 

0635 

0636  REF 

0637  REF 

0638  REF 

0639  REF 


1 

9 LAST 


22  LAST 

5 LAST 

6 LAST 
22  LAST 


761 

720 

522 

586 

522 


27,2^13 

27. 2414 

27.2415 

27.2416 

27.2417 

27 .2420 

27.2421 


77775  1 
C3673  0 
76521  0 
01734  0 
27773  I 
^6522  1 
27765  C 


S40q2  ,3 


1S/S40, 2 
UT 

VSLl 

REFSMMAT 
POI NTVSM 
UMITX 
SCAXIS 


COUNT* 

VLCAO 

MXV 

STOVL 

STCVL 


UT:  DESIRED  THRUST  DIRECTION  (HALF-UNIT) 
(PUT  INTO  TOP  CF  PUSH-CCWN-L 1ST, ) 
TRANSFORM  THRUST  DIPECTICN  TO  STABLE- 
MEMBEP  FROM  REFERENCE  COORDS  (RFSCALE)e 
SAVE  FOR  "VECPOIM"  ROUTINE  (LEMMANU). 
SCAXIS  SET  TO  +X,  FOR  P40  AND  P42  AND 
FOR  P4l  IF  PCS  NOT  -X, +Y,-Y,  •►Z,-Zo 


0640  REF  10  LAST 

0641  REF  1 

0642 

0643  PEF  o LAST 

06431 

06432 

06433  REF  1 

06434 

06^4  REF  1 

0645 

0646  REF  2 LAST 

0647 

0646  PEF  1 


764  27,2422 

27.2423 

27.2424 
761  27  ,2425 

27.2426 

27.2427 

27.2430 

27. 2431 

27.2432 

27.2433 
764  27,2434 

27  ,2435 
27,2436 


03673  0 
03607  0 PLUSX 
53435  0 
03642  1 
46125  0 
00045  0 
56441  0 

45575  1 STORY 
74162  1 
76435  1 
C3607  0 
77676  0 
03623  0 


UT 

STORE  XSCRFF 
VXV  UNIT 

RTIG 
POOL  BHIZ 
36D 
FIXY 

VLCAD  STADR 
STORE  YSCREF 
VXV  VSLl 

XSCREF 

VCOMP 

STCRE  ZSCREF 


ASSUME  +X  BLPN  always,  EVEN  FCR  RCS« 
XSCREF  = UT  (DESIRED  THRUST  DIRECTION,) 
RTIG  = POSITION  AT  T 1 M F-OF- I GN IT  ION, 
YSCPEF  = UNITIUT  X RTIG) 


TEST  MAGNITUDE  CF  LT  X RTIG 
IF  SMALL,  USE  UT  X VTIG  AS  YSC 


COMPUTE  (YSCREF  X XSCREF), BUT  FOR  A 
RIGHT  HANDED  SYSTEM,  NEED  (X  CROSS  Y) 
ZSCREF  = - (YSCREF  X XSCREF) 

= + (XSCREF  X YSCREF ) 


0649 

0650  REF  1 

06501 

06502  REF  3 

06503  KEF  7 

06504 

06505 

06506  REF  1 


27,2437 

27.2440 

27.2441 
LAST  764  27,2442 
LAST  761  27,2443 

27.2444 

27.2445 

27.2446 


43414 

01073 

47375 

03607 

03650 

41456 

77650 

56431 


I 

1 

0 

0 

1 

0 

1 

1 


FI 


;y 


SET  PVQ 

PFRATFLG 

VLGAD  VXV  IN  THIS  CASE, 

XSCREF  YSCREF  = UNIT(XSCREF  X VTIG) 

VTIG 
UNIT  PUSH 
GOTO 

STORY 


GAP: 
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L 

PA0-PA7  USER'S  PAGE  NCo  19  E7  S3 

P0651 

SUBROUTINE  SAO«e 

R0652 

MCCIFieC  APRIL  3,  1968  BY  PETER  ADLER  MIT/IL 

R0653 

DESCRIPTION 

R065A 

R0656 

R0658 

S40o8  UPDATES  THE  VELOC I TY-TO-SE-GA I NED  VECTOR,  VG , (AND  FTR  LAMBERT  TARGETTED  BURNS  ALSO  EXTRAPOLATES  VG 
USING  THE  BOT  VECTOR)  COMPUTES  THE  TIME  FOR  ISSUING  THE  ENGINE  OFF  COMMAND,  TGO,  AND  CALLS  THE  ROUTINE 
•■FINDCDUH”,  WHICH  GENERATES  STEERING  COMMANDS  FCR  THE  CAP« 

R0659 

CALL  ING  SEQUENCE 

R0660 

R0661 

R0662 

L-1  CALL 

L'  SA0o8 

L-*l  INTERPRETIVE  RETURN 

R0663 

ALARM 

R066A 

R0666 

IF  VG  a DELVREF  IS  NEGATIVE  ( VG  AND  OELVREF  OVER  90  DEGREES  APART),  BYPASS  TGO  AND  STEERING  COMPUTATIONS 

AND  SET  ALARM  1407,  RETURN  TC  CALLER  NORMALLY, 

R0667 

INPUT  AND  INITIALIZATION 

R0668 

R0669 

R0670 

R0671 

R0672 

R0673 

R067A 

VGPREV  REFERENCE  2(7)  M/CS 

OELVREF  REFERENCE  2(71  M/CS 

BCT  REFERENCE  2(7)  M/CS 

TCECAY  TAIL-CFF  TIME  2(28)  CS 

X06LVFLG  1 = EXTERNAL  CELTA-V;  0 = LAMBERT  (AIMPOINT) 

STEERSW  1 = DO  STEERING  AND  TGO  COMPUTATIONS;  0 = VG  UPDATE  ONLY 

FIRSTFLG  1 = GCNE  TC  LAMBERT  AT  LEAST  ONCE;  0 = HAVEN'T  GONE  TO  LAMBERT  YET 

R0676 

NOTE:  VGTIG  EQUALS  VGPREV 

R0677 

OUTPUT 

R0678 

R0679 

R0680 

R0681 

STEERSW  SEE  INPUT 

IMPULSW  1 = ENGINE  OFF  IN  TGO  CENTI SECCNOS;  0 = CCNTINUE  BURN 

TGO  TIME  TC  CUT-CFF  2(28)  CS 

SEE  FINDCOUW  FCR  STEERING  CUTFUTS, 

R0682 

SUOROUT  INE  CALLED 

R06e3 

FINDCOUW 

R068A 

DEBRIS 

R0685 

MPACS,  PUSHLIST 

0686 

REF  1 COUNT*  if/SADaP 

GAP  : 

L 

0687 

C688 

0689 

0690 

0691 

0692 

0693 

069A 

0695 

0696 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 

0728 

0729 

0730 

0731 

0732 

0733 

073*- 

0735 

0736 

0737 

0738 

0739 

0740 

0741 

0742 

0743 

0744 
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REF 

REF 

REF 

REF 

REF 


REF 

REF 


REF 

PtF 

REF 


REF 

REF 

REF 


LAST  760 


LAST  752 
LAST  753 


LAST  766 
LAST  761 


LAST 

LAST 

LAST 


REF  8 
REF  35 
REF  11 

REF  I 
REF  1 

REF  3 
REF  2 
REF  5 


766 

766 

766 


PFF  4 LAST  713 

REF  6 LAST  766 

REF  1 

REF  2 LAST  749 

REF  12  LAST  671 


10  LAST  758 


LAST 

LAST 

LAST 


756 

761 

766 


LAST  757 
LAST  766 


27,2447 
27  ,2450 

27.2451 

27.2452 

27.2453 

27.2454 

27.2455 

27.2456 

27.2457 

27.2460 

27.2461 

27. 2462 

27.2463 

27.2464 

27.2465 

27.2466 

27.2467 

27.2470 

27.2471 

27.2472 

27.2473 

27.2474 

27.2475 

27.2476 

27.2477 
27  ,2500 
27,25C1 

27.2502 

27.2503 
27,25C4 

27.2505 

27.2506 

27.2507 

27.2510 

27.2511 

27.2512 
27,25)3 

27.2514 

27.2515 

27.2516 

27.2517 
27,2520 
27,252! 

27.2522 

27.2523 

27. 2524 

27.2525 


77614  1 
01347  0 
56731  1 
52375  1 
03701  1 
C3527  1 
03707  1 
76521  0 
C1734  0 
03253  0 
51575  1 
C3707  1 
03664  0 
77201  1 
00001  0 
03707  1 
27701  1 
03527  1 
57414  1 
01344  0 
00052  0 
77656  1 
41441  0 
C3707  1 
56244  0 
56526  0 
03743  1 
41215  1 
06522  1 
56261  1 
20613  1 
00045  0 
43205  1 
16535  0 
03741  C 
C3517  1 

77615  0 
C1234  0 
17442  0 
03517  1 
51025  1 
16537  1 
61100  1 
43014  0 
01066  0 
01224  1 
00052  0 


S40«8  BOF 

VLOAO 


STORE 

MXV 


STORE 

VLCAC 


STCVL 

BCFF 


LNIT 

DOT 


STORE 

OAC 


STOOL 

OSU 


XOELVFLG 

PASTEER) 

VSU 

VGPREV 

OELVREF 

VG 

VSLl 

REFSMMAT 

UNFC/2 

ABVAL 

VG 


VG 

VGPREV 

OELVREF 

VCOMP 

STEERSl^ 

OPRET 

PUSH 

VG 

ODV 

ALARMTT 

VEX 

DMP 

OPhAL  F 

ODV 

lOD 

360 

DAD 

-FOURDT 

TDECAY 

T60 

PI PTI ME 
TIG 
TGC 
BPL 

FOURSECS 
FINDCDUV.  -2 
C LRGO 
IMPULSW 
STFERSW 
OPRET 


USER  'S  PAGE  NOc  2C  E7  S3 

GENERATE  VR  IF  NOT  EXTERNAL  DELTA-V  BURN 


VELOCITY  TO  BE  GAINED  SCALED  AT  {71M/CS 


DELV  IS  MORE  THAN  90  DFGREES  FROM  VGc 


77776  1 ALARMIT  EXIT 


ASSfMOUe  REVISION’  131  GF  &GC  PPCGRAf/  LUMINARY  BY  NASA  2P21112-091 
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GAP  : 


L 


PA0-PA7 


USER'S  PAGE  NO,  21 


E7  S3 


0745  REF  30  LAST  742 

0746 

0747  REF  112  LAST  757 

0748 

07485  REF  2 LAST  766 


27,2527  0 5567  0 

27,253C  01407  0 

27.2531  C 6042  I 

27.2532  77650  I 

27.2533  61100  1 


TC  ALARM 

GCT  01407 

TC  INTPRET 

GOTO  SKIP  TGO  COMPUTATICN  BUT  CALL  FINOCOUW, 

FINDCDUVi  -2  FINCCCUW  WILL  EXIT  TO  UPOATEVG  +3, 


0749 

0749 

0751 

0751 

07515 


REF 


3 LAST  766 


27.2534 

27.2535 

27.2536 
27  ,2537 
£7,1742 


77715 

77777 

COOOO 

00620 


1 

0 

1 

0 


-FOUROT  2DEC 
FOLRSECS  20EC 
2VEXHUST  = 


-BOO  8-18 
UQQ 

VEX 


-4  1200  CSo  I 6 (-181 
400  CS  SCALED  AT  2(+28)CS 
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P0752 

R0753 

R075'V 

R0755 

R0756 

R0757 

R0758 

R0759 

R0760 

R0761 

R0762 

R0763 

R076A 

R0765 

R0766 

R07fe7 

R0768 

R0769 

RC770 

Rn771 

R0772 

R0773 

R077A 

R0775 

R0776 

R0777 


NAME  SAn,13  - TIME8URN 

FLNCTICN  (1)  CETERMNE  WFETFER  A GIVEN  COMBINATION  CF  VELOCITY  TO 

BE  GAINED  AND  ENGINE  CHOICE  RESULT  IN  A BURN  TIME 
SUFFICIENT  TG  ALLOh  STEERING  AT  THE  VEHICLE  DURING  THE 
BURN 

[21  THE  MAGNITUDE  OF  THE  RESULTING  BURN  TIME  — IF  IT 
IS  ShCRT  — ANC  THE  ASSOCIATED  TIME  OF  THE  ENGINE  CFF 
SIGNAL 

CALLING  SEQUENCE  VIA  FINDVAC  AS  A NEV,  JOB 

INPUT  VGTIG  VELOCITY  TO  BE  GAINED  VECTOR  (MfcTEPS/CSI  AT  +7 

WEIGHT/G  MASS  CF  VEHICLE  IN  KGM  AT  *16 
F APS  ENGINE  THRLST  IN  M,NEWTCNS  AT  +7 
ANC  ALSC  FCR  RCS  ENGINE 

MOOT  RATE  CF  DECREASE  CF  VEHICLE  MASS  CURING  ENGINE 
BURN  IN  KILOGRAMS/CS  AT  *3  , THIS  SCALING  MAY 
kECUIRE  MCCIFICATICN  FCR  SATURN  BURNS, 

ENGIFLAG  SWITCH  TO  DECIDE  WHETHER  APS  CR  DPS  ENGINE  IS  USED 

=0  OPS 
= 1 APS 

OUTPUT  IMPULSW  ZERO  FOR  STEERING 

ONE  FCR  ATTITUDE  HOLD 
NOIHROTL  ZERC  FCR  THROTTLING 

ONE  TO  INHIBIT  THROTTLING 
TGC  TIME  TC  BURN  IN  CS 

THE  QUANTITY  MoNEWTCN  = 10000  NEWTCNS  WILL  BF  USED  TC  EXPRESS 
FORCE 


C778 

0770 

0780 

0781 

0782 

0783 
078A 

0785 

0786 

0787 

0788 

0789 

0790 
C791 
0792 
C793 
079A 

0795 

0796 

0797 

0798 
C799 


REF  12 
REF  1 
REF  113 


REF  4 

REF  10 

REF  1 
REF  2 

REF  2 


REF  1 
REF  1 
REF  2 

REF  1 
REF  3 


LAST  766 
LAST  767 

LAST  766 
LAST  761 

LAST  751 
LAST  760 

LAST  749 

LAST  768 


67,1516 


27.2540  0 6042  1 

27.2541  43001  I 

27.2542  00001  0 

27.2543  01266  1 

27.2544  51575  1 

27.2545  C3701  1 

27.2546  41325  0 

27.2547  21006  1 

27.2550  34021  0 

27.2551  72471  0 

27.2552  C1244  1 

27.2553  41421  0 

27.2554  43C14  C 

27.2555  05342  1 

27.2556  56626  0 

27.2557  C2463  1 

27 .2560  56345  0 

27.2561  16CC1  1 

27.2562  01244  1 

27.2563  50021  I 


EBANK=  TGC 
CCUNT*  $$/40ol3 
TC  INTPRET 

SETPU  CLEAR 
OOD 

IMPULSW 
VLCAO  ABVAL 
VGTIG 

PCCL  OMP 

4SEC(17) 
FRCS2 
DDV  SLl 

WE  IGHT/G 
BOSU  PUSH 
BDFF  SET 

APSFLAG 
S40ol30 
NCTHR07L 
OLOAD  ODV 

KJ  VAL 
WE  IGHT/G 
BOSU  BMN 


ASSUME  NO  STEERING  UNTIL  FOUND  OTHERWISE 

VELOCITY  TO  BE  GAINED  AT  +7 

HOC  = MAG  OF  VGTIG  AT  +7 

CORRECT  VG  FOR  4 SECS  OF  2 JET  ULLAGE 

SCALE 


FOR  OPS  ENGINE 

000  = MAG  OF  VGTIG  CORRECTED 
MnNEWTONS-CS  AT 


GAP: 

L 

0800 

0601 

0602 

0803 

R0804 

R0605 

R0806 

0807 

0806 

0809 

0810 

0811 

0812 

0813 

C81A 

0815 

0816 

0817 

0818 

0819 

0620 

0821 

0822 

0823 

082t 

0825 

0826 

0827 

0826 

0829 

0830 

0831 

0832 

0833 

083^ 

0835 

0836 

0837 

0638 

0839 

Oe^hO 

08A1 

0842 

0843 

0844 

0845 

0846 
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0 


P40-P47 


USER 'S  PAGE  NO©  23  E7  S3 


27,2564  00001  0 

REF  1 27,2565  56610  0 

27,2566  41325  0 

REF  2 LAST  145  27,2567  03737  I 


COD 

S40ol31  TGO  LESS  THAN  100  CS 

POOL  OMP  02D  = TEMPI  AT  +7 

MOCT 


MOOT  REPRESENTS  THE  RATE  OF  CECREASE  CF  VEHICLE  MASS  DUPING  ENGINE 
BURN  IN  KILOGRAMS/CS  © WHEN  SATURN  IS  USED  , THE  SCALING  MAY 
RECLIRE  ADJUSTMENT 


RCF  1 

REF  4 
REF  7 

REF  1 


REF  2 


REF  2 
REF  1 

REF  1 

REF  5 


REF  1 
REF  1 

REF  5 
REF  9 
REF  299 
REF  111 
REF  139 
REF  13 
REF  1 


LAST 

LAST 


LAST 


LAST 


LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


768 

760 


768 


769 


769 


768 

757 

757 

758 
750 
768 


27.2570 

27. 2571 

27.2572 

27. 2573 
27,2  574 

27.2575 

27.2576 

27.2577 
27,26C0 

27.2601 

27.2602 

27.2603 

27.2604 

27.2605 
27,26C6 
27,2607 

27.2610 

27.2611 
27  ,2612 

27.2613 

27.2614 

27.2615 

27.2616 

27.2617 

27.2620 

27 .2621 

27.2622 

27.2623 

27.2624 

27.2625 


167C0  1 
65221  0 
01244  1 
C3735  0 
60405  0 
16702  0 
41471  0 
51021  0 
00003  1 
56626  0 
55345  0 
43205  I 
16702  0 
16676  1 
77650  1 
56616  0 
41345  C 
01244  1 
41542  1 
56215  1 
16003  0 
16005  0 
77414  0 
01066  0 
C 7262  C 

2 0154  1 
56  001  0 

3 4755  1 
53'517  1 
1 2650  1 


BOSU 


OMP 

OOV 

BDSU 


DLOAO 

OMP 


GOTO 

S40©131  OLGAD 

SRI 

OAO 


S4C©132  SET 

S40«132#  TC 
CA 
XCF 
CA 

OXCH 

TCF 


3e5SEC 

POOL 

HE  I6HT/G 
F 

SR  2 
5SECS 
PUSH 
BPL 
02  C 

S40ol3D 

BDOV 

DAO 

5S6CS 

1SEC20 

S40o 132 
OMP 

WE  I-GHT/G 
T>USH\ 

bov-^ 

K2VAL 

K3VAL 

EXIT 

IMPULSW 

TPAGREE 

MPAC 

L zr  s 

2ERC 

TGO 

S40ol34 


350  CS  AT  +14 

SCALE 

040  = TEMP2 


100  CS  AT  +14 


MoNEWTON  CS  AT  +24 
MaNEWTON  ^ AT  +1.0 

~rc-0 


REF  6 LAST  769 

REF  2 LAST  768 

REF  1 

REF  1 

REF  3 LAST  768 


27.2626  41345 

27.2627  00001  0 

27.2630  01244  1 

27.2631  43006  0 

27.2632  05302  0 

27.2633  56671  1 

27.2634  43071  0 

27.2635  16007  1 

27.2636  02663  0 

27.2637  41400  0 


OMP 
POD 

WEIGHT/G 
BON 

APSFLAG 
APSTGC 
OOV  CLEAR 

S40ol36 
NCTHRCTL 
BOV  PUSH 


C S4Col30  OLCAD 

PUSH 


FCR  DPS  ENGINE 


GAP  : 


ASSEf'BLE  REVISION  131  CF  AGC  PRCCRAN  LUMINARY  BY  NASA  2021112-091 


08A7  REF  1 

0646 

0649  REF  1 

0850  REF  1 

0651 

0852  REF  2 

0853  REF  2 

0854 

0855  REF  49 

0656 

0857  REF  124 

0858 

0859 

0860  REF  1 

0861  REF  14 

0662 

0863  REF  2 


LAST  770 
LAST  769 

LAST  754 

LAST  758 

LAST  769 
LAST  769 


27,26A0 

27,2641 

27,2682 

27.2643 

27 .2644 

27.2645 

27.2646 

27.2647 
27,2650 
27,^651 

27.2652 

27.2653 

27.2654 

27.2655 

27.2656 

27.2657 
27, 2660 


56653  1 
51025  1 
167C4  C 
56661  0 
52015  1 
167C4  0 
56616  0 
77776  1 
C 5353  1 
00003  1 
C 5155  0 
40545  1 
77671  I 
16C11  0 
03517  1 
77776  1 
1 2650  1 


S40,137  DSU 


CAC 


540*133  EXIT 
S40ol34  TC 
OCT 
TC 

S4(>o  130V  OLOAO 
GOV 

STORE 

EXIT 

TCF 


S40e 13CV 

BPL 

6SEC 

S40« 138 

GOTC 

6SEC 

S40o  132 

PHASCHNG 

00003 

ENCCFJOP 

SR4 

S40ol36_ 

TGO 

S40ol34 


0864 

0865  REF 

0866  • REF 
0667 

0868  REF 

0869 

0870 

0871  REF 


1 

1 

4 LAST 


769 


27.2661 

27.2662 

27.2663 

27.2664 

27.2665 

27.2666 

27.2667 
27,2670 


51025  1 
167C6  1 
56666  1 
77614  1 
C2463  1 
77745  1 
77776  1 
1 2620  0 


S40«,138  DSU 


SET 

STORETGO  DLOAD 
EXIT 
TCF 


BPL 

89SECS 

STORETGC 


NCTHRCTL 


S40o 132* 


0872 

0873 
06735 

0874 
0878 

0878 
0679 

0879 

0880 
0880 
0881 
0881 
0866 
0886 

R0888 

R0889 

R0890 

R0891 

R0692 

R0893 

R08«>4 

R0895 

R0896 


REF 

REF 


OCV 

GOTO 


2DEC 


2DEC 


STORETGO  +1 
lOOoO  6-14 


5SECS  2CEC 


350o 


50C« 


B-13 


27,2671  62471  1 APSTGO 

LAST  753  27,2672  34C07  1 

27,2673  77650  1 

LAST  770  27,2674  56667  0 

27.2675  CC144  0 ISEC2D 

27.2676  00000  1 

27.2677  01274  1 3o5SeC 

27,27C0  CCOOO  1 

27  ,2701  00764  1 

27,27C2  COCCO  1 

27.2703  01130  1 6SEC 

27.2704  00000 

27.2705  21304 

27.2706  00000  1 

FUNCTION  11)  GENERATES  RECLIREO  VELOCITY  AND  VELCCITY-TO-BE-GAINEC 
VECTORS  FOR  USE  DURING  AIMPOINT  MANEUVERS  EVERY  TWO 
CCMPUTATICN  CYCLES  (4  SECCNCS)* 

(2)  UPDATES  THE  8 VECTCR  V.HICH  IS  USEC  IN  THE  FINAL 
CALCULATIpN  OF  EXTRAPOLATING  THE  V ELOC I T Y- TO-BE-GA I NED 
THROUGH  CNE  2-SECCNC  INTERVAL  INTO  ThE  FUTURE* 

CALLING  SEQ  VIA  FINUVAC  AS  NE  k JOB* 

INPUT  RN  - ACTIVE  VEHICLE  RADIUS  VECTOR  IN  METERS  AT  *29* 

VN  - ACTIVE  VEHICLE  VELOCITY  VECTOR  IN  METERS/CS  AT 


2DEC  60C.O  6-14 
89SECS  2DEC  6900*0  6-14 


7:53  DEC*  19,1969  FLY 


153  PAGE  770 


USER  *S  PAGE  NO*  24  E7  S3 

600*0  CS  AT  +14 


RECCRPUTE  TGO  IN  TIME?  UNITS 
540*136  SHIFTED  LEFT  1C 

REJOIN  COMMON  CODING  FCR  RESTART  PROTECT 


LOAD  TGO  AT  2(14) 


100*0  CS  AT  +14 
350  CS  AT  +13 
500*0  CS  AT  +14 
600*0  CS  AT  + 


-14 


gap: 

L 

R0897 

R089e 

R0899 

R0900 

R0901 

R0902 

R0903 

R0904 

R0905 

R09U6 

R0907 

R0908 

R0909 

R0910 

0911 

0912 

0913 

091^ 

0915 

0925 

0926 

0927 

0928 

0929 

0930 

0931 

0932 

0933 

0934 

0935 

0936 

0937 

0936 

0939 

0940 

0941 

0942 

0943 

0944 

0945 

0946 

0947 

0948 

0949 

0950 

0951 

0952 

0953 


ASSfcMBLE  REVISION  131  CP  AGO  FRCGPAJ'  LUMINARY  BY  NASA  20211  12-091 
P40-P47 


17:  53  OECo  19,1969  FLY 
USEP‘S  PAGE  NO* 


153  PAGE  771 
E7  S3 


VRPBEV 

TIG 
DLTARG 
PIPTIME  - 
GCT/2 

CELVREF  - 

OLTPUT  VGPREV 

VGCISP 
VRPREV 
BOT 

SLORCUTINES  USED  - 
REF  8 LAST  766 
REF  2 LAST  44  TO 
REF  114  last  766 


REF 

REF 

REF 


I 


LAST  753 
LAST  754 


LAST  761 
LAST  761 


REF  1 

REF  50  LAST 

REF  125  LAST 


770 

770 


8 LAST  756 


REF  12  LAST  761 


LAST 

LAST 


145 

692 


REF 

REF 

REF 


REF  15  LAST  690 


LAST  CCMFUTEC  VELOCITY  REQUIRED  VECTOR  IN 
METERS/CS  AT  +7. 

TIME  OF  IGNITION  IN  CS  AT  +20* 

CCPFUTATICN  CYCLE  INTERVAL  = 200  CS  AT  +28o 
TIME  CF  RN  AND  VN  IN  CS  AT  +28o 
HALF  CF  VELOCITY  GAINEC  IN  DELTA  T TIME  OLE  T 
ACCERERATICN  OF  GRAVITY  IN  METERS/CS  AT  +7o 
CHANGE  IN  VELOCITY  DURING  LAST  2 SEC  IN 
METERS/CS  AT  +7. 

- VELOCITY  TC  BE  GAINEC  VECTOR  IN  METERS/CS  AT 

- MAG  OF  VGPREV  FOR  DISPLAY  PLRPOSESo 

- VELCCITY  REQUIRED  VECTOR  IN  METERS/CS  AT  47® 

- 6 VECTOR  IN  METERS/CS  AT  +7, 

INITVEL 


E7,1700 

44: 

27,2707 

27.2710 

27.2711 
27  ,2712 

27.2713 

27.2714 

27.2715 

27.2716 

27.2717 

27.2720 

27.2721 
27  ,2722 

27.2723 

27.2724 

27.2725 

27. 2726 

27.2727 
27,2730 


27,2731 
27  ,2732 

27.2733 

27.2734 
27  ,2735 

27.2736 

27.2737 

27.2740 

27.2741 
27  ,2742 

27.2743 

27.2744 


2 2* 
C 6042  1 
77601  0 
00001  0 
71214  0 
01072  0 
06524  1 
77725  1 
16406  1 
43214  1 
03745  1 
56723  1 
16410  0 
45006  0 
22002  0 
77776  1 
C 5353  1 
00002  0 
1 5155  1 


EPSSMALL  PUSH 


£NCS40o9  EXIT 


EBANK=  VGPREV 
COUNT*  tS/S'^OoQ 
TC  INTPRET 

SETPO 

OOD 

SET  OLOAD 

AVFLAG 
HI  6ZERCS 


EPS! 

DAO 

NORMSW 

EPSSMALL 

ePS2 

CALL 

HAVEGUeS 


PHASr.HNG 


51575  1 
01220  0 
53744  0 
02777  1 
57576  1 
27715  1 
03444  0 
47051  0 
C1220  0 
21725  1 
17656  1 
00045 


RASTEEM  VLOAD  ABVAL 


PMAG 

RTARG 

RTB 


27.2745  53674  1 

27.2746  G0046  0 


XAC,2  SL* 


SET  AVFLAG  FOR  LEM  ACTIVE 


EPSIL0N4  = 10  OR  45  DEGREES® 


C(360)  = ABVALIC) 


GAP: 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAf'  LUMNAPY  BY  NASA  202111  2-091 


17:53  OECfl  19»196< 


FLY 


153  PAGE  772 


USER'  S PAGE  NCe 


0954 

0955 

0956 

0957 

0958 

0959 

0960 

0961 

0962 

0963 

0964 

0965 

0966 

0967 

0968 

0969 

0970 

0971 

0972 

0973 

0974 

0975 

0976 

0977 

0978 

0979 

0980 

0981 
098? 
0903 
0984 
0905 

0986 

0987 
0980 

0989 

0990 

0991 

0992 

0993 
0 994 

0995 

0996 

0997 

0998 

0999 

1000 
1001 
1002 
10^3 


REF 

REF 


13  LAST  716 
3 LAST  771 


REF  16  LAST  771 
REF  17  LAST  772 


REF 

REF 


REF  4 LAST  772 
REF  4 LAST  688 


REF  3 

REF  .? 

PEF  2 
REF  5 

REF  18 

REF  3 

REF  10 

REF  2 
REF  3 


REF 

REF 


LAST  692 
LAST  692 


LAST  772 
LAST  772 


LAST  772 
LAST  690 


LAST  772 
LAST  772 


REF  20  LAST  772 


27,2747 

27.2750 

27.2751 

27.2752 

27.2753 

27.2754 

27.2755 

27.2756 

27.2757 

27.2760 

27.2761 

27.2762 
27,  2763 

27.2764 

27.2765 

27.2766 

27.2767 

27.2770 

27.2771 

27.2772 

27.2773 

27.2774 

27.2775 

27.2776 

27.2777 

27.3000 

27.3001 

27.3002 
27,3CC3 

27.3004 

27.3005 

27.3006 

27.3007 

27.3010 

27.3011 
27,3C12 
27,3013 
27  ,3014 

27.3015 

27.3016 
27,3917 

27. 3029 

27.3021 

27.3022 

27.3023 

27.3024 

27.3025 

27.3026 
27  ,3027 

27.3030 


57576  1 
C0037  0 
41301  0 
CQ050  1 
C3715  1 
57101  O 
n047  1 
00046  0 
77734  I 
C3766  C 
17725  1 
00037  0 
65342  1 
03715  1 
65342  I 
03723  1 
4334?  0 
45415  C 
74044  1 
41225  1 
00037  0 
03721  0 
77621  1 
03717  0 
45325  1 
C3733  0 
03715  1 
70501  1 
C0047  1 
41271  0 
03725  1 
53664  0 

00046  0 
57575  1 
77754  I 
03766  0 
75366  0 
02673  J 
00041  1 
41345  0 
03733  0 
C3721  C 
77621  1 
03717  0 
45325  1 
03733  0 
03723  1 
70501  1 

00047  1 
41271  0 


NORM 

SXA,2 

STOOL 

SRI 

SRI 

SRI 

DAD 

STORE 

DSU 

BOSU 

POOL 

NORM 

DDV 

XSU,2 

LXA  ,2 

SORT 

STORE 

OLOAD 

BDSU 

POOL 

NORM 

DDV 


XI 

MUSCALE 

RIC 

300 

POOL 

PMA6 

PDCL 

RTKAG 

DAC 

STADP 

SS 

DMP 

300 

MU/A 


DMP 
PI  C 
SL* 

XI 

1 I? 

MUSCALE 

SIGN 

GEOMSGN 

32  D 

OMP 

SS 

MU/A 


(m- 

(a 


2.0- 


Z (s-ex) 


GAP;  ASSEMBLE  REVISION  331  OF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021312-091 


PAGE  773 


1004 

1005 
10U6 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 
103  8 

1039 

1040 

1041 

1042 

1043 
1C44 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 


P40-P47 

REF  4 LAST  772 
REF  21  LAST  772 

PEF  5 LAST  772 


REF 


REF 

REF 

REF 


REF 

REF 


LAST  773 


REF  7 LAST  773 


Rt-F  4 LAST  772 
REF  2 LAST  773 


REF  0 LAST  773 
REF  9 LAST  773 


REF  5 LAST  772 


REF  9 LAST  761 


LAST  771 
LAST  771 
LAST  761 

LAST  773 
LAST  773 


27.3031 

27.3032 

27.3033 

27.3034 

27.3035 
27  ,3036 
27,3037 

27.3040 

27.3041 

27.3042 

27.3043 

27.3044 

27.3045 
27  ,3046 
27,3047 
27,3050 
27  ,3051 

27.3052 

27.3053 

27.3054 

27.3055 
27  ,3056 
27,3057 
27,3060 
27  ,3061 

27.3062 

27.3063 

27.3064 

27.3065 
27  ,3066 
27,3067 

27.3070 

27.3071 

27.3072 

27.3073 

27.3074 

27.3075 

27.3076 

27.3077 

27.3100 

27.3101 

27. 3102 

27.3103 

27.3104 

27.3105 
27  ,3106 
27,3107 
27, 3 no 

27.3111 

27.3112 


03725  1 
53664  0 
00046  0 
57575  1 
65366  1 
03733  0 
56225  1 
00037  0 
03733  0 
41566  1 
67542  0 
65205  0 
17216  1 
56325  0 
00037  0 
03733  0 
77600  1 
57C53  0 
41366  1 
44242  0 
65365  1 
02673  1 
17216  1 
45302  1 
65205  0 
03733  0 
03733  0 
75442  I 
77605  1 
52525  1 
03717  0 
55366  1 
43225  0 
03631  0 
01234  0 
14037  0 
77765  0 
00037  0 
00037  0 
7721A  0 
03705  0 
57123  0 
03656  1 
53451  1 
C3537  0 
63361  0 
00037  0 
03656  I 
53455  0 
C3537  C 


SORT 

CSU 


SORT 

SRI 

CMF 


SORT 

SR3 

SIGN 


SR3 

DMP 

POOL 


STCOL 

SIGN 


VSU 

VXSC 


1 ,2 

POOL 


5S 

PUSH 

ASIN 

POOL 

2PI+3 

DDV 

30D 

SS 


17:53  CFCo  19,1969  FLY 
USFR*  S PAGE  Nfe 


-8  (NC  SIGN) 


+ 1 

DMP  8 

BDSU 

POOL 

GEOMSGN 

2PH3 

DSL 

POOL 


S.^fe.T-CVs')  ^ *• 

f^7r/2_  — \ \ 


SL2 
MUASTEER 
BODV 
DAO 
TPASS4 
PIPTIME 


-r  /kj 

/I  / > 

?oc 


30D 

30C 

VLOAD 

NORMSW 

180MESS 

IC 

UNIT 
UNI  T/R/ 
POVL 
300 
IC 

UN  IT 
UNI T/R/ 


B tsITH  SIGN 


C//V  Cf/l 


GAP: 

L 

105A 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071‘ 

1072 

1073 

1074 

1075 

1076 

1C77 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 


ASSEMBLE  REVISION  131  OF  AGC  PRCGHAM  LUMINARY  BY  NASA  2021112-091 
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17:53  CECo  19,1969  FLY 
USER'S  PAGE  NCo 


153  PAGE  774 
28  E7  S3 


REF 

PEF 

REF 

REF 

REF 

PEF 

REF 

REF 


REF 

REF 


REF 

PEF 

REF 

PEF 

REF 


REF 

REF 

REF 

REF 

REF 


13  LAST 
7 LAST 
1 

4 LAST 

5 LAST 

1 

5 LAST 

6 LAST 

4 LAST 

5 LAST 

1 

7 LAST 

6 LAST 

5 LAST 

6 LAST 


1 

3 LAST 
12  LAST 

14  LAST 
1 


27 .3113 

27.3114 

27.3115 
771  27,3116 

27,3117 
692  27,3120 

27.3121 

27.3122 
27  ,3123 

773  27,3124 

773  27,3125 

27.3126 

27.3127 

774  27  ,3130 
27,3131 

774  27,3132 

27.3133 

27.3134 

27.3135 

27.3136 
689  27,3137 

773  27,3140 
27,314] 

27.3142 

27.3143 

27.3144 

27.3145 

27.3146 

774  27,3147 
27,3150 

774  27,3151 

27.3152 

27.3153 

27.3154 
774  27,3155 

774  27,3156 

27,3157 

27.3160 

27.3161 

27.3162 

27.3163 

27.3164 

27.3165 

27.3166 
729  27,3167 

761  27,3170 

27,3171 
774  27,3172 

27.3173 

27.3174 


53361  0 
C0C41  I 
53744  0 
02777  1 
57177  1 
02337  1 
77650  1 
57166  1 
50375  0 
03656  1 
03537  0 
77240  1 
57146  0 
03656  1 
63362  0 
03537  0 

53362  0 
77656  1 
57406  1 
75235  I 
C2674  0 
02673  1 
74256  0 
00037  0 
77715  1 
77650  1 
57113  0 
74575  0 
C3537  0 
74515  0 
C3656  I 
53451  I 
77606  1 
75235  1 
C2674  0 
02673  1 
74256  0 
00041  1 
77715  1 
53261  0 
00037  0 

77650  1 
57115  0 

77651  0 
03553  1 
02366  0 
53135  0 
C3000  1 
57177  1 
52175  0 


GETVRVGl  VXSC 
GETVRV62  LXC,2 

STORE 

GOTO 

180MESS  VLOAO 


8MN 


VSRl 

VSRl 
LM  T 
PUSH 
VXV 


IMT 

PDVL 

GOTO 

NEGPROC  VLCAC 

PDVL 

VSU 

PUSH 

VXV 


UNIT 

PCVL 

VXSC 

GOTO 

VSU 

ASTRENC  STORE 
FIPSTTME  SLCAO 


VLOAU 


VAC  ^ . 

32  0 H 

VSR* 

RTX2 
0 -1  ,2 
VIPRIMF 

ASTPEND  -2 

DOT 

IC 

UNIT/R/ 

VLCAO 

NFGPRCD 

IC 

POVL 

UNIT/R/ 

VAO 

VCOMP  FOR  A 

SIGN 

UN 

&E0MS6N 

VXSC 

300 

UNIT!  IC-IR  ) +-B 


GE  TVRVGl 
VSRl 
UM  T/R/ 

VSRl 

IC 

UNI  T 
SIGN 

UN  FOR  B 

GEOMSGN 

VXSC 

320 

VAD 

300 

GETVRVG2 

VNl 

UELVEET3 
bZE 
R TX2 
GETGOBL 

GOTO  NO  OBLATENESS  COMP  IF  IN  MOON  SPHERE 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRA^'  LUMINARY  BY  NASA  20213  12-091 


17:53  CECo  19,1969 


153  PAGE  775 


USER'S  PAGF  NCe  2«> 


1104 

1105 

1106 

1107 

1108 

1109 

1110 
nil 
1112 

1113  • 

1114 

1115 

1116 

1117 

1118 
1119 


13  LAST  774 


REF  10  LAST  771 


REF 

REF 

PEF 


LAST 

LAST 


27.3175 

27.3176 

27.3177 
27,3200 
27,32C1- 
27,3202 
27,5203 

27.3204 

27.3205 

27.3206 

27.3207 

27.3210 

27.3211 
27  ,3212 

27.3213 

27.3214 


02366  0 
57212  1 
53575  0 
CI220  0 
45345  1 
01234  0 
03512  1 
56205  0 
16023  1 
00C43  0 
53361  0 
C3521  1 
02366  0 
02366  0 
77650  1 
56455  0 


CALCULATE  OBLATENESS  TEPMo 


-(MU/R  KUNITGOBL  )(T  - TIGl 


34C  = /RN/  (2>  FROM  UNIT  OPERATION* 


OUTPUT  FROM  INITVEL  VG  = VR  - VN 
VG  * VR  + GOEL  - VN 


3*141592653  B-2 


gap; 

L 

P1121 

R1122 

R 1123 

R1124 

R1126 

R 1128 

R112« 

R 1130 

R1131 

R1132 

R1133 

R1134 

R1135 

1136 

1137 

1138 

113Q 

1140 

1141 

IU2 

1143 

1144 

1145 

1146 

1147 

1148 

1144 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 
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P40-P47  USER'S  PAGE  NOo  3C  £7  S3 

TRIMG1M8  (FORMERLY  SAOot) 

MCU  0 24  FEE  67  PETER  ADLER 

FUNCTION: 

TRIMS  DPS  ENGINE  TO  MINIMIZE  THRUST/CG  OFFSET®  ENGINE  IS  6IMBALLE0  TO  FULL  * PITCF  AND  ♦ ROLL  (TO  LOCK! 
FOR  REFERENCE  AND  IS  THEN  BROUGHT  BACK  TO  TRIM  POSITION  BY  RUNNING  FOR  THE  PROPER  TIMES  (TO  RE 
SPECIFIED  BY  GAEC)  I^  - FITCH  AND  - ROLL.-. 

CALLING  SECUENCE; 

VIA  WAITLIST  FRCM  R03 

INPUT: 

PITTIME  TIME  TO  RUN  FROM  FULL  + PITCH  TO  TRIM  (CSI 

ROLLTIME  TINE  TO  RUN  FRCM  FULL  + RCLL  TO  TRIM  ( CS » 

SUBROUT INES  USED: 

WAITLIST,  FTXOELAY,  VARCELAY,  flagup,  FLAGOOWN,  NOVAC 


REF  1 

REF  3 LAST  316  E6,140l 


COUNT#  t$/S40o6 

EBANK=  ROLLTIME  OCTAL  MASKS:  PPIC5=05rp0  EeANK5=02400 


REF  81 
REF  1 


LAST 


757 


27,3217  0 5516  Q TRIMGIMB  TC  DOWNFLAG 

27,3220  C0137  I AORES  GMBORVSW 


GMBORVSW  FLAG  IS  SET  WHEN  EITHER  ROLL  OR 
PITCH  IS  COMPLETED,  WHICHEVER  IS  FIRST^ 


■ REF  8 

REF  44 
REF  3 

REF  45 
REF  14 


REF  4 

REF  46 
REF  9 

REF  47 
REF  2 
REF  20 
REF  1 


LAST  752 

LAST  611 
LAST  600 

LAST  776 
LAST  754 

LAST  776 

LAST  776 
LAST  776 

LAST  776 
LAST  316 
LAST  757 


27.3222 

27.3223 
?7  ,3224 

27.3225 

27.3226 
27  ,3227 

27.3230 

27.3231 

27.3232 

27.3233 
27  ,3234 

27.3235 

27.3236 
27  ,3237 

27.3240 

27 .3241 


C2  Ci2  1 

3 5014  1 
C 0006  1 
05  C12  1 
0 5221  0 

13560  C 

4 5C14  0 
C 0006  1 
C3  C12  1 
3 5017  1 
C 0006  1 

05  012  1 
31*402  0 
C 5173  1 

03260  0 


CS 

EXTEND 

WANO 

CAF 

EXTEND 

WOR 

TC 

DEC 

CS 

EXTEND 

WANO 

CAF 

EXTEND 

WOR 

CAE 

TC 

ADRES 


PRI05 

CHAM2  - 
eBANK5 

CHAN12  - 
F IXDELAY 
6000 
EBANKS 

CHAM2  - 
PR  105 

CHAN12  — 
PITTIME 
TWIDDLE 
PITCHCFF 


TURN  OFF  - PITCH,  - RCLL,  IF  ON® 
TURN  ON  + PITCH,  + RCLLo 


WAIT  ONE  MINUTE  TO  MAKE  SURE  ENGINE  IS 
AT  FULL  + PITCH  AND  FULL  + ROLL 
TURN  OFF  + PITCH,  ♦ POLL® 


TURN  ON  - PITCH,  - RCLL® 

GET  TIMF  TO  SHUT  OFF  - PITCH  AND  SET  UP 
TWIDDLE-TASK  TO  TURN  IT  OFF  THEN 


REF 

REF 

REF 


LAST 

LAST 

LAST 


776 

610 

708 


REF  48  LAST  776 
REF  3 LAST  709 
REF  1 


REF  2 LAST  776 

REF  5 LAST  756 

REF  20  LAST  738 

REF  3 LAST  598 


27,3243 
27  ,3244 

27.3245 

27 .3246 

27.3247 

27.3250 

27.3251 

27.3252 

27. 3253 

27.3254 
£7,1471 


31*  401 

0 5224 
4 4740 
C 0006 
03  012 
3 0102 
7 4742 
C 0006 

1 3264 
3 4737 
r 5072 


0 

0 

1 

1 

1 

1 

0 

1 

0 

c 

1 


TC 

CS 

EXTEND 

WAND 

ROLLOVER  CA 

MASK 

EXTEND 

BZF 

CAF 


ROLLT IME 
VARDELAY 
PIT12 

rHAN12 

FLAGWPD6 

GMBDRBIT 

PITCHOFF 

PRICIO 

NOVAC 

WHCCARES 


GET  TIME  TO  SHUT  OFF  - POLL  AND  GO  AWAY 
UNTIL  THEN 


SHUT  OFF  RCLL 

IF  HERE  INLINE  (ROLL  DONE)  IS  PITCH  DONE 
IF  HERE  FROM  PITCHCFF,  IS  ROLL  DONE? 

NOo  SET  FLAG,  ROIL  OR  PITCH  DONE® 

RETURN  TO  R03 


GAP  : 

L 

116Q 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 
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REF  53  LAST  756 
REF  30  LAST  611 

REF  49  LAST  776 
REF  1 

REF  51  LAST  757 
REF  2 LAST  776 
REF  54  LAST  777 


27.3255  02325  1 

27.3256  02067  1 

27.3257  0 5261  1 

27  ,3260  4 4742  0 P 

27.3261  C 0CC6  1 

27.3262  03  012  1 

27.3263  1 3247  1 

27. 3264  0 5504  0 

27.3265  00137  1 

27.3266  0 5261  1 


2CA0R  TRIMOONE 

TC  TASKOVER 

CHOFF  CS  6IT10 

EXTEND 

UAND  CHAN12>— ' 
TCF  ROLLOVER 
TC  UPFLAG 

ACRES  GMBDRVSW 
TC  TASKCVER 


SHUT  OFF  PITCH 

SEE  IF  ROLL  HAS  FINISHED  ALSOl- 

ROLL  CONE;  OP  PITCH  DONE;  BUT  NOT  BOTHo 
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L PA0-PA7  USER’S  PAGE  N0«  32  E6  S3 

P1178  SUBROUTINE  NAME:  SA1,1  MODo  NOo  0 DATE:  FEBRUARY  28,  J 967 

R1179  MODo  NCo  1 DATE:  JANUARY  23,  1968:  BY  PETER  ADLER  (MIT/ILI 

R1181  AUTHOR:  JONATHAN  0*  AOOELSTOK  (ADAMS  ASSOCIATES! 

R1182  SAlol  PERFORMS  THE  COORDINATE  SYSTEM  T RANFORM A T I ON  FROM  THE  REFERENCE  FRAME  TO  THE  BODY  OF  THE  LMr 
RllBA  SPECIFICALLY,  IT  IS  LSED  TO  TRANSFORM  A VELOCITY  (SCALED  AT  2(*7I  METF RS /CE NTI SECOND)  FROM  REFERENCE  TO  LM  AXIS 

R1186  CCORDINATESo  FIRST  THE  V.ECTOR  IS  TRANSFORMED  TO  THE  STABLE  MEMBER  CQCRCINATES  BY  THE  MATRIX  REFSMMATo  THIS 

Rll$8  LEAVES  THE  VECTOR  IN  MPAC,  SCAL6C  AT  2(+8»  M ET ER S/CENT  I SEC ONO.  THEN 

ftll89  THE  SUBROUTINE  CDUTRIG  IS  CALLED  TC  SET  UP  THE  OCUBLE-PR EC  IS  I ON  CCU  VECTOR  ALONG  WITH  ITS  SINES  AND  COSINESo 

R1191  THE  VECTOR  IS  THEN  TRANSFORMED  FROM  STABLE  MEMBER  COORDINATES  TO  SPACECRAFT  (OR  LM)  COCPDINATES  BY  THE 

R1193  SLBRCLTINE  *SMNB*<,  FINALLY!  THE  VECTOR  IS  RESCALED  TO  2(+7)  METER  S/C  EN  T I SECOND  , AND  CCNTRCL  IS  RETURNED  TO  THE 

R1195  CALLER  WITH  C(MPAC)  = VELOCITYdMIo 


R1196  CALLING  SECUENCE: 


A1197 
A1198 
A1199 
A 1200 


VLCAD 


STCRE 


VELOCITY(REF) 
SAlo  1 

VELCCITY(LM) 


SCALED  AT  2 ( +7 )M/CS 
SCALED  AT  2( +7 )M/CS 


IN  REFERENCE  COOROSo 
IN  LM  BODY  AXIS  SYSo 


R1201  SLBROLTINES  CALLED: 


R1202 

R1203 

R1209 


U CDLTRIG, 

WHICH  CALLS  CClLOGICo 
2,  YSMNB* 


R1205  NORMAL  RETURN:  L +3  (SEE  CALLING  SEQUENCE,  ABCVE* ) 
R1206  ALARM/AEORT  MODES:  NONE* 

R1207  RESTART  PROTECTION:  NCNEo 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  FRCCPAM  LUMINARY  BY  NASA  2021112-091 

L P40-PA7 


17:  53  DECo  1‘5,196'5  FLY 

USER'S  PAGE  NC«  33 


PAGE  779 
E6  S3 


P12O0  INPLl: 


REFSMMAT, 

CDUX,  CCUY,  COUZo 
VELOCITY  (REFI  IN 


MPAC# 


R1212  OUTPUT: 


R1213 

R121A 


!•  COUSPCT:  DOUBLE  PRECISION  CDU  VECTORt  ORDERED  Y,Z,Xo 
2o  SINCDU:  HALF  SINES  CF  CDUSPCT  CCMPCNENTSo 


R1215 

R12ie 


3.  COSCCU:  HALF  COSINES  OF  COUSPOT  CCHPONENTSe 

A*  MPAC:  VELCCITYILM  (SCALEC  AT  2(+7)  M ETER  S/CEN  T I SECOND  > 


R1217  DEBRIS:  NONEo 


R1218  CFECKCUT  STATUS:  CCCECo 


1219 

1220 
1221 
1222 
1223 

A122A 


REF  1 

REF  2A  LAST  766 
REF  2 LAST  522 


27,3267 

27.3270 

27.3271 

27.3272 


76521  0 
ni73A  0 
7765C  1 
A7650  1 


SAU  I 


CCUNT*  f$/SAlal 
MXV  VSLl 

REFSMMAT 

GOTO 

COL*SMNB 


CONVERT  VECTOR  IN  MPAC  FROM  REF  AT  2(*7> 
TO  SM  AND  RESCALE  DUE  TC  HALFUNIT  MATRIX 
CONVERT  TO  BODY  AT  2I47)  USING  PRESENT 
COU  ANGLES#  CCU^SMNB  WILL  RETURN 
VIA  RVO  TO  THE  CALLER  OF  SAUX 


gap: 
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L 


THE  LUNAR  LANDING 


USER’S  PAGE  NCo 


EO  S3 


OOCl 

0002  REF  3 LAST  605 

0003 


32,3000 

32,20C0 

32,3000 


BANK  32 
SETLCC  F20PS*32 
SANK 


OOOA  REF 


£7,1621 


EBANK=  E2CPS 


R0005 

R0006 

R0007 


♦ 4 #«***«#****#  ###***##  ####*#  *!<«*#####*#** 

P63;  THE  LUNAR  LANDING,  BRAKING  PHASE 


0008  REF 


COUNT*  it/P£3 


0109  REF  51  LAST  771 
0010 


32,30C0  C 5353  1 P63LM  TC  PHASCHNG 

22,3001  0A02A  C OCT  0A02A 


0011  REF  212  LAST  754  32,3002 

0012  REF  e LAST  753  32,3003 


0 4616  1 
11233  0 


TC  BANKCALL  DO  IMU  STATUS  CHECK  ROUTINE  Rn2 

CAOR  R026CTH 


0013  REF  1 

0014  REF  26  LAST  753 


32.3004  3 3255  0 

32.3005  55'A55  0 


CAF  P63ADRES  INITIALIZE  WHICH  FOP  SURNPABY 

TS  WHICH 


00141  REF  1 

00142  REF  4 

00143  REF  13 

00144  REF  30 


32,3006  3 2000 

LAST  753  32,3007  55'250 

LAST  753  32,3010  3 4751 

LAST  757  32,3011  55'515 


CAF  OPSTHRSH  INITIALIZE  CVMON 

TS  DVTHRUSH 

CAF  FOUR 

TS  OVCNTR 


REF  84  LAST 


CS  ONE  INITIALIZE  WCHPHASE  AND  FLPASSO 

TS  WCHPHASE 


REF  140  LAST 
REF  3 LAST 


769  32 

73  3 32 


1 

0 


ZERO 

FLPASSO 


0018  REF  57  LAST  611 

0019 

0020  REF  50  LAST  777 


32,3016  A A736  C 
32  ,3017  0 0006  1 

32,3020  C3  012  1 


CS  B1T14 

EXTEND 

WAND  CHAM2—  REMOVE  TRACK-ENABLE  DISCRETE-, 


0023  REF  115 

0024 

0025  KEF  5 

0026  REF  1 

0030 

0031  REF  1 

0032  REF  4 

0033 

0034  REF  3 

0035  REF  5 


LAST 

LAST 

LAST 

LAST 

LAST 


771 

770 

728 

506 

571 


32.3021  0 6042  1 

32.3022  43014  0 

22.3023  C2663  0 

32.3024  03271  0 

32.3025  43C14  0 

32.3026  C5660  1 

32  ,3027  03067  0 

32.3030  43014  0 

32.3031  00266  0 

32  ,3032  00270  I 


FLAGORGY  TC 

CLEAR 


CLEAR 


CLEAR 


1 NTPRET 

CLEAR 

NCTHRCTL 

REDFLAG 

SET 

LR6YPASS 

MUNFLAG 

CLEAR 

P25FLAG 

KNDVZFLG 


DIONYSIAN  FLAG  WAVING 


TERMINATE  P25  IF  IT  IS 
TERMINATE  P20  IF  IT  IS 


RUNNINGa 

RUNNING 


A0036 


0037 


32,3033  77201 


IGNALG  SETPD  VLOAO 


FIRST  SET  UP  INPUTS  FOR 


RP-TG-R :- 
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0036 

0039  REF  6 

0040 

0041  REF  3 

0042  REF  2 

0043  REF  1 

0044 

0045  REF  25 

0046  REF  3 

0047  REF  1 

0048 

0049  REF  4 

0050  REF  1 

0051  REF  43 

0052  REF  8 

0053 

00531  REF  1 

00532 

0057  REF  7 

0058  REF  2 

0059  REF  4 

0060  REF  3 

0061  REF  7 

0062  REF  4 

00621  REF  1 

00622  REF  4 

00623  REF  12 

00624  REF  4 

0063  REF  7 

0065  REF  3 


LAST 

LAST 

LAST 


LAST 

LAST 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


32,3034 
719  32,3035 

32,3036 
202  32,3037 

151  32  ,3040 

32.3041 

32.3042 
779  32,3043 

202  32,3044 

32 .3045 

32.3046 
781  32,3047 

32  ,3050 
761  32,3051 

761  32,3052 

32.3053 

32.3054 

32.3055 
764  32,3056 

123  32,3057 

586  32,3060 

781  32,3061 

707  32,3062 

781  32  ,3063 

32,3064 
317  32,3065 

761  32,3066 

766  32,3067 

771  32  ,3070 

202  32,3C71 


41525  0 
02401  0 
37625  I 
55716  1 
64312  0 
01734  0 
37635  0 
71343  0 
45345  1 
C2401  0 
25262  0 
34041  0 
27056  I 
77331  0 
03647  1 
00050  1 
06522  1 
26575  1 
06520  0 
26603  0 
06516  G 
16611  0 
25260  1 
27665  1 
06524  1 
17253  0 
06524  1 
03643  0 


0 AT  OC  LANCING  SITE  IN  MOON  FIXED  FRAME 

RLS  AT  60  ESTIMATED  TIME  CF  LANDING 

POOL  PUSH  MPAC  NON-ZERO  TO  INDICATE  LUNAR  CASE 

TLANO 

STCALL  TPIP  ALSO  SET  TPIP  FOR  FIRST  GUIDANCE  PASS 

RP-TC-R 
VSL4  MXV 

PEFSMMAT 
STCALL  LAND 

GUIDINIT  GUIOINIT  INITIALIZES  WM  AND  /LAND/ 

OLCAC  OSU 

TLANO 

GUIDOURN 

STCALL  TOECl  INTEGRATE  STATE  FORWARD  TO  THAT  TIME 

LEMPREC 
SSP  VLOAD 

MGNLCCF 
400 
UNITX 
STOVL  CG 

UNITY 

STCVL  CG  +6 

UNITZ 

STCDL  CG  +14 

99999CCN 

STOVL  OELTAH  INITIALIZE 

ZEROVECS 

STCDL  UNFC/2  INITIALIZE 

HI6ZERnS 
STCRE  TTF/8 


DELTAH  FCR  V16N68  DISPLAY 
TRIM  VELCCITY  CORRECTION  TERM 


0066 

0067  REF 

0068  REF 

0073  REF 

0074 

0075  REF 

0076  REF 

0077  REF 

0078  REF 

0079  REF 


14  LAST  728 

4 LAST  728 
IP  LAST  728 

26  LAST  781 

5 LAST  603 
2 LAST  728 
4 LAST  680 
1 


32.3072  77745  1 

32.3073  00015  0 

22.3074  27561  C 

32  ,3075  0O017  1 

32.3076  64312  0 

32.3077  C1734  0 

32.3100  37521  0 

32.3101  67067  I 

32.3102  35236  0 

32  ,3  103  62415  0 


IGNALOOP  DLOAD 

TAT 

STCVL  PIPTIMEl 
PATTI 
VSL4  MXV 

REFSMMAT 
STCALL  R 

MUNGRAV 
STCALL  GOT/2 

7GUI0SUB 


WHICH  DELIVERS  N PASSES  OF  GUIDANCE 


R0080  CCUMCALC  IS  PROGRAMMED  AS  FOLLOWS:- 

2 

(RIGNZ  - RGU  1/16  ♦ 16(RGU  )KlGNY/8 


R0081 

R0083 

R0085 

ft0086 

Rooee 

R0089 


(RGU  - RIGNX  IKIGNX/B4  + (ABVAL(VGU>  - V IGN J K IGNV/B4 


DDUM  = 


1 


10 

2 (VGL  - 16  VGL  KIGNX/641 
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Tf-ERE  IS  NO  DAMPING  FACTORo  THE  CONSTANTS  KIGNX/BA,  KIGNY/B8  AND  KIGNV/BA  ARE  ALL  NEGATIVE  IN  SIGN, 


0097  REF  2 

00971  REF  116 

00972 

0090  REF  3 

0099  REF  2 

0100 

0101  REF  A 

0102 

0103  REF  2 

OlOA  REF  3 

0105 

C106  REF  A 

0107 

0108  REF  2 

0109 

0110  REF  5 

0111 

0112  REF  2 

0113  REF  3 

OllA 

0115  REF  5 

0116 

0117  REF  2 

0118  REF  2 

01  19 

0120 

0121 

0122 


LAST  202 
LAST  122 


LAST  122 
LAST  202 

LAST  782 

LAST  122 

LAST  762 

LAST  122 
LAST  782 

LAST  782 


32,310A 

32.3105 

32.3106 

32.3107 

32.3110 

32.3111 
32  ,3112 
32,3113 
32,311A 

32.3115 

32.3116 
32  ,3117 

32.3120 

32.3121 
32  ,3122 
32,3123 
32,312A 

32.3125 

32.3126 

32.3127 
32,313C 
32,3131 
32  ,3132 
32,3123 
32,313A 

22.3135 

32.3136 
32  ,3137 


55'6A6  0 
C 60A2  1 
57.3A5  1 
03627  1 
C25C1  1 
AA232  1 
03633  1 
A5325  I 
02A77  1 
C2633  0 
65222  0 
02631  1 
57316  1 
02503  0 
65232  1 
02627  0 
57225  0 
02A75  0 
02501  1 
51515  1 
C3627  I 
57225  0 
02A73  0 
C25C5  C 
A3215  0 
56215  1 
77661  0 
21613  0 


CDUMCALC  TS 


SLAR 

PDDL 


SRAR 

DSO 

SLAR 

DSU 

POVL 

OSU 

DAD 

CAC 

SRR 


MGNLOOP 

INTPRET 

OMPR 

VGU 

KIGNX/BA 
8DSU 
VGU  +A 
OSU 
RIGNZ 
PGU  +4 
PDDL 
RGU  +2 
DMPR 

KIGNY/B8 

PDDL 

RGU 

DMPR 

PIGNX 

KIGNX/BA 

ABVAL 

VGU 

OMPR 

VIGN 

KIGN'V/Bi 

DAD 

oov 

100 


FORM  OENOMIN'ATCR  FIRST 


0123 

012A  PEE  5 

0125  REF  AA 

0126 

0127  REF  1 

0128 

0129  REF  1 

0130  REF  26 

0131 

0132  REF  lA 

0133  REF  13 

013A 

0136  REF  6 

0137  REF  12 

0138  REF  11 


22 

LAST  781  32 

LAST  781  32 

32, 
32 
32 
22 

LAST  712  32 

32 

LAST  712  32 

LAST  713  32 

32, 

LAST  782  22, 

LAST  712  32 

LAST  781  32, 


r31A0  A3206  1 
,31Al  03561  0 
.31A2  lAOAl  1 
,31A3  A52A6  0 
r3lAA  2526A  0 
,31A5  A50A0  1 
,31A6  65165  0 
t31A7  27A10  1 
t3150  A301A  0 
,3151  01A73  C 
,3152  00063  1 
.3153  777A5  1 
,3i5A  03561  0 
,3155  25517  0 
3156  00017  1 


PUSH  DAC 

PIPTIMFl 

STOOL  TOECl  STORE  NEW  GUESS  FOR  NEXT  INTEGRATION 

ABS  DSU 

DOUMCRI T 
BMN  CALL 

ODUMGCCC 
INTSTALL 
SET  SET 

INTYPFLG 

NOONFLAG 

DLCAD 

PIPTIMFl 

STOVL  TET  HOPEFULLY  7GUI0SUB  DID  NOT 

RATTl  CLOBBER  RATTl  ANC  VATTl 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021312-091 

L THE  LUNAR  LANDING 


0139 

0140 

0141 

0142 

0143 

0144 


REF  12  LAST  712 
REF  13  LAST  728 
REF  10  LAST  712 
REF  7 LAST  712 

REF  1 


32,3157 
32,3160 
32  ,3161 

32.3162 

32.3163 
32  ,3164 


25535  0 
0CO25  0 
35543  0 
271C6  0 
77650  1 
65072  I 


STCVL  RCV 

VATTl 

STCALL  VCV 

INTEGRVS 

GOTO 

IGNALOOP 


0145 

0146  REF 

0147 

0148 

C149  PEF 

0150  REF 

0151  REF 

0152 

0153  REF 

0154 

0155  REF 

0156  REF 
C157  REF 
0158  REF 
0162 

A0163 


45 

36 

3 

6 

4 

3 

5 

4 


LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


733 


782 

766 

603 

781 

781 

317 

781 

123 


32.3165  54335  0 

32.3166  03423  I 

32.3167  20617  0 

32,3170  77621  I 

32  ,3171  00041  1 

32.3172  27442  0 

32.3173  03527  1 

32.3174  53435  0 

32.3175  C3521  1 

32.3176  72441  0 

32.3177  03635  1 

32,3200  26617  0 

32  ,3201  03253  0 

32.3202  02621  0 

32.3203  77776  1 


DDUMGCOO  SLCAD 


80SU 


SR 

ZOCMTIME 

140 


TDECl 

STCVL  TIG 
V 

VXV  UNIT 
R 

DOT  SLl 
LAND 

R601NIT  STCVL  OUTCFPLN 
UNFC/2 

STCRE  P60VSAVE 
EXIT 


0164 

0165 


REF  52  LAST  780 


22.3204  C 5353 

32.3205  04024 


1 IGNALGRT  TC 
0 OCT 


PHASCHNG 

04024 


0166 

0167 

016B 

0169 


REF  1 
REF  213 
REF  ? 
REF  126 


LAST  780 
LAST  728 
LAST  771 


32, 3207 

32.3210 

32.3211 


4 4362  0 
C 4616  1 
74670  0 
1 5155  1 


ASTNCLCK  CS 
TC 

CAOR 

TCF 


ASTNCEX 
BANKCALL 
STCL0K2 
ENDCF JCB 


0170  REF  117 

0171 

0172  REF  2 

0173  REF  1 

0174  REF  1 

0175 

01751  REF  5 

01752  REF  6 

01753  REF  8 

01754  REF  23 
01.755 


LAST  782 
LAST  125 


LAST  783 
LAST  764 
LAST  781 
LAST  764 


32.3213 

22.3214 
32  ,3215 

32.3216 

32.3217 
32  ,3220 

32. 3221 

32.3222 

32.3223 

32.3224 


0 6042  I 
47131  1 
02747  1 
65217  0 
31127  1 
53575  0 
02621  0 
27773  1 
06522  1 
03765  0 
77776  1 


ASTNRET  TC  INTPRET 

SSP  RTB 

QMAJ 

FCAOP  P63SPnT2 
R51P63 

P63SPOT2  VLOAD  UNIT 

R60VSAVE 
STCVL  POINTVSM 
UNITX 

STCRE  SCAXIS 
EXIT 


0 

0 


CAF  EBANK? 

TS  EBANK 


0176 

0177  REF 

0178  REF 


32,3227 

38  LAST  757  32  ,3230 

2 LAST  749  32,3231 


C 0004  0 
C 4674  0 
40143  0 


INUNT 

TC  IBNKCALL 

CAOR  PFLITEOe 


17:53  DECo  19,1969  FLY 
USER'S  PAGE  NCe 


ol53  PAGE  703 
4 E7  S3 


COMPUTE  DISTANCE  LANDING  SITE  WILL  BE 
OUT  CF  LM*S  CRBITAL  PLANE  AT  IGNITION: 
SIGN  IS  + IF  LANDING  SITE  IS  TO  THE 
RIGHT,  NORTH;  - IF  TO  THE  LEFT,  SOUTHo 


INITIALIZATION  FOR  CALCMANU 
STORE  UNFC/2  TEMPORARILY  IN  R60SAVE 

PREVENT  REPEATING  IGNALG 


RETURN  IN  NEW  JOB  AND  IN  EBANK  FIVE 


GO  PICK  UP  DISPLAY  AT  ENO  OF  R51: 
"PROCEED"  WILL  DC  A FINE  ALIGNMENT 
" ENTER  " WILL  RETURN  TC  P63SP0T2 

INITIALIZE  KALCMANU  FOR  BURN  ATTITUDE 


ASSEMBLE  REVISION  131  AGC  PRCGRA^  LUMINARY 
THE  LUNAR  LANDING 

32»3232  C 0003  1 


NASA  2021112-091 


REF  53  LAST  783 


018A 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 


REF 

REF 

REF 

REF 

REF 


LAST 

LAST 


LAST 

LAST 

LAST 


683 

609 


78A 

743 

754 


32  ,3237 
32,32^0 
32,32'^1 
32,32A2 
32,32A3 

32.3244 

32.3245 

32.3246 

32.3247 
32,3250 


3 4746  0 P63SP0T3  CA  BIT6 

C OC06  1 EXTEND 

C2  033  0 RAND  CHAN33 

C 0006  1 EXTEND 

1 3251  0 BZF  P63SPCT4 


3 3256  0 
C 4616  1 
20624  0 
1 6001  1 
1 3237  0 


CADR 

TCF 

TCF 


COOESOO 

8ANKCALL 

GOPERFl 

GCTOPOOH 

P63SPCT3 


R019R  

R0199  CONSTANTS  FOR  P63LM  AND  IGNALG 

0200  REF  2 LAST  743  32,3255  C2100  1 P63ADReS  GENACR  P63TABLE 


0202  REF  2 LAST  462 


4362 


ASTNOEX 


MDl 


32,3256  00500  1 C0CE500  OCT 


0204 

0204 

0205 
0205 


32,326)  00C04  0 GUIDDURN  2CEC  ♦ 66440 

32,3262  C1610  1 

32  ,3263  00000  1 OCUMCRIT  2CEC  +8  B-28 

22,3264  CCCIO  0 


17:53  CeCo  19,1969  FLY 
USER' S PAGE  NCo 


153  PAGE  784 
E7  S3 


PREVENT  R ECALL ING  R60 

IS  THE  LR  ANTENNA  IN  POSITION  1 YET 

BRANCH  IF  ANTENNA  ALREADY  IN  POSITION  I 

ASTRONAUT:  PLEASE  CRANK  THE 

SILLY  THING  AROUND 

TERMINATE 

PROCEED  SEE  IF  HE'S  LYING 

ENTER  INITIALIZE  LANDING  RADAR 

OFF  TO  SEE  THE  WIZARD*** 


OCT  25;  INDEX  FOP  CLOKTASK 


GUIDDURN  +6* 64400314E+  2 


CRITERION  FOR  IGNALG  CONVERGENCE 


GAP;  ASSEMBLE  REVISION  131 
L THE  LUNAR  LANDING 

RC206 


OF  AGC  PRCGRAN  LUMINARY  BY  NASA  2021112-091  17:53  DEC®  19,1969  FLY 

USER*  S PAGE  NCo 


ol53  PAGE  785 
6 E7  S3 


GAP: 


ASSEMBLE  REV  IS  ION  13 


OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C91 


L THE  LUNAR  LANDING 


PO207 

R0206 

R0209 


P68:  LANDING  CONFIRMATION 


0210 

0211  REF 

0212 


3^,3271 
3^  ,2000 
2A,3271 


BANK  3A 
SETLOC  F20PS*3A 
BANK 


0213  REF 


COUNT*  $$/P6567 


0214  REF  54  LAST  784 

0215 


34.3271  0 5353  1 LANCJUNK  TC  PHASCHNG 

34.3272  04C24  0 OCT  04024 


02151 

0216  REF  217  LAST  784 

0217  REF  6 LAST  751 


34.3273  C 0004  0 

34.3274  0 4616  1 

34.3275  40154  0 


INFINT 

TC  BANKCALL 

CADR  ZATTEROR 


0221  REF  lie 

022J  1 

02212  REF  4 

0222 

0223  REF  14 

0224  REF  1 

0225 

0226  REF  3 

0230  REF  11 

0231  REF  3 

0232  REF  11 

0273 

0234  REF  3 

0235  REF  2 

0236 

0237 

0236  REF  12 

0239 

0240  REF  12 

0 241 

0242  REF  I 

0243  REF  7 

0244 

0245  REF  1 

0246  REF  218 

0247  REF  21 

0240  REF  27 

0249 

0250 


LAST  783 
LAST  735 
LAST  658 


LAST  769 
LAST  775 
LAST  659 
LAST  775 

LAST  659 
LAST  659 


LAST  786 
LAST  786 


LAST  781 


LAST  786 
LAST  74  2 
LAST  784 


34 .3276 

34.3277 

34.3300 

34.3301 

34.3302 
34  ,3303 

34.3304 

34.3305 

34.3306 

24.3307 

34.3310 

34.3311 

24.3312 

34.3313 

34.3314 

34.3315 

34.3316 

34.3317 

34.3320 

24.3321 

24.3322 

34.3323 

34.3324 

34.3325 

34.3326 

34. 3327 

34.3330 

34.3331 

24.3332 


0 6042  1 
77614  1 
06460  0 
43014  0 
04067  1 
04666  0 
77214  0 
05062  0 
01220  0 
16032  1 
01234  0 
45014  0 
C1463  1 
26347  0 
77201  1 
07001  0 
01220  0 
65352  0 
01234  0 
45006  0 
517C0  1 
02023  1 
77776  I 
3 3342  1 

0 4616  1 
20477  1 

1 6001  1 
1 3333  0 
1 3325  I 


TC  INTPRET 

SET 

PULSEFLG 
SET  CLEAR 

SURFFLAG 
LETABDRT 
SET  VLCAO 

AP  SFLAG 
RN 

STCOL  ALPHAV 
PIPTIME 
SET  CALL 

LUNAFLAG 
LAT-LONG 
SETPO  VLCAD 
0 

RN 

VSL2  POOL 

PIPTl ME 
PUSH  CALL 

R-TC-RP 
STORE  RLS 
EXIT 

CAF  V06N43* 
TC  BANKCALL 

CADR  GOFLASH 
TC-F  GOTOPOOH 
TCF  +2 
TCF  -5 


0251  REF  119  LAST  786 

0252 


34.3333  0 6042  1 

34.3334  77775  1 


TC  INTPRET 

VLCAD 


17:53  DEC.  19,1969 


153  PAGF  786 


FLY 


USER 'S  PAGE  NOo 


7 


E7  S3 


ZERO  ATT  ITUDF  ERROR 


TO  INTERPRETIVE  AS  TIME  IS  NOT  CRITICAL 
PREVENT  RCS  JET  FIRINGS  IF  MODE  CONT  IS 
IN  ATT  HOLD 


COMPUTE  RLS  ANC  STORE  IT  AWAY 


ASTRONAUT : 


NOW  LOOK  WHERE  YOU  ENDED  UP 


TERMINATE 

PROCEED 

RECYCLE 


INITIALIZE  GSAV  AND 


USING  REFMF I 


gap:  assemble  REVISIOA  131  OF  AGE  PROGRAM  LUMINARY  BY  NASA  2021112-031 

L THE  LUNAR  LANDING 


0253 

025^ 

0255 

0256 


REF 

REF 

REF 


34  ,3335 
34,3336 
34,33-37 
34  ,3340 


06522  1 
36231  1 
33471  0 
77776  1 


0257  REF  28  LAST  786  34,3341  I 6C01  1 


UN  ITX 

STCALL  GSAV 
PEFKF 

ex  IT 

TCF  GCTCPC 


34,3342  01453  1 V06N43#  VN 


17:53  DECo  19,1969  FLY  ,153  PAGE  707 

USER’S  PAGE  NCo  8 E7  S3 

YNBSAV,  ZN6SAV  AND  ATTFLAG  FOR  P57 

ASTRONAUT:  PLEASE  SELECT  P57 


gap:  assemble  revision  13X  OF  AGC  PRCGRAf-  LUMINARY  BY  NASA  2021112-091 
L THRCTTLE  CCMRCL  RCUTINES 
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cool 

0002 

0003 

OOOA 

0005 

R0006 


REF 

REF 

REF 


31  ,21A4 

2 LAST  40  21,2000 

31,2144 

2 LAST  151  E7,1612 

2 LAST  40  TO  40: 


BANK  31 
SETLCC  FTHRCT 
BANK 

EeANK=  PIF 


R0008  HERE  FC,  CESIREO  THRUST,  AND  FP,  PRESENT  THRUST,  UNWEIGHTED,  ARE  CCMPUTEOo 


0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 


REF  3 LAST 
REF  1 


REF  2 LAST 
REF  1 
REF  ■ 1 


REF  2 LAST 

REF  2 LAST 

REF  3 LAST 

REF  2 LAST 


213  31,2144 

31,2iA5 
31,2146 
31  ,2147 
151  21,2150 

31.2151 

21.2152 

31.2153 
142  31  ,2154 

788  31,2155 

202  31,2156 

142  31,2157 


3 1245  0 
C 0006  1 
7 2256  1 
0 0006  1 
22'607  1 
0 2337  1 
53*470  1 
0 0006  1 
3 1464  0 
0 2337  1 
55'615  0 
53*466  0 


THROTTLE  CA 

EXTEND 

MP 

+3  EXTEND 
QXCH 

AFCUMP  TC 

OXCH 

EXTEND 

DCA 

TC 

TS 

CXCH 


ABDELV 

/AF/CNST 

RTNHCLD 

MASSMULT 

FP 

/AFC/ 

MASSMULT 

FC 

FCODO 


COMPUTE  PRESENT  ACCELERATION  IN  UNITS  OF 
2(-4)  M/CS/CS,  SAVING  SERVICER  TROUBLE 


FP  = PRESENT  THRUST 


FC  = THRUST  DESIRED  PY  GUIDANCE 
FCODO  = WHAT  IT  IS  GOING  TO  GET 


R0021  I 


CCMPUTE  DESIRED  THRUST  FOR  DISPLAY  AS  A PERCENTAGE  OF  10,500  PCUNDS 


002111  REF 
002112  REF 

00212  REF 

00213  REF 

00214 

00215  REF 

00216 

00217  REF 

00218  REF 


1 

198  LAST 
4 LAST 
1 

199  LAST 

2 LAST 
2 LAST 


758 

788 


788 

167 

319 


31  ,2160  3 2360  0 

31.2161  54  002  1 

31.2162  3 1615  1 

31  ,2163  7 2357  0 

21.2164  C 0006  1 

31.2165  1C  002  1 

31.2166  C 0006  1 

31.2167  7 5003  0 

31  ,2170  55*750  0 


CAF 

TS 

CA 

MASK 

EXTEND 

DV 

EXTEND 

MP 

TS 


^FMA  XNOM 

Q 

FC 

0CT17777 

0 

4SECS 

THRCISP 


MOVE  4FMAXNCM  TO  ERASABLE  FOR  DV  BELOW 


FOR  SAFETY 


FOR  DISPLAY  IN  N92 


R0022 


IF  IT  HAS  BEEN 


LESS  THAN 


3 SECONDS  SINCE  THE  LAST  THROTTLING, 


AUGMENT  FP  USING  THE  FWEIGHT  CALCULATED  THENo 


0024 

0025 

0026 

0027 

0028 

0029 

0030 


REF 

REF 

REF 


2 LAST 
8 LAST 
15  LAST 


REF  1 


REF  I 


151 

738 

566 


31.2171 

31.2172 

31.2173 

31.2174 

31.2175 

31.2176 
31  ,2177 


7 4733  0 
4 0000  0 
6 5002  0 
0 0006  1 
6 2203  1 


CS  TTHROT  THIS  CODING  ASSUMES  A FLATCUT  WITHIN 

AO  TIMEl  80  SECONDS  BEFORE  FIRST  THROTTLE  CALL 

MASK  POSMAX 
COM 

AD  3SECS 

EXTEND 

BZMF  WHERETO  BRANCH  IF  ( T I ME 1-TTHROT  *l\  > 3 SECONDS 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCCRAM  LUMINARY  BY  NASA  2021112-091 

L THROTTLE  CONTROL  ROUTINES 
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0031  31,2200  C 0006  1 

0032  REF  2 LAST  151  31,2201-  3 1611  0 

0033  REF  2 LAST  788  31,2202  21'A70  1 


EXTEND 

CCA  FWEIGHT 

CAS  FP 


R003A  , THIS  LCGIC  OETEPRINES  THE  TFROTTLING  IN  THE  REGION  10%  - 94*©  THE  MANUAL  THROTTLE,  NOMINALLY  SET  AT 

R0036  MINIMUM  BY  ASTRONAUT  CR  MISSION  CONTROL  PROGRAMS,  PROVIDES  THE  LOWER  BOUND©  A STOP  IN  THE  THROTTLE  HARDWARE 
R0038  PROVIDES  THE  UPPER. 


0039  REF  5 

0040  REF.  26 

0041  REF  2 

0042 

0043  REF  3 

0044  REF  1 

0045  REF  8 

0046  REF  27 

0047  REF  3 

0048  REF  l-^l 

0049  REF  2 

0050  REF  1 

0051  REF  2 

0052 

0053  REF  1 

0054  REF  2 

0055  REF  3 

0056 

0057  REF  1 

0058  REF  3 

0059  REF  1 


LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 


LAST 


776 

783 

122 


789 


783 

789 

788 

780 

151 

151 


789 

788 


789 


31.2204 
E5,1506 

31 .2205 

31.2206 

31.2207 

31.2210 

31. 2211 
E7 ,1612 

31.2212 

31.2213 

31 . 2214 

31. 2215 

31.2216 

31.2217 
31,2220 
31  ,2221 

31.2222 

31.2223 

31.2224 

31. 2225 


1 

0 


0 0006  1 
3 15C7  1 
52  131  0 
3 5016  0 
54  003  0 


4 4755  0 
55*606  1 
4 0131  0 
6 162C  1 
0 0006  1 
6 2231  0 
4 0130  1 
6 1465  1 
0 0006  1 
6 2226  0 
3 1467  0 
I 2236  0 


WHERETO 


CA  EBANK5 

TS  EBANK 

EBANK=  LOWCRIT 

EXTEND 

OCA  LOWCRIT 

OXCH  L*WCR*T 

CA  FBANKT 

TS  EBANK 

EBANK=  PIF 
CS  ZERO 

TS  PIFPSET 

CS  H#GHCR*T 

AO  FCCLD 

EXTEND 

BZMF  LCWFCOLO 

CS  L*WCR*T 

AO  FCODD 

EXTEND 

BZMF  FCOMPSET 

CA  FP 

TCF  FLATCUTl 


INITIALIZE  L*WCR#T  AND  H*GHCR*T  FROM 
PAD  LOADED  ERASABLES  IN  W-MATRIX 


INITIALIZE  PIFPSET 


BRANCH  IF  FCOLD  < OR  = HIGHCRIT 


BRANCH  IF  FC  < OR  = LOWCRIT 
SEE  NOTE  1 


0060  REF 

0061  REF 


1 31,2226  4 2002  0 

4 LAST  789  31,2227  6 1467  0 


FCOMPSET  CS 
AO 


FMAXODD 

FP 


0062  REF 


31,2230  1 2240 


TCF  FLAT0LT2 


SEE  NOTE  2 


0063 

0064 

0065 

0066 


REF  2 LAST  789 
REF  4 LAST  789 

REF  1 


31  ,2231  4 0131  0 

31.2232  t 1465  I 

31.2233  0 0006  1 

31  ,2234  6 2241  1 


LCWFCOLO  CS 
AD 


EXTEND 

BZMF 


H*GHCR*T 

FCCCC 

OOP  IF 


BRANCH  IF  FC  < OR  = HIGHCRIT 


0067  REF  1 

0068  REF  5 LAST  789 

0069  REF  1 

0070  REF  3 LAST  789 


31.2235  3 2C03 

31.2236  53*466 

31.2237  3 4737 

31,2240  55*606 


0 CA 

0 FLATOUTl  OXCH 

0 CA 

1 FLAT0UT2  TS 


FMAXPCS 

FCOOD 

FEXTRA 

PIFPSET 


NO:  THROTTl  E-UP 


A0071 

A0072 


NOTE  1 FC  IS  SET  EQUAL  TO  FP  SO  PIF  WILL  BE  ZFPC.  THIS  IS  OESIRABLE 
AS  THERE  IS  ACTUALLY  NC  THROTTLE  CHANGE© 


A007? 


NOTE  2 HERE,  SINCE  WE  ARE  ABOUT  TC  RETURN  TO  THE  THROTTLEABLE  REGION 


gap: 

L 

A0074 

A0075 

A0076 

A0077 

A0078 

OOfll 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0C91 

0092 

0093 

0094 

0095 

0096 

00^7 

80098 

ROlOO 

R0102 

R0103 

R0104 

R0105 

R0106 

R0108 

ROllO 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
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THROTTLE  CCNTRCL  ROUTINES 
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IBELOW  55?l  THE  CUANTITY  -(FMAXOCD  - FP)  IS  COMPUTED  AND  PUT 
INTO  PIFPSET  TO  COMPENSATE  FOR  THE  DIFFERENCE  BETWEEN  THE 
NUMBER  OF  EITS  CORRESPONDING  TO  FULL  THROTTLE  (FMAXOODI  AND  THE 
NUMBER  CORRESPONDING  TO  ACTUAL  THRUST  {FP»o  THUS  THE  TOTAL 
THROTTLE  COMMAND  PIF  = FC  - FP  -IFMAXODD  - FP»  = FC  - FMAXOODo 


REF  1 

REF  6 LAST  789 

REF  3 LAST  789 

REF  4 LAST  789 

REF  5 LAST  789 

REF  , 5 LAST  790 


31.2241  C 3677 

31.2242  C 0006 

31 .2243  3 1466  1 

31.2244  55'62-C  0 

31.2245  53*613  0 

31.2246  C 0006  1 

31.2247  4 1470  1 

31  ,2250  21  *613  0 


TC  FASTCHNq 

EXTEND 

OCA  FCQOO 

TS  FCCLO 

DXCH  PIF 

EXTEND 
DCS  FP 

DAS  PIF 


1 CCPIF 
1 


PIF  = FC  - FP,  NEVER  EQUALS  ♦O 


REF 

REF 

REF 

REF 

REF 


REF 

REF 

REF 


6 

4 

3 

4 
32 

10 

9 

3 


LAST 

LAST 

LAST 


202 

755 

755 


LAST  755 
LAST  788 
LAST  788 


31.2251 

31.2252 

31.2253 

31.2254 

31.2255 

31.2256 

31.2257 
31  ,2260 
31,2261 


6 1606  0 
55*  614  1 
54  C55  0 
3 4750  1 
0 0006  1 
rs  C14  1 
3 0025  0 
55*617  I 


CA 

AO 

TS 

TS 

CAF 

EXTEND 

WOR 

CA 

TS 


PIF 

PIFPSET 
PSEUCC55 
THRUST 
BI  T4 

CHAN14 

TIMEl 

TTHRCT 


ADO  IN  PIFPSET,  WITHOUT  CHANGING  PIF 


SINCE  /AF/  IS  NOT  AN  INSTANTANEOUS  ACCELERATION,  BUT  RATHER  AN  "AVERAGE*'  OF  THE  ACCELERATION  LEVELS  DURING 
THE  PRECEEDING  PIPA  INTERVAL,  AND  SINCE  FP  IS  COMPUTED  DIRECTLY  FROM  /AF/,  FP  IN  ORDER  TO  CORRESPOND  TO  THE 
ACTUAL  THRUST  LEVEL  AT  THE  ENE  OF  THE  INTERVAL  MUST  BF  WEIGHTED  EY 

PIFIPPROCESS  + TLI  PIF  /PIF/ 

FWEIGHT  + 

PGUID  2 PGUID  FRATE 


WHERE  PPROCeSS.IS  THE  TIME  BETWEEN  PIPA  READING  AND  THE  START  OF  THROTTLING,  PGUID  IS  THE  GUIDANCE  PERIOD,  AND 
FRATE  IS  THE  THROTTLING  RATE  (32  UNITS  PER  CENT  1 SECCND > * PGUIO  IS  EITHER  1 OR  2 SECONDSo  THE  "TL"  IN  THE 
FIRST  TERM  REPRESENTS  THE  ENGINE'S  RESPONSE  LAG®  HERE  FWEIGHT  IS  COMPUTED  FOR  USE  NEXT  PASS, 


2 

49 


11 

1 


I 


LAST  685 


31.2264 

31.2265 

31.2266 
31  ,2267 


3 1762  0 
54  130  1 


4 1010  0 
6 2452  0 
0 0006  1 
1 2274  0 


CA  THISTPIP  *1  INITIALIZE  FWEIGHT  COMP  AS  IF  FOR  P66 

TS  BUF 


CS  MODREG  ARE  WE  IN  FACT  IN  P66? 

AO  DEC66 

EXTEND 

62F  FWCOMP  YES 


REF  13 
REF  50 
REF  3 
REF  2 


LAST  786 
LAST  790 
LAST  788 
LAST  790 


31. 2270 

31.2271 

31.2272 

31.2273 


3 5003  1 
1 2275  1 


CA  PIPTIME  +1  NO:  INITIALIZE  FOR  TWO  SECOND  PERIOD 

TS  BUF 

CAF  ^SECS 

TCF  FWCOMP  +1 
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L THRCTTLE  CCMRCL  KCUTINES 


USER'S  PAGE  NC* 


G7  S3 


0122  REF 

0126  REF 
01261 

01262  REF 

01263  REF 

0127  REF 

0128  REF 
012‘»  . REF 

0130  REF 

0131 

0132 

0133  REF 
01  3A 

0135  REF 

0136 

0137  REF 

0138  REF 

0139  REF 
OlAO 

OlAl  REF 

0142 

0143  KEF 

0144 

0145  REF 

0146 

0147  REF 


3 LAST 
200  LAST 

42  LAST 

51  LAST 

52  LAST 
10  LAST 

1 

4 LAST 


201  LAST 
- 7 LAST 

3 LAST 

8 LAST 
35  LAST 

66  LAST 

9 LAST 
53  LAST 

4 LAST 


610 

788 

764 

790 

791 
790 


464 


791 

790 

789 

791 
780 

791 

791 

79  1 

791 


31»2274 
31,2275 
31  ,2276 
31,2277 

31.2300 

31.2301 

31.2302 
31  ,2303 

31.2304 

31.2305 
31  ,2306 
31,2307 

31.2310 

31.2311 

31.2312 

31 .2313 

31.2314 

31.2315 
31  ,2316 
31,2317 

31.2320 

31 .2321 

31.2322 

31.2323 

31.2324 

31.2325 


3 5000  1 
54  002  1 
0 0006  1 
7 4746  1 
22  131  I 

4 0130  1 
6 CC25  0 

6 2004  1 

7 4357  0 
22  007  0 
0 0006  1 
1C  C02  1 
0 0006  1 
7 1612  1 
6 0000  1 
53'611  1 
11  '612  1 
6 4753  1 
1 2320  0 

6 4753  1 
0 0006  1 

7 1612  1 
C CC06  1 
1C  131  0 
22  007  0 
21'611  1 


Fl,CCMP 
+ l 


CAF  2SECS 

TS  0 

EXTEND 
MP  6IT6 

LXCH  BUF  +1 

CS  BUF 

AD  TIKEl 

AD  THROTLAG 

MASK  LQW8 

ZL 

EXTEND 
DV  0 

EXTEND 
MP  PIF 

DOUBLE 

CXCH  FWEIGHT 

CCS  PIF 

AD  ONE 

TCF  +2 

AO  ONE 

EXTEND 
MP  PIF 

EXTEND 

OV  BUF  +) 

ZL 

OAS  FWEIGHT 


TIME  OF  LAST  PIPA  READING, 

COMPENSATE  FOR  ENGINE  RESPONSE  LAG 
MAKE  SURE  SMALL  ANC  POSITIVE 


0148 


REF  3 LAST  788 


31  ,2326  0 1607 


TFCUMP  TC 


PTNhOLC 


R0149 


FLATOUT  THROTTLES  UP  THE  DESCENT  ENGINE,  AND  IS  CALLED  AS  A BASIC  SUBROUT INEo 


0151  REF  29 

0152  REF  5 

0153  REF  142 

0154  REF  4 

0155  REF  10 

0156 

0157  REF  4 

0158  REF  1 


LAST  735 
LAST  790 
LAST  789 
LAST  790 
LAST  791 

LAST  791 


31,2327  3 4737  0 FLATOUT  CAF  6IT13 

31,2330  55*606  1 WFATCUT  TS  PIFPSET 


31,2331  4 4755  0 

31  ,2332  55'620  0 

31 .2333  55*612  1 

31.2334  0 0006  1 

31  ,2335  23*  607  1 

31,2336  1 2251  1 


CS  ZERO 

TS  FCOLO 

TS  PIF 

EXTEND 

OXCH  RTNHOLO 
TCF  DOIT 


4096  PULSES 

USE  PIFPSET  SO  FWEIGHT  WILL  BE  ZERO 


R0159 


MASSMLLT  SCALES  ACCEL ERAT  ICN, 


ARRIVING  IN  A AND  L IN  UNITS  OF  21-4)  M/CS/CS,  TO  FORCE  IN  PULSE  UNITS® 


0161 

0162 

0163 

0164 

0165 


REF  54  LAST  791 
REF  300  LAST  769 
REF  16  LAST  438 
REF  5 LAST  297 


31,2337  C 0006  1 
21,234C  22  130  0 

31  ,2341  52  155  I 

31.2342  0 7106  1 

31.2343  01243  0 


KASSMULT  EXTEND 
CXCH 
CXCH 


BUF 

MPAC 

DMP 

MASS 


GAP: 
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L 7HRCTTLE  CCMRCL  RCUTINES 


USER  ' S PAGE  NC.  5 E7  S3 


0166  REF 

0167  REF 

0168  REF 

0169  REF 

0170 

0171 

0172  REF 

0173  REF 

0174  REF 

0175  REF 


17  LAST 
1 

10  LAST 
301  LAST 


16  LAST 

55  LAST 
302  LAST 

56  LAST 


791  31,2344  G 7106  1 

31,2345  02005  0 

769  31 ,2346  0 7262  0 

791  31,2347  3 C154  1 

31.2350  0 0006  1 

21.2351  1 2356  Q 

788  31,2352  2 4733  1 

791  31  ,2353  0 0130  0 

792  31 ,2354  5 2 156  1 

792  31,2355  0 0130  0 


TC  DMP 

AORES  SCALEFAC 
TC  TPAGREE 

CA  MPAC 

EXTEND 
BZF  +3 

CAF  POSMAX 

TC  BUF 

OXCH  MPAC  +J 
TC  BUF 


LEAVES  PROPERLY  SCALED  FORCE  IM  MPAC 


R0176 


CONSTANTS:- 


0177 


30  LAST  791 


4737 


FEXTRA 


FEXT  ♦5el3309020E+  4 


0180 


31  ,2356 


04143  0 /AF/CNST  DEC 


<.13107 


01802 

01804 

R0181  * * * 


♦ 


31,2357 

31,2360 


17777  0 CCT17777  OCT  17777 
25074  1 4FMAXNCM  DEC  14908 


EQUIVALENT  TO  JO, 500  LBSo 
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L LUNAR  LANCING  GUIDANCE  EQUATIONS  USER'S  PAGE  NCo  1 EO  S3 

POOOl 

0002  REF  2 LAST  780  E7,1621  . £BANK=  E20PS 

0003  FEF  2 LAST  39  TC  40:  2 2#  COUNT*  l'$/F2DPS 

R0006  LUNAR'LANCINC-  FLIGHT  SEQUENCE  TABLES 

R0007  4 *««***#*  *'!>******************«*«**#«*****ft***«»««4^«>!:*^« 

R0)09  FLIGHT  SEQUENCE  TABLES  ARE  ARRANGED  BY  FUNCTION,  THEY  ARE  REFERENCED  USING  AS  AN  INDEX  THE  REGISTER  WCHPHASE: 


AOOll 

A0012 

A0013 

A0014 


WCHPHASE  = 
WCHPHASE  = 
WCHPHASE  = 
WCHPHASE  = 


> IGNAL6 

> BRAKQUAD 

> APPROUAD 

> VERTICAL 


R0015  If##*#**#****:*#****##*#*** 

R0017  ROUTINES  FCR  STARTING  NEW  GUIDANCE  PHASES: 


0C18 

0019 

0020 
0021 

R0022 


REF 

REF 

REF 

REF 


2 LAST  793 
1 
1 


31.2361  1 2573 

31.2362  1 2573 

31  ,2363  1 2556 

31,2364  1 2547 


0 TCF 

0 NEWPHASE  TCF 

1 TCF 

1 TCF 


TTFINCP 

TTFINCR 

STARTP64 

P65START 


IGNALG 

BRAKQUAD 

APPROUAD 

VERTICAL 


R0023  PRE-GLIDANCE  COMPLTATI CNS : 


0024 
002  5 
0026 
0027 
R0028 


REF 

REF 

REF 

REF 


LAST  793 


31.2365  1 2753 

31.2366  1 2763 

31.2367  1 2654 

31,2370  1 2763 


0 TCF 

0 PREGUIDE  TC  F 
0 TCF 

0 TCF 


CALCRGVG 
RGVGCALC 
RECES  IG 
RGVGCALC 


I GNALG 
BRAKQUAD 
APPROUAD 
VERTICAL 


R0029  GUIDANCE  EQUATIONS: 


0030 

0031 

0032 

0033 
R0034 


REF  1 

REF  2 LAST  793 
PEF  3 LAST  793 
REF  1 


31,2371  1 3026 

31  ,2372  1 3026 

31.2373  1 3C26 

31.2374  1 3503 


1 TCF 

1 WhATGUID  TCF 

1 TCF 

0 . TC  F 


TTF/8CL  IGNALG 

TTF/8CL  BRAKQUAD 

TTF/8CL  APPROUAD 

VERTGUIO  VERTICAL 


R0035 


PCST  GUIDANCE  EQUATICN  COMPUTATIONS: 


0036  PEF  1 

0037  REF  1 

0030  REF  2 

0039  REF  1 

R0040 


31  ,2375 
31  ,2376 
LAST  793  31,2377 

31 ,2400 


I 3225  0 TCF 
1 3212  1 AFTRGUIC  TCF 
1 3212  1 TCF 
1 3400  1 TCF 


CGCALC 
EXTLCGIC 
E XTLOGIC 
STEER? 


IGNALG 

BRAKQUAD 

APPROUAD 

VERTICAL 


GAP: 

L 

ROOAl 

0042 

0043 

0044 

R00,45 

R0046 

0047 

0048 

0049 

R0050 

R0051 

0052 

0053 

0054 

R0055 

R0056 

0057 

0058 

0059 

R0060 

R0061 

R0063 

R0064 

R0066 

C067 

0068 

0069 

0070 

0071 

0072 

R0073 

0074 

0075 

0076 

0077 

0078 

0079 
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LLNAR  LANDING  GUIDANCE  EQUATICNS 
RINDOVh  vector  COMFLTATICNS: 

0 TCF  EXGSUB 

1 WI-ATEX  IT  TCF  EXBRAK 

n TCF  EXNORM 


31,2401 
31  ,2402 
31,2403 


3275 

3316 

3324 


USER*  S PAGE  NC* 


£7  S3 


IGNALG 

BRAKQUAD 

APPRQUAO 


DISPLAY  ROUTINES: 


REF  1 
REF  1 
REF  1 


31.2404  1 3437 

31.2405  1 3442 

31.2406  1 3471 


0 HHATDISP  TCF 

1 TCF 

1 TCF 


P63CISPS 
P64DI SPS 
VERTDISP 


ERAKQUAD 

APPRQUAO 

VERTICAL 


ALARM  ROUTINE  FOR  TT F COMPUTATICN: 


REF 

REF 

REF 


LAST 


794 


31,2407  1 3672  0 

31,2410  1 3674  0 

31  ,2411  1 3674  0 


k^HATALM 


TCF  1406P00 
TCF  1406ALM 
TCF  14P6ALM 


IGNALG 

ERAKOUAO 

APPRQUAO 


INDICES  FOR  REFERENCING  TARGET  PARAMETERS: 


31.2412  COOOO  1 OCT  0 

31.2413  COCCC  1 TARGTDEX  OCT  O 

31.2414  00034  0 OCT  34 


IGNALG 

ERAKQUAD 

APPRQUAO 


ENTRY  PCINTS: 


7GUICSUB  FDR  THE  IGNITION  ALGORITHM,  LUNLANO  FOR  SERVOUT 


IGMTICN  ALGORITHM  ENTRY: 


DELIVERS  N PASSES  OF  QUADRATIC  GUIDANCE 


REF  46  LAST  751 
REF  1 
REF  1 


31,2416 
31  ,2417 
31  ,242C 


77776  1 7GUIDSUB  EXIT 

3 4752  0 CAF 

55*647  1 TS 

1 2531  0 TCF 


ThC 

NGUIDSU0 
GUILCRET  +2 


N = 3 


REF  2 LAST  794 
REF  2 LAST  793 


31.2421  55*647  1 GUIOSUB  TS  NGLIDSUB 

31.2422  1 2753  0 TCF  CALCRGVG 


ON  SUCEEOING  PASSES  SKIP  TTFINCR 


NORMAL  ENTRY: 


CDNTRCL  COMES  FERE  FROM  SERVOUT 


REF  55  LAST  706 

REF  24  LAST  755 
REF  1 

REF  1 


31  ,2423  0 5353 

31.2424  00035 

31.2425  3 0101 

31  ,2426  7 4744 

31, 2427  C 0CC6 
31,2430  1 3431 


1 

1 

1 

0 

1 

0 


LUNLANO 


MASK 

EXTEND 

8ZF 


PhASCHNG 

00035 

FLAGViRDS  y 
ZOOMBIT 

DISPEXIT  ♦■a 


GROUP  5S  RETAIN 
HAS  THROTTLE-UP 


ONLY  PIPA  TASK 
COME  YET? 


NO:  DO  DISPLAYS  CNLY 


GAP: 
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L LUNAR  LANDING  GUIDANCE  EOUATICNS 


USER’S  PAGE  NOo  3 67  S3 


0080  PEF  56  LAST  79A  31,2A21  C 5353  1 

0081  31,2A32  05023  0 

0082  31,2A33  20000  0 


TC  PHASCHNG  YES:  00  GUIDANCE 

OCT  05023 

OCT  200OO 


R0085  GLILOENSTERN:  AUTO-MODES  MCMTCR  (fil3) 


0088  REF 


COUNT*  tt/R13 


R0089 

R0091 

R0092 

800925 

ROC'93 

R00937 

0094 
00945 

0095 
00955 


THE  PHILOSOPHY  OF  GU I LOEN STER ^ : 
HAS  EEEN  CLICKED^  IF  SO,  SELECT 
9FRCGPAM  U FRCGRESS  IS  P66,  CF 
RESTART,  IF  ONE  HAS  CCCUREO  RE- 
SELECT P66  THE  ATTITUDE-HOLD  Cl 
ALIOMATIC  LANDING  Fi  U L CCNTINUE 


REF 

REF 


1? 


LAST 

LAST 


31,  2A34 
31,2A35 
31,2*36 
31,2*37 


ON  EVERY  APPEARANCE  OF  THE  ATTITUDE-HOLD  DISCRETE  CHECK  TO  SEE  IF  THE  ROD  SWITCH 
P66*  IF  THE  DAP  IS  IN  AUTO  AND  THE  PRESENT 

ECK  FCR  A 

INITIALIZE  P66  ANC  CONTINUE  CTHERksISE  YOUCONTINUE  WITH  PPESENT  DATA  IN  P66iT0 
SCRETE  MUST  BE  PRESENT  AND  THE  ROD  SWITCH  MUST  HAVE  BEEN  CLICKEOo  OTHERWISE  THE 


ICIO  0 GUILOEN 
2452  0 STERN 
0006  1 
2522  1 


CS  MOCREG 

AD  0EC66 

EXTEND 

BZF  RESTART? 


ARE  WE  IN  P66?(EVEN  THO  WF  ARE  IN  AUTO 
DAP) 

YES:  GO  SE  IF  THERE  HAS  BEEN  A RESTART 


0096  REF 
00965 

0097  PEF 
00975  REF  2 

0098  REF 


31  LAST  792 

3 LAST  480 
33  LAST  758 
2 LAST  794 


31  ,2440  3 4737  0 

31.2441  C 0CC6  1 

31.2442  02  031  1 

31.2443  1C  000  0 

31. 2444  1 2527  1 


CAF  BlTl?  NO:  IS  UN-ATTI TUOE-HCLD  DISCRETF  HERE? 

EXTEND 

RAND  CHAN31 
CCS  A 

TCF  GUILORET  YES:  ALL'S  WELL  ,0R  AT  LEAST  AUTOMATIC 


009«  REF  1 

0100 

0101  REF  3 LAST  795 


31.2445  3 1746  0 

31.2446  0 0006  1 

31.2447  1 2527  I 


CA  RODCQUNT 

EXTEND 

8ZF  GUILORET 


NO:  HAS  ROO  SWITCH  BFEN  CLICKED 

NC:  CONTINUE  WITH  THE  AUTOMATIC  LANDING 


0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
Oil] 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 


REF  7 
REF  1 
REF  120  LAST 

REF  1 

PEF  1 

REF 


KEF 

REF 

REF 

REF 


LAST  319 
786 


LAST  110 


LAST  105 


,2450 
,2451 
,2452 
,2453 
,2454 
,2455 
,2456 
, 2457 
,2460 
,2461 
,2462 
,2463 
,2464 
,2465 
,2466 
,2467 
,2470 
,2471 
,2472 


0 3677  1 
C 5311  1 
00102  1 
0 0006  1 
3 1474  1 
53'645  0 
C 6042  1 
41535  I 
01457  0 
41535  1 
01455  1 
55535  1 
01453  1 
43161  0 
25532  I 
C0463  C 
26621  0 
C1254  0 
77676  0 


STARTP66  TC 
TC 


CeC66 


DEC 
EXTEND 
DCA 
DXCH 

STRTP66A  TC 


66 


HDCTDISF 
VOGVERT 
INTPRET 
SLOAD  PUSH 

PBIASZ 
SLCAO  PUSH 

PB lA  SY 
SLOAD  VDEF 

PBIASX 
VXSC  SFT 

6IASFACT 
PCDFLAG 
STOVL  VBIAS 
TEMX 

VCOMP 


YES 

SET  DESIRED  ALTITUDE  PATE  = CURRENT 
ALTITUDE  RATEo 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY 

L LLNAft  LANDING  GUICANC6  EGUATICNS 


NASA  2021112-C91 


0121 

REF 

2 

0122 

REF 

13 

0123 

REF 

2 

0124 

REF 

2 

0125 

REF 

2 

0126 

REF 

14 

0127 

REF 

2 

0128 

0129 

REF 

143 

0131 

REF 

5 

0132 

REF 

6 

0134 

REF 

47 

01341 

REF 

1 

013$ 

REF 

3 

0136 

REF 

3 

0137 

REF 

219 

0138 

REF 

4 

0130 

REF 

82 

0140 

RE.F 

3 

0141 

REF 

83 

2 

0143 

REF 

2 

0167 

REF 

26 

0168 

REF 

2 

0169 

0170 

REF 

1 

A0171 

0172 

REF 

3 

R0173 

ROWS 

IMT  lAL  : 

R0176 

0178 

REF 

3 

0179 

REF 

144 

0180 

REF 

0181 

0182 

REF 

3 

0183 

REF 

1 

0184 

REF 

3 

0185 

0186 

REF 

7 

0187 

REF 

4 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


153 
78  1 
153 
123 
L53 

790 
153 

791 
791 
791 
796 
794 

733 

780 

786 

757 

776 

231 

796 

780 

793 


31.2473 

31.2474 
31  ,2475 
31,2476 
31  ,2477 
31,2500 
3l,25CI 
31  ,2  502 
31,2503 
31,250'4 
31  ,25  05 
31,25C6 
31,2507 

31.2510 

31.2511 
31  ,2512 

31.2513 

31.2514 

31 .2515 

31.2516 

31.2517 

31.2520 

31.2521 


27764  1 
06524  1 
17767  1 
C2540  1 
17757  1 
01234  0 
03760  0 
77776  1 
3 4755  1 
55*620  0 
55' 610  0 
55*611  I 
3 4752  0 
55*  647  1 
55*621  1 
55*346  0 
0 4616  1 
40166  1 
0 5516  0 
0C311  I 

0 5516  0 
00143  I 

1 3503  0 


STOVL 

STOOL 


STORE 

EXIT 

CAF 


AORES 

TCF 


OLCPIPAX 

ZEROVEC  S 

OELVROD 

RODSCALE 

ROOSCALl 

PIPTIME 

LA  STTPI P 

ZERO 
PCOLD 
PWE  IGHT 
FWEIGHT  + 
TWO 

WCHVERT 

WCHPHCLD 

WCHPHASF 

BANKCALL 

STOPRATE 

DOWNFLAG 

XOVINFLG 

DOWNFLAG 

RECFLAG 

VERTGUIO 


LAST  219 


RESTART?  CA 

7 4740  1 MASK 

C 0006  1 EXTEND 

31  ,2525  1 2456  0 BZF 


31  ,2522  3 0075  0 

31.2523 

31.2524 


LAST  796  31  ,2526  1 3503  0 


17:53  CECo  19,1969  FLY 


USFR'S  PAGE  NCt, 


153  PAGE  796 


->  VERTICAL:  P65,P66,P67 


TEMPORARY,  I HOPE  POPE  HOPE 
TEMPORARY,  I HCPE  PCPF  HOPE 
PERMIT  X-AXIS  OVERRIDE 


HAS  THERE  BEEN  A RESTART? 

YESo  REINITIALIZE  BUT  LEAVE  VOGVEPT  AS 


3 LAST  793  TO  795: 


ISo 


NO:  CONTINUE  UITH  Ro  0<,  Do 


* *♦##****#**#*##*** 


CCUNT*  $$/F2DPS 


GUILORET  CAF 


31.2533 

31.2534 


53*574  1 
C 3677  1 


LAST  782 
LAST  796 


31,2537  53*625  0 


EXTEND 

CCA 

OXCH 


EXTEND 

DCA  PIPTIMEl 
DXCH  TRIP 


GAP; 

L 

0188 

0189 

0190 

0191 

0192 

0193 

01  9^ 

R0195 

K0197 

R0198 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

02J1 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

A0220 

R0221 

R0223 

R0224 

R0226 

R0227 

R0228 

R0229 


ASSEMBLE  REVISION  131  OF 
LUNAR  LANDING  GUIDANCE 


AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
EQLATICNS 


17:53  DECo  19,1969  FLY 
USER'S  PAGF  NOc 


,,153  PAGE  797 
5 E7  S3 


REF 

REF 


LAST  781 
LAST  151 


31,2540  C 0006  1 
31  ,2541  3 1643  1 

31,2542  53'553  1 


EXTEND 

OCA  TTF/fl 
OXCH  TTF/8TMP 


REF  4 LAST  780 
REF  3 LAST  793 


1,2543  11‘622 

31 ,2544  1 2573 


CCS  FLPASSO 
TCF  TTFINCR 


4 LAST  796 
1 


31,2545  51*346  1 BRSPOTl  INDEX  WCHPHASE 
31  ,2546  1 2362  0 TCF  NEWPHASE 


ROUTINES  Tn  START  NEW  PHASES 


REF  3 LAST  795 

REF  145  LAST  796 
REF  2 LAST  796 
REF  84  LAST  796 
REF  4 LAST  796 
REF  4 LAST  797 


31,2547  C 5311  I 

31.2550  00101  1 

31.2551  3 4755  1 

31.2552  55'647  1 

31  ,2553  0 5516  0 

31.2554  00311  1 

31.2555  1 2573  0 


NEV.MCOEX 

65 

ZERC 

WCHVEPT 

DOWNFLAG 

XOVINFLG 

TTFINCR 


PERMIT 


X-AXIS  CVERRIOF 


REF  4 

REF  1 
REF  3 

REF  4 
REF  27 

REF  15 
REF  1 
REF  2 
REF  85 
REF  3 


LAST  797 


LAST  797 

last  474 
LAST  776 

LAST  565 

LAST  214 
LAST  797 
LAST  796 


31,2556  0 5311  I STARTP64  TC  NEWMCDEX 


31,2557  00100  0 

31,2560  3 1425  0 

31  ,2561  27*  552  0 

31,2562  0 0004  0 

31  ,2563  0 6022  1 

31.2564  3 4740  0 

31.2565  0 0006  1 

31  ,2566  05  013  0 

21,2567  3 37C7  1 

31.2570  55*343  0 

31.2571  C 551  6 0 

31.2572  00143  1 


DEC  64 

CA  DELTTFAP 

ADS  TTF/8TMP 

INHINT 

TC  C13STALL 

CA  BIT12 

EXTEND 

WOR  CHAN13 

CAF  P64DB 

TS  DB 

TC  DOWNFLAG 

ADRES  PEOFLAG 


AUGMENT  TTF/e 


ENABLE  RUPTIO 


INITIALIZE  REDESIGNATION  FLAG 


(CONTINUE  TO  TTFINCR  ) 

INCREMENT  TTF/8,  UPDATE  LAND  FOR  LUNAR  ROTATION,  DO  OTHER  USEFUL  THINGS 


TTFINCR  COMPUTATIONS  ARE  AS 
TTF/8  UFCATEC  FOR 
TTF/e  = 


FOLLOWS 

T IME  S INCE  LAST 
= TTF/9  + (TPIP  ■ 


PASS: 

• TPlPOLO/e 


LANDING  SITE  VECTOR  UPDATED  FOR  LUNAR  ROTATION: 


gap: 

L 

R0230 

Rn232 

R0234 

R0235 

RQ236 

0237 

0238 

0239 

0240 

02 '41 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

025) 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-^91 


17:53  DEC*  19,1969  FLY 


rl^3  PAGE  798 


LUNAR  LANDING  GUIDANCE  EQUATICNS 


USER'S  PAGE  NOs 


LAND  = /LAND/  UNITILAND  - LANDITPIP  - TPIPOLDI  * WM) 
SLANT  RANGE  TO  LANDING  SITE,  FCR  DISPLAY: 

PANGECSP  = AEVALILAND  - R) 


REF  121  LAST  795 

REF  5 LAST  796 
REF  2 LAST  796 


REF 

REF 


LAST  121 


LAST  798 
LAST  341 


31.2573 

31.2574 
31  ,2575 

31.2576 

31.2577 

31.2600 

31.2601 
31  ,2602 

31 .2603 

31.2604 
31  ,2605 

31.2606 

31.2607 

31.2610 

31.2611 
31  ,2612 


0 6042  1 
A5345  1 
03625  0 
C3574  1 
41461  1 
21214  0 
A7361  0 
03635  1 
02225  1 
47045  0 
03635  1 
21727  0 
76561  1 
02333  0 
17545  0 
77776  1 


TTFINCR  TC 


INTPRET 

OSL 

TRIP 

TPIPCLD 

PUSH 

110 

VXV 

LAND 

WM 

RTB 

LAND 

NORMUMT 

VSLl 

/LAND/ 

LANDTEMP 


SHIFT  SCALES  DELTA  TIME  TC  2(171  CSECS 


LAST  796  31,2615  C 3677  1 


NOW  HAVE  INCREMENTED  TTF/«  IN  TTF/8TMP 


31, 2616 
31  ,2617 
31,2620 


C CC06  1 
3 1553  0 
53*643  0 


EXTEND 

DCA  TTF/8TMP 
OXCH  TTF/8 


31,2621  0 36A3  0 


REF  2 LAST  338 
REF  13  LAST  752 


TC 


TEMPORARILY  OVEP-PRIO  CHARIN 


REF  122  LAST  798 


REF 

REF 

REF 


LAST  798 
LAST  123 
LAST  798 

LAST  798 


31.2624 

31.2625 

31. 2626 
31  ,2627 

21.2630 

31.2631 

31.2632 

21. 2633 


0 6042  1 
53375  0 
03545  0 
02635  0 
C3635  1 
77646  0 
02333  0 
77776  1 


TC  INTPRET 

VLCAD  VAC 

LANDTEMP 

DLANO 

STCRE  LAND 


ADD  IN  CORRECTION  FROM  NOUN  69 


RECOMPUTE  /LAND/ 


31  ,2634  0 3677  1 


SINCE  REOESIG  MAY  CHANGE  LANDTEMP 


gap: 


ASSEf'BLE  REVISION  131  CF  AGC  PRCCRAM  LUMINARY  BY  NASA  2021112-fcl 


17:53  DEC*  19,1969 


FLY 


153  PAGE  799 


LUNAR  LANDING  GUIDANCE  EQLATICNS 


USER'S  PAGE  NOe 


0271 

0272 

0273 
02  7''* 

0275 

0276 

0277  • 

0278 

0279 
02B0 
0281 
0282 
0283 


REF  6 
REF  5 
REF  28 
REF  146 
REF  6 
REF  7 
REF  e 
REF  9 
REF  10 
REF  11 
KEF  9 
REF  1 
REF‘  29 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


789 

798 
789 
797 

799 
799 
799 
799 
799 
799 
789 


31,2636 
31, 2627 
31  ,2640 
21i2641 

31.2642 

31.2643 

31.2644 
31  ,2645 
31,2646 
E7, 1666 
31  ,2647 


4 003  0 
4755  I 
5*634  0 
5*635  I 
5'636  1 
5*637  0 
5'64C  0 
5*641  1 
5C16  0 


CAF 
EBANK  = 


EBANK5 

DLAND 

EBANK 

ZERO 

OLAND 

DLANO 

DLAND 

DLANC 

DLAND 

OLAND 

EBANK7 

TREDES 

EBANK 


Z6RC  N 69  REGISTERS 


LAST  797 


ROZBB 

R0290 

R0291 


LANDING  SITE  PERTURBATION  EOLATIONS 


«*«««*  ft 


0293  REF 

0294  REF 

0295 

0296  REF 


4 

1 


3 


LAST 


LAST 


776 


793 


21  ,2654  3 0102  1 

21,2655  7 4746  1 

31  ,2656  0 0006  1 

31,2657  1 2763  0 


RECESIG 


CA  FLAGWRC6 
MASK  REDFLBIT 
EXTEND 

6ZF  PGVGCALC 


IS  RECFLAG  SET? 


NO:  SKIP  REDESIGNATION  LOGIC 


0297  REF 
0296 

0299  REF 


2 LAST  799 
4 LAST  799 


31.2660  2 1666  0 

31.2661  0 0006  I 

21.2662  1 2763  0 


CA  TREDES  YES:  HAS  TREDES  REAChEC  ZERO? 

EXTEND 

BZF  RGVGCALC  YES:  SKIP  REDES  I GNAT  I CN  LOGIC 


0300 

0301  REF 

0302  REF 

0303  REF 

0304  REF 

0305  REF 


1 

2 LAST  151 
2 LAST  142 
2 LAST  151 
6 LAST  798 


31 

21 

31 

31 

21 

31 


,2663 
,2664 
, 2665 
,2666 
,2667 
,2670 


0 0004  0 
3 1446  0 
55*554  C 
3 1445  0 
55*556  1 
0 3677  1 


INHINT 

CA  ELINCRl 

TS  ELINCR 

CA  AZINCRl 

TS  AZINCR 

TC  FASTCHNG 


0306  REF  147 

0307  REF  2 

0308  REF  3 

0309  REF  3 

0310  REF  3 


LAST  799  21 

LAST  799  31 

LAST  799  31 

LAST  799  31 

LAST  799  31 


,2671  3 4755  1 

,2672  55*446  1 

,2673  55*445  1 

,2674  55*  555  1 

,2675  55  *557  0 


CA  ZFRO 

TS  ELINCRl 

TS  AZINCRl 

TS  ELINCR  +1 

TS  AZINCR  +1 


0311  REF  19  LAST  606 

0312  REF  6 LAST  608 


31 .2676  3 0120 

21.2677  54  166 


CA  FIXLOC  SET  PO  TO  0 

TS  PUSHLCC 


0313 


REF  123  LAST  798 


31,2700  0 6042 


TC  INTPRET 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L LLNAR  LANDING  GUIDANCE  ECUATICNS 


17:53  DECo  19,1969  FLY  ,153  PAGE  800 

USER'S  PAGE  NO*  8 E7  S3 


031A 

0315  REF  8 LAST 

0316  REF  7 LAST 

0317 

0318  REF  3 LAST 

0319 

0329  REF  2 LAST 

0321 

0322  REF  4 LAST 

0323  REF  4 LAST 

0324 

0325  REF  3 LAST 

0326 


79  8 
783 

79  8 

115 

799 

799 

800 


31.2702 

31.2703 

31.2704 
31  ,2705 
31  ,2706 
31,2707 
31  ,2710 
31,2711 
31,2712. 

31.2713 

31.2714 
31  ,2715 


52375  1 
03635  1 
03521  1 
41434  1 
21727  0 
76435  1 
C2154  0 
65361  0 
C3555  1 
03557  0 
52361  1 
C2154  0 
41455  0 


VLCAO  VSU 
LAND 

R - - 

RTB  PUSH  PUSH  DOWN  UNIT  (LAND  - R» 

NORMUNIT 
VXV  VSLl 

YNBPIP  - - - 

VXSC  POOL  PUSH  DOWN  - eLINCR(YN8  * UNIT(LAN0  - RM 

ELINCR 
AZ  I NCR 
VXSC  VSU 

YNBPI P 

VAO  PUSH  RESULTING  VECTOR  IS  1/2  PEAL  SIZE 


0327  ' 

0328 

0329  REF 

0330 

0331  REF 

0332  FEF 

0333 
0334. 

0335  REF 

0336  REF 
C337 

0338 

0339 

0340  REF 

0341 

0342  REF 

0343  REF 

0344 


I 


9 

8 


9 

5 

4 


LAST  800 

LAST  800 
LAST  800 

LAST  800 

LAST  798 
LAST  798 


31.2716 

31.2717 
31  ,2720 

31.2721 

31.2722 
31  ,2723 

31.2724 

31.2725 

31.2726 

31.2727 
31  ,2730 

31.2731 

31.2732 
31  ,2733 

31.2734 

31.2735 

31.2736 

31.2737 


45345  1 
00001  0 
05660  1 
71240  1 
62725  0 
05660  1 
COCCI  0 

45345  1 REDESl 

03635  1 

C3521  1 

74271  0 

00001  0 

53455  C 

03521  1 

76561  I 

02333  0 

03545  0 

77776  1 


DLOAD  OSU 
0 

OEPRCR  IT 
BMN  DLCAC 
REDESl 
OEPRCRIT 
STORE  0 
DLOAD  DSU 
LAND 
R 

COV  VXSC 
0 

VAO  UNIT 
R 

VXSC  VSLJ 

/LAND/ 

STORE  LANDTEMP 
EXIT 


MAKE  SURE  REDESIGNATION  IS  NOT 
TCO  CLOSE  TO  THE  HCRIZON 


LOOKANGL  WILL  BE  COMPUTED  AT  PGVGCALC 


0345  REF 


7 LAST  799 


31  ,2740  0 3677  1 


TC  FASTCHNG 


0346 

0347  REF  5 LAST  SDO 

0348  RFF  10  LAST  800 

0349 

0350  REF  6 LAST  800 

0351  REF  11  LAST  800 

0352 

0353  REF  7 LAST  800 

0354  REF  12  LAST  800 


31.2741  C C0C6  1 

31.2742  3 1545  1 

31.2743  53*635  1 

31.2744  C CC06  1 

31.2745  3 1547  0 

31.2746  53'637  0 

31.2747  C C006  1 

31  ,2750  3 1551  1 

31,2751  53'641  1 


EXTEND 

OCA  LANDTEMP 

DXCH  LAND 

EXTEND 

DCA  LANDTEMP  +2 

DXCH  LAND  +2 

EXTEND 

DCA  LANDTEMP  +4 

DXCH  LAND  +4 


0355  REF  5 LAST  799  31,2752  1 2763  0 


TCF  RGVGCALC 


R03  56 

R035P  CCMPUTE  STATE  IN  GUIDANCE  COORDINATES 

R0359  *#«#*##*#*♦#>)>«!<♦#  **###***#***#«***##*****«*♦♦###*# 


gap:  ASSEJ^GLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARV  8Y  NASA  2021112-091 

L LLNAR  LANDING  GUIDANCE  EQLATICNS 


17:53  DECo  l‘>»1969  FLY 
USER'S  PAGE  NOo 


vl53  PAGE  801 
9 E7  S3 


R0361 

R0362 

R0363 

R0364 

R0365 

R0366 

R0367 

R0368 

R0369 

R0373 

R0374 

R0375 


RGVGCALC  COMPUTATICNS  ARE  AS  FOLLOWS:- 

VELOCITY  RELATIVE  TO  THE  SURFACE: 

ANGTERM  = V + R * uy 

STATE  IN  guidance  CCCRCINATES: 

_ ♦ — _ 

PGU  = CG  (R  - LAND) 

. _ * — - — 

VGU  = CG  ( V - WM  ♦ R) 

DEPRESSICA  ANGLE  FCR  DISPLAY: 

LOOKANGL  = ARC S IN ( UN  IT ( R - L AND  I a XPB P I P ) 


0376  REF  124  LAST  799 

0377 

0378  REF  14  LAST  783 

0379  REF  27  LAST  761 

0380 

0381  REF  6 LAST  783 

0382  REF  4 LAST  783 

0383 


31,2753  0 6042  1 CALCRGVG  TC  INTPRET 


21,2754  64375  1 

31  ,2755  00025  0 

31.2756  01734  0 

31.2757  53262  0 

31  ,2760  03253  0 

21.2761  03527  1 

31.2762  77776  1 


VLOAD  MXV 

VATTl 
REFSf'MAT 
VSRl  VAD 

UNFC/2 
STCRE  V 
EXIT 


IN  IGNALG,  COMPUTE  V FROM  INTEGRATION 
OUTPUT  AND  TRIM  CORRECTION  TERM 
COMPUTED  LAST  PASS  AND  LEFT  IN  UNFC/2 


0384  REF  125  LAST  901 

0385 

0306  REF  10  LAST  800 


0387  REF 

0388 

0389  REF 

0390  REF 

0391 

0392  REF 

0393  REF 

0398  REF 

0399 

0400  REF 

0401 

0402  REF 

0403  REF 
04C4 

0405  REF 

0406 

0407  REF 

0408  REF 


3 LAST  798 


5 LAST  801 
2 LAST  120 

5 LAST  781 

6 LAST  782 
11  LAST  801 

13  LAST  800 


6 LAST  801 
6 LAST  782 


3 LAST  317 

4 LAST  800 
2 LAST  115 


31.2764 

31.2765 

31.2766 

21.2767 
31  ,2770 

31.2771 

31.2772 
31  ,2773 

31.2774 

31.2775 

31.2776 

21.2777 
31  ,3000 

21 .3001 

31.3002 

31 .3003 
21, 2004 

31 . 3005 

31.3006 

31.3007 


C3521  1 
02325  1 
7C455  1 
03527  I 
02265  1 
77721  0 
02575  1 
27627  I 
03521  I 
41451  1 
C3635  1 
76527  0 
02575  I 
02627  0 
77646  0 
26617  0 
50234  1 
21727  0 
C2146  0 


RGVGCALC  TC 

VLOAD 


VAD 

STCRE 

MXV 

STOVL 

VSU 

MXV 

STORE 

ABVAL 

STCVL 

RTB 


INTPRET 

vxv 

R 

WM 

VSR2 

V 

ANGTERM 

CG 

VGU 

R 

PUSH 

LAND 

VSLl 

CG 

PGU 

RANGEOSP 

DOT 

NORMUMT 
XN8P1  P 


ENTER  HERE  TO  RECORPUTF  RG  AND  VG 

RESCALE  TO  UNITS  CF  2(Q»  M/CS 

NO  SHIFT  SINCE  ANGTERM  IS  DOUBLE  SIZED 

PUSH  DOWN  R - LAND 


NOW  IN  MPAC  IS  SINE(L00KANGL)/4 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  OECo  19,1969  FLY 


,^153  PAGE  802 


LUNAR  LANDING  GUICANCE 


EQUAT  ICNS 


USER*  S PAGF  NC*  10  E7  S3 


0A09 


31,3010  77776 


EXIT 


0^10 

0411 


REF  20  LAST  799 
REF  7 LAST  799 


31,3011  2 0120  1 

31  ,3012  54  166  1 


CA  FIXLOC  RESET  PUSH  DOWN  POINTER 

TS  PUSHLOC 


0412  REF  3C4  LAST 

0413 

0414  REF  220  LAST 

0415  REF  1 

0416  REF  1 

04161  REF  1 

0417 

0410  REF  I 

0410  REF  1 


798 

796 


21.3013  3 C154  1 

31.3014  ( 0000  1 

31  ,3015  0 4616  1 

31,3016  61663  0 

21  ,3017  6 3713  I 

31 ,3020  6 1356  0 

31, 3C21  0 0006  1 

31 .3022  7 3712  1 

31.3023  55*667  0 


CA  MPAC  CCMPUTE  LOPKANGl  ITSELF 

ODU0LE 

TC  BANKCALL 

CAOR  SPARCSIN  -1 

AD  1/2DEG 

AC  ELBIAS  BIAS  LPD  ANGLE  FDR  WINDOW  BENDING 

EXTEND 

MP  leCCEGS 

TS  LOOKANGL  LOOKANGL  FOR  DISPLAY  DURING  P64 


0420  REF  6 LAST  799  31,3024  51 '346  1 BftSPOTB  INDEX  WCHPHASE 

0421  REF  1 31,3025  1 2372  1 TCF  WHATGUID 


R0424  TTF/8  CCMPUTATION 


0427  REF 

0428 

042Q  REF 

0430  REF 

0431  REF 
U432  REF 

0433  REF 

0434 

0435  REF 

0436  REF 

0437  REF 
C438  REF 
043'a 

0440  REF 

0441  REF 

0442  REF 

0443 


1 

1 

2 LAST  151 
I 

3 LAST  b02 
7 LAST  801 

I 

I 

4 LAST  802 
1 

7 LAST  801 
1 

5 LAST  802 


31,  3026 
31  ,3027 
31  ,3030 

31.3031 

3 1.3032 
31,3023 

31.3034 

31.3035 

31.3036 
31  ,3037 

31.3040 

31.3041 
31  ,3042 
2 1,  3043 
31,3044 
31  ,3045 
31, 3046 


C 3636  1 
77743  1 
02431  0 
23571  0 
02427  1 
17567  0 
03633  1 
42605  1 
C5656  I 
02425  0 
23565  0 
02A07  0 
41225  1 
C2633  0 
05654  0 
03563  1 
77776  1 


TTF/8CL 


TC  INTPRETX 

DLOAD* 

J0G2TTF,1 

STOOL*  TA6LTTF  +6  A(3I  = 8 JOG  TO  TABLTTF 

A0G2TTF,1  2 

STOOL  TABLTTF  +4  A(2)  = 6 ADG  TO  TABLTTF 

VGU  +4  2 

OPP  OAC* 

3 /4DP 
V062TTF,1 

.STCDL*  TABLTTF  +2  A(1I  = (6  VGU  + 18  VOG  )/8  TO  TABLTTF 

RDG  +4,1  2 2 

DSU  DMP 

RGU  +4 

3/8DP 

STCRE  TABLTTF  A(0»  = -24(RGU  - RDG  1/64  TO  TABLTTF 

EXIT  2 2 


0444 

0445 


REF  28  LAST  617  31,3047  3 4744  1 

REF  6 LAST  802  21,3050  55'572  1 


CA  BIT8 

TS  TABLTTF  +10  FRACTIONAL  PRECISION  FOR  TTF  TO  TABLE 


0446 

0447  REF  6 

0448  REF  305 

0449  REF  48 

0450  REF  112 

0451  REF  1 

0452  REF  1 


31 

LAST  798  31 

LAST  002  31 

LAST  796  31 

LAST  769  31 


31 


,3051  C 0006  I 
.3052  3 1643  1 

,3053  52  155  1 

.3054  3 4752  0 

.3055  54  OCl  1 

,3056  3 3705  0 

,3057  0 3512  1 


EXTEND 

DCA  TTF/8 

DXCH  MPAC  LOADS  TTF/8  (INITIAL  GUESS!  INTO  MPAC 

CAF  TWO  DEGREE  - ONE 

TS  L 

CAF  TA6LTTFL 

TC  RODTPSRS  YIELDS  TTF/8  IN  MPAC 


17:53  DECo  1' 


<369 
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LINAR  LANDING  GUIDANCE  EQUATICNS 


USER  'S  PAGE  NOo  1 1 


LAST  802 


0455 

0456 

0457 


31.3062 

31.3063 

31.3064 


0 0C06  1 
2 0155  0 
53'643  0 


EXTEND 

DCA 

OXCH 


GCOC  RETURN 

FETCH  TTF/0  KEEPING  IT  IN  MPAC 
CORRECTED  TTF/8 


0458 

A0459 


31,3065  C 3643  0 


TC  TOISPSET 

(CONTINUE  TO  QUAOGUIOJ 


R046n 

R0462 

R0463 


MAIN  GUIDANCE  EQUATION 


AS  PU6LI SHEO:- 


R0466 

R0467 

R0468 

R0469 


ACG  = AOG 


6 (VOG  + VG) 
TTF 


12(RCC-  - RG> 
(TTFMTTF) 


R0470 


AS  HERE  FRCGRAMMEC:- 


R0471 

R0472 

R0473 

R0474 

R0474 

R0476 


3 (1/4(RDG  - RGJ 

_ ( 4 vDG 

4 ( TTF/8 


0477 

0478 

0479 

0480 
04R1 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 
049? 

0493 

0494 


REF  8 LAST  fi03 
REF 
REF 

REF  113 


17 


LAST  792 
LAST  802 


REF  58 
REF  59 
REF  60 
REF  61 
REF  307 
REF  62 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


803 
803 
803 
80  2 
803 
803 


31  ,3066 
31,3067 

31.3070 

31.3071 

31. 3072 

31.3073 

31.3074 
21, 3C75 
31  ,3076 
31,3077 
31,3100 
31  ,3101 

31.3102 

31.3103 
31  ,3104 
31,3105 
31  ,3106 
31  ,3107 


4 1642  1 QUACGUID  CS 
6 1426  0 AD 

6 4733  1 AD 

54  001  1 TS 

4 rcoi  1 CS 

6 0001  0 AO 

22  007  0 ZL 

C OC06  1 EXT 

11 '642  I OV 

54  130  1 TS 

0 0006  1 

7 0000  0 
54  131  0 
6 0130  0 
56  131  1 
6 0131  1 
54  154  0 
6 0131  1 


EXTEND 

SQUARE 


BUF 

BUF 

BUF 

BUF 

MPAC 

BUF 


LEACTIME  IS  A NEGATIVE  NUMBER 
SAFEGUARD  THF  CCMFLTATIONS  THAT  FOLLOW 
BY  FORCING  -TTF  + LEADTIME  > OR  = ZERO 


RATIO  OF  LAG-DIMINISHED  TTF  TO  TTF 


RATIO  SQUARED  - RATIO 
COEFFICIENT  FOR  VGL  TFRM 


GAP  : 

L 

0^95 

04Q6 

0497 

C498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0516 

0519 

0520 

0521 

0522 

052? 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

054? 


ASSEMBLE  REVISION  131  CF  AGC  FFCCPAM  LUMINARY  BY  NASA  2021112-091 
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LUNAR  LANCING  GUICANCE 


EOUAT  IONS 


USER'S  PAGE  NC,  12  E7  S3 


REF  21 

REF  63 
REF  22 

REF  64 
REF  18 
REF  65 
REF  66 
REF  23 


LAST  802 

LAST  003 
LAST  60^^ 

LAST  804 
LAST  803 
LAST  804 
LAST  -804 
LAST  804 


31  t3U0 

31.3111 

31.3112 

31.3113 

31.3114 
31  ,3115 

31.3116 

31.3117 
31  ,3120 

31.3121 

31. 3122 


50  120  1 
54  C32  I 
6 0131  1 
50  12C  1 
54  034  1 
6 0130  0 
6 4733  1 
6 0131  1 
6 0131  1 
50  120  1 
54  C36  0 


INDEX  FIXLUC 
TS  26D 

AD  BUF  +1 

INDEX  FIXLOC 
TS  28D 

AO  BUF 

AC  POSMAX 

AD  BUF  +1 

AC  6UF  +1 

INDEX  FIXLCC 
TS  300 


COEFFICIENT  FOR  RCG-RGU  TERM 


COEFFICIENT  FOR  V06  TERM 


COEFFICIENT  FOP  ACG  TERM 


REF  148 
REF  8 


1 

1 


REF  2 
REF  8 

REF  1 
REF  2 

REF  8 
REF  1C 


REF  11 
REF  2 

REF  1 

REF  7 

REF  5 
REF  1 

REF  7 

REF  3 
REF  8 

REF  9 

REF  1 


LAST  802 
LAST  802 

LAST  802 

LAST  802 
LAST  803 

LAST  804 
LAST  002 

LAST  8P1 
LAST  781 

LAST  801 

LAST  788 
LAST  804 

LAST  804 


31.3125 

31.3126 

31.3127 
31  ,3130 
31  ,3131 
31,3132 
31  ,3133 

31.3134 

31.3135 

11.3136 

31.3137 
.31  ,3140 

31.3141 

31.3142 
31  ,3143 

31.3144 

31.3145 

31.3146 

31.3147 
31  ,3150 

31.3151 

31.3152 
31  ,3153 

31.3154 

31.3155 

31.3156 

31.3157 
31  ,3160 

31.3161 

31.3162 

31.3163 

31.3164 

31 .3165 

31.3166 

31.3167 


0 3636  1 
65361  0 
C3627  1 
00035  1 
62757  0 
02411  1 
02403  1 
7C251  0 
02627  0 
03643  0 
74342  1 
00033  1 
53255  0 
74341  I 
03643  0 
05656  1 
73725  0 
0C037  0 
C2417  1 
77655  1 
76505  0 
02575  1 
70315  1 
01236  1 
05652  0 
45445  0 
74524  1 
77646  0 
17464  1 
03'253  0 
65316  0 
C3255  0 
65316  0 
05650  I 
63471  0 


AFCCALCl 


AFCCALC2 


TC  INTPRETX 

VXSC  POCL 
VGL 
28D 

VXSC*  PDVL* 
V0G,1 
RDG.l 

VSL  V/SC 

PGU 
TT  F/8 

VSR2  VXSC 
?6D 

VAC  VAD 

V/SC  VXSC 
TTF/8 
3 /4DP 
POOL  VXSC* 

30  D 
ADGil 

VAC 

VXM  VSLl 

CG 

PDVL  V/SC 

GDT/2 
GSCALE 
eVSU  STACR 

STORE  UNFC/2 

A6VAL 

STCCL  /AFC/ 

UNFC /2 
DSQ  POOL 

UNFC/2 
OSO  POOL 

HIGHESTF 
DOV  DSC 


VERTGUIO  COMES  HERE 


UNFC/2  NEED  NOT  PE  UNITIZED 

MAGNITUDE  OF  AFC  FOR  THROTTLE 
VERTICAL  COMPONENT 

OUT-OF-PLANF 


L 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C91 

L LUNAR  LANDING  GUICANC6  EQUATICNS 


17:53  DEC*  19,1969 


USER*  S PAGE  NCo 


^153  PAGE  805 
E7  S3 


C 

C 

C 

C 

C 

C 


0543 

0544 

0545 

0546 


0547 

0548 
05^9 


0550 

0551 

0552 

0553 

0554 

0555 


REF  6 LAST  79Ll 


REF  1 

REF  14  LAST  796 
REF  10  LAST  804 
REF  I 

REF  11  LAST  805 
REF  12  LAST  005 

REF  8 LAST  000 


3li  3171 
31  ,3172 

31 .3173 

31.3174 
31  ,3175 

31.3176 

31.3177 

31.3200 

31.3201 
31  ,3202 

31 .3203 

31.3204 


71244  0 
631 75  1 
06524  1 
43366  0 
C3257  I 
44244  0 
63203  0 
C3257  1 
03257  1 
77776  1 
C 3677  1 


AFCCALC3 


AFCCLENO 


MASS 

DSL  DSU 

BPL  OLOAO 

AFCCALC3 
ZEROVECS 
SORT  DAO 

UNFC/?  +4 

BPL  BDSU 

AFCCLENC 
UNFC/2  +4 

STORE  UNFC/2  +4 

EXIT 

TC  FASTCHNG 


2 2 2 

AMAXHCRIZ  = SORTIATCTAL  - A - A ) 
1 0 


0556  REF 

0557  REF 
055a  REF 


LAST  003  31,3205  3 1346  1 

LAST  796  31,3206  55*621  1 

LAST  797  31,3207  25*623  1 


CA  WCHPHASE  PREPARE  FOR  PHASE  SWITCHING  LOGIC 

TS  WCHPHOLO 

INCR  FLPASSC  INCREMENT  PASS  COUNTER 


C 


0559  REF  9 LAST  805  31,3210  51*346  1 BRSPGT4  INDEX  WCHPHASE 

0560  REF  1 31,3211  1 2376  0 TCP  AFTRGLIC 


R0561 

R0563  NEW  PHASE  NOW? 
R0564 


c 

c 


0566  REF  10  LAST  805 

0567  REF  2 LAST  14] 

0560  REF  12  LAST  804 

0569 

0570  REF  2 LAST  793 


31,3212  51*346  1 EXTLC6IC  INDEX  WCHPHASE 


31. 3213  2 1423  0 

31.3214  6 1642  0 

31.3215  C 0006  1 

31  ,3216  6 3225  1 


CA  TENOBRAK 

AD  TTF/B 

EXTEND 

BZMF  CGCALC 


IS  TTF  NEARER  ZERO  THAN  CRITERION? 


NO 


C 


0571  REF 


9 LAST  805 


31  ,3217  0 3677 


TC  FASTCHNG 


YES:  INCREMENT  WCHPHASE,  ZERO  FLPASSO 


C 

C 


0572 

0573 
C574 

0575 

0576 


REF  5 
REF  87 
REF  11 
REF  149 
REF  6 


LAST  805 
LAST  791 
LAST  005 
LAST  804 
LAST  005 


31.3220  3 1621  0 

31.3221  6 4753  1 


31.3222 

31. 3223 

31.3224 


55*346 
3 4 7 55' 
55  *623 


CA  WCHPHCLC 

AO  ONE 

TS  WCHPHASE 

CAF  ZERO 

TS  FLPASSO 


C 


A0577  (CCNTINUE  TO  CGCALC) 

R05Rn  ERECT  GUIDANCE-STABLE  MEMBER  TRANSFORMATION  MATRIX 


c 

c 


0583  REF  7 LAST  799 

0504  REF  30  LAST  799 

0585  REF  2 LAST  122 

0586 


31.3225  3 5014  1 CGCALC 

31.3226  54  C03  0 
E5, 1435 

31.3227  0 0006  1 


0507 


REF  12  LAST  805 


31,3230  5 1346  1 


CAF  EBANK5 

TS  E6ANK 

6BANK=  TCGIBRAK 
EXTEND 

INDEX  WCHPHASE 


GAP : 

L 

0588 

0589 

0590 

059] 

05«»2 

0593 

C59^» 

0595 

0596 

0597 

0598 

0599 

0600 

06  Ol 

0602 

0603 

0604 

0605 

0606 

0607 

0606 

0609 

06 10 

0611 

0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

062C 

0621 

0622 

0623 

0624 

R0625 

R0627 

RO620 

R0630 

R063? 

R0634 
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LUNAR  LANDING  GUIDANCE  EQUATIONS 


USER’S  PAGE  NCo  14  E5  S3 


REF  2 
REF  18 
REF  19 
REF  13 
REF  14 
REF  116 
REF  15 
REF  234 
REF  117 
REF  1 
REF  2 


LAST  122 
LAST  745 
LAST  806 
LAST  805 
LAST  806 
LAST  803 
LAST  806 
LAST  795 
LAST  806 


LAST  806 


31 .3231 

31 .3232 

31.3233 
31  ,3234 
E7,1642 

31.3235 

31.3236 

31.3237 
31  ,3240 

31 .3241 

31.3242 
31  ,3243 
31, 3244 


5 2413  0 
2 1435  1 
24  006  1 
24  006  1 

6 1642  0 
56  COl  0 
6 1642  0 
10  000  0 
10  001  1 
1 3273  C 
1 3273  0 
13  245  0 


INDEX  TARGTDEX 

OCA  TCGFBRAK 

INCR  6BANK 

INCR  BBANK 

E6ANK=  TTF/fi 

AD  TTF/8 

XCh  L 

AO  TTF/8 

CCS  A 

CCS  L 

TCF  EXITSPCT 

TCF  FXITSPOT 

NOOP 


REF  3 

REF  14 
REF  8 
REF  16 

REF  2 
REF  3 


REF  15 

REF  12 
REF  5 


REF  16 
REF  6 
REF  9 
REF  10 

REF  11 
RFF  12 


LAST  804 

LAST  801 
LAST  804 
LAST  806 

LAST  122 
LAST  801 

LAST  806 

LAST  801 
LAST  801 

LAST  806 
LAST  006 
LAST  806 
LAST  806 

LAST  006 
LAST  806 


31.3245 

31.3246 

31.3247 
31  ,3250 
31  ,3  251 

31. 3252 

31.3253 

31. 3254 

31.3255 

31.3256 

31.3257 
31  ,3260 
31  ,3261 
31,3262 
31  ,3263 

31.3264 

31.3265 

31.3266 

21.3267 
31  ,3270 
31  ,3271 
31,3272 


0 3636  1 
53575  0 
C263F  1 
16575  1 
03643  0 
74203  0 
02433  1 
Q2265  1 
77655  1 
03635  1 
47051  0 
03521  1 
21727  0 
47035  1 
03635  1 
21727  0 
26603  0 
02575  1 
76435  1 
02603  0 
C2611  0 
77776  1 


TC  INTPRETX 

VLCAO  UNIT 
LAND 

STOOL  CG 

TTF/R 

OMP*  VXSC 

GAlNBRAK.l  NUHERO  MYSTFRIOSO 

AN6TERM 

VAO 

LAND 

VSU  RTB 

R 

NORMUNIT 
VXV  RTB 

LAND 
NORMUMT 

STOVL  CG  +6  SECOND  ROW 

CG 

VXV  VSLJ 

CG  +6 

STCRE  CG  +14 
EXIT 


6 LAST  805 
1 


ROUTINES  FOR  EXITING  FROM  LANDING  GUIDANCE 

ftftftftftftftftftft4«ftftft«ftft<ftft44ft«ftftft:{<i(  4 ftft  ftftftft  ftftftftftftftftftftftftftftftftftigtftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft  ftftftftftttftftftftftftftftftftftftftftftft 


U EXGSUB  IS  ThE  RETURN  WHEN  GUICSU8  IS  CALLED  BY  THE  IGNITION  ALGORITHM. 

2©  EXBRAK  IN  THE  EXIT  USED  DURING  THE  BRAKING  PHASE.  IN  THIS  CASE  UNIT(R)  IS  THE  WINDOW  POINTING  VECTOR* 

3.  EXNCRM  IS  TFE  EXIT  US£C  AT  OTHER  TIMES  DURING  THE  BURN. 


GAP:  ASSEf^BLE  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  6Y  NASA  2021112-051 
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L LUNAR  LANDING  GUIDANCE  EQLATICNS 


USER'S  PAGE  NO*  15  £7  S3 


R0655 


(EXOVFLOW  IS  A*  SUBROUTINE  OF  EXBPAK  AND  EXNORN  CALLEC  I'HEN  OVERFLOW  OCCURRED  ANYWFERE  IN  GUIDANCE*) 


0637  REF  126  LAST  801 

0638 

0639  REF  13  LAST  805 

'06A0  REF  7 LAST  806 

0641 

0642  REF  5 LAST  783 

0643  REF  1 

0644  REF  14  LAST  807 

0645 


31 t3275 

31.3276 

31.3277 
31  ,3300 

31.3301 

31.3302 

31.3303 

31. 3304 

31 .3305 


0 6042  1 
*7175  1 
03253  0 
21727  0 
74361  0 
03423  1 
22001  0 
C3253  0 
77776  1 


EXGSUe 


TC  INTPRET 

VLCAD  RTB 

UNFC/2 
NORMUNIT 
VXSC  VXSC 

20CPTIME 
TR  IMACCL 
STORE  UNFC/2 
EX  IT 


COMPUTE  TRIM  VELOCITY  CCRRECTION  TERM 


0646 

06*7 

0648 

0649 

0650 

0651 


REF  3 LAST  794 

PEF  1 

REF  3 LAST  782 


REF  31  LAST  767 


31,3307 
31  ,3310 

31.3311 

31.3312 

31.3313 


11*647 
1 2421 
11*646 
1 3314 


0 5567 
01412 


1 

0 

0 

c 

0 

1 


TCF 

CCS 

TCF 

TC 

CCT 


NGUICSUe 

GUIDSUB 

NIGNLOOP 


ALARM 

01412 


0652 

0653 


REF  47 
PEF  1 


LAST  704 


31,3314 
31  ,3315 


0 4635  0 
65104  1 


TC  POSTJUMP 

CAOR  DDUMCALC 


0654  REF  127  LAST  807 

0655 

C656  REF  8 LAST  774 

0657  REF  2 LAST  137 

0658 

0659  REF  2 LAST  793 


31.3316 

31.3317 
31  ,3320 

31. 3321 

31.3322 

31.3323 


C 6C42 

77775 
03537 
03261 

77776 
1 3400 


EXeRAK 


TC  INTPRET 

VLOAO 

UNIT/R/ 
STORE  UNWC/2 
EXIT 

TCF  STEER? 


0660 

0661 

0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 


REF  128 

REF  17 
REF  13 

REF  8 
REF  3 

REF  3 
REF  13 


LAST  807 

LAST  006 
LAST  806 

LAST  307 
LAST  807 

LAST  801 
LAST  806 


31  ,3325 

21.3326 

31.3327 
31  ,3330 

31.3331 

31.3332 
'31,3333 
21,3334 
31  ,3335 
21,3336 


n 6042  1 
52375  1 
03635  I 
03521  I 
77634  0 
21727  C 
03261  1 
50235  0 
C2146  n 
02603  0 
77776  I 


TC  INTPRET 

VLOAD  VSU 
LAND 
R 

RTB 

NORMUNIT 
STORF  UNWC/2 
VXV  DOT 

XN6PI  F 
CG  +6 

EXIT 


UNIKLANO  - P)  IS  TENTATIVE  CHOICE 


WITH  PROJ  IN  MPAC  1/8  REAL  SIZE 


0671  PEF  308  LAST  803 

0672  REF  1 

0673  REF  19  LAST  804 

0674  REF  67  LAST  804 

0675  REF  68  LAST  807 

0676  REF  69  LAST  807 


31,3337  4 0154  0 

31.3340  6 3714  0 

21.3341  6 4733  I 

31  ,3342  54  130  1 

31.3343  4 C130  1 

31. 3344  26  130  1 


CS  MPAC  GET  COEFFICIENT  FCP  CG  +14 

AC  PRCJMAX 

AO  POSMAX 

TS  6UF 

CS  6UF 

AOS  PUF  RESULT  IS  O IF  PPOJMAX  - PROJ  NEGATIVE 


C677  REF  1 

0678  REF  309  LAST  807 


31  ,3345  4 371 5 0 

31 ,3346  t 01 54  1 


CS  PROJMIN  GET  COEFFICIENT  FOR  UNIT(LANO  - R) 

AO  MPAC 


GAP : 


ASSEPPLE  REVISIGN  131  OF  AGC  PFCGRAP  LUMINARY  BY  NASA  2021112-0*51 


L LUNAR  LANCING  GUICANCE  EQUATIONS 

AC  POSMAX 
TS  6UF  +1 
CS  BUF  +1 
AOS  BUF  +1 


0679  REF  20  LAST  007  31,3347  6 4733  1 

0600  REF  70  LAST  807  31,3350  £4  131  C 

0601  REF  71  LAST  808  31,3351  4 0131  0 

C682  REF  72  LAST  808  31,3352  26  131  0 


0683 

REF 

14 

LAST 

780 

0684 

REF 

14 

LAST 

597 

0685 

REF 

202 

LAST 

791 

0686 

REF 

8 

LAST 

8C'5 

0637 

REF 

31 

LAST 

805 

0688 

REF 

14 

LAST 

807 

0689 

0690 

REF 

73 

LAST 

808 

0691 

REF 

203 

LAST 

808 

0692 

REF 

15 

LAST 

608 

0693 

REF 

20 

LAST 

806 

069^ 

REF 

u 

LAST 

807 

0695 

REF 

204 

LAST 

008 

0696 

0697 

REF 

5 

LAST 

808 

0698 

REF 

74 

LAST 

808 

0699 

.REF 

205 

LAST 

808 

0700 

REF 

6 

LAST 

808 

0701 

0702 

REF 

REF 

206 

1 

LAST 

008 

31.3353  2 4751  0 CAF  FOUR 

31.3354  7 6245  0 UNWCLOOP  MASK  SIX 


31.3355  54  002  1 

31.3356  2 5014  1 

31  ,3357  54  003  0 

£5,1574 

31,3-360  3 0130  0 

31.3361  0 C006  1 

21.3362  5 0002  0 

31  ,3363  7 1610  0 

21,3364  24  006  1 

E6,1660 

31  ,3365  50  002  0 

21.3366  52*661  0 

31.3367  0 0006  1 

31.3370  7 0131  0 

21.3371  50  002  0 

31  ,3372  21*661  0 

31 .3373  1C  002  1 

31.3374  1 3354  1 


TS  Q 
CA  E0ANK5 

TS  EBANK 

EBANK=  CG 
CA  bUF 

extend 

INDEX  Q 
MP  CG  +14 
INCR  bBANK 
EbANK=  UNRC/2 
INDEX  0 
OXCH  UNV.C/2 
EXTEND 

MP  BUF  +1 

INDEX  Q 

CAS  UNWC/2 

CCS  Q 

TCF  UNWCLOCP 


07021  REF  2 LAST  139 

07022  REF  1 


31.3375  3 1773  0 

21. 3376  55*677  I 


CA  AZBIAS 

TS  OGABIAS 


0703  REF  21  LAST  808  31,3377  24  006 

0704  REF  11  LAST  791  E7,1612 


INCR  BBANK 
EP.ANK=  PIF 


0705  REF  20  LAST  757 

0706  REF  1 

0707 

0708  REF  1 


31.3400 

31 .3401 
31, 34C2 
21,3403 


2 0076  0 
7 4741  0 
C 0006  1 
1 3411  1 


CA 

MASK 

EXTEND 

BZF 


PATESTOP 


0709  REF 

0710 

0711 


31.3404  3 0121  0 

31.3405  C 0006  1 

31  ,3406  1 3421  1 


EXVERT 


CA  OVFIND 

EXTEND 

eZF  +13 


0712  REF  32  LAST  807 

0713 


C 5567  0 EXCVFLCks  TC 
C1410  0 OCT 


ALARM 

C1410 


0714  REF 

0715 

0716  REF 

0717 

0718  REF 


32  LAST  795 
4 LAST  7Q5 
2 LAST  794 


31.3411 

21.3412 

31.3413 

31.341 4 

31.3415 


3 4737  0 
0 0006  I 
02  031  1 

0 0006  I 

1 3426  0 


RATESTCP  CAF 

EXTEND 

RAND 

EXTEND 

BZF 


eiT]3 
CHAN21 
DI SPEXIT 


17:53  OECo  19,1969  FLY  ^153  PAGE  808 

USER*S  PAGE  NCc  16  E7  S3 

RESULT  IS  0 IF  PROJ  - PROJMIN  NEGATIVE 


SET  OUTER  GIMBAL 

ANGLE  BIAS  FOR  WINDOW  BENDING 


IF  STEERSW  DOWN  NO  OUTPUTS 


IF  OVERFLOW  ANYWHERE  IN  GUIDANCE 
CCN*T  CALL  THRCTTLE  OP  FINOCDUW 


SOUND  THE  ALARM  NON-ABOR  T I VEL  Y. 


ARE  WE  IN  ATTITUDE-HOLD? 


YES 


GAP;  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
L LLNAR  LAADING  GUIDANCE  EQUATICNS 


17:53  DEC*  19,1969  FLY 
USER'S  PAGE  NC» 


cl53  PAGE  809 
17  E7  S3 


0719  REF  221  LAST  802 

0720  REF  5 LAST  796 


31,3A16  C 4616  1 
31,3417  40166  1 


TC  BANKCALL  NO:  00  A STOPPATF 

CAOR  STOPRATE 


0721  REF 


3 LAST  808  31,3420 


3426  0 


TCF  OISPEXIT 


0722  RLF  J 

072?  REF  129  LAST  807 

0724 

0725  REF  3 LAST  767 

0726 


31.3421  C 2144  1 

31.3422  0 6042  1 

31.3423  77624  1 

31.3424  61100  1 

31.3425  77776  1 


GOLMP] 


TC 

TC 

CALL 


EX  IT 


THPCTTLF 

INTPRET 

FI NOCDLU  -2 


A0727 


(CONTINUE  TO  CISPEXIT) 


R0730  GUIDANCE  LOUP  DISPLAYS 


0733 

0734 

0735 


REF  14  LAST  738 
REF  3 LAST  731 


31  ,3426  0 0006  1 

31,3427  3 4755  1 

31,3430  52  756  1 


CISPEX  IT 


EXTEND 

DCA  NEGO 

DXCH  -PHASE3 


KILL  GROUP 
RESTORED 


3:  ni SPLAYS  HI LL  BE 

BY  NEXT  GUIDANCE  CYCLE 


0736  REF 


LAST  809  31,3431 


ENCLLJCB 


OISPEXIT  +3 


0737  REF  12 

0738  RFF  2 

0739 

07  40  REF  127 


LAST  7fa3 


31  ,3432 

31.3433 

31.3434 


0 0006 
1 5155 


0 

0 

1 

I 


CS  FLA6WRD8  IF  FLUNOISP  IS  SET,  NO  DISPLAY  THIS  PASS 

MASK  FLUNDBIT 

EXTEND 

eZF  ENPOFJCB 


0741  REF  7 LAST  806 

0742  REF  1 


31 .3435  51'621  0 

31.3436  1 2404  1 


INDEX  HCHPHOLO 
TCF  WHATCISP 


0743  REF  1 

0744  REF  222  LAST  809 

0745  REF  3 LAST  739 


31,3437 
31,3440 
31,  3441 


3 3716  1 P63DISPS  CAF 
0 4616  I OISPCCMN  TC 
20466  1 CAOR 


V06N63 

BANKCALL 

REGOOSP 


0746  REF  3 LAST  799 

0747 

0748  REF  1 


31 .3442  3 1666  0 

21.3443  C CC06  1 

21.3444  1 3465  1 


P64CISPS 


CA  TREDES 

EXTEND 

BZF  RED-OVER 


HAS  TREDES  REACHED  ZERO? 

YES:  CLEAR  RE  CES  I C-N  AT  I CN  FLAG 


0740  REF 

0750  REF 

0751 

0752  REF 


5 

2 


1 


LAST  799  31,3445  4 C102  0 

LAST  799  31,3446  7 4746  1 

31,3447  0 0006  I 

31,3450  1 3467  0 


CS  FLAGWRC6  NO:  IS  PEDFLAG  SET? 

MASK  REOFLBIT 

EXTEND 

BZF  REDES-OK  YES:  00  STATIC  DISPLAY 


075^  REF  1 

0754  REF  223  LAST  809 

0755  REF  2 LAST  739 

0756  REF  29  LAST  787 


31,3451  3 3717  0 

31  ,3452  C 4616  1 

31. 3453  20460  1 

31.3454  I 6001  1 


CAF  V06N64  CTHERWISE  USE  FLASHING  DISPLAY 

TC  BANKCALL 

CAOR  REFLASH 

TCF  GOTOPOOH  TERMINATE 


GAP: 

L 

0757 

0758 

0759 

0760 

0761 

0762 

0763 

C764 

0765 

0766 

0767 

0768 

0769 

0770 

0771 

0772 

0773 

0774 

0775 

0776 

C777 

0778 

R0779 

R0781 

R0782 

0784 

0786 

R0787 

R0788 

R0789 

R079n 

R0791 

0792 

0793 

0794 


flSSEMBLe  REVISION  131  DF 
lunar  landing  guidance 


AGC  PROGRAM  LUMINARY  8Y  NASA  20211  12-091 
ECUAT ICNS 


REF  1 

REF  2 LAST  794 


21. 3455  1 3457  0 

31.3456  1 3442  1 


TCF  P64CEED 
TCF  P640ISPS 


17:53  DEC*  19,1969  FLY  cl53  PAGE  810 

USER'S  PAGE  NOo  18  E7  S3 

PROCEED  PERMIT  REDESIGNATIONS 
RECYCLE 


REF  150  LAST  805 
REF  3 LAST  799 
REF  4 LAST  799 


31,3457  3 4755  1 

31,3460  55'446  I 

31  ,3^‘61  55'445  1 


P64CEED 


CAF 

TS 

TS 


ZERO 
ELINCRl 
AZ  INCRl 


REF  52  LAST  777 
REF  4 LAST  797 


31.3462  0 5504  0 

31.3463  00143  1 


TC  UPFLAG  ENABLE  R ECES I GNAT  ION  LOGIC 

AORES  REOFLAG 


REF  128  LAST  809 


31,3464  1 5155 


TCF  ENCCFJO0 


REF  06  LAST 

REF  5 LAST 

REF  2 LAST 

REF  1 


797  31,3465 

910  31  ,3466 

009  31,3467 

31,3470 


0 5516  0 RED-GVER  TC 

00143  1 ADRES 

3 3717  0 REDBS-CK  CAF 

1 3440  0 TCF 


DOWNFLAG 
REOFLAG 
V06N64 
DI  SPCOMN 


REF  1 

REF  224  LAST  809 
REF  3 LAST  809 
REF  30  LAST  809 
REF  1 

REF  2 LAST  810 


31.3471  3 3720 

31.3472  C 4616 

31.3473  20460 

31.3474  1 6001 

31.3475  1 3477 

31  ,3476  I 3477 


1 VERTCISP  CAF 
1 TC 

1 CACR 

1 TCF 

1 TCF 

1 TCF 


V06N6O 

6ANKCALL 

REFLASH 

GCTCPOOh 

STCPFIRE 

STOPFIRE 


TERMINATE 

PROCEED 

V32E 


REF  225  LAST  810 
RFF  7 LAST  786 
KEF  129  LAST  810 


31,3477 

31.3500 

31.3501 

21.3502 


C 0004  0 

0 4616  1 
40154  0 

1 5155  1 


STCPFIRE 


INFINT 

TC  BANKCALL 
CACR  ZATTERCP 
TCF  FNOCFJCP 


GUIDANCE  FOR  P65 

ftftft9ft»«ftft««»ftftftft4*«4tft»ftftftft4«<444<ft«ftft«ftftftftftft«ftftftftftftftftftftftftft#ft#ft««ftftftftftftftftft«ftftft4««ft«««ftft«ft*4««ftftftft«ftftft»ftftftft«ftft**« 


REF  3 LAST  797 
REF  1 


31.3503  11'647 

31.3504  1 3510 


1 VERTGU  ID  CCS 
1 TCF 


WCHVERT 

P66VERT 


+0 


THE  P65  GUIDANCE  ECUATION 


IS  AS  FOLLOWS:- 


V2FG  - VGU 

AC6  = 

TAUVERT 


REF  130  LAST  809 
I 


31,3505 
31  ,3506 
31,3507 


0 6042  1 
77650  1 
65272  0 


P65VERT  TC 

GOTO 


INTPRET 


REF 


P65VERTA 


gap:  assemble  REVISION  131  OF  AGC  PPCGRAr'  LUMINARY  BY  NASA  2021112-001 

C L LLNAR  LANCING  GUICANCE  ECUA7ICNS 


17:53  DEC.  19,1969  FLY 
LSER*  S PAGF  NCo 


el53  PAGE  811 
1°  E7  S3 


R0797  GUICANCE  FOR  P66 


c 


REF  ^0  LAST  807 
REF  1 


'1,3510  C ^635 
31,3511  65300 


0 P66VERT  TC 

1 CADR 


PCSTJUMF 

P66VERTA 


c 

c 

L 


0808  REF  1 32,2000 

0809  32,3265 

0810  REF  2 LAST  90  TC  41: 


SETLOC  P66LCC 
BANK 

COUNT*  *S/F2DPS 


08U 

0812 

0813 

0814 

0814 

0815 


REF  4 LAST  708 
REF  35  LAST  756 
REF  31  LAST  780 
REF  1 
REF  1 

REF  55  LAST  777 


32.3265 

32.3266 
E7  ,1515 

32.3267 
32,3270 
12  ,3271 


3 7713  0 
C 5105  0 

C3305  1 
eAC67  1 
] 52  61  0 


RCCTASK 


CAF 

TC 

EBANK= 

2CADR 


TCF 


PP 1072 
F I NDVAC 
DVCNTR 
RCCCCMP 


TASKOVFR 


0616 

r 0817  KEF 

0810  REF 
0819 

^ 0820  REF 

0821  REF 


2 LAST  122 
9 LAST  804 

2 LAST  122 
1 


32,3273 
32,327A 
32,3215 
12  ,3276 
22  ,3277 


52375  1 
02511  0 
03627  1 
52141  1 
02517  0 
61151  1 


P65VERTA 


VLCAD  VSU 
V2FG 
VGU 

V/SC  GOTC 

TAUVERT 

AFCCALC) 


0822  REF  57  LAST  795 

0823 


32.3300  0 5353 

32.3301  00003 


1 P66VERTA  TC 
I OCT 


PHASCHNG 

00003 


TERMINATE  GROUP  3o 


L 

L 

L 


0624 
082  5 
0826 


REF  16  LAST  758 
REF  21  LAST  776 
REF  I 


32.3302  3 4777  1 

12.3303  0 5173  1 

32.3304  03265  0 


CAF  ISEC 

TC  TWIDDLE 

ADRES  ROCTASK 


0827 

0828  REF  151 

0829  REF  3 

0830 

0831  REF  3 

0832  REF  2 


LAST  010 
LAST  796 


LAST  796 
LAST  795 


32  ,3306 
12,3307 
32,3310 
32  ,3311 
32,3312 


C 0004  C 
3 4755  1 
57»746  C 
C 0006  1 
7 1756  0 
21'645  0 


ROOCOMP  INHINT 

CAF  ZERO 

XCH  POCCCUNT 

EXTEND 

MP  ROCSCALl 

DAS  VDGVERT 


UPDATE  DESIRED  ALTITUDE  PATEo 


c 

L 

2' 

c 


0833 

0834  REF  8 LAST 

0835  REF  3 LAST 

0036  REF  22  LAST 

0837  REF  3 LAST 

0838  REF  2 LAST 

0839  REF  2 LAST 


386 

796 

524 

366 

153 

374 


32.3313  0 0006  1 

32.3314  3 0040  0 

32.3315  52'764  1 

32.3316  52  071  0 

22.3317  3 CC41  1 

32.3320  57'?65  1 

32.3321  56  072  1 


0840 

C841 

0842 


REF  24 
REF  3 


LAST  757 
LAST  790 


22. 3322 

32.3323 

12.3324 


C 0CC6  1 
3 0025  0 
53' 762  1 


EXTEND  SET  OLDPIPAX,Y,Z  = PIPAX,Y,Z 

OCA  PIPAX 

DXCH  DLDPIPAX 

DXCH  PUPTREGl  SET  RUPTReGl,2,3  = CLOFIPAX.Y.Z 

CA  PIPAZ 

XCH  OLOPIPAZ 

XCh  RUPTRFG3 

EXTEND  SNAPSHOT  TIME  OF  PIPA  READING- 

OCA  TIME2 

DXCH  THISTPIP 


GAP  : 

L 

0843 

0844 

0845 

0846 

0847 

0848 

084<? 

0850 

0851 

0852 

0853 

0854 

0855 

0856 

0657 

0856 

0859 

0860 

0861 

0862 

0663 

0864 

0865 

0866 

0867 

0868 

0869 

0070 

0871 

0872 

0873 

0874 

0875 

0876 

0877 

0678 

0879 

0680 

0881 

0882 

0883 

0864 

0885 

0666 

0387 

0886 

0889 

0890 


ASSEMBLE  REVISION  131  CF  AGC  PPCCRAM  LUMINARY  BY  NASA  2021112-091 


17: 53  DECo  lo» 1969  FLY 


153  PAGE  812 


LUNAR  LANDING  GUICANCE 


EQUATIONS 


USER'S  PAGF  NCo  20  E7  S3 


REF  4 
REF  1 
REF  310 
REF  2 
REF  1 
REF  311 
REF  3 
REF  1 
REF  312 


LAST  811 

LAST  807 
LAST  153 

LAST  812 
LAST  811 

LAST  812 


32.3326 

32.3327 

32.3330 

32.3331 

32.3332 

32.3333 
22,  3334 
32,3335 


3 1763 
6 1157 

5 4 154 
3 1764 

6 11  60 
54  157 
3 1765 
6 1161 
54  161 


0 

0 

0 

1 

0 

1 

0 

0 


CA  OLDPIPAX 

AO  PIPATMPX 

TS  MPAC 

CA  OLOPIPAY 

AC  PIFATMFY 

TS  MPAC  +3 

CA  OLDPIPAZ 

AO  PIPATMFZ 

TS  MPAC  +5 


MPACIXI  = PIPAX  + PIPATMPX 

MPACIYI  = PIPAY  + FIPATMPY 

MPACIZI  = P1PA2  ♦ PIPATMPZ 


REF  5 
REF  3 
REF  23 
REF  3 
REF  3 
REF  2 
REF  8 
REF  4 
REF  4 
REF  2 
REF  3 
REF  5 


LAST  812 
LAST  795 
LAST  811 
LAST  796 
LAST  812 
LAST  105 
LAST  259 
LAST  812 
LAST  812 
LAST  105 
LAST  811 
LAST  812 


32.3336 

32.3337 
32  ,3340 

32.3341 

32.3342 

32.3343 

32. 3344 

32.3345 

32.3346 

32.3347 

32.3350 

22.3351 


‘4  1763  0 
6 1253  1 
6 0070  0 
55*766  0 
4 1764  1 
6 1254  0 
6 CC71  1 
55'770  1 
4 1765  0 
6 1255  1 
6 0072  1 
55*772  0 


CS  OLCPIPAX 

AD  TEMX 

AO  RUPTREGI 

TS  DELVRCC 

CS  OLOPIPAY 

AO  TEMY 

AO  RUPTRE62 

TS  DELVROD  +2 

CS  OLCPIPAZ 

AO  TEMZ 

AD  RUPTREG3 

TS  DELVRCD  +4 


REF  4 
REF  3 
REF  3 
REF  88 
REF  9 
REF  131 


REF  1 
REF  4 

REF  15 

REF  1 
KEF  6 

REF  2 

REF  6 

REF  14 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


812 

812 

812 

612 

812 

812 

805 

804 

810 


LAST  611 
LAST  796 


LAST  804 
LAST  795 
LAST  801 

LAST  807 


32.3353 

32.3354 

32.3355 

32.3356 
32,  3357 

32.3360 

32.3361 

32.3362 

32.3363 

32. 3364 

32.3365 

32.3366 

32. 3367 
32  ,3370 

32.3371 

32.3372 
32  ,3373 

22.3374 

32. 3375 

32.3376 

32. 3377 
32  ,3400 

32.3401 

32.3402 
32  ,3403 
32,3404 


54  160 
54  162 
55*253 
55*254 
55*255 
4 4753 
54  163 
0 6042 
65361 
26022 
03762 
77625 
01234 
00037 
63271 
27110 
01236 
74251 
02621 
53352 
03527 
45455 
53746 
03521 
77656 


1 

1 

1 

0 

0 

1 

0 

C 

1 

1 

0 

0 

1 

0 

0 

0 

0 

1 

1 

1 

0 

0 

1 

1 

1 

1 

1 


I TRPNTl 


DSL 

STORE 

DDV 


VSU 

VSL2 

VAO 

STOVL 

UNI  T 


ZERO 

MPAC  +1 

MPAC  +4 

MPAC  +6 

T EMX 

TEMY 

TEMZ 

ONE 

MODE 

INTPRET 

POOL 

KPIPl 

THISTPIP 


PIPTIME 

30D 

PDVL 

4SEC(28I 

GOT/? 

VXSC 

VBIAS 

VAO 

V 

STAOR 

240 

P 


ZERO  LO-OROER  MPAC  COMPONENTS 

ZERO  TEMX,  TEMY,  AND  TEMZ  SO  WE  WILL 
KNCW  WHEN  PEACACCS  CHANGES  ThEMe 


SCALE  MPAC  TO  M/CS  ♦Zl-TI  AND  PUSH  (6» 


STORE  UPDATED  VFLCCITY 


IN  24-290 


GAP: 

L 

C891 

0b92 

0893 

0894 

0695 

C896 

0897 

0898 

0899 

0900 

0901 

0902 

0903 

0904 

0905 

0906 

0907 

0908 

0909 

0910 

0911 

0912 

0913 

0914 

0915 

0916 

0917 

0910 

0919 

0920 

0921 

0922 

0923 

0924 

0925 

0926 

0927 

0928 

0929 

0930 

0931 

0932 

0933 

0934 

0935 

0936 

0937 

0938 

0939 

0940 
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17:53  DECo  19,196' 


FLY 


153  PAGE  813 


LUNAR  LANCING  GUIDANCE  EOUATICNS 


USER'  S PAGF  NC«  21 


£7  S3 


REF  8 


REF  9 


REF  6 
REF  4 
REF  10 


REF  3 
REF  2 


REF  7 


REF  2 


REF  10 
REF  2 


REF  4 
REF  6 

REF  2 
REF  3 


REF  5 

REF  3 
REF  6 
REF  4 

REF  1 

REF  7 
REF  1 

REF  7 
REF  2 


LAST  795 


LAST  813 


LAST  800 
LAST  319 
LAST  813 

LAST  811 
LAST  123 

LAST  812 

LAST  804 


LAST  787 
LAST  707 


LAST  804 
LAST  812 

LAST  812 
LAST  812 

LAST  612 

LAST  796 
LAST  813 
LAST  813 


LAST  796 


LAST  805 
LAST  792 


32.3405 

32.3406 

32.3407 

32.3410 

32. 3411 

32.3412 

32.3413 

32.3414 

32 .3415 

32.3416 

32.3417 

32.3420 

32.3421 
32  ,3422 

32.3423 

32.3424 
32  ,3425 

32.3426 

32.3427 

32.3430 

32.3431 

32.3432 

32.3433 

32.3434 
32  ,3435 

32.3436 

32.3437 
32  ,3440 
22,3441 
32  ,3442 

32.3443 

32.3444 
32  ,3445 

32.3446 

32.3447 

32.3450 

32.3451 
32  ,3452 

32.3453 

32.3454 
32  ,3455 

32.3456 

32.3457 
32,3460 
32,3<,61 

32.3462 

32.3463 

32.3464 

32.3465 

32.3466 


C0017  1 
72441  0 
00031  0 
17474  0 
00037  0 
41261  1 
20214  1 
03474  0 
45215  0 
CCC45  C 
02333  0 
17775  1 
C3474  0 
56221  0 
03645  0 
02541  C 
51515  1 
01236  1 
60471  0 
05652  0 
C0025  0 
77615  0 
45115  0 
06522  1 
47663  1 
77641  1 
00017  1 
00027  1 
45465  1 
50313  0 
03767  1 
53361  0 
26022  0 
02621  0 
65246  1 
03762  1 
65225  1 
03760  0 
03762  1 
17760  C 
55271  0 
25530  0 
41325  0 
03611  1 
25527  0 
56271  0 
C1244  1 
22006  1 
65215  1 
00001  0 


STORE  14C 
on  SLl 
240 

STCDL  HDQTOISP  UPDATE  ALTITUDE  PATE  FCR  NOUN  60 

300 

SL  OMP 

lie 

HDOTOISP 
DAD  OSU 
360 
/LAND/ 

STCDL  HCALCl  UPDATE  ALTITUDE  FOR  NOUN  60 

HOCTCI SP 
eCSU  DDV 

VDGVERT 

TAUROD 

PDVL  ABVAL  (2J 

GDT/2 

DDV  SR2 

GSCALE 
STORE  20D 

OAC  (0) 

PDVL  CALL  (2> 

UNITX 
CDU*NBSM 

DOT 

J 40 

STCRfc  22C 

BDOV  STAOP  (0) 

STOVL  /AFC/ 

DELVROD 
VXSC  VAD 

KP  IPl 
VBIAS 


ABVAL  POOL  (2t 

THISTPIP 

OSU  POOL  (41 

LASTTPIP 
THISTPIP 

STOOL  LASTTPIP  (2» 

cev  eonv  loi 

SHFTFACT 

POOL  OMP  (21 


FW EIGHT 
81  T]  H 
CDV  OOV 

MASS 

SCALEFAC 

OAC  POOL  (4) 

OD 
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USER' S PAGE  NCo  22  E7  S3 


09A1 

0942 

0943 

0944 

0945 

0946 

0947 

0948 
0940 

0950 

0951 

0952 

0953 

0954 

0955 

0956 

0957 
0956 

0959 

0960 

0961 

0962 

0963 

0964 
C965 

0966 

0967 

0968 

0969 
096? 
0984 


LAST  814 


REF  316 
REF  226 


LAST 

LAST 

LAST 

LAST 

LAST 


810 

809 

814 

809 


32,3467 

32,347C 

32.3471 

32.3472 

32.3473 
32  ,3474 

32.3475 

32.3476 
32  ,3477 

22. 3500 

32.3501 

32.3502 
32,.3503 
32  ,3504 

32.3505 

32. 3506 
32  ,3507 

32.3510 

32.3511 

32.3512 

32.3513 
32  ,3514 

32.3515 

32.3516 
32  ,3517 
32,  3520 

32.3521 

22.3522 

32.3523 

32.3524 

32.3525 


00025  0 
45271  1 
00027  1 
43205  1 
C2543  I 
03464  1 
56325  0 
02547  0 
01244  1 
56325  0 
02545  1 
01244  1 
442C6  0 
00003  1 
71240  1 
65514  1 
4] 545  0 
51C21  0 
C0003  1 
65514  1 
77745  1 
77745  1 
776C1  0 
00003  1 
17464  1 
77776  1 
52  155  1 
C 4616  1 
62147  I 
C 4616  1 
63431  I 


ODV 

DPP 


PUSH 

BMN 


20  C 
DSU 
22D 
DAD 

LAG/TAU 

/AFC/ 

ODV 

MA  XFQRCE 

MASS 

DDV 

MINFORCE 

MASS 

BOSU 

2D 

OLCAD 

AFCSPOT 

PUSH 

PPL 


DLCAD 
AFCSPOT  CLOAO 
SETPD 

STOOL 

nRPNT2  EXIT 
OXCH 


20 

AFCSPOT 


/AFC/ 

MPAC 

BANKCALL 
THROTTLE  +3 
BANKCALL 
OISPEXIT  +3 


(8) 
( 6 » 


( 4) 

(?)  ,(4) ,0R  (6) 
( 2 ) 


MPAC  = MEASURED  ACCFLERATI  0N>, 


PUT  UP  V06N60  DISPLAY  BLT  AVOID  PHASCHNG 


0985 

0986 

0986 
0907 

0987 
R0988 
R0990 
R0991 


32.3526 

32.3527 

32.3530 

32.3531 

32.3532 


00001 

QOOOO 

C4CC0 

ooono 

05075 


BIASFACT  2DEC 


655936  8-26 


REDESIGNATOR  TRAP 


0993 

0994 

0995 


0997 

0998 

0999 


REF 

REF 

REF 


LAST 

LAST 


11,2302 

11,2000 

11,2302 


559 

559 


11, 2303  0 0006  1 

11  ,2304  22  012  1 


BANK 

COUNT>i'  $S/F20PS 

56  016  0 PITFALL  XCF  BANKRUPT 
EXTEND 

QXCF  ORUPT 


GAP : 

L 

1000 

1001 

1002 

100? 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

R1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

102  0 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 
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ASSEMBLE  REVISION  131  CF  AGC  PRCCRAM  LUMINARY  BY  NASA  2021112-091 


LUNAR  LANDING  GUIDANCE 


EOLATIONS 


USER  'S  PAGE  NCo  23  E7  S3 


REF  5 LAST 
REF  18  LAST 


735 


560 


11,2305 
U ,2306 
11,2107 


C 5321 
00100 
1 527C 


TC  CHECKMM  IF  NOT  IN  P64,  NO  REASCN  TO  CONTINUE 

DEC  64 

TCF  RESUME 


RFF  5 

REF  1 
REF  3 
REF  49 
REF  2 
REF  15 
REF  22 
REF  1 
REF  19 


LAST  808 


LAST  156 
LAST  802 
LAST  142 
LAST  680 
LAST  811 

LAST  815 


11.2311 

11.2312 
11  ,2313 

11.2314 

11.2315 
11  ,2316 
11,2317 

11.2320 

11.2321 

11.2322 


0 0006  1 
CO  031  0 
4 0000  0 
7 2401  1 
*5*444  n 
3 4752  0 
55*443  1 
3 4756  1 

0 5173  1 
02326  1 

1 5270  0 


EXTEND 

READ  CHAN'31 

COM 

MASK  ALL4B1TS 
TS  ELVIRA 

CAF  TWO 

TS  ZFRLINA 

CAF  FIVE 

TC  TWIDDLE 

ACRES  RECESMCN 
TCF  RESUME 


REDESIGNATICN 


MONITOR  (INITIATED  BY 


PITFALL) 


REF 

REF 

REF 


LAST 

LAST 

LAST 


815 

559 

776 


REF  2 LAST  815 

REF  4 LAST  815 

REF  118  LAST  806 

REF  5 LAST  815 

REF  1 


11.2323  55*443  1 

11.2324  3 4757  0 

11.2325  0 5224  0 

11.2326  C 0C06  1 
11  ,2327  CO  031  0 

11.2330  4 0000  0 

11.2331  7 2401  1 

11  ,2332  57*444  1 

11.2333  54  CCl  1 

11.2334  11*444  0 

11 .2335  1 2324  1 


PREMONl 

PREM0N2 

REDESMCN 


CAF 

TC 

EXTEND 

READ 

COM 

MASK 

XCH 

TS 


ZERLINA 
SEVEN 
V ARCELAY 

31 

ALL4B I TS 
ELV  IRA 
L 

ELVIRA 

PRFM0N2 


DO  ANY  BITS  APPEAR  THIS  PASS? 
Y:  CONTINUE  MONITOR 


REF  119 
REF  1 
REF  4 
REF  1 
REF  5 
REF  28 

REF  16 
REF  56 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


815 
81  5 

797 
79  7 

797 
83  1 


11,2336 
11  ,2337 

11.2340 

11.2341 
11  ,2342 
11,2343 
U ,2344 

11.2345 

11.2346 


10  001 
1 2347 
11*443 
1 2323 
C 6022 
3 4740 
0 0006 
05  C13 
1 5261 


RESETRPT 


1 

1 

I 

0 

1 

C 

1 

0 

0 


CCS  L 

TCF  COUNT'EM 

CCS  ZERLINA 

TfF  PREMONl 

TC  C13STALL 

CAF  6IT12 

EXTEND 

WOR  CHAM  3 

TCF  TASKCVEP 


N:  any  LAST  PASS? 

Y;  COUNT  'EM,  RESET  RUPT,  TERMINATE 
N:  HAS  ZERLINA  REACHED  ZERO  YET? 

N:  DIMINISH  ZERLINA,  CONTINUE 
Y:  reset  R LPT,  TEPMINATE 


REF  33  LAST  808 
REF  6 LAST  815 
REF  3 


11,2347  3 4737  0 CCUNT*EM  CAF  BIT13 


11.2350  C 0006  1 

11.2351  C2  031  1 

11.2352  0 0006  1 

11,2351  1 2342  1 


EXTEND 

RAND  CHAN31 
EXTEND 

BZF  RESETRPT 


ARE  WE  IN  ATTITUDE-HOLD? 


YES;  SKIP  REDESIGNATIPN  LOGICo 


REF  120 
REF  1 


LAST  815 


11.2354 

11.2355 


3 0001  0 
7 4746  1 


NO 


GAP:  ASSEMBLE  REVISION  131  CP  AGC  PPCGBAN  LUMINARY  BY  NASA  2021112-091 

L LUNAR  LANCING  GUlCANCE  EQUATIONS 


17:53  OEC,  19,1969  FLY  -153  PAGE  816 

USER'S  PAGE  NC«  2*  E7  S3 


1042  REF  235 

1043  RFF  1 

1044  REF  5 

1045  REF  121 

1046  REF  ) 

1047  REF  236 

1048  REF  2 

1049  REF  6 

1050  REF  122 

1051  REF  1 

1052  REF  237 

1053  REF  1 

1054  REF  4 

1055  REF  123 

1056  REF  1 

1057  REF  236 

1058  REF  2 

1059  REF  5 

1060  REF  2 


LAST  806 

LAST  810 
LAST  815 

LAST  816 
LAST  816 
LAST  816 
LAST  816 

LAST  816 

LAST  810 
LAST  816 

LAST  816 
LAST  816 
LAST  816 
LAST  815 


11  ,2356 
11,2357 
11,2360 
11  ,2361 

11.2362 

11.2363 

11.2364 

11.2365 
11  ,2366 
11,2367 
11,2370 
11  ,2371 

11.2372 

11.2373 

11.2374 

11.2375 
11  ,2376 
11  ,2377 
11,2400 


10  000  0 
4 2402  1 
27'445  1 
3 0001  0 
7 4747  0 
1C  000  0 
3 2402  0 
27*445  1 

3 0001  0 
7 4753  0 
1C  COO  0 

4 2403  0 
27*446  I 
3 0001  0 
7 4752  1 
1C  000  0 
3 2403  1 
27*446  1 
1 2342  1 


-AZ 


+ AZ 


-EL 


+ EL 


CCS  A 

CS  AZEACH 

AOS  AZINCRl 

CA  L 

MASK  +AZ81T 

CCS  A 

CA  AZEACF 

AOS  AZINCRl 

CA  L 

MASK  -ELBIT 

CCS  A 

CS  ELEACH 

AOS  ELINCRl 

CA  L 

MASK  +ELeiT 

CCS  A 

CA  ELEACH 

ACS  ELINCRl 

TCF  RESETRPT 


R1061  THESE  EQUIVALENCIES  ARE  BASEC  CN  GSCP  CHAPTER  4,  REVISION  16  OF  P64LM 


1062  REF  38  LAST  717 

1063  REF  38  LAST  755 

1064  REF  36  LAST  746 

1065  PEF  43  LAST  791 


4746 


-AZ8IT 


BIT6 


11,2401  00063  1 ALL4B1TS  QCT  00063 

U,2402  01074  0 AZEACH  DEC  o03491 

11,2403  00217  0 ELEACH  DEC  .0087? 


2 DEGREES 

1/2  DEGREE 


R1071  PoOoD*  TRAP 
R1072 

1073  REF  1 


SETLQC  RODTRAP 


17:53  ceCo  19,1969 


If3  PAGE  817 


ASSEMBLE  REVISION  ?31  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211l2-0«’l 
LUNAR  LANOING  GUICAKCE  EGUATICNS 
23,2A55 


REF 


1 


FLY 

USER  • S PAGE  NC*  25  87  S3 

iiiif»^iiili^:tc:^^iif:til^t**:’>f*******#****=lr**A#*****‘** 


1077  REF  26  LAST  567  23,2A55  7 4745  1 CESC61TS  MASK  BIT? 


1078 

1079 

1080 
1081 
1082 


REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 

LAST 


816 
815 
812 
811 
01  5 


23, 2A56 
23,2457 

23.2460 

23.2461 

23.2462 


1C  CCO 
4 4752  I 
6 4753  1 
27'746  1 
1 5270  0 


TWO 

ONE 

RODCOUM 

RESUME 


COME  HERE  FROM  MARKRUPT  COOING  WITH  BIT 
7 OP  6 PF  CHANNEL  16  IN  A;  PIT  7 MEANS 
- RATE  INCREMENT,  BIT  6 + INCREMENT 


TRAP  IS  RESET  WHEN  SWITCH  IS  RELEASED 


1083 

1084 

1085 


31,3512 

31,2000 

31,3512 


4 LAST  796  TO 


BANK 

CCUNT4  tS/F2CPS 


R1087 

R1089 

R1090 


C0U6LE  PRECISION  ROOT  FINDER 


iLBRCUTINE  fBY  ALLAN  KLUMPPI 

if.#**#*#*:^!##*#*^!***#*#**#*^*#*****!***  >>##*#*****##«>!>*##>>*#♦* 


R1092 

R1093 

R1095 


RQOTPSRS  FINDS  ONE  RCOT  OF  THE  POWFR  SERIES  A 


R1097  USING  NEWTON'S  METHOD  STARTING  WITH  AN  INITIAL  GUESS  FOP  THE  ROGTo  THE  ENTERING  DATA  MUST  BE  AS  FOLLOWS: 


A1099 

AllOO 

AllOl 


ADRES  FOR  REFERENCING  PWR  COF  TABL 
N IS  THE  DFGREE  PF  THE  POWER  SERIES 
INITIAL  GUFSS  FOR  ROOT 


A1102 

A1103 

A1104 

A1105 


LOC 
LOC  + 


A(NI 

PRECROOT 


PREC  ROD  OF  RPCT  IAS  FFACT  OF  1ST  GUESS) 


R1106 

R1108 

RlllO 


THE  OP  RESULT  IS  LEFT  IN  MPAC  UPON  EXIT,  AND  A SP  COUNT  OF  THE  ITERATIONS  TO  CONVERGENCE  IS  LEFT  IN  MPAC*2<, 
RETURN  IS  NORMALLY  TC  LOCITC  P0CTPSRS)+3<,  IF  RQOTPSRS  FAILS  TO  CONVERGE  IN  8 PASSES,  RETURN  IS  TO  LCC+1  AND 
OUTPUTS  ARE  NOT  TO  BE  TRUSTED. 


Rllll  PRECAUTION:  RQOTPSRS  MAKES  NO  CHECKS  FOR  CVEPFLCW  CR  FCR  IMPROPER  USAGE.  IMPROPER  USAGE  COULD 

R1113  PRECLUDE  CONVERGENCE  OR  REQUIRE  EXCESSIVE  ITERATIONS.  AS  A SPECIFIC  EXAMPLE,  ROOTPSRS  FORMS  A DERIVATIVE 

Rin5  COEFFICIENT  TABLE  BY  MULTIPLYING  EACH  Adi  EY  I,  WHERE  I RANGES  FROM  1 TO  N.  IF  AN  ELEMENT  OF  THE  DERIVATIVE 

R1117  COEFFICIENT  TABLE  = 1 OR  > 1 IN  MAGNITUDE,  ONLY  THE  EXCESS  IS  RETAINED.  ROCTPSRS  MAY  CONVERGE  ON  THE  CORRECT 

R1119  fiCCT  NONETHELESS,  BUT  IT  MAY  TAKE  AN  EXCESSIVE  NUMBER  OF  ITERATIONS.  THEREFORE  THE  USER  SHCULD  RECOGNIZE: 

R1121  Iv  USER'S  RESPONSIBILITY  TO  ASSURE  THAT  1 X Ad)  < 1 IN  MAGMTUCE  FCR  ALL  1. 


USER'S  RESPCNSIBILITY  TO  ASSURE  OVERFLOW  WILL  NOT  OCCUR  IN  EVALUATING  EITHER  THE  RESIDUAL  OR  THE  DERIVATIVE 
POWER  SERIES.  THIS  OVERFLCW  WOULD  BE  PRODUCED  BY  SUBROUTINE  POWRSERS,  CALLED  BY  ROOTPSRS,  AND  MIOHT  NOT 


i 


R1127 

R1128 

R1130 

R 1132 

A1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 


1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

A1157 

1 158 

1159 

1160 
1161 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAf'  LUMINARY  BY  NASA  2021112-091 
LUNAR  LANDING  GUIDANCE  EQUATIONS 
PRECLUDE  EVENTUAL  CCNVERGENCEo 


17: 53  DECo  19, 1069  FLY 
USER'S  PAGE  NO* 


,153  PAGE 
£7  S3 


4o  THE  ITEPATiCN  CCUNT  RETURNfC  IN  MPAC+2  MAY  EE  USED  TO  DETECT  ABNORMAL  PERFORMANCFc 

STORE  ENTERING  DATA,  INITLIZE  ERASA6LES 


REF  1 
REF  1 
REF  317 
REF  1 
REF  1 
REF  318 


LAST 

LAST 

LAST 

LAST 

LAST 


618 

eia 

818 

812 


REF  321  LAST  810 
REF  1 

REF  322  LAST  818 


REF 

REF 

REF 

REF 

REF 


!23  LAST  818 


REF  2 LAST  818 
REF  324  LAST  818 


31.3512 

31.3513 

31. 3514 
31  ,3515 

31.3516 

31.3517 
31  ,3520 

31.3521 

31.3522 

31.3523 

31.3524 


31.3525 

31.3526 

31.3527 
3l,353C 

31.3531 

31 .3532 

31. 3533 
31  ,353A 
31,3525 
31,3536 


31,3537 

31.3540 

31.3541 

21. 3542 


0 0006  1 
22  132  X 
54  117  1 
52  160  1 
3 3635  1 
54  141  1 
54  161  0 
1C  160  1 
54  162  0 
3 4755  1 
54  163  1 


C CC06  I 

2 0155  0 
52  127  1 
50  157  1 

3 0005  1 
C 7312  0 
0 4713  C 

01226  0 
52  155  1 
52  125  0 


0 0006  I 
5 0117  0 
3 0004  0 
52  155  I 


1162  REF  325  LAST  818  31,3543  3 0160  0 


1163  REF  1 

1164  REF  90  LAST  817 

1165  REF  1 

1166 

1167  REF  3 LAST  818 

1168 

1169  REF  326  LAST  818 


31.3544 

31.3545 

31.3546 

31.3547 
31, 3550 


54  140 
6 4753 
0 7321 
C C006 
5 0117 


31.3551  3 C002  0 

31.3552  52  155  1 


RETRCCT 

PWRPTR 

MPAC 

DERTA6LL 

DERPTR 

MPAC 

MPAC 

MPAC 

ZERO 

MODE 


EXTEND 
DCA 
CXCH 
1 NOEX 


CACR 

OXCH 

OXCH 


MPAC 

ROOTPS 

MPAC 

5 

SHGRTMP 
USPRCACR 
ABS 
MPAC 
DXCPI  T 


EXTEND 

INDEX 

CCA 

UXCH 


DERCLOCP  TS 


PHRCNT 

ONE 

DMPNSUB 


RETURN  ADRES 
PWR  TABL  POINTER 
PWP  TABL  AOPFS,  N-1 

DER  TABL  POINTER 
OER  TABL  ADRES 

NO  POWER  SERIES  OF  DEGREE  I OR  LESS 
N-2 

MODE  USED  AS  ITERATION  COUNTER^  MODE 
MUST  BE  PCS  SO  ABS  WON'T  COMP  MPAC+3  ETC 

COMPUTE  CRITERION  TO  STCP  ITERATING 


FETCH  ROOT  GUESS,  KEEPING  IT  IN  MPAC 

AND  IN  ROOTPS 

PWR  TABL  ACRES 

PRECROOT  TO  A 

YIELDS  OP  PRODUCT  IN  MPAC 

YIELDS  ABVAL  OF  CRTTERICN  ON  OX  IN  MPAC 

CRITERION 

SET  UP  OER  CDF  TABL 


AIN)  TO  MPAC 
N-1  TO  A 
LOOP  COUNTER 

YIELDS  OERCOF  = I X A(II  IN  MPAC 

A(I-1I  TC  MPAC,  FETCHING  OERCOF 


GAP: 

L 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

A1178 

1179 

1180 

118] 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1102 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 
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LL^AR  I A^DI^G  GU  1 CANCE 


EQUAT  ICNS 


USER*  S PAGE  NCo  27 


E7  S3 


REF  2 

REF  51 
REF  4 
RFF  52 
RfF  3 
REF  2 
REF  1 


LAST  818 

LAST 
LAST 
LAST 
LAST 
LAST 


31.3553 

31.3554 
31', 3555 

31.3556 

31.3557 

31.3560 

31.3561 
31  ,3562 


5C  141  0 
52  004  1 
4 4752  1 
26  117  I 
4 4752  1 
26  141  1 
1C  140  0 
1 3544  0 


817 

618 

319 

819 

618 


INDEX  OEPPTR 

OXCH  3 

CS  TWO 

ACS  PWPPTR 

CS  TWO 

AOS  DERPTR 

CCS  PWRCNT 

TCF  DERCLOOP 


OERCCF  TC  DFR 
DECREMENT  PWR 
DECREMENT  OEP 


TABL 

PRINTER 

POINTER 


CONVERGE  ON  ROOT 


REF  2 LAST  818 
REF  327  LAST  818 

REF  328  LAST  919 
REF  ) 


31  ,3564 

21.3565 

31 .3566 

31.3567 
31,3570 


0 0006  1 ROOTLOOP  EXTEND 
3 0127  0 DCA  ROCTPS 

52  155  I OXCH  MPAC 

0 0006  1 EXTEND 

3 0162  1 OCA  MPAC 

0 7220  0 TC  POKRSERS 


FETCH  CURRENT  ROOT 
LEAVE  IN  MPAC 

LOAD  A,  L WITH  DER  TABL  AORES,  N-2 
YIELDS  DERIVATIVE  IN  MPAC 


REF  3 LAST  819 
REF  329  LAST  819 
REF  75  LAST  808 

REF  330  LAST  819 
REF  2 LAST  819 


31  ,3571  0 0006  1 

31  ,3572  3 0127  0 

31,3573  52  155  1 

31  ,3574  52  131  0 

31.3575  C C006  1 

31.3576  3 0160  0 

31  ,3577  0 7220  0 


EXTEND 

DCA  ROCTPS 

OXCH  MPAC 

DXCH  BUF 

EXTEND 
OCA  MPAC 

TC  POWRSERS 


CURRENT  ROOT  TO  MPAC,  FETCHING  DERIVTIVE 
LEAVE  DERIVATIVE  IN  BUF  AS  DIVISOR 

LOAD  A,  L WITH  PWP  TABL  ADRFS,  N-1 
YIELDS  RESIDUAL  IN  MPAC 


LAST  818 


TC  USPPCADR 

CADR  DOV/BODV  YIELDS  -DX  IN  MPAC 


REF  331  LAST  819 
REF  4 LAST  819 


21,36C2  C CC06  I 

31.3603  4 0155  1 

31.3604  20  127  1 


EXTEND 

DCS  MPAC  FETCH  DX,  LEAVING  -CX  IN  MPAC 

DAS  ROCTPS  CORRECTED  ROOT  NOW  IN  ROOTPS 


REF  4 
REF  2 

REF  2 
REF  332 


LAST  81.9 
LAST  818 

LAST  818 
LAST  819 


31.3605 

31 .3606 
31  ,3607 
3l,361C 
31  ,3611 


C 4713  C 
01226  0 
0 0006  1 
4 C125  0 
20  155  1 


TC  USFRCAOR 

CADR  A8S  YIELDS  ABS(DX)  IN  MPAC 

EXTEND 

DCS  DXCRIT 

DAS  MPAC  ABS(OX»-ABS(OXCRITI  IN  MPAC 


REF  11  LAST  818 
REF  33  LAST  790 
REF  240  LAST  817 
REF  2 LAST  818 


31.3612  2 G163 

31.3613  7 4750 

31.3614  10  000 

31.3615  C C132 


0 CA 

0 MASK 

0 CCS 

1 BAOROOT  TC 


MODE 

eiT4 

A 

PETRCCT 


KLUMPP  SAYS  GIVE  UP  AFTER  EIGHT  PASSES 


REF  1 
REF  1 
REF  I 
REF  334 


31 .3616 

31.3617 
31,3620 
31  ,3621 
31  ,3622 
31,3623 


24  163  0 
10  154  0 
1 3563  C 
1 3623  I 
1 3627  0 
10  155  1 


I NCR 
CCS 
TC  F 
TCF 
TC  F 
CCS 


MODE 

MPAC 

ROCTLOCP 

TESTLOOX 

ROCTSTOP 

MPAC 


INCREMENT  ITERATION  COUNTER 
TEST  HI  ORDER  DX 


TEST  LO  CRCER  CX 


GAP: 

L 

1212 

1213 

1214 

1215 

1216 

1217 

12lfl 

1219 

1220 

1221 

ftl222 

R1224 

ftl225 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

124^^ 

1245 

1246 

1247 

1248 

1240 

1250 

1251 

1252 

1253 

1254 

1255 

1256 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
LUNAR  LANDING  GUIDANCE  ECUATICNS 


REF  2 
REF  2 
REF  3 
REF  5 
REF  335 
REF  13 
REF  336 
REF 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


820 

819 

819 

819 

820 


21.3624 

21.3625 

31.3626 
*1,3627 

31 .3630 

31.3631 

31.3632 


1 3563  C 
1 3627  0 

1 3627  0 
52  127  1 
52  155  1 

2 C163  0 
54  156  1 


TCP 

TCF 

TCF 

RDQTSTOR  OXCH 
DXCH 
CA 
TS 


3 LAST  819  31  ,3633  50  132  1 

31,3634  1 0CC2  1 


RCCTLCCF 
ROOTSTCft 
ROCTSTDR 
KCCTFS 
MPAC 
MODE 
MPAC 
INDEX  RETROOT 


17:53  CECo  19,1969  FLY 
USER’S  PAGE  NCe 


153  PAGE  820 
67  S3 


STORE  SP  ITERATION  CCUNT  IN  MPAC+2 


00147  0 DERTA6LL  ADRES  DEPCCFN 


TRASHY  LITTLE  SUBROUTINES 


REF 

REF 

REF 

REF 

REF 


13 

2 

24 

22 

132 


LAST 

LAST 

LAST 

LAST 

LAST 


805 

806 
804 
773 


31 .3636 

11.3637 
31  ,3640 

31.3641 

21.3642 


51*346  1 INTPRETX  INDEX 
i-  2413  1 CS 

50  120  1 INDEX 

54  C46  1 TS 

1 6042  C TCF 


WCHPHASE 
TAPGTDE  X 
FIXLOC 
XI 

INTPRET 


SET  XI  ON  THE  WAY  TO  THE  INTERPRETER 


REF  17  LAST  306 
REF  1 

REF  4 LAST  317 


31.3643  3 1642  0 

31.3644  0 0006  1 

31  ,3645  7 4750  0 

31,2646  53*476  I 


TTF/8 

TSCAL  INV 
TTFOISP 


REF  9 
REF  32 
REF  2 
REF  3 
REF  22 
REF  23 
REF  18 
REF  19 

REF  1 
REF  1 
REF  3 
REF  124 
REF  125 
REF  126 
REF  1 
REF  21 
REF  4 
REF  5 
REF  6 
REF  207 


LAST  808 
LAST  8C8 
LAST  122 
LAST  820 
LAST  808 
LAST  820 
LAST  820 
LAST  820 


LAST  602 
LAST  816 
LAST  820 
LAST  020 

LAST  806 
LAST  809 
LAST  820 
LAST  820 
LAST  808 


21,3647 
31  ,3650 
E5,  1470 

31.3651 

31.3652 

21.3653 
E7  ,1642 

31.3654 

31.3655 
31  ,3656 
31,3657 
31,3660 
31  ,3661 
31,3662 
31  ,3663 

31.3664 

31.3665 
31  ,3666 
*1,3667 

31.3670 

31.3671 


3 1470  0 
24  006  1 
24  CC6  1 

6 1642  0 
0 0006  1 

7 3711  1 
6 37C6  C 
6 4735  1 
54  001  1 

4 COOl  1 
6 0001  0 
6 3710  1 
6 4733  1 
55*666  I 
4 1666  1 
27*666  1 
G 0002  0 


CA  EBANK5  TREOES  6ECCMES  2ERC  TWC  PASSES 

TS  E8ANK  BEFORE  TCGFAPPR  IS  REACHED 

EBANK=  TCGFAPPR 

CA  TCGFAPPR 

INCR  6BANK 

I NCR  BBANK 

6BANK=  TTF/e 

AD  TTF/8 

EXTEND 

MP  TREDESCL 

AD  -0EC103 
AO  NEGMAX 

TS  L 

CS  L 

AO  L 

AC  ♦0EC99 

AD  POSMAX 

TS  TREDES 

CS  TREDES 

ADS  TREDES 

TC  Q 


GAP:  ASSEMBLE  REVISION  131  CF  AGO  PRCGRAM  LUMINARY  BY  NASA  2021112-nQl 


J7: ?3  OeCo  19,196«  FLY 


- lf>3 


PAGE  821 


L LUNAR  LANDING  GUIDANCE  EOUATIONS 


USER'S  PAGE  NO.  29 


E7  S3 


1257  REF  3 

1258 

1259  REF  33 

1260 

1261  REF  2 


LAST  A50 
LAST  808 
LAST  808 


31 .3672 

31.3673 

31.3674 

31 .3675 

21.3676 


0 5642  1 
21406  0 

0 5567  C 
01406  1 

1 3411  1 


1406P0O 

1406ALM 


OCT 


pooono 

21406 
TC  ALARM 

OCT  01406  ■ 
TCF  RATESTCP 


R1264  SPECIALIZED  "PHASCHNG"  SU3RCLTINE 


1267  RFF  1 

1268  REF  2 LAST  225 

1269  REF  33  LAST  820 

1270  REF  127  LAST  820 

1271  REF  1 

1272  REF  34  LAST  821 

1273  REF  3 LAST  793 

1274  REF  241  LAST  819 


£3,1440  EeANK=  PHSNAME2 

31,3677  3 50C7  0 FASTCHNG  CA  EBANK3 


31,3700  56  003  1 

31  ,3701  52  002  1 

31,37C2  ?f'442  0 

31.3703  22  003  1 
E7,1621 

31.3704  0 0000  1 


XCF  EBANK 
OXCH  L 
TS  PHSKAME3 

LXCH  EBANK 
EBANK=  E2CPS 
TC  A 


SPECIALIZED  'PHASCFNG'  ROUTINE 


R127  5 #*#♦###**#**##**#«  #**^  ♦**«#«  ♦********#**♦**#*#*««♦**#* 

R1277  PARAMETER  TABLE  INDIRECT  ADDRESSES 


1280 

1281 

1282 

1283 

1284 

1285 


REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


122 

122 

122 

122 

122 


E5,14C2 
65,1410 
E5,1416 
E5,1424 
E5, 1426 
65 ,1430 


ROG  = R8RFG 

VOG  = VBRFG 

ACG  = A6RFG 

V0G2TTF  = VBRFG# 

A0G2TTF  = ASRFG# 

JCG2TTF  = J8RFG# 


R128B  LUNAR  LANDING  CONSTANTS 

R1289  **##♦•»**#$#**##«******##*#♦#*•###•*#*♦♦ 


129J 

1292 

1293 

1294 

1295 


REF  7 LAST  802 

REF  29  LAST  815 

REF  34  LAST  819 


31.3705  01565  0 TABLTTFL  ADRES  TABLTTF 

4740  TTFSCALE  = BIT12 

475C  TSCALINV  = BIT4 

31.3706  77630  1 -DEC103  DEC  -103 

31.3707  00155  0 P64Cn  CCT  00155 


ADDRESS  FCR  REFERENCING  TTF  TABLE 


Oo3  DEGREES  SCALED  AT  CDU  SCALING 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 


J7:53  DECo  19,1969  FL' 


:153  PAGE  822 


L LUNAR  landing  GUIDANCE  EQUATIONS 

12S6  31,3710  001A3  I +CEC99  DEC 

1297  31,3711  753A0  I 7RE0ESCL  DEC 

1298  31,3712  0026A  1 1800EGS  DEC 

1299  31,3713  00C56  1 l/2CeG  DEC 

1300  31,3714  01542  0 PROJMAX  DEC 


USER'S  PAGF  NCo  30  E7  S3 


+99 


-«08 

+ 180 

+ ,>00278 

*42262  B-3  SIN(25M/8  TO  CCMPARE  WITH  PROJ 


31,3715  C1022  0 PRCJMIN  DEC  *25882  6-3  SINUS'  »/9  TO  COMPARE  WITH  PROJ 


1302 

1303 


31,3716  C1477  1 V0eN63 
31  ,3717  01500  0 V06N64 


VN 

VN 


0663 

0664 


P63 

P64 


1304 


21,3720  C1474  1 VC6N60  VN  0660 


P65,  P66,  P67 


1305 

1306  REF  1 

1307 

1308  REF  1 


22,3647 

22,2000 

22,3647 


BANK  22 
SFTLOC  LANDCNST 
BANK 

COUNT*  $$/F20PS 


1309 
1300 

1310 

1310 

1311 

1311 

1312 

1312 

1313 
1313 

R1314 

R1316 


22,3647  00021  1 

22,3650  14161  1 

22  ,3651  01440  0 

22.3652  COCOO  1 

22.3653  14000  1 

22  ,3654  00000  1 

?2,3655  30000  1 

22.3656  00000  1 

22.3657  77534  0 

22,3660  45C74  0 


HIGHESTF  2CEC  4o34546769  B-12 
GSCALE  2CEC  100  B-n 

3/eDP  2DEC  *375 

3/40P  2DEC  *750 

CEPRCRIT  2CEC  -*02  6-1 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGPAP  LUMINARY  8Y  NASA  2021112-091 


L P70-P71 


0001 

0002  REF 
000? 


21  ,2006 
21,2000 
21,2006 


0004  REF  ?2  LAST  811  £7, ISIS 

0005  REF  1 


EeANK=  DVCNTR 
COUNT*  $t/Rll 


0006 

0007 

000b 

0009 

0010 
0011 
0012 
0013 


REF  17  LAST  757 
REF  4 last  706 
REF  242  LAST  821 
REF  57  LAST  815 
REF  3 LAST  609 

REF  1 
REF  1 


21.2006  4 0103  1 

21.2007  7 4747  0 

21, 2C10  10  000  0 

21  ,2011  1 5261  0 

21.2012  n*  055  1 

21.2013  1 2015  C 

21  ,2014  1 2125  I 

21,2015  55'714  C 


rioJrii 


+ 2 


CS 

MASK 

CCS 

TCF 

CCS 

TCF 

TCF 

TS 


FLAGWR07 

AVEGFBIT 

A 

TASKOVER 
PIPCTR 
+ 2 

LRHTASK 
PI PCTRl 


0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 


FEF  2 LAST  153 

REF  3 LAST  510 

REF  3 LAST  439 

REF  23  LAST  815 

REF  2 LAST  241 

REF  3 LAST  617 

REF  8 LAST  617 

REF  1 


E7,1714 
1 155 
21,2016 
21  ,2017 
21,2020 
21,2021 
21  ,2022 
21,2023 
21,2124 


2 6010  0 

0 5173  1 
02006  0 

3 4753  I 
7 0107  0 
C CCC6  1 

1 2030  1 


PIPCTRl 

PIPCTR 


RIC,R11A 

FLASHH? 


= LADOSAVE 

= PHSPRCT? 

CAF  GCT31 

TC  TWIDOLF 

ACRES  R10,Rn 

CAF  HFLSHBIT 

MASK  FLGWRDll 

EXTEND 

BZF  FLASHV? 


0023  REF  2 LAST  617 

0024  REF  128  LAST  821 

0025  REF  1 


21.2025  3 4747  1 

21.2026  54  001  1 

21  ,2027  0 4606  0 


CA  HLITE 

TS  L 

TC  FLIP 


0026  REF  I 

0027  REF  9 LAST  823 

0028 

0029  REF  1 


21.2030 

21.2031 

21.2032 

21.2033 


3 4752  0 
7 0107  0 
C 0006  1 
1 2037  0 


FLASHV? 


CA 

MASK 

EXTEND 

BZF 


VFLSH6IT 

FLGWRDll 

10 ,11 


0030 

0031 

0032 


REF  2 
REF  129 
REF  2 


LAST 

LAST 

LAST 


617 

823 

823 


21,2034 

21,2135 

21,2036 


3 4751 
54  001 
0 4606 


0 

1 

0 


CA  VLITE 

TS  L 

TC  FLIP 


0033  REF 

0034  REF 

0035 

0036  REF 


3 LAST  733 
2 LAST  733 

1 


21  ,2037  3 0105  0 

21.2040  7 4743  1 

21.2041  C 0006  1 

21.2042  I 2145  1 


10,11 


CA  FLAGWR09 
MASK  LETABBIT 
EXTEND 

BZF  LANDISP 


0037 

0036 

0039 

0040 


REF  13  LAST  795 
PEF  1 

REF  2 LAST  823 


21,  2043 
21  ,2044 

21 .2045 

21.2046 


4 1010  0 
6 2104  0 
0 0006  1 
1 2145  1 


P71NDW7 


CS  MCDREG 
AO  10EC71 
EXTEND 

BZF  LANDISP 


53  OECo  19,1969 


I 


FLY 

USER'S  PAGE  NCe 


153  PAGE  823 
1 60  S3 


IS  SERVICER  STILL  RUNNING? 

LET  AVGENO  TAKE  CARE  CF  GROUP  2. 


LAST  PASSp  CALL  LRHTASK^ 


H FLASH  OFF,  SO  LEAVE  ALONE 

FLIP  H LITE 

VFLASH6IT  MUST  BE  BIT  2« 

V FLASH  OFF 

FLIP  V LITE 

IS  THE  LETABORT  FLAG  SET  ? 

PROCEED  TO  R1C» 

VES«  ARE  WF  IN  P71  NOW? 

YESo  PROCEED  TC  Rin« 


} 

1 

3 

J 

J 

J 

J 

1 

J 

J 

J 

J 

J 

J 

2 

J 

J 


9 


gap:  assemble  REVISION  1.31  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


P7C-P71 


OOAl 

OOA?  REF  5 LAST  7<»2 

0043 

0044  REF  130  LAST  823 

0045  REF  35  LAST  621 

0046  REF  243  LAST  823 

0047  REF  2 LAST  243 


21,2047 

21.2050 

21.2051 

21.2052 

21.2053 

21.2054 

21.2055 


C 0006  1 
OC  030  1 
4 0000  0 
£4  CCl  1 
7 4750  0 
1C  000  0 
1 2073  C 


EXTEND 

READ  CHAN30 

COM 

TS  L 

MASK  BIT4 

CCS  A 

TCF  P71A 


0048 

0049 

0050 

0051 


REF  14  last  823 
REF  1 

REF  3 LAST  823 


21  ,2056 
21,2057 
21,2060 
2]  ,^061 


4 1010 
6 2103 
0 0006 
1 2145 


0 

1 

1 

1 


P70N0W? 


CS  M0DR6G 
AO  lDEC7n 
EXTEND 

BZF  LANDISP 


0052  REF  131 

0053  REF  39 

0054  REF  244 

0055  REF  2 

0056  REF  4 


LAST  824  21 

LAST  816  21 

LAST  824  21 

LAST  243  21 

LAST  824  21 


,2062  3 OCCl  0 
,2063  7 4753  0 
,2064  10  000  0 
,2065  I 2070  0 
,2066  1 2145  1 


CA  L 

MASK  BIT! 

CCS  A 

TCF  P7CA 

TCF  LANDISP 


0057  REF 


COUNT*  $$/P70 


0058  REF  1 

0059  REF  154  LAST 

0060 

0061  REF  2 LAST 

0062  REF  53  LAST 

0063  REF  208  LAST 

0064 
0C65 

0066  REF  1 

0067 


21,2067  0 

818  21,2070  4 

21,2C71  1 

824  21,2072  0 

819  21,2073  3 

820  21,2074  £■ 

21  ,2075  0 

21.2076  0 

21.2077  3 

21,2100  5: 


2105  1 P7C 
4755  0 P70A 
7C74  I 
2105  1 P71 

4752  0 P71A 
i 002  1 +3 

0004  0 
0006  1 
2102  0 
! 006  0 


TC  LEGAL? 

CS  ZERC 

TCF  +3 

TC  LEGAL? 

CAF  TWO 

TS  0 

INFINT 
EXTEND 

DCA  CNTABTAD 

OTCB 


0068 

0069 

0069 

0070 

0071 


REF  33  LAST  823  67,1515 

REF  1 21,2101 

REF  1 21,2102 

2l,21C3 
21  ,2104 


FBANK=  DVCNTR 

03413  1 CNTABTAD  2CA0R  CONTABRT 
12067  0 

CC106  0 10EC7C  DEC  70 
00107  1 1CEC71  DEC  71 


88?!  REF  1 

0074 

0075  REF  1 


5 5, '20 Jo 

05,3413 


BANK  05 
SETLOC  ABORTSl 
BANK 

CrUNT*  St/P70 


0076  REF  1 

0077  REF  1 

0078 


05.3413 

05.3414 

05.3415 


3 3416 
54  017 


1 

0 


5 0017  I 


CONTABRT 


RESUME 


ABRTJADR 

BRUPT 


0079  REF  1 

0080  REF  1 


05  ,3416  1 3417 

05,  3417  3 3477 


1 ABRTJACR  TCF 
0 ABRTJASK  CAF 


A6RTJASK 

nCTAL27 


17:53  DEC*  19,1Q69  FLY 


-.153  PAGE  824 


USER'S  PAGE  NC*  2 E7  S3 

NOo  IS  AN  ABORT  STAGE  COMMANDED? 


YES* 

NO*  ARE  WF  IN  P70  NOW? 

YES*  PROCEED  TO  RIO* 

NO*  IS  AN  ABORT  COMMANDED? 

YES* 

NO*  PROCEED  TC  R 1 T* 


GAP ; 

L 

0081 

0082 

0083 

ooe<» 

0085 

0086 

0087 

0088 

ooeQ 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

01  OO 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

Olin 

0111 

A0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 
P70-P71 


17:53  DECo  19,1969  FLY 
USER'S  PAGE  NCo 


’53  PAGE  825 
3 E7  S3 


REF  2C9 
PEF  132 

REF  6 
REF  210 
REF  1 
PFF  15 


LAST  824 
LAST  824 

LAST  742 
LAST  825 

LAST  824 


05', 3420 
05»3421 
15,3422 
05  ,3423 
05,  3424 
)5,3425 
05,3426 


6 0002  0 
54  CCl  I 
4 0000  0 
52  760  1 
50  CC2  0 
3 3476  1 
55*010  0 


AC 

TS 

COM 

DXCh 

INDEX 

CAF 

TS 


0 


-PHASE4 

Q 

M0DE7Q 

MOCRFG 


REF  24  LAST  752 


C5,3427  55'U2  1 


TS  DISPDEX  INSURE  DISPDEX  IS  PCSITIVE. 


PEF  211  LAST  825 
REF  16  LAST  752 
REF  11  LAST  752 
REF  17  LAST  825 
REF  1 

PEF  23  LAST  755 
REF  24  LAST  825 


05,3430  10  002  1 

C5,343l  4 C106  1 

05.3432  7 4737  1 

05.3433  26  106  I 

05.3434  4 3501  1 

05.3435  7 0111  1 

05.3436  54  111  1 


CCS  0 

CS  FLGWROin 

MASK  APSFLBIT 

ACS  FLGWRCin 

CS  DAPOITS 

MASK  DAPBOOLS 

TS  DAPBOOLS 


SET  APSFLAG  IF  P7U 

SET  APSFLAG  PRIOR  TO  THE  ENFMA^ 


OAPBITS  = OCT  40640  = BITS  6,8,9,15 
RESET  ULLAGE, DRIFT, XCVPIINH, AND  PULSES 


REF  1 

REF  3 LAST  797 


05,3437  3 35C2  0 

05,3440  55'343  0 


CAF  IDEGOB  INSURE  DAP  OEACBANC  IS  SET  TO  1 DEGREE 

TS  08 


PEF  25 
REF  5 
REF  26 


LAST  794 
LAST  755 
LAST  825 


15  ,3441 

05.3442 

15.3443 


4 0101  0 
7 4745  1 
26  101  C 


CS  FLAGWR05  SET  ENGONFLG. 

MASK  ENGCN81T 
AOS  FLAG1,R05 


REF  8 

REF  26 
REF  34 

REF  27 


LAST  755 

LAST  755 
LAST  815 

LAST  825 


05.3444 

05.3445 
J5,3446 
05  ,3447 
-15,3450 
05  ,3451 


02  011  0 
6 4737  0 
( 0006  I 
01  011  0 


CS  PRIOSn  INSURE  THAT  THE  ENGINE  IS  ON,  IF  ARMED# 

EXTEND 

RAND  DSALMOUT 
AD  B1T13 

EXTEND 

WRITE  DSALMOUT 


05.3452  ' 4735  1 

05.3453  54  107  0 


CAF  LRBYBIT  TERMINATE  R12o 

TS  FLGWRDll 


REF  23  LAST  597 
REF  1 

REF  24  LAST  825 


05.3454  4 0074  0 

05.3455  7 4752  1 

05.3456  26  074  0 


CS  FLAGWRCO 
MASK  RIOFLBIT 
AOS  FLAGWROO 


SET  RIOFLAG  TO  SUPPRESS  OUTPUTS  TO  THE 
CROSS-POINTER  DISPLAY# 

THE  FOLLOWING  ENEMA  WILL  REMOVE  THE 
DISPLAY  INERTIAL  DATA  OUTB  I To 


REF  25 
REF  6 


LAST  811 
LAST  755 


15,3457 
15  ,3460 
05,3461 


C 0006  I 
3 0025  0 
53*342  1 


EXTEND  LOAD  TEVENT  FOP  THE  DCWNLINK# 

OCA  TIME2 
DXCH  TEVENT 


REF  1 

REF  3 LAST  734 


15.3462  C 0006  1 

05.3463  3 3475  1 

05.3464  52'252  1 


EXTEND 

OCA  SVEXITAC 
DXCH  AVGEXIT 


REF 


05  ,3465  0 2653  0 


TC  ABTKLEAN 


KILL  GROUPS  1,3,  AND  6# 


gap:  assemble  REVISION  131  CF  AGC  PRCGPAM  LUMINARY  BY  NASA  202U12-C91 

L P70-P71 


0120 

0121 

0122 

0123 


05t3A66 
05  ,3467 

05.3470 

05.3471 


3 6220  0 
54  001  1 

4 CCOC  0 
52  760  I 


CAP  THREE 

TS  L 

COM 

DXCH  -PHASe4 


0124  REF  4<7  LAST  011 

0125  REF  1 


05,3472  0 4635  0 

C5,3473  12763  0 


TC  PCSTJUMP 

CAOR  ENEMA 


0126 

0127 

0127 

0120 

0129 

0130 


REF  34  LAST  824 
ref  6 LAST  757 


E7  ,1515 

05,3474  03746 
)5,3475  64C67 
35  ,3476  00106 
05,3477  C0C27 
05,3500  00107 


EBANK= 

1 SVEXI TAO  2CA0R 
1 

n M0CE70  CEC 
1 OCTAL27  OCT 
I H0CE71  DEC 


DVCNTR 

S6RVEXIT 

70 
27 

71 


0131 


C5,35C1  40640  1 DAPBITS  OCT  40640 


0132 

0133 
013* 
0135 


REF 


35,3502 
32  ,3533 
32,2000 
32,3533 


00554  0 10EG06 


OCT  00554 
BANK  32 
SETLCC  ABORTS 
BANK 


0136  REF 


COUNT#  $J/P70 


0137  REF  15  LAST  808 

0138  REF  35  LAST  826 


32.3533  3 4751 

32.3534  55'515 


0 GCABORT  CAF 
0 TS 


FOUR 

DVCNTR 


0139  REF  1 

0140  REF  27  LAST  780 


32.3535  3 3743  I 

32.3536  55*455  0 


CAF  WHICFACB 

TS  ViHiCH 


0141  REF  133 

0142 

0143  REF  1 

0144  REF  4 

0145 

0146  REF  5 

0147  REF  1 

0148 

0149  REF  1 

0150  REF  2 

0151 


LAST  820 

LAST  741 
LAST  757 

LAST  728 


32  ,3537 

32.3540 

32.3541 

32.3542 

32.3543 

22.3544 

32.3545 

32.3546 
32  ,3547 

32.3550 

32.3551 


0 6042  1 
43C14  0 
04665  0 
04265  I 
43C14  0 
C3670  0 
C6464  1 
45C14  0 
04462  0 
61071  0 
77776  1 


TC  INTPRET 

CLEAR  CLEAR 
FLPCS 
FLUNDISP 
CLEAR  SET 

lOLEFLAG 
ACC4-2FL 
SET  CALL 

P7071FLG 

INITCOUW 

EXIT 


0152  REF  6 LAST  815 

0153 

0154  REF  1 


32.3552  0 5321  1 

32.3553  CC106  0 70DEC 

32.3554  1 3667  1 


TC  CHECKMM 

DEC  70 

TCF  P71RET 


0155  RtF  134  LAST  826 

0156 

0157  RFF  1 

0158 


32.3555  C 6042  1 

32.3556  77624  1 

32.3557  65716  1 

32,3560  54345  1 


P7niMT  TC  INTPRET 

CALL 

TGnCOMP 
OLCAD  SL 


17:53  DECo  19,1969 


FLY 


PAGE  826 


c 153 

USER  'S  PAGE  NQo  4 E7  S3 

SET  UP  4e3SP0T  FCP  GCABCRT 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2C21112-091 

L P70-P71 


17:  53  DEC*  K,  1<?69  FLY 
USER'S  PAGE  NC* 


ol53  PAGE  827 
5 E7  S3 


0159  REF 

0160 
0161 

0162  KEF 

0163  REF 
016<»  REF 

0165 

0166  REF 

0167  REF 

0168  REF 

0169  REF 

0170 

0171  REF 

0172  REF 

0173  REF 

0174  REF 

0175 

0176  REF 

0177 

0178  REF 
0J79  REF 
01  80 

0181  REF 

0182  REF 

0183  REF 

0184 

0185  REF 

0186 

0187  REF 

0188  REF 

0189  REF 

0190 

0191  REF 

0192  REF 

0193 
Cl  94 

0195  REF 
01  96 

0197  REF 

0198  REF 
01  «9 

0200  REF 

0201 
0202 

0203  REF 

0204  *REF 

0205 

0206  REF 
02061  REF 

0207  *REF 


1 


10  LAST  814 
? LAST  120 

11  LAST  827 

1 

2 LAST  154 
2 LAST  159 

2 LAST  154 

1 

3 LAST  202 
1 

2 LAST  120 

2 LAST  749 

2 LAST  120 
1 

2 LAST  123 

3 LAST  318 

1 

2 LAST  123 


2 LAST  120 

2 LAST  154 

3 LAST  827 
3 LAST  327 


3 LAST  318 

1 

1 

2 LAST  123 


2 LAST  123 
1 

2 LAST  123 
2 LAST  231 
2 LAST  123 


32  f3561 
32  ,3  562 
32,3563 
32  ,3564 

32. 3565 

32.3566 

32.3567 
32,3570 
32  ,3571 

32.3572 

32.3573 
32  ,3574 

32.3575 

32.3576 

32.3577 
22,360C 
32  ,3601 

32.3602 

32.3603 
32  ,3604 

32.3605 

32.3606 

32.3607 
32,3610 
32  ,3611 

32.3612 

32.3613 
32  ,3614 

32.3615 

32.3616 

32.3617 

32.3620 

32.3621 

22.3622 

22.3623 
32  ,3624 

32.3625 

32.3626 

32.3627 
32,3630 
32  ,3631 
32,3622 
32,3633 
32  ,3634 

32.3635 

32.3636 

22.3637 
32,3640 
32  ,3641 
32,3642 


34003  0 
20205  1 
77665  1 
01244  1 
16271  1 
01244  1 
70471  1 
16C15  1 
03635  1 
03637  0 
03691  1 
77665  1 
25792  I 
16263  1 
39015  1 
C2267  0 
57535  0 
26002  1 
77702  1 
36265  0 
60275  1 
77745  1 
C2567  1 
26273  1 
57313  1 
45246  0 
02565  0 
75240  0 
65620  0 
02335  0 
03633  1 
95345  I 
03633  1 
02335  0 
77661  0 
20606  0 
C3693  0 
45014  0 
C4461  0 
71559  0 
51025  1 
02561  1 
65637  n 
52175  0 
C2551  1 
63642  1 
43175  0 
02555  C 
04470  0 
16621  0 


MDOTDPS 

40 

BOOV 

MASS 
STOOL  T6UP 
MASS 

DDV  SRI 

K( 1 /OV) 
STORE  1/DVl 
STCRE  1/CV2 
STORE  1/DV3 
BOOV 

KIATI 
STOOL  AT 

lOOPCTTC 
STCRE  TTC 
SLGAC  DCOMP 
OPSVFX 

SR  2 

STCALL  VE 

CCMMIMT 

INJTARG  OLOAD 

ABTRCDT 
STCALL  ROCTO 
YCOMP 

ABS  OSU 

YLI  M 
8MN  SIGN 

YCK 

STCRE  YCO 
YDK  DLCAD  OSU 

YCO 


OSU 

VLOAD 

VLCAC 


STCRPARM  STCDL 


50 

XRANGE 

CALL 

FLVR 

THE  TC  CMP 
6PL 

THETCRIT 
+ 4 

GOTO 
J1  PARM 
STCRPARM 
SET 

J2PARM 

ABTTGFLG 

JPARM 


INITIALIZE  ROOTD* 

COMPUTE  Y 

/Y/-OYMAX 

IF  <0,  XR<o5DEG,  LEAVE  YCO  AT  0 

IF  >0,  FIX  SIGN  OF  DEFICIT,  THIS  IS  YCO* 


IF  J2  IS  USFD,  SET  THE 
ABORT  TARGETING  FLAG 


GAP:  ASSEMBLE  REVISION  131  CF  A6C  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


L P70-P71 


0200  REF  2 LiST  15^ 

0209  REF  1 

0210 

0211  REF  1 


32f36A3  03631  0 
22»3£AA  C2625  I 
32,36A5  77AIA  0 
32  ,3646  04471  1 


RCO 

STORE  RP 
SET  EXIT 

ROTFLAG 


0215 

0216 


REF  I 

REF  58  LAST  811 

REF  53  LAST  810 
REF  1 


32,3647  C 3725  1 

32.3650  C 5353  1 

22.3651  04024  0 


32,3652  C 5504  0 
32  ,3653  00216  1 


LPTHROT  TC  THROTUP 


TC  PHASCHNG 

OCT  04024 


TC  UPFLAG 

ACRES  FLAP 


REF 

REF 


22.3654  C 4616  I 

32.3655  73707  0 


22.3656  C 3725  1 

32.3657  2 5027  1 

32  ,3660  0 5146  I 


UPTHROTl  TC  BANKCALL 

CAOR  P40AUT0 


TC  THRCTUP 

CAF  PRI017 

TC  PRIOCHNG 


0222 

0223 

0224 


LAST 

LAST 


82  5 
828 


22.3661 

22.3662 
32  ,3663 


(.  0C06  I 
2 3745  1 
53*252  1 


REF  130  LAST  810  22,3666  1 5155  1 


EXTEND 

OCA  ATMA6AD 
OXCH  AVGEXTT 


GRP4nFF  TC 
OCT 

TCF 


LAST  753 


ACRES 

CAF 


0232  REF  135  LAST  026 

0233 

0234  REF  1 

0235 

0236  REF  2 LAST  828 

0237  REF  I 

0238  RFF  2 LAST  826 

0239 

0240  REF  1 

0241 

0242  REF  15  LAST  770 

0243  REF  1 

0244 


32.3673 

22.3674 

32.3675 

32.3676 

22.3677 
32  ,3700 
32  ,3701 
32,3702 
32  ,3703 

22.3704 

32.3705 

32.3706 

22.3707 


C 6042 
77624 
60251 
45014 
C4707 
65704 
65716 
77650 
65606 
72545 
03517 
03502 
77776 


1 

1 

1 

0 

0 

1 

1 

1 

1 

c 

1 

0 

1 


OLDTIME 


TC  INTPRET 

CALL 

P12IMT 
BCN  CALL 

FLAP 
OLCTIME 
TGCCCMP 

GOTO 

INJTARG 
DLCAD  SLl 
TGO 

STCRF  TGCl 
EXIT 


17: 53  DECo  19, 1969  FLY 


: 153  PAGE  828 


USER’S  PAGE  NCe  6 67  S3 


verify  THAT  THE  PANEL  SWITCHES 
ARE  PROPERLY  SET* 


LET  SERVICER  FINISH  REFCRE  CONNECTING 
ASCENT  GUIDANCE  EOUATIONSo 


TERMINATE  USE  OF  GROUP  4o 


SET  DVMON  THRESHOLC  TO  THE  ASCENT  VALUEo 


IF  FLAP=0,  TGn=T-T  IG 


IF  FLAP  = l,TGn=2  TGO 


gap: 

L 

0245 

0246 

0247 

0248 

0240 

0250 

0251 

R0252 

0253 

02  54 

0255 

0256 

0257 

0259 

0259 

0260 

0261 

02  62 

0263 

0264 

0265 

0266 

0267 

0266 

0269 

02  70 

0271 

0272 

0273 

0274 

02  75 

C276 

R0277 

0278 

0279 

0280 

0281 

0282 

0283 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19,1969  FLY 


«153  PAGE  829 


P7n-P7i 


USFR' S PAGE  NCo  7 


E7  S3 


REF  60  LAST  828 


1 

0 


PHASCHNG 

C4024 


REF  2 LAST  828 
REF  16  LAST  828 
REF  1 


32  ,3712  C 0006  1 

32.3713  3 15C2  1 

22.3714  53‘517  1 

22.3715  1 3654  1 


EXTEND 
OCA  TGCl 
DXCH  TGQ 
TCF  UPTHRCTl 


REF  9 LAST  752  E7,1501  TGOl  = VGBODY 


REF 


LAST  823 


21,2105 

21,2000 

21,2105 


BANK  21 
SETLOC  Rll 
BANK 


REF 


2 LAST  824  TO  824: 


14 


14# 


COUNT*  S$/P70 


REF 


21 .2105 

21.2106 
21,2107 
21  ,2110 


4 

6 

0 

1 


0774  1 
1010  1 
0006  1 
2121  0 


LEGAL? 


REF  4 LAST  823 

REF  3 LAST  823 

REF  245  LAST  824 

REF  2 LAST  829 


21.2111  4 C1C5  1 

21.2112  7 4743  1 

21.2113  1C  COO  0 

21.2114  1 2121  0 


CS  MMNUMBER 

AD  MOORFG 

EXTEND 

BZF  A80RTALM 


IS  THE  DESIRED  PGM  ALREADY  IN  PROGRESS? 


ARE  THE  ABORTS  ENAELED? 


REF  18 
REF  5 
REF  246 
REF  212 
REF  7 
REF  10 
REF  50 
REF  6 


LAST  823 
LAST  823 
LAST  829 
LAST  825 
LAST  501 
LAST  462 
LAST  826 
LAST  568 


21  ,2115  3 0103 

21.2116  1 4747 

21.2117  10  COO 

21,2120  0 0002 

21.2121  0 4364 

21 .2122  0 4457 

21  ,2123  0 4635 

21,  2124  21051 


0 CA 

C MASK 

0 CCS 

0 TC 

1 A0CRTALM  TC 

0 TC 

0 TC 

C CADR 


FLAGWR07 

AVEGFBIT 

A 

Q 

FALTCN 

RELDSP 

POSTJUMP 

PINBRNCH 


IS  SERVICER  ON  THF  AIR? 


YES«  ALL  IS  WELLo 


REF 


LAST  826 


32.3716 
32,2r00 

22.3716 


BANK  32 
SETLOC  ABORTS 
BANK 


REF 


2 LAST  826  TC  829: 


115 


115* 


COUNT*  Sf/P70 


4444*444*4*44444#*4**44**44*4#4444***4*44444*#**#****#4*44***4##*****#44 


REF  22  LAST 
REF  37  LAST 

REF  17  LAST 


32  ,3716  45234  0 

717  32,3717  21574  1 

783  32,3720  03442  0 

32  ,3721  7766J  0 

22,2722  2C214  1 

829  32,3723  03517  I 


TGCCOMP 


RTB  OSU 

LOACTIME 

TIG 

SL 

110 

STORE  TGO 


gap; 

L 

0284 

R0285 

0284 

0267 

0288 

0289 

0290 

0291 

80292 

0293 

0293 

029* 

0294 

0295 

02  95 

02C6 

0296 

0297 

R0298 

0299 

0300 

0300 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17S53  DEC*  19,1969  FLY 


153  PAGE  830 


P70-P71 


USER'S  PAGE  NO*  8 E7  S3 


22,3724  77616  0 RVQ 


REF 

REF 

REF 


LAST 

LAST 

LAST 


REF  11  LAST 
REF  213  LAST 


825 

70C 

824 


790 

829 


32,3726 
12  ,3727 

22.3730 

32.3731 

32.3732 


3 4737 
54  C55 
3 4750 
C 00C6 
05  C14 
C CO  02 


0 

C 

1 

1 

1 

0 


THRCTUP 


CAF 

EXTEND 

hOR 


PIT13 

THRL5T 

BIT4 


CHAM4 

Q 


REF 


32  ,3733 

22.3734 

32.3735 
32  ,3736 
32,3737 
32,3740 
32  ,3741 

22.3742 

22.3743 


00000  1 
C1750  1 
00021  1 
33400  0 
11021  1 
00000  1 
00507  0 
256C5  0 
C2114  1 


msecs 

HINJECT 
(TGCJ  A 
K ( AT  ) 

Wh  ICHACR 


2CEC  1000 
20EC  18288  8-24 

2CFC  37000  6-J7 

2CEC  *02 
REMAOR  ABRTABLE 


60,000  FEET  EXPRESSED  IN  METERS* 


SCALING  CONSTANT 


it/4:iL^44i#44'^4;t‘tf4*4#4  444444*4#«i‘4*444*44  4*444##'#4444**444  44*4  4**44*4*44444* 


REF  36  LAST  826  E7,1515  EBANK=  DVCNTR 

REF  2 LAST  743  32,3744  03372  1 ATMAGAC  2CA0R  ATMAG 

22,3745  70067  1 


gap: 

L 

0001 

0002 

0003 

OOOA 

0C05 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

OOIA 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

003^ 

0035 

0036 

003  7 

003S 

0039 

0040 

0041 


17:53  CeC«,  '9,1969  FL 


PAGE  831 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARV  BY  NASA  2021112-091 
P12 


REF  1 

REF  37  LAST  830 
REF  1 

REF  61  LAST  829 

REF  229  LAST  828 
REF  9 LAST  780 

REF  10  LAST  547 


34,3700 
30, 2000 
30,2061 


E7,1515 


0 5353  1 P12LN 
C4C24  0 


0 4616  1 
11233  0 


0 6011  1 


BANK  24 
SETLOC  P12 
BANK 


EeANK=  DVCNTP 
COUNT*  $$/P12 


TC  PHASCf-NG 

OCT  04024 


TC  DANKCALL 

CACR  R02BCTH 


TC  CLRAOMCO 


USER'S  PAGE  NC» 


153 

1 EC  S3 


CHECK  THE  STATUS  OF  THE  IMUn 
INITIALIZE  PAOMCCES  FOR  R29<, 


REF  3 
REF  6 
REF  16 
REF  38 


LAST  828 
LAST  828 
LAST  826 
LAST  831 


30  ,2066 
30,2067 

30.2070 

30.2071 


3 6000  1 
55'25C  0 
3 4751  0 
55' 515  0 


CAF  THRESH2  INITIALIZE  DVMON 

TS  nVTHRUSH 

CAF  FOUR 

TS  DVCNTR 


REF  155  LAST  824  30,2072  3 4755  1 
REF  10  LAST  755  30,2073  55*462  1 


CA  ZERO 

TS  TRKMKCNT  SHOV,  THAT  R29  DOWNLINK  DATA  IS  NOT  READY 


REF  1 
REF  230 
REF  22 
REF  31 


LAST  83  1 
LAST  786 
LAST  810 


30,2C74 

30.2075 

30 .2076 

30.2077 
10,2100 
30,2101 


3 3C22  1 

0 4616  1 
20477  1 

1 6C01  1 
I 2102  I 
1 2074  1 


CAF  V06N33A 
TC  BANKCALL 

CAOR  GOFLASH 
TCF  GCTCPCCH 

TCF  +2 

TCF  -5 


FLASH  TIG 


PROCEED 

ENTER 


REF  62  LAST  83  1 


30.2102  0 5353  1 

30.2103  04024  0 


TC  PHASCHNG 

OCT  04024 


REF  136  LAST 

REF  5 LAST 

REF  2 LAST 

REF  1 

REF  6 LAST 

REF  1 

REF  2 LAST 

REF  2 LAST 

REF  2 LAST 

REF  1 

REF  10 


828  30,21C4 

30,2105 
780  30,2106 

826  30,2107 

30.2110 

30.2111 

780  30,2U2 

30.2113 

30.2114 

827  30,2115 
30,2116 

781  30,2117 
30,2120 

828  30,2121 

30.2122 

30.2123 

30.2124 


: 6042  1 
43014  0 
03067  0 
C6464  I 
43014  0 
00C75  0 
00270  1 
43014  0 
04464  C 
04461  0 
77624  1 
71343  0 
77624  1 
60251  1 

77745  1 P12LM0 
25740  0 
17517  1 


TC 

SET 

SET 

SET 

CALL 

CALL 

DLCAD 


INTPRET 

SET 

MUNFLAG 

ACC4-2FL 

CLEAR 

RIOFLAG 

RNOVZFLG 

SET 

FLPI 

FLVR 

GUIDIMT 

P12IMT 

(TGO  lA 
TGO 


INITIALIZE  WH  AND  /LAND/ 


SET  TGO  TO  AN  INITIAL  NOMINAL  VALUE* 


LAST 


829 


STCDL 


GAP : 

L 

0042 

00*3 

0044 

0045 

0046 

00*7 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

007* 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

008* 

0085 

0086 
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REF 

REF 

REF 


REF  21 
REF  28 


REF  2 
REF  25 


REF  29 
REF  15 
REF  3 


REF  16 
REF  9 
REF  2 


REF  4 
REF  1 
REF  4 
REF  1 
REF  4 


LAST 

LAST 

LAST 


829 

783 

781 


LAST  761 
LAST  801 


LAST  149 
LAST  761 

LAST  832 
LAST  fll2 
LAST  781 


LAST  832 
LAST  607 
LAST  827 

LAST  827 
LAST  318 
LAST  827 


20,2126 

30,2127 

20.2130 

20. 2131 

30.2132 

30.2133 

20.2134 

30.2135 

30.2136 
30,2-137 

30.2140 

20.2141 

30.2142 
30,2193 

30.2144 

30.2145 

30.2146 

30.2147 

30.2150 

30.2151 

30.2152 

30.2153 

30.2154 

30.2155 


340*1  0 
27056  I 
64375  I 
CCCC7  0 
01734  0 
77772  0 
27601  0 
00001  0 
52521  0 
01734  0 
37521  0 
67067  1 
53575  0 
03521  1 
37537  1 
57313  1 
57461  0 
20606  0 
17643  0 
21367  1 
16277  1 
3137J  0 
02273  0 
77776  1 


TIG 

STCALL  TDECl 

LEMPREC  ROTATE  THE  STATE  VECTORS  TO  THE 

VLOAO  MXV  IGNITION  TIMEo 

VATT 

REF  SMMAT 

VSLl 

STCVL  VIS  CCMFUTE  VIS  = VEL ( T I G I *2 ( -7 > M/ CS- 

PATT 
MXV  VSL6 

REFSMMAT 

STCALL  R COMPUTE  R = PO  S(  T I GI  *2  (-24 1 M, 

MUNGRAV  COMPUTE  GCT 1/2 ( T IG  ) *2 ( -7 JM /CSo 

VLOAO  UNIT 
P 

STCALL  UNIT/R/  COMPUTE  UMT/ft/  FCR  YCOMPo 

YCOMP 
SR  DCCMP 

50 

STOOL  XRANGE  INITIALIZE  XPANGE  FOR  NOUN  76. 

VI NJNCM 
STOOL  ZDOTD 

RDCTCNCM 
STORE  POCTO 
FX  IT 


REF  63  LAST  031 


30.2156  C 5353  1 

30.2157  04024  0 


TC  PHASCHNG 

OCT  r4C24 


REF  1 

REF  231  LAST  031 
REF  23  LAST  831 
REF  32  LAST  831 

REF  1 


30,2160  3 3021  1 NEULCAC  CAF  V06N76 


30.2161  C 4616  1 

30.2162  20477  1 

30.2163  1 6001  1 

30.2164  1 2166  0 

30.2165  1 2160  0 


TC  BANKCALL 

CADR  GOFLASH 

TCF  GOTOPOCF 

TCF  +2 

TCF  NEWLOAD 


FLASH  CROSS-RANGE  AND  AP0LUN6  VALUES: 


PROCEED 

ENTER  NEV.  DATA*. 


REF  1 

REF  28  LAST  826 


C 

0 


P12ACRES 
WHIC 


REF  64  LAST  832  30,2170  C 5353  I 

30,2171  C4C2*  0 


TC  PHASCHNG 

OCT  04024 


REF  137 
REF  5 


REF  4 
REF  4 
REF  10 


LAST  831 
LAST  832 


LAST  827 
LAST  827 
LAST  832 


30.2173 

30.2174 

30.2175 

30.2176 

30.2177 

30.2200 

30.2201 


0 6042  1 
54345  1 
03643  0 
20206  1 
77615  0 
C2335  0 
27633  1 
C3537  C 


TC  INTPRET 

DLOAO  SL 

XRANGE 

5D 

CAC 

Y 

STCVL  YCO 

UNIT/R/ 


I 


GAP; 
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L P12 


C087 

0068 

0089 

0090 

0091 

0092 

0093 
009A 
0095 
0006 
0097 
0090 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
01X1 
0112 

0113 

0114 

0115 

0116 
0117 

one 


REF  J 
REF  3 
REF  7 


REF  11 
REF  1 
REF  12 

REF  1 
REF  1 
REF  1 

REF  2 

REF  2 


REF  1 

REF  3 

PEF  3 
REF  15 

REF  13 


REF  2 
REF  65 


LAST  832 
LAST  812 

LAST  032 

LAST  833 


LAST  121 
LAST  121 

LAST  833 

LAST  310 
LAST  007 

LAST  833 

LAST  318 
LAST  832 


30.2202 

30. 2203 

30.2204 

30.2205 

30.2206 

30.2207 

20,2210 

30.2211 

30.2212 

30. 2213 

30.2214 

30.2215 

30. 2216 
30  ,2217 

30.2220 

30.2221 

30.2222 

30.2223 

30.2224 

30.2225 

30.2226 
30  ,2227 

30.2230 

30.2231 

30.2232 

20.2233 

30.2234 

30.2235 

30. 2236 

30.2237 

30.2240 

30.2241 


53361  0 
31365  0 
03601  0 
03527  1 
72A4J  0 
03537  0 
27474  0 
03537  0 
53435  0 
C3720  1 
37726  0 
60315  0 
777A5  1 
02361  1 
65316  0 
02355  0 
A3316  I 
75A54  0 
60230  0 
55352  0 
02355  n 
77736  0 
26363  0 
02253  0 
50256  0 
C3537  0 
65552  0 
77676  0 
02365  0 
77776  1 
C 5353  1 
04C2A  0 


P12RET 


YAUCUN 


VXSC  VAC 

49FPS 
V3  S 

STCRE  V 
DOT  SLl 

UNIT/R/ 
STOVL  ROCT 

UNIT/R / 
VXV  UNIT 

OAXIS 

STCALL  ZAXISI 
ASCENT 

DLCAD 

ATP 

DSC  POOL 

ATY 

DSQ  DAD 

6ZE  SORT 

YAWDUN 
SLl  BDOV 

ATY 

ARCSIN 
STCVL  YAW 

UNFC/2 
UNIT  DOT 

UNI T/R/ 
SLl  ARCCOS 

CCCMP 

STCRE  PITCH 

EX  IT 

TC  PHASCHNG 

OCT  04C24 


17:53  OECo  19,1969  FLY 
USER*  S PAGE  NCo 


153  PAGE  833 
E7  S3 


VITIPOVERI  = VUGN)  4 57FPS  (UNIT/R/I 

ROOT  * 2 (-7  » 


..c 

ATP(2)*2(ie) 

ATY(2)*2(18) 


0H9 

0120  REF  39  LAST 

0121  REF  3 LAST 

0122  REF  08  last 

0123  REF  2 LAST 


783 

783 

628 

831 


30,2242  C OC04  0 
30,22A3  C 6674  0 

30.2244  40143  0 

30.2245  C 5516  0 

30,2266  00213  I 


INFINT 

TC  IBNKCALL 
CACR  PFLITEDB 
TC  OOWNFLAG 
ADRES  FLPI 


0124  REF  51  LAST  829 

0125  REF  3 LAST  784 


30,2247  0 4635  0 

30,2250  76130  0 


TC  POSTJUMP 

CACR  eURNBABY 


0126 

0127  REF 

0128  REF 
0120  REF 
0130  REF 
013]  REF 

0132  REF 

0133  REF 


3 LAST  827 
3 LAST  827 

3 LAST  827 

1 

4 LAST  827 


30,2251  77745  1 P12INIT  DLOAD 


30.2252  16013  1 

30.2253  C3661  1 STORE 

30.2254  03637  0 STORE 

30.2255  17635  1 STCOL 

30.2256  16017  0 

30  ,2257  16263  1 STODL 

30,2260  16021  0 


INITIALIZE  ENGINE  CATAo  USED  FOR  P12  AND 
(1/DV)A  P71c 

1 /DV3 
1/DV2 
1/CVl 
(AT)  A 
AT 

( TEUP ) A 


GAP  : 


ASSEMBLE  REVISION  131  CF  AGC  PPCCRAM  LUMINARY  BY  NASA  2021112-091 


L P12 


0134 

0135 

0136 

0137 

0138 
(1139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0154 

0155 

0156 

0157 
01  58 

0159 

0160 
0161 


REF  3 


REF  2 
REF  3 


REF  3 
REF  2 

REF  1 
REF  7 
REF  3 
REF  B 
REF  2 
REF  5 
REF  2 
REF  1 

REF  5 
REF  30 

REF  2 


LAST  827 


LAST  827 

LAST  753 

LAST  827 

LAST  828 
LAST  827 


LAST  813 
LAST  828 
LAST  781 
LAST  154 
LAST  932 
LAST  120 


LAST  241 
LAST  832 

LAST  833 


30.2261 

30.2262 

30.2263 

30 .2264 

30. 2265 

30.2266 

30.2267 

30.2270 

30.2271 

30.2272 

30.2273 

30.2274 

30.2275 

30.2276 

30.2277 

30.2300 

30.2301 

30.2302 

30.2303 

30.2304 

30. 2305 
30,2  306 
30,23C7 

30.2310 

30.2311 

30.2312 

30 .2313 


16271  1 
34C13  1 
54276  0 
20214  1 
C2267  0 
57535  0 
26001  1 
77702  1 
02265  1 
A3414  1 
C4747  1 
60275  1 
A3345  1 
25736  1 
02333  0 
17631  0 
06524  1 
03654  0 
03633  1 
26275  0 
C1563  C 
64235  1 
C1555  0 
C1734  0 
77656  1 
03720  I 
77616  0 


STOOL 

OCOMP 

STORE 

SLOAD 

SR2 

STORE 

8CFF 


COMMINIT  DLOAO 


STOOL 

STCRE 

STORE 

STOVL 

VXV 


UNIT 

STCRE 

RVQ 


TBUP 

ATCECAY 

SL 

110 

TTC 

DCOMP 

APSVEX 

VE 

RVQ 

FLAP 

COMM  IN  IT 
DAO 

HINJECT 

/LAND/ 

RCC 

HI6ZER0S 

TXC 

YCO 

YOOTD 

VRECTCSM 

MXV 

PRECTCSM 

REFSMMAT 

QAXIS 


0162  REF 


30,2314  02024  0 P12ACReS  REMADR  P12TABLE 


0163  REF  I 

0164 

0165  REF  1 


SETLCC  ASEN’TS 
BANK 

CCUNT*  $$/P12 


0166 

0167  REF 

0168 

0169 

0170  REF 

0171 

0172  REF 

0173 

0174  REF 

0175 

0176  REF 

0177  REF 

0178  KEF 

0179  REF 

0180 

0181  REF 


6 LAST  743 

8 LAST  781 

23  LAST  829 

2 LAST  781 

31  LAST  834 
1 

4 LAST  801 
8 LAST  786 

e LAST  834 


3<(,3343  40220 

34,3344  01163  1 

3A,33^5  COCOl  0 

3^^,3346  41575  0 

34,3347  06516  0 

34.3350  41434  1 

34.3351  21574  1 

34.3352  77624  1 

34.3353  55716  1 

34.3354  74321  I 

34.3355  01734  0 

34.3356  16027  0 

34.3357  26325  1 

34.3360  02C23  1 

34.3361  52446  0 

34.3362  36333  1 


SETPD 
TEMPR60 
OD 

VLOAO  PUSH 
UNITZ 

RT6  PUSH 

LOACTI ME 

CALL 

RP-TC-P 
MXV  VXSC 

REFSMMAT 
MOONRATE 
STOVL  WM 
PLS 

ABVAL  SL3 
STCALL  /LAND/ 


0 GUIOINIT  STQ 


t 


17:53  OECs  FLY  ;153  PAGE  83A 

USER'S  PAGE  NC.  A E7  S3  t 

t 

I 

INITIALIZE  TARGET  CATAc  USED  BY  P12,  PTC 

AND  P71  IF  IT  DOES  ACT  FOLLOW  PTOo  ( 

I 

I 

I 

I 

( 

I 


t 


gap:  assemble  revision  131  CF  AGC  FRCGPAM  LUMINARY  BY  NASA  2021112-091 

L P12 


0182  REF  7 LAST  834  34,3363  01163  1 


TEMPR60 


0183 
0163 

0184 

0184 

0185 
0185 


34.3364  00046  0 

34.3365  07374  0 

34.3366  04145  0 

34.3367  15527  fl 

34.3370  00007  0 

34.3371  23346  1 


49FPS  2C6C 
VINJNOM  2DEC 
RCOTONOM  2DEC 


ol49352  e-6 
16«,7924  6-7 
*059436  B-7 


17:53  OECo  19,1969  FLY  153  PAGE  835 

USER'S  PAGE  NO*  5 E7  S3 

EXPECTED  ROOT  AT  TIPOVER 

5509*  5 FPS(AP0  = 30NM  WITH  P00T=196  5F  PS  » 

19*  5 FPS 


GAP : 

L 

0001 

0002 

0003 

OOOA 

0005 

0006 

0007 

0008 

0009 

001^ 

0011 

0012 

0013 

0014 

003  5 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

002  9 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 
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17:53  CeCo  19,1969  FLY 


153  PAGE  836 


ASCENT  GUICANCE 


USER'S  PAGE  NCp  J EO  S3 


REF 


34,3372 

34,2000 

34,3372 


BANK  34 
SETLOC  ASCFILT 
BANK 


REF  39  LAST  831  E7,1515 


EeANK=  DVCATR 


REF 


COUNT*  SS/ASENT 


REF  66  LAST 
REF  13B  LAST 

REF  2 LAST 
REF  2 LAST 

REF  2 LAST 
REF  1 

REF  1 

REF  15  LAST 

REF  10  LAST 
REF  1 

REF  3 LAST 
REF  337  LAST 
REF  A last 
KEF  A LAST 
REF  A last 
REF  1 
REF  139  LAST 

REF  2 LAST 
REF  5 LAST 

REF  5 LAST 
REF  5 LAST 

REF  A LAST 
REF  1 

REF  4 LAST 


REF  1 

REF  5 LAST 

REF  5 LAST 

REF  6 LAST 

REF  5 LAST 


34, 3373 

832  34,3374 
34,3375 

826  34,3376 

833  34,3377 
34  ,3400 

149  34,3401 

34  ,3402 

34.3403 

34.3404 
786  34,3405 

34,3406 
614  34,3407 

34.3410 

34.3411 
836  34  ,3412 

820  34,3413 

833  34,3414 

833  34,3416 

833  34,3416 
34,3417 

036  34,3420 

34,3421 
836  34,3422 

836  34,3423 

34,3424 
836  34,3425 

836  34,3426 

34,3427 

834  34,3430 
34,3431 
34  ,3432 

834  34,3433 

34.3434 

34.3435 

34.3436 
836  34,3437 

836  34,3440 

34, 3441 
836  34,3442 

833  34,3443 


CQ035  1 
0 6042  1 
77614  1 
C4705  1 
60315  0 
45345  1 
03S14  1 
26203  1 
43C4C  1 
60756  0 
C4267  0 
67214  1 
02676  1 
21446  C 
77471  C 
03514  1 
52  155  I 
53*641  1 
53'637  0 
53'635  1 
53'571  1 
0 6042  I 
43345  1 
03571  1 
C3635  1 
43215  0 
03637  0 
C3641  1 
41205  0 
02265  I 
21017  I 
65252  1 
r2271  1 
43342  0 
77625  0 
21014  1 
16271  1 
02265  1 
56342  1 
02271  1 
36263  0 


PHASCHNG 

00035 

INTPRET 


FLRCS 
ASCENT 
OLCAO  DSU 

ABOVCONV 
MINA80V 
6MN  CLEAR 

A SC  TERM4 
SURFFLAG 
CLEAR  SLCAD 

RENDMFLG 

BIT3H 

DOV  EXIT 

ABOVCONV 
DXCH  MPAC 

DXCH  I/DV3 

CXCH  1/CV2 

OXCH  l/OVl 

CXCH  1/OVO 

TC  INTPPFT 

OLOAO  DAD 

1/OVO 

1/OVl 

OAO  DAO 

1/CV2 
1 /DV3 

OMP  DMP 

VE 

2SECI  91 
SL3  POOL 

T8UP 

SRI  OAO 

DSU 

6SEC(18J 
STOOL  TBUP 

VE 

SRI  DDV 

TBUP 

STCALL  AT 


gap:  assemble  REVISION  131  OF  AGC  PRCGRAM  LUMINARY  0Y  NASA  2021112-091 

L ASCENT  GUIDANCE 


GCAe 

0049 


34.3444 

34.3445 


40315  0 

CQ004  0 BI73H 


17:53  DECo  19,1969 
USER' S PAGE 


FLY  153 

NCo  2 


PAGE 
E7  S3 


837 


gap;  ASSeMbLE  REVISION  131  CF  AGC  PRCGRAI^  LUMINARY  BY  NASA  2021112-091 

L ASCENT  GUIDANCE 

P0050 


0051 

0052  REF 

0053 

005A  REF 


30,2315 

7 LAST  39  30,2000 

30,2315 

2 LAST  39  TO  39:  2 2« 


BANK  30 
SETLCC  ASENT 
BANK 

COUNT*  SS/ASENT 


0055 

0056  REF  17 

0057  PEF  2 

0058  REF  2 

0059 

0060  REF  8 

0061  REF  2 

0062  REF  3 

0063 

006A  RFF  lA 

0065  REF  2 

0066 

0067  REF  9 

0068  REF  3 

0069  PEF  3 

0070 

0071  REF  2 

0072 

0073  PEF  ) 

007A  REF  15 

0075 

0076  REF  16 

0077  REF  10 

0078 

0079  REF  3 

0080 
0081 

0082  REF  2 

0083 

0084  REF  2 

0085 

0086  REF  1 

0087 

0088  REF  5 

0089  REF  3 

0090  REF  2 

0091 

0092  REF  A 

0093  REF  3 

009A 

0095  KEF  A 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


30,2315 

832  30,2316 

120  30,2317 

833  30,2320 
30,2321 

833  30,2322 

120  30,2323 

830  30,232A 

30,2325 
833  30,2326 

120  30,2327 
30,2330 

838  30,2331 

318  30,2332 

832  30,2333 

30,2339 
IA9  30,2335 
30,23  36 
30,2337 
836  30,23A0 

30 ,23A1 
838  30,23A2 

838  30,2343 

30,23AA 
836  a0,23A5 

30,23A6 
30,23A7 

121  30,2350 
30,2351 

826  30,2352 

30,2353 
30,235A 
30,2355 
832  30,2356 

836  30,2357 

121  30,2360 

30,2361 
838  30,2362 

83A  30,2363 

30,236A 
838  30,2365 


51575  1 
03521  I 
26301  1 
03726  1 
72AA1  0 
03527  1 
26313  I 
03726  1 
76A35  1 
03537  0 
C2303  0 
72AA1  0 
03527  1 
36311  1 
57313  1 
77775  1 
03563  1 
503A1  1 
271CA  1 
03537  0 
A7315  0 
03537  0 
03527  I 
56236  0 
02301  1 
A3352  1 
77626  0 
75A62  0 
A501A  0 
0A7A2  1 
60355  I 
7152A  1 
A53A5  1 
02277  1 
C2313  1 
023A3  1 
65361  0 
C3726  1 
02275  0 
77625  0 
C2311  0 


ASCENT 


+ 2 


VLOAD  ABVAL 
R 

STCVL  /R/MAG 
ZA  XI  SI 
DOT  SLl 

V 

STOVL  ZDOT 
ZAXISl 
VXV  VSLl 

UNIT/R/ 
STORE  LAXIS 
DOT  SLl 

V 

STCALL  YDCT 
YCOMP 

VLCAC 

GDTl/2 
V/SC  DOT 

2SEC(18I 
UNI  T/R/ 
POVL  VXV 

UNI T/R/ 

V 

VSO  oov 

/R /MAG 
SLl  DAO 
STAOR 

STORE  GEFF 
BOFF  CALL 

P7071FLG 
+ 2 

ZDGTCCMF 
OLOAD  OSLi 

ZOOTO 

ZOCT 

STORF  DZOOT 
VXSC  PDCL 

ZAXI  SI 
YDOTO 

OSU 

YOOT 


I 


17: 53  DEC.  19,1969  FLY 


„T53  PAGE  838 


USER'S  PAGE  NOo 


3 £7  S3 


ZoV  = Z00T*2(-8  )o 
Z0nT*2t-7) 


Z X UR  = LAXlS*2(-2) 
LAX  IS*2  (-1  ) 

LoV  = YD0T*?I-8)^ 
YDCT  * 2 (-7 ) 


LOAD  GDT1/2*2(-7)M/CS3 


G9UR*2(9)  = GR*2(9Ie 

STORE  IN  PDLIOI  (21 

LOAD  UNIT/R/*2 (-1 )o 

UR*2(-H  X V*2(-7)  = H/R*2(-8)^ 

H(2  I/R(2)*2(-16Io 
H(2l/R(3»*2(9»o 


GeFF*2(10IM/CS/CS 

IF  P7071  FLG  = 1 { UEo  P70  OR  P7JI 
CALL  ZOCTDCMP  TC  UPDATE  ZDOTC 
ON  THE  BASIS  OF  THE  LAST  RPe 


DZOOT 


(ZOOTD  - ZOOT)  *2  (7  I M/CS< 


GAP; 


ASSEMBLE  REVISION  131  OF  A6C  PROGRAM  LUMINARY  BY  NASA  2021112-C91 


L ASCENT  GUIDANCE 


0096 

0097 

0098 

0099 

0100 
0101 
0102 
0103 
OlOA 
0105 
C106 

0107 

0108 

0109 

0110 
0111 
0112 
0113 
OllA 

0115 

0116 
0117 
01  18 

0119 

0120 
0121 
0122 
0123 
012A 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 
0)4? 

0143 

0144 

0145 


REF  2 

REF  3 
REF  5 

REF  2 
REF  2 


REF  17 


REF  3 


REF  19 
REF  3 


REF  18 

REF  4 
REF  5 

REF  4 
REF  10 
REF  6 

REF  3 
REF  1 

REF  1 
REF  20 
REF  1 

REF  1 

REF  6 


REF  1 
REF  7 


REF  4 
REF  21 


REF  25 
REF  22 

REF  6 
REF  1 
REF  2 


LAST  121 

LAST  838 
LAST  832 

LAST  833 
LAST  121 

LAST  838 

LAST  202 

LAST  831 
LAST  838 

LAST  039 

LAST  839 
LAST  839 

LAST  807 
LAST  829 
LAST  839 

LAST  836 

LAST  839 

LAST  836 

LAST  836 

LAST  P34 
LAST  839 

LAST  741 
LAST  839 

LAST  826 

LAST  768 


30.2366 

30.2367 

30.2370 

30. 2371 

30.2372 

30.2373 

30.2374 

30.2375 

30.2376 

30.2377 
30,2400 
30,24C1 
30,2402 
3C,2403 

30.2404 

30.2405 

30.2406 

30.2407 
3 0,2410 

30.2411 

30.2412 

30.2413 

30.2414 

30.2415 

30.2416 

30.2417 
30  ,2420 

30.2421 

30 .2422 

30.2423 

30.2424 
30  ,2425 

30.2426 

30 .2427 

30.2430 

30.2431 
30,2  432 

30.2433 

30.2434 

30.2435 

30.2436 

30.2437 
30,?440 

30.2441 

30.2442 

30.2443 

30. 2444 

30.2445 

30.2446 

30.2447 


02341  0 
65361  0 
02303  0 
C2273  0 

77625  0 
C3474  0 
02337  1 
53361  0 
03537  0 
76455  1 

77626  0 
74131  1 
41345  0 
C3517  1 
C2315  I 
76561  1 
03537  C 
77645  0 
03646  0 
03646  0 
76521  0 
C2146  0 
27502  0 
03646  0 
43046  1 
04745  0 
60427  0 
??67)  1 
20001  1 
37517  0 
71475  1 
77650  1 
60754  I 
41471  0 
02265  1 
44342  I 
17772  0 
41205  0 
C2271  I 
77625  0 
02267  0 
03517  1 
57461  0 
20614  0 
17454  1 
03517  1 
45214  1 
03710  1 
60452  1 
21006  1 


MA  INENG 


STORE  PYCCT 
VXSC  POOL 
LAXIS 
ROCTC 

DSU 

RDGT 

STORE  OROCT 
VXSC  VAD 

UNIT/R/ 
VAO  VSLl 
STAOR 

STORE  VGVeCT 
OLOAD  DMP 
TGO 
GEFF 
VXSC  VSLl 

UNIT/R/ 

8VSU 

VGVECT 
STORE  VGVECT 
MXV  VSLl 

XNBPIP 
STTVL  VG8CDY 
VGVECT 
ABVAL  BCFF 
FLRCS 
MAINENG 

DOV 


STCALL 

GOTO 

OOV 

SRI 

CMP 

osu 

STORE 

SR 

STOOL 

BCN 


AT/RCS 

TGC 

RPCCMPl 

ASCTERM2 

PUSH 

V6 

BDSU 

NEARONE 

DMP 

T8LP 

TTC 

TGO 

OCOMP 

IID 

TTOGO 

TGC 

OSU 

IDLEFLAG 

T2TEST 

4SEC(17I 


17:53  CECo  19,1Q69  FLY 


153  PAGE  839 


USER  *5  PAGE  NCo  4 E7  S3 

CYCOT  = (YDOTD  - YDOT  ) #2  ( 7 IM /C  So 


ORCOT  = (RCOTD  - R COT ) *2 (7  I M/ CSo 


VG  = (DRDOT)R  + (CYCnT)L  ♦ (D200T)2o 
LOAD  TGO 
TGO  GEFF 


TGC  GEFF  UR 

COMPENSATED  FOR  GEFF 

STORE  FOR  DOWNLINK 

GET  VGeODY  FOR  NR5  DISPLAY 


MAGNITUDE  OF  VGVECT 
IF  FLRCS=0,CO  NORMAL  GUIDANCE 

USE  TGO=VG/AT  WITH  RCS 

THIS  WILL  BE  USFO  ON  NEXT  CYCLE 
COMPUTE  NEW  RP  FCR  NEXT  CYCLEo 


VG/VE  IN  PDL(0»  (21 

1 - VG  / 2 VF 


TBUP  VG(1-KT  VG/VE  I/VE  (01 

= TGC 

COMPENSATE  FOR  TAILCFF 


TGO>l'2(-28)CS 


( TGO  - 4 »*2(-17)CS< 


G&P:  ASSEMBLE  REVISION  131 
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0146 

0147  REF  1 

0148 

0149  REF 

0150 

0151  REF  1 

0152  PFF  1 

0153 

0154  REF  8 

0155  REF  24 

0156 

0157  REF  9 

0158  REF  1 

0159 

0160 
0161 

0162  REF  25 

0163  REF  10 

0164 

0165  REF  1 

0166  REF  1 

0167 

0168  REF  26 

0169  REF  I 

0170 

0171  REF  1 

0172  REF  2 

0173 

0174  REF  9 

0175  REF  2 

0176  REF  2 

0177  REF  1 

0178 

0179  REF  27 

0180 
0181 
0182 

0183  REF  28 

0184 

C185  REF  29 

0186  REF  3 

0187 

0160  REF  4 

0189  REF  4 

0190 

0191  REF  3 

0192 
0103 

0194 

0195 


30.2450 

30.2451 

30.2452 

30.2453 

30 .2454 

30.2455 

30.2456 

30.2457 

30.2460 

30.2461 
3 3 ,246  2- 

30.2463 

30.2464 

30.2465 

30. 2466 

30.2467 

10.2470 

30.2471 

30.2472 

30.2473 

30.2474 

30.2475 

30. 2476 
30  ,2477 
30,2500 
30,2  501 

30.2502 

30.2503 

30.2504 

30.2505 

30.2506 

30.2507 

30.2510 

30.2511 

30.2512 
30,2511 

30.2514 

30.2515 

30.2516 

30.2517 

10.2520 

30.2521 

30.2522 

10. 2523 

30.2524 
LAST  839  30,2525 

30.2526 

10.2527 

30.2530 

30 .2531 


77640  0 
30347  1 

77745  I T2TEST 
C3517  1 
50025  0 
21010  0 
60612  1 
45345  1 
02271  1 
03517  1 
450  71  0 
C2271  1 
61021  1 
41461  I 
20206  1 
44265  0 
03517  1 
02271  1 
4300  6 0 
C47C3  1 
60503  1 
45345  I 
C3517  1 
21012  1 
41044  0 
60510  0 
04463  1 

77745  1 NORATES 
06524  1 
02351  1 
36353  1 
60572  1 

45345  1 RATES 
03517  1 
00003  1 
72406  C 
52421  1 
03517  1 
41325  0 
03517  1 
03474  0 
45215  0 
02301  1 
03631  0 
41325  0 
02337  1 
00005  1 
62415  0 
56271  0 
00007  0 


BMN 

ENGOFF 

DLOAD 

76C 

DSU  BMN 
T2A 

CMPCNENT 
DLOAD  OSU 
TBUP 
TGC 

CCV  CALL 

TBUP 
L0GSU8 
SL  PUSH 

5 

BDDV  BOSU 
TGO 
TBLP 

PUSH  BON 
FLPC 
NORATFS 
CLCAD  DSU 
TGC 
T3 

BPL  SET 

RATES 

FLPC 

DLGAD 

HI 6ZER0S 
STCRE  PRATE 
STCALL  YRATE 
CONST 

CLCAD  OSU 
TGO 
020 

PUSH  SLl 
BOSU  SL3 
TGC 

POOL  OMF 
TGO 
RDCT 

DAD  DSU 

/R/MAG 
Rf  C 

POOL  DMP 

ORDGT 

f'40 

DAD  SL2 
OOV  DDV 
060 


23  LAST  839 


last  839 
LAST  840 

LAST  840 


LAST  840 
LAST  840 


LAST  840 


LAST  840 

LAST  834 
LAST  121 
LAST  121 


LAST  840 


LAST  840 

LAST  840 
LAST  839 

last  838 
LAST  834 


17:53  DECo  19,1969  FLY 

USER  'S  PAGE  NCe  5 


E7  S3 


IF  TGO  - T2  NFGc,  GO  TC  CMPONENT 


1-TGn/TBUP 


-L  IN  POLIOl 

-TG0/L*2l-17) 

TBUP  + TGC/L  = D12*2(-]7I 
STORE  IN  P0U2) 

IF  FLPC  = 1,  GO  TO  CONST 


FLPC=1 


p = n 
c = n 

GO  TO  CONST 


TGO  - 012  = 021*21-17) 

IN  POL (4  ) 

(1/2TG0  - D?l)*2(-13)  = E * 2(-13) 

IN  P0L(6  ) 

ROOT  TGO  * 2(-24  ) 

P + ROOT  TGC 
R + ROOT  TGO  - RCO 
MPAC  = - CR*2 (-24  )o 
-DR  IN  POLI 8) 

C21  DPD0T*2 (-24 ) 

(021  ORDOT-OR)*2(-22) 

(021  0R0CT-DP)/E*2 (-9) 
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019S 

0199 

0200 
0201 
0202 

0203 

0204 
02  05 
0206 
0207 
0206 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 
0227 
0226 

0229 

0230 

0231 

0232 

0233 
023* 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 


REF 

REF 

REF 

REF 

REF 


REF 

REF 


REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 

PEF 

REF 

REF 


30 

3 

1 

10 

4 
1 

11 

1 

2 

2 

12 

5 

31 

5 

5 

6 
3 


32 


3 

6 


4 


2 


840 

840 


840 

P41 


840 


LAST  841 

LAST  6*1 
LAST  841 

LAST  841 

LAST  841 

LAST  838 
LAST  832 

LAST  034 
LAST  839 


LAST  841 
LAST  840 
LAST  841 

LAST  840 

LAST  121 
LAST  8*1 

LAST  841 

LAST  121 


30|2533 

30»2534 

30.2535 

30.2536 

30.2537 

30.2540 

30.2541 

30.2542 

30.2543 

30.2544 

30.2545 

30.2546 

30.2547 
30,2550 
30,2  551 

30.2552 

30.2553 

30.2554 

30.2555 

30.2556 

30.2557 

30.2560 

30.2561 

30.2562 

30.2563 

30.2564 

30.2565 

30.2566 

30.2567 

30.2570 

30.2571 

30.2572 

30.2573 

30.2574 

30.2575 

30.2576 

30.2577 
30, 26C0 

30.2601 

20.2602 

30.2603 

30.2604 

30.2605 

30.2606 

20.2607 
30,261C 

30.2611 

30.2612 
30,2612 


71240  ) 
cC541  J 
06524  I 
36351  C 
60553  I 
56202  1 
02271  1 
51025  I 
26201  0 
60553  1 
41345  n 
26201  0 
02271  1 
77612  I 
02351  1 
77745  1 
03517  1 
43205  1 
02311  0 
02335  0 
65225  1 
03633  1 
02341  0 
43205  1 
00005  I 
56312  1 
40271  1 
03517  1 
00005  1 
02353  0 
41345  0 
02351  1 
00003  1 
56325  C 
02337  1 
00001  0 
45302  I 
77626  0 
61432  0 
02353  0 
65205  0 
60465  0 
02341  0 
77625  0 
COOOl  0 
02347  0 
43001  1 
OOOCl  0 


STORE  PRATE 

0MN  DLOAC 

f HK8MAG 
HI 6ZER0S 

STCALL  PPATE 
PRCK 

CHKBMAG  SR4  DOV 

TBUP 

DSU  BPL 

PRL  IM  IT 
PRCK 

OLOAD  DMP 

PRLIMIT 

T6UP 

SLA 

STCRE  PRATE 
PROK  DLQAD 

TGO 

OMP  DAO 

YDOT 
Y 

DSU  POOL 

YCO 
DYCCT 

OMP  DAD 

040 

SL2  DDV 

DDV  SETPD 

TGC 
04 

STORE  YRATE 

CONST  DLGAD  OMP 

PRATE 

02D 

POOL  OOV 

OROOT 
00  D 

SP2  DSL 

STAOR 

STCDL  PCCNS 

YRATE 

CMP  POOL 

BDDV  SR2 

DYOOT 

DSU 


STORE 
CMPCNENT  SETPD 


000 

YCONS 

BOFF 

000 


17:53  DEC*  19,1969  FLY 
USER  ' S PAGE  NCe 


^1«3  PAGE  841 
6 E7  S3 


B * 2(81 

0>O  NOT  PERMITTED 


B*2( 4) 

(R  / TAUI  ♦ 2(21) 


( R/  TAU)  * 2(  21  ) MAX-, 


B MAXo  *2(4) 
BMAX*2{e) 


YOOT  TGO 

Y + YDOT  TGO 

Y + YDOT  TGC  - YCO 

MPAC  = - DY*2(-24.)  IN  PCLfB)  (101 

C21  OYDCT  - OY  (8  ) 

(021  DYOOT  - OY  )/E*2(-9  > 

(021  OYDOT  - OYI/E  TGC*2  (6  ) 

= 0*2(81 


LOAD  8*2(8) 

B D12*2(-9) 

C12  6 IN  PCL  (4  ) (61 

LOAD  ORDOT*2(-7) 

-ORDOT/L*2(-7) 

(-ORDOT/L-D12  B)=A*2(-9)  (4) 


0*2(01 

012  D,EXCH  WITH  -L  IN  PDL(n)  (2,2) 

-OY  CnT/L*2(-9  ) 


(-0Y0OT/L-012  D)=C*2(-9) 


gap: 

L 

0246 

0247 

0248 

0249 

02  50 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

02  5 8 

0250 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

02  76 

0277 

0278 

0279 

0280 

0281 

02  82 

0283 

0284 

0285 

0286 

02  87 

0288 

0280 

0290 

0291 

0292 

C293 

0294 

02  95 
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USER'S  PAGE  NCa  7 E7  S3 


REF  3 LAST 

REF  I 

REF  1 

REF  7 LAST 

REF  3 LAST 

REF  13  LAST 

REF  4 LAST 

REF  2 LAST 

REF  2 LAST 

REF  5 LAST 

REF  3 LAST 

REF  14  LAST 

REF  4 last 

REF  4 LAST 

REF  3 LAST 

REF  19  LAST 

REF  6 LAST 

REF  7 LAST 

REF  1 

REF  1 

REF  11  LAST 

REF  3 LAST 

REF  3 LAST 

REF  5 LAST 


838  20,2(14 

30.2615 

30.2616 
30,26)7 

30.2620 

30.2621 
841  30,2622 

30,2623 
841  30,2624 

841  30,2625 
30,2626 

839  20,2627 

121  30,2630 

842  30,2631 
30,2632 

841  30,2633 

841  30,26?4 
30,2635 

842  30,2636 

832  20,2637 
30,2640 

839  30,2641 

84?  30,2642 

30 ,2643 
839  20,264<; 

30 .2645 

30.2646 
836  30,2647 

30.2650 

30.2651 

30.2652 
842  30,2653 

30.2654 

30.2655 

30.2656 

30.2657 

30.2660 

20.2661 

30.2662 

30.2663 

30.2664 

30 . 2665 

30.2666 

30.2667 
841  30,2670 

30,2671 
838  20,2672 

833  30,2673 
30,2674 

838  30,2675 


C4742  1 
60620  0 
77624  1 
71501  0 
41345  0 
27104  1 
02351  1 
56215  1 
02345  1 
02271  1 
45352  1 
C2215  1 
16357  1 
27104  1 
43205  1 
02353  0 
02347  0 
72471  0 
02271  1 
02355  0 
65361  0 
02303  0 
C2357  1 
53361  0 
03537  0 
41572  1 
65246  1 
02263  1 
45316  1 
00C43  0 
41525  0 
02263  1 
45316  1 
00043  0 
71240  1 
6C663  I 
00011  1 
52166  1 
60671  1 
55345  0 
00007  0 
77761  1 
00001  0 
14001  0 
06524  1 
77765  0 
02343  1 
02361  1 
77761  1 
03726  I 


CALL 

+3  OLOAD 

CAD 

SLl 

STOOL 

OMF 

DDV 

STCRE 

vxsc 

vxsc 

VSLl 

ABVAL 

DSC 

POOL 

DSQ 

BMN 

SCRT 

NC-ATP  OLOAD 

vxsc 

STOOL 

AIMER  SIGN 
STORE 

vxsc 


P7071 FLG 
+ 3 

RPCCMP2 

DMP 

lOOCS 

PRATE 

DDV 

PCCNS 

TBUP 

OSU 

6EFF 

ATP 

lOOCS 

DAO 

YRATE 

YCCNS 

SLl 

TRUP 

ATY 

POOL 

LAX  IS 

ATR 

VAD 

UNIT/R/ 

PUSH 

POOL 

AT 

DSU 

34C 

PUSH 

AT 

OSU 

34D 

DLOAO 

NC-ATP 

8D 

GOTO 

AIMER 

BDOV 

60 

000 

000 

HI  6ZER0S 

DZDCT 

ATP 

ZAXISI 


IF  P7C71FLG  = I (loE*  P70  OR  P71) 
COMPUTE  NEW  PP  FOR  NEXT  CYCLE- 


BIT-TO )*2 (-9  ) 

(A+B( T-Tn» )*2(-9) 
(A+8(T-Tn| )/TBUP#2(8l 


ATR#2  (9  ) 


(C+0(T-Tn ) 


ATY*2  (9  ) 

ATY  UY*2(8)  (6» 

(0> 

(6  ) 

I 8 ) 

I 12  » 

(AT  (2)KR(2»-AH(2)  M2I18)  (10> 

=ATP3#2(18I 

IF  ATP3  NFG.GO  TO  NO-ATP 
LOAD  ATP2,  IF  ATP3  PQS 

ATP*2(9 ) 

KR  AT/AH  = KH  (8) 

KH  AH*2(9I 

STORE  NEW  Ah  IN  POLIO  ) 


AH*2(9»  IN  PDL(O) 
AH( 2)  IN  PDLI 34) 
AHMAG  IN  P0LI6  ) 

( ATI 21-AHI 2 I )*2 (1 8 I 
=ATP2*2(18) 


ATP  ZAXIS  *2(8)« 


GAP; 

L 

0296 

02  97 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0306 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 
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ASCENT  GUIDANCE 


USER'S  PAGE  NCo 


E7  S3 


REF  16 


REF  3 
REF  1 

REF  3 
REF  \ 

REF  20 
REF  7 
REF  3 

REF  16 
REF  1 

REF  2 
REF  1 

REF  5 
REF  i 
REF  2 

REF  1 

REF  5 
REF  1 
REF  247 
REF  1 
REF  140 

REF  4 


REF  6 
REF  2 
REF  248 
REF  2 
REF  13 
REF  3 
REF  249 
REF  3 
REF  1 
REF  232 
REF  1 

REF  131 


LAST  833 


LAST  833 


LAST  831 


LAST  842 
LAST  808 
LAST  034 

LAST  612 


LAST  828 


LAST  797 
LAST  842 
LAST  843 


LAST  829 

LAST  829 

LAST  836 

LAST  809 

LAST  843 
LAST  843 
LAST  843 
LAST  843 
LAST  809 
LAST  809 
LAST  843 
LAST  843 

LAST  832 


LAST  828 


10.2676 

30.2677 

30.2700 

30.2701 

30.2702 
30,27C3 

30.2704 

30.2705 
3C,2706 
30,2707 

30.2710 

30.2711 

30.2712 

30.2713 

30.2714 

30.2715 

30.2716 

30.2717 

30.2720 

30.2721 

30.2722 

30.2723 

30.2724 

30.2725 

30.2726 

30 .2727 

30.2730 

30.2731 
30  ,2732 

30.2733 

30.2734 

30.2735 

30.2736 

30.2737 

30.2740 

30.2741 

30.2742 

30.2743 

30.2744 
30  ,2745 

30.2746 

30 . 2747 

30.2750 

30.2751 

30.2752 

30.2753 

30.2754 

30.2755 

30.2756 

30.2757 


53372  1 
00001  0 
03253  0 
430C1  I 
00001  0 
04704  0 
60216  1 
77614  1 
04701  0 
60763  0 
57575  1 
C3537  0 
17261  1 
03654  0 
51025  1 
01234  0 
60730  0 
77614  1 
04711  1 
57273  Q 
43014  0 
06666  1 
C4702  0 
60730  0 
77614  1 
01664  1 
77776  1 
3 C105  0 
7 476^2  0 
10  000  0 

1 2755  0 
C 6042  1 

77624  1 
61100  1 
77776  1 

2 01C5  0 
7 4742  0 
1C  000  n 
1 2755  0 

3 0104  1 
7 4742  0 
10  000  0 
1 2755  0 
3 3020  0 
C 4616  1 

20444  1 
77776  1 
1 5155  1 
77776  I 
0 0004  0 


VSLl 

STORE 

SETPO 


BON 


MAINLINE  VLGAO 
STODL 
OSU 


BUN 


CLRXFLAG  CLEAR 


CLEAR 

ASCTERM  EXIT 
CA 

MASK 

CCS 

TCF 

TC 

CALL 


VAC 

000 

UNFC/2 

BCN 

OOD 

FLPI 

P12RET 

FLVR 

CHECKALT 
VCOMP 
UNI T/R/ 
UNWC /2 
TXO 
BPL 

PIPTIME 

ASCTERM 

ROTFLAG 

ANGICHEK 

BON 

XCVINFLG 
P7071 FL6 
ASCTERM 

N0R29FLG 

FLAGWR09 
FLRCSBI T 
A 

ASCTERV3 

INTPRET 


F INDCDLk  -2 


ASCTERMl  EXIT 
+ 1 CA 

MASK 

CCS 

TCF 

CA 

MASK 

CCS 

TCF 

CAF 

TC 

CACR 

ASCTERM2  EXIT 
ASCTERM3  TCF 
ASCTERM4  EXIT 

INFINT 


FLAGWRC9 

FLRCSBIT 

A 

ASCTERM3 

FLAGWROe 

FLUNCeiT 

A 

ASCTERM3 

V06N63* 

BANKCALL 

GOCSP 

ENCOFJOB 


AT*2(9J 

WILL  BE  OVERWRITTEN  IF  IN  VERT,  RISE. 


ALLOW  X-AXIS  OVERRIDE 
ONLY  ACTIVATE  R29  IF  IN  Pl2c 


INSURF  THAT  THE  NOUN  63  DISPLAY  IS 
bypassed  if  we  are  in  the  RCS  TRIMMING 
MODE  OF  OPERATION 


BYPASS  DISPLAYS  IF  ENGINF  FAILURE  IS 
INOICATECo 
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03^6 

03<»7 

03A8 


REF 

REF 

REF 


30.2760 

30.2761 

30.2762 


0 <»67A 
A0166 

1 2741 


0 

1 

0 


TC  IBNKCALL 
CADR  STOPRATE 
TCF  ASCTERPl 


0349 

0350  REF 

0351  REF 

0352 

0353  REF 

0354  PFF 

0355 

0356  REF 

0357  PEF 
0350  REF 

0359 

0360  REF 

0361  REF 

0362  REF 

0363  REF 

0364 

0365  REF 

0366  REF 


5 last  840 
9 LAST  834 

1 

1 

u last  843 

3 LAST  843 
1 

17  LAST  843 
1 

4 LAST  843 
2 LAST  844 

4 LAST  844 
1 


20.2763  45345  I 

30.2764  02301  1 

30.2765  C2333  0 

30.2766  50025  0 

30.2767  26205  I 

30,2770  16666  0 

30,2771'  43014  0 

30.2772  04661  1 

30.2773  C4711  1 

30.2774  60710  1 

30.2775  43345  1 

30.2776  01234  0 

30.2777  25734  0 

30.3000  37654  1 

30.3001  60710  1 

30.3002  77614  ) 

30.3003  04631  1 

30.3004  60771  0 


CHECKALT  DICAO 
DSU 

exitvr  clear 

DLCAC 

stcall 

EXITVRl  CLR60 


DSU 

/R /MAG 

/LAND/ 

6MN 

25KFT 

CHECKYAW 

BON 

FLVP 

ROTFLAG 

MAINLINE 

DAD 

PIPTIME 

lOSECS 

TXC 

mainline 


ROTFLAG 
EXl  TVR 


0367  REF 

0368 

0369  REF 


LAST  44  27,2000 

27,3273 


SETLCC  ASENTl 
BANK 

COUNT*  Jt/ASENT 


0370 

0371  REF 
03715 

0372  REF 

0373 

0374  REF 

0375  PEF 

0376 

0377  REF 

0378  REF 
C379 

0380  REF 

0381  REF 
0302 

0383  REF 
C384  REF 


17  LAST  843 

5 LAST  83Q 

2 LAST  123 
1 

6 LAST  844 
21  LAST  843 

2 LAST  123 
1 

5 last  84i, 
1 


27.3273  53575 

27.3274  03253 

27.3275  77641 

27.3276  02146 

27.3277  51025 

27.3300  C2571 

27.3301  57210 

27.3302  50375 

27.3303  02146 

27.3304  03537 

27.3305  50025 

27.3306  C2573 

27.3307  71450 

27.3310  77614 

27.3311  C4631 

27.3312  60722 


Q 

0 

1 

0 

1 

0 

1 

0 

0 

Q 

0 

1 

0 

I 

1 

0 


ANGICHEK  VLCAC 
DDT 
DSU 

VLCAO 

DSU 

CFFROT  CLRGO 


UNIT 

UNFC/2 

XNBPI P 
BPL 

COSTHETl 

OFFROT 

DOT 

XNBPIP 
UNI  T/R/ 
BMN 

C0STHET2 

KEEPVRl 

ROTFLAG 

CLRXFLAG 


0385 

0386  REF  I 

0387 

0388  REF  1 


r7,2666 
37, 2000 
07,2666 


BANK  7 
S6TL0C  ASENT2 
BANK 

CCUNT*  St/ASENT 


0389  REF 


LAST  844  07,2666 


SETXFLAG  = CHECKYAW 


17:53  DEC*  19,196°  FLY 

USER'S  PAGE  NCo  9 

NO  GUIDANCE  THIS^CYCLE 
THE  DAP  CCMMANDEO  PATES. 


153  PAGE  844 
E7  S3 

HENCF  ZERO 


IF  H LT  25K  CHECK  1 AXIS  ORIENTATION, 


GAP : 

L 

0390 

0391 

0392 

0393 

039^f 

039S 

0396 

C397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

C405 

0406 

0407 

0408 

0409 

C409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

041ft 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 


17:53  OECo  19,1969  FI 


-153 


PAGE  845 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAM  LUMINARV  BY  NASA  2021112-C91 


ASCENT  GUIDANCE 


USER'S  PAGE  NO*  10 


E7  S3 


REF 

RfcF 

REF 

REF 

REF 


REF 

REF 

REF 

REF 


6 LAST 

5 LAST 

5 LAST 

4 LAST 

6 LAST 


4 LAST 
1 

1 

1 


07,2666 
843  07  ,2667 

07,2670 
842  07,2671 

842  07,2672 

07,2673 
842  07,2674 

842  07,2675 

07. 2676 

37.2677 
84C  07,2700 

07, 27C1 

07.2702 

07.2703 

07.2704 


77614  1 
06466  0 
74345  0 
02355  C 
02303  0 
74325  C 
02361  1 
03726  1 
53455  0 
45325  1 
03474  0 
13504  1 
52044  0 
61002  1 
71446  1 


CHECKYAh  SET 

XOV  INFLG 
DLCAO  VXSC 
A TY 
LAX  IS 

PCDL  VXSC 
ATP 
ZAX  ISl 
VAO  UNIT 

POOL  DSU 
ROCT 
40FPS 

BPL  GOTO 

EX  ITVRl 
KEEPVR 


PROHIBIT  X-AXIS  CVERRIDE 


REF  1 


05,3503 

05,20C0 

05,3503 


BANK  5 
SETLCC  ASENT3 
BANK 


REF 


CCUNT*  $t/ASENT 


REF 


REF 


05, 3503 
05  ,3504 
34,3446 

2 LAST  834  34,  2000 

34  ,3446 

2 LAST  836  TO  838: 


00017  1 AOFPS 
23305  0 


44  44* 


20EC  0* 12192  8-7 

BANK  34 
SETLOC  ASENT8 
BANK 

CCUNT*  $$/ASENT 


REF  8 LAST  843 

REF  22  LAST  844 
REF  18  LAST  844 
REF  3 LAST  843 


34,3446 

34,3*47 

24.3450 

34.3451 

34.3452 

24.3453 


45575  1 
74516  0 
77775  1 
03537  0 
37253  1 
6C730  0 


KEEPVR 

KFEPVRl 


VLOAO  STAOR 
STORE  UNWC/2 
VLCAD 

UNI T/R/ 
STCALL  UNFC/2 
ASCTERM 


RECALL  LOSVEC  FRCM  PUSHLIST 


REF  1 
REF  1 


14,2347 

14,2000 

14,2347 


BANK  14 
SETLOC  ASENT4 
BANK 

COUNT*  SS/ASENT 


REF  24  LAST  834 

REF  18  LAST  844 
REF  26  LAST  839 

REF  11  LAST  792 
REF  10  LAST  799 
REF  35  LAST  821 


14,2347 
14,2350 
14  ,2351 

14.2352 

14.2353 

14.2354 

14.2355 

14 .2356 

14.2357 


77634 
21574 
43225 
C1234 
03454 
77476 
0 7262 
3 5016 
54  C03 


0 

1 

0 

0 

1 

I 

0 

0 

0 


ENGOFF 


RTB 

LOADTIME 
CSU  OAC 

PI FTI ME 
TTOGO 

CCCMP  FXIT 

TC  TPAGREE 

CAF  F8ANK7 

TS  EBANK 


FCRCE  SIGN  AGREEMENT  CN  MPAC,  MPAC  +lr 


GAP: 


ASSEMBLE  REVISION  131  OF  AGC  PRC6RAP  LUMINARY  BY  NASA  2021112-091 


L ASCENT  GUICANCe 


0A33  REF 
043A 

0«5  REF 
0^136 

0437 

0438  REF 

0439  REF 

0440  REF 

0441  REF 

0442  REF 

0443  REF 

0444 

0445  REF 

0446  REF 

0447  REF 

0447 

0448  HEF 

0449 

0450  REF 

0451  REF 


33  LAST 
338  LAST 


156  LAST 
40  last 

2 LAST 
24  LAST 

1 

67  LAST 

3 LAST 
34  LAST 

2 LAST 

141  LAST 

7 LAST 
2 LAST 


841 

836 


831 

824 

154 

823 

836 

846 

846 

846 

843 

839 

839 


E7,1516 

14.2360  C 0CC4  0 

14.2361  10  155  I 

14.2362  1 2365  1 

14.2363  1 2365  1 

14.2364  3 4755  1 

14.2365  6 4753  I 

14.2366  55*644  1 

14.2367  0 5173  1 

14.2370  02402  0 

14.2371  C 5353  1 

14.2372  47014  1 

14.2373  76133  1 

£7,1516 

14.2374  02402  0 

14.2375  30067  0 

14.2376  0 6042  1 

14.2377  52C1^  0 

14.2400  03470  1 

14.2401  60452  1 


EEANK= 

INHINT 

CCS 

TCF 

TCF 

CAF 

AC 

TS 

TC 

ACRES 

TC 

OCT 

-GENAOR 

EeANK= 

2CADR 


ZERO 

BITl 

ENGOFFDT 

TWIDDLE 

ENGGFFl 

PHASCHNG 

47014 

ENGCFFCT 

TGO 

ENGCFFl 


TC  INTPRET 

SET  GCTC 

IDLEFLAG 

T2TEST 


045? 

0453 


REF  41  LAST  844  14,2402  0 4674  0 ENGOFFl  TC 

REF  I 14,2403  75555  0 CACR 


I BNKCALL 
ENG1N0F2 


0454  REF  5 

0455  REF  36 

0456  REF  29 

0457  REF  3 

0457 

0458  REF  68 

0459 

0460 

0461  REF  35 

0462  REF  4 

0462 

0463  REF  58 


LAST  828 
LAST  811 
LAST  832 
LAST  741 

LAST  846 


LAST  846 
LAST  846 

LAST  023 


14.2404 

14.2405 
E7,1455 

14. 2406 

14.2407 

14.2410 

14. 2411 

14.2412 
£7,1516 

14.2413 

14.2414 

14.2415 


2 5027  1 

0 5105  0 

C2416  0 
30067  0 
C 5353  1 
07024  0 
17000  1 

02416  0 
30067  n 

1 5261  0 


CAF  PRIC17 
TC  FINDVAC 

e0ANK=  WHICH 
2CA0k  CUTCFF 

TC  PHASCHNG 

nCT  07024 
OCT  17000 
EBANK=  TGO 
2CA0R  CUTOFF 


TCF  TASKCVER 


0464  REF  54  LAST  828 

0465  REF  4 LAST  839 


14.2416  0 5504  0 CUTOFF 

14.2417  00214  0 


TC  UPFLA6 

ACRES  FLRCS 


0466  REF  1 

0467  REF  233  LAST 

0468  REF  24  LAST 

0469 

C470  REF  1 

0471 


14,2420  ' 2437  C 

843  14,2421  0 4616  1 

832  14,2422  2C477  1 

14.2423  1 2426  1 

14.2424  1 2430  0 

14.2425  1 2420  1 


CAF 

TC 

CACR 

TCF 

TCF 

TCF 


V16N63 
BANKCALL 
GOFLASH 
+ 3 

CUTOFFl 


0472  REF  52  LAST  833 

0473  REF  I 


TC  POSTJUMP 

CACR  TERMASC 


17:53  CECo  19,1969 


FLY 


153  PAGE  846 


USER*  S PA6F  NCc  11  E7  S3 


C(AJ  = OT  - 1 8IT 
CIA)  = 0 
CIA ) = 0 

CIA)  = 1 eiT  OR  DTft 


DISABLE  OELTA-V  MOMTCP 

SHUT  OFF  THE  ENGINE* 

SET  UP  A Joe  FOR  THE  ASCENT  GUIDANCE 
POSTBURN  LOGIC* 


SET  FLRCS  FLAG. 


GAP:  ASSEMBLE  REVISION  331  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2023332-091 


L ASCENT  GUIDANCE 


0A75 

0*^76 

0A77 

0^78 

0479 

0480 


REF  A2  LAST  846 
REF  8 LAST  810 
REF  43  LAST  847 
REF  5 LAST  751 
REF  53  LAST  846 
REF  I 


14,2430  0 0004  0 CUTOFFl  INFINT 


14,2.431  C 4674  0 

14. 2432  40154  0 

14.2433  0 4674  0 

14.2434  4C141  1 

14.2435  0 4635  0 

14.2436  71454  1 


TC  IBNKCALL 
CAOR  ZATTERCR 
TC  IBNKCALL 
CAOR  SETMINDB 
TC  POSTJUMP 
CAOR  CUTCFF2 


0483 

0482 

0483  REF 
048^ 

0485  REF 


3 LAST 
3 LAST 


14,2437 
34  ,3454 
845  34,2000 

34,3454 
845  TO  845  : 


C4C77  0 


6 


50* 


V16N63 


VN  1663 
BANK  34 
SETLGC  ASENTS 
BANK 

COUNT*  tf/ASFNT 


0486  REF  69  LAST  846 

0487 


C 5353  1 CLTnFF2  TC 
04024  0 OCT 


PHASCHNG 

04024 


0488 

0489 

0490 

0491 
04  92 
0493 


REF  1 

REF  234  LAST  846 
REF  25  LAST  846 
REF  2 LAST  846 


REF  2 LAST  847 


34.3456  3 3474  0 

34.3457  C 4616  1 

34.3460  20477  1 

34.3461  1 3464  0 

34.3462  1 ?46A  0 

34.3463  1 3454  0 


CAF  V16N85C 

TC  BANKCALL 

CACR  GOFLASH 

TCF  TERMASC 

TCF  +2 

TCF  CUT0FF2 


0494  REF  70  LAST  847 

0495 


34.3464  0 5353  1 

34.3465  04024  0 


TERMASC  TC  PHASCHNG 

OCT  04024 


0496 

0497 

0498 

0499 

0500 

0501 


REF  44  LAST  847 
REF  7 LAST  750 
REF  09  LAST  833 
REF  3 LAST  828 
REF  33  LAST  832 


34.3466  C 0004  0 

34.3467  0 4674  0 

34.3470  40115  0 

34.3471  C 5516  0 

34.3472  00215  1 

34.3473  1 6001  1 


INhINT 

TC  IBNKCALL 
CACR  RESTOROB 
TC  DOWNFLAG 
ADRES  LETAflORT 
TCF  GCTOPOCF 


0502 


04125  0 V16N85C  VN 


I 685 


0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 


REF  12  LAST  842 
REF  4 LAST  842 
REF  8 LAST  842 


REF  9 LAST  8*^7 
REF  36  LAST  846 


REF  2 LAST  671 
REF  5 LAST  847 

REF  37  LAST  847 
REF  38  LAST  847 


34.3476 

34.3477 

34.3500 

34. 3501 

34.3502 

34.3503 

34.3504 

34.3505 

34.3506 

34.3507 

34.3510 

34.3511 

34.3512 


77745  1 
06524  I 
02345  I 
02351  1 
41345  C 
02351  1 
03517  1 
43205  1 
33645  0 
02345  1 
41205  0 
03517  I 
C3517  1 
72471  0 


PPCOMPl 


RPCCMP2 


DLOAD 

H16ZER0S 
STORE  PCONS 
STORE  PRATE 
OLCAD  DMP 

PRATE 

TGC 

DMP  OAO 

THIRD 

PCCNS 

DMP  DMP 
TGO 
TGC 

OOV  SLl 


17: 53  DECo  19, 1969  FLY 


;153  PAGE  847 


USER'S  PAGE  NOo  1?  E7  S3 


ZERO  ATTITUDE  ERRORS  BEFORE 


REDUCING  DBo 


PROCEED 


RESTORE  DEADBAND  DESIRED  BY  ASTRONAUT, 


DISALLOW  ABORTS  AT  THIS  TIME, 


FLRCS  = 1 ( TRI M MCOFl 

SET  PCONS  = PRATE  = 0 SC  THAT 
RP  = R + ROOT  TGO 
FLRCS  = 0 ( GU IDANCe  MODE  > 

LEAVE  PCONS  AND  PRATE  ALONE  SO  THAT 

RP  = R + ROOT  TGO  + ( PC  0NS*TG0#*2 ) / 
(2  TBIJP)  ♦ (PRATE*TGG**3»/(6  TBUP  ) 


GAP: 

L 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0556 

0559 

0560 

0561 

0562 

0563 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINAR 


BY  NASA  2021112-091 


17:53  OECo  19,1969 


-,153  PAGE  848 


FLY 


ASCENT  GUIDANCE 


USER'S  PAGE  NOo  13 


E7  S3 


REF  15  LAST  842 

REF  6 LAST  844 
REF  5 LAST  845 

REF  39  LAST  fl&7 

REF  2 LAST  828 


34.3513  02271  ! 

34.3514  65215  1 

34.3515  C2301  1 

34.3516  03474  0 

34.3517  43205  I 

34.3520  03517  1 

34.3521  77626  0 

34.3522  75152  0 

24.3523  77616  0 


TBUP 
OAD  POOL 

/R/MAG 

ROOT 

CMP  DAO 
TGC 

STADP 
STORE  RP 
RVO 


REF 

REF 

REF 

KEF 

REF 

REF 

REF 

REF 


REF 

REF 


REF 

REF 


1 

2 

2 

3 

3 

2 


3 


1 


6 

2 


LAST  827 

LAST  123 
LAST  827 

LAST  848 

LAST  123 

LAST  848 


LAST  848 
LAST  848 


LAST  830 
LAST  848 


34.3524 

34.3525 

34.3526 
34  ,3527 

34.3530 

34.3531 
34  ,3532 

34.3533 

34.3534 

34.3535 

34. 3536 

34.3537 

34.3540 

34.3541 

34 .3542 
34,  3543 

34.3544 

34.3545 

34.3546 
34  ,3547 

34.3550 

34.3551 
34  ,3552 
24,3553 


45020  1 
02  574  0 
71554  G 
43205  1 
02623  1 
02621  0 
41425  1 
02625  1 
51025  1 
02563  0 
71541  1 
65345  0 
02563  0 
41345  C 
00001  0 
16025  1 
77725  1 
41215  1 
02625  1 
02625  1 
75465  1 
77626  0 
41500  1 
02574  0 


ZCOTDCMP  STQ 

CMP 


DSU 

OSU 


CLOAO 


♦3  DLOAD 


POOL 

DAC 


CALL 

ASCSAVE 

THETCCMF 

DAO 

KPARM 

JPARM 

PUSH 

RP 

PPL 

RAMIN 

+ 3 

POOL 

RAMIN 

OMP 

OD 

MUM(-37  » 
DMP 


RP 

RP 

BODV  SORT 
STADR 

STCALL  ZDOTD 

ASCSAVE 


COMPUTE  central  ANGLE  (n) 

CENTRAL  ANGLE  IN  MPAC 

RA  IN  MPAC  AND  IN  PUSHLIST  (2) 

RA  < RAMIN,  SET  RA  = PAMIN,  (2) 


(0) 

UPDATE  ZDOTD  FOR  GUIDANCE  AND  DOWNLINK^ 


REF  18  LAST  838 
REF  4 LAST  728 

REF  5 LAST  834 


34.3554  53575  0 

34.3555  03521  1 

34.3556  53515  0 

34.3557  01720  0 

34.3560  47206  0 

34.3561  OCOOl  0 

34.3562  77641  I 

34.3563  C2325  1 

34.3564  24037  0 

34.3565  72441  0 

24.3566  75326  1 

34.3567  00037  0 

34,3570  77616  0 


TFETCOMP  VLOAD  UNIT 
R 

PDVL  UNIT 

R(CSM) 
PUSH  VXV 
OD 

DOT 

WM 

STOVU  30D 
DCT  SLl 
ARCCGS  SIGN 
30D 

RVO 


( 6 ) 

( 121 

(6) 

(n» 


808  65,1574 


REF  16 


LAST 


ASCSAVE 


CG 


GAP: 

L 

05 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 

R0575 

0576 

0577 

0578 


ASSEPBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C91 


17:53  OECo  19,1969  FLY 


PAGE  849 


ASCENT  GUIDANCE 


USER'S  PAGE  NO,  14 


27. 3313 

REF  4 LAST  844  27,2000 

27.3313 

REF  2 LAST  644  TO  844:  16  16* 


BANK  27 
SETLOC  ASENTl 
BANK 

CCLNT*  tf./ASENT 


REF  23  LAST 

REF  3 LAST 

REF  5 LAST 

REF  6 LAST 


27,3313 
845  27,3314 

034  27,3315 

27  ,3316 

840  27,3317 

841  27,3320 
27,3321 


50375  0 
03537  n 
03720  1 
41312  1 
C3621  0 
02335  0 
77616  0 


YCCMP 


VLOAD  DOT 

UNIT/R/ 
OAXIS 
SL2  DMP 
RCC 

STORE  Y 
RVO 


REF  3 LAST  838 


30,3005 

30,2000 

30,3005 


8ANK  30 
SETLOC  ASENT 
BANK 


GAP;  ASSEMBLE 
L ASCENT 
P0579  ASCENT 


REVISION  131  CF  AGC  PRC(RAP  LUMINARY  BY  NASA 
GUIDANCE 

GUICANCE  CONSTANTS 


2021112-C91 


0580 

0561 

0582 

0562 

0583 
05  83 

0584 
0564 

0585 

0585 

0586 


2 LAST  836  13,3X03 

I 30,3007 

30  ,3005 

30.3006 

30.3007 

30.3010 

30.3011 
30  ,*30 12 

30.3013 

30.3014 

30.3015 


00062 

00000 

00031 

OQOOO 

C0X75 

00000 

C0045 

2rcco 

oocxo 


inncs  ECUALS 
T2A  EQUALS 

0 4SeC(17)  2CEC 

1 

0 2SEC117)  2DEC 

1 

1 T3  2DEC 

I 

0 6SBC(18J  20EC 
0 

0 eiT4H  OCT 


2sec(iei 

2SEC(17I 
400  6-17 


1000  8-17 


0568 

0589 

0590 


30,3017 
30  ,3020 

30.3021 

30.3022 


14400  0 2SEC(9)  2DEC 

00000  I 

01477  1 V06N63*  VN 

CX514  C VC6N’76  VN 
01441  1 VC6N33A  VN 


0663 

0676 

0633 


0591  33,2200 

0592  REF  1 33,2000 

0593  13,2200 

0594  REF  1 


BANK  33 
SETLOC  ASENT6 
BANK 

CCUNT*  St/ASENT 


0595 

0595 

0596 

0596 

0597 

0597 

0598 


REF 


LAST 


149 


33.2200 

33.2201 
23,22C2 
31,2203 
33  ,2204 
33,2205 
E7,1570 


75751  0 PRLIMIT  2DEC 
41775  1 

0O022  1 MINABCV  2CEC 
07212  1 

00007  0 25KFT  2CeC 
16100  1 

1/CVO 


-o  0639 
«0356  e-5 
7620  B-24 
MASSl 


17:53  DEC. 


19,1969  FL 


153  PAGE  850 


USER'S  PAGE  NOo  15  E7  S3 


(B/TBUP  lFToSEC(-3) 

10  PERCENT  BIGGER  TFAN  GRAVITY 


GAP : 

L 

P0599 

0600 

0601 

0602 

R0603 

R060A 

0605 

0606 

0607 

0600 

0609 

0610 

0611 

06)  1 

0612 

0612 

0613 

0613 

0619 

0619 

0615 

0615 

0616 

0616 

0617 

0617 

0610 

0618 

0619 

0620 

0621 

0622 

0623 

0629 

0625 

0626 

0627 

0626 

0629 

0630 

0631 

0632 

0633 

0633 


ASSEPBLE  REVISION  131  CF  AGC  PPCGRAP  LUMINARY  BY  NASA  2021112-051 


17:53  OECa  19,1969  FLY 


153  PAGE  851 


ASCENT  GUIDANCE 

TFE  LCG«RITI-M  SU8RCUT1NE 


USER'S  PAGE  NO.  16 


E7  S3 


BANK  29 
SETLCC  FLCGSUe 
BANK 


INPUT  00. .o  X IN  MPAC 
OUTPUT  o....  -LOGIX)  IN  MPAC 


29,3700 

20,2000 

30,3023 


REF  339 
REF  2 

REF  1 


REF  157 
REF  340 

REF  1 
REF  341 
REF  76 
REF  392 
REF  8 
REF  393 
REF  344 
REF  77 
REF  395 
REF  142 


LAST 

LAST 


LAST 

LAST 


LAST 
LAST 
LAST 
LAST 
LAST 
L AST 
LAST 
LAST 
LAST 


896 

839 


646 

851 


1 

819 
851 
81  8 
851 
851 
851 
851 
646 


30.3023 

30. 3024 

30.3025 

30.3026 

30. 3027 

30.3030 

30.3031 

30.3032 
30  ,3033 
30, 3039 

30.3035 

30.3036 

30.3037 
30  ,3090 

30.3091 

30.3092 

30.3093 
30,3099 

30.3095 

30.3096 

30.3097 

30.3050 

30.3051 

30.3052 
3O,?053 

30.3059 

30.3055 

30.3056 

30.3057 

30.3060 

30.3061 

30.3062 

30.3063 
20, 3069 

30.3065 

30.3066 


993CI 
C0163 
17772 
77776 
C 7225 
00006 
00000 
00CG2 
76777 
77175 
77900 
75916 
77507 
65515 
77791 
63597 
77052 
55373 
C1167 
30361 
76520 
75267 
3 9755 
59  156 
C 0006 
3 3C70 
52  155 
52  132 
2 0162 
0 7312 
52  156 
52  155 
62  132 
20  155 
0 6092 
93976 


LCGSUB 


0 

0 

0 

1 

0 

1 

1 

0 

1 

1 

0 

0 

0 

0 

C 

1 

0 

0 

0 

0 

I 

0 

1 

1 

1 

0 

I 

0 

1 

0 

I 

1 

0 

1 

1 

0 


NORM  BDSU  :t 

MPAC  +6 
NEARONE 

EX  IT 

TC  PCLY 

DEC  6 

2CEC  .0000000060 
2CEC  -.0312519377 
20EC  -.0155686771 
20EC  -.  0112502068 


?CEC  -.0018595108 
2DEC  -.0286607906 
20BC  .0385598563 


2DeC  -oC9l936l902 


CAF  ZERO 

TS  MPAC  ♦•2 

EXTEND 

UCA  CLCG2/32 

OXCH  MPAC 

CXCH  BUF  +1 

CA  MPAC  +6 

TC  SHORTMP 

DXCH  MPAC  +1 

OXCH  MPAC 

CXCH  BUF  +1 

DAS  MPAC 

TC  INTPRET 

OCCMP  RVC 


30,3067  00592  1 CL0G2/32  20EC  o02166C8994 

30,3070  39919  1 


GAP:  ASSer-BLE  REVISION  131  OF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021112-C'51 

L SERVICER 


0001 

0002  REF 

0003 


37,3^10  BANK  ?7 

37,2000  SETLOC  SERVl 

37,3A1C  BANK 


0004  REF  40  LAST  836  E7,1515  EBANK=  DVCNTP 

R0005  ♦****  + **#*****«*#*«##««#B##5it**##**«#i!i  PREREAC  ****##«♦♦«## 
R0007 


0008  REF 


COUNT*  $i/SERV 


000  <5 
0010 
0011 
0012 

0013 

0014 
0014 


REF  10  LAST  815 
REF  1 

REF  4 LAST  604 
REF  21  LAST  776 
REF  5 LAST  336 
REF  1 
REF  7 


37.3410  3 4757  0 PREREAC  CAF  SEVEN 


37.3411  0 3';27  1 

37.3412  3 5031  0 

37.3413  C 5072  1 
E3,1460 

37.3414  C3671  1 

37.3415  14063  1 


TC  GNUFAZE5 

CAF  PRI021 
TC  NOVAC 

E6ANK=  NBDX 
2CA0H  LASTBIAS 


0015  REF 
A0016 


LAST  336  37,3416  0 3541 


eiEIBIAS  TC 


PIPASR  +3 


0017 

0018 
0019 


REF  19  LAST  829  37,3417 

REF  1 37,3420 

REF  20  LAST  352  37,3421 


4 0103  1 
7 4773  1 
26  IC3  1 


CS  FLAGWR07 
MASK  SUPEROll 
ACS  FLAGWRC7 


0020  REF  2 LAST  167 

0021  REF  21  LAST  808 

0022  REF  22  LAST  852 


37.3422 

37.3423 

37.3424 


4 4735 
7 0076 
54  076 


0 

1 

1 


CS  DRFTBIT 

MASK  FLAGWRC2 
TS  FLAGRRC2 


REF  17  LAST  831 
REF  2 LAST  107 


37  ,3425  3 4751  0 

37,3426  55*256  C 


CAF  FOUR 

TS  PIPAGE 


0028 

0029 

0030 

0031 
0031 


REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 


811 

846 

852 

243 


37,3427 

37.3430 
E7,1515 

37.3431 

37.3432 


CAF  PR1022 

TC  FI NOVAC 

EBANK=  OVCNTR 
2CADR  NORMLIZE 


0032 

0033 

0034 

0035 


REF  54  LAST  824 

REF  1 

REF  4 LAST  791 

REF  8 LAST  815 


37.3433  3 4752 

37.3434  0 3523 

37.3435  3 5QC0 

37.3436  0 5224 


0 CA 

0 GOREACAX  TC 

1 CA 

0 TC 


TWO 

GNUTFAZ5 

2SECS 

VARDELAY 


17:53  DECc  19,1969  FLY 


153  PAGE  852 


USER  'S  PAGE  NO*  1 EO  S3 


«**#******#*4t4c***#i!t#****; 


5,7  SPOT  TO  SKIP  LASTBIAS  AFTER 
RESTART* 


CO  LAST  GYRO  COMPENSATION  IN  FREE  FALL 

CLFAR  + READ  PIPS  LAST  TIME  IN  FRE5+F133 
DO  NOT  DESTROY  VALUE  OF  PIPTIMEl 

SET  V37FLAG  AND  AVEGFLAG  (BITS  5 AND  6 
OF  FLAGWRD7  ) 

RESET  DRIFTFLAG 

INITIALIZE  PV  MONITOR 


TO  FIRST  ENTRY  TO  AVERAGE  Gc 


5p2SPCT  FCR  REREACAC  ANC  NORMLIZE 
WAIT  TWO  SECONDS  FOR  READACCS 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PRCGPAM  LUMINARY  BY  NASA  2021112-C?! 

L SERVICER 


P0036 

0038 

0039 
00^0 

0041 

0042 

0043 

0044 
A0045 
A0046 
A0047 


REF  1 

REF  2 LAST  221 
REF  250  LAST  843 
REF  91  LAST  818 

REF  92  LAST  053 
REF  3 LAST  853 


37,3437  4 3535  0 

37-, 3440  6 0030  1 

37,3441  1C  COO  C 
37  ,3442  4 4753  0 

37.3443  1 3445  0 

37.3444  3 4753  1 

37.3445  26  030  0 


♦2 


CS 

AC 

CCS 

CS 

TCF 

CA 

AOS 


0CT37771 

TIMES 

A 

ONE 
+2 
ONE 
T I ME5 


0048  REF 


LAST  852  37,3446  0 3536  1 


TC  PI  PA  SR 


0044 

0050 

0051 

0052 


REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 


815 

052 

853 

852 


37,3447 
37,3450 
37  ,3451 
37,3452 


3 4756 
C 3527 
3 4753 
55'256 


0053  REF 

0054  REF 

0055  REF 

0056  REF 
0056 


8 LAST  799 
38  LAST  852 
42  LAST  852 
2 LAST  ?43 


37,3453 
37  ,3454 
£7,1515 

37.3455 

37.3456 


3 4736 
C 5105 

C2206 

66067 


1 

0 

1 

0 


0057 

0058 

0059 


PEF  20 
REF  28 


LAST  739 
LAST  825 


37,3457 

37.3460 

37.3461 


2 4743  C 
0 0006  I 
05  011  1 


PIPSOONE  CA 


0060 

0061 

0062 

0063 


REF  21 
REF  6 

REF  1 


LAST  852 
LAST  829 


37. 3462  3 0103  0 

37.3463  7 4747  0 

27.3464  C 0CC6  1 

37.3465  1 3515  1 


CA  FLAGURD7 
MASK  AVEGFBIT 
EXTEND 

0ZF  AVEGOUT 


0064  REF 

0065  REF 

0066 

0067  REF 


809 

709 


1 


37.3466 

27.3467 

37.3470 

37.3471 


2 0102 
7 4744 
C 0006 
1 3513 


1 

0 

1 

1 


CA  FLAGWRC6 
MASK  MUNFL6IT 
EXTEND 

BZF  MAKEACCS 


0068  REF  2 LAST  756 

0069  REF  2 LAST  853 


27.3472  1C  754  0 

37.3473  1 3513  1 


CCS  PHASE? 
TCF  MAKEACCS 


0070 

0071 


REF  11 
REF  4 


LAST  852 
LAST  823 


3 7,3474 
37,3475 


3 4757  0 
55*055  1 


CAF  SEVEN 
TS  PIPCTR 


0072  REF  11 

0073  REF  17 

0074  REF  2 

0075  REF  3 

0076  PEF  3 


LAST  791  37 

LAST  853  37 

LAST  223  37 

LAST  853  17 

LAST  479  27 


,3476  4 0025  1 

,3477  6 4756  1 

,3500  6 4734  0 

,1501  6 4734  C 

,3502  57*054  1 


CS  TIMEl 

AD  FIVE 

AC  NEGl/2 

AD  NFGl/? 

XCH  TBASE2 


17:53  DECc  19,1969  FL 


153  PAGE  853 


USER'S  PAGE  NOo  2 E7  S3 

THIS  PIECE  OF  COOING  ATTEMPTS  TO 
SYNCHRONIZE  READACCS  WITH  THE  DIGITAL 
AUTCPILCT  SC  THAT  A PAXIS  RUPT  WILL 
OCCUR  APPROXIMATELY  70  MILLISECONDS 
FOLLOWING  THE  READACCS  RUPTo  THE  70  MS 
OFFSET  WAS  CHOSFN  SO  THAT  THE  PAXIS 
RUPT  WOULD  NOT  OCCUR  SIMULTANEOUSLY 
WITH  ANY  CF  THE  0 SUB5ECUFNT  R10,R11 
INTERRUPTS  — THUS  MINIMIZING  THE  POSS- 
IBILITY OF  LOSING  COWNRUPTS. 


READ  THE  PIPASo 


SET  UP  SERVICER  JOE 


TURN  ON  TEST  CONNECTOR  OUTSIT 


AVEGFLAG  DOWN  - SET  UP  FINAL  EXIT 


MUNFLAG  CLEAR  - BYPASS  LR  AND  01  SPo 

PHASE  2 ACTIVATED  - AVOID  MULTIPLE  RIO* 
SET  PIPCTR  FOR  4X/SEC  RATE* 


SET  TBASE2  *05  SECONDS  IN  THE  PAST< 


gap:  assemble  KEVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L SERVICER 


0077  REF  3 
0070  REF  134 
CC79 

0080  REF  5 


LAST  377 
LAST  026 

LAST  731 


37,3503  2 «i361  1 

37,350A  5A  001  1 

37.3505  4 0000  0 

27.3506  52  754  0 


CAF  DEC17 

TS  L 

COM 

OXCH  -PHASE2 


0081 

0082 

0083 

0084 

0084 

0085 

0086 


REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 


REF  18  LAST 
REF  1 


755 

849 

823 

852 


37,3507  3 6007  0 

37.3510  C 5203  0 
£7,1536 

37.3511  02006  0 

37.3512  <2C67  0 

37.3513  2 A751  C 

37.3514  1 3434  0 


CAF  0CT24 
TC  WAITLIST 

EBANK=  UNIT/R/ 
2CA0R  R10,Rll 

MAKEACCS  CA  FOUR 

TCF  GOREAOAX 


0087 

0088  REF 

0089  REF 


27,3615  C C006  1 AVEGOUT  EXTEND 
1 37,3516  3 3534  0 OCA  AVCUTCAO 

5 LAST  828  37,3517  53*252  1 DXCH  AVGEXIT 


0090 

0091 

0092 


REF  19  LAST  854 
REF  2 LAST  852 
REF  59  LAST  846 


37.3520  2 ^751  0 

37.3521  0 3523  0 

37.3522  0 5261  I 


CA  FOUR 

TC  GNUTFAZ5 

TC  TASKCVER 


0093  REF  135  LAST  854 

0094  REF  12  LAST  853 

0095  REF  1 

0096 


37,3522  5<i  001  I 

37.3524  A 0025  1 

27.3525  55*062  0 

37.3526  1 3530  0 


GNUTFAZ5 


TS 

CS 

TS 


TCF 


L 

TIMEl 
T8ASE5 
+ 2 


0097  REF  136  LAST  ESA 

0098  REF  137  LAST  05A 

0099  REF  2 LAST  216 

0100  REF  21A  LAST  830 


37,3527  5A  001 

37.3530  A OOCl 

37.3531  52  762 

37.3532  C CC02 


1 GNUFAZE5  TS 
1 CS 

0 DXCH 

0 TC 


L 

-PHASE5 

0 


0101 

0102 

0102 


REF  43  LAST  853 
REF  1 
REF  1 


E7,1515 

37.3533 

37.3534 


£DANK=  DVCNTR 
03663  0 AVCUTCAC  2CADR  AVGENC 
AAC67  0 


0104 


37,3535  37771 


0CT37771  OCT 


37771 


0105 

0106  REF  4 LAST  44 

0107 


33,2206 

33,2000 

33,2206 


BANK  33 
SETLOC  SERVICES 
BANK 


0108 


REF  4 LAST  44  TO  45: 


12 


COUNT*  $$/SERV 


37* 


17:53  DEC*  19,196°  FLY 
USER'S  PAGE  NCo 
2e21SP0T  FOR  R10,R31 


<>153  PAGE  854 
E7  S3 


FIRST  R10,R11  IN'  e200  SECONDSo 


DO  PHASE  CHANGE  AND  RECALL  R6ADACCS 


SET  UP  FINAL  SERVICER  EXIT 


SET  5«4  SPOT  FOP  REREACAC  AND  SERVICER 
IF  REREADAC  IS  CALLED,  IT  WILL  EXIT 
END  TASK  WITHOUT  CALLING  READACCS 


SAVE  INPUT  IN  L 
SET  TBASES 


SAVE  INPUT  IN  L 
-PHASE  IN  A,  PHASE  IN  L 
SET  -PHASES, PHASES 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  CECa  19,1969  FLY 


153  PAGE  855 


L SERVICER 


USER  'S  PAGE  NCe  4 E7  S3 


P0109  SERVICER  **#*#*#♦*##*«**##**#**  i**###***#***#***#*#**#**##**^*###***#** 

ROlll 


0112  REF 

0113 

0114 

0115  REF 

0116  REF 

0116  REF 

0117  REF 
0318  RFF 


71  LAST  847 


44  LAST  854 
1 
1 

3 LAST  798 
7 LAST  338 


33.2206  0 5353  1 

23.2207  16C35  0 

33.2210  20CCO  0 
E7,1515 

33.2211  02217  1 

33.2212  66067  0 

33.2213  3 7721  1 

33.2214  55'074  1 


SERVICER 


TC 

CCT 

OCT 

EBANK- 

2CADR 


PFASCHNG 

16035 

20000 

CVCNTR 

6ETABVAL 


CAF  PRI031 

TS  l/PIPADT 


RESTART  PEREADAC  + SERVICER 


INITIALIZE  1/PIPAOT  IN  CASE  RESTART  HAS 
CAUSED  LASTPIAS  TC  EE  SKIPPED^ 


0119  REF  235  LAST  847 

0120  REF  2 LAST  387 


33.2215  0 4616  1 

33.2216  15271  1 


TC  8ANKCALL  PIPA  COMPENSATION  CALL 

CADR  1/PIPA 


0121  REF 

0122 

0123  REF 

0124 

0125  REF 

0126  REF 

0127 

0128  REF 

0129  REF 
01292 

01294  REF 
01296  REF 

0130  REF 

0131  REF 

0132 

0133  REF 


143  LAST  651 
5 LAST  197 

346  LAST  851 
4 LAST  788 

1 

4 LAST  836 

12  LAST  827 
3 LAST  850 
14  LAST  84? 
9 LAST  706 

1 


33,2217  0 6042  1 

33.2220  51575  I 

33.2221  C0325  0 

33.2222  77776  1 

33.2223  2 0154  1 

33,222^  55*245  1 

33  ,2225  C 0006  1 

33. 2226  I 2C2C  0 

33.2227  53*514  1 

33.2230  0 0006  1 

33.2231  2 1244  1 

33  ,2232  53*571  1 

33.2233  4 01C4  0 

33.2234  7 4744  0 

33  ,2235  0 0006  1 

33,2236  I 2254  I 


GETABVAL 


RA  SSMON 


TC 

VLCAO 

EX  IT 

CA 

TS 

EXTEND 

MP 

DXCH 

EXTEND 

OCA 

DXCH 

CS 

MASK 

EXTEND 

BZF 


INTPPET 

A6VAL 

DELV 

MPAC 

ABOELV 

KPI  P 

ABDVCONV 

MASS 

MASSl 

FLAGWRC8 

SURFFBIT 

MOCNSPCT 


ABOELV  = CM/SEC#2(-14)- 

ABDVCONV  = M/CS  *2  (-5U 

INITIALIZE  MASS)  IN  CASE  WE  SKIP  MASSMON 
ARE  WE  ON  THE  SURFACE? 

YES:  BYPASS  MASS  MESS 


0134 

0135 

0136 

0137 

0138 

0139 


REF  18  LAST  825 
RFF  12  LAST  825 
RFF  251  LAST  853 

REF  3 LAST  834 
REF  215  LAST  854 


33,2237  3 0106  0 

33.2240  7 4737  1 

33.2241  10  COO  0 

33  ,2242  0 0006  1 

33.2243  2 2CC1  I 

33.2244  54  002  1 


CA  FLGWRDIO 

MASK  APSFLBIT 

CCS  A 

EXTEND 

CCA  APSVEX 
TS  0 


NO:  WHICH  VEX  SHOULD  BE  USED? 


IF  EXTEND  IS  EXECUTED,  APSVEX  — > A, 
OTHERW  ISE  DPSVFX  — > A 


0140 

014)  REF  5 LAST  855 

0142 

0143  KEF  216  LAST  855 

0144 

0145  REF  13  LAST  855 

0149  REF  4 LAST  P55 


33.2245  C 0006  \ 

33.2246  3 1514  0 

33.2247  0 0006  1 

33.2250  10  002  1 

33.2251  C 0006  I 

33.2252  7 1243  1 

33.2253  2) ' 571  1 


EXTEND 

OCA  ABOVCCNV 

EXTEND 

CCT10002  OV  Q 

EXTEND 
MP  MASS 

DAS  MASSl 


WHERE  APPROPRIATE  VEX  BESIDES 


3 LAST  813 
9 LAST  851 


2021  0 MOONSPOT  CA 
7312  0 TC 


KP  IPl 
SHCRTMP 


TP  MPAC  = ABOELV  AT  2(14)  CM/SEC 
MULTIPLY  BY  KPIPl  TO  GET 


ASSEI'BLE  REVISION  131  CF  AGC  FRCGBAr'  LUMINARY  BY  NASA  2021112-CSl 


REF  3A7  LAST  855 


REF 

REF 


LAST  727 


33,2260  0 2AAO  C 


REF  236  LAST  855  33,2261  0 A616  1 
REF  2 LAST  606  33,2262  47617  I 


0159 

0160 
0161 
0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

A017A 

0175 

0176 

0177 

0178 

0179 
C180 

0181 

0182 

0183 

018A 


REF  19^  LAST  855 


REF 

REF 

RFF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 

RFF 


6 LAST  831 


REF  3 
REF  22 
REF  252 


LAST 

LAST 


LAST 

LAST 

LAST 


33.2263 

33 .2264 

33.2265 

33.2266 

33.2267 
33,227C 
33  ,2271 
33,2272 
33,227'> 
33 ,2274 


3 2414  1 
0 4616  1 
20C37  1 
0 6042  1 
45014  0 
C3307  0 
66771  0 
66735  0 
77776  1 
0 3512  1 


AVERAGEG  0CN 


33,2275  C 2423  C CHRYCYCL  TC 


812 

812 

812 

808 

852 
856 

757 

853 
855 


33.2276 

33. 2277 
33 ,2300 


55'  157 
55'UC 
55*161 


33.2301  4741  C 

33.2302  7 0076  1 

33.2303  54  076  1 


33.2304 

33.2305 

33.2306 

33.2307 


3 4745  0 
7 0103  1 
10  000  0 
1 2342  1 


XNBPI PAD 

BANKCALL 

FLESHPCT 

I NTPRET 

CALL 

MUNFLAG 

RVBOTH 

CALCRV6 

QU  IKFAZ5 

COPYCYC 

ZERO 

PI  PATMPX 
PI PATMPY 
PIPATMPZ 

STEER6IT 
F LAGWR02 
FLAGWRC2 


CAF 

MASK 

CCS 

TCF 


0185 

0186 
0187 
0168 


REF  7 
REF  I 
REF  253 


33  ,2310 

23.2311 

33.2312 

33.2313 


4 0102 
7 4752 
10  OOO 
1 2346 


MASK 

CCS 

TCF 


0189 

0190 

0191 
01  92 

C193 

019*^ 

0195 


REF 

REF 

REF 


LAST 

LAST 

LAST 


856 

856 

856 


33.2314 

33.2315 

33.2316 

33.2317 

33.2320 

33.2321 

33.2322 


4 1250 
6 1245 
C CCC6 

6 2352 

4 0G76 

7 4741 
26  076 


CS  UVTHRUSH 

AO  ABOELV 

EXTEND 

BZMF  LOTHRUST 


MASK 

ADS 


FLAGWRD2 

STEERBIT 

FLAGWRD2 


REF  94  LAST  853  33,2323  3 4753  1 CVCNTSET  CAF 


t 


17:53  DECe  19,1969  FLY  ^153  PAGE 

USER'S  PAGE  NOp  5 E7  S3 

ABDELV  AT  2(7)  M/CS 
UPDATE  DVTDTAL  FOR  DISPLAY 


656 


A IS  ZERO  ON  RETURA  FRCM  COPYCYC 
STILL  UNDER  INHINT 

CLEAR  STEERSW  PRIOR  TO  CVMONo 

IS  THE  IDLE  FLAG  SET? 

lOLEFLAG  = 1,  HENCE  SET  AUXFLAG  TO  0« 

AUXFLAG  = 0,  HENCF  SET  AUXFLAG  TO  lo 


SET  STEERSWo 


ALLOW  TWO  PASSES  MAXIMUM  NOW  THAT 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  FPCGPAP  LUPINAP' 


GY  NASA  2021112-091 


L SERVICER 


REF  45  LAST  855  33,2324  55‘515  0 


0198 

0199 

0200 
0201 


REF  19 
REF  13 
REF  254 


LAST  055 
LAST  855 
LAST  856 


33.2325 

33.2326 
33  ,'2327 
33,2330 


3 Q1C6  0 
7 4737  1 
10  000  0 
I 2375  C 


MASK 

CCS 

TCF 


0202  REF 

0203 

0204  REF 

0205 

0206  REF 


21 


3 


2 


LAST 

LAST 

LAST 


853 

193 

057 


33  ,2'=‘34 
33,2335 


3 4743  0 
0 0006  1 
C2  C32  1 
0 0006  1 
I 2375  0 


CA 

EXTEND 

RANO 

EXTEND 

ezF 


BIT9 
CHAN32 
USE  JETS 


0207  REF  2 LAST  755 

0208  REF  25  LAST  825 

0209  REF  26  LAST  857 

0210  REF  1 


33.2336  4 4736  0 

33.2337  7 0111  1 

33.2340  54  111  1 

33.2341  1 2400  0 


USEGTS 


C S 
MASK 
TS 
TCF 


USEQR JTS 
DAP60CLS 
0AP6CCLS 
SERVOUT 


0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 


REF  2 LAST  856 
REF  8 LAST  856 
REF  9 LAST  857 
HEF  3 LAST  857 
REF  10  LAST  857 
REF  3 LAST  857 
PEF  11  LAST  857 
RFF  4 LAST  857 


33.2342  4 4752 

33.2343  7 0102 

33  ,2344  54  102 

33.2345  1 2375 

33.2346  4 0102 

33.2347  7 4752 

23.2350  26  102 

33.2351  1 2375 


1 NCDVMCNl  CS 
0 MASK 

0 TS 

0 TCF 
C NCIOVMON?  r.s 

1 MASK 

0 ADS 

0 TCF 


AUXFLBIT 
FLAGHRD6 
FLAGHR06 
USE  JETS 
FLAGWRD6 
AUXFL0 IT 
FLAGWRC6 
USEJETS 


0219 

0220 
0221 


REF  2 LAST  056 
PEF  46  LAST  857 
PEF  ) 


33.2352  r 3512 

33.2353  11'515 

33,2^54  1 2366 


1 LCTHRUST  TC 

0 CCS 

1 TCF 


OU IKFAZ5 

OVCNTR 

DECCNTR 


0222  REF 
02222  REF 


1 23,2355  1C  760  1 

2 LAST  857  33,2356  1 2400  0 


CCS  PHASEA 

TCF  SERVOUT 


02224  REF  72  LAST  855 
02226 


33,2357  C 5353  1 
33  ,2360  00374  1 


TC  PHASCHNG 

OCT  00374 


02220  REF  * 
0223  PEF  22 
02232  PEF  30 
02234  REF  2 
0223-i 

02236  REF  3 


LAST 

LAST 

LAST 

LAST 


718 
852 
84  6 


33.2361  3 7716  0 

33.2362  0 5072  1 
E7 ,1455 

23.2363  C2575  1 

33.2364  74067  0 

33.2365  1 2400  0 


CAF  PPIC25 

TC  NOVAC 

£BANK=  WHICH 
2CADR  CGRFAIL 


TCF  SERVCUT 


0224 

0225 

0226 
0227 
C228 
0229 


REF  J 

REF  3 LAST  857 
REF  2 LAST  857 
REF  47  LAST  857 

REF  45  LAST  847 


33.2366 

33.2367 
33,2370 
33,2271 

33.2372 

33.2373 


55'570  0 
0 3512  1 
2 157C  1 
55*515  0 
C 0004  0 
C 4674  0 


DECCNTR 


TS 

TC 

CA 

TS 

INhlNT 

TC 


DVCNTRl 

0UIKFAZ5 

DVCNTRl 

OVCNTR 


I 6NKCALL 


37:53  DEC,  19,1069  FLY  ,153  PAGE  857 

USER'S  PAGE  NCo  6 E7  S3 

THPLST  HAS  BEEN  DElECTEOo 
BRANCH  IF  APSFLAG  IS  SETo 

CHECK  GIM0AL  FAIL  BIT 


SET  AUXFLAG  to  0* 


SET  AUXFLAG  TO  U 


COMFAIL  JOB  ACT  IVE? 

YES  WON'T  NEED  ANCTHERo 

4o37SPOT  FCR  CCMFAILe 


IF  THRUST  IS  LOW,  NO  STEERING  IS  DONE 


gap:  assemble  revision  121  OF  AGC  PRCGRAf'  LUMINARY  BY  NASA  2021112-091 


L SERVICER 


0230 

0231 

0232 

0233 

0234 

0235 

0236 


REF  7 LAST  844 
REF  27  LAST  857 
REF  3 LAST  857 
REF  28  LAST  85ft 

REF  23fi  LAST  856 
REF  1 


33.2374  A0166  1 

33.2375  4 CIU  1 

33.2376  7 4736  0 

33.2377  26  111  1 

33,2400  C 0003  1 
33  ,2401  0 4616  1 

23,2402  4C463  I 


USEJETS 


SERVOUT 


CACR  STCPRATE 
CS  OAPBOCLS 
MASK  USEORJTS 
ACS  DAPBOOLS 
PELINT 

TC  BANKCALL 
CACR  1/ACCS 


0239 

0240 

0241 

0242 

0243 


REF 

REF 

REF 


LAST 

LAST 

LAST 


270 

434 

802 


FEF  25  LAST  820 


33.2403 

33.2404 

33.2405 
33  ,2406 
33 ,2407 


3 0167  I 
7 5004  1 
54  166  1 
22  007  0 
52  121  1 


CA  PRIORITY 

MASK  L0W9 
TS  PUSHLCC 

ZL 

DXCH  FIXLOC 


0244 

0245 

0246 

0247 


REF  4 LAST  857 

REF  6 LAST  854 
REF  21  LAST  750 


33,2410  0 3512  1 

33  ,2411  0 0006  1 

33.2412  3 1252  0 

33.2413  52  006  0 


TC  QUIKFAZ5 

EXTEND 

DCA  AVGBXIT 

DXCH  Z 


02475  REF 


7 LAST  844 


33,2414 


C2145  0 XN8PIPA0  eCAOR  XN8PIP 


0248 

0249  REF  1 

0250 

0251  PEF  1 


32, 3746 
22 ,2000 
22,‘’66l 


BANK  32 
SETLOC  SERVE 
BANK 

COUNT*  SS/SERV 


02  54 
0255 


REF  55  LAST  846 
REF  1 


22.3663  C 5504  0 

22.3664  00036  1 


TC  UPFLAG 
ADRES  DRIFTFLG 


0256  REF  239  LAST  858 

0257  REF  1 


TC  BANKCALL 

CADR  PIPFRFE 


0258  REF  22  LAST  857 

0256 

0260  REF  29  LAST  853 


22,3667  4743  1 

22.3670  C 0006  1 

22.3671  C3  011  1 


CS  BIT9 

EXTEND 

WAND  DSALMOUT 


0262 

0263 

0264 


10  LAST  757  22,3672  C 5327  1 

22  ,3673  00005  1 

22.3674  05022  1 

22.3675  20000  0 


TC  2PHSCHNG 

OCT  5 

OCT  05022 

ncT  ?ocno 


0265 

0266 
02  67 
0268 

0269 

0270 


REF  145  LAST  856 

REF  2 LAST  843 

REF  1 

REF  7 LAST  856 


22.3676 

22.3677 

22.3700 

22.3701 
22,37C2 
22  ,3703 


C 60^2 
43014 
01464 
03664 
45014 
03267 


1 

0 

0 

0 

0 

I 


CLEAR 


INTPRET 

CLEAR 

NOR29FLG 

SWANCIS  P 

CALL 

MUNFLAG 


7:53  OECc  19,1969  FLY 


cl53  PAGE  858 


USER' S PAGE  NCo  7 E7  S3 


AND  THE  DESIPFD  RATES  APE 


SET  TO  ZERO; 


FIXLOC  AND  OVFIND 


EXIT  TO  SELECTED  ROUTINE  WHETHER  THERE 
IS  THRUST  OR  NPTo  THE  STATE  OF  STEERSW 
WILL  CONVEY  THIS  INFCRMATICNo 


FINAL  AVERAGE  G EXIT 

SET  UP  FREE  FALL  GYRO  CPMP  ENSAT  lONo 

SET  DRIFT  FLAG* 


GROUP  5 OFF 
GROUP  2 ON 


SHUT  OFF  R29  WHEN  SEPVICER  ENOS* 
SHUT  OFF  P10  WHEN  SERVICER  ENDSr 
RESET  MUNFLAG* 


GAP  : 


OEC( 


153 


PAGE  859 


L 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53 


19,1969  FLY 


SERVICER 


USER'S  PAGE  NOo 


E7  S3 


0271  REF  1 

0272 

0273  REF  1 

027A  REF  5A 

0275  REF  1 


LAST  8^7 


22,370A 
22  ,3705 

22.3706 

22.3707 
22  ,3710 


27A63  0 
77A1A  0 
03671  I 
0 A635  0 
10116  0 


CLEAR 

AVERTRN  TC 

CACR 


AVETCMIO 

EXIT 

V37FLAG 

POSTJUMP 

V37RET 


0276  REF  1 

0277  REF  5 LAST  855 


22,37C7 

E7,1570 


OUTGOAVE  = AVERTRN 

CVCNTRl  = MASSl 


gap:  assemble  revision  131  OF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021112-091 


L SERVICER 


P0278 


02782  REF  1 

02784 

02786  REF  1 


SETLOC  SERV3 
BANK 

COUNT*  St/SERV 


0279 

0280  REF 

0281  REF 


1 

7 LAST  856 


27,3322 
27  ,3323 
27,3324 


0 0006  1 
3 3360  1 
53*252  1 


SERVIDLE  EXTEND 

DCA  SVEXTACR 
DXCH  AVGEXIT 


0282  REF  2?  LAST 

0283  KEF  4 last 

0284  REF  24  LAST 


356  27,3325  A 0103  1 
956  27,3326  7 4745  1 
960  27,3327  26  1C3  1 


CS  FLAGWRD7 
MASK  lOLEFBIT 
ADS  FLAGWRD7 


02  85 
0286 


REF  6 
REF  11 


LAST  825 
LAST  825 


27.3330 

27.3331 


3 4735  1 
54  107  0 


CAF  LRBYBIT 
TS  FLGWRDll 


0287 

0298 

0289 


REF  15 
REF  4 


LAST  809 
LAST  730 


27,3332 
27  ,3333 
27, 3334 


0 00C6  1 
3 4755  1 
52  752  0 


EXTEND 

OCA  NEGO 

DXCH  -PHASEl 


0290  REF  12 

0291  REF  A 

0292  REF  255 

0293 


LAST  857  27,5335  3 0102  I 

LAST  853  27,3336  7 474A  0 

LAST  857  27,3337  K OOO  0 

27  ,3340  1 3344  0 


CA  FLAGWR06 

MASK  MUNFLBIT 

CCS  A 

TCF  +4 


0294 

0295  KEF  16  LAST  860 

0296  REF  6 LAST  854 


27,33A1 
27,3342 
27 ,33A3 


I 

1 

0 


EXTEND 

DCA  NEGO 

DXCH  -PHASE2 


0297 

0298  REF  17  LAST  860 

0299  REF  4 LAST  809 


27,33AA  C CCC6  1 

27.3345  3 4755  1 

27.3346  52  756  1 


EXTEND 

DCA  NEGO 

DXCH  -PHASES 


0300 

0301 

0302 


REF  18  last  860 
REF  3 LAST  738 


27,3347  C 0006  1 
27  ,3350  3 4755  1 
27,3351  52  764  0 


EXTEND 

OCA 

DXCH 


NEGO 

-PHASE6 


0305 

0306 


LAST  826 


27.3352 

27.3353 

27.3354 

27.3355 


3 4764  C 
5A  OCl  I 
A CCOO  0 
52  760  1 


CAF  0CT33 

TS  L 

CCM 

DXCH  -PHASEA 


0307 

A0308 

A0309 

A0310 

A0311 


REF 


27,3356  1 5634 


TCF  WHIMPER 


0312 


REF  48  LAST  857 


E7,1515 


EeANK=  DVCNTR 


] 7: 53  DECo  19,1969  FLY 


153  PAGE  860 


USER'S  PAGE  NCo  9 E7  S3 


DISCONNECT  SERVICER  FRGM  ALL  GUIDANCE 


DISCONNECT  THE  CELTA-V  MONITOR 


TERMINATE  R12  IF  RUNNINGo 


DO  NOT  TURN  OFF  PHASE  2 IF  MUNFLAG  SET« 


Ao  33SP0T  FCR  GCPCCFIX 


PERFORM  A SOFTWARE  RESTART  AND  PROCEED 
TO  GOTOPOOH  WHILE  SERVICER  CONTINUES  TO 
RUN,  ALBEIT  IN  A GRCUND  STATE  WHERE 
CNLY  STATE-VFCTOR  CEPENOENT  FUNCTIONS 
ARE  MAINTAINEOo 


GAP:  ASSEMBLE  REVISION  331  OF  AGC  PRCGRAI*'  LUMINARY  BY  NASA  2021112-091 

L SERVICER 


0313  REF 

0313 

0314 

0315  REF 

0316 

0317  REF 


7 LAST  826 

1 

1 


27,3357  037A6 

27,3360  64067 

32,3746 
32 ,2000 
32,3746 


1 SVFXTAOR  2CA0R  SERVEXIT 
1 

BANK  32 
SETLOC  SERV 
BANK 

CCUNT*  it/SERV 


0318  REF  73  LAST  857 

0319 


0320  REF  132  LAST  843 

0321 

0322  REF  1 

0323 


0324  REF  1 


0 5353  1 SERVEXIT  TC 
00035  1 OCT 


32,3750  1 5155  1 

23,2463 

23,2000 

23,2463 


7CF  ENOOFJCB 

BANK  23 
SETLOC  NORMLI Z 
BANK 


CCUNTY  i$/SERV 


PAGE  861 


17: 53  DFC,  19,1969  FLY 


USER'S  PAGE  NOa 


e?  S3 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202H12-0QI 


L SERVICER 


P0325  NORMLIZE  ANO  COPYCYCL 


0326  PEE  1-V6 

0327 

0328  REF  3 

0329  REF  P 

0330  REF  1 

0331 

0332  REF  32 

0333  REF  19 

0334  REF  4 

C335 

0336  REF  4 

0337 

0338  REF  33 

0339  REF  )l 

0340  REF  4 

0341 

0342  REF  5 

0343  REF  3 

0344 

0345 

0346  REF  19 

0347  REF  7 


LAST  858 

LAST  151 
LAST  858 


LAST  834 
LAST  848 
LAST  832 

LAST  774 

LAST  862 
LAST  838 
LAST  728 

LAST  848 
LAST  153 


LAST  860 
LAST  860 


23»2463  0 6042 

23f2464  43175 

23,2465  C3545 

23,2^66  03347 

23,2467  66415 

23.2470  64252 

23.2471  01734 

23.2472  37521 

23.2473  67067 

23.2474  76575 

23.2475  C3553 

23.2476  77721 

23.2477  01734 

23.2500  27527 

23.2501  01726 

23.2502  53435 

23.2503  01720 

23.2504  C3720 

23.2505  77776 

23,2  506  C 0006 
23,2507  3 4755 

23,2510  52  754 


1 

0 

C 

1 

I 

0 

0 

C 

1 

1 

I 

0 

0 

1 

0 

0 

0 

1 

1 

1 

1 

0 


NORMLIZE  TC  IN7PRET 

VLOAO  BQFF 
RM 

MUNFLAG 
NORMLIZl 
VSL6  MXV 

REFSMKAT 
STCALL  R 

MUNGRAV 
VLOAO  VSLl 
VNl 


MXV 

R EFSMMAT 
STCVL  V 

V(CSM) 
vxv  UNIT 

R(CSM) 
STORE  UHYP 
ASCSPOT  EXIT 

EXTEND 

DCA  NE60 

OXCH  -PHASE2 


C348  REF  55  LAST  859 
03^82  REF  1 


23  ,2511  0 4635  0 

23,2512  6642C  1 


TC  PDSTJUMP 

CADR  N0RMLIZ2 


03403 

03484  REF 

03485 

03486  REF 


33,2415 

5 LAST  854  33,2000 

33, 2415 

5 LAST  854  TO  858:  135  172* 


BANK  33 
SETLOC  SERVICES 
BANK 

COUNT#  Si/SERV 


0349 

0350  REF 

0351 


33.2415 

33. 2416 
33  ,2417 


77624  1 NCRMLI Z1  CALL 
66667  0 

77776  1 EXIT 


CALCGRAV 


0352 

0353 
03  54 


REF  1 
REF  2 
REF  133 


33,2420 
LAST  856  33,2421 
LAST  861  33,2422 


C 5155  0 


NCRMLI Z2 


CA 

TC 

TC 


EIGHTEEN 
COPYCYC  +1 
END0FJC8 


0355  REF  6 

0356 

0357  REF  4 

0358  REF  31 

0359 

0360  REF  32 

03  61  REF  4 

0362  REF  33 


LAST  854 

LAST  335 
LAST  746 

LAST  862 
LAST  862 
LAST  862 


33. 2423 

33.2424 

33.2425 

33. 2426 
33  ,2427 
33,24  30 
33,2431 
33  ,2432 


3 60C7  C 
C 0004  0 
7 7752  1 
54  061  1 
0 0006  1 
5 0061  0 
3 1545  1 
50  0 61  0 


COPYCYC 
+ 1 
+ 2 


CA  0CT24 

INHINT 
MASK  NEGl 
7S  ITEMPl 

EXTEND 

INDEX  ITEMPl 
DCA  PNl 
INDEX  ITEMPl 


17:53  CECo  19,1969  FLY 


-.153  PAGE  862 


USER'S  PAGE  NC«  11  E7  S3 


MAKE  SURE  GOUP  2 I S CFFo 


DO  NOT  CCPY  MASS  IN  NORMLIZE 


DEC  20 


REDUCE  BY  1 IF  ODD 


GAP: 


ASSEf'BLE  REVISION  131  CF  AGC  PRCCRAN  LUMINARY  BY  NASA  2021U2-C91 
SERVICER 


0363 

0364 

0365 

0366 


REF  13 
REF  34 
REF  3 
REF  217 


LAST 

LAST 

LAST 

LAST 


786 
86  2 
662 
655 


33.2433 

33.2434 
33,  2435 
33,2436 


52'220  1 
10  061  1 
1 2425  1 
0 0002  0 


OXCH 

CCS 

TCF 


17:53  DEC«  19,1969  FLY 
USER'S  PAGE  NO. 


RETURN  UNDER  INHI  M 


PAGE 
£7  S3 


33,2437  C0022  1 EIGHTEEN  DEC 


GAP: 


ASSEMBLE  REVISION  131  OF  AGC  PRCCBAI^  LUMINARY  BY  NASA  2021112-091 


17:53  DEC. 


19,1969  FLY 


-153  PAGE 


L SERVICER  USER'S  PAGE  NO®  13  E7  S3 

P0368  PIPA  READER  *>1'#*#*#«>1‘****#*#*#** 

RC369  MOD  NC,  00  EY  C»  LICKLY  C£Co9  1966 


R0370  FUNCTIONAL  DESCRIPTICN 


SUBROUTINE  TO  REAC  PIPA  COUNTERS,  TRYING  TO  BE  VERY  CAREFUL  SO  THAT  IT  WILL  BE  RESTAPTAELEc 

PIPA  READINGS  ARE  STORED  IN  THE  VECTOR  CELV,  THE  HIGH  ORDER  PART  OF  EACH  COMPONENT  CONTAINS  THE  PIPA  READING, 
RESTARTS  BEGIN  AT  REREADAC* 


R0376  AT  THE  END  CF  THE  PIPA  READER  THE  CCUS  ARE  READ  AND  STORED  AS  A 

R0377  VECTOR  IN  CDUTEMPo  THE  HIGH  CRDEP  PART  OF  EACH  COMPONENT  CONTAINS 

R037e  THE  ecu  READING  IN  2S  COMP  IN  THE  ORDER  CDUX,Y,Z»  THE  THRUST 

R0379  VECTOR  ESTIMATCR  IN  FINOCOUD  PECUIRES  THE  CCUS  BE  READ  AT  PIPTIME* 


R0380  CALLING  SEQUENCE  AND  EXIT 

R0381  CALL  VIA  TC,  ISWCALL,  ETC* 

R0382  EXIT  IS  VIA  Q* 


R0383 

R038A  INPLT 

R0385  INPUT  IS  THROUGH  THE  COUNTERS  PIPAX,  PIPAY,  PIPAZ,  AND  TIME2* 

R0386  CLTPLT 

R0387  HIGH  ORDER  COMPCN’ENTS  CF  THE  VECTOR  CELV  CONTAIN  THE  PIPA  READINGS* 

R0388  PIPTIME  CONTAINS  TIME  OF  PIPA  READING* 


R0389 

R0390 


DEBRIS  (ERASABLE  LOCATIONS  DESTROYED  BY  PRCGRAM) 
TEMX  TEMY  TEMZ  PIPAGE 


0391 

0392 

0393 


37,3536 
LAST  852  37,2000 

37,3536 


BANK  37 
SETLQC  SERVl 
BANK 


REF  2 LAST  852  TO  854: 

37,3536 


COUNT*  iS/SERV 


0395 


G 0006  1 PI PASR  EXTEND 


17:53  DECo  19tl96g 


FLV 


- 153 


PAGE  865 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PRCC-PAM  LUMINARY  BY  NASA  2P21I12-091 

L SERVICER  USER'S  PAGE  NOo  1*  E7  S3 


0396 

0397 
0390 

0399 

0400 

0401 


REF  26 
REF  8 
REF  158 
REF  5 
REF  4 
REF  4 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


82  5 
796 
851 
812 
812 
812 


37,3537 

37.3540 

37.3541 

37.3542 


27.3543 

37.3544 


3 0025 
53'561 

4 4755 
55*253 
55*254 
55*255 


0 

0 

c 

0 

1 

c 


OCA  TIME2 

DXCH  PIPTIMEl 
CS  ZERO 

TS  TEMX 

TS  TEMY 

TS  TFMZ 


CURRENT  TIME  POSITIVE  VALUE 
INITIALIZE  THESE  AT  NFG®  ZEROo 


0402  REF  159 

0403  REF  4 

04031  REF  5 

0404  REF  5 

04041  REF  6 

04042  REF  9 

0405  RFF  4 


LAST  865  37 

LAST  386  37, 

LAST  865  37 

LAST  386  37 

LAST  865  37, 

LAST  387  37 

LAST  853  37 


,3545  3 4755  1 

3546  54  330  0 

3547  54  331  1 

3550  54  326  1 

3551  54  327  C 

,3552  54  325  1 

3553  55*256  0 


CA  ZERO 

TS  OELVZ 

TS  DELVZ  +1 

TS  DELVY 

TS  DELVY  +1 

TS  DELVX  +1 

TS  PIPAGE  SHOW  PIPA  READING  IN  PROGRESS 


0406 

0407 

0408 

0409 

0410 

0411 


RBF  9 
REF  6 
REF  10 
REF  10 
REF  7 


LAST  811 
LAST  865 
LAST  865 
LAST  865 
LAST  865 


37,3584 

37.3555 

37.3556 

37.3557 

37.3560 

37.3561 


C 0006  1 
4 0040  1 
52*254  1 
52  040  1 
54  324  0 
22  326  0 


PEPIPI 


EXTEND 

DCS  PIPAX 

OXCH  TEMX 
DXCH  PIPAX 
TS  DELVX 

LXCH  DELVY 


X AND  Y PIPS  READ 

PIPAS  SET  TO  NEG  ZERO  AS  READ^ 


0412  REF  4 

0413  REF  5 

0414  REF  5 

0415  REF  6 


LAST  811  37 

LAST  865  27 

LAST  865  37 

LAST  865  37 


,3562  4 0041  0 
,3563  57*255  1 
,3564  56  041  1 
,3565  54  330  0 


REPIP3  CS 
XCF 
XCH 

DOCELVZ  TS 


P IPAZ 
TEMZ 
PIPAZ 
DELVZ 


REPEAT  PROCESS  FOR  Z PIP 


0416 

0417 

0418 

0419 

0420 

0421 


REF 

REF 

REF 

REF 


LAST  865 
LAST  105 

LAST  958 
LAST  865 


27. 3566 

37.3567 

37.3570 

37.3571 

37.3572 

27.3573 


C OOC6  1 

3 1561  1 
53*247  0 
C 0006  1 

4 1234  1 
21*247  0 


RBPIP4 


EXTEND 

OCA  PIPTIMEl 
DXCH  PGUIDE 
EXTEND 

DCS  PIPTIME 

CAS  PGUIDE 


COMPUTE  6UI0ANCF  PERIOD 


0422 

0423 
042^ 
042  5 
0426 

0428 

0429 

0430 

0431 

0432 

0433 


REF  13 
REF  1 
REF  5 
REF  1 
REF  7 
REF  1 
REF  11 
REF  3 
REF  8 
REF  3 
REF  7 
REF  3 


LAST  611 
LAST  611 
LAST  606 

LAST  865 
LAST  856 
LAST  865 
LAST  856 
LAST  865 
LAST  856 


37.3574 

37.3575 

27.3576 

37.3577 

27.3600 

37.3601 

37.3602 

27.3603 

37.3604 

37.3605 

37.3606 

37.3607 


3 0C32  0 
55*154  1 

2 0C33  1 
55*155  0 

3 0034  0 
55*156  0 
3 0324  1 
55*157  1 
3 0326  0 
55*160  0 
2 C330  1 
55*161  1 


CA  CDUX 

TS  CDUTFMPX 

CA  CDUY 

TS  COUTEMPY 

CA  CDUZ 

TS  CDLTEMPZ 

CA  DELVX 

TS  PIPATMFX 

CA  DELVY 

TS  PIPATMPY 

CA  DELVZ 

TS  PIPATMPZ 


REAC  CDUS  INTO  HIGH  CROFR  COUTEMPS 


0434  REF  218  LAST  863 


37,3610  C 0002  0 


TC  0 


GAP 


ASSEMBLE  REVISION  131  CF  AGC  PRCGPAM  LUMINARY  BY  NASA  202in?-091 


17: 53  DeC«  19,1969 


FLY 


. 153  PAGE  866 


L SERVICES 


0^35  REF  5 LAST  865 

0A36  REF  1 


37.3611  11'256  0 REREACAC  CCS 

37.3612  1 3A37  0 TCF 


PIPAGE 

REAOACCS 


0437  REF  1 

0438  REF  219 


LAST  865 


37 .3613 

37.3614 


3 3651  0 
54  002  1 


CAF  DONEADP 

TS  0 


0439 

0440 

0441 

0442 

0443 


8 

1 


REF 

REF 


2 

3 


LAST  865  37,3615 

37.3616 

37.3617 
LAST  866  37,3620 

last  866  37,3621 


1C  330 
1 3566 
1 3622 
1 3566 
1 3566 


0 

0 

0 

0 

0 


CCS 
TC  F 
TCF 
TCF 
TCF 


REPIP4 
REP  IP4 


0444 

0445  REF 

0446 

0447  REF 

0448 

0449  REF 


9 LAST  865 
1 

6 LAST  865 


37.3622  22  CC7  0 

37.3623  10  326  I 

37.3624  1 3627  0 

37.3625  1 3636  0 

37.3626  1 3627  0 

37.3627  22  041  1 


ZL 

CCS  OELVY 
TCF  +3 

TCF  CHKTEMX 

TCF  +1 

LXCH  PIPAZ 


0450  REF 

0451  REF 

0452  REF 

0453 

0454  REF 

0455  REF 


6 

7 

1 


9 

4 


LAST  865  37,3630 

LAST  866  37,3631 

37,3622 
37,3633 
LAST  866  37,3634 

LAST  366  37,3635 


4 1255  0 
1 3565  C 
1 3631  1 
22  330  1 
1 3566  0 


CCS 

CS 

TCF 

TCF 

LXCh 

TCF 


TEMZ 

TEMZ 

DODELVZ 

-2 

OELVZ 
REPI P4 


0456  REF  7 LAST  065 

0457  REF  8 LAST  866 

0458 

0459 

0460  REF  1 

0461  REF  12  LAST  865 


37.3636 

37.3637 

37.3640 

37.3641 

37.3642 

37.3643 


11*253 
4 1253 
1 3643 
1 3637 
1 3554 
54  324 


0 

0 

1 

1 

1 

0 


CFKTEHX  CCS  TEMX 

CS  TEMX 

TCF  +3 

TCF  -? 

TCF  PEPIPl 

TS  DELVX  - 


0462  REF  5 LAST  865 

0463  REF  10  LAST  866 


37.3644  4 1254  1 

37.3645  54  326  1 


CS  TFMY 

TS  DELVY 


0464  REF  160  LAST  865 

0465  REF  11  LAST  865 


37.3646  4 4755  0 

37.3647  52  040  1 


CS  ZERO 

OXCH  PIPAX 


0466  REF  1 

0467  REF  1 


37.3650  1 3562  1 TCF  REPIP3 

37.3651  03447  0 DONEACR  GENAOR  PIPSOONE 


USER'S  PAGE  NCe  15  E7  S3 

PIP  READING  NOT  STAPTEDo  GO  TO  BEGINNING 
SFT  UP  RETURN  FRCM  PIPASR 


Z DONE,  GO  DO  COUS 
Z NOT  DONE,  CHECK  Yo 


Y NOT  DONE,  CHECK  Xo 

Y DONE,  ZERO  Z PIPo 

TEMZ  NOT  = -0,  CONTAINS  -PIPAZ  VALUEo 


TEMZ  = -0,  L HAS  ZPIP  VALUEt 


HAS  THl S CHANGED 

YES 

YES 

YES 

NO 


ZERO  X AND  Y PIPS 
L STILL  ZERO  FROM  ABOVE 


GAP : 

L 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

C477 

0478 

R0479 

R0480 

R0481 

R0482 

R0483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

049  T 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 


ASSEMBLE  REVISION  13: 


CF  AGC  PRCGRA 


LURINARY  BY  NASA  2021112-091 


17:53  DEC, 


153  PAGE  867 


o 19»1069  FLY 


SERVICER 


USER'S  PAGE  NOo  16 


E7  S3 


33, 2A40 

REF  6 LAST  862  33,2000 

• 23,2^40 


BANK  33 
SETLOC  SERVICES 
BANK 


REF  6 LAST  862  TC  864: 


19  191# 


COUNT*  St/SERV 


REF  2 LAST  865 

REF  1 

REF  2 LAST  865 

REF  1 

REF  2 LAST  865 

REF  1 

REF  220  LAST  866 


33,2440  3 1155  1 TRPTOSPT  CA 


33,2441  54  765  1 TS 

33  ,2442  3 1156  1 CA 

33.2443  £4  767  0 TS 

33.2444  3 1154  0 CA 

33.2445  54  771  I TS 

33.2446  C 0CC2  0 TC 


CDUT  EMPY 
COUSPOTY 
CDUTFMPZ 
COUSPCTZ 
COLTEYPX 
COUSPCTX 
Q 


THIS  SUBROUTINE,  CALLED  BY  AN  RT6  FROM 
INTERPRETIVE,  LEADS  THE  COUS  CORRESPON- 
DING TO  PIPTIME  INTO  THE  COUSPOT  VECTORo 


LPHTASK  IS  A WAITLIST 
PHASE  WHEN  THE  ALT  TO 


TASK  SET  EY  REACACCS 
THE  LUNAR  SURFACE  IS 


CURING  THE  DESCENT  BRAKING 
LESS  THAN  25,000  FT<,  THIS 


TASK  CLEARS  THE  ALTITUDE  MEASUREMENT  MADE  DISCRETE  AND  INITIATES  THE 
LANDING  RADAR  MEASUREMENT  JCE  (LRHJOB)  TO  TAKE  A ALTITUDE  MEASUREMENT 
50  MS  PRIOR  TO  THE  NEXT  REAOACCS  TASK. 


REF 


LAST  42 


21,2125 
21,2000 
21, 2125 


BANK  21 
SETLCC  RIO 
BANK 


REF  1 


COUNT*  $t/SEPV 


12  LAST  860 
7 LAST  860 


21.2125 

21.2126 
21,2127 
21,2130 


4 01C7  0 LRHTASK 
7 4735  0 
C 0006  1 
1 2141  0 


CS  FLGWRCll 

MASK  LRBY0IT 
EXTEND 

BZF  GRP2CFF 


LR  BYPASS  SET  - BYPASS  ALL  LR  READING,. 


REF  13  LAST  367 
REF  I 

REF  2 LAST  867 


21.2131  4 0107  0 

21.2132  7 4742  0 

21. 2133  0 0006  1 

21.2134  1 2141  0 


CS  FLGWRDll 
MASK  NOLRRBIT 
EXTEND 

BZF  GRP20FF 


IS  LR  READ  INHIBITED? 
YESe  BYPASS  LP  REAOs 


REF 

REF 

REF 

REF 

REF 


REF  20 
REF  8 
REF  1 


LAST 

LAST 


LAST 

LAST 


CA  PRIC32 

TC  NOVAC 

£eANK=  HMEAS 
2CA0R  LRHJC6 


21,2135 
857  21,2136 

240  £7,1654 

21, 213? 

21.2140 

21.2141 
862  21,2142 

062  21  ,2143 

21,2144 


3 7723  0 
C 5072  1 

C3571 
70067  1 
C 0006  1 GRP20FF 
3 4755  1 
52  754  0 
I 2021  1 


EXTEND 
DC  A NEGC 

DXCH  -PHASE2 
TCF  RIO.RIIA 


LR  READ  OK  SET  JOB  TO  00  IT 
ABCUT  50  MS  PRIOR  TO  PIPA  READ 


REF 


7 LAST 


867 


33,2447 

33,2000 

33,2447 


BANK  33 
SETLOC  SERVICES 
BANK 


gap:  ASSfMBLf  REVISION  131  OF  AGC  PRCGRAf'  LUMINARY  BY  NASA  2021112-091 


17:53  DEC®  19,1969  FLY 


153  PAGE  868 


L SERVICER  USER'S  PAGE  NCo  17  £7  S3 

0511  REF  7 LAST  667  TO  867;  7 198*  COUNT*  $$/SERV 

R05J2  HIGATASK  IS  ENTERED  APPROXIMATELY  6 SECS  PRIOR  TC  HIGATE  DURING  THE 
R05i3  DESCENT  PHASE*  HIGATASK  SETS  THE  HIGATE  FLAG  (BITIU  AND  THE  LR  INHIBIT 

R051A  FLAG  (BITIOI  IN  LRSTAT*  THE  HlGATJCfl  IS  SET  UP  TC  REPOSITION  THE  LR 

R0515  ANTENNA  FRCM  POSITION  1 TC  POSITION  2*  IF  THE  REPOSITIONING  IS 

R0516  SUCCESSFUL  THE  ALT  BEAM  AND  VELOCITY  SEAMS  ARE  TRANSFORMED  TO  THE  NEW 

R0517  ORIENTATION  IN  NB  COORDINATES  AND  STORED  IN  ERASABLE* 


0518  REF  74  LAST  861 

0519 


33,2447  0 5353  1 HIGATASK  TC 

33,2450  00C51  0 OCT 


PHASCHNG 


0520  PEF  2 LAST  867 

0521  REF  39  LAST  853 

0522  REF  5 LAST  867 

0523  REF  1 

0523  REF  1 

0524  REF  14  LAST  867 

0525  REF  11  LAST  708 

0526  REF  15  LAST  868 

0527  REF  1 


33,2451 
33  ,2452 
E7,1654 
33,2453 
33  ,2454 

33.2455 

33.2456 

33.2457 
33,2460 


3 7723  C 

0 5105  0 

03634  0 
66067  0 

4 C107  0 
7 5015  1 
26  107  0 

1 2546  0 


CA  PRID32 

TC  FINDVAC 

E6ANK=  HMEAS 
2CA0R  HIGATJGB 

CS  FLGWRDll 

MASK  PRI03 
ACS  FLGWRDll 
TCF  CCNTSERV  +1 


gap:  assemble  revision  131  OF  AGC  PPCCPAf^  LUMINARY  BY  NASA  2021112-C91 


P0528 

0529 

0530 

0531 

0532 

0533 


SERVICER 

MUNRETRN  IS  THE  RETURN  LOC  FROM  SPECIAL  AVE  G ROUTINE  (MUNRVG) 
33t246l  77776  1 MUNRETRN  EXIT 


33f  2’A62 
33,2A63 
33,246A 
33,2465 


4 0107  0 
7 4735  0 

0 7006  1 

1 2551  0 


CS  FL6WBD1J 
MASK  LRBYDIT 
EXTEND 

BZF  CCPYCYCl 


0534 

0535 

0536 

0537 


17  LAST  869 


33  ,2466 
33,2467 

33.2470 

33 .2471 


4 0107  0 
7 4743  1 
C 0C06  1 
1 2506  1 


CS  FLGWRD11 

MASK  XGRFLBIT 
EXTEND 
OZF  R12 


0538 

0539 

0540 

0541 

0542 
05425 


LAST  856 


REF  3 
REF  349 


33. 2472 

33.2473 

33.2474 

33.2475 
33  ,2476 
33,2477 


C 0C06  1 
3 3113  I 
52  155  1 
C 0C06  1 
3 1535  0 
20  155  I 


EXTEND 

OCA  )-30KFT 
DXCH  MPAC 
EXTEND 

OCA  HCALC 

CAS  MPAC 


0543 
05435 

0544 

05445 

0545 
05455 


REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 

LAST 


845 

869 


33.2500 

33.2501 
33,  25C2 

33.2503 

33.2504 
33,25C5 


1C  000  0 
1 2506  1 
C 5504  0 
00311  1 
C 5504  0 
00253  n 


R12 

UPFLAG 

XOVINFLG 

UPFLAG 

XCRFLG 


0546 
05463 
05465 

0547 

0548 
054« 
0550 
0552 


19  LAST  869 


33  ,2506 
33,2507 

33.2510 

33 .2511 

33. 2512 

33.2513 

33.2514 

33.2515 


4 0107  0 
7 4742  C 
C 0006  1 
1 2545  0 

4 C107  0 
7 4751  1 
C 0006  1 
1 3115  0 


CS  FLGWROll 
MASK  NOLRRBIT 
EXTEND 

BZF  CONTSERV 

CS  FLGWRDll 
MASK  NDSllBIT 
EXTEND 

BZF  UPOATCHK 


0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 


REF 

REF 

REF 


20  LAST  869 


LAST  820 
LAST  568 


REF  3 
REF  36 
REF  139 


LAST  281 
LAST  845 
LAST  860 


33  ,2516 
33,2517 

33.2520 

33 .2521 

33.2522 

33.2523 

33.2524 

33. 2525 

33  ,2526 
33,2527 
33,2530 


4 0107  0 
7 4741  0 
C 0006  1 
1 2540  0 
3 1642  0 
6 1427  1 
C 0006  1 
6 2536  0 

3 4741  1 
56  CC3  I 
54  001  I 


HITEST  CS  FLGWRDll 

MASK  PSTHieiT 

EXTEND 

BZF  P0S2CHK 

HIGATCHK  CA  TTF/8 

AD  RPCRTIME 

EXTEND 

BZMF  POSICHK 


17:53  DECe  19,1969  FLY 
USER  'S  PAGE  NOo 


.153  PAGE  869 
18  E7  S3 


BYPASS  LR  LCGIC  IF  BIT18  IS  SETo 
CHECK  IF  AT  30000  FT 


ALTITUDE  > 30KFT 

ALTITUDE  < SOKFT  SET  X-AXIS  OVERRIDE 


IF  N0511BIT  SET, 00  NOT  CHFCK  CR  POSITION 


IS  TTF  > CRITERION?  (TTF  IS  NEGATIVE) 

[! 

NO 

MUST  SWITCH  E8ANKS 


SAVE  IN  L 


gap:  ASSENBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  0Y  NASA  2C'21112-C9l 


L SERVICER 


05635  REF  8 
0564  REF  9 
0564C5  REF  A9 

05641  REF  37 

05642  REF  2 

05643 

05644  REF  1 


LAST  858 
LAST  070 
LAST  060 
LAST  369 
LAST  568 


E4, 1545 

33f2531  4 1545  0 

E7,1515 

25.2532  22  CC3  I 

33.2533  6 1430  1 

33.2534  C 0006  I 

33.2535  6 2447  1 


£6ANK= 

CS 

EBANK= 
L XCH 
AO 

EXTEND 

BZMF 


XNBPI  P 
XNBPI  P 
OVCNTR 
EBANK 
RPCRTOSW 


HIGATASK 


REF  44  LAST  816 


0567 

0560 

0569 


REF  27  LAST  817 
REF  1 

REF  2 LAST  869 


33.2540 

33.2541 

33.2542 


3 4745  0 P0S2CHK  CAF  8IT7 

C 3674  1 TC  POSTS! 

1 3115  0 TCF  UPDATCHK 


0570  REF  34  LAST 

0571 

0572 

0573  REF  1 

0574  REF  21  LAST 

0575  REF  22  LAST 


821  33  ,2563 

23.2544 

33.2545 

33.2546 

869  33,  2547 

870  33,2550 


0 5567  0 LRFCSALM  TC  ALARM 

CC511  I CCT  51J 

C 0004  0 CONTSERV  INhINT 

4 3111  1 CS  BITS4-7 

7 0107  0 MASK  FLGWROll 

54  107  0 TS  FLGWROll 


17:53  DECo  19,1Q69  FLY  *153  PAGE  870 

USER'S  PAGE  NOo  19  E7  S3 

uxexp  IN  Gsnp  ch5 

RESTORE  EBANK 
QSW  - UXBXP 

IF  UXBXP  > QSW, THEN  REPOSITION 


LP  IN  RIGHT  POSITION  - CONTINUE 

LR  NOT  IN  PROPER  PC S-AL AR M-BYP ASS  UPDATE 
AND  CONT  INUE  SERVICEP 

CLEAR  LR  MEASUREMENT  MACE  OISCRETESo 


GAP  : 


ASSEMBLE  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  0Y  NASA  2021112-091 


L SERVICER 


LAST  858 


33,2551  0 3512  1 CCFYCYCl  TC 


QU  IKFAZ5 


U579 

0580 

0581 

0582 


REF  lA 
REF  1 
REF  257 
REF  1 


LAST  610 
LAST  869 


33,2552  3 0077  1 

33  ,2553  7 5014  0 

33.2554  1C  000  0 

33.2555  1 2567  0 


R29? 


CA  FLAGhR03 

MASK  NR296RDR 
CCS  A 

TCF  R29N0DES 


0583  REF  113 

0584  REF  1 

0585  REF  258 

0586  REF  2 


LAST  617 

LAST  871 
LAST  873 


33.2556 

33.2557 

33.2560 

33.2561 


3 0110  1 
7 2250  0 
10  000  0 
1 2567  0 


CA  RACMOOeS 

MASK  0CT10002 
CCS  A 
TCF  R29N0DES 


0587 

0568 

0589 

0590 


REF  114 
REF  6 
REF  259 
REF  6 


LAST 

LAST 

LAST 

LAST 


871 
852 
871 
60  3 


33, 2562 
33  ,2563 

33.2564 

33.2565 


2 one  1 

7 7713  1 
10  000  0 
1 2573  0 


CA  RACMOOES 

MASK  PR  1022 

CCS  A 

TCF  N0R29N0W 


0591  REF 


2 LAST  602  23,2566  1 2045  0 


TCF 


R29 


0592 

0593  REF  9 LAST 

0594  ref  115  LAST 

0595  REF  116  LAST 


33,2567  C 0C04  0 
609  33,2570  4 4742  0 
871  33,2571  7 0110  0 
871  33,2572  54  110  f! 


R29N00ES  INHINT 


DESIG8IT 

RACMOCES 

RADMOOES 


0596  REF  147 

0597 

0598  REF  2 

C599 

0600  REF  10 

0601  REF  4 

06015  REF  5 

0602 

0603  REF  1 

0604  ref  2 

0605  REF  2 

0606  REF  25 

0607 

0608  REF  4 

0609  REF  3 

0610  REF  3 

0611 

0612  REF  34 

0613  REF  5 

0614  REF  4 

0615 

0616  REF  35 

0617  REF  5 

0618  REF  26 

C619 


LAST  862 
LAST  149 

LAST  844 
LAST  869 
LAST  813 


LAST  378 
LAST  153 
LAST  854 

LAST  862 
LAST  153 
LAST  871 

LAST  862 
LAST  862 
LAST  833 

LAST  871 
LAST  862 
LAST  871 


33  ,2573  0 6042  1 

33,  2574  51575  I 

33.2575  03573  0 

33.2576  45206  I 

33.2577  C2333  0 

33.2600  03535  1 

33.2601  03775  1 

33.2602  47075  0 

33  ,2603  26026  1 

33.2604  21613  C 

33.2605  27742  C 

33.2606  03537  0 

33,26C7  53435  0 

33  ,2610  03720  1 

33.2611  27726  I 

33.2612  03573  0 

33  ,2613  60505  1 

33.2614  01734  0 

33.2615  27545  0 

33.2616  03601  0 

33.2617  76505  0 

33  ,2620  01734  0 

33.2621  27553  1 

33.2622  03537  0 

33 .2623  51435  1 


N0R29Naw  TC  INTPR6T 

VLOAD  ABVAL 
PIS 

PUSH  DSU 

/LAND/ 

STORE  HCALC 
STORE  HCALCl 
OMPR  RTB 

ALTCONV 
SGNAGRFE 
STOVL  ALTBITS 
UNIT/P/ 
VXV  UNIT 
UHYP 
STOVL  UHZP 
RIS 

VXM  VSR4 

REFSMMAT 
STOVL  RNl 
VIS 

VXM  VSLl 

REFSMMAT 
STOVL  VNl 

UNIT/P/ 
VXV  ABVAL 


17: 53  DEC.  lo, 1969  FLY 


153  PAGE  871 


USER' S PAGE  NOo  20  E7  S3 


IS  NnR29FLG  OR  REAOPFLG  SET? 
YES,  SO  DCN'T  CESIGNATEo 


NO,  SO  R29  IS  CALLED  FOR« 

IS  THE  RR  NOT  ZEROING  ITS  COUS,  AND 
IS  THE  RENDEZVOUS  RADAR  IN  AUTO  MODE? 
NO,  SO  DON'T  OESIGNATEo 


IS  RR  REPOSITIONING  OR  PEMOOING? 

YES;  COME  BACK  IN  2 SECONDS  C TRY  AGAIN. 


R29  NOT  ALLCWEC  THIS  CYCLEo 
SHOVs  THAT  DESIGNATION  IS  OFF. 


INTPRET  DOES  A PEL  INTo 

MPAC  = ABVAL(  NEW  SM*  POSITION  VECTOR! 

(21 


NEW  HCALC*2I24)  Me 


ALTITUDE  FOR  RIO  IN  BIT  UNITSc 


OOWNRANGE  HALF-UNIT  VECTOR  FOR  RIO* 


TEMP*  REF*  POSITION  VFCT0R*2  (29  I M* 


TEMP*  REF*  VELOCITY  V EC  TOR  *2  ( 7 )M /C  S* 


gap: 

L 

0620 

0621 

0622 

0623 

0624 

0625 

0626 

0627 

0628 

062  9 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 


ASSEMBLE  REVISION  131  CF  AGC  PFCCRAP  LUMINARY  BY  NASA  2C21112-091 


17:53  DEC*  19,1969  FLY 


153  PAGE  872 


SERVICER 


USER'S  PAGE  NO*  21  £7  S3 


REF  5 LAST  971 


REF  1 

REF  3 LAST  871 


REF  27  LAST  871 
REF  3 LAST  153 
REF  28  LAST  872 
REF  4 LAST  372 
REF  29  LAST  872 
REF  5 LAST  372 
REF  350  LAST  869 
REF  2 LAST  153 


33.2624 

33.2625 

33.2626 

33.2627 

33.2630 

33.2631 
33  ,2632 

33.2633 

33.2634 
33 ,2635’ 

33.2636 

33.2637 

33.2640 

33.2641 
33  ,2642 
33,2643 


03601  0 
63552  0 
77671  1 
47075  0 
26030  0 
21613  0 
77776  1 
C 0004  0 
3 1536  C 
55*  743  1 
3 154C  1 
55*744  0 
3 1542  0 
55*745  1 
3 0154  1 
55*716  1 


SLl 

DDV 

OMPR 


C0PYCYC2  EXIT 

INHINT 

CA 

TS 

CA 

TS 

CA 

TS 

CA 

TS 


VIS 

DSQ 

RT8 

ARCONVl 

SGNAGREE 


UNIT/R/ 

RUNIT 

UNIT/R/  +2 
RUNIT  +1 
UNIT/R/  +4 
RUMT  +2 
MPAC 

OALTRATF 


LEAVE  ALTITUDE  PATE  COMPENSATION  IN  MPAC 
UPDATE  RUMT  FCR  RIO* 


LOAD  NEW  DALTRATE  FCR  RIO* 


REF  4 
REF  20 

REF  5 
REF  21 

REF  6 
REF  22 

REF  6 
REF  12 

REF  7 
REF  13 

REF  B 
REF  14 


LAST  871 
LAST  862 

LAST  872 
LAST  872 

LAST  872 
LAST  872 

LAST  872 
LAST  862 

LAST  872 
LAST  872 

LAST  872 
LAST  972 


33.2644 

33.2645 

33.2646 

33.2647 

33.2650 

23.2651 
33  ,2652 

33.2653 

33.2654 

33 .2655 

23.2656 

33.2657 

23.2660 

33.2661 
33  ,2662 

33.2663 

33.2664 

33 .2665 


C 0006  1 
3 1573  1 
53*521  1 
0 0006  1 
3 1575  1 
52*523  0 
0 0006  1 
3 1577  0 
52*525  0 
0 0006  1 
3 16Ci  1 
53*527  I 
0 0006  1 

2 1603  0 
53*531  0 
C 0006  1 

3 1605  0 
53*533  1 


EXTEND 
DCA  RIS 

OXCH  R 

EXTEND 

OCA  RIS  +2 

DXCH  R +2 

EXTEND 

CCA  RIS  +4 

DXCH  R +4 

EXTEND 
DCA  VIS 

OXCH  V 

EXTEND 

OCA  VIS  +2 

DXCH  V +2 

EXTEND 

OCA  VIS  *4 

CXCh  V +4 


REF 


22,2666  1 2275 


TCF  COPYCYCL  COMPLETE  THE  COYPCYCL* 


gap: 

L 

P0702 

R070S 

0706 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

071A 

0719 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 

0728 

0729 

0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 

074] 

0742 

0743 

0744 

0745 

0746 

0747 

0748 

0749 

0750 

0751 


ASSEMBLE  REVISION  131  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19,196' 


FLY 


153  PAGE  873 


SERVICER  USER'S  PAGE  NCo  22  E7  S3 


REF  30  LAST 

REF  15  LAST 
REF  16  LAST 

REF  1 

REF  9 LAST 
REF  31  LAST 

REF  1 
REF  I 

REF  1 

REF  32  LAST 

REF  1 

REF  10  LAST 
REF  2 LAST 

REF  14  LAST 
REF  1 

REF  3 LAST 


33,2667 

872  33,2670 
33,2  671 

774  33,2672 

973  33,2673 

33  ,2674 

23.2675 

33.2676 
834  33  ,2677 

873  23,2700 

33.2701 

33.2702 

33.2703 
33  ,2704 

33.2705 

33.2706 
33  ,2707 

33.2710 

33.2711 

33.2712 
873  33,2713 

33  ,2714 

33.2715 

33.2716 

33 .2717 
873  33,2720 

33,2721 

775  33,2722 

33.2723 

33.2724 

33.2725 
772  33,2726 

33 , 2727 

33.2730 

33.2731 

33.2732 
838  33,2733 

33  ,2734 


41456  0 
03537  0 
67340  1 
02777  1 
C3000  1 
50076  0 
66724  0 
50375  0 
06516  0 
C3537  C 
41552  0 
44316  0 
26766  1 
56325  0 
26040  I 
00C43  0 
00041  1 
41205  C 
26042  0 
65361  0 
C3537  0 
41205  0 
26044  0 
00041  1 
76561  1 
C6516  0 
45455  I 
74256  0 
41455  0 
60345  0 
00043  0 
00050  1 
53663  1 
26032  1 
56623  0 
45561  1 
74214  0 
77616  0 


CALCGRAV  UNIT 
STORE 
LXC  ,1 


CCOMP 

VLOAO 


SLl 

DSQ 

PCDL 


STORE 

OMF 

VXSC 

DMP 


vx  SC 


VAD 

STORE 

VAO 

CALCGRVl  DLOAD 


BDDV# 


VXSC 

STORE 

RVQ 


PUSF 

UNIT/R/ 

SLCAD 

PTX2 

RTX2 

BMN 

CALCGRVl 

roT 

UNITZ 

UNIT/R/ 

PUSH 

BOSU 

PPl/20 

DOV 

PESO 

34D 

32D 

DMP 

20J 

POOL 

UNIT/R/ 

DMP 

2J 

32D 

VSLl 

UNITZ 

STADR 

UNITGOBL 

PUSH 

NORM 

34D 

X2 

SLR* 
-MUOT.l 
0 -210,2 
STADR 
GDTl/2 


SAVE  UNIT/R/  IN  PUSHLIST  (181 

RTX2  = n IF  FARTH  CRBIT,  =2  IF  LUNARo 


( 12  ) 

(14» 

(RN)SO 

TEMP  FOR  (RE/RN)  SO 


MPAC  = UNIT  GRAVITY  VECTOR*  (18» 

PERFORM  A NORMALIZATION  ON  RMAGSQ  IN 
ORDER  TO  BE  ABLE  TO  SCALE  THE  MU  FOR 
MAXIMUM  PRECISICNo 


SCALED  AT  2 (+7  I M/CS 


REF 

REF 

HEF 

REF 


6 LAST 
36  LAST 

4 last 

5 LAST 


33,2735  61375  1 

855  33,2736  00325  0 

871  33,2737  01734  0 

33,2740  76561  1 

855  33,2741  26022  0 

766  33,2742  03527  1 

33, 2743  41562  0 

33  ,2744  41455  0 


CALCRVG  VLCAC  VXM 
DELV 

R EFSMMAT 
VXSC  VSLl 
KPIPl 

STCRE  DELVREF 
VSRl  PUSH 
VAD  PUSH 


(DV-0L06DT) /2  TO  PO  SCALED  AT  2(+7)M/CS 


gap:  assemble  revision  131  CF  AGC  PPCGRAf'  LUMINARY  BY  NASA  2021112-0<?1 

L SERVICER 


0752  REF  8 

C753 

0754  REF  8 

0755  REF  4 

0756 

0757 
0756 

0759  REF  14 

0760 

0761  REF  6 

0762  REF  2 


LAST  813  33t2745 

33  ,2746 
LAST  756  33t27^i7 

LAST  865  33,2750 

33,2751 
33,  2752 
33,2753 
LAST  863  33,2754 

33,2755 
LAST  871  33  ,2756 

LAST  862  33,2757 


C1236 

65255 

C1226 

C1247 

74261 

202C7 

44055 

C1220 

C0037 

37545 

66667 


1 

0 

C 

1 

1 

0 

I 

0 

0 

1 

0 


GDT/2 

VAC  POOL 

VN 

PGUlOe 
SL  VXSC 

6D 

VAD  STQ 

RN 
310 

STCALL  PNl 

CALCGRAV 


0763 

0764 

0765  REF 

0766  REF 

0767 


9 

6 


33.2760 

33 .2761 
LAST  874  33,2762 
LAST  871  33,2763 

33,2764 


53255  0 
77655  1 
C1226  C 
37553  0 
00037  0 


VAO  VAD 
VAC 

VN 

STCALL  VNi 
310 


0768 

0768 

0769 
0769 


33.2766 

33.2767 
33,2770 


01463  1 DPl/20  20eC  0«C5 

06315  0 

OOOlO  0 SHIFTll  2CEC  1 B-11 

00000  I 


17:53  DECe  19,1969 


FLY 


-153  PAGE  874 


USER  'S  PAGE  NOe  23  £7  S3 


(18) 


TEMP  STORAGE  OF  RN  SCALED  2(+29)M 


TEMP  STORAGE  OF  VN  SCALED  2I+7)M/CS 


GAP : 

L 

P0770 

ft  077  7 

R0773 

R0774 

ft0775 

0776 

0777 

077b 

C779 

0780 

0781 

0782 

0783 

0784 

0785 

0786 

0787 

0788 

0789 

C790 

0791 

0792 

0793 

0794 

0795 

0796 

0797 

C798 

0799 

0800 

0801 

0802 

0803 

0804 

0805 

0806 

0807 

0608 

0809 

081.0 

0811 

0812 

0813 

0814 

0815 

0816 

0817 

0818 


ASSEMBLE  REVISION  131  CF  AGC  PPCGPAM  LUMINARY  BY  NASA  2021112-091 


17:53  OECo  19,1969  FLY 


153  PAGE  875 


SERVICER  USER'S  PAGF  N0«  24  E7  S3 


MLNRVG  IS  A SPECIAL  AVERAGE  G INTEGRATICN  BCUTINF  USED  BY  THRUSTING 
programs  which  function  in  THE  VICINITY  OF  AN  ASSUMED  SPHERICAL  MCCNo 
THE  INPUT  AND  CUTPLT  QUANTITIES  ARE  REFERENCED  TO  THE  STABLE  MEMBER 
COORDINATE  SYSTEHa 


REF  3 LAST 

REF  5 LAST 

REF  5 LAST 

REF  1 

REF  6 LAST 

REF  7 LAST 

REF  5 LAST 

REF  6 LAST 

REF  9 LAST 

REF  6 LAST 

RFF  148  LAST 

REF  4 LAST 

REF  4 LAST 

REF  8 LAST 

REF  7 LAST 

REF  10  LAST 

REF  7 LAST 

REF  7 LAST 

REF  149  LAST 

REF  7 LAST 

REF  1 

REF  9 LAST 

REF  15  LAST 

REF  6 LAST 

REF  2 LAST 


REF  23  LAST 
REF  9 LAST 
REF  6 LAST 


728  33,2772 

33, 2773 
862  23,2774 

874  33,2775 
33,2776 
33  ,2777 
33,3000 

862  33,3001 

872  33  ,3002 

062  33,3003 

33,3004 

875  33,3005 
33,3006 

872  33  ,3007 
33,3010 

871  33,3011 

871  33  ,3012 
33, 3013 

873  33,3014 

875  33,3015 

875  33,3016 

875  33  ,3017 

875  33,3020 

875  33,3021 

33  ,3022 
875  23,3023 

875  33,3024 

33,3025 

873  33,3026 
33,3027 
33,3030 

874  33,3031 
33  ,3032 

872  23,3033 
33,3034 

875  23,3035 

875  23,  3036 

33,3037 
33,3040 
872  33,3041 

875  33,3042 

875  33,3043 


65255  0 
01726  0 
01247  1 
74271  0 
26770  0 
77655  1 
C1720  0 
37573  1 
67C67  1 
53255  0 
Cl  726  0 
77626  0 
74176  1 
77776  I 
0 3512  1 
0 6042  1 

77775  1 
03563  I 
26317  0 
03573  0 
25720  0 
G3601  0 
01726  C 

77776  1 
C 3512  I 
C 6042  1 

74375  0 
00225  0 
26024  0 
53206  0 
01236  1 
53206  0 
C3527  1 
56325  0 
01247  1 
26770  0 
77761  1 
77655  1 
03521  1 
37573  1 
67C67  1 


RVeOTH 


MLNRVG 


VLOAO 

VAO 


OOV 

VAD 


PUSH 

GICSM  I 

PDDL 

VICSMI 

PGUICE 

VXSC 

SHIFTll 


R(CSM) 
STCALL  RIS 

MUNGRAV 
VAD  VAD 

VICSMl 

STAOR 

STORE  VIS 
EXIT 

TC  0UIKFAZ5 

TC  INTPRET 

VLCAD 

GOTl/2 
STCVL  GICSM) 

RIS 

STOVL  R(CSM) 

VI  S 

STORE  VICSMI 
EX  IT 

TC  0UIKFAZ5 

TC  INTPRET 

VLCAU  VXSC 
DELV 
KPIP2 
PUSH  VAD 

GOT/2 

PUSH  VAO 
V 

PDDL  DDV 

PGUICE 

SHIFTll 

VXSC 

VAC 

R 

STCALL  PIS 

MUNGRAV 


1ST  PUSH;  DELV  IN  UNITS  OF  2181  M/CS 

2ND  PUSH:  {DELV  + GDT)/2,  UNITS  OF  2(7) 

I 12) 


STORE  R SCALED  AT  2(+24)M 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PRCGRA^  LUMINARY  BY  NASA  2021132-091 


L SERVICER 


0819 

0820 

0821  REF  16 

0822  REF  11 

0823 

0824  REF  5 

0825  REF  33 

0826 

0827  REF  12 

0628  REF  11 

0829  REF  in 

0830 

0031  REF  6 

0832  REF  2 

0833 

0834 

0835  REF  11 

0836  REF  5 

0837  REF  1 

0638 

0839  REF  34 

U640 

0841 

0842 

0843  REF  1 

0844 

0845  REF  3 

0846  REF  35 

0847  REF  5 

0848 


LAST  875 
LAST  875 

LAST  729 
LAST  873 

LAST  876 
LAST  813 
LAST  875 

LAST  84  8 
LAST  153 


LAST  871 
LAST  871 


LAST  876 


LAST  875 
LAST  876 
LAST  875 


33.3044 

23.3045 
33  ,3046 
33,3047 
33,3050 
33  ,3051 

23.3052 

33.3053 

23.3054 
33, 3055. 

33.3056 

33.3057 
3 3,30  60 
33  ,3061 

23.3062 

23.3063 
33  ,3064 

23.3065 

33.3066 

33.3067 
23,3070 
33  ,3071 

33.3072 

33.3073 
33  ,3074 

23.3075 

33.3076 

33.3077 
23,31CC 
33  ,3101 


53255  0 

77655  1 
03527  1 
03601  0 
77646  0 
27472  0 
C3537  n 
72441  0 
03601  0 
27474  0 
03573  0 
72435  0 
C2225  1 
17734  1 
C0C45  C 
77625  0 
02333  0 
37535  0 
66461  1 

77656  1 MUNGRAV 
17537  0 

00043  0 
55261  1 
20207  0 
26036  0 
74205  0 
26770  0 
03537  0 
C3563  1 
77616  0 


VAC  VAC 
VAO 

V 

STCRE  VIS 
A6VAL 

STOVL  ABVEL 

UNIT/R/ 
DOT  SLl 
VIS 

STOVL  HDGTDISP 
RIS 

VXV  VSL2 
WM 

STOOL  DELVS 
36C 

OSL 

/LAND/ 

STCALL  HCALC 

MUNRE  TPN 

UNIT 

STOOL  UNIT/R/ 
340 

SL  BDCV 

60 

-MUOTMUN 
DMF  VXSC 

SHIFTll 
UNIT/R/ 
STCRE  GUTl/2 
RVQ 


0849 

0851 

0851 

0852 

0852 
08525 
08525 

0853 
08534 
08534 
00536 


3.3102 

5. 3103 

3.3104 

3. 3105 
),3106 
3,3107 
3, 3110 
J ,3111 

3.3112 

3.3113 
i ,3  114 


CC303  1 
00014  1 
20000  0 
COOOO  I 
00310  0 
00000  1 
C0620  0 
00 1 10  1 
37767  0 
C2200  1 
04445  0 


2SeC(20)  20CT 


4SEC{20)  20EC 


OCT 

2DEC 


6KFT/SEC  CEC 


110 

16768072 


17:53  CEC«  19,1969  FLY 


153  PAGE  876 


USER*  S PAGE  Nfo  25  E7  S3 

(0> 

STORE  V SCALED  AT  2(+7)M/CSc 
STORE  SPEED  FOR  LP  AND  CISPLAySc 

HOOT  = Vo  UNIT (R)*2(7  )M/CSo 

LUNAR  ROTATION  CORRECT! CN  TERM*2 ( 5 I M/CSc 

FOR  NOW,  DISPLAY  WFETHER  POS  OR  NEG 
AT  360  HAVE  ABVALIRI,  AT  340  Ro  R 


1/2G0T  SCALED  AT  2(7)M/CSo 


2SEC  AT  2(28) 


24  DPP0SMAX-3OKFT 


6000  FT/SEC  AT  2(7)M/CS 


gap:  assemble  revision  131  CF  AGC  PPCGRAR  LUMINARY  BY  NASA  2021112-091 


L SERVICER 


P085A 

0855 

0856 
C857 

0858 

0859 
0660 
0861 
0862 


REF  3 LAST  869 
REF  2?  LAST  870 
REF  260  LAST  871 
REF  3 LAST  869 
REF  1 

REF  24  LAST  877 
REF  1 


33.3115  3 4742 

33.3116  7 01G7  0 
33  ,3117  1C  000  0 

33.3120  1 2545  0 

33.3121  3 4750  1 

33  ,3122  7 0107  0 

33.3123  C 0006  1 

33.3124  1 3250  1 


NOLRRBIT 
FLGWRDll 
A 

TCF  CONTSERV 
CAF  RNGEDBIT 
MASK  FLGWRDll 
EXTEND 

6ZF  VMEASCHK 


UPCATCFK  CAF 
MASK 
CCS 


0863 

0864 


REF  26  LAST  858 
REF  9 LAST  858 


33.3125 

33.3126 


3 0120  1 PCSUPOAT  CA 
54  166  1 TS 


FIXLCC 

PUSHLOC 


0865 

0666 

0867 

0868 

0869 

0870 

0871 

0872 
087? 

0874 

0875 


REF  150 

REF  1 
REF  10 

REF  13 

REF  3 

REF  1 


LAST  875 

LAST  870 
LAST  876 
LAST  876 


23.3130 

33.3131 
33  ,3132 

23.3133 

33.3134 

33.3135 

33.3136 
33  ,3137 

33.3140 

33.3141 


0 6042  1 
61375  1 
02273  0 
02146  0 
72515  0 
C3601  0 
50255  0 
03734  1 
0000 1 0 
77405  0 
01352  1 


TC  INTPRET 

VLCAD  VXM 

HB6AMNB 
XNBPIP 
PDVL  VSL2 

VIS 

VAC  DOT 

DELVS 

OD 

CMF  EXIT 

RADSKAL 


0876  REF  2 LAST  85 

0877  REF  1 


33.3142 

33.3143 


0110  0 
4743  1 


0878 

0879 


33.3144  0 OC06  1 

33.3145  I 3150  1 


CS  FLGWR012 

MASK  ALTSC6IT 
EXTEND 
6ZF  +3 


0880  REF  1 

0881  REF  10  LAST  855 


33,3146  ? 1353  0 

33  ,3147  0 7312  0 


CA  SKALSKAL 

TC  SHORTMP 


0882 

0883 

0884 

0885 

0886 

0887 

0888 

0889 

0890 

0891 

0892 


REF  151 
REF  6 

REF  1 

REF  36 
REF  6 
REF  5 


LAST 

LAST 


LAST 

LAST 

LAST 


377  23,3150  C 6C42  1 

33,3151  54215  0 

068  33,3152  C3655  1 

33.3153  2Q210  0 

33.3154  74205  0 

33.3155  26011  0 

33.3156  45241  1 

876  33  ,31  57  03537  0 

876  33,3160  03535  1 

781  23,3161  03665  1 

33,3162  77776  1 


TC  INTPRET 

DAO  SL 

HMEAS 

7D 

OMP  VXSC 

HSCAL 

DOT  OSL 

UNIT/R/ 

HCALC 

STORE  DELTAH 

EX  IT 


0893  REF  25  LAST  877  33,3163 

0894  peF  2 LAST  069  33,3164 
0095  33,3165 
0896  PEF  1 33,3166 


3 C107  1 CA  FLGWRDll 

7 4741  0 MASK  PSTHIBI T 

0 0006  1 EXTEND 

1 3203  1 PZF  NOREASCN 


17: 53  DECc  19,1969  FLY  „153  PAGE  877 

USER'S  PAGE  NOo  26  E7  S3 

SEE  IF  LR  UPDATE  INHIBITEOo 

IT  IS-NO  LR  UPDATE 

NO  INHIBIT  - SEE  ALT  MEASs  THIS  CYCLEe 

NO  ALT  MEAS  THIS  CYCLE-CHECK  FOR  VEL 
SET  PUSHLIST  TO  ZERO 

HBEAM  SM  AT  2(21 
STORE  HBEAM  IN  PD  0-5 
SCALE  V AT  2(5)  M/CS 

V RELATIVE  TO  SURFACE  AT  2(5)  M/CS 

V ALONG  HBEAM  AT  2(7)  M/CS 

SCALE  TC  RADAR  COUNTS  X 5 
TEST  LR  ALTITUDE  SCALE  FACTOR 


BRANCH  IF  HIGH  SCALE 
RESCALE  IF  LOW  SCALE 


CORRECT  HMEAS  FCR  CCPPLER  EFFECT 


SLANT  RANGE  AT  2(21), PUSH  UP  FOR  HBEAM 
SLANT  RANGE  VECTOR  AT  2(23)  M 


ALTITUDE  AT  2( 24) M 
DELTA  H AT  2(24)  M 


Cn  NOT  PERFORM  DATA  REASONABLENESS  TEST 
UNTIL  AFTER  HIGATE 


gap:  assemble  REVISION  131  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L SERVICER 


0897  REF  152  LAST  877 

0898 

0899  REF  2 LAST  122 

0900 

0901  REF  7 LAST  877 

0902 


33f3167  C 6042  1 

33,3170  45246  0 

33  ,3171  02521  0 

33.3172  45252  0 

33.3173  03535  1 

33.3174  77776  1 


TC  INTFRET 

A6S  DSU 

DELOFIX 
SL3  DSU 

HCALC 

ex  IT 


0903  REF  2 LAST  152 

0904  REF  1 

0905  REF  I 

0906  REF  2 LAST  878 

09C7  REF  90  LAST  847 

0908  PEF  1 


23.3175  25'67C  1 

33 .3176  0 6726  1 

33.3177  1 3520  1 

33,3200  • 1 3520  1 
33  ,3201  0 5516  0 

33,3202  00263  0 


I NCR  LRLCTR 

TC  BRANCH 

TCF  HFAIL 

TCF  HFAIL 

TC  OOWNFLAG 

AORES  HFLSHFLG 


0909 

0910 

0911 

0912 


REF  26  LAST  877 
REF  1 

REF  261  LAST  877 
REF  2 LAST  877 


33.3203  4 0107  0 

33.3204  7 4744  0 

33.3205  1C  COO  0 

33.3206  1 3250  1 


NOREASQN  CS  FLGWRDll 

MASK  LRINHBIT 


CCS  A 

TCF  VMEASCHK 


0913 

0914 

0915 
09X6 

0917 

0918 

0919 

0920 

0921 

0922 

0923 

0924 


REF  153 
KEF  8 


REF  6 
REF  351 
REF  1 


REF  3 
REF  352 


LAST 
LAST 

LAST  877 
LAST  872 


LAST  878 
LAST  878 


33, 3210 
33  ,3211 

23.3212 

33.3213 

33.3214 

33.3215 

33.3216 

33.3217 
33,3220 
33  ,3221 
33,3222 


C 6C42  1 
40545  1 
03535  1 
77776  1 
C 0006  I 
3 1665  0 
52  155  I 

0 7547  0 
C 0006  1 

1 3222  1 
1 3250  1 
54  156  1 


678 

876 


TC  INTPRET 

OLOAO  SR4 

HCALC 


EXIT 

EXTEND 

OCA  OELTAH 

DXCH  MPAC 

TC  ALSIGNAG 

EXTEND 
BZF  +? 

TCF  VMEASCFK 

TS  MPAC  *2 


0925  PEF  140 

0926  REF  1 

0927 

0928  REF  4 

0929 

0930  REF  1 

0931 

0932  REF  2 

0933  REF  4 

0934  REF  1 

0935  REF  154 

0936 

0937 

0938  REF  37 

0939  PFF  11 

0940  PEF  1 

0941  REF  7 

0942 


LAST  869 

LAST  878 

LAST 
LAST 

LAST 

LAST 
LAST 

LAST  875 


33.3223 

33.3224 

33.3225 

33 .3226 

33.3227 

33.3230 

33.3231 

33.3232 

33.3233 

33.3234 

33.3235 
33  ,3236 
33,3237 
33,3240 
33  ,3241 

33.3242 

33.3243 

33.3244 


4 0001  1 
6 1420  0 
C 0006  1 

6 3250  0 
( CCC6  1 

7 1421  n 
C 0006  1 
U'420  1 
54  135  1 
0 7316  1 
C 6042  1 

77752  1 
53361  0 
03537  0 
03573  0 
37657  I 
67067  1 
77776  1 


87b 

466 

878 


877 

076 


CS  L 

AO  LRPMAX 

E XTEND 

BZMF  VMEASCHK 

FXTEND 
MP  LRKH 

EXTEND 

DV  LRHMAX 

TS  MPTEMP 

TC  SHCRTMP2 

TC  INTPRET 

SLl 

VXSC  VAC 

UNIT/P/ 

RIS 

STCALL  GNUP 

MUNCRAV 


EX  IT 


17:53  CECo  19, I960  FLY  ol53  PAGE  078 

USER'S  PAGE  NCo  27  E7  S3 


ABS(OELTAH)  - DOFIX  50  FT  NOH 
SCALE  TO  2(21  I 

ABSIDELTAH)  - (50  + HCALC/01  AT  2(21) 


DELTA  H TOO  LARGE 
DELTA  H TOC  LARGE 
TURN  OFF  ALT  FAIL  LAMP 


UPDATE  INHIBITED  - TFST  VELOCITY  ANYWAY 
DO  PnS  IT  ION  UPDATE 
RESCALE  H TO  2( 28) M 


STORE  OELTAH  IN  MPAC  AND 
BRING  HCALC  INTO  A,L 

IF  HIGH  PART  OF  HCALC  IS  NON  ZERO,  THEN 
HCALC  > HMAX, 

SO  UPDATE  IS  BYPASSED 
FOR  LATER  SHOPTMP 

-H  AT  2(14)M 
HMAX  - H 

IF  H >HMAX,  BYPASS  UPDATE 
WHIHMAX  - H) 

WH(1  - H/HMAX  ) 

CELTAH  (WHKl  - H/HMAX)  IN  MPAC 
MODE  IS  OP  FROM  ABCVE 


DELTAR  = OH(WH)  (1 


H/HMAX)  UNIT/R/ 


GAP  : 

L 

0943 

0944 

0945 

0946 

0947 

0948 

0949 

0950 

0951 

0952 

0953 

0954 

0955 

0956 

0957 

0958 

0959 

0960 

0961 

0962 

0963 

0964 

0965 

0966 

0967 

0968 

0969 

0970 

0971 

0972 

0973 

0974 

0975 

0976 

0977 

0978 

0979 

0980 

0981 

0982 

0903 


ASSEMBLE  REVISION  131  CF  AGC  FPCGPAM  LUMINARY  0Y  NASA  2021112-091 


17: 53  DECo  19,1969  FLY 


153  PAGE  879 


SERVICER 


USER'S  PAGE  NDc  28  E7  S3 


REF 


LAST  875  33,3245  0 3512  1 


TC  QUIKFAZ5 


REF  161  LAST 
REF  1 


866 


33.3246  3 4755  1 CA  ZERO 

33.3247  0 3474  0 RUPCATEO  TC  GNUPVST 


REF  9 LAST  879 
REF  27  LAST  878 
REF  1 

REF  262  LAST  878 
REF  1 


33.3250  C 3512 

33.3251  4 0107 

33.3252  7 4745 

33.3253  10  OOO 

33.3254  1 3454 


1 VMEASCFK  TC 
C CS 

) MASK 

0 CCS 

0 TCF 


OUIKFAZ®" 

FLGV<RD11 

VELDABIT 

A 

VALTCHK 


RESTART  AT  NEXT  LOCATION 
I S V READING  AVAI LABLF? 

NO  SEE  IF  V READING  TC  RE  TAKEN 


REF  3 LAST  202 
REF  141  LAST  878 
REF  142  LAST  879 
REF  143  LAST  879 
REF  144  LAST  879 
REF  27  LAST  877 
REF  23  LAST  820 


33.3255  4 1651 

33.3256  54  CCl 

33.3257  26  001 

33.3260  6 0001 

33.3261  6 CCOl 

33.3262  50  120 

33.3263  52  047 


0 VELUPOAT  CS 

1 TS 

1 ADS 

0 AO 

0 AO 

1 INDEX 

0 CXCH 


VSELECT 

L 

L 

L 

L 

FIXLOC 

XI 


PROCESS  VELOCITY 
-2  VSELECT  IN  L 
-6  VSELECT  IN  A 
XI  = -6  VSELECT , 


DATA 


X2  = -2  VSELECT 


REF  4 LAST 
REF  38  LAST 
REF  2 LAST 


869  33,3264 

870  33,3265 

117  E4,1654 


3 4741  1 
54  003  0 


CA  EBANK4 

TS  EBANK 

E6ANK=  LRXCCU 


REF  2 
REF  19 
REF  2 
REF  20 
REF  3 
REF  21 


LAST  117 
LAST  606 
LAST  117 
LAST  879 
LAST  879 
LAST  879 


33.3266 

33.3267 

33.3270 

33.3271 

33.3272 

33. 3273 


3 1655  0 
54  765  1 
3 1656  0 
54  767  0 
3 1654  1 
54  771  1 


CA  LRYCDU 

TS  CDUSPCT 

CA  LRZCOU 

TS  CDUSPOT  +2 

CA  LRXCDU 

TS  CDUSPOT  +4 


STORE  LRCDUS  IN  CDUSPCTS 


REF  240  LAST 
REF  3 LAST 


TC  8ANKCALL 

CACR  OUlCTRIG  GET  SINES  AND  COSINES  FOR  NBSM 


REF  28 
REF  10 


LAST  879 
LAST  877 


33.3276 

33.3277 


3 0120  1 
54  166  1 


CA  FIXLOC 

TS  PUSHLOC  SET  PO  TO  ZERO 


REF  155 

REF  2 
REF  4 

REF  3 

REF  1 

REF  95 
RFF  14 


LAST  878 

LAST  117 
LAST  586 

LAST  203 

LAST  856 
LAST  820 


33, 3300 
33  ,3301 

33.3302 

33. 3303 
33  ,3304 

33.3305 

33.3306 
33  ,3307 

33. 3310 

33.3311 

33.3312 

33.3313 


C 6042  I 
45173  0 
02231  0 
47675  0 
54325  1 
03653  I 
20215  0 
41403  0 
51764  C 
77776  1 
4 4753  0 
54  163  1 


TC  INTPRET 

VLOAO*  CALL 

VZBEAMNB,! 

*NeSM# 

POOL  SL 

VMEAS 

12D 

DMP*  PUSH 

VZSCAL,2 

EXIT 

CS  ONE 

TS  MODE 


CONVERT  VBEAM  FROM  N6  TO  SM 

STORE  IN  PD  0-5 

LOAD  VELOCITY  MEASUREMENT 

SCALE  TO  M/CS  AT  2(6) 

AND  STORE  IN  PC  6-7 


CHANGE  STORE  MODE  TO  VECTOR 


REF 


3 LAST  120  33  ,3314  3 1657 


CA  PIPTGM 


STORE  DELV  IN  MPAC 


GAP  : 

L 

0984 

0905 

0986 

0987 

098ft 

0989 

0990 

0991 

0992 

0993 

0994 

0995 

0996 

0997 

0990 

0999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 


ASSEPBLE  REVISION  131 
SERVICER 

REF  353  LAST  878 


CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-C91 

33.3315  22  007  0 ZL 

33.3316  52  155  1 OXCH  MPAC 


17:53  DEC,  19,196«  FLY  ,153  PAGE  880 

USER  'S  PAGE  NOc  2?  E4  S3 


REF  4 
RFF  354 


LAST  879 
LAST  880 


33,3317 

33.3320 

33.3321 


3 166C  0 
22  007  0 
52  160  1 


CA  PI PTEM  +1 

ZL 

CXCH  MPAC  +3 


RFF  5 
REF  355 


LAST  880 
LAST  880 


33,3322 
33  ,3323 
33,332^ 


3 1661  1 
22  007  0 
52  162  C 


CA  PIPTEM  +2 

ZL 

DXCH  MPAC  +5 


REF  11 
REF  39 
REF  50 
REF  156 


REF  5 
REF  2 

REF  21 
REF  1 

REF  10 

REF  17 

REF  4 


REF  1 


LAST  345 
LAST  879 
LAST  870 
LAST  879 

LAST  872 
LAST  117 

LAST  065 


LAST  875 
LAST  876 
LAST  877 


33.3325 

33.3326 
E7,1515 

33.3327 

33.3330 

33.3331 
33  ,3332 

33.3323 

33.3324 
33  ,3335 

33. 3336 

33.3337 

33.3340 

33.3341 
33  ,3342 
33,33*3 
33,3344 
33  ,3345 

33.3346 

33.3347 
33  ,3350 
23,3351 
33  ,3352 
33  ,3353 
33,3354 


2 5016  C 

54  003  0 

0 6042  1 
65361  0 
26022  0 
02253  1 
56225  1 
01234  0 
27106  0 
76561  I 
C1236  1 
53255  0 
03527  1 
53352  0 
03734  1 
51406  1 
43202  0 
03372  1 
24025  0 
44241  0 
COCCI  0 
51406  1 
77425  1 
00025  0 


DSU 

vxsc 

VAC 

VSL2 

PUSH 

SR4 

STOVL 

CCT 


eBANK7 

EBANK 

DVCNTP 

INTPRET 

POOL 

KPI  PI 

LRVTIME 

OOV 

PIPTIME 

2SEC(2R) 

VSLl 

GDT/2 

VAC 

V 

VAD 
OELVS 
ABVA  L 
DAD 

VELBIAS 

200 

BDSU 


ABS 
EX  IT 
2 00 


RESTORE  EBANK  7 


SCALE  DELV  TO  2(7>  M/CS  AND  PUSH 
TIME  OF  OELV  AT  2(28»CS 

TU  - T(N-l) 

G(N-1 ) (TU  - T IN-1  ) ) 

SCALED  AT  2(7)  M/CS 
PUSH  UP  FOR  OELV 

VU  = VlN-1)  + CELVU  4 G(N-l)  OTU 
SCALE  TO  2(5)  M/CS  AND  SUBTRACT 
MOON  ROTATIDNo 

STCRE  IN  PO 

ABS(VM)/8  + VELBIAS  AT  2(6) 

STORE  IN  200  AND  PICK  UP  VM 
V(EST)  AT  2(6) 

CELTAV  = VNEAS  - V (EST ) 

ABS(OV ) - (7^5  4 ABS(VM  )/fl ) ) 


REF 

REF 

REF 

REF 


LAST  880 


33.3355 

33. 3356 
33  ,3357 
33  ,3360 


25*672  0 
C 6726  1 
1 3535  0 
1 3535  0 


INCR  LRMCTR 

TC  BRANCH 

TCP  VFAIL  DELTA  V TOO  LARGE  ALARM 

TCF  VFAIL  DELTA  V TOO  LARGE  ALARM 


REF  91 
REF  1 


LAST  878 


33,3361 
33  ,3362 


0 5516  0 
00262  1 


TC  DOWNFLAG  TURN  OFF  VEL  FAIL  LAMP 

AORES  VFLSHFLG 


REF  28 
REF  1 

REF  1 


LAST  879 


23,3263 

33.3364 

33.3365 

33.3366 


3 0107  1 
7 4740  1 
C 0006  1 
1 3375  I 


CA  FLGV.RDn 
MASK  VXINHBIT 
EXTEND 

BZF  VUPOAT  IF  VX  INHIBIT  RFSET,  INCORPORATE  DATA. 


GAP: 

L 

1027 

1028 

1029 

1030 

1031 

1032 

103-? 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211^2-091 


17:53  CECo  19,1969  FLY 


153  PAGE  881 


SERVICER 


USER'  S PAGE  NCe  30 


E7  S3 


REF  92  LAST  880 
REF  I 


33,3367  0 5516  C 

33,3370  00250  0 


TC  OOWNFLAG 

A0R6S  VXINH  RESET  VX  INHIBIT 


REF  4 
REF  5 

REF  1 


LAST  879 
LAST  565 


33  ,3?71 
33,3372 
33,^373 
33  ,3374 


3 1651  1 
6 7751  0 
0 0006  1 
1 3454  0 


CA  VSELECT 

AC  NEG2  IF  VSELECT  = 2 (X  AXIS), 

EXTEND  BYPASS  UPDATF 

eZF  ENCVDAT 


REF  29  LAST  880 
PEF  2 LAST  878 
REF  263  LAST  879 
REF  2 LAST  879 


33.3375 

33.3376 

33.3377 
33,3400 


4 0107  0 
7 4744  0 
1C  000  0 
1 3454  n 


VLPOAT 


CS  FLGWRDll 

MASK  LR  INHBI T 

CCS  A 

TCF  VALTCHK 


UPDATE  INHIPITEC 


REF  356  LAST  880 


33  ,3401  54  155 


TS  MPAC  +1 


REF  6 
REF  1 
REF  5 
REF  1 
REF  10 
REF  40 


LAST  876 

LAST  881 

LAST  820 
LAST  880 


33 . 3402 

33.3403 
33  ,3404 

33.3405 

33.3406 

33.3407 


3 1471  1 
54  130  1 
3 1651  1 
54  131  C 
3 5014  1 
54  003  0 


CA  ABVEL 

TS  ABVEL# 

CA  VSELECT 

TS  VSELECT* 

CA  E6ANK5 

TS  EBANK 


STORE  E7  ERASABLFS  NEEDED  IN  TEMPS 


CHANGE  EBANKS 


REF 

REF 

REF 


LAST 

LAST 

LAST 


1 


123 

981 

581 


E5 , 1527 

33  ,3410  4 1527  1 

33.3411  6 0130  0 

33.3412  0 0006  1 

33.3413  6 3426  1 


EBANK=  LRVF 
CS  LRVF 

AD  ABVEL* 

EXTEND 

BZMF  USEVF 


IF  V < VF,  USE  WVF 


REF  3 LAST  881 
REF  2 LAST  123 

REF  I 


33.3414  4 0130  1 

33.3415  6 1526  1 

33.3416  0 0006  1 

33.3417  6 3431  1 


CS  ABVEL* 

AO  LRVMAX  VMAX  - V 

EXTEND 

BZMF  WSTCR  -1  IF  V > VMAX,  W = 0 


REF  2 
REF  2 


LAST  881 
LAST  123 


33  ,3420 

33.3421 

33.3422 


C 0006  1 
5 0131  I 
7 1530  1 


EXTEND 

INCEX  VSELECT* 

MP  LR^-VZ  HV(  VMAX  - V ) 


REF  3 
REF  2 


LAST  881 
LAST  881 


13.3423 

33.3424 

33.3425 


C 0006  1 
11‘526  C 
1 3432  0 


EXTEND 

OV  LRVMAX  WV(  1 - V/VMAX  ) 

TCF  WSTOR 


KEF 

REF 

REF 


LAST 

LAST 

LAST 


33.3426  50  131 

33.3427  3 1533 

33  ,3430  1 3432 


1 LS6VF 
0 
0 


INDEX  VSELECT* 
CA  LRViVFZ 

TCF  WSTOR 


USE  APPROPRIATE  CONSTANT  WEIGHT 


REF  162  LAST 
REF  357  LAST 
REF  28  LAST 
REF  17  LAST 


879  23,3431 

881  33,3432 

870  33,3433 

829  33,3434 

33,3435 


3 4755  1 -1 

54  154  0 WSTOR 
^ 4745  1 
6 1010  I 
0 0006  1 


CA  ZERO 

TS  MPAC 

CS  BIT7 

AD  MODREG 

EXTEND 


(=640) 


GAP:  /iSSEf'BLE  REVISION  131  CF  AGC  PROGRAM  LUMINAftV  BY  NASA  2021112-091 


L SERVICER 


1067 


22,3A36  6 3AA1 


8ZMF 


1068 

1069 


REF  2 
REF  358 


LAST  123 
LAST  8B1 


33  ,3437 
33,3440 


3 1536  0 
54  154  0 


CA  LRWVFF 

TS  MPAC 


1070  REF  12  LAST  880  33,3441  2 5016  C 

1071  REF  41  LAST  881  33,3442  54  003  0 


CA  EBANK7 

TS  EBANK 


1074 

1075 

1076 

1077 
1070 


REF  14 
RFF  1 


LAST 


877 


£7,-1471 

33.3443  0 6042  1 

33.3444  74205  0 

23.3445  77655  1 

33  ,3446  03601  0 

33,3447  03657  0 

33,3450  77776  1 


E6ANK=  A6VEL 
TC  INTPRET 

DMP  VXSC 

VAD 

VIS 

STORE  GNUV 
EXIT 


1C79 


REF  10  LAST  879 


33,3451  C 3512 


TC  0UIKFAZ5 


1080 

1081 

1082 


REF  15  LAST  808 
REF  2 LAST  879 
REF  3 LAST  881 


33.3452  2 6245  I CA 

33.3453  0 3474  0 VUPCATED  TC 

33.3454  EADVOAT  = 


SIX 

GNURVST 

VALTCHK 


1083  REF  11  LAST  862 


33,3454  0 3512 


VALTCHK  TC 


0UIKFAZ5 


1084  REF  1 

1085  REF  30  LAST  881 

1086  REF  264  LAST  88 1 

1087  REF  1 

1088  RFF  6 LAST  882 

1089  REF  1 

1090 

1091  REF  4 LAST  877 


33  ,3455  3 4747  1 

23.3456  7 0107  0 

33.3457  10  000  0 

33.3460  J 3467  0 

33.3461  4 1471  0 

33.3462  6 3114  0 

23.3463  C 0006  I 

23.3464  6 2545  1 


CAF  READVBIT 

MASK  FLGWRDll 

CCS  A 

TCF  REACV 

CS  A0VEL 

AO  6KFT/SEC 

EXTEND 

6ZMF  COMSERV 


1092  REF 

1093  REF 


58  LAST  869  33  ,3465 

1 33,3466 


0 5504  0 
CC257  1 


TC  UPFLAG 
ACRES  REACVEL 


1094 

1095 

1096 

1097 

1097 

1098 


REF  3 LAST  868 

REF  24  LAST  867 

REF  7 LAST  877 

REF  1 

RFF  1 

REF  5 LAST  882 


33,3467 
33  ,3470 
E7, 1654 

33.3471 

33.3472 

33.3473 


3 7723  0 REACV 
C 5072  1 

03556  1 
66067  0 
1 2545  0 


CAF  PRI032 

TC  NOVAC 

E0ANK-=  HMEAS 
2CA0R  LRVJ06 


TCF  COMSERV 


1099 

1100 
1101 
1102 

1103 

1104 


REF  78  LAST  851 

REF  2 LAST  878 
REF  79  LAST  882 
REF  12  LAST  878 


33.3475 

33.3476 

33.3477 
23,3500 
33  ,3501 


54  130 
C C006 
2 1657 
50  130 
53*573 
0 0006 


1 

I 

1 

0 

0 

1 


GNURVST  TS  8UF 

EXTEND 
OCA  GNUR 

INDEX  6UF 
OXCH  PIS 
EXTEND 


17:53  DECo  19,1069  FLY 


-153  PAGE  882 


USER'S  PAGE  NOo  33  E5  S3 

IF  IN  P65,P66,P67,  USE  ANOTHER  CONSTANT 


CHANGE  E6ANKS 

WICELTA  VKVBEAMSM)  UP  6-7,  0-5 
ADD  UEIGHTEO  DELTA  V TC  VFLCCITY 

DO  NOT  RE-UPDATE 

STORE  NEVn  VELOCITY  VECTCR 

00  NOT  REPEAT  ABCVE 

TEST  READVEL  TO  SEE  IF  VELOCITY  READING 
IS  DESIRED* 

TES  - READ  VELOCITY 

NO-  SEE  IF  VELOCITY  < 6000  FT/SEC 

V > 6000  FT/SEC*  DC  NOT  READ  VELOCITY, 

V < 6000  FT/SECo  SET  READVEL  AND  READs, 

SET  UP  JCB  TC  READ  VELOCITY  BEAMS* 

CONTIMUE  WITH  SEPV  ICER 

STORE  GNUR  (*GNUV)  IN  RlS  OR  VIS 
A = 0 FOR  R,  A = 6 FOR  V 


GAP:  ASSEMBLE  REVISION  131  GF  AGC  PROGRAM  LUMINARY  6Y  NASA  2021112-091 

L SERVICER 


17:53  DEC.  19,1969  FLY 
USER'S  PAGE  NOo 


.153  PAGE  883 
3?  E7  S3 


1105 

1106 

1107 

1108 

1109 

1110 
nil 
1112 


REF 

REF 

REF 


REF  4 
REF  81 
REF  14 
REF  221 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


6B2 

882 

882 


863 

883 

883 

867 


33.3503 

13.3504 

33.3505 
33  ,3506 
33,35C7 

33.3510 

33.3511 


3 1661 
50  130 
53' 575 
C 0006 
3 1663 
5C  130 
53'577 
C 0002 


1 

0 

0 

1 

0 

0 

1 

0 


OCA 

INDEX 

OXCH 

E XTENO 

OCA 

INCEX 

OXCH 

TC 


GNUR 
BUF 
R1  S 

GNUR 
BUF 
R IS 
0 


+ 2 
+2 


+4 
+ 4 


1 114 

1115 

1116 

1117 

1118 

1119 

1120 


REF  3 LAST  821 
REF  42  LAST  882 
REF  145  LAST  879 
REF  1 

REF  2 LAST  083 
REF  43  LAST  883 
REF  51  LAST  880 
REF  265  LAST  882 


33.3512  2 5007  0 

33.3513  56  003  1 

33.3514  52  002  1 
E3, 1446 

33  ,3515  55'446  1 

33.3516  22  0C3  I 
£7,1515 

33.3517  C 0000  1 


QLIKFAZ5  CA 
XCH 
OXCH 
EBANK= 
TS 

LXCH 

EBANK= 

TC 


EBANK3 

EBANK 

L 

PHSNA  ME5 

PHSNAME5 

EBANK 

DVCNTR 

A 


SET  EPANK  3 
0 TO  A,  A TO  L 


1121  REF  2 

1122 

1123  REF  1 

1124  REF  3 

1125  REF  I 

1126 

1127 

1128  REF  2 


LAST  152 

LAST  878 

LAST  883 


33,3520 
33  ,3521 

33.3522 

33.3523 
33  ,3524 

33.3525 

33.3526 

33.3527 


4 1671  1 
0 0006  1 
1 3532  1 

6 1670  1 

7 7750  0 
C 0006  1 
1 3530  0 
1 3532  1 


HFAIL 


CS 

EXTEND 

8ZF 

AO 

MASK 

EXTEND 

BZF 

TCF 


LRPCTR 

NORLITE 

LRLCTP 

N6G3 

+ 2 

NORLITE 


IF  R = 0,  OC  NOT  TURN  ON  TRK  FAIL 

IF  L-R  LT  4,  00  NOT  TURN  ON  TRK  FAIL 


REF  59  LAST  882 
REF  2 LAST  878 


33.3530  C 55C4  0 

33.3531  00263  0 


TC  UPFLAG  AND  SET  BIT  TO  TURN  ON  TRACKER  FAIL  LITE 

AORES  HFLSHFLG 


LAST  878 


33,3533  55*671  1 

33  ,3534  1 3250  1 


1670  1 NCRLITE  CA 


TS 

TCF 


1134  REF 

1135 

1136  REF 

1137  REF 

1138  RFF 

1139 

1140 

1141  REF 


2 

1 

3 

2 


2 


LAST 

LAST 

LAST 

LAST 


23.3535 

33.3536 

33.3537 
13,3540 
33  ,3541 

33.3542 

33.3543 
33  ,3544 


4 1673  0 
0 0006  1 
J 3547  0 

6 1672  0 

7 7750  n 
C 0006  1 
1 3545  1 
1 3547  0 


CS  LRSCTR 

EXTEND 

BZF  NOLITE 

AD  LRRCTR 

MASK  NEG3 

EXTEND 
BZF  +2 

TCF  NOLITE 


CELTA  C LARGE 

IF  S = 0,  00  NOT  TURN  CN  TRACKER  FAIL 
M-S 

TEST  FOR  M-S  > 3 

IF  M-S  > 3,  THEN  TWO  OR  MORE  OF  THE 
LAST  FOUR  V PEACINGS  WERE  BAD, 

SO  TURN  ON  VELOCITY  FAIL  LIGHT 


REF  60 
REF  2 


LAST  803 
LAST  080 


33.3545 

33.3546 


0 55C4  0 
00262  1 


TC  UPFLAG  AND  SET  BIT  TO  TURN  ON  TRACKER  FAIL  LITE 

AORES  VFLSHFLG 


GAP: 


ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  l‘»,1969  FL 


153  PAGE  P8A 


L SERVICER  USER’S  PAGE  NOo  33  E7  S3 

IIA4  REF  A LAST  883  32,35A7  3 U72  0 NCLITE  CA  LPRCTR  SET  S = P 

1145  REF  3 LAST  883  33,3550  55*673  0 TS  LRSCTR 


1146  REF  6 LAST  861  33.3551  11*651  0 

1147  REF  2 LAST  881  33,3552  1 3A5A  0 


CCS  VSELECT  TEST  FOR  Z COMPONENT 

TCF  ENDVOAT  NOT  Z,  DC  NCT  SET  VX  INHIBIT 


1148 

1149 

1150 


REF 

REF 

REF 


LAST  883 
LAST  881 
LAST  884 


33.3553 

33.3554 

33.3555 


C 5504 
C0250 
1 3454 


TC  UPFLAG 

AORES  VXINH 
TCF  ENDVOAT 


Z COMPONENT  - SET  FLAG  TO  SKIP  X 
COMPONENT, AS  ERROR  MAY  BE  OUE  TO  CROSS 
LOBE  LOCK  UP  NOT  DETFCTED  ON  X AX ISo 


GAP : 

L 

P1151 

R1153 

R1154 

R1155 

R1156 

R1157 

1158 

1159 

1160 

1161 

1162 

1162 

1163 

116A 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

117^ 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1166 

1187 

1188 

1189 

1190 

1191 

1192 

1193 


ASSEMBLE  REVISION  131  CF  AGC  PRCGRAR  LUMINARY  BY  NASA  2021112-091 


17:  *53  DGCo  19»1969  FL' 


153  PAGE  885 


SERVICER 


USER'S  PAGF  NCo  ?4  £7  S3 


LRVJOB  IS  SET  WHEN  THE  LEM-IS  0ELOW  150C0  FT  DURING  THE  LANDING  PHASE 
THIS  J08  INITIALIZES  THE  LANCING  RADAR  READ  ROUTINE  FOR  5 VELOCITY 
SAMPLES  AND  GOES  TC  SLEEP  WHILE  THE  SAMPLING  IS  DONE-ABOUT  500  MSo 
WITH  A GOODENO  RETURN  THE  DATA  IS  STORED  IN  VMEAS  AND  BIT7  CF  LRSTAT 
IS  SET,  THE  GIMEAL  ANGLES  ARE  READ  A80UT  MIDWAY  IN  THF  SAMPLING  « 


REF  7 LAST  451  4361  170MS  EQUALS  NOl 


REF  1 

REF  36  LAST  85^ 
REF  3 LAST  880 
REF  1 
REF  1 

REF  7 LAST  884 

REF  55  LAST  852 

REF  241  LAST  879 
REF  1 

REF  242  LAST  865 
REF  15  LAST  611 
REF  1 

REF  4 LAST  222 
REF  1 


33,3556  2 4361  1 

33  ,3557  C 5203  0 
E4,1652 

33.3560  03632  0 

33.3561  70064  1 

33.3562  11'651  C 

33.3563  1 3565  0 

33.3564  3 4752  0 

33.3565  6 0000  1 

33  ,3566  0 4616  1 

33,3567  53116  1 

33.3570  0 4616  1 

33.3571  17705  0 

33.3572  1 3625  I 

33  ,3573  11'675  0 

33,3574  1 3626  1 


LRVJOB 


CA  170MS 

TC  WAITLIST 

EBANK=  LRVTIME 
2CA0R  ROGIMS 


CCS  VSELECT 

TCF  42 

CAF  TWC 

DOUBLE 

TC  8ANKCALL 

CAOR  LRVEL 

TC  BANKCALL 

CACR  RACSTALL 

TCF  VBAD 

CCS  STILBADV 

TCF  VSTIL0AD 


SFT  TASK  TO  READ  CCUS 


PIPAS 


SEQUENCE  LR  VEL  BFAM  SELECTOR 
IF  ZERO-RESET  TO  TWO 

2XVSELECT  USED  FOR  VBEAM  INDEX  IN  LRVEL 
GO  INITIALIZE  LR  VEL  READ  ROUTINE 

PUT  LRVJOB  TO  SLEEP  ABCUT  500  MS 


IS  DATA  GOOD  JLST  PRESENT? 

JUST  GOOD  - MUST  WAIT  4 SECONDS* 


REF  0 
REF  4 
REF  5 
REF  44 
REF  4 


LAST  576 
LAST  879 
LAST  879 
LAST  883 
LAST  885 


33  ,3576 
23,3577 

33.3600 

33.3601 

33.3602 
E4  ,1652 


C 0004  0 
0 0006  1 
3 1101  0 
53*653  1 
3 4741  1 
54  0C3  0 


INhINT 

EXTEND  GOOD  RETURN-STOW  AWAY  VMEAS 

DCA  SAMPLSUM 
OXCH  VMEAS 

CA  EeANK4  FOR  DOWNLINK 

TS  EBANK 

EeANK=  LRVTIME 


REF  5 
REF  2 

REF  4 
REF  3 
REF  3 
REF  3 
REF  13 
REF  45 
KEF  8 


LAST  885 
LAST  202 

LAST 
LAST 
LAST 
LAST 
LAST 
LAST 
LAST 


33.3603 

33.3604 

33.3605 

23.3606 

23.3607 

23.3610 

23.3611 
33  ,3612 

33.3613 

33.3614 
E7  ,1651 


C 0CC6  I 
3 1653  n 
53' 740  1 
C 0006  1 
3 1655  0 
53*735  0 
3 1656  0 
55*736  0 
2 5016  0 
54  003  0 


879 

203 

879 

202 

882 

885 

865 


EXTEND 

DCA 

DXCh 

EXTEND 

OCA 

DXCH 

CA 

TS 


LRVTIME 

LRVTIMDL 

LRXCOU 

LPXCDUCL 

LRZCOU 

LRZCDUDL 

EBANK7 

EBANK 

VSELECT 


REF  31 
REF  2 


LAST  882 
LAST  879 


23.3615 

33 .3616 


4 0107  C 
7 4745  1 


CS  FLGWRDll  SET  BIT  TO  INDICATE  VELOCITY 

MASK  VELDABIT  MEASUREMENT  MADE* 


gap: 

L 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

R1203 

R1204 

R1205 

R 1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

121<? 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 
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SERVICER 


USER  'S  PAGE  NOo  35  E7  S3 


32 

9 


HEF  56  LAST 
RFF  10  LAST 
REF  136  last 


885 

R86 

862 


:3,3617 
33  ,3620 
33,3621 


26  107 
11'651 

1 3623 

2 A7E2 
55' 651 
1 51  55 


0 

0 

1 

C 

0 

1 


AOS 

ENCLRV  CCS 
TCF 
CA 
TS 
TCF 


FLGWROll 

VSELECT 

+2 

TlsC 

VSELECT 

ENDCFJCP 


UPDATE  VSELECT 


RFF  57  LAST  886 
REF  5 LAST  885 
REF  1 


33-,3625  3 4752 

23.3626  55'675 

23.3627  1 262C 


0 VeAO  CAF 

0 VSTILBAD  TS 

1 TCF 


TWO 

STILBAOV 

ENOLRV 


SET  STILBAD  TO  WAIT  4 SECONDS 


LRHJ06  IS  SET  BY  LRhTASK  WHEN  LEP  IS  BELOW  25000 
INITIALIZES  THE  LR  READ  ROUTINE  FCR  AN  ALT  MEASUR 


FTo  THIS  JOB 
EMENT  AND  GOES  TC 


SLEEP  WHILE  THE  SAPPLING  IS  CCNE-A80UT  95  MS®  WITH  A GOODENO  RETURN 
THE  ALT  DATA  IS  STORED  IN  HPEAS  AND  BIT?  CF  LRSTAT  IS  SET® 


REF 


34,3571 

34,2000 

34,3571 


BANK  34 
SFTLOC  P12STUFF 
BANK 


REF 


COUNT#  $S/S6RV 


REF  243  LAST  885 
REF  2 LAST  495 
PEF  244  LAST  886 
REF  16  LAST  885 
PEF  1 

REF  5 LAST  222 
REF  1 


34  ,3571  0 4616 

24.3572  53102 

34.3573  0 4616 

34.3574  17705 

34.3575  1 3620 

34.3576  11*674 

34.3577  1 3630 


1 LRHJOB  TC 
1 CACR 

1 TC 

0 CAOR 

1 TCF 

1 CCS 

0 TCf 


BANKCALL 

LRALT 

BANKCALL 

RAOSTALL 

HBAD 

STILBAOH 

HSTIL6AC 


INITIATE  LR  ALT  MEASUREMENT 
LRHJOB  TC  SLEEP  ABOUT  95MS 


IS  DATA  GOOD  JUST  PRESENT? 

JUST  GOOD  - MUST  WAIT  4 SECONDS® 


REF  9 LAST  885 

REF  6 LAST  882 

REF  10  LAST  865 

REF  8 LAST  611 


34,36CC  0 0004  0 

34.3601  0 0006  1 

34.3602  3 1101  0 

34.3603  53*655  1 

34  ,3604  C 0006  1 
24,36C5  3 1561  1 

34,3606  53*755  0 


INHINT 

EXTEND 

DCA  SAPPLSUM 

OXCH  HMEAS 
EXTEND 

OCA  PIPTIPEl 

OXCH  MKTIME 


GCOC  RETURN-STORE  AWAY  LRH  DATA 
LRH  DATA  lo079  FT/BIT 
FOR  DOWNLINK 


REF  3 
PEF  9 


LAST  867 
LAST  611 


34,3607 

24.3610 

34.3611 


C 0006  1 
3 1156  1 
53*460  0 


EXTEND 

OCA  CUUTEPPY  COUY,Z  = AIG.AMG 

CXCH  AIG 


REF  3 LAST  867 
REF  7 LAST  611 


34.3612  3 1154  0 

34.3613  55*461  1 


CA  CDUTFPPX  CCUX  = AOG 

TS  AOG 


RFF  33  LAST  886  34,3614  4 0107  0 

REF  2 LAST  877  34,3615  7 4750  C 

REF  34  last  086  34,3616  26  107  0 

RFF  135  LAST  886  34,3617  0 5155  0 ENOLRH 


CS  FLGWROll  SET  BIT  TO  INDICATE  RANGE 

MASK  PN6EDBIT  MEASUREMENT  MADE® 

ADS  FLGWRDll 

TC  ENDOFJOP  TERMINATE  LRHJOB 


GAP  : 

L 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

R1248 

R1249 

R1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1250 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1266 

1269 

1270 
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REF  27  LAST  825 
REF  2 LAST  577 

REF  2 LAST  886 
REF  93  LAST  881 
REF  4 LAST  611 
REF  126  LAST  886 


34,3620-  3 0101  I 

34.3621  7 4742  0 

34.3622  0 0006  1 

34.3623  1 3627  0 

34.3624  C 5516  C 

24.3625  00120  1 

34.3626  C 5155  0 


F8AD 


CA  FLAGWRD5 

MASK  RNGSCeiT 

EXTEND 

B2F  HST 1L6AD  -1 

TC  DCWNFLAG 

ADRES  PNGSCFLG 

TC  ENCCFJC8 


IS  BAD  RETURN  DUE  TO  SCALE  CHANGE? 

NO  RESET  HSTILBAD 

YES  RESET  SCALE  CHANGE  BIT  AND  IGNORE 


REF  58 
REF  6 
REF  137 


LAST  886 
LAST  086 
LAST  887 


34,3627 

34.3630 

24.3631 


3 4752  C 
55*674  1 
0 5155  0 


HSTILBAD 


CAF 

TS 

TC 


TWO 

STILBAOH 
ENCCF JCR 


SET  STILBAD  TO  WAIT  4 SECONDS 


REF  1 


34,3632 

34,2000 

34,3632 


BANK  34 
SETLCC  SERV4 
BANK 


REF  2 LAST  886  TO  887:  33  SS’l' 


COUNT#  SS/SERV 


RDGIMS  IS  A TASK  SET  LP  BY  LRVJCB  TO  PICK  UP  THE  IMU  CDUS  AND  TIME 
AT  ABOUT  THE  MIDPOINT  OF  THE  LR  VEL  READ  ROUTINE  WHEN  5 VEL  SAMPLES 
ARE  SPECIFIECo 


REF  6 LAST  885 

REF  27  LAST  865 
REF  7 LAST  887 


E4,1652 

34.3632 

34.3633 

34.3634 


0 0006  1 RDGIMS 
3 0025  0 
53'653  1 


EeANK=  LRVTIME 
EXTEND 

DCA  TIME2 
DXCH  LRVTIME 


PICK  UP  TIME2,TIMEI 
AND  SAVE  IN  LRVTIME 


REF  14 
REF  5 


LAST  865 
LAST  885 


34.3635 

34.3636 

34.3637 


0 0006  1 
2 0033  1 
52'655  I 


EXTEND 

DCA  COUX  PICK  UP  CDUX  AND  COUY 

OXCH  LRXCOU  AND  SAVE  IN  LRXCCU  AND  LRYCDU 


REF  8 LAST  865  34,3640  3 0034  0 

REF  4 LAST  885  34,3641  £5*656  1 


CA  CDUZ 

TS  LRZCDU  SAVE  CDUZ  IN  LRZCOU 


REF  12 
REF  6 


LAST  866 
LAST  880 


34.3642 

34.3643 


3 0037  0 
55*657  0 


CA  PIPAX 

TS  PIPTEM  SAVE  PIPAX  IN  PIPTEM 


REF  3 LAST  386 
REF  7 LAST  887 
REF  60  LAST  854 


34.3644  C 0006  1 

34.3645  3 0041  1 

34.3646  53*661  0 

34.3647  0 5261  1 


EXTEND 

DCA  PIPAY  PICK  UP  PIPAY  AND  PIPAZ 

DXCH  PIPTEM  -H  AND  SAVE  IN  PIPTEM  +l  AND  PIPTEM  +2 

TC  TASKCVER 


REF 


LAST  867 


33 ,3630 
33,2000 
33,3630 


BANK  33 
SETLCC  SERVICES 
BANK 


RFF  8 LAST  868  TO  886:  625  823*  COUNT*  S$/SERV 

REF  52  LAST  083 


E7,1515 


EBANK=  OVCNTR 


gap:  assemble  revision  131  OF  AGC  PRGGRAM  LUMINARY  BY  NASA  2021112-091 
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L SERVICER  USER'S  PAGE  NCe  37  E?  S3 

R1271  HIGATJOB  IS  SET  APPROXIMATELY  6 SECCNCS  PRICR  TC  HIGH  GATE  CURING 

R1272  THE  EESCENT  BURN  PHASE  OF  LUNAR  LANDING*  THIS  JOB  INITIATES  THE 

R1273  LANDING  RADAR  REPOSITICMNG  RCUTINE  AND  GOES  TO  SLEEP  UNTIL  THE 

R1274  LR  ANTENNA  MOVES  FROM  POSITICN  I TC  PCSITICN  2*  IF  THE  LR  ANTENNA 

R1275  ACHIEVES  POSITION  2 WITHIN  22  SECONDS  THE  ALTITUDE  AND  VELOCITY 

R 1276  BEAM  VECTORS  ARE  RECOMPUTED  TC  REFLECT  THE  NEW  ORIENTATION  WITH 

R1277  RESPECT  TO  THE  NB«  BITIO  CF  LRSTAT  IS  CLEARED  TO  ALLOW  LR 

R1270  MEASUREMENTS  ANC  THE  JCB  TERMINATES* 


12781 

12783  REF  35  LAST 
12785  REF  12  LAST 
12787  REF  36  LAST 


33,3630  0 000^  0 

886  33,3631  A 01C7  0 

868  33  ,3632  7 5015  1 

888  33,3633  26  107  0 


REREPOS 


INHINT 

CS  FLGWROll 

MASK  PR  103 
ACS  FLGWROll 


1279  REF  245 

1280  REF  2 

1281  REF  246 

1282  REF  17 

1283  REF  1 


LAST 

LAST 

LAST 

LAST 


886 

568 

888 

886 


33.3634  C 4616  1 

33.3635  53454  1 

32.3636  C 4616  1 

33.3637  17705  Q 

33,3640  1 3653  0 


HIGATJOB  TC  BANKCALL 

CACR  LRP0S2 

TC  BANKCALL 

CADR  PADSTALL 

TCF  POSALARM 


START  LRPCS2  JCB 

PUT  HIGATJOB  TO  SLEFP  UNTIL  JOB  IS  DONE 
EAC  END  ALARM 


1284  REF  2 LAST  256 

1285  REF  16  LAST  828 


33,3641  3 771A 

33  ,3642  0 5146 


1 POSGOOD  CA 
1 TC 


PRI023 
PR  lOCHNG 


REDUCE  PRICRITY  FOR  INTERPRETIVE  COMPS* 


1286  REF 


33,3643  C 3717 


TC  SETPCS2 


LR  IN  P0S2  - SET  UP  TRANSFORMATIONS 


12862  REF  62  LAST  884 

12864  REF  1 

1287  REF  94  LAST  887 

1288  REF  1 

12882  REF  75  LAST  868 


33.3644  0 5504  0 

33.3645  Q0256  0 

33.3646  C 5516  0 

33.3647  00252  1 

33,3650  0 535?  1 


TC  UPFLAG 

ACRES  LPCS2FLG 

ENDPQS  TC  DCWNFLAG 

ADRES  NOLRREAD 

LRRESTRT  TC  PHASCHNG 


RESET  NOLRREAD  FLAG  TO  ENABLE  LK  READING 


REF  138  LAST  887 


0000 
I 51 


0 

0 


OCT 

TC 


1 

ENCOFJOB 


1290 

1291 

1292 

1293 

1294 

1295 

1296 


RFF  1 
REF  247 
REF  7 
REF  1 
REF  1 
REF  1 
REF  139 


LAST  868 
LAST  518 

LAST  888 


33.3653 

33.3654 

33.3655 

33.3656 
33  ,3657 

33.3660 

33.3661 


3 3757  1 
C 4616  1 
21563  1 
1 365C  0 
1 3662  1 
1 3670  1 
0 5155  0 


PCSALARM 


CA  0CT523 

TC  8ANKCALL 

CACR  PRICLARM 

TCF  LRRESTRT 

TCF  PICHK 

TCF  P2CHK 

TC  ENOOFJOB 


FLASH  ALARM  CODE 

V3^-TERMINATE  R12  (NGLRPBIT  SET) 

PROCEED 

V32e 


12962  REF 
12964  REF 

1297  REF 

1298  REF 

1299  PEF 

1300  REF 


63  LAST 
1 

45  LAST 
2 LAST 

I 


888 

870 

870 


33.3662  C 5504  0 PICHK 

33.3663  C0261  1 

33.3664  3 4746  0 

33.3665  0 3674  1 

33.3666  0 3646  C 

33.3667  1 3641  0 


TC  UPFLAG 

ADRES  N0511FLG 

CA  BIT6 

TC  POSTST 

TC  ENDPOS 

TCF  POSGOOD 


NOT  POST  - CHANGE  TC  PCS2 


13005  REF 


29  LAST  881 


33,3670  3 4745  0 P2CHK  CA 


- 1^3 


PAGE  889 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L SERVICER 


17:53  DEC®  19,1.969  FLY 
USER'S  PAGE  NC® 


13007 

1301 

13015 

13C17 


1302 
13025 

1303 
13035 
IBO-V 
1305 


REF 

REF 

REF 


3 

2 

2 


REF  23 


REF  5 
REF  A 
REF  11 
REF  1 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


78A 

529 

525 

7A2 


23.3672  1 36A1 

33.3673  1 3653 

23.3674  C CC06 

33.3675  C2  C33 

33.3676  0 0006 

23.3677  1 6745 

33,3700  1 6742 

33  ,3701  0 4645 

33,3702  55*656 


1 

C 

0 

1 

0 

1 

0 

1 

I 

1 


PCSTST 


SETPOSl 


TC 

TCF 

TCF 

EXTEND 

RAND 

EXTEND 

0ZF 

TCF 

TC 

TS 


POSTST 

PCSGCCD 

POSALARM 


CHAN33 

TCC 
0 + 1 

MAKECADR 

LRADRETl 


MUST  BE  CALLED  BY  BANKCALL 

SAVE  RETURN  CAOR,  SINCE  BUF2  CLOBBERED 


1306 

1307 

1308 


REF  59  LAST  867 
REF  7 LAST  887 
REF  6 LAST  886 


33.3703  2 4752  0 

33.3704  55'674  1 

33.3705  55*675  0 


CAF  TWC 

TS  STILBADH  INITIALIZE  STILBAD 

TS  STILBADV  INITIALIZE  STILBAD 


1300  ref  163  LAST 

1310  REF  5 LAST 

1311  REF  5 LAST 

1312  REF  4 LAST 

1313  REF  4 LAST 

1314  REF  11  LAST 


881  33  ,3706  3 4755 

883  33,3707  55'670 

884  33,3710  55»672 

883  33  ,3711  55'671 

884  23,3712  55'673 

886  33,3713  55*651 


CA  ZERO 

TS  LRLCTR 

TS  LPMCTR 

TS  LRRCTR 

TS  LRSCTR 

TS  VSELECT 


INDEX  FOR  LRALPHA jLRBETA  IN  PCS  1® 
SET  L,M,R,  ANS  S TC  ZERO 


INITIALIZE  VSELECT 


1315  REF 


23,3714  0 3720 


TC  SETPCS 


CONTINUE  WITH  COMPUTATIONS 


1316 

1317 


REF  2 
REF  14 


LAST  889 
LAST  743 


33,3715 
33  ,3716 


3 1656  0 
0 4640  1 


CA  LRADRETl 

TC  BANKJUMP  RETURN  TO  CALLER 


1318  REF  60 

1319  REF  222 

1320  REF  2 


LAST  889  33 

LAST  803  33 

LAST  151  23 


,3717  2 4752 

,3720  56  0C2 

,3721  55*650 


C SETPGS2  CA 
C SETPQS  XCH 
1 TS 


TWC 

Q 

LRACRET 


INCEX  FOR  P0S2 
SAVE  INDEX  IN  0 
SAVE  RETURN 


1321 

1322 

1323 


REF 

REF 

REF 


881 

865 

123 


23,3722 
33  ,3723 
E5,15?2 


1 

0 


CA  E6ANK5 

TS  E8ANK 

EBANK=  LRALPHA 


1325  REF  223  LAST 

1326  REF  3 LAST 

1327  REF  22  LAST 

1328  REF  23  LAST 

1329  REF  164  LAST 

1330  REF  24  LAS’T 


869 

889 

P79 

889 

889 

889 


33  ,3725 

33.3726 

33.3727 
33,3730 
23,3721 
33 ,3732 


C 0006 
5 0002 
3 1523 
54  771 
22  766 
3 4755 
54  767 


1 

0 

1 

1 

0 

1 

0 


EXTEND 

INCEX  Q 

DCA  LRALPHA 

TS  COUSPOT  +4 

LXCH  CDUSPCT 

CA  ZERO 

TS  CDUSPOT  +2 


LRALPHA  IN  A,  LRBETA  IN  L 
ROTATION  ABOUT  X 
ROTATION  ABOUT  Y 

ZERO  ROTATION  ABOUT  Z® 


1331 

1332 

1333 


REF  14  LAST 
REF  47  LAST 
REF  3 LAST 


085  33,3733 
889  33,3724 
889  E7,l650 


3 5016  C 
54  0C3  0 


CA  FBANK7 

TS  E8ANK 

EBANK=  LRADRET 


1334  REF  158  LAST  882 

1335 


33.3735  C 6042  1 

33.3736  45175  0 


TC  INTPRET 

VLOAD  CALL 


gap:  ASSEPBLE  revision  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2O21112“0‘?l 


L SERVICER 


1336  REF 

1337  REF 
133fl  REF 
1339  REF 
13AO 

13A1  REF 

1342  REF 

1343 

1344  REF 

1345  REF 

1346  REF 

1347 

1348  REF 

1349  REF 

1350 


5 LAST  781 
2 LAST  577 
2 LAST  117 
11  LAST  813 

4 LAST  552 

2 LAST  117 

3 LAST  890 
? LAST  079 
1 

5 LAST  890 
2 LAST  877 


33.3740 

33.3741 

33.3742 
33  ,3743 

33.3744 

33.3745 

33.3746 
23,374? 

33. 3750 

33.3751 

23.3752 
33  ,3753 

33.3754 

33.3755 


C6520  C 
47653  1 
26237  0 
06522  1 
77624  1 
47673  0 
02245  0 
76435  1 
C2237  0 
26231  0 
26003  0 
77624  1 
47673  0 
02273  0 
77776  1 


UNI  TY 
TRG*SMNB 
STOVL  VYEEAMNB 
UNI  TX 

CALL 

X'SRNB* 

STORE  VX3EAMN8 
VXV  VSLl 

VYBEAMNE 
STOVL  VZbEAMNB 
HBEAMANT 

CALL 

#SMNB* 

STORE  H8EAMNB 
EXIT 


1351  REF 


4 LAST  889 


23,3756  C 1650  0 


TC  LRADRET 


1352 


23,3757  00523  C OCT523  OCT  00523 


17:53  OECe  19,196<»  FLY 


153  PAGE  890 


USER'S  PAGE  NOo  39  E7  S3 

CONVERT  UNITY ( ANT ENNA » TO  NB 

CONVERT  UMTX  (ANTENNA)  TO  NB 


Z = X ♦ Y 

CONVERT  TO  NB 


GAP  : 

L 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

001  7 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0C26 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0036 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 


153  PAGE  891 


ASSEPOLE  REVISION  131  CF  AGC  PRCCRAM  LUMINARY  BY  NASA  2021112-091  17:53  DECo  19,1969  FLY 


LANDING  ANALOG  DISPLAYS 


USER  'S  PAGE  NOo 


eO  S3 


REF 


3 LAST  867 


21,2145 
21  ,2000 
2 1 , 2 1, 4 5 


BANK  21 
SETLOC  PIC 
BANK 


REF  38  LAST  878  E7,1536 

REF  2 LAST  42  TC  42:  6 6# 


EBANK=  UNIT/P/ 
COUNT#  tS/PlO 


REF  2 LAST  823 
REF  13  LAST  854 
REF  4 LAST  853 


21.2145 

21.2146 

21.2147 


22'714  1 LANDISP  LXCH  PI PCTRi 

4 0025  1 CS  TI  PEI 

53*055  1 CXCH  T8ASE2 


UPDATE  TBASE2  AND  PIPCTR  SIMULTANEOUSLY* 


REF  25  LAST 
REF  3 LAST 
REF  266  LAST 
REF  1 
REF  26  LAST 
REF  30  LAST 
REF  267  LAST 
REF  1 
REF  1 
REF  27  LAST 
REF  31  LAST 
REF  28  LAST 
REF  39  LAST 

REF  12  LAST 
REF  6 LAST 

REF  2 LAST 
REF  24  LAST 
REF  7 LAST 

REF  3 LAST 
REF  25  LAST 
REF  8 LAST 

REF  4 LAST 
REF  26  LAST 
REF  1 

REF  27  LAST 


REF  28  LAST 
REF  3 LAST 

REF  2 LAST 
REF  29  LAST 
REF  2 LAST 
REF  3 LAST 


860  21,2150 

734  21,2151 

883  21,2152 

21,2153 
528  21,2154 

888  21,  2155 

891  21,2156 

21 ,2157 
21,2160 
891  21,2161 

891  21,2162 

891  21,2163 

816  21,2164 

21,2165 
830  21  ,2166 

872  21,2167 

21,2170 
153  21,2171 

812  21,2172 

891  21,2173 

21 ,2174 
B91  21,2175 

891  21,2176 

891  21,2177 

21,2200 

891  21,2201 

891  21,2202 

21.2203 

21.2204 
891  21,22C5 

21  ,2206 
21,2207 
891  21,2210 

872  21,2211 

21,2212 

153  21,2213 

891  21,2214 

153  21,2215 

891  21  ,2216 


4 0103  1 
7 4741  0 
1C  CGC  0 
1 3052  1 

3 1300  0 
7 4745  1 
10  000  0 

1 2231  1 
0 2315  1 

4 1300  1 
7 4745  I 
27*300  1 
3 4752  0 
0 0006  1 

05  014  1 
3 1743  0 
0 0006  1 
7 1706  0 
56  070  0 
3 1744  1 
C 0006  1 
7 1707  1 
26  070  1 

2 1745  0 
0 0006  1 
7 1710  1 
26  C70  1 

3 2000  0 
C 0006  I 
7 CC70  1 
20  001  1 
20  001  1 
56  C70  0 

3 1716  0 
C CC06  1 
7 1715  1 

6 0070  0 
55*711  0 

4 1711  0 


AL  TROUT 


ARCCMP 


CS  FLAGWR07 

MASK  SWANOBIT 

CCS  A 

TCF  OISPRSET 

CA  IMODES33 

MASK  6IT7 

CCS  A 

TCF  ALTOUT 

TC  DISINOAT 

CS  IM0DeS33 

MASK  BIT7 

ADS  IM0DES33 

CAF  6IT2 

EXTEND 

HOR  CHAN14 

CA  RUNIT 

EXTEND 

MP  VVECT 

XCH  RUPTREGl 

CA  RUNIT  +1 

EXTEND 

MP  VVECT  +1 

ACS  RUPTREGl 

CA  RUNIT  +2 

EXTEND 

MP  VVECT  +2 

ADS  RUPTREGl 

CA  ARCONV 

EXTEND 

PP  RUPTREGl 

ODOUBL 

DDCUBL 

XCH  RUPTREGl 

CA  DALTRATE 

EXTEND 
MP  DT 

AO  RUPTREGl 

TS  ALTRATF 

CS  ALTRATE 


IS  LANDING  ANALCG  CISPLAYS  FLAG  SET? 

NQo 

BIT  7 = 0 (DO  AITRATE),  =T  (00  ALT.I 


CHECK  MODE  SELECT  SWITCH  AND  CIOFLG* 


ALTERNATE  ALTITUDE  RATE  WITH  ALTITUDE-, 
RATE  COMMAND  IS  EXECUTED  BEFORE  RANGE 


ALTRATE  (BIT2  = 1),  ALTITUDE  (BIT2  = OU 
COMPUTE  ALTRATE=RUNIToVVECT  M/CS  #2(-6Jo 

MULTIPLY  X-COMPONENTSv 

SAVE  SINGLE  PRECISION  RESULT  M/CS*2(-6U 
MULTIPLY  Y-COMPONENTSc 


ACCUMULATE  PARTIAL  PRCOUCTSc- 
MULTIPLY  Z-COMpnNENTS* 


ALTITUDE  RATE  IN  M/CS  *2(-6Io 

CONVERT  ALTRATE  TO  BIT  UMTS  (o5FPS/BIT» 


ALTITUDE  RATE  IN  BIT  UN  ITS#2 ( -14  ) « 
ALTITUDE  RATE  COMPENSATION  FACTOR* 


ALTITUDE  RATE  IN 


PIT  UNITS#2(-14)* 


GAP  : 

L 

00^8 

OCAQ 

0050 

0051 

0052 

0053 

005^ 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0U62 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0062 

0083 

0084 

0065 

0086 

0087 

0088 

0089 

0)90 

0091 

0092 

0093 

0094 

0095 
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LANDING  ANALOG  DISPLAYS 


USER  'S  PAGE  NOo  2 E7  S3 


REF  1 
REF  4 
REF  34 
REF  1 
REF  31 

REF  13 
REF  61 


LAST  89  1 
LAST  536 

LAST  618 

LAST  891 
LAST  687 


21  ,2220 
21,2221 
21,2222 

21.2223 

21.2224 

21.2225 

21.2226 
21,2227 
21  ,2230 


C 0006  1 
6 2222  1 

1 2224  0 

2 1711  1 
6 4735  1 
£4  C60  0 

3 4751  0 
C 0006  1 
C5  014  1 
1 5261  0 


DATAOIT 


EXTEND 

BZMF 

TCF 

CA 

AC 

TS 

CAF 

EXTEND 

WOP 

TCF 


+2 

DATAOUT 
AL  TRATE 
6IT15 
ALTP 
BIT3 


CHAM4 

TASKOVER 


CHECK  POLARITY  CF  ALTITUDE  RATE, 

NEGATIVE  - SFNO  POS,  PULSFS  TO  ALTM  REGo 
POSITIVE  OR  ZERC  - SET  SIGN  BIT  = 1 AND 
SEND  TO  ALTM  REGISTER-  *D0  NOT  SEND  +0* 
ACTIVATE  THE  LANDING  ANALOG  DISPLAYS  


eiT3  DRIVES  THE  ALT/ALTRATE  METER, 
EXIT 


REF  2 
REF  32 
REF  29 
REF  30 
REF  40 

REF  14 
REF  3 


REF  1 
REF  4 
REF  06 
REF  5 
REF  2 
REF  31 
REF  224 

REF  3 

REF  225 

REF  1 
REF  2 


LAST  891 
LAST  89  1 
LAST  891 
LAST  892 
LAST  891 


LAST  892 
LAST  871 


LAST  892 
LAST  879 
LAST  892 
LAST  153 
LAST  777 
LAST  089 


LAST  091 


LAST  892 


LAST  892 


21.2231 

21.2232 

21.2233 

21.2234 

21 .2235 

21.2236 

21.2237 
21  ,2240 

21.2241 

21. 2242 

21 .2243 

21.2244 

21.2245 
21  ,2246 
21, 2247 
21  ,2250 

21.2251 

21.2252 
21  ,2253 

21.2254 

21.2255 

21.2256 

21.2257 

21  ,22b0 


0 2315  1 
4745  1 

7 1300  1 
55'3CC  1 
4 4752  1 
C C006  1 
C3  014  1 
11'741  0 

1 2245  I 
1 2245  1 
1 2263  0 
£5*?4l  0 
4 4753  0 
53’742  0 
52'713  1 
3 4742  1 
56  C02  0 
22  007  0 
3 1715  0 
C 0006  1 
10  002  1 
C 0006  1 
7 2002  0 
) 2264  1 


ALTCUT 


TC  DISUCAT 

CS  eiT7 

MASK  IM00eS33 

TS  IM0DFS33 

CS  B1T2 

EXTEND 

WAND  CHAN14 

CCS  ALTBITS 

TCF  +4 

TCF  +3 

TCF  OLOOATA 

TS  ALTBITS 

CS  ONE 

DXCH  ALTBITS 

DXCH  ALTSAVE 

CA  BITIO 

XCF  Q 

LXCH  7 

CA  DT 

EXTEND 
OV  Q 

EXTEND 

MP  ARTCA2 

TCF  OLODATA 


CHECK  MODE  SELECT  SWITCH  AND  OIDFLGo 

ALTERNATE  ALTITUDE  PATE  WITH  ALTITUDE* 

=-J  IF  OLD  ALT*  DATA  TOBE  EXTRAPOLATED* 


SET  ALTBITS  FROM  -n  TO  +n„ 

SET  ALTBITS=-1  FOR  SWITCH  USE  NEXT  PASSc 
NEW  ALTITUDE  E XTPAFOLATI CN  WITH  ALTRATE* 
ZL 

RESCALE  DT*2(-14)  TO  *21-9)  TIME  IN  CS* 

*0021322  *2 (+8  ) 

RATE  APPLIES  FOR  OT  C S* 


REF  3 LAST 
REF  1 
REF  1 

REF  5 LAST 

REF  4 LAST 
REF  5 LAST 
REF  165  LAST 
REF  6 LAST 
REF  22  LAST 
REF  97  LAST 
REF  7 LAST 
REF  8 LAST 


21,2262 
31  ,2263 
21,2264 
892  21,2265 

21,2266 
892  21,2267 

892  31  ,2270 

889  21,2271 

892  21,2272 

820  21  ,2273 

892  21,2274 

892  21,2275 

892  21,2276 


3 2001  1 
C 0C06  1 
7 1711  0 
20  001  I 
6 1713  0 
55'713  1 
3 4755  1 
27*712  0 
3 4733  I 
6 4753  1 
6 1713  0 
55*  713  1 


Z0ATA2 

OLCOATA 


CAF 
• ADS 
CAF 


ALTSAVE 

NEWOATA 

ARTOA 


A LTPATG 

ALTSAVE 

ALTSAVE 

ZERC 

ALTSAVE 

POSMAX 

ONE 

ALTSAVE 

ALTSAVE 


RATE  APPLIES  FOR  *5  SEC-  (4X/SECo  CYCLE! 
EXTRAPOLATE  WITH  ALTITUDE  RATE* 


FORCE  SIGN  AGREEMENT  ASSUMING  A 
NON-NEGATIVE  ALTSAVE* 

IF  ALTSAVE  IS  NEGATIVE,  ZERC  ALTSAVE 
AND  ALTSAVE  +1  AT  ZERODATA* 


GAP  : 

L 

0096 

0097 

0098 

0099 

olon 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

oin 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

013  7 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 
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ASSEMBLE  REVISION  131  CF  A6C  PPCGRAM  LUMINARY  BY  NASA  2021112-091 
landing  ANALOG  DISPLAYS 


17; 53  OECo  19,1969  FLY 

USER'S  PAGE  NOo  3 


E7  S3 


REF  166 
REF  23 
REF  9 
REF  10 
REF  1 
REF  11 


REF  167 
REF  12 
REF  13 
REF  35 
REF  lA 
REF  2 

REF  3 
REF  46 

REF  6 
REF  268 
REF  2 
REF  27 
REF  2 

REF  1 
REF  28 
REF  3 
REF  29 
REF  33 
REF  31 
REF  32 
REF  25 
REF  2 

REF  62 
REF  29 

REF  51 
REF  168 
REF  2 
REF  2 
REF  2 
REF  2 
REF  37 
REF  25 
REF  1 
REF  63 
REF  41 

REF  52 


LAST  892 
LAST  892 
LAST  892 
LAST  893 

LAST  893 


LAST  893 
LAST  893 
LAST  893 
LAST  892 
LAST  893 
LAST  892 

LAST  823 
LAST  888 

LAST  824 
LAST  891 
LAST  891 
LAST  796 
LAST  210 


LAST  893 
LAST  893 
LAST  893 
LAST  S92 
LAST  892 
LAST  893 
LAST  825 
LAST  825 

LAST  892 
LAST  802 

LAS.T  780 
LAST  893 
LAST  152 
LAST  152 
LAST  152 
LAST  152 
LAST  830 
LAST  846 

LAST  893 
LAST  892 

LAST  893 


21,2277 

21.2300 

21.2301 
21  ,2302 

21.2303 

21.2304 

21.2305 

21. 2306 
21  ,2307 

21.2310 

21.2311 
21  ,2312 

21.2313 

21.2314 

21.2315 
21,2216 
21  ,2317 

21.2320 

21. 2321 
21  ,2322 

21.2323 

21.2324 

21.2325 

21.2326 
21  ,2327 

21.2330 

21.2331 
21  ,2332 
21,2323 

21.2334 

21.2335 

21.2336 
21  ,2337 

21.2340 

21.2341 

21.2342 
21  ,2343 

21.2344 

21.2345 
21  ,2346 
21, 2347 

21.2350 

21.2351 

21. 2352 
21  ,2353 
21  ,2354 
21,2355 
31  ,2356 
21, 2357 
21,2360 


3 4755  1 
6 4733  1 
6 1712  1 
55'712  0 
1 3C47  0 
11'713  1 
1 2311  1 
1 2311  I 
3 4755  1 
55'713  1 
11 '712  0 
3 4735  1 

6 1713  0 

1 2224  0 
0 0006  1 
22'714  1 

3 4746  0 
C 0006  1 

02  030  0 
10  000  0 
1 3052  1 

4 0075  1 

7 4736  0 
C CCC6  1 
1 2365  1 
4 C075  1 
7 4736  0 
26  075  I 
4 4745  1 
7 1300  I 
55' 300  1 

4 CC74  0 
7 4752  1 
C 0006  1 
1 5261  0 

3 4744  1 
0 0006  1 

05  C12  1 
3 4755  1 
55*702  1 
55'7C3  0 
55' 676  0 
55*677  1 
3 4750  I 
C 5173  1 

02356  0 
1 5261  0 
3 4752  0 
C 0CC6  I 
05  012  1 


CAF  ZERO 

AD  POSMAX 

AD  ALTSAVE 

TS  ALTSAVE 

TCF  ZERCCATA 

NEWOATA  CCS  ALTSAVE  +1 

TCF  +4 

TCF  +3 

CAF  ZERO 

TS  ALTSAVE  +1 

CCS  ALTSAVE 

CAF  BIT15 

AO  ALTSAVE  +1 

TCF  DATAOLT 

DISINCAT  EXTEND 

QXCH  LADOSAVE 

CAF  BIT6 

EXTEND 

RAND  CHAN30 

CCS  A 

TCF  DISPRSET 

CS  FLAGWRDl 

MASK  DICFLBIT 

EXTEND 

BZF  SPEEDRUN 

CS  FLAGWRCl 

MASK  DIOFLBIT 

ADS  FLAGWRDl 

CS  BIT7 

MASK  IM0DES33 

TS  IM0DES33 

CS  FLAGWROO 

MASK  RIOFLBIT 

EXTEND 

BZF  TASKCVER 

CAF  8IT8 

EXTEND 

WOP  CHAN12^ 

CAF  ZERO 

TS  TRAKLATV 

TS  TRAKFWDV 

TS  LATVMETR 

TS  FOPVMETR 

CAF  BIT4 

TC  TWIDDLE 

ADRES  INTLZE 

TCF  TASKOVER 

INTLZE  CAF  BIT2 

EXTEND 

WOR  CHAN12 


POSSIBLY  SKIP  TC  NEWOATAo 


SET  NEGATIVE  ALTSAVE  +1  TO  +0o 

FRCVIOE  A 15  BIT  UNSIGNED  OUTPUTo 
THE  Hl-OROER  PART  IS  +1  OR  +0, 

DISPATCH  UNSIGNED  BITS  TO  ALTM  REGo 

SAVE  RETURN  TO  ALTROUT  +1  OR  ALTOUT  +1 

WISHETH  THE  ASTRONAUT  THE  ANALOG 
DISPLAYS?  lo  Eo  , 

IS  THE  MODE  SELECT  SWITCH  IN  PGNCS? 

NOc  ASTRONAUT  REQUESTS  NO  INERTIAL  DATA 
YESb  CHECK  STATUS  CF  DICFLAGo 


SETo  PERFORM  DATA  DISPLAY  SFQUENCEo 
RFSETo  PERFORM  INITIALIZATION  FUNCTIONSo 

SET  DIOFLAGe 

TO  DISPLAY  ALTRATE  FIRST  AND  ALT.  SECOND 
ARE  WE  IN  DESCENT  TRAJECTORY? 


NO 

YESo 

SET  DISPLAY  INERTIAL  DATA  OUTBITo 

LATERAL  VELOCITY  MONITOR  FLAG 
FORWARD  VELOCITY  MONITOR  FLAG 
LATV6L  MONITOR  METER 
FORVEL  MONITOR  METER 


ENABLE  RR  ERROR  COLNTFRo 


GAP: 

L 

01^6 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

C166 

0167 

0168 

0160 

0170 

0171 

0172 

0173 

0174 

0175 

01  76 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 
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LANDING  ANALOG  DISPLAYS 


USER  'S  PAGE  NOo  4 E7  S3 


REF  33 
REF  30 
REF  34 
REP  64 


LAST  893 
LAST  H93 
LAST  894 
LAST  893 


21. 2361 

21.2362 

21 .2363 

21. 2364 


4 1300  1 
7 4744  0 
27*300  1 
1 5261  0 


CS  IMCDES33 

MASK  BITS 

ADS  IM0DES33  SET  INERTIAL  DATA  FLAGo 

TCF  TASKOVER 


REF  22 
REF  14 
REF  9 
REF  in 
REF  4 
REF  17 
REF  8 


REF  11 


REF  5 


REF  9 
REF  5 


REF  18 


REF  6 
REF  13 
REF  4 

REF  1 
REF  7 


REF  12 


REF  6 


REF  10 
REF  8 

REF  T9 


REF  9 
REF  4 
REF  4 

REF  2 
REF  10 


LAST  880 
LAST  891 
LAST  565 
LAST  894 
LAST  892 
LAST  811 
LAST  617 

LAST  080 


LAST  894 

LAST  894 
LAST  891 

LAST  980 


LAST  894 
LAST  887 
LAST  865 


LAST  894 
LAST  894 


LAST  894 

LAST  894 
LAST  894 

LAST  894 


LAST  894 
LAST  887 
LAST  865 

LAST  894 
LAST  894 


21  ,2365 

21.2366 

21.2367 
n ,2370 
21,2371 
21  ,2372 

21.2373 

21.2374 
21  ,2375 

21.2376 

21.2377 

21 .2400 

21.2401 

21.2402 

21.2403 

21.2404 

21 .2405 

21 .2406 

21.2407 
21  ,2410 

21. 2411 

21.2412 

21.2413 
21,  2414 
21  ,2415 

21 .2416 

21.2417 
21  ,2420 

21.2421 

21 .2422 

21.2423 

21.2424 
21  ,2  425 

21.2426 

21.2427 

21 .2430 

21. 2431 

21.2432 

21.2433 

21.2434 

21 .2435 
21 ,2426 
21,2437 
21  ,2440 
21,2441 


4 1234  1 
6 0C25  0 
6 4736  1 

6 4736  I 
57*715  C 
3 4777  1 
54  065  0 
C 0CO6  1 
3 1236  1 
2C  COl  1 
20  001  1 
0 0006  1 

7 1715  1 
0 0006  I 
10  065  0 
57*706  1 
0 0006  I 
3 1527  0 
20  001  1 
20  001  1 
27*706  0 
3 0037  0 

6 1157  0 
C 0006  1 

7 2004  0 
27*  70  6 C 
0 0006  1 
3 1240  0 
20  001  1 
20  001  1 
G C006  1 
7 1715  1 
0 0006  1 
10  065  0 
57*707  0 
0 0006  1 

2 1531  1 
20  001  1 
20  001  1 
27*707  1 

3 0040  0 

6 1160  I 
0 0006  I 

7 2004  0 
2?'707  1 


SPEEORUN  CS 


CA 

TS 

EXTEND 

OCA 

ODOUBL 

ODOUBL 

EXTEND 

MP 

EXTEND 

DV 

XCH 

EXTEND 

ncA 

ODOUBL 

DOOUBL 

ADS 

CA 

AO 

EXTEND 

MP 

ADS 

EXTEND 

CCA 

DOOUBL 

DDOUBL 

EXTEND 

MP 

EXTEND 

CV 

XCH 

EXTEND 

DCA 

DDOUBL 

DOOUBL 

AOS 


TIMEl 

HA  LF 

HALF 

DT 

ISEC 

ITEM-PS 

GOT/2 


DT 

IT  EMP5 
VVECT 

V 


VVECT 
PI  PAX 
P I PATMPX 


KPIPl ( 5) 
VVECT 


GOT/2  +2 


DT 

ITEMP5 
VVECT  +1 

V +2 


VVECT  +1 

PIPAY 

PIPATMPY 

KPIPl (5 ) 
VVECT  +1 


UPDATE  THE  VELOCITY  VECTOR 
COMPUTE  T - TN 

CORRECT  FCR  POSSIBLE  CVERFLCW  OF  TIMEl. 
SAVE  FOR  LATFR  USE 
INITIALIZE  FOR  DIVISION  LATFR 
COMPUTE  THE  X-CCHPCNFNT  CF  VELOCITY. 


VVECT  = G(T-TN»  M/CS  «2(-5I 

M/CS  *2(-7l 
RESCALE  TC  2(-5) 

VVECT  = VN  + G(T-TN)  M/CS  ♦2(-5) 

DELV  CM/SeC  #2(-14» 

IN  CASF  PIPAX  HAS  BEEN  ZEROED 

DELV  M/C  S *2(-5) 

VVECT  = VN  ♦ DELV  ^ GN(T-TN»  M/CS  *2(-5) 


COMPUTE  THE  Y-COMPONENT  OF  VELOCITY, 


GAP; 


ASSEMBLE  REVISION  131  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-091 


landing  analog  displays 


0195 

0196  REF  13 

0197 

0198 

0199 

0200  REF  7 

0201 

0202  REF  11 

0203  REF  11 

0204 

0205  REF  20 

0206 

0207 

0208  REF  12 

0209  REF  7 

0210  REF  4 

0211 

0212  REF  3 

0213  REF  13 


LAST  994 


LAST  894 


LAST  894 
LAST  394 


LAST  894 


LAST  895 
LAST  866 
LAST  865 

LAST  894 
LAST  895 


21, -2442  0 0006 

21.2443  2 1242 

21.2444  20  001 

21.2445  2C  COl 

21.2446  0 0006 

21.2447  7 1715 

21.2450  0 0006 

21.2451  10  065 

21  ,2452  57‘710 

21.2453  C C006 

21.2454  3 1533 

21.2455  20  001 

21.2456  2C  COl 

21.2457  27*710 

21.2460  2 0041 

21.2461  6 1161 

21  ,2462  0 0006 

21.2463  7 20C4 

21.2464  27*710 


1 

1 

1 

1 

1 

1 

I 

0 

0 

I 

0 

1 

1 

1 

1 

0 

1 

0 

1 


EXTEND 
DC  A 

OOOUBL 

OCCUBL 

EXTEND 

MP 

EXTEND 

DV 

XCh 

EXTEND 

OCA 

00QU6L 

DDOUBL 

ADS 

CA 

AO 

EXTEND 

MP 

ADS 


GOT/2  *4 


DT 

I TEMP5 
VVECT  +2 

V +4 


VVECT  +2 

PIPA2 

PIPATMPZ 

KPIPI  {5> 
VVECT  +2 


0214  REF  32  LAST  892 

0215  REF  o LAST  852 


21.2465  3 4751 

21.2466  0 5224 


CAF  BIT3 

TC  VARDELAY 


0216  REF 

0217  REF 

0218  REF 

0219 

0220  REF 


26  LAST  893 

3 LAST  893 
269  LAST  893 

4 LAST  893 


21  ,2  467  4 0074 

21.2470  7 4752 

21.2471  10  000 

21.2472  1 2474 

21.2473  C 1714 


CS  flagwrdo 

MASK  RIOFLBIT 

CCS  A 

TCF  +2 

TC  LAOQSAVE 


02201  REF  42  LAST  893 

02202 

02203  REF  53  LAST  893 

02204  REF  270  LAST  895 

02205 

02206  REF  3 LAST  893 


21 .2474  3 4752  0 

21.2475  C 0006  I 

21.2476  C2  012  0 

21  ,2477  10  000  0 

21.2500  1 2502  0 

21.2501  1 3052  1 


CAF  BIT2 
EXTEND 

RAND  CHAM2  - 
CCS  A 

TCF  42 

TCF  DISPPSET 


0221  REF 

0222  REF 

0223  REF 

0224  REF 

0225  REF 

0226  REF 

0227  REF 

0228  REF 
022«  REF 

0230  KEF 

0231 

0232  RFF 

0233  REF 

0234  REF 


5 LAST  fifiO 

14  LAST  895 

35  LAST  863 

6 LAST  995 

15  LAST  895 

11  LAST  745 

7 last  095 

16  LAST  895 
19  LAST  746 

36  LAST  895 

5 LAST  871 
30  LAST  891 

12  LAST  895 


21, 2503 
21  ,2504 

21.2505 

21.2506 
21  ,2507 

21.2510 

21.2511 

21.2512 

21.2513 

21 .2514 

21.2515 

21.2516 
21  ,2517 


54  061  I 
3 1735  1 
6 1707  C 
54  062  1 

2 1737  C 

6 1710  0 
54  063  0 

3 C061  0 
0 0006  1 

7 1717  0 
56  070  0 
3 0062  0 


CA  DELVS 

AO  VVECT 

TS  ITEMPl 

CA  OELVS  42 

AD  VVECT  41 

TS  ITEMP2 

CA  DELVS  44 

AD  VVECT  42 

TS  ITEMP3 

CA  ITEMPl 

EXTEND 
Mp  UHYP 

XCH  RUPTPEGl 

CA  ITEMP2 


17:53  CECo  19,1969  FLY 


153  PAGE  895 


USER*  S PAGE  NCo  5 F7  S3 

COMPUTE  THE  Z-COMPONFNT  OF  VELOCITY* 


PAUSE  40  MS  TO  LET  OTHER  RUPTS  IN* 

ARE  WE  IN  DESCENT  TRAJECTORY? 


YESo 

NO* 


CHECK  TO  SEE  IF  RR  ERRCR  COUNTERS 
ARE  ENABLED* 

IF  NOT, 

RE-INITl ALI Ze  LANDING  ANALOG  DISPLAYS 


HI  X OF  VELOCITY  CORRECTION  TERM* 
HI  X OF  UPDATED  VELOCITY  VECTOR* 

= VX  - OVX  M/CS#2  (-51* 


Y 

= VY  - OVY  M/CSf‘2(-5l^ 

Z 

Z 

= VZ  - DVZ  M/CS*2(-5» 

COMPUTE  VHY,  VELOCITY  DIRECTED  ALONG  THE 
Y-CnOPDINATEc 

HI  X OF  CROSS-RANGE  HALF-UNIT  VECTORc 


GAP : 

L 

0235 

0236 

0237 

023e 

0239 

02A0 

02A1 

02A2 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

C276 

0277 

02  78 

0279 

0280 

0281 

0282 

02  83 

0284 
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LANDING  ANALOG  DISPLAYS 


USER'S  PAGE  NOo  6 E7  S3 


REF  6 LAST 
REF  31  LAST 
REF  20  LAST 

REF  7 LAST 
REF  32  LAST 
REF  33  LAST 

REF  2 LAST 
REF  37  LAST 

REF  4 LAST 
REF  34  LAST 
REF  13  LAST 

REF  5 LAST 
REF  35  LAST 
REF  21  LAST 

REF  6 LAST 
REF  36  LAST 
REF  37  LAST 

PEF  2 LAST 
REF  7 LAST 
REF  48  LAST 
REF  3 LAST 
REF  4 LAST 
REF  22  LAST 
REF  2 LAST 
REF  8 LAST 
REF  15  LAST 
REF  49  LAST 
PEF  39  LAST 
REF  9 LAST 

PEF  3 LAST 
REF  38  LAST 
REF  23  LAST 

REF  3 LAST 
REF  39  LAST 
REF  1 

REF  40  LAST 

REF  2 LAST 
REF  10  LAST 


21,2520 
895  21  ,2521 

895  21,2522 

895  21,2523 
21 ,2524 

896  21,2525 

896  21,2526 

896  21,2527 

21,2530 
153  21  ,2531 

895  21,  2532 
21,2533 

871  21,2531, 

896  21,2535 

895  21  ,2536 
21,2537 

896  21,2540 

896  21  ,2541 

896  21,2542 

21,2543 
896  21,2544 

896  21,2545 

896  21  ,2546 

21,2547 
153  21,2550 

734  21  ,2551 

889  21,2552 

190  66,1417 

896  21,2553 

896  21,2554 

191  21  ,2555 

746  21,2556 

889  21,2557 

896  21  ,2560 

891  E7,1536 

896  21,2561 

21,2562 
896  21,2563 

896  21  ,2564 

896  21,2565 

21,2566 
896  21  ,2567 

896  21,2570 

21.2571 

21.2572 
896  21,2573 

21  ,2574 
152  21  ,2575 

896  21,2576 

21  ,2577 


C 0006  1 
7 1721  0 
26  C70  I 
3 0C63  1 
C 0006  1 
7 1723  1 
26  070  1 
3 0070  0 

6 COOC  1 
57'704  0 
3 CC61  C 
0 0006  1 

7 1725  1 
56  C70  0 
3 0062  0 
0 0006  1 
7 1727  0 
26  070  1 
3 0C63  1 
C 0006  1 
7 1731  1 
26  C70  1 
3 0070  0 

6 COOO  1 
57'705  1 
3 5015  0 
54  CC3  0 

3 1417  I 
54  C63  0 
3 1420  0 
54  064  1 
3 5016  0 
54  003  0 

3 0064  0 
C 0006  1 

7 17C4  I 
56  070  0 
3 0063  1 
0 0006  1 
7 1705  0 
26  C70  1 
3 2003  0 
C 0006  1 
7 CC70  I 
20  001  1 
57'700  1 
3 0064  0 
C 0006  1 


EXTEND 

MP  UHYP  +2 

ADS  RUPTREGl 

CA  ITENP3 

EXTEND 

Mp  UHYP  +4 

ADS  RUPTREGl 

CA  PUPTREGl 

DOUBLE 
XCF  VHY 

CA  ITEMPl 

EXTEND 
MP  UHZP 

XCH  RUPTREGl 

CA  1TEMP2 

EXTEND 

MP  UHZP  +2 

ADS  RUPTREGl 

CA  ITEMP3 

EXTEND 

MP  UHZP  +4 

ADS  RUPTREGl 

CA  RUPTREGl 

DOUBLE 
XCH  VHZ 

GET22/32  CAF  EBANK6 

TS  EBANK 

EBANK=  M22 

CA  M22 

TS  ITEMP3 

CA  M32 

TS  ITeMP4 

CAF  FBANK7 

TS  EBANK 

EBANK=  UMT/R/ 

LATFKDV  CA  1TEMP4 

EXTEND 


MP  VHY 

XCH  RUPTREGl 

CA  ITEMPB 

EXTEND 
MP  VHZ 

ADS  RUPTREGl 

CA  VELCONV 

EXTEND 

MP  RUPTREGl 

DCOUBL 

XCH  LATVEL 

CA  ITEMP4 

EXTEND 


Y 

ACCUMULATE  PARTIAL  PROOUCTSa 


Z 


VHY  = VMP«UHYP  M/CS#2(-5I<, 

NOW  COMPUTE  VHZ,  VELOCITY  DIRECTED  ALONG 
THE  Z-COORDINATEo 

HI  X OF  DOWN-RANGE  HALF-UNIT  VECTOR^ 


Y 

ACCUMULATE  PARTIAL  PRODUCTS^ 


VHZ  = VMPoUHZP  M/CS*?  (-5  I. 

GET  SINIAOGI.COSIAOG)  FROM  GPMATRIX:. 


COMPUTE  LATERAL  AND  FCPWARD  VELOCITIESa 


=VHY  (COS  ) AOG+V  hZ(  S IN  I AOG  M/CS  *2(-5) 
CONVERT  LATERAL  VELOCITY  TO  BIT  UNITS.; 


LATERAL  VELOCITY  IN  BIT  UNITS  *2(-14) 
COMPUTE  FORWARD  VELOCITY., 


GAP  : 

L 

0285 

0286 

0287 

0288 

0209 

0290 

0291 

0292 

02  93 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0 308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 
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LANCING  analog  DISPLAYS 


USER'S  PAGE  NOo  7 


E7  S3 


REF  4 
REF  41 
REF  24 

RFF  4 
REF  271 
REF  42 
REF  2 

REF  43 


REF  3 


LAST  896 
LAST  896 
LAST  896 

LAST  896 
LAST  895 
LAST  897 
LAST  896 

LAST  897 

LAST  317 


21,2600 

21,2601 

21,2602 

21.2603 

21.2604 

21.2605 
21  ,2606 
21,2607 
21,2610 
21  ,2611 
21,2612 
21,2613 


7 1705  0 
56  070  0 

3 CC63  1 
0 0006  1 
7 1704  1 

4 0000  0 
26  070  1 
3 2C03  0 
0 0006  1 
7 0070  1 
20  COl  1 
57'701  0 


MP  VHZ 

XCF  RUPTR661 

CA  ITEMP3 

EXTEND 

MP  VHY 

CS  A 

ADS  RUPTREGl 

CA  VELCCNV 

EXTEND 

MP  RUPTREGl 


OOCUBL 

XCF  FORVEL 


= VHZ(COS>AOG-VHY(SIMAOG  M/CS  *2(-51o 
CONVERT  FORWARD  VELOCITY  TO  BIT  UNITSo 


FORWARD  VELOCITY  IN  BIT  UMTS  *2(-14), 


REF  1 

REF  5 LAST  617 


21.2614  4 2005  1 

21.2615  54  066  0 


CS  MAXVBITS  ACCo  = -199,9989  FT«, /SECo 

TS  ITEMP6  -547  BIT  UMTS  (OCTAL)  AT  0o5571  FPS/BIT 


PEF  98 
REF  12 
REF  13 
REF  3 

REF  1 

REF  2 
REF  14 
REF  4 
REF  2 

REF  I 
REF  3 
REF  15 
REF  5 
REF  3 


REF  4 
REF  If 
REF  3 

PEF  1 

REF  2 
REF  17 
RfcF  6 

REF  1 

REF  18 
REF  7 


LAST  892 
LAST  895 
LAST  897 
LAST  896 


LAST  897 
LAST  897 
LAST  897 
LAST  897 


LAST  897 
LAST  897 
LAST  897 
LAST  897 


LAST  897 
LAST  897 
LAST  893 


LAST  097 
LAST  897 
LAST  897 


LAST  897 
LAST  897 


21  ,2616 
21,2617 
21,2620 
21,2621 
21,2622 

21 .2623 

21.2624 

21 .2625 
21  ,2626 
21 ,2627 

21.2630 

21.2631 

21.2632 

21.2633 

21.2634 

21.2635 
21  ,2636 
21,2637 
21,2640 
21  ,2641 
21,2642 
21  ,2643 

21.2644 

21.2645 
21  ,2646 
21,2647 
21,2650 
21  ,2651 

21.2652 

21.2653 

21 .2654 

21.2655 
21  ,2656 
21,2657 


3 4753  1 
54  065  0 
50  065  1 
11 '700  0 
1 2626  0 
1 2727  0 
1 2634  n 
1 2727  0 
50  065  1 

4 1700  0 
6 2005  0 
0 0006  1 
6 2642  C 
1 2727  0 
50  065  1 
3 1700  1 
6 2005  0 

0 0006  I 
6 2642  0 

1 2727  C 
50  065  1 
11 '676  0 
1 2650  1 
1 2661  0 
1 2655  1 
1 2661  0 
50  065  1 

3 1700  1 
C 0006  1 
6 2700  1 
1 2661  n 
50  065  1 

4 1700  0 
0 0006  1 


CAF 

VMCMTCR  TS 

INDEX 

CCS 

TCF 

TC  F 

TCF 

TCF 

INDEX 

CS 

AD 

EXTEND 

6ZMF 

TC  F 

INDEX 

CA 

AD 

EXTEND 

BZMF 

TCF 

CHKLASTY  INDEX 
CCS 
TCF 
TCF 
TC  F 
TCF 
INDEX 
CA 

EXTEND 

BZMF 

TCF 

INDEX 

CS 

EXTEND 


ONE 
ITFWP5 
I TEMPS 
LATVEL 
+ 4 

LVLIMI TS 
♦ 80 

LVLI MI TS 
ITEMP5 
LATVEL 
MAXVBITS 

CHKLASTY 

LVLIMITS 

ITEMP5 

LATVEL 

MAXVBITS 

♦ 2 

LVL  IMITS 
I TEMP5 
LA  TVMETP 
+ 4 

LASTCK 
♦ 7 

LASTCK 
I TEMPS 
LATVEL 

LA  STPOSY 
+ 5 

I TEMPS 
LATVEL 


LOOP  TWICEc 

FORWARD  AND  LATERAL  VELOCITY  LANDING 
ANALOG  DISPLAYS  MONITOR., 


+ 199e9g89  FTo/SECc 


GAP  : 

L 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0346 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

03  70 

0371 

0372 

0373 

0374 

03  75 

C376 

0377 

0378 

0379 

0380 

0361 

0382 
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LAMING  ANALOG  DISPLAYS 


REF  1 

REF  19  LAST 

REF  3 LAST 

REF  2 LAST 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF  2 
REF  4 
RFF  1 
REF  22 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF  26 
REF  5 
REF  100 
REF  4 


REF 

REF 

REF 

REF 

REF 

RFF 


27 


897 
89  3 
897 


LAST  898 
LAST  890 
LAST  897 


LAST 

LAST 


LAST 

LAST 


LAST 
LAST 
5 LAST 

23  LAST 
4 LAST 

99  LAST 
2 LAST 

24  LAST 
10  LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


698 

897 

898 

897 

898 
898 
812 

897 

898 
898 
898 


898 

898 

898 

898 

898 

898 
398 
898 
898 
898 
89  8 


LAST 

LAST 


29  LAST  898 


21  ,2660 
21,2661 
21,2662 

21.2663 

21. 2664 

21 .2665 
21  ,2666 
21,2667 

. 21  ,2670 
21  ,2671 
21,2672 
21  ,2673 

21.2674 

21.2675 

21.2676 

21.2677 
21  ,2700 

21.2701 

21.2702 
21  ,2703 

21.2704 

21.2705 

21.2706 

21.2707 

21.2710 

21.2711 

21.2712 

21 .2713 

21.2714 

21.2715 

21.2716 

21.2717 
21  ,2720 

21 .2721 

21.2722 
21  ,2723 

21.2724 

21.2725 

21.2726 

21.2727 
21  ,2730 

21.2731 

21.2732 
21  ,2733 

21. 2734 

21.2735 

21.2736 

21.2737 
21  ,2740 
21,2741 


6 2715  0 
5C  065  1 
11'702  1 
1 2673  0 
1 2666  1 
1 2711  0 
50  065  1 
3 1700  1 
0 0006  1 
6 2717  1 
1 2702  1 
50  065  1 

3 17CC  1 
0 0006  1 
6 2700  1 
1 2702  1 

4 2005  1 
1 3023  1 
50  065  1 
4 1676  0 
6 2C05  0 
50  065  1 
56  072  1 
3 4753  1 
1 3026  1 
50  065  1 
3 1700  1 
0 0006  1 
6 2717  1 
3 2005  0 
1 3023  1 
50  065  1 

3 1676  1 
6 2005  0 

4 0000  0 
50  065  1 
56  C72  1 
4 4753  0 
1 3026  1 
5G  065  1 
11*702  1 
1 2760  0 
1 2734  1 
1 2765  0 
50  065  I 
4 1676  0 

0 C006  1 
6 2741  1 

1 2774  0 
50  065  1 


6ZMF 

LASTCK  INDEX 
CCS 
TCF 
TCF 
TC  F 
INDEX 
CA 

EXTEND 

0ZMF 

TCF 

LASTPOSY  INDEX 
CA 

EXTEND 

fiZMF 

TCF 

r.s 

TCF 

POSVMAXY  INDEX 


LASTNEGY 

ITEMP5 

TPAKLA7V 

LASTPOSY 

+2 

LASTNEGY 

ITEKP5 

LATVEL 

NEGVMAXY 

POSVMAXY 

ITEMP5 

LATVEL 


CS 

AD 

INDEX 

XCh 

CAF 

TCF 

LASTNEGY  INDEX 
CA 


CA 

AC 

COM 

INDEX 

XCH 

CS 

TCF 

LVLIMITS  INDEX 
CCS 
TCF 
TCF 
TCF 
INDEX 


CS 
EXTEND 
BZMF 
TCF 
INDEX 


POSVMAXY 

MAXVBITS 

ZERCLSTY 

1TEMP5 

LATVMETR 

MAXVBITS 

ITEMPS 

RUPTREG3 

ONE 

ZEROLSTY 

ITEMP5 

LATVEL 

NEGVMAXY 

MAXVBITS 

ZERCLSTY 

I TEMPS 

LATVMETR 

MAXVBITS 

ITEMPS 

RUPTREG3 

ONE 

ZERCLSTY 
I TEMP5 
TRAKLATV 
LATVPCS 
+ 2 

LATVNEG 

ITEMP5 

LATVMETR 


USER'S  PAGE  NCo 


GAP : 

L 

0383 

038A 

03  85 

0386 

0387 

0388 

038<3 

0390 

0391 

0392 

03  93 

0394 

0395 

03  96 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

C410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 
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USER'S  PAGE  NCo 


E7  S3 


REF  11 

REF  1 
REF  6 
REF  30 
REF  7 

REF  2 
REF  31 
REF  12 

REF  32 
REF  8 
REF  5 
REF  33 
REF  13 

REF  3 

REF  34 
REF  14 

REF  4 
REF  35 
REF  9 
REF  6 
REF  36 
REF  15 


REF  5 
REF  8 
REF  37 
REF  10 

REF  38 
REF  16 


REF  6 

REF  39 
REF  17 
REF  4C 
REF  11 

REF  7 
REF  41 
REF  12 
REF  42 
REF  18 
REF  43 


LAST  898 


LAST  897 
LAST  998 
LAST  898 

LAST  899 
LAST  899 
LAST  899 

LAST  899 
LAST  899 
LAST  890 
LAST  899 
LAST  899 

LAST  899 

LAST  899 
LAST  899 

LAST  899 
LAST  899 
LAST  899 
LAST  899 
LAST  899 
LAST  899 


LAST  899 
LAST  898 
LAST  899 
LAST  899 


LAST  899 
LAST  899 

LAST  899 

LAST  899 
LAST  899 
LAST  899 
LAST  899 

LAST  899 
LAST  899 
LAST  899 
LAST  899 
LAST  899 
LAST  899 


21  ,2742 

21.2743 

21. 2744 
21  ,2745 

21.2746 

21.2747 

21.2750 

21.2751 
21  ,2752 

21.2753 

21.2754 
21  ,2755 

21.2756 

21.2757 

21.2760 

21.2761 
21  ,2762 

21 .2763 

21.2764 

21 .2765 

21.2766 

21.2767 

21.2770 

21.2771 
21  ,2772 

21.2773 

21.2774 
21  ,2775 

21.2776 

21.2777 

21.3000 

21.3001 

21 .3002 

21 .3003 

21.3004 
21  ,3005 

21.3006 

21.3007 

21.3010 

21.3011 
21  ,3012 
21  ,3013 
21,3014 
21  ,3015 

21.3016 

21.3017 

21.3020 

21.3021 
21  ,3022 
21,3023 


4 1700  0 
C 0006  1 
6 3017  I 
6 0066  1 
EC  065  1 
6 1676  1 
C 0006  J. 
6 3017  1 
50  065  1 
6 1700  1 
0 0006  1 

5 0065  1 
61'676  1 
1 3023  I 
50  065  1 
4 1700  0 

0 0006  I 

6 3017  1 

1 2771  0 
50  065  1 

3 1700  1 
0 0006  1 
6 3017  1 
50  065  1 

4 1676  0 
I 3023  1 
50  065  1 
3 1700  1 
C CQ06  1 
6 3017  1 

3 2005  0 
50  065  1 
6 1676  1 

4 OOOO  0 
50  065  1 
6 1700  1 
C 0006  1 
6 3017  1 
C 0006  1 

5 0065  I 
61'700  1 
50  065  1 
e 1676  1 
4 0000  0 
1 3023  1 
50  065  1 
4 1676  0 
50  065  1 

6 1700  1 
50  065  1 


CS 

EXTEND 

BZMF 

AD 

INDEX 

AO 

EXTEND 

BZMF 

INDEX 

AO 

EXTEND 

INDEX 

SU 

TCF 

LATVPCS  INDEX 
CS 

EXTEND 

fiZMF 

TCF 

LATVNEG  INDEX 
CA 

EXTEND 

BZMF 

INDEX 

CS 

TCF 

NEGLMLV  INDEX 
CA 

EXTEND 

BZMF 

CA 


INDEX 

AC 

CCM 

INDEX 

AO 

EXTEND 

BZMF 

EXTEND 

INDEX 

SU 

INDEX 

AO 

COM 

TCF 

LVMINLM  INDEX 
CS 

INDEX 

AD 

ZERCLSTY  INDEX 


LATVEL 

LVMI  NLM 
ITEMP6 
I TFMP5 
LATVMETP 

LVMI NLM 

ITEMP5 

LATVEL 

ITEMP5 

LATVMETR 

ZEROLSTY 

ITEMP5 

LATVEL 

LVMINLM 
+ 5 

ITEMP5 

LATVEL 

LVMINLM 
I TEMP5 
LATVMETR 
ZERCLSTY 
1 TFMP5 
LATVEL 

LVMINLM 
MAXVB ITS 
I TEMP5 
LATVMETR 

ITEMPF 

LATVEL 

LVMINLM 

I TEMPS 
LATVEL 
ITEMP5 
LATVMETR 

ZERCLSTY 

ITEMP5 

LATVMETR 

I TEMPS 

LATVEL 

ITEMPS 


GAP  : 

L 

0A-i3 

043A 

0^35 

C^36 

0A37 

0A38 

0A39 

OAAO 

OAAl 

0A42 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

0450 

0451 

0452 

0453 

0454 

^0455 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

10475 

0476 

0477 

:0478 
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LANCING  ANALOG  DISPLAYS 


USER'S  PAGE  NCo  IP  E7  S3 


REF  6 
REF  169 
REF  44 
KtF  5 
REF  45 
REF  7 
RFF  21 
REF  46 
REF  2 
REF  47 
REF  8 
REF  48 
RFF  13 
REF  49 
REF  1 


LAST  898 
LAST  893 
LAST  899 
LAST  898 
LAST  900 
LAST  900 
LAST  867 
LAST  900 
LAST  540 
LAST  900 
LAST  900 
LAST  900 
LAST  B99 
LAST  900 


21  ,3024 

21.3025 

21.3026 

21.3027 
21, 30  30 

21.3031 

21 .3032 

21.3033 
21  ,3034 
21  ,3035 
21,3036 
21  ,3037 

21. 3040 

21.3041 

21.3042 


56  072  1 
3 4755  1 
50  065  1 
55' 702  1 
5C  065  I 
3 C072  1 
6 4754  0 
5C  C65  1 
54  053  0 
5C  065  I 
3 0072  1 
50  065  1 
27'676  0 
10  065  0 
1 2617  1 


XCh  RUPTREG3 
CAF  ZERC 
INDEX  ITEMP5 
TS  TRAKLATV 

INDEX  ITEMP5 
CA  RUPTREG3 

40  NEGO  AVniDS  +0  DING  HARDWARE  MALFUNCTION 

INDEX  ITEMP5 

TS  CDUTCMD 

INDEX  ITEMP5 

CA  PUPTREG3 

INDEX  ITEMP5 

AOS  LATVMETR 

CCS  ITEMP5  FIRST  MONITOR  FORWARD  THEN  LATERAL  VELo 

TCF  VMONITCR 


REF  1 

REF  15  LAST 
REF  5 LAST 
REF  170  LAST 
REF  146  LAST 
REF  1 


21, 3C43 
21 ,3044 
892  21,3045 

895  21,3046 

900  21,3047 

683  21,3050 

21,3051 


3 5020  0 
0 0006  1 
05  014  1 

0 1714  1 
3 4755  1 
54  CCl  I 

1 2261  1 


CAF 

EXTEND 

WCR 

TC 

ZERCCATA  CAF 
TS 
TCF 


B1 TSET 

CHANJ4 

LAOOSAVE 

ZERO 

L 

ZDATA2 


DRIVE  THE  X-POINTER  DISPLAY-, 


GC  TO  ALTRGUT  +1  CR  TO  ALTOUT  +1 

ZERO  ALTSAVE  AND  ALTSAVE  +1  - 

NO  NEGATIVE  ALTITUDES  ALLflWEOo 


REF  1 

RFF  31  LAST  894 
REF  35  LAST  894 
REF  272  LAST  897 
KEF  43  LAST  895 
REF  32  LAST  900 


REF  54  LAST  895 
REF  1 

REF  36  LAST  900 
REF  37  LAST  900 
REF  4 LAST  893 
REF  30  LAST  893 
REF  31  LAST  900 
REF  65  LAST  894 


21, 3052 
21  ,3053 

21.3054 

21.3055 
21  ,3056 
21,3057 

21.3060 

21.3061 

21.3062 
21  ,3063 

21.3064 

21.3065 
21  ,3066 
21,3067 

21.3070 

21.3071 

21.3072 
21  ,3073 
21  ,3074 

21,3075 


4 0074  0 
7 4752  1 
C CC06  1 
I 3066  0 
3 4744  1 
7 1300  1 

in  000  0 

3 4752  0 

6 4744  1 

4 0000  0 
0 0006  1 

03  012  1 

4 30  75  1 

7 1300  1 
55 '300  1 
4 4736  0 
7 0075  1 
54  075  1 
1 5261  0 

00300  1 


01 SPRSET  CS 

MASK 

EXTEND 

BZF 

CAF 

MASK 

CCS 

CAF 

AD 

COM 

EXTEND 

WAND 

AEORTON  CS 

MASK 

TS 

CS 

MASK 

TS 

TCF 


F LAGWROn 
RIOFLBIT 

ABORTON 

BITS 

IM00BS33 

A 

BIT2 
BI  T8 


CHAN12  — 
BITS8/7 
I MGDES33 
IMCDES33 
DI CFLB  IT 
FLAGWROl 
FLAGWRDl 
TASKOVER 


eiTS8/7  OCT  00300 


ARE  WE  IN  DESCENT  TRAJECTORY? 


NOo 

YES, 

CHECK  IF  INERTIAL  DATA  JUST  OISPLAYEDo 

YES«  DISABLE  RR  ERROR  COUNTER 
NOe  REMOVE  DISPLAY  INERTIAL  DATA 


RESET  INERTIAL  DATA,  INTERLEAVE  FLAGSr. 


RESET  DIDFLAGo 


INERTIAL  DATA  AND  INTERLEAVF  FLAGSc 


REF  2 LAST  540  5020 


PRIC6 
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o FLY 


L 


FINOCOUVi  - GUIDAP  INTERFACE 


USER'S  PAGE  N0«  1 


eo  S3 


ROOOl  PROGRAM  NAME:  FINOCDUW 


R0002  NCO  NUMBER 


1 


68  07  15 


R0003  MOO  AUTHOR 


KLUMPP 


R0005 

R0006 

R0007 

R0008 

R0009 

ROOlO 

ROOll 

R0012 

R0013 


R0004  OBJECTS  CF  MOD 


lo 

2o 


DIRECTION  DATA  IN  ALL  MODES®  THIS  IS  DONE  BY 
FETCHING  FOR  THE  THRUST  DIRECTION  FILTER  THE 
CCUC'S  IN  PNGCS-AUTO,  THE  CDU'S  IN  ALL  OTHER 
MODES® 

TO  SUBSTITUTE  A STOPRATE  FOR  THE  NORMAL 
AUTOPILOT  COMMANDS  WHENEVER 

1)  NOT  IN  PNGCS-AUTO,  OR 

2)  ENGINE  IS  CFFo 


R0014  FUNCTIONAL  DESCRIPTICN: 

R0015  FINOCDUW  PROVIDES  THE  INTERFACES  BETWEEN  THE  VARIOUS  POWERED  FLITE  GUIDANCE  PROGRAMS 

R0017  AND  THE  DIGITAL  AUTOPILOT®  THE  INPUTS  TO  FINOCDUW  ARE  THE  THRUST  COMMANC  VECTOR 

R0019  ANX  THE  WINDOW  COMMAND  VECTOR,  AND  THE  OUTPUTS  ARE  THE  GlMBAL  ANGLE 

R0020  INCREMENTS,  THE  CCMMANOEC  ATTITUDE  ANGLE  RATES,  AND  THE  COMMANDED 

R0(j21  ATTITUDE  LAG  ANGLES  (WHICH  ACCCL'NT  FCR  THE  ANGLES  BY  WHICH  THE  BODY  WILL 

R0022  LAG  BEHIND  A RAMP  COMMAND  IN  ATTITUDE  ANGLE  DUE  TO  THE  FINITE  ANGULAR 

R0023  ACCELERATIONS  AVAILABLE)® 


R0024  FINDCDUW  ALTNES  THE  ESTIMATED  THRUST  VECTOR  FRCM  THE  THRUST  DIRECTION 

R0025  FILTER  WITH  THE  THRUST  COMMANC  VECTOR,  AND,  'WHEN  XOVINHTB  SET, 

R0026  ALINES  THE  +Z  HALF  OF  THE  LM  ZX  PLANE  WITH  THE  WINDOW  COMMAND  VECTOR, 
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53 


PAGE  903 


FINOCDUk^  - GUICAP  INTERFACE 


17:53  DECo  19,1969  FLY 
USER*  S PAGE  NC„ 


PCC27  SPECIFICATIONS: 


R0028  INITIALIZATION:  A SINGLE  INTERPRETIVE  CALL  TO  INITCOUW  IS  RECllREO 
R0029  BEFCRE  EACI-  GUICEC  MANEUVER  USING  FINOCOUW* 


R0030  call:  INTERPRETIVE  CALL  TC  FINCCCUW  WITH  Ti-E  THRUST  CCMMANC 

RO031  VECTOR  IN  MPACo  INTERPRETIVE  CALL  TO  FINDCDUW  -2  WITH 


R0032 


THE  THRUST  CCFMANO  VECTOR  IN  UNFC/2  AND  NOT  IN  MPACo 


R0033  RETURNS: 
R0034 


NORMAL  INTERPRETIVE  IN  ALL  CASES 
1,  NORMALLY  ALL  AUTOPILOT  CMOS  ARE  ISSUEDo 


R0035 

R0036 


IF  NCT  PNGCS  AUTC,  DC  STCPRATE  ANC  RETURN 
WlTHCUT  ISSUING  AUTOPILOT  CMDSc 


R0037 

R003e 


IF  ENGINE  OFF,  CC  STOPRATE  AND  RETURN  WITHOUT 
I SSUING  AUTOPILOT  CMOSo 


R0039 

R0040 

R0042 

R0043 

R0044 

R0045 


ALARMS: 


00401  IF  INPUTS  DETERMINE  AN  ATTITUDE  IN  GIM6AL  LOCKe 

FINDCDUW  DRIVES  CCUXC  AND  CDUYD  TC  THE  ROD  VALUES, 
BUT  DRIVES  CDUZD  ONLY  TO  THE  GIMBAL  LOCK  CONE* 

00402  IF  UNFC/2  CR  UNWC/2  PRODUCE  OVERFLOW  WHEN 

UNITIZED  USING  NORMUNIT;,  FINDCDUW  ISSUES 
STOPRATE  AS  ONLY  INPUT  TO  AUTOPILOT, 


R00A6 

R0047 

R00471 

R0n48 

R0049 

R0050 

R0052 

R00  53 

R0054 

R0055 

R0056 

R0057 

R0058 

R0059 

R0060 


INPUTS: 


OUTPUTS: 


DEBRIS: 


UNFC/2  THRUST  CCMMANC  VECTOR,  NEED  NOT  BE  SEMI-UNIT, 

UNWC/2  WINDOW  COMMAND  VECTOR,  NEED  NOT  BE  SEMI-UNIT, 

06ABIAS  PCSSIELE  BIAS  FOR  OUTER  GIMBAL  ANGLE  (ZEROFO  IN  IMITCDUW), 
XOVINHIB  FLAG  DENOTING  X AXIS  CVERRIDE  INHIBITED, 

CSMDOCKO  FLAG  DENOTING  CSM  DOCKED, 

STEERSW  FLAG  DENCTING  INSUFF  THRUST  FOR  THRUST  DIR  FLTR, 


UNI  TS  CF  PI, 


OELCOUX.Y.Z 
OMeGAPO,  + l , + 2 
0ELPER0R,*l,+2 
CPHI,+l, +2  FCP  N0UN22 


FINDCDUW  DESTROYS  SINCOUX,Y,Z  AND  CGSCOUX,Y,Z  BY 
WRITING  INTC  THESE  LQCATICNS  THE  SINES  AND  COSINES 
OF  THE  CDUD*S  IN  PNGCS-AUTC,  CF  THE  CDU'S  OTHERWISE, 
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P0061  IMTIALIZAIICN  FOR  FI^DCOU^^ 


0062  30t3071 

0063  PEF  1 30r2000 


BANK  30 
SETLOC  FCDUW 


0064 


30,3071 


BANK 


0065  REF 


LAST  137  E6, 16^.5 


EBANK=  ECDUW 


0066  REF 


COUNT*  $£/FCOUW 


0067 

00671  REF  2 

00672 

0068  REF  12 

0060  REF  5 

0070  REF  9 

0071 


LAST  808 

LAST  890 
LAST  137 
LAST  845 


30.3071 

30.3072 

30.3073 
30, 307A 

30.3075 

30.3076 

30.3077 


77331  0 
C3300  1 
COOOO  1 
C6522  1 
03267  1 
C3261  1 
77616  0 


INITCDUVi  SSP 


STORE 

STORE 

RVC 


VLTAC 

OGABIAS 

0 

UNITX 

UNFV/2 

UNWC/2 


R0072  FINDCOUk  PRELIMINARIES 


0073 

0074 

0075 

0076 

0077 

0078 

0079 


REF 

PEF 


REF 


30,3100 

19  LAST  845  30,3101 

30,3102 

5 LAST  843  30,3103 

30.3104 

30.3105 

2 LAST  137  30,3106 


77775  1 
03253  0 
40200  1 
61102  0 
00023  0 
77420  I 
03246  1 


VLOAD 

FINCCOUW  BCV 


STO 


UNFC/2 
SETPD 
FI MDCOUR 
22 

EXIT 

OCOURUSR 


R0080  MCRE  HALSKEEPING 


0081 

0082 

0083 


REF  1 

REF  50  LAST  896 
REF  2 LAST  137 


30,3107  3 3752 

30.3110  56  003 

30.3111  55’645 


1 XCH 

0 TS 


ECDUWL 

EBANK 

ECCUWUSR 


0084 

0085 

0086 

0087 

0088 


REF  29  LAST  858 
REF  6 LAST  748 
REF  273  LAST  900 
REF  101  LAST  898 
REF  2 LAST  137 


30.3112 

30.3113 

30.3114 

30.3115 

30.3116 


3 0111  0 
7 4737  1 
1 C CCC  0 
3 4753  1 
55*647  1 


CA  OAPBGOLS 

MASK  CSMDOCKO 

CCS  A 

CA  ONE 

TS  NOXCOUW 


0089  REF  1 

0090  REF  2 LAST  137 


30, 31 17  3 4743  0 

30,3120  55*651  0 


CA  XCVINHI6 

TS  FLPAUTNO 


0091  REF  30  LAST  904 

0092  REF  2 LAST  137 


30.3121  7 0111  1 

30.3122  55*650  1 


MASK  DAPBOOLS 
TS  FLAGOOOR 


17:53  DEC«  19,1969  FLY  rl53  PAGE  904 
USER’S  PAGE  NCo  ? EO  S3 


FINDCCUW  -2:  ENTRY  WHEN  UNFC/2  PRE-STORD 
INPLT  VECTORS  NEED  NCT  BE  SEMI-UNIT 
FINCCDUW:  ENTRY  WHEN  bNFC/2  IN  MPAC 
INTERPRETER  NOW  INITIALIZED 
LOGS  0 THRU  21  FOR  DTRECTICN  COSINE  MAT 

SAVE  RETURN  ADDRESS 


SET  EBANK 

SAVE  USER'S  EBANK 


CSMDOCKO  MUST  NOT  BF  BIT15 
INDEX  IF  CSM  OCCKEC 


XOVINHie  MUST  NOT  BE  6IT15 

SET  TO  POS-NON-ZERC  FLAG  PNGCS  AUTO  NOT 


FLAGOCOW  = ANY  PN7  NUMBER  IF  XOV  INHIBTD 


GAP: 

L 

P0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

on  5 

0116 

0117 


ASSEMBLE  REVISION  131  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-091 
FINDCOUU  - GUICAP  INTERFACE 
FETCH  BASIC  DATA 


REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


30,3123  C 0004  C 


687 
867 
865 
067 
887 
86  7 


30.3124 

30. 3125 

30.3126 

30.3127 

30.3130 

30.3131 


3 0032  0 
5A  771  1 
3 0033  1 
5A  765  1 
3 0039  0 
59  767  0 


CDUX 

CDUSPOTX 

CDUY 

CDUSPCTY 

COUZ 

CDUSPCTZ 


17:53  DECa  19,1969  FLY  -153  PAGE  905 

USFR  'S  PAGF  NCo  4 E6  S3 


RELINT  AT  PAUTNO  ( TC  INTPR6T» 


REF  32  LAST  092 


REF  7 
REF  274 
REF  1 


LAST 

LAST 


REF  58  LAST  780 


REF  7 
REF  275 
REF  2 


REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 


815 
905 
90  5 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


30.3132 

30.3133 
30,3139 

30.3135 

30.3136 

30.3137 
30, 3190 
30,3  141 

30.3192 

30.3193 


2 9792  1 
0 0006  1 

02  030  0 
1C  000  0 

1 3153  1 

3 9736  1 
0 0006  1 

02  031  1 
K 000  0 
1 3153  1 


CA 


BI  Tin 


LAST  909  30,3199  55*651  0 


529 

905 

529 

905 

523 

905 


30.3145 

30.3146 
30,3197 

30.3150 

30.3151 

30.3152 


2 1634  1 
54  771  1 
2 1635  0 
59  765  1 
2 1636  0 
59  767  C 


EXTEND 
RAND  CHAN3n 

CCS  A 

TCF  PAUTNO 

CA  BIT14 

EXTEND 

RAND  CHAN31 

CCS  A 

TCF  PAUTNO 

TS  FLPAUTNC 

CA  COUXO 

TS  CDUSPOTX 

CA  COUYO 

TS  CDUSPOTY 

CA  CCUZC 

TS  CDUSPCTZ 


PNGCS  CONTROL  BIT 

NOT  PNGCS  (BITS  INVERTED! 

AUTO  MODE  BIT 

NOT  AUTO  (BITS  INVERTED! 

RESET  FLAG  PNGCS  AUTO  NCT 

PNGCS  AUTO:  FETCH  C DU X C,  CDUY 0,  CDU ZD 


GAP: 

L 

P0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

R0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-0Q1 


17:53  DECo  19,1969 


FLY 


153  PAGE  906 


FINDCOLR  - GUICAP  INTERFACE 


USER'S  PAGE  NOo 


E6  S3 


FETCI-  INPUTS 


REF  159  LAST  889 

REF  9 LAST  807 
REF  I 

REF  10  LAST  904 

REF  10  LAST  906 
REF  4 LAST  879 
REF  1 

REF  8 LAST  875 
REF  1 
REF  1 

REF  6 LAST  8O0 


30.3153 

30.3154 

30.3155 
30  ,3156 
30,3157 

30.3160 

30.3161 

30.3162 

30.3163 

30.3164 

30.3165 

30.3166 

30.3167 

30.3170 

30.3171 


C 6042 
77634 
21727 
24001 
03261 
47034 
21727 
47617 
24015 
0C325 
53404 
61741 
45000 
61204 
47673 


PAUTNO 


1 

0 

0 

0 

1 

0 

0 

1 

0 

0 

1 

1 

0 

0 

n 


TC 

RT6 

STOVL 

RTB 

STOVL 

80VB 

BOV 


INTPRET 

NCRMLMT 

UNX/2 

UNWC/2 

NORMUN  IT 
OUICTRIG 
UNZ/2 
OELV 
UNI  T 

NOATTCNT 

CALL 

AFTRFLTR 

*SMNB* 


ENTERING  THRUST  CFO  STILL  IN  MPAC 


SFMI-UNIT  THRUST  CFD  AS  INITIAL  UNX/2 


ALWAYS  RQD  TO  OBTAIN  TRIGS  OF  CDUO'S 
SEMI-UNIT  WINDOW  CFD  AS  INITIAL  UNZ/2 


AT  LEAST  CNE  ENTERING  CFO  VCT  ZERO 

IF  UNIT  OELV  CVEPFLCWS,  SKIP  FILTER 
YIELDS  UNITIDFLVI  IN  VEH  COORDS  FOR  FLTR 


THRUST  DIRECTICN  FILTER 


30,3172  77776 


EX  IT 


REF  1 
REF  359 
REF  1 
REF  2 


•LAST  882 
LAST  906 


30,3173 
30,3  174 

30.3175 

30.3176 


3 1670  1 
22  157  1 
0 3474  0 
55‘670  0 


CA  UNFVY/2  FOR  RESTARTS,  UNFV/2  ALWAYS  INTACT,  MPAC 

LXCH  MPAC  ♦■3  RENEWED  AFTER  RETURN  FROM  CALLER, 

TC  FLTRSUB  TWO  FILTER  UPDATES  MAY  BE  DONE,-- 

TS  UNFVY/2  UNFV/2  NEED  NOT  BE  EXACTLY  SEMI-UNIT* 


REF  1 
REF  360 
REF  2 
REF  2 


LAST 

LAST 

LAST 


30,3177  3 1672  0 
906  30,3200  22  161  1 
906  30,32C1  C 3474  0 
906  30,3202  55'672  1 


UNFVZ/2 
MPAC  +5 

FLTRSUB 
UNFV2/2 


REF  160  LAST  906 


30,3203  C 6C42 


TC  INTPRET  COMPLETES  FILTER 


GAP: 

L 

P01A5 

0146 

0147 

0148 

0149 

C150 

0151 

015? 

0153 

0154 

0155 

0156 

0157 

0158 

R0X59 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0100 

0181 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
FINDCCUW  - GUICAP  INTERFACE 
FIND  A SUITABLE  WINDC^^  POINTING  VECTOR 


REF 

REF 


LAST  904 


30,3204 

30.3206 
30, 32Ct 

30.3207 

30.3210 

30.3211 


46135  1 
03251  1 
£1212  1 
45175  0 
00C15  0 
(1514  0 


AFTRFLTR  SLQAD 

VLOAD 


BHIZ 

FLAGOODW 

FETCHZNB 

CALL 

UNZ/2 

UNInCTEST 


17:53  OeCo  19,1969  FLY  153  PAGE  907 

USER'  S PAGE  NCe  6 E6  S3 


IF  XGV  NCT  INHIBITEC,  GO  FETCH  ZNB 


REF  1 

REF  3 LAST  9C7 
REF  2 LAST  907 


30.3212 

30.3213 

30.3214 

30.3215 


77775  1 
C2l£2  0 
34015  1 
£1514  0 


FETCHZNB  VLOAD 

2NBP1P 
STCALL  UNZ/2 

UNWCTEST 


30, 3216  57575  1 

REF  11  LAST  877  30,3217  02146  0 

REF  4 LAST  907  30,3220  COCl^  0 


VLOAD  VCCMP  Z AND  -X  CAN'T  BOTH  PARALLEL  UNFC/2 

XNBPI P 
STORE  UNZ/2 


CCMPUTE  THE  REQUIRED  DIRECTION  COSINE  MATRIX 


REF  5 LAST 

REF  2 LAST 

REF  3 LAST 

REF  6 LAST 

REF  3 LAST 

REF  3 LAST 

REF  4 LAST 

REF  5 LAST 

REF  7 LAST 

REF  1 

REF  6 LAST 

REF  8 LAST 


30,3221 
907  30,3222 

906  30,3223 

30.3224 

20.3225 

907  30,3226 

907  30,3227 

30,3230 
906  30,3231 

30,3232 

906  30,3233 
30,3234 

907  30,3235 
30,3236 

907  30,3237 

30, 3240 
907  30,3241 

30.3242 

30.3243 
907  30,3244 

30,3245 
9C7  10,3246 


OOCOl  0 
41456  0 
76435  1 
00001  0 
00015  0 
63361  0 
03273  1 
51361  1 
03271  0 
53372  1 
COCCI  0 
77656  1 
00001  0 
76435  1 
00015  0 
O0CO7  0 
47276  1 
00001  0 
ifm  0 
00015  0 


CCMCL 


VLOAD  VXV 

UNZ/? 

UNX/2 

UNIT  PUSH 
VXV  VSLl 
UNX/2 
STORE  UNZ/2 
VXSC  PDVL 

UNFVZ/2 
VXSC  6VSU 

UNFVY/2 
VSLl  VAC 

UNX/2 

UNIT 

STORE  UNX/2 
VXV  VSLl 
UNZ/2 
STORE  UNY/2 
VCOMP  VXV 

UNX/2 

VSLl 

STORE  UNZ/2 


UNY/2  FIRST  ITERATION 


-UNZ/2  FIRST  ITERATION 
EXCHANGE  -UNFVZ/2  UNZ/2  FOR  UNY/2 
MUST  BE  SMALL 

YIELDS  -UNFVY/2  UNY/2-UNFVZ/2  UNZ/2 
MUST  BE  SMALL 


TOTALLY  ELIMINATES  THRUST  POINTING  ERROR 
UNX/2 

-UNZ/2  WAS  STORED  HERE  REMEMBER 
UNY/2 


UNZ  /2 


GAP:  ASSEMBLE  KEVISION  131  CF  AGC  PPCCRA^'  LUMINARY  BY  NASA  2021112-091 


17:5?  OECo  19,1960  FL' 


153  PAGE  P08 


L FINOCCUW  - GUfCAP  INTERFACE 


P0182  COMPUTE  THE  RECUIBEC  GIMBAL  ANGLES 


0183 

0184  REF 

0185 


30,32^7 

30,3250 

30,325) 


77624 

61524 

77776 


i 


R01851  BUS  OUTER  GIMBAL  ANGLE 

01852  REF  3 LAST  904  30,3252  3 1677  0 

01853  REF  361  LAST  906  30,3253  26  154  0 


USER'S  PAGE  NHo  7 E6  S3 


NB2C0USP  YIELDS  THE  ROD  GIMBAL  ANGLES,  2'S,  PI 

EXIT 


CA  OGABIAS 

AOS  MPAC 


R0186 


LIMIT  Tl-E  MIDDLE  GIMBAL  ANGLE  C COMPUTE  THE  UNLIMITED  GIMBAL  ANGLE  CHGS 


0187  REF  362  LAST  908 

0188  REF  147  LAST  900 

0189  REF  1 

0190  REF  1 

0191  REF  363  LAST  908 

01  92 

0193  REF  364  LAST  908 

0194 

0195 

0196  REF  1 


30.3254  3 0156  0 

30.3255  54  001  1 

30.3256  2 3764  1 

30.3257  C 3720  I 

30.3260  56  156  0 

30.3261  0 0006  1 

30.3262  20  156  1 

30.3263  C OC06  1 

30.3264  1 3266  1 

30.3265  1 3747  1 


CA  MPAC  +2 

TS  L 

CA  CDUZDLIM 

TC  LIMITSUfl 

XCH  MPAC  +2 

EXTEND 

MSU  MPAC  +2 

EXTEND 

6ZF  +2 

TCF  ALARMMGA 


LIMIT  THE  MGA 

CAN'T  LXCH:  NEED  UNLIMITED  MGA  FOR  ALARM 

YIFLOS  LIMITED  MGA,  1 BIT  FRROH  POSSIBLE 
BECAUSE  USING  2*S  CQMPo  WHO  CARES? 

THIS  BETTER  YI ELD  ZERO 


0197 


30,3266  0 0C04  0 MGAR6T  INHINT 


RELINT  AT  TC  INTPRET  AFTER  TCOCDUW 


C198 

0199  REF  61  LAST  889 

0200  REF  4 LAST  98 


30,3267  22  007  0 ZL 

30.3270  3 4752  0 CA 

30.3271  54  142  1 OELGMBLP  TS 


TWC 

TEM2 


0201  REF  148  LAST  908 

0202 

0203 

0204  REF  5 LAST  418 

0205 

0206 

0207  REF  171  LAST  900 

0208  REF  4 LAST  907 


30.3272  3 0001  0 

30.3273  C 0CC6  1 

30.3274  7 0000  0 

30.3275  6 4350  0 

30.3276  C 0006  1 

30.3277  6 3302  0 

30.3300  3 4755  1 

30.3301  55'650  1 


CA  L 

EXTEND 

SQUARE 

AD  HI5 

EXTEND 

6ZMF  +3 

CA  ZERO 

TS  FLAGOCOW 


TO  PREVENT  FALSE  STARTS  ABOUT  X,  ZERO 
FLAGOOCW  IF  06LGMBZ  OR  Y TOO  BIGc 

WITHIN  1 BIT  OF  -(45  DEG  SQUARED! 


0209  REF  5 LAST 

0210  REF  365  LAST 

0211  REF  6 LAST 

0212  REF  10  LAST 

0213 

0214  REF  7 LAST 

0215  REF  14  LAST 

0216 

C217  REF  e LAST 

0218  REF  2 LAST 

0219  REF  149  LAST 


908  30,3302  50  142 

908  30, 3303  3 C154 

908  30,3304  50  142 

523  30,3305  54  321 

30,3306  C 0006 
908  30,3307  5 0142 

905  30,3310  21'634 

30,3311  4 0000 

908  30,3312  5C  142 

1?7  30,3313  55'674 

908  30,3314  54  001 


n 

i 

0 

0 

1 

0 

0 

0 

0 

1 

1 


INDEX  TEM2 
CA  MPAC 

INDEX  TEM2 
TS  CPHI 

EXTEND 
INDEX  TEM2 
MSU  CDUXD 
COM 

INDEX  TEM? 

TS  -DELGM8 
TS  L 


OUTPUTS  TO  N0UN22 


NO  MATTER  THAT  THESE  SLIGHTLY  DIFFERENT 
FROM  WHEN  WE  INITIALLY  FETCHED  THEM 

-UNLIMITED  GIMBAL  ANGLE  CHGS,  I'S,  PI 
FOR  PRECEDING  TFST  CN  NEXT  LOOP  PASS 


GAP:  ASSEMBLE  REVISION  131  CF  A6C  PRCCRAM  LUMINARY  BY  NASA  2021112-C91 


17:53  DECo  19,196<5  FLY 


.153  PAGE  909 


L FINOCnuu  - GUIOAP  INTERFACE  * USER'S  PAGE  NOo  8 E6  S3 

0220  REF  9 LAST  908  30|3315  1C  1A2  1 CCS  TEM2 

0221  REF  1 30,3316  1 3271  1 TC F DELGMBLP 


gap:  assemble  REVISION  131  OF  AGC  PftCGRAM  LUMINARY  BY  NASA  202in2-0Pl 


17:53  DECo  19,1969  FLY 


L FINDCCUh  - GUICAP  INTERFACE 


LSER*  S PAGE  NCc 


PC222  BRANCHES  TO  NOATTCNT 


0223  REF  A LAST  905 
022A  REF  2 LAST  906 


30,3317  11'651  0 

30  ,3320  1 3743  0 


CCS  FLPALTNC 

TCF  NOATTCNT  *2  NOT  PNGCS  AUTO 


0225 

0226 

0227 

0228 


REF  28  LAST  887 
REF  6 LAST  825 

REF  3 LAST  910 


30.3221  2 ClCl  1 

30.3222  7 47A5  1 
30 ,3323  C 0006  1 
30,332A  I 3743  0 


CA  FLAGViRCS 
MASK  ENGONBIT 
EXTEND 

BZF  NOATTCNT  +2  ENGINE  NOT  ON 


GAP : 

L 

P0229 

RC230 

R0232 

R0234 

R0236 

R0238 

R0239 

R0240 

R02^1 

R02^2 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

C250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

02  65 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

02  73 

0274 

0275 

0276 

A0277 


ASStf'BLE  REVISION  131  CF  AGC  PRCCRAI^  LUMINARY  BY  NASA  2021112-C91 
FINCCOUt^  - GUICAP  INTERFACE 
LIMIT  TF6  ATTITUCE  ANGLE  CHANGES 


17:53  DEC*  19»1969  FLY 
USER'S  PAGE  NCc 


cl53  PAGE  911 
1C  E6  S3 


THIS  SECTION  LIMITS  THE  ATTITUCE  ANGLE  CHANGES  ABOUT  A SET  CF  ORTHOGONAL  VEHICLE  AXES  X , YPR I ME , Z PR  I ME - 
THESE  AXES  COINCIDE  WITH  THE  COMMANDED  VEHICLE  AXES  IF  AND  ONLY  IF  CDUXO  IS  ZERO*  THE  PRIME  SYSTEM  IS 
THE  CCMMANOEO  VEHICLE  SYSTEM  RCTATEC  ABOUT  THE  X AXIS  TO  BRING  THE  Z AXIS  INTO  ALINEMENT  WITH  THE  MIDDLE  GIMBAL 
AXIS*  ATTITUDE  ANGLE  CHANGES  IN  THE  PRIME  SYSTEM  ARE  RELATED  TO  SMALL  GIMBAL  ANGLE  CHANGES  BY: 


4 -OELATTX  * 

# -DELATTYPRIME  * 

♦ -OELATTZPRIME  * 


# 1 SIN(CDUZD)  0 * 

* 

* 0 CCSICOUZOI  0 * 

* * 

Xt  0 0 1 * 


-OELGMBX  x« 
“DELGMBY  # 
-DELGMBZ  ♦ 


REF  3 LAST  908 

REF  3 LAST  904 

REF  1 

REF  2 LAST  908 

REF  4 LAST  911 


30.3325  22'676  1 

30.3326  51'647  0 

20.3327  3 3760  0 

3U,3330  0 372C  1 

30,3331  55*676  0 


LXCH  -OELGMB  +2  SAME  AS  -OELATTZPRIME  UNLIMITED 

INDEX  NOXCDUW 

CA  DAZMAX 

TC  LIMITSL8 

TS  -OELGMB  +2  -OFLGMBZ 


REF  5 

REF  3 
REF  150 
REF  4 
REF  1 
REF  3 

REF  4 
REF  6 


LAST  911 

LAST  482 
LAST  908 
LAST  911 

LAST  911 

LAST  911 
LAST  911 


30,3232 

30.3333 

30.3334 

30.3335 

30.3336 

30.3337 

30.3340 

30.3341 

20. 3342 

30 . 3343 


3 1675  1 
0 0006  1 
7 0745  0 
54  QCl  1 
51*647  0 
3 3762  1 
C 2720  1 
0 0006  1 
I C 745  C 
57*675  1 


CA  -OELGMB  +3 

EXTEND 

MP  COSCCUZ  YIELDS  -DEL  ATT YPR I ME /2  UNLIMITED 

TS  L 

INDEX  NDXCDUW 

CA  DAY/2MAX 

TC  LIMITS16 

EXTEND 

DV  COSCDUZ 

XCH  -OELGMB  +1  -DELGMBY,  FETCHING  UNLIMITED  VALUE 


REF  3 


REF  7 
REF  151 
REF  5 
REF  1 
REF  4 
REF  8 
REF  5 
REF  9 
REF  10 
REF  11 

REF  4 

REF  12 


LAST  482 


LAST  911 
LAST  911 
LAST  911 

LAST  9)1 
LAST  911 
LAST  908 
LAST  911 
LAST  911 
LAST  911 

LAST  911 

LAST  911 


30.3344 

30.3345 

30.3346 

30.3347 
30,3250 

30.3351 

30. 3352 

30.3353 

30.3354 

30. 3355 
30  ,3356 
30,3357 

30 .3360 

30.3361 

20.3362 

30.3363 

30.3364 

30.3365 
30,'^366 


C 0006  1 
7 0737  0 
20  001  1 
4 0000  0 
C 0006  1 
21*674  1 
54  CCl  1 
51*647  0 

3 3760  0 
C 2720  1 
55*674  1 
11*650  1 

4 1674  1 
55*674  1 
4 1675  0 
C 0006  1 
7 0737  0 
2C  001  1 
27*674  1 


EXTEND 

MP  SINCDUZ 

DOOUBL 

CCM 

EXTEND 

MSU  -DELGMB 

TS  L 

INDEX  NOXCDUW 

CA  DAXMAX 

TC  LIMITSUe 

TS  -OELGMB 

CCS  FLAGCCCW 

CS  -DELGMB 

TS  -OELGMB 

CS  -OELGMB  +1 

EXTEND 

MP  SINCCUZ 

ODOUBL 

ADS  -DELGMB 


YIELDS  +OELATTX  UNLIMITD,  MAG  < 180  OEG, 
BASED  ON  UNLIMITED  PFLGMBYo 
ONE  BIT  ERROR  IF  OPERANDS  IN  MSU 
OF  MIXED  SIGNS*  WHC  CARES? 


SAVE  LIMITED  +OeLATTX 

FETCH  IT  BACK  CHGING  SIGN  IF  WINDOW  GOOD 
OTHERWISE  USE  ZERO  FOR  -OELATTX 


YIELDS  -CNTPI6  TO  -CELATTX  FROM  -DELGMBY 
-DFLGMBX*  NO  OVERFLOW  SINCF  LIMITED  TO 
200EG(1+SIN(70CEGI /COS(70DEG) I < 180DEG 


gap: 

L 

P0278 

R0279 

R0280 

R0281 

R0282 

R0283 

R0284 

R02  86 

R028e 

0290 

0291 

0292 

0293 

C294 

0295 

0296 

0297 

0298 

02  99 

03on 

0301 

0302 

0303 

030^ 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 
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FINCCCUW  - GUICAP  INTERFACE 
COMPETE  COMMANOeO  ATTITUDE  RATES 

* OMEGAPO  » # -2  -<i  SINCDLZ  +0  * * -DELGMBX  * 

* OMEGAQO  * = * *0  -a  CCSCOLZ  COSCCUX  -4  SINCDUX  * * -DELGMBY  * 

* CREGAPD  * # +0  +3  CCSCDUZ  SINCCUX  -4  COSCDUX  * * -DELGMBZ  * 


USER'S  PAGE  NCo 


ATTITUDE  ANGLE  RATES  IN  UNITS  CF  PI/4  RAD/SEC  = K TRIG  FCNS  IN  UMTS  OF  2 X GIMBAL  ANGLE  RATES  IN  UNITS  OF 
PI/2  RAC/S6C*  THE  CCNSTANTS  ARE  BASED  ON  OELGMB  BEING  THE  GIMBAL  ANGLE  CHANGES  IN  UNITS  OF  PI  RADIANS, 

AND  2 SECONDS  BEING  THE  CCFPUTATICN  PERICC  (THE  PERIOD  BETWEEN  SUCCESSIVE  PASSES  THRU  FINDCDUWIo 


REF 

REF 

REF 


LAST 

LAST 

LAST 


911 
371 

912 


LAST  912 


30,3367 

30.3370 

30.3371 

30.3372 

30.3373 

30.3374 

30.3375 


4 1674  1 
55*642  1 
4 1675  0 
C 0QQ6  1 
7 0737  0 
2C  C03  1 
27*642  1 


30,3376  27*  642  1 


-OELGMB 

OMEGAPO 

-CELGMB 


OOCUBL 

ADS 

AOS 


OMEGA PD 
DMEGAPD 


REF  15 
REF  4 


REF  5 
REF  2 
REF  16 

REF  3 
REF  3 
REF  4 
REF  5 


LAST  912 
LAST  482 


LAST  911 
LAST  371 
LAST  912 

LAST  482 
LAST  912 
LAST  912 
LAST  912 


30,3377 

30.3400 

30.3401 

30.3402 

30.3403 

30.3404 

30.3405 

30.3406 
30,34C7 

30.3410 

30.3411 

30.3412 

30.3413 


4 1675  0 
0 0006  1 
7 C747  1 
20  001  1 
C 0006  1 
7 0745  0 
55*643  0 
4 1676  0 
f 0006  1 
7 0741  1 
27*643  0 
27*643  0 
27 '643  0 


CS  -DELGMfl 

EXTEND 

MP  COSCDUX 

ODCUBL 

EXTEND 

MP  COSCDUZ 

TS  OMEGAQO 

CS  -OFLGMB 

EXTEND 

MP  SINCDUX 

ADS  OMEGAOC 

ADS  OMEGAGD 

ACS  OMEGAOD 


REF 


RFF 


REF 

REF 

RFF 

RfcF 

REF 

REF 

REF 


17 


4 


LAST  912 
LAST  912 


LAST  912 
LAST  371 
LAST  912 

LAST  912 
LAST  912 
LAST  912 
LAST  912 


30 .3415 

30.3416 

30.3417 

30.3420 

30.3421 

30.3422 
30  ,3423 

30.3424 

30.3425 

30.3426 

30.3427 
30,3430 


0 0006 
7 0741 
2C  001 
C 0006 
7 0745 
f5'e44 
4 1676 
C 0006 
7 0747 
27*644 
27*644 
27*644 


1 

1 

1 

1 

1 

0 

1 

0 

1 

1 

I 

1 

1 


ADS 

AOS 

AOS 


-DELGMB 
S INCOUX 


COSCDUZ 

OMECARO 

-CELGMB 

COSCDUX 

OMEGARO 

OMEGARD 

OMEGARD 


+1 


GAP: 

L 

P0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

03^*2 

0343 

034^^ 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

R035i 

0355 

0356 

0357 

0358 

0359 

0360 
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FINOCOUY.  - GUIDAP  INTERFACE  USER'S  PAGE  NO*,  12  E6  S3 

FINAL  TRANSFER 


REF 

REF 

REF 

REF 


REF  1 
REF  1 
REF  12 
REF  4 


LAST 

LAST 

LAST 

LAST 


908 

909 
913 
912 


LAST  913 
LAST  137 


30»3432 

30.3433 

30.3434 

30.3435 

30.3436 

30.3437 
30, 3440 
30  ,3441 


3 4752 
54  142 
5C  142 
3 1 674 
C CC06 
7 3765 
0 3734 
5C  142 
55'637 


0 

1 

0 

0 

1 

1 

1 

0 

0 


CCUWXFR 


TWO 

TEM2 

TEM2 

-OELGMB 

OT/OELT 

0NEST02S 

TE»'2 

DELCOUX 


RATIO  OF  DAP  INTERVAL  TC  CDUW  INTERVAL 

ANGLE  INTERFACE 


REF  13 
REF  9 
REF  102 

REF  103 

REF  14 
REF  10 

PEF  22 

REF  15 
REF  5 
REF  152 
REF  1 
REF  5 
REF  16 
REF  3 
RFF  17 
REF  1 


LAST  913 
LAST  912 
LAST  904 

LAST  913 

LAST  913 
LAST  913 

LAST  746 

LAST  913 
LAST  369 
LAST  911 

LAST  911 
LAST  913 
LAST  371 
LAST  913 


30.3442 

30.3443 

30.3444 

20. 3445 

30.3446 

30.3447 

30. 3450 

30.3451 

30.3452 

30.3453 

30.3454 

20. 3455 

30.3456 

30.3457 

30.3460 

30.3461 

30.3462 

30.3463 

30.3464 

30.3465 


5C  142  0 
11*642  1 
6 4753  I 
1 3447  1 

6 4753  I 
C 0006  1 
5 0142  0 

7 1642  1 
C 0006  1 
7 4741  0 
C 0006  1 
5 C142  n 
11*530  I 
54  001  1 
3 3762  1 

0 3720  1 
50  142  0 
55*274  0 
10  142  1 

1 3432  0 


EXTEND 

INDEX 

DV 


CCS 

TCF 


TEM2 

OMEGAPD 

DNE 

+2 

ONE 

TEM2 

OMEGAPD 

BI  Til 

TER2 

IJACC 

L 

DELERLIM 
L IMITSUB 
TEM2 

DE  LPEROR 

TEM2 

CDUWXFR 


WE  NOW  HAVE  AB S ( PM  EGA PO ,00 ,RD I 

1/16 

2 


UNI TS  PI /4  PAD/SEC 


LAG  ANGLE  = OMEGA  ABS(CMEGA)/2  ACCEL 


HAUSKEEPING  ANC  RETURN 


3 

51 


904 

904 


30.3466  3 1645  I TCCCDUW  CA 

30.3467  54  003  0 TS 


FCCUWUSP 

FBANK 


RETURN  USER'S  EBANK 


REF  161 

REF  3 


LAST  906 

LAST  904 


30.3470 

30.3471 

30.3472 
30  ,3473 


0 6042  1 
52001  1 
00001  0 
03246  1 


TC  INTPRET 

SETPO  GCTC 
0 

QCOUWUSR  NORMAL  AND  ABNORMAL  RFTURN  TO  USER 


GAP  : 

L 

P0361 

0362 

0363 

036A 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

R0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 
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FINDCDUW  - GUIOAP  INTERFACE 
THRLST  VECTOR  FILTER  SUePCUTI^E 


USER'S  PAGE  NGe  13  E6  S3 


REF  18 
REF  3 

REF  153 

REF  6 
REF  1 
REF  154 
REF  1 
REF  6 
REF  4 
REF  155 
REF  1 
RFF  7 
REF  19 


LAST  913 
LAST  98 

LAST  913 

LAST  911 

LAST  914 

LAST  913 
LAST  914 
LAST  914 

LAST  914 
LAST  914 


30.3475 

30.3476 

30.3477 

30. 3500 

30.3501 

30. 3502 

30.3503 

30.3504 

30.3505 

30.3506 

30.3507 

30.3510 

30.3511 
30,35X2 
30,3513 


22  142  0 
54  143  0 

4 0000  C 
6 0001  0 
0 0006  1 

5 1647  0 
7 3753  1 
54  001  1 
3 3755  0 
0 3720  1 

6 0143  1 
54  001  1 
3 3756  0 
C 3720  1 
0 0142  0 


FLTRSU0 


EXTEND 

QXCH 

TS 

COM 

AO 

EXTEND 

INDEX 

MP 

TS 

CA 

TC 

AO 

TS 

CA 

TC 

TC 


TEM2 

TFM3 

L 

NOXCDUU 

GAINFLTR 

L 

DUNFVLIM 
L IMITSUB 
TEM3 
L 

UNFVL  IM 
LI MITSU8 
TEM2 


SAVE  ORIGINAL  OFFSET 

ONE  MCT,  NO  WOS,  CAN  BE  SAVED  IF  NEG  OF 
GRIG  OFFSET  ARRIVES  IN  A,  BUT  IT'S 
NOT  WORTH  THE  INCREASED  OBSCURITY- 


INCR  TO  OFFSET,  UNLIMITED 

SAME  LIMIT  FOR  Y AND  Z 

YIELDS  INCR  TO  OFFSET,  LIMITED 

ORIGINAL  OFFSET 

TOTAL  OFFSET,  UNLIMITED 

SAME  LIMIT  FOR  Y AND  Z 

YIELDS  TOTAL  OFFSET,  LIMITED 


SUBR  TO  TEST  THE  ANGLE  BETWEEN  THE  PROPOSEC  WINDOW  AND  THRUST  CMO  VCTS 


REF  7 LAST 

REF  1 
REF  1 

REF  6 LAST 


30,3514 
907  30,3515 

20.3516 

30 .3517 

30.3520 

30.3521 
911  30,3522 

30,3523 


63441  0 
OOOOl  0 
5CC25  0 
21760  0 
61221  1 
43531  1 
03251  1 
CQOOO  1 


UNWCTEST  DDT  OSO 

UNX/2 

DSU  BMN 

DOTSWFMX 

DCMCL 

SSP  RVQ 

FLAGOODW 

0 


RVQ  FOR  ALT  CHOICE  IF  DOT  MAGN  TOO  LARGE 
ZEROING  WINDOW  GOOD  FLAG 


gap: 

L 

P0387 

R0389 

R0391 

0392 

039? 

C394 

0395 

0396 

0397 

0398 

0399 

OAOO 

0401 

0402 

0403 

0404 

0405 

0406 

C4C7 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 
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fINDCDUR  - 6UICAP  INTERFACE  USER'S  PAGE  KCe  1^  EE  S3 

N62CDUSP  RETURNS  THE  2*S  COMPLEMENT,  PI,  SP  CCU  ANGLES  X,Y,Z  IN  MPAC,+l,+2  GIVEN  THE  MATRIX  WHOSE  ROW  VECTORS 
APE  THE  SEMI-UNIT  NAV  BASE  VECTORS  X,Y,Z  EXPRESSED  IN  STABLE  MEMBER  COORDINATES,  LOCATED  AT  0 IN  THE  PUSH  LISTo 


NB2C0LSP  USES  ARCTRGSP  WHICH  FAS  A MAXIMUM  ERROR  OF  +-4  DITS« 


REF  6 LAST  652 

REF  15  LAST  005 


30.3524  63545 

30.3525  00003  1 

30.3526  51021  0 

30.3527  06514  1 

30.3530  61533  0 

30.3531  77745  I 

30.3532  06524  1 

30  ,3533  77566  1 


OSG 
2 

BPL 

DPI /4TH 
+ 3 

CLCAC 

2EP0VECS 
SORT  EX  IT 


0 NB2C0LSP  DLOAD 
BDSU 


IN  CASE  SIN  WAS  SLIGHTLY  > 1/2 
YIELDS  COSICOUZI  IN  UNITS  OF  2 


REF  366 

REF  3 

REF  24 
REF  4 


LAST  908 

LAST  98 

LAST  893 
LAST  915 


30,3534 
30,3  53  5 

30.3536 

30.3537 

30.3540 

30.3541 

30.3542 


C 0CC6  1 
3 0155  0 
20  001  1 
54  145  0 
1 3543  1 
3 4733  1 
54  145  0 


EXTEND 
OCA  MPAC 

ODCUBL 
TS  TEM5 

TCF  +? 

CA  PGSMAX 

TS  TEM5 


OVERFLOW#  FETCH  POSMAX,  MPAC  ALWAYS  POS 
COS(CDUZ)  IN  TEM5,  UNITS  1 


REF  29 

REF  367 
REF  I 
REF  368 


LAST  879 
LAST  915 
LAST  915 


30»3543 

30. 3544 

30.3545 

30.3546 

30.3547 


5C  120  1 
3 CCC2  0 
22  154  1 
C 3613  0 
54  156  1 


INDEX  FIXLCC 

CA  2 

LXCH  MPAC 

TC  ARCTRGSP 

TS  MPAC  +2  CDUZ 


REF  172  LAST  908 
REF  1 

REF  20  LAST  854 
REF  2 LAST  915 
REF  9 LAST  338 
REF  2 LAST  915 
REF  369  last  915 


30.3550  3 4755  1 

30.3551  C 3571  1 

30.3552  3 4751  0 

30.3553  C 3571  1 

30.3554  4 C141  1 

30.3555  0 3613  0 

30.3556  54  155  1 


CA  ZERO 

TC  OVBYCCSM 

CA  FOUR 

TC  DVBYCOSM 

CS  TEM] 

TC  ARCTRGSP 

TS  MPAC  +1  CDUY 


REF  38 
REF  3 
REF  I 
REF  4 
REF  10 
REF  3 
REF  370 


LAST  893 
LAST  915 

LAST  915 
LAST  915 
LAST  915 
LAST  915 


30,3557 

30.3560 

30.3561 

30.3562 

30.3563 

30.3564 

30.3565 


3 4750  1 
0 3571  1 

3 3570  C 
0 3571  1 

4 0141  1 
C 3613  0 
54  154  0 


CA  BIT4 

TC  DVBYCOSM 

CA  16CCT 

TC  DVBYCOSM 

CS  TEMl 

TC  ARCTRGSP 

TS  MPAC  CDUX 


REF  162  LAST  913 


30.3566  0 6042  1 

30.3567  77616  0 


TC  INTPRET 

RVQ 


30,?570  00016  0 16CCT  OCT  16 
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L FINOCCUW-  GUICAP  INTERFACE 

P0A29  The  ELEMENTS  OF  THE  NAV  BASE  MATRIX  WHICH  WE  MUST  DIVIDE  BY  COS(MGA) 
R0430  ALREADY  CONTAIN  C0S(MGA)/2  AS  A FACTORo  THEREFORE  THE  QUOTIENT  SHOULD 
R0^31  ORDINARILY  NEVER  EXCEED  1/2  IN  MAGNI TUDEo  BLT  IF  THE  MGA  IS  NEAR  PI/2 

R0432  THEN  CCSIMGAI  IS  NEAR  ZERO*  ANC  THERE  MAY  BE  SOME  CHAFF  IN  THE  CTHER 

ROA33  ELEMENTS  OF  THE  MATRIX  WHICH  kCULD  PRODUCE  CHACS  UNGER  DIVISION, 

ROA3A  BEFORE  CIVICING  WE  MAKE  SURE  COSIMGA)  IS  AT  LEAST  ONE  BIT  LARGER 

R0A35  THAN  THE  MAGNITUDE  CF  THE  HIGH  CRDEP  PART  CF  THE  OPERAND© 


USER  'S  PAGE  NO©  15  E6  S3 


ROA36  IF  ONE  OR  MORE  DIVIDES  CANNCT  BE  PERFORMED,  THIS  MEANS  THAT  THE 
R0437  PECUIREC  MCA  IS  VERY  NEARLY  t-PI/Z  AND  THEREFORE  THE  OTHER  GIM6AL 
R0A38  ANGLES  ARE  INDETERMINATE,  THE  INNER  ANC  CLTER  GIMBAL  ANGLES  RETURNED 
R0439  IN  THIS  CASE  WILL  BE  RANDOM  MLLTIPLES  OF  PI/2, 


0440 

0441 


REF  30  LAST  915 
REF  1 


30.3571  6 0120  1 DVBYCOSM  AO 

30.3572  54  116  0 TS 


F I XLOC 
ADDRWD 


ADRES  OF  OPERAND 


0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 


REF 


REF 


REF 


2 LAST  916 


5 LAST  915 

1 


30.3573  50  116  1 

30.3574  3 0000  1 

30.3575  C CC06  1 

30.3576  6 3600  1 

30.3577  4 0000  0 

30.3600  6 0145  1 

30.3601  0 0006  1 

20.3602  6 3610  0 


INDEX 

CA 

EXTEND 

B2MF 

COM 

AD 

EXTEND 

BZMF 


ADURWO 

0 


+ 2 

TEM5 

TSLCTCC 


FETCH  NFG  APS  CF  OPERAND,  AD  TEM5,  AND 
SKIP  DIVIDE  IF  RESULT  NEG  OR  ZERO 


CIA)  ZERO  OR  NEG,  CITFM5)  ZERO  OR  POS 
DIFFERENCE  ALWAYS  SMALL  IF  BRANCH 


0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 


REF  3- 


REF  6 
REF  156 
REF  11 
REF  226 


LAST  916 


LAST 

LAST 

LAST 

LAST 


30.3603 

30.3604 

30.3605 

30.3606 

20.3607 

30.3610 

30.3611 

30.3612 


916 

914 

915 
892 


0 0006  1 
5 0116  1 
3 OCOl  0 
0 0006  1 
10  145  0 
54  OCl  I 
22  141  0 
0 0002  0 


EXTEND 

INDEX  ADDRWD 
DCA  0 

EXTEND 
OV  TEM5 

TSLETCQ  TS  L 

LXCH  TEMl 

TC  0 


TEM5  EXCEEDS  ABS  HIGH  CPOER  PART  OF 
OPERAND  BY  AT  IFAST  ONE  BIT, 
THEREFORE  IT  EXCEEDS  THE  OP  OPERAND 
AND  DIVISION  WILL  ALWAYS  SUCCEED, 


GAP: 

L 

P0458 

R0460 

R0462 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

C474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

0484 

0485 

0466 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 
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FlNCCDUls  - GUICAP  INTERFACE  USER'S  PAGE  NCo  16  E6  S3 

ARCTRGSP  RETURNS  THE  2'S  COMPLEMENT,  PI,  SP  ANGLE  IN'  THE  A REGISTER  GIVEN  ITS  SINE  IN  A ANO  ITS  COSINE  IN  L IN 
UMTS  OF  2o  the  RESULT  IS  AN  UNAMBIGUOUS  ANGLE  ANYV^HERE  IN  THE  CIRCLE,  KITH  A MAXIMUM  ERRCR  GF  +-4  BITS« 

THE  ERRCR  IS  PROCUCEC  BY  TFE  SUBRCUTINE  SPARCSIN  WHICH  IS  USED  ONLY  IN  THE  REGION  +-45  OFGREESo 


REF 


30.3613  C C0C6  1 ARCTRGSP  EXTEND 

30.3614  1 3656  0 fiZF  SINZERO  TO  AVOID  DIVIDING  EY  ZERO 


REF  10  LAST 
RFF  20  LAST 
REF  157  LAST 
REF  5 LAST 
REF  173  LAST 

REF  21  LAST 

REF  1 


423 

914 

916 

914 

915 

917 


30.3615  C 0006  1 

20.3616  22  144  0 

30.3617  54  142  ) 

30.3620  3 000)  0 

30.3621  54  1A3  0 

30.3622  3 4755  1 

20.3623  C CC06  1 

30.3624  10  142  1 

30.3625  C 0006  1 

20.3626  1 3645  1 


TEM* 

TEM2 

L 

TEM3 

ZERO 

TEM2 

USECCS 


REF  6 
REF  174 

REF  22 
REF  23 
REF  4 
REF  7 
REF  24 
REF  2 
REF  2 

REF  8 
REF  3 
REF  11 


LAST  917 
LAST  917 

LAST  917 
LAST  9)7 
LAST  820 
LAST  917 
LAST  917 
LAST  802 
LAST  913 

LAST  917 
LAST  917 
LAST  917 


30,3627  10  143  0 

30.3630  3 4755  1 

30.3631  1 3635  0 

30.3632  ^ 0142  1 

30.3633  54  142  1 

30.3634  3 4735  1 

30.3635  54  143  0 

30.3636  3 C142  0 

30.3637  0 3663  1 

30.3640  C 3734  1 

30.3641  C 0006  I 

30.3642  20  143  0 

20.3643  C 3734  I 

20.3644  0 0144  0 


CCS  TEM3 

CA  ZERO 

TCF  +4 

CS  TEM2 

TS  TEM2 

CA  NEGMAX 

TS  TEM3 

CA  TEM2 

TC  SPARCSIN 

TC  CNEST02S 

EXTEND 
MSU  TEM3 

n02CTCQ  TC  0NE$TC2S 

TC  TEM4 


1 


SIN  IS  SMALLER  OR  EQUAL 


IF  COS  NEG,  REVERSE  SIGN  OF  SIN, 
ANGLE  = P I-APCSIN(SIN  ) 

PICK  UP  PI  , 2'S  COMPLEMENT 
WE  NO  LONGER  NEED  COS 


REF  9 LAST  917 
REF  3 LAST  917 
REF  11  LAST  894 
REF  in  LAST  917 
REF  25  LAST  917 
REF  U LAST  917 
REF  ) 

REF  12  LAST  917 
REF  2 LAST  91.7 


30.3645 

30.3646 
30,3  647 

30.3650 

30.3651 

30.3652 

20.3653 

30.3654 

30.3655 


4 0143  0 

0 3663  I 
6 4736  1 
54  143  0 
10  142  1 

3 0143  1 

1 3643  1 

4 0143  0 
1 3643  I 


LSECCS 


CS 

TC 

AD 

TS 

CCS 

CA 

TCF 

CS 

TCF 


TEM3 

SPARCSIN  -1 

HALF 

TEM3 

TEM2 

TEMB 

1 TC2&TCC 

TEM3 

1T02LTCC 


COS  IS  SMALLER 

ANGLE  = SIGNIS IN)  (FI/2-ARCS INI  COS ) I 
WE  NO  LONGER  NEED  COS 


REF  158  LAST  917 
REF  175  LAST  917 
REF  227  LAST  916 
RFF  5 LAST  937 
REF  228  LAST  917 


30, 3656  10  001  1 

30  ,3657  3 4755  1 

20.3660  C C002  0 

30.3661  2 4735  1 
3^^,3662  C 0002  0 


SINZERO 


L 

ZERO 

0 

NEGMAX 

Q 


PI  , 2'S  CCMP 
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L FINOCOUW  - GUICAP  INTERFACE 


USER'S  PAGE  NOo  17  E6  S3 


POSO^f  SPARCSIN  TAKES  AN  ARGUMENT  SCALED  UNITY  IN  A AND  RETURNS  AN  ANGLE  SCALED 

R0505  leO  DEGREES  IN  A*  IT  HAS  BEEN  UNIT  TESTED  IN  THE  REGION  +-«9A  (+-  70 

R0506  DEGREES » AND  THE  MAXIMUM  ERROR  IS  +-5  BITS  VIJH  AN  AVERAGE  TIME  CF 
R0507  450  MICRCSECCNCS*  SPARCSIN  -1  TAKES  THE  ARGUMENT  SCALED  TWO, (BOB  CRISP) 


0508 

0509  REF  8 

0510 

0511  REF  276 

0512  REF  1 

0513  REF  9 

0514 

0515  REF  277 

0516  REF  12 

0517 

0518  REF  1 

0519  REF  1 

0520 

0521  REF  13 

0522  REF  1 

0523 

0524  - ref  14 

0525  REF  1 

0526 

0527  REF  15 

0528  REF  1 

C529 

0530  REF  10 

0531  REF  229 

0532 

0533 

0534 

0535 

0536 


LAST  448 

LAST  905 

LAST  918 

LAST  918 
LAST  916 

LAST  918 

LAST  918 

LAST  918 

LAST  918 
LAST  917 


30.3664 

30 .3665 

30.3666 

30.3667 

30.3670 

30.3671 

30.3672 

30.3673 

30.3674 

30.3675 

20.3676 

30.3677 

30.3700 

30.3701 

30.3702 

30.3703 

30.3704 

30.3705 

30.3706 

30.3707 

30.3710 

30. 3711 

30.3712 

30.3713 

30.3714 

30.3715 

20.3716 

30.3717 


6 0000  1 
54  C21  0 
1 3671  0 
5C  000  1 

4 4734  1 
54  021  0 
C 0006  I 
7 0000  0 
54  141  1 
C 0006  1 
7 3717  1 

6 3716  1 
C 0006  1 

7 C141  1 

6 3715  1 
0 0006  1 

7 0141  I 

6 3714  0 
0 0006  1 

7 0141  1 

6 3713  1 
C 0006  1 

7 0C21  0 
0 0002  0 

24406  0 
00660  1 
16204  0 
50744  0 
20315  I 


OCUBLE 
SPARCSIN  TS 
TCF 
INDEX 
CS 
TS 

EXTEND 

MP 

TS 

EXTEND 

MP 

AD 

EXTEND 

MP 

AD 

EXTEND 

MP 

AD 

EXTEND 

MP 

AD 

EXTEND 

MP 

TC 

OPLl  DEC 

0PL3  DEC 

CPL5  DEC 

0PL7  DEC 

DPL9  DEC 


SR 

+4 

A 

LIMI TS 
SR 

A 

TEMl 

DPL9 

0PL7 

TEMl 

0PL5 

TEMl 

DPL3 

TEMl 

OPLl 

SR 

0 

10  502 

432 

7300 

-11803 

0397 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGPAM  LUMINARY  BY  NASA  2021112-091 


FINOCOU^*  - GUIDAP  INTERFACE 


P0537 

R0538 

R0539 


LIPITSU6  LIMITS  THE  MAGNITUDE  OF  THE  POSITIVE  OR  NEGATIVE  VARIABLE 
ARRIVING  IN  L TO  THE  FCSITIVE  LIMIT  ARRIVING  IN  Ao 
ThE  SIGNED  LIMITED  VARIABLE  IS  RETURNED  IN  A, 


R05A0  VERSION  COURTESY  HUGH  BLAIR-SMTF 


0541 

0542 

0543 

0544 

0545 

0546 

0547 
0540 

0549 

0550 

0551 

0552 


REF  16  LAST  918 
REF  176  LAST  917 


30.3720  =4  141  1 LIMTSUB  TS 


REF  17 
REF  278 
REF  le 


REF  159 
REF  230 
REF  19 
REF  231 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


919 

918 

919 


917 

918 
9]  9 

919 


30.3721 

30.3722 

30.3723 

30 .3724 

30.3725 

30. 3726 

30.3727 

30.3730 

30.3731 

30.3732 

30.3733 


4755  1 
0 0006  1 
10  141  1 
10  COO  0 
22  141  0 
1 3730  1 
1 3732  0 

3 0001  0 
C 0002  0 

4 0141  1 
C 0002  0 


CA  ZERO 

EXTEND 
DV  TEMl 

CCS  A 

LXCH  TEMl 

TCF  +2 

TCF  +3 

CA  L 

TC  Q 


R0553  SUBROUTINE  TC  CONVERT  1 'S  CORF  SP  TO  2'S  COMP 


0556 

0557 

0558 


REF  279 
REF  104 
REF  232 
REF  2E0 


LAST 

LAST 

LAST 

LAST 


919 

913 

919 

919 


30.3734 

30.3735 

30.3736 

30.3737 


10  000 
6 4753 
0 0002 
^ 0000 


CNEST02S  CCS 


REF  233  LAST  919  30,3740  C 0002  0 


RC559  NO  ATTITUDE  CONTROL 


REF  35  LAST  870 


0564 

0565 


REF 

REF 

REF 


LAST 

LAST 


057 

858 


30.3743 

30.3744 
30  ,3745 
30,3746 


0 0004  0 

0 4674  0 
4T166  1 

1 3466  1 


FCADR 

TCF 


I BNKCALL 
STOPRATE 
TCCCCUW 


MIDDLE  GIWBAL  ANGLE  ALARM 


0567 

0568 

0569 


REF  36  LAST 


30,3747 

30.3750 

30.3751 


C 5567  0 
CC401  1 
1 3266  1 


ALARMMGA  TC 
OCT 
TCF 


ALARM 

0C4C1 

MGARET 


17:53  DECo  19,1Q69  FLY 
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USER  ‘S  PAGE  NOo  18 


Ee  S3 


NO  ATTITUDE  CONTROL 

COME  HERE  FOR  NOATTCNT  WITHOUT  ALARM 
RELINT  AT  TC  INTPPET  AFTER  TCOCDUW 


RETURN  TO  USER  SKIPPING  AUTOPILOT  CMOS 
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L FINCCCUK  - GUICAP  INTERFACE  USER'S  PAGE  NGo  19  E6  S3 

K0571  CCNSTANTS 

R0572  #44*4444*4*44#  444***4  *4  4>!'444#*«*4#*4**4#*44*4#*4>!'s!'*4444444*#*444# 


R0573  ACORESS  CONSTANTS 

057A  REF  3 LAST  90A  30,3752  03245  1 ECDUWL  ECADR  ECOUW 

R0575 

R0576  THRUST  OIRECTICN  FILTER  CONSTANTS 


05ai 

A05B2 

R0583 

R0584 


30.3755  00071  1 CUNFVLIM  DEC 

30.3756  02041  0 UNFVLIM  06C 

CONSTANTS  RELATED  TC  GIM8AL  ANGLE  CCMPUTATICNS 

30.3757  C1673  1 OQTSWFMX  DEC 


e2  GAIN  FILTER  SANS  CSM 

.1  GAIN  FILTER  WITH  CSM 


o007  B-1  7 MR  MAX  CHG  IN  F DIP  IN  VEH  IN  2 SECSr 

THIS  DOES  NOT  ALLOW  FOR  S/C  ROT  RATEc 


ol29  B-1  129  MR  MAX  THRLST  CFFSETo  105  MR  TRAVEL 

♦lOMR  0EFL45MR  MBCH  M0UNT+9MR  ABLATlONo 


o93302  B-4 


,05555555555 

.0055555555 


LIM  COLNRTY  PF  UNWC/2  6 UNFC/2  TO  85  DEG 
LOWER  PART  COMES  FRCM  NEXT  CONSTANT 


CELATTX  LIM  TO  20  DEG  IN  2 SECS,  I'S,  PI 
2 DEG  WHEN  CSM  COCKED 


LIKEWISE  FOR  OELATTY 


0591  REF  2 LAST  911  30,3760  DAZMAX  = DAXMAX  LIKEWISE  FOR  DELATT2 

0592  30,3764  14344  1 CCUZDLIM  DEC  o388808888e  70  OEG  LIMIT  FOR  MGA,  I'S,  PI 

R0593 

R0594  CCNSTANTS  FOR  CATA  TRANSFER 


0595 

A0596 


30,3765  01463  1 DT/OELT  DEC  o05 


.1  SEC/2  SEC  WHICH  IS  THE  AUTOPILOT 
CONTROL  SAMPLE  PER  ICD/COMPUTAT  ION  PERIOD 


0597  REF  2 LAST  911  30,3762  CELERLIM  = 0AY/2MAX  10  DEG  LIMIT  FOR  LAG  ANGLES,  I'S,  PI 

R0598 


END  CF  FLY 
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USER  'S  PAGE  NOo  1 EO  S3 


ROOOl  PROGRAM  NAME-  PROG52 

R0003  MCD  NC-  0 

ROOnS  MCOIFICATION  BY-  LONSKE 


DATE-  JAN  9,  1967 
LCG  SECTION-  P51-P53 
ASSEMBLY-  SUNDANCE  REV  46 


R0007  FUNCTIONAL  CESCRIPTICN- 

R0008  ALIGNS  THE  I ML  TC  ONE  CF  THREE  ORIENTATIONS  SELECTED  BY  THE  ASTRONAUTe  THE  PRESENT  IML  ORIENTATION  IS  KNOWN 

ROOlO  AND  IS  STORED  IN  REFSMMATo  THE  THREE  POSSIBLE  ORIENTATIONS  MAY  PE_ 

ROOll  (A)  PREFERRED  CRIENTATICN 

R0012  AN  OPTIMUM  ORIENTATION  FCR  A PREVICUSLY  CALCULATED  MANUEVERo  THIS  ORIENTATION  MUST  PE  CALCULATED  AND 

R0014  STORED  BY  A PREVIOUSLY  SELECTED  PROGRAM, 


R0022 

R0023 

R0025 


(B  ) NOMINAL  CPI ENTATICN 


V = THE  INERTIAL  VELOCITY  VECTOR  AT  TIME  TIALIGNI  SELECTED  BY  THE  ASTRONAUT 


R0029 

R0030 


(C»  REFSMMAT  ORIENTATION 

(0)  LANDING  SITE  - THIS  IS  NOT  AVAILIBLE  IN  SUNDANCE 


R0031  THIS  SELECTION  CORRECTS  THE  PRESENT  I MU  ORIENTATION,  THE  PRESENT  ORIENTATION  DIFFERS  FROM  THAT  TO  WHICH  IT 

R0033  WAS  LAST  ALIGNED  ONLY  CUE  TC  GYRO  CRIFTIUE,  NEITHER  GIMBAL  LOCK  NCR  IMU  POWER  INTERRUPTION  HAS  CCCURED 

R0035  SINCE  THE  LAST  ALIGNMENT), 

R0036  AFTER  A IMU  ORIENTATION  HAS  BEEN  SELECTED  ROUTINE  S52,2  IS  CPEPATEC  TC  COMPUTE  THE  GIMBAL  ANGLES  USING  THE 

R0038  NEW  ORIENTATION  AND  THE  PRESENT  VEHICLE  ATTITUCE,  CAL52A  THEN  USES  THESE  ANGLES,  STORED  IN  THET  AO , + 1 , + 2 , TO 

R004D  COARSE  ALIGN  THE  IMU,  THE  STAR  SELECTICN  ROUTINE,  R56,  IS  THEN  CPERATEC,  IF  2 STARS  ARE  NOT  AVAILABLE  AN  ALARM 

R0042  IS  FLASHED  TO  NOTIFY  THE  ASTRONAUT,  AT  THIS  POINT  THE  ASTRONAUT  WILL  MANUEVER  THE  VEHICLE  AND  SELECT  2 STARS 

R0044  EITHER  MANUALLY  OR  AL TQMAT I C ALLY,  AFTER  2 STARS  HAVE  BEEN  SELECTED  THE  IMU  IS  FINE  ALIGNED  USING  ROUTINE  R51.  IF 

R0046  THE  RENDEZVOUS  NAVIGATION  PROCESS  IS  OPER A T 1 NG ( I ND I CATEO  BY  RN0V2FLG)  P20  IS  DISPLAYED,  OTHERWISE  POO  IS 
R0048  REOUESTEC, 


R0049 


CALLING  SEQUENCE- 


GAP 


ASSEMBLE  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-OR1 
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L P51-P53  USER'S  PAGE  NOo  2 EC  S3 

R0050  THE  FRCGRAM  IS  CALLEC  BY  TFE  ASTRONAUT  BY  OSKY  ENTRYo 


R0051  SUBROUTINES  CALLEO- 

12o  NEWMOOEX 
14,  PRICLARM 

R0O56  NCRMAL  EXIT  MOCES- 
R0059  EXITS  TO  ENDOFJOB 

R0060  ALARM  OR  ABORT  EXIT  MCDES- 


R0052 

R0C53 

R0054 

R0055 

RO056 

R0057 


FLAGOOHN 

RO20DTH 

G0PERF4 

f*ATPCVE 

GOFLASH 

S52a3 


7o  S52o2 
8,  CAL53A 
9o  FLAGIP 
lOo  R56 
U*  R51 
12<,  GOPERF3 


R0C61  NONE 

R0062  OUTPUT- 


R0063  THE  FCLLCHING  FAY  BE  FLASFEC  ON  THE  CSKY 

R0064  U IMU  ORIENTATION  CODE 

R0065  2*  ALARM  CODE  215  -PREFERRED  IMU  ORIENTATION  NOT  SPECIFIED 

R0066  3*  TIME  OF  NEXT  IGMTICN 

R0067  Aa  GIMBAL  ANGLES 

R0068  5o  ALARM  CODE  405  -TWC  STARS  NOT  AVAILABLE 

R0069  6«  PLEASE  PERFORM  POO 

R0070  THE  MODE  DISPLAY  MAY  BE  CHANGED  TO  20 


R0071  ERASABLE  INITIALIZATION  RECUIPEC- 


R0072  PFRATFLG  SHOULD  BE  SET  IF  A PREFERRED  ORIENTATION  HAS  BEEN  COMPUTEOalF  IT  HAS  BEEN  COMPUTED  IT  IS  STORED  IN 

R0074  XSMC,YSMOt  ZSMC® 

R0075  RNDVZFLG  INDICATES  WFETFEP  THE  RENDEZVOUS  NAVIGATION  PROCESS  IS  OPERATING* 


R0077  DEBRIS- 


ROOTS  WCRK  AREA 

0C79 

0080  REF  2 LAST  251 

0081 


33  I 3760 
15,20CC 
15,2050 


BANK  33 
SETLCC  P50S 
BANK 


0082  REF  3 LAST  198 

0083  REF  I 

0084  REF  248  LAST  888 

0085  REF  10  LAST  931 

0086  PEF  1 

0087  REF  27  LAST  856 

0088  REF  281  LAST  919 


E5,1755 

15.2050 

15.2051 

15. 2052 
15  ,2053 
15,2C54 


0 4616  1 
1123?  0 
2 4750  1 
7 0076  1 
1C  000  0 


PRCG52 


EeANK=  BEST  I 
COUNT*  J$/P52 
TC  BANKCALL 

CAOR  ROaeCTH 
CAF  PFRATBIT 

MASK  FLAGWR02 

CCS  A 


IMU  STATUS  CHECK 
IS  PFRATFLG  SET? 


gap: 

L 

0089 

0090 

0091 

0092 

0093 

OOQ'V 

0095 

0096 

CC97 

0098 

0090 

0100 

0101 

0102 

0103 

0109 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0119 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 
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P51-P53 


USER' S PAGE  NC.  3 E5  S3 


REF  1 
REF  25  LAST 
REF  2 LAST 
REF  91  LAST 
REF  6 LAST 
REF  42  LAST 
REF  299  LAST 
REF  1 
REF  39  LAST 

REF  1 

REF  76  LAST 

REF  190  LAST 


15,2055 
826  15,  2056 

923  15,2057 

846  15,2060 

658  15,2061 

923  15,2062 

922  15,2063 

15,2064 

847  15,2065 

15.2066 

15.2067 
888  15,2070 

15,2071 
888  15,2072 


C 2060  0 
3 6250  0 
0 2061  1 
3 4753  1 P52A 
55'144  0 
3 4753  1 P52B 
C 4616  1 
20714  1 
C 6001  0 
1 2073  0 
0 2062  1 
0 5353  1 
C0019  1 
0 5155  0 


TC  P52A 

CAF  THREE 

TC  P52A  +1 

CAF  BITl 

TS  0PTI0N2 

CAF  BITl 

TC  BANKCALL 

CACR  G0PERF4R 

TC  GCTCPCCF 

TCF  +5 

TC  P52B 

TC  PHASCHNG 

CCT  00014 

TC  6ND0FJ0B 


YES 

DISPLAY  REFSMMAT  OPTION  3 


FLASH  OPTION  CODE  AND  ORIENTATION  CODE 
FLASH  V04N06 

V33-PR0CEE0 

NEV.  CODE  - NEW  OPIENTATICN  CODE  INPUT 
DISPLAY  RETURN 


REF  7 LAST 
REF  26  LAST 
REF  28?  LAST 

REF  1 
RFF  I 
REF  1 
REF  163  LAST 

REF  1 


923  15,2073 

923  15,2079 

922  15,2075 

15.2076 

15.2077 

15.2100 

15. 2101 
915  15,2102 

15,21C3 

15,2109 


3 1199  1 
7 6250  1 
5C  000  ] 

C 2C77  0 
1 2105  0 
1 2153  0 
1 2110  1 
0 6092  1 P52E 
7765C  1 
32169  0 


MASK  THRFE 

INDEX  A 

TC  +1 

TCF  0PT9 

TCF  P52H 

TCF  P52T 

TC  INTPRET 

GOTO 

P52F 


OPTION  9 
OPTION  1 
CPTION  2 
OPTION  3 


LANDING  SITE 
PREFERRED 
NCMNAL 
REFSMMAT 


GC  DO  R51 


15,21 05  C 0006  1 0PT9 
REF  5 LAST  781  15,2106  3 1901  0 

REF  2 LAST  923  15,2107  1 2)12  0 


EXTEND 

DCA 

TCF 


TLAND 
P52T  +2 


IF  OPTION  9 DISPLAY  TLAND 


REF  22  LAST  900 
REF  27  LAST  659 
REF  ) 

REF  250  LAST  923 
REF  26  LAST  897 
REF  35  LAST  923 


REF  28  LAST  923 


REF  28  LAST  887 
REF  i LAST  204 
REF  e LAST  Q23 
REF  ^*4  LAST  900 
REF  283  LAST  923 
REF  1 


15.2110  0 0006  1 

15.2111  3 4755  1 

15 .2112  53'045  0 

15.2113  2 217C  C 

15.2114  0 4616  1 

15.2115  20477  1 

15.2116  C 6001  0 

15  ,2117  0 2121  1 

15.2120  0 2113  0 

15.2121  52'045  0 

15  ,2122  0 0006  1 

15.2123  6 2125  C 

15.2124  1 7127  0 

15.2125  C 0006  1 

15.2126  3 0025  0 

15  ,2127  53*775  1 

15.2130  3 1144  1 

15.2131  7 9752  I 

15  ,2132  10  000  0 

15,2133  0 2137  C 


P52T 


P52V 


EXTEND 
DCA  NEGO 

OXCH  OSPTEMl 

CAF  V06N34» 

TC  BANKCALL 

CACR  GOFLASF 

TC  GCTCPCCH 

TC  +2 

TC  -5 

DXCH  OSPTEMl 

EXTEND 
BZMF  +2 

TC  F +3 

EXTEND 

DCA  TIME2 

DXCH  TALIGN 

CA  0PTICN2 

MASK  BIT2 

CCS  A 

TC 


IF  TIME  ZERO  OR  NEG  USE  TIME2 


P52W 
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L P51-P5?  USER'S  PAGE  NO*  4 E5  S3 

INTPRET 


0136  REF  LAST  923  15  ,2134 

0137  15,2135 

0138  REF  1 15,2136 


0 6042  1 
77650  1 
32220  0 


TC 

GOTO 


P52LS 


OPTION  A - GET  LS  ORIENTATION 


gap: 

L 

P0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

C160 

0161 

0162 

0163 

0164 

0165 

0166 
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iGE  925 


P51-P53 


USER'S  PAGE  NCo  5 E5  S3 


START  ALIGNMENT 


REF  165 

REF  5 
REF  1 

REF  1 

REF  2 
REF  251 
REF  27 
REF  36 
REF  1 
REF  166 

REF  .1 
REF  167 

REF  1 

REF  2 
REF  2 

REF  1 

REF  37 
REF  5 


LAST  924 
LAST  923 


LAST  489 
LAST  923 
LAST  923 
LAST  923 

LAST  92  5 


LAST  925 


LAST  662 
LAST  764 


LAST  925 
LAST  7^2 


15.2140 

15.2141 

15.2142 
15  ,2143 

15.2144 

15.2145 

15 .2146 

15.2147 

15.2150 

15.2151 

15.2152 
15  ,2153 

15.2154 

15.2155 

15.2156 

15. 2157 

15.2160 

15.2161 

15.2162 
15  ,2163 

15.2164 

15.2165 
15  ,2166 
15,2167 

5)06 

15,2170 


C 6042  I 
45145  O 
02775  0 
31651  I 
77624  1 
31620  1 
77776  1 
3 5010  0 

0 4616  1 
20477  1 

C 6001  0 

1 2171  0 
0 6042  1 

77650  1 
22143  0 
0 60  42  1 
77624  1 
31321  0 
43014  0 
C1462  0 
01273  0 
77624  1 
31007  1 
77776  1 
C 60C1  0 

01442  1 


P52V>  TC 

OLOAD 


P52C  CALL 

EXIT 

CAF 

TC 

CACR 

TC 

TCF 

P52H  TC 

GCTQ 

REGCUARS  TC 

CALL 

COARSRET  SET 


P52F  CALL 

P520UT  EXIT 
TC 

ve05N09  = 

V06N34*  VN 


1 NTPRET 
CALL 
TALIGN 
S52c3 


S52o2 

Vn6N22 

6ANKCALL 

GQFLASH 

GCTOPOCH 

CCARSTYP 

INTPRET 

P52D 

INTPRET 

CAL53A 

CLEAR 

REFSMFLG 

PFRATFLG 

R 51 

GCTOPCCH 

V05N09 

634 


PICK  UP  ALIGN  TIME 
COMPUTE  NOMINAL  IMU 
OR  lENTAT ION 

READ  VEHICLE  ATTITUDE  AND 
COMPUTE  GIMBAL  ANCLES 


DISPLAY  GIMBAL  ANGLES 


V33-PROCEED,  SEE  IF  GYPO  TORQUE  COARSE 


CO  COARSE  ALIGN 
ROUTINE 


gap:  assemble  REVISION  131  OF  AGC  PRCGRAK  LUMINARY  BY  NASA  2r211>2-091 


L P51-P53 


P C167 
0169 

0169 

0170 
0)71 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0162 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 


CFEC  K FCR  GRRC 

REF  I 

REF  252  LAST 

REE  5 LAST 

REF  38  LAST 

REF  1 

REF  168  LAST 

REF  4 LAST 
REF  37  LAST 

REF  3 LAST 
REF  3 LAST 

REF  38  LAST 
REF  3 LAST 
REF  3 LAST 

REF  39  LAST 
REF  3 LAST 
REF  1 

REF  I 


TOPCLE  CCARSE 
15,2171 
925  15,2172 

784  15,2173 

925  15,2  174 

15  ,2175 

925  15,2)76 
15,2177 

151  15,2200 

873  15,2201 

15,2202 
124  15,2'2C3 

149  15,2204 
15  ,2205 

926  15,2206 

124  15,2207 

150  15,2210 
15,2211 

926  15,2212 

124  15,2213 

15.2214 

15.2215 

15.2216 

15.2217 


ALIGNMENT 
2 2217  1 

0 4616  1 
20624  0 

1 6001  1 
1 2156  0 
C 6042  1 

64375  1 
03607  0 
01734  0 
77656  1 
26665  0 
03615  0 
53521  1 
01734  0 
26673  1 
03623  0 
52521  1 
01734  0 
36701  I 
21156  1 
77650  1 
22166  1 
00C13  0 


COARSTYP 


0CT13 


CAF  nCT13 
TC  BANKCALL 

CACR  GOPEBFl 
TCF  GOTOPOOH 
TCF  FEGCOARS 
TC  INTPRET 

VLQAO  MXV 
XSMD 

REFSMMAT 

UNIT 

STCVL  XDC 
YSMO 
MXV  UNIT 

REFSMMAT 
STOVL  YDC 
ZSMO 
MXV  UNIT 

REF  SMMAT 
STCALL  ZOC 

GYCCARS 

GOTO 


P52CUT 

13 


OCT 
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DISPLAY  V 50N25  WITH  CCARSE  ALIGN  OPTION 


V34-TERM1  NCOF 
V33-NQRMAL  COARSE 
V32-GYR0  TORQUE  COARSE 


GET  SMIDESIREDI  WR  T SMIPRESENTJ 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PFCCRAM  LUMINARY  BY  NASA  2021112-091 


L 


P0191 

0192 

0193 
oig*; 

0195 

0196 

0197 

0198 

0199 

0200 


COMPUTE  LANCII 

REF  A LAST 

REF  2 LAST 

REF  9 LAST 

REF  6 LAST 

REF  6 LAST 


G OR  lENTAT  ION 
15  ,2220 
786  15,2221 

659  15,2222 

15^2223 
15,222A 
834  15  ,2225 

15,2226 
925  15,2227 

923  15  ,2230 


{ OPTION  4 
43014  0 P52LS 
C1463  1 
C0662  0 
77201  1 
COOOl  0 
02023  1 
A1525  0 
02775  0 
36401  1 


SET  CLEAR 

LUNAFLAG 
ERADFLAG 
SETPD  VLCAD 
0 

RLS 

POOL  PUSH 

TALIGN 

STCALL  TLAND 


0201  REF 

0202 

0203  REF 

0204  REF 

0205 

0206  PEF 

0207 

0208  REF 

0209  REF 

0210  REF 

0211 

0212  REF 


3 LAST 

4 LAST 
7 LAST 

1 

5 LAST 
5 LAST 
1 

2 LAST 


834  15,2231  55716  1 

15,2232  77742  0 

706  15,2233  16032  1 

927  15,2234  02775  0 

15.2235  77624  1 

15.2236  30440  1 

15.2237  53575  0 

927  15  ,2240  02032  1 

926  15,2241  37607  1 

15.2242  10757  0 

15.2243  77650  1 

925  15,2244  32143  0 


VSR2 

STOOL 

CALL 

VLOAD 

STCALL 

GOTO 


PP-TC-R 

ALPHAV 

TALIGN 

N89DISP 

UNIT 

ALPHAV 

XSMD 

LSORIENT 

P520 
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GET  LANDING  SITE  ORIENTATION 
TO  PICK  UP  PLS 

PICK  UP  LANDING  SITE  VFC  IN  MF 
RLS  PD  0-5 

JAM  align  time  in  TLAND  FOR  OPTION  4 
TRANS  RLS  TC  REF 
INPUT  TO  LAT-LONG 

COMPUTE  LANDING  SITE  ORIENT  (XSMO) 


NCW  GO  COMPUTE  GIMBAL  ANGLES 


GAP  : 

L 

P0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

023"' 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 
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P51-P53  USER'S  PAGF  NO*  8 E5  S3 

SUBROUTINE  TO  CALCULATE  AND  DISPLAY  THE  LUNAR  LANDING  SITE 


REF  2 LAST  45 
REF  16  LAST  390 


14,2000 

14,2440 

E5,1642 


SETLOC  P50S1 
BANK 

eBANK=  XSM 


REF  3 LAST 

REF  14  LAST 

REF  3 LAST 

REF  3 LAST 

REF  3 LAST 

REF  3 LAST 

REF  2 LAST 

REF  3 LAST 

REF  3 LAST 


14,2440 
783  14,2441 

895  14,2442 

786  14,2443 

14, ‘2444 
316  14,2445 

319  14,2446 

316  14,2447 

319  14,2450 

316  14,2451 

319  14,2452 

14,2453 


*77620  0 
C2746  C 
35242  0 
26347  0 
70545  1 
01122  1 
16711  1 
01124  1 
16713  0 
C1120  0 
02707  0 
77776  1 


N89DISP 


STQ 

OMAJ 

STCALL  GDT/2  +4 
LAT-LONG 
DLCAO  SRI  ' 
LONG 

STCDL  LANCLCNG 
ALT 

STOOL  LANCALT 
LAT 

STORE  LANDLAT 
EX  IT 


TEMP  STORE  TIME 


REF  1 

REF  253  LAST  926 
REF  28  LAST  925 
REF  39  LAST  926 

REF  1 


14.2454 

14.2455 

14.2456 

14.2457 

14.2460 

14.2461 


3 2477  1 
C 4616  1 
20477  1 
1 6001  1 
1 2462  1 
I 2454  1 


LSOI SP 


CAF 

TC 

CACR 

TC  F 

TCF 

TCF 


V06N89# 
BANKCALL 
GOFLASH 
GCTOPOCH 
+ 2 

LSDI SP 


DISPLAY  LAT, LONG/2 , ALT 


V34-TERMI NATE-EXIT  P57 

V33-PROCeEO-  ACCEPT  LS  DATA 

V3?  DR  E-  LOOK  AGAIN  AND/DR  LOAD  NEW  LS 


REF  169 

REF  4 
REF  4 
REF  3 
REF  4 
REF  4 
REF  4 
REF  15 

REF  1 

REF  4 


LAST  926 

LAST  928 
LAST  928 
LAST  928 
LAST  928 
LAST  928 
LAST  928 
LAST  928 


LAST  928 


14.2462 

14.2463 

14. 2464 
14  ,2465 

14.2466 

14.2467 

14.2470 

14.2471 

14.2472 

14.2473 

14. 2474 

14.2475 

14.2476 

14.2477 


0 6042  1 
72545  0 
02711  1 
15122  1 
C2713  0 
15124  1 
02707  0 
15120  C 
01242  1 
77624  1 
26420  0 
77650  1 
02746  0 
01531  1 


VO6N0S* 


TC  INTPRET 

DLCAO  SLl 

LANOLONG 
STODL  LONG 

LAKOALT 
STOOL  ALT 

LANDLAT 
STCOL  LAT 

GDT/2  +4 

CALL 

LALOTORV 

GOTO 


OMAJ 

VN  689 


PICK  UP  TIME 

GET  RLS  BACK  FROM  LAT, LONG,  ALT 
PLS  B-29  IN  MPAC  ANC  ALPHAV 


gap:  assemble  revision  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2O21U2-0S1 

L P51-P53 


P0249  NAME  -S50  ALIAS  LOCSAM 
R0250  BY 
R0251  VINCENT 

R0252  FUNCTION  - COMPUTE  INPUTS  FOR  PICAPAR  AND  PLANET 


R0253  DEFINE 


R025A 

*^^255  U = UNIT!  SUN  WRT  EARTH) 

R0256  ES 


R0257 

R0258 


U =UNITf  MOON  hRT  EARTH) 
EM 


R0259 

R0260 


R^  =POSITICN  VFCTCR  CF  LEM 


R0261 

R0262 


'^EM  CISTANCE  (3fi4402KM)  BETWEEN  EARTH  AND  MOON 


= R^TIO  R ^^/(CISTANCE  SUN  TO  EARTH) 


>«00257125 


R0265 

R0266 


R^  =EOUATORIAL  RADIUSS  ( 6378<»  166KM)  OF  EARTH 


R0273 
R02  74 


R0275 

R0276 

R0277 


LOCSAM 


CCMPUTES  IN  EARTH  INFLUENCE 


VSLN 

VEARTH 

VMOON 

CSUN 

CBARTH 


U 

ES 


-UMT(  R ) 
L 


UMTIR  oU  - R ) 
EM  EM  L 


COS  90 

COS(5  +ARCSIN(R  /MAGIR  ))) 
6 L 


R0278  CMOON  = COS  5 

R0279 

R0280  INPUT  - TIME  IN  MPAC 

R0281  OUTPUT  - LISTED  ABOVE 

R0282  SLBRCLTINES  -LS POS  , L EMPR EC 
R0283  DEBRIS  - VAC  AREA  ,TSIGHT 
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USER  'S  PAGE  NOe  9 


E5  S3 


i 


GAP: 
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L P51-P53 


0284 


REF  2 LAST  45  TO  45: 


COUNT*  J.S/LCSAV 


0285  REF  1 

0286 

0287  REF  2 

0288  REF  2 

0289  REF  1 

0290 

0291  REF  3 

02  92  REF  47 

0293  REF  10 

0294 

0295  REF  9 

0296 

02  97  REF  1 

0298 

0299  REF  3 

0300  REF  1 

0301 

0302  REF  26 

0303 

0304  REF  4 

0305  REF  27 

0306 

0307  REF  3' 

0308  REF  1 

0309 

0310  REF  1 

0311  PEF  1 

0312  REF  1 

0313  REF  1 

0314  REF  1 

03J  5 

0316  REF  5 

0317  REF  1 

0318 

0319  REF  2 

0320  REF  3 

0321  REF  6 

0322 

0323  REF  2 

0324  REF  28 

0325 

0326  REF  4 

0327  REF  29 

0328 

0329  REF  7 

0330  REF  1 

0331 

0332  REF  2 


LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 


LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

L AST 


LAST 


125 

259 


930 

632 

832 

723 


491 

832 

930 

930 

125 


930 


124 

930 

930 

930 

930 

930 

930 

930 


930 


14»2500 

14.2500 

14.2501 

14.2502 

14.2503 

14 .2504 

14.2505 

14.2506 

14.2507 
14,2510 
14  ,2511 

14.2512 

14.2513 

14.2514 

14.2515 

14.2516 

14.2517 

14.2520 

14.2521 

14.2522 

14.2523 

14 .2524 

14.2525 

14.2526 

14.2527 
14,2530 
14  ,2531 

14.2532 

14.2533 

14 .2534 

14.2535 

14.2536 

14.2537 

14.2540 

14.2541 

14.2542 

14.2543 

14.2544 

14.2545 

14.2546 

14.2547 
14,2550 
14  ,2551 

14.2552 

14.2553 

14.2554 

14.2555 

14.2556 


77620  0 
02745  0 
37562  1 
33647  1 
77745  1 
03562  C 
34041  0 
27056  1 
61131  0 
00052  0 
00000  1 
30535  1 
74375  0 
C2723  C 
30001  0 
52372  0 
00001  0 
77656  1 
26723  C 
00001  0 
57456  1 
167C7  0 
30005  1 
77624  1 
30567  0 
14017  1 
30576  C 
34023  1 
30  562  0 
T4375  0 
02723  0 
30C07  0 
53445  1 
02715  0 
26715  C 
02723  C 
53361  0 
30CC1  C 
00001  0 
57456  1 
26707  0 
00001  0 
57456  I 
16723  0 
3000 3 1 
77624  I 
30567  0 


S50  = LOCSAM 

LQCSAM  STQ 

OM  IN 

STCALL  TSIGHT 
LSPOS 

OLCAD 

TSIGHT 
STCALL  TOECl 

LEMPREC 
SSP  TIX,2 
S2 
0 

MGONCNTR 

EARTCNTR  VLOAO  VXSC 
VMCCK 
RSUBEM 
VSLl  VSU 
RATT 

UN  IT 

STCVL  VMCON 
RATT 

UNIT  VCOMP 
STCOL  VEARTH 
R SU8E 

CALL 

□CCCS 

STOOL  CEARTH 
CSSS 

STCALL  CMOON 
ENOSAM 

MOONCNTR  VLOAO  VXSC 
VMOON 
ROE 

BVSU  UNIT 
VSUN 
STCVL  VSUN 
VMOON 
VXSC  VAO 

RSUBEM 

RATT 

UNIT  VCCMP 
STCVL  VEARTH 
RATT 

UNIT  VCCMP 
STOOL.  VMOON 
RSUBM 

CALL 

OCCOS 
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GAP; 

L 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0350 

0351 

03  51 

0352 

0352 
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P 


51-P53 


USER'S  PAGE  NOo  11 


E5  S3 


REF 

REF 

REF 


REF 

PEF 


RFF 


REF 


LAST 

LAST 

LAST 


930 

930 

930 


LAST  930 


, 2 5 57 
,2560 
,2561 
,2562 
,2563 
,2564 
,2565 
,2566 
,2567 
,2  570 
,2571 
,2572 
,2573 
,2574 
0016 
0020 
0022 
,2575 
,2576 
,2577 
,2600 
,2601 
,2602 


14C23  C 
30576  0 
00017  1 
77745  1 
30600  1 
00021  1 
77650  1 
02745  0 
7C471  1 
00045  0 
43336  0 
206C2  0 
70546  1 
77616  0 


C7760  1 
14473  1 
C4000  0 
00000  1 
00343  0 
21616  0 


CEARTH 

CSUN 

CMQGN 

CSS5 

CSSUN 


oov 

AS  IN 


COS 

qVQ 


20EC 

2DEC 

2CEC 


CMCCN 

CSSS 

CEAPTP 


QMIN 

SRI 

360 

OAC 

SDEGREES 
SRI  . 

14D 

160 

180 

02490475 


0 125 


o0138R8889 


(CDS  5» /4 
(C0S60)/4 

SCALED  IN  REVS 


J 


17:53  OECp  19fl969  LEt'PSCS  ^\^9  PAGE  932 


GAP;  ASSEMBLE  REVISION  131  CF  AGC  PROCPAM  LUMINARY  BY  NASA  2021112-091 
l_  P51-P53  USER'S  PAGE  NOo  12  E5  S3 


P0353 
R035^ 
R0355 
R0356 
R0357 
R0358 
R0359 
R0360 
R0361 
R0362 
R0363 
R0364 
R0365 
R0366 
R0367 
R0368 
R0369 
R0370 
R0371 
R0372 
R0373 
R0374 
R0375 
R0376 
R0377 
R0378 
ROB  79 
R0360 
R0381 
R0382 
R0383 
R0384 
R0385 
R0386 
R0387 
R0388 
R03e9 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0390 

0400 

0401 

0402 


PPCGRAM  NAME  - R56 
MOD  1 

BY  KEN  VINCENT 


CATE  DEC  20  f6 
LOG  SECTION  P51-P53 
ASSEMBLY  SUNOISK  REV40 


FUNCTION 

THIS  PROGRAM  REAC  THE  I«U-CCUS  AND  COMPUTES  THE  VEHICLE  ORIENTATION 
WITH  RESPECT  TO  INERTIAL  SPACEo  IT  THEN  COMPUTES  THE  SHAFT  AXIS  (SAXI 
WITH  RESPECT  TC  REFERENCE  INERTIAL^  EACH  STAR  IN  THE  CATALOG  IS  TESTED 
TO  DETERMINE  IF  IT  IS  OCCULTEC  BY  EITHER  THE  EARTH, SUN  OR  MOQNo  IF  A 
STAR  IS  NOT  OCCULTED  THEN  IT  IS  PAIRED  WITH  ALL  STAR  CF  LOWER  INCEX* 
THE  PAIRED  STAR  IS  TESTED  FCR  CCCULTATIONo  PAIRS  OF  STARS  THAT  PASS 
THE  OCCULTATION  TESTS  ARE  TESTED  FCR  GCCC  SEPARATICN,A  PAIR  OF  STARS 
HAVE  GCOD  SEPERATICN  IF  THE  ANGLE  BETWEEN  THEM  IS  LESS  THAN  100  DEGREES 
AND  MCRE  THAN  50  DEGREES#  THCSE  PAIRS  WITH  GOOD  SEPARATION 
ARE  THEN  TESTED  TO  SEE  IF  THEY  LIE  IN  CURRENT  FIELD  CF  VIEWolWITHiN 
50  CEGKEESOF  SAXloTHE  PAIR  WITH  MAX  SEPARATION  IS  CHOSEN  FROM 
THOSE  WITH  GOOD  SE PAR AT  I CN , A NC  IN  FIELD  OF  VIEW# 

CALLING  SECUENCE 
L TC  BANKCALL 

L+l  CACR  R56 

L+2  ERROR  RETURN  - NC  STARS  IN  FIELD  CF  VIEW 

L+3  NORMAL  RETURN 

OLTPLT 

BESTI,6ESTJ  -SINGLE  PREC , I NTEGE RS , STAR  NUMBERS  TIMES  6 
VFLAG  - FLAG  BIT  SET  IMPLIES  NC  STARS  IN  FIELD  OF  VIEW 

INITIALIZATION 

DA  CALL  TC  LOCSAM  MLST  BE  MACE 


DEBRIS 
WORK  AREA 
X, Y, ZNB 
SINCDU.CCSCCU 


STAPAD  - 
REF  1 
REF  1 
REF  12 
REF  i 
REF  170 

REF  4 

REF  1 


REF  1 


STAR  +5 


LAST  889 
LAST  931 
LAST  928 

LAST  552 


14,2603 

14.2603  0 4645  1 

14.2604  55'745  1 

14.2605  n 6042  1 

14.2606  7762A  1 

14.2607  47541  1 

14.2610  77624  1 

14.2611  2003C  C 

14.2612  77601  0 

14.2613  OOOni  0 

14.2614  71214  0 

14.2615  01465  1 


R56 

COUNT* 
PICAPAR  TC 
TS 
TC 

CALL 


CALL 


PI CAPAR 
tS/R56 
MAKECACR 
QMI  N 
INTPRFT 

COUTR IG 

CALCSMSC 


SETPD 

0 

SET  OLOAO 
VFLAG 


VFLAG  = 1 


GAP : 

L 

0A03 

040A 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

042  0 

0429 

0430 

04-^1 

0432 

0433 

0434 

0435 

0436 

0437 

043  8 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0440 

0450 

0451 

0452 
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P51-P5 


3 
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PEF  1 

REF  4 LAST 

REF  3 LAST 

REF  1 

REF  3 LAST 


REF  2 LAST 


PEF  40  LAST 
REF  1 

REF  7 LAST 


REF  10  LAST 


REF  1 

REF  1 

REF  1 

REF  2 LAST 

REF  1 

REF  1 

REF  24  LAST 

REF  1 

REF  2 LAST 

REF  2 LAST 

PEF  3 LAST 

REF  2 LAST 

REF  1 

REF  3 LAST 

REF  4 LAST 

PEF  I 

REF  2 LAST 

REF  5 LAST 

REF  1 

REF  1 

REF  3 LAST 


14,2616 
922  14  ,2617 

383  14,2620 

14, '2621 
14,2622 
376  14,2623 

14.2624 

14.2625 
933  14,2626 

14,2627 
14,2630 
926  14,2631 

14.2632 

14.2633 
614  14,2634 

14,2635 
930  14,2636 

14,2637 

14.2640 

14.2641 

14.2642 

14.2643 

14.2644 
933  14,2645 

14.2646 

14.2647 

14.2650 

14.2651 
879  14,2652 

14.2653 

14.2654 
933  14,2655 

14,2656 
933  14,2657 

933  14,2660 

14,2661 
933  14,2662 

14.2663 

14.2664 
933  14,2665 

933  14,2666 

14,2667 
14,2670 
933  14,2671 

14,2672 
933  14,2673 

14.2674 

14.2675 

14.2676 
933  14,2677 


24007  C 
26756  1 
C2665  0 
63361  0 
24005  1 
C2701  0 
74370  0 
00344  1 
24005  1 
77655  1 
535C5  1 
01734  0 
02731  0 
66331  0 

00051  0 
OC006  I 

00052  0 
00006  1 
52100  I PICl 
30643  0 
30760  0 
5C373  0 PIC2 
30347  1 
C2731  0 
50025  0 
30757  1 
30640  0 
77754  1 
00046  0 
52104  0 PIC3 
30656  I 
3Q640  0 
50373  0 PIC4 
47430  0 
02731  0 
50025  0 
30757  1 
30653  I 
47773  I 
30347  1 
47430  0 
51025  1 
30755  0 
30653  1 
45173  0 
30347  I 
30732  I 
77614  1 
C1710  0 
30640  0 


DPZERO 
STOVL  6ESTI 
XNB 

VXSC  PDVL 

HALFCP 

ZNB 

AXT,1  VXSC 

2280  ■ 
HALFOP 

VAC 

VXM  UNIT 

REF  SMMAT 
STORE  SAX 
SSP  SSP 

51 
6 

52 
6 

TIX,1  60TC 
PIC2 
PICENC 
VLCAD*  DOT 

CATLOG,! 

SAX 

OSU  BRN 

CSS33 

PICl 

LXA,2 

XI 

TIX,2  GCTC 
PICA 
PICl 

VLCAO#  OCT 

CATLOG, 2 
SAX 

OSU  BMN 

CSS33 

PIC3 

VLOAO*  DOT# 

CATLOG,  1 
CATLCG,2 
CSU  BPL 

CSS40 
PIC3 
VLOAO*  CALL 

CATLCG,! 

OCCULT 

BON 

CULTFLAG 

PICl 


XI  = 37  X 6 +6 


SAX  = SHAFT  AXIS 
SI  =S2=6 


MAJOR  STAR 


GAP : 

L 

0A53 

0A5A 

0A55 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

C47Q 

0471 

0472 

0473 

047^ 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

048*5 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0490 

0499 

0499 

0500 
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USER  'S  PAGE  NOo  14  E5  S3 


REF  6 LAST 

REF  2 LAST 

REF  2 LAST 

REF  3 LAST 

REF  2 LAST 

REF  1 

REF  5 LAST 

REF  2 LAST 

RFF  7 LAST 

REF  8 LAST 

REF  3 LAST 

REF  1 


REF  4 LAST 

REF  6 LAST 

REF  3 LAST 

REF  5 LAST 

REF  1 

REF  1 

REF  1 

REF  2 LAST 

REF  371  LAST 

REF  3 LAST 

REF  372  LAST 

REF  4 LAST 

REF  3 LAST 

REF  6 LAST 

REF  4 LAST 

REF  7 LAST 

RFF  3 LAST 


933  14,2701 

933  14,2702 

14,2703 
933  14,2704 

933  14,2705 

14,2706 

932  14,2707 

14.2710 

14.2711 

933  14,2712 

125  14,2713 

14,2714 

934  14,2715 

934  14,2716 

14,2717 
934  14,2720 

14.2721 

14.2722 

14.2723 
934  14  ,2724 

14,2725 
934  14,2726 

934  14,2727 

14,2730 
934  14,2731 

14.2732 

14.2733 

14 .2734 

14.2735 

14.2736 

14.2737 
934  14,2740 

915  14,2741 

14,2742 
934  14,2743 

934  14,2744 

14,2745 
934  14,2746 

934  14,274? 

766  14,2750 

14,2751 
934  14,2752 

934  14,2753 

931  0016 

14.2754 

14.2755 

14.2756 

14. 2757 
14,2760 


0 
0 
1 
1 
0 
1 

1 STRATGY 
01605  0 
30725  1 
65120  I 

02755  1 

02756  1 

47773  1 STRAT 
3C347  1 
47430  0 
43006  0 
01545  1 
30711  0 
45345  1 
77644  1 
30653  1 

67130  1 NERPAR 
02755  1 
C2756  5 
77650  1 
30653  1 

51321  0 OCCULT 
02707  0 
00017  1 
77654  0 
30751  1 
75240  0 
30751  1 
00160  0 
75240  0 
30751  1 
00162  1 
43C4Q  1 
30751  1 
C1630  0 
C0052  0 

77614  1 CULTEC 
01430  I 
00052  0 

CSS 

C5U0  1 CSS40 
35052  0 

05110  1 CSS33 
35052  0 

77414  0 PICENC 


45173 

47430 

30732 

77614 

01710 

30653 


VLOAD* 

BON 

BONCLP 

XCFX,  I 

VLOAD* 

PUSH 

DLCAC 

BPL 

SXA  ,1 

GOTO 

MXV 

6ZE 

BMN 

BMN 

BMN 

SFTGO 

2Dec 

2DEC 

BOFF 


CATLOG, 2 
OCCULT 

rULTFLAG 

PIC3 

VFLAG 

NFRPAR 

XCHX,  2 

BESTI 

BESTJ 

DOT* 

CATLCGfl 

CATLOG, 2 

60FINV 

VFLAG 

STRAT  -3 

OSU 

PIC3 
SXA, 2 
BESTI 
BESTJ 

P IC3 
BVSU 
CULTRI  X 
CSS 

CULTEO 

SIGN 

CULTED 

MPAC  +3 

SIGN 

C ULTED 

MPAC  +5 

CLRGC 

CULTED 

CULTFLAG 

OPRET 

CULTFLAG 

OPRET 

CEARTH 

©16070 

©16070 

EXIT 


CnS  50  /4 
COS  50  /4 


gap:  assemble  REVISION  131  CF  AGC  PRCCRAN  LUMINARY  BY  NASA  2021112-091 


0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 


REF 

REF 

REF 


REF  5 LAST  935 
REF  10  LAST  935 


REF  5 LAST  935 

REF  8 LAST  935 

REF  5 LAST  932 

REF  6 LAST  935 

REF  4 LAST  495 


14,2761 

14  ,2762 

14.2763 

14.2764 

14.2765 

14.2766 

14.2767 

14.2770 

14.2771 

14.2772 

14.2773 

14.2774 

14.2775 

14.2776 

14.2777 

14.3000 

14. 3001 

14.3002 

14.3003 

14.3004 

14.3005 

14.3006 
0000 
0006 
0C14 
0022 
0030 
0036 
0040 


01745  0 
30764  1 
0 3005  1 
73150  1 

02755  1 
C2756  1 
47775  1 
C2731  0 
30347  1 
47715  1 
02731  0 
47430  0 
77625  0 
66044  1 
31003  0 

02756  1 
77734  1 
02755  1 
77776  1 

25'745  0 
3 1745  0 
C 4622  0 


DSU 

BPL 


EXIT 

INCR 


VFLAG 
P ICGXT 
PICPXT 
L XA  ,2 
BEST  I 
BESTJ 
DOT# 

SAX 

CATLCG,! 

DOT* 

SAX 

CATL0G,2 

SXA  ,1 

PICNSWP 

BESTJ 


OMIN 
QM  IN 
SWCALL 


DPO 

CPI 


12D 

leo 

24D 

300 

320 


17J53  OECb  19,1969  LEPP50S  -119  PAGE  935 
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GAP  : 

L 

P0530 

R0531 

R0532 

R0533 

R053A 

R0535 

0536 

0537 

0538 

0539 

0 540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

05  72 

0573 

0574 

0575 

0576 

0577 
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P51-P53 


USER'S  PAGE  NCo  16  E5  S3 


NAME-P51  FINE  ALIGN 

FUNCTION-TO  ALIGN  THE  STABLE  MEMBER  TC  REFSMMAT 

CALLING  SEQ-  CALL  k51 

INPLT  - REfSMMAT 

OUTPUT-  GYRO  TORQUE  PULSES 

SLBRCUTINES  -L CCS  AM , P I CAP AR , R 52 , R53 , R54, R 5 5 
REF  1 


REF 

REF 


5 

77 


LAST  920 
LAST  923 


14,3001  7762C  0 R51 

14.3010  02746  0 

14.3011  77776  1 R5U1 

14.3012  0 5353  1 

14.3013  04024  0 


COUNT* 

STQ 

EXIT 

TC 

OCT 


tS/R5] 

QMAJ 

PHASCHNG 

04P24 


REF  2 LAST 
REF  254  LAST 
REF  6 LAST 
REF  40  LAST 

REF  1 

REF  171  LAST  I 

REF  25  LAST 
REF  • 1 

REF  2 LAST 

REF  255  LAST 
REF  1 
REF  1 
REF  2 LAST 
REF  37  LAST 

REF  1 
REF  256  LAST 
PFF  29  LAST 
REF  41  LAST 
REF  3 LAST 
REF  1 
REF  177  LAST 
REF  3 LAST 
REF  172  LAST 

REF  78  LAST 


181  14,3014 

928  14,3015 

926  14,3016 

928  14,3017 

14.3020 

14.3021 
932  14,3022 

14,3023 
845  14,3024 

14.3025 

14.3026 
930  14,3027 

14,3030 
936  14,3031 

14.3032 

14.3033 
936  14,3034 

919  14,3035 

14.3036 

14.3037 
936  14,3040 

928  14,3041 

936  14,3U42 

936  14,3043 

14, 3044 
919  14,3045 

740  14,3046 

936  14,3047 

14,3050 
936  14,3051 

14,3052 


0 4616  1 
20624  0 
C 6001  0 
0 3022  1 
C 3045  C 
0 6042  1 
43234  0 
21574  1 
31155  1 
77624  1 
20500  1 
77776  1 
0 4616  1 
30603  1 
0 3035  1 
C 3C45  0 R51F 
0 5567  0 R51I 
00405  0 
3 5006  1 
0 4616  L 
20477  1 
C 6001  0 
0 3045  0 
C 3014  I 
3 4755  I R51E 
55'  757  I 
C 6042  1 R51o2 

77776  1 R51o3 

C 5353  1 
04024  0 


CAF  0CT15 

TC  BANKCALL 

CACR  GOPERFl 

TC  GCTCPOOH 

TC  +2 

TC  R51F 

TC  INTPRET 

RTB  DAD 

LOAOTIME 

TSIGHTl 

CALL 

LOCSAM 

EX  IT 

TC  BANKCALL 

CADR  R56 

TC  P51I 

TC  R51E 

TC  ALARM 

OCT  405 

CAF  VB05N09 

TC  BANKCALL 

CACR  GCFLASI- 

TC  GOTOPCCH 

TC  R51E 

TC  P51C 

CAF  ZERO 

TS  STARING 

TC  INTPRET 

EX  IT 

TC  PPASCHNG 

OCT  04024 


V33E 

ENTER 


REF  173 
REF  1 
REF  257 


LAST  936 

LAST  936 


14.3055 

14.3056 

14.3057 


C 6042  I 
77624  1 
31671  0 
77776  1 
C 4616  1 


TC  INTPRET 

CALL 

P52  AOP  WILL  MAKF  CALLS  TC  SIGHTING 

EXIT 

TC  BANKCALL 


gap: 

L 

0578 

0579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 

0587 

0588 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 

0601 

0602 

0603 

0604 

0605 

0606 

0607 

0606 

0609 

0610 

06U 

0612 

0613 

0614 

C615 

0616 

0617 

0616 

0619 

0620 

0621 

0622 

0623 

0624 

0625 

0626 
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119 


PAGE 


'37 


P51-P53 


USER'S  PAGE  NC.  17 


E5  S3 


PEF  1 
REF  258 
REF  1 
REF  1 
REF  4 

PEF  1 
REF  174 

REF  13 
REF  5 

PEF  79 


LAST  936 

LAST  936 

LAST  936 

LAST  319 
LAST  254 

LAST  936 


14,306L 

14.3062 

14.3063 

14.3064 

14.3065 

14.3066 

14.3067 

14.3070 

14.3071 
14,307? 

14.3073 

14.3074 

14.3075 


16000  0 

0 4616  1 
17703  0 

C 5701  I 
11‘757  1 

1 3067  1 
C 3137  1 
0 6042  1 

77775  1 
02715  0 
02767  0 

77776  I 
0 5353  1 

04024  0 


CADR  AOTMARK 

TC  BANKCALL 

CACR  OPTSTALL 

TC  CURTAINS 

CCS  STARING 

TCF  +2 

TC  R51c4 

TC  INTPRET 

VLCAD 

STARAO  +6 
STORE  STARSAV2 
EXIT 

TC  PHASCHNG 

OCT  04024 


PEF  175 

REF  4 
REF  1 

REF  41 
REF  14 
REF  2 

REF  42 
REF  15 
REF  3 

REF  6 

REF  1 

REF  1 
REF 
REF  1 

REF  1 

REF  3 


PEF  2 
REF  259 
REF  7 
REF  42 
REF  2 
REF  176 

REF  6 
REF  177 


LAST  937 
LAST  930 


LAST  933 
LAST  937 
LAST  147 

LAST  937 
LAST  937 
LAST  198 

LAST  937 


LAST  925 

LAST  183 
LAST  937 
LAST  936 
LAST  936 
LAST  936 
LAST  937 

LAST  936 
LAST  937 


1 


14.3076 

14.3077 
14,31CC 

14.3101 

14.3102 

14.3103 

14.3104 

14.3105 

14.3106 

14.3107 

14.3110 

14.3111 

14.3112 

14.3113 

14.3114 
14,3  115 

14. 3116 

14.3117 

14.3120 

14.3121 

14.3122 

14.3123 

14.3124 
14  ,3  125 

14.3126 

14.3127 

14.3130 

14.3131 
14  ,3132 

14.3133 

14.3134 

14.3135 

14.3136 

14.3137 
14,3140 


C 6C42  1 
45145  0 
C3562  0 
32472  1 
53521  1 
0X734  0 
26715  0 
03554  0 
53521  I 
01734  0 
26707  0 
C2761  0 
24007  0 
02767  0 
34015  1 
31250  1 
45014  0 
00354  0 
31126  0 
47443  1 
77624  1 
21216  0 
77614  1 
01273  0 
77776  I 
3 5741  0 
r 4616  I 
20624  0 
C 6001  0 
C 3014  1 
C 6C42  1 
77650  1 
C2746  0 
0 6042  1 
77775  1 


R51K 

R51P63 


TC  INTPRET 

DLOAO  CALL 

TS  IGHT 
PLANET 
MXV  UNIT 

REFSMMAT 

STOVL  STARAD  +6 
PLANVEC 
MXV  UNIT 

REFSMMAT 
STCVL  STARAC 

STARSAVl 
STOVL  60 

STARSAV2 
STCALL  120 
R54 

BOFF  CALL 

FREEFLAG 
R51K 
AXI SGEN 

CALL 

R55 

CLEAR 

PFRATFLG 

EXIT 

CAF  0CT14 

TC  BANKCALL 

CAOR  GQPERFl 

TC  GOTOPOOH 

TC  R5JC 

TC  INTPRET 

GOTO 


QMAJ 

TC  INTPRET 

VLCAD 


STAR  DATA  TEST 


GYRO  TOROUE 


GAP  : 

L 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0638 


i 
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REF 

PEF 

REF 


LAST 

LAST 


937 

937 

937 


LAST  937 


14,3141 
1^,3142 
14,3143 
14  ,3144 

14.3145 

14.3146 
14,3147' 

14.3150 

14.3151 

14.3152 

14.3153 

14.3154 

14.3155 


02715  0 
02761  0 
45145  0 
03562  0 
32472  1 
03554  C 
77731  1 
C2760  I 
00001  0 
77650  1 
31050  0 
00002  0 
06240  1 


STARAO  +6 

STARSAVl 

CALL 

TS IGHT 

PLANET 

PLANVEC 

STARING 


TSIGHTl  2DEC 


6 MIN  TO  MARKING 


GAP: 

L 

P0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647 

064B 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 

0661 

0662 

0663 

0664 

0665 

0666 

0667 

0666 

0669 

0670 

0671 
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P51-P53 


GYRO  TORQUE  COARSE  ALIGNMENT 


REF  7 LAST 
REF  1 

REF  2 LAST 
PEF  3 LAST 

REF  I 
REF  260  LAST 
REF  2 LAST 
REF  1 
REF  261  LAST 
REF  4 LAST 
RFF  262  LAST 
REF  8 LAST 
REF  2 LAST 
REF  80  LAST 


14,3156 
937  14,3157 

14.3160 

14.3161 
650  14,3162 
925  14,3163 
• 14,3164 

14,3165 
937  14,3166 
478  14,3167 

14,3170 
939  14,3171 
390  14,3172 
939  14,3173 
380  14,3174 
937  14,3175 
937  14,3176 

14,3177 


45020  1 
C2746  0 
47251  1 
43014  0 
01260  1 
01662  1 
77776  1 
2 3215  1 
0 4616  1 
2C452  0 
2 22A1  0 
0 4616  1 
17314  1 
0 4616  1 
17707  1 
C 5701  1 
0 5353  1 
04024  0 


GYC04RS 


STO  CALL 

QMAJ 
CALCGTA 
CLEAR  CLEAR 

ORIFTFLG 

REFSRFLG 

EX  IT 

CAF  V16N20 

TC  BANKCALL 

CACR  GCCSPR 

CA  R55CDR 

TC  BANKCALL 

CACR  IMUPULSE 

TC  BANKCALL 

CACR  IMUSTALL 

TC  CURTAINS 

TC  PHASCHNG 

OCT  04024 


USER  'S  PAGE  NOe  19 


£5  S3 


MONITOR  GIMBALS 


REF  178 

REF  6 
REF  43 

REF  1 

REF  4 
REF  4 

REF  1 

REF  2 


LAST 

LAST 

LAST 


LAST 

LAST 


LAST 


93  7 

927 

937 


937 

939 


937 


14.3200  0 6042  I 

14.3201  75160  1 

14.3202  C3606  1 

14,320?  01733  1 

14.3204  77624  1 

14.3205  31371  0 

14.3206  43014  0 

14.3207  01273  0 

14,321C  C1462  0 

14.3211  77624  1 

14.3212  31603  0 

14.3213  77650  1 

14  ,3214  31126  0 

14,3215  04C24  0 


VJ  6N20 


TC  INTPRET 

AXC.l  AXC,2 
XSMD 

PFFSMMAT 

CALL 

KATMCVE 
CLEAR  SET 

PFRATFLG 

REFSMFLG 

CALL 

NCGARSE 

GOTO 

R51K 
VN  1620 


STORE  DESIRED  RFFSMMAT 


SET  DRIFT  AND  INITIALIZE  1/PIPADT 


gap: 

L 

P0672 

R0673 

R067A 

R0675 

R0676 

R0677 

0678 

0679 

0680 

0681 

0662 

0683 

068A 

0685 

0666 

0687 

0688 

0689 

0690 

0691 

0692 

0693 

069^ 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

070^ 

0705 

R0706 

R0708 

R0710 

R0712 

R0714 

R0716 

R0718 

R0719 

R0720 

R0721 

R0722 

R0723 

R0724 
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P51-P53 


USER  'S  PAGE  NCe 


R55  GYRO  lORQLE 

FUNCTION-COMPUTE  AND  SEND  6YRC  PULSES 
CALLING  SEQ-  CALL  R55 

INPUT-  X,Y,2CC-  REFSMMAT  WRT  PRESENT  STABLE  MEMBER 
CLTPLT-  GYRO  PULSES 
SL0ROLTINES-  CALCGTA,GCFLASH,GCCSPR 
REF  1 


REF 


REF  1 
REF  263 
RFF  30 
REF  A3 
REF  1 
REF  1 
REF 


LAST  935 


LAST  939 


LAST 

LAST 

LAST 


REF  2 
REF  26A 
REF  5 
REF  265 
RFF  9 
REF  3 
REF  82 


939 

936 

937 


81  LAST  939 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


939 

940 

939 

940 
939 

939 

940 


14,3216 

14,3217- 

14.3220 

14.3221 

14.3222 

14.3223 

14.3224 

14. 3225 

14.3226 

14.3227 

14.3230 

14.3231 

14.3232 

14.3233 

14.3234 

14.3235 

14.3236 

14.3237 

14.3240 

14.3241 

14. 3242 


77620 
C2745 
77624 
47251 
77776 
3 3246 
C 4616 
20477 
0 6001 
0 3231 
0 3243 
0 5353 
C0214 
3 3247 
Q 4616 
17314 
0 4616 
17707 
0 5701 
0 5353 
C4C24 


IMUF  INE,  IMUPULSE,G0P£RF1 

COUNT*  St/R55 
0 R55  STQ 


EXIT 

CAF 


CALCGTA 

V06N9? 

BANKCALL 

GOFLASH 

GOTOPOOH 

P55o2 

R 55RE  T 

PHASCHNG 

00214 

R55rDR 

BANKCALL 

I MUPULSE 

BANKCALL 

IMUSTALL 

CURTAINS 

PHASCHN6 

04024 


REF  179  LAST  939  14,32^3  0 6042  1 RSBRET 


8 LAST  940 


11  LAST  390 


14.3244 

14.3245 

14.3246 

14.3247 
14,3250 


kCLTINE  NAME-  CHKSCATA 
MOD  NO-  0 

MCOIFICATICN  BY-  LCNSKE 


C2745 

01535 

C2737 


INTPRET 

OMIN 

0693 

OGC 

CHKSDATA 


DATE-  JAN  9,  1967 
LOG  SECTION-  P51-P  53 
ASSEMBLY- 


FUNCTIONAL  DESCRIPTION  - CHECKS  THE  VALIDITY  OF  A PAIR  OF  STAR  SIGHTINGSo  WHEN  A PAIR  OF  STAR  SIGHTINGS  ARE  MADE 
BY  THE  ASTRONAUT  THIS  ROUTINE  OPERATES  AND  CHECKS  THE  OBSERVED  SIGHTINGS  AGAINST  STCREC  STAR  VECTORS  IN  THE 
CCMPlTER  TC  INSURE  A PROPER  SIGHTING  WAS  MACE.  THE  FOLLOWING  COMPUTATIONS  ARE  PERFORMED, 

051  = OBSERVED  STAR  1 VECTCR 

052  = CBS6RVEC  STAR  2 VECTOR 

551  = STORED  STAR  I VECTCR 

552  = STORED  STAR  2 VECTOR 
A1  = ARCCCS  <CS1.  - 0S2  } 

A2  = ARCCCSISSl  - SS2) 

A = ABS(2(A1  - A2J ) 


GAP: 

L 

R0725 

R0726 

R0727 

R0729 

R0731 

R0732 

R0733 

R073^^ 

R0735 

0736 

0737 

0738 

0739 

0740 

0741 

R0742 

0743 

0744 

0745 

0746 

0747 

0748 

0749 

0750 

0751 

0752 

0753 

0754 

0755 

0756 

0757 

0758 

0759 

0760 

0761 

0762 

0 763 

0764 

0765 

0766 

0767 

0768 

0769 

0770 

0771 

0772 

0773 

0774 

0775 
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USER'  S PAGE  NCc  21  E5  S3 


THE  ANGULAR  DIFFERENCE  IS  DISPLAYED  FOR  ASTRONAUT  ACCEPTENCE 
EXIT  MODE  le  FREEFLAG  SET  IMPLIES  ASTRONAUT  HANTS  TO  PROCEED 

2o  FREEFLAG  RESET  IMPLIES  ASTRONAUT  WANTS  TO  RECYCLE  ERANCE » 

OUTPUT  - leVERB  6, NOUN  3-  DISPLAYS  ANGULAR  DIFFERENCE  BETWEEN  2 SETS  CF  STARS*, 
2oSTAR  VECTORS  FROM  STAR  CATALOG  ARE  LEFT  IN  60  AND  12D, 


ERASABLE  INITIALIZATION  RECUIFEC  - 

loMARK  VECTORS  ARE  STORED  IN  STARAO  AND  STARAD 
2oCATAL0G  VECTORS  ARE  STORED  IN  6C  AND  12Do 


DEBRIS  - 
REF  1 

REF  9 
REF  2 

REF  17 


LAST  940 
LAST  937 

LAST  93B 


14.3250 

14.3251 

14.3252 

14.3253 

14. 3254 


43020  1 
02745  0 
00074  1 
77760  0 
C27C6  1 


CHKSCATA 


CHKSA8 


COUNTO  t$/R54 
STQ  SET 
OMIN 

FREEFLAG 

AXC,1 

STARAD 


REF  1 

REF  3 
REF  1 
REF  4 


REF  2 


REF  1 
REF  3 


REF  4 
REF  1 

REF  5 
REF  1 
REF  266 
REF  31 
REF  44 
REF  1 
REF  180 

REF  6 
REF  10 
REF  181 


LAST  941 
LAST  941 

LAST  9<V1 


LAST  941 


LAST  872 


LAST  941 

LAST  940 
LAST  940 
LAST  940 

LAST  940 

LAST  941 
LAST  941 
LAST  941 


14.3255 

14.3256 

14.3257 

14.3260 

14.3261 

14.3262 

14.3263 

14.3264 

14.3265 

14.3266 

14.3267 

14.3270 

14.3271 

14.3272 

14.3273 

14.3274 

14.3275 

14.3276 

14.3277 

14.3300 

14.3301 

14.3302 
14, 33C3 
14,1304 

14.3305 

14.3306 

14.3307 
14,3310 
14,33U 

14.3312 

14.3313 

14.3314 

14.3315 


47773  1 
COCCI  0 
00007  0 
65552  0 
00025  0 
43014  0 
CC554  C 
31274  I 
0017^  0 
71360  I 
00006  1 
00025  0 
00C23  0 
77650  1 
31255  1 
45345  1 
00C25  0 
CCC23  0 
77634  0 
21613  0 
01045  1 
77414  0 
CQ074  I 
3 3320  0 

0 4616  I 
20477  1 

1 6001  1 
0 3315  0 
0 6042  1 

52014  0 
CC274  C 
02745  0 
0 6042  I 


CHKSB 


CHKSD 


CFKSOA 


VLOAC*  DOT# 

0,1 
6,  1 

SLl  ACCS 
STORE  THETA 
80FF  INVERT 

FREEFLAG 
CHKSO 
FREEFLAG 
AXC,1  DLCAD 
6D 

THETA 
STORE  180 
GOTO 

CHKSB 

OLOAD  OSU 

THETA 

leo 

RT6 

SGNAGREE 
STORE  NORMTEMl 
SET  EXIT 

FREEFLAG 
CAF  VB6N5 
TC  BANKCALL 

CAOR  GOFLASH 
TCF  GOTOPOOH 
TC  CHKSOA 

TC  INTPRET 

CLEAR  GOTO 

FREEFLAG 
QMI  N 

TC  INTPRET 


SET  XI  TO  STORE  EPHEMERIS  DATA 

CALe  ANGLE  THETA 

BRANCH  TO  CHKSD  IF  THIS  IS  2ND  PASS 

CLEAR  FREEFLAG 

SET  XI  TO  MARK  ANGLES 

RETURN  TO  CALo  2ND  ANGLE 

COMPUTE  PCS  DIFF 


GAP : 

L 

0776 

0777 

0778 

ft0779 

R0780 

R0781 

R0782 

R0783 

R078<» 

R0785 

0786 

0787 

0788 

0789 

C790 

0791 

0792 

C793 

0799 

0795 

0796 

0797 

0798 

0799 

0800 

0801 

0802 

0803 

0809 

0805 

0806 

0807 

0808 

0809 

0810 

0811 

0812 

0813 

0819 

0815 

0816 

0817 

0818 

0819 

0820 

0821 

0822 

0823 

0029 
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P51-P53 


REF  11  LAST  941 


19.3316  77650  1 

19.3317  C2795  0 

19,3220  01905  1 VB6N5 


GOTO 

QM  IN 

VN  605 


NAME  - CAL53A 

FUNCTION  -COMPUTE  DESIRED  GIM8AL  ANGLES 
CALLING  SEQUENCE  - CALL  CAL53A 
INPLT  - X.Y.ZSKD  ,CDLX,Y,Z 

DESIRED  GIMBAL  ANGLES  - THETAD,* 
OLTPLT  - THE  I MJ  CCCRCINATES  ARE  STORED 
SLBROLTINES  - S52o2,  IPUGCARSE  , IMUFINE 
REF  1 


REF  2 

REF  1 
REF  8 


REF  10 

REF  1 

REF  1 

REF  1 
REF  2 

REF  83 


LAST  925 

LAST  933 

LAST  360 

LAST  992 
LAST  990 


19.3321 

19.3322 

19.3323 

19.3329 

19.3325 

19.3326 

19.3327 

19.3330 

19.3331 

19.3332 

19. 3333 
19,3339 

19.3335 

19.3336 
19  ,3337 

19.3390 

19.3391 

19.3392 
1 9,  3393 
19,3399 

19.3395 

19.3396 

19.3397 
19,3350 


77629  1 
31620  1 
66239  1 
31905  1 
C0C51  0 
00001  0 
90370  1 
0Q0C3  1 
00005  1 
70593  1 
C0325  0 
73523  I 
00005  1 
51925  0 
95206  1 
21909  0 
71290  1 
31360  0 
51025  1 
31905  1 
31360  0 
77776  1 
0 5353  1 
C9029  0 


AND  COARSE  ALIGN  IF  NECESSAR' 


1 ,+2 

IN  REFSMMAT 


CCLNT*  S$/R50 
CAL53A  CALL 

S52o2 

RTS  SSP 

RDCDUS 

SI 

1 

AXT,1  SETPO 
3 
9 

CALGOP  DLOAO*  SRI 

THETAO  +3C,1 
POOL*  SRI 
9,1 

OSU  AHS 
PUSH  OSU 

DEGREE! 

6MN  DLOAO 

CALCCPl 
OSU  BPL 

DEG359 

CALCOPl 

EXIT 

TC  PHASCHNG 

nCT  09029 


USER’S  PAGE  NO*  2?  E5  S3 


MAKE  ONE  FINAL  COMP  OF  GIMBALE  ANGLES 
READ  CPUS 


REF  182  LAST  991 
REF  1 

REF  2 last  939 
REF  1 
REF  1 

REF  17  LAST  928 
REF  99  LAST  939 

REF  2 LAST  939 


19.3352 

19.3353 

19.3359 

19.3355 

19.3356 

19.3357 

19.3360 

19.3361 

19.3362 

19.3363 
19,3369 

19.3365 

19.3366 


0 6092  1 
77629  1 
21557  1 
77629  1 
21603  0 
77650  1 
31362  I 
77700  0 
31332  1 
75160  I 
C2692  0 
01733  1 
77629  1 
21371  0 


CCARFINE 


CALOOPl 

FINEONLY 


TC 

call 

CALL 

GOTO 

TIX.l 

AXC,1 

CALL 


INTPRE  T 

COARSE 

NCOARSF 


F INEONLY 


CALOOP 

AXC,2 

XSM 

REFSMMAT 


MATMOVE 


GAP: 

L 

0025 

0626 

0827 

0628 

0829 

0830 

0831 

0832 

0833 

0834 

0835 

0836 

0837 

0838 

0839 

C840 

0841 

0042 

0843 

0644 

0845 

0646 

0847 

0648 

0849 

0850 

0851 
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PAGE  943 


P51-P53 


USER  'S  PAGE  NCo  23  E5  S3 


HEF  16  LAST  905 
REF  31  LAST  916 

REF  7 LAST  905 
REF  32  LAST  943 

REF  10  LAST  905 
REF  33  LAST  943 


REF  1 
REF  1 


14.3370 

14.3371 
lA, 3312 

14.3373 

14.3374 

14.3375 

14.3376 

14.3377 

14.3400 

14.3401 

14.3402 

14.3403 

14.3404 

14.3405 
14  ,3406 
14,3407 

14.3410 

14.3411 

14.3412 

14.3413 

14.3414 

14.3415 

14.3416 

14.3417 
14,3420 


7765C  1 
22161  0 
77773  1 
CCCOl  0 
10001  1 
77773  1 
C0007  0 
10007  1 
77773  1 
00015  0 
10015  1 
77616  0 
C0056  1 
37722  1 
C 0004  0 

2 0032  0 
Sr  120  I 
54  001  1 

3 0033  1 
5C  12C  1 
54  002  1 
2 0034  0 
5C  120  I 
54  003  0 
C 0003  1 
0 6064  0 


MATMOVe 


CEGREEl 

0EG359 

ROCOUS 


GOTO 

COAR  SRET 

VLOAD* 

0 ,1 

STORE  0,2 
VLCAC'i' 

60,1 
STORE  60,2 
VLCAO* 

120,1 
STORE  120,2 
RVO 

OEC  46 
DEC  16338 
I NHl NT 
CA  CDUX 

INDEX  FIXLCC 
TS  1 

CA  COUY 

INDEX  FIXLCC 
TS  2 
CA  CDUZ 

INDEX  FIXLCC 
TS  3 

RELINT 

TC  DANZIG 

COUNT*  $$/INFLT 


TRANSFER  MATR  I X 


1 OEG  SCALED  CDU/2 
359  OEG  SCALED  CDU/2 
REAC  CDUS 


GAP : 

ASSEMBLE  REVISION  131  OF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091  17:53  DECe  19,1969  LEMP50S  119  PAGE  9AA 

L 

P51-P53  USER'S  PAGE  NO®  2A  E5  S3 

P0852 

R0e53 

R0855 

NAME  - P51  - IMl  ORIENTATICN  C ETE PM  I N AT  1 CN 

MODoNOol  23  JAN  67  LOG  SECTION  - P51-P52 

MCD  BY  STURLAUGSON  ASSEMBLY  SUNDANCE  REV56 

R0857 

FUNCTIONAL  DESCRIPTICN 

R0858 

R0e60 

R0e62 

R0e64 

DETERMINES  TEE  INERTIAL  ORIENTATION  OF  THE  IMUo  THE  PROGRAM  IS  SELECTED  BY  DSKY  ENTRY,  THE  SIGHTING 
(AOTMARKIROUTINE  IS  CALLED  TC  COLLECT  AND  PROCESS  MARKED-STAR  DATA,  AOTMARK(R53)  RETURNS  THE  STAR  NUMBER  AND  THE 
STAR  LOS  VECTOR  IN  STARAD  + 60  TV.C  STARS  ARE  THUS  SIGHTED,  THE  ANGLE  BETWEEN  THE  TWO  STARS  IS  THEN  CHECKED  AT 
CHKSDATA(fi54)<,  REFSMMAT  IS  THEN  COMPUTED  AT  AXISGEN, 

R0B65 

CALLING  SEQLENCE 

R0866 

THE  PROGRAM  IS  CALLED  BY  THE  ASTRONAUT  BY  OSKY  ENTRY, 

R0867 

SUBROUTINES  CALLED, 

Rne66 

R0869 

R0870 

R0871 

R0872 

R0873 

R0874 

R0875 

R0876 

R0e77 

60PERF3 

GOPERFl 

GCDSPR 

IMUCOARS 

IMUF1N20 

AOTMARK(R53I 

CHKSDATA(R54) 

MKPELEAS 

AXI  SGEN 

MATMOVE 

R0e78 

ALARMS 

R0e79 

NONE, 

RU680 

ERASABLE  IN  IT  I A L I Z AT  ICN 

R0881 

IMU  ZERO  FLAG  SHCULO  BE  SET, 

R0882 

OUTPUT 

R0883 

R0dd4 

REFSMMAT 

REFSMFLG 

R0885 

CbBRlS 

R 0886 
R0887 
R0888 
R0889 
R0690 

WORK  AREA 

STARAD 

STAR  1 NC 

6ESTI 

BESTJ 

0891 

REF  1 COUNT*  1S/P51 

GAP : 

L 

0892 

0893 

089A 

0895 

0896 

0897 

0698 

0899 

0900 

0901 

0902 

0903 

090A 

0905 

0906 

0907 

0908 

0909 

0910 

0911 

0912 

0913 

0914 

0915 

0916 

0917 

0918 

0919 

0920 

0921 

0922 

0923 

0924 

0925 

0926 

0927 

0928 

0929 

0930 

0931 

0932 

0933 

0934 

0935 

0936 

0937 
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USER  'S  PAGE  NOo  25  E5  S3 


PEF  267  LAST  941 
REF  1 


14,3421  0 4616  1 P51 

14  ,3422  33635  1 


TC  PANKCALL 

CACR  IMUCHK 


IS  1 SS  ON  - IF 
ALARM  CODE  210 


NOT  , IMUCHK  W ILL  SEND 
AND  EXIT  VI A GOTOPOOHo 


REF  3 LAST  936 
REF  268  LAST  945 
REF  8 LAST  937 
REF  45  LAST  9^1 
PEF  1 

REF  84  LAST  942 


14-,3A23  3 4761  C 

14,342A  C 4616  1 

14.3425  20624  0 

14.3426  C 60C1  0 

14.3427  1 3453  1 

14.3430  0 5353  1 

14.3431  04024  0 


CAF  nCT15 

TC  BANKCALL 

CACR  GOPEPFl 

TC  GCTCPCCH 

TCF  P51B 

TC  PHASCHNG 

OCT  04024 


REF  178  LAST  936 
PEF  11  LAST  942 
REF  12  LAST  945 
REF  13  LAST  945 
PEF  3 LAST  925 
REF  269  last  945 
REF  3 LAST  752 
REF  1 

REF  270  LAST  945 
REF  4 LAST  945 
REF  183  LAST  942 

REF  2 LAST  942 


REF  85  LAST  945 
REF  2 LAST  235 


14.3432 

14.3433 

14.3434 

14.3435 

14.3436 

14.3437 

14.3440 

14.3441 

14.3442 

14.3443 

14.3444 

14.3445 

14.3446 
14,34A7 

14.3450 

14.3451 

14.3452 


54  322  0 
54  323  1 
3 5010  0 
0 4616  1 
20447  1 
3 3556  1 

0 4616  1 
2C447  1 

r 6042  1 
77624  1 
31557  1 
77776  1 
C 5353  1 
04024  C 

1 3423  0 


TS 

TS 

CAF 

TC 

CACR 

CAF 

TC 

CAOR 


ZERO 
THETAD 
THETAO  +1 
THETAO  +2 
V06N'22 
BANKCALL 
GOCSPRET 
V41K 

BANKCALL 

GOCSPRET 

IN7PRET 

COARSE 


EXIT 

TC  PHASCHNG 

OCT  04024 

TCF  P51  +2 


ZERO  THE  GIMBALS 


NOW  DISPLAY  COARSE  ALIGN  VERB  41 


PEF  86  LAST  945 
REF  184  LAST  945 
REF  3 LAST  942 
REF  6 LAST  938 

REF  87  LAST  945 


14.3454 

14.3455 

14.3456 

14.3457 

14.3460 

14.3461 

14.3462 

14.3463 

14.3464 
14  ,3465 
14,3466 


C 5353  1 
00014  1 
C 6042  1 
77624  1 
31603  0 
40331  1 
C2760  1 
00000  1 
00001  0 
77776  1 
0 5353  1 
C4C24  0 


P5)  e 


P51C 


TC  PHASCHNG 

OCT  oor.14 

TC  INTPRET 

CALL 

NC  CARSE 
SSP  SETPC 

STAPINC 

0 

0 

EXIT 

TC  PHASCHNG 

OCT  04024 


INDEX-STAR  1 OR  2 


REF  2 
REF  272 
REF  1 
REF  4 
REF  7 
REF  1 
REF  185 


LAST  945 
LAST  937 
LAST  945 

LAST  940 
LAST  945 

LAST  945 


14,3467 

14.3470 

14.3471 

14.3472 

14.3473 

14.3474 

14.3475 

14.3476 


0 4616  1 
16000  0 

0 4616  1 
17703  0 

C 5701  1 
11'757  1 

1 3 503  0 
C 6042  1 


TC  BANKCALL 

CACR  AOTMAPK  P53 

TC  BANKCALL 

CACR  AOTSTALL 

TC  CURTAINS 

CCS  STAR  I NO 

TCF  P51D  +1 

TC  INTPRET 


GAP: 

L 

0933 

0930 

0940 

0941 

0942 

0943 

0944 

0945 

0946 

0947 

0948 

0949 

0950 

0951 

0952 

0953 

0954 

0955 

0956 

0957 

0958 

0959 

0960 

0961 

C962 

0963 

0964 

0965 

0966 

0967 

0968 

0969 

0970 

0971 

0972 

0973 

0974 

0975 

0976 

0977 

0978 

0979 

0980 

0981 

0982 

096? 

0984 
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P51-P53 


USER' S PAGF  NCo  26  E5  S3 


REF  18  LAST  941 
REF  5 LAST  938 

REF  68  LAST  945 


14,3477 

14.3500 

14.3501 

14.3502 


77775 
C2715 
02761 

77776 


0 

0 

1 


P51C 


14,35C3  P 535?  1 
14,3504  04024  0 


VLCAC 

STARAD  +6 
STORF  STARSAVl 
EX  IT 

TC  PHASCHNG 

OCT  04024 


REF  8 LAST  945 
REF  1 

REF  89  LAST  946 


14.3505  11*757  1 

14.3506  1 3522  0 

14.3507  0 5353  1 

14,^510  04024  0 


CCS  STARING 

TCF  P51F 

TC  PHASCHNG 

OCT  04024 


REF  106  LAST 

REF  6 LAST 
RFF  3 LAST 
KEF  4 last 

REF  43  LAST 
REF  9 LAST 
REF  1 
REF  90  LAST 


<»45  14,3511 

14,3512 
938  14,3513 

938  14,3514 

938  14,3515 

14,3516 
923  14,3517 

946  14,3520 

14, 3521 
946  14,3522 

14,3523 


0 6042  1 
45145  0 
C3562  0 
32472  1 
C3554  0 
77776  1 

3 4753  1 

55'757  1 

1 3465  I 

0 5353  1 P51E 
C4024  0 


TC  INTPRET 

OLCAD  CALL 

TSIGHT 

PLANET 

STCRE  PLANVEC 
EXIT 

CAF  BITl 
TS  STARINO 

TCF  P51C  +1 
TC  PHASCHNG 

OCT  04024 


DO  SECOND  STAR 


REF  187  LAST 

REF  7 LAST 
REF  4 LAST 

REF  5 LAST 

REF  6 LAST 
REF  19  LAST 
RFF  7 LAST 
REF  20  LAST 
RFF  2 LAST 

REF  7 LAST 

REF  1 

REF  3 LAST 

REF  2 LAST 

REF  4 LAST 
REF  45  LAST 

REF  3 LAST 

REF  5 LAST 
REF  46  LAST 


946  14,3524 

14,3525 
946  14,3526 

946  14,3527 

14,  *^520 
946  14,3531 

14,3532 
946  14,3533 

946  14,3534 

937  14,3535 

946  14,3536 

940  14,3537 
14,3540 

941  14,3541 
14,3542 

945  14,3543 

14,3544 
937  14,3545 

14,3546 
926  14,3547 

942  14,355C 
14,3551 

942  14,3552 

14,3553 
939  14,3554 

945  14,3555 


0 6042  1 
45145  C 
03562  0 
32472  1 
24C15  0 
03554  O 
24007  n 
02761  0 
26707  0 
02767  0 
36715  1 
31250  1 
77414  C 
00314  1 
31544  0 
C 3423  1 
77624  1 P51G 
47443  1 
75160  1 
02664  1 
C1733  1 
77624  1 
?1371  0 
77414  0 
01462  0 
C 6001  0 


TC  INTPRET 

OLCAO  CALL 

TS  IGHT 
P LANET 
STOVL  12D 

PLANVEC 
STCVL  6D 

STARSAVl 
STOVL  STARAD 

STARSAV2 

STCALL  STARAD  +6 
CHKSOATA 
BON  EXIT 

FREEFLAG 

P51G 

TC  P51  +2 

CALL 


AXISGEN 
AXC.l  AXC,2 
XDC 

REFSMMAT 

CALL 

MATMGVE 
SET  EXIT 

REFSMFLG 
TC  GOTOPCOH 


CHECK  STAR  ANGLES  IN  STARAD  AND 


COME  BACK  WITH  REFSMMAT  IN  XDC 


FINIS 


LePPSOS  - 119  PAGE  947 


GAP:  assemble  revision  131  CF  AGC  PpCGPAM  LUMINARY  BY  NASA  2021112-091  17:53  OECo  19,1969 


L P51-P53 


USER'S  PAGE  NCo  27 


E5  S3 


0985 

0986 

0987  REF 
0968 

0989  PEF 

0990  REF 

0991  REF 

0992  REF 

0993  REF 

0994  RFF 

0995  REF 
C996  REF 

0997  REF 

0998  REF 

0999  REF 
IlOO  REF 

1001  REF 

1002  REF 

1003  REF 

1004  REF 

1005 

1006 

1007  REF 

1008  RFF 
1309  REF 

1010  REF 

1011  REF 

1012  PEF 

1013  REF 

1014 

1015  REF 

1016  REF 

1017 

1018  REF 


5 LAST 
3 

18  LAST 

273  LAST 
14  LAST 

3 LAST 

274  LAST 

4 LAST 

275  LAST 

10  LAST 

5 LAST 

276  LAST 
3 LAST 

277  LAST 

11  LAST 

6 LAST 
188  LAST 


15  LAST 
9 LAST 
179  LAST 
14  LAST 
5 LAST 
8 LAST 

109  last 

3 LAST 
24  LAST 

3 LAST 


276 


894 

945 

752 

945 

947 

380 

947 

940 

945 
947 
380 
947 
947 
947 

946 


894 

858 

945 

894 

894 

895 
947 

689 

385 

939 


14.3556 

14.3557 

14.3560 

14.3561 

14. 3562 

14.3563 

14.3564 

14.3565 

14.3566 

14.3567 

14.3570 

14.3571 

14.3572 

14.3573 

14.3574 

14.3575 

14.3576 

14.3577 

14.3600 

14.3601 
14,36C2 

14.3603 

14.3604 

14.3605 

14.3606 

14.3607 

14.3610 

14.3611 

14.3612 

14.3613 

14.3614 

14.3615 
14  ,3616 
14,3617 


12200  0 
77776  1 
3 1301  1 
C 0006  1 
I 3567  I 
3 4777  1 
C 4616  1 
01736  1 
1 3560  0 
0 4616  1 
16771  1 
C 4616  1 
17707  I 
0 5701  1 
C 4616  1 
17201  1 
0 4616  1 
17707  1 
C 5701  1 
0 6042  1 
77616  0 
77776  1 

3 0C25  0 
55*074  1 

4 4755  0 
54  037  1 
54  040  1 
54  041  0 
C 6C42  1 

77775  1 
24007  0 
C1472  I 
43414  1 
C1060  0 


V41K 
CCARSE 
+ 1 


DCCCRS 


NCOARSE 


VN  4100 

EXIT 

CA  MODECAOR 

EXTEND 

8ZF  DOCCRS 

CAF  ISEC 

TC  8ANKCALL 

CADR  DELAYjce 

TCF  COARSE  +1 
TC  BANKCALL 

CADR  IMUCOARS 

TC  BANKCALL 

CADR  IMUSTALL 

TC  CURTAINS 

TC  BANKCALL 

CADR  IMUFINE 

TC  BANKCALL 

CADR  IMUSTALL 

TC  CURTAINS 

TC  INTPRET 

RVQ 
EXIT 

CA  TIMEl 

TS  1/FIPADT 

CS  ZERO 

TS  PIPAX 

TS  PIPAY 

TS  PIPAZ 

TC  INTPRET 

VLOAO 

ZERCVEC 
STORE  GCCMP 

SET  RVQ 

DRIFTFLG 


SEE  IF  IMU  DEVICE  IS  IN  USEo 

NOT  IN  USE,  DO  COARSE  ALIGN 
IN  USE,  DELAY  CNE  SEC 


gap: 

L 

P1019 

R102f’ 

R1021 

R 1022 

R1023 

R102A 

1025 

1026 

1027 

1026 

102  9 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19il969 


LEMP50S  c 119  PAGE  946 


F51-P53 


USER' S PAGE  KCo  28  65  S3 


NAM£-S52o2 

FUNCTION-COMPUTE  GlMfiAL  ANGL 

CALL-  CALL  S52«2 

INPUT-  x,Y,ZSM0 

OUTPUT-  OGC. IGCtMGC.THETAO, + 

SLBROLT INES-CDLTR IG  fCALCSMSC 

REF  1 


REF  8 LAST 

REF  5 LAST 

REF  2 LAST 

REF  9 LAST 

REF  4 LAST 

REF  46  LAST 

REF  5 LAST 

REF  1 

REF  7 LAST 

REF  18  LAST 

REF  4 LAST 

REF  2 LAST 

REF  9 LAST 


14,3620 
939  14,3621 

932  14,3622 

14,3623 

932  14,3624 
14,3625 
14  ,3626 

942  14,3627 

14,3630 
14,^631 

933  14,3632 

946  14,3633 

14,3634 
948  14,3635 

14.3636 

14.3637 
14,3640 

939  14,3641 

942  14,3642 

14,3643 
946  14,3644 

* 14,3645 

376  14,3646 

14,3647 
948  14,3650 


ES  FOR  OES 


l,  + 2 

,MATMCVE»C 

45020  1 
02746  0 
47541  1 
77624  1 
20030  0 
66370  C 
00022  1 
0005T  0 
00006  1 
61373  1 
C27C7  C 
C1734  0 
77656  1 
C67C7  1 
77700  0 
31631  1 
75160  1 
03606  1 
02642  0 
77624  1 
31371  0 
77624  1 
47355  1 
77650  1 
02746  0 


IREO  SM  AND  PRESE 


ALCGA 

COUNT* 

S52o2  STQ 

CALL 

AXT,1 

S52a2A  VLOAD* 

UNIT 

STORE 

TIX,1 

S52q2oI  AXC.l 

CALL 

CALL 

GOTO 


NT  VEHICLE 


f S/S52ol 
CALL 
QMAJ 
CDUTRIG 

CALCSMSC 

SSP 

180 

SI 

60 

VXM 

XNB  +180,1 
PEFSMMAT 

XNB  +18C,l 

S5262A 
AXC  ,2 
XSMD 
XSM 

MATMCVE 
CALCGA 
OMA  J 


GAP : 

L 

P1051 

R 1052 

R1053 

R1054 

R1055 

R1056 

R1057 

R1058 

R1059 

R 1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1066 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 


ASStr'DLE  REVISION  131  OF  AGC  PRCGRAf^  LUMINARY  BY  NASA  2021112-091 
P51-P53 


17:53  DEC«  19,1960  LEMP50S  ^ 1 19  PAGE 
USER  •$  PAGE  NO,  29  E5  S3 


949 


NAME-S52o3 

FUNCTION  XSM0=  UNIT  R 

YSMO=  UN  IT(  V X -R  ) 
ZSMO=  UNIKXSMD  X 
CALL  OLOAD  CALL 

TALIGN 

S52,3 

INPUT-  TIME  OF  ALIGNMENT  I 
OUTPUT-  X.Y.ZSMO 


SLBRCUTINES- 
REF  1 

REF  10  LAST 
REF  48  LAST 
REF  5 LAST 

PEF  30  LAST 
REF-  e LAST 
REF  22  LAST 

REF  31  LAST 
REF  4 LAST 
REF  9 LAST 

REF  5 LAST 
REF  4 LAST 
REF  11  LAST 


CSMCCMC 

14,3651 
9A8  14,3652 

930  14,3653 

594  14,365A 

14,3655 
930  19,3656 

948  14,3657 

832  14,3660 

14,3661 

949  14,3662 

926  14,3663 

949  14,3669 

19,3665 
949  19,3666 

926  14,3667 

949  19,3670 


YSMD) 


N MFAC 


77620 

02746 

39C41 

27077 

53575 

OOOCl 

27607 

00007 

53935 

00001 

27615 

03607 

53435 

C3615 

37623 

C2796 


0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 


COUNT*  $S/S52,3 
S52e3  STO 

OMAJ 

STCALL  TDECl 

LEMCONIC 
VLCAC  UNIT 
RATT 
STOVL  XSMO 
VATT 
VXV  UNIT 

RATT 
STOVL  YSMO 
XSMD 
VXV  UNIT 

YSMD 
STCALL  ZSMD 
QMAJ 


gap: 

L 

P1078 

R1079 

R1C‘80 

R1081 

R1082 

R1083 

R1064 

R1085 

R1086 

R10e7 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 


ASSEMBLE  REVISION  131  OF  AGO  PROGRAM  LUMINARY  8Y  NASA  2021112-091 
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P51-P53 


USER'  S PAGE  NCc  30  E5  S3 


NAME  -R52  (AUTOMATIC  OPTIC'  PCSITICMNG  ROUTINE) 


CPTIC  AXIS  BY  MANEUVERING  THE  LEM  TO  A NAVIGATION 
BY  ALIGNMENT  PROGRAMS  OR  DSKY  INPUT 


CALL  ING  -CALL  R52 


NPLT 

OUTPUT 


-BESTI  AND  BESTJ  (STAR 
-STAR  CODE  IN  BITSl-6, 
(NO  CHECK  IS  MADE  TC 
POINTVSM-1 /2  UNIT -NAV 
SCAXI'-AOT  OPTIC  AXIS 


CODES  TIMES  6) 

DETENT  CODE  IN  BITS  7-9 

NSURE  THE  DETENT  CODE  TO  BE  VALID) 

STAR  VEC  IN  SM 

VEC  IN  NB  X-2  PLANE 


SLBRGUT  -B60LEM 


REF  1 
REF  1 

REF  10  LAST  946 
REF  9 LAST  935 

REF  1 

REF  33  LAST  990 
REF  2 LAST  100 


1^,  3671 

14.3672 

14.3673 

14.3674 

14.3675 

14.3676 

14.3677 
14,3700 


77420  1 
03665  1 
51*757  0 
3 1755  1 
0 0006  1 
7 3772  1 
6 4744  1 
54  734  0 


R52 


CCUNT*  $S/R52 
STO  EXIT 

SAVQR52 
INDEX  STARIND 
CA  BESTI 

EXTEND 

MP  1 /6TH 

AD  BITS 
TS  STARCCDE 


PICK  UP  STARCQDE  DETERMINED  BY  P56 


SET  DETENT  POSITION  2 
SCALE  AND  STORE  IN  STAPCODE 


REF  1 

REF  278  LAST  947 
REF  22  LAST  941 
REF  47  LAST  946 
REF  1 
REF  1 


14,  3701  2 3773 

14.3702  0 4616 

14.3703  20477 
1^,3704  C 6001 

14.3705  1 3707 

14.3706  1 3701 


1 R52A  CAF 

1 TC 

1 CACR 

0 TC 

0 TCF 

C TCF 


VC1N7C 

BANKCALL 

GOFLASF 

GOTOPOOH 

R528 

P52A 


DISPLAY  STARCOCe  AND  WAIT  FOR  RESPONSE 
V34-TERMI NATE 
V33-PR0CEED  TO  ORIENT  LEM 
ENTER-SELECT  NEW  ST  AR  CODE-RECYCL  E 


REF  95  LAST  888 
REF  7 LAST  749 
REF  3 LAST  950 
REF  3 LAST  685 

REF  23  LAST  858 
REF  160  LAST  919 


14,3707 

14.3710 

14. 3711 

14.3712 

14.3713 

14.3714 

14.3715 


0 5516  0 
00124  0 
3 0734  I 
7 7747  0 
C CC06  1 
7 4743  1 
54  001  1 


R52e 


TC  OOWNFLAG 

ADRES  3AXISFLG 
CA  STARCODE 

MASK  hIGH9 
EXTEND 
MP  8IT9 

TS  L 


6IT6  OF  FLAGWRD5  ZERO  TO  ALLOW  VFCPOINT 
GRAB  DETENT  CODE 


TEMP  STORE  DETENT 


REF 


14.3716  C OOC6  1 

14.3717  6 3735  0 


EXTEND 

BZMF  GETAZEL 


CODE  0,  COAS  CALieRATICN 


RFF 

HEF 


2 LAST 


2 LAST 


247 

950 


14.3720  6 5650  1 

14.3721  C 0006  1 

14.3722  1 3735  1 


AC 

EXTEND 

BZF 


N6G7 

GETAZEL 


CODE  7,  COAS  SIGHTING 


REF  17 
REF  16 
REF  52 


LAST  261 
LAST  896 
LAST  913 


£7,1551 

14.3723 

14.3724 


3 5016  0 
54  003  0 


EBANK=  XYMARK 
CA  eBANK7 
TS  EBANK 


gap: 

L 

1118 

1119 

1120 

1121 

1122 

1123 

112A 

1125 

1126 

1127 

1128 

112«5 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 


17:53  OECo  19,1969  LEMP50S  <,119  PAGE  951 


ASSEMBLE  REVISION  131  CF  AGC  PPCCRAf'  LUMINARY  BY  NASA  2021112-091 


P51-P53 


USER'S  PAGE  NOe  31  E7  S3 


REF  161 
REF  4 
REF  162 
REF  19 
REF  12 
REF  53 
REF  36 
REF  163 
REF  1 


LAST  950 
LAST  248 
LAST  951 
LAST  948 
LAST  889 
LAST  950 
LAST  830 
LAST  951 


14.3725 

14.3726 

14.3727 
E5  ,1642 

14.3730 

14.3731 

14.3732 

14.3733 

14.3734 


EC  OCl  0 
3 1403  1 
54  OCl  1 

3 5014  1 
54  0C3  C 
3 4737  0 
56  CCl  0 
1 3745  0 


eeANK= 

CA 


AOTAZ  -1 
L 

XSM 

EBANK5 
EBANK 
BITl  3 
L 

AZEL 


PICK  UP  AZ  CORRESPONDING  TO  DETENT 


CHANGE  TO  EBANK5  BUT  DONT  DISTURB  L 

SET  ELV  TO  45  DEG 

SET  C(AI  = AZ,  C(L  1=45  DEG 

GO  COMP  OPTIC  AXIS 


REF  1 

REF  279  LAST  950 
REF  33  LAST  950 
REF  48  LAST  950 

REF  3 LAST  950 


14.3735  3 3774  0 

14.3736  C 4616  1 

14  ,3737  29477  1 

14.3740  C 6001  0 

14.3741  1 3743  0 

14,^742  1 3735  1 


6ETAZ 


EL 


CAF  V06NB7 

TC  BANKCALL 

CACR  GOFLASH 

TC  GGTOPOOh 

TCF  +2 

TCP  GETAZEL 


CODE  0 OR  7,  GET  AZ  AND  EL  KEY  IN 


V34-TERMINATE 
PROCEEO-CALC  OPTIC  AXIS 
ENTER-RECYCLE 


REF  4 LAST 
REF  34  LAST 

REF  190  LAST 

REF  2 LAST 

REF  26  LAST 
REF  5 LAST 

REF  47  LAST 
REF  7 LAST 


14,3743 
319  14,3744 

943  14,3745 

14,3746 

947  14,3747 
14,3750 

249  14,3751 

14  ,3752 
936  14,3753 

946  14,3754 

14,3755 

948  14,3756 

783  14,3757 


C CC06  1 
' 1345  1 
5C  120  I AZEL 
52  011  0 
0 6042  I 
77624  1 
10522  C 
45034  1 
21574  I 
32472  1 
53521  1 
C1734  C 
03773  1 


EXTEND 
DCA  AZ 

INDEX  FIXLCC 
OXCH  8D 
TC  INTPRET 

CALL 


OANB 
RTB  CALL 

LOAOTI ME 
PLANET 
MXV  UNIT 

PFFSMMAT 
STORE  POINTVSM 


PICK  UP  AZ  AND  EL  IN  SP  2S  COMP 
JAM  AZ  AND  EL  IN  8 AND  9 OF  VAC 


GO  COMPUTE  OPTIC  AXIS  AND  STORE  IN 
SCAXIS  IN  NB  CCCRCS 


STORE  FOR  VECPOINT 


REF  280  LAST  951 
REF  6 LAST  784 


14.3760 

14.3761 

14.3762 


77776  1 
0 4616  1 
54123  0 


EXIT 

TC  BANKCALL 

CACR  R60LEM  GO  TORQUE  LEM  OPTIC  AXIS  TO  STAR  LOS 


RFF  4 
REF  4 

REF  2 


LAST  950 
LAST  950 

LAST  950 


14.3763 

14.3764 

14.3765 

14.3766 


3 7747  1 
7 0734  0 
C 0006  1 
1 3701  0 


CAF  HIGH9  IF  COAS  CALIBRATION  CODE  0,  RECYCLE 

MASK  STARCODE 

EXTEND 

BZF  R52A 


REF  191  LAST  951 
REF  2 LAST  950 


14  ,3767  0 6042  1 
14,377C  7765C  1 
14,3771  03665  1 


TC  INTPRET  RETURN  FROM  KALCMANU 

GCTO 

SAVOR52  RETURN  TC  CALLER 


14 .3772 

14.3773 

14.3774 


05253  0 1/6TH 

C0306  I V01N70 
01527  0 V06N87 


<,1666667 

0170 

687 


GAP: 

L 

P1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

117? 

1174 

1175 

U 76 

1177 

1178 

1179 

1180 

1181 

1162 

1183 

1184 

1185 

1166 

1167 

1188 

1169 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 


aSSEPDLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  6Y  NASA  2021112-091 
P51-P53 
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USER'S  PAGE  NO*  32  E5  S3 


LUNAR  SURFACE  STAR 


AQUISITION 


15,2245 

RFF  3 LAST  922  15,2000 

15,2245 

HCF  2 LAST  251  TO  252:  40  40* 


OANK  15 
SETLOC  P50S 
BANK 

COUNT*  $t/R59 


REF  15  LAST  871 
REF  3 LAST  215 
REF  264  LAST  «>23 
REF  1 


15.2245 

15.2246 

15.2247 
15,2250 


4 0C77  0 
7 4737  1 
1C  COO  0 
I 2455  C 


R59 


CS  FLAGWRD3 

MASK  REFSM8IT 
CCS  A 

TCF  P59rUT 


IF  REFSMMAT  FLAG  CLFAR  BYPASS  STAR  AQUIR 
NO  REFSMMAT  GO  TC  ACTMARK 


REF  1 
REF  281  LAST 
REF  34  LAST 
REF  49  LAST 
REF  1 
REF  1 


15  ,2251 
951  15,2252 

951  15,2253 

951  15  ,2254 

15.2255 

15.2256 


3 2463  1 
C 4616  1 
20477  1 
0 6001  0 
1 2257  1 
1 2245  1 


CAF  V01N7C* 

TC  BANKCALL 

CACR  GOFLASH 

TC  GOTOPOOH 

TCF  P59A 

TCF  P59 


SELECT  STAR  CODE  FCR  ACQUISITION 


V34-TERM INATE 

V33-PR0CEED 

V32-RECYCLE 


REF  5 LAST  951 
REF  9 LAST  318 

REF  2 LAST  295 
REF  164  LAST  951 
REF  11  LAST  950 
REF  . 10  LAST  950 
REF  35  LAST  951 
REF  25  LAST  933 

REF  2 LAST  952 

REF  1 

REF  3 LAST  952 


15.2260 

15.2261 

15.2262 

15.2263 

15.2264 

15.2265 

15.2266 

15.2267 
15,2270 
15  ,2271 

15.2272 

15.2273 
15  ,2274 
15,2275 


4 7747 
7 0734 
0 0006 
7 6245 
56  001 
51»757 


55'755 
50  120 
54  046 
C 0006 
1 2455 
4 0000 
6 2557 
0 0006 
6 2455 


0 

0 

1 

0 

0 

0 

0 

1 

1 

1 

0 

0 

1 

I 

1 


R59A 


CS  HIGH9 

MASK  AOTCOOE 

EXTEND 

MP  REVCNT 

XC  F L 

INDEX  STARIND 

TS  BESTl 

INDEX  FIXLOC 

TS  XI 

EXTEND 

0ZF  R590UT 

COM 

AO  DEC227 

EXTEND 

eZMF  R59CUT 


GRAB  STARCODE  FOR  INDEX 

JUST  6 


CODE  X 6 FOR  CATLOG  STAR  INDEX 
BYPASS  AOUISITICN  IF  NCT  CATLOG  STAR 


REF  192 

REF  11 
REF  48 

REF  3 
REF  3 


LAST  951 

LAST  935 
LAST  951 

LAST  779 
LAST  242 


15,2277 

15.2300 

15.2301 

15.2302 
15,23C3 
15  ,2304 
15,2305 


20347  1 
01734  0 
45056  0 
47650  I 
02731  0 
77776  1 


TC  INTPPET 

VLCAD*  MXV 

CATLCG.l  GRAB  STAR  VECTOR 

REFSMMAT  TRANSFORM  TO  SM 

UNIT  CALL 

COU*SMNB 

STORE  STAR  TEMP  STORE  STAR  VECINBI 

EXIT 


REF  44  LAST  946 
REF  2 LAST  310 


15.2306  3 4753  1 

15.2307  S5'241  0 


CAF  BITl 

TS  POSCODE 


INITIALI ZF  AZ 


POSITION  CODE  TO  1 (-60  > 


REF  18  LAST 
PEF  17  LAST 
REF  54  LAST 


950  E7,1551 

950  15,2310 

951  15,2311 


3 5016  0 INCAZ 
54  003  0 


EeANK=  XYMARK 
CA  EBANK7 
TS  EBANK 


GAP  : 

L 

1202 

1203 

120A 

1205 

1206 

1207 

1208 

1208 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 
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LEHP50S 


119  PAGE  953 


P51-P53 


USER’S  PAGE  NCo  33 


E7  S3 


REF  3 
REF  5 
REF  165 


LAST  952  15»2312  51'24l  1 

LAST  951  15,2313  3 1403  1 

LAST  952  15, -2314  54  001  1 


INDEX  POSCODE 

CA  A0TA2  -1  PICK  UP  AZ  CORRESPONDING  TO  POSCODE 

TS  L 


REF  13 
REF  55 


LAST  951  E5,1642 

LAST  951  15,2315  3 5C14  1 

LAST  952  15,2316  54  003  0 


EeANK=  XSM 
CA  EBANKS 

TS  EBANK 


REF  37  LAST  951 
REF  166  LAST  953 
RFF  12  last  942 
REF  36  LAST  952 


15,2317  3 4737  0 

15.2320  56  001  0 

15.2321  55'745  1 

15.2322  SC  12C  1 

15.2323  52  011  0 


CA  eiT13 

XCH  L 

TS  OMIN 

INDEX  FIXLCC 
DXCH  8D 


SET  ELV  TO  45  DEG 

SFT  C(A)=AZ,  C(L)=45  DEG 

STORE  OMIN=AZ  FOR  LATER 


JAM  AZ  IN  8D,  45  CEG  IN  90  FOR  OANB 


REF  193  LAST  952 
REF  3 LAST  951 

REF  4 LAST  952 
REF  24  LAST  783 


15.2324  C 6042  1 

15.2325  77624  I 

15.2326  10522  0 

15.2327  50375  0 

15.2330  C2731  0 

15.2331  03765  0 

15.2332  65552  0 

15.2333  00031  0 


TC  INTPRET 

CALL 

OANB 

VLCAC  DOT 
STAR 
SCAX IS 
SLl  AftCCCS 

STORE  240 


GO  CALC  OPTIC  AXIS  URT  NB 
COT  STAR  HITH  CA 

TFMF  STORE  AP CCOS ( ST AR« CPT AX  I S I 


REF  2 LAST  252 
REF  1 

REF  1 
REF  1 

REF  1 


15.2335 

15.2336 

15.2337 
15,2340 
15  ,234) 

15.2342 

15.2343 
15  ,2344 

15.2345 

15.2346 

15.2347 


32420  0 
45345  1 
0C031  0 
32470  0 
71240  1 
32413  0 
00031  0 
42405  0 
11220  1 
24031  0 


OSU  BPL 

DEG30 

NXAX 

DLCAO  OSU 
24D 
0EG*5 

BMN  DLOAC 
ZSPCR 
24D 

OMP  SL4 
3/4 

STCVL  24C 


SEE  IF  STAR  IN  AOT  F I EL O-OF-V I EW 
NOT  IN  FIELD  - TRY  NEXT  POSITION 
SEE  IF  STAR  AT  FIELD  CENTER 


CALC  SPIRAL  AND  CURSOR 
6C  ZERO  CURSOR  AND  SPIRAL 
GET  SPIRAL 

12  SCALED  AT  16 

12  ( ARCCOSI  AOo  STAR  n SCALED  IN  REVS 


REF  25 
REF  3 
REF  26 

REF  27 
REF  5 


LAST  953 
LAST  37 
LAST  953 

LAST  953 
LAST  953 


15,235C  C3765  0 

15  ,2351  53435  0 

15.2352  24005  1 

15.2353  47206  0 

15.2354  03765  0 

15.2355  77676  0 

15.2356  63256  0 

15.2357  C3765  0 

15,2360  53435  C 

15  ,236)  02731  0 

15.2362  50206  0 

15.2363  OnOOl  0 

15.2364  65552  0 

15.2365  24033  1 


SCAXl  S 
VXV  UNIT 

XUMT 

PUSH  VXV 

SCAXIS 

VCCMP 

UNIT  POVL 

SCAX  IS 
VXV  UNIT 

STAR 

PUSH  DOT 

0 

SLl  ARCCOS 

STCVL  26D 


□ A 


CA  X UNITX  PO  0-5 

UNITIOA  X(GA  X UNITX))  PD  6-11 


l/2(nA  X STAR)  PO  12-17 

DOT  WITH  1/2(0A  X UMTX  ) FOR  YROT 

STORE  THET  SCALED  IN  REVS 


GAP: 

L 

12A7 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1266 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 
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REF  1 

REF  2 LAST  251 


15.2366  77641  I 

15.2367  71244  0 

15.2370  32375  1 

15.2371  32047  0 

15.2372  77625  0 

15.2373  00033  1 

15.2374  00C33  1 


OCT 

8PL  DLCAO 
R59D 

ABOUTGNE 

DSU 

26D 

STORE  26C 


UP  12-17,  UP  6-U  FOR  C2 
IF  THEY  NEG-GET  360-THET 


360-THET  SCALED  IN  REVS 


REF  13  LAST  953 

REF  2 LAST  375 

REF  3 LAST  318 

REF  3 LAST  954 

REF  3 LAST  318 

REF  1 


15.2376 

15.2377 
15,2400 
15,24C1 
15, 24C2 
15  ,2403 

15.2404 

15.2405 
15  ,2406 
15, 24C7 

15.2410 

15.2411 
15,2A12 


70535 
02746 
41A15 
00033 
77634 
21615 
15236 
00031 
77615 
77634 
21615 
01240 
77776 
I 2437 


C 

0 

I 

I 

0 

0 

1 

0 

0 

0 

0 

0 

1 

1 


R59C 


SLOAD 

DAO 

RTE 

STOOL 

DAO 

RTB 

STORE 
EX  IT 
TCF 


SRI 
OMIN 
PUSH 
2 60 

1STC2S 

CURSOR 

240 


1STC2S 

SPIRAL 

79DI SP 


RESCALE  AZIN)  TO  REVS 
PUSH  YROT  + AZIN)  REVS 


YROT  IN  1/2  PFVS 
LOAC  SROT  IN  REVS 
12ISEP)  + YRCT 


SROT  IN  1/2  REVS 

GO  CISPLAY  CURSC)i-SPIRAL-PQS  CODE 


REF  180  LAST 

REF  4 LAST 

REF  4 LAST 

REF  2 LAST 


15  ,2413 
947  15,2A14 

954  15,2415 

954  15  ,2416 

954  15,2<il7 


77776  1 
3 4755  1 
55*235  0 
55*237  1 
I 2437  1 


ZSPCR 


EXIT 

CAF  ZERC 

TS  CURSOR 

TS  SPIRAL 

TCF  79CISP 


STAR  ALMOST  OPTIC  AXIS, ZERO  CURSOR 
AND  SPIRAL  ANGLES 


REF  4 LAST  953 
REF  5 LAST  954 
REF  12  LAST  853 


REF  1 
REF  1 


15.2421 

15.2422 
15  ,2423 

15.2424 

15.2425 
15  ,2426 


25*241 
^ 1241 
6 4757 
C 0006 
6 2427 
1 2310 


1 

1 

0 

0 

1 

1 

0 


NXAX 


EXIT 

INCR  POSCCCE 

CS  POSCODE 

AD  SEVEN 

EXTEND 

8ZMF  R59ALM 

TCF  INCAZ 


THIS  STAR  NOT  AT  ANY  PCSITION 


REF  38  LAST  936 

REF  2 LAST  536 
PEF  202  LAST  952 
REF  35  LAST  952 
REF  50  last  552 
REF  4 LAST  952 
REF  2 LAST  952 


15,2A27  0 5567 

15.2430  00404  I 

15.2431  3 5006  1 

15.2432  0 4616  1 

15.2433  20477  1 

15,2A34  1 6C01  1 

15.2435  1 2455  0 

15.2436  1 2245  1 


tc  alarm 

OCT  404 

CAF  veo5Nn9 

TC  6ANKCALL 

CACR  GOFLASh 

TCF  GOTCPCCH 

TCF  R590UT 

TCF  R59 


0 R55ALM 


THIS  STAR  CANT  8E  LOCATED  IN  ACT  FIELD 
DISPLAY  ALARM 


VB34-TERMINATE 

VB33-PROCEED,  GO  WITHOUT  AQUIRE 
V622-RECYCLE  AND  TRY  ANOTHER  STAR 


REF  1 

REF  283  LAST  954 
REF  36  LAST  954 
REF  51  LAST  954 


15,2437  3 2464  0 
15,2440  0 4616  1 
15,24Al  2C477  1 
15,2442  1 6001  1 


79DI SP 


CAP  V06N79 

TC  BANKCALL 

CACR  GOFLASH 
TCF  GOTOPOOH 


CISPLAY  CURSOR,  SPIRAL  AND  POS  CODE 


V34-TeRMI  NATE 


gap: 

L 

1292 

1293 

129^ 

1295 

12  96 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

^30<^ 

1306 

1306 

1307 

1306 

1309 

1310 

1310 

1311 

1311 

1312 

1313 

1314 

1315 


155 
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V33-PR0CEED  TO  MARK  ROUTINE 
V32~RFCYCLE  TO  TOP  OF  R5Q  AGAIN 


REF  13 
REF  6 

REF  34 
REF  6 
REF  10 
REF  167 
REF  11 


LAST  954 
LAST  954 

LAST  893 
LAST  952 
LAST  952 
LAST  953 
LAST  955 


15 .2445 

15.2446 
15,24^7 

15.2450 

15.2451 
15  ,2452 

15.2453 

15.2454 


3 4757  0 
7 1241  0 
C 0006  1 
7 4745  1 
i 7747  0 
7 0734  0 
6 COCl  0 
54  734  0 


R59E 


CAF  SEVEN 

MASK  POSCCOE 

EXTEND 
MP  BIT7 

CS  HIGH9 

MASK  AOTCOOE 

AD  L 

TS  AOTCODE 


GFT  DETENT  CODE  CORRESPONDING  TO  POSCOOE 

DETENT  CODE  NOW  IN  L 
ISOLATE  STAR  NO  IN  BIT  1-6 
STORE  DETENT  7-9 


REF  284  LAST  954 
REF  3 LAST  945 
REF  285  LAST  955 
REF  2 LAST  945 
PEF  7 LAST  947 
REF  1 


15.2455 

15.2456 

15.2457 

15.2460 

15.2461 

15.2462 


C 4616  1 
160C0  0 
0 4616  1 
17703  0 

0 5701  1 

1 3037  1 


R590UT 


TC  BANKCALL 

CADR  ACTMAPK 

TC  BANKCALL 

CADR  AOTSTALL 

TC  CURTAINS 

TCF  R59RET 


GO  TO  AOTMARK  FOP  SIGHTING 


SLEEP  TILL  SIGHTING  DONE 
8ADEN0  RETURN  FPCM  AOTMARK 
RETURN  TO  1 STAR  OR  2STAR 


REF  16  LAST  92  8 
KEF  17  LAST  955 
REF  18  LAST  955 


15.2464 

15.2465 

15.2466 
15  ,2  467 

15.2470 

15.2471 
1235 
1237 
1241 


C03C6  1 
01517  0 
C2525  1 
12525  0 
00026  0 
30131  J 
12525  0 


V01N70* 

V06N79 

C6G30 


DEGo5 


06060 

CURSOR 

SPIRAL 

POSCODE 


170 

679 

,,083333333 


2CEC  o00i38eee 

OCT  12525 
EQUALS  GOT/2 
EQUALS  GDT/2  +2 
EQUALS  GDT/2  +4 


30  DEGRESS 

,5  DEGRESS  SCALED  IN  REVS 
60  DEG  CDU  SCALING 


GAP  ; 

I 

P1316 

R1317 

kl318 

R1319 

R1320 

R1321 

R1322 

R1323 

R1324 

R1325 

R1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 
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P51-P53 


USER'S  PAGE  Nn« 


NAPE  - PLANET 

ELNCTION  -TO  PROVIDE  THE  REFERENCE  VECTCR  FOR  THE  SIGHTED  CELESTIAL 
BOOYo  STARS  ARE  FETCHED  FROM  THE  CA TALOG  , SUN , EAR TH  ANC 
PCCN  ARE  CCMPUTEC  £Y  LOCS  AM,  PL  AN  ET  VECTORS  ARE  ENTERED 
BY  OSDY  INPLT 
CALL  - CALL 

PLANET 

INPUT  - TIME  IN  MPAC 

OUTPUT  - VECTOR  IN  MPAC 

SLBKOLTINES  - LGCSAP 

LE8RIS  - VAC  .STARAD  - STARAO  +17 


REF 

REF 


LAST  952 


SETLOC  P50S 
BANK 

CCUNT#  t$/P51 


6 LAST  946 


REF  ^ 
REF  7 
REF  12 

REF  3 
REF  168 
REF  12 
REF  11 
REF  285 
REF  1 
REF  1 
REF  286 


REF  194 
REF  21 


REF 

REF 
REF 
REF 
REF 
REF  26 
REF  195 


37 


250 

955 

955 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST  953 


LAST  946 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 


15  ,2472 
15,247? 
15,2474 
15  ,2475 
15,2<76 
15,2477 
15  ,2500 
15,25C1 

15.2502 

15.2503 

15.2504 


15  , 


956 

956 

952 


956 

956 

953 

952 

956 


505 


REF  12  LAST  952 


15.2506 

15. 2507 
15  ,2510 

15.2511 

15.2512 
15,2512 

15.2514 

15.2515 

15.2516 

15.2517 
15  ,2520 

15.2521 

15.2522 

15.2523 

15.2524 

15.2525 

15.2526 

15.2527 
15  ,2530 

15.2531 

15.2532 
15,2523 


03562  0 
77420  I 
C2736  1 
4 7747  0 
7 C734  0 
C 0006  1 
7 6245  0 
£6  CCl  0 
£1»757  0 
55*755  0 
1C  COO  0 

1 2521  I 

2 2560  0 
C 4616  1 

20477  1 
C 2506  C 
0 2514  0 
C 2506  0 
C 6042  1 
53575  0 
C2707  0 
77650  1 
02736  1 
4 OCQO  0 
6 2557  1 
C 0006  I 
6 2535  0 
51*757  0 

3 1755  1 
5G  120  1 
54  046  1 
C 6042  1 

52173  0 
30347  1 


TS 

CCS 

TCF 

CAF 

7C 

CACR 

TC 

TC 


NOTPLAN  CS 


EXTEND 

BZMF 

INDEX 


TSIGHT 

EXIT 

GCTP 

HIGH9 

AOTCCOE 

REVCNT 

L 

STARIND 
BEST  I 
A 

NOTPLAN 

VNPLANV 

BANKCALL 

GOFLASH 


INTPRET 

UNIT 

STARAD 


DtC227 

CALSAMl 
STAR  IND 
6ESTI 
F I XLQC 
Xl 

INTPRFT 

GOTO 

CATLC6,1 


p 
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136^  REF  6 

1365  REF  196 

1366 

1367  REF  5 

1368  REF  3 

1369 

1370  REF  lA 

1371  REF  5 

1372 

1373  REF  A 

1374  REF  6 

1375 

1376  REF  5 

1377 

1378  REF  13 

1379  REF  373 

1380 

138J  REF  22 

1382  REF  7 

1383 

1384 

1385  KEF  ^ 


LAST  956 
LAST  956 

LAST  956 
LAST  936 

LAST  956 
LAST  930 

LAST  930 
LAST  957 

LAST  957 

LAST  956 
LAST  934 

LAST  956 
LAST  957 


LAST  353 


15.2534 

15.2535 

15.2536 
15  ,2537 

15.2540 

15.2541 
15  ,2542 

15.2543 

15.2544 

15.2545 

15.2546 
15  ,2547 

15.2550 

15.2551 
15  ,2552 

15.2553 

15.2554 

15.2555 

15.2556 

15.2557 
15,2560 
37,3541 


C2736  1 
C 6C42  1 
45145  0 
03562  0 
30500  1 
77340  C 
02757  0 
C27C7  C 
24001  0 
C2715  0 
26707  0 
00001  0 
C2715  0 
70143  0 
02756  1 
C0154  1 
52173  0 
C2343  1 
C2736  1 
00343  0 
01530  0 


CALSAMl 

CALSAM 


CEC227 

V^PLANV 

PIPSRINE 


GCTR 

TC  INTPPET 

OLOAO  CALL 

TSIGHT 

LOCSAM 

LXC,1  VLCAO 

STARIND 

VEARTH 

STOVL  OD 

VSUN 

STCVL  VEARTH 
OD 

STORE  VSUN 

DLOAD*  LXC,1 

6ESTI,1 

MPAC 

VLOAD#  GOTO 

STARAC  -22RD,  1 
GCTR 

DEC  227 

VN  0688 

= PIPASR  +3  EBANK  NOT  4 SO  DONT  LCAC  PIPTIMEl 


3" 
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P1386 
R 1387 
R1388 
R1389 
R 1390 
R139) 
R1392 
R1393 
R1394 
R1395 
R1396 
R1397 
R 1398 
R1399 
R1400 
R1401 
R1402 
R1403 
R1404 
R1405 
R1406 
R1407 
R1408 
R 1409 
R1410 
R1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 
R1422 
R1423 
R1424 
R1425 
R1426 
R1427 
R1428 
R1429 
R 1430 
R1431 
R1432 
R 1433 
R1434 
R1435 


GRAVITY  VECTOR  CET ER P INAT  I CN  PCUTINE 
BY  KEN  VINCENT 

FOR  DETAILED  DESCRIPTION  SEE  5C4GSOP  5o  6o  3o  2<,  5 
TFIS  FRCGRAI-  FINDS  THE  DIRECT  ICN  CF  THE  MOONS  GRAVITY 
WHILE  THE  LH  IS  CN  THE  MCCNS  SURFACEo  IT  WILL  BE  USED 
FCR  LUNAR  SURFACE  ALIGNMENT*  THE  GRAVITY  VECTOR  IS 
DETERMINED  BY  REACING  THE  PIPAS  WITH  THE  IMU  AT  TWO 
PARTICULAR  OR lONTA T IONS*  THE  TWC  READINGS  ARE  AVERAGED 
AND  UNITIZED  AND  TRANSFORMED  TC  NB  COORDINATES*  THE  TWO 
ORIENTATION  WERE  CHOSEN  TC  REDUCE  BIAS  ERRCRS  IN  THE 
PEACINGSo 

CALL- 


INPUTS- 

OLTPLTS- 


PIPAS.CDUS 

STARSAVl  = UNIT  GRAVITY 
GSAV  = DITTO 
GRAVBI T = 1 
riNES- 

PI  PASRi  IMUCOARS  , I MU  F IN  E,  [MUST  ALL  , 1 /P  I P A , DELA  Y J OB  .CDUTR  IG, 
*NBSM*  ,*SNM8*»  CALCGA  .FCFLASH 

VAC,SACiSTABAOrXSMfXNE,THETAD,OELV,CCSCDU»SINCOU 


14  LAST  94'5 


15,2561  3 2762  0 GVDETER  CAF 


REF  15 
REF  1 
REF  16 
REF  197 


REF 

REF 

FIND 


LAST  946 


15,2562 
15  ,2563 

15.2564 

15.2565 
15  ,2566 
15,2567 

15.2570 

15.2571 

15.2572 


54  321  C 
4 0000  0 
54  322  0 
2 2763  1 
54  323  I 
0 6042  1 
45C14  0 
01662  1 
22666  0 


COM 

TS 

CAF 

TS 


GIMBAL  ANGLES  WHICH  ROTATE  SM  1800EG  AECUT  G VEC 


THETAO 

THETAC  4 

35DEG 

THETAD  + 

INTPRET 

CALL 

REFSMFLG 

LUNG 


DEFINE  G COOR  SYS 


X UNI T G 
M=  Y = UMTEZSM 


17: 53  DEC*  19 


1069  LEMP50S  *119  PAGE  958 


USER'S  PAGE  NO*  ?P  E5  S3 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19,1969 


LEMP50S  -HR  PAGE  959 


L P51-P53 


USER  *S  PAGE  NOe 


S3 


R1436 
R1437 
R1438 
R1^39 
R 1A40 
R1A41 
R1AA2 
R1A*3 
R1A44 
R1445 
R 1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 
1466 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 
1461 
148  2 

1483 

1484 

1485 


XSM  = M 0,  -J  , C M = 
C,  0,-1 

ALSC  N8  WHT  PRES  SP  IS 
* 

XNB  = N8SM 
GIPBAL  ANGLES  = CALCGAl 


I 

# * 
XSP  , XNB 


( X X ) - 1 /2  I # 
I J 


REF  5 
REF  1 

REF  10 

PEF  11 

REF  4 
PEF  5 
REF  6 

REF  6 

REF  15 
REF  7 

REF  16 

REF  5 

REF  21 

REF  1 
REF  3 

REF  1 
REF  23 
REF  2 

REF  2 

REF  24 
REF  7 

REF  6 


LAST 


LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


956 


948 


959 

953 
879 
94  8 

953 

873 

959 

959 

959 

953 


948 


957 

958 

959 

959 

946 

787 


15,20CC 

15,2573 

15,2573 
15  ,2574 

15.2575 

15.2576 

15.2577 
15,2600 
15  ,2601 

15.2602 

15.2603 
15  ,2604 
15,26C5 

15.2606 

15.2607 
15,2610 
15  ,2611 

15.2612 

15.2613 
15  ,2614 

15.2615 

15.2616 

15.2617 
15, 2620 
15  ,2621 

15.2622 

15.2623 
15  ,2624 

15.2625 

15.2626 

15.2627 

15.2630 

15.2631 

15.2632 

15.2633 

15.2634 

15.2635 

15.2636 


66370  0 
00022  1 
CCC51  0 
00006  1 
77744  0 
C0050  1 

45173  0 GRAVEL 
54000  0 
47675  0 
06707  1 
77775  1 
02731  0 
73744  1 
C0C47  1 
75040  1 
71152  I 
00047  1 
63047  1 
540CC  0 
00002  0 
06665  1 
451C0  1 
32601  1 
47355  I 
74575  0 
02715  0 
36723  I 
32666  0 
74575  C 
C2715  0 
53455  0 
02723  0 
C2761  0 
77641  I 
C2231  C 
65552  0 


SETLCC  P50S 
BANK 

COUNT*  $$/P57 
AXT,)  SSP 
18D 
SI 
60 

LXC,2 

SI 

VLOAO*  CALL 

XUMT  -6,2 
♦NBSM* 

STORE  XNB  +I8[:,l 
VLCAD 

STAR 

LXC,2  VXSC* 

X2 

STAR  46,2 
VSL2  LXC,2 
X2 

VSU*  INCR,2 

XUMT  -6,2 
20 

STORE  XSM  4l8C,l 
TIX,1  CALL 

GRAVEL 
CALCGA 
VLOAO  VSRl 
GOUT 

STCALL  STAPAO  4120 
LUNG 
VLOAC  VSRl 
GCUT 
VAC  UNIT 

STAPAD  4120 
STORE  STARSAVl 
OOT 

GSAV 
SLl  ACOS 


Xl=18 
Sl=  6 
X2,  -2 


SIN  AND  CCS  COMPUTED  IN  LUNG 

COMPLEMENT-  UNITX  ARE  BACKWARD  - 
OUTER  PRODUCT 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091  ]7:53  DECo  19,1969  LEMP50S  '119  PAGE  960 


L 


P51-P53 


USER  *S  PAGF  NOe  AC  E5  S3 


1486 

1487 

1488 

1489 


REF  29 

REF  96 
REF  8 


LAST  922 

LAST  950 
LAST  946 


15,2627 

15.2640 

15.2641 

15.2642 


C1C45  1 
77776  1 
0 5516  0 
00014  1 


STCRE  DSPTEM 
EXIT 

TC  DOWNFLAG  CLEAR  FREEFLAG  IN  CASE  OF  RECYCLE 

AORES  FREEFLAG 


1490  REF  1 

1491  REF  267  LAST  956 

1492  REF  38  LAST  956 

1493  REF  52  LAST  954 

1494  REF  1 

1495  REF  64  LAST  888 

1496  REF  9 LAST  960 


15  ,2643  3 2761  0 

15.2644  C 4616  1 

15.2645  20477  1 

15  ,2646  C 6001  0 
15,2647  1 2652  0 

15.2650  C 5504  0 

15.2651  00014  1 


CA  DISGRVER 

TC  BANKCALL 

CADR  GDFLASH 

TC  GOTOPOOH 

TCP  PRCGRAV 

TC  UPFLAG 

AORES  FREEFLAG 


V e33-PROCEEC 

VB32-RECYCLE-ST0RE  GRAV  AND  DO  IT  AGAIN 
AND  SET  FREEFLAG  TO  SHOW  RECYCLE 


1497 

1498 


REF  91  LAST 


946  15,2652 

15,2653 


C 5353  1 PROGRAV  TC 
04024  0 OCT 


PHASCHNG 

04024 


1499  REF  ISe  LAST  956 

1500 

1501  REF  8 LAST  959 

1502  REF  7 LAST  959 

1503 

1504  REF  1 

1505  REF  28  LAST  900 

1506  REF  287  LAST  956 

1507  REF  1 

1508  REF  1 


15.2654  C 6C42  1 

15.2655  77775  1 

15  ,2656  02761  0 

15,2657  C2231  0 

15.2660  77776  1 

15.2661  3 4751  0 

15.2662  7 CC74  0 

15.2663  10  000  0 

15.2664  1 2561  0 

15.2665  1 3536  0 


TC  INTPRET 

VLOAD 

STARSAVl 
STCRE  GSAV 

EXIT 

CAF  FREEFBIT 
MASK  FLAG^-ROO 
CCS  A 

TCF  GVOETER 

TCF  ATTCHK 


IF  FREEFLAG  SET,  RE-COMPUTE  GRAVITY 


SET 

EXIT  FRCM  GVOETER 


1510 

1511 

1512 

1513 

1514 

1515 


REF  14  LAST  954 
REF  4 LAST  947 
REF  1 


REF  92  LAST  960 


15,2667 

15.2670 

15.2671 

15.2672 
15  ,2673 
15,2674 


24007  0 
C2707  0 
77776  1 
0 5353  1 
04024  0 


LUNG 


STO  VLCAD 

OMIN 
2ER0VEC 
STCRE  GACC 

EXIT 

TC  PHASCHNG 

OCT  f'4024 


1516  REF  199  LAST  960 

1517 

1518  REF  4 LAST  947 

1519 

1520  REF  1 

1521  REF  8 LAST  957 

1522  REF  4 LAST  855 

1523  REF  10  LAST  947 

1524  REF  288  LAST  960 

1525  REF  1 

1526  REF  93  LAST  960 

1527 


15.2675  0 6042  1 

15.2676  77624  1 

15.2677  21557  1 

15.2700  77776  1 

15.2701  3 2760  1 

15,27C2  55'736  G 

15  ,2703  3 7721  1 

15,27C8  55*074  1 

15,2705  0 8616  1 

15  ,2706  15707  0 

15,2707  C 5353  1 
15,2710  04C24  0 


TC  INTPRET 

CALL 

CCARSE 

EXIT 

CA  T/2SEC 

TS  GCTR 

CA  PRI021 

TS  1 /PIPACT 

TC  BANKCALL 

CADR  GCOMPZER  INITIALIZE  COMPENSATION 

TC  PHASCHNG 

OCT  0*02^ 


1528  REF  289  LAST  960 

1529  REF  J 


0 4616  1 
77541  1 


TC  BANKCALL  OONT  NEED  TO  INHINY  THIS  USED  TO 

CADR  PIPSRINE  INITIALIZE  PIPAS  CONT  USE  DATA 


GAP: 

L 

1530 

1531 

1532 

1533 

153^ 

1535 

1536 

1537 

1538 

1539 

15^0 

1541 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 


ASSEMBLE  REVISION  131  CF  A6C  PROGRAM  LUMINARV  BY  NASA  2021112-091 


17:53  OECe  19,1969  L EMP50S  cll9  PAGE  961 


P51-P53 


USER'S  PAGF  NCe  41  E5  S3 


REF  200  LAST  960 

REF  5 LAST  052 
REF  26  LAST  893 
REF  1 


15.2713  C 6042  1 

15.2714  77776  I 

15.2715  3 5000  1 

15.2716  C 5173  1 

15.2717  02721  1 


GREED 


INTPRET 

2SECS 

TWIDDLE 

GRABGRAV 


= MASK  7776  IN  BASIC  SC  DONT  CAPE 
SET  UP  2 SEC  TASK  TP  READ  PIPAS 


REF  141  LAST  923  15  ,2720  0 5155  0 


TC  ENCOFJOB 


REF  47 
REF  2 
RFF  2 
REF  40 
PEF  25 
REF  1 
REF  1 


LAST  919 
LAST  960 
LAST  74C 
LAST  868 
LAST  959 


15.2721 

15.2722 

15.2723 

15.2724 
E5  ,1706 

15.2725 

15.2726 


C 4674  0 
77541  1 
3 5023  0 
C 5105  0 

C273C  1 
32065  0 


GRABGRAV  TC 

CADR 

CAF 

TC 

EBANK= 

2CADR 


IBNKCALL 
PIPSRINE 
PRIOl  3 
F I NDVAC 
STARAD 
AOOGRAV 


RE-ESTABL  ISH  MA  INL  INE  JOB 


REF  66  LAST  900 


15  ,2727  0 5261 


TC  TASKOVER 


REF  290  LAST  960 
REF  3 LAST  855 
REF  9 LAST  960 
REF  201  LAST  961 

REF  9 LAST  906 
PEF  2 LAST  960 
REF  3 LAST  961 

REF  10  LAST  961 
REF  1 

REF  4 LAST  961 
REF  8 LAST  959 
REF  6 LAST  948 

REF  7 LAST  906 
REF  3 LAST  959 

REF  94  LAST  960 


15.2731 

15.2732 

15.2733 
15  ,2734 

15.2735 

15.2736 
15  ,2737 
15,27A0 

15.2741 

15.2742 
15, 27A3 
15  ,2744 

15.2745 

15.2746 

15.2747 

15.2750 

15.2751 

15.2752 

15.2753 
15  ,2754 


25'736  1 
C 6042  1 
53375  0 
00325  0 
02707  0 
02707  0 
50135  C 
02737  0 
32714  1 
53575  0 
02707  0 
36731  1 
A7541  1 
77624  1 
<7673  0 
02715  0 
77776  1 
C 5353  1 
04024  0 


AOOGRAV 


TC  BANKCALL 

CADR  1/PIPA 
INCR  GCTR 
TC  INTPRET 

VLOAD  VAD 
DELV 
GACC 
STORE  GACC 
SLCAO  BMN 
GCTR 
GREED 

VLOAD  UNIT 
GACC 
STCALL  STAR 

CDLTRIG 

CALL 

*SMNB4 
STORE  GOUT 
EX  IT 

TC  PHASCHNG 

OCT  04024 


ACCUMULATE  G VECTOR 


TRANSFORM  IN  NB  CCCR  AND  STORE 
IN  OUTPUT 


REF  202  LAST  961 
REF  15  LAST  960 


15.2755  C 6042 

15.2756  77650 

15.2757  02745 

15.2760  77753 

15.2761  01404 

15.2762  C7357 

15.2763  C6211 


1 CMINEXIT  TC 
1 GOTO 

0 

0 T/2SEC  DEC 

0 OISGRVER  VN 

1 42CEG  CCT 
0 35DEG  OCT 


INTPRET 

OMIN 
-2  0 


0604 

07357 

06211 


gap: 

L 

P1571 

R1572 

R1573 

R1574 

R1575 

R 1576 

R1577 

R 1578 

R 1579 

R1580 

R1581 

R1582 

R1583 

R 158A 

R1585 

R1586 

R1587 

R1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARV  BY  NASA  2021112-091  17:53  DECo  19,1969  LEMP50S  ^119  PAGE  962 

P51-P53  USER'S  PAGE  NCc  42  E5  S3 

NAME  GYROTRIM 

THIS  PROGRAM  COMPOTES  AND  SENCS  GYRC  CCMMANOS  WHICH  CAUSE  THE  CDUS 
TO  ATTAIN  A PRESCRIBED  SET  CF  ANGLESo  THIS  ROUTINE  ASSUMES  THE 
VEHICLES  ATTITUDE  REMAINS  STATIONARY  DURING  ITS  OPEPATIONo 

CALL  CALL 

GYRCTRIM 

INPUT  THETAC,+l,+2  = DESIRED  CDU  ANGLES 

COLX,COUY,COUZ 

OUTPUT  - GYRO  TOROUE  PULSES 


SU8RQUT  INES-  TR G*NBSM , *N8 SM# , CO LTR I G , A Xl SGEN,CALCGTA , IMUFI NE 
IMPULSE,  IMUSTALL 


REF  25 
REF  6 

REF  5 
REF  26 
REF  2 

REF  6 
REF  27 
REF  7 

REF  3 

REF  7 

REF  3 

REF  3 

REF  3 

REF  1 
REF  291 


LAST  889 
LAST  959 

LAST  586 
LAST  961 
LAST  37 

LAST  959 
LAST  962 
LAST  961 

LAST  948 

LAST  959 

LAST  376 

LAST  946 

LAST  940 


LAST  961 
LAST  940 


>INCDU  fV 
962  : 

15.2764 

15.2765 

15.2766 

15.2767 

15.2770 

15.2771 

15.2772 
15  ,2773 

15.2774 

15.2775 
15  ,2776 
15,2777 

15.3000 

15.3001 

15.3002 

15.3003 
15,300* 
15,3005 
15  ,3006 
15,30C7 

15.3010 

15.3011 

15.3012 

15.3013 

15.3014 

15.3015 
13  ,3016 
15,3017 

15.3020 

15.3021 

15.3022 


SCOU  , STARAD 
121  12X« 

71220  I 6YR 
C2745  0 

00322  1 
65325  C 
00324  1 

00323  0 
77666  1 
24766  0 
24005  1 
77624  1 
47666  1 
267C7  C 
24003  1 
77624  1 
47675  0 
36715  1 
*7541  1 
77624  1 
20030  0 

77775  1 
02665  0 
24007  0 
C2673  1 
34015  1 
47443  1 
77624  1 
47251  1 

77776  1 JL5 
3 3027  1 

C 4616  1 
17314  1 


, XDC  • 
COUNT* 
STQ 


VOBF 

STOVL 

CALL 

STOVL 

CALL 

STCALL 

CALL 

VLCAO 

STCVL 

STCALL 

CALL 

EXIT 

CA 

TC 

CADR 


GGC 

$$/P57 

CLCAC 

OMIN 

THETAD 

PDDL 

THETAD  +2 
THETAC  +1 

COUSPOT 

XUNIT 

TRG*N8SM 
STARAD 
YUNI  T 

♦NBSM* 
STARAD  +6 
COUTRIG 

CALCSMSC 

XNB 

6D 

YNB 

120 

AXISGEN 

CALCGTA 

GYRCOR 
BANKCALL 
1 MUPULSE 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211]2-'Y91 

L P51-P53 


17:53  DEC*  19,1969  LEMP50S 
USER'  S PAGE  NC*  43 


®119  PAGE  963 
E5  S3 


1621  REF  292  LAST 

1622  REF  12  LAST 

1623  REF  8 LAST 

1624  REF  1 


96  2 
947 
955 


1-5,3C23  C 4616  1 
15,3024  17707  1 

15  ,3025  0 5701  1 

15,3026  1 2755  C 


TC  BARKCALL 
CADR  IMUSTALL 
TC  CURTAINS 
TCF  OMINEXIT 


1625  REF  12 


LAST  940  15,3027 


C2737  0 GYRCOR  ECAOR  OGC 


gap: 

L 

P1626 

1627 

1626 

1629 

1630 

1631 

1632 

1633 

163A 

1635 

1636 

1637 

1638 

1639 

16A0 

16<^1 

16A2 

1643 

164t 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 


ASSEMBLE  REVISION  131  CF  AGC  PPCCRAP  LUMINARY  BY  NASA  2021112-091 


17:f3  OECo  19il969  LEMPSflS  ..119  PAGE  966. 


F51-P53 


USER'S  PAGF  NCo  44  E5  S3 


PEPFCBM  STAR  ACUISITION  AKC  STAR  SIGHTINGS 


REF  181  LAST  954 

RLE  45  LAST  952 
REF  15  LAST  957 


15.3030 

15.3031 
15,3C32 
15,3033 


3 4755  1 2STARS  CAF 
1 3033  0 TCF 
3 A753  1 ISTAR  CAF 
55'757  1 TS 


ZERO 
+ 2 

61T1 

STAPINO 


INITALIZE  STARING 

ZERO  FOR  1ST  STAR,  ONE  FOP  2N0  STAR 


REF  95  LAST  961 


15.3034  0 5353  1 

15.3035  04024  0 


TC  PHASCHNG 

OCT  04024 


REF  4 LAST  955 


15,3036 


2245 


TCF  R59 


GC  no  STAR  AOUIPE  ANC  ACTMAPK 


REF  16  LAST  964 
REF  1 


15  ,3037 

15.3040 

15.3041 


3 1757  0 R59RET 
r 0C06  1 
1 3052  1 


CA  STAPINO 

EXTEND 

BZF  ASTAR 


BACK  FROM  SURFACE  MARKING 
1ST  STAR  MARKED 


REF  96  LAST  964 


15.3042  r 5353  1 

15.3043  C4C24  0 


TC  PHASCHNG 

OCT  04024 


REF  203 

REF  10 
RFF  6 
REF  1 
REF  1 


LAST  961 

LAST  957 
LAST  951 


15.3045 

15.3046 

15.3047 

15.3050 

15.3051 


0 6042 
45145 
03562 
32472 
37254 
33064 


1 

0 

0 

1 

0 

0 


TC  INTPRET 

OLCAO  CALL 

TSIGHT 
PLANET 
STCALL  VEC? 

SURF  LINE 


TIME  CF  2ND  MARK 

STORE  2NC  CATALOG  VEC  (REFl 


REF  204  LAST  964 

REF  28  LAST  962 
REF  9 LAST  960 

REF  11  LAST  964 
REF  7 LAST  964 
REF  2 LAST  137 

REF  1 


15,3052 
15,  3053 

15.3054 

15.3055 

15.3056 

15.3057 

15.3060 

15.3061 

15.3062 

15.3063 


C 6042  1 

77775  1 
02715  0 
C2761  0 
45145  0 
03562  0 
32472  1 
03246  1 

77776  1 
1 3032  1 


'STAR 


TC  INTPRET 

VLOAD 

STARAO  +6 

STCRE  STARSAVl  1ST  OBSERVED  STAR  (SM) 

DLOAD  CALL 

TS  IGHT  TIME  OF  1ST  MARK 

PLANET 

STORE  V6C1  STORE  1ST  CATALOG  VEC  (REF  I 

EX  IT 

TCF  ISTAR  GO  GET  2ND  STAR  SIGHTING 


gap: 

L 

P1655 

1656 

1657 

165ft 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1666 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1662 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-001 
P51-P53 

CC  FINE  OR  COARSE  ALIGNMENT  CF  IMU 


17:53  DECo  19,1069  LEMPSOS  119  PAGE  965 
USER'S  PAGE  NOo  45  E5  S3 


REF  11  LAST  933 


REF 


LAST  964 


REF  10  LAST  949 
REF  29  LAST  964 
REF  10  LAST  964 


BEF 

REF 

REF 


REF 

REF 


I 


10  LAST  960 


LAST  962 


LAST  962 


REF  1 
REF  15 
REF  288 
REF  1 
REF  1 
REF  293 
REF  39 
REF  53 
REF  2 
REF  2 


LAST 

LAST 

LAST 

LAST 

LAST 


855 

960 


963 

960 

960 

965 

965 


15.3064 

15.3065 

15.3066 
15  ,3067 

15.3070 

15.3071 
15  ,3072 

15.3073 

15.3074 

15.3075 

15.3076 
15  ,3077 

15.3100 

15.3101 

15 .3102 
15,31C3 

15.3104 

15.3105 

15.3106 
15  ,3107 
15,3110 
15,3U1 
15  ,3112 

15.3113 

15.3114 

15.3115 

15.3116 
15  ,3117 

15.3120 

15.3121 
15  ,3122 

15.3123 

15.3124 

15.3125 

15. 3126 
15  ,3127 


77131  1 
00052  0 
CC0C6  1 
00014  1 
64373  1 
74515  0 
03607  0 
77656  1 
12723  1 
77773  1 
75CC2  I 
10023  1 
43104  0 
23070  0 
04315  1 
23111  0 
77624  1 
31250  1 
77614  1 
00354  0 
33171  0 
77624  1 
47443  1 
77624  1 
47251  1 
77776  I 

2 4752  0 
7 0104  0 
1C  000  0 
I 3130  1 

3 3276  1 
C 4616  1 

20477  I 
C 6001  0 
1 3130  1 
1 3172  1 


SURFL  INE  SSP  AXT,2 
S2 


hPTOESIR  VLCAC* 


UNIT 

STORE 

VLCAC* 


OOALIGN  CALL 
BOFF 


CALL 

EX  IT 

CAF 

MASK 

CCS 

TCF 

CAF 


TC 

CACR 


TCF 

TCF 


12D 

MXV 

VFCl  +12D,? 
XSMO 

STAPAO  +120,2 


STARSAV3 

180,2 

BON 

WRTOESIR 
INITALGN 
1 NIT0Y 

R54 

FREEFLAG 

P57P0ST 

AX  ISGEN 

CALCGTA 

IMTABIT 

FLAGWROe 

A 

5DEGTEST 

OISPGYRO 

BANKCALL 

GOFLA  SH 

GOTOPCOF 

50EGTEST 

P57P0ST  + 


PICK  UP  VEC  IN  REF,  TRANS  TO  DESIRED  SH 

VEC  IN  SM 

PICK  UP  VEC  IN  PRESENT  SM 

IF  INITIAL  PASS  (OPTION  0)  BYPASS  R54 

DO  CHKSOATA 

ASTRO  DOES  NOT  LIKE  DATA  TEST  RESULTS 
GET  DESIRED  ORIENT  WRT  PRE  So  XDC  ,YOC  ,ZDC 
GET  GYRO  TORO  ANGLES,  CGC,IGC,MGC 
IF  INITIAL  PASS  BYPASS  NOUN  93  DISPLAY 

DISPLAY  GYRO  TORO  ANGLES  V 06N93 


V34-TERM INATE 

VB33-PR0CEE0  TO  COARSE  OR  FINE 
VB32-ReCYCLE,  MAYBE  RF-ALIGN 


REF  205  LAST  964 


REF 

REF 

REF 


13  LAST  963 


LAST  125 


LAST  931 


REF  17  LAST  962 


15  ,3132 

15.3133 

15.3134 

15.3135 

15.3136 
15  ,3137 
15,3140 


r 6C42  1 
40175  0 
02740  0 
23134  1 
C2750  1 
40141  1 
206C2  0 
33237  1 
52131  0 


15,3141  02746  0 
15  ,3142  33144  0 


INTPRET 

BOV 

OGC 

SURFSUF 

OGCT 

BOV 

SDEGBEES 
COATR IM 
GOTO 
OMIN 
SURFDISP 


IF  ANGLES  GREATER  THAN  5 DECS,  DO  COARSE 


gap: 

L 

1703 

170^ 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

i71A 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

172A 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

173A 

1755 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 


ASSEPBLE  REVISION  131  CF  AGC  PRCCRAP  LUMINARY  BY  NASA  2021112-091 
P51-P53 

PEF  1 15»3142  33017  1 JUSTTRIM 


17:53  DEC®  19.1969  LEMPSOS  ^119  PAGE  966 
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ANGLES  LESS  THAN  5CFG.  CO  GYRO  TORQ 


PEF  97  LAST  964 


15. 

15, 

15, 


3144 

3145 

3146 


77776  1 SLRFOISP  EXIT 

C 5353  1 TC  PHASCHNG 

04024  0 OCT  04024 


REF  206 

REF  II 
REF  49 

REF  7 
REF  5 

REF  9 
REF  1 
PEF  3 


LAST 

LAST 
LAST 

LAST 
LAST 

LAST 

LAST  965 


15.3147 
15,3150 
15  ,3151 

15.3152 

15.3153 
15  ,3154 

15.3155 

15.3156 

15.3157 
15, 5160 
15  ,3161 


0 6042  1 
7516C  1 
03606  1 
C1733  I 
45014  0 
01462  0 
21371  C 
77776  1 

11' 144  0 

1 3162  0 

1 3172  1 


965 

965 

952 

958 

948 

923 


TC  INTPRET 

AXC,1  AXC,2 

XSMD 

REFSMMAT 
SET  CALL 

RFFSMFLG 

MATMCVE 

EXIT 

CCS  0PTIGN2 

TCF  B2F8 

TCF  P57POST  +1 


IF  OPTION  ZERO  DO  FINISH 


PEF  2 LAST 
PEF  16  LAST 
PEF  289  LAST 
REF  1 
REF  207  LAST 


REF  2 LAST 

REF  3 LAST 
REF  294  LAST 
REF  9 LAST 
REF  54  LAST 
REF  2 LAST 
REF  45  LAST 
REF  10  LAST 


REF  55  LAST 
REF  98  LAST 


REF  208  LAST 

REF  8 LAST 
REF  3 LAST 

REF  50  LAST 
REF  5 LAST 


PEF  10  LAST 


REF  6 LAST 


965  15,3162 

965  15,3163 

965  15  ,3164 
15,3165 

966  15,3166 
15,3167 

787  15,3170 

15  ,3171 
937  15,3172 

965  15,3173 

945  15  ,3174 

965  15,3175 

966  15,3176 

923  15,3177 

966  15,3200 

15  ,3201 
15,3202 
966  15,3203 

966  15  ,3204 

15,3205 
966  15,3206 

15,3207 
960  15,3210 

815  15,3211 

15,3212 
966  15,3213 

927  15  ,3214 

15,3215 
927  15,3216 

15,3217 
927  15,3220 

15  ,3221 


3 4752  0 
7 0104  0 
10  000  0 
J 3544  0 
C 6042  ] 
77624  1 
33471  0 
77776  ] 

3 5741  0 

0 4616  1 
20624  0 

1 6Cri  1 
1 3544  0 

4 4752  1 
6 1144  1 
0 0006  1 
1 3204  0 
1 6001  1 
0 5353  1 

C4C24  0 
C 6042  1 
45175  0 
C2231  0 
47663  1 
43105  1 
01734  0 
01463  1 
51515  I 
02023  1 
45561  1 
75745  0 
47014  1 


B2F8 


P57P0ST 


CAF 

MASK 

CCS 

TCF 

TC 

CALL 


EX  IT 

CAF 

TC 

CACR 

TCF 

TCF 

CS 

AO 

EXTEND 

BZF 

TCF 

TC 

OCT 

TC 

VLCAO 


VXM 


POVL 

VXSC 

STORE 

CLEAR 


INITA8IT 

FLAGWR08 

A 

P57JUMP 
I NTPRFT 

PFFMF 

0CT14 

BANKCALL 

GOPEPFl 

GOTCPCCH 

P57JUMP 

BIT2 

0PTICN2 

+2 

GOTOPOOH 

PHASCHNG 

04024 

INTPRET 

CALL 

GSAV 

CDL*NBSH 

SET 

REF  SMMAT 

LUNAFLAG 

ABVAL 

P LS 

STACR 

ALPHAV 

RT6 


IF  INITIAL  FLAG  SET,  HF-CYCLEo 

ITS  SET 

GO  GET  ATTITUDE  VEC  IN  MF (YNBS AV , XNBS AV 1 
DISPLAY  V50N25  CHK  CODE  14 


VB34-TERMINATE 

VB33-PR0CEE0  TO  PF-ALIGN 

TEST  TO  SE  IF  ALIGNED  BY  OPTION  2 


YES-GO  CALCULATE  LANDING  SITE 
NO-EXIT  P57 
RESTART  PLACE 


SO  SET  LUNAFLAG 
= (PEFSMMATIT  (N6SMIGNB 


USE  6N8 


GO  TO  SM  COORDS 
ON  MOON 
G(REF) 


ALPHAV  = 


FLSMAG  * GIREF ) 


GAP;  ASSEMBLE  REVISION  131  CF  AGC  PPCCRAM  LUMINARY  BY  NASA  2021112-091 


L P51-PS3 


1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 


3 LAST  927 
27  LAST  951 


REF 

REF 


LAST 

LAST 


REF  23 
REF  2 


927 

874 


REF  19  LAST  955 


LAST 

LAST 

LAST 


894 

786 

966 


REF  56  LAST  966 


15,2222 
15  ,3223 

15.3224 

15.3225 
15  ,3226 
15,3227 

15.3230 

15.3231 

15.3232 
15  ,3233 

15.3234 

15.3235 
15  ,3236 


CC662  C 
21574  1 
77624  1 
20440  1 
01220  0 
65252  C 
01242  1 
77606  1 
25234  1 
51700  1 
C2C23  1 
77776  1 
1 6001  1 


CALL 


N89DI SP 
STORE  PN 
VSL2  POOL 

GOT/2  tA 

PUSH 

STCALL  PIPTIME 
R-TO-RP 


STCRE  PLS 
EXIT 

TCF  GOTOPOOH 


17:53  OeCo  19,1969  LEMP5CS  119  PAGE  967 


USER  ‘S  PAGE  NOo  47  E5  S3 


SUBROUTINF  TO  CALC  LS  AND  GIVE  RLS  BACK 

RN=RLS  B-2Q  = LM  POSITION 

R-TO-RP  GETS  RLS  B-27  AT  0-50  IN  POLIST 

TIME  TEMP  STORED  IN  N890ISP 

TIME  AT  6-7  IN  POLIST 

PIPTIME  = LM  STATE  T IME 

RLS  IN  MOON-FIXFP  COORCS 

EXIT  P57 


GAP: 

L 

P1763 

176A 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1702 

1783 

1704 

1785 

1786 

1707 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 
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17:53  DECo  19*1969  LEMP50S  » 1 19  PAGE  968 


P51-P53 


USER' S PAGE  NCo  48  E5  S3 


CCARSE  AND  FINE 

REF  5 LAST 
REF  22  LAST 


REF  6 LAST 

REF  8 LAST 

REF  4 LAST 


REF  4 LAST 


KEF  2 LAST 
REF  1 
REF  4 LAST 
REF  295  LAST 
REF  40  LAST 
PEF  57  LAST 


KEF  99  LAST 


ALIGN  IMU 

15,3237 
946  15  ,3240 

959  15,3241 

15,3242 
966  15,3243 

' 15,3244 

962  15,3245 

15r3246 
962  15,  3247 

15,3250 
959  15,3251 

15,3252 

965  15  ,3253 
15,3254 

945  15,3255 

966  15,3256 

965  15,3257 

967  15  ,3260 

15.3261 

15.3262 

966  15  ,3263 
15,3264 


75160  1 
02664  1 
02642  0 
77624  1 
31371  0 
77624  1 
47541  1 
77624  1 
2QC30  0 
77624  1 
47355  1 
77414  0 
04355  0 
33266  0 
3 5010  0 
C 4616  1 
2C477  1 
C 6001  0 
1 3263  1 
1 3255  1 
0 5353  1 
C4C24  C 


COATRIM 


4XC,1 


CALL 

CALL 

CALL 

CALL 

80FF 


CAF 

TC 

CADR 

TC 

TCF 

TCF 

TC 

OCT 


AXC  ,2 

XOC 

XSM 

MATMOVe 

CDUTRIG 

CALCSNSf 

CALCGA 

EXIT 

INITALGN 

CORSIT 

V06N22 

BANKCALL 

GCFLASH 

GOTOPOOH 

+2 

-5 

PHASCHNG 

040?^ 


IF  INITIAL  ALGNMFNT  DISPLAY  FINAL 
GIMEAL  ANGLES  IF  COARSE  ANGLES  GREATER 
THAN  5 DEGREES 


REF  209  LAST  966 

REF  5 LAST  960 

REF  4 LAST  945 

REF  1 

REF  2 LAST  965 


15.3266 

15.3267 
15  ,3270 

15.3271 

15.3272 
15  ,3273 

15.3274 

15.3275 

15.3276 


0 6042 
77624 
31557 
77624 
31603 
77624 
32764 
77650 
33144 
01535 


1 

1 

1 

1 

0 

1 

0 

1 

0 

0 


CORSIT 


CISPGYRO 


CALL 

CALL 

CALL 

GOTO 

VN 


INTPRET 

COARSE 

NCCARSE 

GYROTRIM 

SURFDISP 

0693 


gap:  assemble  REVISION  131  OF  AGC  PRCGRAP  LUPINARY  BY  NASA  2021112-091 


L P51-P53 

P 1796  LLNAR  SURFACE  I MU  ALIGNMENT  FRCGRAM 


REF  296  LAST 


LAST  9A5 


15,3277  C A616  1 P57 

15,3300  33635  1 


1799 
leco 
1801 
1802 
1803 
180A 
1805 
1 806 


REF  27 
REF  11 
REF  A6 
REF  297 
REF  2 
REF  58 
REF  1 
REF  1 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


923 

966 

964 

969 

923 


15.3301 

15.3302 

15.3303 
15,33C4 
15,3305 
15,33C6 
15,3307 
15,3310 


3 6250  0 
!5'144  0 
3 4753  1 
C 4616  1 
20714  1 
C 6001  0 
1 3314  C 
1 3303  0 


P570PT  CAF 


THREE 

OPTION2 

8IT1 

BANKCALL 

G0PERF4R 

GOTCPCCH 

ALIGNCPT 

P570PT 


1807 

1808 
1809 


REF  100 
REF  142 


LAST 

LAST 


968 

961 


15  ,3313 


0 5353  1 
00C14  1 
0 5155  0 


TC 


PHASCHNG 

C0C14 

ENDOFJOB 


1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 
1821 
1822 

1823 

1824 


REF  12 
REF  28 
REF  290 

REF  1 
REF  1 
REF  2 
REF  210 

REF  51 
RFF  12 

REF  7 

REF  2 


LAST  969 
LAST  969 
LAST  966 


LAST 

LAST 


LAST 

LAST 


LAST 

LAST 


966 

969 


15.3314 

15.3315 

15.3316 

15. 3317 

15.3320 

15.3321 

15.3322 
15  ,3323 

15.3324 

15.3325 
15  ,3326 
15,3327 

15.3330 

15.3331 

15.3332 


3 1144  I 
7 6250  1 
5C  000  1 
1 3320  1 
1 3333  0 
1 3374  0 
1 3303  0 
0 6042  1 
75160  1 
C1733  1 
03606  1 
77624  1 
31371  0 
77650  1 
33373  0 


ALIGNCPT  CA 

MASK 

INDEX 

TCF 

TCF 

TCF 

TCF 


CALL 

GOTO 


TO  ISP 

PACKOPTN 

P57CPT 

INTPRET 

AXC,2 

REFSMMAT 

XSMD 

MATMOVF 

PACKCFTN 


1825 

1826 

1827 

1828 
1829 
1030 
1831 
1632 

1833 

1834 

1835 

1836 

1837 

1838 

1839 


RFF  211  LAST  969 


REF  2 
REF  298 
RFF  41 
REF  59 

REF  1 

REF  212 


LAST 

LAST 

LAST 

LAST 

LAST 


832 

960 

923 

969 

968 


LAST  969 
LAST  967 


15  ,3333 

15.3334 

15.3335 

15.3336 

15.3337 

15.3340 

15.3341 

15.3342 
15  ,3343 

15.3344 

15.3345 

15.3346 

15. 3347 
15,3350 


C 6042  1 
77745  1 
03442  0 
01045  I 
77776  1 
3 2170  0 

0 4616  1 
2C477  1 

1 6001  1 
1 3346  1 
I 3340  1 

r 6042  1 
65234  1 
21574  1 
0X045  1 


STORE 

EXIT 

CAF 

TC 

CAOR 
TC  F 
TCF 
TCF 

TC 


TIG 

DSPTEMl 

V06N34* 

BANKCALL 

GCFLASH 

GOTOPOOH 

♦2 

P57AA 

INTPRET 

POOL 

LOADTI ME 
DSPTEMl 


17:53  DECo  19,1969  LEMP50S.119  PAGE  969 

USER'S  PAGE  NCo  49  E5  S3 

IS  ISS  ON  - IF  NOT,  IMUCHK  WILL  SEND 
ALARM  CODE  210  AND  FXIT  VIA  GOTOPOOH 

JAM  RFFSMMAT  OPTION  3 FOR  INITIAL  DISP^ 


FLASH  V04N06  FCR  ALIGNMENT  CODE 
V34  TERMINATE 
V3?  PROCEED 
V32  RECYCLE 


OPTION  4 LS  ORIENTATION 

OPTION  1 PREFERRED 

OPTION  2 INVALID  IN  P57,  RECYCLE 

OPTION  3 REFSMMAT 

JAM  REFSMMAT  IN  XSMD  LGC 


LOAD  ASCENT  TIME  FCR  DISPLAY 

DISPLAY  TALIGN,  TALIGN  : DSPTEMl 

V34-TERMINATE 

VB32-ReCYCLE 


PUSH  CURRENT  TIME  AND  PICK  UP  KEY  IN 


GAP  : 

L 

18A0 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1661 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1863 

1884 

1885 

1886 

1887 


ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
P51-P53 


17:53  OECo  19»196«  LEMP50S 
USER'S  PAGE  NOo  50 


119  PAGE 
£5  S3 


970 


REF  1 

REF  32  LAST  969 
REF  2 LAST  970 

REF  40  LAST  969 
REF  8 LAST  927 
REF  1 

REF  9 LAST  970 
REF  49  LAST  949 
REF  11  LAST  930 

REF  32  LAST  949 
REF  13  LAST  969 
REF  2 LAST  927 

REF  182  LAST  964 
REF  2 LAST  307 
REF  3 LAST  970 
REF  4 last  952 
REF  16  LAST  952 
REF  291  LAST  969 
REF  35  LAST  955 
REF  4 LAST  970 
REF  1 

REF  13  LAST  960 
REF  292  LAST  970 
REF  39  LAST  915 
REF  5 LAST  970 
REF  40  LAST  970 
REF  6 LAST  970 


15t3352 

15.3353 

15.3354 

15.3355 

15.3356 

15.3357 
15  ,3360 

15. 3361 

15.3362 
15,^363 
15,3364 
15  ,3365 

15.3366 

15.3367 
15  ,3370 
15, 3271 

15.3372 

15.3373 

15.3374 
15  ,3375 

15.3376 

15.3377 
15  ,3400 
15,34C1 

15.3402 

15.3403 

15.3404 
15  ,3405 

15.3406 

15.3407 
15  ,3410 

15.3411 

15.3412 


51025  1 
01045  1 
33363  1 
45545  1 
74335  1 
36775  1 
33365  1 
45545  1 
75002  1 
34041  0 
27056  1 
53575  0 
00001  0 
276C7  1 
10757  0 
77776  1 
3 4755  1 
55 '144  0 
f5'145  1 
3 ‘*737  0 
7 0077  0 
IC  000  0 
3 4745  0 
27' 145  1 
3 4753  1 
7 0102  0 
IC  000  0 
3 4750  1 
27'145  1 
3 4750  1 
55'  143  1 


BZ6  POOL 
P57C 

OSU  BPL 

DSPTEMl 

P57C 

OLOAD  STAOR 
STORE  TIG 
STCALL  TALIGN 
P57D 

P57C  DLCAC  STAOR 

STORE  TALIGN 
P57C  STCALL  TOfCl 

LEMPREC 
VLOAD  UNIT 
RATT 
STCALL  XSMU 

LSCRIENT 

EXIT 

PACKOPTN  CAF  ZERO 

TS  OPTIONl  +1 

TS  OPTICNl  +2 

CAF  REFSMBIT 
MASK  FLAGWR03 
CCS  A 
CAF  BIT7 
AOS  OPTICNl  +2 
CAF  ATTFL6IT 
MASK  FLACWRD6 
CCS  A 
CAF  PlTi 
ADS  OPTION!  +2 
CAF  BIT4 
TS  OPTIONl 


IF  KEY  IN  TIME  Z ER  0- TAL  IGN=C  UR  RENT  TIME 
NOT  ZERO  SO  EXCHANGE  PD  WITH  OSPTEMl 


IF  KEYIN  TIMF  GREATER  TFAN  CURRENT  TIME 
STORE  IT  IN  TIG 


COMPUTE  DESIRED  IMU  ORIENTATION  STORE 
IN  X,Y,ZSMD 


PACK  FLAG  BITS  FOR  OPTION  DISPLAY 
JAM  ZERO  IN  ALIGNMENT  OPTION 
INITIALIZE  FLAG  BIT  CONFIGURATION 

REFSMFLG 

SET 

CLEAR-JUST  ZERO 

ATTFLG 

SET 

CLEAR-ZERO  IN  A 

JAM  00010  IN  OPTION!  FOR  CHECK  LIST 


REF  1 

REF  299  LAST  969 
REF  42  LAST  969 
REF  60  LAST  969 

REF  1 


15.3413  3 3634 

15.3414  0 4616 

15.3415  20477 

15.3416  1 6001 

15.3417  1 3421 

15  ,5420  1 3413 


0 DSPOPTN  CAF 

1 TC 

1 CADR 

I TCF 

1 TCF 

0 TCF 


VB0  5N06 
BANKCALL 
GO  FLASH 
GOTOPOGH 
+ 2 

DSPOPTN 


DISPLAY  OPTION  CODE  AND  FLAG  BITS 


VB34-TeRMINATE 

V33-PR0CEED 

V32-ReCYCLE 


REF  5 LAST  970 
PEF  17  LAST  970 
REF  293  LAST  970 
REF  ) 

REF  2 LAST  970 
REF  14  LAST  970 
REF  294  LAST  970 
REF  I 

REF  46  LAST  966 


15.3421  3 4737  C 

15.3422  7 0077  0 

15.3423  10  000  0 

15.3424  1 3524  C 

15.3425  3 4753  1 

15.3426  1 C1C2  0 

15.3427  10  000  0 

15.3430  1 3530  0 

15.3431  3 4752  0 


CAF  REFSMBIT 

MASK  FLAGWRD9 
CCS  A 

TCF  GETLMATT 
CAF  ATTFLBIT 

MASK  FLAGWRC6 
CCS  A 

TCF  PYLMATT 

CAF  BIT2 


SET,  GC  CCMPUTE  LM  ATTITUDE 
CLEAR-CHECK  ATTFLAG  FOR  STORED  ATTITUDE, 


ALLFLG  SET,  CHK  OPTION  FOR  GRAVITY  COMP 
SEE  IF  OPTION  2 OR  3 


gap: 

L 

1888 

1889 

1890 

1891 

1892 

1893 

189^ 

1895 

1896 

1897 

1898 


ASSEMBLE  REVISION 
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P51-P53 


USER'S  PAGE  NCo  51  E5  S3 


REF  13  LAST 
REF  295  LAST 
REF  2 LAST 
REF  39  LAST 

REF  3 LAST 
REF  30n  LAST 
REF  43  LAST 
REF  61  LAST 
REF  2 LAST 
REF  3 LAST 


969  15,3432 

970  15,3433 

970  15,3434 

954  15,3435 

15,3436 
954  15,3437 

970  15,3440 

970  15,3441 

970  15,3442 

970  15,3443 

971  15,3444 


7 1144  0 
1C  COO  0 
1 3530  0 

0 5567  0 
00701  1 

3 5006  1 
C 4616  1 
20477  1 

1 6001  I 
1 3413  0 
1 3413  0 


MASK  0PTI0N2 

CCS  A 

TCF  BYLKATT 

TC  ALARM 

OCT  701 

CAF  V8C5NC9 

TC  BANKCALL 

CADR  GDFLASH 

TCF  GOTOPOCH 

TCF  OSPOPTN 

TCF  OSPOPTN 


OPTION  2 OR  3 BUT  DONT  HAVE  ATTITUDE 
OPTION  INCONSISTANT  WITH  FLAGS-ALARM  701 

DISPLAY  ALARM  FCR  ACTION 


Ve34-T£RM INATE 

V33-PROCEEC  >l'**#*##*TEMPORARY 
VB32-RECYCLE  TC  CPTICN  DISPLAY  V 05N06 


GAP: 

L 

P 1899 

1900 

1901 

1902 

1903 

190A 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 
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P51-P53 


USER'S  PAGE  NCc  52  E5  S3 


TRANSFORM  VEC1,2  FROM  MCCN  FIXEC  TC  REF  ANC  JAM  BACK  IN  VEC1,2 


REF  12  LAST 


REF  29  LAST 
REF  12  LAST 
REF  4 LAST 

REF  13  LAST 

REF  4 LAST 
REF  5 LAST 
REF  2 LAST 


REF  14  LAST 

REF  5 LAST 
RFF  3 LAST 
REF  13  LAST 


15,3445 
949  15,3446 

15,3447 
15,3450 
969  15,3451 

964  15,3452 

965  15,3452 
15,3454 

972  15, 3455 

15,3456 
927  15,3457 

972  15,3460 

964  15  ,3461 

15.3462 

15.3463 
972  15,3464 

15,3465 
972  15,3466 

972  15,3467 

972  15,3470 


40220  0 MFREF  STO 


02746  0 
00001  0 
77634  0 
21574  1 
27562  0 
03246  1 
41525  0 
C3562  0 
77624  1 
55716  1 
27246  1 
03254  1 
65201  1 
COOOl  0 
03562  0 
45C06  0 
55716  1 
37254  0 
C2746  0 


RTB 

STGVL 

POOL 

CALL 

STOVL 

SETPD 

PUSH 

STCALL 


SETPD 

OMAJ 

0 

LOACTIME 

TSIGHT 

VECl 

PUSH 

TSIGHT 

PP-TC-R 

VECl 

VEC2 

POCL 

0 

TS  I6HT 

CALL 

RP-TO-R 

VEC2 

QMAJ 


( 


GAP  : 

L 

P1920 

ftl92l 

1922 

1923 

192A 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 
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P51-P53 


USER  'S  PAGE  NOo  5?  F 5 S3 


CCPPUTE  LM  ATTITUDE  IN  MOON  FIXED  COORDINATES  USING  REFSPPAT  AND 
STORE  IN  YNBSAV  AND  ZN6SAV 


REF  14  LAST 
REF  9 LAST 

REF  30  LAST 

REF  15  LAST 
REF  5 LAST 

REF  4 last 
REF  52  LAST 

REF  16  LAST 

REF  3 • LAST 
REF  3 LAST 
REF  4 LAST 

REF  53  LAST 


REF  17  LAST 

REF  4 LAST 
REF  1 

REF  I 

REF  15  LAST 


15,3471 
972  15,3472 

968  15,3473 

15,3474 
972  15,3475 

15,3476 

972  15,3477 

968  15,3500 
15,35C1 

962  15,3502 

969  15  ,3503 
15,35C4 

973  15,3505 
15,3506 

967  15,35C7 

204  15  ,3510 

933  15,3511 

15,3512 
973  15  ,3513 

15,3514 
973  15,3515 

15,3516 
973  15,3517 

15  ,3520 

15.3521 

15.3522 
973  15  ,3523 


45C2C  I 
C2746  0 
47541  1 
40234  r 
21574  1 
OQOOl  n 
37562  1 
20030  0 
61375  1 
02673  1 
01734  0 
65256  Q 
03562  0 
45006  0 
5170C  1 
26237  0 
02701  0 
53505  1 
01734  0 
41525  C 
03562  0 
77624  1 
51700  1 
02245  0 
77614  1 
03036  1 
02746  0 


REFPF 


STG  CALL 

OMA  J 
COUTR  IG 
RTB  SETPO 

LOADTIPE 

0 

STCALL  TSIGHT 

CALCSMSC 
VLCAD  VXP 
YNB 

REFSMMAT 
UNIT  POOL 

TSIGHT 
PUSH  CALL 

R-TC-RF 
STOVL  YNBSAV 
ZNB 

VXM  UNIT 

REFSMMAT 
PDDL  PUSH 

TSIGHT 

CALL 

R-TO-RF 
STORE  ZNBSAV 
SETGO 

ATTFLAG 

OMAJ 


GFT  SIN  AND  COS  OF  COUS 

GET  YNB  IN  SM 

YNB  TO  REF 


YNB  TO  MF 

ZNB  TO  REF 

ZNB  TO  MF 


I 


gap:  assemble  REVISION  131  CF  AGC  FPCGPAM  LUMINARY  0Y  NASA  2021112-091 
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P19A9  EPANCH  TO  ALIGNMENT  CPTICN 


1950 

1951 

1952 

1953 


PEF  213  LAST  969 
REF  3 LAST  966 


15,352^ 

15.3525 

15.3526 

15.3527 


C 6CA2  J 
7762A  1 
33^71  0 
77776  1 


1954 

1955 

1956 

1957 

1958 

1959 


REF  65 
REF  3 
REF  47 
REF  14 
REF  296 
REF  2 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


960 

968 

969 
971 
971 
960 


15  ,3530 

15.3531 

15.3532 
15  ,3533 

15.3534 

15.3535 


0 5504  0 
00205  0 

5 4753  1 
7 1144  0 
■1C  CC9  0 

1 2561  0 


BYLMATT  TC 


AORES 

CAF 

MASK 

CCS 

TCF 


UPFLAG 
INITALGN 
BITl 
OPT  I0N2 
A 

GVOETER 


1960  REF  101  LAST  969 

1961 


15.3536  C 5353  1 ATTCHK 

15.3537  04024  0 


TC  PHASCHNG 

CCT  04024 


1962  RFF  3 LAST  O70 

1963  REF  15  LAST  970 

1964  REF  297  LAST  974 

1965  REF  1 

1966  REF  102  LAST  974 

1967 


15.3540 

15.3541 

15.3542 

15.3543 

15. 3544 

15.3545 


3 4753 
1 01C2 
10  000 
1 3560 
C 5353 
04024 


1 

0 

0 

0 

1 

0 


P57JUMP 


CAF  ATTFLBIT 

MASK  FLAGWRD6 

CCS  A 

TCF  P570PT0 

TC  PHASCHNG 

OCT  04024 


1966 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 


REF  97  LAST  O60 
REF  4 last  974 
REF  29  LAST  969 
REF  15  LAST  974 
PEF  298  LAST  974 

REF  2 LAST  974 
REF  1 
REF  1 
REF  1 


15.3546  C 5516  0 

15.3547  00205  0 

15  ,3550  3 6250  0 

15.3551  7 1144  0 

15.3552  50  000  I 

15.3553  1 3554  1 

15.3554  1 3560  0 

15.3555  1 3601  1 

15.3556  1 3617  0 

15.3557  1 3620  1 


TC  DOWNFLAG 

AORES  INITALGN 

CAF  THREE 

MASK  .0PTICN2 

INDEX  A 

TCF  +1 

TCF  P570PT0 

TCF  P570PT1 

TCF  P570PT2 

TCF  P570PT3 


17: f3  DEC„  19 


969  LEMP50S  -119  PAGE  974 


USER’S  PAGE  NC,  54  E5  S3 


GO  TRANSFORM  TO  MF  IN  YNB SA V , ZN6SAV 

SET  INITIAL  ALIGN  FLAG 

SFE  IF  OPTION  1 OR  3 
OPTION  1 OR  2 , GET  GRAVITY 


NOT  1 OR  3,  CHECK  ATTFLAG 


GET  ALIGNMENT  VECS  FOR  OPTION  0 


ATTFLG  CLEAR-RESET  INTALIGN  FLAG 

BRANCH  ON  OPT  ION  CODE 


CPT  ION  IS  0 
OPTION  I S 1 
OPTION  IS  2 
OPTION  IS  3 


GAP 


ASSEMBLE  REVISION  131  OF  AGO  PRCC-RAM  LUMINARY  BY  NASA  2021112-091 


L 


P1973  OPTION  0»  GET  TWO  ATTITUDE  VECS 


1979  REF  21A 

1980 

1961  REF  ^ 

1962  REF  6 

1983  REF  2 

198A  REF  4 

1985  REF  10 

1986 

1987  REF  6 

1988 

1989  REF  5 

1990  REF  11 

1991  REF  5 

1992  REF  8 

1993  REF  1 

1994 

1995  REF  2 


LAST  974 

LAST  973 
LAST  <572 
LAST  973 
LAST  972 
LAST  973 

LAST  973 

LAST  973 
LAST  965 
LAST  973 
LAST  946 


LAST  964 


15.3560 

15.3561 

15.3562 
15  ,3563 

15.3564 

15.3565 
15  ,3566 
15,3567 

15.3570 

15.3571 

15.3572 
15  ,3573 

15.3574 

15.3575 
15  ,3576 
15,3577 
15,3600 


0 6042  1 
77775  I 
C2237  0 
27246  1 
02245  0 
37259  C 
97541  1 
77624  1 
20030  0 
77775  1 
C2673  1 
26761  0 
02701  0 
36767  1 
33445  I 
7765C  1 
33064  0 


P570PT0 


SAMETYP 


TC 

VLCAC 

STOVL 

STCALL 

CALL 

VLCAC 

STCVL 

STCALL 

GOTO 


INTPRET 

YNESAV 
VECl 
ZNESAV 
VEC2 
CDUTR IG 

CALCSMSC 

YNB 

STARSAVl 

ZNB 

STAR  SAV? 
MFREF 

SURFLINE 


R1996  OPTION  1,  GET  LANDING  SITE  AND  Z-ATTITUDE  VEC 


1997 

1998 

1999 

2000 
2001 
2002 

2003 

2004 

2005 
2306 

2007 

2008 

2009 

2010 


REF  215  LAST 

REF  12  LAST 
REF  7 LAST 
REF  3 LAST 
REF  5 LAST 
REF  11  LAST 

REF  7 LAST 

REF  9 LAST 
REF  4 LAST 

PEF  1 


975  15,3601 

15,3602 
967  15,3603 

975  15,3604 

975  15,3605 

975  15,3606 

975  15,3607 

15,3610 
975  15,3611 

15  ,3612 
966  15,3613 

966  15,3614 

15.3615 

15.3616 


0 6092  1 
53575  0 
C2023  1 
27296  1 
02245  0 
37254  0 
47541  1 
77624  1 
20030  0 
45175  0 
02231  0 
97663  1 
77650  1 
33573  0 


P57CPT1 


TC  INTPRET 

VLOAD  UNIT 
PLS 

STOVL  VECl 

ZNBSAV 
STCALL  VEC2 

CDUTR IG 

CALL 

CALCSMSC 
VLOAD  CALL 
GSAV 

COU*NBSM 

GOTO 

SAMETYP 


17:53  DECo  19,106Q  LEMP50S  nll9  PAGE  975 


USER  • S PAGE  NOc  5*:  E5  S3 


Y AND  Z ATTITUDE  WILL  BE  PUT  IN  REF 


COMPUTE  SC  AXIS  WRT  PRESENT  SM 


Y SC  AXIS  WPT  PRE  SENT  SM 

Z SC  AXIS  WPT  PRESENT  SM 
TRANSFORM  VECl, 2 FROM  MF  TO  RFF 


LANCING  S ITF  VEC 
Z ATTITUDE  VEC 

GET  ZNB  AXIS  WRT  PRES  SM  FOR  STARSAV2 
TRANS  GSAV  FROM  NB  TO  SM  FOR  STARSAVl 


NOW  DO  SAME  AS  OPTION  0 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-O‘?l 

L Pfl-PE3 


P2011  OPTION  2i  GET  TWO  STAR  SIGHTINGS 
2012  REF  I 15,3617  1 3030  0 P570PT2  TC F 2STARS 


R2013  OPTION 


GET  LANDING  SITE  VEC  AND  CNE  STAR  SIGHTING 


2014  REF  216 

2015 

2016  REF  13 

2017  REF  8 

201fi  REF  6 

2019  REF  10 

2020 

2021  REF  5 

2022  REF  12 

2023  REF  2 

2024 

2025  REF  2 


LAST  975 

LAST  975 
LAST  975 
LAST  975 
LAST  975 

LAST 
LAST 
LAST 


LAST  964 


15. 3620 

15.3621 

15.3622 

15.3623 
15  ,3624 
15,3625 
15, ■^626 
15  ,3627 

15.3630 

15.3631 

15.3632 

15. 3633 


C 6C42  I 
53575  0 
02023  1 
03246  1 
27254  1 
C2231  0 
77624  1 
47  663  1 
3676)  1 
33445  1 
77776  1 
1 3C22  1 


P570PT3 


975 
975 
97  5 


TC  INTPRET 

VLOAD  UNIT 
RLS 

STORE  VECl 
STOVL  VEC2 
GSAV 

CALL 

CDU#NBSM 
STCALL  STARSAVl 
MFREF 

EX  IT 

TCF  ISTAR 


2026 


15  ,3634  01206  1 ve05N06  VN  506 


17:53  CECo  19,1969  LERP50S  cll9  PAGE  976 
USER'S  PAGE  NCc  56  E5  S3 

DC  SIGHTING  ON  2 STARS 


LANDING  S ITE  VEC 

DUMMY  VEC2  FOR  2ND  CATALOG  STAR 
GRAVITY  VEC  NB 

TRANS  GSAV  FROM  NB  TO  SM  FOR  STARSAVl 
STARSAV2  IS  STORED  AS  2N0  CBSERVEO  STAR 


ISTAR  GET  VFC2 ,STAPSAV2,G0ES  TO  SURFLINE 


ASSEMBLE  REVISION  131  CF  AGO  PRCCRAf'  LUMINARY  BY  NASA  2021112-091 


P51-P53 

CHECK  IM0DES30  TO  VARIFY  IMU  IS  CK 


2028 

2029 

2030 

2031 


REF  46 
REF  24 
REF  299 


LAST 

LAST 

LAST 


474 

950 

974 


15.3635 

15.3636 

15.3637 
15,364C 


4 1277 
7 4743 
1C  000 
1 3644 


MASK 

CCS 

TCF 


2032 

2033 

2034 


REF  40  LAST  971 
REF  62  LAST  971 


15  ,3641 

15.3642 

15.3643 


0 5567  0 
00210  1 
0 6001  0 


ALARM 

210 

60T0PDCH 


2037 

2038 

2039 

2040 

2041 


LAST  541  15,3646  0 4631  1 


REF  2 LAST  250 
REF  1 


04,2757 

C4,20nC 

04,2757 


TC 


SWRETURN 


BANK  04 
SETLCC  ACTMARK2 
8ANK 

CCUNT*  TS/P57 


2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 


REF  16  LAST  973 
REF  6 LAST  834 


REF  2 LAST  834 
REF  14  LAST  970 


LAST  949 


REF  15  LAST  977 
REF  6 LAST  949 
REF  17  LAST  977 


04,2757 

34 .2760 

04.2761 

04.2762 

04.2763 

04.2764 

04.2765 

04.2766 

04.2767 

04.2770 

04.2771 

04.2772 


77220  1 
02746  0 
C1555  0 
47235  0 
01563  0 
03607  0 
77656  1 
03623  0 
53435  0 
03607  0 
37615  1 
02746  0 


LSORIENT  STO 


UNIT 

STCRE 

vxv 


VLOAD 

OMAJ 

RRECTCSM 

VXV 

VRECTCSM 

XSMO 


ZSMD 
UNI  T 
XSMD 
STCALL  YSMO 
QMAJ 


17:53  DEC.  19,^969  LEMP50S  119  PAGE  977 
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IS  IMU  ON 
YES 

NO,  SEND  ALARM  AND  EXIT 

SET  IMUSE  FLAG 


GAP  ; 


ASSEPBLE  REVISION  131  CF  AGC  PRCCPAM  LUMINARY  BY  NASA  202in2-0<;i 
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L 

LUNAR  ANO  SOLAR  EPHEWERIDES  SLBROUTINFS  USER'S  PAGE  NOn  3 EO  S3 

R2000 

R2002 

R200«k 

NAPE  - LSPOS  - LCCATE  SUN  ANC  MOON  CATE  - 29  OCT  67 

MOD  NOo  1 

MOO  BY  NEVILLE  ASSEMBLY  SUNDANCE 

R2006 

FLNCTICNAL  CESCRIPTICN 

R2007 

R2009 

R2011 

R2012 

R2013 

COMPUTES  UNIT  POSITION  VECTOR  OF  THE  SUN  AND  MOON  IN  THE  BASIC  REFERENCE  SYSTEMo  THE  SUN  VECTOR  S IS 
LCCATEO  VIA  TWO  ANGLESo  THE  FIRST  ANGLE  ( OBL I QUI T Y I IS  THF  ANGLE  BETWEEN  THE  EARTH  EQUATOR  AND  THE  ECLIPTIC®  THE 
SECCND  ANGLE  IS  THE  LCNGITUCE  CF  THE  SUN  MEASURED  IN  THE  ECLIPTIC® 

THE  POSITION  VECTOR  OF  THE  SLN  IS 

R201A 

S=(COSILOSI,  CCS ( C8L) #S1 M LCS » , S I N (08 L ) *S  IN { LOS  ) 1 , WHERE 

R2015 

R2016 

R 2017 
R2019 
R2020 
82021 
R2022 
R2023 
R2029 
R2025 
R2026 
R2028 
R2029 
R2031 

LnS=LCS  +LOS  #T-(C  * S I N ( 2P1  »T » /365o  2 A +C  #C  CS  ( 2 P I *T ) /365  o 2 A ) 

0 R 0 1 

LOS  (RAO)  IS  THE  LONGITUDE  CF  THE  SUN  FCR  MIDNIGHT  JUNE  30TH  OF  THE  PARTICULAR  YFAR® 

0 

LCS  (RAC/CAY)  IS  THE  MEAN  RATE  FOR  THE  PARTICULAR  YEAR® 

R 

LCS  ANC  LCS  ARE  STOREC  AS  LOSC  AND  LOSR  IN  RATESP* 

0 P 

COS(OBLI  ANC  SIN(OBLI  ARE  STCREO  IN  THE  MATRIX  KONMAT® 

T,  TIME  MEASUREC  IN  CAYS(2A  HCURS),  IS  STORED  IN  TIMER® 

C AND  C ARE  FUDGE  FACTORS  TC  MINIMIZE  THE  DEVIATION*  THEY  ARE  STORED  AS  ONE  CON STANT ( CMOO ) , SINCE 

01  221/2 

C *SIN(X)+C  ♦CCSIX)  CAN  BE  WRITTEN  AS  (C  tC  ) *SIN(X+PHI),  WHERE  PHI=ARCTAN(C  /C  1® 

.Cl  0 1 TO 

R2033 

R2035 

R2037 

R2039 

THE  MCON  IS  LOCATED  VIA  FOUR  ANGLES®  THE  FIRST  IS  THE  OBLIQUITY®  THF  SECOND  IS  THE  MEAN  LONGITUDE  CF  THE  MOON, 
MEASURED  IN  THE  ECLIPTIC  FROM  THE  MEAN  EQUINOX  TO  THE  MEAN  ASCENDING  NODE  OF  THE  LUNAR  ORBIT,  ANO  THEN  ALONG  THE 
ORBIT®  THE  THIRD  ANGLE  IS  THE  ANGLE  BETWEEN  THE  ECLIPTIC  AND  THE  LUNAR  ORBIT®  THE  FOURTH  ANGLE  IS  THE  LONGITUDE 
OF  THE  NCDE  CF  THE  MCON,  MEASURED  IN  THE  LUNAR  ORBIT®  LET  THESE  ANGLES  BE  OBL,LOM,IM,  ANO  LON  RESPECTIVELY® 

R20A1 

R2042 

THE  SIMPLIFIED  POSITION  VECTOR  CF  THE  MCCN  IS 

R20A3 

M=(CCS(  LCM)  , COS  (OBL  )*S  IM  LCM  )-$  IN(  OBL  >*S  IN  ( IM  ) *S  I N ( LOM-LON  ) , S IN  (OBL  ) * SI  N(  LOM  ) +C  OS  ( OBL  ) * SI  N ( I M ) * SI  N ( LOM-LON ) ) 

R20A5 

R20<,6 

R20Ad 

R2050 

R2051 

R2052 

R205A 

R2055 

R2057 

R2059 

WHERE 

LCM=LGM  +LCM  *T-(A  *SIN  2P  1*T/ 27®  5 5 <i  5 + A ’»C0  S(  2P  I*  T/27®  5 5 A5  ) + B *SIN  2PI*T/32  + e *CCS  (2  P I*T /32  ) ) , ANC 

0 R 0 1 0 1 

LGN=LON  +LON 

0 R 

A , A , B ANO  B ARE  STORED  AS  AMOC  ANC  BMOC  (SEE  DESCRIPTION  OF  CMOD,  ABOVE)®  COSIOBL),  S I N( OBL ) * SI N( I M ) , 

0 10  1 

SIN(CBL),  ANO  CCS ( CBL 1 *S I N ( IM  ) ARE  STOREC  IN  KONMAT  AS  Kl,  K2,  K3  AND  KA,  RESPECTIVELY®  LOM  , LCM  , LON  , LON 

ARE  STOREC  AS  LOMO,  LQMR,  LONG,  ANO  LONR  IN  RATESP®  0 R C R 

THE  THREE  PHIS  ARE  STORED  AS  AARG,  BARG,  ANO  CARG(SUN)®  ALL  CONSTANTS  ARE  UPDATED  BY  YEAR® 

R2061 

CALLING  SEOLENCE 

GAP:  ASSEMBLE  REVISICN  131  CF  AGC  PRCCRA^'  LUMINARY  BY  NASA  aO21UZ-0?l 

L LUNAR  AND  SOLAR  EPHEMERIDES  SLBROLTINES 

R2062  CALL  LSFCS*  RETURN  IS  VIA  CPRET, 
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USER'S  PAGE  NDc  2 


PAGE  979 
EO  S3 


R2063  ALARMS  OR  ABORTS 
R206A  NONE 


R 2065 


ERASABLE  IMTIALUATICN  RECUIREC 


R2066  TEPHEM  - TIME  FROM  MIDNIGHT  1 JULY  PRECEDING  THE  LAUNCH 

R2O60  TC  ZEROIo  TEPFEM  IS  TF  WITH  UMTS  OF  CENT  I-SECONDS« 

R2069  TIME2  AND  TIMEl  ARE  IN  MFAC  AND  MFAC  +1  UI-EN  PROGRAM  IS 


TO  THE  TIME  CF  THE  LAUNCH  (WHEN  THE  AGC  CLOCK  WENT 
CALLECo 


R2070  OUTPUT 


UNII  HLblllUNflL  VtLILR  Lh  bUN  IN  VbUN* 
UNIT  POSITIONAL  VECTOR  OF  MCCN  IN  VMCQN# 


R2073  SLBPOUTINES  USED 


R2C74  NONE 


R2075  DEBRIS 


R2076 
2077 

207701  REF 
2077C2 


CURRENT  CCRE  SET  ,WCRK 


AREA 
.2773 
20C0 
r3647 


ANC  FREEFLAG 


BANK  04 
SETLOC  EPHEM 
BANK 


2078  REF  6 LAST  957  E5il7l4 

20785  REF  1 

20786  REF  2 LAST  930  15»3647 


LUNPOS 


EeANK=  VSUN 
COLNT*  tS/EPHEM 
EQUALS  LSPOS 


2079 

2080 
2002 

2083 

2084 
2086 
2087 
2086 
20fl9 

2090 

2091 

2092 
209? 
2096 

2095 

2096 

2097 

2098 


REF  3 
REF  1 
REF  1 


REF  11 

REF  1 
REF  1 

REF  2 
REF  1 


LAST 


LAST 


LAST 


244 


965 


979 


15.3650 

15.3651 
15,  3652 

15.3653 

15.3654 

15.3655 

15.3656 

15.3657 

15.3660 

15.3661 

15.3662 

15.3663 

15.3664 

15.3665 
15  ,3666 
15,3667 
15,3670 


542C1 

OOOOl 

2C617 

56371 

01707 

12024 

00031 

77170 

COOOO 

COOno 

77614 

C0274 

77745 

12004 

00027 

40745 

onc3i 

12050 


0 

0 

0 

1 

0 

1 

0 

1 

1 

1 

1 

0 

1 

n 

1 

0 

0 

1 


LSPOS 


POSITA 

P0SIT6 


SETPD  SR 
0 

140 

TAD  DOV 

TEPHEM 
CSTODAY 
STORE  TIMER 
AXT,1  AXT,2 
0 
0 

CLEAR 

FREEFLAG 

OLOAO 

KONMAT  +2 
STORE  GTMP 
CLOAD  DMP# 

TIMER 
VAL67  +4,1 


TP 

TIME  OF  LAUNCH 

24  HOURS-8640000  C ENT  I -SEC  S/OA  Y B-33 
T I N DAYS 


SWITCH  BIT 
ZEROS 


T 

1/27  OR  1/32  OR  1/365 


GAP: 

L 

2090 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

212A 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 
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LLNAR  AND  SCLAR  EPHEMERIUES  SLBBCUTINES 


USER'S  PAGE  NCe  3 E5  S3 


REF  2 

REF  3 

REF  2 

REF  3 

REF  12 
PEF  1 

REF  3 
REF  1 

REF  2 

REF  4 
REF  1 

PEF  17 

REF  1 
REF  1 

REF  1 

REF  2 
REF  3 

REF  4 

REF  5 

REF  2 
REF  8 

PEF  3 
REF  f 

REF  7 

REF  4 
REF  7 


LAST  979 
LAST  980 
LAST  979 
LAST  980 
LAST  979 

LAST  979 

LAST  980 
LAST  980 

LAST  959 


LAST  980 
LAST  980 

LAST  980 

LAST  960 

LAST  979 
LAST  930 

LAST  980 
LAST  980 

LAST  980 

LAST  980 
LAST  979 


15,3672 
15  ,3673 

15.3674 

15.3675 

15.3676 

15.3677 
15  ,3700 

15.3701 

15.3702 
15  ,3703 
15, 37C6 

15.3705 

15.3706 

15.3707 
15  ,3710 

15.3711 

15.3712 
15  ,3713 

15.3714 

15.3715 
15  ,3716 
15,371 ? 

15.3720 

15.3721 

15.3722 
15  ,3723 

15.3724 

15.3725 

15.3726 

15.3727 

15.3730 

15.3731 

15.3732 
15  ,3733 

15.3734 

15.3735 
15  ,3736 
15,3737 

15.3740 

15.3741 

15.3742 
15  ,3743 

15.3744 

15.3745 

15.3746 

15.3747 

15.3750 

15.3751 

15.3752 


42661  0 
20211  1 
12046  0 
40756  1 
12044  1 
62015  1 
CrG27  1 
77771  0 
00027  1 
77614  1 
00054  0 
33666  1 

40745  0 POSITC 
00031  0 
65747  C 
42661  0 
20206  1 
65741  0 
77625  0 
00027  1 
10021  0 
63135  0 
C0C5C  1 
77775  1 
53C15  0 
12C26  C 
33753  0 
77644  1 
33663  1 

45345  1 POSTTF 

C0021  1 

00025  0 

65356  1 

C0Q21  1 

65356  1 

00021  I 

55546  C 

53521  1 

12CC2  0 

02723  0 

65345  n 

12CC4  0 

00023  0 

65356  1. 

00023  0 
55546  0 
53521  1 
12002  0 
C2715  0 
77616  0 


SL  DAC* 

80 

VAL67  +2,1 
SIN  UMP* 

VAL67,1 
CAC  INCR.l 
CTMP 

DEC  -6 
STORE  GTMP 
B0FS6T 

FREFFLAG 
PCS1T6 
□LOAD  DMP# 

T IREP 
RATESP,2 
SL  DAO* 

5D 

PATESP  +6,2 

CSU 

GTPP 

STORE  STMP,2 
SLCAD  1NCK,2 
X2 

oec  -2 

OAC  BZE 

RCB-1  3 
POSITE 

BPL 

POSl  TA 
DLOAD  DSU 
STMP 
STMP  +4 
SIN  POOL 
STMP 
SIN  POOL 
STMP 
COS  VDEF 
MXV  UNIT 

KONRAT 

STORE  VMOON 
CLCAC  PCCL 

KCNMAT  +2 
STMP  +2 
SIN  PDCL 

STMP  +2 
COS  VDEF 
MXV  UNIT 

KONMAT 
STCRE  VSUN 
RVQ 


AARG 

SIN(T/27+Phn  OR  T/32  OR  T/365 
( A0**2+A1**2  >**1 /2  SI N(X+PHI A) 
PLUS 

(B0**2+P1**?)**1/2SIN(X+PHIB» 

OR  (C0**2+C1**2»**1/2SIN(X+PHICI 


T 

LOMR,LOSR,LONR 

LCMC,LOSC,LCNC 


LCM,LCS,LGN 


PLUS  2 
2ND 

1 ST 
3RD 
LCM 
LON 

SIN(LOM-LON  > 
SIN  LOM 
COS  LCM 
Kl,K2,K3,K4, 


ZERO 
SIN  LOS 
COS  LOS 


( 


gap: 
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2149 

2150  REF 

2151  REF 

2152 

2153  REF 

21536  REF 

21537 


5 LAST 
5 LAST 

1 

2 LAST 


15,3753  77745  1 POSIT! 

980  15,3754  12004  0 

980  15  ,3755  00027  1 

15.3756  77650  1 

15.3757  33705  0 

51  05,2000 

05,35C5 


21538  REF  2 LAST  51  TO 

2163 

2164 

2165 


52: 

0020 

0026 

0030 


STMP 

GTMP 

TIMER 


END  OF  LEMP50S  oJ19  *** 


NASA  2021112-091  17:53  DEC*  19,1969  LEMP50S  oll9  PAGE  981 


USER'S  PAGE  NC«  4 E5  S3 

CLCAD 

STORE 

GOTO 

KONMAT  +2  ZEROS 

GTMP 

SETLOC 

BANK 

POSI TD 

EPHFMl 

COUNT# 

$$/EPHEM 

equals 

16C 

EQUALS  220 


EQUALS  240 
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DOWN-TELEMETF  Y PROGRAM 


USER'S  PAGE  NQc 


1 


60  S3 


ROOOl  FRCGRAM  NAME-  COWN  TELEMETRY  PRCGRAM 

R0002  MCO  NOo-  0 TC  CCMPLETELY  REWRITE  THE  CCWN  TELEMETRY  PROGRAM  AND  DOWNLINK  ERASABLE  DUMP  PROGRAM  FOP  THE 

ROOOA  PURPOSE  OF  SAVING  APPROXIMATELY  150  WORDS  OF  CORE  STORAGE® 

RQ006  THIS  CHANGE  RECUIPES  AN  ENTIRELY  NEW  METHOD  OF  SPECIFYING  OCWNLINK  LISTSoREFER  TO  CCHNLINK 

R0006  LISTS  LCG  SECTION  FOR  ROBE  DETAILS®  HOWEVER  THIS  CHANGE  WILL  NOT  AFFFCT  THE  GROUND  PROCESSING 

ROOlO  OF  COWN  TELEMETRY  DATA® 

ROOll  MCD  BY-  KILROY,  SMITH,  CEWITT 

R0012  DATE-  020CT67 

R0013  AUTHORS-  KILROY,  SMITH,  DEWITT,  OEWOLF,  FAGIN 

ROOIA  LCG  SECTION-  DOWN-TELEMETRY  FPCGBAM 

R0015  FUNCTIONAL  DESCRIPTION-  THIS  RCLTINE  IS  INITIATED  BY  TELEMETRY  END 
R0016  PULSE  FRCP  THE  CCWNLINK  TELEMETRY  CONVERTER®  THIS  PULSF  CCCUPS 

R0017  AT  50  TIMES  PEP  SECIEVERY  20  MS)  THEREFORE  DODOWNTM  IS 

R0018  EXECUTED  AT  THESE  RATES®  THIS  ROUTINE  SELECTS  THE  APPROPRIATE 

R0019  AGC  DATA  TO  EE  TRANSMITTED  OCWNLINK  AND  LOADS  IT  INTO  OUTPUT 

R0020  CHANNELS  34  AND  35®  THE  INFCPMATICN  IS  THEN  GATED  CUT  FROM  THE 

R0021  LGC  IN  SERIAL  FASHION® 

R0022  THIS  PROGRAM  IS  CCOEC  FCR  A 2 SECCNO  COWNLIST®  SINCE  OOWNRUPTS 

R0023  OCCUR  EVERY  20MS  AND  2 AGC  COMPUTER  WCROS  CAN  BE  PLACED  IN 

R0024  CHANNELS  34  AND  35  CURING  EACH  DOWNRUPT  THE  PROGRAM  IS  CAPABLE 

R0025  OF  SENDING  200  AGC  WCRCS  EVERY  2 SECONDS® 

R0026  CALLING  SEOUENCE-  NONE 

R0027  PRCGRAM  IS  ENTERED  VIA  TCF  CCDCWNTM  WHICH  IS  EXECUTED  AS  A 

R0028  RESULT  OF  A DOWNRUPT®  CONTROL  IS  RETURNED  VIA  TCF  PFSUME  WHICH 

R002O  IN  EFFECT  IS  A RESUME® 

R0030  SUBROUTINES  CALUED-  NONE 

R0031  NORMAL  EXIT  MODE-  TCF  RESUME 

R0032  ALARM  CB  ABORT  EXIT  MCOE-  NCNE 

R0033  RESTART  PROTECTION; 

R0034  ON  A FRESH  START  AND  RESTART  THE  ‘STARTSUB*  SUBROUTINE  WILL  INITIALIZE  THE  OOWNLIST  PC  I NT EP I ACTUALLY 

R0036  DNTMGCTCI  TO  THE  BECINMNG  OF  THE  CURRENT  DOWNL  1ST  I I ® E o CURRENT  CONTENTS  OF  DNLSTADR)®  THIS  HAS  THE 

R0038  EFFECT  OF  IGNORING  THE  REMAINDER  CF  THE  COWNLIST  WHICH  THE  DOWN-TELEMETRY  PROGRAM  WAS  WORKING  ON  WHEN 

R004n  THE  RESTARTIOR  FRESH  START)  OCCURRED  AND  RESUME  DOWN  TELEMETRY  FROM  THE  BEGINNING  OF  THE  CURRENT 

R0042  OOWNLIST® 

R0043  ALSO  OF  INTEREST  IS  THE  FACT  THAT  ON  A RESTART  THE  AGC  WILL  ZERC  CCWNLINK  CHANNELS  13,  34  AND  35® 

R0047  OCWNLINK  LIST  SELECTION: 

R0048  THE  APPRCPPIiTE  CCWNLINK  LISTS  ARE  SELECTED  BY  THE  FCLLCWING: 

R0049  1®  FRESH  START 

R0050  2®  V37EXXE  WHERE  XX  = THE  MAJOR  MODE  BEING  SELECTED® 

R0051  3®  UPDATE  PftOGRAM(P27) 

R0052  4®  N0N-VJ7  SELECTABLE  TYPE  PROGR AM S ( E® Gs  AGS  INI T! AL I ZATI CN{ SUNDANCE , LUM I N ARY  I AND  P61-P62 

R00522  TP.ANSITICMCCLCSSUS  > ETC®)® 

R00525  CCWNLINK  LIST  RULES  AND  LIMITATIONS: 

R00526  READ  SECTICN(S)  WHICH  FOLLOW  'OEERIS'  WRITEUP® 

R0053  OLTPLT-  EVERY  2 SECCNOS  100  DOUBLE  PRECISION  WORDSIUE®  200  LGC 
R0054  COMPUTER  WORCSI  ARE  TRANSMITTED  VIA  OCWNLINK® 

R0055  ERASABLE  INITIALIZATION  RECUIREC-  NONE 

R0056  'DNTMGOTO*  AND  'DNLSTADR*  APE  INITIALIZED  EY  THE  FRESH  START  PROGRAM® 

R0058  DEBRIS (ERASABLE  LOCATIONS  OESTRCYED  BY  THIS  PROGRAMl- 
R0059  LOATALST  ,ONTMBUFF  TC  CNTMBUFF  +21  C , TM  IN CEX  , ONO® 


GAP: 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAM  LUMINARY  8Y  NASA  2P21J12-09J 


17:53  OeCo  IQ, 1969  SKIPPER  r ICl  PAGE  98A 


L DCWN-TELEMETRY  PROGRAM  USER'S  PAGE  NCo  3 EC  S3 

P0065  DOCORN7M  IS  ENTERED  EVERY  20  MS  PY  AN  INTERRUPT  TRIGGERED  EY  ThE 
R0066  RECEIPT  OF  AN  ENDPULSE  FROM  THE  SPACECRAFT  TELEMETRY  PROGRAW^'ERo 


R0067 

R0068 

R0069 

R0070 

R0075 

R0076 

R0077 

R0078 

R0079 

ROOSn 

R0081 

R0082 

R00d3 

R00a4 

R0085 

R0086 

R0067 

R0086 

R0089 

R0090 

R0091 

R0092 

R0093 

R0094 

R0095 

R0096 

R0097 

R0098 

R0110 

ROlOl 

R0103 

R0104 


NCTES  REGARDING  DOWNLINK  LISTS  ASSOCIATED  WITH  THIS  PROGRAM: 
lo  DOViNLISTSt  - DOWN'LISTS  MUST  EE  COMPILED  IN  THE  SAME  BANK  AS  THE 
DOWN-TELEMETRY  PROGRAMo  THIS  IS  DONE  FOR  EASE  OF  COOING,  FASTER 
ExECUTICNa 

2e  EACH  DOWNLINK  LIST  CONSISTS  CF  A CCNTRCL  LIST  AND  A NUMBER  CF 
SUBL  ISTSc 

3e  A SLSLIST  REFERS  TC  A SNAfSHCT  CP  CATA  COMMON  TC  THE  SAME  OP  OTHER 
DOWNLINK  LISTS#  ANY  SU6LIST  CONTAINING  COMMON  DATA  NEEDS  TO  PE 
COOED  CNLY  CNCE  FCR  THE  APPLICABLE  DOWNLINK  LISTS# 

Ac  SNAPSHOT  SUBLISTS  REFER  SPECIFICALLY  TC  HCMCGENCUS  DATA  WHICH  MUST  BE 
SAVED  IN  A BUFFER  DURING  ONE  OOWNRLPT# 

5#  THE  IDNAOR  FOR  THE  1ST  WOPC  CF  SNAPSHOT  DATA  IS  FOUND  AT  THE  END 

OF  EACH  SNAPSHOT  SLBLIST,  SINCE  THE  PROGRAM  CODING  SENDS  THIS  CP  WORD 
IMMEDIATELY  AFTER  STORING  THE  OTHERS  IN  THE  SNAPSHOT  BUFFER# 

6#  ALL  LISTS  ARE  CCMBINATICNS  CF  CCDEC  ERASABLE  ADDRESS  CONSTANTS 
CREATED  FOR  THE  DOWNLIST  PROGRAM# 

A«  ICNADR  1-WCPC  CCWNLIST  ADDRESS, 

SAME  AS  ECADR,  BUT  USED  WHEN  THE  WORD  ADDRESSED  IS  THE  LEFT 

HALF  OF  A DOUBLE-PRECISION  WORD  FOR  DOWN  TELEMETRY# 

B#  20NA0R  - 60NACR  N-WCPC  CCWNLIST  ADDRESS,  N = 2-6# 

SAME  AS  lONADR,  BUT  WIIH  THE  4 UNUSED  BITS  CF  THE  ECADR  FORMAT 
FILLED  IN  WITH  0001-0101#  USED  TO  POINT  TO  A LIST  OF  N DOUBLE- 
PRECISION  WORDS,  STORED  CCNSECUT IVELY , FOR  DOWN  TELEMETRY, 

C#  ONCHAN  DOWNLIST  CHANNEL  ADDRESS# 

SAME  AS  IDNACR,  BUT  WITH  PREFIX  BITS  0111#  USED  TO  POINT  TO 
A PAIR  CF  CHANNELS  FCR  DOWN  TELEMETRY, 

D#  DNPTR  DOWN  TELEMETRY  SUBLIST  PCINTERc 

SAME  AS  CAF  BUT  TAGGED  AS  A CCNSTANT#  USED  IN  CONTROL  LIST  TO  POINT  TO  A SUBLIST# 

CAUTION A DNPTR  CANNOT  BE  LSEO  IN  A SU6LIST# 

7#  THE  WORC  ORDER  CODE  IS  SET  TO  ZERO  AT  THE  BEGINNING  OF  EACH  DOWNLIST  (UE#  CONTROL  LIST!  AND  WHEN 
A 'IDNAOR  TIME2*  IS  DETECTED  IN  THE  CONTROL  LIST(ONLY)# 

8c  IN  THE  SNAPSHOT  SUBLIST  ONLY,  THE  DNADR'S  CANNOT  POINT  TC  THE  FIPST  WORD  OF  ANY  EBANK# 


ROI1I6  OCWNLINK  LIST  RESTRICTIONS: 

RC107  ITHE  FOLLOWING  POINTS  MAY  BE  LISTED  ELSEWHERE  BUT  ARE  LISTED  HERE  SO  IT  IS  CLEAR  THAT  THESE  THINGS  CANNOT  BE 

R0109  CONE) 


ROUO  1#  SNAPSHOT  DOWNLIST: 

ROlll  U)  CANNOT  CONTAIN  THE  FOLLOWING  ECAOPSdoE#  IDN’ACR'SI:  0,  400,  lOnn,  14P0,  2000,  ?400,  3000,  3400# 

R0113  ID)  CAN  CONTAIN  ONLY  IDNAOF'S 


RCllA  2c  ALL  DOWNLINKED  CATAIEXCEFT  CHANNELS)  IS  PICKED  UP  BY  A <DCA<SO  DOWNLINK  LISTS  CANNOT  CONTAIN  THE 
R0116  EQUIVALENT  OF  THE  FOLLOWING  ECAORSIUE#  lONADRS):  377,  777,  1377,  1777,  2377,  27777,  3377,  3777# 


R0118  (NCTE:  THE  TERM  EQUIVALENT  ' MEANT  THAT  THE  lONAOR  TO  60NA0R  WILL  BE  PROCESSED  LI KF  1 TC  6 ECAORS) 

R0120  3#  CONTROL  LISTS  AND  SUBLISTS  CANNCT  HAVE  ENTRIES  * OCTAL  00000  OR  OCTAL  77777 
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R0125 

R0126 

R0127 

R012e 


CCWN-T  ELEM  ETRY  PROGRAM  USER'S  PAGE  NCo  A EO  S3 

Ao  THE  'ICNACR  TIME2'  tiHICH  WILL  CAUSE  THE  DOWNLINK  PROGRAM  TO  SET  THE  WORDER  CODE  TO  3 MUST  APPEAR  IN  THE 
CONTROL  SECTION  OF  THE  OCWNLISTo 

5c  'ONCFAN  0*  CANNCT  EE  USECc 

6«  'DNPTR  O'  CANNCT  BE  USECo 

7o  CNPTR  CANNOT  APPEAR  IN  A SLBLIST* 


R0129 

R0130 

R0132 

R013A 

R0136 

R0137 

R0138 

R0139 

ROIAO 


EEANK  SETTINGS 

IN  THE  PROCESS  OF  SETTING  THE  EBANKIHHEN  PICKING  UP  DOWNLINK 
•GARBAGE’  INTO  6ITS15-I2  CF  EBANKo  HUGH  BLAIR-SMITH  WARNS  US 
SIGNIFICANT  SOMEDAY  IN  THE  FUTURE*  IF/WHEN  THAT  HAPPENS,  THE 
THAT  eiTS15-12  OF  EDANK  ARE  ZERO* 

INITIALIZATION  RECUIREO-  TC  INTERRUPT  CURRENT  LIST  AND  START  A NEW  ONE 
1*  ACRES  OF  DOWNLINK  LIST  INTO  DNLSTADR 
2o  NEGCNE  I NTC  SUfiL  1ST 

3o  NEGONE  INTO  DNECADR 


DATA)  THE  DOWN 
THAT  BITS15-12 
PRCGRAM  SHOULD 


TELEMETRY  PROGRAM  PUTS 
OF  EBANK  MAY  BECOME 
INSUREIBY  MASKING  ETC*  I 


0142 

0143  #PEF 

0144 


LAST  195 


22,3711 
05  ,2000 
05,3505 


BANK  22 
SETLOC  DOWNTELM 
BANK 


0145 


REF  17  LAST  206 


0340 


EBANK=  DNTMBUFF 


0146  REF  1 

0147  REF  5 

0148 

0149  REF  5 

0150  REF  36 

01502 

01503  REF  17 

01504  REF  300 

01505  REF  4 
015055  REF  6 

01506  REF  37 

0151 

0152  REF  18 
C153  REF  5 


LAST  814 

LAST  814 
LAST  970 

LAST  8)5 
LAST  977 
LAST  290 
LAST  815 
LAST  985 


LAST  985 
LAST  985 


05, 35C5 
05  ,3506 
05,3507 
05,3510 
05  ,35  11 

05.3512 

05.3513 

05.3514 

05.3515 
05  ,3516 
05,3517 
05,3520 
05  ,3521 


54  016  1 
0 0006  1 
22  012  1 
3 4745  C 
C 0006  1 
C2  03  I 
10  COO  0 
0 0335  1 
0 6022  1 
3 4745  0 
C 0006  1 
05  013  0 
0 0335  1 


COUNT* 
DGDOWNTM  TS 

EXTEND 

OXCH 

CA 

EXTEND 

RAND 

CCS 

TC 

TC 

CA 

EXTEND 

WOR 

TC 


S$/CPRGG 

BANKRUPT 

ORUPT 

BIT7 

CHAM3 

A 

CNTMGOTC 

C13STALL 

BIT7 

CHAN13 

DNTMGOTD 


SAVE  0 

AT  THE  BEGINNING  CF  THE  LIST  THE  WORD 
ORDER  BIT  WILL  BE  SET  BACK  TO  ZERO* 


SET  WORD  ORDER  BIT  TO  1 ONLY  IF  IT 
ALREADY  ISN'T* 

GO  TO  APPROPRIATE  PHASE  OF  PROGRAM 


01532  REF 
01  534 


3 LAST  985  C5,2000 

05,3522 


SETLOC  DOWNTELM 
BANK 


0154  REF 
0165  REF 

0156  PEF 

0157  REF 


LAST 


221 


05.3522  3 7752 

05. 3523  54  337 

05.3524  54  336 

05.3525  3 3652 


0 CNPHASEl  CA 

1 TS 
0 TS 
0 CA 


NEGONE 
SUBLI ST 
DNFCADR 
LDNPHAS2 


INITIALIZE  ALL  CONTROL  WORDS 
WORDS  TC  MINUS  CNF 

SET  DNTMGOTO  =0  ALL  SUBSEQUENT  DOWNRUPTS 


GAP : 

L 

0158 

0159 

0160 

0161 

0162 

0163 

016A 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

01  85 

01B6 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

oi*-^ 

0190 

0199 

0200 

0201 

0202 

0203 

0204 

0205 
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REF  6 
REF  1 
REF  2 
REF  1 
REF  29 


LAST  985 
LAST  985 
LAST  923 


35  ,3526 
05,3527 

05.3530 

05.3531 

05.3532 

05.3533 


54  335  0 
1 35A3  1 
10  336  0 

0 3665  1 
77753  0 

1 3534  1 


TS  ONTMGOTQ 

TCF  NEhLIST 

0NPHASE2  CCS  ONFCAOR 

DCDNAOR  TC  FeTCF2WC 

MINTIME2-1DNADR  TIME2 
TCF  +1 


GO  TO  0NPHASE2 

SENDING  OF  DATA  IN  PROGRESS 

YES  - THEN  FETCH  THE  NEXT  2 SP  WORDS 

NEGATIVE  OF  TIME2  lONADR 

(ECADR  OF  3776  + 74.001  = 77777  1 


REF 

E 


2 LAST  985 
1 


05.3534  10  337  1 

05.3535  I 3700  1 

05,5536  74001  0 


CCS 

TCF 

CNACRCCR  OCT 


SUBL I ST 
NE  XTI NSL 
74001 


IS  THE  SUBLIST  IN  CONTROL 
YES 

ONADR  COUNT  AND  ECADR  OECPEMENTER 


REF  1 

REF  2 
REF  1 
REF  7 
PEF  1 
REF  2 
KEF  0 
REF  1 
REF  3 

REF  301 
REF  4 

REF  5 

REF  6 
REF  302 
REF  3 
REF  1 
REF  303 
PEF  1 

REF  2 
REF  I 
REF  4 
REF  I 

REF  2 
REF  1 

REF  1 


LAST  986 

LAST  232 

LAST  906 
LAST  986 

LAST  986 

LAST  985 
LAST  986 

LAST  986 

LAST  986 
LAST  986 
LAST  986 

LAST  986 

LAST  986 
LAST  986 

LAST  986 


05,3537 

05.3540 

05.3541 
C5,3542 

05.3543 

05.3544 

05.3545 
05  ,35A6 
05,3547 

05.3550 

05.3551 

05.3552 
05  ,3553 

05.3554 

05.3555 

05 .3556 

05.3557 

75.3560 

05.3561 

05.3562 
05  ,3563 

05.3564 

05.3565 
05  ,3566 
05,3567 

05.3570 

05.3571 

05.3572 
05  ,3573 

05.3574 

05.3575 
05  ,3576 


3 C334  0 
0 0006  1 
6 3543  0 

1 3550  0 
50  333  1 

2 2441  1 
5A  334  1 

4 0333  0 
1 3767  0 
50  334  0 

3 0000  1 
1C  000  C 
24  334  0 
I 3560  0 
56  334  0 

4 OOOO  0 
56  334  0 
24  000  1 
54  336  0 
6 3532  0 
10  000  0 
1 3570  1 

47777  0 
1 3570  1 
C 3612  1 
3 0336  1 
6 3565  1 
C n006  1 
6 3665  1 
6 7744  1 
C 0006  1 
6 3623  0 


CHKLIST  CA 

EXTEND 

6ZMF 

TCF 

NEWLIST  INDEX 
CA 
TS 
CS 
TCF 

NEXTINCL  INDEX 
CA 
CCS 
INCR 
TCF 
XCH 
COM 
XCH 

+4  INCR 

TS 
• AO 
CCS 
TCF 

MINBL314  OCT 
TCF 

SETWO  TC 

+ 1 CA 

+ 2 AO 

E XTEND 

B2MF 

AO 

EXTEND 

BZMF 


CTLIST 

NEWLIST 
NE  XTI NCL 
DNLSTCOC 
DNTA0LE 
CTLIST 
DNLSTCOD 
SENOID  +3 
CTLIST 
0 
A 

CTLIST 

+4 

CTLIST 

CTLI  ST 
A 

DNECACP 

MINTIME2 

A 

SETWC  +1 

47777 

SETWO  +1 

WCZERC 

DNECADR 

MINei314 

FETCH2W0 

MINB12 

DOONPTR 


IT  WILL  BE  NEGATIVE  AT  END  OF  LIST 


INITIALIZE  CTL  1ST  WITH 

STARTING  ADDRESS  CF  NFW  LIST 


SET  POINTER  TO  PICK  UP  NEXT  CTLIST  WORD 
PN  NEXT  ENTRY  TO  PRPGe  (A  SHOULD  NOT  =0 ) 
SET  CTLIST  TO  NEGATIVE  AND  PL  AC E ( COO  I NG ) 
UNCOMPLEMENTED  DNACR  INTO  Ao  (FOR  LAI 
(ST  IN  ) 
(CTLIST I 

SAVE  ONADR 

TEST  FOR  TIME2  (NEG<.  CF  ECAORI 

DON'T  SET  WORD  ORDER  CODE 

MINUS  BIT  13  AND  14  (CAN'T  GET  HERE! 

DON'T  SET  WORD  ORDER  CODE 

GC  SET  WCRC  PRCEP  CODE  TO  ZFRO* 

RELOAD  A WITH  THE  DNAORe 
IS  THIS  A REGULAR  ONADR? 

YESo  (A  MLST  NEVER  BE  ZERO 
NO-  IS  IT  A POINTER  (DNPTPI  OR  A 
CHANNEL(ONCHAN  I 

IT'S  A POINTFRo  (A  MUST  NEVER  BE  ZERO) 


REF  5 LAST  986 
REF  169  LAST  956 
REF  6 LAST  986 


05,3577 
05  ,3600 

05.3601 

05.3602 
05  ,3603 
05,3604 


C 0006  1 DODNCHAN  TC 
50  336  1 INDEX 

44'000  1 INDEX 

54  001  1 TS 

0 0006  1 TC 

50  336  1 INDEX 


6 

ON ECADR 
C -4000 


L 

6 

DNECACP 


(EXECUTED  AS  EXTEND)  IT  S A CHANNEL 
(EXECUTED  AS  READ) 

(EXECUTED  AS  EXTEND) 


101  PAGE  987 
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USER'S  PAGE  NGc  6 EC  S3 


0206 

0207  REF  7 LAST 

0208  REF  3 LAST 

0209  REF  8 LAST 

0210  REF  1 


05V3605  43'777  1 

986  05,3606  54  336  C 

985  05,3607  3 7752  C 

587  05,3610  56  336  1 

05,3611  1 3713  0 


INDEX  0 -AOOl 

TS  DNECACR 

CA  NEGONE 

XCF  DNECACR 

TCF  DNTMEXIT 


(EXECUTED  AS  READ) 

SET  DNECACR 
TO  MINUS 

WHILE  PRESERVING  A, 
GO  SEND  CHANNELS 


0211 

02111  REF  1 

0211 15  REF  44  LAST 

02112  REF  7 LAST 


05  ,3612  0 0006  1 

05,3613  23'265  1 

897  05,3614  22  070  0 

985  05,3615  0 6022  1 


W02ER0 


EXTEND 

QXCH  C130SAV 
LXCH  RUPTREGl 
TC  C13STALL 


021125  REF 
02113  REF 
0212 

0213  REF 

0214  REF 


LAST 

LAST 


05.3616 

75.3617 

05.3620 

05.3621 
05  ,3622 


22  C70 
4 4745 
C 0006 
C'  C13 
0 1265 


LXCH  RUFTREGl 
CS  BIT7 

EXTEND 

WAND  CHAM3  SET  WORD  CRDER  CODE  TC  ZERO 

TC  C130SAV 


0215  REF  9 

0216 

0217  REF  304 

0218  REF  10 

0219  REF  1 


LAST 

LAST 

LAST 


987 

986 

987 


05.3623 

05.3624 

05 .3625 

05.3626 

05.3627 


50  336  I 
C 0000  I 
10  000  0 
3 C336  I 
1 3677  0 


OCCNPTfi 


INCEX 

0 

CCS 

CA 

TCF 


DNECACR 

0 

A 

DNECAOR 

DOSUBLST 


DNECACR  CONTAINS  ACRES  OF  SUBLlST 
CLEAR  AND  ADD  LIST  ENTRY  INTO  A# 
IS  THIS  A SNAPSHOT  SUBLIST 
NO,  IT  IS  A REGULAR  SUBLISTo 
A MLST  NOT  BE  ZERC« 


0220  REF  11 

0221  REF  3 

0222  PEF  183 

0223  REF  3 


LAST  987  05 

LAST  986  05 

LAST  970  05 

LAST  99  05 


,3630  56  336  1 
,3631  54  337  1 
,3632  3 4755  1 
,3633  56  336  I 


XCH  DNECACR 

TS  SUBLIST 

CAF  ZERO 

XCh  TMINCEX 


YES,  IT  IS  A SNAPSHOT  SUBLIST; 
CIDNECADRI  I NT  C SUBLlST 
A INTO  A 
(NOTEeo  TMINDEX  = CNECADRJ 


R022i  THE  FCLLCWING  CODING  (FROM  SNAPLOCP  TO  SNAPENOIS  FOR  THE  PURPOSE  OF  TAKING  A SNAPSHOT  OF  12  OP  REGISTERS* 

R0226  THIS  IS  DONE  BY  SAVING  11  DP  REGISTERS  IN  CNTMBUFF  AND  SENDING  THE  FIRST  DP  WORD  IMMEDIATELY.- 

R0228  THE  SNAPSHOT  PROCESSING  IS  THE  MOST  TIME  CONSUMING  AND  THEREFORE  THE  CODING  AND  LIST  STRUCTURE  WERE  DESIGNED 

R0230  TC  MINIMIZE  TIME*  THE  TIME  OPTIMIZATION  RESULTS  IN  RULES  UNIQUE  TO  THE  SNAPSHOT  PORTION  OF  THE  OCWNLIST* 

R0232  THESE  RLL6S  AREeoooo* 

R0233  lo  ONLY  lONACR'S  CAN  APPEAR  IN  THE  SNAPSHOT  SLRLIST 

R0234  2o  THE  lONADR'S  CANNCT  REFER  TO  THE  FIRST  LOCATION  IN  ANY  BANK* 


0236 
023  7 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 


REF  56  LAST  953 
REF  5 LAST  791 

REF  305  LAST  987 


PEF  10  LAST  985 
REF  4 LAST  987 
REF  19  LAST  987 
REF  5 LAST  987 
REF  6 LAST  987 
REF  4 LAST  987 


05.3634  54  CC3  0 

05.3635  7 4357  0 

05,363o  0 0006  1 

05,3637  5 OOCO  1 

E3  ,1401 

05.3640  3 1402  0 
0340 

05.3641  50  336  I 

05.3642  52  ^41  0 

05.3643  24  336  1 

05.3644  24  336  1 

05.3645  24  337  0 


EBANK 
LOWS 

EXTEND 
INDEX  A 
FBANK=  1401 
CCA  1401 
EBANK=  0NTM8UFF 
INDEX  TMINDEX 
DNTMBUFF 
TMINDEX 
TMINCEX 
SUBLIST 


DXCH 
INCR 
INCR 
I NCR 


SET  EBANK 

ISOLATE  RELATIVE  ADDRESS 


PICK  UP  2 SNAPSHOT  WORDS* 


STORE  2 SNAPSHOT  WORDS  IN  BUFFER 
SET  BUFFER  INDEX  FCR  NEXT  2 WORDS* 

SET  POINTER  TO  NEXT  2 WORDS  OF  SNAPSHOT 


GAP: 

L 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

02  60 

0261 

0262 

02  63 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

02  76 

0277 

0278 

0279 

0200 

0281 

0282 

0283 

02  8^ 

0205 

0286 

0287 

0288 

A0289 

A0290 

0291 

0292 

0293 

0294 
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0CWN-7ELEMETPY  PRCGPfiM 


USER'S  PAGE  NC*  7 EO  S3 


REF  5 LAST 

REF  306  LAST 
REF  1 
REF  1 
REF  6 LAST 
REF  4 LAST 
PEF  12  LAST 
REF  7 LAST 
REF  57  LAST 
REF  6 LAST 

REF  307  LAST 


REF  20  LAST 
REF  2 LAST 


987  05,3646 

05,  3647 

987  05  ,3650 

05.3651 

05.3652 

988  05,3653 

987  05,3654 

987  05,3655 

908  05,3656 

987  05,3657 

967  05  ,3660 

05,3661 

988  35,366-2 
E3,140] 
05,  3663 

987  0340 

987  35,3664 


50  337 
C 0000 
10  000 
1 3634 
C3530 
54  337 
3 7752 
54  336 
56  337 
54  C03 
7 4357 
C 0CC6 
5 OOCO 


0 

I 

0 

1 

1 

1 

0 

0 

0 

Q 

0 

1 

1 


3 1402  G 


1 3713  0 


INDEX  SUBLIST 
C 0 

CCS  A 
TCF  SNAPLCCF 
LDNPHAS2  GENAOR  0NPHASE2 
TS  SUBLIST 

CA  NEGONE 

TS  DNECADR 

XCH  SU8LIST 
TS  EBANK 
MASK  LOWP 
EXTEND 
INDEX  A 
EeANK=  1401 
DCA  1401 
EBANK=  DNTMBUFF 
SNAPENC  TCF  ONTMEXIT 


= CA  SSSS  (SSSS  = NEXT  ENTRY  IN  SU0LISTI 
TEST  FOP  LAST  TWO  WORDS  OF  SNAPSHOT, 

NPT  LAST  THOe 

YES,  LAST,  SAVE  A« 

SET  DNECADR  AND 

SUBLI ST  POINTERS 

TO  NEGATIVE  VALUES, 


PICK  UP  FIRST  2 WORDS  OF  SNAPSHOT, 
NOW  GO  SEND  THEM, 


REF  50 
REF  7 
REF  170 
REF  1 
REF  14 


LAST 

LAST 

LAST 

LAST 


968 

988 

986 

986 


LAST  988 


REF  171  LAST  988 


REF  21  LAST  988 
REF  3 LAST  988 


05  ,3666 
05,3667 

05.3670 

05.3671 

05. 3672 

05.3673 

05.3674 
E3, 14C0 
05  ,3675 

0340 

05,3676 


3 0336  1 
54  003  0 
7 4357  0 
54  001  1 
3 3536  1 
26  336  0 
0 0006  1 
5 0001  0 

3 1401  0 

1 3713  C 


FETCH2WD  CA 


MASK 

TS 

CA 

AOS 

EXTEND 

INDEX 

EBANK= 

DCA 


E8AN.K= 

TCF 


DNECADR 

EBANK 

LGW8 

L 

CNADRDCR 

DNECADR 


1400 

1400 

DNTMBUFF 

DNTMExn 


SET  EBANK 

ISOLATE  RELATIVE  ADDRESS 
DECREMENT  COUNT  AND  ECADR 


PICK  UP  2 DATA  WORDS 
NOW  GO  SEND  THEM, 


REF  8 
REF  9 

REF  308 
FEF  10 

REF  11 
REF  5 
REF  12 
REF  309 
REF  15 
REF  3 


LAST  988 
LAST  988 

LAST  988 
LAST  988 

LAST  988 
LAST  988 
LAST  988 
LAST  988 
LAST  988 
LAST  986 


05,3677 
05, 37C0 
05,37C1 

05.3702 

05.3703 
05  ,3704 
Q5,37C5 

05.3706 

05.3707 

05.3710 

05.3711 

05.3712 


0 0000  1 
10  OOO  0 
24  237  0 
1 3710  0 
54  337  1 
3 7752  0 
56  337  0 
24  000  1 
54  336  0 
1 3571  0 


DOSUBLST  TS 
NEXTINSL  INDEX 
0 

CCS 

INCR 

TCF 

TS 

CA 

XCF 

♦4  INCR 

TS 
TCF 


SUBLIST 

SUBLIST 

0 

A 

SUBLI ST 
44 

SUBLIST 

NEGONE 

SUBLIST 

A 

DNECADR 
SETWO  42 


SET  SUBL  1ST  PO  INTER 

= CA  SSSS  (SSSS  = NEXT  ENTRY  IN  SUBLIST) 

IS  IT  THE  END  OF  THF  SUBLIST 

NO- 


SAVE  Ao 

SET  SUBLIST  TO  MINUS 
RETRIEVE  A, 

SAVE  ONADR 

GO  USE  COMMON  COD  I NG ( PR OBL EM S WOULD 
CCCUR  IF  THE  PROGRAM  ENCOUNTERED  A 
DNPTR  NOW) 


REF  I 

REF  172  LAST  988 


05,2713  C 0006  I 

05.3714  01  034  1 

05.3715  3 0001  0 

05.3716  C 0C06  1 


DNTMEXIT  EXTEND 

WRITE  DNTMl 
CA  L 

TMEXITL  EXTEND 


CCWN-TELEMETPV  EXIT 

TO  SEND  A 4 L TC  CHANNELS  34  4 35 

RESPECTIVELY 


GAP:  ASStMBLE  REVISION  131  OF  AGC  PRCGRAK  LUMINARY  BY  NASA  2021J12-091 

L DCWN-TELEMETRY  PPCGRAR 


17:53  DEC*  19,1969  SKIPPER 
USER'  S PAGF  NCo  B 


♦ICl  PAGE  989 
EP  S3 


C295  REF  1 

0296  REF  21  LAST 


05,3717 
817  05,3720 


01  C35  0 WRITE  DNTP2 

1 5270  0 TMRESUME  TCF  RESUME 


EXIT  TELEMETRY  PROGRAM  VIA  RESUME# 


0297 

0298 

0299 

0300 
R03005 


REF  2 LAST  532 

REF  7 LAST  987 

REF  2 LAST  99 

REF  2 LAST  100 

MOD  BY  - DENSMORE  - 


77^4  MINB12  EQUALS 

0336  CNECACR  EQUALS 

033A  CTLIST  EQUALS 

0337  SUELIST  EQUALS 

JUNE  1969  - ELIMINATE  ERASABLE  CUMP 


-1/8 

TMINCEX 

LOATALST 

DNQ 

CCUNT 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PFCGRAM  LUMINARV  BY  NASA  2021112-091 
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L DOWN- TELEMETRY  PROGRAM  USER'S  PAGE  NOc  9 EO  S3 

P0301  SUBROUTINE  NAME-  CNCUMP 

R0302  FUNCTIONAL  OESCRIPTICN  - TO  SEND  (CUMP»  ALL  B BANKS  OF  ERASABLE  STORAGE  TWlCEo  BANKS  ARE  SENT  ONE  AT  A TIME 
R030A  EACH  BANK  IS  PRECEEDEO  BY  AN  10  WCRO,  SYNCH  BITS,  ECACR  ANT  TIMEl  FOLLOWED  BY  THE  2560  WORDS  OF  EACH 

R0306  EBANKe  EBANKS  ARE  CUMPEO  IN  OROERdoEe  E8ANK  0 FIRST,  THEN  EBANKl  ETCo  ) 

R0308  CALLING  SEQUENCE-  THE  GRCUNO  CR  ASTRONAUT  BY  KEYING  V79E  CAN  INITIALIZE  THE  OUMPo 

R0310  AFTER  KEYING  IN  V7AE  THE  CURRENT  DCWNLIST  WILL  BE  IMMEDIATELY  TERMINATED  ANU  THE  DOWNLINK  ERASABLE  DUMP 

R0312  WILL  EEGINo 

R0313  ONCE  INITIATED  ThC  CCWNLINK  ERASABLE  DUMP  CAN  BE  TERMINATED  (AND  INTERRUPTED  OOWNLIST  REINSTATED!  ONLY 

R0315  BY  THE  FOLLOWING: 

R0316  Ifl  A FRESH  START 

R0317  2o  COMPLETION  OF  BCTH  CCMPLETE  DUMPS 

R0320  3*  AND  INVOLUNTARILY  BY  A RESTART* 

R0321  NORMAL  EXIT  MODE-  TCF  DN’PHASEl 
R0322  ALARM  OR  ABORT  MODE-  NONE 

R0323  *SL6RCUTINES  CALLED-  NONE* 

R0324  ERASABLE  I NI TI AL i 2 ATI CN  RECUIREC- 
R0325  NONE 

R0328  DEBRIS-  OUMPLOC,  CUMPSW,  CNTMC-CTG,  E0ANK  AND  CENTRAL  REGISTERS 

R0329  TIMING-  TIMEdN  SECS)  = ( ( NC*  DUMPS  I * I NO#  EB  ANKS  ) « (WDSPERERANK  + NOnIDWDS))  / NOoWOSPEPSFC 
R0331  TIMEIIN  SECS)  = ( A )*(  0 )*  ( 256  + 4 ) / 100 

R0333  THIS  TIMEdN  SECS  TC  SEND  DUMP  OF  ERASABLE  4 TIMES  VIA  DOWNLINK)  = e3e2  SECONDS 


R0335  STRUCTURE  OF  ONE  EBANK  AS  IT  IS  SENT  BY  DOWNLINK  PRCGPAM- 

R0336  {REMINOER-THIS  ONLY  DESCRIBES  ONE  OF  THE  8 EBANKS  X 4 (DUMPS)  = 32  EBANKS  WHICH  WILL  BE  SENT  BY  DNOUMP) 

R0338  DOWNLI ST  W 

R0339  WORD  TAKEN  FROM  CONTENTS  OF  EXAMPLE  0 COMMENTS 


R0340 

R03^‘2 

R0344 

R0346 

R0347 

R0349 

R0351 

R0353 

R0354 

R0355 

R0356 


1 ERASIC 

2 LOWIOCQD 

3 DUMPLCC 

4 TIMEl 

5 F IRST  WORD  OF  EBANK  X 

6 2ND  WCRO  OF  EBANK  X 

7 3R0  WURO  OF  EBANK  X 


2600  256TH  WORD  OF  EBANK  X 


0177X  0 

77340  1 

13400  1 

14120  1 

C3400  1 

00142  1 

00142  I 
I 
1 
1 

03777  1 


•OOWNLIST  I#D#  FOR  DOWNLINK  ERASABLE  DUMP  ( X=7  CSM,  6 LM) 
DOWNLINK  SYNCH  BITS# (SAME  ONE  USED  IN  ALL  OTHER  DOWMLISTS) 
(SEE  NOTES  ON  0UMPL0C)1=  3RD  ERAS  CUMP,  3400=ECAUR  OF  5TH  WO 
TIME  IN  CENTISFCONDS 

IN  THIS  EXAMPLE  THIS  WORD  = CONTENTS  OF  E7,14C0  ( ECADR  3400) 

IN  THIS  EXAMPLE  THIS  WORD  = CONTENTS  OF  E7  ,1401  (ECADR  3401) 

IN  THIS  EXAMPLE  THIS  WORD  = CONTENTS  OF  E7,1402  (ECADR  3402) 


IN  THIS  EXAMPLE  THIS  WORD 


CONTENTS  CF  E7,1777  (ECADR  3777) 


R0358 

R0359 

R0360 

R0361 

R0363 

R0365 

R0366 


NOTE-  DLMPLOC  CONTAINS  THE  CCUNTER  AND  ECADR  FOR  EACH  WORD  BEING  SENT# 

T)-E  BIT  STRUCTURE  OF  OUMPLOC  IS  FOLLOWS 

X = NOT  USED 

X ABC  FEE  RRRRRRRR  ABC  = ERASABLE  CUMP  COUNTER(I#E<  ABC  = 0,1,2  OR  3 WHICH  MEANS  THAT 

COMPLETE  ERASABLE  DUMP  NUMBER  1,2,3  OR  4 RESPECTIVELY  IS  IN  PROGRESS) 
EEE  = EBANK  BITS 

RRRRRRRR  = RELATIVE  ADDRESS  WITHIN  AN  EBANK# 


0368 

C369 

0370 


REF  184  LAST  987 
REF  1 

REF  2 LAST  986 


05.3721  3 4755 

05.3722  54  336 

05.3723  0 3764 


1 ONCUMPI  CA 

0 TS 

1 *2  TC 


ZERO 

OUMPLOC 

SENDIO 


INI TI ALI ZE  DOWNLINK 

ERASABLE  CUMP 

GO  SEND  ID  AND  SYNCH  BITS 


GAP; 

L 

0371 

0372 

0373 

0375 

0376 

0377 

0378 

0379 

0380 

0361 

0382 

03  83 

038^f 

0385 

03  86 

0387 

0390 

0391 

0392 

03  93 

0399 

0395 

0396 

0397 

0398 

0399 

0900 

0401 

0902 

0903 

0909 

0905 

0906 

0907 

0900 

0909 

0910 

0911 

0912 

0913 

0919 
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OCWN-TELEMETRY  FRCGRAM 


LSER'  S PAGE  NCc  10  EO  S3 


REF  1 

REF  7 LAST  986 
REF  16  LAST  997 
REF  173  LAST  988 
REF  2 LAST  990 
REF  9 LAST  988 


05  ,3729 
0‘5,3725 

05.3726 

05.3727 
15,3730 
35  ,3731 


2 3733 
59  335 

3 0025 
56  COl 
2 0336 
1 3713 


0 

0 

0 

0 

1 

0 


LONDUMPl 

DNTMGOTC 

TIMEl 


SET  ONTMGOTO 

TO  LOCATION  FOR  NEXT  PASS 
PLACE  TIMEl 
INTO  L 

AND  ECAOR  CF  THIS  EBANK  INTO  A 
SEND  DUMPLOC  AND  TIMEl 


1 

1 


C3739  I LDNOUMP  ADRES  DNOUMP 
03796  1 LDNOUMPl  AORES  DNOUMPl 


REF  63 
REF  3 
REF  8 
REF  310 
REF  1 
REF  9 
REF  38 

REF  2 
REF  2 
REF  1 
REF  8 


LAST  913 
LAST  991 
LAST  988 
LAST  938 

LAST  991 
LAST  953 

LAST  290 
LAST  225 

LAST  991 


05,3739 
05, 3735 
35  ,3736 
05,3737 

35.3790 

35.3791 
05,  3792 
05,3793 
05,3799 
05,3795 
05  ,3796 
C5,3797 


3 9752  0 
26  336  0 
7 9357  0 
1C  CCO  0 

1 3750  1 

2 0336  1 
7 9737  1 
0 0006  1 
1 3723  n 
1 3522  0 

3 3732  1 
59  335  0 


DADUMP 


ONCUMPl 


CA  TWO 

AOS  DUMPLCC 

MASK  LOWP 

CCS  A 

TCF  DN0UMP2 

CA  DUMPLOC 

MASK  BIT13 

EXTEND 

BZF  DNCUMPI  +2 

TCF  ONPHASEl 

CA  LDNOUMP 

TS  DNTMGCTC 


INCREMENT  ECAOR  IN  DUMPLOC 
TO  NEXT  DP  WORD  TG  BE 
DUMPED  AND  SAVE  IT, 

IS  THIS  THE  BEGINNING  OF  A NEW  EBANK 
NO-  THEN  CONTINUE  DUMPING 
YES-  IS  THIS  THE  END  OF  THE 
SECOND  COMPLETE  ERASABLE  DUMP? 

NO  - GO  BACK  AND  INITIALIZE  NEXT  BANK 
YES  - SEND  OOWNLIST  AGAIN 
SET  ONTMGOTO 

FOP-WORDS  3 TO  256C  OF  CURRENT  EBANK 


REF  5 
REF  59 
REF  9 
REF  239 
REF  23 
REF  179 
REF  235 


REF  175 
REF  236 

REF  22 
REF  5 


LAST  991 
LAST  988 
LAST  991 
LAST  919 
LAST  923 
LAST  991 
LAST  991 


LAST  991 
LAST  991 

LAST  988 
LAST  991 


05.3750 

05.3751 

05.3752 

05.3753 

05.3759 

05.3755 

05.3756 
E3,1900 

05.3757 

05.3760 
05,  3761 

05.3762 
0390 

05.3763 


2 0336  1 
59  003  0 
7 9357  0 
59  002  1 

3 9759  0 
59  001  1 
50  002  0 

7 1901  1 
56  001  0 
50  CC2  0 
7 1900  0 

1 3713  0 


DN0UMP2 


CA  DUMPLOC 

TS  EBANK 

MASK  LOWS 
TS  0 
CA  NEGO 

TS  L 

INDEX  Q 
eEANK=  1900 
MASK  1901 
XCF  L 
INDEX  0 
MASK  1900 
GeANK=  DNTMBUFF 
TCF  ONTMEXIT 


SET  EBANK 

ISOLATE  RELATIVE  ADDRESS, 

(NOTE:  MASK  INSTRUCTION  IS  USED  TO  PICK 
UP  ERASABLE  REGISTERS  SO  THAT  EDITING 
REGISTERS  20-23  WILL  NOT  BE  ALTERED, 1 

PICK  UP  LOW  ORDER  REGISTER  OF  PAIR 
CF  ERASABLE  REGISTERS, 

PICK  UP  HIGH  ORDER  REGISTER  OF  PAIR 
OF  ERASABLE  REGISTERS, 

GO  SEND  THEM 


PEF 

REF 


9 LAST 
1 


991 


15  ,3769 

05.3765 

15.3766 


0 0006 
22  335 
3 5011 


1 

1 

1 


SENCIC 


EXTEND 

OXCH  DNTMGCTC 
CAF  ERASIO 


**ENTRANCE  USED  BY  ERASABLE  DUMP  PROG>#» 
SET  ONTMGOTO  SO  NEXT  TIME  PROG  WILL  GO 
TO  LOCATION  FOLLOWING  ;TC  SENOID: 


REF  176 
REF  2 
REF  I 
REF  17? 
REF  6 


LAST  991 
LAST  986 

LAST  991 
LAST  991 


05,3767 
05,3770 
15  ,3771 

05.3772 

05.3773 


59  001  1 

0 3612  1 
3 2065  0 
56  OOX  0 

1 3713  0 


TS  L 

TC  WCZERO 

CAF  LOWIDCOD 

XCH  L 

TCF  DNTMEXIT 


**FNTRANCE  USED  BY  REGULAR  DOWNLINK  PG#* 

GC  SET  WCRD  ORCEF  CODE  TO  ZERO 

PLACE  SPECIAL  ID  CCOE  INTO  L 

AND  ID  BACK  INTO  A 

SEND  OOWNLIST  ID  CCDE(S), 


GAP:  ASSENBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091  17:53  DEC®  19,lo69  SKIPPER  <-101  PAGE  992 

L INTER-BANK  COMMON  I C AT  I CN  USER'S  PAGF  NO.  I EO  S3 


ROOOl  THE  FOLLOWING  ROUTINE  CAN  BE  USEC  TO  CALL  A SUBROUTINE  IN  ANCThER  BANK®  IN  THE  6ANKCALL  VERSION,  THE 

R0003  CADR  CF  THE  SUBROUTINE  IMMECIATELY  FOLLOWS  THE  TC  6ANKCALL  INSTRUCTION,  WITH  C(A)  AND  C(L>  PRESERVED® 


0005 

00055  REF  1 

0006  REF  6 

0007  REF  237 

0008 

0009  REF  238 


LAST 

LAST 

LA  ST 


A616 

495  4616  52  134  0 

991  4617  50  002  0 

4620  3 0000  1 

992  4621  24  002  0 


BLCCK  02 
CCLNT*  SS/BANK 
BANKCALL  CXCH  BUF2 
INDEX  0 
CA  0 

INCR  0 


SAVE  INCOMING  A , L® 

PICK  UP  CADRo 

SO  WE  RETURN  TO  THE  LOC®  AFTER  THE  CAOR^ 


ROOlO 


SWCALL  IS  IDENTICAL  TO  BANKCALL,  EXCEPT  THAT  THE  CAOR  ARRIVES  IN  A® 


0012 

0013 

0014 

0015 

0016 

0017 

0018 


REF  178  LAST  991 
REF  4 LAST  566 
REF  8 LAST  746 
REF  239  LAST  992 
REF  7 LAST  992 
REF  240  LAST  992 


4622  54  Oni  1 

4623  22  004  0 

4624  7 5012  0 

4625  56  002  0 

4626  52  134  C 

4627  50  002  0 

4630  0 2000  0 


LXCH  FBANK 
MASK  LOWIO 
XCH  0 

OXCH  BUF? 
INDEX  0 
TC  10000 


SWITCH  BANKS,  SAVING  RETURN® 

GET  SU6-A00PESS  CF  CACR® 

A,L  NOW  CONTAINS  DP  RETURN. 

RESTORING  INPUTS  IF  THIS  IS  A BANKCALL® 

SETTING  Q TO  SWPETLRN® 


0D19  REF  8 LAST  992 

0020  REF  5 LAST  992 

0021  REF  9 last  992 

0022  REF  10  LAST  992 


4631  56  134  1 

4632  56  004  0 

4633  56  134  1 

4634  0 0133  0 


SWRETURN  XCH 
XCH 
X CH 


eUF2  + 

FBANK 
RUF2  + 
BUF2 


COMES  HERE  TO  RETURN  TO  CALLER®  C(A,L) 
ARE  PRESERVED  FOR  RETURN® 


R0023  THE  FOLLOWING  ROUTINE  CAN  BE  USED  AS  A UNILATERAL  JUMP  WITH  C(A,L)  PRESERVED  AND  THE  CADR  IMMEDIATELY 

R0025  FOLLOWING  THE  TC  POSTJUMP  INSTRUCTION® 


0026  REF  241  LAST  992 

0027  REF  311  LAST  991 

0028 


4635  56  002  0 POSTJUMP  XCh  0 

4636  50  000  1 INDEX  A 

4637  3 0000  1 CA  0 


SAVE  INCOMING  CIAI® 
GET  CADR® 


R0029 


BANKJLMP  IS  THE  SAME  AS  FCSTJUMP, 


EXCEPT  THAT  THE 


CADR  ARR IVFS  IN  A® 


0031  REF  6 LAST  992 

0032  REF  9 LAST  992 

0033  REF  242  LAST  992 

0034  REF  243  LAST  992 

0035 


4640 
464  1 

4642 

4643 

4644 


54  GC4  1 
7 5C12  0 
56  002  0 
5C  002  0 
1 2000  1 


BANKJUMP  TS 

MASK 

XCH 

Q+IOOOO  INDEX 
PRI012  TCF 


FBANK 

LOWIO 

0 

Q 

lOOOO 


RESTORING  INPUT  C(AI  IF  THIS  WAS  A 
PGSTJUMP® 

PRI012  = TCF  lOOCC  = 12000 


gap:  assemble  REVISION  ’31  OF  AGC  PRCCRAM  LUMINARY  BY  NASA  2021112-091  17:53  DEC®  19,1969  SKIPPER  oini  PAGE  993 

L INTER-BANK  COMMUNICATION  USER'S  PAGE  NOe  2 EC  S3 

P0036  THE  FOLLOWING  ROUTINE  GETS  THE  RETURN  CAOR  SAVED  BY  SWCALL  OR  BANKCALL  ANO  LEAVES  IT  IN  A© 


0038  REF  10  LAST  992 

0039  REF  11  LAST  992 

OOAO  REF  12  LAST  993 

0041  REF  244  LAST  992 


4645 

4646 

4647 
4650 


3 5012  1 
7 C133  1 
6 0134  1 
C 0002  0 


MAKECACR  CAF 
MASK 
AO 
TC 


LOWIO 
BUF2 
6UF2  +1 
0 


00465 

0047 
0^475 

0048 
00405 

0049 
00495 

0050 
00505 

0051 

0052 
00525 

0053 

00534 

00535 

0054 
00545 

0055 
00555 


REF  II  last  559 
REF  6 LAST  9Q3 
REF  11  LAST  993 
REF  179  LAST  992 


REF  12  LAST  993 
REF  100  LAST  993 

REF  7 LAST  993 


REF  13  LAST  993 

REF  8 LAST  993 
REF  8 LAST  993 


4651  54  135  1 SUPOACAL  TS  MPTEMP 


4652  56  004  0 

4653  C OC06  1 

4654  C4  007  1 

4655  56  135  0 

4656  7 5012  0 

4657  56  001  0 

4660  0 0004  0 

4661  C 0006  1 

4662  01  007  1 

4663  5C  CCl  0 

4664  2 2000  0 

4665  56  135  0 

4666  C 0006  1 

4667  Cl  007  1 

4670  C 0003  I 

4671  54  004  1 

4672  3 0135  0 

4673  C 0002  0 


KCH  FBANK 
EXTEND 

FOR  SUPERBNK 
XCH  MPTEMP 
MASK  LCWin 
XCH  L 
INHINT 
E XTEND 

WRITE  SUPERBNK 
INDEX  L 
CA  10000 

XCH  MPTEMP 
EXTEND 

WR  ITE  SUPFR6NK 
RELINT 

TS  FBANK 

CA  MPTEMP 

RETURN 


SET  FBANK  FOR  DATA© 

SAVE  FBANK  IN  BITS  15-11,  AND 
SUPERBANK  IN  BITS  7-5n 

SAVE  REL©  ADR©  IN  BANK,  FETCH  SUPERBITS© 
BECAUSE  RUPT  DOES  NOT  SAVE  SUPERBANK: 

SET  SUPERBANK  FOR  DATA© 

PINBALL  (FIX  MEM  DISPI  PREVENTS  OCA  HERE 
SAVE  1ST  WO,  FETCH  OLD  FBANK  AND  SBANK© 

RFSTORE  SUPERBANK© 

RESTORE  FBANK© 

RECOVER  FIRST  WORD  CF  DATA© 

24  WDS©  DATACALL  516  MU,  SUPOACAL  432  MU 


gap: 

L 

P0056 

0058 

0059 

0060 

0061 

0062 

0063 

006A 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

R0090 

A0092 

A0093 

A009A 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0U2 

0113 

0114 
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101  PAGE  994 


INTER-BANK  COMMUNICATION  USER'S  PAGE  NCe  3 EO  S3 

THE  FOLLOWING  ROUTINES  ARE  IDENTICAL  TC  8ANKCALL  ANC  SWCALL  EXCEPT  THAT  THEY  ARE  USED  IN  INTERRUPT^ 


REF  9 LAST  900 
REF  245  LAST  993 

REF  246  LAST  994 


4674  52  073  1 

4675  50  002  0 

4676  2 OCOO  1 

4677  24  002  0 


lENKCALL 


OXCH 

INDEX 

CAF 

INCR 


R 

0 

0 

0 


UPTREG3 


USES  RUPTRE63,4  FOR  DP  RETURN  ADDRESS^ 


REF  181  LAST  993 
REF  9 LAST  993 
REF  12  LAST  993 
REF  247  LAST  994 
REF  10  LAST  994 
REF  248  LAST  994 


47C0  54  001  1 
47C1  22  004  0 
4702  7 5012  0 
47C3  56  CC2  C 
4T04  52  073  1 
4705  50  002  0 
47C6  C 2000  0 


ISWCALL 


TS 

LXCH 

MASK 

XCH 

OXCH 

INDEX 

TC 


FBANK 

LOWIO 

0 

RUPTRGG3 

0 

loom 


REF  3 LAST  95 
REF  in  LAST  994 
REF  4 LAST  994 
REF  • 11  LAST  994 


4707  56  073  0 ISWRETRN  XCh  RUPTRFG* 

4710  56  004  0 XCH  FBANK 

4711  56  073  0 XCH  PUPTREG4 

4712  0 0072  1 TC  RUPTREG3 


2o  USPRCADR  ACCESSES  INTERPRETIVE  CODING  IN  CTHER  THAN  THE  USER'S  FBANK,,  THE  CALLING  SEQUENCE  IS  AS  FOLLOWS: 


L TC  USPRCADR 

L+1  CACR  INTPHETX  INTPRETX  IS  THE  INTERPRETIVE  CODING 

RETURN  IS  TC  L+2 


REF  - 5 

REF  34 
REF  7 
REF  24 
REF  1 
REF  249 

REF  11 
REF  13 
REF  250 
REF  6 
REF  1 


LAST  462 
LAST  950 
LAST  457 
LAST  820 

LAST  994 

LAST  994 
LAST  994 
LAST  994 
LAST  994 


4713  54  164  0 

4714  2 4744  1 

4715  54  023  1 

4716  3 0006  1 

4717  54  165  1 

4720  50  002  0 

4721  3 0000  1 

4722  54  004  1 

4723  7 5012  0 

4724  56  002  0 

4725  56  164  1 

4726  1 4643  0 


USPRCADR  TS 


LOC  SAVF  A 

BITS 

LOOP  EXIT  INSTRUCTICN  TC  EDOP 

BBANK 

BANKSET  USER’S  BBANK  TO  BANKSET 

Q 
0 

FBANK  INTERPRETIVE  BANK  TC  FBANK 

LOWIO  YIELDS  INTERPRETIVE  RELATIVE  ADDRESS 

Q INTERPRETIVE  ACCRESS  TO  0,  FETCHING  L + 1 

LOC  L+1  TO  LCC,  RETRIEVING  ORIGINAL  A 

0+10000 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  FRCGRAP  LUMINARY  BY  NASA  2021112-noi 
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L IMER-6ANK  COMMUNICATION 


USER'S  PAGE  NCc  A EO  S3 


P0117  THERE  ARE  FCUR  POSSIBLE  SETTINGS  FCR  CHANNEL  07o  (CHANNEL  C7  CONTAINS  THE  SLPER6ANK  SETTING©) 
R0119  PSEUCO-FIXED  OCTAL  PSEUDO 

R0120  SUPEREANK  SETTING  S-ftEG«  VALUE  BANK  NUMBERS  ADDRESSES 

R0121  


R0122 

R0124 

R0126 

RO120 

R013O 

R0132 

R013A 

R0136 

R0138 

R01A2 

R0144 


SUPERBANK  3 OXX 

SLPERBANK  A ICO 


2000  - 3777 
2000  - 3777 


SUPERBANK  5 101 

SLPERBANK  6 110 


2CCC  - 3777 
2000  - 3777 


THIS  ROUTINE  MAYBE  CALLED  BY  ANY 
SLPERBANK  SHOULD  USE  SLPERSH© 


30  - 37 
40  - A7 


50  - 57 
60  - 67 


PROGRAM  LOCATED  IN 


70000  - 
110000  - 

130000  - 
150000  - 
BANKS  00  - 


107777  (hHERE  XX  CAN  BE  ANYTHING  AND 
WILL  USUALLY  BE  SEEN  AS  11 ) 
J27777  (AS  FAR  AS  IT  CAN  BE  SEEN* 

ONLY  BANKS  4C-A3  WILL  EVER  BE 
AND  ARE  PRESENTLY  AVAILABLE) 
JA7777  (PRESENTLY  NOT  AVAILABLE  TO 
THE  USER) 

167777  (PRESENTLY  NOT  AVAILABLE  TO 
THE  USER ) 

27*  loEot  NO  PROGRAM  LIVING  IN  ANY 


R0145 


SUPERSW  MAYBE  CALLED 


IN  THIS 


FASHION : 


RC1A6 

R01A7 

R0148 

R0149 

ROlSn 


CAF  A66CCN 

TCR  SUPERSW 


WHERE  ” ABBCON 
(THE  SUPER0NK  BITS 


0BCON  SOMETHIN  — 
ORE  IN  THE  BBCPN) 


R0151 


CR  IN  THIS  FASHION  : 


R0152 

R0154 

R0155 

R0157 

R0159 

R0161 


CAF  SUPERSET 

TCR  SUPERSW 


WHERE  SUPERSET  IS  CNE  OF  THE  FOUR  AVAILABLE 
SUPERBANK  BIT  CONSTANTS: 

SUPEROn  OCTAL  60 
SUPEBIOO  OCTAL  100 
SUPEBlOl  OCTAL  J20 
SUPERllO  OCTAL  lAO 


0163 

016A  REF  lA  LAST  993 


A727  C 0006  1 SLPERSW  EXTEND 

A730  Cl  007  1 WRITE  SUPERBNK 


WRITE  BITS  7-6-5  OF  THE  ACCUMULATOR  INTO 


A0165 


CHANNEL  07 


0166  REF  251  LAST  99A  4731  C 0002  0 TC  Q 

A0167 


TC  TO  INSTRUCTION  FOLLOWING 
TC  SUPERSW 


gap;  ASSEPBie  REVISION  131  OF  AGC  PPCGRAP  LUMINARY  PY  NASA  2021H2-0S1 

L INTERPRETER 

ROOOl  SEC7ICN1  DlSPATChER 


17:53  DEC  IQ, 156° 
USER'S  PAGE 


SKI PPFR  « 101 
NOo  1 


PAGE 
FO  S3 


996 


R0002 

R0009^ 

R0006 

R0008 

ROOlO 


ENTRY  TO  THE  INTERPPETERe  INTPRET  SETS  LCC  TO  THE  FIRST 
OtJECT  INTERPRETIVE  PROGRAM,  AND  INT0IT15  TO  THE  BIT15  CONTENTS  CF 
VIRTUALLY  ALL  BANKS  PRESENT  UNCER  ANY  SUPER-BANK  SETTING,  WITH  THE 
IPIT15  OF  FBANK  = 1)  DO  NOT  REFER  TO  LCWBA^KS,  AND  VICE-VERSA»  THE 
E-BANK  SWITCHING  OCCURS  WHENEVER  GENERAL  ERASABLE  I 100  - 37771  IS 


INSTRUCTION,  BANKSET  TO  THE  BBANK  OF  THE 
FBANKo  INTERPRETIVE  PROGRAMS  MAY  BE  IN 
RESTRICTION  THAT  PROGRAf-S  IN  HIGH  BANKS 
INTERPRETER  DOES  NOT  SWITCH  SUPERBANKSo 
ADDRESSED. 


0012 


60A2 


BLCCK 


03 


0013 
00135 

0014 

0015 


RFF  1 

REF  7 LAST  994 


6042 

6043 
604A 


COUNT*  tS/INTER 

0 0003  1 INTPRET  RELINT 

0 0006  1 EXTEND 

22  )6A  1 OXCH  LOC 


SET  LOC  TO  THE  WORD  FOLLOWING  THE  TCo 


0016  REF  25  LAST  994 

0017  RBF  2 LAST  9Q4 

0018  REF  36  LAST  893 

0019  REF  5 LAST  96 


6045  3 0006  1 

6CA6  54  165  1 
6047  7 4735  0 

6050  5A  115  0 


+2 


CA  BBANK 

TS  BANKSET 

MASK  BIT15 

TS  INTeiT15 


interpretive  BRANCHES  FINISH  HERE. 

GET  15TH  BIT  FOR  INDEXABLE  ADDRESSES. 


0020  REF  8 LAST  994 

0021  RFF  1 


6051  5A  023  1 TS  FDDP 

6052  1 6073  1 TCP  NEWOPS 


MAKE  SURE  NO  INSTRUCTIONS  LEFT  OVER 
PICK  UP  OP  CODE  PAIR  AND  BEGIN. 


0022 

0023 

R0024 


OLOAO  LOADS  MPAC,  MPAC  +1,  LEAVING  ZERC  IN  MPAC  +2* 


RESUME  SUSPENDED  INTERPRETIVE  JOB 


0025 

0026  PEF  4 LAST  916 

0027 

0028  REF  374  LAST  957 

0029  KEF  185  LAST  9°© 


6055 

6056 

6057 
6060 
6061 


0006  1 DLOAD 
0116  1 
0001  C 

2 155  1 SL0A02 


EXTEND 

INDEX  AODRWD 
CCA  0 
DXCH  MPAC 
CAF  ZERO 


LOAC  OP  CICIAODRWOn  INTD  MPAC,MPAX  +1 
ZERO  MPAC  *2 


GAP  : 

L 

P0030 

0032 

0033 

003A 

0035 

0036 

0037 

AP03e 

0039 

00^0 

0041 

R0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 
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INTERPRETER 


USER'S  PAGE  NC*  2 EO  S3 


REF  375 

REF  15 

REF  3 
REF  27 


AT  THE  ENC  CF  MOST 

LAST  996  • 6062 

LAST  879  6063 

LAST  996  6064 

LAST  996  6065 


INSTRUCTIONS,  CONTROL  IS 

54  156  1 TS 

54  163  I NEWMOOE  TS 

3 0165  0 DANZIG  CA 

54  006  0 TS 


GIVEN  TO  DANZIG 
MPAC  +2 
MODE 


TO  DISPATCH  THE  NEXT  CPERATICNo 
AND  CECLARE  DP  MODE 

PROLOGUE  FOP  MOCF-CFANG ING  INSTRUCTIONSo  - 

SET  BBANK  BEFORE  TESTING  NEWJOB  SO  THAT 
IT  MAY  BE  SAVED  DIRECTLY  BY  CHANJOBp 


RFF  9 LAST  996 
REF  1 


6066  10  023  1 NCIBNKSW  CCS  EOOP 

6C67  1 61C2  0 TCF  OPJUMP 


SEE  IF  AN  ORDER  CCDE  IS  LEFT  OVER  FROM 
THE  LAST  PAIR  RETRIEVED,  IF  SO,  EXECUTE® 
EOOP  IS  SET  TC  ZEPC  CN  ITS  RE-EDITING® 


REF  6 LAST  719 
REF  1 


6070  10  067  1 

6071  1 5126  0 


CCS  NEWJOP  SEE  IF  A JOB  OF  HIGHER  PRIORITY  IS 

TCF  CHANG2  PRESENT,  AND  IF  SO,  CHANGE  JOBS® 


REF  8 
REF  9 

REF  312 
REF  1 


LAST  996 
I TRACE  ( I ) 
LAST  997 

LAST  992 


6072 

REFERS  TC 

6073 
6 074 

6075 

6076 


24  164  1 

"NEV.CPS"o 

50  164  1 
3 0000  1 
1C  000  C 
1 6365  0 


NEWOPS 


INCR  LOC 

INDEX  LOC 

CA  0 

CCS  A 

TCF  DOSTORE 


ADVANCE  THE  LOCATICN  CCLNTFR® 

ENTRY  TO  BEGIN  BY  PICKING  CP  CODE  PAIR® 
MAY  BE  AN  OPCODE  PAIR  OR  A STORE  CODE. 
TEST  SIGN  AND  GET  CASSIA)® 

PROCESS  STORE  CCDE* 


6077  00177  0 LCW7 


OCT  177 


REF  IP  LAST  997 
REF  6 LAST  457 


61C0  54  023  1 

6101  7 6077  0 


TS  EDCP 

MASK  L0W7 


CP  CODE  PAIR®  LEAVE  THE  CTHER  IN  EDOP 
WHERE  CCS  EDOP  WILL  HONOR  IT  NEXT® 


REF  9 LAST  464 
REF  10  LAST  997 


61C2  54  C2C  1 CFJUMF  TS 
6103  10  020  1 CCS 


CYR 
C YR 


LOWWD  ENTERS  HERE  IF  A RIGHT-HAND  OP 
CODE  IS  TG  BE  PROCESSED®  TEST  PREFICES® 


REF 


6104  1 6252  0 


TCF  0PJUMP2 


TEST  SECOND  PREFIX  BIT® 


REF 


6105  1 6746  C 


TCF 


EXIT 


+0  OP  CODE  IS  EXIT® 


gap: 

L 

P005U 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C91 


17:53  DEC,  19  ,196' 


SKIPPER  olOl  PAGE  998 


INTERPRETER 


USER'S  PAGE  NO*  3 ED  S3 


PROCESS  ACDRESSES  WHICH  MAY  BE  DIRECT, 


INDEXED,  OR  REFERENCE  THE  PUSHDOWN  LISTo 


REF  48  LAST  974 
REF  313  LAST  997 
REF  1 


6106  7 4753  0 ADDRESS  MASK 

6107  10  000  0 CCS 

6110  1 6151  C TCF 


6IT1 

A 

INDEX 


SEE  IF  ADDRESS  IS  INDEXEDo  CYR  CONTAINED 
400XX,  SO  BIT  1 IS  NOW  AS  IT  WAS  IN  CYR» 
FORM  INDEXED  ACCRESSo 


REF  10  LAST  997 

REF  314  LAST  998 
REF  1 


6112 

6113 

6114 


50  164  1 DIRAORES  INDEX  LOC 

4 OOCl  I CCT40001  CS  1 

1C  000  0 CCS  A 

I 6220  0 TCF  PUSHUP 


LOOK  AHEAD  TO  NEXT  WORD  TO  SEE  IF 
ADDRESS  IS  GIVENo 

IF  NOTo 


6115  77773  I NEG4  DEC 


REF  11  LAST  99b  6116  24  164  1 

REF  5 LAST  996  6117  54  116  0 


INCR  LOC 
TS  ADDRWO 


IF  SO,  TO  SHOW  WE  PICKED  UP  A WORD. 


gap: 

L 

P0066 

R0C'6a 

R0070 

0072 

0073 

0074 

0075 

0076 

0077 

0070 

0079 

0000 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0068 

0089 

0090 

0C91 

0092 

0093 

0094 


assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DEC*  19,1969  SKIPPER  olOl  PAGE  999 


1 MERPRETER 


USER'S  PAGE  NCe  4 EO  S3 


FINAL  DIGESTICN  CF  DIRECT  ADDRESSES  OF  OP  CODES  HITH  01  PREFIX  IS  CONE  HEREo  IN  EACH  CASE,  THE 
REQUIRED  12-eiT  SUB-ADDRESS  IS  LEFT  IN  ADDRWO,  WITH  ANY  REQUIRFO  E OP  F BANK  SWITCHING  DONE*  ADDRESSES  LESS 
THAN  450  ARE  TAKEN  TC  BE  RELATIVE  TO  THE  WCRK  AREAo  THE  OP  CODE  IS  NOW  IN  BITS  1-5  OF  C YR  WITH  BIT  14  = lo 


REF  1 

REF  315  LAST  998 
REF  1 
REF  1 


6120  6 6254  1 

6121  10  000  0 

6122  6 7746  0 

6123  1 6130  1 


AD  -ENCVAC  SEE  IF  ADDRESS  RELATIVE  TO  WORK  AREA® 

CCS  A 

AC  -ENCERAS  IF  NOT,  SEE  IF  IN  GENERAL  EPASABLEe 

TCF  lERASTST 


KEF  38  LAST  956 
REF  6 LAST  998 
REF  11  LAST  997 
REF  1 


612^  3 0120  1 

6125  26  116  0 

6126  50  020  0 

6127  7 6276  0 


NETZERC  CA 
AOS 

ITR15  INDEX 
7 


FIXLCC 

ADORWD 

CYR 

INCJUMP  -1 


IF  SO,  LEAVE  THE  MODIFIED  ADDRESS  IN 
AODRWC  AND  DISPATCH. 

THIS  INDEX  MAKES  THE  NEXT  INSTRUCTION 
TCF  INDJUMP  + OP,  EDITING  C YRc 


REF 


6130  0 0006  1 lERASTST  EXTEND 

6131  6 6141  0 eZMF  GEAODP 


GO  PROCESS  GENERAL-ERASABLE  ADDRESS. 


REF  14  LAST  994 
REF  15  LAST  999 
REF  7 LAST  999 
REF  6 LAST  996 
REF  12  LAST  994 
REF  12  LAST  999 
REF  2 LAST  999 


6132  7 5C12  0 

6133  6 5012  1 

6134  56  116  I 

6135  6 0115  1 

6136  54  304  1 

6137  50  020  0 ITR12 

6140  7 6276  0 


MASK 

AO 

XCH 

AO 

TS 

INDEX 

7 


LOWIO 

LOWIO 

ADCRWC 

I NTBI T15 

FBANK 

CYR 

INDJUMP 


FIXED  BANK  ADDRESS.  RESTORE  AND  ADD  B15. 
SWITCH  BANKS  AND  LEAVE  SUBAOORESS  IN 
AOORWD  FOR  OPERAND  RETRIEVAL-.  (THIS 
METHOD  PRECLUDES  USB  OF  THE  LAST 
LOCATION  IN  EACH  FRANK. I 


REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


991 

464 

999 

991 

999 

999 


6141 

6142 

6143 

6144 

6145 

6146 


7 4357  0 

6 5007  0 
56  116  1 
54  003  0 
5C  020  0 

7 6276  0 


GEACOR 


ITRIO 


MASK  LOWS 

AD  OCT1400 

XCH  AODRWD 

TS  E8ANK 

INDEX  CYR 

7 INCJUMP  -1 


GAP: 

L 

P0095 

R0097 

R0099 

0100 

omi 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 


ASSEMBLE  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  OEC«  19,  1969  SKIPPER  olOl  PAGE  1000 


INTERPRETER 


USER'S  PAGE  NOe  5 60  S3 


THE  FCLLCWI^G  ROUTINE  PROCESSES  INTERPRETIVE  INDEXED  ADORESSESo  AN  INTERPRETER  INDEX  REGISTER  MAY 
CONTAIN  THE  ADDRESS  OF  ANY  ERASABLE  REGISTER  (0-42  BEING  RELATIVE  TO  THE  VAC  AREA)  OR  ANY  INTERPRETIVE  PROGRAM 
BANK,  OR  ANY  INTEGER  IN  THAT  RANGE* 


1 

14  LAST  9Q9 


6147  3 7736  1 CCCLOAC*  CAF  OLOAO* 

6150  £4  020  1 TS  CYR 


ST0DL4  COMES  HERE  TO  PROCESS  LOAD  AORr. 
(STDVL#  ENTERS  HERE)* 


REF  39  LAST  999 
REF  1 

REF  12  LAST  998 
REF  13  LAST  1000 

REF  316  last  999 
REF  2 LAST  1000 


6151 

6152 

6153 

6154 

6155 

6156 
6 157 
6160 


3 0120  1 
54  130  1 
24  164  1 
50  164  1 

4 0000  0 
10  000  0 
24  130  0 
16  161  0 


INDEX 


CA  FIXLCC  SET  UP  INDEX  LOCATION* 

TS  INCEXLOC 

INCR  LOC  (ADDRESS  ALWAYS  GIVEN)* 

INDEX  LOC 

CS  0 

CCS  A INDEX  2 IF  ADDRESS  STORED  COMPLEMENTED* 

INCR  INOEXLOC 

NPCP 


REF  9 LAST  999 

REF  1 

REF  1 

REF  7 LAST  999 

KEF  10  LAST  1000 


6161  54  116  0 

6162  7 7745  1 

6163  C 0C06  1 

6164  1 6167  0 

6165  3 0115  1 

6166  26  116  0 


TS  ADDRWD  14  BIT  ADDRESS  TO  ADDRHD* 

MASK  HIGH4  IF  ADDRESS  GREATER  THAN  2K,  ADD  1NTBIT15 

EXTEND 

8ZF  IN0EX2 

CA  INT6IT15 

AOS  AOORWD 


REF  - 3 LAST  1000 
REF  27  LAST  956 
REF  11  LAST  1000 


6167  50  130  0 INDEX2  INDEX  INCEXLGC 

6170  < 0GA6  1 CS  XI 

6171  26  116  0 AOS  ADDRWD 


DO  AUGMENT,  IGNORING  AND  CORRECTING  OVF, 


REF  8 LAST  956  6172  7 7747  0 

6173  C 0006  1 
REF  1 6174  1 6207  0 

REF  2 LAST  1000  6175  7 7745  1 

6176  C 0006  1 
REF  1 6177  1 6211  1 


MASK  HIGH9 
E XTEND 

BZF  INOWORK 

MASK  HIGH4 
EXTEND 

BZF  INDERASE 


SEE  IF  ADDRESS  IS  IN  WORK  AREA* 
SEE  IF  IN  FIXED  BANK* 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST  999 


LAST  1000 
LAST  1000 
LAST  999 


62C0  3 0116  1 

6201  54  004  1 

62C2  7 5C12  0 

6203  6 4741  1 

6204  54  116  0 

6205  5C  C2C  0 I IRll 

6206  3 6276  1 


ADDRWD 

F8ANK 

LOWIO 


INDJUMP  -1 


IN  FIXED  - SWITCH  BANKS  AND  CREATE 
SUB-ADDRESS* 


REF  40  LAST  1000 
REF  I 


62C7  3 0120  1 INCWORK  CA 
6210  1 6215  0 TCF 


F IXLOC 
ITR13  -1 


MAKE  ADDRWD  RELATIVE  TC  WORK  AREA* 


REF  4 LAST  999 
REF  1<»  LAST  ICOO 
REF  61  LAST  999 
REF  11  LAST  9«9 
REF  15  LAST  1000 


6211  3 5007  0 

6212  56  116  1 

6213  54  C03  0 

6214  7 4357  0 

6215  26  116  0 


INDERASE  CA 
XCH 
TS 

MASK 

-1  ADS 


nCT140C 

ADDRWD 

EBANK 

L0W8 

ADDRWD 


gap:  assemble  REVISION  131  OF  AGC  PRCGRAf'  LUMINARY  8Y  NASA  2021112-091 


17:53  DEC#  19,1969  SKIPPER  old  PAGE  1001 


L INTERPRETER  USER'S  PAGE  NC*  6 EO  S3 

0139  REF  16  LAST  1000  • 6216  50  020  0 ITR13  INDEX  CYR 

01^^0  REF  5 LAST  1000  6217  3 £276  1 3 INDJUMF  -1 


}7:53  DEC®  19,196^  SKIPPER  « 101  PAGE  1002 


GAP:  ASSEPBLE  REVISION  131  CF  AGC  FRCCRAM  LUMINARY  BY  NASA  20  21U2-09] 


L INTERPRETER 


USER'S  PAGE  NOo  7 EO  S3 


P0141 

R01A3 

R0145 

R01A7 


LIST, 
IS  THE 
BELCH 


PUSH-UP  ROUTINES,  WHEN  NO  OPERAND  ADDRESS  IS  GIVEN,  THE  APPP 
IN  MOST  CASES  THE  MCDE  CF  THE  RESULT  (VECTOR  OR  SCALAR)  OF  THE 
SAME  AS  THE  TYPE  OF  OPERAND  DESIRED  (ALL  ADO/SUBTPACT  ETC,),  E 
(NOTE  THAT  IN  EVERY  CASE  THE  MODE  REGISTER  IS  LEFT  INTACT): 


CPRIATE  OPERAND  IS  TAKEN  FROM  THE  PUSH-DOWN 
LAST  ARITHMETIC  OPERATION  PERFORMED 
XCEPTIONS  TO  THIS  GENERAL  RULE  ARE  LISTED 


RO140 

ROisn 


R BSULT, 


I,  VXSC  AND  V/SC  VANT  THE  OPPOSITE  TYPE  CF  OPERAND,  E.G,,  IF 
VXSC  WANTS  A SCALAR, 


THE  LAST  OPERATION  YIELDED  A VECTOR 


0157 

0158 

0159 

0160 
0161 


FEF  2 LAST  7A1 
REF  17  LAST  1001 
REF  1 

REF  317  LAST  1000 
REF  1 


6220  3 4360  0 PUSHUP  CAF  0CT23 


6221  7 7020  1 

6222  6 6225  1 

6223  10  COO  0 

6224  1 6236  1 


MASK  CYR 
AC  -CCTIO 

CCS  A 
TCF  REGUP 


IF  THE  LOW  5 BITS  CF  CYR  ARE  LESS  THAN 
20t  THIS  OP  REQUIRFS  SPECIAL  ATTENTION, 
(NO  -0  ), 


FOR  ALL  COOES  GREATER  THAN  OCT  7, 


0162 


6225  77767  1 -OCTIO  OCT  -10 


Cl  63 

0164 

0165 

0166 
0167 


REF  1 

REF  318  LAST  1002 
REF  319  LAST  1002 
REF  1 

REF  2 LAST  1002 


6226  6 6115  1 

6227  1C  000  0 

6230  50  OOO  1 

6231  * 6247  1 

6232  1 6240  0 


AD  NEG4 

CCS  A 

INDEX  A 

CS  NO,WOS 

TCF  REGUP  +2 


WE  NOW  HAVE  7 - OP  CCDE(MCD4),  SEE  IF 
THE  OP  CODE  (M004)  IS  THREE  (REVERSE). 
NO  - THE  MCCE  IS  DEFINITE.  PICK  UP  THE 


0168 

0169 

0170 


REF  16  LAST  997 
REF  4 LAST  956 
REF  3 LAST  1002 


6233  50  163  0 

6234  4 6245  0 

6235  1 6240  0 


INDEX  MODE 
CS  REVCNT 

TCF  REGUP  +2 


FOR  VXSC  AND  V/SC 
PUSHLOC  DECPEMENT 
MODE  AT  THIS  T IMF 


ViE  WANT  THE  REQUIRED 
WITHOUT  CHANGING  THE 


0171 

0172 

0173 
C174 

0175 

0176 


REF 

REF 

REF 

REF 

REF 

REF 


17 
2 

11 

16 

18 
6 


LAST 

LAST 

LAST 

LAST 

LAST 


1002 

1002 

879 

1000 

10{?2 

1001 


6236  50  163  0 REGUP 

6237  4 6247  1 

6240  26  166  1 +2 

6241  54  116  0 

6242  5C  C2C  0 I TR14 

6243  7 6276  0 


INDEX 

CS 

ADS 

TS 

INDEX 

7 


MODE 

NOoWDS 

PUSHLOC 

ADDRWD 

CYR 

INDJUMP 


MOST  ALL  OP  COOES  PUSHUP  HERE, 


(THE  INDEX  MAKES  THIS  A TCF,) 


C177 

0178 

0179 

0180 
0181 
0182 


6244  00002  0 CCT  ? 

6245  COC06  1 REVCNT  OCT  6 

6246  00006  I OCT  6 

6247  C0(D02  0 NO,WOS  OCT  2 

6250  00003  1 0CTAL3  OCT  3 

6251  00006  1 OCT  6 


REVERSE  PUSHUP  DECREMENT,  VECTOR  TAKES  2 
WORDS,  SCALAR  TAKES  6, 

CONVENTIONAL  DECREMENT  IS  6 WORDS  VECTOR 
2 IN  OP,  AND  3 IN  TP, 


ASSEMBLE  REVISION  331  CF  AGC  PPCCRAf^  LUMINARY  8Y  NASA  2021112-091  17:  53  DECo  19,1969  SKIPPER  101  PAGE  1003 

INTERPRETER  USER'S  PAGE  NO®  B EC  S3 

TEST  THE  SECCNO  PREFIX  BIT  TO  SEE  IF  THIS  IS  A MISCELLANEOUS  CR  A UNARY/SHCRT  SHIFT  OPERATION* 

REF  19  LAST  1002  6252  10  020  1 CFJUMP2  CCS  CYR 


ROIBP 

R0190 

R01Q2 


6254 


77722  0 -ENCVAC  CFC 


-A5 


THE  FOLLOWING  ROUTINE  PROCESSES  AGGRESSES  OF  SUFFIX  CLASS  10*  THEY  ARE  BASICALLY  WORK  AREA  ADDRESSES 
IN  THE  RANGE  0 - 52,  ERASABLE  ECADR  CONSTANTS  FROM  100  - 3777,  AND  FCADRS  ABOVE  THAT*  ALL  15  BITS  ARE  AVAILABLE 
IN  CONTRAST  TO  SUFFIX  1,  IN  WHICH  CNLY  THE  LCW  CROER  14  ARE  AVAILABLE* 


0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 


REF  6 

REF  1 
REF  14 
REF  20 
REF  320 
REF  1 


LAST  ICOO 
LAST  1003 
LAST  1002 


6255 

6256 

6257 
6260 

6261 

6262 

6263 

6264 

6265 


2A  164  1 
50  164  1 
3 0000  I 
5^1  117  1 

3 5013  0 
54  CC4  I 
7 0020  1 
50  000  1 
1 6337  1 


MASK 

INDEX 

TCF 


L0W7+2K 

FEANK 

CYR 


WE  MAY  NEED  A SUBACORESS  LATER* 
THESE  INSTRUCTIONS  ARF  IN  BANK  1* 


GAP:  ASSE^'ELE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C<51 


17:53  DEC»  19,196' 


SKIPPER  *101  PAGE  1004 


L INTERPRETER 


USER 'S  PAGE  NO*  9 EO  S3 


P0202 


COMPLETE  THE  DISPATCHING  OF  UNARY  AND  SHORT  SHIFT  CPERATlCNSe 


0203 

R0204 

0205 

0206 
0207 


REF  15 

REF  21 
REF  321 
REF  1 


LAST  1003  6266 

ITRACE  161  REFERS  T 
LAST  1003  6267 

LAST  1003  6270 

6271 


54  004  1 CPJUMP3 
'’CPJUMP3 
1C  020  1 
50  000  1 
1 2000  I 


TS 

CCS 

INDEX 

TCF 


FBANK 

C YR 
A 

UNA  JUMP 


CALL  IN  BANK  0 (BITS  11-15  OF  A ARE  0*) 
TEST  THIRD  PREFIX  EIT* 

THF  DECREMENTED  UNARY  CODE  IS  IN  BITS 
1-4  CF  A (ZERO,  FXIT,  HAS  BEEN  DETECTED) 


0208 

0209 

0210 
0211 


REF  18  LAST  1002 
REF  1 

PEF  2 LAST  10P4 
REF  1 


6272 

6273 

6274 

6275 


10  163  1 
1 2017  1 
1 2017  I 
1 2121  0 


CCS  MODE 

TCF  SHORTT 

TCF  SHCRTT 

TCF  SHORTV 


ITS  A SHORT  SHIFT  CCDEo  SEE  IF  PRESENT 
SCALAR  OR  VECTOR* 

CALLS  THE  APPROPRIATE  ROUTINE* 


0212  REF  ) 

0213  REF  3^  LAST  608 


4350  FBANKMSK  EQUALS  BANKMASK 

6276  00122  0 LVBUF  AORES  VBUF 


gap: 

L 

P021A 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

022A 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

80248 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-091 


)7:53  DECo  19,1969  SKIPPER  *101  PAGE  1005 


INTERPRETER  USER'S  PAGE  NO*  10  EC  S3 

THE  FCLLCWIN6  IS  THE  JUMP  TABLE  FOR  OP  CODES  WHICH  MAY  HAVE  INDEXABLE  ADDRESSES  OR  MAY  PUSH  UP* 


REF  1 
REF  1 
REF  1 
REF  1 
REF  1 

REF  2 LAST  359 
REF  1 
REF  1 


6277  1 6510  1 

6300  1 7074  1 

6301  1 7660  I 

6302  1 7404  1 

6303  1 6706  1 

6304  1 6473  0 

63C5  1 6055  0 

6306  1 7627  1 


TCf  VLOAD 

TCF  TAC 

TCF  SIGN 

TCF  VXSC 

TCF  CGOTO 

TCF  TLCAD 

TCF  DLDAO 

TCF  V/SC 


I NCJUMP 


00  - LOAD  MPAC  WITH  A VECTOR* 

01  - TRIPLE  PRECISION  ADD  TO  MPAC* 

02  - COMPLEMENT  MPAC  IV  OR  SC)  IF  X NEG* 

03  - VECTOR  TIMES  SCALAR* 

04  - COMPUTED  GC  TC* 

05  - LOAD  MPAC  WITH  TRIPLE  PRECISION* 

06  - LOAD  MPAC  WITH  A DP  SCALAR* 

07  - VECTOR  DIVIDED  BY  SCALAR* 


REF  1 
REF  1 
REF  1 
Rf  F 1 
REF  1 
REF  1 
REF  1 


6307  1 6504  1 

6310  1 6623  1 

6311  1 6526  1 

6312  1 7337  0 

6313  1 6562  1 

6314  1 6631  1 

6315  I 7342  I 

6316  1 7621  1 


TCF  SLCAD 

TCF  SSP 

TCF  POOL 

TCF  MXV 

TCF  PDVL 

TCF  CCALL 

TCF  VXM 

TCF  TSLC 


10  - LOAD  MPAC  IN  SINGLE  PRECISION* 

11  - SET  SINGLE  PPECISICN  INTO  X* 

12  - PUSH  DOWN  MPAC  AND  RE-LOAD  IN  DP* 

13  - MATRIX  POST-MULTIPLIED  BY  VECTOR* 

14  - PUSH  DCWN  AND  VECTOR  LCAO* 

15  - COMPUTED  CALL* 

16  - MATRIX  PRE-MULT  IPL  lED  BY  VECTOR* 

17  - NORMALIZE  MPAC  (SCALAR  ONLY)* 


REF  1 
REF  1 
PEF  1 
REF  I 
REF  1 
REF  1 
REF  1 
REF  1 


6317  1 7577  1 

6320  I 7602  0 

6321  1 7606  1 

6322  1 7624  1 

6323  1 6754  0 

6324  I 6752  0 

6325  1 7C41  1 

6326  I 7334  0 


TCF  DMPR 

TCF  DOV 

TCF  6D0V 

TCF  GSHIFT 
TCF  VAD 

TCF  VSU 

TCF  BVSU 

TCF  DOT 


20  - DP  MULTIPLY  AND  ROUND* 

21  - OP  DIVIDE  PY* 

22  - DP  DIVIDE  INTO* 

23  - GENERAL  SHIFT  INSTRUCTION* 

24  - VECTOR  ADD* 

25  - VECTOR  SUBTRACT, 

26  - VECTOR  SUETRACT  FROMc 

27  - VECTOR  DOT  PRCOUCT* 


REF 

REF 

REF 

REF 

BEF 


1 

1 

1 

1 

1 


REF  1 
REF  1 


6327  1 7463  0 

6330  1 7430  0 

63  31  1 7010  0 

6332  J 7065  1 

6333  1 7000  1 

6334  1 6334  1 

6335  1 7575  0 

6336  1 7616  0 


TCF  VXV 
TCF  VPPOJ 
TCF  OSU 
TCF  RDSU 
TCF  DAD 
TCF 

TCF  DMPl 
TCF  SETPD 


30  - VECTOR  CROSS  PRODUCT* 

31  - VECTCR  PROJECTION* 

32  - DP  SUBTRACT* 

33  - OP  SUBTRACT  FROM* 

34  - OP  ADO* 

35  - AVAILABLE 

36  - DP  MULTIPLY* 

37  - SET  PUSH  DOWN  POINTER  (DIRECT  ONLY) 


COOES  10  AND  14  MUST  NOT  PLSH  LP*  CCDE  04  MAY  BE  USED  FOR  VECTOR  DECLARE  BEFORE  PUSHUP  IF  DESIRED. 


gap; 

L 

P0250 

025? 

0253 

025A 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 


ASSEMBLE  REVISION  131  OF  AGC  PPCGRA^  LUMINARY  BY  NASA  2021112-091 


17:53  DEC®  19,1969  SKIPPER  «101  PAGE  1006 


1 NTERPRETER 


USER'S  PAGE  NCo  11  EO  S3 


THE  FCLLO^iING  JUMP  TABLE  APPLIES  TC  INDEX,  BRANCH,  AND  MISCELLANEOUS  INSTRUCTIONS® 


PEF  1 
PEF  1 
REF  I 
REF  1 
REF  1 
REF  J 


6337  1 2345  0 MISCJUMP  TCF  AXT 

6340  1 2352  0 TCF  AXC 

6341  I 2355  1 TCF  LXA 

6342  1 2361  0 TCF  L XC 

6343  1 2365  1 TCF  SXA 

6344  I 2373  0 TCF  XCHX 

6345  1 2407  1 TCF  INCR 

6346  1 2416  1 TCF  T IX 


00  - ADDRESS  TC  INDEX  TRUE® 

01  - ADDRESS  TO  INDEX  CCMPLEMENTED. 

0?  - LOAD  INDEX  FRCM  ERASABLE® 

03  - LOAD  INDEX  FRCM  COMPLEMENT  OF  ERAS, 

04  - STORE  INDEX  IN  ERASABLE, 

05  - EXCHANGE  INDEX  WITH  ERASABLE® 

06  - INCREMENT  INDEX  REGISTER® 

07  - TRANSFER  ON  INDEX,, 


REF  1 
REF  1 
PFF  I 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 


6347  1 2401  1 

6350  1 2412  0 

6351  1 2470  1 

6352  1 2475  1 

6353  1 2450  0 

6354  1 2510  0 

6355  I 2517  1 

6356  1 2460  0 


TCF  XAC 

TCF  XSU 

TCF  eZE/GOTC 

TCF  BPL/6MN 

TCF  RTB/BHU 

TCF  CALL/ITA 

TCF  SW/ 

TCF  BOVIBJ 


10  - 
11  - 
12  - 

13  - 

14  - 

15  - 

16  - 
17  - 


INDEX  REGISTER  ACC  FROM  ERASABLE® 
INDEX  SUBTRACT  FROM  ERASABLE® 

BRANCH  ZERO  AND  GOTO® 

BRANCH  PLUS  AND  BRANCH  MINUS® 

RETURN  TO  BASIC  AND  BRANCH  HI  ZERO, 
CALL  AND  STORE  QPRET® 

SWITCH  INSTPUCTICNS  AND  AVAILABLE® 
BRANCH  ON  OVERFLOW  TO  BASIC  OR  INTr 


gap:  assemble  revision  ?31  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-09! 


L INTERPRETER 


P0268  THE  FCLLOV.ING  JUMP  TABLE  APPIES  TC  UNARY  I NSTR  UCT I CNS« 


0269  REF 

0270 

0271  REF 

0272  REF 

0273  REF 
027-^  REF 

0275  REF 

0276  REF 

0277  REF 


996  TC  1007: 

00,2000 
CC, 2000 
00,2001 
00,2002 
00,2003 
00,200^ 
CC,2005 
00,2006 


205  205* 

1 3207  0 LNAJUMP 
1 3530  0 
1 3517  0 
1 3610  1 
1 3612  0 
1 317<,  1 
! 2116  1 


COUNT*  tS/INTER 
BANK  0 

TCF  SORT 

TC  F S I NE 

TCF  COSINE 

TCF  ARCSIN 

TCF  ARCCOS 

TCF  DSO 

TCF  POUND 


0278  REF  1 

0279  REF  ! 

0200  REF  2 LAST 

0281  REF  1 

0202  REF  1 

0203  REF  1 

028^  REF  1 

0285  REF  1 


00,2007  1 767?  0 

00,2010  1 3232  0 

606  00,2011  1 3023  1 

00,2012  1 3176  0 

00,2013  1 32A5  0 

Q0,201<^  1 6357  1 

CO, 2015  1 327A  I 

00,2016  1 32^7  1 


TCF  COMP 

TCF  VDEF 

TCF  UNIT 

TCF  ABVALABS 
TCF  VSO 

TCF  STADR 

TCF  RVQ 

TCF  PUSH 


17:53  OECo  19,1969  SKIPPER 


ini  PAGE  1007 


USER  »S  PAGF  NC,  12  EO  S3 


00  - EXIT  - DETECTED  EARLIER^ 

01  - SQUARE  ROOT. 

02  - SIN. 

03  - COS* 

04  - ARC  SIN. 

C5  - ARC  COSo 
06  - DP  SQUARE. 

C7  - ROUND  TO  OP. 

10  - COMPLEMENT  VECTOR  OR  SCALAR. 

11  - VECTOR  DEFINE. 

12  - UNIT  VECTOR. 

13  - LENGTH  OF  VECTOR  OR  MAG  OF  SCALAR. 

14  - SQUARE  OF  LFNGTh  CF  VECTOR* 

15  - PUSH  UP  ON  STCRE  CCDE. 

16  - RETURN  VIA  OPRET. 

17  - PUSH  MPAC  DCWN. 


[ 


bAP: 

L 

P02  86 

R0287 

R0289 

RC291 

R0293 

R0295 

R C297 

R0299 

R0301 

R0303 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

031A 

0315 

031  6 

0317 

0318 

0319 

0320 


iSSEMBLE  REVISION  131  CF  AGO  PRCGRAP  LUMINARY  BY  NASA  2021112-091 


17:53  OECo  19,1969  SKIPPER  olOl  PAGE  1008 


INTERPRETER  USER'S  PAGE  NO.  13  EO  S3 

SECTICK  2 LCAC  ANC  STORE  PACKAGE. 


A SET  OF  EIGHT  STORE  CCDES  IS  PRCVIOEC  AS  THE  PRIMARY  METHOD  OF  STORING  THE  MULTI-PURPOSE 
ACCUMULATOR  (MPAC).  IF  IN  THE  DANZIG  SECTION  LOG  REFERS  TO  AN  ALGE  ER  A I CAL  LY  POSITIVE  WORD*  IT  IS  TAKEN  AS  A 
STCPE  CCDE  ViITh  A CCRRESPCNOUG  ERASABLE  ACCRESS.  MOST  OF  THESE  COOES  ARE  TVO  ADDRESS,  SPECIFYING  THAT  THE  WORD 
FOLLOWING  THE  STORE  CODE  IS  TC  BE  USED  AS  AN  ADDRESS  FROM  WHICH  TC  RE-LOAD  MPAC.  FOUR  OPTIONS  APE  AVAILABLE: 


1.  STORE 

2.  STOOL 

3.  STOVL 
A.  STCALL 


STORE  MPACo  THE  E ADDRESS  MAY  PE  INDEXED. 

STCRE  MPAC  AND  RE-LCAO  IT  IN  DP  WITH  THE  NEXT  ADDRESS  (THE  LOAD  MAY  BE  INOEXEO)- 
STORE  MPAC  AND  RE-LCAD  A VECTOR  (AS  ABOVE). 

STORE  AND  DO  A CALL  (BOTH  ADDRESSES  MUST  BE  DIRECT  HERE). 


STOOL  AND  STOVL  WILL  TAKE  FRCM  THE  PUSH-DOWN  LIST  IF  NO  LOAD  ADDRESS  IS  GIVEN. 


6357 


REF  ? LAST  1 
REF  4 LAST 
REF  16  LAST 
REF  U LAST 
REF  17  LAST 


REF  6 LAST 


CQ7  TC  1008; 

997  6357 

1004  6360 

1003  6361 

1006  6362 

6363 

988  6364 


15  220* 

2 0165  0 STAOR 
54  004  1 
24  164  1 
5C  164  1 ITRl 
4 0000  0 
6 7752  C 


INCR 

INDEX 


JS/INTER 

BANKSET  THE  STADR  CODE  (PUSHUP  UP  ON  STORE 

FBANK  ADDRESS)  ENTERS  HERE. 

LOC 

LGC  THE  STORECODE  WAS  STORED  COMPLEMENTED  TO 

0 MAKE  IT  LOOK  LIKE  AN  OPCODE  PAIR. 

NEGCNE  (YUL  CANT  REMOVE  1 BECAUSE  OF  EARLY  CCS) 


REF  17  LAST  1002 
REF  7 LAST  465 
REF  18  LAST  1008 
REF  1 

REF  37  LAST  816 
REF  322  LAST  1004 
REF  1 


6365 

6366 

6367 

6370 

6371 

6372 

6373 

6374 


54  116  C DOSTORE  TS 


7 4356  1 MASK 

56  116  1 XCH 

7 7725  1 MASK 

C 0006  I EXTEND 

7 4747  0 MP 

50  000  1 ITRO  INDEX 

1 6375  1 TCF 


AODRWD 

LOWll 

AODRWD 

B12T14 

BIT? 

A 

STCR JUMP 


ENTRY  FROM  DISPATCHER^  SAVE  THE  ERASABLE 
ADDRESS  AND  JUMP  ON  THE  STORE  CODE  NO. 


EACH  TRANSFER  VECTOR  ENTRY  IS  TWO  WORDS. 


gap:  assemble  revision  131  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091  17:53  DEC®  19,1969  SKIPPER  rlOl  PAGE  1009 

L INTERPRETER  USER’S  PAGE  NC«  14  EO  S3 


P0321  STORE  CODE  JUMP  TABLE®  CALLS  THE  APPROPRIATE  STORING  ROUTINF  ANC  EXITS  TO  DANZIG  CR  TO  ADDRESS  WITH 

R0323  A SUPPLIEC  OPERATION  CODE® 


R03231 


STCPE  STORE, 1 ANC  STCRE.Z  RETURN  TO  DANZIG,  THUS  RESETTING  THE  E6ANK  TO  ITS  STATE  AT  INTPRET® 


0324  REF 

0325  REF 

0326  REF 

0327  REF 

0328  REF 

0329  REF 


1 

2 LAST  943 
1 

3 LAST  1009 
1 

4 LAST  1C09 


6375  C 6425  1 

6376  1 6064  1 

6377  0 6417  0 

6400  1 6C64  1 

6401  0 6422  0 

6402  1 6064  1 


TfF 


STCRE 
DANZIG 
STCRE , 1 
DANZIG 
STORE, 2 
DANZIG 


STORE® 

PICK  UP  NEW  CP  CCDEISU 


0330  REF  2 LAST  1009 

0331  REF  1 


6403  0 6425  1 

6404  1 6463  1 


TC  STORE  STODL® 

TCF  OOCLOAO 


0332  REF  3 LAST  ICO? 

0333  REF  1 


64C5  0 6425  1 

6406  1 6147  1 


TC  STCPE  STOOL  WITH  INDEXED  LOAD  ADDRESS® 

TCF  DODLDAD* 


0334  REF  4 LAST  1009 

0335  REF  1 


64C7  0 6425  1 

6410  1 6466  1 


TC  STORE  STOVL® 

TCF  DOVLCAC 


0336 

0337 
033P 
C339 

0340 

0341 


REF  5 LAST  U'09 

REF  1 

REF  6 LAST  1009 

REF  2 LAST  281 

REF  22  LAST  1004 

REF  1 


6411  0 6425  I 

6412  1 6471  1 

6413  C 6425  1 

6414  3 4766  1 

6415  54  020  1 

6416  1 6255  1 


TC  STORE 

TCF  DOVLQAC* 

TC  STCRE 

CAF  CALLCODE 

TS  CYR 

TCF  15BITADR 


STOVL  WITH  INDEXED  LCAD  ADDRESS® 
STCTC® 


GET  A 15  BIT  ADDRESS® 


&AP:  ASSEMBLE  REVISION  131  OF  AGC  PPCCRAM  LUMINARY  BY  NASA  2C21112-091 


L INTERPRETER 


P0342 


STORE  CnCE  ACDRESS  PROCESSOR. 


0343  REF  41  LAST  lOno 

0344  REF  28  LAST  1000 

0345  REF  1 


6417  50  120  I STCRE, 

6420  A 0046  1 

6421  1 6424  1 


INDEX  FIXLOC 


0346  REF 

0347  REF 

0348  REF 


LAST  1010 
LAST  980 
LAST  1008 


6422  50  120  I STCRei2  INDEX  FIXLCC 

6423  4 0047  0 CS  X2 

6424  26  116  0 PRESTORE  ADS  ADDRWD 


0349 
03  50 

0351 

0352 

0353 

0354 

0355 
C356 

0357 

0358 


REF  20 
REF  I 
REF  323 
REF  43 
REF  1 
REF  5 
REF  21 
REF  62 
REF  12 
REF  22 


LAST  1010 

LAST  1008 
LAST  1010 

LAST  1000 
LAST  nio 
LAST  1000 
LAST  ICOO 
LAST  1010 


6425  4 CU6  0 

6426  6 4772  1 

6427  10  000  0 

6430  3 0120  1 

6431  1 6436  1 

6432  3 5007  0 

6433  56  lie  1 

6434  54  003  0 

6435  7 4357  0 

6436  26  116  0 


STCRE 


AHEAOS 


CS  ACCRWO 

AO  DEC45 

CCS  A 

CA  FIXLCC 

TCF  AHEAOS 

CA  0CT14O0 

XCH  AOOPViO 

TS  EBANK 

MASK  LOWS 

AOS  AOORWO 


i 


17:53  DEC.  19,1969  SKIPPFR  ^101  PAGE  1010 
USER  *S  PAGE  NHo  15  EO  S3 


RESULTANT  ADDRESS  IS  IN  ERASABLE. 

DOES  THE  ADDRESS  POINT  TO  THE  ViORK  AREA? 
YES. 

NO.  SET  EBANK  S MAKE  UP  SUBADDRESSu 


GAP : 

L 

P0359 

0360 

R0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

03  80 


ASSEMBLE  REVISION  131  OF  AGC  PPCGRAP  LUMINARY  BY  NASA  2C21112-09I 


17:53  DECo  19,1969  SKIPPER  old 


PAGE  lOll 


INTERPRETER 


USER’S  PAGE  NOo  16  EO  S3 


STORING  RCUTINESo  STORE  CP,  TP,  OR  VECTOR  AS  INDICATED  8Y  MGOEo 


REF 

REF 


LAST  997 
LAST  1010 


6440 

6441 

6442 


3 0155  0 
50  116  1 
52  001  1 


DCA 

INDEX 

DXCH 


MPAC 
A CDRWD 
0 


MPAC,+-1  MUST  6F  STORED  IN  ANY  EVENT; 


REF  19  LAST  1004 
REF  1 

REF  252  LAST  995 


0 0002  0 


REF  377  LAST  1011 
REF  . 24  LAST  1011 


6446 

6447 

6450 

6451 


0 0006  1 
3 0160  0 
50  116  1 
52  003  0 


VSTORE 


EXTEND 

OCA  MPAC  +3 
INDEX  AOORHD 
DXCH  2 


REF  378  LAST  1011 
REF  25  LAST  1011 

REF  253  LAST  1011 


6452  0 0006  1 

6453  3 0162  I 

6454  5C  116  1 

6455  52  005  0 

6456  C 0002  0 


EXTEND 

OCA  MPAC  +5 

INDEX  AODPWO 
DXCH  4 
TC  0 


REF  379  LAST  1011 
REF  26  LAST  1011 

REF  254  LAST  1011 


6457  3 0156  0 

6460  50  116  1 

6461  54  CC2  1 

6462  0 0002  0 


TST0R6  CA 

INDEX 

TS 

TC 


MPAC  +2 
AODRWD 
2 
0 


gap: 

L 

P03  81 

ft0383 

038A 

03  85 

0386 

0387 

0388 

0389 

0390 

0391 


ASSEf^BLE  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-C91 


17:53  DEC,  19,1969 


SKIPPER  o 101  PAGE  1012 


INTERPRETER 


USER'S  PAGF  NOo  17  EO  S3 


ROUTINES  TU  BEGIN  PROCESSING  OF  THE  SECOND  ADDRESS  ASSOCIATED  kl TH  ALL  STCRE-TYPE  CCCES  EXCEPT  STORE 

nSELF. 


REF  1 
REF  23 
REF  1 


6AC3 

6^6^; 

6465 


2 7735  1 
54  020  1 
1 6111  1 


DODLOAD  CAF 


OLCADCCD 

CYR 

CIRACRES 


GO  GET  A DIRECT  ADDPESSo 


REF  1 

REF  24  LAST  1012 
REF  2 LAST  1012 


6466  2 4735  1 

6467  54  020  1 

6470  1 6111  1 


DOVLOAO 


CAF 

TS 

TCF 


VLCACCOC 

CYR 

CIRAORES 


REF  1 

REF  2 LAST  1009 


6471  2 6112  0 DOVLOAC*  CAF  VIOAD* 

6472  1 6150  1 TCF  DOCLOAD*  +l  PROLOGUE  TO  INDEX  ROUTINE, 


GAP: 

L 

P0392 

0394 

0395 

0396 

0397 

0390 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DEC.  19,1969 


SKIPPER  .101  PAGE  1013 


I MERPRETER 


USER'  S PAGE  NCe  18  EO  S3 


THE  FOLLUi^I-NG  LOAD  INSTRLCTICNS  ARE  PROVICEO  FCR  LCAOING  THE  MULTI-PURPOSE  ACCUMULATOR  MPAC. 


REF  27  LAST  1011 
REF  380  LAST  lOJ 1 
REF  28  LAST  1013 

REF  381  LAST  1013 
REF  105  LAST  919 
REF  1 


6473 

6474 

6475 

6476 

6477 

6500 

6501 

6502 

6503 


54  156  1 
C 0006  1 
5 0116  1 
3 0001  0 
52  155  1 
3 4753  1 
1 6063  0 


TLOAD 


TMCDE 


INDEX  AODRUD 
CA  2 
TS  MPAC  +2 

EXTEND 

INDEX  ACDRWC 
DCA  0 
CXCH  MPAC 
CAF  ONE 
TCF  NERMOOE 


LOAD  A TRIPLE  PRECISION  ARGUMENT  INTO 
THE  FIRST  THREE  MPAC  REGISTERS,  WITH  THE 
CONTENTS  OF  THE  OTHER  FCUR  IRRELEVANT. 


OECLARE  TRIPLE  PRECISION  MODE. 


REF  29  LAST  1013 
REF  1 


6504  22  007  0 SLCAC  ZL 


6505  50  116  1 

6506  3 0000  1 

6507  1 6060  0 


INDEX  AODRHD 
CA  0 

TCF  SL0AC2 


LOAD  A SINGLE  PRECISION  NUMBER  INTO 
MPAC,  SETTING  MPAC*1,2  TO  ZERO.  THE 
CONTENTS  OF  THE  REMAINING  MPAC  REGISTERS 
ARE  IRRELEVANT. 


REF  30  LAST  1013 
REF  382  LAST  1013 


6510  0 0006  1 VLOAO  EXTEND 


6511  5 0116  1 

6512  3 OOCl  0 

6513  52  155  1 


INDEX  ADDRWD 
DCA  0 
DXCH  MPAC 


LOAD  A DCUBLE  PRECISION  VECTOR  INTO 
MPAC,+l,  MPAC+3,4,  AND  MPAC+5,6e  THE 
CONTENTS  OF  MPAC  +2  ARE  IRRELEVANT. 


REF  31  LAST  1013 
RfF  383  LAST  1013 


6514 
653  5 

6516 

6517 


0 0006  1 
5 0116  1 
3 0303  1 
52  160  1 


ENCVLOAC  EXTEND 
INDEX 
OCA 
DXCH 


AODPWD 

2 

MPAC  +3 


PDVL  COMES  HERE  TO  FINISH  LP  FOR  OP,  TP. 


REF  32  LAST  1013 
REF  384  LAST  1013 


6520  0 0006  1 

6521  5 0116  1 

6522  3 CCC5  1 

6523  52  U2  0 


EXTEND 

INDEX  ADDRWD 
CCA  i 
DXCH  MPAC  +5 


TPOVL  FINISHES  HERE. 


REF  106  LAST  1013  6524  4 4753  0 VMCDE  CS 

REF  2 LAST  10)  3 6525  1 6C63  C TCF 


ONE 

NEWMOOE 


DECLARE  VECTOR  MODE. 


gap: 

L 

P0^21 


ASSE 
1 N 


PBLE  REVISION  131  PE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-P91 
TERPRETER 

THE  FOLLOWING  INSTRUCTIONS  ARE  PROVICEO  FOR  STORING  OPERANDS 


17:53  OECo  19,1969  SKIPPER  o 
USER  ' S PAGE  NO«  19 
IN  THE  PUSHDOWN  LIST: 


101 


PAGE  101<V 
EO  S3 


R04?3 

R042A 

R0<V25 


1.  PUSH 
2b  pool 
3*  PCVL 


PUSHDOWN  AND  NO  LOACo 

PUSHDOWN  AND  DOUBLE  PRECISION  LCADo 

PUSHDOWN  AND  VECTOR  LOAOc 


0A27  REF  33  LAST  1013 

042  8 

0429  REF  385  LAST  1013 

0430  REF  12  LAST  1002 

0431 


6526  0 0006  1 PDDL 

6527  5 0116  1 

6530  3 0001  0 

6531  52  155  1 

6532  5C  166  0 

6533  52  001  1 


EXTEND 

INDEX  ADDRWO 
DCA  0 
DXCH  MPAC 
INDEX  PUSHLCC 
DXCH  0 


0432 

0433 

0434 


REF 

REF 

REF 


20 

3 

13 


LAST 

LAST 

LAST 


1011 

1002 

1014 


6534  50  163  0 

6535  2 6247  0 

6536  26  166  1 


INDEX  MODE 
CAF  NOoWDS 

AOS  PUSHLOC 


LOAD  MPAC,+1,  PUSHING  THE  FORMER 
CONTENTS  OOWNo 


ADVANCE  THE  PUSHDOWN  POINTER  APPRO- 
PRI ATELYo 


0435 

0436 

0437 


REF  21  LAST  1014 
REF  1 
REF  1 


6537  1C  163  I 

6540  1 6555  0 

6541  I 6553  0 


CCS  MCDE 

TCF  FNDTPUSH 

TCF  ENOOPUSH 


0436 

0439 

0440 

0441 

0442 


REF  22  LAST  1014  6542 

PEF  386  LAST  1014  6543 

REF  387  LAST  1014  6544 

REF  14  LAST  1014  6545 

6546 


54  163  1 TS 

54  156  1 ENDVPUSH  TS 

52  160  1 DXCH 

50  166  0 INDEX 

51'775  0 CXCH 


MODE 
MPAC  +2 
MPAC  +3 
PUSHLCC 
0 -4 


0443 

0444 

0445 


REF  388  LAST  1014 
PEF  15  LAST 


6547  52  162  0 

6550  50  166  0 

6551  51'777  1 


DXCH  MPAC  *5 
INDEX  PUSHLOC 
DXCH  0 -2 


NOW  OPe 

PUSH  DOWN  THE  PEST  OF  THE  VECTOR  HEREo 


0446  REF 


LAST  1009  6552  1 6C64 


TCF  DANZIG 


0447 

0448 


REF  389  LAST  1014  6553 

REF  6 LAST  1014  6554 


54  156  1 ENCDPUSH  TS  MPAC  +2 

1 6064  1 TCF  DANZIG 


SET  MPAC  +2  TO  ZERO  AND  EXIT  ON  OP* 


0449 

0450 

0451 

0452 

0453 


REF  23  LAST  1014 
REF  390  LAST  1014 
REF  U LAST  1014 

REF  7 LAST  1014 


6555 

6556 

6557 

6560 

6561 


54  163  1 ENOTPU 
56  156  0 
5C  166  0 +2 

52*777  0 
1 6C64  1 


TS  MODE 

XCH  MPAC  +2 

INDEX  PUSHLCC 

TS  0-1 

TCF  OANZIG 


ON  TRIPLE,  SET  MPAC  +2  TO  ZERO,  PUSHING 
DOWN  THE  OLD  CONTENTS 


gap;  assemble  revision  131  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-091 
L INTERPRETER 


PO^SA  POVL  - PUSHCCWN  ANC  VECTOR  LGAC* 


0A5? 

0A56  REF  3A  LAST  lOlA 

0A57 

0A58  KEF  391  LAST  lOlA 

0A59  REF  17  LAST  1014 

0460 


6562 

6563 

6564 

6565 

6566 

6567 


C 0006  1 
5 0116  1 
3 0001  0 
52  155  1 
50  166  0 
52  001  1 


PDVL 


EXTEND 

INDEX  AOORKO 
CCA  0 
OXCH  MPAC 
INDEX  PUSHLOC 
DXCH  0 


0461  REF 

0462  REF 

0463  REF 


24  LAST  1014 
4 last  1014 
18  LAST  1015 


6570  50  163  0 

6571  3 6247  0 

6572  26  166  1 


INDEX  MODE 
OAF  NO*WDS 
ADS  PUSHLOC 


04  64 

0465 

0466 


REF 

REF 

REF 


25  LAST  1015 


6573 

6574 

6575 


CCS  MODE 
TCF  TPDVL 
TCF  ENDVLCAO 


0467 

0468  REF  35  LAST  1015 

0469 

0470  REF  392  LAST  1015 

0471  REF  19  LAST  1015 

04  72 


6576  C 0006  1 VPDVL  EXTEND 


6577  5 0116  1 

6600  3 0003  1 

6601  52  160  1 

6eC2  50  166  0 
6603  51'775  0 


INDEX  ACDRWD 
DCA  2 
DXCH  MPAC  +3 
INDEX  PUSHLCC 
OXCH  0 -4 


0473  6604 

0474  REF  36  LAST  1015  6605 

0475  6606 

0476  REF  393  LAST  1015  6607 

0477  REF  20  LAST  1015  6610 

0478  6611 


0 0006  ] 
5 0116  1 
3 0005  1 
52  162  0 
50  166  0 
51*777  1 


EXTEND 

INDEX  AODRViD 
DCA  4 
DXCH  MPAC  +5 
INDEX  PUSHLOC 
DXCH  0 -2 


0479  REF 


LAST  1014 


6612  1 6C64 


TCF  DANZIG 


0480 

0481  REF  37  LAST  1015 

0482 

0483  REF  394  LAST  1015 


6613  0 0006  1 

6614  5 0116  1 

6615  3 0CC3  1 

6616  52  160  1 


TPDVL 


EXTEND 

INDEX  ADORWO 
DCA  2 
DXCH  MPAC  +3 


0484  REF  395  LAST  1015 

0485  REF  21  LAST  1015 

04P6 

0487  REF  2 LAST  1015 


6617  3 C156  0 

6620  50  166  0 

6621  53' 777  0 

6622  1 6520  1 


CA  MPAC  *2 

INDEX  PUSHLOC 

TS  0 -1 

TCF  ENDVLCAD 


R0488 


SSP  (STORE  SINGLE  PRECISION!  IS  EXECUTED  HERE* 


0489  REF  10  LAST  1008 

0490  PEF  19  LAST  1015 

0491 


6623  24  164  1 SSF 

6624  50  164  1 

6625  3 0000  1 


INCR  LOC 
INDEX  LOC 
CA  f 


0492  PEF  38  LAST  1015 

0493 


6626  50  116  1 STOREl 

6627  54  000  0 


INDEX  ADDPWO 
TS  0 


17:53  DECs  19,  1969  SKIPPER  dOl  PAGE  1015 


USER'S  PAGE  NCc  20  EG  S3 


RELOAD  MPAC  AND  PUSH  DOWN  ITS  CONTENTS* 


ADVANCE  THE  PUSHDOWN  POINTER* 

TEST  PAST  MCOEo 

JUST  LOAC  LAST  FOUR  REGISTERS  ON  0P» 
PLSHDOWN  AND  RE-LOAD  LAST  TWO  COMPONENTS 


ON  TP,  WE  MUST  LOAD  THE  Y COMPONENT 
BEFORE  STORING  MPAC  +2  INCASE  THIS  IS  A 
PUSHUP* 


I N DPo 


PICK  UP  THE  WORD  FOLLOWING  THE  GIVEN 
AOOPESS  AND  STORE  IT  AT  X* 

SOME  INDEX  AND  MISCELLANEOUS  OPS  END 
HERE. 


gap:  ASSEP8LE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C91  17:53  DEC®  19,1969  SKIPPER  olOl  PAGE  1016 

L INTERPRETER  USER'S  PAGE  NO,  21  60  S3 


0494 


REF  9 LAST  1015 


6630  1 6C64  1 


TCF 


DANZIG 


GAP:  ASSef'BLE  HEVISIDN  131  CF  AGC  PPCCRAl^  LUMINARY  BY  NASA  2021112-C?! 


17:53  DEC*  19,1969  SKIPPER  r 101  PAGE  1017 


L INTERPRETER  USER'S  PAGE  NO.  2?  EO  S3 

P0495  SEQUENCE  CFANGING  ANC  SUBROUTINE  CALLING  OPTIONSo 


R0^96 


THE  FOLLOWING  OPERATICNS  ARE  AVAILABLE  FOR  SEQUENCING  CHANGING,  BRANCHING,  AND  CALLING  SUBROUTINES: 


R0A98  lo  GOTO 

RC499  2o  CALL 

R0500  3o  CGOTO 

R0501  4*  CCALL 

R0502  7,  0PL 

R0503  80  BZE 

R0504  9o  BMN 


GO  TOo 

CALL  SUBROUTINE  SETTING  OPRET* 
COMPUTED  GC  TCo 
COMPUTED  CALLo 

BRANCH  IF  MPAC  POSITIVE  OR  ZERO* 
BRANCH  IF  MPAC  ZERO* 

BRANCH  IF  MPAC  NEGATIVE  NON-ZERC» 


0505  REF  20 

0506  REF  21 

0507 

0508  REF  39 

05C9  • 

0510  REF  17 

0511  REF  17 

0512  REF  324 

0513 

0514  REF  7 


LAST  1015 
LAST  1017 

LAST  1015 

LAST  1008 
LAST  1000 
LAST  1010 

LAST  1003 


6631  2A  164  1 

6632  50  164  1 

6633  3 0000  1 

6634  5C  116  1 

6635  6 0000  1 

6636  54  004  1 

6637  7 5012  0 

6640  50  000  1 

6641  3 2000  0 

6642  54  117  1 


CCALL 


INCR  LOC 
INDEX  LOC 
CAF  0 
INDEX  AODRWD 
AD  0 

TS  F8ANK 

MASK  LCWIO 
INDEX  A 
CAF  10000 
TS  POLISH 


MAINTAIN  LOC  FOR  QPRET  COMPUTATION* 
GET  RASE  ADDRESS  CF  CADR  LISTo 

ADC  INCREMENT* 

SELFCT  DESIRED  CADR* 


0515 

0516 

0517 

0518 

0519 

0520 


REF  5 LAST  1008 
REF  2 LAST  1004 
REF  3 LAST  1017 
REF  22  LAST  1017 
REF  4^  LAST  1010 
REF  8 LAST  934 


6643 

6644 

6645 

6646 

6647 
6650 


3 0165  0 
7 4350  1 
f 4350  0 
6 0164  1 
5C  120  1 
54  052  1 


CALL 


CA  BANKSFT 

MASK  BANKMASK 

AO  BANKMASK 

AO  LOC 

INDEX  FIXLCC 

TS  OPRET 


FOR  ANY  OF  THE  CALL  OPTIONS,  MAKE  UP  THE 
ADDRESS  OF  THE  NEXT  OP-CODE  PAIR/STORE 
CODE  AND  LEAVE  IT  IN  QPRET*  NOTE  THAT 
BANKMASK  = -(2COO  -11* 


0521 

0522 

0523 
052^ 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 


8 

3 


REF  1 

REF  6 LAST  1017 
REF  28  LAST  9Q7 
REF  9 LAST  1017 
REF  18  LAST  1017 
KEF  18  LAST  1C17 
REF  2 LAST  1000 
REF  23  LAST  1017 
REF  218  LAST  996 


6651  3 0117  0 GOTO 

6652  7 7745  1 +1 

6653  0 0006  I 

6654  I 6665  0 

6655  3 0165  0 +4 

6656  54  006  0 

6657  3 0117  0 

6660  54  004  1 

6661  7 5012  0 

6662  6 4741  I 

6663  54  164  0 

6664  1 6045  I 


CA  POLISH 

MASK  HIGH4 

EXTEND 

BZF  GOTGERS 

CA  BANKSET 

TS  BBANK 

CA  POLISH 

TS  FBANK 

MASK  LDWIO 

AO  2K 

TS  LOC 

TCF  INTPRET  +3 


BASIC  BRANCHING  SEQUENCE* 


SEE  IF  ADDRESS  POINTS  TO  FIXED  OR  ERAS* 
SET  EBANK  PART  OF  BBANK*  NEXT,  SET  UP 
FBANK*  THE  COMBINATION  IS  PICKED  UP  t 
PUT  INTO  BANKSET  AT  INTPRET  +2* 


0533 


E3.1400 


E6ANK=  1400 


SO  YUL  DOESN'T  CUSS  THE  "CA  1400"  BELOW* 


0534  REF  10  LAST  1017 

0535  REF  2 LAST  999 

0536  REF  325  LAST  1017 

0537  REF  11  LAST  1017 

0538  REF  1 


6665  3 0117  0 GCTCERS  CA 


6666  6 6254  1 AO 

6667  10  000  0 CCS 

6670  3 0117  0 CA 

6671  1 6700  I TCF 


POLISH 

-EN'DVAC 

A 

POL  ISH 
GOTOGB 


THE  GIVEN  ADDRESS  IS  IN  ERASABLE  - SEE 
IF  RELATIVE  TO  THE  WORK  AREA* 

GENERAL  ERASABLE* 


GAP  : 


ASSEMBLE  REVISION  131  OF  A6C  PROGRAM  LUMINARY  BY  NASA  2021112-C91 


I MERPRETER 


0539 

05^0 

0541 

0542 

0543 

0544 


REF  45 
REF  12 
REF  326 


LAST  1017 
LAST  1017 
LAST  1017 


13  LAST  1018 


6672 

6673 

6674 

6675 

6676 

6677 


3 0120  I 
6 0117  0 
50  000  1 
3 OCOO  1 
54  117  I 
1 6652  1 


TS 

TCF 


POLISH 
GOTO  +1 


0545 

0546 

0547 

0548 
C549 
0550 


REF  63  LAST  1010 
REF  13  LAST  1010 
REF  327  LAST  1018 

REF  14  LAST  1018 
REF  2 LAST  1018 


6700  54  003  0 GOTOGE  TS  G8ANK 

6701  7 4357  0 MASK  LOWB 

6702  5C  000  I INDEX  A 

6703  3 1400  1 CA  1400 

6704  54  117  1 TS  POL  ISH 

6705  I 6652  1 TCF  GOTC  +1 


0551  REF  24  LAST 

0552 

0553  REF  40  LAST 

0554 

0555  REF  19  LAST 

0556  REF  19  LAST 

0557  REF  328  LAST 

0558 

0559  REF  15  LAST 

0560  REF  3 LAST 


1017 

1017 

ICl  7 

1017 

1018 


1018 

1018 


6706 

6707 

6710 

6711 

6712 

6713 

6714 

6715 

6716 

6717 


50  164  1 
3 0001  0 
50  116  1 

6 0000  I 
54  004  1 

7 5012  0 
50  000  1 
3 2000  0 
54  117  1 
1 6652  1 


CGOTO  INDEX  LOG 
CA  I 
INDEX  ADDRWC 
AO  0 
TS  FBANK 

MASK  LOmO 
INDEX  A 
CA  10000 
TS  POLISH 

TCf  GOTO  +1 


0561 

0562 

0563 

0564 

0565 

0566 


REF  7 LAST  1017 
REF  20  LAST  1018 
REF  25  LAST  1018 

REF  16  LAST  1018 
REF  4 LAST  1018 


6720 

6721 

6722 

6723 

6724 

6725 


2 0165 
54  004 
50  164 
2 OOCl 
54  117 
1 6652 


0 SWBRANCH  CA  BANKSET 

1 TS  FBANK 

1 INDEX  LCC 

0 CA  1 

1 TS  POLISH 

1 TCF  GOTC  +I 


17:53  DEC*  19»1969  SKIPPER  *101  PAGE  1018 


USER  'S  PAGF  NCc  23  E3  S3 

WORK  AREA* 

USE  THE  GIVEN  ADDRESS  AS  THE  ADDRESS  OF 
THE  BRANCH  ADDRESS* 

ALLOWS  ARBITRARY  INDIRECTNESS  LEVELSo 


USE  THE  GIVEN  ADDRESS  AS  THE  ADDRESS  OF 
THE  BRANCH  ADDRESS* 


COMPUTED  GO  TO*  PICK  UP  ADDRESS  OF  CAOR 
L 1ST* 

ADO  MODIFIER* 

SELFCT  GOTO  ADORESSr 


WITH  ADDRESS  IN  A* 

SWITCH  INSTRUCTIONS  WHICH  ELECT  TO 
BRANCH  COME  HERE  TC  DC  SO* 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091  17:53  CECo  19,1969  SKIPPER  *101  PAGE  1019 

L INTERPRETER  USER'S  PAGE  NCo  24  E3  S3 

P0567  TRIPLE  PRECISION  BRANCHING  ROUTINE*  IF  CALLING  TC  IS  AT  L,  RETURN  IS  AS  FOLLOWS: 


R0569 

R0570 

R0571 


L*?  IF  MPAC  IS  LESS  THAN  ZERO* 


0572 

0573 

0574 
C575 


6726 

6727 

6730 

6731  1 6744  1 


TCF 

TCF 


0576  REF  397  LAST  1019 

0577  REF  256  LAST  1019 

0578 

0579  REF  2 LAST  1019 


6732  1C  155  1 

6733  0 0002  0 

6734  1 6736  1 

6735  1 6744  1 


CCS  MPAC  +1 

TC  0 

TCF  +2 

TCF  NEG 


C580  PEF  396  LAST  1019 

0581  REF  257  LAST  1019 

05  82 

0583  REF  3 LAST  1019 


6736  10  156  1 

6737  C OOC2  0 

6740  1 6742  1 

6741  1 6744  1 


CCS  MPAC  +2 
TC  0 

TCF  +2 

TCF  NEG 


0584  REF  258  LAST  1019 
05  85 


6742  5C  0C2  0 0+1 

6743  0 0001  0 


INDEX  Q 
TC  1 


0586  REF  259  LAST  1019 

0587 


6744  50  002  0 NEG 

6745  C 0002  0 


INDEX  0 
TC  2 


IF  FIRST  NON-ZERO  REGISTER  WAS  NEGATIVE* 


0588 


REF  4 LAST  1019 


6744 


0+2  = NEG 


R0589 

0590 

0591 

0592 

0593 


REF 

REF 

REF 


8 

29 

26 


ITRACE  ( 31  REFERS  TO 
LAST  1018  6746 

LAST  1017  6747 

LAST  1018  6750 

6751 


"EXI  T"* 

3 0165  0 
54  006  0 
5C  164  1 
0 0001  0 


EXIT 


CA 

TS 

INDEX 

TC 


BANKSET 

BBANK 

LCC 

1 


RESTORE  USER'S  BANK  SETTING,  AND  LEAVE 
INTERPRETIVE  MODE* 


gap: 

L 

P059^ 

R0595 

R0597 

R0598 

R0599 

R0600 

R0601 

R0602 

R0603 

R0604 

R0605 

0607 

0608 

0609 

0610 

0611 

0612 

0613 

0614 

0615 

0616 

0617 

0616 

0619 

0620 

0621 

0622 

0623 

0624 

062  5 

0626 

0627 

0626 

0629 

0630 

0631 

0632 

0633 

0634 


ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DEC*  19,1969  SKIPPER  o 101  PAGE  1020 


INTERPRETER  USER'S  PAGE  N0«  25  E3  S3 

SBCTICN  3 - ADC/SUeTRKT  PACKAGE* 

THE  FOLLOWING  OPERATICNS  ARE  PRCVICEC  FOR  ADDING  TO  ANC  SUBTRACTING  FROM  THE  MULTI-PURPOSE  ACCUMULATOR 

MPAC: 


U CAC 
2o  OSU 


CCUBLE  PRECISION  ACC* 
OCUBLE  PRECISION  SUBTRACT* 


3*  0CSU 


OCUBLE  PRECISION  SUBTRACT  FROM* 


4*  TAD 


TRIPLE  PRECISION  ADO* 


5*  VAD 
6*  VSU 
7*  BVSU 


VECTOR  ADO* 

VECTOR  SUBTRACT* 
VECTOR  SUBTRACT  FROM* 


THE  INTERPRETIVE  OVERFLOW  INCICATOR  OVFINO  IS  SET  NON-ZERO  IF  OVERFLOW  OCCURS  IN  ANY  OF  THE  ABOVE* 


REF  37  LAST  996  6752  3 4735  1 VSU  CAF  BIT15 

6753  1 6755  1 TCF  +2 


CHANGES  0 TO  DCS* 


REF  9 LAST  825 
REF  41  LAST  1018 

REF  42  LAST  1020 
REF  2 LAST  383 
REF  399  LAST  1019 


REF  1 


675^  3 4355  0 

6755  26  116  0 

6756  C 0006  1 

6757  5 0116  1 

6760  CC  003  1 

6761  20  160  1 

6762  0 0006  1 

6763  1 6765  1 

6764  0 7017  0 


VAC 


CAF  PR  1030 

AOS  AOCRWD 

EXTEND 

INDEX  ADDRWD 

READ  HISCALAR 

DAS  MPAC  +3 

EXTEND 
BZF  +2 

TC  nVERFLWY 


CHANGES  0 TO  DCA* 


DCA  2 OR  DCS  2 
CHECK  OVERFLOW* 


REF  43  LAST  1020 
REF  2 LAST  214 
REF  40C  LAST  1020 


REF  1 


6765  0 0006  1 

6766  5 0116  1 

6767  00  005  I 

6770  20  162  0 

6771  C 0006  1 

6772  1 6774  1 

6773  C 7C14  0 


EXTEND 

INDEX  ADDRWD 

READ  CHAN5  OCA  4 OR  DCS  4 

DAS  MPAC  +5 

EXTEND 

BZF  +2 

TC  CVERFLW2 


REF  44  LAST  1020 
REF  15  LAST  737 
REF  1 


6774  0 0006  1 

6775  5 0116  1 

6776  CO  001  0 

6777  1 7003  1 


EXTEND 

INDEX  ACCPWD 
READ  LCHAN 
TCF  ENDVXV 


DCA  0 CR  DCS  0 


REF  45  LAST  1020 
REF  401  LAST  1020 
REF  10  LAST  1016 


70C0 

7001 

7002 

7003 

7004 

7005 


3 0001  0 
20  155  1 
0 0006  1 
1 6064  1 


OAC 


ENDVXV 


EXTEND 

INDEX  ADDRWD 

CCA  f) 

DAS  MPAC 

FXTEND 

BZF  DANZIG 


VXV  FINISHES  HERE* 


GAP:  ASSEMBLE  REVISION  131 

L INTERPRETER 

0635  REF  1 

0636  REF  11  LAST  1020 


OF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021112-091 


17:53  DEC*  19,  1969  SKIPPER  oini  PAGE  1021 
USER'S  PAGE  NO*  26  E3  S3 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINAR 


BY  NASA  2021112-091 


L INTERPRETER 


0637 

0630  REF  46  LAST  1020 

0639 

0640  REF  2 LAST  1020 


7010 

7011 

7012 

7013 


C 0006  1 
5 0116  1 
4 0001  1 
1 7003  1 


DSL 


EXTEND 

INDEX  AODRMD 
DCS  0 

TCF  ENCVXV 


0641 

0642 

0643 


REF  182  LAST  994 
REF  18  LAST  B53 


7014  54  001  1 

7015  3 4756  1 

7016  1 7021  1 


CVERFLWZ  TS 
CAF 
TCF 


0644  REF  103  LAST  1022 

0645  REF  30  LAST  974 

0646  REF  104  LAST  1022 


7017  54  001  1 CVERFLWY  TS  L 

7020  3 6250  0 CAF  THREE 

7021  56  001  0 XCH  L 


0647  REF  229  LAST  1018  7022 

0648  REF  2 LAST  918  7023 

0649  REF  82  LAST  863  7024 

0650  7025 

0651  REF  330  LAST  1022  7026 

0652  REF  185  LAST  1022  7027 

0653  REF  402  LAST  1020  7030 

0654  7031 

Oo55  REF  186  LAST  996  7032 

0656  REF  83  LAST  1022  7023 

0657  REF  186  LAST  1022  7034 

0658  REF  403  LAST  1022  7035 

0659  7036 

0660  REF  260  LAST  1019  7037 

0661  REF  1 7040 


5C  000  1 
4 4734  1 
54  130  I 
C 0CC6  1 
24  OCO  I 
50  001  0 
26  155  1 
54  007  1 
3 4755  1 
6 0130  0 
50  001  0 
26  154  0 
54  007  1 
0 0002  0 
1 7155  0 


CVERFLCW  INDEX 
CS 
TS 

EXTEND 

AUG 

INDEX 

ADS 

TS 

CAF 


A 

LI  KI  TS 
BUF 


L 

MPAC  +1 
7 

ZERO 

BUF 

L 

MPAC 

7 

0 

S6TCVF2 


0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671 


REF  47  LAST  1022 
REF  404  LAST  1022 

REF  405  LAST  1022 

REF  2 LAST  1020 


7041 
7C42 
7043 
7 044 

7045 

7046 

7047 

7050 

7051 

7052 


0 0006  1 
5 0116  1 

3 0003  1 
52  160  1 
C 0006  1 

4 0001  1 
20  160  1 
C 0CC6  1 
1 7053  1 
0 7017  0 


evsu 


EXTEND 

INDEX  ADDRWD 

OCA  2 

DXCH  MPAC  +3 

EXTEND 

DCOM 

CAS  MPAC  +3 

EXTEND 
BZF  +2 

TC  OVERFLWY 


0672 

0673 

0674 

0675 

0676 

0677 

0678 

0679 

0680 
0661 


REF  48  LAST  1022 
REF  406  LAST  1022 

REF  407  LAST  1022 

REF  2 LAST  1020 


7053  C 0006  1 

7054  5 0116  1 

7055  3 0C05  1 

7056  52  162  0 

7057  C 0006  1 

7060  4 0001  1 

7061  20  162  0 

7062  0 0006  1 

7063  1 7065  1 

7064  0 7014  0 


E XTENO 

INDEX  AOORWO 

OCA  4 

DXCH  MPAC  +5 

EXTEND 

OCCM 

DAS  MPAC  +5 

EXTEND 
BZF  +2 

TC  OVERFLWZ 


17:53  DECo  19,1969  SKIPPER  .101  PAGE  1022 


USER  'S  PAGE  NOo  27  E3  S3 


ENTRY  FOR  THIRD  COMPONENTo 


ENTRY  FOR  SECOND  COMPONENT* 

ENTRY  FOR  1ST  COMP  OR  DP  tL=0)c 
PICK  UP  POSMAX  CP  NEGMAXo 

FORCE  OVERFLOW* 


NO  OVERFLOW  EXI  To 
SET  OVFINC  AND  EXIT, 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PPCCRAM  LUMINARY  BY  NASA  2021112-091 

L INTERPRETER 


17:53  DECo  19,1969  SKIPPER 
USER  'S  PAGE  NOo  28 


elOl  PAGE  1023 
E3  S3 


0682 

0663 

068A 

0665 

0686 

0667 

0668 


REF  49  LAST  1022 
REF  408  LAST  1022 

REF  3 LAST  1022 


7065  0 0006  1 

7066  5 0116  1 

7067  3 0001  0 

7070  - 52  155  1 

7071  C 0006  1 

7072  4 OCCl  1 

7073  1 7003  1 


6DSU 


EXTEND 

INDEX  ADORWD 
OCA  0 
DXCH  MPAC 
EXTEND 
OCCM 

TCF  ENDVXV 


gap: 

L 

P0689 


ASSEMBLE  REVISION 
INTERPRETER 

TRIPLE 


131  OF  AGC  PRCGRAR  LUMINARY  BY  NASA  2021112-091 


PRECISICN  AOC  RCUTINEo 


0690 

0691 

0692 

0693 

0694 

0695 

0696 

0697 

0698 


REF  50  LAST  1023 

REF  409  LAST  1023 
REF  51  LAST  1024 

REF  410  LAST  1024 
REF  411  LAST  1024 
REF  12  LAST  1021 


7074 

7075 

7076 
7C77 

7100 

7101 

7102 
■7103 

71CA 


C 0006  1 

5 0116  I 
3 0002  0 
20  156  1 
50  116  1 

6 0000  I 
6 015A  1 
5A  154  0 
1 606A  1 


TAD 


EXTEND 

INDEX  ADDRWD 
CCA  1 
DAS  MPAC  +] 
INDEX  ADDRWD 
AD  0 
AD  MPAC 

TS  MPAC 

TCF  DANZIG 


0699  REF 


7105  1 7006 


TCF  SETOVF 
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ADD  MINOR  PARTS  FIRST., 


SET  OVFIND  IF  SUCH  CCCUPSo 


gap: 

L 

P0700 

ROTOl 

ft0703 

R0705 

R0707 

R0709 

R0710 

R0712 

071A 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

C72A 

0725 

0726 

0727 

0728 

0729 

0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 
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INTERPRETER 

ARITHMETIC  SUBROUTINES  RECUIPEC  IN  FIXEC-FIXECa 


USER'S  PAGE  NCe 


DOUBLE  PRECISION  MLLTIPLYo  MULTIPLY  THE  CONTENTS  OF  MPAC,+1  8Y  THE  OP  WORD  WHOSE  ADDRESS 

IS  IN  ACORWO  AND  LEAVE  A TRIPLE  PRECISION  RESULT  IN  MPACo 

ROLNC  THE  TRIPLE  PRECISCN  CONTENTS  OF  MPAC  TO  COUBLF  PRECISION* 

TAKE  THE  DOT  PRODUCT  OF  THE  VECTOR  IN  MPAC  AMD  THE  VECTOR  WHOSE  AOCRESS  iS  IN  ADORWO 
ANC  LEAVE  THE  TRIPLE  PRECISION  RESULT  IN  MPAC* 

USING  THE  CONTENTS  CF  MPAC  AS  A DP  ARGUMENT,  EVALUATE  THE  POLYNOMIAL  WHOSE  DEGREE  AND 
COEFFICIENTS  IMMEDIATELY  FOLLOW  THE  TC  POLY  INSTRUCTION  (SEE  ROUTINE  FOR  DETAILS*  I 


REF  261  LAST  1022 

REF  262  LAST  1025 
REF  52  LAST  1024 


71C6  50  002  0 CMP 

7107  3 0000  1 

7110  24  002  0 

7111  54  116  0 -1 


INCEX 

CAF 

INCR 

TS 


BASIC  SUBROUTINE  FOR  USE  BY  PINBALL,  ETC 
ACRES  OF  ARGUMENT  FOLLOWS  TC  OMP  * 

(PROLOGUE  FOR  SFTTING  ADORWD*! 


REF  53  LAST  1025 

REF  412  LAST  1024 
REF  187  LAST  1022 
REF  413  LAST  1025 
PFF  9 LAST  993 

REF  414  LAST  1025 


7U2  50  116 

7113  3 0001  0 

7114  54  156  I 

7115  3 4755  1 

7116  56  155  0 

7117  54  135  1 

7120  0 0006  1 

7121  7 0156  1 


AUDRWD 
1 

TS  MPAC  +2 

CAF  ZERO 

XCH  MPAC  +1 

TS  MPTEMP 

EXTEND 

MP  MPAC  +2 


I OMPSUB  INDEX 
CA 


GET  MINOR  PART  OF  CPERANC  AT  C(AOORWD)* 

THIS  WORKS  FOR  SQUARING  MPAC  AS  WELL- 
SET  MPAC  +1  TO  ZERO  SC  WE  CAN  ACCUMULATE 
THE  PARTIAL  PRODUCTS  WITH  DAS 
INSTRUCTICNSo 

MINOR  OF  MPAC  X MINOR  OF  C(AOORWO), 


REF  415  LAST  1025 

REF  416  LAST  1025 
REF  417  LAST  1025 


7122  56  156  0 

7123  0 0006  1 

7124  7 0154  0 

7125  20  156  1 


XCH  MPAC  +-2 

EXTEND 
MP  MPAC 

OAS  MPAC  +1 


DISCARD  MINOR  PART 
FORM  MAJOR  OF  MPAC 


CF  ABOVE  RESULT  AND 
X MINOR  OF  C(ADDRWOI* 


GUARANTEED  NO 


OVERFLOW* 


REF  54  LAST  1025 
REF  10  LAST  1025 

FEF  11  last  1025 
REF  418  LAST  1025 


7126  50  116  1 

7127  3 0000  1 

7130  56  135  0 

7131  C 0CC6  1 

7132  7 0135  1 

7133  2C  156  I 


INDEX 

CA 

XCH 

DMPSUB2  EXTEND 
MP 
OAS 


AOORWD 

0 

MPTEMP 

MPTEMP 
MPAC  +1 


GET  MAJOR  PART  OF  ARGUMENT  AT  C(ADORWO)o 
SAVE  AND  BRING  OUT  MINER  CF  MPAC* 

MAJCR  CF  C(ADDRWD)  X MINOR  CF  MPAC* 
ACCUMULATE,  SETTING  A TC  NET  OVERFLOW. 


REF  419  LAST  1025 

REF  12  LAST  1025 
REF  420  LAST  1025 
REF  263  LAST  1025 


7134  56  154  1 

7135  0 0006  1 

7136  7 0135  1 

7137  20  155  1 

7140  0 0002  0 


XCH  MPAC 

EXTEND 

MP  MPTEMP 

OAS  MPAC 

TC  Q 


SETTING  MPAC  TO  0 CR  +-lo 


MAJOR  OF  MPAC 
GUARANTEED  NO 
40  MCT  = * 57? 


X MAJOR  OF  C(ADORWOI* 
CVFRFLCW* 

MS*  INCLUDING  RETURN* 
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P0741 


RCUNO  MPAC  TC  DOUBLE  PRECISION, 


SETTING  OVFIND  ON  THE  RARE  EVENT  CF  OVERFLOWe 


0743  REF  188  LAST  1025 

0744  REF  26  LAST  1015 


7141  3 4755  1 RCLNDSU6  CAF  ZERO 

7142  54  163  1 +1  TS  MODE 


SET  MPAC  +2=0  FDR  SCALARS  AND  CHANGE 
MODE  TO  OP® 


0745  REF  421  LAST  1025 

0746 

0747  REF  187  LAST  1022 

0748  REF  264  LAST  1025 


7143  56  156  0 VRCUNO  XCH  MPAC 

7144  6 COOO  1 DOUBLE 

7145  54  OCl  1 TS  L 

7146  0 0002  0 TC  Q 


BLT  WE  NEEDNT  TAKE  THE  TIME  FOR  VECTORS® 


0749  REF  422  LAST  1026 

0750  REF  423  LAST  1026 

0751  REF  265  LAST  1026 


7147  6 0155  0 

7150  54  155  1 

7151  C 0002  0 


AD  MPAC  +1  ADD  ROUNDING  BIT  IF  MPAC  +2  WAS  GREATER 

TS  MPAC  +1  THAN  ®5  IN  MAGNITUDE* 

TC  0 


0752  REF  424  LAST  1026 

0753  REF  425  LAST  1026 


7152  6 0154  1 AD  MPAC 

7153  54  154  0 TS  MPAC 


0754  PEF  266  LAST  1026 


7154  C 0002 


TC  Q 


PRCPAGATE  INTERFLCWc 


0755  REF  2 LAST  808 

0756  REF  267  LAST  1026 


7155  54  121  1 SETnVF2  TS  OVFIND 

7156  C 0002  0 TC  0 


(RARE!* 


GAP: 

L 

P0757 

R0759 

R0761 

0763 

076A 

0765 

-0766 

0767 

0768 

0769 

0770 

0771 

0772 

0773 

0774 

0775 

0776 

0777 

0778 

0779 

0780 

0781 

0782 

0783 

0784 

0785 

0786 

0787 

0788 

0789 

0790 

0791 

0792 

0793 

C794 

0795 
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THE  OQT  PROOLCT  SU8RCLTINE  USUALLY  FCRPS  THE  OGT  PRODUCT  OF  THE  VECTOR  IN  MPAC  WITH  A STANDARD  SIX 
REGISTER  VECTOR  WHOSE  ADDRESS  IS  IN  AODRWO*  IN  THIS  CASE  C(DOTINC)  ARE  SET  TO  2,  VXM,  HOWEVER,  SETS  CtOOTINO  TO 
6 SO  THAT  DOTSLB  DOTS  MPAC  WITH  A COLUMN  VECTOR  OF  THE  MATRIX  IN  QUESTION  IN  THIS  CASEo 


REF  64  LAST  991 
REF  4 LAST  97 


7157  3 4752  0 PREDOT  CAF 

7160  54  136  1 TS 


TWC 

DOTINC 


PROLOGUE  TO  SET  OOTINC  TO  2o 


REF  5 LAST  97 
REF  1 

REF  426  LAST  1026 
REF  427  LAST  1027 
REF  84  LAST  1022 
REF  428  LAST  1027 
REF  85  LAST  1027 


7161  0 0006  I 

7162  22  137  1 

7163  0 7112  1 

7164  52  16C  I 

7165  52  155  1 

7166  52  131  0 

7167  3 0156  0 

7170  54  132  0 


OCTSUB 


EXTEND 

OXCH  OCTRET 

TC  OMPSUB 

CXCH  MPAC  +3 

OXCH  MPAC 

CXCh  6UF 

CA  MPAC  +2 

TS  eUF  +2 


SAVf  RETURN® 

DOT  X COMPONENTS® 

POSITION  Y COMPONENT  OF  MPAC  FOR 
MULTIPLICATION  WHILE  SAVING  RESULT  IN 
THREE  WORD  BUFFER,  BUF® 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST  1027 
LAST  1027 
LAST  1027 
LAST  1027 


LAST  1026 


7171 

7172 

7173 

7174 

7175 

7176 

7177 

7200 

7201 

7202 


3 0136 
26  116 

0 7112 
52  156 
20  132 
6 0154 
6 0130 
54  130 

1 7203 
54  121 


0 

0 

1 

1 

0 

1 

0 

I 

0 


CA  OOTINC 

AOS  ADORWD 

TC  OMPSUB 

OXCH  MPAC  +1 

DAS  8UF  +1 

AC  MPAC 

AD  BUF 

TS  BUF 

TCF  +2 

TS  OVFIND 


ADVANCE  AODRWD  TO  Y COMPONENT  OF 
CTHER  ARGUMENT® 

ACCUMULATE  PARTIAL  PRODUCTS® 


IF  OVERFLOW  OCCURS® 


REF  431 
REF  432 
REF  6 
REF  56 
REF  3 
REF  89 
REF  433 
REF  434 
REF  90 
REF  435 
REF  6 


LAST  1027 
LAST  1027 
LAST  1027 
LAST  1027 
LAST  1027 
LAST  1027 
LAST  1027 
LAST  1027 
LAST  1027 
LAST  1C27 
LAST  1027 


7203  52  162  0 

7204  52  155  1 

7205  3 0136  0 

7206  26  116  0 

7207  0 7112  1 

7210  52  132  0 

7211  20  156  1 

7212  6 0154  1 

7213  6 0130  0 

7214  54  154  0 

7215  0 0137  I 


ENCOOT 


CXCH  MPAC  +5 

CXCH  MPAC 

CA  DOTINC 

ADS  ADORWD 

TC  OMPSUB 

OXCH  BUF  +1 

DAS  MPAC  +1 

AD  MPAC 

AO  BUF 

TS  MPAC 

TC  DOTRET 


MULTIPLY  Z COMPONENTS® 


LEAVE  FINAL  ACCUMULATION  IN  MPACg 


REF  2 LAST  1021  7216  0 7022  0 

REF  7 LAST  1027  7217  C 0137  1 


TC  OVERFLOW  ON  OVERFLOW  HERE® 

TC  OCTRET 
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P0796  DOUBLE  PRECISION  POLYNOMIAL  EVALIATCR 


R0797  N N-1 

R0798  THIS  ROUTINE  EVALUATES  AX+A  X + AX+A  LEAVING  THE  OP  RESULT  IN  MPAC  ON  EXlTc 

ROBOn  N N-1  10 

R0801  THE  ROUTINE  HAS  TWC  ENTRIES 


R0802  !•  ENTRY  THRU  POKRSERSo  THE  COEFFICIENTS  MAY  BE  EITHER  IN  FIXED  OR  ERASABLE,  THE  CALL  IS  BY 

R080A  TC  POWRSEKS,  AND  THE  RETURN  IS  TO  LCCITC  POWRSERS)+lo  THE  ENTERING  DATA  MUST  BE  AS  FOLLOWS 


A08C6 

AOBO? 

A06D8 


A SP  LOC-3  ADDRESS  FOR  REFERENCING  COEF  TABLE 

L SP  N-1  N IS  THE  DEGREE  OF  THE  POWER  SERIES 

MPAC  DP  X ARGUMENT 


A08C9 

A0810 

A0611 


LCC-2N  DP  Aid 

LOC  OP  A(N> 


R0812 


ENTRY  THRU  POLYo  THE  CALL  TO  POLY  AND  THE  ENTERING  CATA  MUST  BE  AS  FOLLOWS 


A0814 


MPAC  OP 


ARGUMENT 


AC815 

A0816 

A0817 

A0818 

A0819 


LCC  TC  POLY 

LOC+1  SP  N-1 

LOC+2  DP  A(0I 

LOC+2N+2  OP  AIN)  RETURN  IS  TO  L0C+2N+4 


0820 

0821  REF  1 

0822  REF  17  LAST  1018 

0823  REF  1 

0824  REF  1 


7220  0 0006  1 POWRSERS  EXTEND 

7221  22  141  0 CXCH 

7222  54  117  1 TS 

7223  22  140  1 LXCH 

7224  1 7235  C TCF 


POLYRFT 
PCI  1 SH 
POLYCNT 
POLYCCM 


RETURN  ADDRESS 
POWER  SERIES  ADDRESS 
N-1  TO  COUNTER 
SKIP  SET  UP  BY  POLY 


0825  REF  268  LAST  1026 

0826 

0827  REF  2 LAST  1028 

0828 

0829  REF  269  LAST  1028 

0830  REF  18  LAST  1028 

0831  REF  19  LAST  1022 

0832  REF  2 LAST  1028 


7225  50  0C2  0 

7226  3 0000  1 

7227  54  14C  0 

7230  6 0000  1 

7231  6 QC02  0 

7232  54  117  1 

7233  6 4756  1 

7234  54  141  1 


POLY 


INDEX  0 

CAF  0 

TS  POLYCNT 

DOUBLE 
AO  Q 

TS  POLISH 

AC  FIVE 

TS  POLYRFT 


N-1  TO  COUNTER 


LIAIN) )-3  TC  PCLISF 
STORE  RETURN  ADDRESS 


0833  REF  1 

0834  REF  57  LAST  1027 


7235  3 6276  1 POLYCOM  CAF 

7236  54  116  0 TS 


L VBUF 
ADCPWO 


INCOMING  X WILL  BE  MOVED  TO  VBUF,  SO 
SET  ADORWD  SO  DMPSL8  WILL  MPY  BY  VBUF^ 


0835 

0836  REF  19  LAST  1028 


C 0CC6 
5 0117 


1 

0 


E XTENO 

INDEX  POLISH 


0837 


7241  3 0004  0 


CCA  3 


gap:  assemble  REVISION  131  CF  AGC  PFCGFAM  LUMINARY  0Y  NASA  ZOZlllZ-Ogi 

L INTERPRETER 


0838  REF  A36  LAST  1027 

0839  PFF  35  LAST  lOOA 

0840  REF  1 


.7242  52  155  1 

7243  52  123  0 

7244  1 7250  0 


DXCH  MPAC 
OXCH  VDUF 
TCF  P0LY2 


0841 

0842 

0843 


REF  3 LAST  1028 
REF  65  LAST  1027 
REF  20  LAST  1028 


7245  ‘54  140  0 PCLYLOCP  TS  POLYCNT 

7246  4 4752  1 CS  TWC 

7247  26  117  1 ADS  POLISH 


0644  REF  4 LAST  1027 

0845 

0846  REF  21  LAST  1029 

0847 

0848  REF  437  LAST  1029 


7250 

7251 

7252 

7253 

7254 


7112  1 
0006  1 
0117  0 
0(C2  0 
0 155  1 


TC  OMPSUe 

EXTEND 

INDEX  POLISH 

OCA  I 

OAS  MPAC 


0849  REF  4 

0850  REF  I 

0851  REF  3 


LAST  1029 
LAST  1028 


7255  10  140  0 

7256  1 7245  1 

7257  0 0141  0 


CCS  PCLYCNT 
TCF  PCLYLCC 
TC  POLYRET 
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LOAD  A(N»  INTO  MPAC, 

SAVING  X IN  VBUF 

SAVE  DECREMENTED  LCCP  COUNTER 
REGRESS  COEFFICIENT  PCINTFR 
MULTIPLY  BY  X 

ADC  IN  NEXT  COEFF  ICIENT 

USERS  RESPCNSieiLITY  TC  ASSURE  NO  OVFLOH 

RETURN  CALLER 
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L INTERPRETER 


USER'S  PAGE  NCo  35  E3  S3 


P0e52 


MISCELLANEOUS  MULTI-PRECISION  ROUTINES 


REQUIRED  IN  FIXED-FIXED  PUT  NOT  USED  BY  THE  INTERPRETER* 


085398  REF  189  LAST  1026 
085399  REF  ^38  LAST  1029 


7260  3 A755  1 OPAGREE  CAF 

7261  5A  156  1 TS 


ZERC 
MPAC  +2 


COUELE  PRECISION  ENTRY  - 
ZERC  LCW-CROER  WCRC 


0854  REF  270  LAST  1028 

0855  REF  3 LAST  880 

0856  REF  1 

0857  REF  1 


7262  22  002  0 

7263  0 6726  1 

7264  1 7270  1 

7265  1 7310  0 


TPAGREE 


LXCH 

TC 

TCF 

TCF 


0 

BRANCH 
ARG  + 
ARGZERO 


FORCE  SIGN  AGREEMENT  AMONG  THE  TRIPLE 
PRECISION  CONTENTS  OF  MPAC*  RETURNING 
UITH  SIGNUM  OF  THE  INPUT  IN  A* 


0858  REF  25  LAST  915 

0859 


7266  4 4733  0 

7267  1 7271  0 


CS  POSMAX 

TCF  +2 


IF  NEGATIVE* 


0860 

0861 

0862 

0863 

0864 

0865 

0866 

0867 

0868 

0869 

0870 

0871 

0872 

0873 

0874 

0875 


REF  26  LAST  1030 
REF  271  LAST  1030 


REF  331 
REF  439 
REF  440 
REF  190 
REF  272 
REF  441 
REF  442- 
REF  191 
REF  273 
REF  443 
REF  444 
REF  445 
REF  188 


LAST  1022 
LAST  1030 
LAST  1030 
LAST  1030 
LAST  1030 
LAST  1030 
LAST  1030 
LAST  1030 
LAST  1030 
LAST  1030 
LAST  1030 
LAST  1030 
LAST  1026 


7270 

7271 

7272 

7273 

7274 

7275 

7276 

7277 

7300 

7301 

7302 

7303 

7304 

7305 

7306 

7307 


0 0006  1 
24  CCO  1 
6 0156  0 
54  156  1 
3 4755  1 
6 0002  0 
6 C155  C 
54  155  1 
3 4755  1 
6 0CO2  0 
6 0154  1 
54  154  0 
54  155  1 
0 0001  0 


ARG+  CAF  pnSMAX 

TS  0 

EXTEND 
AUG  A 

AD  MPAC  +2 

TS  MPAC  +2 

CAF  ZERO 

AD  0 

AO  MPAC  +1 

TS  MPAC  +1 

CAF  ZERO 

AO  0 

AO  MPAC 

ARGZEROZ  TS  MPAC 

TS  MPAC  +1 

TC  L 


FORMS 


Q STILL  HAS  PnSMAX  OR  NFGMAX  IN  IT* 
ALWAYS  SKIPPING  UNLESS  ARGZERO* 
RETURN  VIA  L* 


0876  REF  446  LAST  1030 

0877  REF  1 


7310  54  156  1 ARGZERO  TS 

7311  1 7305  1 TCF 


MPAC  +2 
ARGZER02 


SET  ALL  THREE  MPAC  REGISTERS  TO  ZERO* 


RC878 


SHORTMP  MULTIPLIES  TFE  TF  CCNTENTS  OF  MPAC  BY  THE  SINGLE  PRECISION  NUMBER  ARRIVING  IN  A* 


0880  REF  13 

0881 

0882  REF  447 

0803  REF  448 

0884  REF  192 

0885  REF  449 

0886  REF  1 


LAST  1025 

LAST  1030 
LAST  1030 
LAST  1030 
LAST  1030 


7313 

7314 

7315 

7316 

7317 
7320 


7 0156  1 
54  156  1 
3 4755  1 
56  155  0 
1 7131  1 


SHORTMP 


ShCRTMP2 


TS  MPTEMP 

EXTEND 

MP  MPAC  +2 

TS  MPAC  +2 

CAF  ZERO 

XCH  MPAC  +1 

TCF  DMPSUB2 


SO  SUBSEQUENT  DAS  WILL  WORK* 
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P0887  CMPNSUe  MULTIPLIES  THE  OP  FRACTION  ARRIVING  IN  MPAC  EY  THE  SP 

ROeeS  INTEGER  ARRIVING  IN  A®  THE  OP  PRODUCT  DEPARTS  BOTH  IN  MPAC  AND  IN 

R0889  A ANO  Lo  NOTE  THAT  DMPNSIB  NCRHALLY  INCREASES  THE  MAGNITUDE  OF  THE 

R0890  CONTENTS  CF  MPACo  THE  CUSTCMER  MUST  INSURE  THAT  6(AI  X B I MPAC t M PAC+ 1 ) 

R0891  AND  BtA)  X 8(MPAC)  ARE  LESS-THAN  1 IN  MAGNITUDEt  WHERE  B,  AS  IS  OBVIOUS* 

R0892  INDICATES  THE  ARRIVING  CONTENTSo 


0893  REF  1 

089A 

0895  REF  450 

0896  REF  451 

0897 

0898  REF  2 

0899  REF  189 

0900  REF  452 

0901 

0902  REF  453 

0903  REF  274 


LAST  1030 
LAST  103] 

LAST  1031 
LAST  1030 
LAST  1031 

LAST  1031 
LAST  1030 


7321  54  135  1 DMPNSU0  TS  DMPNTEMP 


7322  C 0006  1 

7323  7 0155  1 

7324  52  155  1 

7325  C 0006  1 

7326  7 0135  1 

7327  3 0001  0 

7330  26  154  0 

7331  0 0006  1 

7332  3 0155  0 

7333  0 0002  0 


EXTEND 

MP  MPAC  +1 

DXCH  MPAC 

EXTEND 

HP  DMPNTEMP 

CA  L 

ADS  MPAC 

EXTEND 

DCA  MPAC 

TC  Q 


LOW  PRODUCT  TO  MPAC,  HIGH  FACTOR  TO  A 


COMPLETING  THE  PRODUCT  IN  MPAC 
BRINGING  THF  PRODUCT  INTO  A ANO  L 


gap:  assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091  17:53  DECo  19*1969  SKIPPER  elf]  PAGE  1032 

L INTERPRETER  USER’S  PAGE  NCe  37  63  S3 


P090A  MISCELLANEOUS  VECTOR  OPEKATICNS*  INCLUDED  HERE  ARE  THE  FOLLOHIN'G: 


R0905 

R0906 

R0907 

R0908 

R0909 

R0910 

R0911 


lo  DOT 
2e  VXV 
3e  VXSC 
Ae  V/SC 
5o  VPROJ 
6o  VXM 
7e  MXV 


CP  VECTOR 
OP  VECTOR 
OP  VECTOR 
DP  VECTOR 
DP  VECTOR 
CP  VECTOR 
OP  VECTOR 


COT  PROOUCTo 
CROSS  PRODUCT* 

TIMES  SCALAR, 

CIVICEC  BY  SCALAR* 
PROJECTICNe  ( (MPACeX)MPAr 
POST-MULTIPLIED  BY  MATRIX* 
PRE-MULTI PLI £0  BY  MATRIX* 


)« 


0912  REF  1 

0913  REF  193  LAST  1030 

0914  REF  3 LAST  1013 


7334  C 7-157  0 DOT  TC  PREDGT  DO  THE  DCT  PRODUCT  ANC  EXIT,  CHANGING 

7335  3 4755  1 CMCCE  CAF  ZERO  THE  MODE  TO  DP  SCALAR* 

7336  1 6C63  0 TCF  NEV.MCDE 


0915  REF  66 

0916  REF  6 

0917  REF  1 


LAST  1029 
LAST  98 


7337  3 4752  0 MXV  CAF  TWO 

7340  54  140  0 TS  MATING 

7341  1 7345  0 TCF  VXM/MXV 


SET  UP  MATINC  AND  CCTINC  FCR  ROW 
VECTORS* 

GC  TC  CCMMCN  PCRTICN, 


0918  REF  6 LAST  47  1 

0919  REF  7 LAST  1032 

0920  REF  16  LAST  882 


7342  4 4363  1 VXM  CS  TEN 

7343  54  140  0 TS  MATING 

7344  3 6245  1 CAF  SI  X 


SET  MATINC  AND  DOTING  TO  REFER  TO  MATRIX 
AS  THREE  COLUMN  VECTORS* 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L INTERPRETER 


17: 53  OEC«  19,1969  SKIPPER 
USER'S  PAGE  K'Oo  38 


0 101 


PAGE  1033 
E3  S3 


P0921 


CC^^'C^  PCRTICN  OF  MXV  ANC  VXM« 


0922  REF 
R0923 


7 LAST  1027 
ITRACE  (2) 


73A5  5A  136  1 VXM/MXV 
REFERS  TP  "VXM/MXV", 


TS 


0924  RFF 


LAST  606  7346  0 7535  0 


TC 


DOT  INC 
MPACVBUF 


SAVE  VECTOR  IN  MPAC  FCP  FURTHER  USEo 


0925  REF  1 

0926 

0927  REF  36 

0928  REF  454 

0929  REF  13 

0930 

0931  REF  37 

0932  REF  455 

0933 

0934  REF  38 

0935  REF  456 

0936  RFF  8 

0937  REF  58 


LAST  1029 
LAST  1031 
LAST  993 

LAST  1033 
LAST  1033 

LAST  1033 
LAST  1033 
LAST  1032 
LAST  1028 


7347  0 7161  0 

7350  C 0006  1 

7351  3 0123  1 

7352  52  155  1 

7353  52  134  0 

7354  C 0006  1 

7355  2 0125  1 

7356  52  160  1 

7357  C 0006  1 

7360  3 0127  0 

7361  52  162  0 

7362  2 0140  I 

7363  26  116  0 


TC 

EXTEND 

DCA 

OXCH 

OXCH 

EXTEND 

DCA 

DXCH 

EXTEND 

OCA 

DXCH 

CA 

ADS 


OOTSUB 

VBUF 

MPAC 

BUF2 

VBUF  +2 
MPAC  +3 

VBLF  +4 
MPAC  +5 
MATING 
AOOPWD 


GO  COT  TO  GET  X COMPONENT  OF  ANSWER* 

MOVF  MPAC  VECTOP  BACK  INTO  MPAC,  SAVING 
NEW  X COMPONENT  IN  BUF2* 


INITIALIZE  ACDRWD  FOR  NEXT  DOT  PRODUCT* 
FORMS  BASE  ADDRESS  OF  NFXT  COLUMNtROW)* 


0938 

0939 

0940 

0941 

0942 

0943 

0944 

0945 

0946 


REF  2 
REF  39 
REF  457 
REF  40 
REF  458 
REF  41 
REF  459 
REF  9 
REF  59 


LAST  1033 
LAST  1033 
LAST  1033 
LAST  1033 
LAST  1033 
LAST  1033 
LAST  1033 
LAST  1033 
LAST  1033 


7364  0 7161  0 

7365  52  123  0 

7366  52  155  1 

7367  52  125  0 

7370  52  160  1 

7371  52  127  1 

7272  52  162  0 

7373  3 0140  1 

7374  26  116  0 


TC  OOTSUB 

DXCH  VBUF 

OXCH  MPAC 

DXCH  VBUF  +2 

OXCH  MPAC  +3 

DXCH  VBUF  +4 

DXCH  MPAC  +5 

CA  MATING 

ACS  ADCPWC 


MOVE  GIVEN  VECTOR  BACK  TO  MPAC,  SAVING  Y 
COMPONENT  OF  ANSWER  IN  VBUF  +2o 


FORM  ADDRESS  OF  LAST  COLUMN  OR  ROWo 


0947 

0948 

0949 

0950 

0951 

0952 

0953 


REF  3 
REF  14 
REF  460 
REF  461 
REF  42 
REF  462 
REF  13 


LAST  1033 
LAST  1033 
LAST  1033 
LAST  1033 
LAST  1033 
LAST  1033 
LAST  1024 


7375  0 7161  0 

7376  52  134  0 

7377  52  155  I 

7400  52  162  0 

7401  52  125  0 

7402  52  16C  1 

7403  1 6064  1 


TC  DOTSUB 

DXCH  BUF2 

OXCH  MPAC 

DXCH  MPAC  +5 

DXCh  VBUF  +2 

DXCH  MPAC  +3 

TCF  DANZIG 


ANSWER  NOW  COMPLETE*  PUT  COMPONENTS  INTO 
PROPER  MPAC  REGISTERS* 


GAP 


ASSEMBLE  REVISION  131  Lf  AGC  PKCGRAW  LUMINARY  BY  NASA  202H12-0<31 


L INTERPRETER 

P095A  VKSC  - VECTOR  TIMES  SCALAR* 


0955  REF  27  LAST  1026 

0956  REF  1 

0957  REF  2 LAST  103A 


7404 

7405 

7406 


CCS 
TCF 
TC  F 


MODE 

ovxsc 

DVXSC 


0958  REF  5 LAST  1029 

095,9  REF  1 

U960  REF  463  LAST  1033 

0961  REF  464  LAST  1034 

0962  REF  465  LAST  1034 


7407 

7410 

7411 

7412 

7413 


0 7112 
0 7143 
52  160 
52  155 
52  160 


1 

0 

1 

1 

1 


VVXSC 


TC  DMPSUB 

TC  VRQUNO 

DXCH  MPAC  +3 
DXCH  MPAC 
DXCH  MPAC  +3 


0963  REF  6 LAST  1034 

0964  REF  2 LAST  1034 

0965  REF  466  LAST  1034 

0966  REF  467  LAST  1034 

0967  REF  468  LAST  1034 


7414  0 7112  1 

7415  0 7143  0 

7416  52  162  0 

741?  52  155  1 

7420  52  162  0 


TC  OMPSUE 

TC  VROUND 

CXCH  MPAC  +5 
DXCH  MPAC 
DXCH  MPAC  +5 


0968  REF  7 

0969  REF  3 

0970  REF  469 

0971  REF  470 

0972  REF  471 

0973  REF  472 

0974  REF  14 


LAST  1034 
LAST  1034 
LAST  1034 
LAST  1034 
LAST  1034 
LAST  1034 
LAST  1033 


7421  C 7112  1 

7422  0 7143  0 

7423  52  155  1 

7424  52  162  0 

7425  52  160  1 

7426  52  155  1 

7427  1 6064  1 


TC  DMPSUB 

TC  VRCUND 

VROTATEX  DXCH  MPAC 

DXCH  MPAC  +5 

DXCH  MPAC  +3 

DXCh  MPAC 

TCF  DANZIG 


17:53  DEC.  19,1969  SKIPPER  old  PAGE  1034 


USER'S  PAGE  NOc  39  E3  S3 


TEST  PRESENT  MODE* 

SEPARATE  ROUTINE  WFEN  SCALAR  IS  IN  MPAC* 


COMPUTE  X COMPONENT 
AND  ROUND  IT* 

PUT  Y COMPONENT  INTO  MPAC  SAVING  MPAC  IN 
MPAC  +3o 


00  SAME  FOR  Y AND  Z COMPONENTSc 


EXIT  LSED  TO  RESTORE  MPAC  AFTER  THIS 
TYPE  OF  ROTATIONo  CALLED  BY  VECTOR  SHIFT 
BIGHT,  V/SC,  ETC* 


gap: 


ASSEP6LE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C91 


L INTERPRETER 

P0975  CP  VECTOR  PRCJECTICN  PCUTINEo 


0976  REF  2 LAST  1032  7430  0 7157  0 VPROJ  TC  PREDOT 

0977  REF  21  LAST  915.  7431  A 4751  1 CS  FOUR 

0978  REF  60  LAST  1033  7A32  26  116  0 ADS  ADDPUO 


R0979 


VXSC  l^hEN  SCALAR  ARRIVES  IN  MPAC  AND  VECTOR  IS  AT  X, 


0980 

0981  REF  473 

0982  REF  A74 

0983  REF  8 

0984  PEF  4 


LAST  1034 
LAST  1035 
LAST  105A 
LAST  1034 


7433 

7434 

7435 

7436 

7437 


0 0CC6  1 
3 0155  0 
52  160  1 
C 7112  1 
0 7143  0 


ovxsc 


EXTEND 
DCA  NPAC 

OXCH  MPAC  +3 

TC  OMPSUB 

TC  VROUND 


0905  REF  67  LAST  1032 

0986  REF  61  LAST  1035 

0987 

0988  REF  475  LAST  1035 

0989  REF  476  LAST  1035 

0990  REF  477  LAST  1035 

0991  REF  9 LAST  1035 

0992  REF  5 LAST  1035 


7440  3 4752  0 

7441  26  116  0 

7442  0 0006  1 

7443  3 0160  0 

7444  52  155  1 

7445  52  162  0 

7446  C 7112  1 

7447  0 7143  0 


CAF  Two 

ADS  AODRRO 

EXTEND 

DCA  MPAC  +3 

OXCH  MPAC 

DXCH  MPAC  +5 

TC  OMPSUB 

TC  VROUND 


0993  REF  68  LAST  1035 

0994  REF  62  LAST  1035 

0995  REF  478  LAST  1035 

0996  REF  479  LAST  1035 

0997  REF  480  LAST  1035 

0998  REF  10  LAST  1035 

0999  REF  6 LAST  1035 


7450  3 4752  C 

7451  26  116  C 

7452  52  160  1 

7453  52  155  1 

7454  52  160  I 

7455  C 7112  1 

7456  C 7143  0 


CAF  TWC 

AOS  AOORMD 

DXCh  MPAC  +3 

OXCH  MPAC 

DXCH  MPAC  +3 

TC  DMPSUB 

TC  VRCUND 


1000  REF  481  LAST  1035 

1001  REF  482  LAST  1035 

1002  REF  483  LAST  1035 


7457 

7460 

7461 


CXCH  MPAC 
DXCH  MPAC  +5 
DXCH  MPAC 


REF 


7462  1 6524  0 


TCP  VMCDE 


1003 


17:53  DECo  19,1969 


SKIPPER  elOl  PAGE  1035 


USER'S  PAGF  NOo  4C  E3  S3 


(MPACoXIMPAC  IS  CPFPUTEr  AND  LEFT  IN 
MPACo  00  DOT  AND  FALL  INTO  OVXSC, 


SAVE  SCALAR  IN  MPAC  +3  AND  GET  X 
COMPONENT  CF  ANSWER* 


ADVANCE  AOORWD  TO  Y COMPONENT  OF  Xo 

PUT  SCALAR  BACK  INTO  MPAC  AND  SAVE 
X RESULT  IN  MPAC  +5* 


TO  Z COMPONENT* 

BRING  SCALAR  BACK,  PUTTING  Y RESULT  IN 
THE  PROPER  PLACE* 


PUT  Z COMPONENT  IN  PROFFR  PLACE.  ALSO 
POSITIONING  X* 


MODE  HAS  CHANGED  TO  VECTOR 


GAP  : 

L 

PIOOA 

R1006 

R1008 

1309 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

101b 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

103  5 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 
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SKIPPER  - 101  PAGE  1 036 


INTERPRETER 


USER'S  PAGE  NC«  41  E3  S3 


THE  VECTOR  CROSS  PRCCUCT  ROUTINE  CALCULATES  (X  M - 

3 2 

MFAC  ANC  X THE  VECTOR  AT  THE  GIVEN  AOORESSo 


X M 
2 3 


X M -X  M ,X  M -X  M I WHERE  M IS  THE  VECTOR  IN 
13  3 1 2 1 12 


REF  484  LAST  1035 
REF  485  LAST  1036 
REF  43  LAST  1033 
REF  11  LAST  1035 


7463 

7464 

7465 

7466 

7467 


C 0006  1 
3 0162  1 
52  155  I 
52  123  0 
0 7112  1 


vxv 


EXTEND 

OCA  MPAC  +5  FORM  UP  M3X1,  LEAVING  Ml  IN  VBUFo 

DXCH  MPAC 
DXCH  VBUF 

TC  DMPSUB  BY  Xlo 


REF  486  LAST  1036 
REF  487  LAST  1036 
REF  44  LAST  1036 
REF  12  LAST  1036 


7470  n 0006  1 

7471  4 0160  1 

7472  52  155  1 

7473  52  125  0 

7474  C 7112  1 


EXTEND 

CCS  MPAC  +3 

DXCH  MPAC 

DXCH  VBUF  +2 

TC  DMPSUB 


CALCULATE  -X1M2,  SAVING  X1M3  IN  VBUF  +2o 


REF  488  LAST  1036 
REF  489  LAST  1036 
REF  490  LAST  1036 
REF  13  LAST  1036 


7475  3 4752  0 CAF  TWO 

7476  26  116  0 ACS  ACCPWC 

7477  C 0006  1 EXTEND 

7500  4 0162  0 DCS  MPAC  +5 

7501  52  155  1 DXCH  MPAC 

7502  52  162  0 OXCH  MPAC  +5 

75C3  C 7112  I TC  DMPSUB 


ADVANCE  AOORWO  TO  X2o 

PREPARE  TO  GET  -X2M3,  SAVING  -X1M2  IN 
MPAC  +5o 


REF  45  LAST  1036 
REF  491  LAST  1036 
REF  46  LAST  1036 
REF  14  LAST  1036 


7504  C 0006  1 

7505  3 0123  1 

7506  52  155  1 

7507  52  127  1 

7510  0 7112  1 


EXTEND 
DCA  VBUF 

DXCH  MPAC 
DXCH  VBUF  +4 
TC  DMPSUB 


GET  X2M1  , SAVING  -X2V3  IN  VBUF  +4o 


70 

64 


A 

LAST 


REF  47  LAST  1036 
REF  492  LAST  1036 
REF  493  LAST  1036 


7512 

7513 

7514 

7515 

7516 


3 4752  0 
26  116  0 
0 0006  1 

4 0123  0 
52  155  1 
20  162  0 


CAF 

AOS 

EXTEND 

DCS 

DXCH 

DAS 


TWC 

ADORWO 

VBUF 
MPAC 
MPAC  +5 


ADVANCE  ACDRWD  TO  X3o 

GET  -X3M1,  ADDING  X2MI  TO  MPAC  +5  TO 
COMPLETE  THE  Z COMPONENT  OF  THF  ANSWER, 


REF  3 LAST  1022 


7517  0 0006  1 

7520  1 7522  1 

7521  C 7C14  0 


EXTEND 

BZF  +2 

TC  CVERFLWZ 


REF  15  LAST  1036 
REF  48  LAST  1036 
REF  494  LAST  1036 
REF  495  LAST  1036 
REF  496  LAST  1036 


7522  0 7112  1 

7523  52  125  0 

7524  52  160  J 

7525  52  155  1 

7526  20  160  1 


TC  DMPSUB 

CXCh  VBUF  +2 

DXCH  MPAC  +3 

DXCH  MPAC 

CAS  MPAC  +3 


MOVF  XIM3  TO  MPAC  +3  SETTING  UP  FOR  X3M2 
ANC  ADO  -X3MJ  TC  MPAC  +3  TO  COMPLETE  THE 
Y COMPONENT  OF  THF  RESULT, 


7527  C 0006  1 EXTEND 

7530  1 7532  0 BZF  +2 


GAP : 

L 

10A7 

1048 

1049 

1050 

R1051 

1053 

1054 

1055 

1056 

1057 

1058 

105^ 

I06n 

1061 

1062 

R1063 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1062 

1083 

1084 

1085 

1086 
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INTERPRETER 


USER'S  PAGE  NPe  42  E3  S3 


LAST  1022 


7531  0 7017  C 


LAST  1036 
LAST  1036 
LAST  1023 


7532 

7533 
7 5’34 


0 7112  1 
52  127  1 

1 7003  1 


DMPSUB 

VfiUF 

ENDVXV 


GO  ADO  -X2M3  TO  X?h'2  TO  COMPLETE  THE 
COMPONENT  (TAIL  END  CF  OAOIc 


THE  MPACVBUF  SUBROUTINE  SAVES  THE  VECTOR  IN  MPAC  IN  V BU F WITHOUT  CLOBBERING  MPACo 


REF  497  LAST  1036 
REF  50  LAST  1037 

REF  498  LAST  1037 
REF  51  LAST  1037 

REF  499  LAST  1037 
REF  52  LAST  1037 
REF  275  LAST  1031 


7535  0 0006  1 

7536  3 0155  0 

7537  52  123  C 

7540  C 0006  1 

7541  3 0160  0 

7542  52  125  0 

7543  0 0006  1 

7544  3 0162  I 

7545  52  127  1 

7546  0 0002  0 


MPACVBUF  E XTENO 
DCA 
OXCH 
EXTEND 
DCA 
DXCH 
EXTEND 
CCA 
DXCH 
TC 


MPAC 

V8UF 

MPAC 

VBUF 

MPAC 

VBUF 

0 


+ 3 
+ 2 

+ 5 
+ 4 


CALLED  BY  MXV,  VXM,  ANC  UNIT* 


RETURN  TO  CALLERc 


DOUBLE  PRECISION  SIGN  AGREE  ROUTlNEo  ARRIVE  WITH  INPUT  IN  A+L«  OUTPUT  IS  IN  A + Lo 


REF  332  LAST  1030 
REF  1 

REF  276  LAST  1037 
REF  1 

REF  277  LAST  1037 


7547  10  000  0 ALSIGNAG  CCS 


7550  1 7554  0 TCF 

7551  C 0002  0 TC 

7552  1 7564  0 TCF 

7553  C CCC2  0 TC 


A 

UPPOS 

0 

UPNEG 

0 


TEST  UPPER  PARTo 
IT  IS  POSITIVE 
ZERC 

NEGATIVE 

ZERO 


REF  190  LAST  1031 
REF  12  LAST  917 
REF  13  LAST  1037 
REF  333  LAST  1037 

REF  191  LAST  1037 
REF  192  LAST  1037 
REF  278  LAST  1037 


7554  56  001  0 

7555  6 4736  1 

7556  6 4736  1 

7557  54  000  0 

7560  1 7562  0 

7561  24  001  0 

7562  56  001  0 

7563  C 0C02  0 


UPPOS  XCH  L 

AO  HALF 

AD  HALF 

TS  A 

TCF  +2 

I NCR  L 

XCH  L 

TC  0 


SAVE  OECREMENTEO  UPPER  PART® 


SKIPS  ON  OVERFLOW 

RESTCRE  UPPER  TC  RCIGINAL  VALUE 
SWAP  A + L BACK© 


REF  193 
REF  6 
REF  7 
REF  334 

REF  194 
REF  195 

REF  279 


LAST  1037 
LAST  917 
LAST  1008 
LAST  1037 

LAST  1037 
LAST  1037 

LAST  1037 


7564 

7565 

7566 

7567 

7570 

7571 

7572  56  OCl  0 

7573  4 OCOC  0 

7574  0 0002  0 


XCH  L 

AD  NEGMAX 

AO  NEGONE 

TS  A 

TCF  +2 

INCR  L 

XCH  L 

COM 

TC  Q 


56  001  0 
6 4735  1 
6 7752  C 
54  000  0 
1 7572  1 
24  001  0 


SAVE  COMPLEMENTED  ♦ DECREMENTED  UPPER  PT 

DONT  INCREMENT  IF  NO  OVERFLPWo 

MAKE  NEGATIVE  AGAIN* 


SKIPPER  ->101  PAGE  1036 


GAP : 

L 

PlOe? 
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INTERPRETER 

INTERPRETIVE  INSTRUCTIONS  WHOSE  EXECUTION  CONSISTS  OF  PRINCIPALLY 


DECo  19,1969 

USER  'S  PAGE  NOft  A3 
CALLING  SUBROUTINES* 


E3  S3 


1089  REF  17  LAST  1037 

1090  REF  15  LAST  103A 


7575  0 7112  1 CMPl 

7576  I 606A  1 


TC  PMPSUB 

TCF  DANZIG 


DMP  INSTRUCTION* 


1091  REF  18  LAST  1136 

1092  REF  1 

1093  REF  16  LAST  1038 


7577  0 7112  1 DMPR 

7600  0 71A2  1 

7601  1 60eA  1 


TC  DMPSUB 

TC  ROUNCSUB  +1 

TCF  DANZIG 


(C(AI  = +0), 


1094 

1095  PEF  65  LAST  1036 

1096 

1097  REF  2 LAST  1005 


7602 

7603 

7604 

7605 


0 0006  1 CCV 
5 0116  1 

3 0001  0 

1 7612  1 


EXTEND 

INDEX  ADOPWO 

OCA  0 

TCF  BDDV  +4 


MOVE  DIVIDEND  INTO  BUFo 


1098 

1099  REF  66 

1100 

1101  REF  500 

1102  REF  91 

1103  REF  194 

1104  REF  21 

1105  REF  2 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


U38 

1037 

1027 

1032 

1018 

919 


7606  C 00C6  1 

7607  5 0116  1 

7610  3 0001  0 

7611  52  155  1 

7612  52  131  P 

7613  3 4755  1 

7614  54  004  1 

7615  1 2353  1 


BDDV 


+ 4 


EXTEND  MOVE  DIVISOR  INTO  MPAC  SAVING  MPAC,  THE 

INDEX  ADOPWO  DIVIDEND,  IN  BUFv 

CCA  0 

DXCH  MPAC 

rXCH  eUF 

CAF  ZERO  DIVIDE  ROUTINES  IN  BANK  0* 

TS  F6ANK 

TCF  0DV/6DDV 


U06 

1107 

1106 


REF  67  LAST  1038  7616  3 0116  1 

REF  22  LAST  1015  7617  54  166  1 

REF  1 7620  1 6066  0 


SETPO 


CA 

TS 

TCF 


AODRWO 

PUSHLOC 

NOIBNKSW 


MUST  SET  TO  WORK  AREA,  PR  6BANK  TROUBLE* 
NO  F8ANK  SWITCH  REQUIREDc 


1109  REF  195  LAST  1038 

1110  REF  22  LAST  1038 

1111  PEF  1 


7621  3 4755  1 TSLC 

7622  54  004  1 

7623  I 2172  C 


CAF  ZERO 

TS  FBANK 

TCF  TSLC2 


SHIFTING  ROUTINES  LOCATED  IN  BANK  00* 


1112  REF 

1113  REF 

1114  REF 


7 LAST  997 
23  LAST  1038 


7624  3 6077  1 GSHIFT  CAF  L0W7 

7625  54  004  1 TS  FBANK 

7626  1 2214  0 TCF  GENSHIFT 


USED  AS  MASK  AT  GENSHIFT*  THIS  PROCESSES 
ANY  SHIFT  INSTRUCTION  (EXCEPT  TSLC)  WITH 
AN  ADDRESS  (ROUTINES  IK  BANK  0)* 


gap; 

L 

P1115 

R1117 

R1119 

1120 

1121 

1122 

1123 

112^ 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

114J 

1142 

1143 

1144 
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I NTERPKETER 


USER'S  PAGE  NOo  4i  E3  S3 


THE  FOLLOWING  IS  THE  PROLOGUE  TO  V/SC,  IF  THE  PRESE^T  MCCE  IS  VECTOR,  IT  SAVES  TFE  SCALAR  AT  X IN  0UF  ' 
AND  CALLS  THE  V/SC  ROUTINE  IN  BANK  0»  IF  THE  PRESENT  MODE  IS  SCALAR,  IT  MOVES  THE  VECTOR  AT  X INTO  MPAC,  SAVING 
THE  SCALAR  IN  MPAC  IN  BUF  BEFCRE  CALLING  TEE  V/SC  ROUTINE  IN  BANK  0, 


REF  28  LAST  1034 
REF  1 

REF  2 LAST  1039 


7627  10  163  1 V/SC 

7630  1 7641  1 

7631  1 7641  1 


CCS  MODE 

TCF  DV/SC 
TCF  DV/SC 


MOVE  VECTOR  INTO  MPACp 


REF  68  LAST  1038 

REF  92  LAST  1038 
REF  196  LAST  1038 
REF  24  LAST  1038 
REF  1 


7632  0 0006  1 

7633  5 0116  1 

7634  3 CCCJ.  0 

7635  52  131  0 

7636  3 4755  1 

7637  54  0C4  1 

7640  1 2654  0 


VV/SC 


V/SCl 


EXTEND 

INDEX  AODRWD 

DCA  0 

DXCH  BUF 

CAF  ZERO 

TS  FBANK 

TCF  V/SC2 


IN  eOTH  CASES,  VECTCR  IS  NOW  IN  MPAC  AND 
SCALAR  IN  BUFo 


REF  69  LAST  1039 
REF  501  LAST  1038 
REF  70  LAST  1039 
REF  502  LAST  1039 


7641  C CCC6  1 

7642  5 0116  1 

7643  3 0003  1 

7644  52  16C  1 

7645  0 0006  1 

7646  5 0116  1 

7647  3 0005  1 

7650  52  162  0 


DV/SC 


EXTEND 

INDEX  ADORV.D 
OCA  2 

DXCH  MPAC  +3 
EXTEND 

INDEX  ADCRWD 
OCA  i 

DXCH  MPAC  +5 


REF  107  LAST  1013  7651  4 4753  C 

REF  29  LAST  1039  7652  54  163  1 


CS  ONE 

TS  MODE 


CHANGE  MODE  TO  VECTOR,, 


REF  71  LAST  1039 

REF  503  LAST  1039 
REF  1 


7653  C 0006  1 

7654  5 0116  1 

7655  3 0001  0 

7656  52  155  1 

7657  1 7635  1 


EXTEND 

INDEX  AODRWO 
OCA  0 

DXCH  MPAC 

TCF  V/SCl  FINISH  PROLOGUE  AT  COMMON  SECTION# 


GAP: 


ASSEMHLE  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L INTERPRETER 


P1145 


SIGN  AND  COMPLEMENT  IN  STR  LC  T I ON  So 


1146  REF  72  LAST  1039 

1147 

1148  REF  17  LAST  1038 

1149 

1150  REF  2 LAST  1007 


7660 

7661 

7662 

7663 

7664 


50  116  1 
10  000  0 
1 6064  1 
1 7665  1 
1 7673  0 


SIGN 


INDEX  AODRWD 

CCS  0 

TCF  DANZIG 

TCF  +2 

TCF  COMP 


1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 


REF  73  LAST  1040 

REF  18  LAST  1040 
REF  19  LAST  1040 
REF  3 LAST  1040 
REF  20  LAST  1040 

REF  504  LAST  1039 
REF  505  LAST  1040 


7665  50  116  1 

7666  10  001  1 CCSL 

7667  1 6064  1 

7670  1 6064  1 

7671  1 7673  0 

7672  1 6064  1 

7673  0 0006  1 COMP 

7674  4 0155  1 

7675  52  155  1 


INDEX  AODRMO 

CCS  1 

TCF  DANZIG 

TCF  DANZIG 

TCF  CCMP 

TCF  DANZIG 

EXTEND 
DCS  MPAC 

DXCH  MPAC 


1160 

1161 

1162 


REF  30  LAST  1039 
REF  1 

REF  2 LAST  1040 


7676  10  163  I 

7677  1 7710  1 

7700  1 7710  1 


CCS  MODE 

TCF  DCOMP 

TCF  DCOMP 


1164  REF  506 

1165  REF  507 

1166 

1167  REF  508 

1168  RfcF  509 

1169  REF  21 


LAST  1040 
LAST  1040 

LAST  1040 
LAST  1040 
LAST  1040 


7701 

7702 

7703 
77C4 

7705 

7706 

7707 


0 0006 
4 0160 
52  160 
C 0006 
4 0162 
52  162 
1 6C64 


EXTEND 

DCS 

DXCH 

EXTEND 

DCS 

DXCH 

TCF 


MPAC  +3 
MPAC  +3 

MPAC  +5 
MPAC  +5 
DANZIG 


1170 

1171 

1172 


REF  510  LAST  1040 
REF  511  LAST  1040 
REF  22  .LAST  1040 


7710  4 0156  1 CCCMP 

7711  54  156  1 

7712  1 6064  1 


CS  MPAC  +2 
TS  MPAC  +2 
TCF  DANZIG 


17:53  DEC#  19,1069  SKIPPER  -101  PAGE  1040 


USSR  •$  PAGE  NOo  45  E3  S3 

CALL  COMP  INSTRUCTION  IF  WORD  AT  X IS 
NEGATIVE  NON-ZEROe 

Cn  THE  COMPLEMENTe 

COMPLEMENT  DP  MPAC  IN  EVERY  CASE® 

EITHER  COMPLEMENT  MPAC  +3  OP  THF  REST  OF 
THE  VECTOR  ACCUMULATCRo 


VECTOR  COMPLEMENT, 


gap:  ASSE^'eL£  REVISION  131  OF  AGC  PRCCRAM  LUMINARY  BY  NASA  2021U2-C91 


17:53  OeC.  10tl969 


SKIPPER  .ICl  PAGE  1041 


L INTERPRETER 


USER ' S PAGE  NOo  46 


E3  S3 


P1173 


THE  FOLLOWING  SHORT  EUFT  COOES  REQUIRE  NO  ADDRESS  KCPC: 


R1174 

R1175 

R1176 

R1177 


lo  SRI  TO  SR4  SCALAR  SHIFT  R IGHT« 

2«  SRIR  TO  SR4R  SCALAR  SHIFT  RIGHT  ANC  ROUND* 

3o  SLl  TC  SL4  SCALAR  SHIFT  LEFT, 

4*  SLlk  TO  SL4R  SCALAR  SHIFT  LEFT  AND  ROUND* 


5*  VSRl  TO  VSR8  VECTOR  SHIFT  RIGHT  (ALWAYS  RCUNCS)* 

6.  VSLl  TO  VSL8  VECTOR  SHIFT  LEFT  (NEVER  ROUNDS), 


R1180 


THE  FOLLOWING  COOES  PECUIRE  AN  ADDRESS  WHICH  MAY  EE  INDEXED:* 


R1181 

R1182 

R1183 

R1184 


2o  SRR 
3o  SL 
4*  SLR 


SCALAR  SHIFT  RIGHT. 

SCALAR  SHIFT  RIGHT  AND  ROUND. 
SCALAR  SHIFT  LEFT. 

SCALAR  SHIFT  LEFT  AND  ROUND. 


RU85  5o  VSR 

R1186  6.  VSL 


VECTOR  SHIFT  RIGHT. 
VECTOR  SHIFT  LEFT. 


R1187  * IF  THE  ADDRESS  IS  INDEXED,  ANC  THE  INDEX  MODIFICATION  RESULTS  IN  A NEGATIVE  SHIFT  COUNT,  A SHIFT  OF  THE 

R1189  ABSOLUTE  VALUE  OF  THE  COUNT  IS  DONE  IN  THE  CPPCSITE  DIRECTION. 


1190 


00,2017 


BANK  00 


1192 

1193 

1194 


REF 

REF 

REF 

REF 


LAST  1032 
LAST  1012 
LAST  918 


00,2C17 
00,2020 
CO, 2021 


2 6245  1 
7 0020  1 
54  021  0 


SHORTT 


COUNT* 

CAF 

MASK 

TS 


$$/  INTER 
SIX 
C YP 


SCALAR  SHORT  SHIFTS  COME  HERE.  THE  SHIFT 
COUNT-1  IS  NOW  IN  BITS  2-3  CF  CYR.  THE 
ROUNDING  BIT  IS  IN  BIT!  AT  THIS  POINT. 


1195  REF  26  LAST  1041 

1196  REF  1 


10  020 
1 2101 


1 

1 


SEE  IF  RIGHT  OR  LEFT  SHIFT  DESIPEO. 
SHIFT  LEFT. 


1197 


CO, 2024  00024 


SRCOV  DEC  20 


MPTEMP  SETTING  FOR  SR  BEFORE  OOV. 


1198 

1199 

1200 


REF  12  LAST  1041 
REF  59  LAST  905 
REF  14  LAST  1030 


00,2025  50  021  1 TSSR 

CO, 2026  3 4736  1 

CO, 2027  54  135  1 


INDEX  SR 
CAF  BIT14 

TS  MPTEMP 


GET  SHIFTING  BIT. 


1201  REF  27 

1202  REF  1 

1203  REF  4 

1204  REF  15 

1205 

1206  REF  512 

1207  REF  513 

1208  REF  16 

1209 

1210  REF  514 


LAST  I0:.l 

LAST  1032 
LAST  1041 

LAST  1040 
LAST  1041 
LAST  1041 

LAST  1041 


00,2030  10  020  1 
CO, 2031  0 2050  0 
00,2032  1 6063  0 
00,2033  3 0135  0 
CO, 2034  0 CCC6  1 
00,2035  7 0156  1 
CO, 2036  54  156  1 
CO, 2037  3 C135  0 
00,2040  C 0006  1 
00,2041  7 0154  0 


RIGHTP 

MPACSHR 


CCS  CYR 

TC  MPACSRND 

TCF  NEWMGOE 

CA  MPTEMP 

EXTEND 

MP  MPAC  +2 

TS  MPAC  +2 

CA  MPTEMP 

EXTEND 
MP  MPAC 


SEE  IF  A ROUND  IS  OfSIRFD. 

YFS  - SHIFT  RIGHT  AND  ROUNO« 

SET  MODE  TC  DP  (CIA)  = 0), 

DO  A TRIPLE  PRECISION  SHIFT  RIGHT. 


(EXIT  FROM  SORT  ANO  A8VAL). 

SHIFT  MAJOR  PART  INTO  A,L  ANO  PLACE  IN 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  FPCGPAM  LUMINARY  8Y  NASA  20211X2-091 

L INTERPRETER 


1213 

121A 


121'> 

1216 


REF  196  LAST  1037 
REF  516  LAST  10*2 
REF  23  LAST  lOAO 


00,2042 
CO, 2043 
10  ,2044 
00,2045 
CO, 2046 
00,2047 


C 0006  1 
7 0001  1 
20  156  1 
1 6064  1 


OXCH 

CA 

EXTEND 

MP 

DAS 

TCF 


MPAC 

MPTEMP 


MPAC  +l 
DANZIG 


R1217 


MPAC  SHIFT  RIGHT  ANC  RCUND  SL0RCUT I N ES.> 


1218  REF  517 

1219 

1220  KEF  18 

1221  REF  518 

1222 

1223  REF  19 

1224  REF  519 

1225  REF  197 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


1042 

1042 

1042 

1042 

1042 

1042 


00,2050 
00  ,2051 
CO, 2052 
00,2053 
00,2054 
00,2055 
00,2056 
CO, 2057 


3 0156  0 
0 0006  1 
7 0135  1 
56  155  0 
0 0006  1 
7 0135  1 
56  155  0 
6 0001  0 


MPACSRNO 


CA  MPAC  +2 

EXTEND 

MP  MPTEMP 

XCH  MPAC  +l 
EXTEND 

MP  MPTEMP 

XCF  MPAC  +1 

AD  L 


1226 

1227 

1228 
1229 


REF  520  LAST  1042 
REF  521  LAST  1042 


00,2060  6 0000  1 VSHR2 

00,2061  54  156  1 

CO, 2062  1 2064  0 

00,2063  26  155  1 


DOUBLE 

TS  MPAC  +2 

TCF  +2 

ADS  MPAC 


1230  REF  197 

1231  REF  522 

1232  REF  523 

1233 

1234  REF  20 

1235  REF  524 

1236  REF  280 


LAST  1C39 
LAST  1042 
LAST  1042 

LAST  1042 
LAST  1942 
LAST  1037 


00,2064 
C0,2C65 
CC,2066 
00,2067 
CO, 2070 
00,2  071 
CO, 2072 


56  154  1 
0 0006  1 
7 0135  1 
20  155  I 
C 0002  0 


CAF  ZERO 

TS  MPAC  +2 

XCh  MPAC 

EXTEND 

MP  MPTEMP 

DAS  MPAC 

TC  0 


1237 

1238 

1239 

1240 

1241 

1242 


REF  21  LAST  1042 

REF  525  LAST  1042 
REF  526  LAST  1042 
REF  198  LAST  10*2 
REF  1 


00,2073  3 0135  0 
00,2074  0 0006  1 
C0,2C75  7 C155  1 
00,2076  54  X55  1 
CO, 2077  56  001  0 
00,2100  I 206C  1 


VSHRRNC 


CA  MPTEMP 

EXTEND 

MP  MPAC  +3 

TS  MPAC  +1 

XCF  L 

TCF  VSHR2 
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USER'S  PAGE  NCo  47  E3  S3 

MPAC  , + !<, 

ORIGINAL  CIMPAC  +!)• 

GUARANTEED  NO  OVERFLOWo 


WE  HAVE  TO  DO  ALL  THREE  MULTIPLIES  SINCE 
MPAC  +1  AND  MPAC  +2  MIGHT  HAVE  SIGN 
DISAGREEMENT  WITH  A SHIFT  RIGHT  OF  U 


TRIAL  MINOR  PART* 

(FINISH  VECTOR  COMPONENT  SHIFT  RIGHT 
AND  ROUND® 

GUARANTEED  NO  CVERFLCW® 


SETTING  TO  ZERO  SO  FCLLCWING  DAS  WORKS® 

AGAIN  NO  OVERFLOW® 

ENTRY  TC  SHIFT  RIGHT  ANC  RCUND  MPAC  WHEN 
MPAC  CONTAINS  A VECTOR  COMPONENT^ 

Gn  ADD  ONE  IF  NECESSARY  AND  FINISH® 


gap:  assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  SY  NASA  2021112-r91 
L INTERPRETER 

P1243  ROUTINE  FOR  SHORT  SCALAR  SHIFT  LEFT  (AND  MAYBE  RCUND)* 


1246 

1247  REF 

1248  REF 

1249  REF 

1250  REF 

1251  REF 

1252 

1253  REF 
A1254 

1255  REF 

1256  REF 


527  LAST  1042 

528  LAST  1043 

529  LAST  1043 

530  LAST  1043 

531  LAST  1043 

4 LAST  1027 

23  LAST  1043 
2 LAST  1041 


OOf 21C3 
00  ,2104 
CO, 2105 
00,2106 
00,2107 
CO, 2110 
00,2111 
00,2112 


C 0006 
3 0156 
20  156 
6 0154 
6 0154 
54  154 
1 2113 
54  121 


00,2113  10  135  1 

00,21  14  1 2102  1 


EXTEND 

DCA 

DAS 


AC 
TS 
TC  F 
TS 


MPAC  +1 
MPAC  +1 
MPAC 
MPAC 
MPAC 
♦ 2 

OVFINC 


CCS  MPTEMP 

TCF  TSSL  +1 


1257  REF  28 

1258  REF  2 

1259  REF  24 

1260  REF  25 


LAST  1041  00 
LAST  1038  00 
LAST  1042  00 
LAST  1043  00 


,2115  10  02C 
,2116  0 7141 
,2117  1 6064 
,2120  1 6064 


1 CCS 

1 RCUND  TC 
1 TCF 

1 TCF 


CYR 

ROUNOSUB 
DANZIG 
OANZ  IG 


7:53  DEC,  19,1969  SKIPPER  elOl  PAGE  1043 


USER'S  PAGE  NOe  48  E3  S3 


GET  SHIFT  COUNT  FCR  SRe 


ENTRY  here  from  SL  FCR  SCALARSo 
SHIFTING  LEFT  ONE  PLACE  AT  A TIME  IS 
FASTER  THAN  DOING  THE  WHOLE  SHIFT  WITH 
MULTIPLIES  ASSUMING  THAT  FREQUENCY  OF 
SHIFT  COUNTS  GOES  DOWN  RAPIDLY  AS  A 
FUNCTION  OF  THEIR  MAGNITUDEo 

OVERFLOW,  (LEAVES  OVERFLOW-CORRECTED 
RESULT  ANYWAY  >0 

LOOP  ON  DECREMENTED  SHIFT  CCUNTe 


SEE  IF  RCUND  WANTECo 
YES  - ROUND  AND  EXIT., 

SL  LEAVES  A ZERO  IN  CYR  FOR  NO  ROUND© 
NO  - EXIT  IMMEDIATE 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGPAM  LUMINARY  BY  NASA  2021112-091 

L INTERPRETER 


P1261  VECTOR  SHIFTING  RCLTINESo 


1262 

1263 

1264 

1265 

1266 
1267 


REF  2 
REF  29 
REF  24 
REF  30 
REF  1 


LAST  23* 
LAST  1043 
LAST  1043 
LAST  1044 


00»2121 

00t2122 

CO, 2123 
00,2124 
00,2125 
00,2126 


3 4757  0 
7 0020  I 
54  135  1 
1 C 020  1 
1 2145  1 
00176  1 


SHCRTV 


CCT176 


CAF  L0V<3 

MASK  CYR 

TS  MPTEMP 

CCS  CYR 

TCF  VSSL 

CCT  176 


1268 

1269 

1270 

1271 


REF  25  LAST  1044 
REF  60  LAST  1041 
REF  26  LAST  1G44 
PEF  1 


CO, 2127  50  135  0 
10,2130  3 4736  1 
00,2131  54  135  1 
00,2132  0 2073  1 


VSSR 


I NOE  X 
CAF 
TS 
TC 


MPTEMP 

BIT14 

MPTEMP 

VSHRRNO 


1272  REF  532 

1273  REF  533 

1274  REF  534 

1275  REF  2 


LAST  1043  OO 
LAST  1044  00 
LAST  1044  00 
LAST  1044  00 


,2133  52  155  1 
,2134  52  160  1 
,2135  52  155  1 
,2136  0 2073  1 


DXfH  MPAC 
OXCH  MPAC  +3 
DXCH  MPAC 
TC  VSHRRNC 


1276  REF  535 

1277  REF  536 

1278  REF  537 

1279  PEF  3 


LAST  1044  00 
LAST  1044  00 
LAST  1044  00 
LAST  1044  TO 


,2137  12  155  1 
,2140  52  162  0 
,2141  52  155  1 
,2142  0 2073  1 


OXCH  MPAC 
DXCH  MPAC  +5 
DXCH  MPAC 
TC  VSHRRNO 


1280  REF  1 


00,2143  1 7423 


TCF  VROTATEX 
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SAVE  3 BIT  SHIFT  CCUNT  - 1 WITHOUT 
EDITING  CYR* 

SEE  IF  LEFT  OR  RIGHT  SHIFT* 

VECTOR  SHIFT  LEFT* 

USED  IN  PROCESSED  SHIFTS  WITH  - COUNT- 

(ENTRY  FROM  SR)o  PICK  UP  SHIFTING  BIT* 
MPTEMP  CONTAINS  THE  SHIFT  CCUNT  - 1* 

SHIFT  X CCMPONENT* 

SWAP  X AND  Y COMPONENTS* 

SHIFT  Y COMPONENT* 

SWAP  Y AND  Z CCMPCNENTS* 

SHIFT  Z COMPONENT* 

RESTORE  COMPONENTS  TO  PROPER  PLACES* 


GAP: 

L 

Pizei 

1282 

1283 

1264 

1205 

1286 

1287 

1268 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

13(10 

1301 

1302 

1303 
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o)01  PAGE  1^45 
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VECTOR  SHIFT  LEFT  - CONE  ONE  PLACE  AT  A TI PEo 

REF  27  LAST  1044  ')0r  2144  54  135  1 - 1 TS  MPTEMP  SHIFTING  LOCPo 


REF  538 
REF  539 

PEF  3 


LAST  1044 
LAST  1045 

LAST  1027 


00  ,2145 
00,2146 
00,2147' 
00,2150 
00,2151 
00,2152 


0 0006  1 
3 C155  0 
20  155  I 
C 0006  1 
1 2153  0 
0 7022  0 


VSSL 


EXTEND 

DCA  MPAC 

DAS  MPAC 

EXTEND 

BZF  +2 

TC  OVERFLOW 


REF  540  LAST  1045 
REF  541  LAST  1045 

REF  4 LAST  1037 


00,2153  0 0CC6  1 
00,2154  3 0160  0 
00,2155  20  160  1 
00,2156  C C006  1 
00,2157  1 2161  I 
00,2160  0 7017  0 


EXTEND 

OCA  MPAC  +3 

CAS  MPAC  +3 

EXTEND 
BZF  +2 

TC  OVERFLWY 


REF  542  LAST  1045 
REF  543  LAST  1045 

REF  4 LAST  1036 


00,2161  0 0006  1 
00,2162  3 0162  1 

CO, 2163  2C  162  0 
00,2164  0 0006  I 

00,2165  1 2167  1 

00,2166  C 7C14  0 


•EXTEND 

OCA  MPAC  +5 

DAS  MPAC  +5 

EXTEND 
BZF  42 

TC  OVEPFLWZ 


REF  28  LAST  1045 
REF  2 LAST  1044 
REF  26  LAST  1043 


00,2167  10  135  1 
00,2170  1 2144  0 
00,2171  1 6064  1 


CCS  MPTEMP  LOOP  ON  DECREMENTED  SHIFT  COUNTER* 

TCF  VSSL  -1 

TCF  DANZIG  EXIT* 


gap: 

L 

P130A 

R1306 

1307 

130e 

1309 

1310 

1311 

1312 

1313 

1314 

131  5 

1316 

1317 

131  e 

i319 

1320 

1321 

1322 

1323 

1324 
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INTERPRETER 


USER  ' S PAGE  NOe  51  E3  S3 


TSLC  - TRIPLE  SHIFT 
THE  COMPLEMENT  OF  THE  NUMBER 


LEFT  AND  COLNTo  SHIFTS  MFAO  LEFT  UNTIL  GREATER  THAN 
CF  SHIFTS  RECUIREC  IN  Xa 


IN  MAGNITUDE,  LEAVING 


REF  29  LAST  10A5 
REF  4 LAST  1030 

PEF  1 


00,2172  54  135  1 TSLC2 

00,2173  0 6726  1 

“10,2174  1 2176  1 

00,2175  1 2212  0 


TS 

TO 

TCF 

TCF 


MPTFMP 

BRANCH 

+2 

ENCTSLC 


START  BY  ZEROING  SHIFT  COUNT  (IN  A NOWU 
EXIT  WITH  NO  SHIFTING  IF  ARGUMENT  ZEROe 

STORES  ZERO  SHIFT  COUNT  IN  THIS  CASEo 


REF  12  LAST  8^5 


00,2176  0 7262  0 


TC  TPAGREE 


MAY  CAUSE  UPSHIFT  OF  ONE  EXTRA  PLACEo 


REF  544  LAST  1045 
PEF  1 


CO, 2177  3 0154  1 

00,2200  1 2207  1 


CA  MPAC 

TCF  TSLCTEST 


BEGIN  NORMALIZATION  LOOPo 


REF  30  LAST  1046 

REF  545  LAST  10^6 
REF  546  LAST  1046 
REF  547  LAST  1046 
PEF  548  LAST  1046 


REF  1 


00,2201  24  135  0 
00,22C2  C 0C06  1 
10,2203  3 0156  0 
00,2204  20  156  1 
00,2205  6 C154  I 
00,2206  26  154  0 
00,2207  6 0000  1 
00 ,2210  54  COO  0 
00  ,2211  1 2201  1 


TSLCLOOP  INCR 

EXTEND 

OCA 

CAS 

AO 

ACS 

TSLCTEST  DOUBLE 

avsK 

TCF 


MPTEMP 

MPAC  +1 
MPAC  +1 
MPAC 
MPAC 


TSLCLOOP 


INCREMENT  SHIFT  COlNTERo 


SEE  IF  (ANOTHER!  SHIFT  IS 
YES  - INCREMENT  COUNT  AND 


REOUIREOe 
SHIFT  AGAINr 


REF  31  LAST  1046  00,2212  4 C135  1 ENOTSLC  CS  MPTEMP 

REF  1 00,2213  1 6626  1 TCF  STOREl 


STORE  SHIFT  COUNT  AND  RETURN  TO  DANZIG, 


f 


gap:  ASSfMBLE  REVISION  131  CF  AGC  PRCCRAP  LUMINARY  BY  NASA  2021112-091  17:53  DEC*  19,1969  SKIPPER  c 101 

L INTERPRETER  USER'S  PAGE  NOc  52 

P1325  THE  FCLLCWING  WOUTUES  PROCESSES  THE  GENERAL  SHIFT  INSTRUCTIONS  SR,  SRR  , SL,  AND  SLRo 

R1327  THE  GIVEN  ADDRESS  IS  DECODED  AS  FCLLCWS: 


PAGE  1047 
E3  S3 


« 


R1328  BITS  1-7  SHIFT  CCLNT  (SUBADDRESSI  LESS  THAN  125  CECIPALo 

R1329  BIT  8 PSEUCC  SIGN  BIT  ICETECTS  CHANGE  IN  SIGN  IN  INDEXED  SHIFTS!* 

R1331  BIT  9 0 FOR  LEFT  SHIFT,  AND  1 FCR  RIGHT  SHIFT* 

R1332  BIT  10  1 FOR  TERMINAL  ROUND  ON  SCALAR  SHIFTS,  0 CTHFRRISF* 

R1333  BI  TS  11-13  0* 

R1334  BIT  14  1, 

R1335  BIT  15  0* 


R1336 


THE  ABOVE  ENCODING  IS  CONE  BY  THE  YUL  SYSTEM* 


f 


1337  REF  74  LAST  1040  00,2214  7 Ollt  0 

1338  REF  335  LAST  1037  00,2215  10  000  0 


GENSHIFT  MASK 
CCS 


AOORND 

A 


1339  REF 


00,2216  1 2224  C 


TCF  GENSHFT2 


GET  SHIFT  CCUNT,  TESTING  FOR  ZFRO* 
(ARRIVES  WITH  C(A)  = L0W7I* 

IF  NON-ZERO,  PROCEED  WITH  DECREMENTED  CT 


f 


f 


1340  REF  33 

1341  REF  75 

1342  REF  336 

1343  REF  3 

1344  REF  27 


LAST  905  00 
LAST  1047  CO 
LAST  1047  00 
LAST  1043  00 
LAST  10^5  OO 


,2217  3 4742  1 

,2220  7 0116  0 

,2221  10  COO  0 

,2222  0 7141  1 

,2223  1 6C6^  1 


CAF  BITIO  ZERO  SHIFT  CGUNT*  NO  SHIFTS  NEEDED  BUT 

MASK  ADCRWD  WE  MIGHT  HAVE  TO  ROUND  MPAC  ON  SLR  AND 

CCS  A SRR  (SCALAR  ONLYU 

TC  ROLNDSUB 

TCF  DANZIG 


« 

« 


1345  REF  32 

1346  REF  35 

1347 

1348  REF  76 

1349  REF  I 

1350  REF  337 

1351 

1352  REF  1 

1353  REF  1 

1354  REH  1 


LAST 

LAST 

LAST 

LAST 


1046 
994 

1047 
1047 


00,2224  54  135  1 
00,2225  3 4744  1 
00,2226  C 0C06  1 
00,2227  1 0116  0 
00,2230  7 6250  1 
00,2231  5C  000  1 
00,2232  1 2233  0 
00,2233  1 2332  0 
00,2234  1 2342  1 
00,2235  I 2336  1 


GENSHFT2  TS 
CAF 

EXTEND 

MP 

MASK 

INDEX 

TCF 

TCF 

TCF 

TCF 


MPTEMP 

BITS 

ADDPWO 
L0W2 
A 
+ 1 

RIGHT- 

LEFT 

LEFT- 


DECREMENTED  SHIFT  CCUNT  TO  MPTEMP* 

TEST  MEANING  OF  LOW  SEVEN  BIT  COUNT  IN 
MPTEMP  NOW* 

JUMPS  ON  SHIFT  DIRECTION  (BITS)  AND 


ORIGINAL  SHIFT 
NEGATIVE  SHIFT 
SL  OR  SLR* 
NEGATIVE  SHIFT 


DTRECTICN  (BIT  9)* 
COUNT  FOR  SL  OP  SLR* 

COUNT  WI  TH  SR  OR  SRP* 


f 

f 

♦ 


d 


# 


GAP;  ASSEMBLE  REVISION  131  CF  AGC  PPCCPAM  LUMINARY  BY  NASA  2021112-091 


L INTERPRETER 


P1355 


GENERAL  Sl-IFT  RIGFTe 


1356 

1357 

1358 


REF  31  LAST  lOAO 
REF  1 

REF  2 LAST  1048 


00,2236  1C  163  1 RIGHT 
00,2237  1 2277  0 

00,2240  I 2277  0 


CCS 

TCF 

TCP 


MODE 

GENSCR 

GENSCR 


1359  REF  33  LAST  1047 

1360  REF  1 

1361 

1362  REF  1 


00,2241  3 0135  0 
00,2242  6 3733  0 
00,2243  C 0006  1 
00,2244  6 2127  1 


CA  MPTEMP 

VRIGHT2  AO  NEG12 

EXTEND 
BZMF  VSSR 


1363 

1364 

1365 

1366 

1367 

1368 
136° 
1370 

A 1371 

1372 

1373 

1374 

1375 


REF  0 
REF  34 
REF  198 
REF  199 
REF  549 
REF  550 
REF  1 
REF  551 

REF  552 
REF  553 
REF  2 
REF  554 


LAST  1037 
LAST  1040 
LAST  1042 
LAST  1042 
LAST  1046 
LAST  10^8 

LAST  10^8 

LAST  1048 
LAST  1048 
LAST  1048 
LAST  IJ48 


00,2245  6 7752  0 
00,2246  54  135  1 
00,2247  3 4755  1 
00,2250  54  001  1 
00,2251  56  156  1 
00,2252  56  155  0 
00,2253  C 2272  1 
00,2254  20  155  1 

00,2255  56  157  1 
00,2256  56  160  0 
00,2257  0 2272  1 
00,2260  2C  16C  1 


AC  NEGONE 

TS  MPTEMP 

CAF  ZERO 

TS  L 

XCH  MPAC 

XCF  MPAC  +1 

TC  SETPCUNC 

DAS  MPAC 


XCF  MPAC  +3 

XCF  MPAC  +4 

TC  SETROUNO 

DAS  MPAC  +3 


1376  REF  555 

1377  REF  556 

1378  REF  3 

1379  REF  557 


LAST  1048  OO 
LAST  1048  CO 
LAST  1048  00 
LAST  1048  00 


,2261  56  161  1 
,2262  56  162  1 
,2263  C 2272  1 
,2264  20  162  0 


XCF  MPAC  +5 

XCH  MPAC  +6 

TC  SETRCUNC 

DAS  MPAC  +5 


1380  REF  35  LAST  1048 

1381  REF  36  LAST  1048 

1382  REF  I 

1363 


00,2265  10  135  1 CCS 

00,2266  54  135  1 TS 

00,2267  1 2242  0 TCF 

00,2270  046C4  1 BIASLO  DEC 


MPTEMP 
MPTEMP 
VR  IGHT2 
c2974  B- 


■I 


1384 


REF  28  LAST  1047  00,2271  1 6064 


TCF  DANZIG 


1385 

1386  REF 

1387  REF 

1388  REF 

1389  REF 


558  LAST 

199  LAST 

200  LAST 
281  LAST 


1048 

1048 

1048 

1042 


00,2272  6 0000  1 
00,2273  54  156  1 
00,2274  3 4755  1 
00,2275  56  CCl  0 
00,2276  0 0002  0 


SETRCUNC  DOUBLE 


XCH 

TC 


MPAC 

ZERO 

L 

Q 


+ 2 


17:53  DECe  19,1969  SKIPPER  <101  PAGE  1048 


USER'S  PAGE  NCg  53  E3  S3 


SFE  IF  VECTOR  OR  SCALARe 


SEE  IF  SHIFT  COUNT  LESS  THAN  14D« 


IF  SO,  BRANCH  AND  SHIFT  IMMEDIATELY* 


IF  NOT,  REDUCE  MPTEMP  BY  A TOTAL  OF  14, 
AND  Cn  A SHIFT  RIGFT  ANC  ROUND  BY  14* 
THE  ROUND  AT  THIS  STAGE  MAY  INTRODUCE  A 
ONE  BIT  ERROR  IN  A SHIFT  RIGHT  150* 


X COMPONENT  NOW  SHIFTED,  SO  MAKE  UP  THE 
ROUNDING  QUANTITY  (P  IN  A AND  0 OR  +-1 
IN  LI* 

REPEAT  THE  ABOVE  PROCESS  FOR  Y AND  Z* 


NO  OVERFLOW  ON  THESE  ADCS* 


SEE  IF  DONE,  DOING  FINAL  DECREMENT* 


SORT  CONSTANT 


MAKES  UP  ROUNDING  QUANTITY  FROM  ARRIVING 
C ( A»*  LIS  ZERO  IN  IT  I ALLY. 


RETURN  AND  DO  THE  CAS,  RESETTING  L TO  0. 


GAP : 


ASSEf'eLE  REVISION  131  CF  AGC  PRCCRAM  LUMINARY  0Y  NASA  2021112-091 


L INTERPRETER 


PI  390 


PROCESS  SR  AND  SRR  FCR  SCALARS# 


1391 

1392 

1393 
139A 


REF 


1 


OOf 2300 
00i230I 
00,2302 


0135 

3733 

cooe 

2322 


0 

0 

1 

0 


CA  MPTFMP 

AD  NEG12 

EXTEND 

6ZMF  OOSSHFT 


1395 

1396 

1397 
1390 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 


REF  9 LAST  1048 
REF  38  LAST  1049 
REF  200  LAST  1048 
REF  559  LAST  1048 
REF  560  LAST  1049 
REF  561  LAST  1049 
REF  39  LAST  1049 
REF  40  LAST  1049 
REF  3 LAST  1048 


REF  34  LAST  1047 
REF  77  LAST  1047 
REF  338  LAST  1047 
REF  4 LAST  1047 
REF  29  LAST  1048 


00,2303  6 7752  0 
30,2304  54  135  1 
00,2305  3 4755  1 
CO, 2306  56  ]54  1 
00,2307  56  155  0 
00,2310  54  156  1 
00,2311  10  135  1 
00,2312  54  135  1 
00,2313  0 2300  0 
00,2314  22650  I 
00,2315  3 4742  1 
00,2316  7 0116  0 
00,2317  10  000  0 
00,2320  C 7141  1 
00,2321  1 6064  1 


SLOPEhl 


AD  NE60N6 

TS  MPTEMP 

CAF  ZERO 

XCH  MPAC 

XCF  MPAC  +1 

TS  MPAC  +2 

CCS  MPTEMP 

TS  MPTEMP 

TC  GENSCR  +l 

DEC  «5884 

CAF  BITIO 

MASK  ADDRWD 

CCS  A 

TC  ROUNDSUP 

TCF  DANZIG 


1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 


REF  41 
REF  61 
REF  42 
REF  35 
REF  78 
REF  339 
REF  1 


REF 


1 


LAST  1049 
LAST  1044 
LAST  1049 
LAST  1049 
LAST  1049 
LAST  1049 


00,2324 

00,2325 

00,2326 

00,2327 

00,2330 

00,2331 


50  135 
3 4736 
54  135 
3 4742 
7 0116 
10  000 
1 2031 
1 2033 


0 

1 

1 

1 

c 

0 

0 

1 


CCSSHFT 


INDEX  MPTEMP 

CAF  B1T14 

TS  MPTEMP 

CAF  BITIO 

MASK  ADDRWD 

CCS  A 

TCF  RIGHTP 

TCF  MPACSHR 


17:53  DEC#  19,1969  SKIPPER  PAGE  1049 

USER ' S PAGE  NOr  5A  E3  S3 

SFF  IF  THE  ORIGINAL  SHIFT  COUNT  HAS  LESS 
THAN  140# 

on  THE  SHIFT  IMMEDIATELY  IF  SOc 

IF  NOT,  DECREMENT  SHIFT  COUNT  BY  140  AND 
SHIFT  MPAC  RIGHT  1^^  PLACES# 


SEE  IF  FINISHED,  DC  FINAL  DECREMENT# 

SORT  CONSTANT^ 

FINISHED  WITH  SHIFT#  SEE  IF  ROUND 
WANTED# 

DO  SO  ANO/OP  EXIT# 

PICK  UP  SHIFTING  BIT# 

SEE  IF  TERMINAL  ROUND  DESIRED# 

YES# 

JUST  SHIFT  RIGHT# 


GAP  : 

L 

P1418 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  OeC«  19,1969  SKIPPER  elOl  PAGE  1050 


INTERPRETER 


USER  'S  PAGE  NO®  55  E3  S3 


PROCESS  Tl-E  RIGHT-  (SL(R>  WITH  A NEGATIVE  COUNT),  LEFT-,  AND  LEFT  CPTIONSo 


RFF  43 
REF  1 
REF  44 
REF  1 


LAST 

LAST 


1049 

1050 


00,2332  4 0135  1 RIGHT-  CS 

00,2323  6 2126  0 AD 

00,2334  54  135  1 TS 

00  ,2335  1 2236  0 TCF 


MPTEMP 
0CT176 
MPTEMP 
R IGHT 


GET  ABSOLUTE  VALUE  - 1 OF  SHIFT  COUNT 
UNDERSTANDING  THAT  BITP  (PSEUDO-SIGN) 
WAS  1 INITIALLY® 

DO  NORMAL  SHIFT  R IGHT, 


REF  2 LAST  1050 
REF  45  LAST  1050 

REF  46  LAST  1050 


00,2336  A 2126  1 LEFT- 
10,2337  6 0135  0 

00,23A0  4 CCOO  0 

00,2341  54  135  1 


CS  0CT176 
AC  MPTEMP 
COM 

TS  MPTEMP 


SAME  PROLOGUE  TC  LEFT  FOR  INDEXED  RIGHT 
SHIFTS  WHOSE  NET  SHIFT  COUNT  IS  NEGATIVE 


REF  32  LAST  1048 

REF  1 

REF  2 LAST  1050 

REF  3 LAST  1045 


00,2342 

00,2343 

00,2344 

00,2345 


1C  163 
1 2346 
1 2346 
1 2145 


1 

0 

0 

1 


LEFT 


CCS 

TCF 

TCF 

TCF 


MODE 

GENSCL 

GENSCL 

VSSL 


SINCE  LEFT  SHIFTING  IS  SONE  ONE  PLACE  AT 
A TIME,  NO  COMPARISON  WITH  14  NEED  BE 
DONE*  FOR  SCALARS,  SEE  IF  TERMINAL  ROUND 
DESIREOo  FOR  VECTORS,  SHIFT  IMMEOIATELYs 


REF  79  LAST  1049 

REF  47  LAST  893 
REF  31  LAST  1044 
REF  3 LAST  1043 


00,2346  4 0116  0 GENSCL 

00,2347  0 0006  1 

00,2350  7 4746  1 

00,2351  54  020  I 

00,2352  1 2103  0 


CS  AOORWD 

EXTEND 
MP  BIT6 

TS  CYR 

TCF  TSSL  +2 


PUT  RCUNOING  BIT  (BIT  10  OF  ACORWCIINTO 
BIT  15  OF  CYR  WHERE  THE  ROUNDING  BIT  OF 
A SHORT  SHIFT  LEFT  WOULD  BE 

no  THE  SHlFTc 


gap: 

L 

P1437 

R1439 

1440 

14A1 

1442 

1^A3 

1444 

1445 

1446 

14h7 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

145R 

1459 

1460 

146  1 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-093 
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INTERPRETER 


USER*  S PAGE  NCo  56  63  S3 


SCALAR  DIVISION  I NS  TRLC  TI  CNS , DOV  ANC  60DV,  ARE  EXECUTED  l-EREo  AT  THIS  POINT,  THE  DIVIDEND  IS  IN  MPAC 
AND  TEE  DIVISOR  IN  BUFo 


REF  108 
REF  I 
REF  1 
REF  1 


LAST  1039 


30,2353 
00  ,2354 
00,2355 
00,2356 


4 4753  0 
54  136  1 
54  137  r> 

5 4 140  0 


CCV/BCCV  CS 


ONE 
DVSIGN 
OVNOR  MCT 
MAXOVSW 


INI TIALIZATIONo 

+-1  FOR  POSITIVE  QUOTIENT  0 FOR  NEGo 

DIVIDEND  NORMAL IZATICN  COUNT, 

NEAR-ONE  DIVIDE  FLAG, 


REF  93 
REF  1 

REF  1 


LAST  1039 


00,2357 

00,2360 

00,2361 

00,2362 


1C  130  I 
1 2516  0 
1 2363  1 
1 2531  0 


CCS  RUF  FORCE  0UF  POSITIVE  WITH  THE  MAJOR  PART 

TCF  BUFPOS  NON-ZEROo 

TCF  +2 

TCF  eUFNEG 


1049 

1046 


00,2363  54  156  1 EUFZERO  TS 

00,2364  0 7262  0 TC 


MPAC  +2 
TPAGREE 


ZERO  THISo 

FORCE  SIGN  AGREEMENT  BFFORE  OVERFLOW 


REF  563  LAST  1051 
REF  1 

REF  2 LAST  1051 


00,2365  1C  154  0 
00,2366  1 2414  0 
00,2367  1 2371  1 
00,2370  1 2413  1 


CCS  MPAC 

TCF  CVF+ 

TCF  +2 

TCF  OVF+  -1 


TEST  TO  SEE  IF  MPAC  NON-ZERC,  (TOO  RIG) 
MAJOR  PART  OF  DIVIDEND  IS  POSITIVE  NON-0 

MAJOR  PART  OF  DIVIDEND  IS  NEGo  NON-ZERO 


REF  94 
REF  95 
REF  564 
REF  565 
REF  96 
REF  1 

REF  1 


LAST  1051 
LAST  1051 
LAST  1051 
LAST  1051 
LAST  1051 


00,2371 

00,2372 

00,2373 

00,2374 

00,2375 

00,2376 

00,2377 

00,2400 


56  131  1 
56  130  0 
56  155  0 
56  154  1 
10  130  1 
1 2422  0 
I 2401  1 
1 2416  1 


XCH  BUF  +1 

XCH  BUF 

XCI-  MPAC  +1 

XCH  MPAC 

CCS  BUF 

TCF  BUF  + 

TCF  +2 

TCF  BUF- 


SHIFT  DIVIDEND  AND  DIVISOR  LEFT  14o 


TRY  AGAIN  ON  FORMER  MINER  PART® 
OVERFLOW  ON  ZERC  DIVISOR® 


REF  566 


REF  2 
REF  27 
REF  567 
REF  1 
REF  109 
REF  5 
REF  30 


LAST  1051 


LAST  1051 
LAST  1030 
LAST  1051 

LAST  1051 
LAST  1043 
LAST  1049 


00,2401 
00,2402 
00,2403 
00,2404 
00,2405 
CO, 2406 
GO, 2407 
00,2410 
00,2411 
00,2412 


4 0154  0 
C 0006  1 
6 2405  1 
24  136  0 
3 4733  1 
54  154  0 
C 2630  0 
3 4753  1 
54  121  1, 
0 6064  C 


CS 

SGNOVnVF  EXTEND 
8ZMF 
I NCR 

DVOVF  CAF 
TS 
TC 
CAF 
TS 
TC 


MPAC 

+2 

DVSIGN 
POSMA  X 
MPAC 

FINALOV  +3 
ONE 
OVFINO 
DANZIG 


SIGN  OF  MPAC  DETERMINES  SIGN  OF  RESULT® 


NEGMAX  IN  MPAC  PERKAPS® 

ON  DIVISION  OVEPFLCW  CF  ANY  SCRT,  SET 
SET  DP  MPAC  TO  +-POSMAX0 

SET  OVERFLOW  INDICATOR  AND  EXIT® 


REF  3 LAST  1051 
REF  97  LAST  1051 
R-EF  1 


30,2413  24  136  0 -I 

00,2414  4 C131  0 OVFi 

00,2415  1 2402  1 


INCR  DVSIGN 
CS  BUF  +1 

TCF  SGNDVOVF 


LOAD  LOWER  CRDER  PART  OF  DIVISOR® 
GET  SIGN  OF  RESULT® 


REF  98  LAST  1051 
REF  99  LAST  1051 
REF  4 LAST  1051 


CO, 2416 
00,2417 
00,2420 
00,2421 


0 0006  I 
4 0131  0 
52  131  n 
24  136  C 


BUF- 


EXTEND 
DCS  BUF 
OXCh  BUF 
INCR  DVSIGN 


IF  BUF  IS  NEGATIVE,  COMPLEMENT  IT  AND 
MAINTAIN  DVSIGN  FOR  FINAL  QUOTIENT  SIGN® 

NOW  -0® 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


L INTERPRETER 


1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 


REF  568  LAST  1051 
REF  ] 

REF  1 

REF  569  LAST  1052 
REF  2 LAST  1052 
REF  31  LAST  1051 
REF  2 LAST  1052 
REF  32  LAST  1052 


00,2422  10  154  0 
00,2423  1 2437  1 
00,2424  1 2426  1 
00,2425  1 2433  0 
00,2426  10  155  1 
00,2427  1 2437  1 
00,2430  1 6064  1 
00,2431  1 2433  0 
00,2432  1 6064  1 


CCS 

TCF 

TCF 

TCP 

CCS 

TCF 

TCF 

KF 

KF 


MPAC 

MPAC+ 

+ 2 

MPAC- 
MPAC  +1 
MPAC  + 
DANZIG 
MPAC- 
DANZ  IG 


1488 

1489  REF  57U  LAST 

1490  REF  571  LAST 

1491  REF  5 last 


00,2433  C 0006  1 
1052  00,2434  4 0155  I 
1052  00,2435  52  155  1 
1051  00,2436  24  136  0 


MPAC-  EXTEND 

Or.S  MPAC 
DXCH  MPAC 
INCR  DVSIGN 
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USER'S  PAGE  NCo  57  E3  S3 

FORCE  MPAC  POSITIVE,  CHECKING  FOR  ZERO 
CIVIOENO  IN  THE  PROCESS* 

EXIT  IMMEDIATELY  ON  ZERO  DIVIDEND* 

FORCE  MPAC  POSITIVE  AS  BUF  IN  BUF-* 

NCW  +1  OR  -0* 


gap:  ASSEPeLE  REVISION  131  OF  AGC  PPCCRAM  LUMINARY  BY  NASA  2021112-091 

L INTERPRETER 


1492  REF  572 

1493  PEF  10 

1494  REF  100 

1495  REF  340 

1496  REF  1 

1497 


LAST  1052 
LAST  1049 
LAST  1051 
LAST  1049 


00t2437  A 0154  0 
30,2440  6 7752  0 

00,2441  6 0130  0 

00,2442  Id  000  0 

30.2443  I 2505  1 

30.2444  6CC01  0 


MPAC*^ 


CS  MPAC 

AO  NEGONE 

AO  ' eUF 
CCS  A 

TCF  DVNORM 

OCT  60C01 


1498 

1499  REF  14 

1500 

1501  REF  573 

1502  REF  574 

1503  REF  201 

1504  REF  28 

1505  PEF  575 


00 

LAST  1037  00 

00 

LAST  1053  30 

LAST  1053  00 

LAST  1049  00 

LAST  1051  00 

LAST  1053  OO: 


,2445  1 2446  1 

,2446  3 4736  1 

2447  6 OOOO  1 

,2450  6 0X55  0 

,’451  54  155  1 

.2452  3 4755  1 

,2453  6 4733  1 

2454  26  154  0 


TCF  +1 

CAF  HALF 

DOUBLE 

AD  MPAC  +1 

TS  MPAC  +1 

CAF  7ER0 

AO  POSMAX 

AOS  MPAC 


1506 

1507 

1508 

1509 

1510 

1511 

1512 


REF  15 

REF  101 
REF  102 
REF  202 
REF  29 
REF  103 


LAST  1053 

LAST  1053 
LAST  1053 
LAST  1053 
LAST  1353 
LAST  1053 


00,2455 

00,2456 

00,2457 

00,2460 

00,2461 

00,2462 

00,2463 


3 4736  I 
6 0000  1 
6 C131  1 
54  131  0 
3 4755  1 
6 4733  1 
26  J30  1 


CAF  HALF 

DOUBLE 

AD  6UF  +1 

TS  BUF  +1 

CAF  ZERO 

AD  POSMAX 

ADS  BUF 


1513 

1514 

1515 

1516 

1517 

1518 


REF  576  LAST  1053 
REF  104  • LAST  1053 
REF  341  LAST  1053 
REF  2 LAST  1053 
REF  15  LAST  1033 
REF  1 


00,2464 

00,2465 

00,2466 

00,2467 

30,2470 

00,2471 


4 0154  0 
6 0130  0 
10  OCO  0 
1 2505  1 
00133  0 LeUF2 
1 2405  0 


CS  MPAC 

AO  BUF 

CCS  A 

TCF  DVNORM 

ACRES  8UF2 

TCF  OVCVF 


1520 

1521 

1522 

1523 

1524 


REF 

REF 

REF 


2 

577 

105 


LAST  1053 


REF  2 LAST  1053 
REF  3 LAST  1053 


00,2472  54  140  0 
00  ,2473  4 0155  1 
00,2474  6 0131  1 
00,2475  0 0006  I 
CO, 2476  6 2405  1 
GO, 2477  1 2505  1 


TS  MAXDVSH 

CS  MPAC  +1 

AU  BUF  +1 

EXTEND 

BZMF  DVOVF 

TCF  DVNORM 


17:53  DECo  19,1969 
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CHFCK  FCR  DIVISION  CVERFLOWo  IF  THE 
MAJOR  PART  OF  THE  DIVIDEND  IS  LESS  THAN 
THE  MAJOR  PART  OF  THE  DIVISOR  BY  AT 
LEAST  TWC,  WE  CAN  PROCEED  IMMEDIATELY 
WITHOUT  NORMALIZATION  PRODUCING  A DVMAX, 
USED  IN  SQRTSUBe 


IF  THE  ABOVE  DOES  NCT  HCLO,  FORCE  SIGN 
AGREEMENT  IN  NUMERATOR  AND  DENOMINATOR 
TC  FACILITATE  CVERFLCW  AND  NEAR-ONE 
CHECKING* 


SAME  FDR  f3UFo 


CHECK  MAGNITUDE  OF  SIGN-CORRECTED 
OPERANDS* 

DIVIDE  OK  - WILL  NCT  BECCME  MAXCV  CASE* 


DIVISOR  NOT  LESS  THAN  DIVIDEND  - OVF« 


IF  THE  MAJOR  PARTS  OF  THE  DIVIDEND  AND 
DIVISOR  ARE  EQUAL,  A SPECIAL  APPROXIMA- 
TION IS  USED  IPROVIOeO  THE  DIVISION  IS 
POSSIBLE,  OF  COURSE), 

IF  NO  DVERFLOWo 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L IMEfiPPETER 


1525 

1526  REF  2 LAST  1051 

1527 

1526  REF  106  LAST  1053 

1529  REF  107  LAST  105^ 


QC»25C0  0 0006  1 
00,2501  2A  137  1 
00,2502  0 0006  1 
CO, 2503  ' 0131  1 
00,250A  20  131  0 


eUFNGRM 


EXTEND 

AUG  DVNORMCT 
EXTEND 
OCA  euF 
DAS  BUF 


1530  REF  108  LAST  105A 

1531 

1532 

1533  REF  1 


CO, 2505 
00,2506 
30,2?07 
00,2510 


3 0130  0 
6 0000  1 
5A  000  0 
1 2500  1 


DVACRM 


CA  BUF 

DOUBLE 

0-VSK 

TCF  RUFNQRM 


1534  REF  578  LAST  1053 

1535  REF  3 LAST  1054 

1536  REF  1 


00,2511  55  155  1 
00,2512  50  137  1 
00,2513  C 2565  C 


Ox'CH  MPAC 
INDEX  DVNORMCT 
TC  MAXTEST 


1537  REF  579  LAST  1054  00,2514  54  156  1 

1538  REF  33  LAST  1C52  00,2515  1 6C66-  1 


TS  MPAC  +2 

TfF  DANZIG 


1539  REF  342  LAST  1053 

1540  REF  2 LAST  1051 


00,2516  10  000  0 BUFPQS  CCS 

00,2517  1 2422  0 TCF 


1541  REF  109  LAST  1054 

1542 

1543  KfcF  ‘ 3 LAST  11154 


00,2520 
00,2521 
CO, 2522 


4 0131  0 
r 0006  1 
6 2422  1 


CS  BUF  +1 

EXTEND 
RZMF  BUF-* 


1544 

1545 

1546 

1547 

1548 

1549 


REF  16 

REF  110 
REF  203 
REF  111 
REF  1 


LAST  1053 

LAST  1054 
LAST  1053 
LAST  1054 


00,2523 
00  ,2524 
00,2525 
00 , 2526 
10,2527 
CO, 2530 


3 4736  1 
6 0000  1 
26  131  0 
3 4755  1 
54  130  1 
1 2363  1 


CA 

DOUBLE 

AOS 

CA 

TS 

TCF 


HALF 

euF  +l 

ZERO 

BUF 

BUFZERC 


1550  REF  343 

1551  REF  2 


LAST 

LAST 


1054  00,2531  10  000  0 EUFNEG  CCS 
1051  30,2532  1 2416  1 TCF 


A 

6U  F- 


1552 

1553 

1554 


REF  112  LAST  1054 
REF  3 LAST  1054 


00,2533 

00,2534 

00,2535 


2 C131  1 
0 0006  I 
6 2416  0 


CA 

EXTEND 

BZMF 


BUF  +1 
6UF- 


1555 

1556 


REF  17  LAST  1054 
REF  2 LAST  1051 


00,2536  4 4736  0 

CO, 2537  I 2524  1 


CS  HALF 

TCF  BUFPOS  -*6 
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ACO  -J  TO  AUGMENT  SHIFT  COUNT  AND  SHIFT 
LEFT  ONE  PLACE* 

SFE  IF  DIVISOR  NORMALIZED  YET* 

NO  - SHIFT  LEFT  ONE  AND  TRY  AGAIN* 

call  DIVIDEND  NCR M AL I Z AT  ION  SEQUENCE 
PRIOR  TO  DOING  THE  DIVIDE. 

RETURNS  RITH  DIVISION  DCNE  AND  C(A»  = 0* 

TO  BUF-*  IF  BUF  IS  GREATER  THAN  +I0 

IF  PUF  IS  +1,  FORCING  SIGN  AGREEMENT 
MAY  CAUSE  BUF  TC  PECCME  ZERC» 

BRANCH  IF  SIGNS  AGRFEc 

SIGNS  DISAGREE*  FCRCE  AGREEMENT* 


TO  BUF-  IF  BUF  IS  LESS  THAN 


IF  BUF  IS  -1,  FORCING  SIGN  AGREEMENT 
MAY  CAUSE  BUF  TO  BECOME  ZERO* 

BRANCH  IF  SIGNS  AGREE* 


SIGNS  DISAGREE*  FORCE  AGREEMENT* 


GAP : 

L 

P1557 

ISSQ 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 
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INTERPRETER 
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THE  FCLLOVtING  ARE  PPCLCGUES  TO  SHIFT  THE  CIVIOEND  ARRIVING  IN  A AND  L BEFORE  THE  ClVICEo 


REF  14  LAST  1043 

REF  18  LAST  1054 
REF  201  LAST  1048 
REF  15  LAST  1055 
REF  202  LAST  1055 
REF  1 


00»2540  22  021  1 
00,2541  0 0006  I 
00,2542  7 4736  0 
00,2543  56  COl  0 
00,2544  6 0021  1 
00,2545  56  001  0 
10,2546  1 2571  1 


-210 


SR 

HALF 

L 

SR 

L 

GENODV 


1 


SPECIAL  PROLOGUE  FOP  UNIT  WHEN  THE 
LENGTH  CF  THE  ARGUMENT  WAS  NOT  LESS  THAN 
o5<-  IN  THIS  CASE,  EACH  COMPONENT  MUST  BE 
SHIFTED  RIGHT  ONF  TO  PRODUCE  A HALF-UNIT 
VECTORo 

WITH  DP  DIVIDEND  IN  A,L« 


REF  580 


LAST  1054 


00,2547 
00,2550 
00,2551 
00,2552 
00,2553 
00,2554 
10,2555 
00,2556 
00  ,2557 
00,2560 
00,2561 
00,2562 
00,2563 
00,2564 


20  001  1 
2C  COl  1 
20  001  1 
20  001  1 
2C  COl  1 
20  001  1 
2C  001  1 
20  001  1 
20  001  I 
2C  COl  1 
20  001  1 
20  001  1 
2C  COl  1 
52  155  1 


DDOUBL 

DOOUBL 

DDOUBL 

COCUBL 

ODCUBL 

DDOUBL 

OCCUBL 

DDOUBL 

DDOUBL 

DDOUBL 

DDOUBL 

DCCUBL 

DOOUBL 


PROLOGUE  WHICH  NORMALIZES  THE  DIVIDEND 
WHEN  IT  IS  KNOWN  THAT  MO  DIVISION 
OVERFLOW  WILL  CCCURo 


REF 


3 LAST  1053 


00,2565  10  140 

■10,2566  06552 


0 MAXTEST  CCS 
0 eiASHI  DEC 


MAXCVSW 
o4192  B-l 


0 IF  MAJORS  MIGHT  BE  -!  OTHERWISE,. 
SORT  CONSTANTS 


REF 


00,2567  1 2642 


TCF  MAXCV 


CHECK  TO  SEE  IF  THEY  APE  NOW  EOUALo 


gap;  assemble  revision  131  OF  AGC  PRCGRAM  LUMINARY  0Y  NASA  2021112-09) 
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P1583  THE  FCLLCUING  IS  A GENERAL  PURPOSE  COUELE  PRECISION  DIVISION  ROUTINE.  IT  DIVIDES  MPAC  BY  BUF  AND  LEAVES 

R1585  THE  RESULT  IN  MPAC.  THE  FOLLOWING  CONDITICNS  MUST  BE  SATISFIED: 


R1586  1.  TFE  DIVISOR  ( EU  F I MUST  BE  POSITIVE  AND  NOT  LESS  THAN  .5. 

R1587  2.  THE  DIVIDEND  (MFACI  MUST  BE  POSITIVE  WITH  THE  MAJOR  PART  OF  MPAC  STRICTLY  LESS  THAN  THAT  OF  BUF 

R1509  {A  SPECIAL  APPROXIMATION,  MAXCV,  IS  USED  WHEN  THE  MAJOR  PARTS  ARE  EQUAL). 


R1591 

R1593 

R1595 


UNDERSTANDING  THAT  A/B  = C + S(B/E)  WFEHE  S = 2(-lA)  AND  0 AND  R ARE  QUOTIENT  AND  REMAINDER,  RESPEC- 
TIVELY, THE  FOLLOWING  APPROXIMATION  IS  OBTAINED  BY  MULTIPLYING  ABOVF  AND  BELOW  BY  C - S C AND  NEGLECTING  TERMS  OF 
ORDER  S-SCUAPEO  (POSSIBLY  INTPCCUCING  ERROR  INTO  THE  LOW  TWO  BITS  CF  THE  RESULT).  SIGN  AGREEMENT  IS  UNNECESSARY. 


R1597 

R1599 

R1601 


A + SB  o 

= 0 

C + SC 


(R  - CD)  A + SB 

S( ) WHERE  Q AND  R ARE  QUOTIENT  AND  REMAINDER  OF  RESPECTIVELY. 

( C ) C 


1603 

16nA 

1605 

1606 


REF  581  LAS!  1055 

REF  113  LAST  105A 
REF  5B2  LAST  1056 


00,2570  £2  155  1 
JO  ,2571  0 0006  1 
00,2572  10  130  I 
00,2573  52  155  I 


GENCDV  DXCH  MPAC 
+1  EXTEND 

Crv  BUF 

DXCH  MPAC 


WE  NEED  A AND  B ONLY  FOR  FIRST  OVo 
(SPECIAL  UNIT  PROLCGUE  ENTEPS  HERE). 
A NOW  CONTAINS  0 AND  L,  Re 


1607  REF  583  LAST  1056 

1608 

1609  REF  llA  last  1056 

1610  REF  5S^  LAST  in56 

1611 
1612 


00  ,2574  4 0154  0 
00,2575  C 0006  1 
00,2576  7 0131  0 
70,2577  6 0155  0 
70,2600  54  COO  0 
00,2601  1 2606  1 


CS  MPAC  FORM  DIVIDEND  FOR  MINCR  PART  OF  RESULT. 

EXTEND 

MP  BUF  +1 

AD  MPAC  +l  OVERFLOW  AT  THIS  POINT  IS  POSITIVE  SINCE 

(JVSK  R IS  POSITIVE  IN  EVERY  CASE. 

TCP  +5 


1614 

1615 

1616 


REF  115  LAST  1056 
REF  585  LAST  1056 
REF  1 


00,2602  G 0006  1 EXTEND 

00,2603  60  130  0 SU  BUF 

00,2604  24  154  1 INCR  MPAC 

00,2605  1 2610  0 TC  F +DCWN 


OVERFLOW  CAN  BE  REMOVED  BY  SUBTRACTING  C 
(BUF)  ONCE  SINCE  P IS  ALWAYS  LESS  THAN  C 
IN  THIS  CASE.  INCR  COMPENSATES  SUBTRACT. 
(SINCE  C(A)  IS  STILL  POSITIVE). 


1617 

161B  REF 
A1619 


)0,2606  C 0006  I +5  EXTEND 

70,2607  6 2620  1 DZMF  -UP 


C(A)  CAN  BE  MADE  LESS  THAN  C IN  MAGNI- 
TUDE BY  DIMINISHING  IT  BY  C (SINCE  C IS 
NOT  LESS  THAN  .5)  UNLESS  C(A)  = 0. 


gap:  assemble  REVISION  131  OF  AGC  PRCGRAP  LUMINARY  BY  NASA  2C21112-091 

L INTERPRETER 


1620 

1621 

1622 

1623 

1629 

1625 


REF  116  LAST  1056 


REF  1 


OO 

CO 


)0 

00 


,2611 

,2612 

,2613 

,2619 

,2615 


0 0006 
1 2616 
0 0006 
6 2624 


1 

0 

1 

0 

I 

0 


•DCWN 


EXTEND 

SU 

EXTEND 

BZF 

EXTEND 

BZMF 


BUF 
+ 3 

ENOMAXDV 


1626 

1627 


REF  586  LAST  1056 
REF  2 LAST  1051 


00,2616  29  154  1 

00  ,2617  1 2625  0 


INCft  MPAC 
TCF  FINALDV 


1628 

1629  REF  3 LAST  1057 


00,2620  r 0006  1 -UP 
00,2621  1 2630  1 


EXTEND 

BZF  FINALDV  +3 


1630 
16  31 
1632 


REF  587  LAST  1057 
KEF  117  LAST  1057 


00,2622  0 0006  1 
CO, 2623  26  154  0 

00,2624  6 0130  0 


ENOMAXDV 


EXTEND 

DIM 

AD 


MPAC 

BUF 
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IF  POSITIVE,  REDUCE  CNLY  IF 
SINCE  THF  COMPENSATING  INCR 
CVERFLOWo 

DCNT  SUBTRACT  UNLESS  RESULT 
OR  ZERO* 


NECESSARY 
MIGHT  CAUSE 

IS  POSITIVE 


KEEP  SUBTRACT 


HERE  AND  COMPENSATE* 


IF  ZERO,  SET  MINOR 
ZERCo 


IF  NEGATIVE,  ADD  C 
TO  COMPENSATE*  DIM 


PART  OF  RESULT  TO 

TO  A,  SUBTRACTING  ONE 
IS  OK  HERE  SINCE  THE 


GAP: 


ASS£^6LE  REVISION  131  CF  AGC  PRCGRAR  LUMINARY  BY  NASA  2021112-091 
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1633 

1634 

163'5  REF  lie  LAST  1057 
1636  REF  588  LAST  1057 


30 ,2625 
00,2626 
CO, ?627 
00  ,2  630 


22  007  0 
0 0006  1 
1C  130  1 
54  155  1 


FINALDV 

+ 3 


ZL 

EXTEND 
DV  6UF 

TS  MPAC  +1 


1637  REF  6 LAST  1052 

1638  REF  282  LAST  1048 

1639  REF  283  LAST  1058 

1640  REF  284  LAST  1058 


00,2631  10  136  1 
00,2632  0 C002  0 
00,2633  0 0002  0 
00,2634  0 CC02  0 


CCS 

TC 

TC 

TC 


1641 

1642 

1643 

1644 

1645 


REF  589 
REF  590 
REF  204 
REF  285 


LAST  1058 
LAST  1058 
LAST  1054 
LAST  1058 


30,2635 
00,2636 
CO, 2637 
00,2640 
00,2641 


C 0006  1 
4 C155  1 
52  155  1 
3 4755  I 
C 0002  0 


EXTEND 
DCS  MPAC 

DXCH  MPAC 

CAF  ZERO 

TC  Q 
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DC  OV  TO  OeTAIN  MINOR  PART  OF  RESULT* 


LEAVE  RESULT  POSITIVE  UNLESS  C(DVSIGN)= 

-Oo 


SO  V.E  ALWAYS  RETURN  WITH  C(A) 


GAP; 
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P16^6  IF  THE  MAJOR  PARTS  CF  THE  DIVISOR  AND  DIVIDEND  ARE  EQUAL,  BUT  THE  MINOR  PARTS  ARE  SUCH  THAT  THE 

R1648  DIVIDEND  IS  STRICTLY  LESS  THAN  THE  DIVISOR  IN  MAGNITUDE,  THE  FCLLCWING  APPROXIMATION  IS  USEDo  THE  ASSUMPTIONS 

R165n  ARE  THE  SAME  AS  THE  GENERAL  PCUTINE  WITH  THE  ADDITION  THAT  SIGN  AGREEMENT  IS  NECESSARY  (B,  C,  C D POSITIVE!* 


R1652 

R1653 

R165A 


C ♦ SB  o-  (C  + B - D) 

37777  ♦ s { > 

C + SO  (Cl 


R1655 


THE  DIVISION  MAY  66  PERFORMED  IMMEDIATELY  SINCE  B IS  STRICTLY  LESS  THAN  D AND  C IS  NOT  LESS  THAN 


1657 

1658 

1659 

1660 
1661 


LAST  1058 
LAST  1058 


LAST  1055 


:0,26A2  A 0154  0 
00,2643  6 C130  0 
00,2644  0 0006  1 
00,2645  1 2647  1 
CO, 2646  1 2570  C 


MA 


XCV 


CS  MPAC 

AO  BUF 

EXTEND 
BZF  +2 

TCF  GENDOV 


SEE  IF  MAXDV  CASE  STILL  HOLDS  AFTER 
NORMAL  I ZAT ION* 


MPAC  NOW  LESS  THAN  BUF  - DIVIDE  AS  USUAL 


1662  REF  30  LAST  1053 

1663  REF  592  LAST  1059 


30,2647  3 4733  1 +2 

CO, 2650'  54  154  C 


CAF  POSMAX 

TS  MPAC 


SET  MAJOR  PAFT  OF  RESULT* 


1664  REF  120  LAST  1059  00,2651  4 0131  0 

1665  REF  593  LAST  1059  00,2652  6 0155  0 

I6f6  REF  2 LAST  1057  CO, 2653  1 2624  1 

A 1667 


CS  BUF  +1 

AC  MPAC  +1 

TCF  FNCMAXDV 


FORM  DIVIDEND  OF  MINOR  FART  OF  RESULT* 

GO  ADO  C AND  DC  DIVIDF,  ATTACHING  SIGN 
BEFORE  EXITING* 


GAP : 

L 

P1668 

1670 

1671 

1672 

1673 

1674 

1675 

lt>76 

1677 

1678 

1679 

1680 

1681 

16  82 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 
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VECTOR  OIVIOEC  BY  SCALAR,  V/SC,  IS  EXECUTED  HEREo  THE  VECTOR  IS  NOW  IN  MPAC  WITH  SCALAR  IN  BUFo 


REF  110  LAST  1051 
REF  ^ LAST  1054 


00,2654  A 4753  C V/SC2 
)0,2655  54  137  0 


cs 

TS 


ONE 

DVNOR PC  T 


REF  53  LAST  1037 


00,2656  54  127 


TS  V6UF  +5 


INITIALIZE  DIVIDEND  NORMALIZATION  COUNT 
AND  DIVISION  SIGN  REGISTER* 


REF 


10,2657  0 3010  0 


TC  VECAGREE 


FORCE  SIGN  AGREEMENT  IN  VECTOR 


REF  121 
REF  2 
REF  122 
REF  123 
REF  1 

REF  1 


LAST  1059 
LAST  878 
LAST  1060 
LAST  1060 


00,2660 
00,2661 
•)0, 2662 
TO, 2663 

10.2664 

10.2665 
00,2666 


52  131  0 

0 7547  0 
52  131  0 
10  130  1 

1 2721  C 
1 2667  0 
1 2715  1 


DXCH  OUF 

TC  ALSIGNAG  SIGN  AGREE  BU F 

DXCH  BUF 

CCS  eUF  FORCE  DIVISOR  POSITIVE  WITH  MAJOR  PART 

TCF  /8UF+  NON-ZERO  (IF  POSSIELEI* 

TCF  +2 

TCF  /BUF- 


REF  124 
REF  125 
REF  594 
REF  595 


LAST  1160 
LAST  1060 
LAST  1059 
LAST  1060 


LAST  1153 


10,2667  56  131  1 
00,2670  56  130  0 
00,2671  56  155  0 

30.2672  56  154  1 

10.2673  0 0006  1 
00,2674  1 2676  0 
00,2675  1 2405  0 


XCH  BUF  4-1  SHIFT 

XCH  BUF 

XCH  MPAC  +1 

XCH  MPAC 

EXTEND  CHECK 

eZF  i-2 

TCF  OVOVF 


VECTOR  AND  SCALAR  LEFT  14* 

FOR  OVERFLOW  IN  EACH  CASE* 


REF  596 
REF  597 

REF  4 


LAST  1060 
LAST  1060 

LAST  1060 


00,2676 

00,2677 

00,2700 

CC,27C1 

00,2702 


56  160  0 
56  157  1 
0 0006  1 
1 2703  0 
1 2405  0 


XCH  MPAC  +4 

XCH  MPAC  +3 

EXTEND 
6ZF  +2 

TCF  OVOVF 


REF  598  LAST  1060 
REF  599  LAST  1060 

REF  5*  LAST  1060 


00,2703  56  162  I 
00,2704  56  161  1 
10,2705  0 0006  1 
00,2706  1 2710  1 
10,27C7  1 2405  0 


XCF  MPAC  +6 

XCH  MPAC  +5 

EXTEND 
BZF  +2 

TCF  OVCVF 


REF 

REF 

REF 

REF 


126 

2 

6 

2 

7 


LAST 

LAST 

LAST 

LAST 


1060 

1060 

1060 

1060 

1060 


00,2710 
00,2711 
00,2712 
00,2713 
CO, 2714 


10  130 
I 2721 
1 2405 
1 2715 
1 24C5 


1 

0 

0 

1 

0 


CCS  BUF 

TCF  /eUF4 

TCF  DVOVF 

TCF  /BUF- 

TCF  OVCVF 


ZERC  OIVISCR  - CVERFLOWo 


REF  127  LAST  1060 
REF  128  LAST  1060 
REF  54  LAST  1060 


10,2715  0 0006  1 /6UF- 

00,2716  4 0131  0 

00,2717  52  121  0 

00,2720  24  127  0 


EXTEND 
DCS  BUF 
DXCH  BUF 
INCR  VBUF  +5 


ON  NEGATIVE,  COPPLEPENT  BUF  AND  MAINTAIN 
OVSIGN  IN  VBUF  +5* 


GAP:  ASSE^BLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L INTERPRETER 


17:53  DEC*  19,lo69  SKIPPER  <,101 
USER  'S  PAGE  NOo  66 


PAGE  1061 
E3  S3 


1707 

170e  REF  129  LAST  1060 

1709  REF  16  LAST  1053 

1710  REF  1 


C0f2721  C 0006  1 /8UF+ 

30,2722  3 0131  1 

00,2723  52  134  C 

00,2724  1 2732  1 


EXTEND 
OCA  BUF 

CXCH  6UF2 
TCF  /NORM 


LEAVE  ABSIORIG  OlVISCR)  IN  BUF2 
FDR  OVERFLOW  TESTING 
NCPRALIZE  OIVISCR  IN  BUFo 


1711 

1712  REF  5 LAST  1060 

1713 

1714  REF  130  LAST  1061 

1715  REF  131  LAST  1061 


00,2725 

00,2726 

00,2727 

00,2730 

00,2731 


C‘0006  1 
2A  137  1 
0 0006  1 
3 0131  1 
20  131  0 


/NCRM2 


EXTEND 

AUG  DVNCRMCT 

EXTEND 
DCA  BUF 

DAS  BUF 


IF  LESS  THAN  <,5,  AUGMENT  OVNORMCT  AND 
CnUELE  CIVISOP* 


1716  KEF  132  LAST  1061 

1717 

1718 

1719  REF  1 


00,2732  3 0130  0 
00,2723  6 CCOO  1 
JO, 2734  54  OOO  0 
00,2735  1 2725  1 


/NORM 


CA  BUF 

DOUBLE 

OVSK 

TCF  /N0RM2 


SFE  IF  DIVISOR 

DOUBLE  AND  TRY 


NORPALI ZFDo 

AGAIN  IF  NOTr 


1720  REF  r 

1721  REF  600  LAST  1060 

1722  REF  601  LAST  1061 

1723  REF  602  LAST  1061 


00,2736  C 2750  1 
30  ,2737  52  160  1 

00,2740  52  155  1 

00,2741  52  16C  1 


TC  V/SCDV 

OXCH  MPAC  +3 
CXCH  MPAC 
OXCH  MPAC  +3 


DO  X COMPONENT  CIVICEo 

SUPPLY  ARGUMENTS  IN  USUAL  SECUENCE* 


1724  REF  2 

1725  REF  603 

1726  REF  604 

1727  REF  605 


LAST  1061  00 
LAST  1061  OO 
LAST  1U61  00 
LAST  1361  30 


,2742  0 2750  1 

,2743  52  162  0 

,2744  52  155  1 

,2745  52  162  0 


TC  V/SCDV 

CXCH  MPAC  +5 
CXCH  MPAC 
CXCH  MPAC  +5 


COMPONENT* 


1728  REF  3 LAST  1061  00,2746  C 2750  1 

1729  REF  2 LAST  1044  00,2747  1 7423  1 


TC  V/SCDV  Z COMPONENT* 

TCF  VROTATEX  GO  RE-ARRANGE  CCMPCNENTS  BEFORE  EXIT* 


GAP  : 

L 

P1730 

1732 

1733 

173A 

1735 

1736 

1737 

1738 

173  9 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 


■SSEMBLE  REVISION  131  OF  AGO  PFCGRA^  LUMINARY  PY  NASA  2021112-091 


17:53  DEC*  19,1969  SKIPPER  olOl  PAGE  1062 


INTERPRETER 


USER'S  PAGE  NCe  67  E3  S3 


SL9R0UTINE  USED  BY  V/SC  TO  DIVIDE  VECTOR  COMPONENT  IN  MPAC,+1  BT  THE  SCALAR  GIVEN  IN  BUFo 


REF  55  LAST  1060 
REF  7 LAST  1058 


00,2750  3 0127  0 V/SCOV 

00,2751  5A  136  1 


CA 

TS 


VeUF  +5 
DVSIGN 


REFLECTS  SIGN  OF  SCALAR* 


REF  606 
REF  I 

REF  1 


LAST  1061 


00,2752 

00,2753 

00,2754 

30,2755 


10  154  0 
1 2767  1 
1 2756  C 
1 2763  0 


CCS  MPAC  FORCE  MPAC  POSITIVE,  EXITING  ON  ZERO* 

TCF  /MPAC+ 

TCF  +2 

TCF  /MPAC- 


REF  607 
REF  2 
REF  286 
REF  2 
REF  287 


LAST  1062  00,2756 
LAST  1062  00,2757 
LAST  1058  00,2760 
LAST  1062  70,2761 
LAST  1062  00  ,2762 


10  155 
1 2767 
C 0002 
1 2763 
0 0002 


I 

1 

0 

0 

0 


CCS  MPAC  +l 
TCF  /MPAC+ 

TC  0 

TCF  /MPAC- 

TC  0 


REF  608  LAST  1062 
REF  609  LAST  1062 
REF  8 LAST  1062 


00,2763 
00 , 2764 
00,2765 
00,2766 


C 0006  1 
4 0155  1 
52  155  I 
24  136  0 


/MPAC- 


EXTENO 
DCS  MPAC 
OXCH  MPAC 
INCR  DVSIGN 


USUAL  COMPLEMENTING  AND  SETTING  OF  SIGN* 


REF  111 
REF  4 


LAST  1060  00,2767  4 4753  0 /MPAC+  CS  ONE 

LAST  1055  00,2770  54  14C  0 TS  MAXOVSW 


INITIALIZE  NEAR-CNE  SWITCH* 


REF  610 
REF  17 
REF.  344 
REF  1 

REF  8 
REF  5 
REF  611 
REF  18 

REF  9 


LAST  1062 
LAST  1061 
LAST  1054 


LAST  1060 
LAST  1062 
LAST  1062 
LAST  1062 

LAST  1962 


00,2771 

00,2772 

30,2773 

00,2774 

00,2775 

00,2776 

00,2777 

00,3000 

00,3001 

00,3002 

00,3003 


4 0154  C 
6 0133  0 
1C  COO  0 
1 3004  I 
1 ■>.111  0 
I 2405  0 
54  140  0 
4 0155  I 
6 0134  1 
C 0006  1 
6 2405  I 


CS  MPAC 

AD  BUF2 

CCS  A 

TCF  DOVCALL 

TC  F +2 

TCF  OVOVF 

TS  MAXOVSW 

CS  MPAC  +] 

AD  BUF2  +1 

EXTEND 

BZMF  OVCVF 


CHECK  POSSIBLE  CVERFLCW® 
UNNORMALIZEO  INPUT  DIVISOR* 

NOT  NEAR-ONE 

+0  IS  JUST  POSSIBLE 

NC  HOPE 

SIGNAL  POSSIBLE  NEAR-CNE  CASE 
SEE  IF  DIVISION  CAN  RE  DONE 


REF  612  LAST  1062 
REF  6 LAST  1061 
REF  2 LAST  1054 


00,3004 

00,3005 

CC,3Q06 


52  155  1 DOVCALL 
50  137  1 
1 2565  1 


DXCH  MPAC 
INDEX  OVNORMCT 
TCF  MAXTEST 


CALL  PRE-OIVIDE  NORMA L I ZAT I CN* 


gap: 

L 

1763 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 


ASSEMBLE  REVISION  131  OF  AG C PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECu  IQ, 1969  SKIPPER  olOl  PAGE  1063 


I MERPPETER 


USER’S  PAGE  NCo  68  E3  S3 


00,3007 


32506  0 SLCFELC  DEC 


«8324 


REF  288 
REF  613 
REF  3 
REF  614 
REF  615 
REF  4 
REF  616 
REF  617 
REF  5 
REF  618 
REF  345 


LAST  1062 
LAST  1062 
LAST  1060 
LAST  1063 
LAST  1063 
LAST  1063 
LAST  1063 
LAST  1063 
LAST  1063 
LAST  1063 
LAST  1062 


10,3010 
00,3011 
00,3012 
00,3013 
C0,3C14 
00,3015 
00,3016 
00,3017 
10,3020 
10  ,3021 
00,3022 


56  002  0 
52  155  1 
C 7547  C 
52  155  1 
52  160  1 
0 7547  0 
52  160  1 
52  162  0 
0 7547  0 
52  162  0 
C CCOC  I 


VECAGR6E  XC  F 0 

OXCH  MPAC 

TC  ALSIGNAG 

DXCH  MPAC 

CXCH  MPAC  +3 

TC  ALSIGNAG 

CXCH  MPAC  +3 

DXCH  MPAC  +5 

TC  ALSIGNAG 

DXCH  MPAC  +5 

TC  A 


SAVE  C IN  A 
SIGNAGREE  MPAC 

SIGN  AGREE  MPAC  +3 

SIGNAGREE  MPAC  +5 


gap: 

L 

P1775 

1777 

1778 

1779 

1780 

1781 

1782 

178^ 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1806 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 


ASSE^'BLF  REVISION  131  CF  AGC  PRCC-RAf^  LUMINARY  3Y  NASA  2021112-C91 


17:53  DECa  19,1969  SKIPPER  ,101  PAGE  1064 


INTERPRETER 


USER'S  PAGE  NOo  69  E3  S3 


THE  FOLLOWING  ROLTINE  EXECUTES  THE  UMT  INSTRUCTION,  WHICH  TAKES  THE  UNIT  CF  THE  VECTCP  IN  MPAC« 


REF  2 
REF  3 
REF  205 
REF  6 
REF  20 
REF  1 
REF  21 
PEF  7 


LAST  1060 
LAST  1033 
LAST  1058 
LAST  1051 
LAST  919 


LAST  1064 
LAST  1064 


REF  10  LAST  1062 

REF  619  LAST  1063 
REF  46  LAST  1018 
REF  1 


70  ,3023 

00,3024 

00,3025 

00,3026 

C0,3C27 

00,3030  • 

00,3031 

00,3032 

10,3033 

00,3034 

00,3035 

00,3036 

00,3037 

00,3040 

00,3041 


0 3010  0 UMT 
0 7535  0 
3 4755  1 
56  121  0 
54  141  1 

0 3317  I 
3 0141  0 
56  121  0 
0 0006  1 

1 3036  0 
1 2405  0 
0 0006  1 
3 0155  0 
50  120  1 
52  043  1 


VECAGREE 

MPACVBUF 

ZERO 

OVFINC 

TEM 

VSOSUfl 

TEMl 

OVFINO 


EXTEND 

ezF  ♦? 

TCF  nVOVF 
EXTEND 
DCA  KPAC 

INDEX  FlXLOC 
CXCH  LVSQUARE 


FORCE  SIGN  AGREEMENT  IN  VECTOR 

SAVE  ARGUMENT  IN  VEUF 

MUST  SENSE  OVERFLOW  IN  fCLLCWING  00T« 


DOT  MPAC  WITH  ITSELFo 


LEAVE  THE  SQUARE  OF  THE  LENGTH  OF  THE 
ARGUMENT  IN  LVSQUAREa 


REF 


00,3042  0 3343  0 


TC  SQRTSUe 


GO  TAKE  THE  NORMALIZED  SQUARE  RODTo 


REF  620  LAST  1064 

REF  203'  LAST  1055 
KEF  47  LAST  1064 
REF  1 

REF  11  LAST  1064 


10.3045 

30.3046 
00,3047 
00,30  50 


54  OCl  1 
50  120  1 
52  045  1 
I 2405  0 


CCS  MPAC 

TCF  +5 

TS  L 

INDEX  FlXLOC 

DXCH  IV 

TCF  DVOVF 


INPLT  TO  SQRTSUB  WAS  Oo 


REF  2 LAST  568 
REF  47  LAST  1050 
KEF  346  LAST  1063 

REF  1 


00,3051  4 4317  1 
00,3052  6 0135  0 
10,3053  10  000  0 
00,3054  4 OOCO  0 
00,3055  1 3133  1 


CS  FOURTEEN 

AO  MPTEMP 

CCS  A 

CCM 

TCF  SMALL 


SEE  IF  THE  INPUT  WAS  SO  SMALL  THE  THE 
FIRST  TWO  REGISTERS  OF  THE  SQUARE  WERE  0 

IF  SO,  SAVE  THE  NEGATIVE  OF  THE  SHIFT 
CCUNT  -150a 


REF  1 


00,3056  1 3065  0 


TCF  LARGE 


(THIS  IS  USUALLY  THE  CASE-) 


PEF  1 

REF  48  LAST  1064 


00,3057  4 4761  1 

00,3060  54  135  1 


CS  THIRTEEN 

TS  MPTEMP 


IF  THE  SHIFT  COUNT 
THE  PRE-DIVIOE  NOP 


WAS  EXACTLY  14,  SET 
’ CCUNT  TO  -130a 


REF  621 
REF  204 
REF  206 
REF  1 


3 0154  1 
54  COX  1 
3 4755  1 
1 3U2  1 


CA  MPAC 

TS  L 

CAF  ZERO 

TCF  LAPGE2 


SHIFT  THE  LENGTH  RIGHT  14  BEFORE  STORING 
(SMALL  EXITS  TO  THIS  PCINTIa 

GC  TO  STORE  LENGTH  AND  PROCEEOo 


REF  49  LAST  1064 
REF  I 


00,3065  10  135  1 LARGE 

00,3066  1 3074  0 


CCS  MPTEMP 
TCF  LARGE3 


MOST  ALL  CASES  COME  HERFa 

SEE  IF  NO  NORMALIZATION  WAS  RFQUIREO  BY 


REF  1 
PEF  50 

REF  622 


LAST  1064 
LAST  1064 


CO, 3067 

10.3070 

10.3071 
00,3072 


4 2024  1 
54  135  1 
0 0006  1 
3 0155  0 


CS  SRDOV 

TS  MPTFMP 

EXTEND 
OCA  MPAC 


SCRT,  AND  IF  SC,  SET  UP  FOR  A SHIFT 
RIGHT  1 BEFORE  DIVIDING  TC  PRODUCE 
THE  DESIRED  HALF  UMT  VECTORa 


GAP:  ASSEMBLE  REVISION  131 

L INTERPRETER 

1617  REF  2 LAST  106A 


OF  AGC  PROGRAM  LUMINARY 


C0f3Q73  1 3112  1 


BY  NASA  2021112-091 


TCF  LARGE2 


17:53  CECo  19,1969  SKIPPER  olOl  PAGE  1065 
USER'S  PAGE  NCo  7C  E3  S3 


I 


GAP: 

L 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 


ASSE^'6LE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  OECo  19,1969  SKIPPER  olOl  PAGE  1066 


INTERPRETER 


USER 'S  PAGE  NOc  71  £3  S3 


00,3074  4 nOCC  0 LARGE3  CCV 

REF  51  LAST  1064  00,3075  54  135  I TS 


MPTEMP 


LEAVE  NEGATIVE  CF  SHIFT  COUNT-1  FOR 
PREniVIDE  LFFT  SHIFT* 


REF  347 
REF  62 
REF  133 

REF  623 
REF  134 

REF  624 
REF  205 
REF  135 
REF  206 


LAST  1064 
LAST  in/V9 
LAST  1061 

LAST  1064 
LAST  1066 

LAST  1066 
LAST  1064 
LAST  1066 
LAST  1066 


00,3076 
TO, 3077 
on, 3 100 
00,3101 
00,3102 
00,3103 
00,3104 
00,3105 
00,3106 
00,3107 
00,3110 
00,3111 


4 0000  0 
5C  000  I 
3 4736  I 
54  13f  I 
0 0006  1 
7 0155  I 
56  130  0 
0 0006  1 
7 0154  O' 
56  OCl  0 
6 0130  0 
56  CCl  0 


COM 

INDEX  A 

CAF  eiT14 

TS  BUF 

EXTEND 

MP  MPAC  - 

XCH  BUF 

FXTEND 
MP  MPAC 

XCH  L 

AO  BUF 

XCH  L 


PICK  UP  REQUIRED  SHIFTING  BIT  TO  UNNORM- 
ALl ZE  THE  SCPT  RESULT* 


(UNNORMALIZE  THF  SCRT  FOR  LV)* 


REF  48  LAST  1064 
REF  2 LAST  1064 


00, 3112  50  120  1 LARGe2  INDEX  FIXLOC 
00,3113  52  045  1 OXCH  LV 


LENGTH  NOW  STORED  IN  WORK  AREA« 


REF  112  LAST  1062 
REF  6 LAST  1062 


00,3114  4 4753  C 

00,3115  54  140  0 


CS  ONE 

TS  MAXDVSW  NO  MAXDV  CASES  IN  UNIT© 


PEF  56 
REF  625 
REF  136 
REF  1 


LAST  1062 
LAST  1066 
LAST  1C66 


00,3116 
00 ,3117 
00,3120 
00,3121 


52  123  0 
52  155  1 
52  131  0 
0 3151  1 


DXCH  VeuF  PREPARE  X COMPONENT  FOP  DIVIDE,  SETTING 

OXCH  MPAC  LENGTH  OF  VECTOR  AS  OIVISCR  IN  BUF* 

CXCh  BUF 
TC  UNITDV 


REF  57  LAST  1066  00,3122  52  125  0 CXCH 

REF  626  LAST  1066  00,312'  52  155  1 DXCH 

REF  627  LAST  1066  00,3124  52  160  1 OXCH 

REF  2 LAST  1066  00,3125  0 3151  1 TC 


VBUF  +2  DO  Y AND  Z IN  USUAL  FASHION  SO  WE  CAN 

MPAC  EXIT  THROUGH  VROTATFX* 

MPAC  +3 
UNITDV 


REF  629 
PEF  3 
REF  3 


LAST  1066  00,3130  £2  162  0 
LAST  1066  00,3131  0 3151  1 
LAST  1061  00,3132  1 7423  1 


OXCH  VBUF  +4 
DXCH  MPAC 
CXCH  MPAC  +5 
TC  UNITDV 

TCF  VROTATFX 


AND  EXIT* 


gap: 

L 

P1849 

R 1851 

1853 

185^ 

1855 

1856 

1857 

1658 

1059 

1060 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1068 

1869 


ASSEMBLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DEC«  19,1969 


SKIPPER  elOl  PAGE  1067 


INTERPRETER 


USER'S  PAGE  NC«  72  E3  S3 


IF  THE  LENGTH 
lA  PLACES  BEFORE  THE  DI 


OF  THE  ARGUMENT 
VIOE,  NCTE  THAT 


VECTOR  WAS  LESS  THAN  21-26),  EACH  COMPONENT  MUST  BE  SHIFTED  LEFT  AT  LEAST 
IN  THIS  CASE,  THE  MAJOR  PART  OF  EACH  COMPONENT  IS  ZEROc 


KEF  52  LAST  1066 


00 


3133  54  135  1 


SMALL 


TS  MPTEMP 


NEGATIVE  CF  PRE-DIVICE  SHIFT  COUNT* 


REF 

REF 

REF 

REF 

REF 


60  LAST  1067 

61  LAST  1C67 

62  LAST  1067 

63  LAST  1067 

64  LAST  1067 


00,3134 

00,3135 

00,3136 

00,3137 

00,3140 

00,3141 

00,3142 


3 4755  1 
56  123  1 
56  122  0 
56  125  1 
56  124  0 
56  127  0 
56  126  1 


CAF  ZERO 

XCH  VBUF  +1 

XCH  V6LF 

XCH  VeUF  +3 

XCH  VBUF  +2 

XCH  VBUF  +5 

XCH  VBUF 


SHIFT  EACH  COMPONENT  LEFT  lA^ 


REF  53  LAST  1067 
REF  348  LAST  1066 
REF  63  LAST  1066 

REF  630  LAST  1066 
REF  1 


00,3143  4 0135  1 
00,3144  50  000  1 
00,3145  3 4736  1 
00,3146  C 0006  1 
00,3147  7 C154  0 
00,3150  1 3062  1 


CS  MPTEMP 

INDEX  A 

CAF  BITJ4 

EXTEND 
MP  MPAC 

TCF  SMALL2 


REF  4 LAST  945  4761 

REF  1 4317 

PFF  13  LAST  461  4317 


THIRTEEN 

FCLRTEEN 

0CT16 


0CT15 

0CT16 

PlOl 


GAP: 


SKIPPFR  clOl  PAGf  1066 


ASSEMBLE  PEVISIO^  131  CF  AGC  PPCGRAP  LUMINARY  BY  NASA  202U12-C';i  17:53  PEC®  19, 196° 

INTERPRETER  USER’S  PAGE  NOo  73  E3  S3 

TFE  FCLLUWING  ROUTUE  SETS  UP  THE  CALL  TO  Tt-E  DIVIDE  RCLTINES. 


1071  REF  631  LAST  1067 

1872  REF  1 

1873 

187A  REF  1 


00,3151 

00,3152 

10,3153 

00,315A 


1C  154  n 
1 3170  0 
I 3155  I 
1 3162  0 


UMTOV 


CCS  MPAC  FORCE  MPAC  POSITIVE  IF  POSSIBLE,  SETTING 

TCF  UMPAC+  DVSI6N  ACCORDING  TC  THE  SIGN  OF  MPAC 

TCF  +2  SINCE  THF  DIVISCR  IS  ALV,AYS  POSITIVE 

TCF  UMPAC-  HERE® 


1875  REF  632  LAST  1068 

1876  REF  2 LAST  1068 

1877  REF  289  LAST  1063 

187fl  REF  2 LAST  1068 

1879  REF  290  LAST  1068 


JO 

00 

00, 

00, 

CO 


.3156 

,3157 

,3160 

.3161 


10  155 
1 3170 
C 0002 
1 3162 
C 0002 


CCS  MPAC  +1 

TCF  UMPAC+ 

TC  Q EXIT  IMMEDIATELY  ON  ZERO® 

TCF  UMPAC- 

TC  0 


1880 

1881 

1882 

1883 

1884 

1885 


REF  208 
REF  9 


REF  633 
REF  54 
REF  3 


LAST  1067 
LAST  1062 


LAST  1068 
LAST  1067 
LAST  1062 


JO  ,3163 
00,3164 
'10,3165 
JO ,3166 
00,3167 


4 4755-  0 
54  136  1 
C CCC6  1 
4 0155  1 
50  135  0 
1 2564  0 


UMPAC- 


CS  ZERO 

TS  OVSIGN 

EXTEND 
DCS  MPAC 

INDEX  MPTEMP 

TCF  MAXTEST  -1 


IF  negative,  SET  -0  IN  CVSIGN  FOR  FINAL 
COMPLEMENT® 

PICK  UP  A8SCLUTE  VALUE  CF  ARG  AND  JUMP® 


1866 

1887 

1868 

1809 


REF  10  LAST  1068 
REF  634  LAST  1068 
REF  55  LAST  1068 
REF  4 LAST  1068 


00,3170  54  136  1 
00,3171  52  155  1 
JO, 3172  50  135  0 
00,3173  1 2564  0 


UMPAC+ 


TS  OVSIGN 

DXCH  MPAC 
INDEX  MP7EMP 
TCF  MAXTEST  -1 


SET  OVSIGN  FOR  POSITIVE  QUOTIENT® 


gap:  assemble  REVISION  131  OF  AGC  PPOGRAP  LUMINARY  8Y  NASA  202]n2-0Rl 


L INTERPRETER 


P1890 


MISCELLANECLS  UNARY  CPERATIONSe 


1091 

1892 


REF  1 10,317A 

REF  3^  LAST  1054  00,3175 


C 33C0  1 
1 6064  1 


OSQ 


TC  0SCSU8 

TCF  DANZIG 


1893 

1894 
1095 


REF  33  LAST  105C 
REF  3 LAST  819 
REF  4 last  1069 


CO, 3176  10  163 
00,3177  1 3226 
00,3200  1 3226 


1 ABVALABS  CCS 
0 TC  F 

0 TCF 


MCCE 

ABS 

ABS 


1896 

1897 


REF  2 LAST  1064 
REF  34  LAST  1069 


00,3201  0 3317  I AEVAL 

00,3202  22  163  0 


TC  VSCSUB 

LXCH  MUOE 


1898 

1899  REF  635  LAST  1068 

1900  REF  - 49  LAST  1066 

1901  RFF  2 last  1064 


00,3203  C 0006  I 
00,3204  3 0155  0 
00,3205  50  120  1 
00,3206  52  043  1 


EXTEND 
OCA  MPAC 
INDEX  FIXLOC 
DXCH  LVSQUARE 


17:53  D6C«  19,1969  SKIPPER  101  PAGE  1069 


USER'S  PAGE  NCo  74  E3  S3 


SQUARE  THE  DP  CONTENTS  OF  MPACo 


APVAL  DR  ABS  INSTRUCTIONo 
DO  ABS  CN  SCALAR^ 


DCT  MPAC  W ITH  ITSELF# 

MODE  IS  NOW  DP  (L  ZERO  AFTER  DAS)o 

STORE  SQUARE  OF  LENGTH  IN  WORK  AREA# 


GAP: 

L 

P190? 

R190? 

R1904 

R1906 

R1908 

R1910 

R1912 

R1914 

R1916 

R1917 

R1919 

R1920 

R1921 

R 1922 

1923 

1924 

1925 

1926 

1927 

1926 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 
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17:53  DECo  19  ,196' 


SKIPPER  ^ 101  PAGE  1070 


I NTERPRETER 


USER • S PAGE  NO.  75  E3  S3 


PROGRAM  DESCRIPTION-  SUBROUTINE  SORT 
FLNCTICNAL  CES  CR  I PT  I C N- HOU  BL  E PRECISION  SQUAR 
THIS  PROGRAM  TAKES  THE  SCUARE  ROOT  OF  THE 
NUMBERS-MPACiMPAC+lfANG  MPAC*2b  THE  ROOT 
V.ARMNG-  THIS  SUBROUTINE  USES  A TRIPLE  PRECIS 
ESPECIALLY  IF  THE  CONTENTS  CF  MPAC  IS  SMA 
CALLING  SEQUENCE-  IN  INTERPRETIVE  MODE  1 
INPUT  SCALING  THE  BINARY  PCINT  IS  ASSUMED  TO 
SUBROUT  INES-  GENSCR ,MPAC  SHR,  SORT  SUB , A0OR T 
ABORT  EXIT  MCDE-  ABORTS  ON  NEGATIVE  INPUT 
DISPLAYS  ERROR  CCOE  1302  • 

TC  ABORT 
OCT  1302 

DEBRIS  - LOCATIONS  B LF  , MPTE MP  , AOORWD  ARE  USE 
RFF  2 LAST  1064  00,3207  0 3343  0 SORT 

REF  56  LAST  1068  00f3210  10  135  1 

00,3211  1 3213  C 

REF  35  LAST  1069  00,3212  1 6064  1 


ROOT  ROUTINE 

27  OR  26  MOST  SIGNIFICANT  BITS  IN  THE  TRIPLE  PRECISION  SET  OF 
IS  RETURNED  DOUBLE  PRECISION  IN  MPAC  AND  MPAC+1, 

ION  INPUT.  THE  PPOGRAMMFR  MUST  ASSURE  THE  CONTENTS  OF  MPAC+2 
LL  CR  ZERO.  FOR  DETAILS  SFE  STG  MEMO  Nno949<, 

FOLLOWING  TC  INTPPET.SORT  NO  ADDRESS  IS  ALLOWED 
THE  RIGHT  OF  BIT  15.  THE  ANSWER  IS  RETURNEP  WITH  THE  SAME  SCALING 


2X10E-4  ( 77775  OCTAL  > 


TC  SORTSUB 

CCS  MPTEMP 

TCF  +? 

TCF  DANZIG 


OR  LESS. 


TAKE  THE  SQUARE  RCCT  CF  MPACo 
RETURNED  NORMALIZED  SQUARE  ROOT.  SEE  IF 
ANY  UN-NORMAL IZATIGN  REQUIRED  AND  EXIT 
IF  NOT. 


REF  3 LAST  1049 

REF  1 

REF  80  LAST  1050 

REF  4 LAST  1049 


00,3213  6 3733  0 

00,3214  0 0006  1 

00  ,3215  6 3221  0 

00,3216  22  007  0 

00,3217  22  116  1 

00,3220  1 2303  1 


AL  NEG12 

EXTEND 

6ZMF  SQRTSHFT 
ZL 

LXCH  AUDRWD 
TCF  GFNSCR  +4 


A RIGHT  SHIFT  OF  MORE  THAN  13  COULD  BE 
REQUIRED  IF  INPUT  WAS  ZERO  IN  MPAC,+T, 
GOES  HERE  IN  MOST  CASES. 

IF  A LONG  SHIFT  IS  REQUIRED,  60  TO 
GENERAL  RIGHT  SHIFT  ROUTINES. 

ADORWO  WAS  ZERO  TO  PREVENT  ROUND, 


REF  57  LAST  1070 
REF  38  LAST  1020 
RFF  58  LAST  1070 
RFF  209  LAST  1068 
REF  2 LAST  1049 


00,3221  50  135  0 SQRTSHFT  INDEX 


00,3222  3 4735  1 CAP 

00,3223  54  135  1 TS 

CO, 3224  3 4755  1 CAF 

00,3225  1 2036  1 TCF 


MPTFMP 

BIT15 

MPTEMP 

ZERO 

MPACSHR  +3 


SELECT  SHIFTING  BIT  ANO  EXIT  THROUGH 
SHIFT  ROUTINE  So 

TC  ZERO  MPAC  +2  IN  THE  PROCESS^ 


REF  .5  LAST  1046 
REF  36  LAST  1070 
REF  37  LAST  1070 
REF  4 last  1040 


00,3226  C 6726  1 ABS 
00,3227  1 6064  1 

00,3230  1 6064  J 

00,3231  1 7673  0 


TC  BRANCH 
TCF  DANZIG 
TCF  DANZIG 
TCF  COMP 


TEST  SIGN  OF  MPAC  AND  COMPLEMENT  IF 


gap: 

L 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 
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INTERPRETER 


USFR*  S PAGE  NCo  76  E3  S3 


REF  22 
REF  23 

REF  3A9 

REF  636 

REF  24 

REF  637 
REF  2 


LAST  1035 
LAST  1038 

LAST  1067 

LAST  1069 

LAST  1071 

LAST  1071 
LAST  1035 


CO, 3232 
CO, 3233 
00,3234 
00,3235 
00,3236 
30,3237 
00,3240 
00,3241 
00,3242 
33,3243 
or, 3244 


4 4751  I 
26  166  1 
C 0006  1 

5 CCCC  J 
3 0003  1 
5 2 160  1 

0 C006  1 
5 C166  0 
3 CCOl  0 
52  162  0 

1 6524  0 


VDEF 


CS 

ADS 

EXTEND 

INDEX 

or.  A 

CXCH 

EXTEND 

INDEX 

OCA 

OXCH 

TCF 


FOUR 

PUSHLOC 

A 

2 

MPAC  +3 

PUSHLCC 

0 

MPAC  +5 
VMOCE 


VECTOR  OEFINF  - ESSENTIALLY  TREATS 
SCALAR  IN  MPAC  AS  X CCMPONENT,  PUSHES  UP 
FOR  Y AND  THEN  AGAIN  FOR  Zo 


MODF  IS  NON  VECTOPo 


3 LAST  1069 
1 


00,3245  C 3317  1 VSC 
00,3246  1 7335  1 


DOT  MPAC  W ITH  ITSELFo 
MODF  IS  NCW  DPo 


REF  638  LAST  1071 
REF  25  LAST  1071 


CO, 3247  0 0006  1 PUSH 

00,3250  3 0155  0 

00,3251  50  166  0 

00,3252  52  COl  1 


EXTEND 
DC  A MPAC 
INDEX  PUSHLOC 
OXCH  0 


PUSH  DOWN  MPAC  LEAVING  IT  LOAOEDc 
PUSH  DOhN  FIRST  TWC  RFGISTEPS  IN  EACH 


REF  35 
REF  5 
REF  26 


LAST  J069 
LAST  1015 
LAST  1C71 


CO, 3253 
00,3254 
CO, 3255 


50  163  0 
3 6247  0 
26  166  1 


INDEX  MODE  INCREMENT  PUSHDCWN  PCINTERo 

CAF  NGcHDS 
ACS  PUSHLCC 


REF  36 
REF  1 
REF  -38 


LAST  1071 
LAST  1070 


00,3256 

00,3257 

00,3260 


10  163  1 
1 3272  1 
1 6064  1 


CCS  MODE 

TCF  TPUSH  PUSH  DOWN  MPAC  +2o 

TCF  DANZIG  CONE  FOR  CP* 


REF  639 
REF  27 


REF  640 
REF  28 

REF  39 


LAST  1071 
LAST  1071 


LAST  1071 
LAST  1071 

LAST  1071 


00,3261 

00,3262 

00,3263 

00,3264 

00,3265 

00,3266 

'10,3267 

00,3->70 

00,3271 


0 0006  1 
3 016C  0 
50  166  0 
51*775  0 
C 0006  1 
2 0162  1 
50  166  0 
51*777  1 
1 6064  1 


EXTEND 

OCA  MPAC  +3 
INDEX  PUSHLOC 
DXCH  0 -4 
EXTEND 

DCA  MPAC  ^■5 
INDEX  PUSHLOC 
DXCH  0 -2 
TCF  DANZIG 


ON  VECTOR,  PUSH  DOWN  Y AND  Z COMPONENTS* 


REF  641  LAST  1071  00,3272  3 0156  0 TPUSH 

REF  2 LAST  1014  00,3273  1 6557  1 


CA  MPAC  *2 

TCF  ENDTPUSH  +? 


REF  50  last  1069  00,3274  50  120  1 PVC  INDEX 

REF  9 LAST  1017  00,3275  3 CC52  0 CA 

REF  22  LAST  1029  00,3276  54  117  1 TS 

REF  5 LAST  1018  00,3277  1 6655  0 TCF 


FIXLOC  RVO  - RETURN  I VA  OPPET* 

QPRET 

POLISH 

GOTO  +4  (ASSUME  QPRET  POINTS  TO  FIXED  ONLYd 


GAP : 

L 

P1980 

R 1982 

1983 

198A 

1985 

1986 

1987 

1968 

1969 

1990 

19Q1 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2C'01 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 
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INTERPRETER  USER'S  PAGE  NOo  77  E3  S3 

THE  FCLLCWING  SUBROUTINES  ARE  USED  IN  SQUARING  MPAC,  IN  BOTH  THE  SCALAR  AND  VECTOR  SENSEo  THEY  ARE 
SPECIAL  CASES  OF  DMPSL8  AND  CCTSU8,  PUT  IN  TO  SAVE  SCME  TIMEo 


REF  642 


REF  643 
REF  210 
REF  644 

REF  645 

REF  646 
REF  647 


REF  648 
REF  291 


LAST  1071 


LAST  1072 
LAST  107C 
LAST  1072 

LAST  1072 

LAST  1072 
LAST  1072 


LAST  1072 
LAST  1068 


00,3300 
00,3301 
•3C,  33C2 
00,3303 
00,3304 
00,3305 
00,3.3  06 
00,3307 
00 ,3310 
00,3311 
00,3312 
00,3313 
00,3314 
GO, 3315 
00,3316 


3 0155  0 
0 0006  1 
7 OCCC  C 
54  156  1 
3 4755  1 
56  155  0 
C 0006  1 
7 0154  0 
20  noi  1 
20  156  1 
56  159  1 
0 0006  1 
7 QOCO  0 
2C  155  1 
0 0002  0 


DS0SU8 


CA  MPAC  +l  SQUARES  THE  SCALAR  CONTENTS  OF  MPACt, 

EXTEND 

SQUARE 

TS  MPAC  +2 

CAF  ZERO  FORM  2(CR0SS  TERM), 

XCH  MPAC  +l 

EXTEND 

MP  MPAC 

DDOUBL  AND  MAYBE  OVERFLOW, 

CAS  MPAC  +1  AND  SET  A TO  NET  OVERFLOW 

XCH  MPAC 

EXTEND 

SQUARE 

DAS  MPAC 

TC  0 


REF  8 
REF  2 
REF  649 
REF  650 
REF  137 
REF  651 
REF  138 


LAST  1027 
LAST  1069 
LAST  1072 
LAST  1072 
LAST  1066 
LAST  1072 
LAST  1072 


00,3317 

00,3320 

00,3321 

00,3322 

00,3323 

00,3324 

00,3325 

00,3326 


C 3300  1 
52  16C  1 
52  155  1 
52  131  0 
3 0156  0 
54  132  0 


VSCSUB 


EXTEND 

OXCH  DOTRET 

TC  OSOSUB 

DXCH  MPAC  +3 

OXCH  MPAC 

DXCH  BUF 

CA  MPAC  +2 

TS  BUF  +2 


DOTS  THE  VECTOR  IN  MPAC  WITH  ITSELF, 
SQUARE  THE  X COMPONENT, 

SO  WE  CAN  END  IN  OOTSUB« 


REF  3 
REF  652 
REF  139 
REF  653 
REF  190 
REF  191 

REF  8 


LAST  1072 
LAST  1072 
LAST  1C72 
LAST  1072 
LAST  1072 
LAST  1072 

LAST  1064 


00,3327 
10 ,3330 
00,3331 
00,3332 
00,3333 
00,3334 
00,3335 
00,3336 


C 33C0  1 
52  156  1 
20  132  0 
6 C154  1 
6 0130  0 
54  130  1 
1 3337  1 
54  121  1 


TC  DSCSUB  square  Y COMPONENT, 

OXCH  MPAC  +1 

CAS  BUF  +1 

AD  MPAC 

AD  BUF 

TS  BUF 

TCF  +2 

TS  CVFIND  IF  OVERFLOW, 


REF  654  LAST  1072 
REF  655  LAST  1072 
REF  9 LAST  1072 
REF  1 


00,3337  52  162  0 
00,3390  52  155  1 
00,3391  Q 3300  1 
00,3392  1 7210  1 


DXCH  MPAC  +5 
OXCH  MPAC 
TC  OSCSUB 

TCF  ENDOCT 


SQUARE  Z COMPONENT, 
END  AS  IN  DPTSUB, 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
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P20I8 

R2020 

R2022 


I NTERPRETER 


USER'S  PAGE  NCo 


DOUBLE  PRECISION  SQUARE  RCCT  BCUTINE*  TAKE  THE  SQUARE  RCCT  OF  ThE  TRIPLE  PRECISION  (MPAC  +2  USED  ONLY 
IN  NORMALIZATION!  CONTENTS  OF  MPAC  AND  LFAVE  ThE  NORMALIZED  RESULT  IN  MPAC  (CIMPACI  GREATER  THAN  OR  EQUAL  TO 
o5»*  THE  RIGHT  SHIFT  CCUNT  (TC  UNNCPMALIZEI  IS  LEFT  IN  MPTEMP* 


SQRTSUB  CAF 


START  BY  ZEROING  RIGHT  SHIFT  COUNT* 


2025 

2026 
2027 
2026 


REF 


Q0,33A5 

00,33^6 

30,3347 

00,3350 


ir  154  0 
1 3405  1 
1 3351  1 
1 3373  1 


CCS 
TCF 
TC  F 
TCF 


CHECK  FOR  POSITIVE  ARGUMENT,  SHIFTING 
FIRST  SIGNIFICANT  MPAC  REGISTER  INTO 
MPAC  ITSELF* 

SEE  IF  MAG  OF  ARGUMENT  LESS  THAN  l0(-4>* 


202« 

2030 

2031 

2032 

2033 


REF  657 
REF  658 
REF  659 
REF  14 
REF  60 


LAST  1073 
LAST  1073 
LAST  1073 
LAST  955 
LAST  1073 


10  ,3351 
CC,3352 
00,3352 
30,3354 
00,3355 


56  156  0 
56  155  0 
5<  154  0 
3 4757  0 
54  135  1 


CAF 

TS 


MPAC  +2 
MPAC  +! 
MPAC 
SEVEN 
MPTEMF 


MPAC  IS  ZERO  - SHIFT  LEFT  14* 

AUGMENT  RIGHT  SHIFT  CCUNTER* 


2034 

2035 

2036 

2037 


00,3356 
00,3357 
00, 3360 
10,3361 


10  154  0 
1 3405  1 
1 3362  1 
1 3376  1 


CCS 

TCF 

TCF 

TCF 


ZEROANS 


SEF  IF  MPAC  NOW  PN2* 


NEGATIVE  BUT  LESS  THAN  in{-4)  IN  MAG* 


2038 

2039 

2040 
2041, 


KEF  661 
REF  662 
REF  15 
REF  61. 


LAST  1C73 
LAST  1073 
LAST  1073 
LAST  1073 


00,3362 

00,3363 

00,3364 

00,3265 


56  155 
5 4 154 
3 4757 
26  135 


CAF 

AOS 


MPAC  +■ 
MPAC 
SEVEN 
MPTEMF 


ZERO  - SHIFT  LEFT  14  AGAIN* 
AUGMENT  RIGHT  SHIFT  COUNTER* 


2042 

2043 

2044 

2045 

2046 


REF  663 
REF  3 
REF  292 
REF  2 
REF  1 


LAST  1073 
LAST  1073 
LAST  107  2 
LAST  1073 


00,3366 

00,3367 

00,3370 

00,3371 

00,3372 


1C  154  0 
1 3405  1 
C 0CC2  0 
1 3376  1 
1 3453  1 


SQRTIOI  = 0* 

DO  NOT  LEAVF  SQRTSUB  WITH 


SQRTABRT 


2049 

2050 

2051 

2052 

2053 


REF  664 
REF  212 
REF  2 
REF  2 
REF  3 


LAST  1073 
LAST  1073 
LAST  1C73 
LAST  1073 
LAST  1073 


00,3375 

00,3376 

00,3377 

00,3400 

00,3401 


1C  155  1 
3 4755  1 
1 3453  1 
1 3402  C 
1 3453  1 


TCF 

TCF 

TCF 


MPAC  +1 
ZERO 
FI XPCOT 
SQRTABRT 
F I XROOT 


2054 
20541 

2055 


27  LAST  1019 


00, 34C2 
00,3403 
00,3404 


52  165  1 
0 5716  1 
21302  0 


SQRTABRT  DXCH 


LCC 

POOOOOl 

21302 


CO, 3405  6 2444  I SMPAC+ 


SEE  IF  ARGUMENT  GREATER  THAN  OR  EQUAL  TO 


GAP: 

L 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2060 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2060 

2001 

2062 

2003 

2084 

2085 

2066 

2087 

2088 

2069 

2090 

2091 

2092 

2093 

2094 

2095 

2096 
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INTERPRETER 


USER*  S PAGE  NCo  79  E3  S 3 


REF 


1 


90,3406  C 0006  1 EXTEND  j5o 

00,3407  6 3456  0 BZPF  SRTEST  IF  SO,  SEE  IF  LESS  THAN  o25* 


REF  665 
REF  16 

REF  19 
REF  666 
REF  17 
REF  667 


LAST  1073 
LAST  1055 

LAST  1055 
LAST  1074 
LAST  1074 
LAST  1074 


00  ,3410 
00,3411 
00,3412 
00,3413 
00,3414 
00,3415 
00,3416 


0 0006  1 
7 4736  0 
52  155  1 
56  021  1 
26  155  1 


DXCH  MPAC  WE  WILL  TAKE  THE  SCUAP6  ROOT  OF  MPAC/2» 

LXCh  SR  SHIFT  RIGHT  1 AND  GC  TO  THE  SORT  ROUTINE 

EXTEND 

MP  HALF 

DXCH  MPAC 

XCH  SR 

ADS  MPAC  +1  GUARANTEED  NO  OVERFLOW^ 


REF  1 

REF  668  LAST  1074 
REF  1 


30,3417-  3 2314  0 ARGHI 

00,3420  0 0006  1 

00,3421  7 0154  0 

00,3422  6 2566  0 


CAF  SLOPEHI 

EXTEND 
Yp  MPAC 

AO  6IASHI 


ARGUMENT  BETWEEN  *25  AND  o 5o  GET  A 
LTNFAR  APPROXI MATT CN  FOR  THIS  RANGE* 

XO/2  = (MPAC/2) (SLCPFHIl  + 6IASHI/2* 


REF  142  LAST  K72 
REF  669  LAST  1074 


REF  143  LAST  1074 

REF  20  LAST  1C74 
REF  144  LAST  1074 


00,3423  54  130  1 
00,3424  3 C154  1 
00,3425  22  007  0 
00,3426  C 0006  1 
00,3427  1C  130  1 
00,3430  0 0006  I 
30,3431  7 4736  0 
30,7432  26  130  1 


+ 4 


TS  PUF 

CA  MPAC 

ZL 

EXTEND 
DV  BUF 

EXTEND 
MP  HALF 

ADS  PUF 


XO/2  (ARGLD  ENTERS  HERE), 
SINGLE-PRECISION  THRCUGHOUT* 

{MPAC/2 )/ (XO/2  > 

XI  = XO/2  + = 5 {MPAC/2 I / lXO/2 I • 


REF  21 
REF  670 

REF  145 
REF  146 
REF  213 
REF  207 

REF  147 
REF  208 
RCF  148 
REF  671 


LAST  1074 
LAST  1074 

LAST  1074 
LAST  1074 
LAST  1073 
LAST  1066 

LAST  1074 
LAST  1074 
LAST  1074 
LAST  1074 


00,3434 
00,3435 
00,3436 
30,3437 
30,3440 
00,3441 
00,3442 
00,3443 
■>0,  3444 
00,3445 
00,3446 
00,3447 


0 0006  1 
7 4736  C 
52  155  1 
0 0006  1 
10  130  1 
54  131  0 
3 4755  1 
56  001  0 
0 C006  1 
1C  130  1 
54  001  1 
3 0131  1 
20  155  1 


EXTEND 
MP  HALF 

DXCH  MPAC 

EXTEND 
DV  bUF 

TS  BUF  +1 

CAF  ZERC 

XCH  L 

EXTEND 
DV  BUF 

TS  L 

CA  BUF  +1 

DAS  MPAC 


FORM  UP  Xl/2o 

SAVE  AND  BRING  OUT  ARGUMENT* 

TAKE  CP  QUOTIENT  WITH  Xl* 

SAVF  MAJOR  PART  OF  QUCTIENT* 

FCPM  MINOR  PART  OF  QUOTIENT  USING 
(REMAINDER, 


IN  PREPARATION  FOR  DAS* 
X2  = Xl/2  + {MPAC/2)X1 


REF  1 

REF  31  LAST  1059 
REF  672  LAST  1074 
REF  673  LAST  1074 
REF  293  LAST  1073 


30,3450  C 0006  1 
00,3451  1 3455  1 
30,3452  2 4733  1 
00,3453  54  154  0 
00,3454  54  155  1 
00,3455  0 0002  0 


EXTEND 

PZF 

CAF 

FIXRCCT  TS 
TS 

TCCENKOO  TC 


TCOBNKOO 
POSMAX 
MPAC 
MPAC  ♦! 

0 


OVERFLOWS  IF  ARG*  NEAR  POSMAX* 


RETLRN  TO  CALLER  TC  UNNCRMALIZE,  ETC* 


GAP. 


ASSEPBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  B' 


NASA  2021112-0^1 


L INTERPRETER 


2097  REF  1 

2098 

2099  REF  1 


00, 3A5e 
00,3457 
00,3460 


e ^737  0 SRIEST 
C 5006  1 
6 3502  0 


AD  QUARTER 

EXTEND 

8ZPF  SORTNORM 


2100 

2101 

2102 

2103 

2104 

2105 

2106 


REF  674 
REF  18 


RFF  22 
REF  675 
REF  19 
REF  676 


LAST  1074 
LAST  1074 

LAST  1074 
LAST  IC75 
LAST  1075 
LAST  1075 


00,3461 
10,3462 
CO, 3A63 
00,3464 
CO, 3465 
00,3466 
00,3467 


52  155  1 
22  021  1 
C CCC6  1 
7 4736  0 
52  155  1 
56  021  1 
26  155  1 


DXCH  MPAC 
LXCh  SR 
EXTEND 
MP  HALF 

DXCH  MPAC 
XCH  SR 

AOS  MPAC  +1 


2107  REF  1 

2108 

21C9  REF  677  LAST  1075 

211J  REF  1 


2111  REF  1 


CO, 3470 
00,3471 
00,3472 
00,3473 


3 30C7  0 
0 0006  1 
7 0154  0 
6 2270  0 


ARGLC 


CAF  SLCPELC 

EXTEND 
MP  MPAC 

AD  BIASLC 


00,3474  1 3423  0 


TCF  ARGHI  +4 


2113 

2114 

2115 

2116 


REF  678  LAST  1075 
REF  679  LAST  1075 
REF  680  LAST  1075 
REF  681  LAST  1075 


00,3475  C 0006  1 
CO, 3476  3 0156  0 
00,3477  20  156  1 
CO, 3500  6 C154  1 
00,3501  26  154  0 


SQRTNM2 


EXTEND 

OCA  MPAC  +1 

CAS  MPAC  +1 

AC  MPAC 

ADS  MPAC 


2117  REF  62  LAST  1073 

2118 

2119  REF  ‘682  LAST  1075 

2120  REF  683  LAST  1075 

2121  REF  684  LAST  1075 

2122  REF  685  LAST  1075 

2123 

2124  REF  18  LAST  465 


00,3502  24  135  0 

00,3503  C 0006  1 
00,3504  3 0156  0 

00,3505  20  156  1 

00,3506  6 0154  1 

00,3507  26  154  0 

00,3510  6 0000  1 

00,3511  54  022  0 


scrtncrm 


INCR  MPTEMP 
EXTEND 

OCA  MPAC  +1 

CAS  MPAC  +1 

AD  MPAC 

ACS  MPAC 

DOUBLE 
TS  CYL 


2125  REF 

2126  REF 

2127  REF 

2128  REF 

2129  REF 


19  LAST  1075 

20  LAST  1075 
1 

2 LAST  1075 
1 


00,3512  10  022 
00,3513  1C  C22 
00,3514  1 3475 
00,3515  1 3417 
00,3516  1 3470 


0 NCPMTEST  CrS 
0 CCS 

0 TC  F 

1 TCF 

0 TCF 


SQRTNM2 

ARGHI 

ARGLO 


17:53  DEC,  19,1«69  SKIPPER  101  PAGE  1075 


USER'S  PAGE  NOo  80  E3  S3 

ARGUMENT  WAS  LESS  THAN  o5,  SEE  IF  LESS 
THAN  o25o 

IF  SO,  BEGIN  NORMALIZATION® 

IF  BETWEEN  o5  AND  ©25,  SHIFT  R IGHT-  1 AND 
START  AT  ARGLO® 


ND  OVERFLOW® 

(NORMALIZED!  ARGUMENT  BETWEEN  »IZ5  AND 
® 25 


BEGIN  SQUARE  ROOT® 

SHIFT  LEFT  2 AND  INCREMENT  RIGHT  SHIFT 
CCUNT  (FOR  TERMINAL  UNNORM AL I Z AT  I ON » « 


(NO  OVERFLOW)® 


FIRST  TIME  THROUGH,  JUST  SHIFT  LEFT  1 
(PUTS  IN  EFFECTIVE  RIGHT  SHIFT  SINCE 
WE  WANT  MPAC/2  »® 


(AGAIN  NO  OVERFLOW)® 


SEE  IF  ARGUMENT  NOW  NORMALIZED  AT 
GREATER  THAN  ®125® 

NO  - SHIFT  LEFT  ? MCRE  AND  TRY  AGAIN. 
YES  - NOW  BETWEEN  ®5  AND  ^ 25:, 

ARGUMENT  NOW  BETWEEN  ^25  AND  .125® 


GAP: 

L 

P2130 

R2131 

R2133 

R2134 

R2135 

R2136 

R2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

A2153 

2154 

2155 

2156 

2157 

2156 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

21b6 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19,1969  SKIPPFR  101  PAGE  1076 


INTERPRETER 

TRIGONOMETRIC  FUNCTION 
THE  FCLLOWING 


USER'S  PAGE  N0«  81 

packaged 

TRIGONCMETRIC  FUNCTIONS  ARE  AVAILABLE  AS  INTERPRETIVE  OPERATIONS: 


E3  S3 


U SIN  CCMPUTES  (1/2)SINE(2  PI  MPAO- 

2d  cos  computes  ( 1/2)C0SINE(2  PI  MPACU 


3o  ASIN  CCMPUTES  ( 1 /2 P 1) ARCS  INE I 2 MP AC  I o 

4o  ACOS  COMPUTES  ( 1 /2P I ) ARCCOS I NE ( 2 MPACI 


SIN-ASIN  AND  CCS-ACCS  ARE  MUTUALLY  INVERSE,  IE  SINIASINIX))  = 


REF 

REF 

REF 


6 LAST  107C 
1 

2 LAST  1076 


00,3517 

00,3520 

00,3521 

00,3522 


0 6726  1 

1 3523  1 
1 3526  1 
1 3526  1 


CCSINE 


TC 

TCF 

TCF 

TCF 


BRANCH 
+ 3 

PRESINE 
PRESI NE 


FINDS  COSINE  USING  THE  IDENTITY 
COS(X)  = SIN(PI/2  - AES (X  > U 


REF  686 
REF  687 


LAST  1075 
LAST  1076 


00,3523 

CU,3524 

30,3525 


C 0006  1 
4 0155  1 
52  155  1 


EXTEND 
CCS  MPAC 
DXCH  MPAC 


REF  2 LAST  1075 
REF  688  LAST  1076 


00,3526  3 4737 

00,3527  26  154 


0 PPESINE  CAF 
0 ACS 


quarter 

MPAC 


PI/2  SCALEOo 


REF  689  LAST  1076 


00,3530  52  155  1 
00,3531  20  001  1 
CO, 3522  54  CCO  0 
00,3533  1 3536  0 


SINE 


DXCH  MPAC 

0DCU6L 

OVSK 

TCF  +3 


DOUBLE  ARGUMENT*. 

SEE  IF  OVERFLOW  PRESENT*. 

IF  NOT,  ARGUMENT  CK  AS  I So 


REF  690 
REF  691 

REF  209 
REF  1 


LAST  1076 
LAST  107o 

LAST  1074 


00,3534 

00,3535 

00,3536 
00,3537 
00,3540 
00,3541 
00,3  542 


0 0006  1 
4 0001  1 

52  155  1 
3 0154  1 
6 0000  1 
54  OCl  1 
1 3553  0 


EXTEND  IF  SO,  WE  LOST  lOR  GAINEDI  PI,  SO 

DCOM  COMPLEMENT  MPAC  USING  THE  ICENTITY 

SIN(X-(  + )PI  ) = SIN(-X)o 

DXCH  MPAC 

CA  MPAC  SEE  IF  ARGUMFNT  GREATER  THAN  «5  IN 

DCUBLE  MAGNITUDE®  IF  SO,  REDUCE  IT  TO  LESS  THAN 

TS  L «,5  {+-PI/2  SCALED)  AS  FOLLOWS: 

TCF  SNl 


REF  251  LAST  1073 
REF  4 LAST  B53 


REF  692  LAST  1076 
REF  693  LAST  1C76 
REF  694  LAST  1076 
REF  695  LAST  1076 


00,3543  5C  000  1 
30,3544  2 4735  1 
00,3545  6 0000  1 
00,3546  C QCC6  1 
00,3547  60  154  1 
00,3550  54  154  0 
:0,3551  4 0155  1 
00,3552  54  155  1 


INDEX  A IF  POSITIVE,  FORM  PI  - X,  IF  NEGATIVE 

CAF  NFGl/2  +1  USE  -PI  - Xo 

DOUBLE 

EXTEND 

SU  MPAC  GUARANTEED  NO  OVERFLOW*, 

TS  MPAC 

CS  MPAC  +1 

TS  MPAC  +1 


gap: 

L 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2173 

2174 

2174 

2175 

2175 

2176 

2176 

2177 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

21£7 

2188 

2189 

2190 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211  12-091 


17:53  DEC*  19,1^69 


SKIPPER  *101  PAGE  1077 


INTERPRETER 


USER’S  PAGE  NO*  82 


E3  S3 


00,3553  C 0006  1 SNl  EXTEND 

REF  696  LAST  1076  00,3554  3 0155  0 OCA  MPAC 

REF  19  LAST  1062  00,3555  52  134  0 DXCH  BU F2 

REF  5 LAST  1072  00,3556  C 3300  1 TC  DSOSUB 


SFT  UP  TO  EVALUATE  FASTINGS  POLYNOMIAL 

SQUARE  MPACe 


RFF  2 


LAST  851 


50,3557 

50.3560 

50.3561 
00,3562 
70,3563 
00,3  564 
:0,3565 
00,3566 
00,3567 
00,3570 
50,3571 
00,3572 


C 7225  0 
CCC03  I 
14441  0 
37325  1 
53250  0 
60764  1 
12146  I 
21276  1 
75466  1 
71471  0 
00236  0 
32757  0 


TC  POLY  EVALUATE  FOURTH  ORDER  POLYNOMIAL.. 

DEC  3 

20EC  ♦a392699C796 
20EC  -« 6459637111 
2C6C  ♦e?1875B717 
20EC  -*074780249 
20EC  +*009694980 


REF  1 

REF  19  LAST  1038 


00,3573  3 2470  0 

00,3574  0 7111  I 


CAF  LBUF2  MULTIPLY  BY  ARGUMENT  ANC  SHIFT  LEFT  2* 

TC  DMPSUB  -1 


REF  697 
RFF  690 
REF  699 
REF  700 

REF  7Ul 
REF  702 
REF  703 
REF  704 
REF  40 


LAST  1077 
LAST  1077 
LAST  1077 
LAST  1077 

LAST  1077 
LAST  1077 
LAST  1077 
LAST  1077 
LAST  1071 


00,3575 
70,3576 
on ,3577 
00,3600 
00,3601 
00,3602 
00,3603 
00,3604 
CO, 3605 
00,3606 
00,3607 


C CCC6  1 

2 0156  C 
20  156  1 
6 C154  1 
26  154  0 
C 0006  1 

3 C156  0 
20  156  1 
6 0154  1 
26  154  0 
1 6064  I 


EXTEND 
OCA  MPAC 

DAS  MPAC 

AD  MPAC 

AOS  MPAC 

EXTEND 
DCA  MPAC 

OAS  MPAC 

AC  MPAC 

ADS  MPAC 

TCF  DANZ 


IG 


NEITHER  SHIFT  OVERFLOWS* 


gap:  assemble  revision  131  CF  AGC  FPCGFAM  LUMINARY  8Y  NASA  2021112-091 


L IMEPPRETER 


P2191 


ARCSIN/ARCCOS  ROUTINE® 


2192  REF  1 

2193 


00»3610 

00,3611 


3631  C ARCSIN  CAF  LASINEX 

3613  1 TCF  +2 


219A  REF  1 

2195  REF  1 

2196  REF  7 

2197  REF  1 

2198  REF  1 

2199 

2200  PEF  705 

2201  REF  706 

2202  REF  1 

2203  REF  2 

2204  REF  1 


LAST  1076 

LAST  1077 
LAST  1078 

LAST  1078 


00,3612 
00,3613 
00,361^* 
00,3615 
00,3616 
00,3617 
00, 3620 
00,3621 
00,3622 
00,3623 
00f3624 


3 3713 
5A  136 

0 6726 

1 3625 
1 3731 
0-0006 
ii  0155 
52  155 
3 3734 
56  136 
54  137 


ARCCCS 


1 

1 

1 

1 

0 

1 

1 

1 

1 

0 

0 


CAF  LDANZIG 

TS  ESCAPE 

TC  BRANCH 

TCF  ACOSST 

TCF  ACCSIEPC 

EXTEND 
DCS  MPAC 

DXCH  MPAC 

CAF  TCSUBTR 

XCH  ESCAPE 

TS  FSCAPe2 


2205 

2206 
22C7 


REF  23  LAST 
REF  707  LAST 
REF  352  LAST 


1075  CC|3525  4 4736  C 

1078  00,3626  6 0154  1 

1076  00,3627  1C  000  0 


ACCSST 


CS 

AO 

CCS 


HALF 

MPAC 

A 


2208  REF 


00,3630  1 3721  1 


TCF  ACQSrVF 


2209  REF  1 

2210  REF  1 


00,3631  1 3707  0 LASINEX 
00,3632  1 3642  0 


TC  F 
TCF 


ASINEX 

AC0SST2 


2211  REF  708  LAST  1078 

2212  REF  214  LAST  1074 

2213  REF  1 


00,3633  10  155  1 
00,3634  3 4755  1 
00,3635  1 3637  1 


CCS  MPAC  +1 

CAF  ZERO 

TCF  ACCS=0 


2214 


REF  2 LAST  1078 


00,3636 


3642  0 


TCF  AC0SST2 


2215  REF  709 

2216  REF  710 

2217  REF  3 


LAST  1078 


00,3637  54  155  1 ACCS=0 

00,3640  54  154  0 

00,3641  C 0136  0 


MPAC  +1 

MPAC 

ESCAPE 


2218 

2219  REF  711  LAST  1078 

2220  REF  24  LAST  1078 

2221  REF  712  LAST  1078 

2222  REF  20  LAST  1077 


00,3642  C 0006  1 
00,3643  4 0155  1 
30,3644  6 4736  1 
00,3645  52  155  1 
30,3646  52  134  0 


ACCSST2  EXTEND 

DCS  MPAC 
AD  HALF 
OXCH  MPAC 
DXfH  BUF2 


2223  REF 


3 LAST  1070 


00,3647  C 3343  0 


TC  SORTSUe 


2224  REF  63  LAST  1075 

2225  REF  1 


00,3650  10  135  1 

00,3651  1 3714  1 


CCS  MPTEMP 

TCF  ACOSSHR 


17:53  DEC*  19,1969  SKiePEP  101  PAGE  1078 


USER'S  PAGE  NC*  83  E3  S3 


COMPUTE  ARCSIN  BY  USING  THE  IDENTITY 
ARCSINIXI  = PI/2  - ARCCCS(X)* 


(EXITS  IMMEDIATELY)* 

TEST  SIGN  OF  INPUT* 

START  IMMEDIATELY  IF  POSITIVE* 
ARCCOSfO)  = PI/2  = *25* 

IF  NEGATIVE,  USE  THE  IDENTITY 
ARCCOSIXI  = PI  - ARCCOS(-X),  FORCING 
ARGUMENT  POSITIVE* 

SET  EXIT  TO  DO  ABOVE  BEFORE 
ARCSIN/ARCCOS  CONSIDERATIONS* 


TFST  MAGNITUDE  OF  INPUT* 


THIS  IS  PROBABLY  AN  OVERFLOW  CASE* 


NO  OVERFLOW  - PROCEFD* 

IF  MAJOR  PART  IS  *5,  CALL  ANSWER  0 
UNLESS  MINOR  PART  NEGATIVE* 


NOW  THAT  ARGUMENT  IS  IN  PROPER  RANGE, 
BEGIN  COMPUTATICN*  USE  FASTINGS 
APPROXIMATION  ARCCOS(X)  = S0RT(1-XIP(XI 
IN  A SCALED  VERSION  WHERE  P(X)  IS  A 
SEVENTH  ORDER  PCLYNCMAL* 

RETURNS  WITH  NORMALIZED  SQUARE  ROOT* 

SEE  IF  UN-NCRMALIZATICN  REQUIRED* 

IF  SO* 


gap:  assemble  revision  131  CF  AGC  PRCCPAM  LUMINARY  BY  NASA  2021112-0?! 

L INTERPRETER 


]7:53  DECe  1«»1969  SKIPPER  olOl  PAGE  1079 
USER'S  PAGE  NOe  8^  E3  S3 


2226  REF  713  LAST  1078 

2227  REF  21  LAST  1078 

2228  REF  714  LAST  1C79 


00,3652  52  155 

00,3653  52  134 

00,3654  52  155 


1 AC0S3  OXCH 

0 OXCH 

1 OXCH 


MPAC 

BUF2 

MPAC 


SET  UP  FCR  POLYNOMIAL  EVALUATIONe 


2230 

2231 

2231 

2232 

2232 

2233 

2233 

2234 

2234 

2235 

2235 

2236 

2236 

2237 

2237 

2238 
2238 


3 


LAST  1077 


00,3655  C 7225  0 
00,3656  00006  1 
00,3657  13240  0 
00,3660  23630  0 
00,3661  74721  0 
00,3662  47775  1 
00,3  663  02440  0 
00,3664  2C237  0 
30,3665  75C67  1 
00,3666  70742  1 
00,3667  C3436  0 
00,3670  26756  1 
00,3671  74C37  0 
00,3672  57640  1 
00,3673  03046  0 
00,3674  C7143  0 
00,3675  76654  1 
00,3676  42244  0 


TC  POLY 

CEC  6 

20EC  +e  353553385  COEFFICIENTS  ARE  C 2 ( + !» /P  I SORT  ( 2 ) WHERE 

2CEC*  -<,0463017006  6 + 1*  I 

2DEC*  +*0200273085  B + 2*  WHERF  C STANDS  FOR  ORIGINAL  COEFFSo 

20EC*  -*0112931663  B+3* 

20EC*  +*00695311612  6+4* 

2DEC*  -*00384617957  8+5* 

20EC#  +*CG15012977?6  B+6* 

2DEC*  -*000284160334  B+7* 


2239 

2240 

2241 


REF  2 LAST  1077 
REF  20  LAST  1077 
REF  4 LAST  1078 


00,3677  3 247C  C 
00,3700  0 7111  1 
00,3701  C 0136  0 


CAF  LBUF2 

TC  DMPSUB 

TC  ESCAPE 


CO  FINAL  MULTIPLY  AND  GO  TO  ANY 
EPILOGUE  SEOUENCES* 


2242 

2243 

2244 

2245 
22^6 


REF  .715  LAST  1079 
REF  25  LAST  1078 
REF  716  LAST  1079 
REF  2 LAST  1078 


00,3702 

00,3703 

00,3704 

00,3705 

00,3706 


C 0006  1 
4 0155  1 
6 4736  1 
52  155  1 
0 0137  I 


SUBTR 


MPAC 

HALF 

MPAC 

ESCAPE2 


EPILOGUE  FOR  NEGATIVE  INPUTS  TO  ARCCOS* 
FORMS  PI  - ARCC0S(-X1  = ARCCOStX)* 

GO  TO  POSSIBLE  ARCSIN  EPILOGUEc 


2247 

2248 

2249 

2250 

2251 


REF  717  LAST  1079 
REF  3 LAST  1076 
REF  718  LAST  1079 
REF  41  LAST  1077 


00,37C7  C 0006  1 
00,3710  4 0155  1 
00,3711  6 4737  C 
00,3712  52  155  1 
00,3713  1 6064  1 


ASINEX  EXTEND 

DCS  MPAC 

AO  UUARTER 

OXCH  MPAC 

LCANZIG  TCF  DANZIG 


ARCSIN  EPILOGUE  - GET  ARCSIN'IXJ 
= PI/2  - ARCCnS (X  U 


gap:  assemble  REVISION  131  CF  AGC  PRCC-RAM  LUMINARY  BY  NASA  202111  2-0^1 


L INTERPRETER 


2252  REF  353 

2253  REF  6A 

225A  REF  64 

2255  REF  4 

2256  REF  1 


LAST  1076 
LAST  1067 
LAST  1078 
LAST  1044 


00  I 3714 
00,3715 
00,3716 
00,3717 
00,3720 


5C  CCO  1 
3 4736  1 
54  135  1 

0 2073  1 

1 3652  1 


ACOSSHR 


INDEX  A 

CAF  BIT14 

TS  MPTEMP 

TC  VSHRRNO 

TCF  ACGS3 


2257 

2258  REF 


LAST  1 078 


00,3721  C 0006  1 
00,3722  1 3637  1 


ACOSOVF  EXTEND 

6ZF  AC0S=O 


2259 

22591  REF  28 

22592  REF  3 

22593 


00,3723  -C  0CC6  I ACCSABRT  EXTEND 

LAST  1073  00,3724  3 0165  0 DCA 

00,3725  0 5722  0 TC 

00,3726  01301  1 rCT 


LOC 

ALARMl 

1301 


2260  REF  215  LAST  1078 
22601  REF  5 LAST  1080 


00,3727  3 4755  1 

00,3730  1 3637  1 


CAF  ZERO 

TCF  ACCS=0 


2261  REF 

2262  REF  4 


LAST  1079  00,3731  3 4737  0 ACCSZFRO  CAF  OUARTER 

LAST  1080  00,3732  1 3640  1 TCF  AC0S=0  + 


2263 

2264  REF 


00,3733  77763  0 NEG12  DEC 
00,3734  1 3702  0 TCSU8TR  TCF 


-12 

SUBTR 


17:5'='  OECo  19,1969  SKIPPER  olOl  PAGE  1080 


USER'S  PAGE  NO*  85  E3  S3 

THE  SHIFT  RIGHT  IS  LESS  THAN  14  SINCE 
THE  INPUT  WAS  NON-ZERO  DP-, 

DP  SHIFT  RIGHT  AND  RCUND« 

PROCEEDo 


IF  RAJOP  PART  WAS  CNLY  1 MCRE  THAN  o5, 
CALL  ANSWER  ZERO, 


IF  OVERFLOW,  CALL  ANSWER  ZERO  BUT 
SOUND  AN  ALARM, 


ACOSIO)  = PI/2o 

SET  MPAC  AND  EXIT  VIA  ESCAPE., 


GAP  : 

L 

P2265 

R2267 

R2268 

R2269 

R2270 

R2271 

R2272 

R2273 

R2274 

R2275 

R2276 

2277 

2278 

2279 

2280 

2281 

2262 

2283 

228^ 

2285 

22  86 

2287 

2288 

2289 

2290 

229J 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 
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17:53  DECo  19,1969  SKIPPER  ,101  PAGE  1081 


INTERPRETER 


USER'S  PAGE  NO©  86  63  S3 


THE  FCLLCUING  INSTRUCTIONS  ARE  AVAILABLE  FOR  SETTING,  MODIFYING,  AND  BRANCHING  ON  INDEX  REGISTERS: 


1© 

la 

3o 

4© 

5o 

6« 


AXT 

AXC 

LXA 

LXC 

SXA 

XCHX 


ADDRESS  TC  INDEX  TRLE© 

ADDRESS  TO  INDEX  COMPLEMENTED© 

LCAC  INDEX  FRCM  ERASABLE© 

LOAD  INDEX  COMPLEMENTED  FROM  ERASAELEo 
STORE  INDEX  IN  ERASABLE© 

EXCHANGE  INDEX  REIGSTEP  WITH  ERASAELEo 


7©  INCR 
8.  XAC 
9©  XSU 


INCREMENT  INDEX  REGISTER© 

ERASABLE  ACC  TC  INDEX  REGISTER© 
ERASABLE  SUBTRACT  FRCM  INDEX  REGISTER© 


10© 


TIX 


BRANCH  ON  INDEX  REGISTER  AND  DECREMENT© 


01,2345 


BANK  01 


REF 

REF 

REF 

REF 

REF 


1 

23 


20 

42 


LAST 

LAST 

LAST 

LAST 


01  ,2345 
1071  01,2346 

1000  01,2347 

1010  01  ,2350 

1079  01,2351 


0 2442  1 AXT 
3 0117  0 

50  130  C XSTORE 
54  046  I 

1 6CdA  1 


COUNT*  $*/INTER 
TC  TAGSUB 

CA  POLISH 

INDEX  INDEXLCC 
TS  X] 

TCF  DANZIG 


SELECT  APPROPRIATE  INDEX  REGISTER© 
CONTAINS  CIFIXLCCI  CR  C(FIXL0CJ+1© 


REF  2 LAST 
REF  2A  LAST 
REF.  1 


1381  01,2352 

1081  01,2353 

01,235A 


0 2442  1 AXC 
A 0117  1 
C 2347  0 


TC  TAGSUB 
CS  POLISH 
TC  XSTORE 


REH  1 

REF  25  LAST  1081 
REF  2 LAST  1081 


01  ,2355  0 2430  1 

01,2356  5C  in  C 
n,2357  3 0000  1 

01  ,2360  1 2347  1 


TC  15ADRERS 

INDEX  POLISH 
CA  0 

TCF  XSTORE 


LOAD  INDEX  RFGISTER  FROM  ERASABLE© 


REF  2 
REF  26 


LAST 

LAST 


REF  3 LAST  1081 


01.2361  r.  2A30  1 LXC 

01.2362  50  117  0 

01.2363  4 0000  0 

01.2364  1 2347  1 


TC  15A0RERS 

INDEX  POLISH 
CS  n 

TCF  XSTORE 


LOAC  NOX  REG  FROM  ERASABLF  COMPLEMENTED© 


REF  3 
REF  5 
REF  30 
REF  27 

REF  43 


LAST  1081 
LAST  1081 
LAST  1081 
LAST  1081 

LAST  1081 


01  ,2365 
Cl,  2366 
01,2367 
01  ,2370 

01.2371 

01.2372 


0 2430  1 
5C  13C  0 
3 00A6  0 
50  117  0 
5A  000  0 

1 6064  1 


SXA  TC  15A0RERS 

INDEX  INDEXLCC 
CA  XI 

MSTCREl  INDEX  POLISH 
TS  0 

TCF  DANZIG 


STORE  INDEX  REGISTER  IN  ERASABLE© 


GAP:  assemble  REVISION  131  CF  AGC  PROGRAM  LUMINARY  6Y  NASA  202lll?-09l 
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L INTERPRETER 


USER  ' S PAGE  NOo  87  E3  S3 


2301  REF  A LAST  108! 

2302  REF  28  LAST  1081 

2303 

2304  REF  6 LAST  1081 

2305  REF  31  LAST  1081 

2306  REF  1 


n»2373  C 2430  1 XCHX 
01»2374  50  117  0 

01.2375  3 0000  1 

01.2376  5C  130  0 

01  ,2377  56  046  0 

'’1,2«^C0  1 2370  0 


TC  35ADRERS 

INDEX  POLISH 
CA  0 

INDEX  INDEXLCC 

XCF  XI 

TCF  MSTCREl 


EXCHANGE  INDEX  REGISTER  WITH  ERASABLE® 


2307 

2308 

2309 


2310 

2311 

2312 


REF 

REF 

REF 


5 

29 


7 

32 

44 


LAST  1082 
LAST  1082 
LAST  1081 


01.2401 

01.2402 
01,2403' 


01.2404 

01.2405 

01.2406 


0 2430 
50  117 
3 CGCC 
5C  130 
26  046 

1 6064 


I 

0 

1 

0 

1 

1 


XAC 


XAC2 


TC  15ADRERS 

INDEX  POLISH 
CA  0 

INDEX  INDEXLCC 

ADS  XI 

TCF  DANZIG 


ADD  ERASABLE  TC  INDEX  REGISTER® 


IGNORING  OVERFLOWS® 


2313  REF  3 

2314  REF  30 

2315  REF  1 


LAST  1081 
LAST  1082 


01  ,2407 
01,2410 
>1,2411 


0 2442  1 
2 C117  0 

1 2404  1 


INCR 


TC  TAGSU8 
CA  POLISH 
TCF  XAD2 


INCREMENT  INDEX  REGISTER® 


2316  REF 

2317  REF 

2318 

2319  REF 


6 LAST  1062 
31  LAST  1082 

2 LAST  1082 


01.2412  0 2430  1 XSU 

01.2413  50  117  0 

01.2414  4 0000  0 

01.2415  1 2404  1 


TC  ISADRERS  SUBTRACT  ERASABLE  FROM  INDEX  REGISTER,, 

INDEX  POLISH 

CS  0 

TCF  XAC2 


2320 

2321 

2322 

2323 

2324 

2325 

2326 


REF 

REF 

REF 

REF 

REF 


LAST  959 
LAST  1082 
LAST  1082 


REF  45  LAST  1082 


01, 2416 
01  ,2417 

01.2420 

01.2421 

01.2422 

01.2423 
01  ,2424 


0 2442 
50  130 
4 0C50 
50  130 
6 0046 
0 C006 
6 6064 


TC  TAG  SUB 

INDEX  INOEXLDC 
CS  SI 

INDEX  INDEXLCC 
AD  XI 

E XTEND 

eZMF  DANZIG 


BRANCH  AND  DECREMENT  CN  iNCEXo 


NO  OPERATION  IF  DECREMENTED  INDEX  IS 
NEGATIVE  OR  ZERO® 


2327  REF  10  LAST  1082 

2328  REF  34  LAST  1082 


01.2425  50  130 

01.2426  56  0A6 


0 DCTIXeR  INDEX 
0 XCH 


INDEXLOC 

XI 


IGNORING  CVERFLCWSo 


2329  REF 


6 LA-ST  1071 


>1,2427  1 6651 


TCF  GOTO 


DO  THE  BRANCH  USING  THE  CAOR  IN  POLISH,- 


GAP: 

L 

P2330 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

R2342 

23^4 

2345 

2346 

2347 

2348 

2349 
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SKIPPER  ICl  PAGE  1083 


INTERPRETER 


USER’S  PAGE  NCo  88 


E3  S3 


SLEROLTINE  TO 


CONVERT  AN  EPASABLE  ADDRESS  (11  BITS)  TO  AN  EBANK  SETTING  AND  SUBADDRESS^ 


REF  32  LAST  1082 
REF  • 2 LAST  1010 

REF  354  LAST  1080 
REF  51  LAST  1071 


01.2430  4 C117  1 

01.2431  6 4772  1 

01.2432  10  COO  0 

01.2433  3 C120  1 

01.2434  1 2441  0 


15A0RERS 


CS 

AO 

CCS 

CA 

TCF 


POLISH 

DEC45 

A 

FI XLCC 
+ 5 


DOES  THE  ADDRESS  POINT  TO  THE  WORK  AREA? 
YESo  ADO  FIXLCCo  EBANK  OK  AS  ISo 


REF 

REF 

REF 


6 

33 
64 
14 

34 


LAST 

LAST 

LAST 

LAST 


lOlC 

1063 

1018 

1918 

1083 


01,2435 
01,  2436 
01  ,2437 

01.2440 

11.2441 


3 5007  0 
56  117  0 
54  003  0 
7 4357  0 
26  117  1 


CA  OCT1400  N0«  SET  EBANK  6 MAKE  UP  SUBAODRESS, 

XCH  POLISH 

TS  EBANK 

MASK  LCW8 

ADS  POLISH  FALL  INTO  TAGSUE,  AND  PETURN  VIA  Go 


SIBROLTINE  WHICH  SETS 


THE  ADDRESS 


CF  THE  SFEC1FI6C  INDEX 


IN  INDEXLOCe 


(ACTUALLY, 


THE  ADORE  SS  -380* ) 


REF  52  LAST  1083 
REF  11  LAST  1082 


01, 2442  3 0120  1 TAGSUB 

01  ,2443  54  130  1 


CA 

TS 


FI XLOC 
INDEXLOC 


REF  32  LAST  1050 
REF  12  LAST  1083 
REF  294  LAST  1C74 
REF  295  LAST  1083 


01,2444  10  020  1 

■)1,2445  24  130  0 

01.2446  C C002  0 

01.2447  C CC02  0 


CCS  CYR 

INCR  INDEXLCC 
TC  0 

TC  0 


BIT  15  SPECIFIES  INDEX* 

0 MEANS  USE  X2«, 

1 FOR  Xle 


GAP : 

L 

P23  50 

R2352 

R235A 

R2356 

R2358 

R2360 

R2361 

2362 

2363 

236A 

2365 

2366 

2367 

2368 

2369 

237^ 

2371 

2372 

2373 

2374 

2375 

2376 

2377 
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INTERPRETER  USER'S  PAGE  NOe 

MISCELLANEOUS  OPERATION  COOES  kITH  DIRECT  ADDRESSESo  INCLUDEC  HERE  ARE: 


I TA 
CALL 
RTe 
8HI  Z 
BOV 
GOTO 


STORE  CPRET  IRETURN  ADDRESS)  IN  ERASABLEo 
CALL  A SUBROUTINE,  LEAVING  RETURN  IN  QPRET* 

RETURN  TO  BASIC  LANGUAGE  AT  THE  GIVEN  ADORESSo 

BRANCH  IF  THE  HIGH  ORDER  OF  MPAC  IS  ZFRO  (SINGLE  PRECISIONIo 

BRANCH  ON  OVERFLOW*  •* 

SIMPLE  SEQUENCE  CHANGE* 


KEF  33  LAST  1083  Cl, 2450  1C  020  1 RTE/BHIZ  CCS  CYR 

REF  35  LAST  1083  C1,2A51  2 0117  0 RTB  CA  POLISH 

REF  5 LAST  935  01,2452  0 4621  0 TC  SWCALL  -1  SO  A "TC  Q"  FROM  ROUTINE  LEADS  TO  DANZIG 


REF  719  LAST  1079 
REF  46  LAST  1082 
REF  7 LAST  1082 
REF  47  LAST  1084 
HEF  8 LAST  1084 


01.2453  K 154  C 

01.2454  1 6064  1 

01.2455  1 6651  1 

01.2456  1 6C64  1 

01.2457  1 6651  1 


BHI  Z 


TCF 

TCF 

TCF 

TCF 


MPAC 

DANZIG 

GOTO 

DANZIG 

GOTO 


REF  9 LAST  1072 

REF  48  LAST  1084 
REF  10  LAST  1084 
REF  34  LAST  1084 
REF  1 


REF  9 LAST  1084 


01,246(1  10  121  1 0CV(B)  CCS  OVFIND 

31.2461  1 2463  0 TCF  *2 

01.2462  1 6064  1 TCF  DANZIG 

01.2463  54  121  1 TS  DVFINC 

01.2464  10  020  1 CCS  CYR 

01.2465  1 2451  I TCF  RTE 

01.2466  CC360  1 BSTOBS  OCT  360 

01.2467  1 6651  1 TCF  GOTO 


BRANCH  ON  OVERFLOW  TO  BASIC  OR  INTERP* 


IF  PASIC<. 


GAP : 


ASSEf'BLE  REVISION  131  OF  AGC  PPCCRAM  LUMINARY  BY  NASA  2021112-C<51 


L INTERPRETER 


2378 

2379 

2360 

2361 
2382 


REF  35  LAST  1084 
REF  0 LAST  1078 
REF  49  LAST  1084 
REF  10  LAST  1084 
REF  50  LAST  1C85 


31.2470  10  020  1 B2E/G0T0  CCS 


Clt-2471  0 6726  1 TC 

01.2472  I 6064  I TCF 

01.2473  1 6651  1 TCF 

:i.2474  1 6064  1 TCF 


C YR 

BRANCH 

DANZIG 

GOTO 

DANZIG 


2383  PEF  36  LAST  1085 

2384  REF  1 

2385 


31.2475 
T1  .2476 
11,2477 


1C  020  1 BPL/8MN  CCS 
I 2504  0 TCF 

12000  1 5B1C  DEC 


CYR 

BPL 

5 6+10 


2386  REF 

2387  REF  51 

2388  REF  52 

2389'  REF  11 


LAST  M85  11 
LAST  1085  Cl 
LAST  1085  01 
LAST  1085  01 


.2500  0 6726  1 
,2501  1 6064  1 
,2502  1 6064  1 
,2503  1 6651  I 


TC  BRANCH 
TCF  DANZIG 
TCF  DANZIG 
TCF  GOTO 


2390 

2391 

2392 

2393 


REF  10  LAST  1065 
REF  12  LAST  1085 
REF  13  LAST  1085 
REF  53  LAST  1085 


Cl, 2504  0 6726  I 

)1,2505  1 6651  1 

01  ,2506  1 6651  1 

01,25C7  1 6064  1 


TC  BRANCH 

TCF  GOTO 

TCF  GOTO 

TCF  DANZIG 


2394  REF  37  LAST  1085 

2395  REF  1 


10  020 
I 6643 


CALL/ITA  CCS  CYR 

TCF  CALL 


2396 

2397 
239R 

2399 

2400 


REF- 

REF 

REF 

REF 

REF 


LAST  1083 
LAST  1071 
LAST  10P2 


Cl, 2512 
11  ,2513 

01.2514 

01.2515 

11.2516 


0 5675  0 

0 2430  1 
5C  120  1 
3 C052  0 

1 2370  0 


CCSHOLE 
15ADRERJ 
FIXLCC 
QPRET 
MSTOR  El 


17:53  DECo  19,1969  SKIPPER  - lOl  PAGE  J 085 


USER’S  PAGF  NOo  9C  £3  S3 

SEE  WHICH  CP-CODE  IS  CESIREO, 

DO  eZEo 

DO  GOTOo 


SHIFTS  OP  CODE  IN  SWITCH  INSTRUCTION  ADR 
00  BMNo 

ONLY  IF  NNZo 

IF  POSITIVF  OR  ZERCo 


STORE  QPRETe  ITAGSUB  AFTER  15A0RERS  IS 
SLOW  IN  THIS  CASE,  BUT  SAVES  STORAGEo » 


gap;  ASSeMBLE  REVISION  131  OF  AGC  PRCGRAP  LUMNAi 


BY  NASA  20211  12-091 
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L INTERPRETER 


USER'S  PAGE  NCo  91  E3  S3 


P2401 


THE  FCLLDNIN'G  CPEBATICNS  ARE  iVAILAELE  FOR  ALTERING  AND  TESTING  INTERPRETIVE  SWITCHES: 


R2403  00  BONSET 

R2404  01  SETGO 

R2405  C2  BQFSET 

R2406  03  SET 


SET  A SWITCH  AND  DO  A GOTO  IF  IT  WAS  ON. 

SET  A SWITCH  AND  00  A GOTOc 

SET  A SWITCH  ANC  CO  A GCTG  IF  IT  WAS  OFF 

SET  A SWITCH, 


R2407  OA  eONINV  INVERT  A SWITCH  ANC  BRANCH  IF  IT  WAS  ONo 

R2408  05  INVGO  INVERT  A SWITCH  AND  00  A GOTCa 

R2409  06  DCFINV  INVERT  A SWITCH  ANO  BRANCH  IF  IT  WAS  CFF 

R2410  0?  INVERT  INVERT  A SWiTCHo 


R2411 

R2412 

R2413 

R2414 


80NCLR 

CLRGO 

BOFCLR 

CLEAR 


CLEAR  A SWITCH  ANO  BRANCH  IF  IT  WAS  0N« 
CLEAR  A SWITCH  AND  00  A GOTOo 
CLEAR  A SWITCH  ANO  BRANCH  IF  IT  WAS  CFF, 
CLEAR  A SWlTCHo 


R2415  14  BON 

R2416  16  BOFF 


BRANCH  IF  A SWITCH  WAS  ON* 
BRANCH  IF  A SWITCH  WAS  OFF* 


THE  ADDRESS  S'JPPLIEC  WITH  THE  SWITCH  INSTRUCTION  IS  INTERPRETED  AS  FOLLOWS: 


R2419 

R2420 

R2421 


BITS  1-4 
BITS  5-8 
BITS  9- 


SWITCH  BIT  NUMBER  (l-15)c 
SWITCH  OPERATION  NUMBER* 

SWITCH  WCPC  NUMBER  (UP  TO  64  SWITCH  WORDS)* 


R2422  THE  ADDRESS  ITSELF  IS  MADE  UP  BY  THE  YUL  SYSTEM  ASSEMBLER*  THE  BRANCH  INSTRUCTIONS  REQUIRE  TWO 

R2424  ACDRESSESt  THE  SECCNC  TAKEN  AS  THE  DIRECT  (OR  INDIRECT  IF  IN  ERASABLE)  AOOPFSS  OF  THE  BRANCH, 


2426 

2427 
2420 

2429 

2430 


REF 

REF 

REF 


2 

36 

355 


REF  39 
REF  1. 


LAST  739 
LAST  1084 
last  1083 
LAST  1070 


01 t2517 
Cli2520 
01  ,2521 
01,2522 
Dl,25£2 


3 4762  0 
7 0117  1 
50  000  1 
3 4735  1 
54  131  0 


SWITCHES  CAF 
MASK 
INDEX 
CAF 
TS 


BITl  5 
sweiT 


LEAVE  THE  SWITCH  BIT  IN  SWPIT  » 


(NUMBER  FROM  left  TO  R IGHT*  ) 


2431  REF  39  LAST  987 

2432 

2433  REF  37  LAST  1086 

2434  REF  I 


01.2524  3 4745  0 

01.2525  C 0006  I 

01.2526  7 0117  1 

01.2527  54  130  1 


CAF  6IT7  LEAVE  THE  SWITCH  NUMBER  IN  SWWOPO, 

EXTEND 

MP  POLISH 

TS  SWWORC 


2435 

2436  REF  356  LAST  1086 

2437  REF  43  LAST  603 

2438  REF  296  LAST  1083 


01,2530  C 0004  0 
01  ,2531  50  000  1 

01.2532  3 0074  1 

11.2533  54  002  1 


INHINT 
INDEX  A 
CA  STATE 

TS  0 


CURING  SWITCH  CHANGE  SO  RUPT  CAN  USE  TOO 
LEAVE  THE  SWITCH  WCRD  ITSELF  IN  L* 

C WILL  BE  USED  AS  A CHANNEL* 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L INTERPRETER 


2439  REF  23  LAST  913 

2440 

2441  REF  38  LAST  1086 

2442  REF  1 

2443  REF  357  LAST  l'J86 

2444 


01,2534  3 4741  1 

or, 2535  0 0006  1 

31  ,2536  7 0117  1 

01,2537  7 2577  I 

01.2540  - 5C  OOO  1 

01.2541  1 2542  1 


E XTENO 
MP 

MASK 

INDEX 

TCF 


eiTll 

POLISH 

e3TC64 

A 


2445  REF  2 LAST  1086 

2446 

2447  REF  1 

2448  REF  1 


01, 2542  2 0131  1 

)1  ,2543  0 0006  1 

01.2544  C4  002  1 

01.2545  1 2554  0 


CA  SWBIT 

EXTEND 

ROR  QCHAN 

TCF  SWSTORE 


2449  REF 

2450 

2451  REF 

2452  REF 


3 LAST  1087 

2 LAST  1087 
2 LAST  1087 


01  ,2546  3 0131  1 

01,2547  C 0006  I 

71.2550  06  002  0 

01.2551  1 2554  0 


CA  SWBIT 

EXTEND 

RXOR  OCHAN 
TCF  SWSTORE 


2453  REF  4 LAST  1087 

2454  REF  297  LAST  1086 

2455  REF  2 LAST  1086 

2456  REF  44  LAST  1086 


01,2552  4 0131  0 

01  ,2553  7 0002  1 

01.2554  50  130  0 

01.2555  54  074  0 


+ 90  CS 

MASK 

SWSTORE  INDEX 
TS 


SWBI  T 

0 

SWWGRO 

STATE 
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USER'  S PAGE  NCc  92  E3  S3 

DISPATCH  SWITCH  BIT  OPERATION  AS  IN  BITS 
7-fi  OF  POL  I SHo 
GETS  4X2-BIT  COCEo 

00  - SET  SWITCH  IN  QUESTION. 

01  - INVERT  SWI  TCH, 

10  - CLEAR. 

NEW  SWITCH  WORD. 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PRCCRAM  LUMINARY  BY  NASA  2021112-091 


L INTERPRETER 


2457 

2458  REF  3o  LAST  991 

2459 

2460  REF  39  LAST  1087 

2461  REF  2 LAST  IC87 

2462  REF  358  LAST  1087 

2463 


Cl, 2556  0 0003 

31  ,2557  3 4737 

01.2560  C 0006 

01.2561  7 0117 

31.2562  7 2577 

31.2563  5C  CCO 

01.2564  1 2565 


RE  LI  NT 

CAF  BIT13 
EXTEND 

HP  POLISH 

MASK  B3TQB4 
INDEX  A 
TCF  +1 


2464  REF  290  LAST  1087 

2465  REF  5 LAST  1087 

2466  REF  359  LAST  1088 

2467  REF  1 


01.2565  4 0002  1 +1 

01.2566  7 0131  0 TEST 

01  ,2567  10  000  0 

Cl, 2570  1 2600  1 


CS  0 

MASK  SWBIT 

CCS  A 

TCF  SWSKIP 


2468  REF 


01,2571  1.  6720  0 


TCF  SWBBANCH 


2469  REF  2 LAST  1088 

2470  REF  8 LAST  1085 

.2471  REF  9 LAST  1088 

2472  REF  299  LAST  1088 

2473  REF  1 

2474 

2475  REF  2o  LAST  1080 

2476  REF  1 

2477  REF  54  LAST  1085 


01 ,2572  1 2600  1 


31.2600  2A  164  1 
01,2517 

01.2601  1 6064  1 


SW/ 

+ 13D 


EQUALS  SWITCHES 
TCF  OANZIG 


17:53  DECo  19,1069  SKIPPER  dOl  PAGE  1088 


USER  *S  PAGE  NOc  93  £3  S3 

11  - NOCP* 

CISPATCH  SEQUCe  CHANGING  OR  BRANCHING 
CODE* 

ORIGINALLY  STORED  IN  BITS  5-6o 

00  - BRANCH  IF  ONo 

01  - GO  TGo 

HERE  ONLY  ON  BIT  ? 5o 


10  - BRANCH  IF  OFF* 


11  - NOOP* 


GAP;  ASSEMBLE  REVISION  131  OF  AGC  PRCGRAf'  LUMINARY  BY  NASA  202111  2-091 


17:53  CeCo  19,1969  SKIPPER  olCl 


PAGE  1089 


L f- IKEC-F  IXEC  CONSTANT  POOL  USER'S  PAGE  N'Co  1 EO  S3 

0001  A732  BLOCK  02 


00015  REF  1 COLNT*  $t/FCCNS 

R00016  THE  FCLLCViiNG  TABLE  CF  16  VALUES  IS  lNDEXFn<,  DO  NOT  INSERT  OR  REMOVE  ANY  QLANTITIESs 


0002 

0003 


A732  37777  I DPCSMAX  OCT 
A732  37777  1 PDSMAX  OCT 


MUST  PRECEDE  POS^AX 


OQOA 

0007 
A 0008 
R0009 


REF 


LAST  1076 

BIT  TABLE 


A73A 


57777 


LIMITS  = NEGl/2 

N6G1 /2  nCT  -20000 


USED  BY  SIN  ROUTINE  (MUST  BE  TWO 
LOCATIONS  IN  FRCNT  CF  BITIAI 


0010 
0011 
003  2 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 


4735 

4736 

4737 

4740 

4741 

4742 

4743 

4744 

4745 
4 746 
4747 

4750 

4751 
^752 
4753 


40000  0 BIT15 
20000  0 eiT14 
lOCCC  0 BIT13 
C4000  0 BIT12 
C2000  0 EIT11 
CICOO  0 BITIO 
00400  0 e IT9 
00200  0 6IT8 
COIOO  0 BIT7 
ono40  0 eiT6 
OC020  C eiT5 
GOOlO  0 eiT4 
00004  0 eiT3 
COC02  0 BI T2 
00001  0 BITl 


OCT  40000 
OCT  20000 
OCT  10000 
OCT  04000 
OCT  02000 
OCT  01000 
OCT  00400 
OCT  00200 
ncT  COIOO 
OCT  00C40 
OCT  00020 
OCT  COOlO 
OCT  00004 
ncT  00002 
OCT  00001 


R0025 

0027 

0026 

A0029 

A0030 

A0031 

A0032 

0033 

A0034 

0035 

A0036 

A0037 

00375 

A0038 

0039 

A0040 

00401 

An041 

0043 


DC  NOT  DESTROY  THIS  COMBINATICN,  SINCE 

4754  77777  0 

4755  00000  1 

4756  00005  1 

^757  00007  0 

REF  6 LAST  461  4320 

4760  00C13  0 

4761  00015  0 

4762  00017  1 


IT  IS  USED  IN  DOUBLE  PRECISION 


NEGO 

ZERO 

PIT! 

NOeWOS 

0CTAL3 

R3DI 

FIVE 

REVCNT 

SEVEN 

eiT4 

R2C1 

OCTll 

BINCON 

ELEVEN 

C)CT14 

CCT15 

RlDl 

L0W4 


OCT 

OCT 

nCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

ncT 

DEC 

DEC 

OCT 

OCT 

OCT 

OCT 


00017 
1 3 

R2D1 


INSTPUCTIONSo 

MUST  PRECEDE  ZERO 
MUST  FOLLOW  NEGO 

I NTERPRETER 
INTERPRETER 
PINBALL 

INTERPRETER 


PINBALL 

P2PS 

PINBALL  (OCTAL  12J 

alarm  AND  ABORT  (FILLER) 
PINBALL 


gap:  assemble  revision  131  OF  AGC  PRCCRAM  LUMINARY  BY  NASA  2021112-091 


FIXED-FIXED  CONSTANT  POOL 


AOOAA- 

A00A5 

A0046 

A00^7 

AOOAR 

0048  5 
A004O 

00491 

0049  2 
00493 
0049A 
00  50 

A0051 

A0052 

A0053 

0054 

0055 
A0056 

0057 

0058 

0059 

0060 
A0061 


LAST  860 


A763 

4764 
4H4 

4765 

4765 

4766 


4767 

4770 

4771 

4772 

4773 

4774 


C0C30  1 
00033  1 
00035  1 
00032  0 


OOQ45  0 
C0046  0 

000  50  1 
00055  1 
00060  I 
00C62  0 


CCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 


OCT 


BITE 
NCI 
VOl 
OCT24 
MCI 

BITS4S5 
0CT31 
CCT33 
OEC27 
0CT35 
CEC29 

CALLCOOE  OCT 
LCW9  DCT 

330EC  DEC 
34CEC  DEC 
TBUILCFX  DEC 
TDECAYFX  DEC 
eiT6  OCT 

CCT50  OCT 
CEC45  DEC 
SUPEROll  OCT 


17:53  DECe  19,1969  SKIPPER  101  PAGE  1090 
USER  'S  PAGE  N0»  2 EO  S3 


PINBALL 

PINBALL 

SERVICE  ROUTINES 


o 5SEC 
eiT7 


DEC 

OCT 


50 

OCICO 


SERVICE  ROUTINES 


PINBALL 

PINBALL  (OCTAL  411 

PINBALL  (OCTAL  42  I 

BUILDUP  FOR  CONVIENCE  IN  DAPTESTING 
CONVENIENCE  FOR  OAFTESTING 


BITS  FOR  SUPFRBNK  SETTING  Oil: 


0062 

A0063 

0064 

A0065 

A0066 

0067 

A0068 

0069 

A0070 

A0071 

A0072 

A0073 

0074 

A0075 

A0076 

0077 

0079 

0080 
00801 

A0081 
AO  082 
A0O83 

0084 

0085 

0086 
00865 


REF  40  LAST  1086 


4745 

4775 

4776 

4777 


00120  1 SUPERlOl  OCT 


00140  1 
00144  0 


5001 

5002 
5CC3 
5004 


5005 

5006 

5007 
5010 


00401 

00454 

C0620 

00777 


C1124  1 
01211  1 
C1400  1 
01426  0 


SUPERllO  OCT 


5000  CO’lf'  0 


ISEC 

LCW7 

BITS 

CT215 

8,5 

2SECS 

LCW8 

BI  T9 


DEC 

CCT 

OCT 

OCT 

CCT 

DEC 

OCT 

OCT 


GN/CCOOE  OCT 


3secs 

4SECS 

LOWO 

6IT10 

5o  50EGS 

QCT1103 

C5/2 

V05Nn9 

CCT1400 

VQ6N22 


DEC 

DEC 

OCT 

CCT 

DEC 

OCT 

DEC 


120 

121 

140 

100 

177 

00200 

215 

00220 

200 

377 

00400 

00401 
300 
40C 
777 
01000 

*03056 

1103 

,0363551 

0509 

01400 

0622 


BITS  FOR  SUPERBNK  SETTING  ICO 
( LAST  4K  CF  ROPE ) 

BITS  FOR  SUPFRBNK  SETTING  101 
SERVICE  POUT  INES 
(FIRST  6K  CF  ACM» 

BITS  FOP  SUPERBNK  SETTING  110* 
(LAST  8K  OF  ACM) 

INTERPRETER 


PINBALL 

SET  S/C  CONTROL  S)nITCH  TO  G/N 


P20-P25  SUNDANCE 
ALARM  AND  ABORT 


(OCTAL  00765  ) 
(OCTAL  01124) 


( SAME  A S OCTAL  121  M 


gap:  assemble  REVISION  >31  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L FIXED-t-lXED  CONSTANT  POOL 


A00B7 

00075 

0088 

A0089 

A0090 

0091 

0092 

0093 

0094 
A0095 
A0C96 
A0097 

0098 

0099 

0100 


5011  01776 

5012  01777 


5013  02177 

5014  C24C0 

5015  03000 

5016  03400 


5017  05000 
5020  06000 
502!  070CO 


MD5 

0 BITS2-1( 

1 Lown 
BITll 
2K+3 

1 L0W7+2K 

1 EBANK5 

1 PR  103 

0 E0ANK7 
LOl^ll 
eiT12 
RELTAB 

1 PRI05 

1 PR  106 

0 PRI07 


OCT  1 740 

nCT  1776 

OCT  1777 

CCT  02000 

OCT  2003 

OCT  2177 

OCT  02400 

OCT  03000 

OCT  03400 

nCT  3777 

OCT  04C0C 

CCT  04025 

OCT  05000 

OCT  06000 

OCT  07000 


A 01 02 
A0103 
A0104 
0105 
A0106 
0107 
01C8 
AU109 
0110 
0111 
A0112 

0113 

0114 
A0115 
A0116 

0117 

01175 

01176  REF  1 

0118 
C119 
0120 

A0121 

AC122 

0123 

0124 

0125 
A0126 
A0127 

0128 

0129 

0130 

0131 

0132 
A0133 


5022 

5023 

5024 

5025 

5026 

5027 
5030 


5031 

7713 

7713 

7714 

7715 


7716 

7717 
7720 


772J 

7722 

7723 
772^ 
7725 


llOOO  1 

1300U  0 
14000  I 

15000  0 
16000  0 

17000  1 
17770  1 


210C0  1 


22000  1 
23000  0 
24000  1 


250C0  0 
26000  0 
27000  1 


31C00  0 
31103  1 
32000  0 
330CC  I 
34000  0 


B1T13  OCT 
OCT 

13  1 7,2  CCT 
PRIOll  OCT 
PRIC12  CCT 
PRI013  OCT 
PRIC14  OCT 
OCT 

PR1015  OCT 
PRIC16  OCT 
850EGS  DEC 
PR  1017  OCT 
CCT17770  CCT 
BIT14  OCT 
OCT 

PRI021  OCT 

BLOCK 

COUNT’ 

PRI022  OCT 
PRI02?  OCT 
PRIC24  CCT 
5/8+1  OCT 

OCT 

PRI025  OCT 
PR  1026  OCT 
PRIC27  CCT 
CHRPRIC  CCT 
OCT 

PR1C31  OCT 
Cl/2  DEC 

PR  1032  OCT 
PRI033  nCT 
PR  1034  OCT 
OCT 


10000 
10003 
1C102 
11000 
12000 
13000 
140CO 
) 4031 
1500C 
16000 
©45556 
17000 
17770 
20000 
20033 
21000 
03 

$$/FCONS 

22000 

23000 

24000 

24001 
24017 
25000 
260C0 
27000 
30000 
30036 
31000 
©785313^ 
32000 
33000 
3400C 
34034 


17:53  CECo  10,1969 
USER' S PAGE 
PINBALL 


SKIPPER  cin 
NC«  3 


PAGE  1091 
EO  S3 


PI  N’RAl  L 

OP  CODE  MASK  + BANK  1 FBANK  SETTING© 


PINBALL 

T4PUPT 


T4RUPT  RELTAB  +1D 

P20-P25  SUNDANCE 

BANKCALL 

T4RUPT  RELTAB  +20 


P20-P25  SUNDANCE  (OCTAL  16450) 


T4RUPT  RELTAB  +3D 


SERVICE  ROUTINES 


SINGLE  PRECISION  SUBROUTINES 
T4RUPT  RELTAB  +40 


PINBALL 

T4RLPT  RELTAB  +5D 

(OCTAL  31103  ) 


T4RUPT 


PFLTAB  +60 


gap:  assemble  REVISION  131  CF  AGC  PRCGPAM  LUMINARY  8Y  NASA  2021112-091 


17:53  DECo  19.1969  SKIPPER  ,101  PAGE  1092 


L FIXED-FIXED  CONSTANT  POOL 


USER'S  PAGE  NOe  A EC  S3 


013A 

0135 

0136 

0137 
A0138 

0139 

0140 

0141 
A01411 
A0142 
A0143 

0144 

0145 
A0146 

0146  5 

01466 

A0147 

A0148 

A0149 

01495 

A015O 

0151 

0152 

0153 

0154 

0155 
A0156 

0157 

A0158 

A0159 

A0161 

0162 

0163 

0164 


7726  35000  1 

7727  36000  1 

7730  37000  0 

7731  37401  0 

7732  37766  1 

7733  37774  1 

7734  37776  0 


7735  40014  0 

7736  40C15  1 

7737  40040  1 

7740  40200  1 


7741  57777  1 

7742  65552  0 

7743  70000  0 

77A4  73777  1 

7745  74000  1 

7746  74056  1 

7747  77700  0 


7750  77774  0 

7751  77775  1 

7752  77776  1 


PRI035  OCT 
PRIC36  OCT 
PRIG37  OCT 
63/64+1  OCT 
MID7  OCT 

OCT27766  OCT 
CCT37774  CCT 
0CT37776  OCT 
CPOSMAX  OCT 
BIT15  OCT 
ncT4000i  nCT 
CLCACCOD  OCT 
CLCAO*  OCT 
OCT 

eiT15+6  OCT 
OCT40200  OCT 
OCT 
OCT 
OCT 

-eiTl4  OCT 
RELTABll  OCT 
C3/2  DEC 

13,14,15  OCT 
-1/8  OCT 

FrGI-4  OCT 
-ENOERAS  DEC 
HI5  OCT 

HIGF9  OCT 
-ENDVAC  DEC 
-nCTlO  OCT 
NEG4  CEC 

NEG3  DEC 

NEG2  OCT 
NEGCNE  DEC 


35000 

36000 

37000 

374C1 

37600 

37766 

37774 

37776 

37777 

40000 

40001 
40C14 
4001  5 
40023 
40040 
40200 
44C35 
50037 
5400C 
57777 
60000 
-63216147 
70000' 
73777 
74000 
-2001 
760CC 
777C0 
-45 

-10 

-4 

-3 

77775 

-1 


PINEALL 


INTERPRETER  ( CS  1 INSTRUCTION! 


T4PLPT  RELTAB  +7C 


T4RLPT  RELTAB  +0D 
T4RUPT  RELTAB  +90 

T4PUPT  RELTAB  +100 


T4RUPT 


(CCTAL  65552  I 


PI NBALL 


(OCTAL  74056! 


INTERPRETER  (OCTAL  77722! 

(CCT  77767 ) 
(OCTAL  77773) 


gap:  ASSEMBLe  REVISION  131  OF  AGC  PRCGRAN  LUMINARY  BY  NASA  2021112-091 


L FIXEC-FIXEC  CONSTANT  POOL 


POlfcS  DEFINED  BY  EQUALS 

R0166  IT  WOULD  BE  TO  THE  USERS  ADVANTAGE  TO  OCCASIONALLY  CHECK  ANY  CF 
R0168  ACCIDENTAL  OfcFIMTlCN  CHANGESo 


0169  REF 

0170  REF 

0171  REF 

0172  REF 

0173  REF 
C174  REF 

0175  REF 

0176  REF 

0177  REF 

0178  REF 
C179  REF 

0180  REF 

0181  REF 

0182  REF 
01825  REF 

0183  REF 

0184  REF 

0185  REF 

0186  REF 

0187  REF 

0188  REF 

0189  REF 

0190  REF 

0191  REF 

0192  REF 

0193  REF 
01935  REF 

0194  REF 

0195  REF 

0196  REF 

0197  REF 

0198  REF 
01985  REF 

0199  REF 

0200  REF 

0201  REF 

0202  REF 

0203  REF 

0204  REF 


5 LAST  862 
11  LAST  1053 
49  LAST  998 
47  LAST  970 
1 

31  LAST  1022 
33  LAST  895 
5 LAST  1002 
16  LAST  1073 
41  LAST  970 
.7  LAST  1089 

4 LAST  503 
3 LAST  739 

15  LAST  460 
3 LAST  784 
36  LAST  1049 
7 LAST  1083 

24  LAST  1087 
1 

3 LAST  609 

25  LAST  1093 

26  .LAST  1093 
30  LAST  821 
13  LAST  888 

40  LAST  1088 

41  LAST  1093 
1 

26  LAST  1079 

65  LAST  1080 

66  LAST  1093 

5 LAST  472 
10  LAST  1020 

3 LAST  1005 
1 

40  LAST  1086 

41  LAST  1093 
1 

2 LAST  158 

6 LAST  908 


7752 
7752 
4753 
4752 
6 2 50 
6250 
4751 
6245 
4757 
4750 
4320 
4363 
4760 
4360 
4362 
4742 
5007 
4741 

4775 

4776 
4741 
4741 
4740 
5015 
4737 
4737 
7666 
4736 
4736 
4736 
4355 
4355 
6474 
7725 
4735 
4735 
6112 
4101 
4350 


MIMSl 

NEGl 

CNE 

TWC 

THREE 

LCF2 

FOLR 

SIX 

LCW3 

EIGHT 

NINE 

TEN 

NOUTCON 

CCT23 

nCT25 

PR  101 

E0ANK3 

PRI02 

0CT12O 

CCT140 

2K 

EBANKA 

PRI04 

EBANK6 

QUARTER 

PR inio 

ccTionoi 

PCSl/2 

PRI020 

HALF 

PRI030 

BIT13-14 

CCT30002 

B12T14 

NEGMAX 

VLCADCCC 

VLOAO* 

0CT60000 

BANKMASK 


NEGl 

NEGONE 

BIT! 

8IT2 

OC  TAL3 

THREE 

BI  T3 

REVCNT 

SEVEN 

61  T4 

R2D1 

eiNCCN 

ELEVEN 

VDl 

MDl 

eiTio 

0CT1400 

BI  TU 

SUPERlOl 

SUPERllO 

eiTll 

6IT11 

BI  T12 

PR  103 

81T13 

BI  T13 

CCSL 

HALF 

PIT14 

BIT14 

CHRPRIC 

PRI030 

TLOAC  +1 

PRIC34 

B1T15 

BIT15 

0CT40001 

RFLTABll 

HI5 


17:53  DEC-.  19,1969  SKIPPER  -101  PAGE  1093 
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HESE  SYMBOLS  IN  ORDER  TO  PREVENT  ANY 


NTERPRETER  USES  IN  PROCESSING  STORECODE 


gap: 

L 

0001 

0002 

0003 

0004 

0004 

0005 

0005 

0006 

0006 

0007 

0007 

0008 

0008 

0009 

0009 

0010 

0010 

0011 

0012 

0013 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAf*  LUMINARY  0Y  NASA  2021112-091 


37:53  DECc  19,1969  SKIPPER  olOl  PAGE  1094 


INTERPRETIVE  CCNSTANTS 


USER’  S PAGE  NC*  I EP  S3 


REF 


23r2000  SETLCC  INTPRETl 

23,2513  BANK 


REF  1 


REF  13  LAST 


904 


23.2513 

23.2514 
23  ,2515 
23,2516 
23,251  7 

23.2520 

23.2521 
23  ,2522 

23.2523 

23.2524 

23 .2525 

23.2526 
23,2  527 
23,2530 
23,2521 
23  ,2531 
23,2532 


10000  0 
OCOOO  1 
00000  1 
CCOOQ  1 
00000  1 
00000  1 
20000  0 
00000  1 
00000  1 
00000  1 
00000  1 
COOCO  1 
GOOOO  1 
CCOOO  1 

37777  1 
37777  I 


COUNT 

DP1/4TH  2CEC 
UNITZ  2DEC 
UNITY  20EC 
UNITX  2DEC 
ZEROVECS  2CEC 
2CEC 
20EC 

DPHALF 

CPPOSMAX  OCT 
OCT 


# $S/ICONS 

925 


0 

0 


0 

0 

0 

UNITX 

37777 

37777 


GAP: 

L 

POPIA 

0015 

0016 

0017 

0018 

0018 

0019 

0019 

0020 

0020 

0021 

0021 

0022 

0022 

0023 

0023 

0024 

0025 

0026 

0027 

0027 

00  28 

0028 

0029 

0030 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091  17:53  CGCo  19,1969 

INTERPRETIVE  CCNSTAN7S  USER'S  PAGE 


SKIPPER  , 101  page  1095 
NCc  2 EC  S3 


INTERPRETIVE  CONSTANTS  IN  THE  CTHER  HALF-KEMCRY 


REF  1 12,2000 

12,2000 


SETLOC  INTPRFT2 
BANK 


REF 


REE 

REF 


1 


5 LAST 
7 LAST 


12  ,2000 
12,2001 
12,2002 
12  ,2003 
12,2TC4 
12,2005 
12  ,2006' 
12,2007 
12  ,2010 
12,2011 
12,2012 
12  ,2013 

12.2014 

12.2015 
12  ,2016 
12,2017 
12  ,2020 
12,2021 
12,2022 

960  12  ,2306 

962  12,2004 


00000  1 
COOCO  1 
COOOO  1 
00000  1 
2CC0C  0 
00000  I 
COOOO  1 
COOOO  I 
00000  1 
00000  I 
COOOO  1 
00000  I 
77777  0 
77771  0 
77763  0 
37777  I 
37777  1 
37777  1 
37777  1 


CGLNT*  $E/ICCNS 
ZUNIT  20EC  C 

YUNIT  2DEC  0 

XLNIT  20EC  c5 

ZEROVEC  2CEC  0 

2CEC  0 

2DEC  0 

OCT  77777 
CEC-6  DEC  -6 

CeC-12  DEC  -12 

LODPMAX  20CT  3777737777 


LCDPMAXl  20CT  3777737777 


ZEROCP  = ZEROVEC 

HALFOP  = XUMT 


-0,-6, -12  MUST  REMAIN  IN  THIS  ORDER 


THESE  TWO  CONSTANTS  MUST  REMAIN 
ADJACENT  AND  THE  SAME  FOR  INTEGRATION 


GAP; 


ASSEf^BLE  REVISION  121  OF  AGC  PROGRAM  LUMINARY  B 


L SINGLE  PRECISICN  SLBRCUTINES 


SINGLE  FREC  ISICN  SINE 


5032 

AN'O  COS  INE 


00025  REF  1 
0003  REF  27 

0CC4  REF  1 

0005  REF  1 

0006  REF  2 

0007 

0008  REF  3 

0009  REF  1 

0010  REF  A 

0011  REF  5 

0012  REF  3 

0013 

0014  REF  6 

0015  REF  7 

0016  REF  2 

0017  REF  1 

0018 

0019  REF  8 

0020  REF  1 

0021 

0022  REF  1 

0023  REF  1 

0024 

0025  REF  2 

0026  REF  1 

0027 

0028  REF  9 

0029 

0030  REF  10 

0031  REF  300 

0032  REF  360 

0033  REF  4 

0034  REF  201 


LAST  1092 


LAST  1096 

LAST  1096 

LAST  1096 
LAST  1096 
LAST  1022 

LAST  1096 
LAST  1096 
LAST  1096 


LAST  1096 


LAST  1096 


LAST  1096 

LAST  1096 
LAST  1068 
LAST  1088 
LAST  1096 
LAST  1096 


5032  6 A736  1 

5033  55*075  0 

503A  1 5C36  C 

5035  k 1075  0 

5036  6 Onoo  1 

5037  £5*C75  0 

5040  1 5051  1 

5091  57*075  1 

5042  51*075  1 

5043  6 4734  0 

5044  4 0000  0 

5045  e 1075  1 

5046  55*075  0 

5047  1 SCSI  1 

5050  1 5067  1 

5051  C 0006  1 

5052  7 1075  0 

5053  55*076  0 
5C54  C 0006  1 

5055  7 5005  0 

5056  6 7742  1 

5057  C 0C06  I 

5060  7 1076  0 

5061  6 7722  1 

5062  C 0CC6  1 

5063  7 1075  0 

5064  20  001  1 

5065  55*075  0 

5066  0 0002  0 

5067  5C  COO  I 

5070  4 4734  1 

5071  C 0002  0 


SPCOS 

SPSIN 


SPT 


POLLEY 


ARG90 
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USFR'S  PAGE  NCc  1 ED  S3 

8L0CK 

02 

COUNT* 

AO 

TS 

TCF 

$1/  INTER 

half  ARGUMENTS  SCALED  AT  PI 

TEMK 

SPT 

CS  TEMK 

DOUBLE 

TS  TEMK 


TCF 

XCH 

INDEX 

AD 

COM 

POLLEY 

TEMK 

TEMK 

LIMITS 

AO 

TS 

TCF 

TEMK 

TEMK 

POLLEY 

TCF  ARG90 

EXTEND 

MP  TEMK 


TS 

EXTEND 

SO 

MP 

AD 

EXTEND 

C5/2 

C3/2 

• MP 

AO 

E XTEND 

SO 

Cl/2 

MP 

OCOUBL 

TEMK 

TS 

TC 

I NOEX 
CS 

TEMK 

0 

A 

LIMITS 

TC  Q 


RESULT  SCALED  AT  1 
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EXECUTIVE 


17:53  OECc  19,1969  SKIPPER 
USER’S  PAGE  NCo  1 


101  PAGE  1097 
EO  S3 


00025  REF 
00029 

0003  REF 
00031  REF 


5072 

5073- 

50TA 


C 0004  0 
£ 5164  1 
54  063  0 


COUNT*  i$/EXEC 
INFINT 

AD  FAKEPRET 

TS  NEWPRIQ 


LGCIMFAC  +61  - LOC(CPRET) 

PRIORITY  OF  NEW  JOB  + NCVAC  CIFIXLOC) 


0004 

0005 

0006 

0007 

0008 
0)09 
0010 
0011 

R0012 


REF  302  LAST  1096 


REF 

REF 

REF 

REF 

REF 


25  LAST  1039 


5075 

5076 
50  77 

5100 

5101 

5102 

5103 

5104 


C 0CC6  1 
5 0002  0 
3 0001  0 
52  C£6  C 
3 5163  0 
56  004  0 
54  061  I 
1 2626  0 


EXTEND 
INDEX  Q 
DCA  n 
OXCH  NBWLCC 
CAF  EXECBANK 
XCH  FBANK 

TS  EXECTEM) 

TCF  NnVAC2 


C WILL  BE  UNDISTUPEEC  TFROUGhOUTo 
2CACR  OF  JOB  ENTEREOo 


ENTER  FXECUTI  VE  BANK, 
ALL  (PARTIALLYI  INTERPRETIVE  JOBSc 


0014 

00145  REF 

0015 

0016  PEF 

0017 

0018 

0019 

0020 
0021 

R00211 

R002125 


REF 

REF 

KEF 

REF 


00213  PEF  3C4  LAST  1097 

00214  REF  6 LAST  381 

00215  REF  305  LAST  1097 

00216  REF  1 


TO  ENTER  A JOB  REQUEST  RECUIKING  A VAC  AREA  - EeGo 

5105  C 0004  0 FINCVAC  INFINT 

LAST  1097  5106  54  063  0 TS  NEWPRIO 

5107  C 0006  I EXTEND 

LAST  1097  5110  5 0002  0 INDEX  0 

5111  3 0001  0 CCA  0 

LAST  1097  5112  52  066  0 SPVACIN  OXCH  NEWLCC 

LAST  1097  5113  3 5163  0 CAF  EXECBANK 

LAST  1097  5114  56  004  0 XCH  FBANK 

5115  1 2602  0 TCF  FINDVAC2  CFF  TO  EXECUTIVE  SW ITCF  ED- B ANKo 

TO  ENTER  A FINDVAC  WITH  THE  PRICRITY  IN  NEWPRIO  TO  THE  2CADP  ARRIVING  IN  A AND  L: 

USERS  OF  SPVAC  MUST  INHINT  BEFORE  STORING  IN  NEWPRIO® 

SPVAC  X 


5116  56  002  0 

5117  6 7751  0 

5120  56  0C2  0 

5121  1 5112  1 


XfF 

TCF 


R0022 

0024 

0025 

0026 
0027 


TO  SUSPEND  A BASIC  JOB  SO 


REF  306 
REF  3 
REF  30 
REF  1 


LAST  1097 
LAST  1097 
LAST  1019 


5122  22  002  0 

5123  3 5163  0 

5124  56  0C6  1 

5125  1 2707  1 


NEG2 
0 

SPVACIN 

HIGHER  PRIORITY  JOB  MAY  BE  SERVICED: 
CHANG1 


LXCh 

CAF 

XCH 

TCF 


EXECBANK 

BBANK 

CHANJOB 


R0030  TO  SUSPEND  AN  INTERPRETIVE  JC0: 

0031  REF  3C  LAST  1088  5126  4 0164  0 C 

RO0315  ITRACe  (4J  REFERS  TC  "CHANG2"* 

0032  REF  210  LAST  1076  5127  64  001  1 


NEGATIVE  LOC  SHOWS  JOB  = INTERPRET IVE. 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  OECo  19,1969  SKIPPER  ..101  PAGE  1098 


GAP  : 


U L EXECUTIVE 


USER'S  PAGE  NCo  ? EO  S3 


u 


0033 
00335 

0034 


REF 

REF 

REF 


4 LAST  1C97 
31  LAST  1097 
2 LAST  1097 


M30  3 5163  0 

5131  54  C06  0 

5132  1 2706  0 


CAF  EXECPANK 

TS  BBANK 

TCF  CHANJOB  -1 


1/ 


I 


I 


I 

[y 


GAP;  ASSEMBLE  REVISION  131  OF  AGC  PRCGRAh'  LUMINARY  BY  NASA  2021112-09]  17:53  OECo  19,1969  SKIPPER  : 101  PAGE  1099 

L EXECUTIVE  USER'S  PAGE  NCo  3 £0  S3 

P0035  TO  VOLUNTARILY  SLSPE^C  A JCB  UNTIL  ThE  COMPLETION  OF  SOME  ANTICIPATED  EVENT  ( I /D  EVENT  ETCn): 


0037  REF  31  LAST  1097 

0C38  REF  5 LAST  1098 

0039  REF  27  LAST  1C97 

0090  REF  1 


5133'  5.9  169  0 

5139  3 5163  0 

5135  59  0C9  J 

5136  1 2777  0 


JOBSLEEP 


TS 

CAF 

TS 

TCF 


LOC 

E XECBANK 

FBANK 

JOBSLPl 


R0091 


TO  AVsAKEN 


JCB  PUT 


TC  SLEEP  IN  ThE  ABOVE  FASHION: 


0092 
00921 

0093 
0099 

0095 

0096 

0097 


REF  3 LAST  1097 
REF  71  LAST  1036 
REF  307  LAST  1097 
REF  6 LAST  1099 
REF  28  LAST  1099 
REF  1 


5137  C 00C9  0 

5190  59  065  C 

5191  9 9752  1 

5192  26  002  1 

5193  3 5163  0 

5199  56  009  0 

5195  1 2029  0 


jnewAKE 


INHINT 

TS  MEhLOC 

CS  TWO 

ADS  0 

CAF  EXECBANK 

XCH  F6ANK 

TCF  jnBWAKE2 


EX  IT 


IS  VIA  FINDVAC/NOVAC  PROCEDURES^ 


R0098 


TO  CHANGE 


THE  PRICRITY  OF  A 


JOB  CURRENTLY  UNDER  EXECUTION: 


0099 

0050  REF 

0051  REF 

0052  REF 

0053  REF 
0059 
0055 


5 LAST  1097 
7 LAST  1C99 
LAST  1098 
LAST  1019 
LAST  1C99 


3? 
9 

KEF  308 
REF  1 • 


5196  C 0009  0 

5197  59  063  0 

5150  3 51  63  0 

5151  56  C06  I 

5152  59  165  1 

5153  3 0002  0 

5159  1 3073  1 


PRI0CHN6  INHINT 


XCH 
TS 
CA 
TC  F 


NEWPRIO 
EX  eCBANK 
BBANK 
PANKSET 
0 

PR  I0CH2 


NEW  PRIORITY  ARRIVES  IN  A^  RETURNS  TO 
CALLER  AS  SOON  AS  NEW  JCB  PRIORITY  IS 
HIGHEST*  PREPARE  FOR  POSSIBLE  BASIC- 
STYLE  CHANGE-JCPc 


R0058 


TO  REMOVE 


A JCB  FROM  EXECUTIVE 


CONSIDERATIONS: 


0059  REF  8 LAST  1099 

0060  REF  29  LAST  1099 


0061  REF  1 


5155  2 5163  0 

5156  59  009  1 

5157  1 3109  0 


FNOCF JCB 


CAF 

TS 

TCF 


EXECBANK 

FBANK 

ENCJCBl 


0062 

0063 

0069 

0066 


REH  2 LAST  1097 

REF  30  LAST  1099 

REF  2 LAST  525 

REF  2 LAST  1097 


5160  2 0061  0 

5161  59  009  1 

5162  1 6799  1 

5163  02602  1 


ENDFINO 


EXECBANK 


CA  EXECTEMl 

TS  FBANK 

TCF  Q+2 

CADR  FIN0VAC2 


RETURN  TC  CALLER  AFTER  JOB  ENTRY 

COMPLETE* 


00665  REF  720  LAST  1089 


5169  00110 


FAKEPRET  ACRES  MPAC  -36C 


LOCIMPAC  +6)  - LOCIOPRFTI 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L EXECUTIVE 


P0067  LOCATE  AN  AVAILABLE  VAC  AREA, 


00685  REF  1 

0069  REF  3 

0070  REF  4 

0071  REF  1 

0072  REF  3 

0073  REF  2 

007^  REF  3 

0075  REF  3 

0076  REF  3 

0077  REF  4 

0078  REF  3 

0079  REF  5 

00792  REF  4 

00794  REF  309 

0080  REF  3 

0081 


0082  REF  72 

0083 

0084  REF  361 

0085 

0086  REF  6 


LAST  1099 
LAST  245 

LAST  245 
LAST  1100 
LAST  245 
LAST  lion 
LAST  245 

LAST  imo 

LAST  245 
LAST  1100 
LAST  1100 
LAST  1C99 
LAST  246 


LAST  1099 
LAST  1096 
LAST  1C99 


01t2602 

Cl  ,2602 
C1,26C3 
01,2604 
C1,260S 
01,26C6 
Cl  ,2607 
01,2610 
01,2611 
01  ,2612 
Cl, 26)3 

01.2614 

01.2615 

01.2616 
01  ,2617 
01,2620 


01,2622 

01.2623 

11.2624 

01.2625 


54  061  1 
1C  40C  1 
1 2621  1 
1C  454  0 
1 2621  1 
10  530  0 
1 2621  1 
10  604  1 
1 2621  1 
10  660  0 
1 2621  1 
22  061  0 
2 0002  0 
C 5706  0 
31201  0 


6 4752 
22  007 
5C  CCC 
21'777 
26  C63 


Q 

0 

1 

0 

C 


BANK 

COUNT 

FINrVAC2  TS 
CCS 
TCF 
CCS 
TCF 
CCS 
TCF 
CCS 
TCF 
CCS 


01 

$S/EXEC 

exFCTEMl 

VAC)  USE 

VACFCUNO 

VAC2USE 

VACFCUNO 

VAC3USE 

VACFCUNO 

VAC4USE 

VACFnUND 

VAC5USE 


0087  REF  216 

0088  REF  5 

0089  REF  1 

0090  REF  1 

0091  REF  6 

0092  REF  12 

0093  REF  1 

0094 

0095  REF  2 

A0096 


LAST  1080 
LAST  462 


LAST  1100 
LAST  850 


LAST  llOO 


01,2626 
J1  ,2627 
01,26:0 

01.2631 

01.2632 

01. 2633 
01  ,2634 
01  ,2635 
Cl, 2636 


3 4755  1 
54  064  1 
3 2635  C 
54  062  I 
50  C64  0 
1C  167  0 
1 2675  0 
CC007  0 
1 2675  0 


N0VAC2  CAF 
TS 
CAF 

N0VAC3  TS 

INCEX 

CCS 

TCF 

NCoCORES  DEC 
TCF 


ZERO 

LOCCTR 

NOcCCRES 

EXECTEM2 

LOCCTR 

PRIORITY 

NEXTCORE 

7 

NEXTCORE 


17:53  OECo  19,1969  SKIPPER  c 101  PAGE  1100 


USER'S  PAGE  NCo  4 EO  S3 


( SAVF  CALLER'S  BANK  FIRSTr  » 


NO  VAC  AREAS 


RFSERVe  THIS  VAC  AREA  BY  STCRING  A ZERO 
IN  ITS  VAC  USE  REGISTER  AND  STORE  THE 
ADDRESS  CF  THE  FIRST  WORD  OF  IT  IN  THE 
LOV*  NINE  BITS  CF  THE  PPICRITY  WORDo 


NOVAC  ENTERS  HERE®  FIND  A CORE  SET, 
SEVEN  SETS  OF  ELEVEN  REGISTERS  EACH,. 


EACH  PRIORITY  REGISTER  CONTAINS  -0  IF 
THE  CORRESPONDING  COPE  SET  IS  AVAILABLEo 

AN  ACTIVE  JCB  HAS  t PCSITIVE  PRIORITY 
BUT  A DORMANT  JOB'S  PRIORITY  IS  NEGATIVE 


gap:  assemble  revision  131  CF  AGC  PRCGRAM  LUMINARY  SY  NASA  2021112-C91 

L EXECUTIVE 


0097  REF  7 

0098  REF  7 

0099  REF  13 

0100  REF  9 

0101  REF  8 

0102  REF  29 


LAST  1100  01 
LAST  1100  '*1 
LAST  1100  01 
LAST  858  Jl 
LAST  1101  01 
LAST  1071  Cl 


,2637  2 0063  1 

,26  AO  5.0  064  0 
,2641  54  167  0 

,2642  7 5004  1 

,2643  50  064  0 

,2644  54  l'66-l 


CORFOUND  CA 

INDEX 

TS 

MASK 

INCEX 

TS 


NFViPRlC 

LOCCTR 

PRIORITY 

L0W9 

LCCCTR 

PUSHLCC 


0103 

0104 

0105 

0106 
0107 


REF  9 LAST  1101 
REF  1 

REF  11  LAST  1084 
REF  30  LAST  UOl 
REF  54  LAST  1085 


01.2646 

01.2647 
01,2650 
Cl,265J 


10  064 
1 2662 
54  121 
3 0166 
54  120 


1 

0 

I 

0 

C 


LOCCTR 
SETLCC 
OVFINO 
PUSHLCC 
FI  XLCC 


0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 


REF  7 LAST  997 
REF  2 LAST  1101 
REF  10  LAST  10B8 
REF  11  LAST  UOl 
REF  8 LAST  UOl 
REF  4 LAST  1099 
REF  32  LAST  1099 
REF  1 


01.2652  10  067  1 

01.2653  1 2662  0 

01.2654  C 5675  0 

01  ,2655  0 5675  0 

01.2656  54  C67  1 

01.2657  52  066  0 

01.2660  52  165  1 

01.2661  1 516C  1 


SP  ECTEST  CCS 
TCF 
TC 


DXCH 

CXCh 

TCF 


NEWJOR 

SETLOC 

CCSHOLE 

CCSHOLF 

NEWJCB 

NENLOC 

LOC 

ENDFI NO 


0116  REF 

0117  REF 

0118  REF 
Olio  REF 

0120  REF 

0121  REF 

0122 

0123  REF 

0124  REF 

0125  REF 

0126  REF 


5 LAST  UOl 

10  LAST  1101 
33  LAST  UOl 

9 LAST  UOl 
14  LAST  1101 
0 LAST  1101 

2 LAST  UOl 

11  LAST  1101 
10  LAST  UOl 

3 LAST  UOl 


01,2662  52  066  0 SETLOC  OXCH  NEWLOC 


01  ,2663  50  C64  O 

01,2664  52  165  1 

01  ,2665  50  067  0 

01.2666  4 C167  0 

01.2667  6 0063  1 

Tl,2670  0 0006  ) 

01,2671  6 516C  0 

01  ,2672  3 0064  0 

01.2673  54  067  1 

01.2674  1 5160  1 


INDEX  LOCCTR 
DXCH  LQC 
INDEX  NEWJOB 
CS  PRIORITY 

AO  NE^.PRIC 

EXTEND 

BZMF  ENCFIND 
CA  LOCCTR 

TS  NEWJOB 

TCF  ENDFIND 


0127  REF  I 

0128  REF  12 

0129  REF  2 

0130  REF  1 
01302  REF  5 
01304  REF  310 

0131  REF  i 

0132 


LAST  1101 
LAST  1100 

LAST  1100 
LAST  UOO 
LAST  UOO 


01  ,2675  3 3034  0 

01 .2676  26  064  1 

01.2677  10  062  1 

01.2700  1 2631  0 

01.2701  22  C61  0 

01.2702  3 0002  0 

01.2703  0 5706  0 

01.2704  31202  0 


17:53  DEC*  19,1069  SKIPPFR  olOl  PAGE  1101 


USER’S  PAGF  NOo  5 EO  S3 

SET  THE  PRICPITY  OF  THIS  JOB  IN  THE  CURE 
SET'S  PRIORITY  REGISTER  AND  SET  THE 
JOB'S  PUSH-CnWN  POINTER  AT  THE  BEGINNING 
OF  THE  WORK  AREA  AND  CVERFLCW  INDICATOR 


CFF  TO  PREPARE  FOR  INTERPRETIVE  PROGRAMS 


IF  COPE  SET  ZERO  IS  BEING  LOADED,  SET  UP 
CVFIND  AND  FIXLOC  IMMEDIATELY  <. 


SEE  IF  ANY  ACTIVE  JC6S  WAITING  (RAREIc 
MUST  BE  AWAKENED  BUT  UNCHANGED  JOB® 

*0  SHOWS  ACTIVE  JOB  ALREADY  SET, 


SET  UP  THE  LOCATION  REGISTERS  FOR  THIS 


THIS  INDEX  INSTRUCTION  INSURES  THAT  THE 
HIGHEST  ACTIVE  PRIORITY  WILL  BE  COMPARED 
WITH  THE  NEW  PRICPITY  TC  SEE  IF  NEWJOB 
SHOULD  RE  SET  TO  SIGNAL  A SWITCHc 

LOCCTR  IS  LEFT  SET  AT  THIS  CORE  SET  IF 
THE  CALLER  WANTS  TO  LOAD  ANY  MpAC 
REGISTERS,  ETC, 


NO  COPE  SETS  AVAILABLE, 


gap:  ASSEN'BLE  REVISION  13J.  OF  AGC  PROGRAM  LLMINARV  BY  NASA  2021112-091 
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L 

P0133 

01345 

C135 

0136 

01362 

01364 

01366 

01368 

E XECLTI  V6 

THE  1 

REF  34  LAST 
RFF  10  LAST 

REF  15  LAST 
REF  211  LAST 
REF  11  LAST 

FGLLOKl 

1101 

1099 

ING  ROUTI NE  SWAPS 

31t2705  22  164 
0l|270b  3C  165 
31,27C7  C CC04 
01  ,2710  0 0006 

CORE  SET  0 

1 -2 

UITF  THAT  WhCSE 

LXCH  LOG 

USER  • S PAGE  NO*  6 £0  S3 

RELATIVE  ADDRESS  IS  IN  NEWJO0« 

0 —1 

0 CHANJOB 

1 

LAt 

INHINT 

EXTEND 

UANKS  t \ 

BANKSET,  NOT  BBAMK,  HAS  RIGHT  CONTENTSc 

995 

1097 

1101 

U1  , .i  III 

01,2712 
01  ,2713 

t**  uur 

56  COl 
50  067 

1 

0 

0 +4 

POP 

XCH 

INDEX 

SUPER  BNK 
L 

NEWJOB 

PICK  UP  CURRENT  SBANK  FOR  BBCON 

LOC  IN  A AND  BBCON  IN  lo 

SWAP  LOC  AND  BANKSET, 

0137 

33 

um:)  I 

1 10  2 

01,2714 

52  165 

1 

D X CH 

LOC 

0138 

REF 

36 

LAST 

1102 

01,2715 

52  165 

1 

DXCH 

LOC 

01382 

REF 

'll 

LAST 

1102 

01,2716' 

30  165 

0 

CAF 

BANKSET 

01384 

01,2717 

C 0006 

1 

EXTEND 

01388 

REF 

16 

LAST 

1102 

01  ,2720 

Cl  007 

1 

WRITE 

SUPERBNK 

SFT  SBANK  FOR  NEW  JCB, 

0139 

REF 

721 

LAST 

1099 

01 ,2721 

£2  155 

1 

DXCH 

MPAC 

SWAP  MULTI-PURPOSE  ACCUMULATOR  AREAS, 

0140 

REF 

12 

LAST 

1102 

01,2722 

50  067 

0 

INDEX 

NEWJOB 

0141 

REF 

722 

LAST 

1102 

01  ,2723 

52  155 

1 

CXCh 

MPAC 

0142 

REF 

723 

LAST 

1102 

01, 2724 

52  155 

1 

DXCH 

MPAC 

0143 

REF 

724 

LAST 

1102 

01,2725 

52  157 

0 

DXCH 

MPAC  +2 

0144 

REF 

13 

LAST 

1102 

01,2726 

50  067 

0 

INDEX 

NEwjne 

0145 

REF 

725 

LAST 

1102 

01,2727 

0146 

REF 

726 

LAST 

1102 

01  ,2730 

52  157 

0 

DXCH 

MPAC  +2 

0147 

REF 

727 

LAST 

1102 

Cl  ,2731 

52  161 

c 

CXCH 

MPAC  +A 

0148 

REF 

14 

INDEX 

NEWJOB 

1 10  2 

01,2722 

50  C67 

0 

0149 

REF 

728 

LAST 

1102 

01  ,2733 

52  161 

0 

DXCH 

MPAC  +4 

0150 

REF 

729 

LAST 

1102 

01,2724 

52  161 

c 

DXCH 

MPAC  +4 

015] 

REF 

730 

LAST 

1102 

01,2735 

52  163 

1 

DXCH 

MPAC  +6 

0152 

REF 

15 

LAST 

1102 

01,2736 

50  067 

0 

INDEX 

NEWJQ8 

0153 

REF 

731 

LAST 

1102 

01,2737 

52  163 

1 

1 

DXCH 

MPAC  +6 

0154 

REF 

732 

LAST 

1102 

01  ,2740 

52  163 

CXCH 

MPAC  +6 

0155 

REF 

217 

LAST 

1100 

01,2741 

3 4755 

1 

CAF 

ZERO 

0156 

REF 

12 

LAST 

1101 

01,2742 

56  121 

0 

XCH 

OVFIND 

MAKE  PUSHLOC  NEGATIVE  IF  OVFIND  N2, 

0157 

01,2743 

C 0006 

1 

FXTEND 

0158 

01,2744 

1 2747 

0 

82F 

+ 3 

0159 

REF 

31 

LAST 

1101 

01,2745 

4 0166 

1 

CS 

PUSHLOC 

0160 

REF 

32 

LAST 

1102 

01,2746 

54  166 

1 

TS 

PUSHLOC 

0161 

REF 

33 

LAST 

1102 

01,2747 

52  167 

0 

DXCH 

PUSHLCC 

0162 

REF 

16 

LAST 

1102 

01  ,2750 

50  067 

0 

INDEX 

NEWJOB 

0163 

REF 

34 

LAST 

1102 

01,2751 

52  167 

c 

CXCH 

PUSHLCC 

0164 

REF 

35 

LAST 

1102 

01,2752 

52  167 

0 

DXCH 

PUSHLOC 

SWAPS  PUSHLCC  AND  PRICRITY, 

0165 

REF 

10 

LAST 

1101 

01,2753 

3 5004 

0 

CAF 

L0W9 

SET  FI  XLOC  TO  BASE  OF  VAC  AREA,. 

0166 

REF 

15 

LAST 

1101 

01,2754 

7 C167 

0 

MASK 

PRIORITY 

0167 

REF 

55 

LAST 

1101 

01  ,2755 

54  120 

0 

TS 

F I XLOC 

0168 

REF 

36 

LAST 

U02 

01,2756 

10  166 

1 

CCS 

PUSHLOC 

SET  overflow  indicator  ACCORDING  TO 

0169 

REF 

218 

LAST 

1102 

01, 2757 

3 4755 

1 

CAF 

ZERO 

0170 

REF 

1 

01  ,2760 

1 2765 

0 

TCF 

ENDPRCHG 

-1 

GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCCRAM  LUMINARY  BY  NASA  2021112-091 

L EXECUTIVE 


0171  REF  37  LAST  1102 

0172  REF  38  LAST  1103 

0173  REF  113  LAST  1066 

0174  KEF  13  LAST  llU2 

0175  REF  17  LAST  1102 


01,2761  4 0166  1 

01  ,2762  54  166  1 

01.2763  3 4753  1 

01.2764  56  121  0 

01.2765  54  067  1 


CS  PUSHLOC 

TS  PUSHLOC 

CAF  ONE 

XCF  OVFINO 

TS  NEWJOB 


0176 

0177 

0178 

0179 

0180 


REF  37 


LAST  1102 


01,2766 
01  ,2767 
01  ,2770 
01,2771 
01  ,2772 


0 CCC3  1 
52  165  1 
0 0006  1 
6 2773  0 
52  006  0 


6N0PRCHG  RELINT 
CXCH 
EXTEND 
BZMF 
DTC8 


LOC 
+ 2 


17:53  OECb  19,1969  SKIPPFP 


101  PAGE  1103 


USER  ‘S  PAGE  N0« 


EO  S3 


BASIC  JOBS  HAVE  POSITIVE  ADDRESSES,  SO 
DISPATCH  WITH  A DTC8, 

IF  INTERPRETIVE,  SET  UP  EBANK,  ETCo 


GAP 


ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L EXECUTIVE 


0181 

0182 

0183 

0186 


REF  llA 
REF  38 
REF  1 


LAST  1103 
LAST  1103 


01  ,2773 

01.2774 

01.2775 

01.2776 


4 0000  0 
6 4753  1 
5A  164  0 
1 6053  0 


COM 

AD  ONE 

TS  LOC 

TCF  INTRSM 


R0187 


COMPLETE  jneSLEEP  PREPARATIONS* 


0188 

0189  REF  16 

0190  REF  17 

0191  REF  8 

0192  REF  33 

01921 

01922  RFF  17 

0193  REF  12 

0194  REF  219 

0195  REF  14*5 

0196  REF  1 


LAST  1102 
LAST  U04 
LAST  1036 
LAST  1099 

LAST  1102 
LAST  1102 
LAST  1102 
LAST  1074 


01,2777  0 0004  0 JCeSLPl 

01.3000  4 0167  0 

01.3001  54  167  0 

01  ,3002  3 6077  1 

01.3003  7 ccce  C 

71.3004  0 0006  1 

01.3005  04  007  1 

01.3006  54  165  1 

01  ,3007  4 4755  0 

01.3010  54  131  0 JCeSLP2 

31.3011  1 3123  1 


INhINT 

CS  PRIORITY 

TS  PRIORITY 

CAF  L0W7 

MASK  BBANK 

EXTEND 

ROP  SUPERBNK 

TS  BANKSET 

CS  ZERO 

TS  BUF  +1 

TCF  EJSCAN 


01961 

019611 

019612 

019613 

019614 


REF 


REF 


18  LAST  1103 


01.3012  0 0004  0 

01.3013  10  067  1 

01.3014  1 3017  0 

01.3015  0 0003  1 

01.3016  3 3217  1 


NUCFANG2 


INFINT 

CCS  NEWJOB 

TCF  +3 

RELINT 

TCF  ADVAM  ^■2 


01962  REF  73  LAST  1100 

01963 

01964  REF  30  LAST  858 

01965  REF  39  LAST  1104 

01966  REF  3 LAST  1098 


01  ,3017 

01.3020 

01.3021 

01.3022 

01.3023 


3 4752 
C 0CC6 
05  011 
52  165 
1 2713 


0 

1 

1 

1 

1 


CAF  TWO 
EXTEND 

WOR  DSALM0L7 
DXCH  LOC 
TCF  CHANJCB  + 


17:53  DEC*  19,1969  SKIPPER  ^101  PAGE  1104 
USER'S  PAGE  NCo  8 EC  S3 

EPILOGUE  TO  JOB  CHANGE  FOR  INTERPRETIVE 
RESUME* 


NNZ  PRIORITY  SHOWS  JOB  ASLEEP* 


SAVE  OLD  SUPERBANK  VALUE* 


HOLDS  - HIGHEST  PRIORITY* 

SCAN  FOR  HIGHEST  PRIORITY  ALA  ENDOFJOB* 

QUICK*,*  OONT  LET  NEWJOB  CHANGE  TO  +0  * 

NEWJOB  STILL  PNZ 

NEWJOB  HAS  CHANGED  TO  +0*  WAKE  UP  JOB 
VIA  NUDIPECT,  (VERY  RAPE  CASE*) 


TURN  ON  ACTIVITY  LIGHT 
AND  SAVE  ADDRESS  INFO  FOR  BENEFIT  OF 
POSSIBLE  SLEEPING  JOBs 


gap; 

L 

P0197 

R0199 

R0201 

02G2 

0203 

020A 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

.0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

023Q 

0240 


ASSEf'BLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19,1069  SKIPPER  -101  PAGE  1105 


EXECUTI  VE 


USER  'S  PAGE  NO,  9 


EO  S3 


TO  WAKE  UP 
LCC  REGISTER  OF  ANY 
LCCCTR  I S SET  TO  -1 


A JOB,  EACH  CORE  SET  IS  FOUND  TO  LOCATE  ALL  JTBS  WHICH  ARE  ASLEEP*, 
SUCH  JOB  MATCHES  THAT  SUPPLIED  BY  THE  CALLER,  THAT  JOB  IS  AWAKENFDo 
AND  NC  FURTHER  ACTION  TAKES  PLACE* 


IF  THE 
IF  NO 


FCADR  IN  THE 
JCB  IS  FOUND, 


REH  6 
REF  220 
REF  13 
REF  2 
REF  3 
REF  lA 
REF  18 
REF  1 

REF  1 


LAST  1101 
LAST  1104 
LAST  1101 
LAST  1100 
LAST  1101 
LAST  1105 
LAST  lir4 


Cl, 3024 
J1  ,3025 
Cl, 3026 
01,3p27 
01,3030 
Cl, 3031 
n,3032 
Cl  ,3033“ 
Cl, 3034 
01  ,3035 


54  C61  1 
3 4755  I 
54  064  1 
3 2635  0 
54  062  1 
5C  C64  0 
10  167  0 
1-  3C36  0 
00014  1 
1 3045  1 


J0EWAKE2  TS 
CAF 
TS 
CAF 

JCEWAKE4  TS 

INDEX 

CCS 

TCF 

COREINC  DEC 
TCF 


EXECTEMl 
ZERO 
LOCCTR 
NOeCORES 
EXECTEM2 
LCCCTR 
PR lORI TV 
JOEWAKES 
12 

WAKET6ST 


BEGIN  CORE  SET  SCANe 


ACTIVE  JOB  - 
12  REGISTERS 
SLEEPING  JOB 


CHECK  NEXT  CORE  SET^ 
PEP  CCRE  SET* 

- SEE  IF  CADR  MATCHES* 


REF  2 
REF  15 
REF  4 
REF  1 
REF  115 
REF  16 
REF  4 


LAST  1101 
LAST  1105 
LAST  1105 

LAST  1104 
LAST  1105 
LAST  1101 


01.3036 

01.3037 
Cl, 3040 
01,3041 
01  ,3042 
Cl ,3043 
Cl, 3044 


3 3C34  C 
26  064  1 
1C  062  1 
I 3030  0 

4 4753  0 
54  064  1 
1 5160  1 


JCeWAKE3 


CAF 

ADS 

CCS 

TCF 

CS 

TS 

TCF 


CCREINC 

LOCC  TR 

EXECTEM2 

J08WAKE4 

ONE 

LOCCTR 

ENCFINC 


EXIT  IF  SLEFPING  JCB  NCT  FCUNDo 


REF  6 
REF  17 
REF  40 


REF  2 


LAST  1101 
LAST  1105 
LAST  1104 


LAST  1105 


01  ,3045  4 0065  0 

01.3046  50  C64  0 

01.3047  6 0164  1 

01 .3050  0 0006  1 

01.3051  1 3C53  0 

01.3052  1 3036  0 


WAKETEST 


CS 

INDEX 

AD 

EXTEND 

BZF 

TCF 


NEWLOC 

LOCCTR 

LOC 

+ 2 

J0BWAKE3 


IF  MATCH* 

EXAMINE  NEXT  CORE  SET  IF  NC  MATCH* 


REF  18 
REF  19 
REF  9 
REF  19 
REF  20 


LAST  1105 
LAST  1105 
LAST  1101 
LAST  1105 
LAST  1105 


01.3053 

01.3054 
01  ,3055 
Cl, 3056 
01,3057 


50  064  0 
4 016?  C 
54  063  0 
5C  C64  0 
54  167  0 


INDEX  LOCCTR  RE-COMPLEMENT  PRIORITY  TO  SHOW  JOB  AWAKE 

CS  PRIORITY 

TS  NEWPRIO 

INDEX  LCCCTR 
TS  priority 


REF  1 

REF  7 LAST  1105 
REF  3 LAST  1017 
REF  8 LAST  1105 
REF  2 LAST  1105 
REF  20  LAST  1105 
REF  13  LAST  1104 
REF  9 LAST  1105 


Cl, 3060  4 4350  1 

Cl, 3061  7 0065  0 

01  ,3062  6 4741  I 

Cl ,3063  56  065  1 

01,3064  7 4? 50  1 

Cl  ,3065  50  064  0 

Cl, 3066  6 C165  0 

01,3067  54  066  0 


CS  FBANKMSK  MAKE  UP  THE  2CADR  OF  THE  WAKE  ADDRESS 

MASK  NEWLOC  USING  THE  CADR  IN  NEWLOC  AND  THE  EBANK 

AC  2K  HALF  OF  BBANK  SAVED  IN  BANKSETo 

XCH  NEWLOC 

MASK  FBANKMSK 

INDEX  LOCCTR 

AD  BANKSET 

TS  NEWLOC  +l 


REF  21  LAST  1K5  Cl, 3070  10  064  1 

REF  3 LAST  1101  01,3071  1 2662  0 

REF  1 n ,3072  1 2652  0 


CCS  LOCCTR  SPFCIAL  TREATMENT  IF  THIS  JOB  WAS 

TCF  SETLOC  ALREADY  IN  THE  PUN  (0  1 POSITION* 

TCF  SPECTEST 


GAP : 

L 

P0241 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 


ASSEMbLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  OeCo  19,1969  SKIPPER  101  PAGE  1106 


EXECUTIVE  USER’S  PAGE  NOo  JC  EO  S3 

PRIORITY  CHANGE^  CHANGE  THE  CONTENTS  OF  PRICRITY  ANC  SCAN  FOR  TFE  JOB  OF  HIGHEST  PRICRITYo 


■A\ 


REF 

REF 

REF 


LAST  1105 
LAST  1105 
LAST  1104 
LAST  1102 
LAST  1105 
LAST  1105 
LAST  1106 


01  ,3073 
Clt3074 
01,3075 
-01,3076 
01,3077 
01-,3100 

01.3101 

01. 3102 
01  ,3103 


54  164  0 
3 4755  I 
54  130  1 

3 5004  0 
7 C167  C 
6 0063  1 
54  167  0 

4 0000  0 
1 3010  1 


PRICCH2  TS 


COM 

TCF 


LOC 

ZERO 

BUF 

L0H9 

PRICRITY 

NEWPRIO 

PRIORITY 

J06SLP2 


SET  FLAG  TO  TELL  ENOJOB  SCANNER  IF  THIS 
JOB  IS  STILL  HIGHEST  PRIORITY,, 


AND  TO  EJSCANo 


gap: 


ASSEMBLE  REVISION  131  OF  AGC  PPCGRAf'  LUMINARY  BY  NASA  20211  12-091 


17:53  DECo  1^.1969  SKIPPER  dOl 


PAGE  1107 


L EXECUTIVE 


USER'S  PAGE  NGo  11  EO  S3 


P0252  RELEASE  THIS  CCRE  SET  AND  VAC  AREA  ANC  SCAN  FOR  TFE  JOB  OF  HIGHEST  ACTIVE  PBIORITYo 


0254 

0255  PEF  222 

0256  REF  151 

0257  REF  23 

0258  REF  12 

02581  PEF  212 


LAST  11U6 
LAST  1106 
LAST  1106 
LAST  1106 
LAST  1102 


01i31C4  0 C004  0 
01 »3105  4 4755  0 
Cl, 3106  .54  131  0 
J1,3107  56  167  1 
01  ,3110  7 5004  1 
01,3111  5A  CCl  1 


ENDJOBl 


INHINT 
CS  ZERO 

TS  BUF  +l 

XCh  PRIORITY 

MASK  L0W9 
TS  L 


02582  REF  2 LAST  1097 
025821  REF  213  LAST  1107 


01,3112  4 5164  0 

Cl, 3113  6 OOOl  0 


CS  FAKEPRET 

AC  L 


02583 

02584  REF 


2 LAST  1104 


01,3114  0 0006  1 

01  ,3115  6 3121  0 


EXTEND 

6ZMF  EJSCAN  NOVAC  ENDGFJOB 


0259 

0260 
0261 


REF  214 
PEF-  362 


LAST  1107 
LAST  1100 


01.3116 

01.3117 
01,3120 


IC  COl  1 
5C  000  1 
54  OCO  0 


CCS  L 
INDEX  A 
TS  n 


0262 

0263 

0264 

0265 


PEF  24  LAST  1107 
REF  1 

REF  12  LAST  1101 


01i3121  10  203  1 
01,3122  0 3172  0 
Cl, 3123  C 5675  0 
01,3124  1 3125  0 


EJSCAN 


CCS  PRIORITY 
TC  EJl 

TC  CCSHCLE 

TCF  +1 


12D 


0266 

0267 

0268 
0269 


REF  25  LAST  1107 
REF  2 LAST  1107 
REF  13  LAST  1107 


01  ,3125  10  217  1 

01.3126  C 3172  0 

01.3127  0 5675  0 

01,3130  1 3131  0 


CCS  PRIORITY  +24D  EXAMINE  EACH  PRIORITY  REGISTER  TO  FIND 

TC  EJl  THE  JOB  OF  HIGHEST  ACTIVE  PPIORITYo 

TC  CCSHOLE 

TCF  +1 


0270 

0271 

0272 

0273 


REF 

REF 

REF 


27  LAST  1107 


01.3131 

01.3132 

01.3133 

01.3134 


1C  233 

0 3172 
67610 

1 3135 


-CCS 

TCF 


PRIORITY  <-360 
EJl 

PRIORITY 
♦ 1 


0274  REF  28  LAST  1107 

0275  REF  4 LAST  11^7 

0276  REF  14  LAST  1107 


01  ,3135  10  247  1 

01 .3136  C 3172  0 

01.3137  0 5675  0 


0277 


01,3140  1 3141  1 


CCS  PRIORITY  +480 
TC  EJJ. 

TC  CCSHOLE 

TCF  +1 


0278  REF 

0279  REF 

0280  REF 

0281 


29 

5 

15 


LAST  HC7 
LAST  1107 
LAST  1107 


01.3141 

01.3142 

01.3143 

01.3144 


C 5675  0 
1 3145  0 


CCS  PRIORITY  +60D 
TC  EJ] 

TC  CCSHCLE 

TCF  +l 


0282  REF 

0283  REF 

0284  ref 

0285 


16  LAST  1U7 


01  ,3145 

01.3146 

01.3147 
Cl ,3150 


10  277 
C 3172 
C 5675 
1 3151 


1 

0 

0 

0 


CCS  PR lOR  ITY  +720 
TC  EJl 

TC  CCSHOLE 

TCF  +1 


02051  REF  31 


LAST  1107 


01,3151  10  313 


CCS  PPICRITY  +84C 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARV  BY  NASA  2021)12-091  17:53  OECo  19,1969  SKIPPER  « 10 1 PAGE  1108 


L ' EXECUTIVE 


USER*  S PAGE  NCe  12  EO  S3 


02852  REF 

02853  REF 
0285A 


01.3152  C 3172  0 

01.3153  0 5675  0 

01,315A  1 3155  1 


CC  SHOLE 
+ 1 


GAP: 

L 

PO206 

0287 

0286 

0289 

02  9n 

0291 

0292 

0293 

029A 

0295 

0296 

0297 

02  90 

0290 

0300 

0301 

0302 

0303 

C30A 

0305 

0306 

U3D7 

0308 

C3G9 

0310 

03U 

0312 


ASSEMBLE  REVISION  13J  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DEC*  J9,1969  SKIPPER  .rlOl  PAGE  1109 


EXECLTIVE 


USFR'  S PAGE  NCc  13  EO  S3 


EVALUATE  THE  RESULTS  CF  THE  SCA^♦ 


LAST  1107 
LAST  1108 
LAST  1109 


0-1,3155  10  131 

01 .3156  0 5675 

01.3157  C 5675 


01,3162  1C  130  1 
01  ,3163  1 3165  1 

Cl  ,3169  J 2765  C 


CCS  eUF  *\  SEE  IF  THERE  ARE  ANY  ACTIVE  JOBS  WAITING 

TC  CCSHOLE 

TC  CCSHCLE 

TCF  *2 

TCF  DUPMYJCe 

CCS  BUF  eUF  IS  ZERO  IF  THIS  IS  A PRIOCHNG  AND 

TCF  +2  CHANGED  PRIORITY  IS  STILL  HIGHESTo 

TCF  ENCPRCHG  -\ 


REF  363 

REF  1 
REF  19 
REF  9 


LAST  1107 

LAST  1109 
LAST  1109 


01.3165 

01.3166 

01.3167 

11.3170 

01.3171 


50  000  1 
2*7777  n 
6 3133  0 
59  067  1 
1 2705  0 


INDEX  A OTHERWISE,  SFT  NFWJCB  TO  THE  RELATIVE 

CAF  0 -1  ADDRESS  OF  THE  NEW  JOB'S  CORE  SET. 

AO  -CCSPR 

TS  NEWJCB 

TCF  CHANJCB  -2 


REF  159 
REF  155 
REF  369 
REF  156 
REF  I 

REF  311 


LAST  1109 
LAST  1109 
LAST  1109 
LAST  1109 


LAST  1101 


01  ,3173 
01,3179 

01.3175 

11.3176 

01. 3177 

01.3200 

01 .3201 


6 0131  1 
1C  OOC  Q 
9 0132  0 
1 3202  0 
13  200  I 
5C  002  0 
0 0002  0 


TS  BUF  +2 

AO  BUF  +1 

CCS  A 

CS  BUF  +2 

TCF  FJ2 

NOOP 
INDEX  Q 

TC  2 


- OLD  HIGH  PP  I OPI  TVo 


NEW  HIGH  PP  lOR  ITYc 


PROCEED  WITH  SEAPCho 


REF  157.  LAST  1109 

REF  158  LAST  1 109 
REF  159  LAST  11C9 


Cl, 3202  59  131  r 

01,3203  0 0006  1 

01  ,3209  22  130  0 

01,3205  50  130  0 

01  ,3206  0 0002  0 


EJ2  TS  BUF 

EXTEND 
OXCH  EUF 
INDEX  BUF 
TC  2 


FOR  LOCATING  CCS  PRIORITY  * X INSTRo 


GAP:  ASStMBLG  REVISION  131  CF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021112-091 

L EXECUTIVE 

P031^  IDLING  AND  CCMPUT6R  ACTIVITY  (GPEENI  LIGHT  MAINTENANCEo 

R0316  BUT  RATHER  A SUBROUTINE  OF  THE  EXECUTlVEo 


17:53  DECc  l<5fl969  SKIPPER 
USER'S  PAGE  NCo  lA 
THF  IDLING  ROUTING  IS  NCT  A JCB 


lOl  PAGE  1110 
EC  S3 
IN  ITSELF, 


0318  REF  4 LAST  292  1361 


EBANK=  SELFRET  SELF-CHECK  STORAGE  IN  EBANK« 


0319 

0320 

0321 

0322  REF 

0323 

C324  REF 

0328  REF 

0329  REF 

0330  REF 

0331  REF 


223  LAST 
20  LAST 

74  LAST 

31  LAST 
2)  LAST 
1 

75  LAST 
I 


REF 

REF 


1107 

1109 

1104 

1104 

lUO 

1110 


01»3207 
Cl, 3210 
01  ,3211 
01,3212 
01,3'213 
01  ,3214 
01 , 3215 
01,3216' 
01,3217 
01,3220 


4 4755  0 
54  067  1 

0 0003  1 
4 4752  1. 
0 0006  1 
03  011  1 
10  067  1 

1 3012  0 
3 4752  0 
1 3226  0 


DUMMY JC6 


AOVAN 


CS  ZERO 

TS  NEHJOB 

REL  INT 
CS  TWO 

FXTENO 

WAND  DSALMOUT 

CCS  NEWJCB 

TCF  NUCHANG2 

CAF  TWO 

TCF  NUDIRECT 


SET  NEWJOB  TO  -0  FOR  IDLiNGc 


TURN  OFF  THE  ACTIVITY  L IGHTo 


IS  A NEWJOB  ACT  IVE  ? 

YESoo*  ONE  REQUIRING  A CHANGE  JCBo 
NEW  JOB  ALREADY  IN  POSITION  FOR 
EXECUTION* 


03317  REF  5 

03318  RFF  215 

0332  REF  1 

0333  REF  5 


LAST  1110 
LAST  1107 

LAST  598 


01.3221  3 1361  1 

01.3222  54  OCl  1 

01.3223  3 3225  1 

01  ,3224  1 5166  I 


CA  SELFRET 

TS  L PUT  RETURN  ADDRESS  IN  L* 

CAF  SELFBANK 

TCF  SUPOXCHZ  + 1 AND  DISPATCH  JOB* 


03338  REF  6 LAST  1110  1361 

0334  REF  3 LAST  293  01,3225  66102  1 


eBANK=  SELFRET 
SELFBANK  BBCON  SELFCHK 


0335 

0336  REF  32  LAST  1110 

0337  REF  42  LAST  1106 

03372  REF  6 LAST  lilO 


01.3226  0 0006  1 

01.3227  05  011  1 

ai  ,3730  52  165  1 

01,3231  1 5165  1 


NUDIRECT 


EXTEND 

WQR  OSALMOLT 

DXCH  LOC 
TCF  SUPDXCHZ 


TURN  THE  GREEN  LIGHT  BACK  ON* 

JOBS  STARTED  IN  THIS  FASHION  MUST  BE 


03378 


5165 


BLOCK  2 


IN  FIXED-FIXED  SO  CTHERS  MAY  USE* 


03379  REF  2 LAST  1C97  TO  1100:  59  59# 

R033791  SUPDXCHZ  - ROUTINE  TO  TRANSFER  TO  SUPERBANK* 
R033792  CALLING  SECLENCE 
A033793 


COUNT#  SS/EXEC 

TCF  SUPDXCHZ 


WITH  2CADR  OF  DESIRED  LOCATION  IN  A + Lo 


0338  REF  216 

03381 

03382  REF  18 

03383  REF  34 

03384  REF  217 


LAST  1110 

LAST  1104 
LAST  1104 
LAST  1110 


5165  56  001  0 

5166  0 0006  1 

5167  Cl  007  1 

5170  54  006  0 

5171  c nool  0 


SUPDXCHZ  XCH  L 

+1  EXTEND 

WRITE  SUPERBNK 
TS  BBANK 

TC  L 


BASIC* 


0339 


5172  77677 


NEGIOO  OCT  77677 
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o X9,I96‘?  SKIPPER  niri  PAGE  1111 


L WAITLIST 


USER  'S  PAGE  NCe  1 EC  S3 


DATE  - 10  OCTOBER  1966 
LCG  SECTION  - WAITLIST  - 
ASSEMBLY  SUNBURST  REV  5 


R00073  MCU  48Y  KERNAN  [TWIDDLE  IN  5^  » 3/28/68  SKIPPER  REV  13« 

R0)07S9 


RUOOl  PROGRAM  DESCRIPTION 
R0003  PCD  NO  - 2 

R0005  MOD  BY  - MILLER  (OTPAX  INCREASED  TO  162 

R0U072  MOO  3 BY  KERNAN  ( I NH  INT • I N SERTEO 


SEC) 

WAITLIST)  2/28/68  SKIPPER  REV  4 


R0008 

R0009 

ROOll 

R0013 


FUNCTIONAL  DESCRIPTION- 

PART  OF  A SECTION  CF  PROGRAMS . -W A IT L I ST , TASKOVEPi  T3RUPT,  USED  TO  CALL  A 
WHICH  IS  TO  BEGIN  IN  CIA)  CE NT  I SEC CNDSp  WAITLIST  UPDATES  TIME3,  LST1  AND  LST2o 
FCLLCW. 


PROGRAM,  (CALLED  A TASK), 
THE  MEANING  OF  THESE  LISTS 


R0014 

R0016 


C ( TIME3I 


16384  -(Tl-T)  CENTISECONDS,  (T=PRESENT  TIME,  Tl-TIME  FOR  TASKl) 


R0017 

ROOie 

Rn019 

R0020 

R0021 

R0022 

R0023 


CILSTl 
C( LSTl 
C(LST1 


) 

+ 1 ) 
+ 2) 


-1T2-T1 

-(T3-T2 

-{T4-T3 


) 

) 


+ 1 
+ 1 
+ 1 


CILSTl  +6)  = -(T8-T7)+l 
C(LST1  +7)  = -(T9-T8 )*l 


R0024 
R002  5 
R0O26 
R0027 
R0026 
R0029 


C(LST2)  = 2CA0R  OF  TASKl 

C(LST2  +2)  = 2CA0R  OF  TASK2 


C(LST2  +14)=  2CACR  OF  TASKS 
CILST2  +16)=  2CACR  CF  TASK9 


R0030 

R0031 

R0032 

RU033 

R0034 

R0035 


WARNINGS- 


1)  1 <=  CIA)  <=  16250D  (1  CENTISECONO  TO  162e5  SEC) 
21  9 TASKS  MAXIMUM 

3)  TASKS  CALLED  UNDER  INTERRUPT  INUBITEO 
41  TASKS  END  BY  TC  TASKOVER 


R0036  CALLING  SECLENCE- 


R0037 

R0039 

R0040 

R0041 

R0042 


L-l 

L 

L+1 
L + 2 
L+3 


CA  DLLTAT  (TIME  IN  CENTISECONDS  TC  TASK  START) 

TC  WAITLIST 

2CADR  DESIRED  TASK 
{MINOR  OF  2CADR  ) 

RELINT  (RETURNS  HERE) 


R00421 

R00422 

R00423 

R00425 


TWIDDLE- 


TWIDDLE  IS  FOR 
SUCH  CASES,  IT 


USE  WI-EN  TFE  TASK  BEING  SET  UP  IS  IN  THE  SAME  EBANK  AND  F8ANK  AS  THE  USERo  IN 
IMPROVES  UPON  WAITLIST  BY  ELIMINATING  THE  NEED  FOR  THE  BBCON  HALF  OF  THF  2CA0R, 
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L WAITLIST  USER'S  PAGE  NCo  2 EO  S3 

R00A27  SAVING  A WCROo  TWIDDLE  IS  LIKE  WAITLIST  IN  EVERY  RESPECT  EXCEPT  CALLING  SFCUENCE»  TC  WIT- 


L-  1 


R00A32 

R00433 


CA  DELTAT 

TC  TWIDDLE 

ACRES  DESIRED  TASK 
RELINT  • 


( RETURNS  HERE  I 


R00^39  NCRMAL  EXIT  NCCES- 

R004A  AT  L+3  OF  CALLING  SECUENCE 

R0045  ALARM  OR  ABORT  EXIT  MOOES- 


TC 

OCT 


(WAITLIST  CVERFLCW  - TCC  MANY  TASKS) 


R0048  ERASABLE  I MT  I A L 1 2 AT  I C N RECUIREC- 

R0049  ACCOMPLISHED  BY  FRESH  ST  ART  , --LST2  o o » LST2  +16  =ENCTASK 

R0050  LSTl,(,*o»  LSTl  +7  =NEGl/2 

R0051  OUTPUT— 

R0052  LSTl  AND  LST2  UPDATED  WITH  NEW  TASK  AND  ASSCCIATEC  TIMg^ 

R0053  CEBRIS- 


R0054  CENTRALS-  A,C,L 

R0055  OTHER  - WAITEXIT,  WAI  TADR  , WAITTEWP*  WAITBANK 

R0056  DETAILED  ANALYSIS  CF  TIMING- 


ROOST  CONTROL  WILL  NOT  BE  RETURNED  TO  THE  SPECIFIED  ADDRESS  (2CA0R)  IN  EXACTLY  DELTA  T C ENT  I SFC  ONO  Sf 

R0059  THE  APPROXIMATE  TIME  MAY  BE  CALCULATED  AS  FOLLOWS 


R006n 

R0061 

R0062 

R0063 

R0064 

R0066 

R0067 

R0068 

R0069 

R0071 


*-THE 


LET  TO  = 
LET  TS  = 
LET  X = 
LET  Y = 
LET  Z = 
USUALLY) 

LET  DELTO 
THEN  CELTO 
TIME  TAKEN  BY 


THE  TI ME 
TO  +147U 
TS  -dOOT 
LENGTH  CF 
LENGTH  OF 

= THE  AC 
= TS+DEL 
WA ITL  1ST 


CF  THE  TC  WAITLIST 
+ COUNTER  INCREMENTS  (SET  UP  TIME) 

S)/100  (VARIANCE  FROM  COUNTERS) 

TIME  CF  INHIBIT  INTERRUPT  AFTFR  T3RUPT 
TIME  TO  PROCESS  TASKS  WHICH  ARE  CUE  THIS 

TUAL  TIME  TAKEN  TC  GIVE  CCNTRCL  TO  2CACR 
TA  T -X  +Y  +2  +U05MS#  +COUNTeRS* 

ITSELF  AND  THE  COUNTER  TICKING  DURING  TH 


T3RUPT  BUT  DISPATCHED  EARLIERo 


I S WAITLI  ST  Tl  MEr 


R0072 

R0074 

R0076 


IN  SHORT, 
INTERRUPT,  ALL 
OF  OTHER  TASKS 


THE  ACTUAL  TIME  TO  RETURN  CONTROL  TO  A 2CA0R  !S  AUGMENTED  BY  THE  TIME  TC  SET  UP  THE  TASK:S 
COUNTERS  TICKING,  THE  T3RUPT  PROCESSING  TIME,  THE  WAITLIST  PROCESSING  TIME  AND  THE  POSSIBILITY 
INhI(3ITING  THE  INTERRUPT* 


0077 


5173 


BLOCK  02 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARV  BY  NASA  2P211l2-0?l 

L WAITLIST 


0078 


REF  lU  LAST  223 


E3, 1400 


EBANK=  LSTl 


0079  REF  1 

00795 

0080  REF  218 

0081  REF  32 

0082  REF  312 

0083  REF  35 

00832 

00834  REF  19 

0084  REF  219 


LAST  1110 
LAST  1074 
LAST  110? 
LAST  1110 

LAST  1110 
LAST  1112 


5173  C 00C4  0 

5174  54  OCl  1 

5175  3 4733  1 

5176  26  002  1 

5177  3 0006  1 

5200  C OC06  I 

5201  C4  007  1 

5202  56  001  0 


COUNT*  $$/WAIT 
T^iICOLE  INHINT 

TS  L 

CA  POSNAX 

ADS  0 

CA  BBANK 

EXTEND 

ftOP  SUPERBNK 
XCF  L 


00849 

0005  REF  313 

0086  -REF  1 

0087 

0088  REF  2 

0089 

0090  REF  1 

0091  REF  1 

0092  REF  36 

0093  REF  1 


LAST  1113 

LAST  1113 

LAST  1113 


52C3 

5204 

5205 
52C6 


5207 

5210 

5211 

5212 
5212 
5214 


C 0CC4 
56  C02 
54  C61 
C CC06 


5 0061 
3 0001 
54  063 
3 5220 
56  006 
1 32  22 


0 

0 

1 

1 

0 

0 

0 

1 

1 

0 


WAITLIST 


-1 

DLY2 


EXTEND 

INDEX 

DCA 


CAF 

XCH 

TCF 


0 

IvAITEX  IT 

WAITEXIT 

0 

WAITACP 

WAIT8B 

BBANK 

WAIT2 


R0094 


RETURN  TO  CALLER  AFTER 


TASK  insertion: 


0095 

0096 

0097 


5215 

5216 

5217 


52  C62  1 LVKTLI ST  DXCH 
6 4752  0 AO 

52  C06  0 CTCB 


HAITEX IT 
TWO 


REF  15  LAST  1U3 


£3, 1400 
5220 


02063  0 WA  ITQE 


EBANK=  LSTl 
B8C0N  WAIT2 


ROlOl 


0102 

0103 

0104 


REF 

REF 


314 

315 


RETURN  TO  CALLER  +2 


LAST  1113  5221 

5222 

LAST  111  3 5223 


AFTER  WAITI 


50  0C2  0 
3 0000  1 
24  CC2  C 


NG  CT  SPECIFIEO 

fixoelay  index 
CAF 
INCR 


AT  CALLER 


0 

0 

Q 


R0105 


RETURN  TO  CALLER 


AFTER  WAITING  THE  CT  AS  ARRIVING  IN  A 


0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 


REF  316  LAST  1113 
REF  2 LAST  1113 
REF  37  . LAST  1113 

REF  20  LAST  1113 
REF  220  LAST  1113 
REF  1 

REF  4 LAST  1113 
REF  1 


5224  56  CO?  0 

5225  54  063  C 

5226  3 0006  1 

5227  C 0C06  1 

5230  04  007  1 

5231  54  OCl  1 

5232  3 5235  0 

5233  54  061  1 

5234  1 5212  1 


VARDELAY 


XCH  C 

TS  WAITAOR 

CA  BBANK 

EXTEND 

ROR  SUPERBNK 

TS  L 

CAF  DELAYEX 

TS  WAITEXIT 

TCF  0LY2 


17:53  OECa  19,1969  SKIPPER  olCl  PAGE  1113 


USER  ' S PAGE  NOo  3 60  S3 


TASK  LISTS  IN  SWITCHED  E BANKo 


SAVE  DELAY  TIRE  IN  L 
CREATING  OVERFLOW  AND  0-1  IN  Q 


SAVE  DELTA  T IN  0 AND  RETURN  IN 
WAITEXIT.. 


IF  TWIDDLING,  THE  TS  SKIPS  TO  HERE 
PICK  UP  2CA0R  OF  TASK 
BBCCN  WILL  REMAIN  IN  L 
ENTRY  FROM  FIXOELAY  AND  VARDELAY, 


BOTH  ROUTINES  MUST  BE  CALLED  UNDER 
WAITLIST  CONTROL  AND  TERMINATE  THE  TASK 
IN  WHICH  THEY  WERE  CALLED, 

DT  TO  Qa  TASK  ACRES  TO  WAlTAORe 
BBANK  IS  SAVED  DUPING  OELAYo 
ADO  SBANK  TO  BBCON, 

GO  TO  TASKOVER  AFTER  TASK  ENTPYt 
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L WAITLIST  ^ USER'S  PAGE  NCe  ^ E3  S3 

0115  REF  67  LAST  961  5235  1 5257  0 CELAYEX  TCF  TASKOVEP  -2  RETURNS  TO  TASKOVER 
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L WAITLIST 


LSEP*  S PAGE  NCe  5 E3  S3 


R0116 


ENDTASK 


MUST  BE  ENTERED.  IN  FIXED-FIXED  SO  IT  IS 


DISTINGUISHABLE  BY  ITS  AORES  ALONEe 


0118  REF  16  LAST  1113 

0119  REF  1 

0119  REF  1 


72537  0 
7371A  1 


0120 

0121 

0122 

0123 


REF 

REF 

REF 


LAST 

LAST 

LAST 


9 22 
lllA 
1115 


52AO  10  076  1 

5241  1 5261  C 

5242  1 5261  C 

5243  1 5244  1 


CCS  FLAGWRD2 
TCF  TASK0V6R 
TCF  TASKCV6R 
TCF  +1 


DRIFT  FLAG 


01231  REF 

01232  REF 

01233 

01234  REF 

01235  REF 


3 LAST  224 
1 

2 LAST  11)5 

3 LAST  1115 


5244  11' 301  0 

5245  1 5256  1 

5246  1 5251  0 

5247  i 5256  1 

5250  1 5256  1 


CKI MUSE 


CCS 

TCF 

TCF 

TCF 

TCF 


IMUCADR 
SVCT3X 
+ 3 

SVCT3X 

SVCT3X 


DON'T  DO  NBDONLY  IF  SOMEONE  ELSE  IS  IN 
I MUSTALLo 


0124 

0125 

0126 
0127 

0127 

0128 


PEF  1 

REF  25  LAST  882 
REF  6 LAST  852 
REF  1 
REF  1 

REF  70  LAST  1115 


5251  3 7726  0 

5252  C 5072  1 
E3 ,1460 

5253  C3563  1 

5254  14063  1 

5255  1 5261  0 


♦3  CAF  PRI035 
TC  NOVAC 
£BANK=  NBDX 
2CADR  NBDONLY 


COMPENSATE  FOR  NBD  COEFFICIENTS  ONLYt 
ENABLE  EVERY  81*03  SECONDS 


TCF  TASKOVFR 


01281  REF 

01282 

01283  REF 


15  LAST  776 
•2  LAST  1115 


5256  C 5221  0 SVCT3X 

5257  C0764  1 

5260  0 5240  1 


TC  FIXOELAY  DELAY  MAX  OF  2 TIMES  FOR  IMUZEROo 

DEC  500 

TC  SVCT3  CHECK  DRIFT  FLAG  AGAlNe 
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L WAITLIST 


USER'S  PAGE  NCc  6 E3  S3 


P0129 


BEGIN  TASK  INSERTICMo 


0130 

0131  REF  1 

0132  REF  1 

01322  REF  317  LAST  111 

C132A 

01326  REF  I 


01,3232 

01  ,3232  5A  C62  1 
3 '11,3233  3 0CC2  0 

01  ,3234  0 0006  1 

01,3235  6 3524  1 


BANK  01 
COUNT#  $S/WAI T 
WAIT?  TS  WAITBANK 

CA  0 

EXTEND 

BZMF  WAITPGCF 


BBANK  OF  CALLING  PROGRAMo 


0133 

0134 

0135 
A0136 
A0137 
A0138 


REF  2 LAST  221 
REF  36  LAST  1047 
REF  365  LAST  U09 


01,3236  A 0026  1 CS  TIME3 

01  ,3237  6 4744  1 AD  BITB  BIT  B = OCT  200 

C1,?2A0  1C  COO  0 CCS  A TEST  20n  - C(TIME3)o  IF  POSITIVE, 

IT  MEANS  THAT  TIME3  OVERFLOW  HAS  OCCURRED  PRIOR  TC  CS  TIME3  AND  THAT 
C(TIME3)  = T - T1,  INSTFAC  of  IcO  - {T1  - T)^  THE  FOLLOWING  FOUR 
ORDERS  SET  CIA)  = TO  - Tl  + 1 IN  EITHER  CASEo 


0139  REF  2 LAST  1093  01,3241  6 6112  0 AO  DCT4O001 

0140  REF  366  LAST  1116  01,32A2  A CCOC  0 CS  A 


OVFRFLOW  HAS  OCCURREOo  SET  CIA)  = 
T - Tl  + leO  ~ 201 


R0141  NORMAL  CASE  ICIA)  NN2)  YIELDS  SAME  CIA):  -(  - I lo  0- 1 T 1- T ) ) + 200  - 1 


REF  367  LAST  1116  01,3245  10  000  0 


REF  319  LAST  1716 


CCS 

AD 

TCF 


DCT40 201 
0 

A 

LSTl 

WTLST5 


NCCP 

CS 


0 


RESULT  = TO  - Tl  + lo 
TEST  TO  - Tl  + 1 

IF  TO  - Tl  POS  , GO  TO  WTLST5  WITH 
CIA)  = ITC  - Tl  ) + C(LSTl)  = TD-T2+1 


R0151 

R0152 


NCTE  THAT  THIS  PROGRAM  SECTICK  IS  NEVER  ENTERED  WHEN  T-Tl  G/E  ■ 
SINCE  TD-Tl+1  = ITO-T)  + (T-Tl+1),  AND  DELTA  T = TC-T  G/E  +1  o 
SYMBOL  MEANS  GREATER  THAN  OR  EQUAL  TO),  THUS  THERE  NEED  BE  NO 
CERN  OVER  A PREVIOUS  CR  IMMINENT  OVERFLOW  CF  TIME3  HERE, 


•1  , 
(G/E 
CCN- 


0153 

0154 

0155 

0156 

0157 

0158 

0159 


REF  1 

REF  2 LAST  1116 
REF  3 LAST  1116 
REF  7 LAST  1037 
REF  320  LAST  1116 


01.3252  6 4736  1 

01.3253  6 A13b  1 

01.3254  56  C26  0 

01.3255  6 6735  I 

J1  ,3256  6 0002  0 

01,3257  Q 0006  1 
01,3260  22  C07  0 


AD  POSl/2 

AD  POSl/2 

XCH  TIME3 
AO  NEGMAX 

AC  0 

EXTEND 
OXCH  7 


WHEN  TD  IS  NEXT,  FORM  QUANTITY 
1«0  - DELTA  T = loO  - (TD  - T) 


IcO  - OELTAT  T NOW  COMPLETE, 

ZERO  INDEX  Qc 

(ZO) 


GAP  : 

L 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

C170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

A0181 

0182 

0183 

0184 
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WAITLIST 


USER  'S  PAGE  NCo  7 


E3  S3 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


18  LAST  1116 

19  LAST  1117 

20  LAST  1117 

21  LAST  11)7 

22  LAST  1117 

23  LAST  1117 

24  LAST  1117 


01  ,3261 
■)1,3262 
01  ,'3263 
Cl, 3264 
,)l,32o5 
Cl  ,326‘6 
01,3267 


57*400  1 
57*401  0 
57*402  0 
57*4C3  1 
57*404  0 
-57*405  1 
57'4C6  1 


XCH 

XCH 

XCH 


REF  25  LAST  1117  01,3270  57*407  0 


LSTl 
LSTl  +1 
LSTl  +2 
LSTl  +3 
LSTl  +4 
LSTl  +5 
LSTl  +6 
LSTl  +7 


REF  3 
REF  321 


LAST  1)13 
LAST  1116 


11.3271 

01.3272 
01  ,3273 


3 0063  1 
50  C02  0 
1 3274  1 


CA  WAITACP  IMINOR  PART  OF  TASK  CACR  HAS  BEEN  IN  L« 1 

INDEX  0 
TCF  +1 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


746 
1)  17 
1117 
111  7 
111  7 
1117 
1117 
1117 
1117 
223 


01, 3274 
01  ,3275 
01 ,3276 
Cl, 3277 
Cl  ,3300 
Cl  ,3301 

01.3302 

01.3303 

01. 3304 
01  ,3305 


53*411  C 
53*413  1 
53*415  1 
53*417  0 
53*421  0 
53*423  1 
53*425  1 
53*427  0 
53*431  1 
6 5236  0 


REF  1 
REF  1 


01,3306  C 0006  I 
01  ,3307  1 5215  0 

Cl, 3310  1 3364  1 


DXCH  LST2 

DXCH  LST2  +2 

CXCH  LST2  +4 

DXCH  LST2  +6 

DXCH  LST2  +80 

CXCH  LST2  +10C 

DXCH  LST2  +120 

OXCH  LST2  +140 

DXCH  LST2  +160 

AO  ENOTASK 

EXTEND 

62F  LVWTLIST 

TCF  WTABCRT 


AT  END,  CHECK  THAT  C(LST2  + 10)  IS  STD 


END  ITEM,  AS  CHECK  FCR  EXCEEDING 
THE  LENGTH  OF  THE  LISTo 
DUMMY  TASK  ADRES  SHCULC  BE  IN  FIXED- 
FIXED  SO  ITS  ADRFS  ALONE  DISTINGUISHES 
ITo 
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0185  REF  368  LAST  1116 

0106  REF  26  LAST  1117 

0187 

0188  REF  116  LAST  1105 


01  ,3311 
01,3312 
01  ,3313 
Cl  ,3316 


10  000  0 
6 1601  0 
1 3317  0 
e 6753  1 


WTLST5 


CCS 

AO 

TCF 

AC 


A 

LSTl  +1 
+ 6 
QNF 


0169  REF 
0190 


n,  3315  0 3375  0 TC  WTLST2 

01  ,3316  00001  0 OCT  1 


TEST  TO  - T2  + 1 


0191 

0192 

0193 
0196 

0195 

0196 


REF  369 
REF  27 

REF  117 
REF  2 


1118 

1118 


01 .3320 

01.3321 

01.3322 
01  ,3323 
01,3326 


1C  COO  0 + 

6 1602  0 
1 3325  1 


6 6753  1 
0 3375  0 
CCCC2  0 


6 


CCS  A TEST  TO  - T?  + 1 

AO  LSTl  +2 

TCF  +6 

AD  ONE 

TC  WTLST2 

OCT  2 


0197 

0198 

0199 

0200 
0201 
0202 


REF  370 
RtF  28 

REF  118 
REF  3 


LAST  1118 
LAST  1118 

LAST  1118 
LAST  1118 


01.3325 

01.3326 
01,  3327 
01  ,3330 
01,3331 
01,3322 


6 1603  1 
1 3333  0 
6 6753  I 
n 3375  0 
00003  1 


CCS  A TEST  TO  - T6  + 1 

AO  LSTl  +3 

TCF  +6 

AO  ONE 

TC  WTLST2 

OCT  3 


0203  REF 
0206  REF 

0205 

0206  REF 

0207  REF 
02  08 


371 

29 


119  LAST  1118 
6 LAST  1118 


01  ,3333  10  000  0 
01,3326  6 1606  0 
71,3235  1 3261  0 
01,3326  6 6753  1 
01,3337  C 3375  0 
01,3360  00006  0 


+6 


A 

LSTl  46 
+ 6 
ONE 

KTLST2 


TEST  TO  - T5  + 1 


0209  REF  372 

0210  REF  30 

0211 

0212  REF  120 

0213  REF  5 

0216 


LAST 

LAST 

LAST 

LAST 


01.3361 

01.3362 
01  ,3363 
01,3366 

01.3365 

01.3366 


10  000 
6 1605 
1 3367 
6 6753 
0 3375 
00Q05 


CCS 

AO 

TCF 

AO 

TC 

OCT 


A 

LSTl  45 

+6 

ONE 

WTLST2 

5 


TEST  TO  - T6  4 1 


0215  REF  373  LAST  U18 

0216  REF  31  LAST  1118 

0217 

0218  REF  121  LAST  1118 

0219  REF  6 LAST  1118 

0220 


01,3367  1C  COO  C 

01 .3350  6 1606  1 

01.3351  1 3355  0 

01.3352  6 6753  1 

01  ,3353  0 3375  0 

Cl, 3356  COC06  I 


CCS  A TEST  TC  - T7  4 1 

AO  LSTl  46 

TCF  46 

AO  ONE 

TC  WTLST2 

CCT  6 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L WAITLIST 


0221  REF  37A  LAST  1118  01  i3355  10  000  0 

0222  REF  32  LAST  1118  Cl»3356  6 IA07  C 

0223  0'l,3357  1 3363  0 

022A  REF  122  LAST  1118  Cli3360  6 A753  1 

0225  REF  7 LAST  1110  01,J361  0 3375  C 

0226  01,3362  00007  0 


CCS 

AO 

TC  F 

AC 

TC 

OCT 


A 

LSTl  +7 
+ A 
ONE 

WTLST2 

7 


0227 

0228 

0229 

0230 

0231 

0232 


REF 

REF 


375 

1 

123 

8 


LAST  1119 

LAST  1119 
LAST  111  9 


01.3363 

01.3364 
01  ,3365 
01, 3366 
01  ,3367 
Cl  ,3370 


1C  000  0 
0 3372  1 
13  366  0 
6 A753  1 
0 3375  0 
OOOlO  0 


+4  CCS  A 

WTABORT  TC  FILLED 

NOOP 

AO  ONE 

TC  WTLST2 

OCT  1 0 


0233 


01,3371  40201  0 OCT40201  OCT  40201 


PAGE  1119 
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USER'S  PAGE  NCo  9 


E3  S3 


CAN  'T  GET  HERE 


SAP:  ASSEf'BLE  REVISION  131  GF  AGC  PRCCRAM  LUMINARY  BY  NASA  202111  S-OPl 


17:53  OECo  19»196'9  SKIPPER  e IP  1 PAGE  1120 


L WAITLIST 


•USER’S  PAGE  NOa  1C  E3  S3 


02332  REF 
0233A  REF 
02336 


5 LAST  U13  01,3372  52  062  1 FILLED  DXCH  WAITEXIT 

5 LAST  1101  01,3373  0 5706  0 TC  BAILOUTl  NO  ROOM  IN  THE  INM 

Cl, 3374  31203  1 OCT  31203 


gap:  assemble  REVISION  131  CF  AGC  PRCGRAR  LUMINARY  flY  NASA  2021112-091 

L WAITLIST 


P0234  THE  ENTRY  TC  WTLST2  JUST  PRECECING  OCT  N IS  FOR  T LE  TD  LE  T -Ic 
R0235  N N+1 


R0236  (LE  MEANS  LESS  THAN  OR  EQUAL  T0)o  AT  ENTRY,  C(A»  = -(TO  - T ♦ 1» 
RC237  N+1 


R023e  THE  LSTl  ENTRY  -(T  - T +11  IS  TC  BE  REPLACEC  BY  -(TD  - T +1),  AND 

R0239  N + 1 N N 


R02A0  THE  ENTRY  -(T  - TO  + 1)  IS  TC  BE  INSERTEC  IMMEDIATELY  FOLLOWINGo 

R02A1  N+1 


02A2  REF  1 

0243  REF  322  LAST  1117 

0244 

0245  REF  323  LAST  1121 


01  ,3375  54  064  1 

01.3376  50  002  O 

01.3377  3 0000  I 

01  ,3400  54  002  1 


WTLST2 


TS 

INDEX 

CAF 

TS 


0246  REF  124  LAST  1119 

0247  REF  2 LAST  1121 

0248  REF  324  LAST  1121 

0249  REF  33  LAST  1119 


11.3401  3 4753  1 

01.3402  6 0064  0 

01.3403  50  002  0 

01.3404  27‘377  I 


CAF  ONE 

AO  WAITTEMP 

INDEX  0 

ADS  LSTl  -I 


0250  REF  3 LAST  1121 

0251  REF  325  LAST  1121 

0252  REF  1 


01.3405  4 0064  1 

01.3406  50  002  0 

01.3407  1 2261  0 


CS  WAITTEMP 

INDEX  0 

TCF  WTLST4 


R0253  C(TIME3I  = lt.0  - ( T1  - T) 

R0254  CILSTl  ) = - (T2  - Tl)  + 1 
R0255  C(LST1+1)  = - {T3  - T2>  + 1 
R0256  C(LSTl  + 2)  = - ( T4  - 73>  + 1 
R0257  C(LSTl+3I  = - {T5  - T4)  ♦ 1 
RO250  C(LSTl+4)  = - ( T6  - T5 ) + 1 


R0259  C(LST2  ) = 2CA0R  TASKl 

R0260  C(LST2+2  ) = 2CADR  TASK2 

R0261  C(LST2+4  ) = 2CA0R  TASK3 

R0262  C(LST2+6  ) = 2CA0R  TASK4 

R0263  C(LST2+8  ) = 2CA0R  TASKS 

H0264.  C(LST2+10J  = 2CAUR  TASK6 


17:53  DECo  19,1P69  SKIPPER  olOl  PAGE  1121 


USER'S  PAGE  NOo  11  E3  S3 


C(AJ  = -(TD  - T + U 

INDEX  VALUE  INTO  Qo 

C(AI  = -(TD  - T I + 1. 

N 


GAP : 

L 

P0265 

0266 

0267 

0266 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

027b 

0279 

02  80 

0281 

0282 

02  83 

02H4 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

02  94 

0295 

0296 

0297 

0298 

02  99 

0300 


ASSEMBLE  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 
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WAITL  1ST 


USER’S  PAGE  NCe  12  E3  S3 


ENTERS  HERE  CN  T3 


RLFT  TC  OISPATCM  WAITLISTED  TASK* 


REF 

REF 

REF 


01,3^10  C 0006  1 

21  LAST  1113  )1,3411  04  007  1 

6 LAST  985  Clf3412  54  016  1 

Cl»3413  r.  CC06  1 

6 LAST  985  01  .3414  22  012  1 


T3RUPT 


EXTEND 

ROR  SUPERBNK 
TS  BANKRUPT 

E XTEND 

QXCH  ORUPT 


READ  CURRENT  SUPERBANK  VALUF  AND 
SAVE  WITH  6 AND  F BANK  VALUES. 


REF 

REF 

REF 

REF 

REF 

FEF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


6 

34 

35 

36 

37 

38 

39 

40 

41 
33 

4 

4 

224 

5 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


1121 
1122 
1122 
1122 
1122 
1122 
1122 
1122 
1113 
111  6 
569 
1110 
1122 


01.3416 
01  ,3417 

01. 3420 

01.3421 

01.3422 

01.3423 
n ,3424 

01.3425 

01.3426 
01  ,3427 

01.3430 

01.3431 

01.3432 


? 4734  p T3RUPT2  CAF 


r H I DH  u I CMT 

57’407  0 XCF 

57*406  1 XCH 

57'4C5  1 XCH 

571404  0 XCH 

57^403  1 XCF 

57»402  0 XCH 

57 '401  0 XCF 

57»40C  I XCF 

6 4733  1 AD 

26  026  1 ADS 

54  332  1 TS 

4 4755  0 CS 

54  332  1 TS 


NEGI  /2 
LSTl  +7 
LSTl  +6 
LSTl  +5 
LSTl  +4 
LSTl  +3 
LSTl  +2 
LSTl  +l 
LSTl 
POSMA  X 
TIME3 
RUPTAGN 
ZERO 
RUPTAGN 


DISPATCH  WAITLIST  TASK* 


lo  MOVE  UP  LSTl  CCNTFMS,  ENTERING 
A VALUE  OF  1/2  +1  AT  THE  BOTTOM 
FOR  T6-T5,  CORRESPONDING  TO  THE 
INTERVAL  81*91  SEC  FCR  ENOTASK* 

2*  SET  T3  = 1*0  - T2  -T  USING  LIST  I, 
SO  T3  WONT  TICK  DURING  UPDATE- 


SETS  RUPTAGN  TO  +1  ON  OVERFLOW* 


REF  . 4 
REF  33 
REF  34 
REF  35 
REF  36 
REF  37 
REF  38 
REF  39 
REF  40 
REF  41 


LAST  1117 
LAST  iin 
LAST  1122 
LAST  1122 
LAST  1122 
LAST  1122 
LAST  1122 
LAST  1122 
LAST  1122 
LAST  1122 


01  ,3434 

01.3435 

01.3436 

01.3437 
01,3440 
01  ,3441 

01.3442 

01.3443 

01 .3444 

01.3445 


C 0006  1 
4 5237  0 
53'431  1 
52’427  0 
53*425  I 
53*423  1 
53*421  0 
53*417  0 
53*415  1 
53*413  1 
52*411  C 


EXTEND 

CCS 

DXCH 

DXCH 

DXCH 

DXCH 

DXCH 

DXCH 

DXCH 

DXCH 

CXCH 


FNOTASK 
LST2  +16C 
LST2  +140 
LST2  +120 
LST2  +100 
LST2  +80 
LST2  +6 
LST2  +4 
LST2  +2 
LST2 


DISPATCH  TASK* 


REF  221  LAST  1113 

REF  22  LAST  1122 
REF  222  LAST  1122 


01.3446  56  001  0 

31.3447  0 0006  1 

01.3450  01  007  1 

01.3451  56  001  0 

01.3452  52  006  0 


XCF  L 
EXTEND 

WRITE  SUPERBNK  SET  SUPERBANK  FROM  BBCON  OF  2CADR 

XCF  L RESTORE  TO  L FOR  DXCH  Z* 

OTCB 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PRCC-RAf'  LUMINARY  BY  NASA  a02U12-091 


L WAITLIST 


P0301 


RETLRNf  AFTER  EXECUTICN  CF  T3  OVERFLOW  TASK: 


0302 

0303  REF 
030A  REF 

0305  REF 

0306  REF 

0307  REF 


5261 

2 LAST  1113  TO  1116: 

6 LAST  1122  5261 

2 LAST  1113  5262 

38  LAST  1113  5263 

1 5264 


5 4 5^* 

1C  332  1 
3 522C  1 
54  006  0 
1 3415  0 


BLOCK  02 
COUNT*  JS/WAIT 
TASKCVER  CCS  RUPTAGN 
CAF  WAITB0 
TS  BBANK 

TCF  T3RUPT2 


0306 

0309 

0310 


REF  7 LAST  1122 
REF  23  LAST  1122 


5265  3 0016  0 

5266  0 0006  1 

5267  Cl  007  1 


CA  BANKRUPT 

EXTEND 

WRITE  SUPERBNK 


0311 

0312  REF  7 

0313  REF  8 

0314  REF  39 

0315  REF  - U 
03155 

0316 


LAST  1122 
LAST  1123 
LAST  1123 
LAST  156 


5270 

5271 

5272 

5273 

5274 

5275 

5276 


0 0006  1 
22  012  1 
2 0C16  0 
56  006  1 
52  Cll  0 
0 0003  1 
5 0017  1 


RESUME 

NOQRSM 

NCCERSM 


EXTEND 

QXCH  QPUPT 
CA  BANKRUPT 

XCH  BBANK 

CXCH  ARUPT 
RELINT 
RESUME 


17:53  DEC„  19,1969  SKIPPER  UOl  PAGE  1123 
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IF  +1  return  to  T3RUPT,  IF  -0  RESUME« 

DISPATCH  NEXT  TASK  IF  IT  WAS  DUEe 


RESTORE  SUPEP6ANK  BEFORE  RESUME  IS  DONE 
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L kAlTLIST  USER'S  PAGF  NCe  14  £3  S3 

PC317  LCNGCALL 


RQ318 

R0319 

R0320 


PROGRAM 
PROGRAM 
MOD  6Y- 


OESCP IPTION 

WRITTEN  BY  Woh*  VANDEVER 
Ro  MELANSON  TO  ADO  OCCUMENTAT 


I CN 


DATE-  17  MARCH  1967 
LOG  SECTION  WAITL  I ST 
ASSEMBLY  SUNCISK  REVo  ICO 


R0321  FUNCTIONAL  DESCRIPTICN- 

R0322  LCNGCALL  IS  CALLED  WiTF  TFE  CELTA  TIME  ARRIVING  IN  A,L  SCALED  AS  TIME2,TIME1  RITH  THE  2CACR  CF  THE  TASK 

R0324  IMMEDIATELY  FOLLOWING  THE  TC  LCNGCALLo  FCR  EXAMPLE,  IT  MIGHT  BE  DONE  AS  FOLLOWS  WHERE  TIMELOC  IS  THE  NAME  OF 

R0326  A CP  REGISTER  CONTAINING  A CELTA  TIME  ANO  WHERE  TASKTODO  IS  THE  NAME  CF  THE  LOCATION  AT  WHICH  LCNGCALL  IS  TO 
R0328  START 


R0329 

A0330 

A0331 

A0332 

A0333 


CALLING  SEQUENCE- 


EXTENO 

OCA  TIMELOC 

TC  LONGCALL 

2CA0R  TASKTCDC 


R0334 

R0335 

R0336 

R0337 


EXIT  MODE- 
TC  WAITLIST 

DTCB  (TC  L+3  CF  CALLING  RCUTINE  1ST  PASS  THRU  LONGCYCLI 
CTC6  (TO  TASKOVER  CN  SLBSEOUENT  PASSES  THRU  LONGCYCLI 


R0338  ALARM-  PR  ABCRT  EXIT  MCOE- 
R0339  NONE 


R0340 

R0341 

R0342 

R0343 

R0344 


OUTPUT- 
LCNGT 
LONGE 
LCNGC 
A = S 


IME  AND  LCNGTIME+l  = 
XI T AND  LONGEXI T+1  = 
ACR  ANC  LONGCAOR+1  = 
INGLE  FRECISICN  TIME 


CELTA  T IME 
RETURN  2CA0R 
TASK  2CADR 
FCR  WAITLIST 


R0345  ERASABLE  INITIALIZATION- 

R0346  A = MOST. SIGNIFICANT  PART  CF  DELTA  TIME 

R0347  L = LEAST  SIGNIFICANT  PART  CF  CELTA  TIME 

R0348  Q = ADDRESS  OF  2CA0R  TASK  VALUE 


R0349 

R0350 

R0351 

R0352 

R0353 


CEBRIS- 
A,0,L 
LCNGCADR 
LCNGEXI T 
LONGTIME 


ANC  LON6CAOR+1 
ANC  LCNGEXlT+1 
ANO  LONGTIME+r 


R0354 


THE  FCLLOWING  IS  TO  BE  IN 


FIXED-FIXED  ANO  UNSWiTCHED  ERPASIBLE 


0355 

0356  REF  42  LAST  1122 

0357  REF  1 


5277  BLCCK  02 

E3,14CC  6BANK=  LSTl 

5277  53'153  0 LONGCALL  DXCH  LONGTIME 


OBTAIN  THE  DELTA  TIME 


0358 


5300  C 0006  1 EXTEND 


OBTAIN  THE  2CA0R 


gap:  assemble  revision  131  CF  AGC  PFCGRAP  LUMINARY  BY  NASA  2021112-^91 
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USER'S  PAGE  NC*  15 


101 


PAGE  1125 
E3  S3 


0359  REF  326  LAST  1121 

0360 

0361  REF  1 


5301  5 0002  0 

5302  3 0001  0 

5303  52*197  0 


NCX  0 
DCA  C 
DXCH  LONGCADR 


0362 

0363  REF 
036^ 


5304  0 0006  1 

5305  3 5210  0 

5306  52  006  0 


EXTEND  NDW  GO  TO  THE  APPROPRIATE  SWITCHED  BANK 

OCA  LGCL2CDR  FOR  THE  REST  OF  I ONGCALL 

OTCe 


0365 

0366 
0366 


REF  93  LAST  1124 
REF  I 
REF  1 


E3,1400 

5307  C3953  0 
5310  02063  0 


EeANK=  LSTl 

LGCL2CDR  2CA0ft  LNGCALL2 


R0367  THE  FOLLOWING  MAY  BE  IN  A SWITCHED  BANK,  INCLUDING  ITS  ERASABLE 


0368 

0369 

0370 

0371 

0372 

0373 


REF 

REF 

REF 

REF 

REF 


2 

1 

77 

?27 

2 


01,3953 

LAST  1116  TC  1123: 

01,3953 
LAST  1113  31  ,3454 

LAST  1125  01,3455 

LAST  1125  Cl, 3456 


145  145* 

22*435  I 
3 4752  0 
26  002  1 
55*434  1 


BANK  01 

COUNT*  $f/WAIT 

LN6CALL2  LXCH  LONGEXIT 

CA  TWO 

AOS  0 

TS  LONGEXIT 


SAVE  THE  CORRECT  BB  FOR  RETURN 
OBTAIN  THE  RETURN  ADDRESS 


03731 

03732 

03733 

03734 

03735 
03  736 

03737 

03738 


REF  2 LAST  1124 

REF  376  LAST  1119 

REF  1 

REF  1 

REF  3 LAST  1125 


REF  2 LAST  1125 


01  ,3457  3 1152  0 

oi,346C  1C  cro  C 

11.3461  1 3467  0 

01.3462  1 3464  0 

01.3463  1 3522  C 

01.3464  3 U53  1 

01.3465  0 0006  1 

01.3466  6 3522  1 


CA  LONGTIME 

CCS  A 

TCF  LONGCYCL 

TCF  +2 

TCF  LONGPOCH 

CA  LONGTIME 

EXTEND 

BZMF  LCNGPCCH 


CHECK  FOR  legitimate  DELTA-TIME 

HI-fROER  CK  — > ALL  IS  CK* 

HI-ORDER  ZERO  — > CHECK  LO-OROER, 

HI-CROER  NEC*  — > NEGo  DT 

CHECK  LO-ORDER  FOP  ZERC  CR  NEGATIVE* 

BAD  CELTA-TIME*  AECRT 


R0374 

0375 

0376 

0377 


REF 

REF 


***  WAITLIST  TASK  LONGCYCL  *** 
01  ,3467  0 0006  1 

01,3470  4 3501  1 

LAST  1125  01,3471  21*153  C 


LCNGCYCL 


EXTEND 

DCS 

DAS 


DPeiT14 

LONGTIME 


CAN  WE  SUCCESFULLY  TAKE  ABOUT  1*25 
MINUTES  OFF  OF  LONGTIME 


0378  REF 

0379  PEF 
A0380 
A0381 
A0382 
A0383 
A0384 

03  85 

0386 

0387  REF 

0388  REF 

0389 

0390 


5 LAST  1125 
1 


6 LAST  1125 
2 LAST  1125 


0i,?472  11*153  0 

01,3472  1 3512  0 


CCS 

TCF 


01.3474  13  475 

01.3475  1 3476 

Cl, 3476  U'152 

01 ,3477  1 3512 

oi,35cc  conoo 

:i,35Cl  200CO 


0 NOOP 

0 TCF 

1 CCS 

0 TCF 

1 DPeiT14  CCT 

0 OCT 


LONGTIME  +l  THE  REASONIBG  BEHIND  THIS  PART  IS 

MUCHTIME  INVOLVED,  TAKING  INTO  ACCOUNT  THAT  THE 

WORDS  MAY  NOT  BE  SIGNED  CGRRECTEC  lOP 
BASIC  INSTRUCTIONS 

DC  NOT  SIGN  CORRECT)  ANC  THAT  WF  SUBTRAC 
TED  BIT14  (1  OVER  HALF  THE  POS*  VALUE 
REPRESENT  IBLE  IN  SINGLE  WORD! 

CAN;T  GET  HERE  #*##**#*** 

+ 1 

LONGTIME 

MUCHTIME 

cooon 

20000 


A0391 


LONGCALL 


GAP:  ASSEf'BLE  REVISION  131  OF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021112-091 
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0392 

0393 
0395 
03  56 
0397 
0397 


REF 

REF 

REF 


37  LAST  885 


REF  44 
REF  1 


31,3502 
D1  ,3503 
Cl, 3504 
E3, 1400 

01.3505 

01.3506 


2 4736  1 LASTTIM 
27*153  0 
C 52C3  0 

03517  1 
C2C63  0 


e CA  BIT14 

ADS  LONGTIME 
TC  WAITLIST 

eBANK=  LSTl 
2CA0R  GETCACR 


0399  REF 

0400  REF 

0401 


1 

3 LAST  1125 


01  ,3  507 
Cl, 3510 
01,3511 


3 3521  1 LONGRTRN  CA 
53*435  0 CXCH 

52  006  0 DTC6 


TSKOVCDR 
LONGEX IT 


0402 

0404 

0405 

0406 
0406 


REF  68  LAST  1126 
REF  38  LAST  1126 
REF  45  LAST  1126 
REF  2 LAST  1125 


31  ,3512  3 4736  1 

01,3512  C 5203  0 
E3, 1400 

01.3514  03467  1 

01.3515  C2063  0 


MUChTlME 


CA 

TC 

EBANK: 

2CADP 


BITJ4 

WAITLIST 

LSTl 

LONGCYCL 


0400  REF 


01,3516  1 3507  1 


TCF  LONGRTRN 


R040g 

0410 

0411 


REF 


***  WAITLIST  TASK  GETCADR 
LAST  1125  01,3517  53*147  0 

01  ,3520  52  006  0 


GETCADR 


DXCH 

CTCb 


LONGCADR 


0412 

0413 

0414 

0415 

0416 

0417 


REF  7J  LAST  1115 
REF  4 LAST  1126 


REF  6 LAST  1120 
REF  2 LAST  1073 


01.3521  C52ei  I 

01.3522  52*435  C 

01.3523  1 3525  I 

01.3524  52  C62  I 

01  ,3525  0 5716  1 

01,3526  21204  1 


TSKOVCDR  GENAOR 
LONGPOOH  DXCH 
TCF 

WAITPOGH  DXCH 
+ 2 TC 

CCT 


TASKCVEP 
LONGE  XIT 
+2 

WAITEXIT 
POODOni 
2)  204 
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GET  BACK  THE  CCPRECT  DELTA  TFOR  WAITLIST 


THE  ENTRY  TO  OUR  LONGCADR 


SET  IT  UP  SO  THAT  CNLY  THE  FIRST  EXIT  IS 
TO  THE  CALLER  OF  LONGCALL 
THE  REST  ARE  TC  TASKCVEP 


WE  HAVE  OVER  OUR  ABOUT  1,25  MINUTES 
Sn  SET  UP  FOP  ANOTHER  CYCLE  THROUGH  HERE 


NOW  EXIT  PROPERLY 

GET  THE  LONGCALL  THAT  WF  WISHED  TO  START 
AND  TRANSFER  CONTROL  TO  IT 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARV  BY  NASA  2021112-091 


L LATITUnE  LONGITUDE  SUBROUTINES 


ROOOl  SUBROUTINE  TO  CONVERT  RAD  VECTCR  AT  GIVEN  TIME  TC  LAT.LONG  ANC  ALT 


R0002  CALLING  SEQUENCE 

R0003  L-1  CALL 

R0004  L LAT-LCNC 

R0005  SUBROUTINES  USEC 


R0006  P-TO-RP  fARCTAN , SE TGAMMA , SE TR E 

R0007  ERASABLE  INITe  REQo 


R0008  AXC,-AYC,A2C«T£PhEM  (SET  AT  LAUNCI-  TIME) 

R0009  ALPHAV  = POSITION  VECTOR  METERS  8-29 
ROOlO  MPAC--  TIME  ICSECS  8-28) 

ROOll  ERADFLAG  =1  t TO  COMPUTE  EARTI-  PACIUSi  =0  FOR  FIXEC  EARTH  RADIUS 
R0012  LUNAFLAG=0  FOR  EARTH, 1 FOP  MCON 
R0013  OUTPUT 


R0014 
ROOl  5 
R0016 
00)  7 
0018 
0019 


LATITUDE  IN  LAT  (REVS*  B-C) 
LONGITUDE  IN  LONG  (REVSo  B-C) 
ALTITUDE  IN  ALT  METERS  8-29 
30,3766 


REF 


13,2000 

13,2347 


BANK  30 
SETLOC  LATLCNG 
BANK 


0020  REF 

0021  REF 

0022 

0023  REF 

0024 

0025 

0026  REF 

0027 

0028  REF 

0029  REF 

0030 

0031  REF 

0032  REF 

0033 

0034  REF 

0035 

0036  REF 

0037  REF 

0038 

0039  REF 

0040 

0041  REF 

0042 

0043  REF 

0044 


1 

7 


2 


2 

6 

6 

1 

5 

9 

1 

1 

10 

11 


LAST  966 
LAST  146 

LAST  1127 

LAST  115 
LAST  1095 

LAST  966 

LAST  973 
LAST  1127 

LAST  1127 
LAST  1127 


E4,1431 
13  ,2347 

13.2350 

13.2351 

13.2352 

13.2353 
13  ,2354 

13.2355 

13.2356 

13.2357 

13.2360 

13.2361 

13.2362 

13.2363 
13  ,2364 

13.2365 

13.2366 

13 .2367 

13.2370 

13.2371 

13.2372 

13.2373 
13  ,2374 
13,2375 


40220  0 
C3674  1 
COOOl  0 
24007  0 
C2032  1 
51406  I 
16070  1 
2AO07  0 
71414  0 
C1743  0 
26362  1 
77624  1 
51700  1 
77656  1 
36C32  C 
26546  1 
77624  1 
26556  C 
63545  0 
C2032  1 
63525  0 
02034  1 
75415  0 


COUNT# 

E8ANK= 

LAT-LONG  STQ 


STCVL 

PUSH 

STOOL 

eOFF 


CALLRTRP  CALL 

UNIT 

STCALL 

CALL 

DLOAD 

POOL 

OAC 


$$/LT-LG 

ALPHAV 

S ETPD 

INCCPPEX 

OD 

60 

ALPHAV 
ABVAL 
A L PHAM 
ZFROVEC 
cus 

LUNAFLAG 

CALLRTRP 

R-TC-RP 


ALPHAV 
SE  TGAMMA 

SETRE 

DSO 

ALPHAV 

DSC 

ALPHAV  +2 
SORT 


17:53  OECo  19,1969  SKIPPER 


101  PAGE  1127 


USER*  S PAGE  NCe 


1 ED  S3 


SAVE  TIME  IN  6-7D  FOR  R-TO-PP 
0-50=  R FOR  R-TC-RP 

ABSe  VALUE  OF  R FOR  ALT  FORMULA  BELOW 
SET  MPAC=0  FOP  EARTH, NON-ZERO  FOR  MOON 
USF  COSIO)  TO  GET  NON-ZERO  IN  MPAC 
0=EARTH,1=M00N 


RP  VECTCR  CCNVERTEC  FROM  R B-29 
UNIT  RP  B-l 

U2=  1/2  SINL  FOR  SETRE  SUBR  BELOW 
SET  GAMMA  = 8?/A2  FOR  EARTH, =1  FOR  MOON 
SCALED  B-l 
CALC  RE  METERS  6-29 


GAP : 

L 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 


assemble  revision  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19,1969  SKIPPER  r- 101  PAGE  1128 


LATITUDE  LONGITUDE  SUBROUTINES 


USER'S  PAGE  NCn 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


586 

1127 
58  6 
566 
92P 

1128 
1128 
1128 
1128 
1128 

928 

1127 

146 

928 


LAST  1J27 


13  ,2376 
13,2277 

13.2400 

13.2401 

13.2402 

13.2403 

13.2404 

13.2405 
13  ,2406 
13,2407 
13,2410 
13,241L 
n,  2412 

13.2413 

13.2414 

13.2415 
13  ,2416 
13,2417 


76405  1 
CCCll  1 
14021  1 
02036  0 
34023  1 
26506  0 
15120  0 
02032  1 
14021  1 
C2C34  1 
24023  1 
26506  0 
15122  1 
02070  I 
^77625  0 
C3672  0 


OMP 

STOOL 

STCALL 

STCOL 

STOOL 

STCALL 

STOOL 

OSU 

STCALL 


SLIP 

GAMPP 

COSTH 

ALPHAV  +4 

SI  NTH 

ARCTAN 

LAT 

ALPHAV 

COSTH 

ALPHAV  +2 

SINTH 

ARCTAN 

LONG 

ALPHAM 

ERADM 

ALT 

INCCPPEX 


COS(LAT)  e-1 
SIN(LAT)  B-1 
LAT  BO 

CnSILONGI  B-1 
SIN(LCNG)  B-l 

LONGo  REVS  6-0  IN  RANGE  -1/2  TO  1/2 
ALT=  R-RE  METERS  8-29 
EXIT  WITH  ALT  METERS  B-29 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-091 

L LATITUDE  LONGITUDE  SUBROUTINES 

P0063  SUBROUTINE  TO  CONVERT  LAT,LnNGiALT  AT  GIVEN  TIME  TO  RADIUS  VECTOR 
R006A  CALLING  SEQUENCE 


R0065  L-1  CALL 

R0066  L LALOTORV 

R0067  SLBRCUTINES  USED 


R0068  SETGAMMA, SETRE,RP-TO-R 
R0069  ERASABLE  INITo  REQ» 


ROC70  AXC,AYOrAZO,TEPHEM  SET  AT  LAUNCH  TIME 

R0071  LAT—  LATITUDE  (REVS  BO) 

R0072  LONG—  LCNGITUOE  (REVS  60) 

R0073  ALT— ALTITUDE  {METERS!  6-29 
R007A  MPAC—  TIME  fCSECS  8-28) 

KU075  ERAOFLAG  =1  TC  CCMPUTE  EARTH  RACIUSt  =0  FOR  FIXED  6AFTH  RADIUS 

R0076  LUN4FLAG=0  FOR  EARTH, I FOR  MCCN 
R0077  OUTPUT 


RC078 

0079 

0060 

0081 

0082 

0083 

008A 

0085 

0066 

0087 

0088 

0089 

0090 
OOol 

0092 

0093 
009A 

0095 

0096 

0097 

0098 
00Q9 
0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 


R-VECTOR 
REF  4 


REF  2 

REF  6 

REF  2 
REF  7 

REF  6 


REF  8 
REF  7 


REF  15 
REF  2 

REF  7 
REF  7 
REF  1 


REF  6 
REF  16 
REF  3 


IN  ALPHAV 
LAST  1128 

LAST  1127 

LAST  1128 

LAST  1126 
LAST  1129 

LAST  1128 

LAST  1129 
LAST  1129 

LAST  1128 
LAST  1127 

LAST  1127 
LAST  1127 


LAST  972 
LAST  1129 
LAST  1128 


(METERS  B-29) 

13.2420  40220  0 

13.2421  03674  1 

13.2422  OOOOl  0 

13.2423  34007  1 

13  ,2424  26546  1 

13.2425  73545  1 

13.2426  01120  0 

13.2427  65275  1 

13.2430  COCll  1 

13.2431  CU20  0 

13.2432  65346  0 

13.2433  C1122  1 

13  ,2434  57356  0 

13.2435  71525  0 

12.2436  01120  0 

13.2437  71525  0 

13.2440  C1122  1 

13.2441  55475  1 

13.2442  41456  0 

13.2443  36032  0 

13  ,2444  26556  0 

13.2445  43145  0 

13.2446  24007  0 

13.2447  01743  0 

13.2450  26452  0 

13.2451  77746  1 

13.2452  77624  1 

13.2453  55716  1 

13  ,2454  16032  1 

13,2455  C3673  0 


LALOTORV 


S7Q  SETPO 

INCORPE  X 
00 

STCALL  6D 

SETGAMMA 
OLCAC  SIN 
LAT 

DMPR  POOL 
GAMRP 
LAT 

COS  POOL 

LCNG 
SIN  DMPR 

PCCL  COS 
LA  T 

PCCL  COS 
LONG 
DMPR  VDEF 
UNIT  PUSH 
STCALL  ALPHAV 


DLCAC 


COS 

CALLRPRT  CALL 


STODL 


SETPE 

BOFF 

ZEROVEC 

LUNAFLAG 

CALLRPRT 


RP-TC-P 

ALPHAV 

ERAOM 


17:53  DECo  19  ,1969  SKIPPER  dOl  PAGE  1129 


USER  'S  PAGE  MOc  3 E4  S3 


LAT, LONG, ALT  TO  R VECTOR 


6-7C=  TIME  FOR  PP-TO-R 
GAMMA=B2/A2  FOR  EARTH,]  FOR  MOON  B-1 

COS(LONG)COS(LAT)  IN  MPAC 
UNIT  RP=  SIN(LCNG)COS(LAT ) 2-30 

PD  2 GAMMA*SIN(LAT)  0-10 

0-lD=  GAMMA*SIN(LAT)  B-2 

PD  4 2-3D=C0S(  LAT ) B-1  TEMPORARILY 

PO  2 

PD  4 2-3C=SIN(LnNG)C0S(LAT)  6-2 

PD  6 4-5D=C0S(LAT)  6-1  TEMPORARILY 

PO  4 MPAC=  CCS(LCNG)CnS(LAT|  B-2 

0-5C=  UNIT  RP  FOR  RP-TO-R  SUBRc 

ALPHAV  +4=  SINL  FCR  SFTRE  SUBRg 
RE  METERS  B-29 

SET  MPAC^O  FOR  EARTH, NPN-Z ERO  FOR  MOON 


USE  COS(O)  TO  GET  NON-ZERO  IN  MPAC 
EXIT  WITH  UNIT  R VECTOR  IN  MPAC 


17:  53  06C«  l'?»I969  SKIPPER  -.101  PAGE  1130 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2n21112-n«31 


L LATITUDE  LONGITUDE  SUBROUTINES 


USER'S  PAGE  NC©  4 F4  S3 


0109 

0110 
0111 
0112 

0113 

0114 
R0115 


13»2456  74215  I 


LAST  1130 
LAST  1129 


13,2457 

13.2460 

13.2461 

13.2462 

13.2463 


CIX24 
02032  1 
77772  0 
36032  0 
03674  1 


SUBROUTINE  TO  COMPUTE  EARTH  RADIUS 


CAC  VXSC 
ALT 

ALPHAV 

VSLl 

STCALL  ALPHAV 

INCORPEX 


(RE  + ALTMUNIT  R>  METERS  0-30 

R METERS  6-29 

EXIT  WITH  R IN  METERS  B-29 


R0116  INPUT 

R0117  1/2  SIN  LAT  IN  ALPHAV  +4 

R0118  OUTPUT 


R0119 


EARTH  RADIUS 


IN  ERACM  AND  MPAC 


(METERS  e-29| 


0120 

0121 

0122 

0123 

0124 

0125 

0126 
0127 
012P 
0129 

ono 

0131 


REF  19  LAST 

REF  1 

REF  1 

REF  2 LAST 

REF  1 

REF  4 LAST 


1130 


1130 


1129 


13.2465 

13 .2466 

13.2467 
13,2470 
13  ,2471 

13.2472 

13.2473 
13  ,2474 

13.2475 

13.2476 

13.2477 


63545  0 
C2C36  0 
44352  0 
24005  1 
44275  1 
26505  0 
24005  1 
75465  1 
26501  1 
77622  1 
03673  0 
77616  0 


GETERAC 


□ LOAD  DSC 

ALPHAV  +4 
SLl  BDSU 
OPl/2 

DMPR  BDSU 
EE 

DPl/2 

eODV  SORT 
R2XSC 

SR4R 

STORE  ERAOM 
RVQ 


S IN**2 ( L » 
C0S##2(L  > 


R01311  THE  FOLLOWING  CONSTANTS  WERE  COMPUTED  W 
RC1312  B2XSC=  SCALED  B-51 

R01313  02/A2=  B#»2/A*»2  SCALED  B-l 

R01314  £E=(1-B«A2/A*«2)  SCALED  8-0 

0132  13,2500  00446  1 

0132  13,2501  CC3C5  1 

0133  REF  a LAST  1095  12,2004 

0134  13,2502  17711  n 

0134  13,2503  05254  I 

0135  13 ,2504  00155  0 

0135  13,2505  25250  I 


ITH  A=637ei66, 6=6356784  METERS 

eaxsc  2CEC  o01794506a9 

CP  1/2  = XUMT 

02/A2  2DEC  ^0933064884  B-l 

EE  20EC  6o6935116  E-3 


B#*2  SCALED  6-51 

GAMMA=  B#*2/A#*2  B-l 
( l-0**2/A*#2>  fi-0 


GAP: 

L 

PC137 

R013S 

R0139 

ROIAO 

ROlAl 

R0142 

R0143 

0164 

0165 

0166 

0167 

0168 

0160 

0150 

0151 

0152 

0153 

0156 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0166 

0165 

0166 

01e7 

0168 

0169 

0170 

0171 

0172 

0173 

C176 

0175 

0176 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021112-09) 
LATITUDE  LCNGITUDE  SUERCUTINES 
ARCTAN  SLBRQLTINE 

CALLING  SEQUENCE 

SIN  THETA  IN  SINTH  6-1 
COS  THETA  IN  COSTH  0-1 
CALL  ARCTAN 

IN  RANGE  -1/2  TC  +1/2 


17:53  DEC.  19,1969  SKIPPER  olOl  PAGE  1131 
USER'S  PAGE  NCa  5 E6  S3 


REF  I 

REF  9 LAST  1128 
REF  9 LAST  1128 


REF 


1 


REF  10  LAST  1131 
REF  1 


REF  ■ 6 LAST  961 


REF 

REF 

REF 


REF  1 
REF  11 


LAST  1130 
LAST  1131 


LAST  1131 
LAST  1131 


LAST  1131 
LAST  1131 


13,2506 
13  ,2507 

13.2510 

13.2511 

13.2512 

13.2513 
13  ,2516 

13.2515 

13.2516 

13 .2517 

13.2520 

13.2521 

13.2522 

13.2523 
13  ,2526 

13.2525 

13.2526 

13.2527 

13.2530 

13.2531 

13.2532 

13.2533 
13,2536 

13.2535 

13.2536 
13 ,25  37 
13,256C 

13.2561 

13.2562 

13.2563 
13  ,2566 
13,2565 


77600  I 
26510  1 
63565  C 
00023  0 
63525  0 
00021  I 

77615  0 
75656  0 
26536  1 
60065  0 
C0C23  0 
26561  0 
67562  0 
C0025  0 
50125  I 
00021  I 
26530  0 
63565  1 
57565  I 
63266  1 
26536  0 
26005  I 
00025  0 

77616  0 

52025  1 
26005  1 
26536  1 
75365  1 
11003  1 
00023  0 
00025  0 
77616  0 


CLROVFLW  DLOAD 


CAC 

BZE 


SRI 

STORE 

POCL 


DLOAD 

DLCAD 

epL 


STORE 

RVC 


ATAN  = 90  DLOAD 


STORE 

RVQ 


CLROVFLW 

DSC 

SINTH 

DSC 

CCSTH 

SORT 

ARCTANXX 

BOV 

SINTH 

ATAN=90 

AS  IN 

THETA 

BMN 

COSTF 

NEGCOS 

RVQ 

DCCMP 

DAD 

NEGCUT 

OPl/2 

THETA 


GOTO 

OPl/2 

ARCTANXX 

SIGN 

LOCPl/6 

SI  NTH 

THETA 


ATAN=0/0  SET  THETA=0 


GAP:  ASSEf'BLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L LATITUDE  LONGITUDE  SieRCUTlNfS 


ooooa  SETGAMMA  SUBROUTINE  ooooe 

SLBBCUTINE  TO  SET  GAM^'A  FCR  TFE  LAT-LONG  AND  LALOTORV  SUBROUTINES 


R0179  GAMMA  = B##2/A*#2  FCR  EARTH  (B-l) 
R0180  GAMMA  = 1 FCR  MOON  (0-1) 


R0181  calling  SECUENCE 

R0182  L CALL 

R0183  L+1  SETGAMMA 


R0184  INPLT 

R0185  LUNAFLAG=0  FUR  EARTH, =1  FCR  MCON 


R0186  OUTPUT 

R0187  GAMMA  IN  GAMRP  (B-l) 


0188 

0189  REF  1 

0190  REF  8 UAST  1129 

019).  REF  1 

0192 

0193  REF  1 

0194  REF  3 LAST  1129 

0195 

0196 


13,2546 
13  ,2547 

13.2550 

13.2551 
13  ,2552 

13.2553 

13.2554 

13.2555 
OOlC 


A3145  0 
26503  0 
C1743  0 
26554  1 
77735  0 
24C05  I 
COOll  1 
77616  0 


SETGAMMA  DLCAD  BOFF 
B2/A2 
UUNAFLAG 
SETGMEX 

SLOAD 

IBl 

SETGMEX  STORE  GAMRP 
RVG 

GAMRP  = 8D‘ 


17:58  DECo  19,1969  SKIPPER  olOl  PAGE  1132 


USER'S  PAGE  NOo  6 E4  S3 


BRANCH  FCR  EARTI- 
EARTH  GAMMA 


MOON  GAMMA 


gap:  ASSEP8LE  REVISION  131  CF  AGC  PRCGRAM  LUMINARV  BY  NASA  2021112-091  17:53  OECo  19,1969  SKIPPER  <,101  PAGE  1133 

L LATITUDE  LONGITUDE  SUBROUTINES  USER'S  PAGE  NOc  7 E4  S3 

P0197  eooooSETPE  SUBROUTINE  oocoe 

R0198  SUBROUTINE  TO  SET  RE  (EARTE  CR  POCN  RADIUS! 

R0199  RE=  RM  FOR  MOON 

R0200  FE=  RREE  FOR  FIXED  EARTH  RACIUS'OR  COMPUTED  RF  FOR  FISCHER  ELLIPSOID 


R0201  CALLING  SEQUENCE 

R0202  L CALL 

R0203  L + 1 SETRE 


R0204  SUBROUTINES  USED 
R0205  GETERAC 


R0206 

R0207 

R0208 

R0209 


I NPUT 

ERAOFLAG=0 
ALPhAV  4A= 
LLNAFLAG=C 


FOR 

1/2 

FOR 


FIXED  RE,  1 FCR  CCPPUTEO  RE 
S INL  IF  GETERAC  IS  CALLED 
EARTH, =1  FCR  RCCN 


R0210  OUTPUT 

R0211  £RAOP=  504RP  FCR  f-CCN  (METERS  6-29  1 

R0212  ERADM=  ERAO  CR  COMPUTED  RF  FCR  EARTH  (METERS  6-291 


0213 

021A  REF  1 

0215  REF  1 

0216 

0217  REF  9 

0218  REF  1 

0219  REF  1 

022n 

0221  REF  4 

0222  REF  I 

0223  REF  1 

0224  REF  5 

0225  REF  2 

0226 

0227  REF  5 

022B  REF  2 

0229  REF  14 

0230 

0231 

0232  REF  3 

0233  RFF  12 


13  ,2557 

13.2560 

13.2561 
.LAST  1132  13  ,2562 

13.2563 

13.2564 

13.2565 
LAST  967  13,2566 

13  ,2567 

13,2570 
LAST  1130  13,2571 

LAST  1133  13  ,2572 

13,2573 
LAST  1133  13,2574 

LAST  1133  13,2575 

LAST  976  13,2576 

13  ,2577 

13,2600 
LAST  1133  13,2601 

LAST  965  0051 


71220 

00051 

10003 

712U 

01703 

26573 

lOOOl 

45014 

C0742 

26571 

26A64 

37673 

00051 

77214 

00702 

26571 

02023 

64446 

7765C 

26571 


1 

0 

0 

C 

1 

1 

1 

0 

0 

0 

0 

1 

0 

c 

1 

0 

1 

0 

1 

0 


SETRE  STQ 

BON 

80FF 

SETRXX  STCALL 
TS7RLSRM  BON 

A6VAL 

GOTO 

SETREX 


OLCAD 

SETREX 

504RM 

DLOAO 

LUNAFLAG 

TSTRLSRM 

ERAD 

CALL 

ERADFLAG 

SETRXX 

GETERAC 

ERAOM 

SETREX 

V LCAO 

ERADFLAG 

SETRXX 

RLS 

SR2R 

SETRXX 

S2 


BRANCH  FCR  MOON 

ERACFLAG=0  FOR  FIXFO  RE,1  FOR  COMPUTED 

FXIT  WITH  RE  OP  RM  METERS  B-29 

ERACFLAG=0,SFT  RO^RLS 
=1  RO=RM 

SCALE  FROM  P-27  TO  B-29 


gap; 

L 

POOOl 

R0002 

R0003 

R0004 

R0005 

R0006 

R0007 

KUDOS 

R0009 

ROOlO 

ROOll 

R0012 

R0013 

R0Ol<t 

R0015 

R0016 

R0017 

R0018 

R0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

003? 

003? 

0034 

0035 

0036 

0037 

003  8 

0039 

0040 

0041 


ASSEMBLE  REVISION  131  OF  AGC  PFCGRAM  LUMINARY  BY  NASA  2021U2-O91 
PLANETARY  INERTIAL  ORIENTATION 


17: 53  DEC,  19, 
USER'S 


]Q69  SKIPPER 
PAGF  NOo  1 


I 101 


PAGE  1134 
EO  S3 


ooeoe  RF-TC-P  SUBRCUTINE 

SUBROUTINE  TO  CONVERT  RP  (VECTCR 
EARTH-FIXED  OR  MOON-FIXEO)  TO  R 


IN  PLANETARY  CCCRCINATE  S YST EM , E IT  HER 
(SAME  VECTOR  IN  THE  BASIC  REFo  SYSTEM) 


R=MT  (Tl# (RP+LPXPP  ) MT=  M MATRIX  TRANSPCSE 


CALL ING  SEQUENCE 
L CALL 

L+1  PP-TC-R 


SU6R0UT INES  USED 
EARTHMX  ,MCCNMX  tEARTFL 


ITEMS  AVAILABLE  FROM  LAUNCH  DATA 
504LM=  THE  LIBRATION  VECTOR  L OF 
IN  THE  MCON-FIXEC  COORD*  SYSTEM 
ITEMS  NECESSARY  FOR  SUBR*  USED 


THE  MCON  AT  TIME  TIMSUBL 
RADIANS  eO 

(SEE  DESCRIPTICN  OF  SUBR. 


EXPRESSED 


INPUT 

MPAC=  0 FOR  EARTH  ,NCN-2ERC  FCR  MCCN 
0-5D=  RP  VECTOR 
6-70=  TIME 


OUTPUT 

MPAC=  R VECTOR  METERS  8-29  FOR  EARTH,  B-27  FOR  MOON 


REF- 


SETLQC  PLANTINl 
BANK 


REF  2 LAST  52  TO  155:  18  16* 


COUNT*  ft/LURCT 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


1 

1 

1 

1 

1 

2 LAST  1134 

1 

1 

1 

1 


2 LAST  1134 


26,3717 

26.3720 

26.3721 

26.3722 

26.3723 

26.3724 

26.3725 
26,3  7 26 
26,3727 

26.3730 

26.3731 

26.3732 

26.3733 
26,3724 

26.3735 

26.3736 

26. 3737 
26,3740 


55733  0 
77624  1 
51730  1 
77775  1 
02013  1 
53235  0 
OOOOl  0 
COCCI  C 
52105  1 
00025  0 
51716  0 
77624  1 
55743  1 
77624  1 
15761  0 
76521  C 
00025  0 


RP-TO-R 


RPTORB 


STC 

CALL 

VLOAO 

VXV 

VXM 

CALL 


BHIZ 

RPREXIT 

RPTORA 


MOONMX 

504LM 

VAO 

504RPR 
5n4RPR 
GOTO 
MM.ATR  IX 
PPRPXXXX 

EARTHMX 


CALL 

EARTHL 
MXV  VSLl 

MMATRI X 


COMPUTE  M MATRIX  FOR  MOON 
LP=LM  FCR  MCON  RACIANS  60 


MPAC=R=MT(T  )*(  RP+LPXRP  ) 

RESET  PUSHLCC  TC  0 PEFCPE  EXITING 
EARTH  COMPUTATIONS 
M MATRIX  6-1 

L VECTOR  RADIANS  BC 
LP=M(T)*L  rad  6-0 


GAP:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARV  BY  NASA  2021U2-G91 


17:53  DECo  19,1969  SKIPPER  olOl  PAGE  1135 


L 


PLANETARY  INERTIAL  ORIEATATICA 


USER'S  PAGE  NOe 


eo  S3 


00A2 

0043  REF  1 

00432  REF  1 

0043* 

00436  REF  1 


26.3741 

26.3742 
24,2000 
24,3700 


GOTO 

RPTORB 

SETLOC  PLANTIN 
BANK 

COUNT#  t$/LUROT 


gap: 

L 

POO^A 

R0045 

ROOA6 

R00A7 

ROOA8 

R0CA9 

R0050 

R0051 

R0052 

R0053 

R005A 

R0055 

R0056 

R0057 

ROO50 

R0059 

R0060 

R0061 

R00b2 

00b3 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAR  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19,1969  SKIPPER  i 101  PAGE  1136 


PLANETARY  INERTIAL  ORIENTATION  USER'S  PAGE  NC*  3 EO  S3 

• ooe»  H-TC-RP  SLBRCLTINE  ><,««» 

SUBROUTINE  TO  CONVERT  R (VECTOR  IN  REFERENCE  COORD*  SYSTEM)  TC  RP 
(VECTOR  IN  PLANETARY  COORC  SYSTEM)  EITHER  EARTH-FIXED  OR  MOON-FIXED 


RP=M(7I*(R-LXR) 


CALL  ING  SEQUENCE 
L CALL 

L+1  R-TO-RP 


slercltines  usee 

EAR  THMX  ,MCQNMX  ,EARTHL 


INPUT 

MPAC=  0 FCR  EARTH, NCN-ZERC  FCR  MOON 
C-50=  R VECTOR 
6-7C=  TIME 


ITEMS  AVAILABLE  FRCM  LAUNCH  DATA 

504LM=  THE  LIBRATION  VECTOR  L CF  THE  MCCN  AT  TIME  T I MSUEL , E XPR ESS  EC 
IN  THE  MOON-FIXED  COCRDo  SYSTEM  RADIANS  BO 

ITEMS  NECESSARY  FCR  SUEfJCLTINES  USED  (SEE  DESCRIPTION  OF  SUBR*  ) 


OUTPUT 

HPAC=RF  VECTOR  METERS  0-29  FCR  EARTH,  B-27  FOR  MOON 


kEF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


2 

1 

2 


2 

3 


4 


3 

2 

2 


1 


LAST  1134 

LAST  1134 

LAST  1134 
LAST  1134 

L'AST  1134 
LAST  1136 

LAST  1136 

LAST  1136 
LAST  1134 
LAST  1154 


24,37C1 

24.3702 

24.3703 

24.3704 
24  ,3705 

24.3706 

24.3707 

24.3710 

24.3711 

24.3712 

24.3713 

24.3714 

24.3715 

24.3716 

24.3717 

24.3720 

24. 3721 

24.3722 

24.3723 

24.3724 

24.3725 

24. 3726 

24.3727 


46020  1 
00050  1 
51722  1 
77624  1 
51730  1 
61375  1 
02C13  1 
00025  0 
77772  0 
51235  1 
00001  0 
00001  0 
77721  0 
00025  0 
4C372  0 
QOOOl  0 
77650  1 
00050  1 
77624  1 
55743  1 
77624  1 
15761  0 
7765C  1 
51711  1 


R-TO-RP  STQ 

CALL 

VLOAO 

VSLl 

RTORPB  VXV 

MXV 

RPRPXXXX  VSLl 
GOTO 

RTORPA  CALL 
CALL 
GOTH 


BHIZ 

RPREXIT 

RTORPA 

MOONMX 
VXM 
504  LM 
MMATRI X 

BVSL 

504PPR 

504RPB 

MMATRIX 

SETPD 

(TO 

RPREXIT 

EARTHMX 

EARTHL 

RTCRPB 


LP=LM 

L=MT(T)*LP  RADIANS  RC 


M(T)4(R-LXR)  B-2 


EARTH  COMPUTATIONS 


MPAC=L= (-AX,-AY,n ) RAD  B-0 


gap:  ASSEI^BLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:'?3  DEC.  1' 


9,1969  SKIPPER  -101  PAGE  1137 
L PLANETARY  INERTIAL  ORIEMATICN  USER'S  PAGE  NO.  A EO  S3 

P0087  oce»3  MCCNMX  SUBROUTINE 

R0088  SUBRCUTINE  TO  COMPUTE  THE  TRANSFORMATION  MATRIX  M FOR  THF  MOON 


ROO09  CALLING  SEQUENCE 

R0090  L CALL 

R0091  L+1  MCCNMX 


R0092 
R009  3 


SUBROUTINES  USED 
NEW  ANGLE 


R009A 

R0095 

R0096 

R0C97 

R0098 

R0099 

ROlOO 

ROlOl 

R0102 


INPUT 

6-70=  TIME 

ITEMS  AVAILABLE  FRCM  LAUNCF  DATA 
BSUBOiBOCT 

TIMSUeO,NODIO,NOCCaT, FSUBO.FDOT 

ccsi=  ccs( n B-1 

SINI=  SINI  I ) 6-1 

I IS  THE  ANGLE  BETWEEN  THE  MEAN  LUNAR  EQUATORIAL 
PLANE  OF  THE  ECLIPTIC  (1  DEGREE  32«l  MINUTES) 


PLANE  AND  THE 


R0103  OUTPUT 

R0104  MMATPIX=  3X3  M MATRIX  B-1  ( 


STORED  IN  VAC  AREA) 


0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 
0117 

one 

0119 

0120 
0121 
0122 
0li3 

0124 

0125 

0126 
0127 
0126 

0129 

0130 

0131 


REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF 

REF 

REF 


REF 


REF 


1 


1 

1 

1 

1 

1 

1 

1 


3 


LAST  1137 


LAST  1137 


24.3730 

24.3731 

24.3732 

24.3733 

24.3734 

24.3735 

24.3736 

24.3737 

24.3740 

24.3741 

24.3742 

24.3743 

24.3744 

24.3745 

24.3746 

24.3747 
24  ,3750 
24,3751 
24  ,3752 
24  ,3753 

24.3754 

24.3755 

24.3756 

24.3757 

24.3760 

24.3761 

24.3762 


CC051  0 
00011  1 
77770  ) 
000C5  1 
65345  0 
14C17  1 
14011  1 
45006  0 
53732  1 
71406  0 
14041  1 
77756  0 
14043  0 
14015  C 
41525  0 
14007  C 
45170  0 
00004  0 
53732  1 
14027  1 
14013  0 
41525  C 
14005  1 
45170  0 
C0005  1 
53732  1 


STQ  SETPC 

EARTHMXX 

8D 

AXT.l 

5 

CLCAC  POOL 
6SUBC 
BOOT 
PUSH  CALL 

NEWANGLE 
PUSH  COS 

STCOL  cce 

SIN 

STOOL  SOB 

FSUBC 

POOL  PUSH 
FOOT 
AXT,1  CALL 

4 

NEWANGLE 
STOOL  AVECTR  +2 
NOO  10 

POOL  PUSH 

NOOOCT 
AXT,1  CALL 

5 

NEWAN6LE 


e REQUIRES  SL  0,  SL  5 IN  NEWANGLE 

PO  lOD  6-90=BSUB0 

10-11C=  BOOT 


PC  120 

EXIT  WITH  PD  8C  AND  MPAC=  B REVS  B 
PO  100 

PD  80  CnSIB)  B-1 
SINIB)  B-1 

SETUP  INPUT  FOR  NEWANGLE 
8-90=FSU80 

PO  lOD  THEN  120  10-nD=F0CT 


F REQUIRES  SL  1,  SL  6 IN  NEWANGLE 

EXIT  WITH  PO  8C  ANC  MPAC=  F REVS  BO 
SAVE  F TEMP 

fl-9D=N0DI0 

PC  lOD  THEN  12C  10- 1 1 C=N0DDnT 

MPAC=T 

NOCE  REQUIRES  SL  C,  SL  5 IN  NEWANGLE 
EXIT  WITH  PO  80  ANC  MFAC=  NCOI  REVS  BO 


GAP:  ASSEMBLE  KEVISION  131  GF  AGC  PRCCRAM  LUMINARY  BY  NASA  2021112-091 

L PLANETARY  INERTIAL  ORIENTATION 


17:53  DECe  19,1969  SKIPPER  101  PAGE  1138 
USER  'S  PAGF  NOe  5 EC  S3 


0132 

0133 

013A  REF  2 

0135 

0136  REF  2 

0137  REF  1 

C13B 

0139  REF  2 

0140  REF  2 

0141 

0142 

0143  REF  1 

01475 

01476  REF  1 

01477 

01476  REF  1 


LAST  1137 
LAST  1137 

LAST  1137 
LAST  1138 


24.3763  71A06  0 

24.3764  77606  1 

24.3765  00C25  C 

24.3766  76405  1 

24.3767  000*11  1 

24.3770  14035  1 

24.3771  76405  1 

24.3772  00043  0 

24.3773  14C37  0 

24,3  774'  .41556  1 

24.3775  52076  1 

24.3776  53653  1 

25,3653 

25,2000 

25,3653 


PUSH  COS 

PUSH 

STCR6  AVECTR 
OMP  SLIR 

COB 

STCOL  BVECTR  +2 
OMP  SLIR 

SCB 

STOOL  BVECTR  +4 
SIN  PUSH 

CCCKP  GOTC 

MUONMXA 
BANK  25 

SETLOC  PLANTIN3 
BANK 

COUNT*  $$/LUROT 


PO  lOD  8-00=  NODI  RFVS  BO 
PO  120  10-110=  COS(NCDI)  B-1 


COSINODI  I B-1 

PC  100  20-2  5C=AV£CTR=  C06*SIN(N0Dn 

SC8*SIN(N0Dn 


PC  80 

PO  lOD  -SIMNOOn  8-1 

26-310=BVECTR=  COV*COS(NOOI  ) 


0148 

01481 

01482 

01483 

01484 

01485 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 
01  65 
0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 


REF  3 
REF  3 
REF  1 

REF  - 3 

REF  4 
REF  1 

REF  3 
REF  5 
REF  13 


HEF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 


3138  25,3653 

1138  25,3654 

25.3655 

25.3656 
1138  25,3657 
use  25,3660 

25,3661 
25  ,3662 
3138  25,3663 

1138  25,3664 

847  25,3665 

25,3666 
1138  25,3667 

25,3670 
1138  25,3671 

1138  25,3672 

25. 3673 

25.3674 

25.3675 

25.3676 
25  ,3677 
25,37C0 

1136  25,3701 

25  ,3702 
1138  25,37C3 

1138  25,3704 

25,3705 
1138  25,37C6 

25  ,3707 
1138  25,3710 

25,3711 
25  ,3712 
25,3713 


14033  1 
00027  I 
14007  0 
76405  1 
00041  1 
14027  1 
00011  1 
76405  1 
CCC43  0 
14031  0 
06524  1 
57525  1 
00043  0 
63325  0 
00041  1 
00033  1 
63361  C 
14003  1 
00011  1 
53361  C 
14001  0 
77772  0 
24041  1 
63361  0 
14CC3  I 
00033  1 
52361  1 
14001  0 
65372  1 
00007  0 
74346  0 
00011  I 
73525  1 


MOQNMXA  STCOL  BVECTR 

AVECTR  +2 
STCOL  504F 
OMP  SLIR 

COB 

STCOL  AVECTR  +2 
SINNODI 
DMP  SLIR 

SCB 

STOOL  AVECTR  +4 
HI6ZERCS 
POOL  OCCMP 
SOB 

POOL  PDVL 
COB 
BVECTR 
VXSC  PDVL 
SIM 
CVECTR 
VXSC  VAO 
COSI 

VSLl 

STOVL  MMATRI  X +]  20 
VXSC  POVL 
SI  M 
BVECTR 
VXSC  vsu 
COSI 
VSLl  POOL 
504F 
COS  VXSC 

DVECTR 
POOL  SIN 


PC  80  S0B*C0S(N001  ) 

MOVE  F FROM  TEMP  LCCo  TC  504F 


9-90=SIN(NC0I I e-1 


0 

8-130=  CVECTR=  -SOB  6-1 
PC  100  COB 

PC  120  THEN  PD  140 


PD  20D  eVECTR*SINl  B-2 


PC  14C  CVECTR*CCSI  8-2 


PO  80  M2=6VECTR*SINI+CVECTR*C0SI  B-l 
PO  140 

rVECTR*SINI  8-2 
PO  80  BVECTP*COSI  6-2 

PD  140 

8-130=OVECTR=BVECTR*COSI-CVECTR*SINI  B-1 


PC  200  14-190=  OVECTR*CnSF  B-2 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PFCGRAP  LUMINARY  0Y  NASA  2021112-091 


17:53  OECo  19,1969  SKIPPER  ,101  PAGE  1139 


L PLANETARY  INERTIAL  ORIEMATICN 


USER’S  PAGE  NCo  6 EC  S3 


C176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 
0166 

0187 

0188 
0189 

RU190 

R0191  . 

R0192 

R0193 

R0194 

R0195 

R0196 


REF 


REF 


REF 


REF 

REF 


LAST  1138 


LAST  1138 
LAST  1139 


LAST  1139 


LAST  1139 


LAST  T139 
LAST  1137 


VXSC 


VSLl 

STOOL 


504F 

VSU 

AVECTR 


REF  3 LAST  1138  ' 25,3714  00007  0 

25,  3715  52361  1 

25.3716  00025  0 

25.3717  77772  0 

25.3720  14033  1 

25.3721  00007  0 

25.3722  74256  1 

25.3723  71525  0 

25.3724  00007  0 

25.3725  53361  C 

25.3726  00025  0 

25.3727  57572  0 

25,3730  34025  1 

25  ,3731  00051  0 

COMPUTE  X=XC+( XDOT M T+TO) 

8-90=  XO  (REVS  e-0  ),P'JSHLOC  SET  AT  120 
lC-llD=xnOT  (REVS/CSEC)  SCALED  6+23  FOR  WEARTh, 

AND  B+27  FOR  FOOT 

Xl=DIFFEReNCE  IN  23  AND  SCALING  CF  XCCT,=0  FOR  DEARTH, 5 FCR  NCDOCT  AND 

eCCT  AND  4 FOR  FOOT 

6-70=T  ICSEC  6-281,  TIMSUBO=  (CSEC  B-42  TRIPLE  PREC6 » 


MMATRI X 
504F 
VXSC 
COS 
5n4F 
VAD 

AVECTR 
VCCMP 
STCALL  MMATRIX 
EARThMXX 


SIN 

POOL 


VXSC 


VSU 


+28  FOR  NOCDOT  AND  BOOT 


PD  140  AVECTR>>S  INF  B-2 

Ml=  AVECTR*SINF-DVECTR*COSF  B-1 
PC  80 

PO  14D  e-13D=CVECTR#S INF  B-2 
PD  8D  AVFCTR*CaSF  B-2 

- (AVECTR*CCSF+CVFCTR*S INF ) B-1 


0197 

0198 
01«9 
0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

02141 

02142 

0215 


REF  I 
REF  733 
REF  I 
REF  2 


REF  3 


25.3733 

25.3734 

25.3735 

25.3736 
LAST  1102  25,3737 

25,3740 
LAST  1139  25,374  1 

25.3742 

25.3743 

25.3744 

25 .3745 
LAST  1139  25,3746 

25,3747 

25.3750 

25.3751 
25  ,3752 

25.3753 

25.3754 

25.3755 

25.3756 


54345  1 
00007  0 
20617  0 
72371  I 
017C7  0 
00155  0 
14017  1 
00020  0 
77605  1 
43257  0 
20206  1 
67206  1 
0CC17  1 
41261  1 
20212  1 
GC012  0 
43257  0 
20213  0 
77600  1 
53756  0 
77616  0 


NEWANGLF  CLOAC 

TAD 

STCDL 

OMP 

SL* 

PUSH 

SL 

SL# 

BOV 

RVQ 


SR 
6D 
I 4D 
TLOAO 
TI Msuec 
MPAC 
T I MSUBM 
TI MSUBM 

DAD 

5,1 

SLOAD 

TI MSUBM 

DMP 

9D 

1 OD 

DAD 

10D,1 


ENTER  PD  12D 


CHANGE  MODE  TO  TP 


T+TD  CSEC  6-42 

PD  lOD  MULT  BY  XDCT  IN'  ID-HO 
PD  80  ADD  XO  IN  8-90  AFTER  SHIFTING 
SUCH  THAT  SCALING  IS  6-0 
PO  100  SAVE  PARTIAL  (XO+XDOT#TI  IN  8-9D 


XDCT 

PD  80  SHIFT  SUCH  THAT  THIS  PART  OF  X 
IS  SCALED  REVS/CSEC  R-0 
TURN  OFF  CVERFLCW  IF  SET  BY  SHIFT 
INSTRUCTION  BEFORE  EXITING 
MPAC=X=  XO+{XDOT  ) (T+TD  I REVS  BO 


gap:  assemble  REVISION  131  OF  AGC  PFCGPAM  LUMINARV  BY  NASA  2021112-091 

L PLANETARY  INERTIAL  OPIENTATICN 

P0216  «•<>•«  EARTHMX  SUBROUTINE  9«oo« 

R0217  SUBROUTINE  TO  COMPUTE  THE  TRANSFORMATION  MATRIX  M FOR  THE  EARTH 


RC218  CALLING  SEQUENCE 

R0219  L CALL 

R0220  L+l  EARTHMX 


R0221  SUBROUTINES  USED 
R0222  NEWANGLE 


R0223  INPUT 

R022A  INPUT  AVAILABLE  FRCM  LAUNCH  DATA  AZC  REVS  P-0 

R0225  TEPHEM  CSEC  B-A2 

R0226  e-7D=  TIME  CSEC  E-28 


R0227  OUTPUT 

RO220  MMATRIX=  3X3  M MATRIX  3-1  (STORED  IN  VAC  AREA! 


02282 

0228^ 

02286 

02286 


26  ,37A3 

REF  2 LAST  USA  26,2000 
26,3743 

REF  3 LAST  1134  TO  U35: 


21 


39* 


BANK  26 
SETLOC  PLANTIM 
BANK 

CCUNT*  SS/LURCT 


0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 


REF  3 

REF  1 
REF  1 

REF  4 

REF  ■ 1 
REF  14 
REF  2 
REF  3 
REF  15 
REF  5 
REF  4 


LAST  1130 


LAST  1137 


LAST  1138 
LAST  1140 
LAST  1140 
LAST  1140 
LAST  492 
LAST  1140 


26.3743 

26.3744 

26.3745 

26.3746 

26.3747 

26.3750 

26.3751 

26.3752 

26.3753 

26.3754 

26.3755 

26.3756 
26  ,3757 

26.3760 

26.3761 

26.3762 

26.3763 
26  ,3764 

26.3765 

26.3766 

26.3767 

26. 3770 

26.3771 

26.3772 

26.3773 

26.3774 


40220  0 
00051  0 

coon  I 

77770  1 
OOOOO  1 
65345  0 
01712  1 
14021  1 
45006  0 
53732  1 
41401  1 
00023  0 
65340  0 
C0C23  0 
65356  1 
06524  1. 
73525  1 
00023  0 
65276  I 
00023  C 
63346  0 
06524  1 
41525  0 
06522  1 
77650  1 
00051  0 


EARTHMX  STC  SETPD 

EARTHMXX 

BD 

AXT,1 

0 

DLOAD  PDDL 
AZO 
WEARTH 
PUSH  CALL 

NEWANGLE 
SETPD  PUSH 
18D 

COS  PDDL 
504AZ 

SIN  PDDL 

HI6ZERCS 
PDDL  SIN 

504AZ 

DCCMP  POOL 
5C4AZ 

COS  PDVL 

HI6ZERCS 
PDDL  PUSH 

HICPHALF 

GOTO 

EARTHMXX 


17:53  DECo  19,1969  SKIPPER  dOl  PAGE  1140 


USFR' S PAGE  NC.  7 BO  S3 


SET  8-OD=AZ0 
10-T10=WEARTH 

FOR  SL  5,  AND  SL  10  IN  NEWANGLE 
LEAVING  PO  SET  AT  120  FOR  NEWANGLE 


18-190=  504AZ 

COS(AZ) 

20-37D=  MMATRIX=  -SIN(AZ) 
0 


SIN(AZ>  0 
COS(AZ)  0 B-1 
n 1 


Gip:  ASSEPBLE  REVISION  131  CF  AGC  PPCGRAP  LUMINARY  BY  NASA  2021112-091 

L PLANETARY  INERTIAL  ORIENTATICN 


rL§5BL^U^Vc'^BS?^:^J"E  rBtjU  FCR  earth 


17:53  OECo  19, 1969 
USER  'S  PAGE 


SKIPPER  cini  PAGE  llAl 
NO®  8 EC  S3 


R0257  CALLING  SEQUENCE 

R0258  L CALL 

R0259  L+1  EARTHL 


R0260 

R0261 


INPUT 

AXC,AYC  SET  AT  LAUNCH  TIKE 


H ITH  AYO  IMMED  lAT  ELY 


FOLLOWING  AXO  IN  CORE 


R0262  OUTPUT 
R0263  -AX 

R026A  HPAC=  -AY 

R0265  0 


RACIANS  BrO 


0265C5 

02651  REF  1 

026515 

02652  REF  I 


36,3761 
36 ,2000 
36,3761 


BANK  06 
SETLOC  EARTHLOC 
BANK 

COUNT*  $t/LUROT 


0266 

0267  REF  1 

0266  REF  1 

0269  REF  1 

0270  REF  2 

0271  REF  A 

0272  REF  3 

0273  REF  ^ 

0279 


LAST  1191 
LAST  329 
LAST  1191 
last  1191 


06.3761  57595  1 

06.3762  01716  0 

36.3763  19017  1 

06.3769  01719  1 

06,3765  19021  1 

36  ,3766  29007  0 

06,3767  29023  0 

06.3770  00017  1 

06.3771  77616  0 


EARTHL 


CLCAD  OCCPP 
AXC 

STOOL  509LPL 
-AYC 

STOOL  5n9LPL  +2 
L06ZER0S 
STCVL  509LPL  +9 
509LPL 

RVC 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 


GAP: 

L PLANETARY  INERTIAL  ORIENT  ATICK 


P0275 
0276 
0279 
0260 
0281 
02  62 
0283 
02  84 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 


CONSTANTS  AND  ERASABLE  ASSIGNMENTS 
REF  5 LAST  1131  12,20C4  101 

REF  13  LAST  1082  1050  RPREXIT 

REF  13  LAST  1133  0051  EARTHMXX 

0000  504RPR 

0010  SINNOCI 

OOIO  DVECTR 

0010  CVECTR 

0022  504AZ 

0016  ' - TIMSUBM 

)016  504LPL 

0024  AVECTR 

0932  BVECTR 

0024  MMATRIX 

0040  cce 

0042  SOB 

0006  504F 


OPl/2 

51 

52 
OD 
8D 
80 
80 
180 
140 
140 
200 
260 
200 
320 
340 
60 


17:53  DEC*  19,1969  SKIPPER  *101  PAGE  1142 


USER*  S PAGE  NCo  9 EO  S3 


1 SCALED  B-1 

R-TO-RP  AND  PP-TO-R  SUSP  EXIT 
EARTHMXiMOONMX  SUBR*  EXITS 
6 PEGS  R CR  RP  VECTOR 

2 SININOOn 

6 C VECTOR  MOON 

6 C VECTR  MCCN 

2 A2 

3 TIME  SUB  M (MOON)  T^-TO  IN  GETAZ 

6 L OR  LP  VECTOR 

6 A VECTOR  (MOON) 

6 B VECTCP  (MCON) 

18  M MATR  I X 

2 COS(B)  B-1 

2 SIN(B)  e-1 

2 F (MOON) 


SKIPPER  olCl  PAGE  1143 
NCc  1 EC  S3 

POOOl  INCORPl — PERFCRPS  THE  SIX  DIMENSIONAL  STATE  VECTOR  DEVIATION  FOR  POSITI 

R0002  ON  ANC  VELOCITY  OR  THE  NINE  DIMENSIONAL  DEVIATION  OF  POSI  T I ON  , VE  LOC I TV  , A 

R0003  NO  RADAR  OR  LANDMARK  EIASoTHF  OUTPUT  OF  THE  0VECTOR  ROUTINE  ALONG  WITH  T 

R0004  HE  ERROR  TRANSITION  MATRIX(WI  ARE  USED  AS  INPUT  TC  THE  ROUTINEaTHE  PEVIA 

ROODS  TION  IS  OETAINEC  BY  CCMPUTING  AN  ESTIMATED  TRACKING  MEASUREMENT  FROM  THE 

R0C06  CURRENT  STATE  VECTOR  AND  CCMFARING  TT  WITH  AN  ACTUAL  TRACKING  MEASUREMFN 

R0007  T AND  APPLYING  A STATISTICAL  WEIGHTING  VECTORo 
ROOOB  INPUT 

R0009  DMENFL6  = 0 60IMENSI0NAL  BVECTOR  1=  QCIMENSICNAL 

ROOlO  W = ERROR  TRANSITION  MATRIX  6X6  OR  9X9 

ROOll  VARIANCE  = VARIANCE  (SCALAR) 

R0012  DELTAQ  = MEASURED  OE V I A T 1 C N ( SC A L AR ) 

R0013  BVECTOR  = 6 OR  9 DIMENSIONAL  BVECTOR 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PRCGRAM  LUMINARY  BY  NASA  2r2ni2-D91  17:53  DEC®  19,1969 

L MEASUREMENT  I NC CR F CR AT ICN  USER'S  PAGE 


ROOIA 

ROOIS 

R0016 

R0017 

R0018 

R0019 

R002n 


OUTPUT 

OELTAX  = STATE  VECTOR  DEVIATIONS  6 OR  9 OI^ENSIONAL 

ZI  = VECTOR  USED  FOF  THE  INCORPORATION  6 OR  9 DIMENSIONAL 
GAMMA  = SCALAR 

OMEGA  = OMEGA  WEIGHTING  VECTOR  6 OR  9 DIMENTIONAL 
CALLING  SEQUENCE 
L CALL  INCORPl 


R0021  NORMAL  EXIT 

R0022  L+1  OF  CALLING  SEQUENCE 

BANK  37 
SETLOC  MEASINC 
BANK 


0023  . 27,3652 

0024  REF  I 23,2000 

0025  22,2533 


0026  REF 


COUNT*  $S/INCOR 


0027 


REF  18  LAST  615 


65  ,1400 


E6ANK=  W 


0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 
0036 

0039 

0040 

0041 

0042 

0043 


REF  2 


REF  14 


REF  lA 


REF  22 
REF  19 
REF  2 

REF  23 


LAST  127 

LAST  1142 

LAST  1142 

LAST  587 
LAST  1143 
LAST  127 

LAST  1143 


22,2523 

23.2534 

23.2535 

22.2536 

23.2537 

23.2590 

23.2591 
23,2542 

23.2593 

23.2594 

23.2595 

23.2596 
23,2547 

23.2550 

23.2551 

23.2552 


7762C  0 
02772  1 
66370  0 
0C066  1 
00051  0 
00C22  1 
66374  1 
00022  1 
0CC52  0 
00006  1 
63775  1 
03525  0 
02467  0 
12665  1 
77775  1 
03533  1 


INCORPl 


Z123 


STQ 

EGRESS 
AXT,1  SSP 
54D 

51 

1 80 

AXT,2  SSP 
180 

52 
6 

VLOAD  MXV* 

BVECTCR 
W +590,1 

STCRE  ZI  +18C,2 
VLCAD 

BVECTOR  +6 


1X1  = 54  Sl=  18 

1X2  = 18  S2=6 

BVECTOR  (0) 

BVECTOR  (1) 


GAP: 

L 

00A4 

00A5 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0066 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0063 

0004 

0065 

0086 

0087 

0086 

0089 

0090 

0091 

0092 

0093 
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MEASUREMENT  INCORPORATION 


USER'S  PAGE  NOo  2 E5  S3 


REF  20 
REF  3 
REF  4 

REF  24 

PEF  21 
REF  5 
REF  6 

REF  1 

REF  1 
REF  3 
REF  1 

REF  16 
REF  7 

REF  0 
REF  6 
REF  9 
REF  7 
REF  10 
REF  6 
REF  11 
REF  2 
ref’  12 

REF  1 

REF  1 

REF  2 
REF  2 

REF  1 
PEF  3 


LAST 

LAST 

LAST 


LAST 


LAST 

LAST 

LAST 


LAST 


LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 


1 143 

1143 

1144 


1143 


1144 

1144 

1144 


589 

91  5 
1144 

1144 

588 

1144 

1144 

1144 

1144 

588 

127 

1144 


1144 

1144 


23  ,2554 

23.2555 

23.2556 

23.2557 

23. 2560 

23.2561 

23.2562 
23,  2563 

23.2564 

23.2565 

23.2566 
23  ,2567 

23. 2570 

23.2571 

23.2572 
23,  2573 
23  ,2574 

23.2575 

23.2576 

23.2577 
.23,2600 

23.2601 

23.2602 

23.2603 

23.2604 

23.2605 

23.2606 

23 .2607 
23, 261C 

23.2611 

23.2612 

23.2613 

23.2614 

23.2615 

23.2616 

23.2617 

23.2620 

23.2621 

23.2622 

23. 2623 

23.2624 

23.2625 

23.2626 

23 .2627 

23.2630 

23.2631 

23.2632 

23.2633 

23.2634 


02555  0 
75112  I 
12665  1 
77775  I 
C3541  I 
52717  1 
02643  1 
75112  1 
12665  1 
777CC  0 
46567  1 
43104  0 
46545  1 

02706  1 
46576  1 
77775  1 
06524  1 
02657  1 
77201  1 
00001  0 
C2643  I 
47036  1 
21634  0 
47515  0 
02651  1 
76234  C 
21634  0 
47515  0 
C2657  1 
76234  0 
21634  0 
77171  0 

02707  0 
COOOO  1 
02665  0 
40151  0 
C27C7  0 
46622  0 
02670  1 
77654  b 
46633  0 
40112  1 
46633  0 
02  670  1 
52114  1 
00001  0 
46625  1 
61551  1 
02665  0 


INCORl 


INCOR  lA 


INCCRl 8 


INCORIC 


MXV#  VAC* 

W +1080,1 
ZI  +18C,2 
STORE  21  +180,2 
VLCAD 

BVECTCR  +120 
MXV*  VAD* 

W +162C,1 
ZI  +18C,2 
STORE  ZI  +18D,2 
TIX.l 

INCORl 
TIX,2  BON 
ZI  23 
DMENF  LG 
INCCRIA 

VLCAO 

ZEROVECS 
STCRE  ZI  +12C 
SETPD  VLCAO 
o 
ZI 

VSO  PTB 

TPMOCE 
PDVL  VSC 

ZI  +6 

RTe  TAC 

TPMGDE 
POVL  VSO 

ZI  +120 
RTB  TAD 

T PMODE 
TAD  AXT,2 

VARIANCE 

STORE  TRIPA 
TLOAD  Bnv 

VARIANCE 
+ 1 

STORE  TEMPVAR 

Bze 

INCORIC 
SL2  BOV 

INCORIC 
STORE  TEMPVAR 
INCR,2  GOTO 
DEC  1 

INCCRl e 
TLOAD  PCUNO 
TRIPA 


eVECTOR  (2  1 


B (0 l*W+B (1 >*(W+54 ) +e (2  I *(W  + 108  ) FIRST  PAS 
ZI  THEN  11  THEN  Z3 


LOOP  FOR  ZI ,Z2 , Z3 


ZI*2  + Z2*2  + Z3*2  + VARIANCE 
CLEAR  OV  F INC 

TEMP  STORAGE  FOR  VARIANCE 
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0094 

0C95 

0096 

0097 
C098 
0099 
01  on 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 
Olio 
01193 
01196 
0120 
0121 
0122 
0123 
012^^ 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 


REF  3 

REF  4 
REF  19 

REF  2 

REF  7 

REF  2 

REF  5 
REF  35 

REF  734 
REF  8 

REF  15 

REF  16 

REF  1 
REF  15 

REF  11 
REF  22 

REF  12 

REF  23 

REF  13 

REF  24 

REF  1 

REF  2 

REF  3 

REF  4 


LAST  11^4 

LAST  1144 
LAST  1010 

LAST  115 

LAST  915 

LAST  147 

LAST  1145 
LAST  1082 

LAST  1139 
LAST  588 

LAST  1143 

LAST  1145 

LAST  1143 

LAST  1144 
LAST  1144 

LAST  1145 

LAST  1145 

LAST  1145 

LAST  1145 

LAST  . 147 
LAST  1145 
LAST  1145 


23,2635 
23  ,2636 
23,263.7 

23.2640 

23 .2641 

23. 2642 

23.2643 
23  ,2644 
23,2645 
23  ,2646 
23,2647 

23.2650 

23.2651 

23.2652 

23.2653 

33.2654 

23.2655 
23  ,2656 
23,2657 

23.2660 

23 .2661 

23.2662 

23.2663 

23.2664 

23.2665 

23.2666 
23  ,2667 
23,2670 
23  ,2671 

23.2672 

23.2673 

23.2674 

23.2675 
23  ,2676 
23,2677 
23,2700 
23  ,2701 

23.2702 

23.2703 

23.2704 
23,27C5 
23  ,2706 
23,2707 

23.2710 

23.2711 

23.2712 

23.2713 

23.2714 

23.2715 
23  ,2716 


75405  1 
02670  1 
76257  C 
57576  1 
02665  0 
63101  1 

00050  1 
77775  1 
77134  1 
02103  1 
00242  0 
40265  1 
06514  1 
CCCCl  0 
03500  1 
60351  0 
02665  0 
00047  1 
65345  0 
00155  0 
03547  1 
777C1  1 

00051  0 
70460  1 
C0050  1 
41471  0 
77650  1 
45711  1 

77731  I -3 

COC52  0 
00066  1 

60775  1 INCCR2 
02643  1 
75134  0 
77206  n 
02651  1 
53303  1 
75112  1 
77206  0 
02657  1 
53303  1 
75070  1 
61006  0 
46674  0 
45575  1 
74260  0 
45575  1 
74266  0 
45575  1 
74274  0 


DMP  SORT 

TEMPVAR 
SL*  TAD 

0,2 

TR  IPA 

NORM  INCR,2 
X? 

DEC  -2 

SXA,2  AXT,2 

NORMGAM  NORMALIZATION  COUNT  -2  FOR  GAMMA 

1620 

BDDV  SETPD 

0P1/4TH 

0 

STORE  GAMMA 
TLCAO  NORM 
TRI  PA 
XI 

CLCAC  POOL  PO  0-1  = NORM  (A) 

MPAC 

DELTAQ 

NORM 

SI 

XSU,1  SPl 

51 

CDV  PUSH  PD  0-1  = DELTAQ/A 

GOTO 

NFUZCGMP 

SSP 

52 
540 

VLOAO  VXM*  COMPUTE  0MEGA1,2,3 

ZI 

W +1620,2 
PUSH  VLCAD 
ZI  +6 
VXM*  VAD 

W +1800,2 
PUSH  VLCAO 

ZI  +12C 

VXMi('  VAD  * 

W +1980,2 

PUSH  Trx,2  PC  2-7=0MEGAl,8-13=0MEGA2,14-19=0MEGA3 

INC0R2 

VLOAO  STADR 
STORE  OMEGA  +120 
VLOAO  STAOR 
STCRE  OMEGA  +6 
VLGAO  STADR 
STORE  OMEGA 


gap:  assemble  revision  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
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01A2 

0143  REF 

0144  REF 
01^5  P£F 

0146  REF 

0147 

0148 

0149  REF 

0150 

0151 

0152  REF 

0153 
C154 

0155 

0156  REF 

0157 

0158  PEF 

0159  REF 

0160 

0161  REF 

0162 

0163  REF 


16 


6 


5 


) 

6 

7 

3 


LAST  1144 

LAST  1144 
LAST  1145 

LAST  1145 

LAST  11*6 

LAST  592 

LAST  1146 
LAST  1146 
LAST  1143 


23,2717 
23  ,2  720 

23.2721 

23.2722 

23.2723 

23.2724 

23.2725 

23.2726 

23.2727 
23,2  730 
23,2721 
23,2732 
23  ,273? 

23. 2734 

23.2735 

23.2736 

23,2727 

23.2740 

23.2741 

23.2742 

23.2743 

22.2744 


77214  0 
02706  1 
46724  1 
06524  1 
03517  I 
£6374  1 
00022  1 
00052  0 
000C6  1 
77773  1 
74252  I 
53761  1 
00001  0 
2C2C1  0 
12707  1 
77304  0 
46730  1 
02673  1 
77732  1 
02673  1 
77650  1 
C2772  1 


BON 


STORE 
INC0R2AB  AXT,2 


INC0R3  VLQAD* 

vxsc 


STORE 
TIX  ,2 


VSL3 

STORE 

GOTO 


VLOAD 
PMENFLG 
INCCR2AB 
ZEROVECS 
OMEGA  +12D 
SSF 
I 8D 
S2 
6 

OMEGA  4180,2 
VSL4 
0 

0 ,1 

DELTAX  +18D, 
VLCAD 
I NCCR3 
DELTAX  +6 

OELTAX  +6 

EGRESS 
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OELTAO/A 


GAP: 

L 

P0164 

R0165 

R0166 

R0167 

R0168 

R0169 

R0170 

R0171. 

R0172 

R0173 

R0174 

R0175 

R0176 

R0177 

R017fl 

R017R 

RO10O 

R0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

Oloi 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 


ASSef^PLE  REVISION  131  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-091 
MEASUREMENT  I NCORPCR AT  I CN 


17:53  PECo  19,1969  SKIPPER  101 
USER'S  PAGE  NOc  5 


PAGE  1147 
E5  S3 


INC0RP2  -INCORPORATES  THE  COMPUTED  STATE  VECTOR  DEVIATIONS 
estivated  state  VECTORo  the  STATE  VECTOR  UPDATED  MAY  BE  FOR 
LEM  OR  THE  CSMoDETERMINFO  BY  FLAG  VEHUPFLGo ( ZERO  = LEM)  (1  = 
INPUT 

PERMANENT  STATE  VECTOR  FCR  EITHER  TFE  LEM  CR  CSM 
VEhUPFLG  = UPDATE  VEHICUE  C=LEM  1=CSM 
W = ERROR  TRANSITION  MATRIX 

DELTAX  = COMPUTED  STATE  VECTCR  DEVIATIONS 
OMENFLG  = SIZE  OF  H MATRIX  (ZERO  *6X6)  (1=9X91 
GAMMA  = SCAUAR  FOR  INC C R PCR AT  ION 
ZI  = VECTCR  USED  IN  I NC CR PCR AT  I CN 

OMEGA  = WEIGHTING  VECTOR 


INTC  THE 
EITHER  THE 
: CSM  ) 


CUTPUT 

UPDATED  PERMANENT  STATE  VECTCR 


CALUING  SEQUENCE 
L CALL  INCCRP2 


NORMAL  EXIT 

L+1  CF  CALLING  SEQUENCE 


REF 


23,2000 

23,2745 


SETLCC  MEASINC1 
BANK 


REF  2 LAST-  1143  TO  1147: 


130 


138* 


COUNT*  iS/INCOR 


REF  4 
REF  27 

REF  7 
REF  3 
REF  2 
REF  8 

REF  4 
RbF  2 
REF  9 

REF  5 
KEF  2 

REF  1 
REF  1 
REF  1 
REF  225 
REF  1 
REF  1 
REF  103 


LAST  1146 
LAST  782 


LAST  1146 
LAST  1145 
LAST  127 
LAST  1147 

LAST 
LAST 
LAST 

LAST  1147 
LAST  127 


LAST  1122 


LAST  974 


23.2745 

23.2746 

23.2747 

23.2750 

23.2751 

23.2752 

23.2753 
33  ,2754 

23.2755 

23.2756 

23.2757 
23,2760 
23  ,2761 

23.2762 

23.2763 

23.2764 

23.2765 

23.2766 

23.2767 
23,2770 
23  ,2771 

23.2772 

23.2773 


45020  1 
02772  1 
27410  1 
74375  0 
03503  1 
03500  I 
26713  0 
03511  1 
77761  1 
03500  1 
26721  1 
03517  I 
77761  I 
03500  1 
02727  1 
77776  1 
3 3246  1 
55*315  0 
55' 316  0 
3 4755  1 
55'317  1 
55'32C  C 
0 5353  1 


1147 

127 

1147 


INC0RP2 


FAZA 


STQ 


VLOAD 


STQVL 

VXSC 

STCVL 

VXSC 

STORE 

EX  IT 

CAF 

TS 

TS 

CAF 

TS 

TS 

TC 


CALL 

EGRESS 

INTSTALL 

VXSC 

OMEGA 

GAMMA 

OMEGAMl 

□MEGA 

GAMMA 
0MEGAM2 
OMEGA  +120 

GAMMA 

0MeGAM3 


5400 
WI  XA 
WIX8 
ZERG 
ZIXA 
ZIXB 

PHASCHNG 


CALCo  GAMMA  * CMEGA1,2,3 


INITIAL  IX  1 SETTING  FOR  W MATRIX 


INI TIAL 


X 2 SETTING  FCR  Z COMPONENT 


GAP: 

L 

0206 

0209 

0210 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

02  53 

0254 

0255 

02  56 

0257 

0258 
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MEASUREMENT  I NCOP PORA T I CN 


USER'S  PAGE  NCo  6 E5  S3 


REF  67 
REF  2 
KEF  2 
REF  2 
REF  2 
REF  2 
REF  219 

REF  3 
REF  3 

PEF  17 

REF  14 

REF  17 

REF  3 
REF  18 

REF  20 
REF  3 


REF  19 

REF  25 
REF  2 

PEF  15 

REF  20 
REF  3 

PEF  2*1 
REF  21 

REF  4 


REF  22 
REF  26 
REF  3 

REF  5 
REF  1 

RFF  16 


23 

LAST  977  23 

LAST  713  23 

LAST  1147  23 

LAST  1147  23 

LAST  1147  23 

LAST  1147  23 

LAST  1017  23 

23 

LAST  1148  23 

LAST  1148  23 

23 

LAST  1145  23 

23 

LAST  1145  23 

23 

LAST  1146  23 

23 

LAST  1147  23 

LAST  1148  23 

23 

LAST  1145  23 

LAST  1145  23 

23 
23 

LAST  1148  23 

23 

LAST  1145  23 

LAST  127  23 

23 

LAST  1148  23 

23 

LAST  1148  23 

LAST  11^7  23 

23 

LAST  1148  23 

LAST  1148  23 

23 

LAST  1148  23 

23 
23 

LAST  1K8  23 

LAST  1168  23 

LAST  1148  23 

23 

LAST  1146  23 

23 
23 

LAST  1148  23 

23 


,2774  04022  0 
,2775  C 5504  0 
,2776  00236  0 
,2777  3 1316  1 
,3000  55'315  0 
,3001  3 1320  1 
,3002  55'317  1 
,3003  0 6042  1 
,3004  7315C  1 
,^005  01315  1 
,3006  01317  0 
,3007  70731  0 
,3010  - 00051  0 
,3011  00006  1 
,3012  75134  0 
,3013  60276  1 
,3014  00052  0 
,3015  65161  1 
,3016  02713  0 
,3017  C0C51  0 
,3020  57144  1 
,3021  00047  1 
,3022  02103  1 
,3023  65057  0 
,3024  57576  1 
,3025  00C51  0 
,3026  77653  1 
,3027  02467  0 
,3030  02735  I 
,3031  57543  1 
,3032  75134  0 
,3033  74301  0 
,3034  00052  0 
,3035  02721  I 
,3036  71124  0 
,3037  00051  C 
,3040  00047  1 
,3041  53674  1 
,3042  C2103  1 
,3043  57576  I 
,3044  52724  1 
,3045  00051  0 
,3046  02555  0 
,3047  C2743  0 
,3050  77614  1 
,3051  02746  0 
, 3052  . 47072  1 
,3053  57543  1 
,3054  75134  0 
,3055  74301  0 


FAZAl 


OCT  04022 
TC  UPFLAG 

ADRES  REINTFLG 
CA  MIXB 

TS  WIXA 
CA  zixe 
TS  ZIXA 

TC  INTPRET 

LXA,1  LXA,? 

WI  XA 
ZIXA 

SSP  OLCAD* 

51 
6 

ZI  ,2 

DCOMP  NORM 

52 

VXSC  XCHX,2 
OMEGAMl 
S2 

LXC,2  XAD,2 
X2 

NCRMGAM 
VSL*  XChX,2 

n ,2 

S2 

VAC* 

W +54D,1 
STORE  HOLDW 
OLCAO#  OCCMP 
ZI  ,2 
NORM  VXSC 
S2 

0MeGAM2 
XCFX,2  LXC,2 
S2 
X2 

XAC,2  VSL* 

NORMGAM 

0,  2 

XCFX,2  VAC* 

S2 

W +1080,1 
STORE  HOLDW  +6 
BOFF 

OMENFLG 

FAZB 

DLOAC*  DCOMP 
ZI  ,2 
NORM  VXSC 


START  FIRST  PHASE  CF  INC0RP2 
TO  UPDATE  6 OR  9 DIMc  W MATRIX  IN  TEMP 


CALC  UPPER  3X9  PARTITICN  CF  W MATRIX 


CALC  MIDDLE  3X9  PARTITION  OF  W MATRIX 


fiRANCH  IF  6 DIMENSIONAL 

CALC  LOWER  3X9  PARTITICN  CF  W MATRIX 


gap: 

L 

0259 

02  60 

0261 

0262 

0263 

026A 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

027^ 

0275 

02  76 

0277 

0278 

0279 

0280 

0201 

0282 

0283 

02  84 

0205 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

02  95 

0296 

0297 

0290 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

C306 

0307 

0308 


ASSEMBLE  REVISION  131  OF  AGO  PROGRAM  LUMINARY  BY  NASA  20211  12-091 
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MEASLREMEKT  I NCOR PCRA T I CM 


REF  23 
REF  3 

REF  24 
REF  22 

REF  5 


REF  25 
REF  27 
REF  4 

REF  16 

REF  4 
REF  1 
REF  3 
REF  '4 
REF  2 
REF  3 
REF  220 

REF  5 
REF  18 


REF  5 
REF  28 

REF  6 
REF  29 

REF  6 
REF  1 
REF  7 
REF  30 


REF  1 

REF  1 

REF  4 
REF  1 

REF  2 
REF  I 

REF  17 


LAST  1148 
LAST  1147 

LAST  1149 
LAST  1148 

LAST  1148 


LAST  1149 
LAST  1148 
LAST  11*8 

LAST  589 

LAST  1140 

LAST  1148 
LAST  1140 
LAST  221 
LAST  1148 
LAST  1 148 

LAST  1149 
LAST  1148 


LAST  1149 
LAST  1149 

LAST  1149 
LAST  1149 

LAST  1148 

LAST  11*9 
LAST  1149 


LAST  1149 


LAST  ll49 


LAST  1149 


23.3056 

23.3057 

23.3060 

23.3061 

23.3062 

23.3063 

23.3064 

23.3065 

23.3066 

23.3067 
23  ,3U70 

23.3071 

23.3072 

23.3073 

23.3074 

23.3075 

23.3076 

23.3077 
23 ,3  100 

22.3101 

23.3102 

23.3103 

23.3104 
23  ,3105 

23.3106 

23.3107 
23  ,3110 

23.3111 

23.3112 

23.3113 

23.3114 
23  ,3115 
23,3116 
23,3U7 
23  ,3120 
22,2121 

23.3122 

23.3123 

23.3124 
23  ,3125 

23.3126 

23.3127 
23  ,3130 

23. 3131 

23.3132 

23.3133 

23.3134 

23.3135 

23.3136 
23,3127 


00C52  0 
02727  I 
71124  0 
C0C51  C 
00047  1 
53674  1 
C2103  1 
57576  1 
52724  1 
OOC51  0 
02  643  1 
02751  C 
77624  1 
11210  1 
77776  1 
3 1315  I 
6 3247  0 
55*216  C 
3 1317  0 
6 7751  0 
55*320  0 
C 6042  1 
66350  1 
01315  1 
00051  0 
00006  1 
77775  1 
C2735  1 
06467  I 
77775  1 
02743  0 
06555  1 
77214  0 
02746  C 
47130  0 
C2751  C 
06643  0 
52100  1 
47126  1 
47136  0 
77634  0 
46773  C 
43335  0 
01321  C 
07251  0 
52030  0 
47136  0 
47123  1 
77624  1 
11210  1 


FAZ8 


FAZei 


FAZB2 


FAZB5 


FAZC 


S2 

0MeGAM3 
XCHX,2  LXC,2 
S2 
X2 

XAC,2  VSL* 

normgam 

0,  2 

XCHX,2  VAO* 

S2 

K +1620,1 
STORE  HOLOW  +12C 
CALL 

GPP2PC 

EXIT 

CA  WIXA 

AC  6DC 
TS  V(1  XB 

CA  . ZIXA 
AO  MINUS2 

TS  Z I XB 

TC  INTPPET 

LXA,1  SSP 
M I XA 
SI 
6 

VLOAD 

HOLOW 

STORE  W +540,1 
VLCAD 

HOLOW  +6 
STORE  W +1080,1 
BOFF  VLCAD 

OMENF  LG 
FAZB5 

HOLOW  +12C 
STORE  W +1620,1 
TIX,1  GOTO 
+ 2 

FAZC 

RTB 

FAZA 

SLCAD  DAO 
ZI  XB 
1200 
BHIZ  GOTO 
FAZC 
FAZB2 

CALL 

GRP2PC 


USER'S  PAGE  NCo 


7 E5  S3 


START  2N0  PHASE  OF  INCCPP2  TO  TRANSFER 
TEMP  REG  TO  PERM  W MATRIX 


DONE  WITH  W MATRIX,  UPDATE  STATE  VECTOR 
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L MEASLREMEM  INCCRPCRATICN 


USER’S  PAGF  NOe  8 E5  S3 


0309 

0310  REF  u 

0311  REF  fl 

0312  REF  2 

0313 

0314  REF  12 

0315  PEF  1 

0316  REF  1 

0317 

0318  REF  2 

0319 

0320 

0321  REF  5 

0322 

0323 

0324 

0325  REF  9 

0326 

0327 

0328  REF  4 

0329  PEF  1 

0330  REF  5 

033J  REF  10 

0332 

0333 

0334  REF  4 

0335 

0336  REF  1 

0337  REF  5 

0338  REF  1 

0339 

0340  REF  13 

0341  REF  11 

0342  REF  14 

0343 

034^-  REF  11 

0345  PEF  12 

0346  REF  12 

0347 

0348  REF  4 

0349  REF  I 

03491 

03492  REF  18 

0350 

0351  REF  13 

0352  REF  1 

0353  REF  2 

0354 

0355  REF  1 

0356 


LAST  563 
LAST  1146 
LAST  147 

LAST  587 

LAST  571 

LAST  719 

LAST  1150 

LAST  323 

LAST  1150 
LAST  1150 

LAST  323 

LAST  1150 

LAST  783 
LAST  U50 
LAST  1150 

LAST  783 
LAST  1150 
LAST  H5G 

LAST  299 

LAST  11^9 
LAST  1150 
LAST  37 


23.3141 

23.3142 

23.3143 
23,3’ 44 

23.3145 

23.3146 

23.3147 

23.3150 

23.3151 
23  ,3152 
23,31E3 

23.3154 

23.3155 

23.3156 
23  ,3157 
23  ,3 160 

23.3161 

23.3162 

23.3163 

23.3164 

23.3165 

23.3166 
23  ,3167 

23.3170 

23.3171 
23  ,3172 

23.3173 

23.3174 

23.3175 

23.3176 
23  ,3177 

23.3200 

23.3201 
23  ,3202 
23,22C2 

23.3204 

23.3205 

23.3206 

23.3207 

23.3210 

23.3211 

23.3212 
23,  3213 

23.3214 

23.3215 

23.3216 
23  ,3217 

23.3220 

23.3221 


02701  0 
C3472  0 
47014  1 
00707  I 
47236  n 
26767  0 
77004  0 
57754  C 
00000  1 
77CJ4  1 
^34344  0 
47157  1 
00002  0 
53775  1 
02665  n 
57205  1 
40055  0 
C1521  0 
47176  1 
25521  0 
02673  1 
53257  1 
57202  0 
01527  0 
77600  1 
47202  1 
35527  I 
47211  0 
53375  0 
01535  0 
02665  0 
01535  0 
53375  0 
C1543  I 
02673  1 
Cl  543  1 
45134  0 
02030  0 
27671  1 
77624  1 
11210  1 
47C14  1 
00707  1 
47241  0 
2/6746  C 
77624  1 
26070  1 
77624  1 


FAZAB 


FAZABl 


FAZABZ 


FAZA83 


FAZA64 


VLCAC  VAC  START  3RD  PFASE  OF  INC0RP2 

X789  7TH,8TH,9TH, COMPONENT  OF  STATE  VECTOR 

DELTAX  +12D  INCORPORATION  FOP  X789 

STORE  TX789 
6QN  RT6 

VEHUPFLG 
DOCSM 
MOVEPLFM 
BCV8  AXT,2 

TCOANZ  IG 
0 

BCFF  AXT,2 

MOONTHI S 
♦ 2 
2 

VLOAO  VSR* 

DELTAX  B27  IF  MOON  ORBIT,  629  IF  EARTH 

0 -7,2 
VAC  BOV 

TDELTAV 

FAZABl 

STCVL  TDELTAV 

DELTAX  +6  B5  IF  MCCN  CRBIT,  67  IF  EARTH 

VSR*  VAD 

0 -4,2 
TNUV 

BOV 

FA2AB2 
STCALL  TNUV 

FAZA03 
VLCAD  VAO 
RCV 

DELTAX 
STORE  RCV 
VLCAD  VAD 
VCV 

DELTA  X +6 
STORE  VCV 
SXA,2  CALL 
PbODY 
RECTIFY 

CALL 

GRP2PC 
BON  RTB 

VFHUPFLG 

DQCSMl 

MCVEALEM 

CALL 

SVCWN2  STORE  DOWNLINK  STATE  VECTOR 

CALL 


GAP: 


ASSEN8LE  REVISION  131  OF  AGC  PFOCRAM  LUMINARV  BY  NASA  2021112-091 


L PEASUREPENT  I NCCR FCR AT  I CN 


0357  REF 

0358 

0359  RFF 

0360  REF 

0361  REF 

0362  REF 

0363 

036A  REF 

0365  RFF 

0366 

0367  REF 
0360  REF 

0369 

0370  REF 

0371  REF 

0372 

0373  REF 
03  74*  PER 

0375 

0376  REF 

0377  REF 

0378 

0379 

0380 

0400  REF 

0401 

0402  REF 


19  LAST  1150 

7 LAST  1149 
1 

3 LAST  1150 
5 LAST  1150 

5 LAST  1147 
11  LAST  1005 

56  LAST  862 
3 LAST  616 

1 

1 

1 

2 LAST  299 
1 

18  LAST  1146 


1 

1 


23.3222 

23.3223 
23  ,3224 

23. 3225 

23.3226 

23.3227 

23.3230 

23.3231 

23.3232 

23.3233 
23  ,3234 

23.3235 

23.3236 

23.3237 

23.3240 

23.3241 

23.3242 

23.3243 

23 .3244 

23. 3245 
23,2523 

23.3246 

23.3247 
23  ,3250 
22,2000 
22,3711 


02746  0 
47230  C 
03472  0 
01701  0 
66150  0 
02772  1 
00052  0 
77776  1 
0 4635  0 
'27421  0 
52034  1 
26722  1 
47150  0 
45034  1 
26673  1 
26114  1 
77650  1 
47221  C 

00066  1 
77771  0 
0O014  1 


FAZA05 


COCSH 


CCCSMl 


2ER00 

54C0 

600 

12CC 


GRP2  PC 

BOFF  VLOAD 

DMENFLG 

FAZAB5 

TX789 

STCRE  X789 
LXA,1  SXA,1 
EGRESS 
OPRFT 

EXIT 

TC  POSTJUMP 

CAOR  INTWAKE 
RTB  GOTO 

MOVEPCSM 

FAZAB 

RTB  CALL 

MCVEACSP 

SVDkNl 

GOTO 

FAZAB4 

= ZEROvecs 

OEC  54 
DEC  -6 
OEC  12 
SETLOC  RENCEZ 
BANK 

COUNT#  IS/INCOR 


0403 

0404  REF 

0405  REF 

0406  REF 

0407 
040  8 

0409  REF 
C410 

0411 

0412  REF 

0413 

0414  REF 

0415 

0416  REF 

0417 

0418 

0419 

0420  REF 

0421 

0422  REF 

0423  REF 

0424 


17 
1 

18 


2 


3 


19 


4 


6 

7 


LAST  1148 
LAST  1151 

LAST  1151 

LAST  1151 
LAST  1151 
LAST  1151 

LAST  1151 

LAST  1151 
LAST  1151 


22.3712 

22.3713 

22.3714 
22  ,3715 

22.3716 

22.3717 
22  ,3720 

22. 3721 

22.3722 

22.3723 

22.3724 
22  ,3725 

22.3726 

22.3727 
22  ,3730 

22.3731 

22.3732 

22.3733 

22.3734 
22  ,3735 
22  ,3736 


24045  0 
02651  1 
41446  1 
50n25  C 
00045  0 
45723  0 
45545  I 
77732  1 
51575  1 
02657  1 
45206  1 
00045  0 
7124Q  1 
45733  1 
77626  0 
77732  1 
66145  1 
CQ045  0 
00044  1 
62101  0 


KEVZCnMP  VLOAD 
STOVL 


ABVAL 

CSU 


OLCAD 

STORE 

VLCAD 

PUSH 

BMN 

STAOR 

STORE 

CLCAD 


NORM 


ABVAL 

ZI 

NCPHZI 
ZI  +6 
PUSH 
BMN 
NORMZI 
+ 3 

STAOR 
NORMZI 
ABVAL 
ZI  +120 
OSU 
NCRMZI 
DLOAO 
+ 3 

NORMZI 
SXA,  1 
NCRMZI 
NORMZ I 
INCR,1 


17:53  CEC«  19,1969  SKIPPER  dOl  PAGE  1151 
USER'S  PAGE  NCo  ? E5  S3 

PHASE  CHANGE 

6 CIMENSIONAL 
*5  DIMENSIONAL 


STCRE  DCWNLINK  STATE  VECTOR 


LARGEST  ABVAL 


SAVE  XI 


GAP : 

L 

0A25 

0A26 

0A27 

042  8 

0429 

C430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

043  8 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0^48 

0449 

0450 

0451 

0452 

0453 


ASSbMBLE  REVISION  131  CF  AGC  PRCGRAP  LUPINARY  DY  NASA  2021112-091 
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MEASURE  PENT  INCORPORATION 


USER'S  PAGE  NCo  in  65  S3 


REF  36 

REF  20 

REF  21 
REF  22 

REF  23 
REF  24 

REF  8 
REF  25 

REF  6 
REF  9 

REF  10 

REF  7 
REF  11 

REF  12 

REF  2 


LAST  1145 

LAST  1151 

LAST  1152 
LAST  1152 

LAST  1152 
LAST  1152 

LAST  1151 
LAST  1152 

LAST  1149 
LAST  1152 

LAST  1152 

LAST  1152 
LAST  1152 

LAST  1152 

LAST  1145 


22  .3737 

22.3740 

22.3741 
22  ,3742 

22.3743 

22.3744 

22.3745 

22.3746 
22  ,3747 

22.3750 

22.3751 

22.3752 

22. 3753 

22.3754 

22.3755 

22. 3756 
22  ,3757 

22.3760 

22.3761 
22  ,3762. 

22.3763 

22.3764 

22.3765 

22.3766 
22  ,3767 

22.3770 

22.3771 
22  ,3772 

0044 


00047  1 
C0C02  0 
53775  1 
02643  I 
2C201  0 
26643  1 
C2651  1 
77657  0 
20201  0 
26651  I 
02657  1 
66057  0 
2t2Cl  C 
00045  0 
C2657  1 
54150  I 
02103  1 
00045  0 
77660  1 
00045  0 
70130  1 
02103  1 
C0C45  0 
40270  0 
00044  1 
00003  1 
77650  1 
46671  0 


NORMZ I 


XI 

CEC  2 
VLOAD  VSL* 

Z I 

0,J 

STDVL  ZI 

ZI  +6 

VSL* 

0,  1 

STCVL  21  +6 

ZI  +12D 
VSL#  SXA.l 
0 ,1 

NORMZI  +l  SAVE  SHIFT 

STCRE  21  +12C 
LXA,1  XSU.l 

NORMGAM 
N0RM2I  +1 

XSU.l 

N0RM2I  +1 
SXA.l  LXC.l 

NURMGAM 
NCPM2I  *l 
XAD,]  SETPD 
NORMZI 
. 20 

GOTO 

INC0R2  -3 
= 360 
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POOOl  PROGRAM  DESCRIPTION  - ENTIRE  CCMC  SUBRCUTINE  LCG  SECTION  DATE  - 1 SEPTEMBER  1967 

R0003  MCO  NO*  - 0 LOG  SECTION  - CONIC  SUBROUTINES 

R0005  MCD  BY  KRAUSE  ASSEMBLY  - COLOSSUS  REVISION  88 

R0007 


R0008  FLNCTICNAL  DESCRIPTICN  - 

R0009  THE  FOLLOWING  SET  OF  SUBRCITINES  SCLVE  VARIOUS  PROBLEMS  INVOLVING  THE  TRAJECTORY  PRODUCED  BY  A CENTRAL 

ROOll  INVERSE-SQUARE  FORCE  ACTING  ON  A POINT  MASSi  AS  OUTLINED  IN  THE  CMC  AND  LGC  LUNAR  LANDING  MISSION  GSOPt  SECTION 
R0013  5*5clo2o  A GENERAL  USAGE  PC  I NT-CF-V I EW  WAS  TAKEN  IN  FORMULATING!  MECHANIZING!  AND  SCALING  THF  SLBRCUTINES. 

R0015  RATHER  THAN  OPTIMIZING  EACH  FCP  A PARTICULAR  USE*  THEREFORE,  MULTIPLE  USAGE  CAN  BE  MACE  OF  THE  SUBROUTINES 

R0017  INVOLVING  ANY  REALISTIC  SET  CF  CONSTRAINTS*  IT  SHOULD  BE  NOTED  THAT  CNLV  CNF  SET  CF  CCDING  IS  USEC,  WHETHER  THE 

R0019  EARTHt  MOON,  OR  ANY  CTHER  CELESTIAL  BOCY  IS  SPECIFIED  AS  THE  CENTRAL  BODY  OF  THE  PROBLEM,  PROVIDED  ONE  OBSERVES 

R0021  THE  INHERENT  SCALE  CHANGE  REQUIRED- IN  POSITION,  VELOCITY,  MU,  AND  TIME,  AS  OUTLINED  IN  MISSION  PROGRAMMING 

R0023  DEFIMTICN  MEMC  NC*  10*  THIS  CAN  BE  ACCOMPL ISHEC  BY  SIMPLY  ADDING  TO  THF  MUTABLE  AND  INITIALIZING  THE  SU8R0U- 
R0025  TINES  APPROPRIATELY* 

R0026  CUE  TO  THE  UNIFORMITY  OF  THE  EQUATIONS  INVOLVED,  CODING  WAS  MINIMIZED  BY  TREATING  INCIVIOUAL  EQUATIONS  AND 

R0028  BLOCKS  OF  EQUATIONS  AS  SUBROUTINES  OF  LOWER  RANK  WHENEVER  POSSIBLE*  AS  A RESULT,  THREE  BY-PROOUCTS  SUBROUTINES, 
R0030  DIRECTLY  USABLE  AS  INDEPENDENT  SUBROUTINES,  WFRE  GENERATFD* 


R0031  PESTRICTICNS  - 


R0032 

R0034 

R0036 

R0037 

R0039 

RC041 

R0043 


THE  ONLY  LIMITATION  IN  THE  SCCPE  OF  PROBLEM  WHICH  CAN  BE  SOLVED  BY  A PARTICULAR  SUBROUTINE  IS  THE  SCALING 
LIMIT  OF  EACH  PARAMETER  AS  SPECIFIED  IN  THE  GSOP*  THESE  SCALING  LIMITS  WERE  CHOSEN  SO  THAT  ALL  FEASIBLE  TRAJEC- 
ICRIES  COLIC  BE  HANDLED* 

SINCE  THE  SLBROLTINES  lEXCEPT  KEFLERl  USE  CCMMCN  SUBROUTINES  OF  LOWER  RANK  WHICH  USE  ERASABLE  OTHER  THAN 
THE  PUSHLIST  (CUE  TQ  ITS  LIMITED  SIZE)  AND  COMMON  INTERPRETIVE  SWITCHES,  THE  CONIC  SUBROUTINES  CANNOT  BE  ALLOWED 
TO  INTERRUPT  EACH  CTHER*  IT  IS  UP  TC  THE  USER  TO  GUARANTEE  THIS  CONDITION* 
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P004A 

R00^6 

R0048 

R0050 


PROGRAM  DESCRIPTION  - KEPLER  SLBRCUTINE 
PCD  NC«  -1 
MOO  BY  KRAUSE 

MCO  NOo  - 2 (AUGUST  1968)  BY  ROBERTSON:  TO  PERMIT  BACKDATING 


CATE  - T I OCTOBER  1967 

LOG  SECTICN  - CONIC  SUBROUTINES 
ASSEMBLY  - COLOSSUS  103  AND  SUNDANCE  222 
BY  MORE  THAN  CNE  ORBITAL  PEPIOOo 


R00502  MCD  NC®  - 3 (CEC  19681  BY  RCBERTSCN:  SUPPRESSION  OF  X-MODULO-ING 


RO0503  MODp  NOo  - 


4 (JAN  1969)  BY  RCBERTSCN:  CLEAR  CVFINC  AT  KEPLER  ENTRY 


R0051  FUNCTICNAL  CESCRIPTICN  - 

R0052  THIS  SUBROUTINEt  GIVEN  AN  INITIAL  STATE  VECTOR  AND  THE  DESIRED  TRANSFER  TIME  THROUGH  KHICH  THE  STATE  IS  TO 

R0054  BE  UPDATED  ALONG  A CONIC  TRAJECTORY,  COMPUTES  THE  NEW,  UPDATED  STATE  VECTOR*  THE  TRAJECTCRY  MAY  PE  ANY  CONIC 
R0056  SECTICN  - CIRCULAR,  ELLIPTIC,  PARABOLIC,  HYPERBOLIC,  OR  RECTILINEAR  WITH  RESPECT  TC  THE  EARTH  CP  THE  MOON*  THE 

R0058  USE  OF  THE  SUBROUTINE  CAN  BE  EXTENDED  USING  OTHER  PRIMARY  BOGIES  BY  SIMPLE  ADDITIONS  TO  THE  MUTABLE  WITHOUT 

R0060  INTRODUCING  ANY  CODING  CHANGES,  ACCEPTING  THE  INHERENT  SCALE  FACTOR  CHANGES  IN  POSITION  AND  VELOCITY.  AN  ITERA- 

R0062  TION  TECHNIQUE  IS  UTILIZED  IN  THE  CCMPUTATION* 

R0063  IF  A negative  T I ME-OF-F L IGHT  IS  INPUT,  THE  PROGRAM  WILL  SCLVE  FOR  THE  STATE  WHICH  WOULD  BE  PRODUCED  BY 

R0065  EXTRAPOLATING  THE  POSITION  BACKWARD  IN  TIME* 

R00651  IF  THE  ABSOLUTE  VALUE  OF  THE  DESIRED  TRANSFER  TIME  EXCEEDS  THE  ORBITAL  PERIOD,  THE  SUBROUTINE,  THROUGH  A 

R00653  MCCULAR  TECHNIQUE,  WILL  COMPUTE  THE  STATE  CORRESPONDING  TO  THE  DESIRED  TIME  (WHETHER  POSITIVE  CP  NEGATIVE)® 

R0U66 


R0067 

R0068 

R0071 

R0073 

R0075 


THE  RESTRICTIONS  ARE  - 

le  (PREVIOUS  RESTRICTION  ON  THE  NEGATIVE  DESIRED  TRANSFER  TIME  IS  NOW  DELETED*) 

2o  THE  PARAMETERS  IN  THE  PROBLEM  CANNOT  EXCEEC  THEIR  SCALING  LIMITS  AS  SPECIFIED  IN  THE  GSOP*  IF 
ANY  OF  THESE  LIMITS  ARE  EXCEEDED,  THE  RESULTING  SOLUTION  WILL  EE  MEANINGLESS* 


R0076  THE  NUMBER  OF  ITERATIONS  AN'Ot  THEREFORE,  THE  CCMPUTATION  SPEED  IS  DEPENDENT  ON  THE  ACCURACY  OF  THE 

R007a  GUESS,  XKEPNEW®.  THE  AGC  COMPUTATION  TIME  IS  APPROXIMATELY  o06l  SECONDS  FOR  INITIALIZATION,  *065  SECONDS  FOR  THE 

R0080  FINAL  C CM FLTAT I CNS  , PLUS  *083  SECCNCS  FOR  EACH  ITERATION* 

R0081 


R0082  REFERENCES  - 

R0083  R-47g  , MISSION  PROGRAMMING  DEFINITION  MEMO  NO*  10,  LUNAR  LANDING  MISSION  GSOP,  SECTION  5*5,  SGA 

k0085  MEMO  67-4* 

R0086 


R00e7  INPUT  - ERASABLE  I NI T I A L I ZAT I CN  REQUIRED 


R0088  * SCALE  FACTOR  « 

R0089  VARIABL£*IN  POWERS  CF  2*  DESCRIPTIUN  AND  REMARKS 

Roogo  . >!> * 

R0091  RRECT  * +29  FOR  EARTH+OP  INITIAL  POSITION  VECTOR  IN  METERS 
R0092  * +27  FOR  MCCN  * 
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R0093 

k0094 

R0095 

R0097 

R0098 

R00987 

R0099 

ROlOO 

ROlOl 

RC1017 

R0102 

R0103 

R0105 

R0106 


VRECT  * 

XI  (38D)» 

TAUo  * 
♦ 

X^EPNE^s  * 


+7  FCfi 
+ 5 FCR 
NONE 


H7  FOR 
H6  FOR 


+17  FOR 
+16  FOR 


*DP  INITIAL  VELOCITY  VECTOR  IN  METER  S/CEMI  SEC  CNO 


*INDEX  REGISTER  SET  TO  -?D  OR  -100  ACCCRCING  TG  WHETHER  THE  EARTH  PR  MOON, 

^RESPECTIVELY,  IS  THE  CENTRAL  POOY 
#OESIREO  TRANSFER  TIME  IN  CENTISECCNCS  (CP) 

« MAY  BE  POS  OR  NEG  AND  ABSOLUTE  VALUE  MAY  BE  GREATER  CR  LESS  THAN  ONE  ORBITAL  PERIODo 

EARTH*DP  GUESS  OF  ROOT  X OF  KEPLERS  EON  IN  SQR T ( M ETER S ) . SIGN  SHOULD  AGREE  WITH  THAT  OF  TAU. 

MCCN  * AND  ABS  VALUE  SHOULC  BE  LESS  THAN  THAT  CPRR ES PCNO I NG  TO  A PERIOD, VIZ,  2PI  SQRT(SEMI- 

# MAJOR  AXIS), FOR  SPEED  OF  CONVERGENCE  , BUT  IF  EITHER  CONDITICN  PARS,  XKEPNEW  IS  RESET 

* EY  KEPLER  TC  A POOR  BUT  VALID  GUESS. 

*DP  PREVo  VALUE  OF  TIME  IN  CENTISECS.  MUST  EE  LESS  THAN  ONE  ORBITAL  PERIOD. 

EARTH*CP  PPEVo  VALUE  OF  X IN  SORT (METERS ).  MUST  BE  LESS  THAN  AN  X C OPR E SPONPI NG  TO  ONE 

MOON  * ORBITAL  PER  I CO  , V I Z , 2 F I SCRT (S EMI-MAJCP  AXIS) 


RC107  SLBRCLTINES  CALLED  - 

R0108  CELTIME 

R0109 


ROllO  CALLING  S6CLFNCE  AND  NORMAL  FXIT  MCCES  - 


1 KEPRTN-2  GOTO  MUST  BE  IN  INTERPRETIVE  MOOF  BUT  CVFINC  ARBITRARY, 

PL  I S AT  C. 


IT  WOULD  DESTROY  THE  ERASABLFS  IT  NEEDS  TO  COMPLETE 
OR  LEMCONIC  WHICH  GUARANTEES  NO  INTERRUPTS  AND  WHICH 

RC120 


RETURNS  WITH  XPREV  IN  MPAC. 


ROUS 

R0117 

R0119 


KEPLER  MUST  NOT  FE  CALLED  DIRECTLY  SINCE  AN  INTERRUPTION  OF 
THE  INTERRUPTED  JCB.  THEREFCFE  THE  USER  MUST  CALL  CSMCONIC 
ALSO  CALLS  KEPPREP  TO  CCMPLTE  A GUESS  CF  XKEPNEWo 


R0L21  ABORT  EXIT  MOOES  - 

R0122  NONE 

R0123 


R012A  OLTPLT  - 


R0125 

R0126 

R0127 

R0128 

R0129 

R0130 

R0131 

R0132 

R0134 

R0136 


* SCALE  FACTOR  * 
VARI ABLE* IN  POWERS  CF  2* 


DESCRIPTION  AND  REMARKS 


RCV 

VCV 

TC 

XPPEV 


+29  FOR  EAPTH*OP 
+27  FCR  MCCN  # 

+7  FOR  EARTH  #UP 
+5  FOR  MCCN  * 

+ 2B  fl^OP 

+17  FOR  EARTH*OP 
+16  FCR  MCCN  * 


terminal 

TERMINAL 


POSITION  VECTOR 
VELOCITY  VECTOR 


IN  METERS 

IN  METERS/CENT ISeC 


TRANSFER  TIME  IN  CENTISECS  TO  WHICH  KEPLEP  CONVERGED. 
VALUE  OF  X IN  SQRT(METERS)  TO  WHCIH  KEPLFR  CONVERGED. 
CCRRESPOND ING  TO  ONE  PERIOD. 


ALWAYS  LESS  THAN  ONE  PERIOD: 
ALWAYS  LESS  THAN  THE  X 
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R0137  FOR  OTHER  OUTPUT  WHICH  MAY  BE  CF  USE,  SEE  DEBRISo 
R0138 


R0139  DEBRIS  - 

R0140  PARAMETERS  WHICH  MAY  BE  OF  USE  - 


KOlAl 

R014'2 

R01A3 

RCIAA 

R01A5 

R0146 

R01A7 

R0148 

R01A8I 

R01483 


UKRECT  * 
R1  # 

ALPHA  * 


+ l 

+29  FOR 
+27  FOR 
-22  FOR 
-20  FOR 


#0F 
£ARTH*OP 
PCCN  * 
EAPTH^DP 
MOON  * 


CESCFIPTICN  AND  REMARKS 

UNIT  VECTOR  CF  INITIAL  PCSITION 
MAGNITUDE  OF  INITIAL  POSITION  IN  METERS 

INVERSE. CF  SEMIMAJCR  AXIS  IN  1/METERS 


TMCDULO  * +28 


*0F  INTEGRAL  NUMEER  OF  PERIODS  IN  CENTISECSo  WHICH  WAS  SURTPACTEP  FPCM  TAUo 
*TAUo  CF  LESS  THAN  CNE  PERIOOo 


TO  PRODUCE  A 


R0149  PARAMETERS  CF  NC  USE  - 

R0150  OP  PARAMETERS  - EPSILCNT,  OELX,  OELT,  RCNCRM,  XMCDULO,  PLUS  PUSHLIST  REGISTERS  0 THROUGH  390<, 
R0152 
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P0153  PROGRAM  DESCRIPTION  - LAMBERT  SUBROUTINE 
R0155  MCD  NCo  - 0 

R0157  MOD  BY  KRAUSE 

R0159 


DATE  - 1 SEPTEMBER  1967 

LOG  SECTIOK  - CCMC  SUBROUTINES 

ASSEMBLY  - COLOSSUS  REVISION  88 


R0160  FLNCTICNAL  OESCRIPTICN  - 


R0165 

h6167 

R0169 

R0171 

R0172 


THIS  SUBROUTINE  CALCULATES  THE  INITIAL  VELOCITY  REOUIRED  TO  TRANSFER  A POINT-MASS 
FRCM  AN  INITIAL  PCSITIQN  TO  A TERMINAL  POSITION  IN  A PRESCRIBED  TIME  INTERVAL^  THE  PE 
A SECTION  OF  A CIRCLE,  ELLIPSE,  PARABOLA,  CR  EYPERBCLA  WITH  RESPECT  TO  THE  EARTH  OR  TH 
SUBROUTINE  CAN  BE  EXTENDED  USING  OTHER  PRIMARY  BODIES  BY  SIMPLE  ADDITIONS  TO  THE  MUTAB 
CCDING  CHANGES,  ACCEPTING  THE  INHERENT  SCALE  FACTOR  CHANGES  IN  POSITION  AND  VELOClTYe 
UTILIZED  IN  THE  COMPLlATICNc 


ALONG  A CONIC  TRAJECTORY 
SLLTING  TRAJECTORY  MAY  BE 
E MOONo  THF  USE  OF  THE 
LE  WITHOUT  INTRODUCING  ANY 
AN  ITERATION  TECHNIQUE  IS 


R0173 
R017A 
R0175 
R0177 
R0179 
R0180 
R0182 
R018A 
RO105 
R0187 
RO109 
R 0191 


THE  RESTRICTIONS  ARE  - 

1,  RECTILINEAR  TRAJECTOP 
2o  AN  ACCURACY  DEGRADATI 
3o  THE  ANGLE  BETWEEN  ANY 
AND  LESS  THAN  178  DEGREES  12o 
Ao  NEGATIVE  TRANSFER  T IM 
5o  THE  PARAMETERS  IN  THE 
LIMITS  ARE  EXCEEDED,  THE  RESL 
THE  NUMBER  OF  ITERATICNS 
GUESS  OF  THE  -INDEPENDENT  VARl 
LY  ol05  SECONDS  FOR  IMTIALIZ 


lES  CANNCT  BE  CCMFUTEDc 

CN  OCCURS  AS  THE  COSINE  OF  THE  TRUE  ANOMALY  DIFFERENCE  APPROACHES  tl-Oo 
FCSITION  VECTOR  AND  ITS  VELOCITY  VECTOR  MUST  BE  GREATER  THAN  1 DEGREE  A7o  5 MINUTES 
5 MINLTESo 

E IS  AMBIGUOUS  ANC  WILL  RESULT  IN  NO  SOLUTIONo 
PROBLEM  MUST  NOT  EXCEED  THEIR  SCALING  LIMITS  SPFCIFIFO  IN  THE  GSOPo  IF  THE 
LTING  SOLUTION  WILL  BE  KEAMNGLESSo 

AND,  THEREFORE.  TFE  COMPUTATIONS  SPEED  IS  DEPENDENT  ON  THE  ACCURACY  GF  THE  FIRST 
ABLE,  COGAo  THE  AGC  COMPUTATION  TIME  IS  APPROXIMATE- 

ATION,  <,069  SECONDS  FOR  FINAL  COMPUTATIONS,  PLUS  , 205  SECCNDS  FOR  EACH  ITFRATIONs 


R0192  REFERENCES  - 

R0193  R-A79,  MISSICN  PROGRAMMING  DEFINITION  MEMO  NO,  10,  LUNAR  LANDING  MISSION  GSOP-SECTION  5,5,  SGA  MEMO  67-6, 

R0195  SGA  MEMO  67-A<, 

R0196 


R0197  INPUT  - ERASABLE  I M T 1 AL  I ZAT  I C N BECUIREC 


R0198 

R0199 

R0200 

R0201 

R0202 

R0203 

R020A 

R0205 

R0206 

R0206 

R0209 

R02n 


DESCRIPTION  AND  REMARKS 


RIVEC  * 

R2VEC  # 

TCESIREO* 
XI  (38DI# 

GEOMSGN  * 
GUESSW  * 


+29  FOR  EARTH*UP  INITIAL  POSITION  VECTOR  IN  METERS 
+ 27  FOR.  MCCN  * 

+29  FOR  EARTH#DP  TARGET  OR  TERMINAL  FCSITICN  VECTOR  IN  METERS 
+27  FOR  MOON  * 

+28  *CP  DESIRED  TRANSFER  TIME  IN  CENTISECONDS 

NONE  *INDEX  REGISTER  SET  TO  -2D  CR  -lOD  ACCORDING  TO  WHETHER  THE  EARTH  OR  MOON, 

♦RESPECTIVELY,  IS  THE  CENTRAL  BODY 

NONE  ^SP  +o5  IF  DESIRED  TRANSFER  ANGLE  IS  LFSS  THAN  180  DEGREES,  -o  5 IF  GREATER  THAN  180  DFGn 

NONE  ♦AN  INTERPRETER  SWITCH  TO  BE  SET  IF  NO  GUESS  OF  CCGA  IS  AVAILABLE,  CLEAR  IF  A GUESS  OF 
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R0213 

R0214 

RU216 

RU217 

R0219 

R0220 

R0222 

R022A 

R0226 

R0227 

R02271 

R02272 

R02273 

R0227A 


CCGA  * 

NORMSW  * 
* 

UN  # 

VTARGTAG* 
ITERCTR  * 


NONE 
+ l 

NONE 

NONE 


#ccGA  IS  Tc  ee  usec  by  lameert 

*DP  GUESS  OF  COTANGNT  OF  FLIGHT  PATH  ANGLE  (MEASURED  FROM  VERTICAL U THIS  WILL  BE 
#IGNCPeC  IF  GUESSW  IS  SET« 

*AN  INTERPRETER  SWITCH  TC  EG  SET  IF  UN  IS  TO  BF  AN  INPUT  TO  THE  SUBROUTINE,  CLEAR  IF 
^LAMBERT  IS  TO  COMPUTE  ITS  OWN  NORMAL  (UKU 

#0P  UNIT  NORMAL  TC  THE  CESIREO  OPBIT  PLANE  IN  THE  DIRECTION  OF  THE  RESULTING  ANGULAR 
*MOMENTUM  VECTOR*  THIS  WILL  BE  IGNCPED  IF  NCP^SW  IS  CLEAR. 

’^A  SoPo  TAG  TO  BE  SET  TO  ZERO  IF  LAMBERT  IS  TO  COMPUTE  THE  VELCCITY  AT  R2VEC  AS  WELL  AS 
*AT  RlVECo 

♦A  SoPo.  COUNTER  WHICH  SPECIFIES  THE  MAXIMUM  NUMBER  OF  ITERATIONS  ALLOWABLE- 
#(AN  ITERATION  MEANS  A PASS  THRU  KEPLER  EQN  (OELTIMEJn  AT  LEAST  ONE  CF  THESE  MUST 
’^ALWAYS  CCCUR,  EVEN  IF  COGA  CORRES  PCND I NG  TO  SOLUTION  WERE  INPUT  AS  A GUESS*  I 
^TWENTY  ITERATIONS  ARE  SUFFICIENT  TC  SOLVE  ALL  PROBLEMS  INCLUDING  TFCSE  WITHOUT  GUESS. 


R0228  SUBROUTINES  CALLED  - 

R0229  GEOM,  GETX,  DELTIME,  ITERATOR,  LAMENTER  (PART  OF  NEWSTATEI 

R0230 


R0231  CALLING  SEQUENCE  AND  NORMAL  EXIT  MODES  - 


R0232 

R0234 

R0236 

R0237 

R0239 

R0240 

R0241 

R0243 

R0244 


L 

L + l 

L+2 

L+3 

L44 

IF 

GUESSW 


CALL  MUST  BE  IN  INTERPRETIVE  MODE  BUT  OVFIND  ARBITRARY. 

LAMBERT  RETURNS  WITH  PL  AT  0 AND  WITH  VVEC  IN  MPAC  IF  VTAR6TAG  WAS  NON-ZERO  OR  VTARGET 

IN  MPAC  IF  VTARGTAG  WAS  ZERO 

BON  CONTINUE  IF  SOLNSW  CLEAR  SINCE  SOLUTION  IS  ACCEPTABLE 


SOLNSW 

LAMABCRT 

A LAMBERT  RESULT  IS  TC  BE  A FIRST  GUESS  FOR  THE  NEXT  LAMBERT  CALCULATION,  COGA  MUST  BE  PRESERVED  AND 
MUST  BE  CLEAR  FOR  EACH  SUCCEEDING  LAMBERT  CALL. 


ft0245 
R0246 
R0248 
R0250 
R0252 
R0253 
R0254 
R0255 
R0256 
R0257 
R0258 
R0259 
R02  60 
R0261 
R0262 


ABORT  EXIT  MOOES  - 

IF  SOLNSW  WAS  SET  UPON  EXITING,  EITHER  LAMBERT  WAS  ASKED  TO  COMPUTE 
WAS  7CQ  Sf^ALL  TC  PRODUCE  A REALISTIC  TRANSFER  BETWEEN  RIVEC  AND  R2VECo 
ACCORDING  TO  THE  NEEDS  OF  THE  PARTICULAR  USER.  THE  ABORT  EXIT  MCCE  MAY 
LAMABOFT  CLCAO  ABS 

1-CSTH 
DSU  8MN 

ONEPIT 
CHANGER2 
CLQAO  DAD 

TCES  IREC 
SOMETIME 
STCALL  TOES  IREO 
LAMBERT 


CHANGE  R,2VEC  LIRECTICN  SLIGHTLY, 


INCREASE  TD6SIRE0 


A TRANSFER  TOO  NEAR  0 CR  360  OEG,  OR  T 
IN  EITHER  CASE  THE  FIX  MUST  BE  MADE 
BE  CODED  AS 
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R0263 
R0264 
R0265 
R0266 
R0267 
R0269 
R0270 
R02  72 
R0273 
R0275 
R0276 
R0277 


OLTPLT  - 

* SCALE  FACTOR  * 

VARIABLE’^'IN  POWERS  CF  2*  DESCRIPTION  AND  REMARKS 


VV6C  * +7  FOR 

# +5  FCR 
VTARGET  * +7  FOR 

* +5  FCR 
SOLNSW  * NONE 


EARTF 

MCCN 

EARTH 

MCCN 


FCR  CTHER  CUTPLT  WFICF 


*DP  INITIAL  VELOCITY  VECTOR  IN  METER S/CENTI SEC CNO  REQUIRED  TC  SATISFY  TFE  BOUNCARY  VALUE 

# PRCei EMo 

*0P  RESULTANT  VELOCITY  VECTOR  AT  R2VEC  IN  «ET EPS/C  ENT  I S ECONOo 

# 

♦INTEFFPETER  SWITCH  WHICH  IS  SET  IF  THE  SUBROUTINE  CANNOT  SOLVE  THE  PROBLEM,  CLEAR  IF  THE 
^SOLUTION  EXISTS® 

MAY  BE  CF  USE,  SEE  CEBR  IS® 


K0278  DEBRIS  - 

R0279  PARAMETERS  WHICH  MAY  BE  CF  USE  - 


R0280 
R0281 
R02  82 
R0283 
R028^ 
R0285 
R0286 
R0289 
R029n 
R0291 
R0292 
R0293 
R0299 


DESCRIPTION  AND  REMARKS 


SNTh  * +1  *0P  SIN  OF  ANGLE  BETWEEN  RIVEC  AND  R2VEC 

CSTH  * +1  #DP  CCSINE  OF  ANGLE 

1-CSTH  ♦ +2  *DP  1-CSTH 

CCGA  « +5  *UP  Cf'TAN  OF  INITIAL  REQUIRED  FLIGHT  PATH  ANGLE  M'EASURED  FROM  VERTICAL 

F ♦ +4  *DP  RATIC  OF  SEMILATUS  RECTUM  TO  INITIAL  RADIUS 

RIA  # +6  ♦DP  RATIC  CF  INITIAL  RADIUS  TO  SEMlIMAJOR  AXIS 

R1  (320*  +29  FOR  EARTH^DP  INITIAL  RADIUS  IN  METERS 

♦ +27  FOR  MCCN  ♦ 

URl  ♦ +1  ♦DP  UNIT  VECTOR  OF  RIVEC 

U2  ♦ +1  409  UNIT  VECTOR  OF  R2VEC 


R0295  PARAMETERS  OF  NO  USE 

R0296  CP  PARAMETERS  - EPSILONL,  CSTH-RHO,  TPREV,  TERRLAMB,  R2,  RTNLAMP  (SP),  PLUS  PUSHLIST  REGISTER  0 THROUGH  410 

R0298  ADDITIONAL  INTERPRETIVE  SWITCHES  USED  - INFINFLG,  360SW,  SLOPESW,  OROERSW 

R030n 


OF  AGC  PRCGRA^  LURINARV  0 


NASA  2021112-091 
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P0301  PROGRAM  OeSCRIPTICA  - TIME-ThETA  SLBRCUTINE  DATE  - 1 SEPTEMPER  1967 

R0303  MCO  NCo  - 0 LCG  SECTICN  - CCNTC  SUBROUTINES 

R0305  MCO  BY  KRAUSE  ASSEMBLY  - CCLCSSUS  REVISION  88 

R0307 


R0308  FUNCTIONAL  CESCRIPTICN  - 

R0309  THIS  SUBROUTINE,  GIVEN  AN  INITIAL  STATE  VECTOR  AND  A DESIRED  TRU  E-ANOM  AL  Y-D 1 FF  EP  ENCE  THROUGH  V.HICH  THE 

R0311  STATE  IS  TO  BE  UPDATED  ALON.G  A CONIC  TRAJECTORY,  CALCULATES  THE  CORRESPONDING  T IM  E-OF- F L I GhT  AND,  IN  ADDITION, 

R0313  PPCVIOES  THE  CPTICN  CF  COMPUTING  THE  NEW  UPDATED  STATE  VECTOR*  THE  RESULTING  TRAJECTORY  MAY  BE  A SECTION  OF  A 

R0315  CIRCLE,  ELLIPSE,  PARABOLA,  OP  HYPERBOLA  WITH  RESPECT  TC  THE  EARTF  OR  THE  MOON*  THE  USE  OF  THE  SUBROUTINE  CAN  BE 

R0317  EXTENDED  USING  OTHER  PRIMARY  BODIES  BY  SIMPLE  ADDITIONS  TO  THE  MUTABLE  WITHOUT  INTRODUCING  ANY  CODING  CHANGES, 

R0319  ACCEPTING  THE  INHERENT  SCALE  f'aCTCR  CHANGES  IN  POSITION  AND  VELOCITYo 
R0320 


R0321 

R0322 

R032A 

R0325 

R0327 


THE 

AND 

ARE 


RESTRICTIONS  /IRE  - 

It,  THE  ANGLE  BETWEEN  ANY  PCSITION  VECTOR  AND  ITS  VELOCITY  VECTOR 
LESS  TH6N  178  CEGREES  12oS  MINUTES* 

2«  THE  PARAMETERS  IN  TFE  FRCBLEM  MUST  NOT  EXCEED  THEIR  SCALING  LI 
EXCEEDED,  THE  RESULTING  SCLUTICN  WILL  EE  MEANINGLESS* 


MUST  BE  GREATER  THAN  1 DEGREE  97o  5 MINUTES 
MITS  SPECIFIED  IN  THE  GSCF*  IF  THE  LIMITS 


R0328  TFE  AGC  COMPUTATION  TIME  IS  APPROXIMATELY  *292  SECONDS, 

R0329 


R0330  REFERENCES  - 

R0331  R-'VTg,  MISSICN  PROGRAMMING  DEFINITION  MEMO  NO,  10,  LUNAR  LANDING  MISSION  GSOP-SECTION  5,5,  SGA  MEMO  67-8, 

R0333 


R033A 


INPUT 


ERASABLE  IM  T lAL  I ZAT  ICN  RECUIREC 


R0335 
R0336 
R0337 
R C338 
R0339 
R03A0 
R03A1 
R03^2 
R03AA 
R03A5 
R03A7 
RC34e 
R0350 
R0351 


# SCALE  FACTOR  * 
VAR1ABLE*IN  POWERS  OF  2* 


CESCRIPTICN  AND  REMARKS 


R VEC 

VVEC 

SNTH 

CSTH 

RVSW 


* '+29  FOR  EARTH#OP  I 

* +27  FOR  MCCN  * 

* +7  FOR  EARTF  fCP  I 

« +5  FOR  MOON  * 

* +1  *0P  S 

« +1  *DP  C 

* NONE  *AN  I 

* *1$  T 

J«NONE  *INDE 

* ♦RESP 


MTIAL  POSITION  VECTOR  IN  METERS 

NITIAL  VELOCITY  VECTOR  IN  M ETERS/CEN 1 1 SECOND 

INE  OF  TRUE-ANOMALY-DIFFEPENC E THROUGH  WHICH  THE  STATE  IS  TC 
CSINE  OF  THE  ANGLE 

NTERPRETIVE  SWITCH  TC  BE  SET  IF  ONLY  TIME  IS  TO  BE  AN  OUTPUT 
C BE  COMPUTED  ALSO, 

X REGISTER  TO  EE  SET  TO  -20  OR  -IOC  ACCORDING  TO  WHETHER  THF 
ECTIVELY,  IS  THE  CENTRAL  BODY, 


BE  UPDATED 

CLEAR  IF  THE  NEW  STATE 
EARTH  OR  MOON, 


R0352  SUBROUTINES  CALLED  - 


gap:  assemble  revision  131  CF  AGC  FPCCFAM  LUMINARY  QY  NASA  2021112-091 
L CCMC  SUBROUT  INES 

R0353  PAFAM,  GEOM,  GETX,  OELTIf'Ei  NEWSTATE 

R0354 
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R0355  CALLING  SEQUENCE  ANC  NORMAL  EXIT  MODES  - 


R0356 

R0357 

R0359 

R036a 

R036] 

R0362 


L 

L+1 

L+2 

L+3 


F CNLY  TIME  IS  DESIRED  AS  CLTFUT  - 

SET  CALL  ' MIST  BE  IN  INTERPRETIVE  MODE  BUT  CVFINC  ARPITRARYo 

RVSW 

TIMETHET  RETURN  NITH  PL  AT  0 ANC  T IN  MPAC 

ooo  CONTINUE 


R0363  IF 

R036A  L 
R0366  L+1 

R0367  L+2 

R0369 

R0370  L+3 

R0371  L+4 

R0372  L+5 

R037A  L+6 

ROB  75 


THE  UPDATE  STATE  VECTOR  IS  DESIRED  AS  h£LL  - 

CLEAR  CALL  MUST  BE  IN  INTERPRETIVE  MODE  BLT  CVFIN’D  ARBITRARY^ 

RVSl« 

TIMETHET  RETURNS  WITH  PL  AT  6o  THE  INITIAL  POSITION  VECTOR  IS  IN  CD  OF  THF  PUSHLIST  AND 

THE  INITIAL  VELOCITY  VECTOR  IN  MPAC. 

STCVL  NEhVVEC 
STACR 

STCRE  N£l^RVEC  NEWVVEC  ANC  NEWRVEC  ARE  SYMBOLIC  REPRESENTATIONS  OF  THE  USERS  LOCATIONS. 

CONTINUE 


R0376 

R0377 

R0379 

R0386 


ABORT 


E 


xn  MOOES  - 

IF  COGAFLAG  ANO/OR  INFINFLG  IS  SET  AT 
AN  ALARM  CCCE  (ORIGINALLY  00607),  AND 


THE  EXIT  TO  TIME-THETA,  TIME-THETA  WILL  TRANSFER  TO  POODOO  WITH 
NOT  RETURN  TO  THE  CALLING  PROGRAM.  (PCR  69?  AND  721). 


R03e7 

R03d8 

R03B9 

R0390 

R0391 

R0392 

R039A 

RC396 

R039e 


OUTPUT  - 

* SCALE  FACTOR  * 

VAR1ABLE*IN  POWERS  OF  2^  DESCRIPTION  AND  REMARKS 


T (300)  * +28  *DP  TRANSFER  TIME  IN  CENTISECONOS 

INFINFLG*  NONE  #AN  INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  THE  TRANSFER  ANGLE  REQUIRES  CLOSURE  THROUGH 

* *INFIMTY  (NO  SOLUTION),  CLEAR  IF  A PHYSICAL  SOLUTION  IS  POSSIBLE. 

COGAFLAG*  NONE  *AN  INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  RESTRICTION  1 HAS  BEEN  VIOLATED  (NO  SOLUTION), 

* *CLEAR  IF  NOT. 


R039‘9 


R0400 
R0401 . 
R0x»02 
R0403 


IN  ADCITICN,  IF  RVSW  IS  CLEAR,  THE  FOLLOWING 

MPAC  - « +7  FOR  EARTH  *DP  TERMINAL  VELOCITY 

MPAC  +5*  +5  FCR  MCCN  # 

00  - 50  * +29  FOR  EARTH*QF  TERMINAL  PCSITICN 
* +27  FOR  MOON  * 


ARE  OUTPUT- 

VECTOR  IN  MFTERS/CENTISFCo 
VECTOR  IN  METERS  I PL  AT  60 


RC404  FCR  OTHER  CUTPUT  WHICH  MAY  BE  CF  USE,  SEE  CEBR  IS. 
R0405 


R0AO6 

R0407 


ASSEMBLE  REVISION  J 31  CF  AGC  FRCCRAM  LUMINARY  BY  NASA  2021JI2-091 
CCNIC  SUBROUTINES 
DEBRIS  - 

PARAMETERS  WHICH  MAY  BE  CF  USE  - 
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R09C8 
R C^C9 
R04in 
R0411 
R0A13 
R0414 
R CA16 
R0A17 
R0419 
R0920 
R0421 
R0422 


DESCRIPTION  AND  REMARKS 

RVEC , IN  MFTERS 


Rl  (3201*  +29  FCR  £APTH*DP  MAGNITUDE  CF  INITIAL  POSITION  VECTCP» 

* +27  FOR  MCCN  # 

RIA  * +6  ■’i'OP  RATIO  OF  Rl  TC  SEMIMAJCR  AXIS  INEG.  FOP  HYPEREOLIC  TRAJECTORIES! 

P * +4  *0F  RATIC  CF  SEMRATUS  RECTUM  TO  Rl 

COGA  * +5  *DP  CCTAN  CF  ANGLE  BETWEEN  RVEC  AND  VVEC 

URl  ♦ +1  UMT  VECTOR  OF  RVEC 

U2  * +1  #0P  UMT  VECTOR  OF  VVEC 

UN  =>  +1  «DP  UMT  VECTOR  OF  LR1*L2 


R0423 

R0424 

R0426 

R0^27 


RTNPRM,  MAGVEC2=R2  (OP)t  PLUS  PUSHLIST  LOCATIONS  0-llC,  lAD-210,  240-390,  410 


ADDITIONAL  INTERPRETIVE  SwITCFES  USED  - NQPMSW,  360SW 


GAP; 
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P0428  PROGRAM  DESCRIPTION  - TIME-RADILS  SU8RCUTINE  CATE  - 11  OCTOBER  1967 

R0430  MCO  NCo  -1  LOG  SECTION  - CCMC  SUBROUTINES 
R0432  MOO  BY  KRAUSE  ASSEMBLY  - COLOSSUS  REVISION  88 
R043A 


R0435  FLNCTICNAL  OESCPIPTICN  - 

R0436  THIS  SUBROUTINE,  GIVEN  AN  INITIAL  STATE  VECTOR  AND  A CESIREC  RADIUS  TO  WHICH  THE 

R0438  STATE  IS  TO  BE  UPDATED  ALONG  A CONIC  TRAJECTORY,  CALCULATES  THE  CORRESPONDING  T I ME-OF-FL I GHT  AND,  IN  ADDITION, 

R0A40  PPCVIOES  THE  OPTION  CF  COMPUTING  THE  NEW  UPDATED  STATE  VECTORo  THE  RESULTING  TRAJECTORY  MAY  BE  A SECTION  OF  A 

R0442  CIRCLE,  ELLIPSE,  PARABOLA,  OR  HYPERBOLA  WITH  RESPECT  TC  THE  EARTH  OR  THE  MOCN«  THE  USE  CF  THE  SUBROUTINE  CAN  BE 

R0444  EXTENDED  USING  OTHER  PRIMARY  ECCIES  BY  SIMPLE  ADDITIONS  TO  THE  MUTABLE  WITHOUT  INTRODUCING  ANY  COOING  CHANGES, 

R0446  ACCEPTING  THE  INHERENT  SCALE  FACTOR  CHANGES  IN  POSITION  AND  VELCCITYo 

R0447  IF  THE  DESIRED  RADIUS  IS  BEYOND  THE  RADIUS  OF  APOCENTER  CF  THE  CCNIC  OP  BELOW  THE  RADIUS  OF  PERICENTER, 

R044g  APSESw  will  be  set  ANC  the  SUBROUTINE  WILL  RETURN  THE  APOCENTER  OR  PERICENTER  SOLUTION,  P E SPECT I VFLY, 

Rn451 


R0452 

R0453 

R0455 

R0456 

RD458 

R043ei 

RO4503 

R04585 

R04587 


THE  RESTRICTIONS  ARE  - 

lo  THE  ANGLE  BETWEEN  ANY  POSITION  VECTOR  AND  ITS  VELOCITY  VECTOR  MUST  BE  GREATER 
AND  LESS  THAN  178  DEGREES  12»5  MINUTES® 

2o  THE  PARAMETERS  IN  THE  PROBLEM  MUST  NOT  EXCEED  THEIR  SCALING  LIMITS  SPECIFIED 
ARE  EXCEEDED,  THE  RESULTING  SCLUTION  WILL  EE  MEANINGLESS® 

3®  AN  ACCURACY  DEGRADATION  OCCURS  AS  THE  SENSITIVITIES  CF  TIME  ANC  UPDATED  STATE 
RDESIREO  INCREASE®  THIS  WILL  CCCUR  NEAR  EITHER  APSIS  OF  THE  CONIC  AND  WHEN  THE  CONIC 
PARTICULARr  IF  THE  CCMC  IS  AN  EXACT  CIRCLE,  THE  PRCBLEM  IS  UNDEFINED  AND  THE  SU8R0UT 


THAN  1 DEGREE  47® 5 MINUTES 

IN  THE  GSCP®  IF  THE  LIMITS 

VECTCP  TO  CHANGES  IN 
IS  NEARLY  CIRCULAR,.  IN 
INF  WILL  ABORT, 


R0459  THE  AGC  COMPUTATION  TIME  IS  APPROXIMATELY  ®363  SECONDS 

R0460 


RU461  REFERENCES  - 

R0462  R-479,  MISSION  PROGRAMMING  DEFIMTICN  MEMO  NO®  10,  LUNAR  LANDING  MISSION  GSOP-SECTION  5->  5 , SGA  MEMO  67“8-. 

R0464 


R0465 


INPUT 


ERASABLE 


IMT  IALI2AT  ICN  RECU  IREC 


R0466 

R0467 

R0468 

R0469 

R0470 

R0471 

R0472 

R0473 

R0475 

R0476 

R0478 


* SCALE  FACTOR  # 
VARIAeLE*IN  POWERS  OF  2* 


DESCRIPTION  AND  REMARKS 


RVEC  ♦ 

P 

VVEC  * 

RCESl RED# 
SGNRDCT  # 


+29  FOP  EARTH#DP  INITIAL  POSITION  VECTOR  IN  METERS 
+ 27'  FCR  MCCN  # 

+7  FCR  EARTH  *DP  INITIAL  VELOCITY  VECTCR  IN  METERS/CENT 
+5  FOR  MOON  * 

♦ 29  FOR  EARTH#CF  TERMINAL  RACIAL  DISTANCE  ON  CONIC  TPAJ 
+27  FOR  MOGN  *CCMPUTeD® 

NONE  *SP  TAG  SET  TO  +®5  OR  -»5  ACCORDING  TO  WHE 

♦ POSITIVE  CR  NEGATIVE,  RESPECTIVELY®  THIS 


ISECONO 

ECTORY  FOR  WHICH  TRANSFER  TIME  IS  TO  BE 

THER  THE  RADIAL  VELOCITY  AT  RDESIREO  IS  TO  BE 
TAG  REDUCES  THE  DOUBLE-VALUED  PROBLEM  TO  A 
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R0480 

R04B1 

R0483 

R0484 

KU486 

R0487 


XI  (38DI*N0NE 
PVSlft  » NCNE 


*S  INGLE-VALUEC  PROBLEMo 

#INDEX  REGISTER  TO  8E  SET  TO  -2D  OR  -100  ACCCROING  TO  WHETHER  THE  EARTH  CR  MOON, 
♦RESPECTIVELY,  IS  THE  CENTRAL  BODYo 

♦AN  INTERPRETIVE  SWITCH  TO  BE  SET  IF  ONLY  TIME  IS  TO  BE  AN  OUTPUT,  CLEAR  IF  ThE  NEW  STATE 
♦ IS  TC  BE  COMPUTED  ALSCo 


R048e 

R04d9 

R0490 


SUBROUTINES 

PAKAM, 


OELTIME  , NEWSTATE 


RC491  CALLING  SEQUENCE  AND  NORMAL  EXIT  MODES  - 


R0492 

R0493 

R0495 

R0496 

RC497 

R0498 


IF  ONLY  TIME  IS  DESIRED  AS  OUTPUT  - 
L SET  CALL  MUST  BE  IN 

L+l  RVSW 

L+2  TIMERAO  RETURN  WITH 

L+3  .oo  CONTINUE 


INTERPRETIVE  MODE  BUT  OVFIND  ARBITRARY,, 
PL  AT  0 AND  T IN  MPAC 


R0499  IF 

R0500  L 
R0502  L4l 
R0503  L+2 

R0505 

R0506  L+3 

R05C7  L+4 

R0508  L+5 

R0510  L+6 

R0511 


THE  UPDATE  STATE  VECTOR  IS  DESIRED  AS  WELL  - 

CLEAR  CALL  MUST  EE  IN  INTERPRETIVE  MODE  BUT  OVFIND  ARBITRARYo 

R VSW 

TIMERAO  RETURNS  WITH  PL  AT  6<,  THE  INITIAL  POSITION  VECTOR  IS  IN  OD  CF  THE  PUSHLIST  AND 

THE  INITIAL  V6LCCITY  VECTOR  IN  MPACo 

STOVL  NEWVVEC 
STADR 

STORE  NEWRVEC  NEWVVEC  AND  NEWRVEC  ARE  SYMBCLIC  REPRESENTATIONS  OF  THE  USERS  LOCATIONSo 

•oo  CONTINUE 


R0512 

R0513 

R0515 

R0522 


ABORT 


XIT  MODES  - 
IF  SOLNSW 
TO  POOOOO 


ANC/OR  COGAFLAG  ANO/OR  INFINFLG  IS  SET 
WITH  AN  ALARM  CCDE  (CRIGINALLY  006071, 


AT  THE  EXIT  TO  TIME-RADIUS,  TIME-RADIUS 
AND  NOT  RETURN  TO  THE  CALLING  PROGRAMo  I 


W1 LL  TRANSFER 
PCR  692  & 7211 


R0523 
R0524 
R0525 
RC526 
R0527 
R0528 
R0530 
R0532 
R 0534' 
R0535 


CLTFLT  - 

♦ SCALE  FACTOR  * 

VARIASLE^IN  POWERS  OF  2*  DESCRIPTION  AND  REMARKS 


T (30D»  ♦ +28 
INFINFLG*  NONE 

CrC-AFLAG*  NONE 
* 

APSESW  ♦ NONE 


♦OP  TRANSFER  TIME  IN  CENTISECONDS 

♦AN  INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  ROESIREO  AND  SGNRDOT  REQUIRE  CLOSURE  THROUGH 
♦INFINITY  (NO  SOLUTION),  CLEAR  IF  A PHYSICAL  SOLUTION  IS  POSSIBLF« 

♦AN  INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  RESTRICTION  1 HAS  BEEN  VICLATED  (NO  SOLUTION), 
♦CLEAR  IF  NCTo 

♦AN  INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  PCESIREC  WAS  GREATER  THAN  PACIUS  OF  APOCENTER  OR 
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R0537 
R0539 
R05A1 
R05A1 1 


R05A13 

R05A15 

R05A2 


SCLNSl^ 


#L£SS  THAN  RADIUS  OF  PERICENTERo  TFE  APOCENTER 
*WILL  THEN  BE  RETURNED*  THE  SWITCH  IS  CLEAR  PF 
AAFCCENTER* 

#AA  I'MEPPPETIVE  SWITCH  WHICH  IS  SET  IF  THE  CONI 
*POINT  IS  AMBIGUOUS,  VIOLATING  RESTRICTION  3*  I 
♦ MINUS-18,  THE  SWITCH  IS  CLEAR* 


OP  PERICENTEP  SOLUTION,  RESPECTIVELY, 
RCESIREO  WAS  BETWEEN  PEPICENTER  AND 


C IS  Sn  CLOSE  TO  A CIRCLE 
F ECCENTRICITY  IS  GREATER 


THAT  THE  TERMIN 
THAN  2-TO-THE- 


R05A3 


R05A4 

R05A5 

R05A6 

R05A7 


IN  ADDITION,  IF  RVSW  IS  CLEAR, 

MPAC  - ♦ +7  FOR  EARTH  ^DP  TER 

MPAC  +5*  +5  FOR  MCQN  * 

OC  - 5D  * +29  FOR  EARTH^CP  TER 
* +27  FOR  MCCN  * 


THE  FOLLOWING 
MINAL  VELOCITY 
MINAL  POSITION 


ARE  OUTPUT- 

VECTOR  IN  METERS/CENTISEC* 
VECTOR  IN  METERS  (PL  AT  60) 


ROSAS  FCR  OTHER  OUTPUT  WHICH  MAY  BE  CF  USE,  SEE  DEBRIS* 
RC5AS 


R0550  DEBR IS  - 


R0551 


PARAMETERS  WHICH 


MAY  BE  CF  USE  - 


R0552 

R0553 

R055A 

R0555 

R0557 

R0558 

R0560 

R0561 

R0563 

R056A 

R0565 

R0566 

R0568 

R0569 


♦ SCALE  FACTOR  ♦ 
VARIABLE*IN  POWERS  OF  2* 


OESCRIPTICN  AND  REMARKS 


R1  (32D)* 
♦ 

PIA  * 

P * 

CCGA  ♦ 

URl  ♦ 

U2  ♦ 

UN  * 

CSTH  * 

SNTH  ♦ 


+29  FOR  EARTH*DP 
+27  FOR  MCON  ♦ 

+6  - ♦CP 

+ A ♦OP 

+ 5 ♦OP 

+ 1 *0? 

+ 1 ♦OP 

+ 1 ♦OP 

+ 1 ♦DP 

+ l ♦!)? 


MAGNITUDE  OF  INITIAL  PCSITIGN  VECTOR,  RVEC,  IN  METERS 

RATIO  OF  R1  TC  SEMIMAJOR  AXIS  (NEG*  FOR  HYPERBOLIC  TRAJECTORIES) 

RATIO  CF  SEMILATUS  RECTUM  TO  R1 

CCTAN  CF  ANGLE  BETWEEN  RVEC  AND  VVEC 

UNIT  VECTOR  OF  RVEC 

UNIT  VECTOR  OF  VVEC 

UN  IT  VECTOR  OF  URl«U2 

CCSINE  CF  TRUE  ANOMALY  DIFFERENCE  BETWEEN  RVEC  AND  ROESIPED* 

SINE  OF  TRUE  ANOMALY  DIFFERENCE* 


R0570  PARAMETERS  OF  NO  USE  - 

R0571  SP  PARAMETERS  - RTNTT  , GEOMSGN,  RTNPRM,  MAGVEC2=R2  (DP),  PLUS  PLSHLIST  LOCATIONS  0-llC,  lAO-210,  2A0-39D,  AlO 

R0573  ADDITIONAL  INTERPRETIVE  SWITCHES  USED  - NQPMSW,  360SW 

R0574 
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L CCMC  SUBPCUTINES  USER'S  PAGE  NCo  14  EO  S3 


P0575  PROGRAM  DESCRIPTION  - APSIDES  SLBRCUTINE 
R0577  PCD  NOc  - 0 

R0579  PCD  BY  KRAUSE 

R0581 


DATE  - 1 SEPTEMBER  1967 

LCG  SECTICN  - CCNIC  SUBROUTINES 

ASSEMBLY  - CCLCSSUS  REVISION  88 


R0582  FUNCTIONAL  CESCfilPTICN  - 


R0583 

R05e5 

R05e7 

R0589 

R0591 

RC592 


THIS  SUBROUTINE,  GIVEN  AN  INITIAL  STATE  V 
ECCENTRICITY  OF  THE  RESULTING  CONIC  TRAJECTORY 
CIRCLE,  ELLIPSE,  PARAECLA,  CB  HYPERBOLA  WITH  R 
EXTENDED  USING  OTHER  PRIMARY  BCDIES  BY  SIMPLE 
ACCEPTING  THE  INHERENT  SCALE  FACTOR  CHANGES  IN 


ECTOR  CALCULATES  THE  RADIUS  OF  PERICENTER  AND  OF  APOCENTEF  AND  THE 
, WHICH  MAY  BE  A STRAIGHT  LINE, 

ESPECT  TO  THE  EARTH  OR  THE  MOON.  THE  USE  OF  THE  SUBROUTINE  CAN  BE 
AODITICNS  TO  THE  MUTABLE  WITHOUT  INTRODUCING  ANY  CODING  CHANGES, 
POSITION  AND  VELOCITY^ 


R0593  THE  RESTRICTIONS  ARE  - 

R0594  lo  IF  APOCENTER  IS  BEYfNC  THE  SCALING  OF  POSITION,  THE  SCALE  FACTOR  LIMIT  (536,870,910  METERS  WITH  RESPECT 

R0596  TO  THE  EARTH  OR  134,217,727,5  METERS  WITH  RESPECT  TO  THE  MOON!  WILL  BE  RETUPNEO, 

R0598  2o  THE  PARAMETERS  IN  THE  PROBLEM  MUST  NOT  EXCEED  THEIR  SCALING  LIMITS  SPECIFIEC  IN  THE  GSOP,  IF  THE  LIMITS 

R0600  ARE  EXCEEDED,  THE  RESULTING  SCLUTION  WILL  BE  MEANINGLESS. 


R0601  THE  AGC  CCMPLTATION  TIME  IS  APPRCX I MATELY  .103  SECONDS. 

R0602 


R0603  REFERENCES  - 

R0604  MISSION  PROGRAMMING  DEFINITION  MEMO  NC.  10,  LUNAR  LANDING  MISSION  GSOP-SECTION  5.5 

R0606 


R0607 


INPUT 


ERASABLE  INITIAL 


ZATICN  RECUIREC 


R060e 

K0609 

R0610 

R0611 

R0612 

R0613 

R0614 

RC615 

R0617 

R0618 


* SCALE  FACTOR  • 
VAR1ABL6»IN  POWERS  Of  2* 


DESCRIPTION  AND  REMARKS 


RVEC  # +29  FOR  EARTH*OP  INITIAL  POSITION  VECTOR  IN  METERS 

* +27  FOR  MCCN  * 

VVEC  « +7  FOR  EARTH  *0P  INITIAL  VELOCITY 

* +5  FCR  MCCN  # 

XI  {38D)4N0N£  ♦INDEX  FEGIST6R  TO  EE  SET  TO  -2D  OR  -IOC  ACCORDING  TO  WHETHER  THE  EARTH  CR  MOON, 

* *RESP£CT  IVELY,  IS  THE  CENTRAL  BODY. 


VECTOR  IN  METERS/CENTISECCND 


R0619  SUBROUTINES  CALLED  - 

R0620  PARAM,  GEOM 

R0621 


K0622  CALLING  SEQUENCE  AND  NORMAL  EXIT 


MODES 


GAP: 


ASSEMBLE  REVISION  131  UF  AGC  PRCGRAf'  LUMNARY  BY  NASA  2P2J112-091 


17:53  DECo  19,1969 


SKIPPER  «101  PAGE  1167 


L CCMC  SUORCOTINES 


USER'S  PAGE  NCo  15 


EO  S3 


R0623  IF  CMY  TIME  IS  DESIREC  AS 

R0624  L CALL 

R0626  L+1  APSIDES 

R0628  L+2  STOOL  APQAPSE  ' 

R0629  L+3  OC 

R0630  L+A  STORE  PERIAPSE 

R0632  L+5  09«, 

R0633 


CLTFUT  - 

MUST  BE  IN  INTERPRETIVE  MODE  BLT  CVFINC  ARBITRARYo 

RETURNS  WITH  PL  AT  0,  RADIUS  OF  APOCENTER  IN  MPAC  AND  RADIUS  OF  PERICENTER  IN  OD 


APCAPS  E AND  PER  lAPSE 

- CONTINUE 


ARE  SYMBOLIC  REPRESENTATIONS  OF 


THE  USERS  LOCATIONS 


R063A 

R0635 

R0636 

R0637 

R063e 

R0639 

R06A0 

R06A1 

R06A2 


OUTPUT  - 

* SCALE  FACTOR  * 
VARIA8LE*IN  FCkERS  CF  2* 


MPAC 

OC-ID 

ECC 


+29  FOR  EARTF#CP 
+27  FOR  MCCN  ♦ 

+ 29  FOR  EARTH^DP 
+27  FCR  MCCN  * 

+ 3 *DP 


DESCRIPTION  AND  REMARKS 
RADIUS  CF  APOCENTER  IN  METERS 
RADIUS  OF  PERICENTER  IN  METERS 
ECCENTRICITY  CF  CONIC  TRAJECTORYo 


R0643 

R06AA 


FCR  OTHER 


OUTPUT  WHICH  MAY 


BE  CF  USE, 


SEE  DEBRISo 


R06A5  DEBRIS  - 


R0646 


PARAMETERS  WHICH  MAY  EE  CF  USE  - 


R0647 

R0648 

R064O 

R0650 

R0652 

R0653 

R0655 

R0656 

R0658 

R0659 

R0660 

R0661 

R0662 

R0663 


D6SCR1PTICN  AND  REMARKS 


R1  ( 32D 

PIA  # 

P ♦ 

CCCA  » 

LRl  * 

U2  * 

UN  * 

MAGVEC2  ♦ 


+29  FOR  EARTH#DP  MAGNITUDE  OF  INITIAL  PCSITIQN  VECTOR,  RVEC,  IN  METERS 
+27  FOR  MOON  * 


+ 6 
+4 
+5 
+ 1 
+ 1 
+ 1 

+7  FOR  EARTH 
+5  FOR  MGCN 


*CP  RATIC  CF  R1  TC  SEMIMAJOR  AXIS  (NEGo  FOR  HYPERBOLIC  TRAJECTORIES! 

*0P  RATIC  OF  SEMILATUS  RECTUM  TO  R1 

*DP  CCTAN  OF  ANGLE  BETWEEN  RVEC  AND  VVEC 

*0F  UNIT  VECTOR  OF  RVEC 

♦DP  UNIT  VECTOR  OF  VVEC 

♦DP  UNIT  VECTOR  OF  UR1*U2 

♦OP  MAGNITUDE  CF  VVEC 


R0664 

R0665 

R0667 

R0668 


PARAMETERS  OF  NO  USE  - 

SP  PARAMETERS  - RTNAPSE,  6E0MSGN,  RTNPRM,  PLUS  PUSHLIST  LOCATIONS  0-5,10D-llD,  140-210,  31C-38ris 
ADDITIONAL  INTERPRETIVE  SWITCHES  USED  - NORMSW 


0669 


12 ,2300 


SETLOC  CONICS 


gap: 

L 

0670 

0671 

0672 

0678 

0679 

0680 

0661 

0683 

0684 

0685 

0686 

0687 

0688 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

0696 

0697 

0696 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 
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CONIC  SUBROUTINES 


USER'S  PAGE  NOc  16 


BANK 


REF 

PEF 

REF 

REF 


REF 

REF 


LAST 

LAST 

LAST 

LAST 


695 

712 

690 

126 


LAST  499 


65,1721 

12. 2023 

12.2024 

12.2025 

12.2026 
12  ,2027 
12,2030 
12,2131 

12.2032 

12.2033 
12  ,203^ 

12.2035 

12.2036 
12 ,20  37 

12.2040 

12.2041 

12.2042 

12.2043 
12  ,2044 
12,2045 


40001  1 
00001  0 
24026  C 
77773  1 
10005  0 
24C17  1 
01503  0 
66256  0 
00027  1 
00024  1 
16647  C 
00045  0 
24041  1 
C15C3  C 
76441  1 
01511  0 
76405  1 
00023  0 
24043  0 


COUNT#  f$/CONIC 
£BANK=  URl 
SETPO  BOV 
0 
+ 1 

VLOAO* 

MUTABLE,  1 
STCVL  14D 

PRECT 
UNIT  SSP 

I TERCTR 
200 

STCDL  URRECT 
360 

STCVL  PI 

RRECT 

DOT  SLIP 

VPECT 

DMP  SLIP 

1/ROOTMU 
KEPCT 


STCVL 


1/ROOTMU  {-17  OR  -14) 

Cl  =R<>V/ROOTMU  ( + 17  OR  +16) 


REF 

REF 

REF 


LAST  1168 


12.2046 

12.2047 

12. 2050 

12.2051 

12.2052 

12.2053 
12  ,2054 
12,2055 


01511  0 
57236  1 
00C17  1 
52405  1 
00041  1 
61425  0 
llOOl  0 
00045  0 


VSQ 

OMP 

DSU 

STCRE 


VRECT 
OMPR 
1 /MU 
SL3 
R1 

PCINO 
01  /64 
KEPC2 


1/MU  (-34  OR  -28 ) 


C2  = PV<,V/MU  -1  (+6) 


LAST  1168 
LAST  1168 


12.2056 

12.2057 
12,2060 
12,2061 
12,2062 


74421  0 
11001  0 
77671  I 
00041  1 
00011  1 


BDSU  SRIR 
01/64 

ODV 

R1 

STCRE  ALPHA 


ALPHA=(1-C2I/R1  (-22  OB  -20 


LAST  1168 

LAST  1168 


12,2063 
12  ,2064 

12.2065 

12.2066 
12,2067 

12.2070 

12.2071 

12.2072 


71244  0 
24073  0 
11C17  1 
40071  C 
00011  1 
24077  1 
52166  I 
24077  1 


DLOAO 

IREV 

-50SC 

BOV 

ALPHA 

STCREMAX 

GOTO 

STCPEMAX 


MAXIMUM  X DEPENDS  CN  TYPE  OF  CONIC 

-snsc  ( + 12) 


12,2073  55366  1 IREV 


SORT  BDDV 
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L CCMC  SU8RCUTINES 


0720  REF 

0721 

0722  REF 

0723  REF 

0724 

C725  REF 
0726  REF 
072  7 

0728  REF 

0729 
C730 

0731 

0732  REF 

0733  REF 

0734 

0735  REF 

0736 

0737  - 

0738  REF 

0739 

0740  REF 

0741  REF 

0750 

0751  REF 

0752 

0753 

0754  REF 

0755  REF 
07555 

0756  REF 
07565  REF 

0757 

07575  REF 

0758 

07585  REF 

0759  REF 
07595 

0760  REF 
07605  REF 

0761 

07615  REF 

0762  REF 
07625  REF 

0763  REF 
07635 

0764  REF 
07645 

0765  REF 
07655  REF 

0766 


1 

3 LAST  1168 
1 

2 LAST  1160 

3 LAST  1168 

37  LAST  1152 


1 

2 LAST  1169 
2 LAST  115 


3 LAST  1169 

3 LAST  1169 

4 LAST  1169 

1 


2 LAST  115 
. 1 

5 LAST  1169 
1 

2 LAST  1169 

2 LAST  1169 

3 LAST  1165 

6 LAST  1169 
1 

3 LAST  1169 
1 

1 

4 LAST  1169 


2 LAST  1169 
2 LAST  1169 


12.2074 

12.2075 
12  ,2076 
12,2077 
12,2100 
12,2-101 
12,2102 
12,2103 
12,21C4 
12,21C5 
12  ,2106 
12,2107 
1 2 , 2 1 10 
12  ,2111 
12,2112 

12.2113 

12.2114 

12.2115 
12  ,2116 
12,2117 
12,2120 
12,2121 
12,2122 

12.2123 

12.2124 

12.2125 
12  ,2126 
12,2127 
12,2130 
12  ,2131 

12.2132 

12.2133 

12.2134 

12.2135 
12  ,2136 
12,2137 

12.2140 

12 .2141 

12.2142 
12,21,43 

12.2144 

12.2145 
12  ,2146 
12,2147 

12.2150 

12.2151 

12.2152 

12.2153 

12.2154 

12.2155 


77600  1 
24077  I 
C0C13  0 
65205  0 
00023  0 
OOCll  1 
65301  0 
00047  1 
56257  1 
20173  0 
50000  1 
24124  0 
24124  0 
51525  I 
02074  0 
50025  0 
COOOl  0 
24124  0 
77765  0 
02074  n 
16074  0 
7765C  1 
24112  0 
71201  1 
COOOl  0 
02130  1 
00025  0 
53165  0 
020  74  0 
243C2  0 
51440  0 
24302  0 
51025  1 
00013  0 
24302  0 
51145  C 
02074  0 
24152  I 
57545  1 
C0C13  0 
14015  0 
24007  0 
00013  0 
77650  1 
24155  0 
77745  1 
24007  0 
00015  0 
57345  1 


2P1SC 

BGV 

STOREMAX 

STCREMAX  STCRB  XMAX 
OMP  POOL 

1/ROOTMU 

ALPHA 

NORM  POOL 
XI 

SL*  DOV 

0-6,1 

BOV  BMN 

MODOCNE 

MODOONE 

PEPinOCH  POOL  ABS 
TAUc 

DSU  BMN 

no 

MODOONE 

SIGN 

TA  lo 
STOOL  TAUo 
GOTO 

PERIODCH 

MOCOCNE  SETPC  OLCAC 
0 

XKEPNEk 
STCRE  X 
SIGN  BZE 
TAUo 
BAOX 

BMN  ABS 
8ACX 

DSU  BPL 
XMAX 
BACX 

STORBNOS  OLOAD  BPL 
TAUo 

STCREMIN 
DLOAO  DCOMP 
XMAX 
STCDL  XMIN 

KEPZERO 
STCRE  XMAX 
GOTO 

DXCOMP 

STCREMIN  OLCAD 

KEPZERC 
STORE  XMIN 
DXCOMP  OLCAD  OMPR 


17:53  OECo  19,1969  SKIPPER 
USER*  S PAGE  NCo  17 
2PISC  (+61 


elOl  PAGE  1169 
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MPAC=PERIOO 

O0=PERIOD 
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L CCMC  SUBROUTINES 


USER*  S PAGE  NCo  18  E5  S3 


0767  REF 

0768  PEF 
07685 

0769  REF 

0770  REF 

0779 

0780  REF 

0781  REF 


7 LAST  1169 
1 

1 

1 

? LAST  1169 
2 LAST  126 


12.2156 

12. 2157 
12  ,2160 
12,2161 
12,2162 
12 ,2163 
12,216A 
12,2165 


C2C74  0 
11012  1 
77646  0 
U177  1 
ri553  0 
77621  1 
C0C25  C 
C2643  1 


XCIFF 


TAUo 

BEE22 

A6S 

STOOL  FPSILCNT 
XPREV 

ecsu 

X 

STORE  DELX 


0782 

0783  REF  3 

0784 

0785  REF  38 

0766 

0787  REF  4 

0788 

0789  REF  1 

0790  REF  1 

.0791 

0792  REF  1 

0793  REF  8 

0794  REF  2 

0795 

0796  PEF  2 

0797 

0798  REF  . 1 

0799  REF  3 

0800 

0801  REF  2 

0802  REF  39 

08C3 

0804  REF  3 

0805  REF  23 

0806 

0B07  REF  24 

0808  REF  3 

0809 

0810 
0811 
0812 

0813  REF  1 

0814  REF  4 

0815  REF  5 

0816 

0817  REF  3 

0818 

0819  REF  1 

0820  REF  2 

0621 


LAST  1170 
LAST  1169 
LAST  1169 


LAST  1170 
LAST  126 

LAST  1170 

LAST  t65 

LAST  111 
LAST  1170 

LAST  1170 
LAST  U49 

LAST  1170 
LAST  1170 


LAST  1170 
LAST  1169 

LAST  1169 

LAST  1170 


12,2167 
12  ,2170 

12.2171 

12.2172 

12 .2173 

12. 2174 

12.2175 

12.2176 

12.2177 
12  ,2200 
12,2201 
12,2202 

12 .2203 

12.2204 

12.2205 

12.2206 
12, 22C7 
12,2210 
12,2211 
12,2212 

12.2213 

12.2214 

12.2215 

12.2216 
12, 2217 
12  ,2220 
12,2221 
12,2222 

12.2223 

12. 2224 

12.2225 

12.2226 
12,2227 
12  ,2230 

12.2231 

12.2232 
12  ,2233 

12.2234 

12.2235 


63545  0 
C0025  0 
41501  0 
00047  I 
53605  1 
OOOll  1 
21573  C 
34031  1 
24421  0 
44200  0 
24311  I 
02074  C 
02645  1 
44246  1 
C2177  I 
71244  0 
24333  1 
C0037  0 
60225  I 
C1551  1 
0C047  1 
60  325  0 
02643  1 
00050  1 
41260  0 
C0047  1 
02645  1 
56257  1 
21202  1 
41542  1 
71244  0 
24246  1 
00C25  0 
C0013  0 
45221  1 
00015  C 
51000  C 
24240  1 
24240  1 
62145  0 


KEFLCOP 


CLCAC  use 

X 

NORM  PUSH 

XI 

DMP  SRR* 
ALPHA 
0 -6  ,1 
STCALL  XI 

DELT  IMF 
BCV  BOSU 

TIMEOVFL 
TAU« 
STORE  DELT 
ABS  BOSU 

EPSI LENT 
BPL  OLOAO 

K6PC0NVG 

T 

DSU  NORM 
TC 
X] 

POOL  NORM 
DELX 
X2 

XSU,1  DMP 
X2 

OELT 

SLR*  ODV 

1,1 

SRI  PUSH 
BPL  DLCAD 

POSDELX 

STORE  XMAX 
BOSU  DSU 
XMIN 

BOV  BPL 

NOXCHNGE 
NOXCHNGE 
□LOAD  GOTO 


X=XKEP 

OD=XSQ  (+34  OR  +3?  -M)  PL  AT  2 


XI=ALPHA  XSQ  l+6» 


UNLIKELY 

0ELT=0ELIN0EP 


00=TRIAL  CFLX 


PL  AT  2 


MOVE  MAX  BOUND  IN 


PL  AT  0 


GAP: 

L 

0822 

0823 

0824 

0825 

0826 

0827 

0828 

0629 

0830 

0831 

0832 

0833 

0834 

0835 

0836 

0837 

0838 

0839 

0840 

0841 

0842 

0843 

0844 

0845 

0846 

0847 

0848 

0849 

0850 

0851 

0852 

0853 

0854 

0855 

0856 

0857 

0858 

0859 

0860 

0861 

0662 

0863 
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CCNIC  SUBROUTINES 


USER'S  PAGE  NO®  19  E5  S3 


REF 


0 

0 


OD 

NEWOELX 


REF  4 
REF  5 

REF  1 
REF  2 


12,2240 

LAST  1170  12,2241 
LAST  1170  12  ,2242 

12.2243 

12.2244 
LAST  1171  12,2245 


00025  0 
52075  1 
11015  0 
24260  0 


NDXCHNGE  OLCAC  OSU 
XMI^ 


DMPR 


GOTC 

DP9/10 

NEWOELX 


TO  FORCE  MPAC  +2  TC  ZERO 


REF  6 
REF  5 

REF.  6 

REF  1 
REF  2 


REF  4 

REF  2 
REF  7 
REF  8 
REF  4 
REF  3 

REF  1 
REF  3 

REF  1 


LAST  1171 
LAST  1171 

LAST  1170 


LAST  1171 


LAST  1170 

LAST  1170 
LAST  1171 
LAST  1171 
LAST  1170 
LAST  1170 


LAST  1171 


12.2246 

12.2247 

12.2250 

12.2251 
12  ,2252 

12.2253 

12.2254 

12 .2255 

12. 2256 

12.2257 
12,2260 
12,2261 
12  ,2262 

12.2263 

12.2264 
12  ,2265 
12,2266 
12,2267 

12.2270 

12.2271 
12  ,2272 
12,2273 


77745  1 
00025  0 
00C15  0 
45221  1 
00C13  0 
50000  1 
24274  0 
24274  0 
77745  1 
COOOl  0 
G2643  1 
43254  0 
24333  1 
00025  0 
14C25  0 
00037  0 
C1551  1 
46034  1 
24644  1 
24333  1 
77650  1 
24166  0 


POSDELX  DLCAD 

X 

STORE  XMIN 
8DSU  DSL 
XMAX 

BCV  BNN 

PDXCHNGE 

POXCHNGE 

OLOAD 

OD 

NEWOELX  STORE  DELX 
BZE  DAO 

KEPCONVG 

X 

STOOL  X 
T 

STORE  TC 

BRNCHCTR  PTB  BHIZ 

CHECKCTR 
KE  FCCNVG 

GOTO 

KFPLOCP 


MOVE  MIN  BOUND  IN 


PL  AT  0 


ITERATE 


REF  7 LAST  1171 

REF  9 LAST  1171 

REF  2 LAST  1171 

REF  3 LAST  1171 


12  ,2275 

12.2276 

12.2277 
12,2300 
12, 23C1 


45345 

00013 

C0C25 

52075 

11015 

24260 


1 

0 

0 

1 

0 

0 


PCXCHNGE  OLOAD  DSU 
XMAX 


DMPR 


GOTO 

0P9/10 

NEWDELX 


TO  FORCE  MPAC  +2  TC  ZERO 


REF  8 LAST  1171 

REF  9 LAST  1170 
REF  10  LAST  1171 


12.2302  70545  1 

12.2303  C0C13  0 

12.2304  77765  C 

12.2305  02074  0 

12.2306  C0C25  0 

12.2307  77650  1 


EACX  CLOAD  SRI 

XMAX 

SIGN 

TAUe 

STORE  X 
GOTO 
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0864  REF  1 
0879 

0B80  REF  11 
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LAST  1172 

LAST  1172 
LAST  1172 
LAST  1171 
LAST  1171 

LAST  1171 

LAST  1168 

LAST  1168 

LAST  1172 

LAST  1170 

LAST  1169 
LAST  1172 

LAST  1172 
LAST  1168 

LAST  1150 
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12.2311 

12.2312 

12.2313 
12  ,2314 

12.2315 

12.2316 
12 ,2317- 
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12.2321 

12.2322 

12.2323 
12  ,2324 

12.2325 

12.2326 
12  ,2327 

12.2330 

12.2331 

12.2332 

12.2333 
12  ,2334 

12.2335 
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12 .2337 

12. 2340 

12.2341 

12.2342 

12.2343 
12  ,2344 

12.2345 

12.2346 

12.2347 

12.2350 

12.2351 

12.2352 

12.2353 

12.2354 

12.2355 

12.2356 

12.2357 
12,2360 
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44545  0 
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00025  0 
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57275  0 
00023  0 
00025  0 
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CMNTQVFL 
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X 
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TC 
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R1 

VXSC 
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X 
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BDSU 
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STORE 
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0915 

0916 

0917 

0918 

0919 

0920 
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REF 
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1 
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12  ,2367  10777  1 


A6VAL  NORM 
X2 

STOOL  RCNORM 
X I 

DMFR  OSU 

S(  XI  1 
Dl/128 
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LAST  1172 
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12.2412 
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15551  1 
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LAST  1173 
LAST  1168 
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LAST  1174 

REF  2 LAST  1168 

REF  10  LAST  1175 
REF  9 LAST  1172 


REF  41  LAST  1172 
REF  18  LAST  1173 


REF  4 LAST  1172 
REF  8 LAST  1173 


12.,  2503 
12  ,2504 

12.2505 

12.2506 
12  ,25l>7  - 
12, 251C 

12.2511 

12.2512 

12.2513 
12  ,2514 

12.2515 

12.2516 
12  ,2517 

12.2520 

12.2521 

12.2522 

12.2523 

12.2524 

12 .2525 

12.2526 
12 ,25  27 

12.2530 

12.2531 

12.2532 

12.2533 
12  ,2534 
12,2535 


53605  1 
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21574  1 
00035  1 
72405  0 
CCC43  C 
65234  1 
21634  0 
53605  1 
00033  1 
21574  1 
72405  C 
00045  0 
65234  I 
21634  0 
00041  1 
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20607  1 
41301  0 
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57232  0 
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00037  0 
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STORE 
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OMF 
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SR 
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12,’2551  00047  1 
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X2 
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X? 
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REF 
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12.2564 
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12.2566 

12.2567 
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POSOEL 
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PEF 
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1 


) 
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12.2571  45221  1 
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NEWOEL 
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00 
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MODPSOEL 
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LAST  1121 
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LAST  1177 
LAST  1177 
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12  ,2652 
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00033  1 
10777  I 
■J6AC5  I 
00021  1 
53605  1 
0QC25  0 
21176  1 
7A271  0 
02720  0 
02722  I 
65372  I 
00035  1 
56257  1 
21175  1 
02720  0 
77621  1 
11013  0 
53361  0 
C27AA  I 
A3A12  1 


NElsSTATE  DLOAD  SRAR 
R1 

DSU  VXSC 

XSQC i XI  ) 
URl 

VSLl  POOL 

DSC  NORM 

XI 

OMPft  DMPR 

1 /RCCTMU 

X 

OMP  SRR# 

Sixii 
0 -7,1 

BCSU 

T 

SLl  VXSC 

VVFC 

VSLl  VAD 

VSLA  PUSH 

ABVAL 

LAMENTER  NORM 

XI 

STOOL  R2 

XI 

OMP  DSU 

S(  XI  ) 
01/128 
DMF  SLIP 

ROOTMU 
CMP  SLR# 

X 

0 -3,1 
CCV  VXSC 

P2 
URl 

VSLl  POOL 

XSOCIXM 
SLR#  DCV 

0 -#,1 

R2 

BCSU 

01/256 
VXSC  VAO 

VVEC 

VSL8  RVO 


17:53  DECo  19,1969  SKIPPER  -101  PAGE  1178 


USER  'S  PAGF  NCe  26  E5  S3 


0C=(R1-XSQCIX  I HURT  (+33  OR  31)  PL  AT  6 


PL  AT  0 


6D=V2VEC  PART  (+15  PR  131 


PL  AT  12 


PL  AT  6 


iAP: 

1135 

1136 

1137 

ai3e 

1139 

llAO 

llAO 

llAl 

llAl 

11.  A 2 

11A2 

11  A3 

11A3 

llAA 

llAA 

11A5 

11A5 

11A6 

11A6 

11A7 

11A7 

11A8 

11A8 

11A9 

11  50 

1150 

1151 

1151 

1152 

1153 

115A 

115A 

1155 

1155 

1156 

1156 

1157 


ASSEPBie  REVISION  131  CF  AGC  PPCCRAN  LUMINARY  BY  NASA  2021112-091 
CCNIC  SUBROUTINES 


17:53  DEC*  I9tl969  SKIPPER  101  PAGE  1179 
USER’S  PAGE  NGc  27  E5  S3 


REF  3 LAST  A5  3A,2000 
■)^t2773 


SETLOC  CONICSI 
BANK 


16 


16* 


CCUNT*  $$/CCMC 


REF 

REF 


LAST  llAl 


LAST  1178 


0A,2773 
3A»277A 
0A,2775 
QA  ,2776 
7A,2777 
7A,3000 
C^.,  3001 
3A,3002 
0A,3003 
OA, 300A 
CA,3705 
OA  ,3006 
OA, 3007 
CA,3010 
CA,3011 
0A,3012 
CA,3013 
CA,301A 
0A,3O15 
12,2006 
OA,3016 
OA,3017 
0A,3Q20 
OA,3021 
OA  ,3005 
0A,3nil 
0A,3O22 
OA,3023 
OA, 302A 
CA,3025 
CA,3026 
0A,3n27 


TFESE  CDS,  OVERLAYS  HAVE  BEEN  MADE* 


00000  1 6eEl7 
'OAOCO  0 01/e 

00000  1 

00200  0 01/128 
00000  1 
OOAOO  0 
COCCC  1 
10000  0 
QQOOO  1 

C2QC0  0 01/16 

00000  1 

01000  0 01/32 

00000  1 

00020  0 CI/102A 

COOOO  1 
OOlCO  0 
00000  1 
3A631  1 
231A6  0 

KEPZERQ 

77A67  1 -5CSC 
77777  0 
03110  1 2PISC 
17665  1 

BEEIO 

BEE22 

OOCOO  1 ONEeiT 
COOOl  0 

37767  G COGUPLIM 
37737  0 
AOOlO  1 
AOOAO  1 


C1/6A 

Cl/A 


Cl/256 

OP9/10 


DEC 

2DEC 

2CEC 

2CEC 

20EC 

20EC 

2CEC 

2CEC 

20EC 

20EC 


1*0  B-3 
I *0  8-7 
loO  8-6 
1*0  B-2 


1*0  B-10 
1*C  B-e 


EQUALS  LC6ZERCS 
20EC  -50*0  B-12 

2CEC 


6*28318530  8-6 


EQUALS  01/32  -1 
EQUALS  01/256  -1 
20EC  1*0  8-28 

20EC 


CCGLOLIP  2DEC 


*999511597 

-*999511597 


KEEP  WITH  01/8  20EC  1-08-17  (OOOOnCACOO) 


2DEC  1*0  B-19  (CCCfC  010001 
2DEC  1*0  B-22  (OOOOO  OOlOO) 


GAP  : 


ASSEf'BLE  RBVISICN  131  CF  AGC  PPCGRAr'  LUMINARY  BY  NASA  2021112-091 


L CCNIC  SUBROUTINES 


1158  REF  2 LAST  1167  I2i2000 

1159  12  ,2732 


SETLOC  CONICS 
BANK 


1160  REF  2 

1161 

1162  REF  1 

1163 

11635 

11636 

1164 

1165  REF  8 

1166  REF  12 

1167 

1168  REF  1 

1169 

1170  REF  1 

1171  REF  1 

1172 

1173  REF  5 

1174  REF  1 

1175  REF  I 

1176 

1177  REF  1 

1178  REF  2 

1179 

1180  REF  7 

1181  REF  2 

1182  PEF  1 

1103 

1164  REF  3 


LAST  1168  TO 


LAST  697 
LAST  1178 


LAST  1178 

LAST  1170 

LAST  664 
LAST  1180 

LAST  iiao 


12.2732 

12.2733 

12.2734 
12,2-735 

12.2736 

12.2737 
12  ,2740v 

12.2741 

12.2742 
12  ,2743 

12.2744 

12.2745 

12.2746 

12.2747 
12  ,2750 

12.2751 

12.2752 
12  ,2753 

12.2754 

12.2755 

12.2756 

12.2757 
12  ,2760 

12.2761 

12.2762 
12  ,2763 


455  455# 

40220  0 
02710  0 

rccoi  0 

77600  1 
24737  1 
63375  0 
02655  0 
02744  1 
77624  1 
11030  1 
45C00  0 
24764  1 
24757  1 
43145  0 
00031  0 
C4310  1 
25752  0 
45014  0 
04273  0 
24421  0 
45014  0 
C37C6  0 
02710  0 
24653  1 
77650  1 
02710  0 


TIMETHET 


COMMNOLT 


CCUNT*  ft/CCNIC 
STQ  SETPO 
RTNTT 
0 

BOV 

+ 1 

VLOAD  PDVL 
PVEC 
VVEC 

CALL 

PARAM 

BOV  CALL 

COGACVFL 

GETX 

OLGAD  BCN 
XI 

INFINFLG 
ABTCCMC 
CLEAR  CALL 

COGAFLAG 
OELTIME 
PCN  CALL 

RVSW 
RTNTT 
NEWSTATE 

GOTO 

RTNTT 


1185 

1186  REF  2- 

1187  REF  2 

11872 

11B74  REF  4 

11376 

11878  REF  3 

1166 

1189  REF  2 

1190  REF  7 

11901 

11902  REF  3 

1191 

1192  REF  7 

1193 

1194  REF  I 

1195 

1196 


LAST  1180 
LAST  1180 

LAST  1179 

LAST  1179  TO 

LAST  126 
LAST  773 

LAST  1180 

LAST  774 


12.2765 

12.2766 

34.3030 
04,2000 

04.3030 
1180: 

04  ,3  030 

04.3031 

04.3032 
04  ,3033 

04.3034 

04.3035 

04.3036 

04.3037 
04  ,3040 
04  ,3041 
14,3042 


77614  1 
04033  0 
25752  0 


29  45# 

43020  1 
C2753  I 
03665  1 
77614  1 
04273  0 
45131  0 
■ 02673  1 
27777  0 
11074  I 
14045  0. 
56261  1 


COGAOVFL  SETGO 

COGAFLAG 

ARTCCKIC 

BANK 

SETLCC  CONICSl 
BANK 

CCINT*  $$/CCMC 
PARAM  STQ  CLEAR 
PTNPRM 
NORRS^i 

CLEAR 

COGAFLAG 
SSP  CALL 

GECNSGN 

31771 

G60M 

STCOL  '^60 
SR  DOV 


17:53  DECo  19,1969  SKIPPER  -,101  PAGE  1180 


USER'S  PAGE  NOo  28  E5  S3 


PL  AT  0 


SETUP  FOR  PAPAP  CALL  PL  AT  6 


PL  AT  0 


MPAC=V1VEC,  00=R1VFC  PL  AT  6 


GAMMA  ALWAYS  LESS  THAN  UnCEG 
MPAC=SNGA  i*D  y OO^CSGA  (+1)  PL  AT  2 
360=SIN  GAMMA  (+7)  PL  AT  0 


GAP: 

L 

1197 

1196 

1199 

1200 

1201 

1202 

1203 

120-^ 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

121^ 

1215 

1216 

1217 

1218 

1219 

1220 

1221 


ASSEMBLE  REVISION  1.31  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
CCNIC  SLBRCLTINES 


17:53  DEC*  19,1069  SKIPPER 
USER'S  PAGE  NCe  29 


101  PAGE  1181 
E5  S3 


CA,3PA3  2C6C6  0 


5 


REF  2 
REF  5 
REF  2 
REF  3 

REF  45 

REF  3 
REF  11 


REF  2 
REF  4 


LAST  126 
LAST  1168 
LAST  1168 
LAST  126 

LAST  1178 


LAST  1181 
LAST  1178 


LAST  1179 
LAST  692 


04  *3045 
C4»3046 
04,3047 
04., 3050 

04.3051 

04.3052 

04.3053 

34.3054 

04.3055 
C4,3C56 
04,3057 
04,3060 
C4,3C61 
04  ,3062 


00045  0 
32  766  1 
10005  0 
14017  1 
C2720  0 
60316  0 
00047  1 
41275  1 
00017  1 
00041  1 
77657  0 
21576  0 
44206  0 
11007  0 
16742  1 


3 60 

STCVL*  COGA 

MUTABLE ,1 
STOOL  1/MU 

MAGVeC2 
DSC  NORM 
XI 

DMFR  DMP 
1 /MU 
PI 

SRR* 

0 -3,  1 

PUSH  BOSU  00=R1  VISQ/MU  (+6)  PL  AT  2 

01  /32 

STOOL  RIA  RIA  (+6)  PL  AT  0 


REF  46 

REF  4 
REF  3 


LAST  118'1 

LAST  640 
LAST  1180 


04.3063 

04.3064 
C4,3065 

04.3066 

04.3067 

04.3070 

04.3071 

04.3072 
04  ,3073 


602C5  0 
00045  0 
00047  1 
53605  1 
00045  0 
20575  1 
C2740  0 
77650  1 
02753  I 


DMP  NORM 

360 
XI 

DMF  SR»^ 

360 

0 -4,1 

STORE  P P (44) 

GOTO 

RTNPRM 


gap; 

L 

1225 

1226 

1227 

1226 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1246 

1249 

1250 

1251 

1252 

1253 


ASSFMBLE  REVISION  131  GF  AGC  PPCGRA^  LUMNARY  BY  NASA  2021112-091 


17:53  DECb  19,1969  SKIPPER  olOl  PAGE  1162 


CCMC  SLeRCUTINES 


USER' S PAGE  KCo  30  E5  S3 


REF  2 
REF  4 
REF  5 
REF  3 

REF  12 
REF  6 

REF  4 

REF  8 
REF  1 
REF  8 

REF  1 
REF  6 

REF  ’ 9 


LAST  126 
LAST  1181 
LAST  1178 
LAST  1182 

LAST  1181 
LAST  1182 

LAST  1182 

LAST  1180 

LAST  1180 

LAST  774 

LAST  1182 


C4,307A  77656  1 

DA, 3075  16712  1 

04,3076  00045  0 

OA  ,3077  26720  0 

■)A,3100  77656  1 

04  ,3101  02722  1 

0A,3102  72441  0 

04.3103  02712  1 

04.3104  77725  I 

04.3105  C0045  C 

14.3106  24041  1 

04,310?  -02722  1 

04.3110  76A35  1 

04.3111  02712  1 

CA,3112  75214  1 

)4,3113  03705  0 

14.3114  11126  1 

04.3115  C2673  1 

04.3116  40056  0 

04.3117  11124  0 

04. 3120  16674  0 

04.3121  00045  0 

04.3122  A3565  0 

04.3123  02673  1 


GECR  UNIT 

STOOL 

STCVL 

UNIT 

STORE 

DOT 

FDDL 

STOVL 

vxv 

BCN 


UNIT 

UNITNORM  STOOL 
SIGN 


U2 

36D 

MAGVEC2 

URl 

SLl 

U2 


URl 

VSLl 

U2 

SIGN 

NORRSW 

HAVENORf^ 

GECf'SGN 

BOV 

COLINEAP 

UN 

36C 

PVQ 

GECNSGN 


MPAC=V2VEC,  0D=P1VEC  PL  AT  6 

U?  (4-1) 

PL  AT  0 


UR  1 ( 


+ 11 


00=CSTH  ( +1 ) PL  AT  2 

R1  (+29  OR  +?7) 


UN  (+1 > 

MPAC=SNTH  {+!>,  3^I>SNTH^.  SNTH  (+2) 


REF 


04.3124  52162  0 CCLINEAR  VSPl 

04.3125  11120  I 


GOTO 

UMTNCRP 


REF  10  LAST  1182 


04.3126 

04.3127 
04,3130 


75246  0 HAVENORM  A6VAL  SIGN 
C2673  1 GECKSGN 

77616  0 RVC 


RPAC=SNTH  (+1>,  34C=SNTF<,SNTH  (+2> 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L CCMC  SIBRCLTINES 


USA  12,2767 

1255  REF  3 LAST  1180  12,2000 

1256  12,2767 


BANK  12 
SETLOC  CONICS 
BANK 


12565 

1257 

1258 

1259 

1260 
1261 
1262 
1263 
126A 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 
127A 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1262 

1283 

1284 

1285 

1286 
1287 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


3 LAST  1180  TO 

26  LAST  1149 

1 

5 LAST  664 

2 LAST  37 
7 LAST  664 

1 

3 LAST  1181 
2 LAST  1183 

736  LAST  1177 
5 LAST  1181 

J 

1 

1 


U8C: 

12,2767 

12.2770 

12.2771 
12  ,2772 

12.2773 

12.2774 
12  ,2775 

12.2776 

12.2777 

12.3000 

12.3001 
12  ,3002 

12.3003 

12.3004 
12  ,3005 

12.3006 

12.3007 

12.3010 

12.3011 
12  ,3012 

12.3013 

12.3014 
12  ,3015 

12.3016 

12.3017 

12.3020 

12.3021 
12  ,3022 

12.3023 

12.3024 
12  ,3025 


29  484* 

66374  1 
00003  1 
00C52  0 
00001  0 
77614  1 
04276  0 
65366  1 
02732  0 
44342  1 
11003  1 
54325  1 
02730  1 
21607  0 
77671  1 
77600  1 
25122  1 
41225  1 
C2766  I 
40132  0 
25122  1 
63406  0 
65351  C 
00155  0 
C2742  1 
76202  0 
75440  0 
25205  1 
43306  0 
61000  0 
25120  0 
25013  1 


GETX 


ULCOP 


CCLNT*  $5/CCMC 
AXT,2  SSP 
3 
S2 
1 

CL  EAR 

360SW 

SORT  POOL 
CSTH 
SRI  BOSU 
01/4 

POOL  SRR 
SNTH 
6 

ODV 

BOV 

360CHECK 
DSU  DMP 
CDGA 

SL2R  BOV 

360CHECK 
PUSH  DSC 
TLOAO  POOL 
MPAC 
Rl  A 

SR  4 TAD 

BMN  SORT 

INFINITY 
ROUND  DAO 
BOV  TIX,2 

RESETX2 

WLOOP 


1288 

1289  REF 

1290  REF 

1291 

1292  REF 

1293 

1294 

1295  REF 

1296  REF 

1297 
U98 

1299  REF 


3 LAST  1178 

2 LAST  1183 

3 LAST  1183 

47  LAST  1181 
6 LAST  1183 

6 LAST  J174 


12.3026  40065  0 

12.3027  10777  1 

12,3030  25205  1 

12,  3031  4144C  1 

12  ,3032  25205  1 

12.3033  77716  1 

12.3034  41301  0 

12.3035  00047  1 

12.3036  C2742  1 

12.3037  77457  1 

12.3040  21567  0 

12.3041  C 7225  0 


BDDV 

POLYCOEF  BMN 

DSC 

NORM 

SRR* 

TC 


BOV 

01/128 
INFINITY 
PUSH 
INF  IN  ITY 

DMP 
XI 
Rl  A 
EXIT 

0 -100,1 

POLY 


17:53  CECo  19,1969  SKIPPER  -101  PAGE  1183 


USFR  * S PAGF  NCo  31  £5  S3 


ASSUMES  P (+4)  IN  RPAC 

00=SORT(PI  PL  AT  2 

PL  AT  4D 

PL  AT  2 

PL  AT  0 

00=W  { +5  > PL  AT  2 

2D  = WS0  ( + 10)  PL  AT  5 

PL  AT  2 

PL  AT  00 


00=1/W  (+2)  OR  16/W  (+6) 


PL  AT  2 


gap: 

L 

1300 

1301 

1301 

1302 

1302 

1303 

1303 

130^ 

130A 

1305 

1305 

1306 

1306 

1307 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

131A 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1320 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 


ASSCMBLE  REVISION  131  OF  AGC  PPCGRAP  LUPIN/iRY  BY  NASA  20213  7 2-091 


17:53  OECq  19»1C69  SKIPPER  ©101  PAGE  1184 


CCMC  SUBRCUTINES 


USER*  S PAGE  NC©  32  E5  S3 


REF  223 

REF  2 
REF  1 

REF  48 

REF  7 

REF  6 


12r3042 
12,3043 
12  ,3  044 

12.3045 

12.3046 
12  ,3047 

12.3050 

12.3051 

12.3052 

12. 3053 
12  ,3054 

12.3055 

12.3056 
12  ,3057 
12,3060 

LAST  1174  12,3061 

12.3062 

12.3063 
last  1183  12,3064 

12.3065 

12.3066 
LAST  1183  12  ,3067 

12,3070 
LAST  1163  12,3071 

12,3072 
LAST  1180  12,3073 


00005  1 
20000  0 
00000  1 
72525  0 
52471  1 
03146  1 
15CC3  0 
75556  0 
45210  0 
C1615  1 
13553  0 
76371  0 
63777  0 
01232,  0 
27367  0 ' 

C 6042  1 
76405  1 
43C06  0 
04316  1 
25172  I 

60316  0 XCOMMON 

0a047  1 

53605  1 

02742  1 

21565  1 

14C31  0 


DEC  5 
2DEC  c 5 

2CeC  -9166666770 
2DEC  ©100000392 
2DEC  -©071401086 
2DEC  ©055503292 


20EC  -©04726^098 


20EC  ©040694204 

TC  IN7PRFT 

DPP  SLIR 

PUSH  BON 

360SW 
TRUE360X 
OSQ  NORP 

X] 

OPP  SRR* 

R lA 

0 -12D,1 
STCOL  XI 


REF  13  LAST  1182 

REF  22  LAST  1178 


12.3074  00041  1 

12.3075  75542  C 

12.3076  41306  1 

12  ,3077  77632  0 

12,3100  C0C25  0 


PI 

SRI  SORT 
ROUND  DPP 

SL4R  PL  AT  0 

STCRE  X X (+17  OR  +16) 


REF  49 

REF  5 
REF  14 


REF  4 
REF  3 
KEF  8 

REF  3 
REF  2 
REF  7 


LAST  1184 

LAST  1161 
LAST  1164 


LAST  1183 
LAST  1175 
LAST  1184 

LAST  1168 
LAST  1180 
LAST  1175 


12.3101  60316  0 

12.3102  00047  1 

12.3103  41325  0 

12  ,3104  02740  0 

12.3105  0CC41  1 

12.3106  75452  0 

12  ,3107  56405  0 

12.3110  C2766  1 

12.3111  14043  C 

12.3112  02742  1 

12.3113  43021  0 

12.3114  11001  0 

12.3115  04270  0 

12.3116  0C045  0 

12.3117  77616  0 


OSQ  NORM 
XI 

POOL  DMP  0D=XSQ  (+34  OR  +32  -NT  I PL  AT  2 

P 

R1 

SL3  SORT 
CMP  SL3R 
CCGA 

STOOL  KEPCl 
R1  A 

BOSU  CLEAR 
01/64 
INF  INFLG 
STORE  KEPC2 
RVO 


GAP : 

L 

1339 

13A0 

13A1 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1360 

1381 

13  82 


ASSEMBLE  REVISION  131  CF  AGC  PRCCRAM  LUMINARV  BY  NASA  20211  12-^91 
CCNIC  SIBROUTINES 


17:53  OeCa  19,1969  SKIPPER  ICl  PAGE  1185 
USER  'S  PAGE  NOe  33  E 5 S3 


12.3122 

12.3123 
12  ,3124 

12.3125 

12.3126 


510C1  1 
00001  C 
25127  1 
77614  1 
04076  1 


360CHECK  SETPD  BPL 


BEE 

REF 


REF 

REF 


LAST  1184 


8 LAST  1103 
5 LAST  1184 


LAST  1183 
LAST  1181 


REF  50  LAST  1184 
REF  9 LAST  1185 


LAST  1175 
LAST  1184 


REF  4 LAST  1183 


12,3127 
12,3)30 
12  ,3131 

12.3132 

12.3133 

12.3134 

12.3135 

12.3136 

12.3137 

12. 3140 

12.3141 

12.3142 

12.3143 

12.3144 

12.3145 

12.3146 

12.3147 
12,3150 
12  ,3151 

12.3152 

12.3153 
12  ,3154 

12.3155 

12.3156 

12.3157 
12,3160 
12  ,3161 
12  ,3162 
12,3163 
12  ,3164 

12.3165 

12.3166 

12.3167 
12,3170 
12  ,3171 


75545  1 
02740  0 
41325  0 
C273C  1 
02766  1 
65352  0 
C2732  0 
43202  0 
11007  0 
41225  1 
55301  0 
00047  1 
C2730  1 
51457  0 
21174  0 
63406  0 
14043  0 
11005  1 
63406  0 
65234  1 
21634  0 
02742  1 
404C5  1 
00043  0 
77771  0 
75440  0 
25205  I 
77615  0 
60304  C 
25151  0 
00047  1 
77665  1 
52057  1 
21172  0 
25031  1 


INVRSeCN  DLCAO  SORT 
P 

POOL 


SLl 
SR  4 


PUSH 

STCOL 


TAC 

BMN 


BDDV 

SLR* 


DMP 

SNTH 

C nGA 

POOL 

CSTH 

DAO 

01/32 

D^»P 

BODV 

XI 

SNTH 

ABS 

0 -5  ,1 
DSO 
34C 

01  /16 
DSQ 
POOL 
TPPODE 
RIA 
SR4 
340 

SORT 

INFINITY 

NORR 
1 /HLOOP 


GOTC 
0 -7,1 
POLYCOEF 


OD=SORT(P»  (+2) 


20=SNTH  COGA  ( +5  ) 


PL  AT  2,0 


NOTE:  NEAR  360  CASE  TREATED  DIFFERENTLY 
00=1/W  (-1)  PL  AT  2 


REF  10  LAST  1185 


TRLE360X  CLCAC 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L CCNIC  SUBROUTINES 


1383 

138A 

1385 

1366 

1387 

1388 

1389 

1390 

1391 

1392 

1393 
1399 

1395 

1396 


REF  5 LAST  1185 

REF  52  LAST  1185 

REF  2 LAST  1169 

REF  1 

REF  1 

REF  3 LAST  1189 


12.3175 

12.3176 

12. 3177 
12  ,3200 

12.3201 

12.3202 
12  ,3203 
12,3209 

12.3205 

12.3206 

12.3207 
12  ,3210 
12,3211 


252C5  1 
60366  1 
00097  1 
53665  I 
U021  1 
20176  0 
91925  1 
77650  1 
25C66  C 
90001  1 
00001  0 
25210  C 
93919  1 
09C70  I 


SORT 

BOOV 

OSU 

GOTO 

INFINITY  SETPO 

OVFLCLR  SET 


INFINITY 

NORM 

XI 

SL# 

2PISC 

0-3,1 

PUSH 

XCCMMCN 

60V 

0 

OVFLCLR 

RVQ 

INF  INFLG 


17:53  OEC«  19,1969  SKIPPER  .101  PAGE  1186 


USER'S  PAGE  NCc  39  F5  S3 


C0=2PI/SCRT(R1  A)  -X  PL  AT  0,2 

NO  SOLUTION  EXISTS  SINCE  CLOSURE  THROUGH 
INFINITY  IS  REQUIRED 


4 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L CCMC  SUBRCUTINES 


17:53  DECo  19,1969  SKIPPER  .101 
USER'S  PAGE  NCo  35 


PAGE  1187 
E5  S3 


1397 

1398  REF  5 

1399 

13995 

13996 

1400 

1401  PEF  1 

1403  REF  6 

1404  REF  4 

1405  REF  3 

1406 

1407  REF  1 

1408  REF  2 

1409 

1410  REF  2 

1411  REF  6 

1412 

1413  REF  10 

1414  REF  2 

1415  REF  10 

1416  REF  5 

1417 

1418  REF  53 

1419  REF  15 

1420 

1421 

1422 

1423 

1424  REF  7 

1425 

1426  REF  3 

1427  REF  2 


LAST  126 


LAST  1181 
LAST  1181 
LAST  689 


LAST  126 

LAST  1176 
LAST  691 

LAST  601 
LAST  1180 
LAST  1185 
LAST  1182 

LAST  1106 
LAST  1184 


LAST  1165 

LAST  1183 
LAST  126 


12,3213 
12  ,3214 

12.3215 

12.3216 

12.3217 
12,3220 
12  ,3221 
12  ,3222 
12,3223 
12  ,3224 
12, 3225 
12,3226. 
12,3227 
12,3230 
12  ,3231 

12.3232 

12.3233 
12  ,3234 

12.3235 

12.3236 

12.3237 
12,3240 
12  ,3241 

12.3242 

12.3243 
12  ,3244 

12.3245 

12.3246 

12.3247 
12,3250 
12  ,3251 


02710  0 
00001  0 
776CC  1 
25217  1 
t66l4  0 
C2674  0 
10005  0 
14017  1 
02671  0 
77675  0 
11CC6  3 
02764  0 
77214  0 
C0474  0 
02655  0 
45115  0 
02663  0 
11074  1 
16730  1 
02720  0 
65301  0 
00047  1 
00041  1 
56342  1 
65257  1 
20173  0 
77626  0 
75C45  1 
44342  1 
11CC3  1 
02734  0 


STC  SETPC 

RTNLAM6 

00 

BOV 

+ ) 

CLEAR  VLCAC* 
SOLNSR 
MUTABLE, 1 
STOOL  3 /MU 

TDESIRED 

DMPR 

BEE19 

STORE  EPSILONL 
SET  VLCAO 

SLCPESU 

RIVEC 

POVL  CALL 
R2VEC 
GEOM 
STOOL  SNTH 

MAGVEC2 
NORM  POCL 
XI 
Rl 

SRI  DOV 

SL*  POOL 

0 -6,1 

STAOR 

STORE  CSTH 
SRI  8DSU 

01  /4 

STORE  1-CSTH 


00=P1VEC  (+29  .OR  +27»  PL  AT  6 

MPAC=R2VEC  (+29  OR  +27 » 

OD=CSTH  (+1  ) PL  AT  2 

PL  AT  4 


PL  AT  2 

OXCH  WITH  OD,  nD=Rl/R2  (+7  1 PL  AT  0,2 


CSTH  (+1» 


1-CSTH  (+2) 


1428 

1429 

1430 

1431 

1432 

1433 
3’  1434 

1435 

1436 

1437 

1438 

1439 
2'  1440 

14403 

14402 

1441 

1442 


REF  1 
REF  54 


REF  11 

REF  3 
REF  1 
REF  1 


LAST  1187 

LAST  1187 

LAST  1187 


12.3252  53106  0 

12.3253  25473  0 

12.3254  65301  0 

12.3255  00047  1 

12.3256  00001  0 

12.3257  56342  3 

12.3260  75457  0 

12.3261  20176  0 

12.3262  54325  1 

12.3263  02730  1 

12  ,3264  20607  1 

12.3265  43271  1 

12.3266  02734  0 

12.3267  77626  0 

12.3270  77760  0 

12.3271  50000  1 

12.3272  25277  1 


RCUND  BZE 

360LAMB 
NORM  POOL 

XI 
00 

SRI  OOV 

SL*  SORT 

0- 3,1 

POOL  SR 

SNTH 

6 

DOV  DAO 

1- CSTH 

STAOR 

STORE  COGAMAX 
BOV  BMN 

UPLIM 


PL  AT  2 


20=SQRT ( 2R1/R2( 1-C STH) > (+5)  PL  AT  4 


PL  AT  2 


IF  OVFL,  CDGAMAX=CCGUPLIM 

IF  NEG,  USE  EVEN  IF  LT  COGLOLIM,  SINCE 


ASSEMBLE  REVISION  131  CF  AGC  PPCCPAf'  LUMINARY  BY  NASA  2021112-091 


14A21 

14A22 

14423 

14424 

14425 
1442t 
14427 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 


CCNIC  SUBROUTINES 
PEF  1 


REF 

REF 


REF 

REF 

REF 


LAST  1168 


LAST  1188 
LAST  1197 


REF  8 LAST  1187 

REF  2 LAST  126 
REF  11  LAST  1182 

REF  I 

REF  3 LAST  1188 

REF  12  LAST  1187 

REF  2 LAST  1188 
REF  1 


LAST  690 
LAST  1177 


12  ,5273 
12  ,3274 
12,3275 
12  ,3276 
12,3277 
12,3300 
12,33C1 
12, 3202 
12  ,3303 
12,3304 
12,3205 
12  ,3306 
12.3707 

12.3310 

12 .3311 

12.3312 
12  ,3313 

12.3314 

12.3315 
12  ,3316 
12,3217 

12.3320 

12.3321 

12. 3322 
12  ,3323 

12.3324 

12.3325 
12  ,3326 
12, 3327 


25302  1 
50C25  0 
11025  0 
25302  1 
77745  1 
11025  0 
00017  1 
77745  1 
02732  0 
45261  0 
20607  1 
77626  0 
61C41  C 
02673  1 
71240  1 
25513  1 
02736  1 
56352  0 
02730  1 
77600  1 
25513  1 
00011  1 
66214  0 
CC715  1 
25477  1 
00051  0 
00001  0 
77745  1 
C2766  1 


CQGUPLIM 

MAXCOGA 


STORE 

DLGAO 


STAOR 

STOOL 


CSTH-RHC 

GEOMSGN 

DLCAC 

LOLIM 

csth-rho 

DDV 

SNTH 

LOLIM 
COGAMl N 
SSP 

GUESSW 
NOGUESS 
TWEBK  IT 
OOOCl 

CGGA 


1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 


REF  13  LAST  1188 


REF  55  LAST  1187 


REF 

REF 

PEF 

REF 


LAST  1188 


REF  56  LAST  11P8 
REF  8 LAST  1188 


12.3330 

12.3331 

12.3332 

12.3333 

12.3334 

12.3335 
12  ,3336 
12,3337 

12.3340 

12.3341 

12.3342 
12  ,3343 

12.3344 

12.3345 

12.3346 

12. 3347 

12.3350 

12.3351 

12.3352 


77605  1 
C2730  I 
45342  0 
0273e>  1 
65301  0 
00047  1 
02734  0 
56257  1 
20170  0 
53  040  0 
25427  1 
25427  1 
16740  0 
02766  1 
43316  1 
llCll  1 
41301  0 
00047  1 
C2740  0 


LAMBLOOP  DMP 
SRI 


SNTH 

OSU 

CSTH-RHO 

POOL 

XI 

1-CSTH 

DDV 

0 -90,1 

BZE 

NEGP 

NEGP 

P 

COGA 

DAO 

01/1024 

DMP 

XI 


% 

i 

17:53  DEC-  19,1969  SKIPPER  ICl  PAGE  1188 

USER'S  PAGE  NCo  36  E5  S3  | 

THIS  ^^CUL0  BE  RESET  f^  LAMBLCCP 
IF  COGAMAX  GT  COGUPLIM,  CDGAMAX=COGUPL  I M ^ 

OTHERWISE  OK,  SO  GO  TO  MAXCCGA  j 

CC6UPLIM=o9995n  597  = MAX  VALUE  OF  COGA 
NOT  CAUSING  OVFL  IN  P lA  CALCULATION 

PL  AT  0 e 


COGAMIN  (+5) 


OD  = SNTH  CnGA-( CSTH-RHO  I (+7  + C(Xl))  PL  = 2 

1 -CSTH  ( +2  ) PLATO 


P = ( 1-CSTH)/ (SNTH  COGA- (CSTH-RHO  ) ) (+4) 


GAP;  ASSEMBLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARV 
L CCMC  SUSBCUTINES 


1484 

1485 

1486 

1487 


REF 

REF 


12.3353 

12. 3354 

12.3355 

12.3356 


44257 

20571 

11007 

16742 


NASA  2021112-091 


SR*  BOSU 

C -00,1 

Dl/32 

STOOL  RIA 


17:53  DECo  19,1969  SKIPPER  elOl  PAGE  1189 
USER'S  PAGE  NCo  37  £5  S3 


RIA=2-P(  1+CCGA  CrGA»  (+6) 


1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 
149  6 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 
15091 
15U92 

15093 

15094 

15095 

15096 

15097 

1510 
15105 

1511 

1512 

1513 

1514 

1515 

1516 

1517 
1510 
1519 


REF 

REF 

REF 

REF 

REF 

REF 
KEF  . 
REF 

REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 


REF 

REF 


9 LAST  1X88 
1 

2 LAST  1180 

10  LAST  1178 
1 

7 LAST  1184 

4 LAST  1186 

3 LAST  1188 


LAST  1171 


LAST  1187 


LAST  1189 


REF  737 
REF  3 


REF 

REF 


LAST  1183 
LAST  1169 


LAST  1188 
LAST  1189 


12,3357 
12  ,3360 

12.3361 

12.3362 

12.3363 

12.3364 
L2  ,3365 

12.3366 

12.3367 
12  ,3370 

12.3371 

12.3372 

12.3373 

12.3374 
12  ,3375 

12.3376 

12.3377 
12  ,3400 
12,3401 
12,  3402 

12.3403 

12.3404 

12.3405 

12.3406 

12.3407 
12  ,3410 
12  ,3411 
12,3412 
12  ,3413 

12.3414 

12.3415 

12.3416 

12.3417 
12  ,3420 

12.3421 

12.3422 
12  ,3423 

12. 3424 

12.3425 

12.3426 


02740  0 
45000  0 
25432  0 
24767  1 
77745  1 
C0C37  0 
16762  0 
00031  0 
45014  0 
04310  1 
25427  1 
24421  0 
44200  0 
25447  1 
02671  0 
02760  1 
44246  ] 
02764  0 
47C44  1 
25516  1 
24644  1 
43030  0 
25460  1 
00714  0 
25415  0 
45345  1 
00037  0 
02762  0 
77654  0 
25460  1 
77624  1 
24536  1 
53145  1 
00155  0 
25460  1 
77615  0 
02766  J 
02766  I 
77650  1 
25330  0 


BOV 

CLCAO 

STOOL 

BON 


STORE 

ABS 


DLOAD 

BZE 

CALL 

DLOAD 


CALL 

HI  ENERGY 
6ETX 


TPREV 

XI 

CALL 

INFINFL6 

NEGP 

DELTIME 

BOSU 

BIGTIME 

TDESIRED 

TERRLAMB 

BDSl 

EPS  ILONL 

RTB 

INITV 

CHECKCTR 

BON 

SUFFCHEK 
SLCPESW 
GCI TER 
DSU 
T 

TPREV 

SUFFCHEK 

ITERATCP 


HAVE  EXCEEDED  THEORETICAL  BOUNDS 


OAO 


STORE 

GOTU 


COGA 

COGA 


1520 

1521  REF 

1522  REF 


12,3427 
12  ,3430 
12,3431 


51145 

00015 

25452 


BPL 

DCOGA 

LCENERGY 


gap:  assemble  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 

L CCNIC  SU8R0UT  INES 


1525  REF  10 

152A  REF  2 

1527 

1528  REF  2 

1529  REF  3 

1530 

15301  REF  A 

1531  REF  11 

1532  REF  12 

1533 

1534  REF  2 


12 

12 

LAST  1189  12 

LAST  1188  12 

12 

LAST  1189  12 

LAST  1190  12 

12 

LAST  1189  12 

LAST  1190  12 

LAST  1190  12 

12 

LAST  1189  12 


.3432 
, 3433 
,3434 
,3435 
,3436 
,3437 
,3440 
,344  1 
,3442 
, 3443 
,3444 
,3445 
,3446 


71201  1 HIENERGY  SETPD 
COOOl  0 
02766  I 

00011  1 STORE 

7C545  I CCMMONLM  DLOAO 
00015  0 

00015  0 STORE 

44254  1 BZE 

25460  1 
C2766  I 

02766  1 STORE 

77650  1 GOTO 

25330  0 


DLOAO 

0 

COGA 

COC-AMIN 

SRI 

DCOGA 

DCOGA 

BDSL 

SUFFCHEK 

COGA 

COGA 


LAMBLCCP 


1535 

1536  REF  3 LAST  1189 

1537  REF  12  LAST  1189 


12,3447  77745  1 

12.3450  02762  0 

12.3451  00037  0 


6ICTIME 


DLCAD 

STORE 


1538 

1539 

1540 

1541 

1542 

1543 


REF 

REF 

REF 


LAST  1190 
LAST  U80 


12.3453 

12.3454 

12.3455 

12.3456 
12  ,3457 


71201  1 
CCGOl  0 
C2766  I 
00017  1 
77650  1 
25436  1 


LCENERGY  SETPD 


STORE 

GOTO 


DLOAO 

0 

COGA 

COGAMAX 

COMMONLM 


1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 


REF  2 

REF  5 
REF  I 


PEF  1 . 

REF  2 
REF  2 
REF  3 


REF  3 
PEF  6 


LAST  1189 
LAST  1189 


LAST  1189 
LAST  1187 
LAST  1190 


LAST  119C 
LAST  1187 


12.3462 

12.3463 

12.3464 

12.3465 

12.3466 
12  ,3467 

12.3470 

12.3471 
12  ,3472 

12.3473 

12.3474 

12.3475 

12.3476 


51545 

02760 

41325 

C2671 

10774 

45215 

11023 

43044 

25516 

02434 

25516 

43001 

00001 

02434 

02710 


1 

1 

0 

0 

1 

0 

0 

0 

1 

0 

1 

1 

0 

0 

0 


SLFFCHEK  OLCAD  A0S 

TERPLAMB 
POOL  OMP 

TOESIREO 
6EE17 
DAO  OSU 

ONEBIT 
BPL  SETGO 

INITV 
SOLNSVi 
IN  ITV 

36CLAM6  SETPD  SETGC 

n 

SCLNSW 

RTNLAMB 


1559 

1560 

1561 

1562 

1563 


REF 


REF 


12  ,3477 
LAST  1188  12,3500 

12,3501 
LAST  1190  12  ,3502 

12,3503 


71331  0 
00051  0 
lOOOO  0 
00011  1 
65342  1 


NOGUESS 


SSP 


SRI 


DLOAO 
TWEEKIT 
20000 
COGAM  IN 
POOL 
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USER'S  PAGE  NCo  38  E5  S3 

HIGH  ENERGY  TRAJECTORY  RESULTED 

IN  OVFL  OF  P OR  RIA,  CR  XI  EXCEEDING  50c 
THIS  IS  THE  NEW  BOLNOo 

USE  OCOGA/2  AS  DECREMENT 

RESTART  THIS  LOOP 


LOW  ENERGY  TRAJECTORY  RESULTED 

IN  OVERFLOW  OF  TIME# 

THIS  IS  THE  NEW  BOLNOr 


PL  AT  2D 


PL  AT  00 


LAMBERT 


CANNOT  hANCLE  CSTH=1 


PL  AT  2 


GAP; 

L 

156A 

1565 

1566 

1567 

1568 

1569 

1570 

1579 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

15  82 

1583 

1569 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1599 

1595 

1596 

1597 

1599 

1600 

1601 

1602 

1603 

1609 

1605 

1606 

1607 

16C8 

1609 

1610 
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17:53  OECo  I9fl?69  SKIPPFP  101  PAGE  1191 


CCMC  SUBROUTINES 


USER'S  PAGE  NCo  39  E5  S3 


REF  9 LAST  1190 

REF  19  LAST  1190 

REF  9 LAST  1190 

REF  3 LAST  1190 


12.3509  00017  1 

12.3505  93392  0 

12.3506  77626  0 

12.3507  75011  0 

12.3510  CCC15  0 

12.3511  '77650  1 

12.3512  25330  0 


COGAMAX 
SRI  DAC 
STADR 

STORE  COGA 
STORE  OCCGA 
GOTO 

LAMBLCCP 


PL  AT  0 


REF  1 
REF  1 


12,3513  52195  0 LOLIM 

12,3519  11027  1 

12,3515  25320  1 


OLOAD 


GOTO 
COGLOLIM 
MI NCCGA 


COGLOL IM=-e  009511597 


REF  16 
REF  57 

REF  10 

REF  3 
REF  15 

REF  7 

REF  7 

REF  fi 

REF  13 

REF  5 
REF  1 

REF  7 


LAST  1187 

LAST  use 

LAST  1189 

LAST  1178 
LAST  1191 

LAST  1182 

LAST  1182 
LAST  1191 

LAST  iieo 

LAST  691 

LAST  1190 


12.3516 

12.3517 

12.3520 

12.3521 

12.3522 

12.3523 

12.3529 

12.3525 

12.3526 

12.3527 

12. 3530 
12  ,3531 

12.3532 

12.3533 
12  ,3539 

12.3535 

12.3536 

12.3537 
12,3590 
12  ,3591 

12.3592 

12.3593 
12  ,3599 

12.3595 

12.3596 
12  ,3597 
12,3550 


00091  1 
0C097  1 
70525  1 
C2790  0 
77671  1 
75957  0 
20175  0 
72905  0 
00021  1 
91206  0 
02766  1 
79261  I 
20206  1 
02722  1 
77725  1 
76561  1 
02679  0 
53235  0 
02722  1 
77772  0 
C2799  1 
53135  0 
C2702  0 
25551  1 
77650  1 
02710  0 


DLOAO  NORM 
Rl 
XI 

POOL  SRI 
P 

DDV 

SL«  SORT 

0 -9,1 
OMP  SLl 

POCTMU 
PUSH  DMP 
COGA 
SL  VXSC 
s 

URl 

POOL 

VXSC  VSLl 
UN 

VXV  VAO 
UR  1 

VSLl 

STORE  VVEC 
SLOAD  BZE 

VTAPGTAG 

TARGETV 

GOTO 

RTNLAMB 


PL  AT  2 
PL  AT  0 


OD=VTAN  (+7) 


PL  AT  2 


XCH  WITH  00 


PL  AT  0,6 


REF 

REF 

RFF 

REF 


12  ,3551 

6 LAST  J187  12,3552 

1 12,3553 

9 LAST  692  12  ,3559 

12,3555 

8 LAST  1191  12,3556 


95195  0 
02720  0 
29701  1 
02703  1 
7765C  1 
02710  0 


TARGETV 


DLOAD  CALL 

MAGVEC2 
LAMENTER 
STORE  VTARGET 
GOTO 


RTNLAMB 


GAP 
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1612  REF  1 

1613 
16135 

1613  6 

1614 

1615  REF  9 

1616  REF  14 

1617 

1616  REF  2 

1619 

1620  REF  ? 

1621  PEF  5 

1622 

1623  REF  12 

1624  REF  11 

1625 

1626  REF  16 

1627 

1628  REF  5 

1629 

1630  REF  4 

163J  REF  13 

1632 

1633  REF  9 

1634 

16345 

16346  REF  1 

163  5 

1636  REF  3 

1637  REF  58 

1630 

1639  REF  17 

1640  REF  12 

1641 

1642 

1643 

1644  REF  2 

1645 

1646  REF  1 

1647 

1648  REF  1 

1649 

1650  REF  4 

16505  REF  2 

1651 

165?  REF  2 

16525 

1653  REF  3 


LAST  1180 
LAST  3191 

LAST  1180 

LAST  3 180 
LAST  1189 

LAST  1189 
LAST  1191 

LAST  1191 

LAST  1182 

LAST  1184 
LAST  3192 

LAST  1191 


LAST  627 
LAST  1191 

LAST  1191 
•LAST  1192 


LAST  1185 


LAST  1187 
LAST  1192 

LAST  126 


I2f 3560 
12  »3561 

12.3562 

12.3563 
12  ,3564 
12,3565 
12  ,3566 
12,3567 
12,3570 
12  ,3571 

12.3572 

12.3573 

12.3574 

12.3575 
12  ,3576 
12  ,3577 
12,3600 
12  ,3601 

12.3602 

12.3603 

12.3604 

12.3605 
12  ,3606 
12,3607 
12,3610 
12  ,3611 

12.3612 

12.3613 

12.3614 

12.3615 
12  ,3616 
12,3617 
12,3620 
12  ,3621 

12.3622 

12.3623 

12.3624 

12.3625 

12.3626 

12.3627 

12.3630 

12.3631 

12.3632 

12.3633 
12  ,3634 

12.3635 

12.3636 

12.3637 


02710  0 
00001  0 
776CC  1 
25564  1 
63375  0 
02655  0 
02744  1 
77624  1 
11030  1 
71200  0 
24764  1 
11007  0 
41225  1 
C2742  1 
02740  0 
41366  1 
C2766  1 
74212  0 
C2712  1 
45325  1 
11001  0 
02742  1 
52361  1 
02722  1 
53512  1 
77600  1 
2567Q  I 
60325  0 
02756  1 
C0C47  1 
41325  0 
00041  1 
02740  0 
56257  1 
20201  0 
56225  1 
11005  1 
C0045  0 
00031  0 
63400  0 
25674  0 
50021  1 
11003  1 
25674  0 
75366  0 
C2755  1 
77614  I 
C4272  1 


STQ  SETPD 
RTN7R 
0 

BCV 

+ 1 

VLCAC  POVL 
RVEC 
VVEC 

CALL 

PARAM 
60V  DLOAO 

CQGACVFL 
Dl/32 
CSU  OMP 

PIA 
P 

SORT  DMP 
COGA 
SL4  VXSC 
U2 

POOL  DSU 

Dl/64 

RIA 

VXSC  VSU 
URl 

VSL4  UNIT 
BOV 

CIRCULAR 
POOL  NORM 

ROES  IREC 
XI 

POOL  DMP 
R1 
P 

SL*  DDV 

0,1 

DSU  OOV 

Dl/16 

360 

STORE  COSF 
eOV  DSC 

BADR2 

eCSU  BMN 
01  /4 
BADR2 

SORT  SIGN 

SGKRCCT 

CLEAR 

APSESW 


17:53  CECo  19,1960  SKIPPFR  elOl  PAGE  1192 


USER'S  PAGE  NCe  E5  S3 

PL  AT  0 

PL  AT  6 

PL  AT  0 


PL  AT  6 

PL  AT  0 

00=UNIT(ECC)  (+31  PL  AT  6 

36D=ECC  (+31 

PL  AT  8 

PL  AT  6 


36C=ECC  (+3) 
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L CONIC  SUBROUTINES 


165A 

1655 

1656 

1657 

1658 
1650 
1660 


REF  0 LAST  U9I 

REF  2 LAST  1102 


12.3640 

12.3641 
12f 3642 
12  ,3643 

12.3644 

12.3645 

12.3646 


76561  1 TERMNVEC  VXSC 
02674  0 

63235  0 VXV 

00001  0 

53361  0 VXSC 

00031  0 

41572  1 VSLl 


VSLl 

UN 

POVL 

DO 

VAO 

COSF 

PUSH 


166J 

1662  REF  10  LAST 

16622  REF  1 

16624 

16625 

1663  REF  9 LAST 

1664  REF  11  LAST 

1665 

1666 

1667  REF  9 LAST 

1668  REF  14  LAST 

1669  REF  13  LAST 

1670 

167)  REF  3 LAST 

1672 

16725  REF  4 LAST 

1673  REF  1 


1192 


1188 

1193 


1193 

1168 

1192 

1109 

1190 


12,3647 

12.3650 

12.3651 

12.3652 
12  ,3653 

12.3654 

12.3655 

12.3656 

12.3657 

12.3660 

12.3661 

12.3662 
12  ,3663 

12.3664 

12.3665 
12  ,3666 
12,3667 


56241  0 
02722  1 
25766  1 
40142  I 
25654  1 
26732  0 
02722  1 
76435  1 
72441  C 
C2674  0 
16730  1 
C2740  0 
77624  1 
24767  1 
77614  1 
02634  1 
24747  C 


DOT  DOV 
URl 
OPl/4 

SRI  BOV 
+ l 

STCVL  CSTH 
UR  1 

VXV  VSLl 
DOT  SLl 
UN 

STCOL  SNTH 
P 

CALL 

GETX 

CLR6D 

SOLNSW 

COMMNCUT 


16734 

16735 

16736  REF  5 LAST  1193 

16737  REF  3 LAST  1180 


12  ,3670 
L2  ,3671 
12,3672 
12  ,3673 


43001  1 
OOOOl  0 
02434  0 
25752  0 


CIRCULAR  SETPO 


SETGO 

0 

SCLNSl^ 

ABTCONIC 


1674 

16741  REF 

16742  REF 

16743  REF 

1675  REF 
16755 

1676  REF 

1677  REF 


3 LAST  325 

3 LAST  1193 

4 LAST  1193 
3 LAST  1169 

2 LAST  1192 
1 


12.3674 

12.3675 

12.3676 

12.3677 

12.3700 

12.3701 

12.3702 
12  ,3  703 


75345  1 BACR2 
24005  1 
00031  n 
14031  C 
24007  0 
77614  1 
C4032  1 
25640  1 


CLCAD  SIGN 

LOOPHALF 
COSF 
STCOL  COSF 

KEPZERO 

SETGO 

APSESR 

TFRMNVEC 
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E5  S3 


VXCH  WITH  OD  PL  AT  0,6 

PL  AT  0 

0D=U2  PL  AT  6 

LIMITS  RESULT  TC  PCSMAX  OR  NEGMAX 

SCALE  BACK  DOWN  TC  NCRMAL 
CLEAR  OVFINO  IF  SET 
CSTH  I+II 

SNTH  l+ll 
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1678 

167Q 

1680 

16605 

1680^ 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 


REF  1 


REF  10 
REF  15 

REF  3 

REF  1 

REF  14 

REF  5 
REF  3 

REF  1 
REF  18 

REF  14 

PEF  15 
REF  59 

REF  19 

REF  1 
PEF  2 

REF  2 

REF  1 
REF  3 


LAST  1192 
LAST  1192 

LAST  1192 

LAST  1192 

LAST  1192 
LAST  640 

LAST  1192 
LAST  1193 

LAST  1194 
LAST  1192 

LAST  1194 

LAST  1194 
LAST  1194 

LAST  1194 


12,3704 
12  ,3705 
12,3706 
12,370? 
12  ,3710 

12. 3711 

12.3712 

12.3713 

12.3714 
L2  ,3715 

12.3716 

12.3717 
12  ,3720 

12.3721 

12.3722 

12.3723 

12.3724 
12  ,3725 

12.3726 

12.3727 
12  ,3730 

12.3731 

12.3732 

12.3733 

12.3734 
12  ,3735 

12.3736 

12.3737 
12  ,3740 

12.3741 

12.3742 

12.3743 

12.3744 
12  ,3745 

12.3746 

12.3747 
12  ,3750 
12,3751 


40220  0 
02710  0 
00001  0 
77600  1 
25711  1 
63375  C 
02655  0 
02744  1 
77624  1 
11030  1 
77600  1 
25720  C 
42405  0 
C2742  1 
75421  1 
11001  0 
C2752  0 
65215  1 
1Q775  0 
00041  1 
72405  0 
C2740  0 
77671  1 
60325  0 
02742  1 
00047  1 
53725  1 
00041  1 
20174  1 
45271  1 
50000  1 
25747  1 
25747  I 
77650  1 
02710  0 
52145  0 
24020  0 
C2710  C 


APSIDES 


GETECC 


INFINAPO 


S7C 

BOV 

VLCAU 

CALL 

BOV 

OMP 

BOSU 

STORE 

CAC 

OMP 

ODV 

PDDL 

PDDL 

ODV 

BOV 

GOTO 

DLOAO 


SETPC 

RTNAPSE 

00 

+ 1 

POVL 

RVEC 

VVEC 

PARAM 

GETECC 

SL4 

PI  A 

SORT 

01/64 

ECC 

PDDL 

D1  /8 

R1 

SLl 

P 

NORM 

RIA 

XI 

SL* 

R1 

0 -5,1 

DSU 

BMN 

INFINAPO 

INFINAPC 

RTNAPSE 

GOTO 

LOPOSMAX 

RTNAPSE 
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USER'S  PAGE  NOc  A? 
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PAGE  1194 
E5  S3 
PL  AT  0 


PL  AT 


6 


PL  AT  0 


PL  AT  2 

PL  AT  0 

OD=RP  (+29  OB  +271  PL  AT  2 

PL  AT  4 

PL  AT  2,0 

RETURNS  WITH  APOAPSIS  IN  M P AC , PER  I APS  IS 


THAT  PL  IS  AT  0, 


gap: 
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L 


CCNIC  SUERCUTINES 


17136 

17137 

17138 

1725 

R1727 


4 LAST  821 

REF  3 LAST  704 
ERASABLE  ASSIGNMENTS 


12  »3752 

12.3753 

12.3754 


77776  1 
C 5642  1 
20607  1 


AETCONIC  EXIT 
TC 
OCT 


PCCDCC 

20607 


LCPCSMAx  EQUALS  LCCPMAX 


R172e  KEPLER  SUBROUTINE 


R1729  INPUT  - 

R1730  RRECT  ERASE  +5 

R1731  VRECT  ERASE  + *= 

R1732  TAUo  ERASE  +1 

R1733  XKEP  ERASE  +1 

R1734  TC  ERASE  +1 

R1735  XPREV  ERASE  +1 

1736 

1737 

1738 

R1739  OUTPUT  - 

R1740  RCV  ERASE  +5 

R1741  VCV  ERASE  +5 

R1742  PC  ERASE  +1 

R1743  XPREV  ERASE  +1 


0016 

0020 

0022 


1/MU  EQUALS  14D 
ROOTMU  EQUALS  16D 
1/ROOTMU  EQUALS  18D 


R 1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 
R1756 
R1757 
R1758 
R1759 
R1760 


CELX  ERASE  +1 

CELT  ERASE  +1 

URRECT  ERASE  +5 

RCNORM  ERASE  *1 

XPREV  EQUALS  XKEP 


0010 

0012 

0014 

002A 

0030 

0032 

0034 

7036 

0040 

0042 

0044 


ALPHA  EQUALS  0D 

XMAX  EQUALS  100 

XMIN  EQUALS  12C 

X EQUALS  200 

XI  EQUALS  240 

S(xn  EQUALS  26C 

XSQCI  XI  ) EQUALS  280 

T EQUALS  300 

R1  EQUALS  320 

KEPCl  EQUALS  340 

KEPC2  EQUALS  360 


R1761  LAMBERT  SUBROUTINE 

R1762  INPUT- 

R1763  RIVEC  ERASE  +5 
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R1764  R2VEC  ERASE 

R 1765  TDESIRED  ERASE 

R1766  GECMSGN  ERASE 

R1767  GLESSU 

R1768  COGA  ERASE 

R1769  NCRMSW 

R1770  UN  ERASE 

R1771  VTARGTAG  ERASE 

R1772  TUEEKIT  ECUALS 


R 1773  OUTPUT  - 

R1774  VTARGET  ERASE  +5 

R1775  VIVEC  EQUALS  MPAC 


USER'S  PAGE  NPo  44  E5  S3 


0 IF  COGA  GUESS  AVAILABLE,  1 IF  NOT 
INPUT  CNLY  IF  GUESSW  IS  ZERC, 

0 IF  UN  TO  BE  COMPUTED,  1 IF  UN  INPUT 
CNLY  USEC  IF  NCRMSW  IS  1 

ONLY  USEC  IF  GUESSR  IS  0 


AVAILABLE  CNLY  IF  VTARGTAG  IS  ZERO* 


R1776 
R1777 
R 1778 
R1779 
R1780 
R1781 
R1782 
R1783 
R 1784 
R1735 
R1786 

1787 

1788 

1769 

R1790 
R1791 
R1792 
R1793 
R1794 
R1795 
R1796 
R 1797 
R1798 
R1799 
R 1600 
R1801 
R18C2 
R1803 
R1804 


DEBR  IS  - 

rtnlamb  erase  +0 

U2  ERASE  +5 

MAGVEC2  ERASE  4] 
UPl  ERASE  45 

R 1 EQUALS  310 

UN  ERASE  45 

SNTH  ERASE  4l 

CSTH  ERASE  4l 

1-CSTF  ERASE  4l 
CSTH-RHO  ERASE  4l 


TlvEEKIT  ECUALS  40C 

P ERASE  41 

COGA  ERASE  4l 

RIA  ERASE  41 

X EQUALS  200 

XSQ  EQUALS  22D 

XI  ECUALS  24C 

S(  XI  ) EQUALS  260 

XSCCIXn  EQUALS  28C 

T • ECUALS  30C 

KEPCl  EQUALS  340 

KEPC2  ECUALS  3bC 

SLOPESR 

SCLNSV* 

OTHERS  - 


0016  COGAMAX 
0010  COGAMIN 
0014  CCCGA 


EQUALS  140  CLOBBERS  1/MU 

EQUALS  80 
ECUALS  12C 


R1805  RVEC  EQUALS  klVEC 

R1806  wee  ERASE  45 

R1807  CCGAFLAG 
R18O0  PVSW 
R1809  INFINFLG 
RIBIO  APSESR 
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R1811 

Riei2 

R1813 

R1814 

R1815 

R1816 

1817 

R18ia 

R1819 

R1620 


360SW 

P 7NTT 

ECC 

R7MR 

RTNAPSE 

R2 


EQUALS  RTNLAf'B 
ERASE  +1 
EQUALS  RTNLAKB 
EQUALS  PTNLAKB. 
EQUALS  MAGVEC2 


RTNPRM  ERASE  +0 
SGNRCCT  ERASE  +0 
ROESIREO  ERASE  +1 


CCSF  EQUALS  24C 


R1821  ITERATOR  SUBROUTINE 


R1822 

1823 

1824 
Rie25 

1826 

1027 

1828 

R1829 

R1830 

1831 


CPOEPS^i 

INOEP  ERASE  +1 


CELDEP  ERASE  +1 
CEPREV  ERASE  +l 


0016 

OCIO 

0014 

0026 

0036 


0050 


MAX  FCUALS  14C  CLOBBERS  1/MU 

MIN  EQUALS  80 


CELINCEP  EQUALS  12C 
ITERCTR  EQUALS  220 
CEP  EQUALS  30D 


TVnEEKIT  equals  40C 


R1832  MCRE  KfPLER 
R1833  FFSILCM  ERASE  +1 


R1834  MCRE  LAMBERT 

R1835  TERRLAME  EQUALS  DELDEP 
R1836  TPREV  EQUALS  OEPREV 


R1837  EPSILONL  EQUALS  EPSILONT 


DOUBLE  PRECISION  UOPO 
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R0006 
R0007 
R0008 
R0  309 
ROOll 
R0013 
ROOTS 
R0017 
R0018 
R0019 
R0021 
R0023 
R002  5 
R0026 
R0027 
R0029 
R0031 
R0032 
R003A 
R0035 
R0036 
R003d 
ROOAO 
R0042 
R00A3 
R00^4 
R00A5 
R0046 
R00‘V7 
ROOA^g 
R0050 
R0051 
R0052 
R00  53 
R0055 
R0057 
R0059 
R0061 
R0063 
R0065 
R0067 
R0069 
R0070 
R0071 
R0073 
R0075 
R0076 
R0077 
RO079 
R0081 


loO  INTRODUCTION 


FROM  A USERS  POINT  OF  VIEW,  CR6ITAL  INTEGRATION  IS 
PROGRAMo  THE  SAME  ENTRANCES  TC  TFE  PROGRAM  WILL  BE 
OUTPUT  kILU  STILL  BE  VIA  THE  PUSHLIST®  TFF  PRIMARY 
TERMINATING  INTEGRATION  AT  A SPECIFIC  FINAL  RADIUS 
SIDE  THE  LUNAR  SPHERE  OF  INFLUENCE® 


ESSENTIALLY 
MAINTAINED, 
DIFFERENCES 
AND  THE  GIF 


THE  SAME  AS  THE  278  INT 
THE  SAME  stalling  ROUTI 
TO  A USER  INVOLVE  THF  A 
FERENCE  IN  STATE  VECTCF 


EGRAT  ION 

NE  WILL  8E  USED  AND 
COED  CAPABILITY  OF 
SCALING  IN5ICE  AND  OUT- 


IN  ORDER  TO  MAKE  THE  CSM(L£M)PREC  AND  CSM ( LEM  I CON  I C ENTRANCES  SIMILAR  TO  FLIGHT  278,  THE  INTEGRATION  PROGRAM 
WILL  ITSELF  SET  THE  FINAL  RADIUS  (RFINAL)  TO  0 SO  THAT  REACHING  THF  DESIRED  TIME  ONLY  WILL  TERMINATE 
INTEGRATION®  THE  DP  REGISTER'  RF-INAL  MUST  BE  SET  BY  USERS  OF  INTEGRVS  AND  INTEGRV,  AND  MUST  BE  DONE  AFTER  THE 
CALL  TC  INTSTALLe 


WHEN  THE  LM  IS  ON  THE  LUNAR  SURFACE  (INDICATED  BY  LUNAR  SURFACE  FLAG  SET)  CALLS  TC  LEMCONIC,  LEMPREC,  AND 
INTEGRV  WITH  VINHLAG  = 0 WILL  RESULT  IN  THE  USE  OF  THE  PLANETARY  INERTIAL  ORIENTATION  SUBRCUTINFS  TC  PROVIDE 
BOTH  THE  LMS  POSITION  AND  VELCCITY  IN  THE  REFERENCE  COORDINATE  SYSTEM, 

THE  PROGRAM  WILL  PROVIDE  OUTFUT  AS  IF  INTEGRATION  WAS  USED®  THAT  IS,  THE  PUSHLIST  WILL  PE  SET  AS  NOTED  BELOW  AND 
THE  PERMANENT  STATE  VECTOR  UPDATED  WHEN  SPECIFIED  BY  AN  INTEGRV  CALLo 


USERS  CF  INTEGRVS  DESIRING  INTEGRATION  (INTYPFLG  = 0>  SHOULD  NCTE  THAT 
IN  LUNAR  ORBIT  IS  TIME  DEPENDENT®  THEREFORE,  THE  USER  SHOULD  SUPPLY  AN 
TIME  ANC  THE  DESIRED  TIMb  (TCECII  ALSO  AT  SOME  REAL  TIME®  FOR  CCMC  ,, 
AS  THE  INITIAL  TIME  AND  DELTA  TIME  AS  THE  CESIREC  TIME® 


THE  OBLATBNFSS  PERTURBATION  COMPUTATION 
INITIAL  STATE  VECTOR  VALID  AT  SOME  REAL 
NTEGRATION,,  THE  USER  MAY  STILL  USE  ZERO 


2oO  GENERAL  CESCRIPTION 


THE  INTEGRATION  PPCGRAM  OPERATES  AS  A CLOSED  INTERPRETIVE  SUBROUTINE  AND  PERFORMS  THESE  FUNCTIONS 

U INTEGRATES  (PRECISICN  OR  CCMC)  EITHER  CSM  OR  LM  STATE  VECTOR 

2)  INTEGRATES  THE  W-MATRI> 

3)  PERMANENT  OR  TEMPORARY  UPCATE  CF  THE  STATE  VECTOR 

THERE  ARE  SIX  ENTRANCES  TO  THE  INTEGRATION  PROGRAM®  FOUR  OF  THESE  (CSMPR6C,  LfcMPREC,  CSMCCMC,  LEMCONIC)  SET 
ALL  THE  FLAGS  REQUIRED  IN  THE  INTEGRATION  PROGRAM  ITSELF  TO  CAUSE  THE  PRECISION  OR  CONIC  INTEGRATION  (KEPLER)  OF 
THE  LM  UR  CSM  STATE  VECTOR,  AS  THE  NAMES  SUGGEST®  ONE  ENTRANCE  (INTEGRVS)  PERMITS  THE  CALLING  PROGRAM  TO 
PRCVIDE  A STATE  VECTOR  TO  BE  INTEGRATED®  THE  CALLING  PROGRAM  MUST  SET  THE  FLAGS  INDICATING  (1)  PRECISION  OR 
CONIC  INTEGRATION,  (2)  IN  CR  CUT  OF  LUNAR  SPHERE,  (?)  MIOCCURSE  OR  NOT,  AND  THE  INTEGRATION  PROGRAM  COMPLETES 
THE  FLAG  SETTING  TO  BYPASS  W-MATRIX  INTEGRATION®  THE  LAST  ENTRANCE  (INTEGRV,  USED  IN  GENERAL  EY  THE 
NAVIGATION  PROGRAMS)  PERMITS  THE  CALLER  TO  SET  FIVE  FLAGS  (NOT  MOONFLAG  UR  MIOFLAG)  BUT  NDl  TC  INPUT  A STATE 
VECTOR®  ANY  PROGRAM  WHICH  CALLS  INTEGRVS  CP  INTFGPV  MUST  CALL  INTSTALL  BEFORE  IT  SFTS  THE  INTEGRATION  FLAGS 
AND/GR  STATE  VECTOR® 

THREE  SETS  OF  A2  REGISTERS  ANO  2 FLAGS  ARE  USED  FOR  THE  STATE  VECTORS®  TWO  SETS,  WHICH  MAY  NOT  BE  OVERLAYED,  ARE 
USED  FOB  THE  PERMANENT  STATE  VECTORS  FOR  THE  CSM  ANO  LM®  THE  THIRD  SFT,  WHICH  MAY  BE  OVERLAYED  WHFN  INTEGRATION 
IS  NOT  BEING  DCNE , IS  USED  IN  THE  COM  PUT AT  I CNS o 


THE  PERMANENT 
THE  PERMANENT 
SETS  STATEFLG 


STATE  VECTORS  WILL  EE  PERIODICALLY 
STATE  VECTORS  WILL  ALSO  BE  UPDATED 
(THE  NAVIGATION  PROGRAMS  P20,  P22® 


UPDATED  SO  THAT  THE  VECTORS  WILL  NCT  BE  ELDER 
WHENEVER  THE  W-MATRIX  IS  INTEGRATED  OR  WHEN  A 


THAN  U TIMESTEPS, 
CALLER  OF  INTEGRV 
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R0082 

R0083 

R006A 

R0085 

R0066 

Rooae 

R0090 

R0092 

R0094 

R0096 

R0097 

R0098 

R0099 

ROlOO 

ROlOl 

R0103 

R0105 

R0107 

R0109 

ROllO 

ROlli 

R0112 

R0113 

ROllA 

R0115 

R0117 

R0119 

R0i21 

R0122 

R0123 

R012A 

R0125 

R0126 

R0127 

R0128 

R0129 

R0130 

R0131 

R0132 

R0133 

R013A 

R0135 

R0136 

R0137 

R0138 

R0139 

R0140 

ROl^^l 

R0142 

R0143 


APPENDIX 


B OF  THE  USERS  GLIDE  LISTS  THE  STATE  VECTCR  CUANTITIESo 


2<.l  RESTARTS 

PHASE  CHANGES  HILL  BE  MADE  IK  THE  INTEGRATION  PROGRAM  ONLY  FOR  THE  INTEGRV  ENTRANCE  n«Ee»  WHEN  THE  W-MATRIX  IS 
INTEGRATED  OR  PERMANENT  STATE  VECTOR  IS  UPDATECo)  THE  GROUP  NUMBER  USED  WILL  BE  THAT  FOR  THE  P?r-25  PROGRAMS 
(loEor  GR0UP2J  SINCE  THE  INTEGRV  ENTRANCE  HILL  CKLY  BE  USED  BY  THESE  PROGRAMSo  IF  A RESTART  OCCURS  DURING  AN 
INTEGRATION  OF  THE  STATE  VECTOR  CNLY,  THE  RECOVERY  WILL  BE  TO  THE  LAST  PHASE  IN  THE  CALLING  PRCGRAMo  CALLING 
PROGRAMS  WHICH  USE  THE  INTEGRV  CR  INTEGRVS  ENTRANCE  OF  INTEGRATION  SHOULD  ENSURE  THAT  IF  PHASE  CHANGING  IS  DONE 
THAT  IT  IS  PRIOR  TO  SETTING  THE  INTEGRATION  INPUTS  IN  THE  PUSHLIST, 

THIS  IS  BECAUSE  THE  PLSHLIST  IS  LCST  CURING  A RESTART* 

2*2  SCALING 


THE  INTEGRATION  ROUTINE  WILL  MAINTAIN  THE  PERMANENT  MEMORY  STATE  VECTORS  IN  THE  SCALING  AND  UNITS  DEFINED  IN 
APPENDIX  B OF  THE  USERS  GUIDE*  THE  SCALING  OF  THE  OUTPUT  POSITION  VECTOR  DEPENDS  ON  THE  ORIGIN  OF  THE  COORDINATE 
SYSTEM  AT  THE  DESIRED  INTEGRATION  TIME*  THE  CCORCINATE  SYSTEM  TRANSFORMATION  WILL  BE  DONE  AUTOMATICALLY  ON 
MULTIPLE  TIMESTEP  ENCKE  INTEGRATION  ONLY*  THUS  IT  IS  POSSIBLE  TO  HAVE  OUTPUT  FROM  SUCCESSIVE  INTEGRATIONS  IN 
DIFFERENT  SCALING* 

HOWEVER,  RATT,  VATT  WILL  ALWAYS  BE  SCALED  THE  SAME* 

3*0  INPLT/OUTPLT 


PROGRAM  INPUTS  ARE  THE  FLAGS  DESCRIBED  IN  APPENDIX  A AND  THE  PERMANENT  STATE  VECTOR  QUANTITIES  DESCRIBED  IN  AP- 
PENDIX B Of  THE  USERS  GUIDE,  PLUS  THE  DESIRED  TIME  TO  INTEGRATE  TO  IN  TDECl  (A  PUSH  LIST  LOCATION)* 

FOR  INT'EGRVS,  THE  RCV.VCV,  TET  CF  THE  TEMFCRARY  STATE  VECTOR  MUST  BE  SET,  PLUS  MOONFLAG  AND  MIDFLAG 

FCR  SIMULATION  THE  FOLLOWING  QUANTITIES  MUST  BE  PRESET  


RRECTCSMILEM)  - RECTIFIED  POSITION  VECTCR 


METERS 


EARTH  MCCN 
29  27 

2 2 


VRECTCSM(LEM)  - RECTIFIED  VELOCITY  VECTCR 


7 5 

M/CSEC  ? 2 


28  28 

TETCSM(LEM)  - TIME  STATE  VECTOR  IS  VALID  CSEC  2 2 

CUSTOMARILY  0,  BUT  NOTE  LUNAR 
CR0IT  CEFENCENCE  CN  REAL  TIME, 


OELTAVCSM(LEM)  - POSITION  DEVIATION 
0 IF  TCCSMILEM)  = 0 


22  18 
METERS  2 2 


NUVCSMILEMI  -VELOCITY  DEVIATION 
n IF  TCCSMILEM)  = 0 


3 -1 

M/CSEC  2 2 
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ROIAA 
R01A5 
R01A6 
R01A7 
ROlAe 
R01A9 
R0150 
R0151 
R0152 
R0153 
R015A 
R0155 
R0156 
R0157 
R0158 
R0159 
R0160 
R0161 
R0162 
R0163 
R0164 
ROlfcS 
R0166 
R0167 
R0168 
ROl  69 
R017n 
R0171 
R0172 
R0173 
R0174 
ROl  75 
R0176 
R0177 
RC178 
R0179 
R0180 
R0161 
R0182 
ROl  83 
ROiaA 
KOI  85 
R0186 
80187 
R0188 
R0189 
R0190 
R0191 
R0192 
R0193 


29  27 

RCVCSMILEM)  - CONIC  POSITION  METERS  2 2 

ECUALS  RRECTCSMI LEM)  IF 
TCCSM  LE  N ) = 0 

7 5 

VCVCSM(LEM)  -CONIC  VELCCITY  M/CSEC  2 2 

EQUALS  VRECTCSM.ILEM  ) IF 
TCCSMILEM  = 0 


28  28 

TCCSMILEMI  - TIME  SINCE  REC T I F I C AT  I CN  CSECS  2 2 

CUSTOMARILY  0 


XKEPCSMILEM) 


RCOT  CF  KEPLERS  EQUATION 
0 IF  TCCSM(LEM)  = 0 


1/2 

M 


17  16 

2 2 


CMCCNFLG 

CMIOFLAG 

LMOCNFLG 

LMI0FL6 


PERMANENT  FLAGS  CCRRESPCNC ING 
TO  HOONFLAG  AND  KIOFLAG 
C = CSM,  L = LM 


0 

0,1 

0 


0,1 


SURFFLA6  - LUNAR  SURFACE  FLAC- 


C,1  0,1 


IN  ACCITION,  IF  (LICMIDFLAG  IS  SET,  THE  INITIAL  INPUT  VALUES  FCP  LUNAR 
SCLAR- EPHEMERIOES  SUBROUTINE  ANC  PLANETARY  INERTIAL  ORIENTATION  SUB- 
ROUTINE MUST  BE  PRESET* 

OLTPLT 

AFTER  EVERY  CALL  TO  INTFGRATICN 

EARTH  MOON 
29  29 

METERS  2 2 

7 7 

M/CSEC  2 2 

28  28 

2 2 
29  27 

METERS  2 2 

7 5 

M/CSEC  2 2 

3 2 36  30 

M /CS  2 2 


OC  RATT  POSITION 

6C  VATT  VELOCITY 

12D  • TAT  TIME 

14C  RATTl  POSITION 

20D  VATTl  VELOCITY 

260  MUIP)  MU 


XI 


MUTABLE  ENTRY 


-2  -100 


X2 

X2 


COORDINT 

COORDINATE  SYSTEM  CPIGEN 
(THIS,  NOT  MCCNFLAG,  SHOULD  BE 


0 2 


PAGE  1201 


RC194 

R0195 

R0196 

R0197 

Rni98 

K0199 

R0200 

R020J 

R0202 

R0203 

R020A 

R0205 

R0206 

R0207 

R0208 

R0209 

R02.10 

R0211 

R0212 

R0213 

R021A 

RC215 

R0216 

R0217 

R0218 

R0219 

R0220 

R0221 

R0222 

R0223 

R0224 

R0225 

R0226 

R0227 

R022fi 

R0229 

R0230 

R0231 

R0232 

R0233 

R0234 

R0235 

R0236 

R0237 

R0238 

R0239 

R02A0 

R0241 

R0242. 

R0243 
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INTEGRATION  INITIALIZATION 

USED  TC  DETEFMNE  CPIGINe  ) 

IN  ADOITICN  TO  THE  AECVE,  THE  PERMANENT  STATE  VECTOR  IS  UPDATED  WHENEVER 
STATEFL6  WAS  SET  AND  VsHENEVER  A W-MATRIX  IS  TO  BE  INTEGRATECo  THE  PUSH 
CCUNTER  IS  SET  TO  0 AND  OVERFLOW  IS  CLEARED  BEFCRE  RETURNING  TC  THE 
CALLING  PRCGRAMo 

4oO  CALLING  SEQUENCES  AND  SAMPLE  CODE 

A>  PRECISION  ORBITAL  INTEGRATICN*  C SMPREC , LEMPREC  ENTRANCES 
L-X  STCRE  TIME  TC  95T5791T5  T 95  PUS  L9ST  (T4531) 

L CALL 

L + 1 CSMPREC  (CR  LEMPREC) 

L+2  RETURN 

INPUT  28 

TCECl  (PC  32  0 TIME  TC  INTEGRATE  TC® . o CENT  1 SEC  OND  S SCALED  2 
OUTPLT 

THE  DATA  LISTED  IN  SECTICN  3®0  PLUS 

R(3VV  POSITION  VECTOR  CF  VEHICLE  WITH  RESPECT  TO  SFCONOARY 
BOOYoo®  METERS  B-29  CNLY  IF  MIOFLAG  = OIMOFLAG  = I 
B)  CCMC  INTEGRATICNo  CSMCCMC,  LEMCONIC  ENTRANCES 
L-X  STCRE  TIME  IN  PUSH  LIST  (TCECl 1 

L CALL 

L + 1 CSMCONIC  (CR  LEMCCMC  I 

INPUT/OUTPUT 

SAME  AS  PRECISION  INTEGRATION,  EXCEPT  RQVV  NOT  SET 
O INTEGRATE  GIVEN  STATE  VECTCRo  INTEGRVS  ENTRANCE 
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CALL 

VLCAO 

STOVL 

STOOL 


INTSTALL 


INPUT 

RCV 

VCV 

TET 


POSITION  VECTOR 
RCV 

VELCCITY  VECTOR 
VCV 

TIME  STATE  VECTOR  VALID 
STOOL  TET 

FINAL  RADIUS 
STORE  RFINAL 
SET(CLEAR)  SET(CLEAR) 
INTYPFLAG 
MCCNFLAG 

SEKCLEAR  ) CLOAD 

CES  IREC  TIME 
STCALL  TOeCl 

INTEGRVS 

POSITION  VECTOR 
VELCCITY  VECTOR 
TIME  CF  STATE  VECTCB(MAY  = 0) 


METERS 
M/CSEC 
CSEC  B-20 
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R0244 
R02A5 
R0246 
R02A7 
R024e 
R0249 
R02  50 
R0252 
R0253 
R0254 
R0255 
R0256 
R0257 
R0258 
R0259 
R0260 
R0261 
R 0262 
R0263 
R0264 
R0265 
R0266 
R0267 
R026e 
R0269 
R0270 
R0271 
R0272 
R0273 
R0274 


0) 


TCeCl  TIME  TO  INTEGRATE  TO  CSEC  0-26  (PD  320) 

(MAY  BE  INCREMENT  IF  TET=0» 

OUTPUT 

SAME  AS  FCR  FRECISICN  CR  CCMC  INTEGRATION, 

DEPENDING  ON  INTYPFLGo 
INTEGRATE  STATE  V ECTOR o I NTGR V ENTRANCE 

L-X  STORE  TIME  IN  PUSH  LIST  (TCECIXMAY  8F  DONE  AFTER  CALL  TO  INTSTALL) 
L-8  CALL 


L-7 

L-6 

L-5 

L-4 


L-2 

L-1 

L 

L + l 
L*-2 
L+3 
L+4 
L 

L+l 

L+2 


SEKCLEAR) 

SET(CLEAR ) 

SET 

STCALL 

CALL 

RETURN 


SETICLEAR) 

VINTFLAG 

I NTY  FFLAG 

SEKCLEAR) 

OIMCfLAG 

D6CR9FLG 

OLCAO 

STATEFLG 

FINAL  RACo 

RFINAL 

INTEGRV 

miEGRV 


1=CSM,  0=LM 
1=C0N’IC»  0=PRECISI0N 

1=W-MATRIX,  0=NO  W-MATRIX 
1=9X9,  0=6X6 

DESIRE  PERMANENT  UPDATE 
CF  STATE  VECTCR 


NCRMAL  USE — WILL  UPDATE  STATE 
VECTOR  IF  OIMaFLAG=lo(STATEFLG  IS 
ALWAYS  RESET  IN  INTEGRATION  AFTER 
IT  IS  L;SED«  I 


INPUT 

TOECl  (PD  32CI  TIME  TC  INTEGRATE  TC  CSEC  B-28 
OUTPUT 

SAME  AS  FCR  FRECISICN  CR  CCMC  INTEGRATION 
THE  PROGRAM  WILL  SET  MCCNFLAG,  MIOFLAG  DEPENDING  ON 
THE  PERMANENT  STATE  VECTCR  REPRESENTATION. 


02741 

02742 
02  743 

02744 

02745 

0275 

0276 
02  77 

0278 

0279 
02  80 

0280 
0201 
0262 
0263 

02831 

02832 
0284 
02  66 


REF  3 LAST 

REF  7 LAST 
REF  3 LAST 
REF  104  LA.ST 

REF  10  LAST 
REF  41  LAST 
REF  8 LAST 
REF  2 LAST 

REF  72  LAST 
REF  22^  LAST 

REF  2 LAST 
REF  1 
REF  31  LAST 
REF  50  LAST 


11  ,2404 
237  13,2000 

13,2  602 
977  E3,1554 

238  TO  240; 
1147  13,2602 

13,2603 
776  13,2604 

961  13,2605 

1202  £3,1554 

241  13,2606 

13,2607 
U26  13,2610 

1184  13,2611 

13,2612 
300  13,2613 

13  ,2614 
973  13,2615 

970  13,2616 


24  36# 

0 5353  I STATEINT 
00052  0 
3 5017  1 
0 5105  0 

02611  0 
26C63  0 
C 5261  1 

0 6042  1 STATINTl 
47014  1 
04712  1 
26652  1 
21  574  1 
00041  I 


BANK  11 

SETLOC  INTIMT 
BANK 

EeANK=  RRECTCSM 
CCLNT*  $$/lNTIN 
TC  PHASCHNG 

CCT  00052 
CAF  PRI05 
TC  FINDVAC 

eBANK=  RRECTCSM 
2CA0R  STATINTl 

TC  TASKCVER 

TC  INTPRET 

BCN  RTB 

OUITFLAG 
NO  INT 
LOADTIME 
STORE  TDEC) 


KI  LL 


INT6GPATICN 


UNTIL  NEXT 


PfTOo 


GAP 
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0323 

032A  REF  28 

0325 

03251  REF  6 

0326  REF  7 

0327 

0328  REF  2 
03282  REF  1 
0356 

0356 

0404 

0405  ' REF  4 

0408  REF  105 

0409 

0411 

0412  KEF  2 

0413  REF  4 

0414  REF  4 

0415  REF  3 

0415 

0416  REF  143 

0426 

0427  REF  5 

0428  REF  15 

0429 

0430  REF  14 
04301  REF  8 
0430  2 

04303 

04304  REF  106 

04305 


LAST  1147 

LAST  713 
LAST  589 

LAST  231 


LAST  589 
LAST  1202 


LAST  240 
LAST  728 
LAST  299 
LAST  241 

LAST  969 

LAST  1203 
LAST  782 

LAST  658 
LAST  589 


LAST*  1 203 


13,2€17 

I3i2e20 

13.2621 

13.2622 
13  ,2623 

13.2624 

13.2625 
13  ,2626 
13,2627 

13.2630 

13.2631 

13.2632 
13  ,2633 

13.2634 

13.2635 
13  ,2636 
13,2637 
E3,1626 

13.2640 

13.2641 

13.2642 

13.2643 

13.2644 
13  ,2645 

13.2646 

13.2647 

13.2650 

13.2651 
13  ,2652 

13.2653 

13.2654 


77624  I 
27410  1 
45014  0 
CdC76  I 
26643  1 
52014  C 
C14^0  1 
26026  V 
C0CC3  1 
25140  0 
77414  0 

01672  0 
0 5353  1 

20032  1 
O 0C06  1 
3 2630  0 
C 5277  0 

C2602  1 
26063  0 
0 5155  0 
43014  0 
01472  1 

01673  1 
43C14  0 
C1676  1 
Q1675  1 
77616  0 
77776  I 

C 5353  1 
00C02  0 


CALL 

INTSTALL 
SET  CALL 

NCDCFLAG 
SETIFLGS 
SET  GCTC 

POCHFLAG 

STATEUP 

60CSECS  2DEC  60000 


ENCINT  CLEAR  EXIT 

STATEFLG 
TC  PHASCHNG 

CCT  20032 
EXTEND 

CCA  600SECS 
TC  LCN6CALL 

eBANK=  RRECTHI S 
2CADR  STATEINT 


TC 

SETIFLGS  SFT 


CLEAR 


RVQ 

NOINT  EXIT 
TC 
OCT 


ENCOFJOB 

CLEAR 

STATEFLG 

INTYPFLG 

CLEAR 

01  MOFLAG 

D6CR9FLG 


PhASChNG 

00002 


04306  REF  98 

04307  REF  3 

04308  REF  144 


13.2655  0 5516  0 

13.2656  C0221  0 

13.2657  0 5155  0 


TC  DOWNFLAG 
ADRES  QUITFLAG 
TC  ENOOFJOB 


R0431 


ATOPCSM  TRANSFERS  RRECT  TO  RRECT 


+41  TO  RRECTCSR  TC  RRECTCSM 


R0432  CALL ING  SEQUENCE 

R0433  L CALL 

R0434  L+l  ATOPCSM 


R0435  NCPMAL  EXIT  AT  L+2 


0436 

0437 

0438 

0439 

0440 

0441 


REF  27 
REF  2 

REF  7 
REF  3 


13,2660 
LAST  1183  13,2661 

LAST  1151  13  ,2662 

13,2663 
LAST  713  13,2664 

LAST  1151  13,2665 


47020 

C0051 

26673 

45014 

04063 

26114 


0 

0 

1 

0 

0 

1 


ATCPCSM  STC 


SFT 


MOVEAC  SM 
CALL 

CMOCNFLG 

SVDWNl 
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GAP  : 

L 

0A42 

04AA- 

0445 

0446 

0447 

0448 

044Q 

0450 

0451 

0452 

0453 

045^ 

0455 

R0456 

R0457 

R0458 

RC459 

R0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

R0464 
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REF  14 
REF  28 
REF  8 
REF  29 
REF  I 
REF  7 
REF  3 
REF  6 
REF  4 
REF  9 
REF  5 
REF  3 
REF  56 


LAST  782 
LAST  1203 
LAST  1203 
LAST  1204 

LAST  111 
LAST  1204 
LAST  1168 
LAST  120A 
LAST  1202 
LAST  1204 
LAST  1203 
LAST  1177 


13 ,2667 

13.2670 

13.2671 

13.2672 

13.2673 
13  ,2674 

13.2675 

13.2676 

13.2677 
13,  2700 

13.2701 

13.2702 

13.2703 


C0C51  0 
04223  0 
00051  0 
C 3035  1 
55*500  1 
51*500  0 
2 1502  1 
51' 500  0 
55*554  C 
11*500  1 
1 2674  \ 
C 6064  0 


BON 


MOVEACSM  TC 
TS 

INDEX 

CA 

INDEX 

TS 

CCS 

TCF 

TC 


C LRGC 

MOONFLAG 

S2 

CMCONFLG 

S2 

SETBANK 

DIFEOCNT  INITIALIZE  INDEX 

01  FECCNT 

RRECT 

DIFEOCNT 

PRECTCSP 

DIFEOCNT  IS  TRANSFER  COMPLETE 

MOVEACSM  *1  NO-LOOP 

DANZIG  COMPLETE-  RETURN 


. PTOACSM  TRANSFERS  RPECTCSM  TC  RRECTCSM 


♦41  TO  RRECT  TO  RRECT  +41 


CALLING  SEQUENCE 
L CALL 

PTOACSM 


NCPMAL  EX  IT  AT  L + 2 


REF  2 
REF  9 
REF  1 

REF  15 
REF  5 


REF  16 
REF  6 


REF  2 
REF  6 
REF  7 
PEF  10 
REF  8 
REF  7 
REF  9 
REF  3 
REF  57 


LAST  1151 
LAST  1204 


LAST  1204 
LAST  1150 


LAST  1204 
LAST  .120-4 


LAST  1204 
LAST  1204 
LAST  1204 
LAST  1204 
LAST  1204 
LAST  1204 
LAST  1204 
LAST  1204 
LAST  1204 


13  ,2704 

13.2705 

13.2706 
13  ,2707 

13.2710 

13.2711 

13.2712 

13.2713 
13  ,2714 

13.2715 

13.2716 
13  ,2717 

13.2720 

13.2721 

13.2722 

13.2723 
13  ,2724 

13.2725 

13.2726 

13.2727 

13.2730 

13.2731 

13.2732 


43034  1 
26722  1 
04303  0 
26715  0 
66214  C 
00263  0 
02031  1 

ceooo  1 

77616  0 
66214  0 
00063  1 
02031  1 
COC02  0 
77616  C 

0 3035  1 
55*5CO  1 
51*500  0 
3 1 554  1 
51'50C  0 
55'502  0 
U'SCC  1 

1 2723  1 
r 6064  0 


PTOACSM 


CLRMQON 


SETMOON 


MCVEPCSM 


RTB  BON 

MOVEPCSM 
CMOONFLG 
SETMOON 
CLEAR  SSF 

MOONF  LAG 
PBCCY 
0 

RVQ 

SET  SSP 

MOCNF  LAG 
PBODY 
? 

RVQ 

TC  SETBANK 

TS  DIFEOCNT 
INDEX  OIFEQCNT 
CA  RRECTCSM 
INDEX  DIFEOCNT 
TS  RRECT 

CCS  DIFECCNT 
TCF  MOVEPCSM  +1 
TC  DANZIG 


AT0PL6M  TRANSFERS  RRECT  TO  RRECT  +41  TO  RRECTLEM  TC  RRECTLEM  +^.l 
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0485 

0486 

0487 

0488 
0469 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 
049  8 

0499 

0500 

0501 

0502 

0503 

0504 


PEF 

REF 

REF 

REF 

REF 

REF 

PEF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST  582 
LAST  1150 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


1204 

1205 
120  5 
1205 

1204 
120  4 

1205 

1204 

1205 
112 

I2('5 

1205 

1204 


13f 2733 

13.2734 

13.2735 

13. 2736 
13,27“37 

13.2740 

13.2741 
13  ,2742 

13.2743 

13.2744 

13.2745 

13. 2746 

13.2747 

13.2750 

13. 2751 
13  ,2752 

13.2753 

13.2754 

13.2755 

13.2756 


47020  0 
00051  0 
26746  0 
45C14  C 
04064  1 
26070  1 
43C14  0 
00303  1 
00051  0 
C4224  1 
00051  0 
C 3C35  1 
55*500  1 
51*  500  0 
3 15C2  1 
51*500  0 
55*626  0 
11*500  1 
1 2747  0 
C 6C64  0 


ATCPLEM  STC 


MOVEALEM  TC 


CCS 

TCF 


RTB 

S2 

MOVEALEM 

CALL 

LMOONF  LG 

SVCWN2 

CLRGC 

MOONFLAG 

S2 

LMDONF LG 
S2 

SF.TBANK 

DIFEOCNT 

01 FECCNT 

RRECT 

DIFEOCNT 

RRECTLEM 

DIFEOCNT 

MOVEALEM 

DANZIG 


R0505  PTOALER  TRANSFERS  RRECTLEM  TC  RRECTLEM  +41  TO  RRECT  TO  PRECT  +41 


0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST  836 
LAST  1150 


LAST  1205 
•LAST  1204 


LAST  1205 
LAST  1205 
LAST  1205 
LAST  1205 


59  LAST  1205 


13,2757 
13,2760 
13  ,2761 

13.2762 

13.2763 

13.2764 

13. 2765 

13.2766 

13.2767 
13, 2770 
13  ,2771 

13.2772 

13.2773 
13  ,2774 

13.2775 

13.2776 

13.2777 


47014  1 
C4307  1 
27000  1 
2676?  0 
52C14  0 
04304  1 
26715  C 
26710  0 

0 3035  1 
55*500  1 
51*500  0 
3 1626  1 
51'500  0 
55*  502  0 
ll'SOO  1 

1 2770  1 
C 6064  0 


PTCALEM  BCN 


MCVEPLER  TC 


CCS 

TCF 


RT  e 

SURFFLAG 

USEPIOS 

MOVEPLEM 

GOTO 

LMOONFLG 

SETMCCN 

C LRMOON 

SETBANK 

D1  FEQCN'T 

DIFEOCNT 

RRECTLER 

DIFEOCNT 

RRECT 

01 FEQCNT 

MOVEPLEM 

DANZIG 


0523 

0524 

0525  REF  15 

0526 

0527  REF  5! 

0528  REF  13 

0529  REF  1 


13,3000 
13  ,3001 
LAST  1133  13,3002 

13,3003 
LAST  1202  13  ,3004 

LAST  782  13,3005 

13,3006 


77201  1 
00001  0 
02023  I 
41525  0 
00041  1 
15517  C 
27733  0 


USEPIOS 


SETPD  VLOAO 
0 

RLS 

POOL  PUSH 
TOECl 

STOOL  TET 
5/8 
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0530 

0531 

0532 

0533 
C53<^ 
0535 
0336 

0537 

0538 
05381 

0539 
OSAO 
05AI 
05A2 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 
0552 
C553 

0554 

0555 

0556 

0557 


REF 

REF 

REF 


REF 

REF 

REF 

KEF 

REF 


REF 
REF 
REF 
REF 
REF 
REF 
REF  328 


LAST  37 
LAST  1205 


LAST  1205 
LAST  1206 


17  LAST  1206 


LAST  1150 


LAST  1204 
LAST  1150 


LAST  1123 


11  LAST  1204 
10  LAST  657 


13, 3007 

13.3010 

13.3011 
13,3C12 
13  ,3013 

13.3014 

13.3015 
13  ,3016 
13,3017 

13.3020 

13.3021 
1 3,3022 
13  ,3023 

13.3024 

13.3025 
13  ,3026 
13,3027 

13.3030 

13.3031 

13.3032 

13.3033 

13.3034 

13.3035 
13  ,3036 
13,3037 

13.3040 
E3,1554 

13.3041 


77624  1 
55716  1 
25535  0 
24001  0 
14001  0 
C1517  0 
14007  C 
27733  0 
45C14  G 
00063  1 
55716  1 
' 74235  0 
01535  0 
26001  1 
25543  1 
24007  0 
C1521  C 
67174  1 
COOC?  0 
C2030  0 
35527  1 
27156  0 
3 3041  1 
54  006  0 
' 3446  1 
0 0002  0 


26063  0 INTBANK 


CALL 

STCVL 


RP-TO-R 
RCV 
ZUM  T 


STOOL  00 
TET 


SETBANK  CAF 


5/8 

CALL 

MOGNFLAG 

PP-TG-R 

VXSC 

RCV 

OMEGMCON 

VCV 

ZEROVEC 
TDELTAV 
SXA  , 2 


A-PChK 
I NTBANK 
6BANK 
FCRTYCNE 
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NEEDED  FOR  SETTING  XI  ON  EXIT 


R0561  CSRPREC  AND  LERPREC  PERFORM  GREIT  INTEGRATION  BY  THE  ENCKE  METHOD  TC  THE  TIME  INDICATED  IN  TOECl 

R0563  ACCELERATI  CNS  OUF  TO  OBLATENESS  ARE  INCLUDED*  NC  W-MATRIX  INT*  IS  CONE* 

R0564  TFE  PERMANENT  STATE  VECTOR  IS  NGT  UPDATED* 

R0565  CSMCCMC  AND  LEMCCNIC  PERFORM  ORBIT  INTEG*  BY  KEPLERS  METHOD  TO  THE  TIME  INDICATED  IN  TDECl 
R0567  NO  DISTURBING  ACCELERATIONS  ARE  INCLUDED*  IN  THE  PROGRAM  FLOW  TFE  GIVEN 

R0568  STATE  VECTOR  IS  RECTIFIED  BEFORE  SOLUTION  OF  KEPLERS  EQUATION 


R0569  THE  ROUTINES  ASSUME  THAT  THE  CSM  (L£M»  STATE  VECTOR  IN  P-MEM  IS  VALID* 

R057n  SWITCHES  SET  PRIOR  TO  ENTRY  TO  THE  MAIN  INTEG*  PRCG  ARE  AS  FCLLCWS 

R0571  CSMPREC  CSMCCMC  LEMPREC  LEMCONIC 

R0572  VIN7FLAG  SET  SET  CLEAR  CLEAR 

R0573  IN'TYPFLG  CLEAR  SET  CLEAR  SET 

R0574  DIMOFLAG  CLEAR  CLEAR  CLEAR  CLEAR 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C?! 


L INTEGRATION  INITIALIZATION 


L CALL 
L+1 


LEMCONIC) 


RQ579  NORMAL  EXIT  TO  L+2 


R0580  SUBROUTINES  CALLED 

R0581  INTEGRVl 

R0582  PRECOUT  FOR  CSMPREC  AND  LEMFRFC 

R0583  CONICCUT  FOR  fSMCONIC  AND  LEMCONIC 


R058A 

R0585 

R0586 

0587 

0588 

0589 

0590 

0591 

0592 


CL7PL7  - 
INPUT 
TCECl 

REF  60 
REF.  29 

REF  2 
REF  19 


SEE  PAGE  2 CF  THIS  LCG  SECTION 


T IMF 

LAST 

LAST 

LAST 

LAST 


TO  INTEGRATE  TC 
13  130^12 
119A  13,30^3 

120  3 13,30AA- 

13,30A5 
115  13,30A6 

657  13,30^7 


O CSECS  B- 
95020  I 
CCC96  C 
27A10  1 
A3130  1 
02102  0 
0147A  1 


26 

CSMPREC 


STG 


CALL 

XI 

INTSTALL 

SET 

I RETURN 
VINTFLAG 


0593 

059A  REF 

0595  REF 

0596 

05961  REF 

05962  REF 

0597 

0598  REF 

0599  REF 

0600 

0601  REF 

0602  REF 

0603  REF 


3 LAST  238 

15  LAST  1203 

16  LAST  1203 
I 

61  LAST  1207 
30  LAST  1207 

3 LAST  1207 
20  LAST  1207 
1 


13,3C50 

13.3051 

13.3052 

13.3053 
13,305A 

13.3055 

13.3056 
13  ,3057 

13.3060 

13.3061 
13  ,3062 

12.3063 

13.3064 


A301A  C 
0U67  0 
01676  1 
77614  1 
01633  0 
27135  0 
45020  1 
00046  0 
27410  1 
43130  1 
02102  0 
C1634  1 
27050  1 


IFLAGP 


LEMPREC 


SET  CLEAR 

PRECIFLG 

DIMOFLAG 

CLRGO 

INTYPFLG 
INTEGRVl 
STO  CALL 
XI 

INTSTALL 
SXA.l  CLRGO 

IRETURN 
VINTFLAG 
IF  LAGP 


0604 

0605 

0606 

0607 

0608 
06C9 
0610 
0611 
0612 

0613 

0614 

0615 

0616 
0617 


REF  62 
REF  31 


REF  4 
REF  21 

REF  16 
REF  17 
REF  2 

REF  63 
REF  32 


LAST  1207 
LAST  1207 

LAST  12P7 
LAST  1207 

LAST  12P7 
LAST  1207 
LAST  1207 

LAST  1207 
LAST  1207 


13,3066 
13  ,3067 

13.3070 

13.3071 
13  ,3  77  2 

13.3073 

13.3074 

13.3075 

13.3076 
13  ,3077 

13.3100 

13.3101 

13.3102 


45020  1 
00046  Q 
27410  1 
43130  1 
02102  0 
01474  1 
43C14  0 
01676  I 
01433  1 
27135  0 
45020  1 
00046  C 
274tC  1 
43130  1 


CSMCCNIC 

IFLAGC 

LEMCONIC 


STC 

SXA,1 


CLEAR 


STO 


CALL 

XI 

INTSTALL 

SET 

IRETURN 
V INTFL  AG 
SETGC 
DIMOFLAG 
INTYPFLG 
I NTEGRVl 
CALL 
XI 

INTSTALL 

CLRGO 


SXA,1 
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L INTEGRATION  INITIALIZATION  USER'S  PAGE  NO*  11  63  S3 


0618 

0619 

0620 


REF  5 LAST  1207 
REF  22  LAST  1207 
REF  1 


13.3103  C2102  0 

13.3104  C1634  1 

13.3105  27C73  0 


IRETLRN 
V I NTFLAG 
IFLAGC 


0621 

0622 

0623 

0624 
062  5 
0626 

0627 

0628 
06281 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

06371 

06372 

0638 
R0639 
R0640 
R0641 
R0642 
R06^3 


REF  19  LAST  1206 


LAST  1208 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST  1208 
LAST  1206 


2 LAST  1150 
17  LAST  1207 


13.3106 

13.3107 
13,3110 
13  ,3111 
13,31)2 
13,3113 
13  ,3114' 

13.3115 

13.3116 

13.3117 
13,3120 
13  ,3121 

13.3122 

13.3123 

13.3124 

13.3125 

13.3126 
13,5127 
13,3130 
13  ,3131 
13,3132 


66214  0 
01467  0 
02031  I 
00000  1 
66214  0 
00343  0 
27117  0 
C2031  1 
00002  0 
'77220  1 
C2102  0 
24007  0 
01521  0 
35527  1 
27671  1 
^3C14  0 
01676  1 
04062  I 
77614  1 
04020  1 
27147  0 


INTEGRVS  SET 


INTEGRV  IS  AN  ENTRY  TO  OR0IT  INTEGRATION 
NORMALLY  THE  NAVIGATICht  PRCGRAR  ,T0  SET 
IS  ENTERED  AT  INTEGRVl  BY  CSMPREC  ET.AL. 
THE  RCUTINE  SETS  UF  A-MEMCRY  IF  ENTERED 
PROGRAM  FOR  PRECISION  OR  CCNIC 


SSP 

PRECIFLG 
PBODY 
0 

eCF  SSP 

MOCNFLAG 

+3 

P6CDY 

2 

STO  VLCAC 

I RETURN 
2ER0VEC 
STCRE  TDELTAV 
STCALL  TNUV 

PFCTIFY 
CLEAR  SET 

DIMOFLAG 

NEWIFLG 

SETGO 

FPOFLAG 

ALCACEC 

HIGH  PERMITS  THE  CALLER  , 

TFE  INTEG*  FLAGS*  THE  ROUTINE 
ANn  AT  ALOAOED  BY  INTEGFVSo 
AT  INTEGRV,  I AND  SETS  THE  INTEGo 


R06^4 

R0645 

R0646 

R0647 

R064e 

R0649 

R0650 

R0651 

R0652 

,<0653 

R0654 

R0655 

R0656 

R0657 

R0658 

R0659 

R0660 

R0661 

R0662 


TFE  CALLER  MUST  FIRST  CALL  INTSTALL  TO  CHECK  IF  INTEG*  IS  IN  USE  BEFORE 
SETTING  ANY  FLAGS* 

TFE  FLAGS  RHICF  SHOULD  BE  SET  CR  CLEAREC  ARE 

VINTFLAG  (IGNCRfC  l^FEN  ENTERED  FROM  INTEGRVSI 

INTYPFLG 

CIMOFLAG 

D6CR9FLG 

CALLING  SEQUENCE 
L-X  CALL 

L-Y  INTSTALL 

L-l  SET  OR  CLEAR  ALL  FOUR  FLAGS*  ALSO  CAN  SFT  STATEFLG  IF  DESIRED 
ANC  DIMOFLAG  IS  CLEAR* 

L CALL 

L+1  INTEGRV 

IMTIALIZATICN 
FLAGS  AS  ABOVE 

STORE  TIME  TO  INTEGRATE  TO  IN  TDECl 
OUTPUT 

RATT  AS 


GAP  : 

L 

R0663 

K0664 

0665 

0666 

0667 

0666 

0669 

0670 

0671 

0672 

0673 

C67A 

0675 

0676 

0677 

0670 

0679 

0680 

0661 

0682 

0683 

0684 

0685 

0686 

0687 

0668 

0689 

0690 

0692 

0693 

0694 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0707 

0708 

0709 

0710 

0711 
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NCc  12  E3  S3 
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REF  7 

REF  2 
REF  2 

REF  12 
REF  2 

REF  23 
REF  1 
KEF  2 


REF  52 
REF  2 

REF  18 
REF  1 
REF  1 

REF  6 
REF  1 
REF  107 

REF  68 
REF  3 
REF  225 

REF  13 
REF  1 

KEF  24 
REF  3 
REF  2 

REF  20 


REF  3 
REF  10 


REF  7 


LAST  1238 

LAST  1208 
LAST  1208 

LAST  1151 
LAST  1208 

LAST  1208 

LAST  299 

LAST  1205 
LAST  104 

LAST  1207 

LAST  1203 

LAST  1203 

LAST  1148 
LAST  1148 
LAST  1202 

LAST  1209 

LAST  1209 
LAST  499 
LAST  37 

LAST  1151 

LAST  1208 
LAST  1205 

LAST  1175 


13.3133 

13.3134 

13.3135 

13.3136 

13.3137 
13,3140 
13  ,3141 
13,31A2 

13.3143 

13.3144 

13.3145 

13.3146 

13.3147 
13,315C 
13  ,3151 

13.3152 

13.3153 
13  ,3154 

13.3155 

13.3156 

13.3157 
13,3160 
13  ,3161 
13,3362 

13.3163 

13 .3164 

13.3165 

13.3166 

13.3167 
13,3170 
13  ,3171 

13.3172 

13.3173 
13  ,3  174 

13.3175 

13.3176 

13.3177 
13,32C0 
13  ,3201 

13.3202 

13.3203 
13  ,3204 
13, 32C5 

13.3206 

13.3207 
13,3210 


77620  0 
02102  0 
,43014  0 
04060  0 
C4062  1 
77731  1 
00053  I 
27147  0 
52014  0 
01714  1 
267C4  0 
26757  0 
77745  1 
C0041  1 
01115  0 
52014  0 
C1753  1 
27256  0 
27242  C 
77414  0 
01752  0 
27177  0 
0 5353  1 
04022  0 
0 5504  0 
00236  0 
C 6042  1 
77731  I 
00053  1 
27175  1 
52014  0 
C1714  1 
26660  0 
26733  1 
77624  1 
11210  1 
45001  1 
00001  0 
27671  1 
53775  1 
01503  0 
57576  1 
53715  1 
01511  0 
57576  1 
63325  0 


INTEGRV 

INTEGRVl 

1NTEGRV2 

ALCAOED 

A-PCHK 


PHEXIT 

RECTOUT 


STO 

I RETURN 
SET  SET 

PPOFLAG 

NEWIFLG 

SSP 

QPRET 

alcacec 
BON  GOTO 

VINTFLAG 

PTCACSK 

PTCALEM 

DLCAD 

TDECl 

STORE  TOEC 
BOFF  GOTC 

INTYPFIG 

TESTLOOP 

PVCCN 

BOF  EXIT 

STATEFLG 

RECTCUT 

TC  PhASCHNG 

CCT  04022 

TC  UPFLAG  PHASE  CHANGE  HAS  CCCUPRED  BETWEEN 

ADRES  REINTFLG  INTSTALL  ANDINTWAKF 

TC  INTPRET 

SSP 

OPRET 
PHEXI  7 
BON  GOTO 

VINTFLAG 
ATOPCSM 
ATOPL  EM 

CALL 

GRP2PC 
SETPD  CALL 
0 

RECTIFY 
VLCAO  VSL* 

RRECT 

0,2 

POVL  VSL*  RATT  TO  PCO 

VRECT 

0,2 

POOL  PDVL  VATT  TO  PD6  TAT  TO  PC12 
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0712 

0713 
071  4 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

07251 

07252 

07253 
. 07254 

07255 

0726 

0727 

0728 

0729 
073') 
0731 

R0732 

R0733 


13,3211  CI517  0 


13,3212 


01503 


REF 

REF 


LAST 

LAST 


1209 

689 


REF  20  LAST  1208 


KEF 

REF 


REF 


LAST 

LAST 


REF  8 
REF  730 
REF  58 
REF  14 
REF  . 4 

RVCON  SETS  UP 
VELOCITY  FCR 


LAST 

LAST 

LAST 

LAST 

LAST 


13  ,3213  64715  0 

13.3214  C1511  C 

13.3215  51770  C 

13  ,3216  76006  0 

13,3217  77765  0 

13.3220  76014  0 

13.3221  00303  1 

13.3222  27224  0 

13.3223  77775  I 

13.3224  40001  1 

13.3225  00001  0 

13  ,3226'  27227  0 

13,3227  43C14  0 

13.3230  04676  I 

13.3231  01667  1 

13.3232  77614  1 

13  ,3233  01672  0 

13.3234  77535  I 

13.3235  02103  1 

13  ,3236  3 0154  I 

13,3237  5C  120  I 

13.3240  54  052  1 

13.3241  0 3421  0 

ORBIT  INTEGRATION  TO  DO  A 

The  interval  (TET-TCEC) 


322 

1208 


PUSH 

DEC 

BON 


CLEAR 


TET 

PRECT 

POOL* 

VRECT 

MUEARTH, 

AXT,l 

-10 


CLEAR 

AVFMIDSW 

PRECIFLG 


ALLOW  UPDATE  OF  DOWNLINK  STATE  VECTOR 


LAST  1209 


1209 

1189 

U77 

120Q 

1151 


STAT6FLG 
SLCAC  EXIT 

IPETURN 
CA  MPAC 
INDEX  FIXLCC 
TS  QPRET 
TC  INTWAKE 

CONIC  SOLUTION  FOR  PCSITION  AND 


0734 

0735  REF  3 

0736  REF  16 

0737  REF  10 

0738  REF  ^ 

0739 

0740  REF  1 

0741 

0742  REF  6 

0743  REF  17 

0744  REF  18 

0745  REF  2 


LAST  1209 
LAST  1210 
LAST  1171 
LAST  1209 


LAST  1173 
LAST  1210 
LAST  1210 
LAST  1209 


13.3242 

13.3243 

13.3244 

13.3245 

13.3246 

13.3247 
13,3250 
13  ,3251 

13.3252 

13.3253 
13  ,3254 
13, 3255 


45345  1 
01115  0 
01517  n 
36C74  1 
27671  1 
77624  1 
22404  1 
43345  1 
01551  1 
01517  0 
3551  7 1 
27177  0 


RVCCN 


CLCAC  DSU 
TDEC 
TET 

STCALL  TAUo 

RECTIFY 

CALL 

KEFPPEF 
OLOAD  DAO 
TC 
TET 

STCALL  TFT 

RECTCUT 
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L IMEGRATICN  INITIALIZATION 


p67A55 


TESTLOOP 


07^62 

0746A 

C7A65 

07Aft6 

(1747 

0748 

0749 

0750 

0751 

0752 

0753 

0754 

0755 

0756 

0757 
075a 

0759 

0760 

0761 

0762 

0763 

0764 

0765 

0766 

0767 

0768 

0769 

0770 

0771 

0772 

0773 
C774 

0775 

0776 

0777 

0778 

0779 

0700 

0781 

0782 

0783 

0784 

0785 

0786 
0707 
0788 


REF  t 

REF  8 
REF  1 

REF  10 
REF  18 
REF  1 
REF  I 

REF  2 

REF  3 
REF  I 

REF  739 

REF  1 

REF  1 
REF  2 

REF  4 
REF  19 

REF  5 

REF  2 

REF  1 

REF  1 

REF  3 


LAST  1203 
LAST  1210 

LAST  1200 
LAST  1206 


LAST  12U 


LAST  1210 


LAST  1210 


LAST  1211 

LAST  1210 
LAST  1210 

LAST  941 

LAST  115 


LAST  1211 


13  ,3257 
13,7260 

13.3261 

13.3262 

13.3263 

13.3264 

13.3265 

13. 3266 

13.3267 

13.3270 

13.3271 
13  ,3272 

13.3273 

13.3274 

13.3275 

13.3276 
13  ,3277 

13. 3300 

13.3301 
13  ,3302 

13. 3303 

13.3304 

13.3305 

13.3306 

13 .3307 

13.3310 

13.3311 
13  ,3312 

13.3313 

13.3314 

13.3315 

13.3316 
13  ,3317 

13.3320 

13.3321 
13  ,3322 

13.3323 

13.3324 

13.3325 

13.3326 
13  ,3327 

13.3330 

13.3331 
13  ,3332 

13. 3333 

13.3334 

13.3335 


27263  0 
01632  1 
27224  0 
73C01  I 
00013  0 
C2C30  0 
51575  1 
01535  0 
43006  C 
00262  1 
50023  0 
53755  0 
27277  0 
77614  1 
00062  0 
41345  0 
00013  0 
00043  0 
55762  1 
51770  C 
41366  I 
25762  0 
40442  I 
54345  1 
C0155  0 
20220  0 
40006  0 
27340  0 
50021  I 
27407  I 
27340  0 
45345  1 
01115  0 
01517  0 
54234  0 
21613  0 
20211  1 
C2076  I 
51400  1 
27344  1 
50025  0 
00015  0 
27350  1 
75345  1 
00015  0 
02076  1 


TESTLOOP  0OF 


+3  SETPD 

VLCAD 

PUSH 

OSU* 

SET. 

NORFINAL  OLOAD 

SRIR 

SORT 

SR3 

DLOAD 

PUSH 

BDSU 

DT/2C0MP  OLOAD 

RTB 

STORE 

BOV 

DSU 

LSEMAXDT  OLCAD 


CLRGO 
QUITFLAG 
+ 3 

STATEFLG 

INTEXIT 

LXA,2 

lOD 

P0CCY 

ABVAL 

RCV 

CLEAR 

MIDFLAG 

BMN 

RME,2 

+ 3 

MI DFLAG 

DMP 

lOD 

340 

DDV* 

MUEARTH ,2 

DMP 

o3C 

SR4 

SL 

MPAC 
1 50 
BOV 
MAXOT 
BMN 

0T/2MAX 

MAXOT 

DSU 

TOEC 

TET 

SL 

SGNAGREE 

80 

OT/2 

A6S 

GETMAXDT 
BMN 
1 20 

POOHCHK 

SIGN 

120 

DT/2 
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LSER»  S PAGE  NC®  14 


tlOl  PAGE  1211 
E3  S3 


STOP  INTEGRATION 


RC  TO  100 

MIDFLAG=0  IF  R Go  To  RMP 


CT  IS  TRUNCATED  TC  A MULTIPLE 

OF  128  CSECSo 


e-jo 


IS  TIME  TO  INTEGo  TO  GR  THAN  MAXTIME 


GAP  : 


assemble  revision  131  CF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021112-001 


L INTEGRATION  INITIALIZATION 


0789  REF 

0790  REF 

0791 

C792  REF 
0793 

079A  REF 
C795 

0796  REF 

0797  REF 

0798  REF 

0799 

0800  REF 

0801 

0802  REF 

0803  REF 

0804 

0805  REF 
0B06  PEF 

0807  REF 

0808  REF 

0809 

0810  REF 

oeii 

0812 

0813  R'EF 

0814  REF 

0815  REF 

0816 

0817  REF 

0818  REF 
08181 

08182  REF 

0819 

0820  REF 

0821 
0822 

0823  REF 

0824  REF 

0825 

0825 

0826 
0826 
0828 

0831  REF 
0833  REF 
0634 

0835  REF 

0837  REF 

0838  REF 

0839 


2 

2 

1 

13 

5 
1 

6 

1 

2 

3 

1 

6 

2 


3 

3 

3 

5 

20 

2 

8 


1 

1 


LAST 

LAST 

LAST 


LAST 

LAST 


LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 
L AST 

LAST 

LAST 


LAST 

LAST 


LAST 


1211 


364 

1212 


1212 

1206 

120  3 

1210 

1212 

1212 


1212 

1209 

1212 

1211 

1211 

1211 

1212 


1212 

1212 


468 


13.3336 

13.3337 
13, 3340 
13  ,33Al 

13. 3342 

13.3343 
13  ,3344 

13. 3345 

13.3346 
l'3,3347 
13, 335C 
13  ,3351 
13,3'352 
13,3353 
13  ,3354 
13, 3355 
13,3366 
13,3357 

13.3360 

13.3361 

13.3362 

13.3363 
13  ,3364 

13.3365 

13.3366 

13.3367 
13,3370 
13  ,3371 

13.3372 

13.3373 
13  ,3374 

13.3375 

13.3376 

13.3377 
13,3400 
13  ,3401 
13  ,3402 
13,3403 
13  ,3404 

13.3405 

13.3406 
13  ,3407 
13,3410 
13  ,3411 

13.3412 

13.3413 

13.3414 

13.3415 

13.3416 
13  ,3417 


36076  0 
27350  1 
65345  0 
27407  1 
T7650  1 
27317  1 
77634  0 
21713  1 
36076  0 
27333  1 
51545  1 
02076  1 
50025  0 
27405  0 
27156  0 
43014  0 
01740  0 
23311  0 
C1707  0 
23311  0 
45345  1 
02076  1 
00015  0 
43C40  1 
27156  0 
C4242  1 
23311  0 
45345  1 
01115  0 
01517  0 
77640  0 
27224  0 
40525  1 
C2076  1 
44322  1 
52040  1 
27224  0 
23211  0 
00000  1 
C1400  1 
14152  1 
COOOO  1 
77776  1 
3 0106  0 
7 3462  0 
C 0006  1 
1 3454  0 
3 3461  1 
C 5133  0 
77776  1 


STCALL  DT/2 

POOHCHK 

MAXDT  OLCAO  POOL 

DT/2MAX 

GCTO 

0T/2CGMP 


GFTMAXDT  RTB 


POCHCHK 


CT/2MIN 


SIGNMFAC 
STCALL  DT/2 

USEMAXDT 
OLCAD  ASS 
DT/2 

DSU  BMN 

0T/2MI  N 
A-PCHK 
BOFF  BON 

POOHFLAG 
TIMESTEP 
PRECIFLG 
TIMESTEP 
DLCAD  DSU 
OT/2 
120 

BMN  bCFCLR 
A-PCHK 
NEWIFLG 
TI MESTEF 
CLCAO  DSU 
TOEC 
TET 

BMN 

INTEXIT 
POOL  SR4 
OT/2 
SR2R  BDSU 
BMN  GOTO 

INTEXIT 
TIMESTEP 
2CEC  3 8-20 


DT/2MAX  2DEC  4000  E2  0-: 


INTSTALL  EXIT 

CA  RASFLAG 

MASK  INTBITAB 

EXTEND 

BZF  OKTOGRAB 

CAF  WAKESTAL 

TC  JOBSLEEP 

INTUAKEO  EXIT 
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USER'S  PAGE  NO*  15  F3  S3 

EXCHANGE  0T/2MAX  WITH  COMPUTED  MAX, 


NC  BACKWARDS  INTEGRATION 
WHEN  IN  POO 


NO  BACKWARD 

IS  4(0T1  LSI 
NO 


INTEGRATION 

TOEC  - TET) 


IS  THIS  STALL  AREA  FRFE 


YFS 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PRCGRA^  LUMINARY  BY  NASA  2021112-091 


L INTEGRATION  INITIALIZATION 


08395  REF  1 


0840  REF  2 

0041  REF  1 

0042  REF  377 

0843  REF  2 


13,3420 

LAST  1212  13,3421 

13,3422 
LAST  1125  13  ,3423 

LAST  1213  13,3424 


1 3441  I 

4 0106  1 INTHAKE 
7 4745  1 
10  000  0 
C 3441  0 


TCF  INTWAKEl 

CS  RASFLAG 

MASK  REINT6IT 

CCS  A 

TC  INTWAKEl 


0044 

0845 

0848 


REF  59  LAST  1210 
REF  15  LAST  1210 
REF  5 LAST  891 


13,342-5  50  120  1 

13.3426  3 0052  0 

12.3427  55*054  0 


INDEX  FIXLOC 
CA  OPRET 

TS  T8ASE2 


0849  REF  1C8  LAST  1209 

0850 


13.3430  0 5353  1 

13.3431  04022  0 


TC  PHASCHN6 

OCT  04022 


0651  REF 

0852  REF 

0853  RFF 


16  LAST  1213 


3 1054  1 
50  120  1 
54  C52  I 


INDEX 

TS 


T8A  SE2 
FIXLOC 
QPRET 


0854 

0855 

0856 

0857 


2 

3 


13.3435  3 4745  0 

13.3436  7 0106  1 

13.3437  C 0006  1 

13  ,3440  1 3457  0 


CAF  REINTBIT 

MASK  RASFLAG 
E XTEND 

BZF  GOBAC 


0861  REF  2 

0862 

0863  REF  5 

0864  REF  22 

0865  REF  3 

0866 

0868  REF  2 

0869  REF"  4 

0870  REF  5 

0871 

0872  REF  2 

0874  PEF  2 

08745 

0875  REF  6 

0876  REF  226 

0877 

0888  REF  33 

0892 


LAST  1212 

LAST  469 
LAST  1105 
LAST  1213 

LAST  1212 
LAST  1213 
LAST  1213 

LAST  1213 
LAST  217 

LAST  1213 
LAST  1209 

LAST  1207 


13.3441 

13.3442 
13  ,3443 

13.3444 

13.3445 

13.3446 

13.3447 
13  ,3450 

13.3451 

13.3452 
13  ,3453 

13.3454 

13.3455 

13.3456 

13.3457 

13.3460 

13.3461 

13.3462 


3 3461  1 
C 0004  0 

0 5137  1 
10  064  1 

1 3441  1 
00051  0 

4 3462  0 
7 0106  I 
54  106  1 
C 0003  1 

1 3457  0 

2 4736  1 
C 0004  0 
26  106  1 
C 6042  1 

77616  0 
27411  0 
20100  1 


I NTKAKEl 

FCPTYONE 

OKTOGRAB 

GOBAC 

WAKESTAL 

INTBITAB 


CAF  WAKESTAL 

INhINT 

TC  JOBWAKE 

CCS  LOCCTR 

TCF  INTWAKFl 

CEC  41 

CS  INTBITAB 

MASK  RASFLAG 

TS  RASFLAG 

REL  INT 

TCF  GOBAC 

CAF  INTFLBIT 

INHINT 

ACS  RASFLAG 

TC  IN7PRET 

RVQ 

CACR  INTSTALL 

OCT  20100 


17:53  DECo  19,1969  SKIPPER  , 101 
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US  ER ' S PAGE  NOc  16  E3  S3 

IS  THIS  INTSTALLEO  ROUTINE  TO  BE 
RESTARTED 

NO 


YES,  DONT  RESTART  WITH  SOMEONE  ELSES  Q 


OONT  INTWAKE  IF  WE  CAME  HERE  VIA  RESTART 


RELEASE  STALL  AREA 


GAP: 

L 

P0895 

R0e96 

R0897 

R0898 

R0699 

R0900 

RO901 

R0902 

0903 

0904 

0905 

0906 

0907 

0908 

0909 

0910 

0911 

0912 

0913 

0914 

0915 

0916 

0917 

0918 

0923 

0924 

0925 

0926 

0927 

0928 

0929 

0930 

0931 

0932 

0933 

0934 

0935 

0936 

0937 

0938 

0939 
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INTEGRATION  INITIALIZATION 
AVETOMIC 


USER'S  PAGE  NO* 


VALUES  LEFT  BY  THE  AVERAGEG  ROUTINE  IN  RN , VN , P I P 1 1 MEo 


IN  ACCITICN,  THE  OTHER  VEHICLE  IS  INTEGRATED  (PERMANENT)  TO  PIPTlMEe 
FINALLY  TRKMKCNT  IS  ZEROED 


4 LAST  1202  TO  1214: 


REF 

REF 

REF 


469* 


13,3463  43020  1 AVETOMID  STQ 


COUNT*  $S/INTIN 


13,3464 
13,34£5 
13  ,3466 
I2,34t7 
13,3470 
13  ,3471 


02772 
02716 
27532 
77614  1 
C1711  1 
27532  0 


EGRESS 

RENOWFLG 

INT/W 


Yi-MATRIX  VALID  ,GC  INTEGRATE  IT 


W-MATRIX  VALID  ,G0  INTEGRATF  IT 


REF 

REF 

REF 

REF 


LAST  967 
LAST  1213 


LAST  1209 
LAST  1203 


13,3472 
13, '3473 

13.3474 

13.3475 
13  ,3476 
13,3477 

13.3500 

13.3501 


45145  0 
01234  0 
27410  1 
45014  0 
01474  1 
26643  1 
34041  0 
27133  0 


OLOAO  CALL 

PIPTIME 
INTSTALL 
SET  CALL 

VINTFLAG 
SETIFLGS 
STCALL  TOECl 

INTEGRV 


SETS  UP  NONE  W-MAT«,  PERMANENT  INTEG<, 


REF 

REF 


35  LAST  1214 
6 LAST  1150 


REF  16  LAST  967 


REF 

REF 

REF 

REF 

REF 


LAST  1210 
LAST  lai 
LAST  121* 
LAST  1212 
LAST  874 


13.3502 

13.3503 

13.3504 
13, 35C5 
13  ,3506 
13,35C7 
13,3510 
13  ,3571 

13.3512 

13.3513 

13.3514 

13.3515 
13  ,3516 
13,3517 
13, 3520 


45174  1 
00002  0 
27410  1 
77014  1 
04304  1 
27511  1 
00000  1 
53775  1 
C1220  0 
57176  0 
01503  0 
15535  0 
01234  0 
25517  0 
C1226  0 


AXT,2  CALL 


VLOAD  VSR* 

RN 
0,2 
RRECT 
RCV 

PIPTIME 
TET 


STORE 

STOOL 


VN 


GAP; 

L 

0940 

0941 

0942 

0943 

0944 

0945 

0946 

0947 

0948 

0949 

0950 

0951 

0952 

0953 

0954 

C955 

09  56 

0957 

0964 

0965 

0966 

0967 
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IMfcGRATlCN  INITIALIZflTICR 


USER'S  PAGE  NCo  18  E3  S3 


RFF  3 

REF  1 
REF  11 

REF  2 


LAST  713 

LAST  831 

LAST  1151 


13.3521 

13.3522 
13  ,3523 
13,3524 
13,3525- 

13.3526 

13.3527 
13  ,3530 
13,3531 


45C57  1 
57176  0 
27705  0 
66234  1 
26746  0 
03463  0 
CCOCO  1 
77650  1 
47230  0 


VSR*  CALL 

0,2 

MINIRECT  FINISH  SETTING  UP  STATE  VECTOR 

RT6  SSP 

MOVATHIS  PUT  TEMP  STATE  VECTOR  IKTC  PERMANENT 

TRKMKCNT 
0 

GOTO 

FAZAB5 


REF  26 
REF  36 

REF  18 
REF  3 

REF  9 
REF  26 
REF  54 
REF  12 

REF  ] 


LAST  1214 
LAST  1214 

LAST  1208 
LAST  1210 

LAST  1203 
LAST  1214 
LAST  1214 
LAST  1214 


13,3522  45145  0 

1.3,3533  01234  0 

13.3534  27410  1 

13.3535  43014  0 

13.3536  01476  0 

13.3537  04476  0 

13.3540  43014  0 

13.3541  C1475  0 

13.3542  01674  0 

13  ,3543  34041  0 

13.3544  27133  0 

13.3545  77650  1 

13.3546  27472  0 


INT/W 


DLOAO  CALL 

PIPTIME  INTEGRATE  W THRU  BURN 

I NTSTALL 
SET  SFT 

DIMOFLAG  DO  W-MATRIX 

AVEMIDSl^  SO  WONT  CLORPER  RN  , VN,  P IPT  IME 

SET  CLEAR 

D6CR9FLG  9XQ  FOR  LM 

VINTFLAG  LM 

STCALL  TDECl 

I NTEGRV 

GOTO 

OThERS  NOW  GO  00  THE  OTHER  VEHICLE 


GAP; 

L 

P0968 

R0969 

R0970 

R097] 

R0972 

R0971 

R0974 

R0975 

R0976 

R0977 

R097P 

R0979 

RU9aO 

R0981 

R0982 

RU983 

R098* 

0985 

0986 

0987 

0986 

0989 

0990 

0991 

0992 

0993 

0994 

0995 

0996 

0997 

0998 

0999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 
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IMEGRATION  INITIALIZATION 


USER'  S PAGE  NCo  19  E3  S3 


M ICTOAVl 


TUS  ROUTINE  INTEGRATES  IPRECISinM  TO  THE  TIME  SPECIFIED  IN  TOECU 
IF,  AT  THE  END  OF  AN  INTEGBATICN  TIME  STEP,  CURRENT  TIME  PLUS  A DELTA 
TIME  (SEE  TIMEOELToo-ioBASEO  CN  THE  COMPLTATUON  TIME  FOP  ONE  TIME  STEP) 
IS  GREATER  THAN  THE  CESIREC  TIME,  ALARM  17C3  IS  SET  AND  THE  INTEGRATICN 
IS  DONE  TO  THE  CURRENT  TIME* 

RETURN  IS  IN  BASIC  TO  THE  RETURN  ADDRESS  PLUS  CNE* 

IF  THE  INTEGRATICN  IS  FINISFEC  TO  THE  DESIRED  TIME,  RETURN  IS  IN  BASIC 
TO  THE  RETURN  ADDRESS 


IN  EITHER  CASE  , BEFORE  RETURNING,  THE  EXTRAPOLATED  STATE  VECTOR  IS  TRAN 
FERRED  FROM  R.VATT  TC  R , VM- F IFT I MEl  IS  SET  TO  THE  FINISHING  INTEGRA- 
TION TIME  AND  MPAC  IS  SET  TO  THE  DELTA  TIME 

TAT  MINUS  CURRENT  TIME* 


M IDTOAVa 

TMS  ROUTINE  I NT  FGRAT  ES  T H I S VEHICLES  STATE  VECTOR  TO  THE  CURRENT  TIME* 
NO  INPUTS  ARE  REQUIRED  CF  THE  CALLER*  RETURN  IS  IN  BASIC  TO  THE  RETURN 
ADDRESS  WITH  THE  ABOVE  TRANSFERS  TO  R , VN 1-P I P T I MEl -AND  MPAC  OCNE 


REF 

REF 

REF 

PEF 


2 


3 

1 

1 


LAST  154  £7,1744 

13,3547 
LAST  1216  ■ 13,  3550 

13  ,3551 
13,3552 


43020  1 
03744  0 
04634  1 
27566  I 


MI 0TCAV2 


EBANK=  IRETURNl 
STQ  CLRGG 

I RETURNl 
MIDIFLAG 
ENTMID2 


INTEGRATE  TO  PRESENT  TIME  PLUS  TIMEOELT 


REF  4 LAST  1216 
REF  2 LAST  1216 

PEF  32  LAST  1202 
PEF  I 

REF  55  LAST  1215 
REF  1 

REF  1 


13.3553  43020 

13.3554  03744  0 

13.3555  C4474  1 

13.3556  43234  0 

13.3557  21574  1 

13.3560  27670  0 

13.3561  51021  0 

13.3562  00041  1 

13.3563  27572  1 

13.3564  77624  1 

13.3565  27656  1 


SET 

I RETURNl 
MIDIFLAG 
DAD 

LOACT  IME 
TIMEOELT 
BDSU  BPL 

TOECl 

ENTMIDl 

CALL 

NOTIMF 


1 MIDTOAVl  STQ 

RT8 


INTEGRATE  TO  TOECl 

INITIAL  CHECK,  IS  TOFCl  IN  THE  FUTURE 

Y5S 

NO,  SET  ALARM,  SWITCH  TO  MinT0AV2 


REF  33  LAST  1216 
REF  2 LAST  1216 
REF  56  LAST  1216 


13,3566 
13  ,3567 
13,3570 
13  ,3571 


43234  0 
21574  1 
27670  0 
00041  1 


ENTMI02 


RTB  DAO 

LOACTIMF 
TI MEDELT 
STORE  TDECl 


PEF  37  LAST  1215 


13.3572  77624  1 

13.3573  27A10  1 

13.3574  45014  0 


ENTMIDl 


CALL 

INTSTALL 
CLEAR  CALL 


gap:  ASSEKBLH  REVISION  131  CF  AGC  PRCGRAP  LUMINARY  BY  NASA  ZD2in2-0';i 

L INTEGRATION  INITIALIZATION 


1008  PEF 
10C9  REF 
1010 

ion  REF 

1012  RtF 

1013 

1014  REF 

1015 

1016  REF 

1017  REF 

1018  REF 

1019  REF 

1020  REF 

1021  REF 

1022  REF 
10221 

10222  REF 
10222  REF 

1023 


19  LAST 
1 

19  LAST 
1 

13  LAST 

2 LAST 
33  LAST 
7 LAST 
23  LAST 
7 LAST 
15  LAST 
11  LAST 

17  LAST 
13  LAST 


1215 

1209 


1215 

1217 

970 

374 

Q49 

874 

781 

666 

373 

761 


I3r3575  C1676  I 

13.3576  26066  0 

13.3577  43C14  0 

13.3600  01673  1 

13.3601  . 04475  0 

12.3602  77624  1 

13  ,3603  27133  0 

13.3604  77214  0 

13.3605  04675  1 

13  ,3606  00001  0 

13,3607  27545  0 

13.3610  00007  0 

13.3611  17553  1 

13.3612  00015  0 

13  ,3613  03561  0 

13.3614  66134  1 

13.3615  CZ777  1 

1?  ,361 6 02776  0 

13,3617  77776  1 


DIMOFLAG 
THISVINT 
CLEAR  SET 

INTYPFLG 

MIDAVFLG 

CALL 

INTEGRV 
CLEAR  VLCAD 

MIDAVFLG 

RATT 

STCVL  RM 
VATT 

STCDL  VNl 
TAT 

STORE  PIPTIMFl 
SXA,2  SXA.l 
RTXZ 
RTXl 

EXIT 


1026 

1027 

1028 


REF  30 
PEF  740 
REF  14 


LAST 

LAST 

LAST 


986 

1211 

1051 


13.3621 

13.3622 
13  ,3623 
13,3624 


C 0004 
C 0006 
4 0025 
20  155 
C 7262 


0 

1 

1 

1 

0 


INFINT 

EXTEND 

DCS 

DAS 

TC 


TI  RE2 

MPAC 

TPAGREE 


102  9 
1030 
103) 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 


REF 

REF 

REF 


REF 

KEF 

PEF 

REF 


5 LAST  1216 
15  -LAST  889 

3 LAST  1216 
1 

34  LAST  1216 

3 LAST  1216 

6 LAST  1212 

2 LAST  1209 
2 LAST  1216 


13  ,3626 
13,3627 

13.3630 

13.3631 

13.3632 
13  ,3633 

13.3634 

13.3635 
13  ,3636 
13,3637 
13,3640 


1 
1 

1 CKMI02 
0 
0 
1 
1 

27670  0 
C1115  0 
45044  0 
27256  C 
27656  1 


2 174A 
C 4640 
47014 
04754 
27646 
21574 
44215 


CA  IRETURM 

TC  BANKJUMP 

eOF  RTB 

MIDIFLAG 

MIC2 

LCAOTIME 
DAC  BDSU 

T I MEDELT 
TDEC 
BPL  CALL 

TESTLCCF 
NOTI  ME 


1041 

1Q42  REF  35 

1043  KEF  4 

1044  REF  7 

1045  REF  3 


13 

LAST  12)7  13 
LAST  1217  13 
LAST  1217  13 
LAST  1217  13 


,3641 
, 3642 
,3  643 
,3644 
,3645 


43234  0 
21574  1 
27670  0 
35115  1 
27256  0 


TIMEINC 


RTB  DAC 

LCAOTI ME 
TIMEDELT 
STCALL  TDEC 

TE  STLCOP 


1046 

1047  REF  8 

1048  REF  22 

1049 

1050  REF  1 


LAST  12)7 
LAST  1214 


13.3646  45345  1 MIC2 

13.3647  C1115  0 

13.3650  01517  0 

13.3651  45246  0 

13.3652  27666  I 


OLOAL  DSU 
TDEC 
TET 

ABS  DSU 

3CSECS 


17:53  DECo  IR,1969  SKIPPER 
USER'S  PAGE  NOc  20 
ND  W-MATRIX 


101  PAGE  1217 
E7  S3 


LET  INTEG-,  KNOW  THE  CALL  IS  FOR  MIDTOAVc 
GO  INTEGRATE 


YES 


GAP; 

L 

1051 

1052 

1053 

105A 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1061 

1062 

1062 

1063 

106^ 

1065 

1066 

1C67 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARV  BY  NASA  2021112-091 


17:53  DEC,  19,196' 


SKIPPER  «101  PAGE  1218 


IM6GRATICN  INITIALIZATION 


LSBR*  S PAGE  NCt  21  £7  S3 


REF  4 last  1212 
REF  1 


13.3653  52040  1 

13.3654  27156  0 

13.3655  27641  1 


8MN 


GOTC 

A-PCHK 

TIM6INC 


REF  4 
REF  6 
REF  41 

REF  227 


LAST  1217 
LAST  1217 
LAST  977 

LAST  1213 


13.3656 

13.3657 

13.3660 

13.3661 

13.3662 

13.3663 

13.3664 


77414 
04674 
25*  744 
C 5567 
01703 
0 6042 
77616 


NCTlwe 


0 

0 

1 

C 

1 

1 

0 


CLEAR  EXIT 

MIDIFLAG 
INCR  IRETURNl 

TC  ALARM 

nCT  1703 

TC  INTPRET 

RVQ 


TOO  LATE 

SET  ERROR  EXIT  (CALLOC  +2) 
INSUFFICIENT  TIME  FOR  INTEGRATION  — 
TIG  V^ILL  BE  SLI  FPEOcoq 


REF  1 


REF  1 


13.3666 

13.3667 
13,3670 
27,3361 
)4,2000 
04,3131 

1166 


OQOOO 

CC003 

OOOOO 

03720 


1 

1 

1 

1 


3CS6CS  2CEC  ? 

TIMEOELT  20EC  2000 


BANK  27 
SETLOC  UPDATF2 
BANK 

E6ANK=  INTUAKUC 


REF 


COUNT*  ft/INTIN 


REF 


1166 


INTWAKUQ  = INTWAKl  C 


TEMPORARY  UNTIL  NAME  OF  INTWAKIO  IS  CHNG 


REF 


LAST  1218 


04,3131  0 0003  1 INTWAKEU  RELINT 


04.3132  C 0006  1 

04.3133  23*166  1 


EXTEND 

CXCH  INTWAKUC 


SAVE  0 FOR  RETURN 


REF  228  LAST  1218 


04,3134  0 6042 


TC  INTPRET 


REF  3 LAST  214 
REF  1 


04.3135 

14. 3136 

04.3137 


53135 

01502 

11176 


0 

1 

1 


SLCAO  eZE  IS  THIS  A CSM/LEH  STATF  VECTOR  UPDATE 

UPSVFLAG  REQUeSTo  IF  NOT  GO  TO  INTWAKUPo 

INTWAKUP 


REF  13  LAST 
REF  20  LAST 
REF  9 LAST 

REF  5 LAST 

REF  4 LAST 

REF  1 
REF  1 


REF  21  LAST 


04, 3140 
1214  14,3141 

1214  04,3142 

1210  04,3143 

04,3144 
1210  04,3145 

04,3146 
1218  04,3147 

04.3150 

04.3151 

04.3152 

04.3153 

14.3154 
1210  04,3155 


77775  1 
01503  0 
25535  0 
C1511  0 
77624  1 
27706  0 
51535  0 
01502  1 
53C25  0 
11207  1 
11157  1 
43174  1 
OOOOO  1 
00223  1 


VLCAD 

RR6CT 
STCVL  RCV 

VRECT 

CALL 

RECTIFY  +13D 
SLOAO  ABS 

UPSVFLAG 
OSU  BZE 

UPMNSVCO 
INTWAKEM 
AXT,2  CLRGr 
DEC  0 

MOCNFLAG 


MOVE  RRECT(61  AND  VRECT(6»  INTO 

RCV(6>  AND  VCV16)  RES PECT  IV ELYo 

NOW  GO  TC  'RECTIFY  +130*  TO 
STORE  VRECT  INTO  VCV  AND  ZERO  CUT 
TDELTAV(6),TNUV(6),TC(2)  AND  XKEP(2) 
COMPARE  ABSOLUTE  VALUE  OF  'UPSVFLAG* 

TO  'UPDATE  MOON  STATE  VECTOR  CODE* 

TO  DETERMINE  WhETHEP  THE  STATE  VECTOR  TO 
BE  UPDATED  IS  IN  THE  EARTH  OR  LUNAR 
SPHERE  OF  INFLUENCEe 
EARTH  SPHERE  OF  INFLUENCE-. 


GAP  : 

L 

1090 

1091 

1092 

IC93 

1094 

A1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

110^ 

1105 

1106 

1107 

1108 

11C9 

1110 

1111 

11J2 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 
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17: 53  OEC«  I9il969 


SKIPPER  r 101  PAGE  1219 


INTEGRATION  INITIALIZATION 


USER'S  PAGE  NC«  22  E2  S3 


REF  1 

REF  22  LAST  1218 


04,3156 
04  ,3  157 
14,3160 
04,3  161 
04,3162 


11162  1 

43174  1 INTViAKEM  AXT,2 
00002  0 DEC 

00063  1 

50135  0 INTRAKEC  SLCAD 


INTWAKEC 

SET 

2 

MOONFLAG 

BMN 


REF  5 LAST  1218 

REF  1 

REF  4 LAST  1209 


04.3163  ri502  1 

04.3164  11172  0 

04.3165  77624  1 

04.3166  2666C  0 


UPSVFLAG 
I NTWAKLM 

CALL 

ATCPCSN 


LUNAR  SPHERE  OF  INFLUENCE# 


COMMON  CODING  AFTER  X2  INITIALIZED  AMD 
MOONFLAG  SETIOR  CLEARED)# 

IS  THIS  A REQUEST  FOR  A LFM  OR  C SM 
STATE  VECTCR  UPOATEoooooo 
UPDATE  CSM  STATE  VECTCR 


REF 

REF 


2 LAST  1214 
) 


)4,3167  52014  0 
34  ,3170  01671  0 
04,3171  11174  0 


CLEAR 


GOTO 

0R6WFLAG 

INTWAKEX 


REF 


34,3172 
LAST  1209  04,3173 


77624  I INTWAKLM  CALL 
26733  1 


ATCPLEM 


UPDATE  LM  STATF  VECTOR 


REF  12  LAST  1214 


77614  1 INTWAKEX  CLEAR 
02676  1 


PEN0WFL6 


■:4,3176 

REF  6 LAST  1219  04,3177 

04,3200 

REF  3 LAST  713  04,3201 

04,3202 


45131  0 
01502  1 
OOOOO  1 
27417  0 
77776  1 


INTWAKUP  SSP 

EXIT 


CALL 

UPSVFLAG 

0 

1 NTWAKEO 


REMOVE  tUPOATE 

RELEASE  :GRA8: 


STATE  VECTOR  INDICATOR : 

CF  ORBIT  INTEG 


REF  109 
REF  3 


LAST  1213 
LAST  1218 


04.3203 

04. 3204 

04.3205 


0 5353  1 
04C26  1 
0 1166  1 


TC  PHASCHNG 

OCT  C4026 

TC  INTwAKUQ 


04.3206  CCCC2 

34.3207  COOOO 


0 LPMNSVCC  OCT 

1 OCT 


2 

0 


REF  ? LAST  127 
REF  110  LAST  1219 

REF  229  LAST  1216 

REF  3 LAST  1219 


04.3210 

04.3211 

04.3212 

04.3213 
C4,3214 
04,3215 
C4 ,3216 


77420  I 
02711  1 
0 5353  1 
04C22  0 
0 6042  1 
77650  1 
C27H  I 


STG 

TC 

CCT 

TC 

GOTO 


EXIT 

GPP2SVC 

PHASCHNG 

04022 

INTPRET 

GRP2SVC 


gap: 

L 

ROOOl 

0002 

00C3 

0004 

0005 

R0C06 

0C07 

0006 

000« 

0010 

OOU 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0026 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

003  6 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 
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ASSEMBLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


OPeiTAL  INTEGRATION 


USER’S  PAGE  NCo  1 £0  S3 


REF  1 
REF  1 

REF  11 

REF  4 
REF  21 

REF  64 

REF  15 
REF  11 

REF  7 
REF  1 9 


REF  5 

REF’  16 


REF  1 

REF  20 


DELETE 


13,3671 

11,2000 

11,2404 


BANK  13 
SETLOC  ORBITAL 
BANK 

COUNT*  $S/CRE1T 


DELETE 
LAST  1211 

LAST  1211 
LAST  1218 

LAST  1207 

LAST  1206 
LAST  1210 

LAST  1210 
LAST  1149 


LAST  1220 

LAST  1220 


LAST  1220 


11,2404 
11,2AC5 
11  ,2406 
11,2407 
11,2410 
11  ,'2411 

11.2412 

11.2413 

11.2414 

11.2415 
11  ,2416 
11,2417 
U,2420 
11  ,2421 

11.2422 

11.2423 

11.2424 

11.2425 
11  ,2426 
11 ,2427 

11.2430 

11.2431 
11,  2432 

11.2433 

11.2434 

11. 2435 
11  ,2436 
11 ,2437 

11.2440 

11 .2441 

11.2442 

11.2443 

11.2444 

11.2445 
11  ,2446 
11 ,2447 
11,2450 
11  ,2451 
U,  2452 

11.2453 

11.2454 
11  ,2455 
11  ,2456 
11,2457 


C2030  0 
00001  0 
75543  1 
51770  0 
53515  0 
C1535  0 
60325  0 
0C045  0 
C0047  1 
77715  1 
65241  0 
01543  1 
02074  0 
60225  1 
01551  1 
00051  a 
77742  0 
65271  0 
00003  1 
41405  0 
00005  1 
65316  0 
00005  1 
64716  0 
51770  0 
40442  I 
47515  0 
01543  1 
44205  0 
C0C45  0 
41271  0 
00003  1 
53605  1 
11230  0 
20176  C 
43260  1 
00050  1 
45257  0 
20211  1 
41205  0 
CCOOl  0 
00005  1 
53657  0 


LXA,2  SETPO 
PBCDY 
0 

DLCAD*  SORT 

MUEARTH  ,2 

PDVL  UNIT 
PCV 

POOL  NORM 
360 
XI 

PCVL 

DCT  POOL 

VCV 
TAUo 

DSU  NORM 

TC 
SI 

SRI 

CDV  POOL 

20 

DMP  PUSH 

40 

OSQ  POOL 

40 

DSC  PDCL* 

MUEARTH, 2 

SR3  SR4 

POVL  VSC 

Vf  V 

CMP  BOSU 

360 

DOV  DMP 

20 

OMP  SL* 

DP2/3 
0 -3  ,1 

XSU,1  DAD 

SI 

SL*  DSU 

60,1 

CMP  DMP 

00 
40 

SL*  SL* 


SORT(MU)  (+18  OR  +151  CO  PL  20 

PL  60 

NORM  R (+29  OR  +27  - N1  > 2 0 PL  40 

F*S0PT(MUM+7  nR+51  4C  PL  60 

( +28> 


FS(  + 6 +M-N2I  6C  PL  60 

(FSISQ{+12  +2(N1-N2»)  80  PL  100 

SSQ/MU(-20P  +2(N1-N2n  JOO  PL  120 


PREALIGN  MU  (+43  OR  +37)  120  PL  14D 
PL  120 
PL  100 

-(  1 /R-ALPHA  )( +12  +3N1-2N2) 


lOl  (1/R-ALPHA)  (+13  +2(N1-N2)) 

2(FS) SO  - ETCETRA  PL  80 

XI  = N2-N1 

-FS+2(FS)SQ  ETC  (+6  +N3-N2>  PL  60 


GAP : 

L 

0051 

0052 

0053 

C05^ 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

006  5 

0066 

0067 

0068 

0069 

0070 
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ORBITAL  INTEGRATION 


USER'S  PAGE  NCo  2 EO  S3 


REF  2 LAST  126 

REF  3 LAST  1150 

REF  3 LAST  1169 

REF  3 last  1173 

REF  23  LAST  1219 

BEF  1 

REF  2 LAST  1221 


11.2460  20211  1 

11.2461  2C2C1  0 

11.2462  65215  1 

11.2463  01553  0 

11.2464  53605  I 

11.2465  00001  0 

11.2466  20202  n 

11.2467  43204  0 

11  ,2470  57754  0 

11.2471  77626  0 

11.2472  75647  0 

11.2473  74020  0 

11.2474  C2112  1 

11.2475  00012  1 

11.2476  74014  I 

11.2477  C0303  1 

11  ,2500  24023  0 

11.2501  C0002  0 

11.2502  77650  1 

11  ,2503  24023  0 


0,1 

DAD  POOL 

XKEP 

DMp  SL* 

OD 

1 ,1 

B0V8  DAD 

TC0AN2 IG 

STAOP 

STORE  XKEPNEU 
STO  AXC.I 

KFPRTN 
DEC  10 

BON  AXC,1 

MOCNFLAG 
KEPLERN 
DEC  2 

GOTO 

KEPLERN 


S(-FSI1-2FS  )-l/6oo»)(*17  OR  +16) 

PL  60 


S (+17  OR  +16) 


GAP : 

L 

0071 

0072 

0073 

C074 

0075 

0076 

0077 

0078 

007‘3 

0080 

0081 

0082 

0083 

0084 

00  85 

0086 
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ORBITAL  INTEGRA!  ION 


USER'S  PAGE  NCo 


REF 

REF 

REF 


LAST  1205 
LAST  1220 


LAST  1212 


LAST  1220 
LAST  1220 


LAST  1210 


11  12504 
U ,2505 

11.2506 

11.2507 

11.2510 

11.2511 

11.2512 

11.2513 

11 .2514 

11.2515 

11.2516 
11  ,2517 
ll,252C 

11.2521 

11.2522 

11.2523 


66350  1 
C1500  0 
00051  0 
77762  1 
54345  1 
02076  1 
20612  0 
61500  0 
22515  0 
43206  1 
01551  1 
16074  0 
-77615  0 
01517  0 
35517  1 
22404  I 


CEC 

DLDAD 


TIX,1  RCUNO 


STOOL  TAU« 

DAO 

TET 

STCALL  TET 

KEPPREF 


PAGE  1223 


GAP:  ASSEMBLE  REVISIC^  131  OF  AGC  PRCCRAM  LUMINARY  BY  NASA  2021112-C'51 

L ORBITAL  INTEGRATION 

P0087  AGC  ROUTINE  TO  COMPUTE  ACCELERATION  COMPONENTS* 


17:53  DEC*  19  ,1969  SKIPPER  dOl 

USER  'S  PAGE  NGe  4 EC  S3 


0088 

008Q 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 
0096 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 
01C9 
0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 
0129 
013(1 

0131 

0132 

0133 

0134 


REF  10  LAST  1 2C  8 
REF  2 LAST  115 
REF  20  LAST  1130 


REF 

REF 


22  LAST 
2 LAST 


1220- 

115 


REF  20  LAST  1217 


REF 

REF 


REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 


REF  20  LAST  1223 


LAST 

LAST 


LAST  1128 


3 LAST 
33  LAST 
23  LAST 
2 LAST 
5 LAST 


1223 
1205 
1223 
1)  5 
1223 


3 LAST  1211 
1 

25  LAST  1222 
3 LAST  979 


REF  34  LAST  1223 
REF  24  LAST  1221 


11,2524 

U»2525 

11.2526 

11.2527 
11,2530 
11  ,2531 

11.2532 

11.2533 

11.2534 

11.2535 

11.2536 

11.2537 
11,2540 
11  ,2541 

11.2542 

11.2543 
11  ,2544 

11.2545 

11.2546 

11.2547 
11,2550 
11  ,2551 
11  ,2552 
11,2553 
11  ,2554 

11.2555 

11.2556 

11.2557 
11,2560 
11  ,2561 
11  ,2562 
11,2563 
11  ,2564 

11.2565 

11.2566 

11.2567 
11,2570 
11  ,2571 
11  ,2572 
11 ,2573 
11  ,2574 

11.2575 

11.2576 

11.2577 
11,2600 
11  ,2601 
11 ,2602 


73150  1 
C2C30  0 
02030  0 
77775  1 
24007  0 
26062  1 
02032  1 
53257  1 
57605  0 
C1535  0 
02040  1 
65014  1 
CI756  1 
22546  0 
Cl  500  C 
12132  1 
77724  0 
C1500  0 
53575  0 
C2032  1 
16032  1 
00045  0 
36070  0 
22655  1 
66175  1 
C2C40  1 
00051  0 
16032  1 
C2072  0 
02070  1 
71214  0 

00342  1 
23026  1 
C1517  0 
77624  1 
33647  1 
72174  0 
00002  0 
00051  0 
77614  1 

00343  0 
22600  1 
77076  0 
COOOO  1 
C204O  I 
26105  1 
00003  1 


ACCCMP  LXA,1 

VLCAO 

STOVL 

VSL* 


LXA,2 

P6CCY 

P800Y 

2ERCVEC 

FV 

ALPHAV 

VAO 

0 -7,2 
RCV 
BETAV 
XCHX,2 
DI ROFLAG 


STORE 

XChX,2 

VLOAD 

STOOL 

STCALL 

VLOAD 

STCDL 


DIFECCNT 

UNIT 

ALPhAV 

ALPHAV 

360 

ALPHAM 
GA  MCONP 
SXA,1 
BETAV 
S2 

ALPHAV 

BETAM 

ALPHAM 

DLCAO 

MIOFLAG 

OBLATE 

TFT 


CALL 

AXT,2 


VCOMP  AXT,2 


STORE 

STCVL 


BETAV 

FPOV 


GAP : 

L 

0135 

0136 

0137 

0138 

013° 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0160 

0181 

018^ 

0183 

0184 
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USER'S  PAGE  NCo  5 EO  S3 


REF  2 

REF  18 
RtF  1 


REF  21 
REF  T 

REF  24 
REF  6 


REF  5 

REF  21 
REF  9 
REF  7 

REF  22 

REF  4 


REF  3 
REF  25 


REF  3 
REF  4 

REF  2 


REF  5 
REF  6 
REF  3 

REF  2 

REF  7 


RFF  7 


LAST  115 
LAST  BBl 

LAST  1223 

LAST  1223 
LAST  1223 

LAST  1223 

LAST  1222 
LAST  1223 
LAST  116 

LAST  122^* 

LAST  1223 

LAST  1209 
LAST  1223 

LAST  1224 
LAST  1224 

.LAST  1223 

LAST  1224 
LAST  1224 
LAST  1224 

LAST  1223 

LAST  1224 


LAST  1224 


11  ,2603 

11.2604 

11.2605 

11.2606 
11,2607 
11,2610 
11,2611 
11, 2612 
ll  ,2613 

11.2614 

11.2615 

11.2616 
11,2617 
11,2620 
11,2621 
11,2622 
11  ,2623 

11.2624 

11.2625 
11  ,2626 
11,2627 

11.2630 

11.2631 
U,  2632 
11  ,2633 
11  ,2634 
11,2635 
11  ,2636 
11,2637 

11.2640 

11.2641 

11.2642 
11  ,2643 

11.2644 

11.2645 
11  ,2646 
11,2647 
11,2650 
11  ,2651 
11,2652 
11  ,2653 

11.2654 

11.2655 

11.2656 

11.2657 
11,2660 
11  ,2661 
11,2662 
11  ,2663 
11,2664 


02122  1 
45335  C 
ClOll  0 
11232  1 
43C30  0 
22613  0 
01756  1 
22627  1 
74375  0 
02032  1 
C2-070  1 
52257  0 
57175  0 
02040  1 
77724  0 
C1500  0 
12140  1 
02114  1 
77724  0 
01500  0 
62175  0 
02105  1 
0C0O4  0 
43014  0 
04260  1 
00343  0 
22642  1 
53261  1 
2C612  0 
02122  1 
02122  1 
77624  1 
22655  1 
62174  I 
00004  Q 
00004  0 
77775  1 
02122  1 
36040  0 
22655  1 
77650  I 
23026  1 
74575  0 
02040  1 
40236  1 
00001  0 
61501  1 
C0040  0 
60325  0 
02070  1 


GETRPSV 


GAMCOMP 


STCRE  RPSV 
SLCAL  DSU 

MODREG 

DCT27 

BHIZ  BOF 

DIMOFLAG 
GFTRPSV 
VLOAD  VXSC 

ALPHAV 
ALPHAM 
'JSfi*  VSU 
1 ,2 
PETAV 

XCHX  ,2 

DI FECCNT 

STORE  VECTAB  *6,2 
STCRE  ROW 
XCFX,2 

DIFEOCNT 
VLCAO  INCR,1 
RPOV 

CLEAR  BCF 

RPQFLAG 
MOCNFLAG 
+ 5 

VSR  VAO 
90 

RPSV 
STCRE  RPSV 
CALL 

GAMCOMP 
AXT,2  INCRtl 


VLCAD 

RPSV 

STCALL  BETAV 

GAMCCMP 

GOTO 

OBLATE 
VLOAD  VSRl 
BETAV 
VSQ  SETPD 
0 

NCRM  PCUNC 
31D 

PCDL  NORM 

ALPHAM 


•-t-j 


NORMEO  B SQUARED  TC  PD  LIST 
NORMALIZE  (LFSS  ONE>  LENGTH  OF  ALPHA 


GAP; 

L 

0185 

0186 

0187 

ClBe 

0189 

0190 

0191 

0192 

0193 

019A 

0195 

0196 

6197 

0198 

0199 

0200 

0201 

0202 

0203 

0209 

0205 

02  06 

0207 

0208 

0209 

0210 

0211 

0212 

021’ 

0219 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0229 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0239 
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USER'S  PAGE  NCo  6 EO  S3 


REF  8 
REF  9 
REF  3 

REF  1 
REF  22 

REF  23 


REF  29 

REF  25 
REF  10 

REF  1 

REF  2 

REF  3 

REF  1 

REF  U 
REF  26 


LAST  1229 
LAST  1225 
LAST  1223 


LAST  1222 
LAST  1225 


LAST  1225 

LAST  1229 
LAST  1225 


LAST  1225 

LAST  933 


LAST  1225 
LAST  1225 


ll»26e6 

11,2667 

11.2670 

11.2671 

11.2672 

11.2673 
11,2679 
U ,2675 

11 .2676 

11.2677 
11  ,2700 

11.2701 

11.2702 

11.2703 

11.2709 
11  ,2705 

11.2706 

11.2707 

11 .2710 

11. 2711 

11.2712 

11.2713 

11.2719 
11  ,2715 
11,2716 
U,2717 

11 .2720 

11.2721 

11.2722 

11.2723 
11,2729 
11  ,2725 

11.2726 

11.2727 
11  ,2730 

11.2731 

11.2732 

11.2733 
11,2739 
11  ,2735 

11 .2736 

11.2737 
11  ,2790 

11.2791 

11.2792 
n ,2793 
11,2799 
11  ,2795 
11,2796 


00091 
63392 
C2090 
77656 
16090 
00095 
02072 
5-5301 

00092 
91562 
777*3 
27731 
OOC51 
57129 
00050 
C0090 
71269 
00091 
00003 
65057 
57177 
00050 
79906 
50315 
02032 
02090 
99372 
57206 
COOC5 
77752 
93206 
25766 
75906 
91975 
00013 
93352 
25766 
93325 
0QC13 
29005 
72975 
00011 
56215 
25760 
C0017 
79275 
00007 
C2090 
69515 
02032 


1 

1 

I 

1 

0 

0 

C 

1 

C 

1 

1 

n 

1 

1 

0 

1 

1 

1 

0 

1 

1 

0 

0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

0 

1 

1 

1 

0 

1 

I 

1 

1 

1 

1 

1 

0 

1 

1 

1 


32D  SAVING  NORM  SCALE  FACTOR  IN  XI 

SRI  PDVL 

BFTAV  CIPOL+2)  = ALMOST  NORMET  ALPHA 

UNIT 

STCDL  BETAV 
360 

STORE  BETAM 

NCRM  BDDV  FORM  NORMALIZED  CUCTTENT  ALPHAM/BETAM 

330 

SPIR  PUSH  C(PDL+2)  = ALMOST  NORMALIZED  RHOc 

DLOAD* 

ASCALEtl 
STORE  SI 
XCHX,2  XAD,2 
SI 
320 

XSU,2  PLOAD 
330 
2D 

SR*  XCHX,2 
0 -1  ,2 
SI 

PUSH  SRIR  RHO/9  TO  90 

POVL  OCT 

ALPHAV 

BETAV 

SHR  BOSU  {RHO/9)  - 2 ( AL  PHAV /2«  0 FT  AV/2  ) 

PUSH  DMPP  TO  PDL+6 

9 

SLl 

PUSH  OAC 

DOLARTER 
PUSH  SORT 
DMPR  PUSH 
lOD 

SH  DAD 

DQUARTER 

POOL  DAO  ( 1/9) +2{ (y  + 1 » /9  ) TO  PD+19D 

100 

HALFOP 
DMPR  SLl 
80 

DAD  DDV 

THREE/8 
1 9D 

DMPR  VXSC 
6 

BFTAV 

PCVL  VSR3  (G/2) (C ( PD+9) ) B/2  TC  PD+160 

ALPHAV 


GAP; 

L 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

02^3 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0252 

0253 

02  5A 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

027A 

0275 

0276 

0277 

0278 

0279 

0280 

02  81 

0282 
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REF  6 


RCF  25 
REF  35 


REF  U 


REF  26 
REF  3 
REF  4 


REF  8 
REF  1 
REF  2 


REF  9 
REF  13 
REF  26 

REF  27 
REF  3 

REF  6 

REF  4 
REF  4 


LAST  1220 


LAST  1225 
LAST  1223 


LAST  1221 


LAST  1226 
LAST  1223 
LAST  1226 


LAST  1208 


LAST  115 


LAST  1222 
LAST  1222 
LAST  1223 

LAST  1226 
LAST  1222 

LAST  123  8 

LAST  1224 
LAST  1217 


ll  ,2747 

11.2750 

11.2751 
11  ,2752 

11.2753 

11.2754 
11  ,2755 
11,2756 
11  ,2757 

11.2760 

11.2761 
11  ,2762 

11.2763 

11.2764 

11.2765 

11.2766 
11  ,2767 

11.2770 

11.2771 
11  ,2772 

11.2773 

11.2774 

11.2775 

11.2776 

11 .2777 

11 .3000 

11.3001 
11  ,3002 

11.3003 

11.3004 

11.3005 

11.3006 

11 .3007 
11,30X0 
11, 3011 
11  ,3012 

11.3013 

11.3014 

11.3015 

11.3016 
11  ,3017 
U ,3020 
11,3021 
11  ,3022 


41455  0 
41345  C 
00001  0 
00015  0 
61501  1 
00037  0 
40665  0 
00003  1 
51770  0 
74276  1 
57124  1 
000  50  1 
CCC51  0 
55064  0 
C0036  1 
00037  0 
53604  0 
57T54  C 
57177  1 
53324  1 
CQ05C  1 
G2062  1 
C2062  1 
43400  1 
23000  0 

51575  1 GOBAQLE 
01521  0 
77654  0 
23C23  1 
54345  1 
02100  1 
20612  0 
44206  0 
C1561  1 
16C74  C 
0151  7 n 
45425  C 
42260  0 
22404  1 
77624  1 
27671  1 
77614  1 
04020  1 
27256  0 


VAO  PUSH  A12  + C(P0+160J  TC  P0+16D 

DLCAC  DMP 
0 

J2D 

NORM  ROUND 
30D 

0CCV  OMP* 

2 

MUEARTH, 2 
DCGMP  VXSC 
)(CFX,2  XAD,2 

51 

52 

XSU,2  XSU,2 
300 
310 

eOVB  VSR* 

TCCANZTt 
0 -1  ,2 
XChX,2  VAD 
SI 
FV 

STORE  FV 

BOV  RVG  RETURN  IF  NO  OVEPFLCW 

+ l 

VLCAO  ABVAL 

TDELTAV 

tiZE 

I NT-ABRT 
OLOAO  SR 
H 

90 

PUSH  BOSU 
TC 

STOOL  TAUo 
TET 

OSU  STAOR 
STCALL  TET 

KEPPREF 

CALL 

RECTIFY 

SETGO 

RPQFLAG 

TESTLOOP 


REF 


LAST  1195 


11.3023  77776  1 INT-ABRT  EXIT 

11.3024  0 5642  1 TC  POODOO 

11.3025  2C430  1 OCT  20430 


GAP  : 

L 

P0283 

R0285 

RO207 

0289 

0290 

02  91 

0292 

0293 

029A 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

030A 

0305 

0306 

03  07 

0308 

0309 

0310 

0311 

0312 

0313 

031* 

03!  5 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0131 

0332 

0333 

0334 

0335 
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LAST  1224 


LAST  1225 
LAST  1226 


AST  1127 


LAST  1206 


ORBITAL  INTEGRATION 

THE  CBLATE  RCUTUE  CCMPUTES  TK£  ACCELERATION  DUE 
POSITION  VECTOR  FOUND  IN  ALPHAV  AND  THE  DISTANCE 
CISTURfilNG  ACCELERATIONS  IN  FV  AND  THE  PROPER  01 
11  ,3026  , 71354  0 DELATE 

REF  14  LAST  1223  11,3027  C2C30  0 

REF  8 LAST  1224  11,3030  C2070  1 

11.3031  44601  0 

11. 3032  COCCI  0 

11  ,3033  50032  0 

11.3034  43044  0 

11.3035  22264  0 

11  ,3036  00343  0 

n,3037  23273  0 

11.3040  65375  0 

11.3041  02032  1 

11.3042  C1517  0 

11  ,3043  45125  0 

11  ,3044  25756  1 

11,3045  51700  1 

11  ,3046  24017  1 

11,3047  24001  0 

11,3050  45006  0 

11  ,3051  23301  1 

11,3052  77715  1 

LAST  1130  11  ,3053  24005  1 

11,3054  45006  C 

LAST  1227  11,3055  23301  1 

11  ,3056  77772  0 

11,3057  24041  1 

11.3060  77772  0 

11.3061  14025  0 CCMTERM 

11.3062  00023  0 

11.3063  65275  I 

11  ,3064  25770  0 

LAST  1227  11,3065  00023  0 

11  ,3066  57316  1 

11,3067  25772  1 

11.3070  41425  1 

11.3071  25764  0 

11,3C72  41275  1 

LAST  1227  11  ,3073  00023  0 

11.3074  11222  0 

11.3075  65372  1 

11.3076  00001  0 

11.3077  44275  1 

11.3100  11230  0 

11.3101  57206  1 

LAST  1227  11,3102  00023  0 

11.3103  65275  1 

11.3104  11224  0 


REF 

REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF 

REF 


REF 


REF 


REF 


REF 


REF 


USER’S  PAGE  NCo  6 EO  S 

TO  OSLATENESSc  IT  USES  THE  UNIT  OF  THE  VEHICLE 
TO  THE  CENTER  IN  ALPHAM^  THIS  IS  ADDED  TO  THE  SUM  OF  THE 
FEO  STAGE  IS  CALLED  VIA  Xl<, 

LXA,2  DLOAD 
PBCOY 
A LPHAM 
SETPD  DSU* 

0 

ROE, 2 

BPL  BOF  GET  URPV 

NBKANCH 
MOONFLAG 
COSPHIF 
VLOAD  PDDL 

ALPHAV 
TET 
CALL 
3/5 

R-TO-RP 
URPV 
ZUMT 
CALL 
MATRIX 

XUNIT 
CALL 
MATRl  X 


POOL 

STOVL 

PUSH 

PDVL 

PUSH 

VSLl 

STCVL 

VSLl 

STCDL 

DMPR 

DSO 

osu 

OMPR 

SLIR 

OMPR 

PUSH 

DMPR 


UZ 

COSPHI  /2 

POOL 

3/32 

COSPHI  /2 

OMPP 

15/16 

PUSH 

3/64 

DMP 

COSPHI /2 
7/12 
PDDL 
00 
BDSU 
2/3 
DMPR 

CrSPHI  /2 

PDDL 

9/16 


RP/R  B-1  IN  PLANETARY  COORDINATES 

ZUNIT  B-1  IN  PLANETARY  CCCRDL  AT  OOD 

UZ  8-2  IN  INERT  COOPC  AT  ODD 

XUNIT  B-1  IN  PLANETARY  COORDe  AT  06D 


1 IN  INERTo  COORD  AT  320 

AT  200 
AT  OOD 


B-1  IN  INERTIAL  COORD 

Z-COMPCNENT  CF  URPV 
B-6  , 3CGSFHI/64 


, ( 1 /2  M 1 5CCSPHI  -3 ) 


-7,  ( 1 /3  » ( 7C0SPHI  P -4P  ) 


GAP : 

L 

0336 

0337 

0336 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

03  61 

0362 

0383 

0384 

0385 
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REF  1 

REF  1 
REF  9 

REF  I 
REF  K 


REF  28 
REF  1 

REF  2 

REF  11 

REF  2 

REF  12 

REF  2 

REF  2 
REF  3 
REF  13 

REF  65 

REF  Z7 

REF  1 

REF  4 

REF  66 
REF  67 

REF  28 

REF  5 
REF  1 
REF  6 
REF  2 


LAST  1227 

LAST  1228 

LAST  1227 

LAST  1228 

LAST  1228 

LAST  1228 

LAST  1228 

LAST  1227 

LAST  1228 
LAST  1220 
LAST  1220 

LAST  1220 

LAST  1226 

LAST  1228 

LAST  1228 
LAST  1228 

LAST  1228 

LAST  1226 

LAST  1228 
LAST  1227 


11.3106 

11. 3107 

11.3110 

11. 3111 

11.3112 
11, ,3113 
11,3114 
11  ,3115 

11.3116 

11.3117 

11 .3 120 

11. 3121 
U ,3122 

11.3123 

11.3124 
1\  ,3125 
U-,3126 
11,3127 
11,3130 
11,  3131 

11 .3132 

11.3133 

11.3134 
11  ,3135 
U,  3136 
11,3137 

11 .3140 

11.3141 

11 .3142 
11  ,3143 
11,3144 
11  ,3145 

11.3146 

11.3147 
11,3150 
11,37  51 
11  ,3152 

11.3153 

11.3154 
11  ,3155 

11.3156 

11.3157 

11.3160 

11. 3161 

11.3162 

11.3163 

11.3164 
11  ,3165 
11,3166 


00003  1 
44275  1 
11226  1 
562C3  0 
51764  C 
02070  1 
56615  0 
COCOS  1 
51760  1 
43271  1 
02070  1 
00003  1 
77761  1 
02032  1 
14033  1 
70403  1 
51764  0 
43271  1 
02070  1 
5C473  1 
51760  1 
43271  1 
G2070  1 
76561  1 
00025  0 
77645  0 
00033  1 
14033  1 
02070  1 
63501  0 
00047  1 
60316  0 
00051  0 
54606  0 
51 754  0 
40161  0 
CC033  1 
23153  1 
56070  0 
00046  0 
00046  0 
53670  0 
C0C50  1 
20153  1 
40055  0 
02062  1 
23000  0 
16062  1 
00017  1 
41414  0 
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57602  1 
01543  I 
01511  0 
25543  1 
24CC7  0 
01521  0 
15527  0 
24007  0 
01551  1 
01553  C 
7T616  0 


RECTIFY  LXA,2  VLCAC 
PBCOY 
TOELTAV 
VSL#  VAO 

r -7,2 
RCV 

STORE  RRECT 
STOVL  kCV 
TNUV 

VSL*  VAO 

0 -4,2 
VCV 

MINIRECT  STORE  VRECT 
STOVL  VCV 

ZERCVeC 
STORE  TOELTAV 
STCDL  TNUV 

ZERCVEC 
STORE  TC 
STCRE  XKEP 
RVQ 

BANK  11 
SETLCC  ORBITAL 
BANK 


GAP  : 

L 

P0585 

Rose? 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 

0601 

Q602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 

0611 

0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 

0621 

0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 

0635 
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17:53  DECo  19,1969  SKIPPER  c 101  PAGE  1234 


ORBITAL  INTEGRATION 


USER'S  PAGE  NOf 


REF 

REF 

REF 


LAST  1230 
LAST  115 


REF  10  LAST  J234 


REF 

PEF 

REF 

REF 

REF 


REF 

REF 

REF 

REF 

PEF 

REF 


LAST  1234 
LAST  115 


LAST  1234 
LAST  1234 
LAST  1234 


LAST  1231 
LAST  1220 


LAST  1234 
LAST  1234 


LAST  1234 


LAST  1221 


REF  21  LAST  1209 


REF 

REP 


REF  31 
REF  6 


LAST  104 
LAST  1234 


LAST  1149 


LAST  1234 


11.3475 

11.3476 

11.3477 

11.3500 

11.3501 

11.3502 
11,3502 

11 .3504 

11 .3505 

11.3506 
11  ,3507 

11. 3510 

11.3511 

11.3512 

11.3513 
11  ,3514 

11.3515 

11.3516 
11  ,3517 

11.3520 

11.3521 

11.3522 

11.3523 

11  ,3524 
11  ,3525 
11,3526 
11  ,3527 

11.3530 

11.3531 
11,3522 
11,3533 
11  ,3534 
11  ,3535 
11,3536 
11  ,3537 

11.3540 

11.3541 

11.3542 

11.3543 

11 .3544 
11  ,3545 
11,3546 
11  ,3547 

11.3550 

11.3551 


64575  1 
02062  1 
36046  0 
23655  Q 
74575  0 
02062  1 
£3206  C 
02046  1 
26054  I 
53262  0 
02046  1 
36G46  0 
23655  0 
57345  1 
C2100  1 
11230  0 
74206  0 
02046  1 
53372  1 
01134  0 
53361  0 
C2100  1 
C1126  0 
25126  0 
02062  1 
53222  1 
02054  1 
76561  1 
77655  1 
01134  0 
C1134  0 
45014  0 
00341  1 
236C6  0 
11210  1 
77354  0 
01116  0 
01134  0 
77732  1 
12467  1 
77775  1 
01126  0 
40132  0 
23700  1 
12401  I 


DIFEQ+0  VLOAC  VSR3 


STCALL  PHIV 


CIFEQ  + 1 VLOAD 


DI  FEQCCP 

VSRl 

FV 


PUSH 


STCVL 

VSPl 


VAO 
PHIV 
PSIV 
VAD 
PHIV 
STCALL  PHIV 


CIFeO+2  CLCAC 


OIFEQCCM 

DMPk 

H 

CP2/3 

VXSC 

PHIV 

VAD 

2V 

VAO 


STOVL  YV 
FV 

VSR3  VAD 
PS  IV 
VXSC  VSLl 


ZV 

ZV 

CALL 

JSV.1TCH 

ENDSTATE 

GRP2PC 

VLCAD 

COLREG 

ZV 


VSL3 

STORE 

VLCAC 


BOV 

WMATENO 


ADJUST  W-POSITICN  FOR  STORAGE 


STORE  U,2 


REF  22  LAST  1234 


NASA  2021112-OQl 


GAP: 


ASSEMBLE  REVISION  131  CF 


AGC  PROGRAM  LUMINARY  BY 


L • ORBITAL  INTEGRATION 


0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647 

0648 


REF  3 LAST  1234 
REF  36  LAST  1226 


REF  7 LAST  1234 

REF  1 

PEF  23  LAST  1234 

REF  8 LAST  J235 

REF  4 LAST  1235 


11 .3554  6o354  0 

11.3555  01116  0 

ll  ,3556  00052  0 

11,3557  ' COOOO  I 

11,3560  67114  1 

11  ,3561  00006  1 

11.3562  C1125  0 

11.3563  45104  0 

11.3564  23651  1 

11.3565  11210  1 

11  ,3566  67154  0 

11,3567  01125  0 

11,3570  01116  0 


LXA,2  SSP 

COLREG 

S2 

n 

INCR,2  SXA,2 
6 

VV 

T1X,2  CALL 

RELCACSV 
GRP2PC 
LXA,2  SXA,2 
YV 

COLREG 


0649 

0650  REF  24 

0651 

0652  REF  5 

0653  REF  33 

0654 

0655  REF  9 

0656 

0657  REF  34 

0658 

0659 

0660  REF  6 

0661  REF  I 


LAST  1235 

LAST  1235 
LAST  1234 

LAST  1235 

LAST  1235 

LAST  1234 


11.3571  77624  I 

11.3572  11210  1 

ir,3573  76754  0 

11.3574  01116  0 

11.3575  75376  1 

a ,3576  77722  0 

11,3577  01126  C 

U,3600  76173  0 

11  ,3601  75310  I 

11.3602  CCOOO  1 

11.3603  77722  0 

11.3604  35134  1 

ll,36C5  23401  0 


NEXTCOL 


CALL 

GRP2PC 
LXA,2  VLOAU* 
COLREG 
M,2 

VSR3 

STCRE  YV 
VLOAO*  A XT ,1 

W +540,2 

0 

VSR3 

STCALL  ZV 

OIFECO 


0o62 

0663  REF  3 

0664  REF  7 

0665  REF  12 

0666  REF  10 

0667  REF  13 

0666 

0669  REF  3 

0670  REF  1 

0671  REF  22 

0672  REF  5 

0673 

0674  REF  111 

U675 

0676  REF  69 

0677  REF  4 

0678  REF  230 

0679 

0680  REF  18 

0681  REF  3 

0682 

0683  REF  27 


LAST  1230 
LAST  1235 
LAST  1233 
LAST  1235 
LAST  1233 

LAST  1217 

LAST  1224 
LAST  1226 

LAST  1219 

LAST  1209 
LAST  1209 
LAST  1219 

LAST  1232 


LAST  1215 


11  ,3606 
11  ,3607 
11,3610 
11  ,3611 

11. 3612 

11.3613 

11.3614 

11.3615 
11  ,3616 
11,3617 
11,3620 
11  ,3621 
U,  3622 

11.3623 

11.3624 

11.3625 
11  ,3626 
11,3627 

11.3630 

11 .3631 

11.3632 

11.3633 


772O0  0 
23000  0 
01134  0 
25527  0 
01126  0 
01521  0 
43014  0 
C4715  0 
27627  1 
01756  1 
27256  C 
77776  1 
C 5353  1 
04022  0 
C 5504  0 
00236  0 
0 6042  1 
77731  I 
00C53  1 
23636  0 
52G14  0 
01714  1 


ENCSTATE  BOV 


STOVL 

STORE 

eoN 


EX  IT 
TC 
OCT 
TC 

ACRES 

TC 

SSP 


BON 


VLOAO 
GOBAQUE 
Z V 

TNUV 

YV 

TOELTAV 

BOFF 

MI  DAVFLG 
CKMI02 
OIMOFLAG 
TE  STLOCP 

PHASCHNG 

04022 

UPFLAG 

REINTFLG 

INTPRET 

QPRET 

AMOVED 

GOTC 

VINTFLAG 


17:53  DECo  19,1969  SKIPPER  <101  PAGE  1235 
USER’S  PAGE  NCo  3 6 EO  S3 


ADJUST  W-POSITICN 


FCR  INTEGRATION 


ADJUST  V-VFLOCITY  FCR  INTEGRATION 


CHECK  FOR  Mlb2  BEFCRE  GCING  TO  TIMEINC 


PHASE  1 

PHASE  CHANGE  HAS  OCCURRED  BETWEEN 
INTSTALL  ANC  INTWAKE 


GAP;  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-0<5l 
L ORBITAL  INTEGRATION 


0684  REF  5 

0685  REF  4 

0686 

0687  REF  4 

0688  REF  6 

068<3 

0690' 

0691  REF  10 

0692  REF  ) 

0693  REF  7 

0694 

0695 

C696  REF  2 


LAST  1219 
LAST  1219 

LAST  1234 
LAST  1235 

LAST  1215 
LAST  1236 

LAST  1236 


11.3634  2666C 

11.3635  26733 

11.3636  66214 

11.3637  C0061 

11  ,3640  01117 

11.3641  777*1 

11.3642  66214 

11.3643  01755 

11. 3644  ■ 2357] 

11.3645  01117 

11.3646  77717 

11.3647  77650 

11  ,3650  23571 


0 

1 

0 

0 

1 

0 

0 

1 

0 

I 

0 

1 

0 


ATCPCSM 

ATDPLEM 

AMCVED  SET  SSP 

JSk»ITCH 
COLREG 
DEC  -30 

BOFF  SSP 

060R9FLG 
NEXTCOL 
COLPEG 
DEC  -48 
GOTO 

NEXTCOL 


0697- 

0690  REF  9 

0699  REF  57 

0700  REF  1 

0701 

0702  REF  11 

0703  REF  6 

0704 

0705 

0706  REF  25 

0707  REF  7 

0708 

0709  REF  12 

0710 

0711  REF  8 

0712  REF  8 

0713 

0714  REF  11 

0715  REF  33 

0716 

0717  KEF  5 

0718  PEF  2 

0719  REF  1 


LAST  1217 
LAST  1216 


LAST  1230 
LAST  1234 


LAST  1231 
LAST  1236 

LAST  1234 

LAST  1235 
LAST  1236 

LAST  1235 
LA.ST  1231 

LAST  1236 
LAST  1231 


11.3651 

11.3652 

11.3653 

11. 3654 
11  ,3655 

11.3656 

11. 3657 
11  ,3660 

11.3661 

11.3662 

11.3663 
U,  3664 

11.3665 

11.3666 

11.3667 
11  ,3670 

11.3671 

11.3672 
11  ,3673 

11.3674 

11.3675 

11.3676 

11.3677 


77745  1 RELCACSV  CLOAD 


01115  0 
34041  0 
27140  1 

43345  1 DIFEQ' 
02076  I 
C2100  1 
66110  1 
77763  C 
C1500  0 
C2100  1 
74561  0 
02062  1 
74255  n 
C1134  0 
02100  1 
77655  1 
01126  0 
02032  1 
52C14  C 
0C301  0 
23714  1 
22504  0 


TOEC 

STCALL  TDECl 

I NTEGRV2 
DLOAD  DAO 
DT/2 
H 

INC«,1  SXA,) 

EEC  -12 

DIFEOCNT 
STORE  H 
VXSC  VSRl 
FV 

VAC  VXSC 
ZV 
H 

VAC 

YV 

STORE  ALPhAV 
BON  GCTC 

JSWITCH 

DOW«o 

FBR3 


0720 

0721  REF  23 

0722  REF  3 

0723 

0724  REF  13 

0725 

0726  KEF  9 

0727  REF  42 

0728 

0729  REF  231 


11  ,3700 
LAST  1235  ll  ,3701 

LAST  1219  11,3702 

11  ,3703 
LAST  1219  11,3704 

11,3705 
LAST  1211  11,3706 

LAST  1218  11,3707 

11  ,3710 
LAST  1235  11  ,3711 


43014  0 
01676  1 
C1671  0 
77614  1 
C2676  1 
77414  0 
01472  1 
0 5567  C 
00421  0 
0 6042  I 


IMATGNC 


CLEAR 


CLEAR 

SET 

TC 

OCT 

TC 


CLEAR 

OIMOFLAG 

ORBKFLAG 

PENDUFLG 

EXIT 

STATEFLG 

ALARM 

421 

INTPRET 
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USER'S  PAGE  NOo  17  BO  S3 


RELOAD  TEMPORARY  STATE  VECTOR 
FRCP  PERMANENT  IN  CASE  CF 

BY  STARTING  AT  INTEGRV2o 
INCREMENT  H AND  DIFEOCNT, 


DIFEOCNT  SET  FCR  NEXT  ENTRY,' 


DONT  INTEGRATE  H THIS  TIME 
INVALIDATE  W 


PICK  UP  STATF  VECTOR  UPDATE 


gap:  assemble  REVISION  131  CF  AGC  FPCGRAM  LUMINARY  BY  NASA  2021112-091 

L CPfilTAL  INTEGRATION 

0730  11,3712  77650  I GOTO 


17:53  DECo  19,1060  SKIPPER  olOl  PAGE  1237 
USER’S  PAGE  NCo  18  EO  S3 


REF  6 


LAST  1235 


TESTLOCP 


FINISH  INTEGRATING  STATE  VECTOR 


GAP: 

L 

P0732 

R0734 

R0736 

0738 

0739 

0740 

• 0741 

0742 

0743 

0744 

0745 

0746 

C747 

0748 

0749 

- 0750 

0751 

0752 

0753 

0754 

0755 

0756 

0757 

0758 

0759 

0760 

0761 

0762 

0763 

0764 

C765 

0766 

0767 

0768 

0769 

0770 

0771 

0772 

0773 

0774 

0775 

0776 

0777 

0778 

0779 

U7d0 

0781 

0782 

0783 

0784 
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ORBITAL  INTEGRATION 

CPBITAL  ROUTINE  FOR 
VECTOR  OF  THE  MATRI 
USES  A TABLE  OF  VFH 


REF 
REF 
REF 
REF  1 

REF  13  LAST  1236 


LAST  1225 


RFF 

REF 


REF 

REF 

REF 

REF 


LAST  123C 
LAST  1229 


LAST  1238 
LAST  1238 
LAST  1238 
LAST  1238 


REF  31  LAST  1232 

REF.  14  LAST  1238 
REF  15  LAST  1238 
RFF  4 LAST  1238 

REF  34  LAST  1236 

REF  10  LAST  1224 

REF  35  LAST  1238 

REF  5 LAST  1231 

REF  37  LAST  1235 


LAST  1238 


REF  38  LAST  1238 
REF  39  LAST  1238 


REF  40  LAST  1238 


EXTRAPOL 
X AND  CAL 
ICLE  POSI 

11.3714 

11.3715 

11. 3716 

11.3717 

11.3720 

11.3721 
11  ,3722 

11.3723 

11.3724 

11 .3725 

11.3726 

11.3727 

11.3730 

11.3731 
11  ,3732 
11  ,3733 
11,3734 
11  ,3735 

11. 3736 

11.3737 

11.3740 

11.3741 

11 .3742 

11 .3743 

11.3744 

11.3745 

11 . 3746 

11.3747 

11.3750 

11.3751 
11  ,3752 

11 .3753 

11.3754 
11  ,3755 

11.3756 

11.3757 

11.3760 

11.3761 
11  ,3762 
U ,3763 
U,3764 
11  ,3765 

11.3766 

11.3767 

11.3770 

11.3771 
11  ,3772 


AT  ION  OF  THE  W MATRIX, 
LS  THE  NYSTROM  INTEGR 
TICN  VECTORS  CCMPUTFC 
7C754  0 COI 
02030  0 
5177C  0 
36072  I 
23742  1 
02062  1 
62014  0 
C0342  1 
■ 23264  0 
77771  0 
7C744  1 
02030  0 
51772  1 
36072  1 
23742  1 
50414  0 
00303  1 
23736  1 
77655  1 
02062  1 
36062  0 
23264  0 
60575  0 COI 
02032  1 
53513  0 
02132  0 
46315  1 
02032  1 
52361  1 
11220  I 
60325  0 
CQ045  0 
00052  0 
63406  0 
77605  1 
65301  0 
00043  0 
02C72  0 
56342  1 
77761  1 
57154  0 
00051  0 
OC051  0 
57074  0 
00C51  0 
00042  1 
43457  0 


USER'S  PAGE  NOo  19  EC  S3 

IT  COMPUTES  THE  SECOND  DERIVATIVE  OF  EACH  COLUMN  POSITION 
ATION  ROUTINES  TO  SOLVETHE  DIFFERENTIAL  FCUATIONSo  THE  PROGRAM 
CURING  THE  INTEGRATION  OF  THE  VEHICLES  POSITION  AND  VELOCITY,. 


LXA,2  DLGAU* 
P6CCY 
MUEAPTH , 
STCALL  BETAM 
DOWatl 


STCRE 

eoF 


FV 

INCR,l 
MI CFLAG 
NBRANCH 


CEC 

LXC,2 


DLCAO# 
PBODY 

MUEARTh  -2, 
STCALL  BETAM 
DOWoo 1 
VSR6 

MOONF  LAG 


BCN 


VAO 


+ 1 


FV 


STCALL  FV 

NBRANCH 
VLOAD  VSR4 

ALPHAV 
PDVL*  UNIT 

VECTAB,! 
PDVL  VPPCJ 
ALPHAV 
VXSC  vsu 
3/4 

POOL  NORM 
36D 


PUSH 

DMF 

NORM 


S2 

OSQ 

POOL 

340 

BETAM 

DOV 


LXA,2  XAD,2 


XAC,2  XAD,2 


34D 

RVO 


ASSE^'6Le  REVISION  131  CF  A6C  PHCCRAN  LUMINARY  BY  NASA  Z02ni?-0«l 


ORBITAL  INTEGRATION 


07B5 

0787 

0788 


11,3773 
12  ,2000 
12,3755 


0789 

0789 

0790 

0790 

0791 

0791 

0792 

0792 

0793 
0793 
0799 

0795 

0796 

0796 

0797 
0797 
07982 
C7983 
079fl9 


12.3755 

12.3756 
12,  3757 

12.3760 

12.3761 
12,376.2 
12  ,3763 

12.3769 
12,3765 
12  ,3766 
12,3765 
12V3765 
12,3767 

12.3770 
12  ,3771 
12,3772 
05,3779 
09,2000 
09,3217 


09631  1 
23196  0 
190CO  1 
00000  1 
C2319  0 
31963  I 
01900  1 
00000  1 
lOOOO  0 
00000  1 


C3000  1 
COCOO  1 
36000  1 
00000  1 


THREE/8  20EC 
o3C  2CEC 


3/69 
CP  1/9 


2CEC 

20EC 


.,6  B-2 
6375 
6 3 6-2 
3 B-6 
625 


DQLARTER  EQUALS  OPJ /9 

PnSl/9  EQUALS  DPl/9 

3/32  2CEC  3 B-5 

15/16  20EC  15o  B -9 

BANK  05 

SETLOC  0RBITAL3 
BANK 


07986  09,3217 

07986  09,3220 

0799  09,3221 

C799  09,3222 

0800  09,3223 

0800  79,3229 

0801  09,3225 

0801  09,3226 

0802  REF  13  LAST  1233  12,2006 

0803  09,3227 

0803  09,3230 

0809  REF  3 LAST  1239  09,3227 

0805  09,3231 

0806  13,3716 

0807  REF  3 LAST  1233  13,2000 

0808  13,  3716 
R0809  IT  IS  VITAL  THAT  THE  FOLLOWING 

0810  13,3716 

081)  13,3717 

0812  13  ,3720 

0813  13,3721 

0819  13,3722 

0815  13,3723 

0816  13,3729 

0817  13,3725 

0818  13,3726 


30000  1 
00000  1 
22525  C 
12525  0 
22000  1 
00000  1 
01200  1 
COCOO  1 

25252  0 


77775  1 
77766  0 
77771  0 
77775  1 
77775  1 
COQCO  1 
77763  0 
77766  0 


2DEC  SoO  B -2 
2DEC  6 5833333333 
2CEC  9 B -9 


20EC 


5 B-7 


DPZERO 

0P2/3 


2/3 

0CT27 


EQUALS  DP2/3 
□ CT  27 
BANK  13 
SETLCC  0RB1TAL2 
BANK 
SHUFFLED 
CEC  -1) 

DEC  -2 

CEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 


-9 
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USER  'S  PAGE  NOc  20  EO  S3 


GAP  i 

L 

0819 

0820 

0821 

0822 

0022 

0623 

0823 

0824 

0824 

0825 

0825 

0826 

0826 

0827 

0827 

0626 

0829 

0830 

0831 

0832 

0833 

0634 

0835 

0836 

0837 

0838 
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17:53  OECo  19,1969  SKIPPER  101  PAGE  1240 


ORBITAL  INTEGRATION 


USER'S  PAGE  NO*  21  EO  S3 


REF  8 


LAST  1229 


13,3727 

13.3730 

13.3731 

13.3732 
13  ,3733 
13,3734 
13  ,3735 
13,373'6 
13,3737 

13.3740 

13.3741 
13  ,3742 

13 .3743 

13.3744 
13  ,3745 

0000 
0006 
0014 
0016 
0024 
0032 
0040 
0016 
s 0022 

3024 

0032 


77773  1 

77770  1 

77771  0 
24000  I 
00000  I 
74631  0 
67145  1 
CC243  1 
32703  1 
03654  0 

' 21.000  1 
0365^  0 
21000  I 
04627  0 
25200  1 


ASCALE 

5/8 

-1/12 

RECRATIO 

RSPHERE 

RCM 


DEC 

cec 

DEC 

2CEC 


2DEC 

2CEC 

2CEC 


5 6-3 
-ol 


64373o76 
] 6093*44 


E3 

E3 


B-29 

B-27 


ROE 


2nEC  80467o20  E3  B-29 


RATT 

VATT 

TAT 

RATTl 

VATTl 

MU  ( P) 

TCECl 

URPV 

COSPHI /2 
UZ 

TVEC 


EQUALS  OD 
EQUALS  60 
EQUALS  120 
EQUALS  140 
EQUALS  200 
EQUALS  260 
EQUALS  320 
EQUALS  140 
EQUALS  URPV  +4 
EQUALS  200 
EQUALS  26C 


GAP: 

L 

OCOl 

0002 

0003 

ono« 

R0005 

R0007 

R0109 

ROOlO 

R0012 

0013 

0014 

0015 

0016 

0017 

0016 

0C19 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0C27 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0036 

0039 

0040 

0041 

0042 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAR  LUMINARY  BY  NASA  2021J12-091 


17:53  OECo  19,1969 


SKIPPER  101  PAGE  1241- 


INFLIGHT  ALIGNMENT  ROUTINES 


USER*  S PAGF  NCr  1 EO  S3 


REF 


LAST  326 


22,3773 

23,2000 

23,3251 


BANK  22 
SETLCC  INFLIGHT 
BANK 


REF  23  LAST  966 


E5,i642 


CALCGTA  COMPUTES  ThE  GYRO  TOPCUE  ANGLES  REQUIRED  TO  BRING  THE  STABLE  MEMBER  INTO  THE  OESIPEC  ORIENTATIONo 

THE  INPLT  IS  THE  DESIRED  STABLE  MEMBER  CGCPCINATFS  REFERRED  TO  PRESENT  STABLE  MEMBER  COOFOINATESo  THE  THREE 
HALF-UNIT  VECTORS  ARE  STORED  AT  XQC,  YOC  , AND  ZDC<, 


THE  OUTPUTS  ARE  THE  THREE  -GYRC  TORCUING  ANGLES  TO  BE  APPLIED  TO  THE  Y,  Z,  AND  X GYROS  AND  ARE  STORED  DP  AT  IGC, 
MGC,  AND  OGC  R E SP ECT 1 VE LYo 


REF  1 

REF  41  LAST  1238 
REF  6 LAST  966 

REF  16  LAST  U40 
REF  7 LAST  1241 


REF  1 

REF  2 LAST  1241 


23.3251  71220 

23.3252  C0C51  C 

23.3253  02665  0 

23.3254  65325  0 

23.3255  C6524  1 

23  ,3256  02671  0 

23,3257  55476  1 

23,3260  77656  1 

23  ,3  261  14027  1 

23,3262  0CC27  1 


COUNT*  £$/INFLT 
ITA  OLOAD 
S2 
XDC 

PDDL  PDCL 

HI 6ZERCS 
XDC  +4 
CCCMP  VOEF 
UNIT 

STOOL  ZPRIME 
ZPPIME 


1 CALCGTA 


PUSHDOWN  00-03 
XOC  = (XCl  X02 
YOr  = (YDl  Y02 
ZDC  = ( ZCl  Z02 


,160-270,340-370 
X03  ) 

YD?  ) 

ZD3  I 


ZP  = UNIT(-XD3  0 XDl)  = (ZPl  ZP2  ZP3) 


REF  12  LAST  1131 
REF  3 LAST  1241 

REF  11  LAST  1131 
REF  4 LAST  324 


23.3263  77742  0 

23.3264  14023  0 

23.3265  CC033  1 

23.3266  77742  0 

23.3267  34021  C 

23,3270  47322  1 


SRI 

STCDL  S INTH  SINI IGC  ) = ZPl 

ZPRIME  H4 

SRI 

STCALL  CCSTH  COSIIGCI  = ZP3 

ARC  TRIG 


RFF  2 LAST  124 

REF  8 LAST  1241 

REF  13  LAST  1241 

REF  4 LAST  1241 


23.3271  16742  1 

23.3272  02667  1 

23.3273  77742  0 

23.3274  14023  0 

23.3275  00027  1 


STGDL  IGC 

XOC  *2 
SR  1 

STOOL  SINTH 
ZPRIME 


Y GYRO  TOROUING  ANGLE  FRACTION  OF  PEV- 


SINIMGC  ) = XD2 


23  ,3276  65205  0 
REF  9 LAST  1241  23,3277  C2671  0 
REF  5 LAST  1241  23,3300  00C33  1 


CMP 


POOL 
XOC  +4 
ZPRIME  +4 


POOO  = tZPI  MXC?) 


REF  10  LAST 

REF  12  LAST 
REF  5 LAST 


23,3301 
1241  23,3302 

23,3303 
1241  23,3304 

1241  23,3305 


77626  0 
43756  1 
^7322  I 


DMP  OSU 
XDC 

ST40R 

STCALL  COSTh 

ARCTRIG 


MPAC  * ( ZP3 ) ( X Cl ) 

COS (MGC  1 = MPAC  - PDOO 


GAP: 


assemble  revision  131  OF  AGC  PROGRAM  LUHINARV  BY  NASA  2021112-091 


L 


INFLIGHT  ALIGNMENT  ROUTINES 


00A3  REF 
006A  REF 
00A5 

00A6  REF 
0OA7  REF 
OOAS  REF 
OOA9 

0050  REF 

0051  PEF 

0052  REF 


2 LAST 

6 LAST 

A LAST 
13  LAST 

7 LAST 


A LAST 
lA  LAST 
6 LAST 


125  23,3306  267AA  1 

12A1  23,3307  00027  1 

23  ,3310  776A1  1 

926  23,3311  C2701  C 

12A1  23,3312  2A021  1 

12A2  23,3313  00027  1 

23,331A  776A1  1 

926  23  ,3315.  02673  1 

12A1  23  ,3316  3A023  1 

12Ai  23,3317  ^7322  1 


STCVL 

DOT 

STOVL 

DOT 


MGC 

ZPPIME 

ZOC 

COSTH 

ZPRIME 


YOC 

STCALL  SINTH 

ARCTRIG 


0053  REF  lA  LAST  965  23,3320  367A0  1 

005A  REF  A2  LAST  12A1  23,3321  00051  0 


STCALL  OGC 
S2 


17:53  OECo  1R,196R  SKIPPER  olOl  PAGE  12A2 


USER'  S PAGE  NCo  2 E5  S3 

Z GYRO  TOROUING  ANGLE  FRACTION  OF  REVo 

COSIOGCI  = ZP  e ZDC 

S IN( OGC I = ZP  o YOC 

X GYRO  TOROUING  ANGLF  FRACTION  OF  REV, 


GAP: 

L 

R0055 

ROD  56 

R0057 

R0059 

0060 

0061 

0062 

0063 

006^ 

0065 

0066 

0067 

006R 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0070 

0079 

0080 

0081 

0082 

0083 

0064 

0085 

0086 


assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  OECe  19,1969 


SKIPPER 


PAGE  1243 


-,101 

INFLIGHT  ALIGNMENT  ROUTINES  USER'S  PAGE  NOe  ? 65  S3 

ARCTRIG  COMPUTES  AN  ANGLE  GIVEN  THE  SINE  AND  COSINE  CF  THIS  ANGLEo 
THE  INPUTS  ARE  SIN/4  AND  CCS/4  STORED  CP  AT  SINTH  AND  COSTHo 

THE  OUTPUT  IS  THE  CALCULATED  ANGLE  6ETUEEN  +o 5 AND  -o 5 REVCLUTICNS  ANC  STORED  AT  ThETA*  THE  OUTPUT  IS  ALSO 
AVAILABLE  AT  MPAC<, 


REF  15  LAST  1242 

REF  1 
REF  1 


23.3322  51545  1 

23. 3323  00023  0 

23.3324  50025  0 

23.3325  C7536  0 

23.3326  47335  1 


ARCTR 


IG 


CLOAO  ABS 

SINTH 

DSU  BMN 

QT  S N-45 
TR  IGl 


PUSHDOWN  16D-210 

ABS (S  IN/4  > - S INI *51/4 
IF  (-45,45)  OR  (135,-135) 


23,3327  72545  0 

REF  14  LAST  1242  23,3330  0CC21  1 

23,3331  75326  1 

REF  16  LAST  1243  23,3332  00023  0 

REF  7 LAST  1131  23,3333  0C025  0 

2-3,3334  77616  0 


DLOAD  SLl  (45,135)  OR  (-135,-45) 

CGSTH 

ACOS  SIGN 
S INTH 

STORE  THETA  X = ARCCCSCCOS)  WITH  SIGN(SIN) 

RVQ 


23,3335 

REF  17  LAST  1243  23,3336 

23,3337 

REF  8 LAST  1243'  23,3340 

REF  15  last  1243  23,3341 

23,3342 

REF  1 23,3343 


72545  0 
00023  0 
77736  0 
14025  0 
00021  1 
77640  0 
47346  0 


TRIGl 


CLCAC  SLl 

SINTH 


AS  IN 

STOOL  THETA 
COSTH 

BMN 

TRIG2 


(-45,45)  OR  (135, -1?5) 


X = ARCSIN(SIN)  WITF  SIGN(SIN) 


IF  (135,-135) 


REF 


23,3344 

9 LAST  1243  23,3345 


DLOAD  RVQ 

THETA 


= ARCS IN(SIN ) (-45,45) 


REF  6 LAST 
REF  18  LAST 

REF  10  LAST 
REF  IJ  LAST 


23,3346 
1140  23,3347 

1243  23,3350 

23,3351 
1243  23,3352 

1243  23,3353 

23,3354 


CCC23  0 
77625  0 
00025  0 
00025  0 
77616  0 


TR  IG2 


DLOAD  SIGN 

HIOPHALF 
SI  NTH 

DSU 

THETA 
STORE  THETA 
RVQ 


( 135,-135) 


X = o5  WITH  SIGN(SIN)  - APCSIN(SIN) 

(■^)  - t-^)  OR  (-)  - (-) 


GAP:  ASSEf'BLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L INFLIGHT  ALIGNMENT  ROUTINES 


17:53  OECo  19,1969 
USER 'S  PAGE 


SKIPPER  elOl  PAGE  12^A 
NOe  A E5  S3 


R00B7  SMNE,  NESM,  ANC  AxiSROT,  KhICH  USED  TC  APPEAR  HERE,  HAVE  BEEN 

ROO80  CCMBINED  IN  A ROUTINE  CALLED  AX#SP*T,  WHICH  APPEARS  AMONG  THE  POWERED 
R0089  FLIGHT  SUBROUTINES* 


gap: 

L 

R0090 

R0092 

R0094 

R0096 

R0C97 

0099 

0130 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

013^ 

0135 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  0Y  NASA  2021112-09) 


7:53  DECo  19,1969  SKIPPER  nlCl 


PAGE  1245 


INFLIGHT  ALIGNPFNT  RCLTINES  USER'S  PAGE  NOo  5 E5  S3 

CALCGA  COMPUTES  THE  COU  DRIVING  ANGLES  REQUIRED  TO  BRING  THE  STABLE  MEMBER  INTO  THE  DESIRED  ORIENTATION* 

THE  INPUTS  ARE  1)  TFE  NAVIGATION  BASE  COORDINATES  REFERRED  TO  ANY  COORDINATE  SYSTEMc  THE  THREE  HALF-UNIT 
VECTORS  ARE  STORED  AT  XNB.YNB,  AND  ZNB»  2)  THE  DESIRED  STABLE  MEMBER  COORDINATES  REFERRED  TO  THE  SAME 
CrORDlNATE  SYSTEM  ARE  STORED  AT  XSM,  YSM,  AND  ZSMe 


THE  OLTPLTS  ARE  THE  THREE  COU  DRIVING  ANGLES  AND  ARE  STORED  SP  AT  THETAD,  THETAO  +1,  AND  ThETAO  +2o 


REF 

REF 


23. 3355 

23.3356 

23.3357 
LAST  962  23,3360 
LAST  124  ■ 23  ,3361 

23,3362 


776C1  0 
00001  0 
47375  0 
02665  0 
02651  I 
41456  0 


CALCGA 


SETPO 

0 

VLCAD  VXV 
XN8 
YSM 

UNIT  PUSH 


PUSHDOWN  pr-05,  16D-21D,  340-370 


XNB  = OGA  (CUTER  GIM0AL  AXIS) 
YSM  = IGA  (INNER  GI MBAL  AXIS) 
PDO  = UNIT(0GA  X IGA)  = M6A 


REF  6 LAST  975 
REF  43  LAST  1242 
REF  16  LAST  1243 


REF  6 LAST  975 
REF  19  LAST  1243 
REF  7 LAST  1242 
REF  15  LAST  12^2 


23,3363  44041  1 

23  ,3364  02701  0 

23.3365  CC051  0 

23.3366  24021  1 

23.3367  00001  0 

23.3370  77641  1 

23.3371  02673  1 

23.3372  34023  I 

23.3373  47322  1 

23  ,3374  26740  0 

23,3375  COOCl  0 


DOT  ITA 
ZNB 
S2 

STOVL  COSTH  COS(OG)  = MGA  * ZNB 

0 

OCT 

YNB 

STCALL  SINTH  SINIGGJ  = MGA  * YNB 

APCTRIG 
STOVL  QGC 
0 


REF  9 LAST  1245 
REF  3 LAST  1245 

REF  17  LAST  1245 
REF  4 LAST  1245 

REF  10  LAST  1245 
REF  20  LAST  1245 
REF  8 LAST  1245 
REF  3 LAST  1242 


23  ,3376  50235  0 

23,3377  02665  0 

23,3400  02651  1 

23  ,3401  77752  ) 

23.3402  24021  I 

23.3403  02651  1 

23  ,3404  77641  1 

23.3405  C2665  0 

23.3406  34023  1 

23.3407  47322  1 

23,3410  02744  1 


VXV  DOT 
XNB 
YSM 

SLl 

STCVL  COSTH 
YSM 

CCT 

XNB 

STCALL  SINTH 

ARCTRIG 
STCRE  MGC 


PROVISION  FOR  MG  ANGLE  CF  90  DEGRFES 

COS (MG»  = IGA  * (MGA  X OGA ) 

SIN(MGI  = IGA  o OGA 


REF  1 


REF  1 


23  ,3411  45246  0 

23.3412  07540  I 

23.3413  77644  1 

23  ,3414  47433  0 


ABS  OSU 

ol66*co 

BPL 

GlMLOCKl  IF  ANGLE  GREATER  THAN  60  DEGREES 


REF  2 LAST  124 

REF  18  LAST  1245 
REF  24  LAST  1241 


23.341 5 

23.3416 

23.3417 
23,3420 
23  ,3421 


5C375  0 
02657  1 
00001  0 
24021  1 
02643  1 


CALCGAl 


VLCAD  DOT 
ZSM 
0 

STCVL  COSTH 
XSM 


COS( IG)  = ZSM  o MGA 


gap:  assemble  revision  131  OF  AGC  PFCCRAM  LUMINARY  8Y  NASA  2021U2-C?l 
L INFLIGHT  ALIGNMENT  ROUTINES 


0136 

0137  REF  21  LAST  1245 

0138  REF  R LAST  1245 


23,3422  45441  1 
23  ,3423  43754  f) 
23,3424  47322  1 


DOT  STADR 
STCALL  SINTH 

ARCTRIG 


0139  REF  3 LAST  1241 

0140  REF  16  LAST  1245 

0141 

01415  REF  4 LAST  487 

0143  REF  20  LAST  962 

0144  REF  44  LAST  1245 


23.3425  26742  1 

23.3426  02740  0 

23.3427  77634  0 

23.3430  21621  1 

23.3431  34322  0 

23.3432  C0051  0 


STOVL  I6C 
OGC 

RTB 

V1ST02S 
STCALL  THETAC 
S2 


0145 

0146  REF  43 

0147 

0148  REF  7C 

0149  REF  3 


23  ,3433 

LAST  1236  23,3434. 

23,3435 
LAST  1235  23  ,3436 
LAST  376  23,3437 


77776  1 GIMLUCKl  EXIT 

0 5567  C TC  ALARM 

00401  1 OCT  00401 

0 5504  0 TC  UPFLAG 

C0C56  1 AORES  GLCKFAIL 


0150  REF  232  LAST  1236 

0151 

0152  REF  1 


23.3440  0 6042  1 TC 

23.3441  77650  I GCTO 

23.3442  47415  1 


INTPRET 

CALCGAl 


17:53  DEC,  19,1969  SKIPPER  elOl  PAGE  1246 


USER  'S  PAGE  NOe  6 65  S3 

S1N(  IGI  = XSM  • MGA 


GIMBAL  LOCK  HAS  OCCUREO 


GAP;  ASSEP0L6  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  OeCo  19,1969 


SKIPPER  ~10l  PAGE  1247 


R0155 

R0157 

R0159 

R0161 


INFLIGHT  ALIGNMENT  ROUTINES  USER'S  PAGE  NOo  7 E5  S3 

AXISGEN  COMPUTES  THE  COORDINATES  OF  ONE  COOROINATE  SYSTEM  REFERRED  TC  ANOTHER  COOROINATE  SYSTF.Mo 

THE  INPUTS  ARE  1)  THE  STAR!  VECTOR  REFERRED  TC  COORDINATF  SYSTEM  A STORED  AT  STARADc  2)  THE  STAR2  VECTOR 
REFERRED  TO  COORDINATE  SYSTEM  A STORED  AT  STARAO  +6o  3>  THE  STARl  VECTOR  REFERRED  TO  COORDINATE  SYSTEM  B STORED 
AT  LOCATION  6 OF  THE  VAC  AREA*  A»  THE  STAR2  VECTOR  REFERRED  TC  COORDINATE  SYSTEM  B STCREO  AT  LOCATION  120  OF 
THE  VAC  AREAc 


THE  OUTPUT  DEFINES  COOROINATE  SYSTEM  A REFERRED  TO  COORDINATE  SYSTEM  Bo  THE  THREE  HALF-UNIT  VECTORS  ARE  STORED 


AT  LCCATICNS  XCC,  XCC 


XDC  4120,  AND  STARAO,  STARAO 


STARAD  +12Do 


0165 

0166 
0167 
016fi 


REF  30  LAST  965 


REF  31  LAST  1247 


23.3443 

23.3444 
23  ,3445 
23,3446 


66370  0 
02714  1 
00051  0 
027C0  1 


AXISGEN  AXT.l 


PUS  HOOWN  00-300,  24D-37D 


0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 


REF  32  LAST  1247 
REF  33  LAST  1247 

REF  34  LAST  124? 

REF  35  LAST  1247 


23,3447 
23  ,3450 

23.3451 

23.3452 

23.3453 

23.3454 
23  ,3455 

23.3456 

23.3457 


77601  0 SETPO 

00001  0 0 

46773  C AXISGENl  VLCAO*  VXV* 
02723  0 STARAD 

02731  0 STARAD 

77656  1 UNIT 

06731  1 STORE  STARAO 

77773  1 VLCAD* 

02723  0 STARAO 


160,1 

120,1 


VA  = UNITISl  X S2) 

STARAD  +060  V6  = UMT(S1  X S2  » 


0178 

0179 

0180 


REF  36  LAST  1247 
REF  37  -LAST  1247 


23,3462 


76433  1 
02731  C 
06737  1 


VXV# 

STORE 


VSLl 

STARAO  +180,1 
STARAD  +24D,1 


0183 

0184 

0185 


23  ,3465 

23.3466 

23.3467 


66160  0 
00006  1 
0C036  1 


AXl  SGEM 

SXA.l 

f 

?0D 


0166 

0187 

01  ee 

0189 


REF  30  LAST  1247 


23.3470 

23.3471 

23.3472 

23.3473 


66370  0 
G0022  1 
00051  0 
C0006  1 


0190 

0191 

0192 

0193 


REF  45  LAST  1246 


23,3474 
23  ,3475 
23  ,3476 
23,3477 


66374  1 
00006  1 
00052  0 
000C2  0 


AXT,2  SSP 


0194 

0195 

0196 


23.3500 

23.3501 

23.3502 


76720  0 
00036  1 
00001  0 


AXISGeN2  XCHX ,J  VLCAO* 
30D 
0,  1 


Xl=-6  X2=+6  Xl=-6  X2=+4 


Xl=-6  X2=  + 2 


gap: 

L 

0197 

0198 

0199 

0200 

0201 

0202 

02  03 

C20A 

0203 

02  06 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0216 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 


ASSEMBLE  REVISION  13 
INFLIGHT  ALIGNPENT 

REF  38  LAST  1267 

REF  39  LAST  1268 

REF  60  LAST  1268 

REF  11  LAST  1261 


REF  12 
REF  61 
REF  5 
REF  62 


1 CF  AGC  PROGRAM  LUMINARY  BY  NASA  20211  1 2-091 
ROUTINES 


REF 

REF 


63 


LAST  1262 
LAST  126R 


23,3303 

62757 

C 

vxsc* 

PDVL* 

23,3506 

75062 

1 

STARAD  +6,2 

23,3505 

C0007 

0 

6,1 

23, 3506 

77757 

1 

VXSC# 

23  ,3507 

75056 

1 

STARAD  +120,2 

23,3510 

30031 

0 

STOVL* 

26C 

23,3511 

OOC 1 5 

0 

1 20 , 1 

23,3512 

53357 

0 

VXSC* 

VAC 

23,3513 

75066 

I 

STARAO  +180,2 

23,3516 

' 76655 

1 

VAO 

VSLl 

23,3515 

CQC31 

0 

260 

23,3516 

53520 

c 

XCHX,1 

UNIT 

23  ,3517 

00036 

1 

30D 

23,3520 

06707 

1 

STORE 

XOC  +180,1 

23,3521 

77700 

0 

TIX.l 

23,3522 

67523 

0 

AX  ISGEN3 

23,3523 

777C6 

1 

AXISGEN3  Tlx, 2 

23,3526 

67500 

1 

AX1SGEN2 

23,3525 

77775 

1 

VLCAD 

23,3526 

02665 

0 

XOC 

23  ,3527 

26707 

0 

STCVL 

STARAD 

23,3530 

02673 

1 

YOC 

23,3531 

26715 

0 

STOVL 

STARAO  +6 

23  ,3532 

02  701 

0 

zoc 

23,3533 

C2723 

c 

STCRE 

STARAD  +120 

:53  DEC*  1«,]969 

USER'S  PAGE  NOo  8 
J=  (UAI (UBl ) J=(UA  ) (UB2) 


IPPEP  ,101  PAGE  1268 
E5  S3 

J=  (UA  MU63  » 


K=(VA»(V61>  J=(VA)(VB2}  J=(VA)(VB3» 


L=(WAnwBl  ) J=(  Wfl  MW82»  J=  (WA)  IWB3) 


XOC  = L + J+K  YOC  = L+J+K 


23 


gap:  ASS£^’BLE  REVISICN  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-0?! 

L INFLIGHT  ALIGNMENT  ROUTINES 
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0281 
0281 
0282 
02  82 


23 

23 


,3536 

,3537 

,3540 


C5520  0 QTSN45  20BC 
26075  1 

C5252  1 <,l66s*,  2CeC 

25253  1 


0 1768 

ol666666667 
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0001 

0002  REF 

0003 


1A,3775 

23,2000 

23,35^1 


BANK  SAME  F6ANK  AS  THE  FINOCDUD  SUB-PROGRAM 

SETLCC  POVJFLITE 

BANK 


OOOA  PEF  I 01^2 

0005  REF'  1 


EeANK=  DEXDEX 
COUNT*  SS/POVsFL 


R0006 

R0007 

ROOOB 

R00n9 

ROOlO 

ROOll 

R0012 


CDLIRIG,  CDUTRIGl,  C0UTRIG2 
COSINES  OF  THREE  2'S  COMPLEMENT 
PRECISICN,  IN  THE  SAME  ORCE-R  AS 
ADDITIONAL  OUTPUT  IS  THE  1*S  CC 
RCUTINFS  GO  CUT  OF  THEIR  WAY  TO 
EXCEPT  FOR  THE  GENERALLY  UMMFC 
WHERE  THEY  GET  THE  ANGLES,  AND 


, ANC  CC#TR*GS  ALL  COMPUTE  THE  SINES 
ANGLES  AND  PLACE  THE  RESULT,  DOUBLE 
THE  INPUTS,  AT  SINCOU  AND  COSCOUo 
MPLEMENT  ANGLES  AT  CCUSPOT«  THESE 
LEAVE  THE  MPAC  AREA  AS  THEY  FIND  IT 
RTANT  MPAC  +2a  THEY  DIFFER  ONLY  IN 
IN  METHOD  CF  CALLING* 


AND 

AN 


R0013 

ROOl^ 

R0015 

R0016 


CDUTRIG  (ANC  CCUTRIGl,  WHICH  CAN  BE  CALLED  IN  BASIC)  COMPUTE 
SINES  AND  COSINES  FRCM  THE  CURRENT  CONTENTS  OF  THE  COU  REGISTERS* 
THE  CONTENTS  OF  COUTEMP,  ETC*,  ARE  NOT  TOUCHED  SO  THAT  THEY  MAY 
CCNTINUE  TC  FORM  A CCNSISTENT  SET  WITH  THE  LATEST  PIPA  READINGS* 


THE 


R0017  CDUTRIGl  IS  LIKE  CDUTRIG  EXCEPT  THAT  IT  CAN  BE  CALLED  IN  BASIC* 

ROOie  CD*TR*GS  FINDS  COU  VALUES  IN  CDUSPOT  RATHER  THAN  IN  COUTEMP*  THIS 

R0019  ALLOWS  LSER5  TO  MAKE  T RANSF  C P H AT  I CNS  USING  ARBITRARY  ANGLES,  OR  REAL 

R0020  ANGLES  IN  .AN  ORDER  OTHER  THAN  X Y Z*  A CALL  TC  THIS  ROUTINE  IS 

R0021  NECESSARY  IN  PREPARATION  FOR  A CALL  TO  AX*SR*T  IN  EITHER  OF  ITS  TWO 

R0022  MOOES  I SMN6  OR  NBSMJo  SINCE  AX*SR*T  EXPECTS  TO  FIND  THE  SINES  AND 
R0U23  CCSINES  IN  THE  ORDER  Y Z X THE  ANGLES  MUST  HAVE  BEEN  PLACED  IN  CDUSPOT 

R002A  IN  THIS  ORDER*  CC*TR#GS  NEEC  NCT  BE  REPEATED  WHEN  AX*SR*T  IS  CALLED 

R0025  HOKE  THAN  ONCE,  PROVIDED  THE  ANGLES  HAVE  NCT  CHANGECo  NOTE  THAT  SINCE 

R0026  IT  CLOeeERS  BUF2  I IN  THE  SINE  AND  COSINE  ROUTINES)  CO*TR»GS  CANNOT  BE 

R0027  CALLED  USING  BANKCALL*  SCRPYo 


R0028  CD*TR*G  IS  LIKE  CO*TR*GS  EXCEPT  THAT  IT  CAN  BE  CALLED  IN 

R0029  INTERPRETIVE* 


0030 

0031  REF  1 
0032,  REF  233 
0033 


L 


23,35A1  77776  1 

23,35A2  C 3551  0 
ST  1246  23  ,3543  0 6042  1 

23,3544  77616  0 


CDUTRIG 


EX  IT 
TC 
TC 
RVQ 


C0UTRI6S 

INTPRET 


003^* 

0035  REF  I 

0036  REF  234  LAST  1251 

0037 


23.3545  77776  I 

23.3546  0 3557  0 

23.3547  C 6042  1 

23,3550  77616  0 


CC*TR*G 


CD*TR*GS 
I NTPRET 


0038  REF  17  LAST  943 

0039  REF  26  LAST  962 

0040  REF  8 LAST  943 

0041  REF  27  LAST  1251 


23.3551  3 0032  0 

23.3552  54  771  1 

23  ,3553  3 0033  1 

23,3554  54  765  1 


CDUTRIGS 


CA 

TS 

CA 

TS 


CDUX 

CDUSPOT  *4 

CDUY 

COUSPCT 


GAP  : 

L 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0079 

0071 

0072 

0073 

0074 

0075 
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PCHEREC  FLIGHT  SUBROUTINES  USER'S  PAGE  NCo  2 EC  S3 

REF  11  LAST  943  23,3555  2 0034  0 CA  COUZ 

REF  28  LAST  1251  23,355t  54  767  C TS  COUSPCT  +2 


REF  26 
REF  23 
REF  18 
REF  13 
REF  14 
REF  29 
REF  743 
REF  65 
REF  5 
REF  15 

REF  744 
REF  15 
REF  30 
FEE  6 
REF  2 
REF  745 
REF  16 
REF  4 

REF  17 
RFF  31 
REF  7 
REF  2 
REF  66 
REF  746 
REF  18 
REF  4 
REF  19 
REF  1 
REF  27 


LAST  917 
LAST  1071 
LAST  1041 
LAST  917 
LAST  1252 
LAST  1252 
LAST  1230 
LAST  1067 
LAST  819 
LAST  576 

LAST  1252 
LAST  1252 
LAST  1252 
LAST  1252 
LAST  1007 
LAST  1252 
LAST  1252 
LAST  100 

LAST  1252 
LAST  1252 
LAST  1252 
LAST  1007 
LAST  1252 
LAST  1252 
LAST  1252 
LAST  100 
LAST  1252 

LAST  1252 


23,3557 

23.3560 

23.3561 
23  ,3562 

23.3563 

23.3564 

23.3565 

23.3566 

23.3567 

23.3570 

23. 3571 
23  ,3572 

23.3573 

23.3574 
23  ,3575 

23.3576 

23.3577 
23,3600 
23,36CL 
23  ,3602 

23.3603 

23.3604 
23  ,3605 

23.3606 

23.3607 

23.3610 

23.3611 
23  ,3612 

23.3613 

23.3614 
23  ,3615 
23,3616 


C 0006  1 
22  142  0 

2 4751  C 
7 6245  0 
54  143  0 
50  143  1 

3 .0765  0 
52  155  1 
52  127  1 

0 4713  0 
21577  1 

0 0006  1 
3 0155  0 
50  143  1 
52  766  1 
C 4713  C 
01517  0 
52  155  1 
5C  143  1 
52  744  1 
C 0006  I 
5 0143  1 
3 0766  0 
C 4713  C 
01531  1 
52  127  1 
52  155  1 
50  143  1 
52  736  I 
10  143  0 

1 3562  1 
C 0142  0 


C0*TR#6S  EXTEND 
CXCH 
CAF 

TR=tGL**P  MASK 
TS 

INDEX 


TC 

CAOR 

EXTEND 

OCA 

INDEX 

DXCH 

TC 

CAOR 

DXCH 

INDEX 

CXCH 

EXTEND 

INDEX 

CCA 

TC 

CAOR 

CXCH 

DXCH 

INDEX 

CXCH 

CCS 

TCF 

TC 


TEH2 

FOUR 

SIX 

TEM3 

TE  H3 

CDUSPOT 

MPAC 

VBUF  +4 

US  PRCACP 

COULCGIC 

MPAC 

TEM3 

CDUSPOT 

USPRCADR 

COSINE 

MPAC 

TEM3 

COSCDU 

TEM? 

CDUSPOT 

USPRCADR 

SINE  +1 

VBUF  *4 

MPAC 

TEM3 

SINCDU 

TEM.3 

TR*GL*^P 

T£M2 


MAKE  IT  EVEN  AND  SNALLFR 


STORING  2'S  COMP  ANGLE,  LOADING  MPAC 
STORING  MPAC  FOR  LATER  RESTORATION 


STORING  J'S  COMPLEMENT  ANGLE 


STORING  COSINF 


LOADING  I'S  COMPLEMFNT  ANGLE 

SINE  +l  EXPECTS  ARGUMENT  IN  A AND  L 
BRINGING  UP  PRIOR  MPAC  TO  BE  RESTORED 
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ROOTS  QUICTRIG,  INTENDED  FOR  GUICANCE  CYCLE  USE  hHERE  TIME  IS  CRITICAL,  IS  A MUCH  FASTER  VERSION  OF  CO*TR*GS® 

R0060  OUICTRIG  COMPUTES  AND  STCRES  TEE  SINES  AND  COSINES  OF  THE  2'S  COMPLEMENT  ANGLES  AT  COUSPOT,  COUSPQT  +2, 
ROOS2  AND  COUSPOT  +6*  UNLIKE  CD*TR#GS,  QUICTRIG  DOES  NOT  LEAVE  THE  I'S  COMPLEMENT  VERSIONS  OF  THE  ANGLES  IN 

R0084  COLSPCT*  QUICTRIG’S  EX  tCUT  ICN -T IME  IS  4.,1  MS;  THIS  IS  10  TIMES  AS  FAST  AS  CD«TR#GSe  QUICTRIG  MAY  BE 

R00R6  CALLED  FROM  INTERPRETIVE  AS  AN  RT8  CP-CCDE,  CP  FRCM  BASIC  VIA  EANKCALL  OR  IBNKCALLe 


0090 

00901 

00902  REF  38 

0091  REF  2A 

0092  REF  19 

0093  REF  14 

0094  REF  15 

0095  REF  32 

0096  REF  5 

0C97 

0098  REF  69 

0099  REF  16 

0100  REF  5 

0101  REF  17 

0102  REF  33 

0103  REF  5 

0104 

0105  REF  7C 

0106  REF  18 

0107  REF  5 

0108  kCF  19 

0109  REF  5 

01091  REF  39 

0110 

01101  REF  378 


LAST  896 
LAST  1252 
LAST  1252 
LAST  896 
LAST  1253 
LAST  1252 
LAST  607 

LAST  1126 
LAST  1253 
LAST  1252 
LAST  1253 
LAST  1253 
LAST  607 

LAST 
LAST 
LAST 
LAST 
LAST 
LAST 

LAST  1213 


23,3617 
23 ,3620 
23  ,3621 
23,3622 
23  ,3623 

23. 3624 

23.3625 

23.3626 

23.3627 

23 .3630 

23.3631 

23.3632 
23  ,3633 

23. 3634 

23.3635 

23.3636 

23.3637 
23  ,3640 

23.3641 

23.3642 
23  ,3643 

23.3644 

23.3645 
23  ,3646 
23,3647 


C 0004  0 
C 0006  1 
22  061  0 
3 4751  C 
7 6245  0 
54  C62  1 
50  062  0 
3 0765  0 
C 5033  1 
0 0006  1 
7 4736  0 
50  062  0 
52  736  1 
50  C62  0 
3 0765  0 
C 5032  0 
C 0006  1 
7 4736  0 
50  062  C 
52  744  1 
10  062  ] 
1 3623  1 
3 0061  0 
C 0003  1 
C COOO  1 


1253 

1253 

1252 

1253 
906 

1253 


OXCH 

CAF 

MASK 


INDEX 

DXCH 

INDEX 


MP 

INDEX 

OXCH 

CCS 

Tf.F 

CA 


ITEHP1 

FOUR 

SIX 

I TEMP2 
ITeMP2 
ecus  PCT 
SPSIN 

BIT14 
ITFMP2 
S INCDU 
1 TEMP2 
CDUSPOT 
SPCCS 

BI714 

ITEMP2 

COSCOL 

ITEMP2 

OUICTRIG  +4 

ITEMPl 

A 


INHINT  SINCE  DAP  USES  THF  SAME  TEMPS 


SCALE  DOWN  TO  MATCI-  INTERPRETER  OUTPUTS 
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R0113  THESE  INTERFACE  ROUTINES  RAKE  IT  POSSIBLE  TO  CALL  AX#SP*T,  ETC«  , IN 

R0114  INTERPRET! VEo  LA7EP»  HHERE  FCSSIBLEt  THEY  WILL  BE  ELlMINATEDo 

R0127  THESE  INTERFACE  ROUTINES. ARE  PERMANENTo  ALL  RESTORE  USER'S  EBANK 

R0128  SETTINGo  ALL  ARE  STRICT  INTERPRETIVE  SUBROUTINES*  CALLED  USING  "CALL", 
R0129  RETURNING  VIA  QPRETo  ALL  EXPECT  AND  RETURN  THE  VECTOR  TO  BE  TPANSFOR- 

R0130  MED  INTERPRETER-STYLE  IN  MPAC;  COMPONENTS  AT  MPAC,  MPAC  +3,  AND  MPAC  +5o 


R0131  TRG*SMNH  AND  TRG*N6SM  BOTH  EXPECT  TO  SEE  THE  2'S  COMPLEMENT  ANGLES 

R0132  AT  COUSPOT  (ORDER  Y Z X,  AT  CDUSPOT,  COUSPOT  +?,  AND  CDUSPCT  +4;  ODD 
R0133  LCCATICNS  NEED  NOT  BE  ZEROEOo  TRG*NBSM  COES  THE  NB  TO  SM  TRANSFOR- 
R0134  NATION;  TRG#SMNB,  VICE  VERSA,, 


R0135  CCU*N8SM  DOES  ITS  TRANSFORMATION  USING  THE  PRESENT  CONTENTS  OF 

R0136  THE  CDL  COUNTERS*  OTHERWISE  IT  IS  LIKE  TPG«NESM, 


Rni361 


COU=*SMNB  IS  THE  COMPLEMENT  CF  CDU’i'NBSM* 


01362 

01363  REF 

01364  REF 


2 LAST  1251 
1 


23.3650 

23.3651 

23.3652 


77776  1 CDU*SMNB  EXIT 
C 3551  0 TC 

I 3655  C TCF 


CDUTR  IGS 
r#MM#Nl 


0137 

0138  REF  2 

0139  REF  4 

0140  REF  32 

0141  REF  2 

0142  REF  235 

0143 

0144  REF  67 


LAST  1251 
LAST  1064 
LAST  1093 
LAST  606 
LAST  1251 

LAST' 125? 


23  ,3653  77776 

23.3654  C 3557 

23.3655  0 7535 

23  ,3656  4 6250 

23,3657  C 3677 

23.3660  0 6042 

23.3661  43575 

23.3662  00123 


TRG*SMNB  EXIT 
TC 

C*HM#N1  TC 
CS 

C#MM*N2  TC 
TC 

VLCAO 


CO*TR*GS 

MPACVBUF 

THREE 

AX#SR*T 

INTPRET 

RVQ 

VBUF 


AX4SR*T  EXPECTS  VECTOR  IN  VBUF 
SIGNAL  FOR  SM  TO  NB  TRANSFORMATION 


0145 

0146  REF 

0147  REF 


3 LAST  1254 
1 


23.3663  77776  1 

23.3664  0 355]  0 

23.3665  1 3670  1 


CCU^NBSM 


CDUTR IGS 
C #MM*N3 


0148 

0149 

0150 

0151 

0152 


REF  3 LAST  1254 

REF  5 LAST  1254 

REF  33  LAST  1254 

REF  !. 


23.3666 

23. 3667 

23.3670 

23.3671 

23.3672 


77776  1 TRG#NESM  EX  IT 
C 3557  0 TC 

0 7535  0 C*MM*N3  TC 

3 6250  0 CA 

1 3657  I TCF 


C04TR*GS 

MPACVBUF 

THREE 

C*MM*N2 


FOR  AX*SP#T 

SIGNAL  FOR  NB  TO  SM  TRANSFORMATION 


R0153 

R0154 

R0155. 


4N6SM#  AND  *SMNIi*  EXPECT  TC  SEE  THE  S 
AND  COSCDU)  RATHER  THAN  THE  ANGLES  THEMSE 
LIKE  TRG>>NBSM  AND  TRG^SMNB* 


INES  AND  COSINES  (AT  SINCOU 
LVESo  OTHERWISE  THEY  ARE 


R0156  NOTE  THAT  JUST  AS  CD^TR^GS  NEED  BE  CALLED  CNLY  CNCE  FOR  EACH  SERIES 

R0157  OF  TRANSFORMATIONS  USING  THE  SAME  ANGLES,  SO  TOO  ONLY  ONE  CF  TRG*NBSM 
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R0158  AND  TRG^SMNB  NEED  EE  CALLED  FOR  EACH  SERIES*  FOR  SUBSEQUENT  TRANSFOR- 
R0159  MATICNS  USE  *NESM>»  AND  ♦SMNB#* 


0160 

0161  REF  2 LAST  125A 


23,3673  77776  1 »SMN8*  EXIT 

23,367A  1 3655  0 TCF 


C#MM«M 


0162  23.3675  77776  1 *N0SM*  EXIT 

0163  REF  2 LAST  125A  23,3676  1 3670  1 TCF  C*MM*N3 


R016A  AX’i'SR’i'T  COMBINES  THE  OLD  SMN8  AND  NBSM*  FCR  THE  NB  TC  SM 

R0165  TRANSFORMATION,  ENTER  WITH  +3  IN  A,  FDR  SM  TO  NB,  ENTER  WITH  -3* 

R0166  THE  VECTOR  TO  BE  TRANSFORMED  ARRIVES,  AND  IS  RETURNED,  IN  VBUFo 

R0167  AX*SR*T  EXPECTS  TO  FIND  THE  SINES  AND  COSINES  OF  THE  ANGLES  OF  ROTATION 

R0168  AT  SINCOL  AND  COSCDU,  IN  THE'CR-OER  Y Z X,  A CALL  TO  CO*TR’>GS,  WITH 

R0169  THE  2'S  COMPLEMENT  ANGLES  (ORDER  Y Z XI  AT  COUSPOT,  WILL  TAKE  CARE  OF 
R0170  THIS*  HERE  IS  A SAMPLE  CALLING  SEQUENCE:- 


R0171 

R0172 

R0173 


TC  COUTRIGS 

CS  THREE  ( "CA  THREE"  FCR  NBSM) 

TC  AX*SR*T 


R017A  THE  CALL  TO  CO*TR*GS  NEED  NOT  BE  REPEATED,  WHEN  AX*SR*T  IS  CALLED  MORF 
R0175  THAN  ONCE,  UNLESS  THE  ANGLES  HAVE  CHANGED* 


RC176  Ax#SR*T  IS  GUARANTEED  SAFE  CNLY  FCR  VECTORS  OF  MAGNITUDE  LESS  THAN 

R0177  UNITY*  A LOOK  AT  THE  CASE  IN  WHICH  A VECTOR  OF  GREATER  MAGNITUDE 

R0178  HAPPENS  TO  LIE  ALONG  -AN  AXIS  CF  THE  SYSTEM  TO  WHICH  IT  IS  TO  BE  TRANS- 

R0179  FORMED  CONVINCES  ONE  THAT  THIS  IS  A RESTRICTION  WHICH  MUST  PE  ACCEPTED, 


0180  REF 

0181 

0182  REF 


2 LAST  1251 
1 


23,3677 
23  ,3700 
23,3701 


5^  1A2  1 
0 0006  1 
22  1A5  1 


AX#SR*T 


TS  OEXDEX 

EXTEND 

QXCH  RTNSAVER 


WHERE  IT  8FCPMES  THE  INDEX  OF  INDEXES 


0183 

0184 

0185 

0186 

0187 

0188 
0189 


REF  3 LAST  1255 
REF  4 LAST  1255 
REF  34  LAST  1254 

REF  379  LAST  1253 
REF  1 
REF  1 


23.3702  10  142  1 

23.3703  4 C142  1 

23,37C4  6 6250  0 

23  ,3705  0 0006  1 

23.3706  5 0000  1 

23.3707  3 3766  0 

23  ,3710  52  144  1 


CCS  OEXDEX 

CS  OEXDEX 

AD  THREE 

EXTEND 
INDEX  A 

OCA  INOEXI 

cxch  oexi 


THUS: 


+ 3 — > n 
+ 2 — > 1 
+ 1 ™>  2 


-3  — > 2 
-2  — > \ 
-1  — > 0 


0190  REF  126  LAST  1177 

0191  REF  160  LAST  1109 

0192 

0193  REF  2 LAST  98 

0194  REF  68  LAST  1254 

0195  REF  1 


23.3711  2 4753  1 

23.3712  54  130  1 

23  ,3713  0 0006  1 

23,3714  5 0143  1 

23  ,3715  4 0123  0 

23,3716  1 3720  0 


CA  ONE 

TS  BUF 

EXTEND 
INDEX  DEXl 

DCS  V6UF 

TCF  LOCPl 


REALLY  BE  A SUBTRACT,  AND  VICE  VERSA 


0196 


REF  161  LAST  1255 


23,3717  52  131  0 L0aP2 


DXCH 


BUF 


LEADING  VECTOR  CCMFONENT,  STORING  INDEX 


GAP 
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0197  REF  7A7  LAST  1252 

0198  REF  I 

0199  REF  3 LAST  1255 

0200  REF  81  LAST  1070 


23»  3720 

23.3721 

23.3722 

23.3723 


52  155  1 
3 3764  1 
6 0143  1 

•54  lie  0 


LOOPl 


OXCH  HPAC 

CA  SINESLOC 

AO  OEXl 

TS  AD0Kt,0 


0201 

0202 

0203 

0204 

0205 

0206 
0207 


REF  21  LAST  1079 
REF  5 LAST  1255 
REF  748  LAST  1256 


REF  749  LAST  1256 
REF  1 


23  ,3  724 

23.3725 

23.3726 

23.3727 

23. 3730 

23.3731 

23.3732 


0 7112  I 
10  142  1 
52  155  1 

1 3732  0 
'C  0CC6  1 
4 0155  I 
52  160  1 


TC  DMPSUB 

CCS  DEXDEX 

OXCH  MPAC 

TCF  +3 

EXTEND 
DCS  MPAC 

CXCH  TERMITMP 


0208  REF  20  LAST  1253 

0209  REF  82  LAST  1256 


23.3733  3 6245  1 

23.3734  26  116  0 


CA  SI  X 

AOS  ADDRWD 


0210 

0211  REF  162 

0212  REF  4 

0213  REF  69 

0214  REF  750 

0215  REF  22 

0216  REF  751 

0217  REF  2 

0218  REF  3 

0219 

0220  REF  163 

0221  REF  5 

0222  REF  7C 

0223  REF  164 


LAST  1255 
LAST  1256 
LAST  1255 
LAST  1256 
LAST  1256 
LAST  1256 
LAST  1256 
•LAST  1256 

LAST  1256 
LAST  1256 
LAST  1256 
LAST  1256 


23.3735 

23.3736 

23.3737 
23,3740 
23  ,3741 

23.3742 

23.3743 
23  ,3744 

23.3745 

23.3746 

23.3747 
23,3750 
23  ,3751 
23,3752 


C CCC6  1 
5 0130  0 
5 0143  1 
3 0123  1 
52  155  1 
0 7112  1 
52  155  1 
20  160  I 
52  160  1 
20  001  1 
50  130  0 
50  143  1 
52  123  0 
52  131  0 


EXTEND 
INDEX  8UF 
INDEX  DEXl 
OCA  VBUF 
CXCH  MPAC 
TC  DMPSUB 

OXCH  MPAC 
CAS  TERMITMP 
OXCH  TEPM1TMF 
ODOUBL 
INDEX  BUF 
INDEX  OEXl 
CXCH  veuF 
CXCH  BUF 


0224  REF  380  LAST  1255 

0225  REF  1 


23.3753  10  000  0 

23.3754  1 3717  1 


CCS  A 
TCF  LD0P2 


0226 

0227  REF  6 LAST  1256 


23.3755  C 0006  I 

23.3756  26  142  1 


EXTEND 

DIM  DEXDEX 


0228 

0229 

0230 

0231 

0232 


KEF 

REF 

REF 

REF 

REF 


7 LAST  1256 
1 

2 LAST  1255 
2 LAST  1256 


23  ,3757 

23.3760 

23.3761 

23.3762 

23.3763 


10  142  1 
1 3702  0 

0 0145  1 

1 3702  0 
0 0145  1 


TSTPOINT  CCS 
TCF 
TC 
TCF 


RTNSAVER 

P*TL##F 

RTNSAVER 


0233  REF 


6 LAST  1253 


23,3764 


0C735  0 SINESLCC  ACRES  SINCCU 


0234 

0235 

0236 


23,3765 
23  ,3  766 
23,3767 


00004  0 INOEXI  DEC  4 
00002  0 DEC  2 
OCOOO  1 DEC  0 
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USER  ' S PAGE  NOe  6 EO  S3 


MULTIPLY  BY  SIMCOLANGLE) 
NBSM  CASE 
SMN0  CASE 


SINCOU  AND  COSCCU  (EACH  6 WORDS!  MUST 
BE  CONSECUTIVE  AND  IN  THAT  ORDER 


MULTIPLY  BY  COS ( COUANGL £ ! 


LOADING  INDEX,  STORING  VECTOR  COMPONENT 
•CAUSE  THAT'S  WHERE  THE  INDEX  NOW  IS 

DECREMENT  MAGNITUDE  PRESERVING  SIGN 
ONLY  THE  BRANCHING  FUNCTION  IS  USED 


FOR  USE  IN  SETTING  AODRUO 


DON'T 

TOUCH 

THESE 


**♦##****# 


GAP;  ASSEMBLE  REVI 
L PCWEREO  FL  I 

0237, 


SION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
Gl-T  SUBROUTINES 

23|3  770  0000^  0 DEC  A 
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CONSTANTS  #♦*#*«#**♦ 


R0238  4#  •«*«♦**##**■?###*  < **#*######**####**♦♦*♦*♦*#**#*  ^ #**#*#*#*#♦*#♦#*♦#«** 


0240  10,2030 

0241  REF  1 IC,200C 

0242  10,2030 

0243  REF  1 


BA  NK  10 
SETLCC  FL6SHLCC 
BANK 

COUNT#  tS/POWFL 


R0244  ROUTINE  FLESHPOT  COMPUTES  THE  BODY-STABLE  MEMBER  TRANSFORMATION  MATRIX 

R0246  IT  IN  THE  LOCATIONS  SPECIFIEC  BY  THE  ECADR  ENTERING  IN  A* 


(COMMONLY  CALLED  XNB)  AND  STORES 


0247 

0248  REF  301  LAST  971 

02461  REF  2 LAST  856 

02482  REF  236  LAST  1254 

02483 


10,2030  77776  1 CALCSMSC  EXIT 


10.2031  C 4616  1 TC 

10.2032  20036  0 CADR 

10.2033  C 6C42  1 TC 

10.2034  77616  0 RVQ 


BANKCALL 
FLESHPOT  -1 
INTPRFT 


0249 


REF  11 


LAST  1245  10,2035 


02664 


XNBECACR  ECAOR  XNB 


0250  REF 


10,2036  2 2C35  0 -1 


CAF  XNBFCACR 


0251 

0252 

0253 

0254 

0255 

0256 


REF  28  LAST  1252 
REF  65  LAST  1083 
REF  29  LAST  1257 
REF  15  LAST  1083 
REF  8 LAST  1C9  3 
REF  22  LAST  1064 


10,2037 

10.2040 

10.2041 

10.2042 

10.2043 

10.2044 


54  142  1 
56  003  1 
56  142  0 
7 4357  0 
6 5C07  0 
54  141  1 


FLESHPOT 


TS 

XCH 

XCH 

MASK 

AO 


TEM2 

EBANK 

TEM2 

LOWS 

0CT1400 

TEMl 


0257 

0258  REF  3 

0259  REF  752 

0260  REF  18 

0261  REF  7 

0262  REF  753 

0263 

0264  REF  23 

0265 


10 

LAST  482  10, 

LAST  1256  10 

LAST  792  10 

LAST  912  10 

LAST  1257  10 

10 

LAST  1257  10 

10. 


.2045  0 0006  1 

2046  2 C744  0 

.2047  52  155  1 

,2050  C 7106  1 
.2051  00745  I 

,2052  52  155  1 

,2053  20  001  1 

2054  50  141  0 

,2055  52  001  1 


EXTEND 

OCA  COSCDUY 

DXCH  MPAC 
TC  OMP 

AORES  CCSCOUZ 
CXCH  MPAC 
OCCUBL 
INDEX  TEMl 

DXCH  0 = COSY  CDSZ 


0266 

0267  REF  6 LAST  912 

0268  REF  24  LAST  1257 

0269 


10.2056  C 0GC6  1 

10.2057  3 0740  1 

10.2060  50  141  0 

10.2061  52  003  0 


EXTEND 

DCA  SINCDUZ 
INDEX  TEMl 

DXCH  2 = S INZ 


0270 

0271  RFF  3 LAST  482 

0272  REF  754  LAST  1257 

0273  REF  23  LAST  1256 

t 


10,2062  0 0006  1 

10.2063  4 0736  I 

10.2064  52  155  1 

10.2065  0 7112  1 


EXTEND 

CCS  SlNCnUY 

DXCH  MPAC 

TC  DMPSU6  AOORHO  SET  TO  COSCDUZ 


GAP 


ASSEMBLE  REVISION  131  CF  AGO  PROGRAM  LUMINARY  BY  NASA  2O21U2-0S1 


L POWERED  FLIGHT  SUBROLTINES 


0274  REF  755  LAST  1257 

0275 

0276  REF  25  LAST  1257 

0277 


10, 2066 
10,2067 

10.2070 

10.2071 


£2  155  1 
2C  001  1 
5C  141  0 
52  005  0 


DXCH 

OOOUBL 

INDEX 

DXCH 


HPAC 

TEMl 

4 


0278 

0279  REF  5 

0280  REF  756 

0261  REF  24 

0282  REF  757 

02  83 

0284  REF  758 


LAST  912 
LAST  1258 
LAST  1257 
LAST  1258 

LAST  1258 


10,2072 

n,2C73 

10.2074 

10.2075 

10.2076 

10.2077 
ir,21C0 


C 0006  1 
< 0742  1 
52  155  1 
C -7112  1 
52  155  1 
20  001  1 
52  16C  1 


EXTEND 

DCS  SINCDUX 

DXCH  MPAC 
TC  0MPSU8 

DXCH  MPAC 
OODUBL 
DXCH  MPAC 


02  85' 

0286  REF  6 LAST 

0287  REF  759  LAST 

0288  REF  19  LAST 

0289  RFF  7 LAST 

02  90 

0291  REF  76C  LAST 

0292  REF  761  LAST 

0293  REF  20  LAST 

0294  REF  4 LAST 

0295  REF  762  LAST 

0296 

0297 

0298  REF  763  LAST 


10,2101  0 0006  I 

1258  10,2102  4 0742  1 

1258  10,2103  £2  155  I 

1257  10,2104  C 7106  1 

1257  10,2105  CC737  1 

10,2106  0 0006  1 

1258  10,2107  4 0155  1 

1258  10,2110  52  162  0 

1258  10,2111  C 7106  1 

1257  10,2112  00735  0 

1258  10,2113  52  155  1 

10.2114  20  001  I 

10.2115  20  001  1 

1258  10,2116  52  162  0 


EXTEND 

DCS 

DXCH 

TC 

ADRES 

EXTEND 

CCS 

DXCH 

TC 

ACRES 

DXCH 

CCOUBL 

ODOUBL 

DXCH 


SINCDUX 

MPAC 

OMP 

SINCCUZ 

MPAC 

MPAC 

OMP 

S INCCUY 
MPAC 


HPAC 


0299  REF  764 

0300  REF  21 

0301  REF  A 

0302  REF  765 

0303 

0304 

0305  REF  165 


LAST  12S8 
LAST  1258 
LAST  1257 
LAST  1258 


LAST  1256 


10,2120 

10,2121 

10,2122 

10. 2123 

10.2124 

10.2125 


00743  I 
52  155  1 
20  OCl  1 
20  001  1 
£2  131  0 


OXCh  MPAC 
TC  DMF 

ADRES  COSCDUY 
OXCH  MPAC 
DDOUBL 
DOQUBL 
CXCH  BUF 


0306 

0307  REF  5 LAST  1258 

0308  REF  766  LAST  1258 

0309  REF  22  LAST  1258 

0310  REF  6 LAST  912 

0311  REF  767  LAST  1258 

0312 

0313  REF  768  LAST  1258 


10.2126  C 0006  1 

10.2127  3 0744  0 

10.2130  £2  155  1 

10.2131  C 7106  1 

10.2132  CC747  0 

10,2132  £2  155  1 

10.2134  20  001  1 

10.2135  20  162  0 


EXTEND 

DCA  COSCDUY 

DXCH  MPAC 

TC  DMP 

ACRES  CCSCCUX 

DXCH  MPAC 

COOUBL 
CAS  MPAC 


0314 

0315  REF  5 LAST  1258 

0316  KEF  769  LAST  1258 

0317  REF  25  LAST  1258 

0318  REF  770  LAST  1258 


10.2136  0 0006  1 

10.2137  3 0736  0 

10.2140  £2  155  1 

10.2141  0 7)12  1 

10.2142  52  155  1 


EXTEND 

DCA  SINCOUY 

OXCH  MPAC 
TC  OMPSUB 

DXCH  MPAC 
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USER'S  PAGE  NO*  8 EO  S3 


= - SINY  COSZ 


AOORWO  SET  TO  COSCDUZ  STILL 


+5 


ADDRWO  SET  TO  COSCOUX 


GAP:  ASSEMBLE  REVISION  131  CF  A6C  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


L POWERED  FLIGHT  SUBROUTINES 


0319 

0320  REF  166  LAST  1258 


10|21A3  20  001  1 

10.21AA  20  131  0 


D00U6L 
CAS  6UF 


0321 

0322 


REF  167 
REF  771 


LAST  1259 
LAST  1258 


10,21A5 

10»21^6 


52  131  0 
52  155  1 


OXCH  BUF 
CXCh  HPAC 


0324  BEF  772 

0325  REF  26 

0326 


LAST  1259 
LAST  1258 


10,21A7  C 0G06  1 

10.2150  3 0155  0 

10 .2151  50  141  0 

10.2152  52  015  I 


EXTEND 

OCA 

INDEX 

OXCH 


MPAC 

TFMl 

14 


0327 

0328  REF  773  LAST  1259 

0329  REF  27  LAST  1259 

0330  . 


10.2153  ■ 0 0006  1 

10.2154  3 0160  0 

10.2155  50  1^1  0 

10.2156  52  017  0 


EXTEND 
OCA  MPAC 
INDEX  TEMl 
DXCH  16 


0331 

0332  REF  774  LAST  1259 

0333  REF  28  LAST  1259 

0334 


10,2157  C CCC6  1 
10,2160  3 0162  1 
ia,2161  50  141  0 
10,2162  52  021  0 


EXTEND 
OCA  MPAC 
INDEX  TEMl 
OXCH  20 


0335 

0336 

0337 

0338 

0339 

0340 

0341 
03x^2 

0343 

0344 

0345 

0346 

0347 


REF  29  LAST  1259 
BEF  83  LAST  1256 

BEF  22  LAST  858 
REF  25  LAST  1253 
REF  43  LAST  1110 
REF  37  LAST  1116 
REF  1)  LAST  997 
BEF  2 LAST  1005 
REF  775  LAST  1259 

REF  30  LAST  1259 


10.2163  3 0141  0 

10.2164  54  116  0 

10.2165  0 0006  1 

10.2166  3 0006  1 

10.2167  6 ^751  0 

10.2170  52  165  1 

10.2171  3 4744  1 

10.2172  5A  C23  1 

10.2173  1 7463  0 

10.2174  52  155  1 

10.2175  20  001  I 

10.2176  50  141  0 

10.2177  52  0C7  I 


CA  TENl 

TS  ACCRWC 

EXTEND 
DCA  Z 

AO  FOUR 

OXCH  LOC 

CAP  BITfi 

TS  EDCP 

TCP  VXV 

OXCH  MPAC 

DDCUBL 
INDEX  TEMl 

DXCH  6 


0348  REF  776  LAST  1259 

0349 

0350  REF  31  LAST  1259 

0351 


10.2200  52  160  1 

10.2201  20  001  1 

10.2202  5C  lAl  0 

10.2203  52  011  0 


DXCH  MPAC 
DDOUBL 
INDEX  TEM 
DXCH  10 


0352 

0353 

0354 

0355 


PEF  777  LAST  1259  10,2204  52  162  0 

10,2205  20  001  1 

REF  32  LAST  1259  10,2206  50  141  0 

10,2207  52  C13  I 


CXCH  MPAC 
OOOUBL 
INDEX  TFMl 
DXCH  12 


03  56 

0357 

0358 


REF  30  LAST  1257 
REF  66  LAST  1257 
BEF  5 LAST  977 


10.2210  z CIA2  0 

10.2211  54  003  0 

10.2212  1 Ad31  0 


CA  TEM2 

TS  EBANK 

TCF  SWRETUR! 


17:53  DECo  19,1969  SKIPPER  . 101 
USER'S  PAGE  NOo  9 


PAGE  1259 
EC  S3 


= SINY  COSX  + SINX  SINZ  COSY 

+3 

= - SINX  COSZ 

♦ 5 

= COSX  COSY  - SINX  SINY  SINZ 


+5 
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TIME  CF  FREE  FALL 


USER' S PAGE  KCe  1 EO  S3 


ROOOl 

R0003 

R0005 


THE  TFF  SLBROUTINES  MAY  BE  USED  IK  EITHER  EARTH 
KNOW  WHICH  ORIGIN  APPLIES*  IT  IS  THE  USER  WHO  KNOWS,  AND 
APPROPRIATE  SCALE  LEVEL  FCR  THE  PROPER  PRIMARY  EODYo 


CP  MOCN  CENTERED  COORDINATES*  THE  TFF  ROUTINES  NEVER 
WHO  SUPPLIES  RCKE,  VONE  AND  l/SOflT(MLI»  AT  THE 


R0006 

R00O7 

RC009 


EARTH  ORIGIN 


POSITION  -29  METERS 

VELOCITY  -7  METEPS/CENTl  SECOND 

l/SCRTIMU)  417  SORTICS  SQ/METERS  CUBED) 


ROOll 

R0012 

R0014 


MOON  ORIGIN 


POSITION 
VELOCITY 
' l/SCRTIMU) 


-27 
-5 
+ 1A 


METFRS 

METERS/CENT  I SECONDS 
SORTICS  SQ/METERS  CUBED) 


R0016 

R0018 

R0a20 

R0021 

R0023 

R0025 

R0027 

R0029 

R0031 

R0032 

R003^ 


ALL  DATA  PROVIDED  TO  AND  RECEIVED  FROM  ANY  TFF  SUBROUT 
THE-  FREE  FALL  TIME  IS  RETURNED  IK  CENTISECONDS  AT  (-26 
LEAVE  IT  IN  VONE'  AT  (410)  IF  EARTH  ORIGIN  AND  (+9)  I 
THE  USER  MUST  STORE  THE  STATE  VECTOR  IN  RONE 
AT  THE  PROPER  SCALE  BEFORE  CALLING  TFF/CCKICo  SINCE 
THE  USER  MUST  ALSO  LOCK  OUT  THE  EXTENDED  VERBS,  AND  RE 
PROGRAMS  CALC/TFF  AND  CALC/TPER  ASSUME 

RADIUS*  THIS  RESTRICTION  CAN  BE  REMOVED  8Y  A 15  W CCD 


INE  WILL  BE  AT  CNE  OF  THE 
)o  PROGRAM  TFF/CONIC  WIL 
F MOON  ORIGIN* 

, VONE  AND  MU  IN  THE  FOR 
RONE,  VONE  ARE  IN  THE  EXT 
LEASE  THEM  WHEN  FINISHED* 
THAT  THE  TERMINAL  RADIUS 
ING  CHANGE,  BUT  AT  PRESENT 


LEVELS  ABOVE*  IK  ALL  CASES 
L GENERATE  VONE/RTMU  AND 

M 1/SQRT(MU)  IN  TFF/RTMU 
ENDED  VERB  STORAGE  AREA, 


IS  LESS  THAN  THE  PRESENT 
IT  IS  NOT  DEEMED  NECESSARY* 


THE  FOLLCWIKG  ERASAELE  CUANTITIES 


ARE  USEC  BY 


THE  TFF  ROUT INES, 


AND  ARE  LOCATED 


IN  THE  PUSH  LIST-« 


A0035 

A0036 


BELOW 


E:  is  USED  FOR  EARTH  ORIGIN  SCALE 
M:  is  used  fop  MOON  ORIGIN  SCALE 


A0037 

0038 

0039 
A0040 

OOAl 

A0042 

0043 

A0044 

0045 

A0046 

0047 

0048 

0049 
A0050 

0U51 

005? 

0053 

A0054 

0055 

0056 
A0057 

0058 

0059 


TFFSW 

0012  TFFCELQ 

0014  RMAGl 

RP  ER 

0016  TFFCl 

SDELF/2 

0016  CCELF/2 

RAPO 

0'120  NRTERM 

0022  RTERM 

0024  TFFVSO 

00?.6  TFFl/ALF 

0030  TFFRTALF 

0032  TFFALFA 

0034  TFFNP 

0036  TFF/RTMU 

0040  NRMAG 

0042  TFFX 

0044  TFFTEM 


1190 

100 

120 

140 

140 


140 
1 60 
160 


180 

200 

220 


240 

26D 

260 

300 

320 


0 = CALCTFF  1 

0 2-01  E: 

A8VAL(RN>  M F: 

PERIGEE  RADIUS  M E: 

RcV  / SQR  T( MUE  ) F : 

SINITHETA)  /2 
COSITHETA)  /2 
APOGEE  RADIUS  M F: 


TERMINAL  RADIUS  M £: 

m; 


= CALCTPER 
(-161  M:  (-15) 
(-29)  M:  (-27) 
(-2«)  M:  (-27) 
(-16)  M:  (-15) 


(-29)  M:  (-27) 
(-294NR ) 
{-274NR) 


TERMINAL  RADIUS  M E: 
-( V SOUARED/MU)  1 /M 
SEMI  MAJ  AXIS  M E: 

M: 

SORT(ALFA)  E:  (10  + KA 
ALFA  l/M  F:  ( ?6-NR 
SEMI  LATUS  RECTUM  M 

1/SORT (MU)  E: 

PRESENT  RADIUS  M F: 

M: 


(-29)  M:  (-27) 
E:  (20)  M:  (18) 
(-22-2  NA) 

(-20-2  NA) 

) M;  (9+NA) 

) M:  (24-NR) 

E:  (-38+2  NR) 

M:  (-36+2  NR) 
(17)  M:  (14) 
(-29+NR) 

(-27+NR) 


340 

360  TEMPORARY 


GAP:  ASSEPeUE  REVISION  131  GF  AGC  PROGRAM  LUMINARV  SY  NASA  2P21112-091 
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USER  *S  PAGE  NO.,  2 EC  S3 


A0060 

A0061 

A0062 

A0063 

A006A 

A0065 


REGISTERS  SI,  S2  AR 
INCEX  REGISTERS  XI, 
LISH6D  IN  TFF/CONIC 
SLEBOUTINESo 


E LMCUCHEC  BY  ANY  TFF  SUBROUTINE 
X2  ARE  USED  BY  ALL  TFF  SUBROUTlNESo  THEY  ARE  ESTAB- 
ANO  MUST  BE  PRESERVED  BETWEEN  CALLS  TP  SUBSEQUENT 


-NR 

-NA 


CIXU  = NORM  COUNT  OF  RMAG 

C(X2»=  NORM  COUNT  OF  SORT ( ABS ( AL FA ) ) 


GAP:  ASSEMBLE  REVlSIDA  131  CF  AGC  PRCCRAM  LUMINARY  BY  NASA  Z021112-C91  17:53  DECo  19,1«»69  SKIPPER  .101  PAGE  J262 

L TIME  OF  FREE  FALL  USER'S  PAGE  NGo  3 EC  S3 

P0066 


R0067 

R0069 

R0071 

R0072 

R0073 

R0075 

R0077 

R0079 

R0081 

R0082 

R0083 

R0085 

R0086 

Rooes 

R0089 


PCD  BY: 
MOO  NO: 
MCO  NO: 
PCD  NO: 


RR  BAIRNSFATFER 

1 PGO  BY; 

2 MOD  8Y: 

3 MOD  by: 


FUNCTIONAL  OESCRIPTICN: 


PR  EAIRNSFATFER 
RR  BAIRNSFATHER 
RR  BAIRNSFATt-ER 
•THIS  SUBROUTINE  IS 


TIME  OF  FREE  FALL 

CATE:  11  APR  67 

DATE:  21  NCV  67  ADD  MOON  MUo 

date:  21  MAR  68  ACCEPT  DIFFERENT  EARTH/POON  SCALES 

AILED  TO  COMPUTE  THOSE  CONIC  PARAMETERS  REQUIRED  BY  THE  TFF 


SUBROUTINES  AND  TC  ESTABLISH  THEM  IN  THE  PUSH  LIST  AREA® 
THE  ECUATICNS  ARE 


THE  PARAMETERS  ARE  LISTEC  UNDER  OUTPUT,- 


H = RN»VN 


ANGULAR  MOMENTUM 


LCP  = HoH  / ML 

ALFA  = 2/RN  - VNjVN  / MU 


SEMI  LATUS  RECTUM 

RECIPROCAL  SEMI  MA  J AXIS*  SIGNED 


R0091 
R0092 
R0093 
R0O9<V 
R0095 
R0096 
R0n98 
Roion 
80102 
R0104 
R0105 
KOI  07 
R0109 
ROlll 
R0112 


ANC  ALFA  IS  POS  FOR  ELLIPTIC  ORBITS 
0 FCRFARAECLIC  CREITS 
NEG  FOR  HYPERBOLIC  CRBITSo 
SUBROUTINE  ALSO  COMPUTES  ANC  SAVES  RMAG* 

CALLING  SEQUENCE: 

TFFCONIC  EXPECTS  CALLER  TO  ENTER  kITH  CORRECT  GR 
l/SORT(MU),  PROGRAM  WILL  SAVE  IN  TFF/RTMU  e THE 
ORIGIN  IS  USEOe  THE  CALLER  MUST  LCCK  CUT  THE  EXT 
VONE  AT  PROPER  SCALE.  THE  EXTENDED  VERBS  MUST  BE 
TFF  RCUTINESo 

ENTRY  POINT  TFFCCNPL  EXPECTS  THAT  TFF/RTMU  IS 
TO  SPECIFY  MU:  OLCAC  CALL  IF 

YCURMU  1/RTMU 

TFFCONIC 

PUSHLCC  = PCL-i-0,  ARBITRARY  IF  LEO  18C 


AVITATICNAL  CONSTANT  IN  MPAC»  IN  THE  FORM 
SCALE  IS  DETERMINED  BY  WHETHER  EARTH  GR  MOON 
ENDED  VERBS  BEFORE  PROVIDING  STATE  VECTOR  IN  RONE, 
RESTCRED  WHEN  THE  CALLER  IS  FINISHED  USING  THE 

ALREADY  LOACEC. 

MU  ALREADY  STORED:  CALL 

E:  (17)  M:  (lA)  TFFCONMU 


R0113 

R0114 

R0115 

R0116 

R0117 

ROIIB 

R0119 

R0120 

R0121 

R0123 

R012A 

R0125 

R0127 

RC128 

R0129 

R0130 


SUBROUTINES  -CALLED:  NONE 
NCRMAL  EXIT  MODES:  RVQ 

ALARMS:  NCNE 

OUTPUT:  THE  FOLLOWING  ARE  STCRED  IN  THE  PUSH  LIST  AREA. 

RMAGl  E:(-29»  M:(-27I  M RN,  PRESENT  RADIUS  LENGTH. 
NRMAG  E:  (-29-i-NR>  P RMAG,  NORMALIZED 

M:  (-27-fNR) 


XI 

TFFNP  E 
M: 

TFF/RTPU 
TFFVSQ  E 
TFFALFA 

TFFRTALF 


(-38'fr2NP} 
(-36-»2NR  ) 
E:  (17  ) P 
(20)  M:(1 

E:  (26-NBJ 
P:  (ZA-NR) 
E:  ( 10•^NA 
P:  (9+NA) 


-NR,  NORM  COUNT 
P LCP,  SEPI  LATUS  RECTUM, 

: (lA  ) l/SQRT (MU  ) 

0)  l/P  -(V  SQ/MU) : PRESENT 

1/M  ALFA,  WEIGHTED  BY  NR 


) SQRT(ALFA)  , NORMALIZED 


WEIGHTED  BY  NR 


VELOCITY, NORMLI 


ZED. 


FOP 


FOB 


VGAMCALC 


VGAMCALC 


gap:  ASSEI^HLE  revision  131  DF  AGC  PROGRAM  LUMINARY  BY  NASA  2f21ll2-0«51 

L TIME  OF  FREE  FALL 


17:53  DEC*  19,1969  SKIPPER 
USER'S  PAGE  NO«  * 


clOl  PAGE  1263 
EO  S3 


R0131 

R0132 

R0133 

R013A 

R0135 

R0136 

R0137 

RO130 

R01<VO 

ROl^2 

R0144 

R0145 


X2  -NA,  NORM  COUNT 

TFFl/ALF  £:  (-22-2NA)  SIGNED  SEMI  MAJ  AXIS,  WEIGHTED  BY  NA 
M:  (-20-2NA) 

PUSFLOC  AT  PCL-*0 

THE  FCLLCWING  IS  STCREC  IN  GENERAL  ERASABLE 
VONE'  E:(10>  M:(9)  V/PT(MUJ,  NCR P AL  I Z E C V ELCC  I TY 

EPASAELE  INITIALIZATION  REQUIRED: 

RONE  E;(-29)  P:(-2t)  M STATE  VECTOR 

VONE  E:(-7I  M:(-5)  M/CS  STATE  VECTOR 

TFF/RTMU  E:(17)  M:(1A>  1/RT(CS  SQ/M  CUBE) 

DEBRIS:  QPRET,  PDL+0  »«•  PCL+3 


LEFT  BY  CALLER 
LEFT  BY  CALLER 
IF  ENTER  VIA  TFFCCNMUo 


0U6 

01A7  REF 


33  ,3760 
27,2000 


BANK  33 
SETLCC  TCF-FF 


0148 


27,3361 


BANK 


0149 

0150 


REF  • 2 LAST  46  TO  46; 

REF  4 LAST  719  27,3361 


2 2#  COUNT#  tl/TFF 

00037  0 TFFCONIC  STORE  TFF/RTMU 


l/SQRT(MU)  E:  (17)  M;  (14) 


0151 

0152 

0153 

0154 

0155 


REF  15  LAST  722 

REF  1 


27.3362  53575  0 

27.3363  02207  0 

27.3364  77725  1 

27  ,3365  00045  0 

27,3366  00015  0 


FFCONMU  VLOAD  UNIT 
RONE 

POOL 

360 

STORE  RMA61 


COME  HERE  WITH  TFFRTMU  LCADFDe 
SAVED  RNo  M F:  (-29)  M:  (-27) 

UR/2  TO  PDL+r  , +5 
MAGNITUDE 

M E:  (-29)  m:  (-27) 


0156 

0157  REF 

0158  REF 

0159  REF 

0160 

0161  REF 

0162  REF 


60.  LAST  1228 
1 

9 LAST  722 

5 LAST  1263 

1 


27,3367  77701  1 

27.3370  00047  1 

27.3371  24041  1 

27.3372  02215  0 

27.3373  77761  1 

27.3374  00037  0 

27.3375  02170  0 


NORM 

STOVL 

VXSC 

STORE 


X 1 

NRMAG 

VONE 

TFF /R  TML 
VONE  • 


-NR 

RMAG  M E:  (-29+NR)  M:  (-27+NR) 

SAVED  VNo  M/CS  E:  (-7)  M:  (-5) 

E:  (17)  M:  (14) 

VN/SQRT(MU)  £:  (10)  M:  (9) 


0163 

0164 
A0165 

0166 

0167 

40160 

0169 

0170 

0171 

0172 

0173 

0174 
A0175 

0176 


REF  2 

REF  1 

REF  1 

REF  3 
REF  2 

REF  1 


LAST  1263 


LAST  1263 
LAST  1263 


27.3376  47361  0 

27.3377  00041  I 

27.3400  47572  1 

27.3401  14035  I 

27.3402  06514  1 

27.3403  63271  0 

27.3404  00041  1 

27.3405  02170  0 

27.3406  57436  I 

27.3407  C0025  0 

27,3410  43257  0 


VXSC  VXV 

NRMAG 


VSLl  VSC 

STOOL  TFFNP 

TFFl /4 
DDV  POVL 

NRMAG 
VONE  ' 
VSC  DCCMP 

STORE  TFFVSC 

SR*  OAC 


E:  (-29+NR>  M:  (-27+NP) 

UR/?  FROM  PDL 

BEFORE:  E:(-19+NR)  M:{-10+NR) 

LC  P M F:(-38+2NP)  M:(-36  + 2NR) 

SAVE  ALSO  FOR  VGAMCALC 


(2/RMAG)  1/M  E:(26-NR)  M:(24-NR) 

RMAG  M e:(-2«+NR)  M;(-27+NR) 

SAVFO  VNo  e : (1  C ) M:  (9  ) 

KEEP  MPAC  + 2 HONEST  FOR  SORT- 
-(V  SO/ MU  ) E : (20  ) M: ( 18  ) 

SAVE  FOR  VGAMCALC 


GAP  : 

L 

0177 

0178 

A0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

01  87 

Aoiee 

0189 

0190 

0191 

0192 

0103 

Apl94 


ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
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T IME  CF  FREE  FALL 


USER'S  PAGE  NCo 


EO  S3 


STAOP 


0 


-6,1 


REF  1 


REF  29  LAST  1229 
REF  I 


27,3A13  77744  0 

27,3A14  A1457  1 

27,3415  2D173  0 

27,3A16  75446  0 

27,3A17  77701  1 

27,3420  00050  1 

27.3821  00031  0 

27.3822  75316  1 


STORE  TFFALFA 
SL*  PUSH 

0 -t,  1 
ABS  SORT 
NORM 

X2 

STORE  TFFRTALF 
OSQ  SIGN 


27,3823 

27,3428 

REF  2 LAST  1263  27,3825 

REF  1 27,5426 

27  ,3427 


55258  I BZE 

57826  0 
C6518  I 

00027  1 +2  STORE 

77616  0 CUMPCNIC  RVQ 


BODV 
+ 2 

TFFl/4 

TFFl/ALF 


GET  -VSQ/MU  e:(26-NR)  M:(24-NR» 

2/RMAG  FROM  PDL+2 

ALFA  l/M  E;(26-NP>  M:(28-NP) 

TEMP  SAVE  ALFA  E : ( 2C  ) M:(18) 

E:(10)  M:(c| 


X2  = -NA 

SORT!  ABSIALFAI  ) E:(10+NA»  M:{9+NAI 

NCT  SO  ACCURATE,  PLT  CK 

ALFA  FROM  POL  + 2 E:(20I  M:(18) 

SET  l/ALFA  =P,  TO  SHOW  SMALL  ALFA 


l/ALFA  E: 1-22-2  NA»  M:(-20-2  NA) 


39  W 


GAP 
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SKIPPER  olOl  PAGE  1265 


L TIME  OF  FREE  FALL 


USER'S  PAGE  NC, 


Er  S3 


Pai95 

R0197 

R0199 

R0200 

R0201 

RU203 

R0205 

R0207 

R0208 

R02I0 

R0212 

R0213 

R021A 

R0216. 

R0217 

R0218 

R0219 

ft0221 

R0222 

R0223 

R022A 


SLBROLTINE  NAME:  TFFPP/RA 

FED  NC:  0 

MOD  BY;  RR  BAIRNSFATHER 

MCC  ND:  1 MOD  BY:  RR  BAIRNSFATHFR 

MOO  NO:  2 MOD  by:  RR  BAIRNSFATHER 


FUNXTinNAL  CESCRIPTION: 

APOGEE  PACILS 
PROGRAM  GIVES 
RP  = P 
HHERE  2 


• USED  BY  CALCTPER 
FOR  A GENERAL  CCNICe 
PERIGEE  RADIUS  AS 
/ < 1 + E ) 


DATE:  0U17«67 

LOG  SECTION:  TIHE  CF  FREE  FALL 


DATE:  11  APR  67 

DATE:  21  MAP  69  ACCEPT  DIFFERENT  EARTH/PGON  SCALES 

ALSO  IMPROVE  ACCURACY  OF  RAPOe 
AND  TFF  DISPLAYS  TO  CALCULATE  PERIGEE  RADIUS  AND  ALSO 

APOGEE  RADIUS  IS  GIVEN  BY 
RA  = ( 1 + et  / ALFA 


E = 1 - P ALFA 

IF  RA  IS  NEGATIVE  OR  SHOWS  DIVIDE  OVERFLOW,  THEN  RA  = POSMAX  BECAUSE 
U APOGEE  RADIUS  IS  NOT  MEANINGFUL  FOR  HYPERBOLA 
2*  APOGEE  RADIUS  IS  NOT  DEFINED  FOP  PARABOLA 
3o  APOGEE  RADIUS  EXCEEDS  THE  SCALING  FOR  FLLIPSE* 

THIS  SUBROUTINE  REQUIRES  THE  SIGNED  RECIPROCAL  SEMI  MAJ  AXIS,  ALFA,  AND  SEMI  LATUS  RECTUM  AS  DATA, 
CALL ING  SEQUENCE:  CALL 


TFFRF/RA 

PUSHLOC  = POL+0,  ARBITRARY  IF  LEQ  lOD 
CtMPACI  UNSPECIFIED 


R0225 

R0226 

R0227 

R0228 

R0229 

R0230 

R0232 

R023^ 

R0236 

R0237 

R0238 

R02^0 

R0241 

R02A3 

R02A4 

R0246 

R0248 


SUBROUTINES  CALLED:  NONE' 

NCRMAL  EXIT  MODE:  RVO 

IF  ELLIPSE,  WITHIN  NORMAL  SCALING,  RAPO  IS  CORRECT*, 

OTHERWISE,  RAPO  = PCSMAXo 
ALARMS:  NONE 

(JUTPLT:  STORED  IN  PUSH  LIST  AREA®  SCALE  CF  OUTPUT  AGREES  WITH  DATA  SUPPLIED  TO  TFF/CONICo 

RPER  e:(-29»  M:(-27)  M PERIGEE  RADIUS  DESTROYED  BY  C ALCT  FF /CAL  CTPER , TFFTRIGo 

RAFC  £:(-29»  M:(-27)  M APOGEE  RADIUS  WILL  BE  DESTROYED  BY  CALCTFF/CALCTPER 

PUSHLOC  AT  POL+0 

ERASABLE  IN.IT  lAL  IZAT  ION  REQUIRED: 

TFFALFA  E:I26-NR)  M 1/SEMI  MAJ  AXIS  LEFT  BY  TFFCONIC 

M:(24-NR» 

TFFNP  E:  I-3B+2NR » M LC  P,  SEMI  LATUS  RECTUM  LEFT  BY  TFFCONIC 

M:  (-36+2NR) 


XI 

X2 

DEBR'IS:  QPRET, 


PCL+0 


-NR,  NORM  COUNT  OF  RMAG 
-NA,  NORM  COUNT  OF  ALFA 


LEFT  BY  TFFCON  IC 
LEFT  BY  TFFCONIC 


gap:  assemble  REVISION  ]3l  OF  AGC  PRCC-RAM  LUMINARY  BY  NASA  2021112-091 


TIME  CF  FREE  FALL 


P0249 
0250 
02  51 
A0252 
0253 
025-^ 

0255 

0256 

0257 
0256 

A0259 
0260 
0261 
02  62 
0263 
026^ 
■ 0265 
0266 

0267 

0268 
A0269 

02  70 

0271 

0272 

0273 
027A 

0275 

0276 

0277 

0278 
027Q 
0260 
0261 
0282 
02  63 
0294 


REF 

REF 

REP 


REF 

REF 


REF 

REF 


LAST  1264 


LAST  1266 


LAST  723 


LAST  1264 
LAST  1226 


LAST  1266 


27.3430 

27.3431 

27.3432 

27.3433 
27  ,3434 

27.3435 

27.3436 

27.3437 

27.3440 

27.3441 

27.3442 
27  ,3443 

27.3444 

27.3445 
27  ,3^46 

27,3447 

27.3450 

27.3451 
27  ,3452 

27.3453 

27.3454 
27  ,3455 

27.3456 

27.3457 

27.3460 

27.3461 
27  ,3462 

27.3463 

27.3464 

27 .3465 


. 41345  0 
00033  1 
00035  1 
57457  0 
20571-  0 
51415  0 

17766  0 
43366  0 
06514  1 
55206  0 
C0035  I 
53657  0 
20601  1 
20572  C 
14017  1 

41005  1 
00027  1 
57754  0 
53654  0 
57462  0 
57603  Q. 
40057  1 
57576  I 
57462  0 
77644  1 
57464  0 
77745  1 
17772  0 
00021  1 
77616  0 


TFFRP/RA  DLCAO 


DAO 


OMP 

TFFALFA 
TFFNP 
DCCMP 
0 -80,1 
ABS 


DP2(-4) 
SORT  DAD 

TFFl/4 
PUSH  BOCV 
TFFNP 

SR*  SR* 

0,1 

0 -7,1 
STOOL  RPER 


DMP 


BPL 

CLOAO 


bOVB 

TFFl/ALF 

TCDANZIG 

SL* 

MAXRA 
0 -5,2 
BOV 
0 ,2 
MAXRA 


NEARONE 
STORE  RAPO 


CLMPRPRA  RVQ 


A02e5 


17:53  OECo  19,1969  SKIPPER  101  PAGE  1266 


USER'S  PAGE  NCo  7 EO  S3 


APOGEE  RADIUS  M E:(-29)  M:(-27» 

PERIGEE  RADIUS  M E:I-2R|  M:(-27» 


ALFA  1/M  E:(26-NR)  M:I24-NR) 

LC  P M e:(-38*2NPI  M:(-36+2NR) 

ALFA  P (-12+NR) 

ALFA  P 1-4) 

(DCOMP  GIVES  VALID  TP  RESULT  FOR  SORT) 
(ABS  PROTECTS  SORT  IF  E IS  VERY  NEAR  0) 

E S C = (1-  P AL  FA  ) (-4  » 

( l+EI  1-2)  TO  PDL+n 

LCP  M E:(-3fl+2N’PI  M;  (-36+2NR  ) 

(OOFS  SR  THEN  SL  TC  AVCID  CVFL) 

X1=-NR 

(EFFECTIVE  SL) 

PERIGEF  RADIUS  M E:(-2o)  Mj(-27) 

(1 +E)  1-2 ) FROM  POL  +0 

E:(-22-2NA)  M:(-2n-2NA) 

CLEAR  OVFINO,  IF  ON* 

SET  POSMAX,  IF  ALFA=0 
-5+NA 


SET  POSMAX  IF  OVFL« 

CONTINUF  WITH  VALID  RAPO<, 

RAPO  CALC  IS  NOT  VALID,  SET  RAPO  = 
POSMAX  AS  A TAG, 

APOGEE  RADIUS  M E:(-29)  M:(-27) 


30  W 


GAP;  ASSEMBLE  REVISION  131  OF  A&C  PROGRAM  LUMINARV  BY  NASA  20211  12-091 
L TIME  CF  FREE  FALL 


17:53  CECo  19,1969  SKIPPER  dOl  PAGE  1267 
USER'S  PAGE  NC«  6 £P  S3 


CALCTPEP  / CALCTFF 


TIME  OF  FREE  FALL 


R0290  MCD  BV:  RR  EAIRNSFATFER 

R0291  MCD  NO:  1 MOD  BY: 

R0292  MCC  NC:  2 MQO  BY: 

R0293  MOD  .NO:  3 MCD  BY: 

R0295  MOD  NO:  4 MOD  BY: 

R0297  MCD  NC:  5 MOD  BY: 

R0299  FUNCTIONAL  DESCRIPTICN: 

R0301  VELOCITY  VN 

R0303  RN  may  be  CN  ElThEP  SIDE  CF  THE  CONIC 

R0305  THE  EQUATIONS  ARE 


RR  BAIRNSFATHER  CATE:  21  MAR  67 

RR  EAIRNSFATHER  DATE:  lA  APR  67 

PR  EAIRNSFATHER  CATE:  8JUL  67 

RR  0AIRNSFATHER  DATE:  21  NCV  67 

PR  BAIRNSFATHER  DATE:  21  MAR  68 

PROGRAM  CALCULATES  THE  FREE-FALL  TIME  OF  FLIGHT  FROM  PRESENT  POSITION  RN  AND 
RACIUS  LENGTH  SPECIFIED  BY  RTERM  , SUPPLIED  BY  THE  USERo  THE  POSITION  VECTOR 
BUT  RTERM  IS  CONSIDERED  ON  THE  INBOUND  SIDE. 


NEAP  EARTH  MUE  AND  NEG  TFF  (GONEPASTI 
ADD  VARIABLE  MUe 

ACCEPT  DIFFERENT  EAPTH/MCCN  SCALES 


R0306 

R0308 

R0309 


Q2  = -SCRTtRTERM  (2-RTERM  ALFA)  - LCP) 
01  = RN».VN  / SURKMLI 


( INBCUND  SIDE) ) 


LEQ  ♦-  LCE/SORT(ALFA) 
LEO  +-  I CE/SQPT(ALFA) 


Z = NLM  / DEM 


LEO  +-  l/SORTI ALFA) 


R0313 

R0314 

R0316 


WHERE,  IF  INBOUND 
NUM  = RTERM 
OEN  = Q2+C1 


R0318 

R0319 

R0321 


ANDr  IF  OUTBOUND 
• NUM  = Q2-C1 

DEN  = 2 - ALFA  (RTERM 


LEQ  +-  2 LCE/SCRT( ALFA) 
LEQ  +-  2 LCE 


(FOR  ALL  CONICS  EXCEPT  ELLIPSES  HAVING  ABSIDEL  ECC  ANCM  ) G 90  DEGI 


R033A 

RC335 

R0336 


ALFA  ZZ  GEQ  1.0 

X = 1/ALFA  Z Z 
TFF  = (PI /SORT { ALFA ) 


T(X)  IS  A PCLYNCMIAL 
2 3 

1/2  -X/5  +x  /7  -X  /q 


(FOR 

-C2  +01  +2(x 
APPROXIMATION 


ELLIPSES  HAVING  AES(CFL  ECC  ANCM)  GEC  90  CEG) 


T(X)  -II  /ALFA  Z»  /ALFA  SQRT(MU) 

TO  THE  SERIES 
2 

(X  < loO) 


R0337 

R0339 

R03<,0 

R03A2 

R03<i^ 

R0345 


CALLING  SEQUENCE:  TIME  TC  RTERM 
CALL 

CALCTFF 

C(MPAC  I = TFRMNL  RAC  M 
FOR  EITHER,  E:  (-29)  M:  (-27) 

FOR  EITHER,  PUSHLOC  = POL+0  , ARBITRARY 


TIME  TO  PERIGEE 
CALL 

CALCTPFR 

C(MPAC)  = PERIGFE  RAO  M 


IF  LEO  8Do 


gap; 
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L TIME  OF  FREE  FALL 


USER’S  PAGE  NO,  <?  EC  S3 


R03A8 

R0350 

R0352 

R0353 

803*55 

R0357 

R0358 

R0360 

R0362 

R0363 

R0365 

R0367 

R0368 

R0365 

R0370 

R0371 

R0372 

R0373 

R0375 

R0377 

R0379 


SLBROLTINES  CALLED:  T(X»,  VIA  RT8 
ACRf-AL  EXIT  MODE:  RVC 

HOl^EVER,  PRCGRAP  EXITS  UITH  ONE  OF  THE  FOLLOWING  VALUES  FOR  TFF  (-28)  CS  IN  MPACo  USER  MUST  STORE, 
Ao  TFF=  FLIGHT  TIME,  NORMAL  CASE  FCR  POSITIVE  FLIGHT  TIME  LESS  THAN  ONE  ORBITAL  PERIOD, 

B*  (THIS  CPTICN  IS  NO  LONGER  USED,! 

Co  TFF  = POSMAXo  THIS  INCICATES  THAT  THE  CONIC  FROM  THE  PRESENT  POSITION  WILL  NOT  RETURN  TO 
THE  SPECIFIED  ALTITUDEo  ALSO  INDICATES  OUTBOUND  PARABOLA  OR  HYPFPBCLA, 

OITPLT:  C(HPAC)  1-28)  CS  TIME  OF  FLIGHT,  OR  TIME  TO  PERIGEE 

TFFX  (0)  ■ X,  LEFT  FOR  ENTRY  DISPLAY  TFF  ROUTINES 

NRTERM  E:  (-29+NRI  M RTERM,  WEIGHTED  BY  NR  LEFT  FOR  ENTRY  DISPLAY  TFF  ROUTINES 


M:  (-27+NRI 

TFFTEM  £:  (-SS  + aTlRl  LCP  Z Z SGN(SOELF) 

M;  (-55+2NR)  LCP  /ALFA  SGN(SCELF) 

NOTE:  TFFTEM  = PDL  36D  AND  WILL  BE  DESTROYED  BY  oSUMT: 


RMAGl  E:{-29»  M:(-27l 

TFFOl  E:(-16»  M:(-15) 

TFFOELQ  E:(-16)  M:(-15» 
PUSHLCC  AT  PCL+0 

ERASABLE  INITIALIZATION  RECUIPEC: 

RONE  E: t-29  ) M: (-27  I 
VONE*  E:(+10)  M:(49) 

RMAGl  E:(-25)  M:l-27) 

0 (MPAC)E: (-29 1 M:(-27> 


PDL  12  NOT  TOUCHED, 
POL  14C 
PDL  100 


M STATE  VECTOR 

VN/SQRT  (MU  I 

PRESENT  RADIUS,  M 

RTERM,  TERMINAL  RADIUS  LENGTH, 


M 


LEFT  FOR  ENTRY  DISPLAY  TFF  ROUTINES 
LEFT  FOR  ENTRY  DISPLAY  TFF  ROUTINES 


LEFT  BY  USER 
LEFT  BY  TFF/CONIC 
LEFT  BY  TFFCONIC 
LEFT  BY  USER 


RC381 
R0382 
R0384 
R0386 
R0387 
R0389 
R0391 
R0392 
R0394 
R03  95 
R0397 
R0398 
ROAOO 
RUA02 
R0403 
R0404 
R0405 
RO406 


DEBRIS: 


THE  FCLLOVING  ARE  STCPED  IN  THE  PUSH  LIST  AREA, 
TFF/RTMU  E:(17)  M;(J4)  l/SQRTIMH 

NRMAG  e:  (-294-NRI  M RMAG,  NORMALIZED 
M;  (-27+NR) 


XI 

TFFNP  E:  (-38+2NR) 
M:  (-36+2NR) 
TFFALFA  £:  (26-NRJ 
M:  (24-NR) 
TFFRTALF  £: ( 10  + NA  ) 
M:  (9+NA) 


-NR,  NORM  COUNT 
M LCP,  SEMI  LATUS  RECTUM, 

1/M  ALFA,  WEIGHT  NR 

SORKALFA}  , NORMALIZED 


WEIGHT 


NR 


X2  -NA,  NORM  COUNT 

TFFl/ALF  E:  (-22-2NA)  SIGNED  SEMIMAJ  AXIS,  WEIGHTED  BY  NA 
M:  (-20-2NA) 

OPRET,  POL+0  CO  FDL  + 3 

RTERM  E:(-29)  M:(-27)  RTERM,  TERMINAL  RADIUS  LENGTH 

RAPO  E:(-29>  M:(-27l  PCL  16C  (=NRT£RM) 

RPER  E:(-29)  M:(-27)  PDL  14D  (=TFFC1I 


LEFT  PY  TFFCONIC. 
LEFT  BY  TFFCONIC 

LEFT  BY  TFFCONIC 
LEFT  BY  TFFCONIC 

LEFT  BY  TFFCONIC 

LEFT  BY  TFFCONIC 

LEFT  BY  TFFCONIC 
LEFT  BY  TFFCONIC 


gap:  assemble  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  0Y  NASA  2021112-091 


L TIME  CF  FREE  FALL 


P0407 

0A08 

04C9  REF 

0410 

0411 

0412  REF 

0413  REF 

0414 

0415 

0416  REF 

0417 

0418  REF 

0419  REF 

0420 

0421  REF 

0422 
A0423 

0424  REF 

0425 

0426 
A0427 
A0428 

0429 

0430 

0431 

0432  REF 

0433 

0434  REF 

0435 


1 


1 

3 

4 


2 


LAST  1269 


LAST  1266 
LAST  1266 

LAST  1269 


27,3466 
27  ,3467 

27.3470 

27.3471 

27.3472 

27.3473 
27,3*74 
27,3475 
27,  3476 
27,3477 
27,35C0 
27,3501 
27  ,3502 

27.3503 

27.3504 


77614  1 
03436  0 
57473  C 
77614  1 
03676  0 
C0C23  C 
77657  0 
20201  0 
00021  1 
44205  0 
00033  1 
06514  1 
41206  0 
C0021  1 
53725  1 


CALCTPER  SETGO 

CALCTFF  CLEAR 

+3  STORE 

SL# 

STORE 

CMP 

PUSH 

POOL 


TFFSW 

+3 

TFFSW 

RTEPR 


0,1 

NRTERM 
BOSU 
TFFALFA 
TFFl  /4 
OMP 

NRTERM 

SR# 


4 LAST  1266 


27, 3505 
27  ,3506 
27,3507 


C0035  1 
20573  1 
43276  0 


DCCMP, 


TFFNP 
0 -6,  1 
OAC 


27.3510 

27.3511 
27,351  2 

3 LAST  1269  27,3513 

27,3514 

I 27,3515 

27,3516 


77657  0 
20601  1 
71214  0 
C3756  0 
57516  1 
C6524  1 
75440  0 


SR* 


BCFF 


BMN 


0,  I 
OLCAC 
TFFSW 
+ 2 

TFFZERCS 

SORT 


0436  REF  1 
A0437 


27,3517  57651  1 


HAXTFFl 


043  8 

0439  REF  6 

0440  REF  1 

0441  REF  3 

0442 

0443  REF  16 

0444  REF  1 

A0445 

0446 

0447  REF  1 

0448  REF  2 


LAST  1266 
LAST  1263 
LAST  1263 


27.3520  41076  0 

27.3521  57754  0 

27.3522  24045  0 

27  ,3523  02170  0 

27.3524  52441  1 

27.3525  02207  0 

27.3526  00017  1 


27,3527  44240  1 

27,3530  57551  1 

LAST  1269  27,3531  00045  0 


OCOMP  BnVB 

TCCANZ 16 
STOVL  TFFTEM 
VONE  ' 

DOT  SL3 
RONE 

STCRE  TFFOl 

BMN  BOSU 

INBCUNC 

TFFTEM 


A0*49 


OUTeOUNO  Z CALC  CONTINUES  HERE 


0450  REF 

0451  REF 

0452 


1 27,  3522 

4 LAST  1269  27,3533 

27,3534 


14043  0 
00033  I 
44205  0 


STOOL  TFFX 

TFFALFA 
CMP  BOSU 


:53  OECe  19,1969  SKIPPER  dOl  PAGE  1269 
USER*  S PAGE  NCc  10  EO  S3 

ENTER  WITH  PPER  IN  MPAC 


ENTER  WITH  RTERM  IN  MPAC 
E:  (-29)  M:  (-27) 

X1=-NR 

RTERM  E:  (-29+NR)  M;  (-27+NP) 

ALFA  E:  (26-NR)  M:  (24-NR) 

(2-ALFA  RTFRM)  (-3)  TO  POL+0 
E:  (-29+NR)  M:  (-27+NR) 

RTERM(2-ALFA  RTERM)  TO  POL+2 
E:  (-32+NR)  M:  (-30+NP) 

LC  P E:(-38+2NR)  M:(-36*2NR) 

XI  = -NR 

DUE  TO  SHIFTS,  KEEP  PRECISION  FOR  SORT 
RTEPM(2-ALFA  RTEPM)  FROM  PCL+2 
E:  (-32+NR)  M:  (-30  + NP) 

LEAVE  E;  (-32)  M:  (-301 
XI  = -NR 

CHECK  TFF  / TPER  SWITCH 

IF  TFF,  CONTINUE 
IF  TPER,  SFT  02  = 0 
E:  (-16)  M:  (-15) 


NO  FREE  FALL  CONIC  TO  RTERM  FROM  HERE 
RESET  POL,  SET  TFF=POSMAX,  AND  EXIT* 


RT  IS  ON  INBOUND  SIDEo  ASSURE  0VFIND=0 
ANY  PORT  IN  A STORMg 
02  E:  (-161  M:  (-15) 

VN/SORT(MU)  E:  (10)  M:  (9) 

SAVED  RNo  E:  (-29)  M;  (-27) 

01,  SAVE  FOR  GONEPAST  TEST-, 

E:  (-16)  M;  (-15) 

USE  ALTERNATE  Z 
02  E:  (-161  M:  (-15) 


NUM=Q2-Q1  E:  (-16)  M:  (-15) 
ALFA  E:  (26-NR)  Mi  (24-NR) 


GAP ; 

L 

0^53 

A0^54 

0^55 

A0456 

0457 

0458 

0459 

0460 

0461 

A0462 

0463 

0464 

0465 

0466 

AC467 

0468 

A0469 

0470 

0471 

0472 

0473 

04  74 

0475 

0476 

0477 

0470 

04  79 

A04e0 

0481 

0482 

0463 

0484 

0485 

0406 

A0487 

A0488 

A0469 

0490 

0491 

0492 

A0493 

0494 

A0495 

A0496 

0497 


ASSEMBLE  REVISION  131  OF  AGO  PROGRAM  LUMINARY  RY  NASA  2P21112-091 


17:53  DECo  19,1969  SKIPPER  .101  PAGE  1270 


TIME  OF  FREE  FALL 


USER'S  PAGE  NOo  11  EO  S3 


PEF  I 
REF  1 

REF  2 

REF  5 
REF  1 


LAST  1263 


LAST  1269 


LAST  1269 


27.3535 

27.3536 

27.3537 
27,3540 
27,3  541 

27.3542 

27.3543 


27,3544' 

27.3545 

27.3546 

27.3547 


00C41  I NRMAG 

514C6  1 SAVEDEN  PUSH  ABS 


40015  I 
17760  0 
57562  1 
65345  0 
06524  I 


DAC  POV 

LIM(-22) 
TFFXTEST 
OLCAD  POOL 

TFFZEROS 


•57545  1 
00033  1 
71240  1 
57656  0 


OLTAD  DCCMP 

TFFALFA 
BMN  DLGAO 
TFFELl 


RMAG  E:  (-2°+NP)  M:  (-27+NRI 
I2-RTERM  ALFA  I (-3)  FROM  POL  + 0 
OEN  TO  PCL+0  E:  ( -3 J CP  (-161 
M;  (-31  OR  (-15) 
INOETERMINANCY  TEST 
=l#D-B(-22> 

GO  IF  DEN  >/=  0(-22) 

SET  0EN=0  OTHERWISE 

XCH  ZERO  WITH  PDL+0 

ALFA  E:  (26-NR)  Ms  (24-NR) 

FOR  TPER:  Z INOET  AT  DELE/2=n  AND  90o 
ASSUME  90,  AND  LEAVE  0 IN  POL:  1/Z=0/N 


27, 3550 


77616  0 OUMPTFFl  RVQ 


Z INDETe  AT  PERIGEE  FOR  PARAB  OR  HYPERBo 
RETURN  TFF  =0 


REF 

RFF 

REF 

REF 

REF 

REF 


2 

2 

2 

3 


LAST  1269 
LAST  1263 
LAST  1269 
LAST  1269 

LAST  1269 


27.3551 

27.3552 

27.3553 

27.3554 

27.3555 

27.3556 

27. 3557 

27.3560 

27.3561 


77745  1 
45345  1 
00023  0 
00015  0 
14043  0 
00045  0 
52015  1 
00017  1 
57536  0 


INBOUND 
I RBCUNC 


I CALC  CONTINUES  HERE 
CLCAO 

DLCAO  DSL 

RTERM 

RMAG) 

STODL  TFFX 

TFFTEM 
DAO  GCTC 
TFFOl 
SAVEDEN 


RESET  POL+n 
ALTERNATE  Z CALC 
£;  (-29)  M:  (-27) 

E:  (-29)  MS  (-27) 

NUM=RTERM-RN  F;  (-20)  Ms  (-271 
02  Es  (-16)  MS  (-15) 


Q1  E:  (-16)  MS  (-J5) 

OEN  = Q2+01  E:  (-16)  Ms  (-15) 


27,3562  65215 


TFFXTEST  DAD  POOL 


PEF  1 

REF  3 LAST  1270 
REF  2 LAST  1264 


27.3563  17762  1 

27.3564  00043  0 

27.3565  53605  1 

27.3566  00C31  0 

27.3567  57201  0 

27,3570  77671  1 


DP(-22  ) 
TFFX 

CMP  SR'S- 

TFFRTALF 
0 -3,2 

ocv 


REF  4 LAST  1270 
REF  1 


27.3571  40145  0 

27.3572  00043  0 

27.3573  57654  1 


OLOAD 


BOV 

TFFX 

TFFELL 


(A0S(OEN)  TO  PCl+2))  Es  (-3)  OR  (-16) 

MS  (-3)  OR  (-15) 

RESTORE  AeS(DEN)  TO  MPAC 
NUM  E:(-16)  OR  (-29)  Ms(-15>  OR  (-27) 

SOPT(ALFA)  E:  (l^^NA)  M:  (9+NA) 

X2=-NA 

C(MPAC)  =NUM  SORT(ALFA)  E:(-3)  OR  (-16) 
MS (-3  ) OR  (-15 ) 

ABS(DEN)  FROM  PDL+2  E:(-3)  OR  (-16) 

M:  (-3)  OK  (-15) 

(THE  DLOAO  IS  SHARED  WITH  TFFELL) 

NUM  Es  (-16)  OR  (-291  M;(-15)  OR  (-27) 

USE  EON  FOR  DELE  GEQ  9P , LEO  -90 


OTHERWISE,  CONTINUE  FOR  GENERAL  CONIC  FOR  TFF  EQN 


27,3574  45471 


DDV  STADR 


REF 


LAST  1270  27,3575  77732  1 


DEN  FROM  POL-^0 
Z SAVE  FOR  SIGN 


t ; 
M : 
OF 


(-3)  OR  (-16) 
(-3)  OR  (-151 
SOELFr 


STORE 


TFFTEM 


gap:  assemble  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  8Y  NASA  2021112-091 

L T IME  CF  FREE  FALL 


17:53  OECc  19,1969  SKIPPER  -101 
USER'S  PAGE  NC«  12 


PAGE  1271 
EO  S3 


ACA98 
0A99 
05  00 

0501  REF 

0502 

0503 

050A  REF 
0505  REF 
A0506 
A0507 

0508 

0509  REF 

0510 

0511 

0512  REF 

0513 

051A  REF 
A0515 

0516 

0517  REF 
053  6 

0519  REF 
A0520 

0521 

0522  REF 

0523 

0529  REF 

0525 

0526  REF 

0527  REF 

0528 

0529  REF 


5 


LAST  1269 


LAST  1270 
LAST  1271 


27.3576  63906  C 

27.3577  91206  C 

27.3600  00035  1 

27.3601  75261  0 

27.3602  20206  1 

27.3603  00095  0 

27,3609  19095  0 


5 


LAST  1270 


LAST  1270 


27.3605  91206  0 

27.3606  00033  I 

27.3607  77657  0 

27.3610  20201  0 

27.3611  00093  0 

27.3612  91239  1 

27  ,3613  57736  1 


27,3619 

3 LAST  1270  27,3615 

27,3616 

3 LAST  1270  27,3617 


99202  0 
OOC23  0 
91215  1 
00015  0 


1 

3 

1 

3 


2 ’ 


LAST  1270 


LAST  1266 
LAST  1271 


27,3620  51092  0 

27  ,3621  57692  0 

27.3622  75206  1 

27.3623  00017  1 

27  ,3629  71299  0 

27.3625  57696  I 

27.3626  00027  1 

27.3627  51076  1 

27,3630  57696  1 


PUSH  DSQ 
PUSH  DMP 

TFFNP 

SL  SIGN 

5 

TFFTEM 
STOOL  TFFTEM 


PUSH  DMP 

TFFALFA 

SL* 

0,1 

STCRE  TFFX 
RTB  DMP 
TI  X I 

SR2  6DSU 
RTERM 

DAO  DMP 

RMAGl 

SR3  BPL 

ENDTFF 
PUSH  SIGN 
TFFOl 
BPL  DLOAD 
NEGTFF 
TFFl/ALF 
CCCMP  BPL 

NEGTFF 


£:  (-13>  M:  (-12) 

Z TO  POL+0 

Z SO  TO  POL+2  E:  (-26)  M:  (-29) 
LC  P e:  (-38  + 2NR  ) M:  (-■a6+2NR) 


AFFIX  SIGN  FOR  SDFLF  (ENTRY  DISPLAY) 
P ZSO  E:  (-59+2NR)  M:  (-55+2NR) 
(ARG  IS  USED  IN  TFF/TRIG) 

ZSO  FROM  POL+?  E:  (-26)  M:  (-29) 

RESTORE  PUSH  LCC 

ALFA  E:  (26-NR)  M:  (2i-NR) 


X1=-NR 


X 


POLY 

ZSQ  FROM  PCL+2  F:  (-26)  M;  (-29) 
2 ZSO  T(X)  E:  (-29)  M:  (-27 ) 
RTERM  E:  (-29)  M:  (-27) 

E:  (-29)  M;  (-27) 

Z FROM  POL+0  E:  (-13)  M:  (-12) 
TFF  SQRT(MU)  E:  (-^^5)  M:  (-92) 
(NO  PUSH  UP) 

TFF  SORT (MU ) TO  POL+0 
01  FOR  GONEPAST  TEST 
GONE  PAST  ? 

YES.  TFF  < 0 o 

l/ALFA  E:  (-22-2NA(  M:  (-20-2NA) 
ALFA  > 0 ? 

NOe  TFF  IS  NFGATIVE. 


AC530 


CORRECT  FOR  ORBITAL  PERIOOo 


0531 

0532 

0533  REF 
0539  REF 

0535 

0536 

0537 

0538 

0539 
A0590 

0591 

0592  REF 

0593  REF 


1 

3 LAST  1270 


27.3631  77676  0 

27.3632  56205  0 

27.3633  17756  0 

27,3639  00031  0 

27.3635  53657  0 

27.3636  57602  1 

27.3637  57602  1 

27.3690  93257  0 

27.3691  57576  I 


OCCMP 

OMP  DDV 

PI/)6 
TFFPTALF 
SL*  SL* 

C -9,2 
0 -9,2 
SL*  DAD 
0 ,2 


27  ,3692 

6 LAST  1263  27,3693 

1 27,3699 


90005  0 ENCTFF  CMP 
CCC37  n 
57652  1 


BOV 

TFF/RTMU 
MA  XTFF 


YESo  CORRECT  FOR  ORB  PERIDOo 
2 PI  (-5) 

SQRT(ALFA)  E:  (104NA)  M:  (9+NA) 


X2= 


-NA 


TFF  SQRT(MU)  FROM  PCL+0  E:{-95)  M:(-92) 
TFF  SQRTIMU)  IN  MPAC  e;(-95)  M:(-92» 
E:  (17)  M;  (14) 

SET  POSMAX  IF  OVFL. 


0599 


27,3695  77616  0 DUMPTFF2  RVO 


RETURN  TFF  (-28)  CS  IN  MPAC«. 


gap:  ASSEr'BLE  REVISION  131  CF  AGC  PPCGPAR  LURINARY  BY  NASA  2n21112-0'51 


TI^»E  CF  FREE  FALL 


0546 
i A0546 

0547 

0548 


REF  2 LAST  1271 


27,3646  77745 


NEGTFF  DLOAD 


27,3647  77650  1 
27,3650  57642  0 


GOTO 

FNDTFF 


0549 

0550 


27.3651  77745  I 

27.3652  43545  1 


MAXTFFl  DLCAD 
MAXTFF  DLOAD  PVO 


0551  REF 


LAST  1266  27,3653  17772  0 


NEARCNE 


R0552  TIME  OF  FLIGHT  ELLIPSE  WHEN  CEL  (ECCENTRIC  ANOM)  GEQ  90  ANO  LEO 


A0553 

A0554 

0555 

0556 
A0557 
A0558 

0559 

0560 

0561 

0562 
A0563 

0564 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 
A0581 
A0582 
A0583 

0 5 84 

0585 

0586 
05b7 

0588 

0589 

0590 

0591 


27.3654  77712  0 TFFELL 

27.3655  41465  0 


SL2 

0CCV  PUSH 


REF  7 
REF  4 
REF  1 


27,3656 
LAST  1271  27,3657 

LAST  1271  27,3660 

27,3661 


45345  1 
00045  0 
00017  1 
14013  0 


TFFELl 


OLCAC  OSU 

TFFTEM 

TFFQl 

STCOL  TFFOELG 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


8 


9 


14 

6 

2 

7 

1 


LAST  1272 
LAST  1271 

LAST  1272 

LAST  1212 
LAST  1271 

LAST  1271 
CAST  1272 


27.3662  77626  0 

27.3663  77722  1 

27.3664  53605  1 

27.3665  00027  1 

27.3666  57576  1 

27.3667  41206  0 

27.3670  00C45  C 

27.3671  41057  0 

27.3672  57576  1 

27.3673  21713  1 

27.3674  00043  0 

27.3675  41234  1 

27.3676  57736  1 

27.3677  00043  0 

27.3700  45242  1 

27.3701  17764  1 

27.3702  41405  0 


STADR 

STORE  TFFTEM 
DMP  SL* 

TFFl/ALF 

0,2 

PUSH  DMP 

TFFTEM 
SL#  BOVB 
0,2 

SIGNMPAC 
STORE  TFFX 
RTB  DMF 
T(  X) 

TFFX 

SR3  OSU 

OP2(-3) 
OMP  PUSH 


REF  10  LAST  1272 
REF  4 LAST  1271 

PEF  5 LAST  1272 
REF  11  LAST  1272 
PEF  6 LAST  1271 


27.3703  41345  0 

27.3704  00045  0 

27,37C5  CCC15  0 

27.3706  43312  0 

27.3707  00017  1 

27, 3710  14045  0 

27  ,3711  00035  1 

27,3712  53605  1 


DLOAD  DMP 

T FFTFM 
RMAGl 

SL2  DAO 

TFFCl 

STODL  TFFTFM 
TFFNP 

CMP  SL* 


17:53  DECq  19,1969  SKIPPER  c lOl  PAGE  1272 
USER'S  PAGE  NCo  33  EO  S3 

TFF  SQRT(MU)  FROM  POL+0,  NEGATIVE., 

RESET  POL 


NUM  FROM  TFFX»  E:  (-16)  OR  (-29) 

M:  (-15)  OR  (-27) 

NUM  E:(-14)  OR  (-27)  M:(-13)  OR  (-25) 

TEMP  SAVE  C/N  IN  PDL  + 0 

DEN  FROM  PDL+0  E:(-3)/(  16)  M:(-3)/(-15) 
N/D  TO  POL+0  E:  (13)  M:  (10) 

(ENTER  WITH  D/N=0  IN  POL+O) 

C2  E:  (-161  M;  (-15) 

01  E:  (-16)  M:  (-15) 

C2-Q1  E:  (-16)  M:  (-15) 

D/N  FROM  PDL+0 

C/K  E:  (11  ) M:  ( 10 ) 

l/ALFA  E:  (-22-2NA(  M:  (-20-2NA) 
l/ALFA  Z E:  (-11-NA)  M:  (-10-NA) 

TO  POL+0 

1/Z  E:  (11  ) M:  (1C) 

X2=  -NA 

IN  CASE  X=  loO , CONT INUE 
X = 1/ALFA  ZSO 

POLY 


2(X  T(X)-l)  II  ALFA  E:  (-15-NA) 

M:  (-14-NA) 
l/ALFA  Z FPOM  PDL+C  E:  (-11-NA) 

M:  (-1o-NA> 

GET  SIGN  FOP  SDEIF 
1/Z  E:  (11)  m:  (ID 
E;  (-29)  M:  (-27  ) 

01  E:  (-36)  M:  (-15) 

(03 +R  1/Z)  =SGN  CF  SOELF  E:{-16)  M:(-15 
LC  P E:  (-38+2NR)  M:  (-36+2NR) 

CALC  FOR  ARG  FPR  TFF/TRlGo 


GAP:  assemble  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112'-091 


L T IME  CF  FREE  FALL 


0592 

0593 

0594 
C595 

0596 

0597 
A0598 

0599 

C600 

0601 

0602 

A06n3 

A0604 

0605 

0606 

0607 

0608 

0609 

0610 
0611 
0612 
0613 


REF  5 LAST  1272 

REF  12  LAST  1272 
REF  13  LAST  1273 
REF  6 LAST  1273 
REF  ? LAST  1271 


REF  2 LAST  1272 

REF  7 LAST  1273 

REF  3 LAST  1272 


27»3714 

27.3715 

27.3716 

27.3717 

27.3720 

27.3721 

27.3722 

27.3723 

27.3724 


27.3725 

27.3726 

27.3727 

27.3730 

27.3731 

27.3732 
27  ,3733 

27. 3734 

27.3735 


53765  0 
00045  0 
57576  1 
14045  0 

00027  1 
41366  1 
17756  0 
77615  0 


45257  0 
57577  0 
C0013  0 
53605  1 
00027  1 
57601  1 
52057  1 
576C2  1 
57642  0 


TFFl/ALF 

1 a 

SIGN  SL* 

TFFTEM 

0,2 

STOUL  TFFTEM 

TFFl/ALF 
SORT  DMP 

Pl/16 

DAD 


SL*  OSU 

0 -1,2 
TFFDELC 
DMP  SL* 

TFFJ  /ALF 
0 -3,2 
SL^  GOTO 

0 -4,2 
ENDTFF 


17:53  DEC*  19,1969  SKIPPER  .101  PAGE  1273 


USER'S  PAGF  NC«  14  ED  S3 

1/ALFA  E:(-22-2NA)  M:(-20-2NA> 

X2=-NA 

AFFIX  SIGN  FOR  SDELF 

P/ALFA  E:(-54  + 2NP)  M:(-55+2NP) 

(ARG  FOR  USE  IN  TFF/TPIG> 

1/ALFA  E:(-22-2NA)  M;(-20-2NA) 

PI  (-4» 

2(XT(XJ-1>/Z  ALFA  FROM  PDL  E:(-15-NAJ 
M; (-14-NA \ 

C2-01  6:  (-161  M:  (-151 

1/ALFA  F:(-22-2NA»  M:(-20-2NA) 

TFF  SQRT(MUJ  IN  MPAC  E:(-45J  M;(-42) 


GAP  : 


ASSEMBLE  REVISION  131  GF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19,1969  SKIPPER  r ICl  PAGE  127A 


L TIME  OF  FREE  FALL 


USER'S  PAGE  NOe  15  EO  S3 


P0614  PPCGRAM  NAME:  T(X)  DATE:  01«17e67 

R0616  MOD  NO:  0 LOG  SECTION:  TIME  OF  FREE  FALL 

R0618  MCD  EY;  RR  BA  IRNS FAT  HER 

R0619  FLNCTICNAL  OESCRIPTICN:  TEE  FCLYNCMIAL  T(X)  IS  USED  BY  TIME  OF  FLIGHT  SUBROUTINES  CALCTFF  AND 

R0621  CALCTPER  TO  APPROXIMATE  THE  SERIES 

R0622  2 3 

R0623  1 /3  -X/5  +X  /7  -X  /9  <,,0 


R0624 

R0625 


WHERE  X = ALFA  Z Z IF  ALFA  Z Z LEO  1 

X = l/(ALFA  Z 2 » IF  ALFA  LI  G 1 


R0626  ALSO  X IS  NEG  FOR  HYPERBOLIC  CREITS 

R0627  X = 0 FOR  PARABOLIC  ORBITS 

R0628  X IS  POSITIVE  FCR  ELLIPTIC  CRBITS 

R0629  FDR  FLIGHT  278»  THE  FCLYNCMIAL  TIX)  IS  FITTED  OVER  THE  RANGE  (0,+l)  AND  HAS  A MAXIMUM 

R0631  DEVIATION  FRCM  THE  SERIES  OF  2 E-5  (T(X)  IS  A CHEBYCHEV  TYPE  FIT  AND  WAS  C8TAINED  USING 

R0633  WAC  PROGRAM  AUTC URF I T294PR B AND  IS  VALID  TO  THF  SAME  TOLERANCE  OVER  THE  RANGE  (-o08,+l».  > 

R0635  CALLING  SEQUENCE:  RT6 

R0636  T(X  I 

R0637  C(MPAC)  = X 


R0638  SUBROUTINES  CALLED:  NONE 

R0639  NORMAL  EXIT  MODE:  TC  DANZIG 

R0640  ALARMS:  NONE 

R0641  OUTPUT:  C(MPAC>  = T(XI 

R0642  ERASABLE  I NI T I A LI Z A T I CN  RECUIRED: 

R0643  C(MPAC)  = X 

R0644  DEBRIS:  NCNE 


0645 

0646 

0647 

0647 

0648 

0648 

0649 

0649 

0650 

0650 

0651 

0651 

0652 

0652 

0653 


REF 


REF 


7 


60 


LAST  1183  27»3736 

27,3737 

27.3740 

27.3741 

27.3742 

27.3743 

27.3744 

27.3745 

27.3746 

27.3747 

27.3750 

27.3751 

27.3752 

27.3753 
LAST  1205  27,3754 


0 7225  0 
00004  0 
12525  0 
12525  0 
71463  0 
57703  1 
C4423  0 
17645  0 
74604  0 
43667  1 
01626  3 
37256  1 
77404  1 
52071  0 
C 6C64  0 


T ( X) 


ENDT( 


TC 

DEC 

20EC 

2DEC4 

20EC* 

2CEC* 

2CEC# 

2DEC4 

TC 


POLY 

3*333333333  E- 1 
-lo999819135  E-l 
lo  418148467  E-l 
-lo01310997  E-l 
5*609004986  E-2 

-1*536156925  E-2 
DANZIG 


N-1 


0654  REF  1 


TCCANZ  IG  = ENDT ( X ) 


gap;  ASSEPBLE  revision  131  OF  AGC  PPCCRAM  LUMINARY  BY  NASA  2021112-C91 
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SKI PPEP  o 101  PAGE  1275 


TIME  OF  FREE  FALL 
TFF  CONSTANTS 


USER  'S  PAGE  NCo 


ADJUSTED  MUE  FOP  NEAR  EARTH  TRAJ, 


A0663 

A066A 

A0665 

0666 

0666 

0667 

0667 

0666 

0666 

0669 

0669 

0670 
0670 

R0671 


27.3755 

27.3756 

27.3757 
27,3760 
27  ,3761 

27.3762 

27.3763 
27,376A 

27.3765 

27.3766 
6373338  B-29 


NCTE  _ NOTE  _ ADJUSTED  MUE  FOP  NEAR  EARTH  TRAJ«, 
= 4e  902  778  E8  M CUBE  /C  S SO 

2CEC*  2o2lA22176  EA  6-18* 


37553  0 

37777  1 LIP(-22>  2CCT 

37700  1 
00000  1 
COIOC  0 

OAOOO  0 CP2(-3  » 


CP(-22>  20CT 
2DEC 


conoo  1 

C2000  0 0P2(-A) 


3.1A1592653  B-A 
37777  37700  1,0  -6(-22> 

00000  00100  B(-22> 


0672 

0673 
0673 
067A 
067A 
.0675 
0676 


REF 

REF 


17  LAST  12A1 


23,2337 
27 ,3767 

27.3770 

27.3771 

27.3772 
23,2523 
23  ,2513 


112C5  0 

37777  1 NEARONE  2DEC 


0 999999999 


TFFZEROS  EQUALS  HI62ER0S 
TFFl/A  EQUALS  HIDPl/A 


ROOOl 

R00O3 

R0005 

R0007 


assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

ACC  BLOCK  TWO  SELF-CHECK 

PROGRAM  OESCPIFTICN 
PROGRAM  NAME  - SELF-CHECK 
MOD  NO  - 1 

MCD  BY  - GALNTT 


17:53  OECo  19,1969  SKIPPER  old  PAGE  1276 

USER'S  PAGE  NOo  1 EO  S3 

DATE  20  DECEMBER  1967 

LOG  SECTION  AGC  BLOCK  TWO  SELF-CHECK 

ASSEMBLY  SUBROUTINE  UTILITYM  REV  25 


R0008  FUNCTIONAL  CESCRIPTICN 

R0009  PROGRAM  HAS  TWO  MAIN  PARTS®  THE  FIRST  IS  SELF-CHECK  WHICH  RUNS  AS  A 

ROOll  PART  OF  THE  BACK-UP  IDLE  LCOFo  THE  SECOND  IS  ShOW-BANKSUM  WHICH  RUNS  AS 
R0013  START  ING  VERBo 

ROOIA  THE  PURPOSE  CF  SELF-CHECK  IS  TO  CHECK  OUT  VARIOUS  PARTS  OF  THE  COMPUTER  AS  OUTLINED  BELOW  IN  THE  OPTIONS® 

R0016  THE  PURPOSE  OF  SHDW-BANKSLM  IS  TO  DISPLAY  THE  SUM  OF  EACH  BANK  , ONE  AT  A TIME® 

R0020  IN  ALL  THERE  ARE  7 POSSIBLE  OPTIONS  IN  THIS  BLOCK  II  VERSION  OF  SELF-CHECK®  MORE  DETAIL  DESCRIPTION  MAY  BE 

R0022  FCUNO  IN  E-2065  BLOCK  II  AGC  SELF-CHECK  AND  SHOW  BANKSUM  BY  EDWIN  0®  SMALLY  DECEMBER  1966,  AND  ADDENDA  2 AND  3® 
R0024  THE  DIFFERENT  OPTIONS  ARE  CCNTRQLLEO  BY  PUTTING  DIFFERENT  NUMBERS  IN  THE  SMOOE  REGISTER  (NOUN  271®  BELOW  IS 

R0026  A DESCRIPTION  OF  WHAT  PARTS  CF  THE  COMPUTER  THAT  ARE  CHECKED  BY  THE  OPTIONS,  AND  THE  CORRESPONDING  NUMBER,  IN 
.R0028  OCTAL,  TO  LOAD  INTC  SMODE® 

R0032  ♦-A  ERASABLE  MEMORY 

R0033  +-5  FIXED  MEMORY 

R0034  +-1,2,3,6,7,10  EVERYTHING  IN  CPTIONS  A AND  5® 

R0036  -0  SAME  AS  +-10  UNTIL  AN  ERROR  IS  DETECTED® 

R0037  +0  NC  CHECK,  PUTS  COMPUTER  INTO  THE  BACKUP  IDLE  LOOP® 


R00A2  CALLING  SEQUENCE 


ROOA3 

ROOAA 

R00A7 

R00A8 

ROOA9 


TO  CALL  SELF-CHECK  KEY  IN 

V 21  N 27  E OPTION  NUMBER  E 
TO  CALL  SHOW-BANKSUM  KEY  IN 

V 91  E DISPLAYS  FIRST  BANK 

V 33  E PROCEED,  DISPLAYS  NEXT  BANK 


R0050  EXIT  MCDES,  NORMAL  ANC  ALARM 


R0051 

R0053 

R005A 

R0057 

R0059 


SELF-CHECK  NORMALLY  CONTINUES  INDEFINITELY  UNLESS  THERE  IS  AN  ERROR  DETECTED®  IF  SO  + OPTION  NUMBERS  PUT 
COMPUTER  INTO  BACKUP  IDLE  LOOP,  - OPTION  NUMBERS  RESTART  THE  OPTION® 

THE  -0  OPTION  PRCCEECS  FROM  THE  LINE  FCLLCWING  THE  LINE  WHERE  THE  ERROR  WAS  DETECTED® 

SHOW-BANKSUM  PROCEEDS  UNTIL  A TERMINATE  IS  KEYED  IN  (V  34  E)®  THE  COMPUTER  IS  PUT  INTO  THE  BACKUP  IDLE  LOOP 


R0060  OLTPLT 
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L AGO  BLOCK  TK<0  SELF-CHECK 


USER'S  PAGE  NO.  2 EO  S3 


R0061 
R 0063 
R0065 
R0067 
R0069 
R0073 
R0075 


SELF-CHECK  UPON  DETECTING  AN  ERROR  LOADS  THE  SELF-CHECK 
TURNS  ON  THE  ALARM  LIGHTo  THE  OPERATOR  MAY  THEN  DISPLAY  THE  T 
INFORMATION  HE  MAY  KEY  IN  V G5  N C8  E,  THE  DSKY  DISPLAY  IN  R1 
IN  R2  THE  BBCCN  OF  SELF-CHECK,  AND  IN  R3  THE  TOTAL  NUMBER  OF 
INITIATED  FRESH  START  (SLAPII. 

SHOW-BANKSUM  STARTING  W ITH  .BANK  0 DISPLAYS  IN  R1  THE  BAN 
THE  BANK  NUMBER,  AND  IN  R3  THE  BUGGER  WORE. 


ALARM  CONSTANT  (011021  INTC  THE  FAILPEG  SET  AND 
HREE  FAILREGS  BY  KEYING  IN  V 05  N C9  Eo  FOR  FURTHER 
WILL  BE  ACORESS+1  OF  WHERE  THE  ERROR  WAS  DETECTED, 
ERRORS  DETECTED  BY  SELF-CHFCK  SINCE  THE  LAST  MAN 


K SLM  (A  ^--NUMBER  EQUAL  TC  THE  BANK  NUMBER),  IN  R2 


R0O76  ERASABLE  I N IT  I AL I Z AT  I CN  REQUIRED 


R0077  ACCOMPLISHED  EY  FRESH  START 

R0078  SMOOE  SET  TC  +0 


R0079  DEBRIS 


R0080 

R0082 

R00e4 


ALL  E 
EXCEPT  ION 
E MEMORY, 


XI 

IS 

IN 


TS  FROM  THE  CHECK  C 
A RESTART.  RESTART 
WHICH  CASE  PRCGPAM 


F ERASABLE  (6RASCHK)  RESTORE  ORIGINAL 
THAT  CCCURS  DURING  ERASCHK  RESTORES 
THEN  DOES  A FRESH  START  (OOFSTART), 


CONTEN 

ERASABL 


TS  TO  REGISTERS  UNDER  CHECK. 

£,  UNLESS  THERE  IS  EVIDENCE  TO  DOUBT 


0085 

0086  REF 

0087 


25,3757 
A3, 2C0C 
A3, 3257 


BANK  25 
SETLCC  SELFCHEC 
BANK 


0088  REF 
00P9  PEF 

0090  REF 

0091  REF 

0092  REF 

0093  REF 

0094  REF 

0095  REF 

0096  REF 

0097  REF 
0096  REF 

0099  REF 

0100  REF 

0101  REF 

0102  REF 

0103  REF 


1 

50  LAST  1093 

40  LAST  1093 
34  LAST  1093 
42  LAST  1093 
38  LAST  1008 
48  LAST  1050 

41  LAST  1090 
38  LAST  1259 
25  LAST  977 
37  LAST  1093 
27  LAST  1093 
31  LAST  1093 

42  LAST  1093 
71  LAST  1253 
42  LAST  1093 


4753 

4752 

4751 

4750 

4747 

4746 

4745 

4744 

4743 

4742 

4741 

4740 

4737 

4736 

4735 


S8IT1 

SBIT2 

S0IT3 

S0IT4 

S6IT5 

S8IT6 

SeiT7 

SBITB 

SeiT9 

seiTio 

SBITll 
SBIT12 
SHIT13 
SBIT14 
SB  1T15 


CCUNT* 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 


BITl 

6IT2 

BIT3 

BIT4 

BiT5 

PI  T6 

BIT7 

eiTR 

BITQ 

BITIO 

BITll 

BI  T12 

BIT13 

BI  T14 

BIT15 


U104 

0105 

0106 
0107 
OlOB 

0109 

0110 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


226 

51 

49 

35 

26 

20 

21 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


1147 

1277 

1277 

1255 
1259 
1028 

1256 


4755 
4753 
47  52 
6250 
4751 

4756 
6245 


S+ZERO  EQUALS  ZERO 

S+1  eOlALS  BITl 

S+2  EQUALS  BIT2 

S+3  EQUALS  THREE 

S+4  EQUALS  FOUR 

S+5  EQUALS  FIVE 

S*6  EQUALS  SI  X 


GAP: 

L 

OUl 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0120 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

A0137 

A0138 

A013O 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0146 

0149 

0150 

015? 

0152 

0153 

0154 

0155 

0156 

0157 

0150 
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AGC  BLCCK  TWO  SELF-CHECK 


USER*  S PAGE  NC.  3 


EC  S3 


REF  17  LAST  1093 
REF  16  LAST  1257 
REF  2 LAST  306 


REF  9 LAST  1257 


REF  20  LAST  1018 
REF  3 LAST  900 
REF  7 LAST  1093 


REF  2 LAST  235 
REF  2 LAST  1002 
REF  3 LAST  083 
REF  7 LAST  1097 
KEF  12  LAST  1C93 
REF  24  LAST  991 


4757 

4357 

4771 

^3»3257 

43.3260 
5007 

43.3261 

43.3262 
5012 
50  20 
4350 

43.3263 

43.3264 

43.3265 

43.3266 

43.3267 
43,3270 

5650 

6115 

7750 

7751 

7752 
4754 


C0C61  0 
01373  1 

C1461  0 
01773  0 


C0C60  1 
60017  1 
17777  0 
25252  0 
52400  1 
76777  1 


S+7  EQUALS 

S0BITS  EQUALS 
CNTRCON  = 
ERASCONl  OCTAL 
ERASC0N2  OCTAL 
ERASCaN6  = 
ERASC0N3  OCTAL 
ERASC0N4  OCTAL 
S106ITS  EQUALS 
SBNK03  EQUALS 
-MAXACRS  = 

SIXTY  OCTAL 
SUPRCON  OCTAL 
SiaeiTS  OCTAL 
CONC+Sl  OCTAL 
CQNC+S2  OCTAL 
ERASCCNS  OCTAL 
S-7 

S-4  EQUALS 

S-3  EQUALS 

S-2  EQUALS 

S-1  EQUALS 

S-ZERO  EQUALS 


SEVEN 

L0W8 

OCT50 

00061 

01373 

OCTIAOO 

01461 

01773 

LOWIO 

PRI06 

HIS 

00060 

60017 

17777 

25252 

52400 

76777 

0CT7777C 

NEG4 

NEG3 

NEG2 

NEGONE 

NEGO 


003  77 

USED  IN  CNTRCHK 
USFC  IN  ERASCHK 
LSED  IN  ERASCHK 
USED  IN  ERASCHK 
USED  IN  ERASCHK 
USED  IN  ERASCHK 
01777,  USED  IN  ERASCHK 
06000,  USED  IN  POPECHK 
FOP  ROPECHK 

USED  IN  RCPECHK 

USED  IN  CYCLSHFT 
LSED  IN  CYCLSHFT 


REF  46  LAST  1126 
REF  3 LAST  293 
REF  4 last  1110 


E3  ‘,1400 

43.3271 

43.3272 

IN  SELFRET  WHEN  GOING  FROM  SELFCHK  TO 
SHDWSUM  AND  PUT  IN  SKEEPl  WHEN  GOING 
FROM  SHOWSUM  TO  SELF-CHECKo 


SELFAORS  ACRES 


LSTl 

SKEEPl 

SELFCHK 


SELFCHK  RETURN  ADDRESSo  SHOULD  BE  PUT 


REF  6 
REF  1 

REF  3 
REF  3 

REF  2 
REF  7 

REF  329 
PEF  3 
REF  3 
REF  3 
REF  1 

REF  5 
REF  3 
PEF  6 


LAST  217 


LAST  217 
LAST  217 


LAST  29  2 
LAST  1270 

LAST  1206 
LAST  475 
LAST  307 
LAST  213 


LAST  307 
LAST  1278 
LAST  1270 


43,3274 
43  ,3275 

43.3276 

43.3277 
43  ,3300 

43.3301 

43.3302 

43.3303 

43.3304 
43  ,3305 

43.3306 

43.3307 
43  ,3310 

43.3311 

43.3312 

43.3313 

43.3314 

43.3315 


3 1360 
C 0006 

1 3304 
C 0006 

2 1376 
51'377 
52  CCl 

3 4755 
55'  360 
C 0004 
3 3002 
!5'357 
55*363 
25*365 
0 5571 

01102 
11*362 
? 4755 
55*362 


0 

1 

1 

1 

1 

0 

1 

1 

1 

0 

0 

0 

I 

0 

1 

0 

0 

1 

0 


PRERRORS 


ERRORS 


TCALARM2 


SIOLOOP 


CA  ERESTCRE 

EXTEND 

BZF  ERRORS 

EXTEND 

DCA  SKBEP5 

INDEX  SKEEP7 

OXCH  0000 

CA  S+ZERC 

TS  ERESTCRE 

I NHI NT 
CA  0 

TS  SFAIL 

TS  ALMCAOR 

INCR  FRCOUNT 

TC  ALARM2 

OCT  01J02 

CCS  SMCDE 

CA  S+ZERC 

TS  SMODE 


IS  IT  NECESSARY  TO  RESTORE  ERASABLE 
NO 


RESTORE  THE  TWO  ERASABLE  REGISTERS 


SAVE  0 FOR  FAILURE  LOCATION 

FOR  DISPLAY  WITH  BBANK  AND  ERCOUNT 

KEEP  TRACK  OF  NUMBER  OF  MA L FUNCT I ONSo 

SELF-CHECK  MALFUNCTION  INDICATOR 


GAP:  ASSEP6LE  REVISION  131  CF  AGC  PRCCRAM  LUMINARY  BY  NASA  Z021112-C<51 


L AGC  BLOCK  TWO  SELF-CHECK 


SELFCHK 

SFAIL 


0161 

0162 

0163 

016A 

0165 

0166 


REF  38).  LAST  1256 
REF  1 

REF  2 LAST  1275 
REF  382  LAST  1279 
REF  3 LAST  1279 
REF  230  LAST  1278 


^3r332C  1C  COO  0 -ICHK 

43.3321  1 3273  C 

43.3322  1 3273  0 

43.3323  1C  CCC  0 

43.3324  1 3273  0 

43.3325  C 0002  0 


CCS 
TCF 
TCF 
CCS 
TC  F 


A 

PREPRCRS 

PRERRGRS 

A 

PRERRORS 

0 


0167 

0168  REF 

0169  REF 

0170  REF 

0171  REF 

0172  REF 

0173  REF 

0174  REF 

0175  REF 


1 
7 
1 
1 

2 
2 
5 


LAST  1276 
LAST  1278 


LAST  1279 
LAST  109 
LAST  1279 


43  ,3327 

43. 3330 

43.3331 

43.3332 

43.3333 

43.3334 

43.3335 

43.3336 


C 0006  1 
23*371  0 
C 3357  0 
11*362  0 
0 3337  0 
C 3330  I 
0 3337  0 
25*366  0 
0 1371  0 


SMODECHK  EXTEND 
QXCH 
TC 
CCS 
TC 
TC 
TC 

I NCR 
TC 


SKEFPl 
CHECKNJ 
SMODE 
SCPT  ICNS 
SMCDECHK  +2 
SOPTIONS 
SCCUNT 
SKEEPl 


0176  REF 

0177 

0178 

0170  RpF 
0160  REF 
0181  REF 


1 


I 

3 

1 


LAST  1279 


43,3337  6 5650  1 

43.3340  C CCC6  I 

43.3341  6 3343  0 

43.3342  0 3314  1 

43.3343  25*366  0 

43.3344  6 4757  0 


SCPTIONS  AD  S-7 

EXTEND 
3ZMF  +2 

6NKCPTN  TC  SICLOOP 

INCR  SCCUNT 
AO  S + 7 


0182  REF  383 

0183  REF  1 

C184  REF  6 

0185  REF  7 

0186  REF  8 

0187  REF  !• 

0U8  REF  1 

0109  PEF  9 

Oioo  REF  10 
0191  REF  11 


LAST  1275  43 

43 

LAST  1275  43 

LAST  1279  43 

LAST  1279  43 

43 
43 

LAST  1279  43 

LAST  1279  43 

LAST  1279  43 


,3345  5C  CCC  1 
.2346  0 3347  1 

,3347  n 1371  0 
.3350  C 1371  0 
,3351  0 1371  0 

,3352  C 3364  0 
.3353  C 3545  0 
,3354  0 1371  0 

,3355  C 1371  0 
,3356  C 1371  C 


INDEX 

TC 

SCPTICM  TC 
SnPTIGN2  TC 
S0PTI0N3  TC 
SCPTI0N4  TC 
S0PTI0N5  TC 
SCPTiaN6  TC 
SCPTI0N7  TC 
SDPTONIO  TC 


A 

SOPTIONl 

SKEEPl 

SKEFPl 

SKEEPl 

ERASCHK 

RCPECHK 

SKEEPl 

SKEEPl 

SKEEPl 


0192 

0193  REF 

0194  REF 

0195  REF 


7 LAST  1110 
57  LAST  1151 
2 LAST  1104 


43,3357  C 0006  1 

43.3360  23*361  1 

43.3361  0 4635  0 

43.3362  03215  1 


CHECKNJ 


EXTEND 

QXCH  SELFRET 
TC  POSTJUMP 

CAOR  AOVAN 


0196  REF 


LAST  1279  43,3363  0 3326 


SELFCHK  TC 


SMODECHK 


R0197 

R019R 

R019O 

R0200 

R0201 


SKEEP7  HOLDS 
SKEeP6  hOLCS 
SKEEP5  FCLOS 
SKEEP4  HOLDS 
SKEEP3  HOLCS 


LOWEST  OF  TWC  ACCPESSES  BEING  CHECKED* 

B(  X+1  ), 
e (X  )«, 

CIEBANK)  DURING  ERASLCOP  ANC  CFECKNJ* 

LAST  ADDRESS  BEING  CHECKED  (HIGHEST  ADDRESS)* 


17:53  DEC*  19,1969  SKIPPER  ^101  PAGE  1279 


USER  'S  PAGE  NO^  4 £3  S4 

GO  TO  IDLE  LOOP 
CONTINUE  WITH  SFLF-CHECK 


CHECK  FOP  NEW  JOB 


TO  BACKUP  IDLE  LCCP 


CONTINUE  WITH  SELF-CHECK 


FOR  OPTIONS  BELOW  NINE* 

ILLEGAL  OPTION*  GO  TO  IDLE  LOOP* 
FCR  OPTIONS  BELCW  NINE* 


WAS  TC+TCF 
WAS  IN:nUTl 
WAS  COUNTCHK 


CONTINUE  WITH  SELF-CHECK 


SAVE  RETURN  ADDRESS  WHILE  TESTING  NEWJQ8 
TO  SEE  IF  ANY  JOBS  HAVE  BECOME  ACTIVE* 


CHARLEY,  CORE  IN  HERE 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-09) 


17:33  DECo  19,1969  SKIPPER  .101  PAGE  1280 


L AGC  BLCCK  TWO  SELF-CHECK 


USER*  S PAGE  NCo  5 E3  SA 


R0202 

R0204 

0205 

0206 
0207 
0206 

0209 

0210 
0211 
0212 
0213 


SKEEPZ  CONTROLS  CHECKING  OF  NCN-SV.  I TCH  A B LE  ERASABLE  MEMORY  WITH  BANK  NUMBERS  IN  EBo 


ERASChK  TAKES  APPROXMATELY  7 


REF 

REF 

REF 

RFF 

PEF 

REF 

REF 

REF 

REF 


292 


LAST 
LAST 
4 LAST  1278 
67  LAST  1259 

1 

^ LAST  1278 
1 

3 LAST  292 


^3  ,3364 

43.3365 

43.3366 

43.3367 

43.3370 

43.3371 

43.3372 

43.3373 
43  ,3374 


SECONDS 
3 4753  1 
55'372  1 
3 4755  1 
54  003  0 
3 3261  1 
55*377  1 
3 5012  1 
55*373  0 
0 3414  0 


ERASCHK  CA 


CE8ANK  CA 


S + 1 

SKE6P2 

S+ZERO 

EBANK 

ERASCCN3 

SKEEP7 

SIOBITS 

SKEEPS 

ERASL OOP 


01^61 

STARTING  ADDRESS 
01777 

LAST  ADDRESS  CHECKED 


0214 

0215 

0216 

0217 

0218 


REF  1 

REF  5 LAST  1280 

REF  2 LAST  1280 

REF  4 last  1280 

REF  2 LAST  1280 


43,3375  3 5CC7 

43,3376.  55*377 

43,3377  3 5012 

43.3400  55*373 

43 .3401  0 3414 


0 £1345676  CA 

1 TS 

1 CA 

0 TS 

0 TC 


ERASCCN6 

SKEEP7 

SIOBITS 

SKEEP3 

ERASLOOP 


01400 

STARTING  ADDRESS 
01777 

LAST  ADDRESS  CHECKED 


0219  PEF  2 

0220  PEF  6 

0221  REF  I 

0222  REF  5 

0223  REF  3 


LAST 

LAST 

LAST 

LAST 


1280'  43,3402  3 5007  0 2EBANK 

1280  43,3403  55*377  1 

43  ,3404  3 3262  I 

1280  43,3405  55*373  0 

1280  43,3406  0 3416  0 


CA 

TS 

CA 

TS 

TC 


ERASCCN6 

SKEEP7 

ERASC0N4 

SKEEP3 

ERASLOOP 


01400 

STARTING  ADDRESS 
01773 

LAST  ADDRESS  CHECKED 


0224 

0225 

0226 

0227 

0228 


REF 

REF 

REF 

REF 

REF 


4 LAST  1280 
1 

7 LAST  1280 
1 

6 LAST  1280 


43,3407  55*372  1 NCEBANK  TS 


43,3410  3 3257  1 CA 

43  ,3411  55*377  1 TS 

43.3412  3 3260  0 CA 

43.3413  55*373  0 TS 


SKEEP2 

ERASCONl 

SKEEP7 

ERASCCN2 

SKEEP3 


+0 

00061 

STARTING  ADDRESS 
01373 

LAST  ADDRESS  CHECKED 


0229 

0230  REF  68 

0231  REF  3 

0232 

0233  REF  8 

0234 

0235  REF  4 

0236  REF  9 

0237  REF  8 

0238  KEF  223 

0239  REF  226 

0240  REF  364 

0241 

0242  REF  10 

0243 

0244  ref  11 

0245 

0246  REF  ) 

0247  REF  9 

0248 


LAST  1280 
LAST  217 

LAST  1280 

LAST  1278 
LAST  1280 
LAST  1278 
LAST  1122 
LAST  1280 
LAST  1279 

LAST  1280 

LAST  1280 


LAST  1280 


43.3414 

43.3415 

43.3416 

43.3417 
43,3420 
43  ,3421 

43.3422 

43.3423 
43  ,3424 

43.3425 

43.3426 

43.3427 

43.3430 

43.3431 

43.3432 

43.3433 
43  ,3434 

43.3435 

43.3436 

43.3437 


C 0004  0 
3 0003  1 
55*374  1 
0 0006  1 

5 1277  0 
3 0001  0 
53*376  0 

3 1377  0 
55*360  1 
54  CCl  1 
24  001  0 
5C  000  1 
52  001  1 
51*377  0 

4 0001  1 
51*377  0 

6 0000  I 
C 3320  0 
3 136C  0 
C 0006  1 


ERASLOOP 


INHINT 

CA  EBANK 

TS  SKEEP4 

EXTEND 

NDX  SKEEP7 

CCA  0000 

OXCH  SKEEP5 

CA  SK6EP7 

TS  ERESTORE 

TS  L 

INCR  L 

NDX  A 

OXCH  nooo 

NDX  SKEEP7 

CS  0001 

NDX  SKEEP7 

AC  OnoO 

TC  -ICHK 

CA  FPESTORE 

EXTEND 


STORES  C(EBANK) 


STORES  C(X)  AND  C(X  + l»  IN  SKEEP6  AND  5o 
IF  RESTART,  RESTORE  C(X»  AND  C(X+1> 

PUTS  OWN  AODRFSS  IN  X AND  X +1 
CS  X+1 
AD  X 

HAS  ERASABLE  BFEN  PESTERED 


GAP 


ASSEMBLE  REVISION  131  CF  AGC  PPCCRAM  LUMINARY  BY  NASA  2021112-091 


17:53  OeCo  19fl96S  SKIPPER  101  PAGE  1281 


L AGC  BLOCK  TWO  SELF-CHECK 


USER'S  PAGF  NOo  6 E3  SA 


02A9 

0250 

0251 

0252 

0253 
025A 

0255 

0256 

0257 

0258 
0259' 
0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 
0269 
02  70 

0271 

0272 

0273 

0274 

0275 
02  76 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 
0287 
0266 
02  89 

0290 

0291 
R0292 
R0293 

0294 

0295 

0296 

0297 

0298 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF  1 
REF  72 
REF  1 
REF  3 
REF  73 
CMRCHK 
INCLUDED 
REF  1 
REF  7 
REF  I 
REF  385 


43  ,3440 
43,3441 
LAST  1280  43,3442 

43  ,34^3 
LAST  1281  43,3444 

43,?445 
LAST  1281  43,3446 

43,3447 
LAST  1281  43,3450 

43,3451 
LAST  1280  43,3452 

LAST  1280  43,3453 

43,3454 
LAST  1281  43,3455 

43  ,3456 
LAST  1280  43,3457 

LAST  1281  43,3460 

43,3461 
LAST  1280  43,3462 

LAST  1281  43,3463 

43,3464 
LAST  1279  43,3465 

LAST  1280  43  ,3466 

LAST  1280  43,3467 

LAST  128  1 43,3470 

LAST  1281  43,3471 

LAST  1280  43,3472 

43  ,3473 
43,3474 
LAST  1280  43,3475 

LAST  1280  43  ,3476 

43,3477 
LAST  1281  43,3500 

LAST  1281  43,3501 

43,3502 
LAST  1281  43  ,3503 

43.3504 

43.3505 
43  ,3506 

LAST  1261  43,3507 

43,3510 
LAST  128C  43,3511 

LAST  1281  43,3512 

PERFORMS  A CS  CF  ALL 

ARE  ALL  COUNTERS,  T6 
43,3513 
LAST  1281  43  ,3514 

43,3515 
LAST  1280  43,3516 

43,3517 


1 3464  0 
C 0006  1 

5 1377  0 
4 0001  1 
51'377  0 
52  001  1 
51'377  0 
4 COCO  C 
51*377  0 

6 0001  0 
C 3320  0 
3 1360  0 
C 0006  1 
1 3464  0 
0 0006  I 
3 1376  I 
51 *377  0 
52  001  1 
3 4755  1 
55*360  1 

C 0003  1 ELCOPFIN 

0 3357  0 

3 1374  0 
54  0C3  0 
25*377  0 

4 1377  1 
6 137?  1 
0 0006  1 

1 3476  0 

0 3414  0 
11*372  1 
C 3407  1 
25*372  0 
3 0003  1 
6 4743  0 
54  003  0 
6 3270  1 
0 0006  1 

1 3402  0 
1C  C03  0 
0 3375  0 
3 5C07  0 
54  C03  0 

REGISTERS  FROM  OCT™ 
-1,  CYCLE  AND  SHIFTi 

3 4771  1 CNTRCHK 
55*372  1 CNTRLOOP 
6 4750  1 

50  000  I 

4 0000  0 


BZF  ELOOPFIN 

EXTEND 

NDX  SKEEF7 

CCS  0000 

NDX  SKEEPT 

DXCH  0000 

NDX  SKEEP7 

CS  0000 

NOX  SKEEP7 

AO  0001 

TC  -ICHK 

CA  ERESTORE 

EXTEND 

BZF  ELOOPFIN 

EXTEND 

DCA  SKEEP5 

NOX  SKEEP7 

DXCH  0000 

CA  S+ZERC 

TS  ERESTOPE 

RELINT 

TC  CHECKNJ 

CA  SKEFP4 

TS  EBANK 

INCR  SKEEP7 

CS  SKEEP7 

AD  SKEEP3 

EXTEND 
BZF  +2 

TC  ERASLOOP 

CCS  SKEEP2 

TC  NCEBANK 

INCR  SKEEP2 

CA  EBANK 

AO  SBIT9 

TS  EBANK 

AC  ERASCCN5 

EXTEND 

BZF  2E6ANK 

CCS  EBANK 

TC  E134567B 

CA  FRASCCN'6 

TS  FBANK 

60  THROUGH  OCTc  10* 

AND  ALL  RUPT  REGISTERS 
CA  CNTRCCN 

TS  SKEEP2 

AU  S8IT4 

INDEX  A 

CS  0000 


YES,  EXIT  ERASLOOP* 

COMPLEMENT  OF  ADDRESS  OF  X AND  X+1 
PUT  COMPLEMENT  CF  ADDRESS  OF  X AND  X+1 
CS  X 
AD  X+1 

HAS  ERASABLE  BEEN  RESTCRED 
YES,  EXIT  ERASLCOPo 

PUT  8(XI  AND  BIX+n  BACK  INTO  X AND  X+1 

IF  RESTART,  DO  NOT  RESTORE  C(X),  C(X+1) 

CHECK  FCR  NEW  JCB 
REPLACES  B(EBANK) 


GO  TO  NEXT  ADDRESS  IN  SAME  BANK 

PUT  +1  IN  SKEEP2c 

76777,  CHECK  FOR  BANK  £2 

GO  TO  EBANKS  1,3, 4, 5, 6,  AND  7 
END  OF  ERASCHK 

000  50 
+ 10  OCTAL 


GAP 


ASSEMBLE  REVISION  131  GF  AGC  PRCGPAM  LUMINARY  BY  NASA  2021U2--O91 


17:53  DECo  19,1969  SKIPPER  101  PAGE  1282 


L AGC  BLOCK  TWO  SELF-CHECK 


USER'S  PAGE  N0«  7 E3  SA 


LAST  1281 


SKEEP2 

CNTRLOOP 


R0301 . 

0302 

0303 

0304 

0305 

0306 

0307 
0300 

0309 

0310 
0311- 

0312 

0313 

0314 
■ 0315 

0316 

0317 

0318 


CYCLSHFT 
RFF  1 
REF  38 
REF  21 
REF  20 
REF  12 
REF  39 
REF  22 
REF  21 
REF  13 
REF  1 
REF  3 
KEF  40 
REF  23 
REF  22 
REF  lA 
REF  3 
REF  4 


CHECKS  THE 

LAST  1085 
LAST  1075 
LAST  1075 
LAST  1259 
LAST  1282 
LAST  1282 
LAST  1282 
LAST  1282 

LAST  1281 
LAST  1282 
LAST  1282 
LAST  1282 
LAST  1282 
LAST  1280 
LAST  1282 


CYCLE  AND 

43.3522 

43.3523 

43.3524 

43.3525 

43. 3526 

43.3527 

43.3530 

43.3531 

43.3532 

43.3533 

43.3534 

43.3535 

43.3536 

43.3537 

43.3540 

43.3541 
43  ,3542 


SHIFT  REG 
3 3266  0 
54  C2C  1 
54  022  0 
54  021  0 
54  C23  I 
6 0'020  0 
6 0022  1 
6 0C21  1 
6 0023  0 
6 3267  1 
0 3320  0 
6 0020  0 
6 0C22  1 
6 0021  1 
6 0C23  0 
6 4753  1 
C 3320  0 


ISTERS 

CYCLSHFT 


CA 

TS 

TS 

TS 

TS 

AO 

AO 

AD 

AD 

AD 

TC 

AC 

AD 

AD 

AC 

AO 

TC 


CONC+Sl 

CYR 

CYL 

SR 

EOCP 

CYR 

CYL 

SR 

EOOP 

C0NC+S2 

- ICHK 

CYR 

CYL 

SR 

ECCP 

S+1 

-ICHK 


25252 

C(CYR)  = 12525 
CICYLI  = 52524 
CISRI  = 12525 
C ( ECOP ) = 00125 
37777  C(CYR) 

00-12524  CICYLI 

00-25251  CISRI  = 

00-25376  CIEOCP) 

CtC0NC+S2l  = 52^00 


= 45252 
: 25251 
05252 
= +0 


45252 

72523 

77775 

77775 

77776 


0319 

0320 
R0321 
R0322 
R032? 
R0324 
R0325 
R0326 
R0327 
RO320 
R0329 
R0330 


REF  4 LAST  1279  43,3543  25’367  1 INCR  SCCUNT  +1 

REF  3 LAST  1279  43,3544  0 3326  0 TC  SMODECHK 

SKEEPl  HOLDS  SLM 

SKEEP2  HOLDS  PRESENT  CONTENTS  GF  ADDRESS  IN  ROPECHK  AND  SHCWSUM  ROUTINES 
SKEEP2  HCLDS  BANK  NUMBER  IN  LCW  CRCER  BITS  DURING  SHOWSUM  DISPLAY 
SKEEPS  HOLDS  PRESENT  ADDRESS  ICCOOO  TO  01777  IN  COMMON  FUEC  BANKS! 

104000  TO  07777  IN  FXFX  BANKSI 
5KEEP3  HOLDS  BUGGER  WORD  DURING  SHCWSUM  DISPLAY 
SKEEP4  HOLDS  DANK  NUMBER  AND  SUPER  BANK  NUMBER 
SKEEP5  COUNTS  2 SUCCESSIVE  TC  SELF  WORDS 
SKEEP6  CCNTROLS  RCPECHK  OR  SHCWSUM  GPTICN 

SKEEP?  CONTROLS  WHEN  ROUNTINE  IS  IN  COMMON  FIXED  OR  FIXED  FIXED  BANKS 


0331  PEF 

03311  REF 

03312  REF 


1 

4 LAST  293 
6 LAST  1281 


43.3545 

43.3546 

43.3547 


3 4754  0 
55'376  0 
3 4755  1 


ROPECHK 

STSHOSUM 


CA 

TS 

CA 


S-ZERO 

SKEEP6 

S+Z6R0 


-0  FOR  ROPECHKo 
SHCULD  BE  ROPECHK 


0332  REF  5 

0333  REF  4 

0334  REF  19 

0335  REF  7 

0336  REF  12 

0337  REF  0 

0338-  REF  5 

0339  REF  6 

0340  REF  6 

0341  REF  225 

0342  REF  0 


LAST  1201  43 
LAST  1282  43 
LAST  1281  43 
LAST  1282  43 
LAST  1279  43 
LAST  1281  43 
LAST  1282  43 
LAST  128-1  43 
LAST  1282  43 
LAST  1280  43 
LAST  1278  43 


,3550  55*  374  1 

,3551  2 4753  I 

,3552  55'377  1 

,3553  3 4755  1 

,3554  55'371  1 

,3555  55'373  0 

,3556  2 4753  1 

,3557  55*375  0 

,3560  3 1374  0 

,3561  54  CCl  1 

,3562  7 4350  1 


COMMFX 


COMACRS 


TS  SKEEP4 

CA  S + 1 

TS  SKEEP7 

CA  S+ZERC 

TS  SKEEPl 

TS  SKEEP3 

CA  S+) 

TS  SKEEP5 

CA  SKEEP4 

TS  L 

MASK  H15 


BANK  NUMBER 


COUNTS  OCWN  2 TC  SELF  WCROS 
TO  SET  SUPFR  BANK 


gap;  assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C91 


L AGC  BLOCK  TUO  SELF-CHECK 


0343  PEF 
034^^  REF 

0345  REF 

0346  REF 

0347  REF 


9 LAST  1282 
2 LAST  44A 
1 
I 
1 


A3, 3563 
43,3564 
A3, 3565 
A3, 3566 
43  ,3567 


6 1373  1 
0 4651  1 
0 3610  0 
6 A741  1 
0 3621  1 


AD  SKEFP3 

TC  SUPDACAL 

TC  AOSUM 

AO  S8IT11 

TC  AORSCHK 


0348 

0349 

0350 

0351 
0352' 

0353 

0354 

0355 

0356 

0357 

0358 

0359 
03  60 

0361 

0362 

0363 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST  1283 
LAST  1282 


LAST  1282 
LAST  1283 


LAST  1283 
LAST  1283 


A3, 3570 
A3, 3571 
A3 ,3572 
A3, 3573 
A3, 3574 
A3, 3575 
A3, 3576 
43  ,3577 
A3  ,3600 
43, 3601 
43  ,3602 

43.3603 

43.3604 

43.3605 

43.3606 
43  ,3607 


A CCOC  0 FXFX 
55*377  I 
C 0006  1 
1 3576  I 
3 4740  0 
C 3577  1 
3 5020  0 
55*373  0 
3 4755  1 
55*371  1 
3 4753  1 
55*375  C 

51*373  1 FXADRS 
3 0000  1 
C 3610  0 
0 3621  1 


TS 

INDEX 


SB IT12 
+2 

SBNKOS 

SKEEP3 

S+ZERO 

SKEEPl 

S+1 

SKEEP5 

SKEEP3 

0000 

ADSUM 

AORSCHK 


0364  REF  9 

0365  REF  14 

0366  REF  15 

0367  REF  9 

0368  REF  16 

0369  REF  17 

0370  REF  10 

0371  REF  12 

0372  PEF  331 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


1282 

1283 

1283 

1283 

1283 

1283 

1283 

1283 

1279 


43.3611 

43.3612 

43.3613 

43.3614 

43.3615 

43.3616 
43  ,3617 
43,3620 


55*372 
6 1371 
55*371 

3 4755 
6 1371 
55*371 

4 1372 
6 1373 
C 0002 


1 

0 

1 

1 

0 

I 

1 

1 

0 


ACSLM 


TS 

AD 

TS 

CAF 

AO 

TS 

CS 

AD 

TC 


SKEEP2 

SKEEPl 

SKEEPl 

S+ZERC 

SKEEPl 

SKEEPl 

SKEEP2 

SKEEP3 


0373  REF  387 

0374  FEF  13 

0375  REF  21 

0376  REF  1 

0377 

0378  REF  1 

0379  REF  8 

0380 
03  81 

0382  REF  2 

0383  REF  226 

0384  REF  1 

0385  REF  2 

0386  REF  3 

038?  REF  9 

0388  REF  4 

0389  REF  1 


LAST  1283 
LAST  1283 
LAST  1278 


LAST  1283 


LAST  1283 
LAST  1282 

LAST  1283 
LAST  1287 
LAST  1283 
LAST  1283 


43.3621 

43.3622 

43. 3623 

43.3624 

43.3625 

43.3626 
43  ,3627 

43.3630 

43.3631 
43  ,3632 

43.3633 

43.3634 

43.3635 

43. 3636 
43  ,3637 

43.3640 

43.3641 


22  000  1 
3 1373  1 
7 5C12  C 
6 4350  0 

0 0006  I 

1 3715  0 
11*375  0 
0 3633  1 
0 3633  1 
0 3715  1 
1C  001  I 
0 3643  0 
G 3643  0 
C 3643  0 
11*375  0 
C 3644  1 
3 7752  0 


AORSCHK 


LXCH  A 

CA  SKEEP3 

MASK  LOWIO 

AO  -MAXAORS 

EXTEND 

6ZF  SCPTICN 

CCS  SKEEPS 

TC  +3 

TC  *2 

TC  SOPTION 

CCS  L 

TC  CONTINU 

TC  CONTINU 

TC  CQNTINL 

CCS  SKEEP5 

TC  CONTTNU  +1 

CA  S-1 


17:53  OECo  19,1960 


SKIPPER  «101  PAGE  1283 


USER  * S PAGE  NOe  8 E3  S4 

SUPER  DATA  CALL 
02000 


C^OOO, 

06000, 


STARTING 

STARTING 


ADDRESS  CF  BANK  02 
ADDRESS  OF  BANK  03 


COUNTS  DOWN  2 TC  SELF  WORDS 


RELATIVE  ADDRESS 

SUBTRACT  MAX  RELATIVE  ADDRESS  = 1777# 

CHFCKSUM  FINISHED  IF  LAST  ADDRESS# 

IS  CHECKSUM  FINISHED 

NO 

NC 

GO  TO  ROPECHK  SHOWSUM  OPTION 
-0  MEANS  A TC  SELF  WORD# 


gap;  assemble  revision  121  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L AGC  8LCCK  TUC  SELF-CHECK 


0390  REF  5 

0391  REF  7 

0392  REF  10 

03921  REF  5 

03922  REF  22 

03923  REF  5 

03924 

0393  REF  3 


LAST  1283 
LAST  1283 
LAST  1283 
LAST  1282 
LAST  1110 
LAST  719 

LAST  1281 


43»3t42  C 3644  1 TC  CONTINU 

43.3643  3 4753  1 CONTINL  CA  S+1 


43.3644  55'375  0 

42.3645  11'376  0 

43.3646  10  067  1 

43.3647  C 5122 

43,3650  C 3652  0 
43  ,3651  0 3357  0 


TS  SKEEPS 

CCS  SKEEP6 

CCS  NEWJOB 

TC  CHANGl 

TC  +2 

TC  CHFCKNJ 


0394  REF  14 

0395  REF  21 

0396  REF  1 

0397  REF  2 

0398  REF  1 

0399  REF  2 


LAST  1283 
LAST  1283 

LAST  1284 

LAST  1284 


43.3652 

43.3653 

43.3654 

43.3655 

43.3656 

43.3657 


C 3560  1 
C 3560  1 
C 3604  0 
C 3604  0 


ADRS+1 


INCR 

CCS 

TC 

TC 

TC 

TC 


SKEEPS 

SKEEP7 

CCMAORS 

COMAORS 

F XAORS 

FXACRS 


0400  REF  7 

0401  RE-F  1 

0402 

0403  REF  1 

0404  RFF  8 

0405  REF  2 

0406  REF  9 

0407  PEF  1 

040 B PEF  I 

0409  REF  10 

0410  REF  1 

0411  REF  9 

0412 

0413  REF  1 

0414  REF  1 

0415 

0416 

0417  REF  2 

0418  REF  1 

0419  REF  11 

0420  REF  3 

0421  REF  1 

0422  REF  12 

0423  REF  22 

0424  REF  1 

0425  REF  8 

0426  REF  1 

0427  REF  1 

0428  RFF  2 


LAST  12P2 

LAST  1284 
LAST  1283 
LAST  1284 

LAST  1284 
LAST  1282 


LAST  1284 

LAST  1284 
LAST  1284 

LAST  1284 
LAST  1284 

LAST  1284 

LAST  1284 


43.3660 

43.3661 

43.3662 

43.3663 

43.3664 

43.3665 

43.3666 

43.3667 
43,3670 
43  ,3671 

43.3672 

43.3673 

43.3674 

43.3675 
43  ,3676 
43,3677 
43,3700 
43  ,3701 

43.3702 

43.3703 
43  ,3704 
43,3705 
43  ,3706 
43,3707 
43,3710 
43  ,3711 

43.3712 

43.3713 

43.3714 


C 0006  1 
1 3152  0 
3 1374  n 

6 4741  1 
55*374  1 
C 3673  0 
3 4735  1 
27*374  1 
C 3707  1 

7 4350  1 
C 0006  1 
1 3705  1 
6 3265  0 
C 0006  1 
1 3702  0 
0 3707  1 
3 3263  C 
27*374  1 
0 3707  1 
6 3264  1 
27*374  I 
11*377  1 
0 3552  0 
3 4753  1 
C 357C  0 
3 4745  0 
C 3552  0 


NXTBNK 


177020 


CHKSUPR 


27T030 


NXTSUPR 

GCNXTBNK 


CS  SKEeP4 

AO  LST6NKCH 

EXTEND 

B2F  ENDSUMS 

CA  SKEEP4 

AO  SBITll 

TS  SKEEP4 

TC  CHKSUPR 

CA  SBIT15 

AOS  SKEEP4 

TC  GONXTBNK 

MASK  HI  5 

EXTEND 

BZF  NXTSUPR 

AC  S130ITS 

EXTEND 
6ZF  +2 

TC  G0NXT6NK 

CA  SIXTY 

ADS  SKEEP4 

TC  GONXTBNK 

AD  SUPRCCN 

ADS  SKE6P4 

CCS  SKEEP7 

TC  COMMFX 

CA  S+1 

TC  FXFX 

CA  SBIT7 

TC  CORMFX 


0429 

0430 

0431 

0432 


REF  13  LAST  1284 
RCF  10  LAST  1284 
REF  5 LAST  441 
REF  227  LAST  1283 


43,3715 
43  ,3716 
43,3717 
43,3720 


3 1374 
7 4350 
C 4331 
54  001 


SCPTION  CA 


SKEFP4 

HIS 

LEFTS 

L 
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USER  *S  PAGE  NCc  9 63  S4 

AC  IN  THE  BUGGER  WCPO 

MAKE  SURE  TWO  CCNSECUTIVE  TC  SELF  WORDS 

* +1,  SHOWSUM 

-0  IN  SKEEPB  FOR  RCPGCHK 


LAST  BANK  TO  BE  CHECKED 
END  OF  SUMMING  OF  BANKSo 

37  TO  40  INCPMTS  SKFEP4  BY  END  PNO  CARRY 

SET  FOR  BANK  20 


INCREMENT  SUPER  BANK 

BANK  SET  FOR  30 
FIRST  SUPER  BANK 

SET  BNK  30  ♦ INCR  SUPR  ENK  AND  CANCEL 
ERC  BIT  OF  THE  37  TC  40  ADVANCEo 

HAS  TO  BE  LARGER  THAN  NO  OF  FXSW  BANKSo 


= BANK  BITS 


BANK  NUMBER  BEFORE  SUPER  BANK 
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L AGC  BLCCK  iViC  SELF-ChECK 


0433 

0434 

0435 

0436 

0437 
043B 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

04461 

04462 

04463 

04464 

0447 
0440 
0449 


0450 

0451 


REF 

REF 

REF 

REF 

REF 

HEF. 

REF 


REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


14 

1 


I 

23 
22fi 

18 

24 
229 

6 


9 

IQ 

230 

20 

2 

5 

2 


LAST  1284 


LAST  1282 
LAST  1284 
LAST  1278 
LAST  1285 
LAST  1285 
LAST  1284 


LAST  1283 


LAST  1284 
LAST  1285 
LAST  1285 
LAST  1285 
LAST  1283 
LAST  1282 
LAST  292 


43*3722 
43*3723 
43, 3724 
43*3725 
43,3726 
43*  3727 
43*3730 

43.3731 

43.3732 

43.3733 

43.3734 

43.3735 

43.3736 

43.3737 
43,3740 
43*3741 
43*3742 
43  >3743 

43.3744 

43.3745 

43.3746 

43.3747 


C 0006  I 
1 3732  0 
54  021  0 
3 0001  0 
7 4757  1 
6 0021  1 
54  OCl  1 

3 1376  1 
C 0006  1 
1 3736  1 
0 3134  1 
11'371  1 
0 3741  0 
C 3742  0 
6 4753  1 
55'371  1 

4 0001  1 
e 1371  0 
6 775?  0 
C 3320  0 
C 3660  1 


SOPT 


ENKCHK 


CA  SKEEP4 

MASK  S8B1TS 

EXTEND 

B2F  SCPT 

TS  SR 

CA  L 

MASK  SEVEN 

AO  SR 

TS  L 

CA  SKEEP6 

EXTEND 

BZF  +2 

TC  SDISPLAY 

CCS  SKEEPl 

TC  +2 

TC  +2 

AO  S+1 

TS  SKEEPl 

CS  L 

AD  SKEEPl 

AO  S-1 

TC  -ICHK 

TC  NXTBNK 


0454 

0459 


REF  23  LAST  12P4 


0067 

43,3750 


EBANK=  NEWJOB 
66100  0 LSTBNKCH  B8C0N* 


17:53  DECo  19,1969  SKIPPER  101  PAGE  1285 
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= SUPER  BANK  BITS 

BEFORE  SUPER  BANK 
SUPER  BANK  NECESSARY 


BANK  NUMBER  WITF  SUPER  BANK 


* ON  -0  CONTINUE  W ITH 

# ON  +1  GO  TO  DI SPLAY 
FORCE  SUM  TO  ABSOLUTE 


ROPE  CHECK* 
OF  SUM* 
VALUE* 


= - BANK  NUMBER 


CHECK  SUM 


CONSTANT,  LAST  BANK, 


GAP: 

L 

POOOl 

m 

0004 

0005 

0006 

0007 

0006 

0)09 

0014 

0015 

0016 

0017 

ROOlft 

0020 

0021 

0022 

002? 

0024 

00  25 

0026 

0027 

002  8 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0036 

0037 

0036 

0039 

0040 

0041 

0042 

0043 
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PHASE  TABLE  MAINTENANCE  USER’S  PAGE  NCo  1 EO  S4 

SL8R0LTINE  TO  UPDATE  THE  PROGRAM  NUMBER  CISPLAY  CN  THE  CSKY* 


PEF  1 


REF  1 


5311 

4000 

5311 


COUNT* 

BLOCK 

SETLCC 

BANK 


f $/PHASE 
02 

FFTAGl 


REF  332  LAST  1283 
REF  333  LAST  1286 


5311  50  002  0 

5312  3 0000  1 

5313  24  002  0 


NERMCOEX 


INDEX 

CAF 

INCk 


Q 

0 

0 


UPDATE  MODREGo  ENTRY  FCR  MODE  IN  FIXED*, 


REF  19  LAST  1224 

REF  41  LAST  1206 
REF  16  LAST  1217 
REF  1 


5314  5£'C1C  0 

5315  3 5320  0 

5316  22  006  1 

5317  1 4640  0 

5320  20213  0 


NERMOOEA  TS 
MMOSPLAY  CAF 
PREBJUMP  LXCH 
TCF 
CADR 


MOCREG 
+ 3 

B6ANK 
BANKJUMF 
SE  TUPDSP 


ENTRY  FOR  MODE  IM  Ao 
DI SPLAY  MAJCP  MCDE* 
PUTS  BBANK  IN  L 
PUTS  0 INTO  A 


RETURN  TO  CALLER 


IF  MODE 


THAT  AT  CALLER  +U  CTHFRV<ISE  RETURN  TO  CALLER  +2» 


REF  334  LAST  1286 
REF  20  LAST  1286 

REF  3 LAST  1C99 
REF  5 LAST  889 


5321 

5322 

5323 

5324 

5325 

5326 


50  002 
4 0000 
6 ICIO 
C 0006 
I 6744 
1 6742 


CHECKMM 


INDEX  0 

CS  n 

AO  MOOREG 

EXTEND 
EZF  0+2 

TCF  0+1  NO  MATCH 


REF  4 LAST  1286  6745 


TCC 


0 + 2 


+ 1 


PEF 


14,3775 

10,2000 

10,2213 


BANK  14 
SETLOC  PHASETAB 
BANK 


REF  . 1 • 

REF  46 
REF  11 
RCF  26 
REF  21 
REF  1 
REF  1 
REF  47 

REF  23 


LAST  987 
LAST  1093 
LAST  1115 
LAST  1286 


LAST  1286 
LAST  1259 


10.2213  0 0004  0 

10.2214  52  C7l  0 

10.2215  3 4355  0 

10.2216  0 5072  I 
1010 

10.2217  03577  1 

10,2220  60102  1 
10,2221  52  C71  0 

n,2222  0 0003  1 

10,2223  52  CC6  0 


COUNT*  J$/PHASE 
S6TUP0SP  INHINT 

CXCH  RUPTREGI 
CAF  PRinSO 

TC  NOVAC 

EBANK=  MOCREG 
2CA0R  OSPMMJOB 

DXCH  RUPTREGI 
REL  INT 
DXCH  Z 


SAVE  CALLER-S  RETURN  2CA0R 

EITHER  A TASK  CP  JOB  CAN  COME  TO 
NEWMODEX 


RETURN 


REF 


LAST  461  40,3577 


OSPMMJOB  EQUALS  0SPMMJ8 


REF  2 LAST  1286 


5327 

4000 

5327 


BLOCK  02 
SETLCC  FFTAGl 
BANK 
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PHASE  TABLE  MAINTENANCE  USER’S  PAGE  NCe  2 EP  S4 

P00A4 

R0046 

PFASCHNG  IS  THE  MAIN  ^AY  CF  ^AKIN6  PHASE  CHANGES  FOR  RESTARTS#  THERE  ARE  THREE  FORMS  OF  PFASCHNG,  KNOWN  AS  TYPE 
A,  TYPE  6,  AN'O  TYPE  C,  THEY  ARE  ALL  CALLED  AS  FOLLOWS,  WHERE  OCT  XXXXX  CONTAINS  THE  PHASF  INFCRMATIGN, 

A0048 

A0049 

TC  PHASCHNG 

CCT  XXXXX 

R0050 

R0052 

TYPE  A IS  CCNCERNEC  WITH  FIXEC  PHASE  CHANGES,  THAT  IS,  PHASE  IN  FORM  AT  1 ON  THA  T IS  STORFO  PERMANENTLY#  THESE 
OPTIONS  ARE,  WHERE  G STANDS  FCR  A GROUP  AND  oX  FCR  THE  PHASE, 

R0053 

R0055 

R0057 

R0059 

R0060 

GoO  INACTIVE,  WILLNOT  PERMIT  A GROUP  G RESTART 

Gel  WILL  CAUSE  THE  LAST  DISPLAY  TO  PE  RFACTIVATED,  USED  MAINLY  IN  MANNED  FLIGHTS 

GeEVEN  A DOUBLE  TABLE  RESTART,  CAN  CAUSE  ANY  COMBINATION  OF  TWO  JOBS,  TASKS,  AND/OR 

•LCNGCALL  TO  BE  RESTARTED# 

GoOOD  NOT  #1  A SINGLE  TABLE  RESTART,  CAN  CAUSE  EITHER  A JOB,  TASK,  CR  LCNGCALL  RESTART 

R0062 

THIS  INFORMATION  IS  PUT  INTO  THE  OCTAL  WORD  AFTER  TC  PHASCHNG  AS  FOLLOWS 

R0063 

TLO  OOF  PPP  FFF  GGG  , 

R0065 

R0067 

R0069 

R0071 

WHERE  EACH  LETTER  OR  NUMBER  STANDS  FOR  A BIT#  THE  6:S  STAND  FCR  THE  GROUP,  OCTAL  1-7,  THE  P;S  FOR  THE  PHASE, 
OCTAL  0 - 127#  n:S  MUST  BE  0#  IF  ONE  WISHES  TO  HAVE  THE  T0ASE  OF  GROUP  G TO  BE  SET  AT  THIS  TIME, 

T IS  SET  TO  1,  OTHERWISE  IT  IS  SET  TO  0*  SIMIARLY  IF  ONE  WISHES  TO  SET  LONGBASE,  THEN  L IS  SET  TO  1,  OTHERWISE 

IT  IS  SET  TO  0#  SOME  EXAMPLES, 

A0072 

A0C73 

TC  PHASCHNG  THIS  WILL  CAUSE  GRCUP  3 TOBE  SET  TO  P, 

OCT  00003  MAKING  GROUP  3 INACTIVE 

A007«^ 

ACC75 

TC  PHASCHNG  IF  A RESTART  OCCURS  THIS  WOULD  CAUSE 

CCT  00012  GROUP  2 TO  RESTART  THE  LAST  DISPLAY 

A0076 

A0077 

A0078 

A0079 

Aooeo 

A0061 

A0082 

A0063 

A0084 

A0085 

Aooee 

TC  PHASCHNG  THIS  SETS  THE  TPASE  OF  GROUP  4 AND  IN 

OCT  40064  CASE  OF  A RFSTART  WCULD  START  UP  THE  TWO 

THINGS  LOCATED  IN  THE  DOUBLE  4#  6 RESTART 
LOCATION 

TC  PHASCHNG  THIS  SETS  LONGBASE  AND  UPON  A RESTART 

OCT  20135  CAUSES  5©13  TO  BE  RESTARTED  (SINCE 

LONGBASE  WAS  SET  THIS  SINGLE  ENTRY 

SHOULD  BE  A LONGCALL ) 

TC  PHASCHNG  SINCE  BOTH  TBASFA  AND  LONGBASE  ARE  SET, 

OCT  60124  4,  12  SHOULD  CONTAIN  BCTH  A TASK  AND  A 

LONGCALL  TO  BE  RESTARTED 

R0087 

R0089 

TYPE  C PHASCHNG  CONTAINS  THE  VARIABLE  TYPE  OF  PHASCHNG  INFORMATION#  INSTEAD  OF  THE  INFCRMATIGN  BEING  IN  A 
PERMANENT  FORM,  ONE  STORES  THE  DESIRED  RESTART  INFORMATION  IN  A VAR1A8KE  LOCATION#  THE  BITS  ARE  AS  FOLLOWS, 

R0091 

TLO  lAO  XXX  CJW  GGG 

R0092 

ROO94 

R0096 

WHERE  EACH  LETTER  CR  NUMBER  STANDS  FOR  A BIT#  THE  G:S  STAND  FCR  THF  GROUP,  OCTAL  1-7#  IF  THE  RESTART  IS  TO 

BE  BY  WAITLIST,  W IS  SET  TO  1,  IF  IT  IS  A JOB,  J IS  SET  TO  1,  IF  IT  IS  A LONGCALL,  C IS  SET  TO  1,  ONLY  ONE  OF 
THESE  THREE  BIT  S MAY  BE  SET#  X:S  ARE  IGNORED  1 MUST  BE  1,  AND  0 MUST  BE  0#  AGAIN  T STANDS  FOR  THE  TBASE, 
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L PHASE  table  maintenance  USER’S  PAGE  NCc  ? EC  SA 

ROO90  AND  L FOR  LONGBASE*  THE  BITS  A AND  D ARE  CCNCERNEO  WITH  THE  VARIABLE  INFORMATlONo  IF  D IS  SET  TO  1,  A PRIORITY 
ROlOO  OR  DELTA  TIME  WILL  BE  READ  FROM  THE  NEXT  LOCATION  AFTER  THE  OCTAL  INFORMATICN,  IF  THIS  IS  TC  EE  INDIRECT,  THAT 
R0102  IS,  THE  NAME  OF  A LOCATION  CCMT  + IMNG  THE  INFORMATION  (DELTA  TIME  ONLY),  THEN  THIS  IS  GIVEN  AS  THE  -GENADR  OF 

RUlOA  THAT  LOCATION  WHICH  CONTAINS  THE  DELTA  TIMEo  IF  THE  OLD  PRIORITY  OR  DELTA  TIME  IS  TO  BE  USED,  THAT  WHICH  IS 

R0106  ALREADY  IN  THE  VARIABLE  STORAGE,  THEN  C IS  SET  TO  C*  NEXT  THE  A BIT  IS  USED*  IF  IT  IS  SFT  TO  0,  THE  ADDRESS 

ROlOe  THAT  WOULD  BE  RESTARTED  DURING  A RESTART  IS  THE  NEXT  LOCATION  AFTER  THE  PHASE  INFORMATION,  THAT  IS,  EITHER 

ROm  (TC  PHASCFNG)  +2  OR  +3,  DEPENDING  ON  WHETHER  D HAD  BEEN  SET  CR  NOT*  IF  A IS  SET  TO  1,  THEN  THE  ADDRESS  THAT 

R0112  WOULD  BE  RESTARTED  IS  THE  2CADR  THAT  IS  READ  FROM  THE  NEXT  TWO  LOCATIONS*  EXAMPLES, 


AOllA 
AOll  5 
A0116 
A01J7 


AC  TC  PHASCt-NG 

AD+1  OCT  05023 

AC+2  nCT  23000 

AD  + 3 


THIS  WOULD  CAUSE  LOCATION  AD  +3  TO  BE 
RESTARTED  BY  GROUP  THREE  WITHA  PRIORITY 
OF  23*  NOTE  UPON  RETURNING  IT  WOULD 
ALSO  GO  TO  AO+3 


A0118 

A0119 

A0120 

A0121 

A0122 

A0123 

A012A 


AD  + 1 
AO+2 
AC+3 
AO  + A 
AC  + 5 


TC  PHASCHNG 

OCT  274A1 

-GENADR  DELTIME 
2CADR  CALLCALL 


GROUP  1 WOULD  CAUSE  CAUSE  CALLCALL  TO 
BF  STARTED  AS  A LONGCALL  FROM  THE  TIME 
STORED  IN  LCNGPASe  (LCNGBASE  WAS  SET)  BY 
A DELTATIME  STORED  IN  DELTIME*  THE 
BBCON  OF  THE  2CA0R  SHOULD  CONTAIN  THE  E 
BANK  OF  OELTIMEo  P)-ASCHNG  RETURNS  TO 
LOCATION  A0+? 


R012; 

012 


NOTE  THAT 
NEGATIVE, 


IF  A VARIABLE  PRIORITY  IS  GIVEN  FOR  A JOB, 
tS  A FINCVAC  IF  THE  PRIORITY  IS  POSITIVE* 


THE  JOB  WILL  BE  RESTARTED  AS 


NOVAC  IF  THE  PRIORITY  IS 


R012e  TYPE  B PHASCHNG  IS  A COMBINATICN  CF  VARIABLE  AND  FIXED  PHASE  CFANGESu  IT  WILL  START  UP  A JOB  AS  INDICATED 
R0130  BELOW  AND  ALSO  START  UP  ONE  FIXED  RESTART,  THAT  IS  EITHER  AN  G*  1 OR  A G*ODO  OR  THE  FIRST  ENTRY  OF  G»EV£N 
R0132  DOUBLE  ENTRY*  THE  BIT  INFCRMATICN  IS  AS  FOLLOWS, 


R0133 


TLl  DAP  PPP  PPP  GGG 


ROIB-V  WHERE  EACH  LETTER  CR  NUMBER  STANDS  FOR  A BIT*  THE  G:S  STAND  FOR  THE  GROUP,  OCTAL  1-7*  THE  P:S  FCR  THE  FIXED 
R0156  PHASE  INFORMATION,  OCTAL  0 - 127*  1 MUST  BE  1*  AND  AGAIN  T STANDS  FOR  THE  TBASE  AND  L FOR  LONGBASEo  U THIS 

R0138  TIME  STANDS  ONLY  FOR  PRIORITY  SINCE  THIS  WILL  BE  CONSIDERED  A JOB,  AND  IT  MUST  BE  GIVEN  DIRECTLY  IF  GIVEN* 

R0140  AGAIN  A STANDS  FOR  THE  ADDRESS  CF  THE  LCCATION  TO  EE  RESTARTED,  1 IF  THE  2CA0R  IS  GIVEN  , OR  0 IF  IT  IS  TO  BE 
R0142  Tl-E  NEXT-  LOCATION*  ( THE  RETURN  LCCATION  OF  PHASCHNG)  EXAMPLES, 


A01A3 

AOIAA 

A014.5 

A0146 

A01A7 

A01A8 


AO  TC  PHASCHNG 

AC+l  OCT  56043 

AD+2  OCT  31000 

AD+3  2CA0R  AJ0BAJ08 

A0+* 

AD  + 5 


TBASE  IS  SET  AND  ARESTART  CAUSE  GROUP  3 
TO  START  THE  JOB  AJOBAJOB  WITH  PRIORITY 
31  AND  THE  FIRST  ENTRY  OF  3o4SP0T(WE  CAN 
ASSUME  IT  IS  A TASK  SINCE  WE  SET  T6ASE3) 
UPON  RETURN  FROM  PHASCHNG  CONTROL  WOULD 
GC  TO  AD+5 


A0149 

A0150 

A015] 

A0152 


AC  TC  PHASCHNG 

AD  + l OCT  10015 

AC  + 2 


UPON  A RESTART  THE  LAST  DISPLAY  WOULD  BE 
RESTARTED  AND  A JOB  WITH  THE  PREVKPUSLY 
STORED  PRIORITY  WOULD  BE  BEGUN  AT  AO+2 
BY  MEANS  OF  GROUP  5 


GAP  : 

L 

R0153 
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USER'S  PAGE  NOc  * EC  S4 

NEGATIVE  PRIORITY  CAUSES  A NOVAC  CALL,  POSITIVE  A FINOVACo 


R0155 

R0156 

R0157 

R0158 


SUMMARY 
TYPE  A 
TYPE  B 
TYPE  C 


OF  BITS 


TLO  COP 
TLl  DAP 
TLO  lAO 


PPP  PPP  GGG 
PFF  FFF  GGG 
Xxx  CJK  GGG 
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P0159  2PHSChNG  IS  USED  WHEN  ONE  WISHES  TO  START  UP  A GROUP  OR  CHANGE  A GRCUP  WHILE  UNDER  THE  CONTPCL  CF  A DIFFERENT 
R0161  GROUPo  FOR  EXAMPLE,  CHANGE  THE  PHASE  CF  GROUP  3 WHILE  THE  PORTION  OF  THE  PROGRAM  IS  UNDER  GROUP  5..  ALL  2PHSCHNG 
R0163  CALLS  ARE  MADE  IN  THE  FOLLOWING  MANNER, 


A0164 

A0165 

A0166 


TC  2PHSCHNG 

CCT  XXKXX 

CCT  YYYYY 


R0167 

R0169 

R0171 


WHERE  CCT  XXXXX  MUST  BE  OF  TYPE  A AND  CCT  YYYYY  MAY  BE  OF  EITHER  TYPF  A OR  TYPE  B OP  TYPFCo  THERF  IS  ONE 

DIFFERENCE  NOTE-  IF  LONGBASE  IS  TO  EE  SET  THIS  INFORMATION  IS  GIVEN  IN  THE  OCT  YYYYY  INFORMATION,  IT  WILL 

BE  CISRE6ARDEC  IF  GIVEN  WITH  THE  CCT  XXXXX  INFORMATION#  A COUPLE  CF  EXAMPLES  MAY  HELP, 


A0173 

A0174 

A0175 

A0176 

A0177 


AO  + 1 
AC  + 2 
AU+3 
AD  + 4 


TC  2PHSCHNG 

OCT  40083 
OCT  05025 
OCT  3 8000 


SFT  TBASE3  AND  IF  A RESTART  OCCURS  START 
THE  TWO  ENTRIES  IN  3#8  TABLE  LOCATION 
THIS  IS  OF  TYPE  C,  SET  THE  JOB  TO  BE 
TO  BE  LOCATION  AO  + 4,  WITH  A PRIORITY  18, 
FCP  GROUP  5 PHASE  INFORMATION 


0178 

0170 

0180 

0181 

0102 

0183 


REF  1 

REF  335  LAST  1286 

REF  336  LAST  1290 
REF  1 


5327  C 0004  0 

5330  50  002  0 

5331  3 0000  1 

5132  24  CC2  0 

5333  54  072  0 


COUNT* 
2PHSCHNG  INHINT 
NDX 
CA 

I NCR 
TS 


$$/PHASE 


THE  ENTRY  FOR  A DOUBLE  PHASE  CHANGE 


0184  REF 
0105 

0186  REF 


5334  7 4757 

5335  6 0000 

5336  54  071 


1 

1 

0 


MASK  0CT7 
OOUBLF 

TS  TBMP62 


0187  REF  2 LAST  1290 

0188  REF  1 

0189 

0190  REF  32  LAST  1277 

0191  REF  3 -LAST  1290 


5337  3 CC72  1 

5340  7 5030  0 

5341  C 0006  I 

5342  7 474C  1 

5343  56  072  1 


CA  TEMPP2 

MASK  0CT1777C 

EXTEND 

MP  eiTi2 

XCH  TEMPP2 


NEFD  CNLY  1770,  BUT  WHY  GFT  A NEW  CONST# 


0192  REF  43  LAST  1277 

0193  REF  1 


5344  7 4735  C 

5345  54  066  0 


MASK  BIT15 

TS  TEMPSW2  INDICATES  WHETHER  TO  SET  TBASE  OR  NOT 


01932  REF  337 
01934 

01936  REF  338 
01936  REF  1 


LAST  1290 
LAST  1290 


5346  50  002  0 

5347  3 OCOC  I 

5350  24  002  0 

5351  54  065  0 


INDEX 

CA 

INCR 

TS 


0194  REF 


5352  1 5363  0 


TCF  PHASJUMF 


0195 

0196 

0197 

0198 

0199 


PEF 

REF 


339 

340 


LAST  1290 
LAST  1290 


5353  0 0004  0 

5154  50  CC2  0 

5355  3 0000  1 

5356  24  002  0 

5357  C 0004  0 


PHASCHNG  INHINT 

INDEX  Q 
CA  0 

INCR  0 
PHSCHNGA  INHINT 


NORMAL  PHASCHNG  ENTRY  PCINT# 


FIRST  OCTAL  PARAMETER  IN  A# 


GAP;  ASSEMBLE  REVISION  131  OF  AGC  PRCGRAI-  LUMINARY  BY  NASA  20211J2-091 
L PHASE  TABLE  MAINTENANCE 


0200  REF 

0201  REF 
02015  REF 

0202 

0203  REF 

0204 


LAST  1290 


5360 

5361 

5362 

5363 

5364 

5365 


54  065  0 
3 4753  1 
54  066  0 
C 0006  1 
3 5367  0 
52  006  0 


PHASJUMP  EXTEND 
DCA 


TEMPSW 

ONE 

TEMPSW2 

A0PPrHN2 


0205  REF  47  LAST  1278 

0206  REF  1 

C206  REF  1 


E3,14C0 

5366  02224  1 

5367  20103  1 


EeANK=  LSTl 

ADRPCHN2  2CA0R  PHSCHNG2 


0207 

0208 
0209 


REF  I 

REF  42  LAST  1286 
REF  2 LAST  1291 


5370  22  073  C ONEGRTUO  LXCH  TEMPBBCN 


5371  22  006  1 

5372  22  C73  0 


LXCH  BBANK 
LXCH  TEMPBBCN 


0210  REF  . 1 

0211  REF  388  LAST  1203 

0212  REF  1 


5373  7 5024  0 

5374  10  000  0 

5375  1 7753  C 


MASK  0CT14n00 

CCS  A 

TCF  CHECKB 


0213  REF  1 

0214  REF  42  LAST  1277 

0215  REF  389  LAST  1291 

0216  REF  I 


5376  3 0062  0 

5377  7 4745  I 
54CP  1C  COO  0 
5401  1 5423  0 


CA  TEMPP 

MASK  BIT7 

CCS  A 

TCF  GETPRIO 


0217  REF  1 

0210  REF  1 

0219  REF  1 


5402  50  061  0 

■5403  3 1051  1 

5404  54  070  1 


CLCPRIC 


TEMPG 

PHSPRDTl 

TEMPPR 


0220  REF  2 LAST  1291 

0221  REF  39  LAST  1277 

0222  REF  390  LAST  1291 

0223  REF  1 


5405  3 0C62  C 

5406  7 4744  0 

5407  1C  000  0 

5410  1 5427  1 


COM 


CA  TEMPP 

MASK  eiT8 
CCS  A 

TCF  GETNEUNM 


0224  REF  341 

0225  REF  1 

0226  REF  1 

0227 

0228  REF  24 

0229  REF  1 


LAST  1290 

LAST  1123 


5411  3 0002  0 

5412  54  C63  C 

5413  3 0006  1 

5414  0 0006  ] 

5415  C4  007  1 

5416  54  064  1 


CA  Q 

TS  TEMPNM 

CA  BB 

EXTEND 

ROR  SUPERBNK 

TS  TFMPBB 


0230  REF  1 

0231  REF  3 LAST  1291 

0232 


5417  3 5422  0 TCCCN2  CA  C0N2ACR 


5420  22  073  0 

5421  52  006  0 


LXCH  TEMPBBCN 
CTCB 


0233  REF  1 


5422  C23)2  0 CCN2ACR  GENADR  C0N2 


0234  ref  342  LAST  1291 

0235 

0236  REF  343  LAST  1291 


5423  50  0C2  0 

5424  3 0000  1 

5425  24  002  0 


GETPR  IQ 


NOX 

CA 

I NCR 


Q 

0 

Q 


17:53  DECo  19,1969 


SKIPPER  clOl  PAGE  1291 


USER'  S PAGE  NC*  6 


EO  S4 


CFF  TO  SNITCHED  BANK 


SEE  WHAT  KIND  OF  PHASE  CHANGE  IT  IS 
IT  IS  OF  TYPE  : P: 


SHALL  WE  use  THE  CLD  PRIORITY 
NO  GET  A NFW  PRIORITY  (CR  DELTA  TI 


USE  THE  OLD  PRIORITY  (OR  DELTA  T) 


SEE  IF  A 2CA0R  IS  GIVEN 


PICK  UP  USERS  SUPFRBANK 


BACK  TO  SWITCHED  BANK 


DONtT  CARE  IF  DIRECT  OR  INDIRECT 
LEAVE  THAT  DECISION  TO  RESTARTS 
OBTAIN  RETURN  ADDRESS 


GAP: 

L 

C237 

023P 

0239 

02^0 

02^1 

0242 

0243 

. 0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

02  57 

0258 

0259 

C260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0266 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 


ASSEMBLE  REVISION  131  OF  AGO  PROGRAM  LUMINARY  0Y  NASA  2021112-091 


17:53  DEC*  19,1969  SKIPPER  *101  PAGE  1292 


PHASE  TAELE  MAI^TE^A^C£ 


USER' S PAGF  NO*  7 EO  S4 


REF 


5426  1 5404  0 


TCF  COM  -1 


REF  344  LAST  1291 

REF  2 LAST  1291 
PEF  7B  LAST  1125 
REF  345  LAST  1292 


5427  C 0C06  1 

5430  5 0002  0 

5431  3 0001  0 

5432  52  064  1 

5433  3 4752  0 

5434  26  CC2  1 


GETNEWNM  EXTEND 
INDEX 
OCA 
DXCH 
CA 
AOS 


OBTAIN  RETURN  ACORESS 


REF 


5435  1 5417  1 TCF  T0C0N2 


REF 

PEF 

REF 

RCF 

REF 

flEF 

REF 

REF 


2 LAST  507 
40  LAST  1253 
20  LAST  1253 
25  LAST  897 

11  LAST  896 
50  LAST  900 

7 LAST  399 
48  LAST  1286 
9 LAST  812 

12  LAST  994 


5024 

0061 

0062 

0063 

0064 

0065 

0066 

0070 

0071 
0C72 


CCT14000  ECUALS 
TEMPO  EQUALS 
TEMPP  EQUALS 
TEMPNM  EQUALS 
TEMP8B  EQUALS 
TEMPSW  EQUALS 
TEMPSW2  EQUALS 
TEMPPR  EQUALS 
TEMPG2  EQUALS 
TEMPP2  EQUALS 


PRIC14 
I TEMPI 
ITEMP2 
ITEMP3 
I TEMP4 
IT  FMP5 
I TEMP6 
RUPTREGl 
RUPTReG2 
RUPTREG3 


REF  5 LAST  994  0073 

FEF  43  LAST  1291  0006 


TEMPBBCN  EQUALS  RUPTRFG4 
BB  EQUALS  BBANK 


REF 


14,3775 
LAST  1286  ,10,2000 


BANK  14 
SETLCC  PHASETAB 


10,2224 


BANK 


REF 

REF 

REF 

REF 

REF 


REF 


1 

2 

4 

3 

2 

2 


LAST  1 
LAST 
LAST 
LAST 

LAST 


E3,i436 
286  TO  1290: 
1291  10,2224 

1291  10,2225 

1290  10,2226 
10,2227 

1291  10,2230 


9 9* 

22  073  0 PHSCHNG2 
3 0065  I 
1 4757  I 
6 0000  1 
54  061  1 


EBANK=  PHSNAMEl 
COUNT*  $$/PHASE 
LXCH  TEMPBBCN 
CA  TEMPSW 

MASK  0CT7 
DOUBLE 

TS  TEMPO 


10,2221 

10.2232 

10.2233 

10.2234 

10.2235 


3 CC65  1 
7 5030  0 
0 CCC6  1 
7 4740  1 
54  062  1 


CA  TEMPSW 

MASK  aCT1777C 
EXTEND 

MP  eiTi2 

TS  TEMPP 


REF  5 LAST  1292 

REF  1 

REF  6 LAST  1202 

RLF  2 LAST  1291 

REF  391  LAST  1291 


10,2226  3 CC65  1 

10,2237  7 4101  I 

10.2240  £6  065  1 

10.2241  7 5C24  C 

10.2242  10  000  0 


CA  TEMPSW 

MASK  OCT60000 
XCh  TEMPSW 
MASK  0CT14000 
CCS  A 


gap:  ASSEf'BlE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L PHASE  TABLE  MAINTENANCE 


0277  REF  1 


10,22A3  1 5370  1 


TCF  ONECRThC 


0278  REF  A 

0279  REF  3 

0280  REF  2 


LAST  1292  10 
LAST  1292  10 
LAST  219  10 


,224^  3 0062  0 

,2245  50  C61  0 

,2246  54  750  1 


CA  TEMPP 

NDX  TEMPG 

TS  PHASFl  -2 


0281  REF  3 LAST  1291 

0282  REF  1 


10,2247  10  C66  0 BELOhl  CCS 

10,2250  1 22e^  1 TCF 


TEMPSW2 

eEL0W2 


0283 

0284  REF 

0285  REF 

0286  REF 

0287  REF 


4 LAST  1290 

5 LAST  1293 
2 LAST  1290 
5 LAST  860 


10.2251  I 2252  1 

10.2252  4 0C72  0 

10.2253  22  r72  1 

10.2254  50  071  1 

10.2255  52  750  I 


LXCH 

NOX 

OXCH 


+ 1 

T EMPP2 
TEMPP2 
TEMPG2 
-PHASEl 


0280  REF  4 LAST  1293 

0289 

0290  REF  2 LAST  1293 


10,2296  10  C66  0 
10,2257  12  260  0 
10,2260  1 2264  1 


CCS  TEMPSN2 

NOOP 

TCF  BELCW2 


0291 

0292 

0293 


REF  17  LAST  991 
REF  3 LAST  1293 
REF  2 LAST  730 


10.2261  4 0025  1 

10.2262  50  071  1 

10.2263  55*050  1 


CS  TlMEl 

NDX  TEMPG2 

TS  TBASEl  -2 


0294  REF  7 LAST  1292 

0295  RFF  1 

02  96  REF  1 


10.2264  10  065 

10.2265  1 2300 

10.2266  1 2303 


0 8EL0W2  CCS 

1 TCF 

1 TCF 


TEMPSW 
6ELCW3 
BE  L0W4 


C297 

0298 

0299 


REF  18  LAST  1293 
REF  4 last  1293 
REF  3 LAST  1293 


11,2267  4 0025  1 

10.2270  5C  C61  0 

10.2271  55*050  1 


CS  TIMEl 

NOX  TEMPG 

TS  TBASEl  -2 


0300  REF  8 LAST  1293 

0301  REF  1 

0302  REF  392  LAST  1292 

0303 

0304 

0305  REF  2 LAST  1293 


10.2272 

10.2273 

10.2274 

10.2275 

10.2276 

10.2277 


10  000  0 
12  276  1 
17777  0 
1 2303  1 


CA 

AO 

CCS 

NOOP 

BIT14C0M  OCT 
TCF 


17777 

BEL0W4 


0306 

0307  REF  31  LAST  1217 

0308  REF  1 


10.2300  0 0006  1 BEL0W3 

10.2301  3 0025  0 

10.2302  53*151  1 


EXTEND 

OCA  TIME2 
OXCH  LONGBASE 


0309  REF 

0310  REF 

0311  REF 


5 LAST  1293 

5 LAST  1293 

6 LAST  1293 


10.2303  4 00e2  1 8EL0W4 

10.2304  50  061  0 

10.2305  54  747  1 


CS  TEMPP 

NDX  TEMPG 

TS  -PHASEl  -I 


0312  REF  346  LAST  1292 

0313  REF  5 LAST  1292 

0314 

0315 


10.2306  3 0002  0 

10.2307  22  073  0 

10,2310  0 0003  1 

10  ,2311  52  006  0 


CA  Q 

LXCH  TEMPBBCN 

RELINT 

DTCB 


17:53  DEC*  19,1969  SKIPPER  olOl  PAGE  1293 


USER  *S  PAGE  NO*  8 E3  S4 


START  STORING  THE  PHASE  INFORMATION 


IS  IT  A PHASCHNG  OR  A 2PHSCHNG 
IT:S  A PHASCHNG 

IT:S  A 2PHSCHNG 


can:t  get  here 


SEE  IF  WE  SHOULP  SET  TBASE  OR  LONGBASE 
sft  longbasf  only 
SET  NEITHER 


SET  TBASE  TO  BEGIN  WITH 


SHALL  WE  NOW  SET  LONGBASE 


CANT  GET  HERE 
CANT  GET  HFPE  ♦***# 
NO  WE  NEED  ONLY  SET  TBASE 

SET  LONGBASE 


AND  STORE  THE  FINAL  PART  OF  THE  PHASE 


GAP: 

L 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

032A 

0325 

0326 

032  7 

0326 

0329 

0330 

0331 

0332 

0333 

033A 

0335 


ASSEMBLE  REVISION  131  CF  AGC  PFCGPAP  LUMINARY  8Y  NASA  20211  12-091 


17:53  OeC«  19*1969  SKIPPER  101  PAGE  1294 


PHASE  TABLE  MAINTENANCE 


USER'S  PAGE  N0«  9 E3  S4 


REF 


LAST  1203 


10,2312  22  073  0 CCN2 


LXCH  TFMPflBCN 


6 LAST  1293  10,2313  3 0062  0 
6 LAST  1293  10,2314  50  C6l  C 


CA  TEMPP 

NCX  TEMPG 


REF 


LAST  1293  10,2315  54  750 


PHASEl  -2 


REF  2 LAST  1291 

REF  7 LAST  1294 

REF  2 LAST  1291 


10.2316  3 0070  0 

10.2317  5C  Cei  0 

10  ,2320  55*051  0 


CA  TEMPPR 

NOX  TEMPG 

TS  PHSPROTl  -2 


REF 

REF 

REF 


3 

8 

2 


10,2321' 
LAST  1292  10,2222 
LAST  1294  10 ,2323 
LAST  1292  10,2324 


C 0006  1 
2 0064  0 
50  061  0 
53'435  C 


EXTEND 

OCA  TEMPNM 

NDX  TEMPG 

DXCH  PHSNAPE)  -2 


REF 


10,2325  1 2247  0 TC F BELOWl 


REF  4 LAST  745 


7753 

6000 

7753 


BLCCK  03 
SETLOC  FFTAG6 
BANK 


REF  1 

REF  34  last  1292 
REF  393  LAST  12°3 
REF  2 LAST  1291 


7753  7 4740  I 

7754  10  000  0 

7755  1 5423  0 


COUNT*  $«/PHASE 

CHECKB  MASK  B1T12  SINCE  THIS  IS  CF  TYPE  E,  THIS  BIT  SHOULD 

CCS  A BE  HERE  IF  WE  ARE  TO  GET  A NEV«  PRIORITY 

TCF  GETPRIC  IT  IS,  SC  GET  NEW  PRIORITY 


REF 


7756  1 5402  0 


TCF  OLDPRIO  IT  I SN : T , USE  THE  CLD  PRIORITY 


GAP : 


ASSEMBLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-^91 


L RESTARTS  ROUTINE 


0001 

0002  REF 

0003 


LAST  240 


01  ,3527. 
Cl, 2000 
Cl, 3527 


BANK  01 
SETLCC  RESTART 
BANK 


0004  REF 


LAST  1294  G3 ,1436 


EBANK=  PHSNAMEl 


0005  REF  I 

0006  REF  .778  LAST  1259 

0007 

0008  REF  1 


31,3527 
01.3530 
01,  3531 


2 0161  1 
6 0000  1 
5A  155  I 


COUNT*  $$/RSROU 
RESTARTS  CA  MPAC  +5 

DOUBLE 

TS  TEMP2G 


0309  REF  1 
0010  REF  1 


0011  REF  1 

0012  REF  I 


31  ,3532-  3 3771  0 

01,3533  5A  157  C 

Ol,353A  3 3566  1 

01,3535  54  707  0 


CA  PHS2CADR 

TS  TEMPSWCH 


CA  RTRNCAOR 

TS  GOLOC  +2 


0013 

0014 

0015 

0016 


REF  1 

REF  10  LAST  1278 
REF  394  LAST  1294 
REF  1 


01.3536  3 C154  1 

01.3537  7 5007  1 

01.3540  J 0 000  0 

01.3541  1 3552  1 


CA  TEMPPHS 

MASK  OCT140C 

CCS  A 

TCF  ITSAVAR 


0017 

0018 
0019 


REF  2 LAST  1295 
REF  395  LAST  1295 
REF  1 


31  ,3542 
Cl, 3543 
01,3544 


10  154  0 GETPART2  CCS  TEMPPHS 

1C  COO  0 CCS  A 

1 3652  1 TCF  ITSAT6L 


0020  REF 

0021  REF 

0022  REF 

0023  REF 
0023  REF 


3 LA.ST  1292  01,3545  3 5024  1 

42  LAST  1202  01,3546  0 5105  0 


48  LAST  1291 
I 
1 


E3  ,1400 

01,3547  C3C40  0 
31,3550  20103  1 


CA  PfiI0J4 

TC  FINOVAC 

EBANK=  LSTl 
2CADR  INITCSF 


0024  REF 


2 LAST  1295  01,3551  0 3566 


TC  RTRNCAOR 


0025  REF  11  LAST  1295 

0026  REF  396  LAST  1295 


'31,3552  7 5007  1 ITSAVAR  MASK  nCT140C 

01  ,3553  10  000  0 CCS  A 


0027  REF 


01,3554  1 3623 


TCF  ITSLIKEB 


0028 

0029  REF 

0030  REF 

0031  REF 


2 LAST  1295 
4 LAST  1295 
2 LAST  1295 


01,3555 
31  ,3556 
Cl, 3557 
'31 , 3560 


0 0006  1 
5 0155  0 
3 1437  0 
52  706  I 


EXTEND 

NOX  TEMP2G 

OCA  PHSNAMEl 

OXCH  GOLOC 


0032  REF  3 LAST  1295 

0033  REF  3 LAST  1292 

0034  REF  3 LAST  1149 

0035  PEF  357  LAST  1295 

0036  REF  1 


01.3561 

01.3562 
01  ,3563 
Cl  ,3564 
31,3565 


3 0154 
7 4757 
6 7751 
1C  COO 
1 3735 


1 

1 

0 

0 

1 


CA  TEMPPHS 

MASK  CCT7 
AD  MINUS? 

CCS  A 

TCF  ITSLNGCL 


0037  REF 


6 LAST  1259 


01,3566  0 4631  1 RTRNCACR  TC 


SWRETURN 


17: 53  DEC*  19,1969 


SKIPPER  .-101 


PAGE  1295 


USER'S  PAGE  NOo  1 


EO  S4 


GOPROG  MUST  SWITCH  TO  THIS  EBANK 


GET  GROUP  NUMBER  -I 
SAVE  FOR  INDEXING 


SET  UP  EXIT  IN  CASE  IT  IS  AN  EVEN 
TABLE  PHASE 


TO  SAVE  TIME  ASSUME  IT  WILL  GET  NEXT 
GPOUP  AFTER  THIS 


IS  IT  A VARIABLE  OR  TABLE  RESTART 
IT:S  A VARIABLE  RESTART 


IS  IT  AN  Xt,  1 RESTART 

NO,  ITS  A TABLE  RESTART 

IT  IS  AN  Xol  RESTART,  THEREFORE  START 
THE  DISPLAY  RESTART  JOB 


FINISHED  WITH  THIS  GROUP,  GET  NEXT  ONE 
IS  IT  TYPE  B ? 

YES  , IT  IS  TYPE  B 

STORE  THE  JOB  (CR  TASK!  2CADR  FOR  EXIT 


SEE  IF  THIS  IS  A JOB,  TASK,  OR  A LONGCAL 

ITS  A LONGCALL 


CANT  GET  HERE 


GAP:  ASSE^'BLE  REVISION  131  CF  AGC  PRCC-RAf'  LUMINARY  RY  NASA  2021112-0^1 


003  8 
0039 


RESTARTS  ROUTINE 
REF  1 


01,3567  1 3571  Q 

01,3570  1 3636  0 


TCF  ITSAV,AIT 

TCF  ITSAJC0 


LAST  1295 


ITSAWAIT  CA 


00A2 

0043 

0044 

0045 

0046 


REF  3 
REF  3 
REF  398 
REF  399 
REF  1 


LAST  1295 
LAST  1296 


01.3573  50  155  0 

01.3574  3 1053  0 

31.3575  10  000  .0 

01.3576  24  000  1 

01.3577  1 3602  1 


TIRETEST  CCS 
INCR 
TCF 


0047 

0048 
R0C49 

0050 

0051 

0052 


REF 

REF 


1 


01.3600  1 5436  1 

01.3601  1 3621  0 


7HIS  hn^sT  BE  IN  FIXED  FIXED  ***** 
5436 

REF  1 4000 

5436 


TC  F 
TCF 


ITS INDIR 
IMEDIATE 


BLOCK  02 
SETLOC  FFTAG2 
BANK 


0053 

0054 

0055 


REF 

REF 

REF 


COUNT*  $$/RSROU 
ITSINDIR  LXCH  60LOC  +1 
LXCH  BB 


REF  400  LAST  1296 


0060 

R0061 

0062 

0063 

0064 


2 LAST  1296  5444  1 3602  1 

YOU  MAY  RETURN  TO  SWITCFEO  FIXED  ** 
31  ,3602 

3 LAST  1295  01,2000 

01,3602 


BANK  01 
SETLCC  RESTART 
BANK 


0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 


REF  231 
REF  4 
REF  4 


LAST  1295  TO  1296: 

01, 3602 
LAST  1285  01  ,3603 

LAST  1296  01,36C4 

LAST  1293  01,3605 

01 , 3606 
LAST  1293  31,3607 

LAST  1296  31,3610 

01,3611 


43  43*  CCUNT*  SS/RSRCU 

4 0000  n F INDTI ME  COM 
54  001  1 TS  L 

5C  155  C NCX  TEMP2G 

4 1052  0 CS  T8ASEI 

0 0006  1 EXTEND 

6C  C25  0 SU  TIMEl 

10  000  0 CCS  A 

4 COOO  0 COM 
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USER'S  PAGE  NOe  2 E?  S4 

ITS  A JOB 

SET  UP  WAITLIST  CALL 

DIRECTLY  STORED 

IS  IT  AN  IMMEDIATE  RESTART 
NO, 

FIND  OUT  kHEN  IT  SHCULD  BEGIN 

STORED  INDIRECTLY 

IT  WANTS  AN  IMMECIATE  RESTART 


GET  THE  CORRECT  E BANK  IN  CASE  THIS  IS 
SWITCHED  ERRASIBLE 

GET  THE  Tif/E  INDIRECTLY 

RESTORE  THE  BB  AND  GOLOC 

FIND  OUT  WHEN  IT  SHOULD  BEGIN 


MAKE  NEGITIVE  SINCE  IT  WILL  BE  SU6TRACT0 
AND  SAVE 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 
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0074 

0075 

0076 

0077 

0078 

0079 

0080 
006] 
0062 

0083 

0084 


REF  2 
REF  128 
REF  232 
REF  402 
REF  227 


LAST  161 
LAST  1291 
LAST  1296 
LAST  1296 
LAST  1277 


REF  129  LAST  1297 

REF  6 LAST  1296 

REF  3 LAST  1295 

REF  2 LAST  1295 


0lf3613 
011  3614 
01  ,3615 
Cl, 3616 
01,3617 
01  ,3620 
01,  3621 
01  ,.3622 
01,3623 
Cl, 3624 


6 7734  0 
6 4753  1 
6 0001  0 
10  000  0 
3 4755  1 
1 3621  0 
1 3621  0 
6 4753  1 
0 0704  1 
3 3566  1 
54  157  0 


AD 

CCS 

CA 

TCF 

TCF 

IMEOIATE  AO 
TC 

ITSLI KE6  CA 
TS 


OCT37776 

ONE 

L 

A 

ZERC 
+ 2 
+ 1 
ONE 

GOLOC  -1 
RTRNCACR 
TEMPSWCH 


0085  REF  1 

0086  REF  7 LAST  1297 


01  ,3625  '3  3772  0 
01,3626  54  7C7  0 


CA  PRT2CA0R 

TS  GOLCC  +2 


0087  ' REF 

0088  REF 

0089  REF 


LAST  1295 
LAST  1297 


01,3627 
Cl, 3630 
01, 3631 


3 0154  1 
7 6C77  0 
54  154  0 


CA  TEMPPHS 

MASK  0CT177 
TS  TEMPPHS 


0090 

0091  REF 

0092  REF 

0093  REF 


LAST  1296 
LAST  1295 
LAST  1297 


01  ,3632 

01.3633 

01.3634 
01  ,3635 


0 0006  1 
5 0155  0 
3 1437  0 
52  706  I 


EXTEND 

NOX  TEMP2G 

DCA  PHSNAMEl 

CXCH  GDLOC 


0094  RFF 

0095  REF 

0096  REF 

0097 

0098  REF 


6 

4 

9 


1 


LAST  1297  01,3636  50  155 

LAST  1296  01,3637  3 1053 

LAST  1297  01,3640  54  704 

01,  3641  C 0006 

01 ,3642  6 3646 


0 ITSAJ08  NDX  TEMP2G 

0 CA  PHSPROTl 

0 CHKNCVAC  TS  GOLOC  -1 

1 EXTEND 

0 BZMF  ITSNOVAC 


0099 

0100 
0101 


REF  1 

REF  10  LAST  1297 
REF  11  LAST  1297 


01.3643  3 3774  0 

01.3644  56  704  1 

01.3645  0 0704  1 


CAF  FVACCADR 
XCH  GOLOC  -1 
TC  GOLOC  -1 


0102 

0103 

0104 

0105 


REF  •! 

REF  12  LAST  1297 
REF  13  LAST  1297 


01. 3646 

01.3647 

01.3650 

01.3651 


4 0000  0 
0 0704  1 


ITSNOVAC 


XC  h 
CCM 
TC 


NOVACACR 
GOLOC  -1 

GOLOC  -1 


0106  REF  41  LAST  1282 

0107  REF  42  LAST  1297 

0108 

0109  REF  1 


31  ,3652  54  020  1 

01.3653  1C  C2C  1 

31.3654  1 3655  0 

Cl, 3655  1 3753  1 


ITSATBL 


TS 
CCS 
TC  F 
TCF 


0110  REF 

0111  REF 


LAST  1297 
LAST  1297 


01, 3656 
31  ,3657 


3 3566  1 
54  707  0 


CA  RTRNCAOR 

TS  GOLOC  +2 


0112 

.0113 

0114 


REF 

REF 

REF 


6 

25 

26 


LAST  1297 
LAST  12R5 
LAST  1297 


Cl, 3660  3 C154  1 

01.3661  54  021  0 

01.3662  6 0021  1 


CA  TEMPPHS 

TS  SR 

AD  SR 


17:53  DECo  19,1969  SKIPPER  olOl 
USER'S  PAGE  NOe  3 


PAGE  ] 297 
E3  S4 


TYPE  B,  SO  STORE  RETURN  IN 

TEMPSHCH  IN  CASE  CF  AN  EVEN  PHASE 


SET  UP  EXIT  TO  GET  TABLE  PART  OF  THIS 
VAR  lAELE  TYPE  OF  PHASE 


MAKE  THE  PHASE  LOOK  RIGHT  FOR  THE  TABLE 
PART  OF  THIS  VARIABLE  PHASE 


OBTAIN  THE  jnB:S  2CADR 


NOW  ACO  THE  PRIORITY  ANC  LET:S  GO 

SAVE  PRIO  UNTIL  WE  SEE  IF  ITS 
A FINOVAC  OR  A NOVAC 


POSITIVE,  SET  UP  FINDVAC  CALLc 
PICK  UP  PRIO, 

AND  GO 


NEGATIVE, 

SET  UP  NOVAC  CALL, 
CORRECT  PRIO, 

AND  GO 


FIND  OUT  IF  THE  PHASE  IS  GOO  OR  EVEN 
IT:S  EVEN 


IN  CASE  THIS  IS  THE  SECOND  PART  OF  A 
TYPF  B RESTART,  WE  NEED  PROPER  EXIT 


SET  UP  POINTER  FOR  FINDING  OUR  PLACE  IN 
THF  RESTART  TABLES 


GAP; 

L 

0115 

0116 

0117 

one 

0119 

0120 

0121 

0122 

0123 

012A 

0125 

0126 

01  27 

0128 

0129 

0130 

0131 

A0132 

A0133 

013^ 

0135 

0136 

0137 

R0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 
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RESTARTS  ROUTINE 


USER’S  PAGE  NOo  4 03  S4 


REF  7 
REF  1 
REF  1 


LAST  1297 


01.3663 

01.3664 

01.3665 


50  155  0 
6 2003  0 
54  156  1 


ND)(  TEMP2G 

AD  SIZETA6  *1 

TS  POINTER 


REF  2 LAST  1298 
REF  1 


T1  ,3666 
01,3667 
01,3670 


0 0006  1 CONTBLZ  EXTEND 

5 0) 56  0 NDX  POINTER 

3 2002  1 DCA  CADRTAB 


FIND  OUT  V,HAT;S  IN  THE  TABLE 
GFT  THE  2CADP 


REF  15  LAST  1297 


01,3671  22  706  0 


LXCH  GOLOC  +1  STORE  THE  BB  INFORMATION 


REF  403 
REF  404 
REF  1 


LAST  1297 
LAST  1298 


n,  3672 
01,3673 
01  ,3674 


10  COO  0 
44  000  1 
1 3747  1 


CCS  A IS  IT  A JOB  PR  IS  IT  TIMED 

INCR  A POSITIVE,  MLST  BE  A JCB 

TCF  ITSAjaB2 


REF  405 
REF‘  16 


LAST  1298 
LAST  1298 


)1,3675 
01  ,3676 


24  000  1 
54  705  1 


INCR  A 
TS  GOLOC 


MUST  BE  EITHER  A WAITLIST  OR  LONGCALL 
LET-S  STORE  THE  CORRECT  CAOR 


REF  2 
REF  17 


LAST  1296 
LAST  1298 


01,3677 

01,37no 


3 3775  1 
54  704  0 


CA  WTLTCAOR  SET  UP  OUR  EXIT  TP  WAITLIST 

TS  GOLOC  -1 


1298 

1277 

1298 


01.3701  3 0706  0 

01.3702  7 4742  0 

01  ,3703  10  000  0 


REF 


or, 3704  1 3742  1 


FOR  THAT  MATTER  SC  SHOULD  BE  BITS  9,B,7, 
6,5,  AND  LAST  BUT  NOT  LEAST  (PERHAPS  NOT 
IN  IMPORTANCE  ANYWAYo  BIT  4 
IT  IS  A WAITLI ST  CALL 


REF  3 LAST  1298  01,3705  5G  156  0 
REF  1 11 ,3706  3 2000  0 


NDX  POINTER  OBTAIN  THE  ORIGINAL  DELTA  T 

CA  PfiOTTAB  ADDRESS  FOR  THIS  LCNGCALL 


REF  1 11,3707  1 5445  0 

****=>  THIS  MUST  BE  IN  FIXED  FIXED  ***** 


LAST  1296 


5445 

4000 

5445 


TCF  ITSLGCLl  NOW  GO  GET  THE  DELTA  TIME 


BLOCK  02 
SETLCC  FFTAG2 
BANK 


REF 

REF 

REF 

REF 


22  706  0 
22  006  1 
22  706  0 


LXCH 

LXCH 


OBTAIN  THE  CORRECT  £ BANK 
AND  PRESERVE  OUR  E AND  F RANKS 


REF  407  LAST  1298 


5450 

5451 

5452 


0006  1 
0000  I 
OCOl  0 


EXTEND 

NDX 

DCA 


A 

0 


GET  THE  DELTA  TIME 


REF  21  LAST  1298 
REF  5 LAST  1298 
REF  22  LAST  1298 


5453  22  706  0 

5454  22  006  1 

5455  22  706  C 


LXCH  GOLOC 
LXCH  BB 


RESTORE  CUR  E AND  F BANK 
RESTORE  THE  TASKS  E AND  F BANKS 


LXCH  GOLOC 


ANC  PRESERVE  OUR  L 
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SKIPPER  olCl  PAGE  1299 


L RESTARTS  ROUTINE 


USER' S PAGE  NCc 


E3  S4 


0152 

R0153 

0154 

0155 

0156 


5456  I 3710  0 

MAY  RETURN  TO  SWITCHED  FIXED 


4 LAST  1296 


n ,3710 
Cl, 2000 
)1,3710 


NOW  LETTS  PROCESS  THIS  LONGCALL 


0159 

0160  REF 

0161  REE 

0162 

0163  REF 

0164  RTF' 


01,3711  0 0006  1 

32  LAST  1293  Cl, 3712  4 0Q25  1 

9 LAST  1299  01,3713  21*153  0 

01,3714  0 0006  1 

2 LAST  1293  Cl ,3715  3 1151  0 

iri  LAST  1299  01,3716  21  * 153  0 


EXTEND 

DCS 

DAS 

EXTEND 

CCA 

DAS 


TIME2 
LONGTI ME 

LONGBASE 

LONGTIME 


CALCULATE  TIME  LEFT 


0165  REF 

0166  REF 

0167 

0168  REF 

0169  REF 

0170  REF 

0171 

0172  REF 

0173  RFF 


11  LAST  1299 
1 

2 LAST  1296 

12  LAST  1299 

2 LAST  1299 

3 LAST  1299 

4 LAST  1299 


11,3717  11' 152  1 

01.3720  1 3730  1 

01.3721  1 3723  0 

01.3722  1 3616  1 

01.3723  11*153  0 

01  ,3724  1 3730  1 

01,3725  13  726  C 

)1,3726  1 3616  1 

01  ,3727  I 3621  0 


CCS  LONGTIME 

TCF  LONGCLCL 

TCF  +2 

TCF  IMECIATE  -3 

CCS  longtime  +1 

TCF  LONGCLCL 

NOOP 

TCF  IMEDIATE  -3 

TCF  IMEDIATE 


FIND  OUT  HOW  THIS  SHOULD  BE  RESTARTED 


can:t  get  here  ****♦*♦*« 


0174  REF  1 

0175  REF  23  LAST  1290 


11.3730  3 3773 

01 .3731  54  704 


1 LONGCLCL  CA 
0 TS 


LGCLCADR  WE  WILL  GO  TO  LONGCALL 

GOLOC  -1 


0176 

0177 
0176 


REF  13 
REF  24 


01 ,3732  0 0006  1 
LAST  1299  >1,3733  3 1153  1 
LAST  1299  01,3734  0 0704  1 


EXTEND  PREPARE  OUR  ENTRY  TO  LONGCALL 

DCA  LONGTIME 

TC  GOLOC  -I 


0179 

0180 


REF  3 LAST  1298 
REF  25  LAST  1299 


01.3735  3 3775 

01.3736  54  704 


1 ITSLNGCL  CA 
0 TS 


WTLTCACR 
GOLOC  -1 


ASSUME  IT  WILL  GP  TO  WAITLIST 


LAST  1296 
LAST  1297 


LAST  1298 

LAST  1299 
LAST  1299 


1298 

1298 


01,3737  5C  155  0 
01,3740  4 K53  1 


01  ,3741  1 5445  0 

01.3742  4 C706  1 

01.3743  54  706  1 


01.3744  50  156  0 

01.3745  3 2C00  0 


11,3746  1 3575  1 


TSWTLST 


NCX  T6MP2G 

CS  PHSPROTl 


TCF  ITSLGCLl 

CS  GOLCC 

TS  GOLOC  +1 


NDX  POINTER 
CA  PRDTTAB 


TCF  TIMETEST 


GET  THE  DELTA  T ADDRESS 
NOW  GET  THE  DELTA  TIME 
CORRECT  THE  BBCPN  INFORMATION 

GET  THE  DT  AND  FIND  OIT  IF  IT  WAS  STORED 
DIRECTLY  OR  INDIRECTLY 

FIND  OUT  HOW  THE  TIME  IS  STCREO 


GAP:  ASSEPPLE  REVISION  131  OF  AGC  PROCRAM  LUMINARY  BY  NASA  2021112-091 


L RESTARTS  ROUTINE 


0189 


REF  28  LAST  1299 


C1*37A7  56  705  0 ITSAJCB2  XCH 


GOLOC 


0190  REF  5 LAST  1299 

0191  KEF  3 LAST  1299 


01 .3750  50  156  0 

01.3751  3 2C00  0 


NDX  POINTER 
CA  PRCTTAB 


0192  REF  1 

0193  REF  3 

0199  ref  29 


01,3752 

LAST  1297  Cl  ,3753 
LAST  1300  01,3759 


1 3eAC  1 

3 0157  1 ITSEVEN 
5A.707  0 


TCF  CHKNGVAC 

CA  TEMPSWCh 

TS  GOLOC  +2 


0195  REF  9 

0196  REF  2 

0197  REF  -7 

C190  REF  8 

0199  REF  9 

0200  REF  6 


LAST  1299  01 
LAST  1298  Cl 
LAST  1207  01 
LAST  1300  01 
LAST  1300  01 
LAST  1300  01 


,3755  50  155  0 
,3756  2 2C02  1 
,3757  6 0159  1 
,3760  6 0159  1 
,3761  6 015A  1 
,3762  54  156  1 


NOX  TFMP2G 

CA  SIZETAB 

AO  TEMPPHS 

AD  TEMPPHS 

AD  TEMPPHS 

TS  POINTER 


0201 


0204 
02  05 
A 0.206 
0207 


REF  1 

REF  36 
REF  7 

PEF  5 
RFF  30 

REF  2 


LAST 

LAST 


LAST  1297 
LAST  1300 

LAST  1300 


01,3763  1 3666  0 

01,  3764  2 6250  0 

01  ,3765  26  156  1 

01.3766  3 2566  1 

01.3767  54  707  0 

01,3770  I 3666  0 


TCF  CUNTBL2 

CA  THREE 

ACS  POINTER 

CA  RTRNCADR 

TS  GOLOC  +2 

TCF  C0NTBL2 


PHSPAPT2 


0208  REF  779 

0209  REF  780 

0210  PEF  781 

0211  REF  782 

0212  REF  1 

0213  REF  8 

0214  REF  9 


LAST  1295 
LAST  130C 
LAST  1300 
LAST  1300 

LAST  1278 
LAST  1104 


0154 

0155 

0156 

0157 
0705 
7751 
6077 


TEMPPHS  EQUALS  MPAC 
TEMP2G  equals  MPAC 
POINTER  EQUALS  MPAC 
TEMPSWCH  EQUALS  MPAC 
GOLOC  EQUALS  VACS 
MINUS2  EQUALS  NEG2 
CCT177  EQUALS  LQW7 


0215  REF  I 

0216  REF  1 

0217  REF  5 LAST 

0218  REF  43  LAST 

0219  REF  39  LAST 

0220  REF  27  LAST 


) 203 
129  5 
1126 
1286 


01,3771  03764  1 PHS2CA0R  GENADR  PHSPART2 

01  ,3772  03542  1 PRT2CACR  GENADR  GETPART2 

01.3773  C5277  0 LGCLCACR  GENADR  LONGCALL 

01.3774  05105  0 FVACCACR  GENADR  FINOVAC 

01.3775  C52C3  0 hTLTCACP  GENAOP  WAITLIST 

11.3776  C5C72  1 NOVACAOR  GENADR  NCVAC 
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STORE  THE  CADR 

ADD  THE  PRIORITY  AND  LET:S  60 


SET  UP  FOR  EITHER  THE  SECOND  PART  OF  THE 
TABLE,  OR  A RETURN  FOR  THE  NEXT  GROUP 


SET  UP  POINTER  FOR  CUR  LCCATION  WITHIN 
THE  TABLE 

THIS  MAY  LCCK  BAD  BUT  LET:S  SEE  YOU  DO 
BETTER  IN  TIME  OR  NUM6ERR  OF  LOCATIONS 


NOW  PROCESS  WHAT  IS  IN  THE  TABLE 


SET  THE  POINTER  FOR  THE  SECOND  HALF  OF 
THE  TABLE 


THIS  WILL  BE  OUR  LAST  TIME  THROUGH  THE 
EVEN  TABLE  , SO  AFTER  IT  GET  THE  NEXT 
GROUP 

SO  LET:S  GET  THE  SECOND  ENTRY  IN  THE  TBL 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20Z1U2-091 
I RU  MCDE  SWITCHING  ROLTINES 


0001 

0002 

0003 

OPO^ 

R0005 


00C8 

00G9 

0010 

0011 


5457 

4000 

5457 

£3,1471 

FIXED-FIXEC  RGUTINESo 


REF  1 

REF  228  LAST  1297 
LAST  1251 
LAST  1251 
LAST  1252 


REF 

REF 

REF 


•REF  347  LAST  1293 


5457 

5460 

5461 

5462 

5463 


3 4755  1 
54  032  1 
54  C33  0 
54  034  1 
0 0002  0 


BANK 

£BANK=  CCRRAND 


CCUNT* 

ZEROICOU  CAF 
TS 
TS 
TS 
TC 


coux 

COUY 

CDIZ 


17:53  C£C«  19,1«69  SKIPPER  olOl  PAGE  1301 
USER 'S  PAGE  NCe  1 EO  S4 


ZERO  ICDU  CCUNTERSr, 


0012  REF  26  LAST  1277 


4743 
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L IMU  MODE  Sl^ITCHING  RCUTINES  USER'S  PAGE  NO*  2 £3  SA 


P0013 


IMU  ZERO  ING  ROUTINE* 


OOIA 

0015  REF  I 

0016 


ll  ,3774  BANK  11 

^7,2000  SETLCC  MODfcSW 

07,2705  BANK 


0017  REF  1 

-0018 

0019  REF  42  LAST  529 

0020  REF  4 LAST  214 

0021  REF  408  LAST  1290 

0022  REF  1 


07,27C5 
07,2706 
C7,27C7 
C7,2710 
07  ,2711 


0 CCC4  0 
4 1035  1 
7 4771  0 
JC  COO  0 

1 2715  1 


IMLZERC 


COUNT*  JS/IMOOE 
INHINT 

CS  DSPTAQ  +110 

MASK  BITS466 

CCS  A 

TCF  IMUZEROA 


ROUTINE  TO  ZERO  ICCUS* 

DONT  ZERO  CDUS  IF  IMU  IN  GIMBAL  LOCK  AND 
COARSE  ALIGN  (GIMBAL  RUNAWAY  PROTECTION! 


0023 

0024 


REF  44  LAST  1246 


C7,2712  0 5567  0 

07,2713  00206  0 


TC  ALARM  IF  SO* 

OCT  00206 


. 0025  REF 


07,2714  1 3650  0 


TCF  CAGETSTJ  +4  IMMEDIATE  FAILURE* 


0032  RCF 
R0033 

0034  REF 

0035  REF 

0036  REF 


2 LAST  1302 
DELETE 

38  LAST  900 
2 LAST  852 

39  LAST  1302 


C7,2715  0 3644 


IMUZEROA  TC 


CAGETSTJ 


07.2716  4 1300  1 

07.2717  7 4773  1 

07,2720  27'300  1 


CS  IMCCES33 
MASK  SUPEROll 
AOS  1M0CES33 


CISABLE  DAP  AUTO  AND  HOLD  MOOES 
BITS  FCR  GROUND 


0037 

0030 

0039 


REF 

REF 

REF 


47  LAST  977  07,2721 

1 .07,2722 

48  LAST  1302  C7,2723 


21*211  0 


CS  I MCDES30  INHIBIT  ICDUFAIL  AND  IMUFAIL  (IN  CASE  WE 

MASK  eiTS3e4  JUST  CAME  OUT  OF  COARSE  ALIGN!* 

ADS  IM0CES30 


0040  REF 

0041 

0042  REF 


LAST  1302 
LAST  90C 


C7,2724 

07,2725 

C7,2726 


C?  C12  1 


CS  eiTS*C6  SEND  ZERO  ENCODF  WITH  CCARSE  AND  ERROR 

EXTEND  COUNTER  DISABLED* 

WAND  CHAM2- 


0043 


REF  3 LAST  168 


07,2727  0 3257 


TC  NOATTOFF 


TURN  OFF  NO  ATT  LAMP* 


0044 

0045 
0(?46 


REF  29  LAST  1277 
REF  56  LAST  1302 


C7,272n  2 4747  1 

C7,  2721  0 0CC6  1 

07,2732  05  012  1 


CAF  BITS 
EXTEND 

WOR  CHAN12 


00461  REF  3 

0047  REF  49 

0048  RFF  40 

0049  REF  3 

0050  REF  1 

0050  REF  1 


LAST  168 
LAST  1277 
LAST  1300 
LAST  172 


07.2733  0 5457  1 

07.2734  2 4746  0 

07.2735  0 5203  0 
E3, 1474 

07.2736  02750  I 

07.2737  16103  1 


TC  ZERCICCU 

CAF  BIT6 
TC  WAITLIST 

6BANK=  CDUIND 
2CA0P  IMUZER02 


WAIT  320  MS  TO  GIVE  AGS  ADEQUATE  TIMF  TO 
RECEIVE  ITS  PULSE  TRAIN* 


0051  PEF  49  LAST  1302  07,2740  4 1277  0 

0052  REF  27  LAST  1301  07,2741  7 4743  I 

0053  REF  409  LAST  13C2  C7,2742  1C  COO  C 

0054  PEF  1 07,2742  1 2746  1 


CS  IMaOES30  SEE  IF  IMU  CPERATUG  ANC  ALARM  IF  NOT - 

MASK  BITc 

CCS  A 

TCF  MODFEXIT 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


IMU  MODE  SWITCHING  RCLTINES 
REF  45  LAST  1302 


07,2746  0 0003  1 MCCEEXIT  RELINT 


LAST  1295  C7,2747  1 4631  0 


0062 

0063 

0064 


REF 

REF 


1 

4 LAST  1302 
40  LAST  1302 
57  LAST  1302 


37,2752' 
07,2753 
C7, 2754 


IMU2ER02  TC 


4-  4747  0 
G 0006  1 
C3  C12  I 


0067 

0069 

0070 

0071 


REF 

REF 

REF 

REF 


07,2757 

77.2760 

07.2761 

07.2762 


C 3632  0 
4 5741  I 
7 1277  0 
55*277  0 


CAGETEST 
BITS3S4 
I MCDES30 
IMO0ES30 


007? 

0073 

0074 


REF 

REF 

REF 


3 LAST  1302 

40  LAST  1302 

41  LAST  1303 


07,2763 

Q7,2764 

07,2765 


4 4773  1 
7 1300  I 
55*300  1 


MASK 

TS 


SUPEROll 
I MCDES33 
IM006S33 


07,2770  1 3622  0 


CADR 

TCF 


17:53  CECo  19,1969  SKIPPER 
USER’S  PAGE  NCo  3 


. 101  PAGE  1303 
E3  S4 


GENERAL  MODE- SVi  I TC  H I NG  EXIT^ 

ZERO  CDUX,  CDUY,  CDUZ 
REMOVE  ZERO  OISCPETEo 

WAIT  10  SECS  FOP  CTPS  TC  FIND  GIMBALS 

REMOVE  IMUFAIL  AND  ICDUFAIL  INHIBIT: 

ENABLE  DAP  AUTO  AND  HOLD  MODES 
BIT5  FCR  GRCUNC 

SET  ISS  WARNING  IF  EITHER  OF  ABOVE  ARE 
PRESENTo 


GAP; 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  0Y  NASA  2P21112-091 


L IMU  MODE  Sl^ITCI-ING  ROUTINES 


IML  COARSE  align  MCCEe 


0079 

0080  REF 

0081  REF 


LAST  1302 
LAST  171 


COOA  C 
364A  1 
3135  0 


IMLCOARS  INHINT 


CAGETSTJ 

SETCCARS 


0082  REF  22 

0083  REF  41 

0084  REF  4 

0005  REF  1 


0085 


REF 


LAST  13C2 


07.2774 

07.2775 
£3,1474 

07.2776 

07.2777 


3 6245  1 
C 5203  0 

03001  0 
16103  1 


CAF  SIX 

TC  WAITLIST 

eBANK=  COUINO 
2CA0R  CDARS 


0086  REF 


LAST  1302  07,30C'0  1 2746 


TCF  MODEEXIT 


0087  REF 

0088  REF 

0089 


3 

50 


LAST  1303 
LAST  1302 


07.3001 

07.3002 
07, 30C3 


0 3632  0 
3 4746  0 
0 0006  1 


COARS 


0090 


REF  58  LAST  1303 


07,3004  05  012  1 


TC  CAGE  TEST 

CAF  eiT6 

EXTEND 

WOR  CHAN12  — 


REF  79  LAST  1292 
REF  5 LAST  1304 


C7,3005  3 4752  0 

07,3006  55*474  0 COARSl 


CAF 

TS 


TWO 

COUIND 


0093  REF  6 

0094  REF  21 

0095 

0096  REF  7 

0097  REF  19 

0098 

0099  REF  43 

0100  REF  233 

0101 

0102  REF  41 

0103 

0104  REF  234 


LAST  1304 
LAST  1246 

LAST  1304 
LAST  1301 

LAST  1277 
LAST  1297 

LAST  1292 

LAST  1304 


07.3010 

07.3011 

07.3012 
C7,3013 
07  ,3014 
C7,3C15 

37.3016 

07.3017 
C7, 3020 
07,3021 
C7,3Q22 


0 0006  1 

5 1474  1 
20  032  1 
0 0006  1 
7 4737  1 
56  001  0 

6 0000  1 
54  C61  I 
1 3023  1 
26  001  1 


INDEX 

CA 

EXTEND 

INDEX 

MSU 

EXTEND 

MP 

XCF 

DOUBLE 

TS 

TCF 

ADS 


ecu  I NO 
THETAO 

CCUINO 

CDUX 

BIT13 


I TEMPI 
+ 2 


0105  REF 

0106  REF 

0107  REF 

0108  REF 


LAST  1304 
LAST  1301 
LAST  1304 


07. 3023 

07.3024 

07.3025 

07.3026 


51*474  1 
23*471  1 
11*474  C 
C 3006  1 


INDEX  CDLINO 
LXCH  COMMAND 
CCS  CDUINC 

TC  COARSl 


0109  REF  8C  LAST  1304 

0110  REF  11  LAST  1303 


3 

0 


CAF  TWe 

TC  VARDELAY 


17:53  OECo  19,1969  SKIPPER  .101  PAGE  1304 


USER'S  PAGE  NCe  4 63  S4 


ENABLE  ALL  THREE  ISS  COU  FRROR  COUNTERS 

SET  ecu  INCICATOR 

COMPUTE  THETAD  - TFETAA  IN  1:S 
COMPLEMENT  FORM 


SHIFT  RIGHT  2 
POUND 


DIFFERENCE  TO  BE  COMPUTED 


MINIMUM  OF  4 MS  WAIT 


GAP: 

L 

OIU 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

012i 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

OlSfi 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 


assemble  revision  131  OF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  CECo  19,1969  SKIPPER  ,101  PAGE  1305 


IMU  MODE  SWITCHING  ROUTINES 


USER'  S PAGE  NCo  5 E3  S4 


REF  4 LAST  1304  07,3031  0 3632  0 CCARS2  TC  CAGETEST 

REF  42  LAST  1304  07,3032  54  061  1 TS  ITEMPl 

REF  81  LAST  1304  07,3033  3 4752  0 CAF  TWO 

REF  10  LAST  1304  07,3034  55'474  0 +3  TS  CCUINC 


DONT  CONTINUE  IF  CAGEOo 
SETS  TO  +0, 

SET  CDU  INOICATCR 


REF  11  LAST  1305 

PEF  3 LAST  1304 

REF  1 

REF  1 

REF  1 

REF  2 LAST  1305 


37,3035. 
07  ,3036 
07,3037 

07.3040 

07.3041 

07.3042 


51'474 
11*471 
0 3C43 
0 3052 
C 3110 
C 3052 


INDEX  COLINO 

CCS  COMMAND 

TC  CCMPCS 

TC  NEXTCDU  +1 

TC  COMNEG 

TC  NEXTCOL  +1 


NUMBER  OF  PULSES  PFOUIRFO 
GREATER  THAN  MAX  ALLOWEC 


REF  1 

PEF  1 
REF  12 
REF  4 
PEF  1 


LAST  1305 
LAST  1305 


07  ,3043 

07.3044 

07.3045 
07  ,3046 
07,3047 
07,3050 


6 3736  0 
C CCC6  1 
6 3120  1 
51*474  1 
5f*471  0 
4 3737  0 


COMPOS 


EXTEND 

0ZMF 

INDEX 


-COMMAX 

COMZERC 

COUIND 

COMMAND 

-CCMMAX- 


COMMAX  = MAX  NUMBER  CF  PULSES  ALLOWED 
MINUS  ONE 


REDUCE  COMMAND  BY  MAX  NUMBER  OF  PULSES 
ALLOWED 


REF  43  LAST  1305 
REF  25  LAST  1278 
REF  13  LAST  1305 
REF  3 LAST  ?84 


07.3051  24  061  0 

07.3052  6 4754  0 
07  ,3053  51*474  1 
C7,3054  54  CSC  0 


NEXTCDU 


INCR 

AD 

INDEX 

TS 


ITEMPl 

NEGO 

CDUIND 

CDUXCMC 


SET  UP  COMMAND  REGISTERc 


REF  14 
REF  1 


LAST  1305 


07.3055 

07 .3056 


11*474  0 
C 3034  0 


CCS  COUIND 

TC  C0ARS2  +3 


REF  44  LAST  1305 
REF  1 


07,3057  1C  C6I  1 
07,3060  1 3124  1 


CCS  ITEMPl  SEE  IF  ANY  PULSES  TC  GO  OUTo 

TCF  SENDPULS 


REF  16  LAST  111  5 


TC  FIXDELAY  WAIT  FOR  GIMBALS  TO  SETTLE,, 

DEC  150 


REF  82 
RCF  45 
REF  410 
REF  20 

REF  46 
REF  22 
REF  411 
RFF  1 
REF  I 
REF  2 


LAST  1305 
LAST  1305 
LAST  1302 
LAST  1304 

LAST  1305 
LAST  1304 
LAST  1305 


LAST  1305 


07,3063 
C7, 3064 
07,3065 
C7,3066 
07, 3067 

07.3070 

07.3071 
•)7,3072 

07.3073 

07.3074 

07.3075 


3 4752  n 
54  C6l  1 
50  000  I 
2 0032  0 
C 0006  1 
5 0061  0 
2C  321  C 
10  000  0 
1 3101  0 
1 3C76  1 
1 3101  0 


CAF  TWC 

CHKCORS  TS  ITEMPl 

INDEX  A 
CA  COUX 

extend 

INDEX  ITEMPl 
MSU  THETAC 
CCS  A 
TCF  COARSFRP 
TCF  C0RSCHK2 
TCF  COARSERR 


AT  FNO  OF  COMMAND,  CHECK  TD  SEE  THAT 
GIMBALS  ARE  WITHIN  2 DEGREES  OF  THETAOe 


gap:  assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L IMU  MODE  SWITCHING  RCUTINES 


0148 

0149 

0150 


REF  47  LAST  1305 
REF  1 

REF  2 LAST  1303 


07.3076 

17.3077 
07,3100 


1C  C61  I CnRSCHK2  CCS 
I 306^  1 TCF 
1 3622  n TCF 


ITEMPl 

CHKCORS 

ENCIMU 


0151  REF 

0152 


07.3101  6 3107  1 COARSERR  AD  COARSTCL 

07.3102  C 0006  1 EXTEND 


0153  REF  2 LAST  1305 


C7,3lC-3  6 3076  0 


BZMF  C0RSCHK2 


0154 

0155 

0156 

0157 


REF  46 

REF  2 


LAST  1303 

LAST  167 


07.3104 

07.3105 

07,31C6 

07,3107 


0 5567  0 
'00.211  0 

1 3630  0 
77511  1 


COARSTQL 


TC 

ncT 

TCF 

DEC 


ALARM 

211 

I MUEAO 
-«01111 


0158  REF  2 

0159 

0160  REF  2 

0161 

0162  REF  15 

0163  REF  5 

0164  REF  2 

0165  REF  3 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


130  5 
1305 

1305 

1305 

1305 

1305 


07.3110  6 3736  0 CCMNEG 

07.3111  C 0006  1 

07.3112  6 3120  1 

07.3113  4 COCO  0 

07.3114  51*474  1 

C7,3115  55*471  0 

C7,3116  3 3737  1 

07,3117  0 3051  0 


AC  -CCMMAX 

EXTEND 

8ZMF  COMZERO 

COM 

INDEX  COUINO 

TS  COMMAND 

CA  -CCMMAX- 

TC  NEXTCDU 


0166 

0167 

0168 
0169 


REF  229  LAST  1301 
REF  16  LAST  1306 
KEF  6 LAST  1306 
REF  4 LAST  1306 


07.3120  3 4755  I 

07.3121  51*474  1 

07.3122  5?'471  I 

07.3123  C 3C51  0 


CCMZERC 


CAF  ZERO 

INDEX  CDUIND 

XCF  COMMAND 

TC  NEXTCDU 


0170 

0171 

0172 

0173 

0174 


REF  3 LAST-  536 

REF  16  LAST  900 

REF  ] 

REF  2 LAST  1305 


07.3124 

07.3125 

07.3126 
07  ,3127 
C7,3130 


3 7743 
C 0006 
C5  014 
3 3740 
1 3030 


SENDPULS 


CAF 

EXTEND 

WOR 

CAF 

TCF 


13,14,15 

CHAN14 
6C0MS 
C0ARS2  -1 


0175  REF  51 

0176 

0)77  REF  59 

0178  REF  73 


LAST  1304 

LAST  1304 
LAST  12C2 


07.3131  2 4746  0 

07.3132  0 0006  I 

07.3133  C5  C12  1 

07.3134  0 5261  1 


CA4ECE 


CAF  BIT6 

EXTEND 

ROR  CHAM2- 

TC  TASKOVER 


17:53  DECo  19,1969  SKIPPER  olOl  PAGE  1306 


USER'S  PAGE  N0«  6 E3  S4 

END  OF  COARSE  ALIGNMENTc 
2 DEGRFESo 

COARSE  ALIGN  ERRORo 

2 DFGREES  SCALED  AT  HALF-REVOLUTIONS 


THEN  TO  VARCELAY 


ENABLE  ALL  THREE  ISS  COU  ERROR  COUNTERS 


GAP;  ASSEPBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L IMU  MODE  S^^ITCHING  ROUTINES 


0179 

0100 

0181 

0182 

0183 


REF  A3 

REF  60 
REF  412 
REF  348 


LAST  1277 

LAST  1306 
LAST  1305 
LAST  1301 


C7r3125 

07.3136 

07.3137 

07.3140 

07.3141 


3 A75C  1 
0 0006  I 
02  012  0 
1C  000  0 
0 0002  0 


SFTCOARS  CAF 

EXTEND 

RAND 

CCS 

TC 


61  T4 

CHAN12  - 
A 
0 


0184  REF  52 

0185 

0186  REF  61 


LAST  1306 
LAST  1307 


3142 

3143 
.3144 


t-  47^6  1 
0 0006  1 
C3  012  1 


CS 

EXTEND 

MANO 


BI  T6 
CHAM2 


0187 

0188 

0189 

0190 

0191 


REF  39  LAST  1298 

REF  17  LAST  1306 
REF  230  LAST  1306 
REF  2 LAST  177 


07.3145  i 4742  0 

37.3146  ' 0 0006  1 

07.3147  C3  014  1 

07,3150  4 4755  0 

07  ,3151  54  047  0 


CS  6IT10 

EXTEND 

hAND  CHAN14 

CS  ZERO 

TS  GYROCMO 


0192  REF  44  LAST  1307 

0193 

0194  REF  62  LAST  1307 


07.3152  3 4750  I 

37.3153  C 0006  1 

07.3154  C5  012  1 


CAF  6IT4 

EXTEND 

WCP  CHAM2- 


REF  43  LAST  1302 
REF  1 

REF  44  LAST  1307 


07.3 155 

07.3156 
G7,3157 


4 1035  1 
7 3200  1 
27‘C35  1 


CS 

MASK 

AOS 


OSPTAB  + 
□CT4O010 
OSPTAB  + 


110 
1 1 C 


0198 

0199 

0200 


REF  43  LAST  1307 


07.3160  4 1300  1 

07.3161  7 4746  1 

07.3162  27'30C  1 


CS  IMOOES33 

MASK  6IT6 
ADS  IMC0ES33 


0201 

0202 

0203 


REF  52 
REF  45 
REF  53 


LAST  1303 
LAST  1307 
LAST  1307 


07.3163 

07.3164 

07.3165 


4 1277  0 
7 4750  0 
27 '277  0 


CS  IMODES30 

MASK  BIT4 
ADS  IM0DES30 


0204 

0205 

0206 


REF  14 
REF  32 
REF  33 


LAST  522 
LAST  900 
LAST  1307 


07.3166 

07.3167 
07,3170 


4 4747  0 
7 0075  1 
54  075  I 


RNCREFCR  CS  TPACKBIT 
MASK  FLAGWROl 


TS  FLAGWROl 


0207  REF 

0208  REF 

0209  REF 


3 LAST  052 

29  LAST  1115 

30  LAST  1307 


07.3171  4 4735  0 

07.3172  7 0076  1 

07.3173  54  076  I 


CS  DRFTBIT 

MASK  FLAGWR02 
TS  FLAGWRD2 


0210 

0211 

0212 


REF 

REF 

REF 


LAST 

LAST 

LAST 


970  97,3174  4 4737  1 
970  07,3175  7 0077  0 
1307  07 ,3176  54  077  0 


CS  REFSMBIT 
MASK  FLAGWR03 
TS  FLAGWR03 


0213  REF  349  LAST  1307 


07,3177 


00C2  0 


TC  Q 


02)4 


07,3200  40010 


0CT40O10  OCT 


40010 


17:53  OECo  19,1969  SKIPPER  101  PAGE  1307 
USER • S PAGF  NOo  7 E3  S4 

BYPASS  IF  ALREADY  IN  COARSE  ALIGN 


CLEAR  ISS  ERROR  COUNTERS 

KNOCK  DCWN  GYRC  ACTIVITY 

PUT  ISS  IN  COARSE  AL IGN 

TURN  CN  NO  ATT  LAMP 

DISABLE  DAP  AUTO  AND  FCLD  MCOES 

DISABLE  IMUFAIL 

CLEAR  TRACK  FLAG 

CLEAR  DRIFT  FLAG 

CLEAR  REFSMMAT  FLAG 


GAP  : 


ASSEf^PLE  REVISION  131  OF  AGC  PRCCRAM  LUMINARY  6Y  NASA  2021112-091 


IMU  MODE  SWITCHING  RCLTINES 


P0215 

IMU 

F INE 

AL  IGN  MODE 

SWiTCHp 

0216 

07,3201 

0 0004 

0 

IMUFINE 

INHINT 

0217 

REF 

4 

LAST 

1304 

07,3202 

0 3644 

1 

TC 

CAGETSTJ 

0218 

REF 

1 

17*3203 

4 3735 

1 

cs 

8ITS4-5 

0219 

07,32C4 

C 0006 

1 

EXTEND 

0220 

REF 

63 

LAST 

1307 

C7*32C5 

. 03  C12 

1 

WAND 

CHAM2-. 

0221 

REF 

54 

LAST 

1307 

07,3206 

4 4746 

1 

CS 

BIT6 

0222 

REF 

A4 

LAST 

1307 

07,3207 

7 1300 

1 

MASK 

I M00ES33 

0223 

PEF 

45 

LAST 

1308 

07*3210 

5 5 * 300 

1 

TS 

IM0DFS33 

0224 

REF 

4 

LAST 

1302 

07*3211 

0 3257 

1 

TC 

NOATTDFF 

0225 

REF 

40 

LAST 

1307 

07*3212 

3 4742 

1 

CAF 

BITIO 

0226 

REF 

42 

LAST 

1304 

07,3213 

C 5203 

0 

TC 

WAITLIST 

0227 

REF 

17 

LAST 

1306 

E3,1474 

EBANK= 

CCUINC 

0228 

PEF 

1 

07,3214 

03225 

1 

2CADR 

IFAILCK 

0228 

REF 

1 

07 ,3215 

16103 

1 

0229 

REF 

6 

LAST 

961 

C7,3?16 

2 5C0C 

1 

CAF 

2SECS 

0230 

REF 

43 

LAST 

13C8 

07,3217 

0 5203 

0 

TC 

WA I TL I ST 

0231 

REF 

IR 

LAST 

1308 

E3*1474 

EeANK= 

COU IND 

0232 

REF 

1 

07,3'220 

C3223 

1 

2CADR 

IMUFINEO 

0232 

REF 

1 

07,3221 

16103 

1 

0233 

REF 

3 

LAST 

1304 

C7,3222 

1 2746 

1 

TCF 

MOCEEX  IT 

0234 

RFF 

5 

LAST 

1305 

07,3223 

0 3632 

0 

IMIFINED 

TC 

CAGBTEST 

0235 

REF 

3 

LAST 

1306 

07  ,3224 

1 3622 

0 

TCF 

ENOIMU 
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USER  ‘S  PAGE  NQo  6 F3  S4 

SEF  IF  IMU  BEING  CAC-EDo 
RESET  ZERO  AND  COARSE 

INSURE  DAP  AUTO  AND  HOLD  MOOES  ENABLED 


IMU  FAIL  WAS  INHIBITED  CURING  THE 
PRESUMABLY  PRECEDING  COARSE  ALIGNo  LEAVE 

IT  ON  FOR  THE  FIRST  5 SECS  OF  FINE  ALIGN 


SFE  THAT  NO  ONE  HAS  CAGED  THE  IMU 


GAP;  ASSEMBLE  REVISION  131  CF  AGC  PRCGRAR  LUMINARY  BY  NASA  2021112-091 
L IMU  MODE  SHlTChlNG  ROUTINES 


LAST  1306 


07i3225  0 3637  0 IFAILOK 
07,3226  1 5261  0 


TC  CAGETSTQ 

TCF  TASKCVFR 


0238 

0239 

0240 

0241 

0242 


RFF  A6  LAST  1307 

REF  64  LAST  13)8 
REF  413  LAST  1307 
REF  75  LAST  1309 


C7, 3227  3 A750  I 

07,3230  0 0006  1 

C7,3731  02  012  0 

07,3232  10  000  0 

07  ,3233  1 5261  0 


CAF  eiT4 

EXTEND 

RAND  CHAN12  — 

CCS  A 

TCF  TASKOVER 


0243  RtF  54 

024A  REF  44 

0245  REF  55 

0246  PEF  47 

0247  PEF  56 

0248  REF  57 

0249  REF  49 

0250  . RFF  6 

0251  REF  76 


LAST  1307  07 
LAST  1304  17 
LAST  1309  07 
LAST  1309  07 
LAST  1309  07 
LAST  1309  07 
LAST  1303  07 
LAST  1303  37 
LAST  1309  07 


,3234  4 1277  0 

,3235  7 4737  1 

,3236  27*2.77  0 

, 3237  4 4750  0 

,3240  7 1277  0 

,3241  55*277  0 

,3242  0 4674  0 

,3243  14703  0 

,3244  I 5261  C 


CS 

MASK 

ADS 

CS 

PFAIL0K2  MASK 
TS 
TC 

CADR 

TCF 


I MCDES30 
D I T13 
IM0CES3O 
BI  T4 

IM0DES30 

IMDCeSBO 

IBNKCALL 

SETISSW 

TASKCVER 


0252  REF  2 LAST  1309 

0253  REF  77  LAST  1309 


17.3245  0 3637 

07.3246  1 5261 


n PFAILOK  TC 
0 TCF 


CAGETSTQ 

TASKCVER 


0254  REF  58 

0255  REF  41 

0256  REF  59 


LAST  1309  07 
LAST  1300  07 
LAST  1309  07 


,3247  4 1277  0 
,3250  7 4742  0 
,3251  27*277  0 


CS  IMODESSn 

MASK  BITIO 
ADS  IMCCES30 


0257 

0258 

0259 


PEF  46  LAST  1308 
REF  45  LAST  1309 
REF  47  LAST  1309 


07.3252  4 1300  1 

07.3253  7 4737  1 

07.3254  27*300  1 


CS  IM0DES33 

MASK  6IT13 
ADS  IMCDES33 


0260  REF  41 

0261  REF  1 


LAST  1303 


07.3255 

07.3256 


4 4747  0 
1 3240  0 


CS  BITS 

TCF  PFAILCK2 


0262 
02  63 
0264 
02  65 
02  66 


REF  2 LAST  130.7 
RFF  45  LAST. 1307 
REF  44  LAST  129C 
RFF  46  LAST  13P9 
REF  350  LAST  1307 


07,3257  4 3200  1 

07,3260  7 1035  1 

07, ?261  6 4735  1 

07.3262  55*035  I 

07.3263  0 0002  0 


NOATTOFF  CS 

MASK 

AD 

TS 

TC 


nCT40010 
DSPTAB  +110 
BI  T)  5 

DSPTAB  +110 
0 


17:53  DECo  19,1969  SHIPPER  old  PAGE  1309 

USER'S  PAGE  NOo  9 E3  S4 

ENABLE  IMU  FIAL  UNLESS  IMU  BEING  CAGED, 
IT  ISo 

CONT  RESET  IMU  FAIL  INHIBIT  IF  SOMEONE 
HAS  GONE  INTO  COARSE  ALIGN, 


RESET  IMUFAILo 


THE  I SS  WARNING  LIGHT  MAY  COME  ON  NOW 
THAT  THE  INHIBIT  HAS  BEEN  REMOVED,. 


ENABLE  PIP  FAIL  PRCG  ALARMg 


RESET  IMU  AND  PIPA  FAIL  BITS, 


SUBROUTINE  TO  TURN  CFF  NO  ATT  LAMP, 


GAP : 
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IMU  MCOE  SWITCUNG  ROUTINES  USER’S  PAGE  NCo  10  £3  SA 

ROLITNES  TC  INITIATE  AND  TERMINATE  PROGRAM  USE  OF  TFE  PIPAS<,  NO  IMUSTALL  REQUIRED  IN  EITHER  CASE* 


0274 

0275 


REF 

REF 


LAST  1307 
LAST  947 
LAST  947 
LAST  947 


07.3264 

07.3265 
C7,3266 
07, 3267 


4 4755  C 

5 4 03  7 1 
54  040  1 
54  C41  0 


ZERO 
PI  PAX 
PIPAY 
PI  PA2 


02752  REF 
02754  REF 


3 LAST  1309 
8 LAST  1303 


07.3270  0 3637  0 

07.3271  1 4631  0 


PIPUSei  TC  CAGETSTQ 

TCF  SWRETURN 


00  NOT  ENABLE  PIPA  FAIL  IF  IMU  IS  CAGED 


02756 

0276  REF  52 

0277  REF  60 

0278  REF  61 


'07-,  3272 
LAST  1277  07,3273 

LAST  1309  07,3274 

LAST  1310  07,3275 


C 0004  C 
4 4753  0 
7 1277  0 
55'277  0 


INHINT 

CS  BITl  IF  PIPA  FAILS  FROM  NOW  ON  (UNTIL 

MASK  IMCDES30  PIPFREEI,  LIGHT  ISS  WARNING* 

TS  IM0DES3C 


0279  REF  50  LAST  1309  07,3276  0 4674  0 FIPFREe2 

0280  REF  7 LAST  1309  07,3277  147C3  0 


TC 

CADR 


IBNKCALL 
SETI  SSR 


ISS  WARNING  MIGHT  COME  ON  NOWr 
(OP  GO  CFF  CN  PIPFREEI* 


028) 


REF  4 LAST  1308  07,3300  1 2746 


TCF  MOOEEXIT 


02  02 

0283  REF  62 

0284  REF  53 

0285  REF  63 


LAST  1310 
LAST  1310 
LAST  1310 


07.3301  C 0004  0 PIPFREE 

07.3302  4 1277  0 

07.3303  7 4753  0 

07,33C4  27*277  0 


INHINT 

CS  IMQOES30 

MASK  BITl 
ADS  IMCDES30 


PROGRAM  DONE  WITH  PIPAS*  DONT  LIGHT 
I SS  WARNING* 


0286  REF  42  LAST  1309 

0287  REF  414  LAST  1309 

0288  REF  5 LAST  1310 


07.3305  7 4742  0 

07.3306  10  000  0 

07.3307  1 2746  1 


MASK  6IT10  IF  PIP  FAIL  ON,  DO  PROG  ALSRM  AND  RESET 

CCS  A ISS  WARNING* 

TCF  MOOEEXIT 


REF  47 


LAST  1306 


07.3310 

07.3311 


C 5567  0 
0C212  0 


TC  ALARM 

OCT  212 


0291 

02P2  REF  1 


07.3312  0 0004  0 INHINT 

37.3313  1 3276  0 TCF  PIPFREE? 


gap: 

L 

PC293 

R0295 

RC297 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0310 

0311 

0312 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

032  7 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 
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I MU  MCDE  SUITCI-ING  RCJTINES 


USER'  S PAGE  NCe  11  E3  S4 


THE  FOLLOWING  ROUTINE  TCPCUES  TFE  IRIGS  ACCORDING  TO  OOUBLF  PRECISION  INPUTS  IN  THE  SIX  REGISTERS 
BEGINNING  AT  THE  ECADR  ARRIVING  IN  Ao  THE  MINIMUM  SIZE  OF  ANY  PULSE  TRAIN  IS  16  PULSES  (o25  COU  COUNTSIc  THE 
UNSENT  PCRTICN  OF  THE  COMMANC  IS  LEFT  INTACT  IN  THE  INPUT  COMMAND  REGISTFRSo 


£3,1400 


EBANK=  1400 


VARIA&LEf  ACTUALLY, 


REF  783  LAST  1300 
REF  5 LAST  1308 


07.3314  54  161 

07.3315  0 3644 


0 IMUPULSE  TS 

1 TC 


MPAC  +5 
CAGETSTJ 


SAVE  ARRIVING  ECAORo 

OONT  PROCEED  IF  IML  BEING  CAGEDe 


2 LAST  224  07,3316  11'311  1 

I 07,3317  0 3360  1 


CCS  LGYRC  SEE  IF  GYROS  BUSYe 

TC  GYROBUSY  SLEEP, 


REF  784 
REF 


• REF  18  LAST  1307 


07.3320  54  156 

07.3321  2 ^746 

07.3322  0 0006 

C7,3323  05  014 


I 

0 

1 

1 


TS  MPAC  +2 

CAF  BIT6  FNABLE  THE  POWER  SUPPLY, 

EXTEND 

WCP  CHAN14 


REF  27  LAST  1277 
REF  44  LAST  1308 
REF  )9  LAST  1308 
REF  1 
REF  I 


37.3324  3 4751  0 

07.3325  0 5203  0 
E3, 1474 

07.3326  03376  0 

07.3327  161C3  1 


GWAKE2 


CAF  FOUR 

TC  WAITLIST 

EBANK=  COUIND 
2CA0R  STRTGYRO 


(IF  A JOB  WAS  PUT  TO  SLFEP,  THE  POWER 
SUPPLY  IS  LEFT  ON  BY  THE  WAKING  JOB  Jo 


REF  785 
REF  74 
REF  7E6 
REF  3 
REF  17 
REF  48 


LAST  1311 
LAST  1261 
LAST  1311 
LAST  1311 
LAST  1278 
LAST  1306 


07.3330 

07.3331 

07.3332 

07. 3333 

07.3334 

07.3335 


2 0161  1 
56  003  1 
56  161  1 
55‘211  I 
7 4357  0 
54  061  1 


CA  MPAC  +5  SET  UP  EBANK,  SAVING  CALLER'S  EPANK  FOR 

XCF  EBANK  RESTORATION  ON  RETURN, 

XCh  MPAC  +5 

TS  LGYPO  RESERVES  GYROS, 

MASK  LOWS 

TS  ITEMPl 


REF  49  last  1311 
REF  788  LAST  1311 


REF  415  LAST  1310 


REF  789  LAST  1311 
REF  15  LAST  1217 
REF  790  LAST  1311 
REF  791  LAST  1311 


07,3337 
07,3340 
07  ,3341 

07.3342 

07.3343 

07.3344 

07.3345 

07.3346 

07.3347 
C7, 3350 

37.3351 

07.3352 


3 4752  0 CAF 

54  157  0 GYRCAGRE  TS 
6 0000  1 DOUBLE 

6 0061  0 AD 

*^4  leC  1 TS 

0 0006  1 EXTEND 

5 3000  1 INDEX 

3 1401  0 OCA 

52  155  1 DXCh 

C 7262  0 TC 

52  155  1 DXCH 

50  160  0 INDEX 

53'401  1 DXCH 


TWO 

MPAC  +3 

ITEMPl 

MPAC 

A 

1400 
MPAC 
TPAGREE 
MPAC 
MPAC  +4 
1 400 


FORCE  SIGN  AGREEMENT  CN  INPUTS, 


REF  792  LAST  1311 
REF  I 


0 

1 


MPAC  +3 
GYRCAGRE 


REF  793  LAST  1311  07,3355  2 C161  1 
REF  75  LAST  1311  07,3356  54  003  0 
REF  6 last  1310  C7,3357  1 2746  1 


CA  MPAC  +5  RESTORE  CALLER'S  EBANK, 

TS  EBANK 

TCF  MOOEFXIT 


GAP;  ASSEMBLE  REVISION  131  CF  AGC  PPCGPAM  LUMINARY  8Y  NASA  2021112-091 


L IMU  MCOE  SWITCHING  ROUTINES 


P0337 


RCLTINES  TO  ALLOW  TCPCUING  BY  ONLY  ONE  JOB  AT  A TIMEo 


0339  • REF  22 

C3A0  REF  7<5A 

03A1  REF  1 

03A2  REF  5 


07,3360  C 0C06 
LAST  1079  07,3361  3 013A 

LAST  1311  T7,3362  £2  155 

07,3363  3 3375 

LAST  1212  07,3364  1 5133 


1 GYRCBUSY  EXTEND 

1 DCA  BUF2 

1 CXCh  MPAC 

0 REGSLEEP  CAF  L6WAKE 

1 TCF  JOBSLFFP 


03^3  REF 
0344  REF 


4 LAST  1311 

1 


07.3365  11*311  1 GWAKE 

07.3366  I 3363  C 


CCS 

TCF 


LGYRC 

REGSLEEP 


0345  REF  795' 

0346  - 

0347  REF  796 

0348  REF  23 

0349  REF  130 

0350  REF  1 


LAST 

LAST 

LAST 

LAST 


1312  07  ,3367  5^  156  1 

07,3370  C 0C06  1 
1312  07,3371  3 0155  0 

1312  07 ,3372  52  134  0 

1297  07, 3373  3 4753  1 

07,3374  1 3325  I 


TS  MPAC  +2 

EXTEND 
OCA  MPAC 

OXCH  BUF2 

CAF  ONE 

TCF  GWAKE? 


0351  REF 


07,3375  17365  1 LGWAKE 


CADR  GWAKE 


17:53  DECo  19,1969  SKIPPER  ,101  PAGE  1312 


USER'S  PAGE  NC*  12  E3  S4 


SAVE  RETURN  2FCADR* 


WHEN  awakened,  SEE  IF  GYROS  STILL  BUSYo 
IF  SO,  SLEEP  SCME  MCRE^ 


RESTORE  SWRETURN  INFO. 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-0<31 


L I MU  MC06  SV^ITCHING  ROUTINES 


P0352 


GYRO-70ROIING  WAITLIST  TASKS® 


0353 

035A 

0355 


REF  1 

REF  19  LAST  1311 


07.3376  A 3617  0 

07.3377  C 0006  1 
C7,3^Cn  Cs  C14  1 


STRTG YRO 


CS 

EXTEND 

WANO 


GDESELCT 
CHAM  4 


0356  REF  6 LAST  1300 


07,3401  0 3632  0- 


TC  CAGETEST 


0357  REF  5 LAST  1312 

0350 

0359  REF  48  LAST  1309 

0360  REF  416  LAST  1311 

0361 

0362  REF  1 

0363 


C7,3402  3 1311  0 

07. 3403  0 0006  1 

07.3404  7 4750  0 

07.3405  5C  CCC  1 

07.3406  1 3407  0 

07,34C7  0 3424  0 

07,3410  CC202  1 


STRTGYR2  CA 

EXTEND 

MP 

INDEX 

TCF 

TC 

OCT 


LGYRO 

B IT4 
A 

+ 1 

GSELECT 
00  202 


0364  REF 

0365 


LAST  1313 


07.3411  0 34?^  0 

07.3412  00302  0 


TC  GSELECT 

OCT  00302 


0366 

0367 


REF  3 LAST  1313 


0 

0 


TC  GSELECT  - 

OCT  00100 


0368  REF  232 

0369  REF  6 

0370  REF  2 

0371  REF  6 


LAST  1310  C7 
LAST  1313  07 
LAST  1312  07 
LAST  1213  07 


, 3415  3 4755  1 
,3416  55*311  1 
,3417  3 3375  0 
,3420  0 5137  1 


CAF  ZERO 

TS  LGYRO 

CAF  LGWAKE 

TC  JOBWAKE 


LAST  1308  07,3421 


3223  0 NCRESET  TCF 


IMUFINEO 


0372 


REF  2 


17:53  OECe  19,1969  SKIPPER  ,101  PAGE  1313 


USER*  S PAGE  NCc  13  E3  S4 

CE-SELECT  LAST  GYPC® 

JUMP  ON  PHASE  COUNTER  IN  BITS  13-14o 

=no  00  Y GYROo 

= 1®  00  Z GYRO® 

=2®  DC  X GYRO® 

=3®  DONE 

WAKE  A POSSIBLE  SLEEPING  JOB® 


DO  NOT  RESET  PCWFR  SUPPLY 


GAP : 
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L IMU  MODE  SWITCHING  ROUTINES  USER'S  PAGE  NOo  14  63  S4 

0373  REF  28  LAST  1311  07,3422  4 4751  1 -2  CS  FOUR  SPECIAL  ENTRY  TO  REGRESS  LGYRC  FOR  Xo 

0374  REF  7 LAST  1313  C7,3423  27*311  1 ADS  LGYRC 


0375  REF  351 

0376 

0377  REF  12 

0378  REF  lo 

0370  REF  46 

0380  REF  8 

0381  REF  76 

0382  REF  18 

0383  REF  50 


LAST  1309 

LAST  1292 
LAST  1285 
LAST  1309 
LAST  1314 
LAST  1311 
LAST  1311 
LAST  1311 


C7,3424  50  002  0 GSELECT  INDEX 


07.3429  3 nOOO  1 CAF 

C7,3426  54  06^  1 TS 

07,3427  7 4757  1 MASK 

07 .3430  6 4737  0 AO 

07.3431  27»?11  1 ADS 

07.3432  54  003  0 TS 

07.3433  7 43?7  0 MASK 

C7, 3434  f 4 061  1 TS 


Q 

0 

ITEMP4 

SEVFN 

BIT13 

LGYRC 

E6ANK 

LOWS 

I TEMPI 


SELECT  GYRCo 

PACKED  WORD  CONTAINS  GYPC  SELECT  BITS 
AND  INCREMENT  TO  LGYRO, 


0384  REF  20 

0385  - REF  13 

0386  REF  14 


LAST 

LAST 

LAST 


1314 

1314 

1314 


07.3435  4 A757  1 

07.3436  7 0064  1 

07.3437  £4  064  1 


CS  SEVEN 

MASK  ITEMP4 
TS  ITEMPA 


03fc7 

0388 

0389 

0390 


07,3440 

REF  51  LAST  1314  07,3441 

07,3442 

REF  49  LAST  1292  07,3443 


0 C006  1 
5 CC61  0 
3 1401  0 
52  C71  0 


EXTEND  MOVE  OP  COMMAND  TO  RUPTREGS  FOR  TESTING, 

INDEX  ITEMPl 
OCA  1400 
CXCH  RUPTREGl 


0391 

0392 


REF  50 
REF  1 


LAST  1314 


07,3444 
07  ,3445 


10  070  1 
1 3460  1 


CCS  RUPTREGl 
TCF  MAJ+ 


0393 


07,3446  1 3450  1 


TCF  +2 


0394  REF 


07,3447  1 3600  0 


TCF  MAJ- 


0395 

0396 

0397 

0398 

0399 


REF  1 
REF  1 
REF  1 
REF  2 


LAST  1292 

LAST  1314 


07.3450 

07.3451 

07.3452 

07.3453 
C7, 3454 


1 3402  0 
1 3575  1 
1 3402  0 


CCS  PUPTRFG2 

TCF  MIN  + 

TCF  STRTr,YR2 

TCF  MIN- 

TCF  STRTGYR2 


GAP: 

L 

0400 

0401 

C402 

0403 

0404 

0405 

0406' 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

042  0 

0421 

0422 

0423 

0424 

0424 

0426 

0427 

042  0 

0429 

0430 

0431 

0432 

0433 

0434 
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I MU  MCDE  SWITCHING  RCLTINES 


USER'S  PAGE  NCo  15  E3  S4 


REF  1 

PEF  3 LAST  13)4 


07.3455 

07.3456 

07.3457 


6 3511  1 
0 0006  1 
(■  3402  1 


AC  -GYRCMIK  SMALL  POSITIVE  COMMAND*  SEE  IF  AT  LEAST 

EXTEND  16  GYRO  PULSES* 

OZMF  STRTGYR2 


RCF  1 

REF  51  LAST  1314 


07,  346C 

07.3461 

07.3462 


C CC06 
.3  3621 
20  C7) 


1 MAJ  + 
1 
0 


EXTEND 

OCA  GYROFRAC 

OAS  RUPTREGl 


DEFINITE  POSITIVE  OUTPUT* 


REF  15 
REF  20 


LAST  1314 
LAST  1313 


07.3463 

07.3464 
C7,3465 


2 0064  0 
.0  0006  1 
05  C14  I 


CA  ITEMP4 

EXTEND 

V^OP  CHAN14 


SELECT  POSITIVE  TOPCUING  FOR  THIS  GYRO* 


REF  10 
REF  11 
REF  12 

REF  40 
REF  21 
PEF  52 

REF  28 
REF  53 
REF  235 

REF  72 
REF  22 


LAST  1300 
LAST  1314 
LAST  1315 

LAST  1291 
LAST  1292 
LAST  1315 

LAST  1302 
LAST  1315 
LAST  1304 

LAST  1277 
LAST  1315 


07 . 3466 

07.3467 
C7, 3470 

07.3471 

07.3472 

07.3473 

07.3474 

07.3475 

07.3476 
C7 ,3477 

07.3500 

07.3501 

07.3502 
C7,35C3 


3 1 
7 0071  0 
56  071  1 
0 0006  1 
7 4744  0 
54  C62  1 
3 0070  0 
C QC06  1 
7 4743  1 
54  070  1 
3 CCCl  0 
0 0006  1 
7 4736  0 
26  062  1 


GM  ERGE 


CAF  L0ls7 

MASK  PUPTREG2 

XCH  RUPTREG2 

EXTEND 
MP  PITS 

TS  ITEMP2 

CA  RUPTREGl 

EXTEND 
MP  BIT9 

TS  RUPTREGl 

CA  L 

EXTEND 

MP  BIT14 

ADS  ITEMP2 


LEAVE  NUMBER  OF  POSSIBLE  8192  AUGMENTS 
TO  INITIAL  COMMAND  IN  MAJOR  PART  OF  LONG 
TERM  STORAGE  ANC  TRUNCATED  FRACTION 
IN  MINOR  PART*  THE  MAJOR  PART  WILL  BE 
COUNTED  DOWN  TO  ZERO  IN  THE  COURSE  OF 
PUTTING  CUT  THE  ENTIRE  COMMAND* 


INITIAL  COMMAND* 


REF  54  last  1316 
REF  ] 

REF  417  LAST  1313 
REF  1 


07,3504  0 0006  1 

C7,35C5  3 0071  1 

07.3506  6 7752  0 

07.3507  1C  OnO  0 

07.3510  1 3534  1 

07.3511  77601  0 

07.3512  1 3516  1 


EXTEND 

CCA  RUPTREGl 

AD  MINUSl 

CCS  A 

TCF  LONGGYRC 

-GYROMIN  OCT  -176 
TCF  +4 


SEE  IF  MORE  THAN  CNE  PULSE  TRAIN  NEEDED 
(MORE  THAN  16383  PULSES)* 


MAY  BE  ADJUSTED  TO  SPECIFY  MINIMUM  CMD 


LAST 

LAST 

LAST 


1315 
131  5 
1313 


C7,3513 

07.3514 

07.3515 


3 4736 
26  062 
3 4755 


1 

1 

1 


CAF 

ACS 

CAF 


BI  T14 
ITEMP 
ZERC 


2 


REF  52  LAST  1314 


07.3516  50  C61  0 

07.3517  53'401  1 


INDEX  ITEMPl 
OXCH  1400 
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L IHU  MODE  SWITCHING  ROUTINES 


0A39 

0436 

0437 
0436 

0439 

0440 

0441 

0442 
0442 


REF  24  LAST  1315 
REF  3 LAST  1307 

REF  43  LAST  1310 
REF  37  LAST  1300 
REF  45  LAST  1311 
REF  20  LAST  1311 
REF  2 LAST  1311 


07,3520  2 0C62  C 

C7,352)  54  047  0 

07.3522  C CC06  1 

07.3523  7 <i742  0 

07.3524  6 6250  0 

07.3525  C 5203  C 
E3  ,1474 

07.3526  03376  C 

07.3527  16103  1 


CA  ITEMP2 

LASTSEG  TS  GYROCMC 

EXTEND 

MP  BITIO 

AD  THREE 
TC  WAITLIST 

EBANK=  COUIND 
2CADR  STRTGYRC 


044P 

0449 

0450 

0451 


REF  44  LAST  1316 

REF  21  LAST  1315 
REF  78  LAST  1309 


07.3530 

07.3531 

07.3532 
07,3522- 


2 47i‘2 
r OOC6 
05  014 
1 5261 


GYRCEXIT  CAF 

EXTEND 

WOP 

TCF 


BITIO 

CHANl 4 
TASKGVEP 


0452  REF  53 

0453  . 

0454  REF  7<* 

0455  REF  25 

0456  REF  4 


LAST  1315  07,3534 

17  ,3535 
LAST  1315  07,3526 

LAST  1316  07,3537 

LAST  1316  07,3540 


50  C61  0 
53'401  1 
2 4736  I 
6 0062  0 
54  C47  0 


LONGGYRO  INDEX  ITEMPl 

CXCH  1400 

CAF  eiT14 

AO  ITEMP2 

TS  GYROCMC 


0457 

0458  REF  45 

0459  REF  4 

0460  REF  46 

0461  REF  21 

0462  REF  1 

0462  REF  1 

0463  REF  1 


LAST 

LAST 

LAST 

LAST 


17,3541  0 0006  1 AUG3 

1316  07,3542  7 4742  0 

1278  07,3543  6 775C  1 

1316  07,3544  0 5203  0 

1316  E3,1474 

' 07,3545  C3550  1 

07.3546  16103  1 

17.3547  1 3530  0 


EXTEND 

MP  BITIO 

AC  NEG3 

TC  WAITLIST 

E8ANK=  CCUINO 
2CADR  8192AUG 


TCF  GYRCFXIT 


0464  REF 


LAST  1313 


07,3550 


0 3632  0 8192AUG  TC 


CA6ETEST 


04641  REF  49 

04642 

04643  REF  65 

04644  REF  418 

04645  REF  '3 

0465  REF  9 

0466  REF  77 

0467  REF  19 

0468  REF  54 


LAST  1313 

LAST  1309 
•LAST  1315 
LAST  1306 
LAST  1314 
LAST  1314 
LAST  1314 
LAST  1316 


07.3551  3 4750  1 

07.3552  ( C006  I 

07.3553  02  012  0 

07.3554  10  000  0 

07.3555  1 3630  0 

07.3556  3 1311  0 

07.3557  54  003  0 

07.3560  7 4257  0 

17 .3561  54  061  1 


CAF  BIT4 

EXTEND 

RAND  CHAN12- 

CCS  A 

TCF  IMUBAO 

CA  LGYRO 

TS  FBANK 

MASK  LOWS 

TS  ITEMPl 


0469  REF 

0470 

0471  REF 


LAST  1316 


07.3562 

07.3563 

07.3564 


50  061  0 
11*400  0 
1 3570  1 


INCEX  ITEMPl 
CCS  1400 

TCF  AUG2 


0472 

047? 

0474 


REF  75  LAST  1316 
REF  5 LAST  1316 
REF  1 


07.3565  3 4736  1 

17.3566  26  047  0 

C7,3567  1 3522  0 


CAF  BIT14 

AOS  GYRDCMD 
TCF  LASTSEG  + 


OeCo  19,1969  SKIPPFR  r 101  PAGE  1316 
USER'S  PAGE  NOo  16  £3  S4 

ENTIRE  COMMAND* 

WAITLIST  OT 

TRUNCATION  AMD  PHASE  UNCERTAINTIES* 


INITIAL  COMMAND  OUT  PLUS  N AUGMENTS  OF 
8192*  INITIAL  COMMAND  IS  AT  LEAST  8192, 


GET  WAITLIST  OT  TC  TIME  WHEN  TRAIN  IS 
almost  out. 


ADO  8192  PULSES  TO  GYRCCMD 


SEE  IF  THIS  IS  THE  LAST  AUG* 


MORE  TD  COME, 


gap:  assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
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0475  REF  56  LAST  1316 

0476 

0477  REF  76  LAST  1316 

0478  REF  6 LAST  1316 

0479  REF  1 


07.3570  50  061  O AUG2 

07.3571  55*400  0 

07.3572  .3  4736  1 

77.3573  26  047  0 

07.3574  1 3541  C 


INDEX  ITFMPI 

TS  1400 

CAF  BIT14 

AOS  GYROCMD 

TCF  AUG3 


CCMFUTE  CT« 


GAP: 


ASSEf^BLE  REVISION  131  CF  AGC  PRCCRAM  LUMINARY  BY  NASA  20211  12-0?! 


L IMU  MODE  SWITCHING  RCUTINES 


0480 

04fil 

0482 


REF  2 LAST  1315 
REF  4 LAST  1315 


07.3575 

07.3576 

07.3577 


6 3511  1 
0 0006  I 
6 3402  1 


MIN- 


AO  -GYRCMIN 
EXTEND 

BZMF  STRTGYR2 


0483 

0484  REF 


07,3600  c onoe  i maj- 
LAST  131  5 07,3601  A 3621  0 


EXTEND 

DCS  GYROFRAC 


0485 


REF  55  LAST  1315  C7,36C2  2C  C7l  0 


DAS  PUPTREGl 


0486  REF 

0487  REF 
0498 

0484  REF 


16 

24 


22 


LAST  1315 
LAST  1315 

LAST  1316 


07,3603' 

07.3604 

07. 3605 

07.3606 


3 0064  0 
6 4743  0 
C 0006  1 
05  1 


CA  ITEMP4 

AD  BIT9 

EXTEND 

WOR  CHAN14 


0440  REF 

0441  REF- 
C492  REF 
0443  REF 
0494 

0445  REF 

0496 

0497  REF 


56  LAST  1318 

57  LAST  1318 

13  LAST  1315 
11  LAST  1315 

14  LAST  1318 
1 


07,3607  4 0070  1 

07,3610  54  070  1 

Q7,361l  4 0071  0 

07. 3612  7 6r77  0 

07.3613  4 0000  0 

07.3614  56  C71  1 

07.3615  4 0000  0 

07.3616  1 3471  1 


CS  RUPTREGl 

TS  RUPTREGl 

CS  RUPTRe62 

MASK  L0W7 

COM 

XCH  RUPTREG2 

CO'' 

TCF  GMERGE 


0496 


07,3617  01700 


GDESELCT  CCT 


1700 


0499 

0499 


07.3620  00000  1 GYROFRAC  20EC 

07.3621  00034  0 


17:53  DECo  lo,1964  SKIPPER  olOl  PAGE  1318 


USER ‘S  PAGE  NOo  18  E3  S4 

POSSIBLE  NEGATIVE  CUTPUTo 


DEFINITE  NEGATIVE  CUTPUT* 


SELECT  NEGATIVE  TOROUING  FOR  THIS  GYROo 


SET  UP  RUPTREGS  TO  FALL  INTO  GMERGEo 
ALL  NUMBERS  PUT  INTO  GYPOCMO  APE 
POSITIVE  - 6IT9  OF  CHAN  14  DETERMINES 
THE  SIGN  OF  THE  COMMAND* 


TURN  OFF  SELECT  AND  ACTIVITY  BITS* 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PRCGRAf.'  LUMINARY  BY  NASA  2021112-'>91 


POSCO 

0501 

0502 

0503 

0504 

0505 


IMU  MCOE  SV»ITCI-ING  ROUTINES 

IMU  MODE  SUITCHING  FCUTINES  CCME  FERE  WHEN  ACTION  COMPLETE 


REF  33 
REF  5A 
REF  419 
REF  4 


LAST  1110 
LAST  131C 
LAST  1316 
LAST  1316 


07. 3622 

07.3623 

07.3624 

07.3625 

07.3626 


C 0006  1 

00  on  1 
7 4753  0 
10  000  0 

1 3630  0 


E XTEND 

READ  OSALMOUT 
MASK  BIT) 

CCS  A 

TCF  IMUBAD 


0506 


REF 


LAST  569  07,3627  1 3656  0 IMLGOOD  TCF 


0509 

0510 

0511 

0512 

0513 


REF  56 
REF  64 
REF  420 
REF  5 
REF  352 


LAST  1311 
LAST  1310 
LAST  1319 
LAST  1319 
LAST  1314 


07.3632 

07.3633 

07.3634 

07.3635 

07.3636 


3 4746  0 
7 1277  0 
1C  CCO  0 
1 363^  0 
C 0002  0 


CAGETE  ST  CAF 
MASK 
CCS 
TCF 
TC 


0514 

0515 

0516 

0517 
051fi 


REF  65 
REF  57 
REF  421 
REF  353 
PEF  354 


LAST  1319 
LAST  1319 
LAST  1319 
LAST  1319 
LAST  1319 


07,3637 

07.3640 

07.3641 

07.3642 

07.3643 


4 1277  0 
7 4746  1 
1C  000  0 
24  002  0 
0 0002  0 


CAG6TSTQ  CS 

MASK 
CCS 
I NCR 
TC 


05J9 

0520 

0521 

0522 


REF  66 
REF  58 
REF  422 
RF.F  355 


LAST  1319 
LAST  1319 
LAST  1319 
LAST  1319 


07.3644 

07.3645 

07.3646 

07.3647 


4 1277  0 
7 4746  1 
10  000  0 
C 0002  0 


0523 

0524 

0525 


REF  235  LAST  1319 
REF  4 LAST  1115 
REF  7 LAST  1311 


07  ,3650  4 4755  0 
C7,365l  55'3C1  C 
07,3652  1 2746  1 


CS  ZERO 

TS  IMUCADR 

TCF  MODEEXIT 


17:53  DECo  19,1969  SKIPPFP  - PAGE  1319 


USER'S  PAGE  NC*  )9  E?  S4 


MODE  IS  BAD  IF  CAGE  HAS  OCCURFC  OR  IF 
ISS  WARNING  IS  0N« 


WITH  CIA)  = Oo 


SUBROUTINE  TO  TERMINATE  IMU  MODE 
SWITCH  IF  IMU  HAS  BEEN  CAGEOo 

ni  PECTLYa 
WITH  CIA)  = +0a 


SKIP  IF  IMU  NOT  BEING  CAGEOo 


IF  DURING  MODE  SWITCH  INITIALIZATION 
IT  IS  FOUND  THAT  THE  IMU  IS  BEING  CAGED, 
SFT  IMUCADR  TO  -0  TO  INDICATE  OPERATION 
COMPLETE  BUT  FAlLECo  RETURN  IMMEDIATELY 


TO  SWRETURN. 


GAP:  ASSEMBLE  REVISION  131  OF  AGO  PRCCRAM  LUMINARY  BY  NASA  20211  12-091  17:53  DEC®  19»I969  SKIPPER  ,101  PAGE  1320 

L IMU  MDOE  SWITCHING  ROUTINES  USER'S  PAGE  NOo  20  E3  S4 

P0526  GENERALUEC  MODE  SWITCHING  TERMINATIONo  ENTER  AT  GOODEND  FOR  SUCCESSFUL  CCPPLETICN  CF  AN  I/O  OPERATION 

R0528  OR  AT  BAOENO  FOR  A N UNSUCCESSFUL  ONE®  CIA)  OR  ARRIVAL  =0  FOR  IMUi  ) FOR  OPTICS® 


0530  REF  15 

0531  REF  236 

0532  REF  A 


LAST  1318  07 
LAST  1319  07 
LAST  1319  07 


,3653  5A  C71 
,3654.  A A755 
,3655  1 3660 


0 EACENC  TS 
C CS 

0 TCF 


RUPTREG2 

ZERO 

GGOCENC  +2 


DEVICE  INCEXo 
FOR  FAILURE* 


LAST 

LAST 


07,3656  5A  071 
07  ,3657  4 4753 


0 GQODEND  TS 
0 CS 


RUPTRE62 

ONE 


FOR  SUCCESS* 


0535 

0536 

0537 

0538 

0539 


REF  13  LAST  1292 
REF  17  LAST  1320 
REF  6 LAST  947 


REF  1 


07.3660  54  C72  0 

37.3661  50  C71  1 

07.3662  11*301  0 

07.3663  1 3667  1 

07.3664  1 3677  0 


TS  RUPTREG3 

INDEX  RUPTRFG2  SEE  IF  USING  PRCGRAP  ASLEEP* 

CCS  MODECADR 

TCF  +4  YES  - WAKE  IT  UP* 

TCF  ENDMODE  IF  0,  PROGRAM  NOT  IN  YET* 


05392 

05394  REF 


LAST  1320 


07.3665 

07.3666 


C 0006  1 
1 3700  1 


EXTEND 

DZF  ENOPCDE  +1  BZF  = TCF  IF  MCCECACR  = -0® 


0540  REF  237 

0541  REF  18 

0542  REF  7 

0543  REF  7 


LAST  1320  07 
LAST  1320  07 
LAST  1320  07 
LAST  1313  07 


,3667  3 4755  1 

,3670  50  071  1 

,3671  57'3C1  1 

♦3672  0 5137  1 


CAF  ZFRO 

INDEX  RUPTREG2 

XCF  MODECADR 

TC-  JOewAKE 


WAKE  SLEEPING  PROGRAM® 


0544 

0545 

0546 


REF  14  LAST  1320 
REF  23  LAST  1213 
REF  44  LAST  1259 


07.3673  4 CC72  0 

07.3674  50  064  0 

07.3675  26  164  0 


CS  RUFTREG3  ADVANCE  LOC  IF  SUCCESSFUL® 

INDEX  LOCCTR 
AOS  LOC 


0547 


REF  70  last  1316 


J7, 3676 


5261  0 


TCF  TASKCVER 


0548 

0549 

0550 

0551 


REF 

REF 

REF 

REF 


LAST  1320 
LAST  132C 


07,3677 
07, 37C0 

07.3701 

07.3702 


3 0072 
50  C71 
55*301 
1 5261 


1 

1 

0 

0 


ENCMODE  CA  RUPTRFG3 

+1  INDEX  RUFTREG2 

TS  MODECADR 

TCF  TASKCVER 


-0  INDICATES  OPERATION  COMPLETE  BUT 
UNSUCCESSFUL:  -1  INCICATES  COMPLETE  AND 
SUCCESSFUL* 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202P12-091 
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17:53  DEC-.  19,1969  SKIPPER 
USER'S  PAGE  NCo  21 


r 101  PAGF  1321 
E3  SA 


P0552 


GENERAL  STALLING  RCLTINEo  USING  PROGRAMS  COME  HERE  TO  WAIT  FOR 


I/O  COMPLETIONe 


R0554  PROGRAM  DESCRIPTION 
R0555 


DATE-  21  FEB  1967 
LOG  SECTION  IMU  MODE  SWITCHING 


R0556  MOD  BY-  RaMELANSCN  TO  ADO  OOCLMENTAT I CN 


ASSEMBLY  SUNCISK  REV.,  62 


R0557 

R0558 

R0559 

R0560 

R0561 

R0562 

R0563 

R056A 

R0565 

R0566 

R0567 

R0568 

R0569 


FUNCTIONAL  OESCRIPTIQN- 

TO  DELAY  FURTHER  EXECUTION  CF  THE  CALLING  ROUTINE  UNTIL  ITS  SELECTED 
I/O  FUNCTION  IS  COMPLETEaTHE  FOLLOWING  CHECKS  CN  THE  CALLING  ROUTINE:S 
MCCECACR  ARE  MACE  AND  ACTED  UPON*- 

1)  ■^0  INDICATES  INCOMPLETE  1/C  0 PER  AT  I ON*  CALL  ING  ROUTINE  IS  PUT  TO 
SLEEP* 

Z)  -1  INDICATES  CCMPLETEC  1/0  OPERATION*  STALL  BYPASSES  JOBSLEEP 
CALL  AND  RETURNS  TO  CALLING  ROUTINE  AT  1*3 
3)  -0  INDICATES  COMPLETED  I/O  W I TH  .FA  I LURE*  STALL  CLEARS  MCCECACP 
AND  RETURNS  TO  CALLING  RCUTINE  AT  0+2* 

AJ  VALUE  GREATER  THAN  C INDICATES  TWC  ROUTINES  CALLING  FCR  USF  OF 
same  DEVICE*  STALL  EXITS  TO  ABORT  WHICH  EXECUTES  A PROGRAM 
RESTART  WHICH  IN  TURN  CLEARS  ALL  MCCECACR  REGISTERS* 


R0570  CALLING  SEQUENCE- 
R0571  L TC  BANKCALL 

RC572  L+l  CAOR  (CNE  OF  5 STALL  ACCPESSES  I*E*  I MUSTA L L , CPTST AL L , R ADST ALL , 

R0573  AOTSTALL.OR  ATTSTALL) 


R0574  NCRMAL-EXIT  MCCE- 

R0575  TCF  JOBSLEEP  OR  TCF  MOOEXIT 


R0576  ALARM  OR  ABORT  EXIT  MCDE- 
R0577  TC  ABORT 


R0578 

R0579 

R0580 

ROSei 

R0582 


OUTPUT- 

MCOECAOR'=  CACR  IF  JCBSLEEP 
MODECAOR=+0  IF  I/OCCMPLET 
6UF2=L+3  IF  I/O  COMPLET 

BUF2=L-f2  IF  I/O  COMPLETE  BUT 


E 

E AND  GOOD* 
FAILED* 


R05B3  ERASABLE  IN  IT  lAL IZATION- 

R058A  0UF2  CONTAINS  RETURN  ADDRESS  PLUS  l,(L  + 2> 

R0585  6LF2+1  CONTAINS  FBANK  VALUE  CF  CALLING  ROUTINE* 

R0586  MOCECAOR  OF  CALLING  ROUTINE  CONTAINS  +0,-1  ,-0  OR  CAOR  RETURN  ADDRESS* 


R0587  OEBftlS- 

R0588  RLPTREG2  AND  CALLING  ROUTINE  MOCECACR* 


0589-  REF  132  LAST  1320 
C590  REF  I 


07,3703  3 A753  1 AOTSTALL  CAF  ONE 

07,370A  0 3710  1 TC  STALL 


0591  REF  BA  LAST  1311 

0592  REF  2 LAST  1321 


07.3705 

07.3706 


A752  C RACSTALL  CAF 
3710  C TCF 


Twr 

STALL 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  OY  NASA  202111  2-091 


L IMU  MODE  SWITCHING  RCUTINES 

0593  REF  3 LAST  955  C7,37C3 


OPTSTALL  EQUALS  ACTSTALL 


0599  REF  238  LAST  1320 


■)7,3707  3 9755  1 


IMUSTALL  CAF  ZERO 


0595 

0596  REF  20  LAST  1320 

0597  REF  923  LAST  1319 

0598  REF  0 last  1320 

0599  REF  1 

0600  kEF  I 

0601  REF  1 


:7,37in  0 0009  0 

C7,3711  5A  071  0 

07.3712  50  000  1 

07.3713  ll'30i  0 

07,3719  1 3732  0 

07.3715  1 3726  0 

07.3716  1 3722  1 


STALL 


INhlNT 

TS  RUPTREG2 

INDEX  A 

CCS  MOCECACR 

TCF  MODABORT 

TCF  MODESLP 

TCF  MCDEGCCC 


0602 

0603 

0609 


REF  21  LAST 
REF  10  LAST 
REF  8 LAST 


1322  07,3717 
1322  07,3720 
1319  C7,3721 


50.  071  1 MG2 
55'301  0 
1 2796  1 


INDEX  PUPTREG2 
TS  MOCECACR 

TCF  MODEExn 


0605  REF  929  LAST  1322 

0606  REF  2 LAST  1322 


07  ,3722  10  000  0 

07,3723  1 3732  0 


MCCEGOOC  CCS 
TCF 


A 

MODABCPT 


0607  REF  29  LAST  1312 

0606  REF  1 


07,3729  29  133  0 

07,3725  1 3717  1 


INCR  BUF2 
TCF  MG2 


0609 

0610 
0611 
0612 


REF  13  LAST  932 
REF  22  LAST  1322 
REF  IJ  LAST  1322 
REF  6 last  1312 


07,3726  0 9695  1 MHDESLP  TC  MAKECACR 


07,3727  50  071  1 
C7,3730  55'3C1  C 
07,3731  1 5133  1 


INDEX  F.UPTPE62 
TS  MnCECACR 
TCF  JOBSLEEP 


0613  REF  25  LAST  1322 
06132  REF  6 LAST  1120 
0619 


'•7,3732  52  139  0 MCCAfiORT  CXCH 

07,3733  C 57C6  C TC 

07,3739  31210  0 nCT 


6UF2 

BAI LCUTl 
3121C 


17:53  DEC*  19,1Q69  SKIPPER  .101  PAGE  1322 


USER  ' S PAGE  NOe  22  E3  S9 


I MUe 


SAVE  DEVICE  INCEXo 

SEE  IF  OPEPATICN  CCMPLETEi 

ALLCWABLE  STATES  ARE  +0,  -1,  AND  -Oo 
OPERATION  INCOMPLETE^ 

CCMFLETE  ANC  GOOD  IF  = -U 

COMPLETE  AND  FAILED  IF  -Oo  RESET  TO  +0o 
RETURN  TO  CALLERe 


MAKE  SURE  INITIAL  STATE  -le 


IF  SO,  INCREMENT  RETURN  ADDRESS  AND 
RETURN  IMMEDIATELY,  SETTING  CADR  = +0c 


CALL  FRCM  SWITCFABLE  FIXED  ONLYo 


TWO  PROGRAMS  USING  THE  SAME  OFVICE. 


gap:  assemble  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  0Y  NASA  2021112-091 


L IMU  MODE  SWITCHING  RUUTINES 


P0615  CCNSTANTS  FCR  MCCE  SWITCUNG  ROUTINES 


0616 

0617 

0618 

0619 

0620 
0621 
0622 
0623 
0626 

0625 

0626 
0627 

0629 

0630 
0632 


REF  A 
REF  3 

REF  A1 


REF  A 

ref'  a 


REF  3 

REF  26 
REF  5 


LAST  966 
LAST  1278 

LAST  1315 


LAST  9A7 
LAST  371 


LAST  1222 

LAST  1322 
LAST  1323 


07.3735 
A7AA 

17.3736 

07.3737 
07,37A0 
07,3201 
07  ,37A1 
07,37A2 
07  ,37A3 
37,37AA 
07,37A5 
07,37A6 
07, 37A7 


00030  1 

“ 77500  1 
77A77  0 
CCC7A  1 

3 130A  I 
0 0006  1 
1 37A5  0 
0 3732  1 
0 0006  1 
3 013A  1 
53'3C5  1 


eiTS3CA 

BITSAG6 

eiTSA-5 

IMUSEFLG 

-COMMAX 

-r.CMMAX- 

60CMS 

IMUFIN20 

GCMANUP 


+ 2 


= OCTIA 

= 0CT50 

OCT  00030 

ECUALS  BIT8 
DEC  -191 

CEC  -192 

DEC  60 

= IMUFINE 

CA  ATTCACP 

EXTEND 
BZF  +2 

TC  MOCABORT 

EXTEND 
CCA  BUF2 

DXCM  ATTCADR 


0633 

063A 

0635 


REF  A^ 
REF  21 
REF  6 


LAST  1292 
LAST  131A 
LAST  1323 


07,3750 

07>3751 

07,3752 


3 0006  1 
7 A757  1 
27»305  1 


CA  BBANK 

MASK  SFVEN 
ADS  ATTCADR  + 


06A2  REF  32  LAST  1107 
06A3  REF  2 LAST  23A 


07  ,3753  3 0167  1 

C7r375A  7 7730  C 


CA  PRIORITY 

MASK  PRIC37 


06AA  REF 


LAST  371  07,3755  55*306 


TS  ATTPRIO 


06A52 

06A53 

06A5A 

06A55 

06A56 


REF 

REF 

REF 

REF 

REF 


LAST  1316 
LAST-  1279 

LAST  A89 


C7,3756 

07,3757 

07.3760 

07.3761 

07.3762 


3 3762  1 
5A  C03  0 
0 A635  0 
AA004  0 
03275  1 


KALEBCCN 


CAF  KALEBCON 

TS  E6ANK 

TC  POSTJUMP 

CACR  KALCMAN3 

ECADR  BCDU 


17:53  OECo  19,1969  SKIPPER  olOl  PAGE  1323 
USER'S  PAGE  NO,  23  F3  SA 

INTERPRETER  SWITCH  7« 

IS  KALCMANU  FREE 

BAILOUT 

SAVE  FINAL  RETURN  FOR  KALCMAN3 


SAVE  USERS  PPIC 


SET  EBANK  FOR  KALCMAN3 
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R064B 
R0649 
R065n 
R0651 
R0652 
R0653 
R0654 
R0655 
R06  56 
R0657 
R06  58 
R0659 
R0660 
RC661 
R0662 
R0663 
R0664 
R0665 
R0666 
R0667 
R0668 
R0673 
R0674 
R0675 
R0676 
R0677 
R0678 

0679 

0680 

06B1 

0682 

0663 

0684 

0685 

0686 

0687 


PRCGRAM  06SCR1PTION 

IBU  STATUS  CHECK  RCUTINF  B02  (SUBROUTINE  UTILITYI 

MOD  NO  - 1 

MCC  BY  - NoBROCEUR 

FLNCTICKAL  DESCRIPTICN 

TC  CHECK  WFETI-ER  IMU  IS  ON  ANC  IF  ON  WHETHER  IT  IS  ALIGNED  TO  AN 
ORIENTATION  KNOWN  8Y  THE  CRCo  TC  REQUEST  SELECTION  OF  THE  APPROPRIATE 
PROGRAM  IF  THE  IMU  IS  OFF  CR  NOT  ALIGNED  TO  AN  ORIENTATION  KNOWN  BY  THE 
CBCo  CALLED  THROUGH  EANKCALL 
CALLING  SEQUENCE-  ' - 


L TC  BANKCALL 

L+1  CAOR  R02B0TH 

SUBROUTINES  CALLED 

VAKALAP.M 

FLAGUP 

NORMAL  EXIT  MODES 


AT  L+2  CF  CALLING  SEQUENCE 
ALARM  OR  ABORT  EXIT  MODES 
GGTOPOOH,  WITH  ALARM 
ERASABLE  I NI T I A L I Z ATI C N RECUIREC 


NCNE 
DEBR  I S 


CENTPALS-A,C,L 
REF  1 
REF  1 • 

REF  7 LAST  13C7 
PEF  20  LAST  1307 
REF  425  LAST  1322 
REF  I 


34,3650 

04,2000 

04,3232 

04.3232 

04.3233 

04.3234 
04,3225 
04,3236 


00063 
3 4737 
1 CC77 
1C  COO 
C 3247 


DEC51 

R02e0TH 


BANK  34 
SETLOC  R02 
BANK 

CCUNT*  $$/R02 
DEC  51 
CAF  REFSMBIT 
MASK  FLAGWPOa 
CCS  A 
TC  R02ZERC 


ZERO  IMUS 


0688  REF  67  LAST  1319 

0689  REF  30  LAST  1318 

069U 

0691 

0692  REF  50  LAST  1316 

0693  REF  1 

0694  REF  4 LAST  626 


C4,3237 

04.3240 

04.3241 

04.3242 
04,3  243 

04. 3244 

04.3245 


1277 

4743 

CCC6 

2244 

4750 

3252 

5734 


1 

1 

I 

1 

0 

1 

1 


CA  IMCDES30 

MASK  PIT9  IS  ISS  INITIALIZED 

EXTEND 

BZF  +2 

CS  eiT4  SEND  IMU  ALARM  CODE  210 

AD  OCT220  SEND  REFSMM  ALARM 

TC  VARALARM 


0695 

0700 


REF  63  LAST  977 
REF  71  LAST  1246 


04.3246  0 6C01  0 

04.3247  0 5504  0 


TC 

RC2ZER0  TC 


GOTCPOCH 

UPFLAG 
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17:53  OECo  19 


1Q69  SK  IPPFR  c 101 


PAGE  1325 


L I ^U  PCOE  SWITCHING  ROUTINES 


USER*  S PAGE  NCo 


E3  SA 


0701  REF  6 LAST  977 

0702  REF  9 LAST  1310 

07025 


CA,3250 

0^,3251 

04,3252 


C0C07 
1 ^£31 
00220 


0CT220 


0 

0 

1 


ACRES  IMUSE 
TCF  SURETURN 
OCT  220 
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L If-U  MODE  SUlTCf-ING  RCLTINES  USER'S  PAGE  NC*  26  E3  SA 

P0703  PROGRAM  DESCRIPTION  P06  1CFEB67 

R070A  TRANSFER  THE  ISS/CMC  FROM  THE  CFERATE  TO  THE  STANDBY  CONDITIONo 

R0705  THF  NORMAL  CCNDITICN  CF  R£ADI^ESS  CF  THE  6NCS  HI-EN  NCT  IN  USE  IS  STANDBYo  IN  THIS  CONDITION  THE  IMU 

R0707  HEATER  POWER  IS  ON®  THE  IMU  OPERATE  POWER  IS  OFF®  THE  COMPUTER  POWER  IS  ON®  THE  OPTICS  POWER  IS  OFF®  THE 

R07C9  CMC  STANDBY  ON  THE  MAIN  AND  LEE  CISKYS  IS  ON® 


R0710  CALLING 
R0711 


R0712  SLBRDLT 

R0713 

R0716 

R0719 


INES  CALLED: 
GOPERFl 
BANKCALL 
F LAGDCWN 
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L I RU  MCOE  S^,ITChING  PCUTINES 


USER'S  PAGE  NC«  27 


E3  S4 


P0810 

R0811 

R0812 


PRESTAND  PREPARES  FOR  STANDBY  BY  SNAPSHCTT 
TFE  LOW  5 BITS  OF  THE  SCALER  ARE  INSPECTED 
BETWEEN  THE  SCALER  READING  ANC  THE  TIMEl  T 


ING  THE  SCALER  ANC  TIRE)  TIMF2 
TO  INSURE  COMPATABILITY 
1ME2  REACINGo 


06125  REF 

06126 


27,20C0 

17,3652 


SETLCC  PC5P06 
BANK 


0813.  REF  2 LAST  99 

0814  REF  1 


0314 


EeANK=  T IME2SAV 
COUNT#  $J./P06 


08145  REF  72  LAST  1324 
08J46  REF  7 LAST  1203 


37.3652  C 5504  0 PT6 

37.3653  CCC54  C 


TC  UPFLAG 
ADRES  NCCCFLAG 


SET  NOOOV37  BIT 


0815 

0816 

0817  REF  33 

0818  REF  ‘3 

0819-  ref  1 

0820  REF  1 

0821  REF  797 

0822  REF  1 

0823 

0824  REF  302 

0825  REF  3 


LAST  1299 
LAST  1327 


LAST  1312 


LAST  1257 
LAST  178 


37.3655 

37. 3656 

37.3657 

37.3660 

27.3661 
37  ,3662 

37.3663 

37.3664 

37 .3665 

37.3666 


C 0004'  0 
0 0006  1 
3 0C25  C 
52  315  1 
0 3711  0 
C 3654  0 
52  155  1 
52  317  0 
C 0004  0 
0 4616  1 
1 7166  0 


PRESTAND  INHINT 
EXTEND 

DCA  TIME2 

OXCH  TIME2SAV 

TC  SCALOREP 

TC  PRESTAND 

CXCH  MPAC 

CXCH  SCALSAVe 

INHINT 

TC  BANKCALL 

CAOR  RNCBFFDR 


SNAPSHOT  T IMEIT IME2 


T1,T2, SCALER  NCT  CCPPATIBLE 
T1,T2  AND  SCALER  OK 
STORE  SCALER 


REFSMM,  DRIFT,  TRACK  FLAGS  DOWN 


0826  REF 

0827  REF 

08271  REF 

08272  REF 


99  LAST  1203 
7 LAST  1325 
100  LAST  1327 
7 last  831 


37,3667  0 5516 

37,3870  00007 

37.3671  0 5516 

37.3672  00010 


TC  DOWNFLAG 

ACRES  IMUSE  IMUSE  DOWN 

TC  DOWNFLAG 

ACRES  RNDVZFLG  RNDVZFLG  DOWN 


0626 

0829 

0630 


REF  29  LAST  1303 
REF  20  LAST  987 


37.3673  3 4741  1 

37.3674  C 0006  1 

37.3675  05  013  0 


CAF  BITll 

EXTEND 

WOR  CHAN13  SET  STANDBY  ENABLE  BIT 


0831  REF  112 

0832 

0833 

08335  REF  2 

0834  REF  I 

0834  REF  1 

0835  REF  1 

0636  RbF  303 

0837  REF  10 

0838 

0839 

0840 


LAST  1235 

LAST  1327 

LAST  1327 
LAST  966 


37.3676  C 5353  1 

37.3677  07024  9 

37.3700  20000  0 

0316 

37.3701  03731  1 

37,37C2  76060  0 

37.3703  2 4774  1 

37.3704  0 4616  1 

37.3705  2C624  0 

37.3706  1 3703  I 

37.3707  1 3703  1 

37,  3710  1 3703  1 


TC  PHASCHNG  S FT  RESTART  Tfl  PflSTAMD  WHEN  STANDBY 

nCT  C‘7024  RECOVERS 

OCT  20000 

E6ANK=  SCALSAVE 

2CADR  POSTAND 

CAF  0CT62 
TC  BANKCALL 

CADR  GOPERFl 
TCF  -3 

TCF  -4 

TCF  -5 


08405 

R0841 


REF  3 
THE  LOW 


LAST  604  4774  aCT62  EQUALS  e5SEC 

5 BITS  OF  THE  SCALER  READS  lOOOO  FCR  THE  FIRST  INTERVAL  AFTER 


DEC  50  = OCT  62 


GAP : 

L 

R0642 

R0843 

RO044 

R084d 

R0846 

R0847 

R0848 

R0e49 

R0850 

0851 

0852 

0853 

0854 

0855 

0856 

0857 

0858 

0859 

0860 

0861 

0862 

0863 

A0864 

A0865 

0666 

0867 

0868 

R0669 

R0870 

R0871 

R0e72 

R0873 

R0e74 

0875 

0876 

0877 

0878 

0879 

088^ 

0881 

0882 

0863 

0884 

0085 

0686 

0887 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021712-091 


17:53  OECo  19,1969  SKIPPER  .101  PAGE  1328 


IMU  MODE  SWITCHING  ROUTINES 


USER'S  PAGE  NCc  28  EO  S3 


T1  INCREMENTo  IF  SCALFREP  DETECTS  THIS  INTERVAL  THE  T1,T2  AND  SCALER 
DATA  ARE  NCT  COMPATA0LE  AND  RETURN  IS  TO  L+l  FCR  ANOTHER  READING  CF  THE 
DATA*  CTHERWISE,  THE  RETURN  IS  TG  L+2  TO  PROCEEOo  ROUTINE  ALSO  PREPARES 
THE  SCALER  READING  FCR  COMPUTATICN  OF  THE  INCREMENT  TO  UPDATE  T1T2*  (THE 
10  MS  PIT  (BIT  6)  OF  THE  SCALER  IS  INCREMENTED  5 OUT  OF  PHASE  FROM 
Tlol  ADCITICN  CF  5 MS  (BIT  5)  TC  THE  SCALER  READING  HAS  THE  EFFECT  OF 
ADJUSTING  BIT  6 IN  THE  SCALER  TC  BE  IN  PHASE  WITH  BIT  1 OF  T1 o THE  LPW  5 
BITS  OF  THE  SCALER  READING  APE  THEN  SET  TO  ZERO,  TO  TRUNCATE  THE  SCALER 
DATA  TO  10  MSa  RESULTS  ARE  STCRED  IN  MPAC,  *lo 


REF  7PP 
REF  3 

REF  799 
REF  42 
.REF  236 
REF  2?9 
REF  000 
REF  11 
REF  801 
REF  802 
REF  12 


REF  426 
REF  803 
REF  804 


LAST  1327 
LAST  383 


LAST  1328 
LAST  1309 
LAST  1315 
LAST  1322 
LAST  1328 
LAST  738 
LAST  1328 
LAST  1328 
LAST  1328 


LAST  1324 
LAST  1328 
LAST  1328 


37.3712 

37.3713 
37,  3714 
37  ,3715 

37.3716 

37.3717 
37  ,3720 

37.3721 

37.3722 

37.3723 

37.3724 

37.3725 


37 .3726 

37.3727 
37,3730 


C 0006  1 
22  156  0 
C 4103  1 
C 0003  1 
52  155  1 
3 4747  1 
54  001  1 

3 4755  1 
2C  155  1 

4 4346  0 
7 0155  1 
56  155  0 
7 4346  0 


10  000  0 
24  156  0 
0 0156  0 


SCALPREP  EXTEND 
QXCH 
TC 

RELINT 

DXCh 

CA 

TS 

CA 

DAS 

CS 

MASK 

XCH 

MASK 


CCS 
I NCR 
TC 


MPAC  +? 

FINETIME  +1 

MPAC 

BITS  ADO  5 MS  TO  THE  SCALER  READING, 

L 

ZERO 

MPAC 

LOWS  SET  LOW  5 BITS  OF  (SCALER+5MSI  TO  ZERO 

MPAC  +1  AND  STORE  RESULTS  IN  MPAC,  + 1^ 

MPAC  +1 

LOWS  TEST  LOW  5 PITS  CF  SCALER  FCR  THE  FIRST 

INTERVAL  AFTER  THE  T1  INCREMENT 
(NOW  = OOnoO,  SINCE  BIT  5 flCOEO, 

A IS  IT  1ST  INTERVAL  AFTER  T)  INCREMENT 

MPAC  +2  NO 

MPAC  *?  YES 


POSTANO  RECOVERS  TIME  AFTER  STANDBY* THE  SCALER  IS  SNAPSHOTTED  AND  THE 
TIME!  TIME2  COUNTER  IS  SET  TC  ZERO*  THE  LCW  5 BITS  OF  THE  SCALER  ARE 
INSPECTED  TC  INSURE  CCMPATABILITY  BETWEEN  THE  SCALER  READING  AND  THF 
CLEARING  OF  THE  TIME  COUNTER*  IT  THEN  COMPUTES  THE  DIFFERENCE  IN  SCALER 
VALLES  (IN  CP)  AND  ACCS  THIS  TO  THE  PREVIOUSLY  SNAPSHOTTED  VALUES  OF 
TIMEl  TIME2  AND  PLACES  THIS  NEW  TIME  INTC  THE  TIMEI  TIMe2  COUNTER* 


REF 


COUNT’*'  H/P05 


REF  30 
REF  21 

REF  240 
REF  237 
REF  ->4 
REF  2 
REF  2 

REF  3 
REF  805 


LAST  1327 
LAST  1327 

LAST  1328 
LAST  1328 
LAST  1327 
LAST  1327 
LAST  1327 

LAST  1327 
LAST  1328 


37.3732 

37.3733 

37.3734 

37. 3735 

37.3736 

37.3737 

37.3740 

37.3741 

37.3742 

37.3743 
37  ,3744 


4 4741 
0 0006 
0*  C13 
0 0004 
3 4755 
54  001 
52  025 
C 3711 
0 3734 

C n006 


4 0317 
20  155 


0 

1 

0 

0 

1 

1 

1 

0 

1 

1 

c 


POSTANC 


CS 

EXTEND 

WAND 

INHINT 

CA 

TS 

DXCH 


EXTEND 

DCS 

CAS 


6IT11 

CHAN13 

ZERO 

L 

TIME2 
SCALPREP 
POSTANO  +3 

SCALSAVE 

MPAC 


RECOVER  TIME  AFTER  STANDBY* 
CLEAR  STANOEY  ENABLE  PIT 


CLEAR  TIME1TIME2 
STORE  SCALER  IN  MPAC,  MPAC+1 
T1,T2, SCALER  NCT  CCMPATIBLE 
T\,T2  AND  SCALER  PK 

FORM  DP  DIFFERENCE  OF  POSTSTANDPY  SCALER 
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L IMU  MODE  SkvITCHING  ROUTINES 


USER'S  PAGE  NOe  29  EP  S3 


oeee 

0889 

0890 

0891 

0892 
0693 
089A 

0895 

0896 

0897 
089H 
089« 

0900 

0901 

0902 

0903 

0904 
09C45 
09046 


REF  46 
REF  11 
REF  241 
REF  806 
REF  16 
REF  807 
PEF  1 
REF  2 

REF  47 
REF  808 

REF  4 
REF  809 
REF  17 
REF  810 
REF  35 
REF  101 
REF  fi 


LAST  1316 
LAST  fi77 
LAST  1328 
LAST  1328 
LAST  1311 
LAST  1325 

LAST  1329 

LAST  1329 
LAST  1329 

LAST  1327 
LAST  1329 
LAST  1329 
LAST  1329 
LAST  1328 
LAST  1327 
LAST  1327 


37.3745 

37.3746 

37. 3747 
37,3750 
37,37-51 

37.3752 

37.3753 

37.3754 

37.3755 

37.3756 

37. 3757 

37.3760 

37.3761 

37.3762 
37  ,3763 

37.3764 

37.3765 

37.3766 

37.3767 


3 4742  1 
0 7312  n 
3 4755  1 
54  156  I 
0 7262  0 
1C  154  0 
0 3760  0 
C 3760  C 
C 3756  0 
3 4742  1 
26  154  0 
0 0006  1 
3 0315  0 
20  155  1 
0 7262  0 
52  155  1 
20  025  1 
0 5516  0 
C0C54  0 


POSTCOM 


CAF  BITIO 

TC  SHCRTMP 

CAF  ZERO 

TS  MPAC  +2 

TC  TPAGREE 

CCS  MPAC 

TC  POSTCOM 

TC  POSTCCM 

TC  +1 

CAF  BITIO 

ADS  MPAC 

EXTEND 

OCA  TIME2SAV 

DAS  MPAC 

TC  TPAGREE 

CXCH  MPAC 

DAS  TIME2 

TC  DOWNFLAG 

ADRES  NQDCFLAG 


MINUS  PRESTANDEY  SCALER  ANC  SHIFT  RIGHT 
5 TO  ALIGN  BITS  WITH  TIMElTIME2o 

NEEDED  FOR  TP  AGREE 
MAKE  DP  DIFF  AGREE 

IF  DP  DIFF  NET  +,  NC  SCALER  OVERFLOW 
EETWFEN  PRE  AND  POST  STANOBYo 
IF  CP  DIFF  NET  -,  SCALER  OVERFLOWED*  ADD 
BIT  10  TO  HIGH  DIFF  TO  CORRECT* 

C(MPAC,+1I  IS  MAGNITUDE  OF  DELTA  SCALER* 
PRESTANDBY  TIME1TIME2 

FORCE  SIGN  AGREEMENT 
UPDATED  VALUE  FOR  Ti,T2o 
LOAD  UPDATED  VALUE  INTC  T1,T2,  WITH 
CLFAR  NODOFLAG 


0905 


REF  64  LAST  1324 


37,3770 


6001  0 


TC  GOTOPOOH 


GAP : 

L 

0001 

0002 

0003 

OOOA 

0005 

0006 

0007 

0006 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0016 

0019 

0019 

002n 

0021 

0022 

0023 
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KEYRUPT,  UPRUPT 


USER’S  PAGE  NCe  1 EC  S3 


REF  1 


REF  ] 


14,3775 

04,2000 

04,3253 


BANK  14 
SETLOC  KEYPUPT 
BANK 

COUNT*  $5/KEYUP 


PEF  9 
PEF  356 
REF  0 
REF  2 
REF  13 

REF  2 
REF  6 
REF  29 
REF  1 
REF  30 


LAST  1123 
LAST  1319 
LAST  1123 
LAST  442 
LAST  1328 

LAST  220 
LAST  1292 
LAST  910 

LAST  1330 


04.3253  54  C16  1 

04.3254  56  C02  0 

04.3255  54  012  0 

04.3256  C 44C0  1 

04.3257  3 4346  1 

C4,3260  C 0006  I 
14,3261  02  015  1 

04  ,3262  54  073'  1 

04.3263  4 OlCl  C 

14.3264  7 4735  0 

04.3265  26  101  0 


KEVRUPT1  TS 
XCh 
TS 
TC 
CAP 

EXTEND 

RAND 

KEYCOM  TS 
CS 

MASK 

ACS 


BANKRUPT 

0 

QRUPT 

LODSAMFT 

LOWS 

MNKEYIN 
RUPTREG4 
F LAGWRD5 
OSKYFBI T 
FLAGWRC5 


TIMF  IS  SNATCHED  IN  RUPT  FOR  NOUN  65o 


CHECK  IF  KEYS  SM-IR  CN 


REF  6 
REF  2R 
REF  66 
REF  1 
REF  1 
REF  7 
REF  24 
REF  811 
REF  22 


LAST  1093 
LAST  1300 
LAST  462 


LAST  1330 
LAST  1320 
LAST  1329 
LAST  989 


04.3266  3 4355  0 

14.3267  0 5072  1 
0776 

04.3270  02077  0 

04.3271  60101  1 

04.3272  3 CC73  0 

14.3273  50  064  0 

C4,3274  54  154  0 

04,3275'  0 5270  1 


ACCEPTUP 


CAF  CHRPRIC 

TC  NOVAC 

EBANK=  OSPCCUNT 
2CADR  CHARIN' 


CA  RUPTREG4 

INDEX  LOCCTR 
TS  MPAC 

TC  RESUME 


(NCTE:  RUPTREG4  = KEYTBMPl) 


LEAVE  5 BIT  KFY  CDE  IN  MPAC  FDR  CHARIN 
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L KEYRLPT,  UPRLPT 


P0024  UPPUPT  PROGRAM 


0025 

REF 

10 

LAST 

1330 

■)4  ,3276 

54  016 

1 

UPRUPT 

BANKRUPT 

0026 

KEF 

357 

LAST 

1330 

34,3277 

56  002 

0 

XCH 

Q 

0027 

REF 

9 

LAST 

1331) 

74, 3300 

54  C12 

C 

TS 

QRLPT 

0028 

REF 

3 

LAST 

1330 

14  ,3301 

0 4400 

1 

TC 

LQDSAMPT 

0029 

REF 

2A2 

LAST 

1329 

0^,3302 

3 4755 

1 

CAF 

ZERC 

0030 

REF 

2 

LAST 

224 

14, 3303 

56  045 

0 

XCH 

I NLl NK 

0031 

REF 

2 

LAST 

156 

04,3304 

54  073 

1 

TS 

KEYTEMPl 

0032 

REF 

35 

LAST 

1277 

C4, 3305 

3 4751 

0 

CAF 

BI  T3 

0033 

14  ,3  3116 

• 0 0006 

1 

EXTEND 

003A 

REF 

3A 

LAST 

1319 

C4,33C7 

C5  Oil 

1 

WCR 

CSALMCUT 

003*^ 

REF 

lA 

LAST 

1330 

14, 3310 

3 4346 

1 

UPRPTl 

CAF 

LOUS 

0036 

REF 

3 

LAST 

1331 

14,3311 

7 0073 

1 

MASK 

KEYTEMPl 

0037 

' REF 

A 

LAST 

1331 

04,3312 

56  073 

0 

XCH 

KEYTEMPl 

003  8 

04,3313 

C 0006 

1 

EXTEND 

0039 

REF 

A8 

LAST 

1329 

04,331^ 

7 4 742 

0 

HP 

BITIO 

OOAD 

REF 

1 

14,3315 

54  332 

1 

TS 

KEYTEMP? 

OOAl 

REF 

15 

LAST 

1331 

0*»3316 

7 4346 

0 

MASK 

LOWS 

00A2 

REF 

1 

04,3317 

6 3353 

1 

AO 

HIIO 

00A3 

REF 

1 

04,3320 

0 3350 

1 

TC 

UPTEST 

COAA 

KEF 

A9 

LAST 

1331 

04  ,3321 

3 4742 

1 

CAF 

BITIO 

00A5 

04, 3322 

f 0C06 

] 

EXTEND 

OOA6 

REF 

2 

LAST 

1331  . 

0^,3323 

7 0332 

1 

MP 

KEYTEMP2 

00A7 

REF 

16 

LAST 

1331 

04,3324 

7 4346 

0 

MASK 

LOWS 

00A8 

04,3325 

4 QOOO 

0 

COM 

00A9 

REF 

2 

LAST 

1331 

04,3326 

C 3350 

1 

TC 

UPTEST 

0050 

REF 

1 

04,3327 

4 3356 

0 

UPCK 

CS 

ELRCCDF 

0051 

REF 

5 

LAST 

1?31 

14,3330 

6 0073 

0 

AO 

KE  YTE  MPl 

0052 

04,3331 

C 0006 

\ 

EXTEND 

0053 

REF 

1 

04,3332 

1 3340 

1 

BZF 

C LUPLCCK 

005^ 

REF 

04,3333 

3 4750 

1 

CAF 

UPLOCBI T 

0055 

REF 

26 

LAST 

891 

14,3334 

7 0103 

1 

MASK 

FLAGWRC7 

0056 

REF 

A27 

LAST 

1328 

)4,3335 

10  000 

0 

CCS 

A 

0057 

REF 

23 

LAST 

1330 

04,3J36 

0 5270 

1 

TC 

RESUME 

0058 

REF 

1 

C4,3337 

0 3266 

0 

TC 

ACCEPTUP 

005  9 

REF 

2 

LAST 

1331 

14,3340 

4 4750 

0 

CLUPLOCK 

CS 

UPLOCei T 

0060 

27 

LAST 

1331 

04,3341 

7 0103 

1 

MASK 

FLAGWPD7 

0061 

REF 

28 

LAST 

1331 

04, 3342 

54  1C3 

1 

TS 

F LAGWRD7 

0062 

REF 

2 

LAST 

1331 

04,3343 

0 3266 

0 

TC 

ACCEPTUP 

A0063 

006A 

KEF 

29 

LAST 

1331 

04,3344 

4 1103 

1 

TMFAI L2 

CS 

FLAGWRC7 

0065 

REF 

3 

LAST 

1331 

04  ,3345 

7 4750 

0 

MASK 

UPL0C8IT 

0066 

REF 

30 

LAST 

1331 

C4,3346 

26  1C3 

1 

ACS 

FLAGWRC7 

0067 

REF 

2A 

LAST 

1331 

04,3^47 

C 5270 

1 

TC 

RESUME 

0069 

REF 

6 

LAST 

1331 

04,3350 

6 0073 

0 

UPTEST 

AC 

KEYTEMPl 

17:=3  DECo  19,1969  SKIPPER  dOl  PAGE  1331 


USER  •$  PAGE  NOe  2 EO  S3 


TIME  IS  SNATCHED  IN  RUPT  FCP  NOUN  65.^ 


TURN  ON  UPACT  LIGHT 
(BIT  3 OF  CHANNEL  11 ) 

TEST  FOR  TRIPLE  CHAR  REDUNDANCY 

LOWS  OF  WORD 

LOWS  INTO  KEYTEMPl 

SHIFT  R IGHT  5 

MID  5 


SHIFT  RIGHT  ? 
HIGH  5 


CODE  IS  GOODc  IF  CODE  = 'ERROR  RESET', 
CLEAR  UPLOCKFLISET  PITA  CF  FLAGWR07  = 0» 
IF  CODE  DOES  NOT  = 'ERROR  RESET*,  ACCEPT 
CODE  ONLY  IF  UPLOCKFL  IS  CLEAR  (=0)s 


TEST  UPLOCKFL  FOR  C CR  1 


UPLOCKFL  = 1 
UPLCCKFL  = 0 


CLEAR  UPLCCKFL  (loEopSET  PIT  A OF  I 
FLAGWR07  = 0} 


CODE  IS  BAD 

LOCK  OUT  FURTHER  UPLINK  ACTIVITY 
(BY  SETTING  UPLOCKFL  = 1)  UNTIL 
•ERROR  RESET*  IS  SENT  VIA  UPL  INKo 
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L KEYRUPT,  UPRUPT 


USER'S  PAGE  NOc  3 EO  S3 


0070  REF  ^28 

0071  REP  1 

0072 

0073  REF  2 

0074  REF  358 


LAST  1331 

LAST  1332 
LAST  1331 


04.3351  1C  COO  0 

04.3352  C 3344  I 

04,  3353  77740  1 

04.3354  0 3344  I 

34.3355  C 0002  0 


CCS  A 

TC  TMFAIL2 

nCT  77740 
TC  TMFAIL2 

TC  0 


0075 


14,3356  00022 


ELRCODE  OCT  22 


R0076 
R0077 
R0078 
R 0079 


• LPLINK 


ACTIVITY  LIGHT'  IS  TURNED  CFF  BY  ooooo 
lo  VBRELDSP 

2«  ERPCR  RESET 

3,  UPDATE  PRCGRAN(P27)  ENTERED  BY  V70 , V71 , V7 ? , AND  V73o 


R0080 

R0081  THE  RECEPTICN  CF  A BAD  CCCEIUE  CCC  FAILURE!  LOCKS  OUT  FURTHER  UPLINK  ACTIVITY  BY  SETTING  BIT4  CF  FLAGWPD7  = 
R0083  THIS  INDICATION  liILL  BE  TRANSFERRED  TO  THE  GRCUNC  BY  THE  DOWNLINK  WHICH  DOWNLINKS  ALL  FLAGWORDSe 

R0085  WHEN  UPLINK  ACTIVITY  IS  LOCKED  OUT  ,IT  CAN  BE  ALLOWED  WHEN  THE  GROUND  UPLINKS  AND  'ERRCR  RESET*  COCEo 

R0087  (IT  IS  RECOMMENDED  THAT  THE  'ERROR  LIGHT  RESET*  CODE  IS  PRECEEOED  BY  16  BITS  THE  FIRST  OF  WHICH  IS  1 FOLLOWED 

R0089  BY  15  ZEROES®  THIS  WILL  ELIMINATE  EXTRANEOUS  BITS  FROM  INLINK  WHICH  ‘MAY  HAVE  BEEN  LEFT  OVER  FROM  THE  ORIGINAL 

R0091  FAILURE) 

R0092  UPLINK  ACTIVITY  IS  ALSO  A LLO WED ( UNLOC KED I CURING  FRESH  START  WHEN  FRFSH  START  SETS  BIT4  GF  FLA6WRD7  = Oo 
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ROOOl  DISPLAYS  CAN  BE  CLASSIFIED  IMC  THE  FCLLC^^1^G  CATEGCRIES- 

ThESE  DISPLAYS  ARE  SENT 

VEPP  (MARK  ) DISPLAYS.. 
DURING  THE  NORMAL 

INCLUDE  SUCH  DISPLAYS  AS 


A RESPONSE  OR 

R0017  (2)  WAITING  FIRST  IN  LINE  FOR  THE  ASTRONAUT  TO  FINISH  USING  THE  OSKY  OR  (3»  BEING  DISPLAYED  ON  THE  OSKY 

R0019  BUT  NOT  WAITING  FOR  A PESPCNSEo 

R0020  2,  INACTIVE  -A  DISPLAY  WHICH  HAS  «1>  BEEN  ACTIVE  BUT  WAS  I NT  ERRU  PT  E C BY  A DISPLAY  OF  HIGHER  PRIORITY, 

R0022  (2)  BEEN  PUT  INTO  THE  WAITING  LIST  AT  TIME  IT  WAS  REQUESTED  DUE  TO  THE  FACT  A HIGHER  PRIORITY  DISPLAY 

R0024  WAS  ALREADY  GCING,  (31  BEEN  INTERRUPTED  BY  THE  ASTRONAUT  (CALLED  A PINBRANCH  CONDITION,  SINCE  THIS  TYPE 

R0026  OF  INACTIVE  DISPLAY  IS  USUALLY  REACTIVATED  ONLY  BY  PINBALL)  CP  (4)  A DISPLAY  WHICH  HAS  FINISHED  BUT  STILL 

R002B  HAS  INFO  SAVED  FOR  RESTART  PURPOSESe 


R0029  DISPLAY  PRIORITIES  WCRK  AS  FCLLCWS- 
R0030  INTERRUPTS- 

R0031  lo  THE  ASTRONAUT  CAN  INTERRUPT  ANY  DISPLAY  WITH  AN  EXTERNAL  DISPLAY  REOlESTo 

R0033  P.o  INTERNAL  DISPLAYS  CAN  NOT  BE  SENT  CUT  WHEN  THE  ASTRONAUT  IS  USING  THE  DSKY: 

Rn035  3o  PRIORITY  DISPLAYS  INTERRUPT  ALL  OTHER  TYPES  OF  INTERNAL  OISPLAYSe  A PRIORITY  DISPLAY  INTERRUPTING  ANOTHER 

R0037  PRIORITY  DISPLAY  WILL  CAUSE  AN  ABORT  UNLESS  BIT14  IS  SET  FOR  THE  LINUS  ROUTINEe 

R0039  4c  A MARK  DISPLAY  INTERRLPTS  ANY  NORMAL  DISPLAY,, 

R0040  5o  A MARK  THAT  INTERRUPTS  A MARK  COMPLETELY  REPLACES  ITo 


ft004l  ORDER  OF  WAITING  DISPLAYS- 

R0042  lo  ASTRONAUT  EXTERNAL  USE 

R0043  2o  PRIORITY 

R0044  3o  INTERRUPTED  MARK 

R0045  4o  INTERRUPTED  NORMAL 


R0046  5o  MARK  TO  BE  REQUESTED  (SEE  OESCRIPTICN  OF  ENOMAPK) 

R0047  6o  MARK  WAITING 

R004B  lo  NORMAL  WAITINC- 


ROOO? 

R0004 

R0005 

R0007 

R0CC9 

ROOlO 

R0012 


PRIORITY  DISPLAYS-  DISPLAYS  WHICH  TAKE  PRIORITY  OVER  ALL  CTHER  DISPLAYS®  USUALLY 
OLT  UNDER  CRITICAL  AL.ARM  CCNDITIONSo 

EXTENDED  VERB  DISPLAYS-  ALL  EXTENDED  VERBS  AND  MARK  ROUTINES  SHOULD  USE  EXTENDED 
NCRMAL  DISPLAYS-  ALL  MISSION  PROGRAM  DISPLAYS  WHICH  INTERFACE  WITH  THE  ASTRONAUT 
SEQUENCE  OF  EVENTS* 

MISC®  DISPLAYS-  ALL  DISPLAYS  NOT  HANDLED  BY  THE  DISPLAY  I N TERF A C ER CUT  IN E So  THESE 
MM  DISPLAYS  AND  SPECIAL  PURPOSE  DISPLAYS  HANDLED  BY  PINBALL* 


lo  ACTIVE-7HE  DISPLAY  WHICH  IS  (II  BEING  DISPLAYED  TO  THE  ASTRONAUT  AND  WAITING  FOR 


GAP 
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P0a^9  TFE  DISPLAY  ROUTINES  ARE  INTENDED  TO  SERVE  AS  AN  INTERFACE  BETREEN  THE  USER  AND  PINBALLo  THE 

R0051  FCLLCWING  STATEMENTS  CAN  BE  MACE  ABCUT  NORMAL  DISPLAYS  AND  PRIORITY  DISPLAYS  (A  DESCRIPTION  CF  MARK  ROUTINES 

R0053  WILL  FOLLOW  LATER): 


R005A 
R0056 
R005  8 
R0059 
R0061 
R0063 
R0065 
R0066 
R0n67 
R0069 
R0070 
R0O72 
R0074 
R0075 


le  ALL  ROUTINES  THAT  END  IN  R HAVE  AN  IMMEDIATE  RETURN  TO  THE  USERo  FOR  ALL  FLASHING  DISPLAYS  THIS  RETURN 
IS  TO  THE  USERS  CALL  CAOR  FOR  THE  ONLY  NON  FLASHING  IMMEDIATE  RETURN  DISPLAY  (GODSPR)  THIS  RETURN 

IS  TO  THE  USERS  CALLING  LOC  +lo 

2«,  ALL  RCUTINES  NOT  ENDING  IN  R DO  NOT  DO  AN  IMMEDIATE  RETURN  TO  THE  USERo 

3o  ALL  ROUTINES  THAT  END  IN  R START  A SEPARATE  JOB  (MAKEPLAY)  WITH  USERS  JOB  PPIORITYo 

ALL  ROUTINES  NOT  ENDING  IN  R BRANCH  DIRECTLY  TO  MAKEPLAY  WHICH  MAKES  THESE  DISPLAYS  A PART  OF  THE 

LSERS  JOB# 

5o  ALL  DISPLAY  ROUTINES  ARE  CALLED  VIA  BANKCALLo 

6o  TO  RESTART  A DISPLAY  THE  USER  WILL  GENERALLY  USE  A PHASE  CF  ONE  WITH  OFSIRED  RESTART  GROUP  (SEE 
DESCRIPTION  CF  RESTARTS)# 

,7o  all  FLASHING  DISPLAYS  HAVE  3 RETURN’S  TC  THE  USER  FRCM  ASTRONAUT  RESPONSES#  A TERMINATE  (V34I  BRANCHES 

TO  THE  USERS  CALL  CACR  +1#  A PROCEED  (V33)  BRANCHES  TO  THE  USERS  CALL  CAOR  +2c  AN  ENTER  OR  RECYCLE 

(V22)  BRANCHES  TC  THE  LSERS  CALL  CACR  +3, 

8o  ALL  ROUTINES  MUST  BE  USED  UNDER  EXECUTIVE  CONTROL# 


R0076 


A DESCRIPTION  OF  EACH  RCUTINE  WITH  AN  EXAMPLE  FOLLOWS: 


R0077  GOOSP  IS  USED  TO  DISPLAY  A VERB  NOUN  ARRIVING  IN  A#  NO  RETURN  IS  MADE  TC  THE  USER# 


R0079 

Roneo 

A0081 

A0082 

a6083 

A0084 

R0085 


CAF 

TC 

CADR 

VXXNYY  OCT 

GODSPR  IS  THE  SAME  AS  GOOSP  CNLY  RETURN  IS  TO  THE  USER# 


VXXNYY 

8ANKCALL 

GOCSP 


A0086 

AOO07 

A0088 


CAF 

TC 

CACR 


VXXNYY 
BANKC ALL 
GODSPR 


IMMEDIATE  RETURN  CF  GODSPR 


A0093 

A0094 

A0095 

A0096 

A0097 

A0098 


CAF 

TC 

CAOR 


VXXNYY 

BANKCALL 

GCFLASH 


VXX  NYY  WILL  BE  A FLASHING  VERB  NOUNo 


TERMINATE  RETURN 

PROCEED  RETURN 

ENTER  OP  RECYCLE  RETURN 


GCPERFl  IS  ENTERED  WITH  DESIRED  CHECKLIST  VALUE  IN  A#  GOPERFl  WILL  DISPLAY  THIS  VALUE  IN  R1  BY  MEANS  OF  A 
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L DISPLAY  INTEKFACF  ROUTINES  USER'S  PAGE  NOo  3 EC  S3 

ROlOl  VOl  N25dA  FLASHING  PLEASE  PERFORM  ON  CHECKLIST  ( V50  N25I  IS  THEN  OISPLAYEDo  NO  IMPFDIATE  RETURN  IS  MACE  TO 
R0103  USER  (SEE  NOo  7 ABCVElo 


ROIO^ 


GCPERFl  BLANKS  REGISTERS  R2  AND  R3 


A0105 
A0106 
A0107 
AOlOe 
AO  109 

Aono 


CAF  OCTXX  CODE  FOR  CHECKLIST  VALUE  XX 

TC  BANKCALL 

CACR  GOPEPFl 

eoo  eoo  TERMINATE  RETURN 

ooo  ooo  PROCEED  RETURN 

000  ooo  ENTER  RETURN 


ROlll  G0PERF2  IS  ENTERED  WITH  A VARIABLE  NCUN  AND  VOl  ( VOO  FOR  MO  OR  Nil)  IN  Ao  G0PERF2  WILL  FIRST  DISPLAY  THE 

R0113  REQUESTED  NOUN  BY  MEANS  OF  A VCINYY  OR  A VOONYY,  PLEASE  PERFORM  CN  NOUN  (V5P  NYY)  THEN  BECOMES  A FLASHING 

R0115  DISPLAY,  KC  IMMEDIATE  RETURN  IS  MADE  TO  THE  USER  (SEE  NO,  7 ABOVE), 


R0116 


GCPERF2  DOES  NOT  BLANK 


ANY  REGISTERS 


A0U7 

A0118 

A0119 

A0120 

A0121 

A0122 


CAF  VXXNYY  VARIABLE  NCUN  YY,  XX=00  OR  01. 

TC  BANKCALL 

CACR  G0PERF2 

,0,  e,o  TERMINATE  RETURN 

,,,  ,,,  PROCEED  RETURN 

ooo  ENTER  RETURN 


R0123 

01 


R0127 


GCPERF3  IS  USED  FOR  A PLEASE 
DISPLAYS  THE  NO,  BY  MEANS  OF 
IS  MACE  TO  THE  USER  (SEE  NO, 


PERFORM  ON  A PROGRAM  NUMBER,  THE  DESIRED  PROGRAM  NO,  IS  ENTERED  IN  A,  G0PERF3 
A V06  NOT  FCLLCWED  BY  A FLASHING  V50  N07  FOR  A PLEASE  PERFORM,  NO  IMMEDIATE  RETURN 
7 ABOVE), 


R0I28 


G0PERF3  BLANKS  REGISTERS 


R2  ANC  R3 


A0129 

AOlsn 

A0131 

A0132 

A0133 

A0134 


CAF  DECXX  REQUEST  PERFORM  ON  PXX 

TC  BANKCALL 

CACR  G0PERF3 

,o,  ,e,  TERMINATE  RETURN 

PROCEED  RETURN 

,,,  coo  ENTER  RETURN 


R0135  GCPERF4  IS  USED  FOR  A PLEASE  PERFORM  ON  AN  OPTION,  THE  DESIRED  OPTION  ISENTEREO  IN  A AND  STORED  IN  CPTIONl, 

R0137  GCPERFA  DISPLAYS  Rl  AND  R2  BY  MEANS  OF  A V0AN06  FOLLOWED  BY  A FLASHING  V50N06  FOR  A PLEASF  PERFORM,  NO 

R0139  IMMECIATE  RETURN  IS  MADE  TC  THE  LSER  (SEE  NC.  7 ABCVE), 


AOIAO 
AOlAl 
A0142 
A 01 43 
A0144 
AO  145 


CAF  OCTXX  REQUEST  PERFORM  ON  CPTICN  XX 

TC  BANKCALL 

CADR  G0PERF4 

0,0  ,,,  TERMINATE  RETURN 

,00  60,  PROCEED  RETURN 

ooo  000  ENTER  RETURN 


R0146  GCPERF4  BLANKS  REGISTER  R3 
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A015n 

A0151 

A0152 


CAF  VXXNYY 

TC  BANKCALL 

CACR  GOCSPRFT 


A0153 


RETURN  TC  USER 


R01-5A  REGOOSP  IS  USED  TO  DISPLAY  A VERB  NCUN  ARRIVING  IN  A*  REGODSP  IS  THE  SAME  AS  GOOSP  ONLY  REG0D5P  REPLACES  ANY 
R0156  ACTIVE  NORMAL  DISPLAY  IF  ONE  V.AS  ACTIVE* 


A0157 

A015ft 

A0159 


CAF  VXXNYY 

TC  BANKCALL 

CACR  REGOOSP 


R0160 


REFLASH  IS  THE  SAME  AS 


GOFLASF  CNLY  REFLASh  REPLACES  ANY  ACTIVE  NORMAL  DISPLAY  IF  ONE  KAS  ACTIVE* 


A0162 

A0163 

A016A 

A0165 

A0166 

A0167 


CAF  VXXNYY  VXX  NYY  WILL  BE  A FLASHING  VERB  NOUN 

TC  BANKCALL 

CADR  REFLASH 

***  *0*  TERMINATE  RETURN 

,*o  00*  PRCCEFD  RETURN 

•eo  0*0  ENTER  RETURN 


R0168 


C-OFLASHR  IS  SAME  AS  GOFIASH  ONLY  AN  IMMEDIATE  RETURN  IS 


MADE  TC  THE  USERS  CALL  CACR  +A* 


A 01 70 
A0171 
A0172 
‘AC173 
A017<» 
A0175 


CAF  VXXNYY 

TC  BANKCALL 

CADR  GOFLASHR 

*e*  **♦  TERMINATE  RETURN 

000  ooo  PROCEED  RETURN 

ooo  coo  ENTER  OR  RECYCLE  RETURN 


A0176 


IMMEDIATE  PFTURN  FROM  GOFLASHR 


R0177  G0P6RF1R  IS  THE  SAME  AS  GOPERFl  ONLY  GOPERFIR  HAS  AN  IMMEDIATE  RETLRN  TOUSERS  CALL  CADR  +Ao 
R017Q  GCPERFIR  ELANKS  REGISTERS  R2  ANC  R3 


A0180 

A0183 

A0182 

A0183 

A0184 

A0185 


CAF  CCTXX  CODE  FOR  CHECKLIST  VALUE  XX* 

TC  BANKCALL 

CACR  GOPERFIR 

00*  ooo  TERMINATE  RETURN 

e«o  ooo  PROCEED  RETURN 

ooo  «oo  ENTER  RETURN 


A0186 


IMMEDIATE  RETURN  FRCM  GOPERFIR 


ROie?  GCPERF2R  IS  THE  SAME  AS  GCPEFF2  CNLY  AN  IMMEDIATE  RETURN  IS  MACE  TO  USERS  CALL  CADR  +4* 
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GCPERF2R  COES  NOT  BLANK  ANY  REGISTERS 


A 01  92 
A0193 
A0194 
AC195 


CAF  VXXNYY  VARIABLE  NOUN  YY  REQUESTED^  XX=00  OR  01 

Tf.  BANKCALL 

CACR  G0PERF2R 

«oc  oco  TERMINATE  RETURN 

eoo  PROCEED  RETURN 

09*  ooo  ENTER  RETURN 

<,00  ooo  IMMEDIATE  RETURN  HERE  FROM  GOPEPFZR 


R0197  G0PERF3R  IS  THE  SANE  AS  G0PERF3  ONLY  AN  IMMEDIATE  RETURN  IS  MADE  TC  USERS  CALL  CAQR  +4«, 
R0199  6CPERF3R  BLANKS  REGISTERS  R2  ANC  R3 


A0200 

AC201 

A0202 

A0203 

A0204 

A0205 


CAF  PRCGXX  PERFORM  PRCGRAN  XX 

TC  BANKCALL 

CACR  G0PERF3R 

ooo  ««♦  TERMINATE  RETURN 

ooe  o««  PROCEED  RETURN 

ooo  0*0  ENTER  RETURN 


An2  06 


G0PERF3R  IMMEDIATELY  RETURNS  HERE 


GOPERFAR  IS  THE  SAME  AS  GOPERFA  ONLY  AN  IMMEDIATE  RETURN  IS  MACE  TO  USERS  CALL  CAOR 


A0209 

A0210 

A0211 

A0212 

A0213 

A021A 


CAF  OCTXX  RFOUEST  PERFORM  ON  CPTICNXX 

TC  BANKCALL 

CACR  G0PERF4R 

ooo  ooo  TERMINATE  RETURN 

ooo  ooo  PROCEED  RETURN 

ENTER  RETURN 


A0215 


IMMEDIATE  RETURN  TC  USER 


R0216  GOPERFAR  BLANKS  REGISTER  R3 

R0217  REFLASHR  IS  THE  SAME  AS  REFLASH  ONLY  AN  IMMEDIATE  RETURN  IS  MADE  TO  THE  USERS  CALL  CAOR  +4, 


A0219 

A0220 

A0221 

A0222 

A0223 

A0224 


CAF  VXXNYY  VXX  NYY  UILL  BE  A FLASHING  VERB  NOUN 

TC  BANKCALL 

CAOR  REFLASHR 

ooo  ooo  TERMINATE  RETURN 

ooo  ooo  PROCEED  RETURN 

ooo  ooo  ENTER  RETURN 


A0225 


IMMEDIATE  RETURN  TO  USER 


R0226  REGODSPR  IS  THE  SAME  AS  REGOCSP  ONLY  A RETURN  (IMMEOIATEI  IS  MADE  TC  THE  USER* 
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A0228 

A0229 

A0230 


CAF  VXXNYY 

TC  BANKCALL 

CADR  REGOCSPR 


IMMEDIATE  PFTURN  TC  USEP 
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P0232 

R023A 

A0235 

A0236 

A0237 

R023R 

R C239 


DISPLAY  INTERFACE  ROUTINES  USER'S  PAGE  NO® 

GCMARK  IS  USED  TO  DISPLAY  A MARK  VERB  NOUN  ARRIVING  IN  A®  NO  RETURN  IS  MADE  TO  THF  USER® 


GCXOSP  = GOMARK 

CAF 
TC 
CACR 

GCMARKR  IS  THE  SAME  AS  GCMARK  CNLY  RETURN  IS  TO  THE  USER® 
GOXDSPR  = GOMARKR 


VXXNYY 

BANKCALL 

GCMARK 


VXXNYY  CONTAINS  VERB  AND  NOUN 
OTHER  EXTENDED  VERBS  USE  CADR  GOXDSP 


A02A0 

A02AI 

A02A2 


CAF  VXXNYY 

TC  BANKCALL 

CACR  GOMARKR  OTHER  EXTENDED  VERBS  USE  CADR  GOXDSPR 


A02i3 


IMMEDIATE  RETURN  OF  GCMARKR 


R02AA  GOMARKF  DISPLAYS  A FLASHING  MARK  VERB  NCUN  WITH  NO  IMMEDIATE  RETURN  TO  THE  USER®  3 RETURNS  ARE  POSSIBLE  FROM 
R0246  THE  ASTRONAUT  (SEE  NO®  7 ABOVE  )a 

R02A7  GCXCSFF  = GCMARKF 


A02A8 
A02^9 
A0250 
A0251 
A02  52 
A0253 


CAF  VXXNYY  VXXNYY  WILL  BE  A FLASHING  MARK  VERB  NOUN 

TC  BANKCALL 

CACR  • GOMARKF  OTHER  EXTENDED  VERBS  USE  CADR  GCXOSPF 

ooo  a®,  TERMINATE  RETURN 

00®  eo®  PROCEED  RETURN 

•®,  ®e®  ENTER  OR  RECYCLE  RETURN 


R025A 


GOMARKFR  IS  THE  SAME  AS  GOMARKF  ONL 


AN  IMMEDIATE  RETURN  IS  MADE  TO  THE  USER  CALL  CADR  +^® 


R0256 


GCXOSFFR  = GOMARKFR 


A0257 

A0258 

A0259 

A0260 

A0261 

A0262 


CAF  VXXNYY  FLASHING  MARK  VERB  NOUN 

TC  BANKCALL 

CACR  GOMARKFR  OTHER  EXTENDED  VERBS  USE  CADR  GOXOSPFR 

«oc.  ®o»  TERMINATE  RETURN 

®o«  ®«o  PROCEED  RETURN 

oo®  ®®o  ENTER  OR  RECYCLE  RETURN 


A0263 


IMMEDIATE  RETURN  TO  THE  USER 


R0264  GCMARKl  IS  USED  FOR  A PLEASE  FERFCRM  ON  A MARK  REQUEST  WITH  ONLY  1 ASTRONAUT  RETURN  TO  THE  USER®  NC  IMMEDIATE 

R0266  RETURN  IS  MADE®  THE  DESIRED  MARK  PLEASE  PERFORM  VERB  AND  DESIRED  NOUN  ISENTEREO  IN  Ac  GOMARKl  DISPLAYS  Rl,  R2, 

R026b  MEANS  OF  A V05NYY  FOLLOWED  BY  A FLASHING  V5XNYY  FOR  A PLEASE  PERFORM®  THE  ASTRONAUT  WILL  RESPOND  WITH  A MARK 

R0270  OR  MARK  REJECT  OP  AN  ENTER®  THE  ENTER  IS  THE  ONLY  ASTRONAUT  RESPONSE  THAT  WILL  COME  BACK  TO  THE  USER® 


A0272 
A 02  73 


CAF 

TC 


V5  XNYY 
BANKCALL 


X=1  ,2,3,4  Y=  NOUN 


gap:  assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:5?  DEC#  19,196' 


SKIPPER  cini  PAGE  1390 


DISPLAY  INTERFACE  RCUTIKES 


USER'S  PAGE  NOo 


A0279 

A0275 

R0276 


ENTER  RETURN 


IF  BLANKING  DESIRED  ON  NCA  P ROUTINES,  NOTIFY  CISPLAYER# 


R0277 
A0279 
A02  80 
A0281 


6ANKCALL 

GOMARKIR 


R02  89 
90266 
A0287 
A0268 
A0289 
A02  90 
A0291 
R0292 


TC 

CACR 


BANKCALL 

G0MAPK2 


#00  oeo  TERMINATE  RETURN 

ooo  ooo  PROCEED  RETURN 

e«o  000  ENTER  RETURN 

G0MARK2R  IS  THE  SAME  AS  GOMARKIR  ONLY  3 ASTRONAUT  RETURNS  APE  MACE  TC  THE  USER# 


A 02  9^ 
A0295 
A0296 
A0297 
AO290 
A0299 


CAF  V5XNYY 

TC  BANKCALL 

CADR  G0MARK2R 


X=0,l,2,3,9  YY=NCUN 


TERMINATE  RETURN 
PROCEED  RETURN 
ENTER  RETURN 


A0300 


IMMEDIATE  RETURN  TO  THE  USER 


R0301 

R0303 

R0305 


G0MARK3  IS  USED  FOR  A PLEASE  PERFORM 
PERFORM  VERB  AND  NCUN  ARE  ENTERED  IN 
V5XNYY  FOR  A PLEASE  PERFORMj  GCMAPK3 


ON  A MARK  REQUEST  WITH  A 3 CCMPe  DEC  DTSPLAY#  THE  CESIPED  MARK  PLEASE 
A.  G0MARK3  DISPLAYS  Rl,  R2,  R3  BY  MEANS  OF  A Vn6NYY  FCLLCWED  BY  A FLASHING 
HAS  3 ASTRONAUT  RETURNS  TO  THE  USER  WITH  NO  IMMEDIATE  RETURN^ 


A0307 

A0308 

A030«» 

A0310 

A0311 

A0312 


CAF  V5XNYY  X=] , 2,3,9  YY=NCUN 

TC  BANKCALL 

CADR  G0MARK3 

o«o  000  TERMINATE  RETURN 

PROCEED  RETURN 

ooe  oo«  ENTER  RETURN 


R0313 


GCMARK9  IS  THE  SAME  AS  G0MARK3  CNLY  R2  AND  R3  ARE  BLANKED  AND  Rl  IS  DISPLAYED 


IN  OCTAL# 


A0315 

A0316 

AC317 

A0318 

A0319 


CAF  V5XNYY  X=l,2,3,9  YY^NOUN 

TC  BANKCALL 

CADR  G0MARK9 

ooo  «o«  TERMINATE  RETURN 

ooo  ooo  PROCEED  RETURN 
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DISPLAY  INTERFACE  ROLTINES 


USER  'S  PAGF  NCq 
ENTER  RETURN 


A0324 

A0325 

A0326 


CAF  VXXNYY 

TC  BANKCALL 

CADR  EXCSPRET 


RETURN  TC  USER 


A0333 

R033^ 


•«»  oo«  RETURN  TO  USER 

MARKBRAN  IS  A SPECIAL  PURPOSE  ROUTINE  USED  FOR  SAVING  JOB  VAC  AREAS  (SEE  DESCRIPTION  OF  MARKBRAN  BELOWlo 


BAD  RETURN  IF  MARK  DISPLAY  NOT  ACTIVE 


R0349 

R0351 

R0352 


THE  MAIN  PURPOSE  OF  PRICOSF  IS  TC  REPLACE  THE  PRESENT  DISPLAY  WITH  A DISPLAY  OF  HIGHER  PRIORITY  AND  TO 
PROVIDE  A MEANS  FCR  RESTORING  TFE  OLD  DISPLAY  WHEN  THE  PRIORITY  DISPLAY 
IS  RESPONDED  TO  BY  THE  ASTRCNALTo 


R0353  THE  FORMER  DISPLAY  IS  RESTORED  BY  AN  AUTOMATIC  BRANCH  TC  WAKE  UP  THE  DISPLAY  THAT  WAS  INTERRUPTED  BY  THE 

R0355  PRIO  01 SPLAYo 


A0356 

A0357 

A035e 

A0359 

A0360 


CAF  VXXNYY  VXXNYY  WILL  BE  A FLASHING  VERB  NOUN 

TC  BANKCALL 

CACR  PRIOOSP 

ooe  oc«  TERMINATE  RETURN 

ooo  oeo  PROCEED  RETURN 
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GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L DISPLAY  INTERFACE  RCLTINES 

A0361  9««  e«o 


USER'S  PAGE  NOe  If 
ENTER  OR  RECYCLE  RETURN 


EO  S3 


PRICOSPR  IS  THE  SAME  AS  PRIOOSFCNLY  AN  IMMEDIATE  RETURN  IS  MADE  TO  THE  USERS  CALL  CADR  +4, 


A0364 

A0365 

A0366 

A0367 

A0368 

A0369 


CAF  VXXNYY  VXXNYY  WILL  BE  A FLASHING  VERB  NOUN 

TC  BANKCALL 

CADR  PRIODSPP 

oo«  TERMINATE  RETURN 

eo«  PROCEED  RETURN 

o«e  ««o  ENTER  OR  RECYCLE  RETURN 


A0370 


IMMEDIATE  RETURN 


R0371  PRICLARM  DOES  A V05N09  PRICOSPR* 

R0372  CLEANDSP  CLEANS  OLT  ALL  NORMAL  DISPLAYS  (ACTIVE  AND  INACTIVE)*  A RETURN  IS  MADE  TO  THE  USER  AFTER  NORMAL 
R0374  DISPLAYS  ARE  CLEANED  OUT* 


TC  BANKCALL 

CADR  CLEANDSP 


A0377 


RETURN  TC  USER 


gap:  assemble  revision  131  OF  ACC  PPCGPAP  LUMINARY  8Y  NASA  2021112-0^1 

L DISPLAY  INTERFACE  ROUTINES 

P0378  GENERAL  INFCRNATICN 
R0379  


17:53  OECo  19,1969  SKIPPER  o 101 
USER'S  PAGE  NO*  11 


PAGE  13^3 
EO  S3 


R0380  ALARM  OR  ABORT  EXIT  MODES — 


PRIOBORT  TC  ABORT 

CCT  1502 


R0383 

R0385 

R0367 


PRIOBCRT  IS  BRANCEC  TO  WHEN  ID  A NORMAL  0 
(REFLASH  AND  REGODSP  ARE  EXCEPTIONS)  OR  (2) 
ALREADY  ACTIVE  (A  PRIORITY  WITH  LINUS  6IT1A 


SPLAY  IS  REQUESTED 
A PRIORITY  DISPLAY 
I S AN  EXCEPTI 0N)o 


AND  ANCTHER 
IS  REQUESTED 


NORMAL  DISPLAY  IS  ALREADY  ACTIVE 
WHEN  ANCTHER  PRIORITY  DISPLAY  IS 


R0388  ERASABLE  I N IT  I A L I Z A T I C N RECUIREC-> 


R0389 

R0391 

R0393 


ACCOMPLISHED  BY 


FRESH  START- 


FLAGWROA  (USED  EXCLUSIVELY  BY  DISPLAY  INTERFACE  ROUTINES) 

NVSAVE  = NORMAL  VERB  AND  NOUN  REGISTER* 

EEANKTEM  = NORMAL  INACTIVE  FLAGWOR D ( AL SO  CONTAINS  NORMALS  EBANK) 


R0395 

R0396 

R0398  OUTPUT — 


RISAVE  = MARKBRAN  CONTROL 
RESTREG  = PRIORITY  30  AND 


WORD 

SUPERBANK  3* 


80399  NVWORC  = PRIO  VERB  AND  NOUN 

R0400  NVWGRD  +1(MARKNV)  = MARK  VERE  ANC  NCUN 

R0401  NVWORD  +2(NVSAVE)  = NORMAL  VERB  AND  NCUN 


R0402  DSPFLG(EBANKSAV  ) = PRIC  FLAGWCRO  (INCLUDING  EBANK) 

R0403  OSPFLG  +l(MAftKEBAN)  = MARK  FLAGWOPD  (INCLUDING  EBANK) 

R0404  OSPFLG  +2(EBANKTEM)  = NORMAL  FLAGWORD  (INCLUOIG  EBANK) 


R0405  CADRFLSH  = PRIC  USERS  CALL  CADR  +1  LOCATION 

R0406  CAORFLSH  +1(HARKFLSH)  = MARK  USERS  CALL  CADR  +1  LOCATION 

R0407  CADRFLSH  +2(TEMPFLSH)  = NORMAL  USERS  CALL  CADR  +1  LOCATICN 

R0408  PRIOTIME  = TIME  EACH  FRIC  RECUEST  FIRST  SENT  OUT 

R0409  OPTIQNl  = DESIRED  CPTION  FROM  G0PERF4 

R0410  FLAGWRC4  = BIT  INFC  FCR  CCNTROL  OF  ALL  DISPLAY  ROUTINES 

R04il  DSPTEMl  = R1  INFC  FOR  ASTRCNAUT  FROM  PERFORM  D I SP LAYS ( NORMA L ) 

R0412  SUBROUTINES  USED — NVSUR,  FLAGUP,  FLAGDOWN,  ENOOFJOB,  BLANKSUB,  ABORT,  JCEWAKE,  JOBSLFEP,  FINCVAC,  PRIOCHNG, 
R0414  JAMTERM,  NVSUBUSY , FLASHON,  ENCIDLE,  ChANGl,  8ANKJUMP,  MAKECAOR,  NOVAC, 

R0415  DEBRIS—  (STORED  INTO) 


R0416  TEMPORARY  TEMPORARIES-  A,  Q,  Li  MPAC  +2,  MPAC  +3,  MPAC  +4,  MPAC  +5,  MPAC  +6,  RUPTREG2,  RUPTREG3,  CYL , 

R04I8  EBANK,  RUPTREG4,  LOC,  BANKSET,  MCDE,  MPAC,  MPAC  +l  4,  FACEREG 

R0420  ' ERASAEESI SHARED  AND  USED  WITH  CTHER  PROGRAMS)  C40RSTDR,  DSPLIST,  LOC,  DSPTEMl,  OPTIONl 


R0422  EPASABLES  (USED  CNLY  BY  CISPLAY  ROUTINES)-  NV  WORD  , + 1 , + 2,  0 SPFLG  t-H  ,+ 2 , C ADRF  L SH  , + l , +2  , PRIOTIME,  FLAGWRD^*, 


GAP: 
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L DISPLAY  INTERFACE  R0LTIN6S 


USER  •$  PAGE  NOe  12  EO  S3 


R042'V  PlSAVEt  MARK2PAC, 


R0A25 

R0^26 

R0427 


DEBRIS—  (USED  BUT  NOT  STCREC  I^TC)-  NCUNPBG,  VERBREG,  LDCCTR,  MQNSAVEl 
FLA6W0R0  DESCRIPTIONS— 

FLAGWRC4-  SEE  DESCRIPTION  UNDER  LOG  SECTION  ERASABLE  ASSIGNMENTS 


R0428  DSPFLG,  DSPFLG+1,  DSPFLG  +2- 

R0429  

R0430  BITS  1 ELANK  R1 

R0A31  2 BLANK  R2 

R0432  3 BLANK  R3 

R0A33  4 FLASHING  DISPLAY  RECUFSTEC 

R0434  5 PERFORM  DISPLAY  REQUESTED 

R0435  6 EXOSPRET  GODSPRET 

R0436  7 PRIO  DI  SPLAY  

R0437  fl DEC  MARK  PERFORM  

R0438  9 EBANK 

R0A39  10  EBANK 

R0440  11  EBANK 

R0441  12  V99PASTE 

R0442  13  2ND  PART  OF  PERFORM 

K0443  15  REFLASF  OR  REDO  REFLASH  OR  REDO 

R0444  15  MARK  RECUEST  

R0A45  RESTARTING  DISPLAYS — 

R0446  PLLES  FCR  THE  CSKY  CFEPATCR  — 


R0447 

R0449 

R0451 

R0453 

R0454 

R0456 

R0458 

R0460 

R0462 

R0464 

R0465 

R0466 

R04bd 

R0470 

R0472 

R0474 

R0475 

R0476 

R0A78 


PROCEED  AND  TERMINATE  SERVE  AS  RESPONSES  TO  REQUESTS  FCR  OPERATOR  RESPONSE  (FLASHING  V/N).  AS  LONG 
AS  THERE  IS  ANY  REQUEST  AV*AITING  OPERATOR  RESPONSE,  ANY  LSE  CF  PROCEED  OR  TERMINATE  WILL  SERVE  AS 
RESPONSES  TO  THAT  RECUESTo  CARE  SHOULD  BE  EXERCISED  IN  ATTEMPTING  TO  KILL  AN  OPERATOR  INITIATED  MONITOR 
WITH  PROCEED  AND  TERMINATE  FOR  THIS  REASCN'o 

THE  ASTRONAUT  MUST  RESPOND  TO  A PRIORITY  DISPLAY  NO  SOONER  THAN  2 SFCGNDS  FROM  THE  TIME  THE 

PROGRAM  SENT  CUT  THE  RECUEST  FOR  OPERATOR  RESPONSE  (THE  ASTRONAUT  WOULD  SEE  THIS  DISPLAY  FOP  LESS  TIME 
DUE  TO  TIME  IT  TAKES  TO  GET  DISPLAY  SENT  OUT*)  IF  THE  ASTRONAUT  RESPONDS  TCP  SOON,  THE  PRIORITY  DISPLAY 
IS  SENT  CUT  AGAIN  — ANC  AGAIN  UNTIL  AN  ACCUMULATED  2 SECS  FROM  THE  TIME  THE  FIRST  PRIORITY  DISPLAY 

OUTc  THE  SAME  2 SECo  DELAY  WILL  OCCUR  AT  l63o84  SECS  OR  IN  ANY  MULTIPLE  OF  THAT  TIME  DUE  TO  PROGRAM 
■CONS  lOERAT  ION* 

KEY  RELEASE  BLTTCN- 

A»  IF  THE  KEY  RELEASE  LIGHT  IS  CN,  IT  SIMPLY  RELEASES  THE  KEYBOARD  AND  DISPLAY  FOR  INTERNAL  US6<, 

B)  IF  THE  KEY  RELEASE  LIGHT  IS  OFF,  ANC  IF  SOME  REQUEST  FOR  OPERATOR  RESPGNSE  (FLASHING  V/NI  IS  STILL 

AWAITING  RESPCNSE  THEN  IT  RE-ESTABLISHES  THE  DISPLAYS  THAT  ORIGINALLY  REQUESTED  RESPONSE, 

IF  AN  OPERATOR  WANTS  THEREFORE  TO  RE-ESTABLISH  BUT  CONDITION  (A)  IS  ENCOUNTERED,  A SECOND  DEPRESSION  OF 
KEY  RELEASE  BUTTON  MAY  BE  NECESSARY^ 

IT  IS  IMPORTANT  TC  ANSWER  ALL  REQUESTS  FCR  CPERATDR  RESPONSEe 

IT  IS  ALWAYS  GOOD  PRACTICE  TO  TERMINATE  AN  EXTENDED  VERB  BEFORE  ASKING  FOR  ANOTHER  ONE  OR  THE  SAME  ONE 

CVER  AGAIN. 


special  CONSIDERATIONS— 
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L DISPLAY  INTERFACE  ROUTINES 


17: ?3  OEC»  19,1969 
USER'S  PAGE 


SKIPPER  . 101 
NCo  1? 


PAGE  13A5 
ED  S3 


R0480 
R0A81 
R0483 
R048A 
R04e6 
R0488 
R0489 
R0491 
R0491 1 


MPAC  +2  SAVED  CNLY  U NARK  DISPLAYS 

GODSPtR » iREGOOSPIR ) f GCNARK (R)  ALWAYS  TURN  ON  THE  FLASH  IF  ENTERED  WITH  A PASTE  VEP8  REQUEST 
ALL  NOPNAL  DISPLAYS  APE  RESTARTABLE  EXCEPT  GODSP(R),  REGODSP(R) 

ALL  EXTENDED  VERBS  WITH  DISPLAYS  ShCULC  START  WITH  A TC  TESTXACT  AND  FINISH  WITH  A TC  ENDEX 
GODSPIRI  AND  REGODSP(R)  MUST  BE  IN  THE  SAME  E8ANK  AND  SUPERBANK  AS  THE  LAST  NORMAL  DISPLAY 
BY  A ol  RESTART  PHASE  CFANGE« 

IN  ORDER  TO  SET  UP  A NCN  DISPLAY  ol  RESTART  PCINT,  THE  USER  MUST  MAKE  CERTAIN  THAT  PESTRFG 
CORRECT  PRIORITY  AND  SUPERBANK  AND  THAT  EBANKTEM  CONTAINS  THE  CO 

IF  CLEANOSP  IS  RESTARTED  VIA  A *1  PHASE  CHANGE,  CAF  ZERO  SHOULD  BE  EXECUTED  BEFORE  THE  TC 


Ti 

RESTARTED 
CONTAINS  THE 
BANKCALLo 
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SKIPPER  oini  PAGE  13A6 


L DISPLAY  INTERFACE 


ROUT  INES 


USER’  S PAGE  NCo  lA  EO  S3 


P049  2 
AOA93 
A0A9A 
A0495 


CALLING  SEQUENCE  FOR  BLANKING 


CAF  BITX  X=l,2,3  BLANK  R1,R2,R3  RESPECTIVELY 

TC  BLANKET 

«•»  «oo  RETURN  TO  USER  HERE 


R0496  IN  ORDER  TO  USE  BLANKET  CCRRECTLY  TFE  USER  MUST  USE  A DISPLAY  ROUTINE  THAT  ENOS  IN  R FIRST  FOLLOWED  BY  THE  CALL 
RC498  TO  BLANKET  AT  THE  IMMEDIATE  RETURN  LCCo 


0A9P 

0500  REF 

0501 


5A6A 

4000 

5464 


BLTCK  02 
SETLOC  FFTAG4 
BANK 


0502 

0503 

0504 

0505 

0506 

0507 


REF  I 

REF  812  LAST  1330 
REF  1 

REF  813  LAST  1346 
P.EF  814  LAST  1346 
REF  2 LAST  1346 


5464  54  162  0 

5465  4 C16C  I 

5466  7 0162  0 

5467  50  161  1 

547C  26  160  1 


BLANKET 


COUNT*  $$/OSPLA 
TS  MPAC  +6 

CS  PLAYTEM4 

MASK  MPAC  +6 
INDEX  MPAC  +5 
ADS  PLAYTER4 


0508 


REF  359  LAST  1332 


5471  0 0002  0 


TC 


Q 


0511  REF  59  LAST  1323 

0512  REF  1 


5472  0 4635  0 ENCMARK  TC  POSTJUMP 

5473  20326  1 CADR  MAPKEND 


05121  REF  243  LAST  1331 

05122  REF  17  LAST  720 


5474  3 4755  1 CLEARMRK  CAF 

5475'  =‘=»C43  0 TS 


ZERO 

EXTVBACT 


05123 

05124  REF 

05125  REF 

05126  REF 


1 

5 LAST  479 

6 LAST  1346 


5476  0 0004  0 

5477  4 4753  0 

5500  7 ClOO  1 

5501  54  100  1 


INHINT 

CS  XDSP6IT 

MASK  FLAGWPC4 
TS  FLAGWRD4 


05127 

05128 
R0513 
R0515 


5502  C 0003  1 
REF  360  LAST  1346.  5503  0 0002  0 

***ALL  EXTENDED  VERB  ROUTINES  THAT  HAVE  AT  LEAST 
F IN  ISHECo 


RELINT 
TC  0 

ONE  FLASHING  DISPLAY  MUST  TC  F ENDMARK  OR  TCF  ENDFXT  WHEN 


0516  10»2326 

0517  REF  1 10,2000 

0516  10,2326 


BANK  10 
SETLOC  DISPLAYS 
BANK 


C519 

R052O 

R0522 


REF  1 

NTERONLY  IS  USED 
3 RETURNS  TO  THE 


COUNT*  $$/OSPLA 

TO  DIFFERENTIATE  THE  MARK  ROUTINE  WITH  ONLY  CNE  RETURN  TO  THE  USER  FROM  THE  MARKING  ROUTINE  HIT 
USERo  THIS  ROUTINE  IS  ONLY  USED  BY  GOMAPKl  AND  GCMAPK1R« 


C5291  REF  2 LAST  227  10,2326  C 5474  0 MAPKENC  TC  CLEARMRK 

05297  REF  1 10,2327  1 3422  1 TCF  MARKCVEP 


0530  REF 


10,2330  54  155  1 GOMARK  TS  PLAYTEMl  ENTRANCE  FOR  MARK  GOOSP 
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LAST  1309 


0539 

05A1 


REF 

REF 

REF 


LAST  13A7 
LAST  13A7 
LAST  1347 


10,2337 
10,2340 
10, 23A1 


54  155  1 
3 3521  1 
1 2501  C 


G0MARK2  TS 
MARKFCRM  CAF 
TCF 


0542  REF 

0543  REF 
054^,  REF 


LAST  1347  10,2342 

10,2343 
LAST  1347  10,2344 


54  155  1 
3 35C6  1 
1 2501  C 


G0MARK3  TS 
CAF 
TCF 


0545 

0546 

0547 


KEF 

REF 

REF 


LAST  1347 
LAST  1347 


10,Z345 

10.2346 

10.2347 


54  155  1 
2 3507  0 
1 2501  0 


GCKARK4  TS 
CAF 
TCF 


6 LAST  1347  10,2350  54  155  1 GCKARKR  TS 


LAST  1347 
LAST  1347 


10,2253  54  155  I GOMARKFR  TS 


0559  REF  8 

0560  REF  2 

0561  PfF  2 


10.2356 

10.2357 
10, 2360 


54  155  1 
3 3521  I 
1 264C  0 


G0MARK2R  TS 
CAF 
TCF 


0561  05  REF 

05611  REF 

05612  REF 

05613  REF 


LAST  1347 
LAST  1347 


10.2361 

10.2362 

10.2363 

10.2364 


6 5023  0 
54  155  1 
2 2506  1 
1 2640  0 


GCMARK3R  TS 
CAF 
TCF 


LAST  1321  10,2365 

10,2366 


KAKEMARK  CAF 


0564  REF  7 

0565  REF  1 

0566  REF  429 

0567  REF  1 


LAST  1346 
LAST  1332 


10,2367 

10. 2370 

10.2371 

10.2372 


3 0100  0 
7 3522  0 
10  000  0 
1 2430  0 


MASK 

CCS 

TCF 


LAST  1347 


112-091 
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USER  'S  PAGE  NDo  15  EO  S3 

BI  T15 
G0FLASH2 

EIT15  SET  FCF  ALL  MARK  REQUESTS 

ZEPC 

PLAYTEMl 

CLEAN  OUT  EXTENDED  VERBS 

ENTRANCE  FOP  MARK  GCFLASH 

MARKFMSK 

G0FLASH2 

MARK, FLASH 

PLAYTEMl 

MPERFMSK 

GnFLASH2 

MARK  GOPERFS-3  AST*  RETURNS 

MARK,  PERFORM,  FLASH 

PLAYTEMl 

MARK3MSK 

G0FLASH2 

USED  FOR  3C0MP  DECIMAL  PERFORM 

PLAYTEMl 

MARK4MSK 

G0FLASH2 

MARK, PERFORM, FLASH, BLANK 

PLAYTEMl 

BIT15 

G0CSPR2 

ENTR+NCE  FOP  MARK  GOOSPP 

PLAYTEMl 

MARKFMSK 

GCCSPRS 

ENTRANCE  FOR  MARK  GCFLASHR 

PLAYTEMl 

MPERFMSK 

GODSPRS 

PR  1013 
PLAYTEMl 
MARK3MSK 
GOOSPRS 

ONE 

COPIE  S 

MARK  GOPERFS-3  AST*  RETS+  IMMEDIATE  RET, 
MARK,  PERFORM,  FLASH 

FLAGWRD4 

0CT34300 

A 

CHKPR IC 

IS  NORM  OR  PRIO  BUSY  OR  WAITING 

FLAGWRC4 

MRKNVBIT 

IS  MARK  SLEEPING  DUE  TC  ASTRO  BUSY 
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L DISPLAY  INTERFACE  ROLTINES  USER'S  PAGE  NOc  16  EO  S3 


REF 


EXTEND 

02F 


MARKPLAY 


NO 


0572  REF  145  LAST  1203  10,2377  1 5155  1 


TCF  ENC0FJC8 


059A 

0595  REF  21 

0596  RFF  9 

05965  RFF  134 

0597  REF  in 

0598 


10,2400 
LAST  1277  10,2401 

LAST  13A7  10,2402 

LAST  1347  10,2403 

LAST  134P  10,2404 

10, 24C5 


C 0C04  0 
4 4756  0 
7 OICO  1 
6 4753  1 
54  100  1 
C 0003  I 


MARKPLAY 


INHINT 

CS  FIVE  RESET  MARK  OVER  NORM, 

MASK  FLAGWRC4 

AO  ONE 

TS  FLA6WRC4 

RELINT 


SET  MARK 


0599  REF  I 

0600  REF  43  LAST  1328 

0601  REF  430  LAST  1347 

C602  REF  1 

0603  REF  1 

0604  RFF  2 LAST  13^8 


10.2406  4 1070  0 

10.2407  7 4747  C 

10,2410  10  000  0 

n,2411  1 2414  0 

10.2412  4 f37C  1 

10.2413  54  370  1 


GOGCMARK 


CS  MARKFLAG 

MASK  BITS 

CCS  A 

TCF  MARKCOP 

CS  MAPKNV 

TS  MARKNV 


PERFORM 


0605  REF  135  LAST  1348 

0606  PEF  I 


10,241^  3 4753 

10, 2415  1 2617 


1 MARKCCP  CAF 
1 TCF 


ONE 

PRI OPLAY 


MARK  INDEX 


0607  REF  1 

0608  REF  015  LAST  1346 


10,2416  3 0165 

lp,2417  54  156 


0 CCPYTOGO  CA 

1 TS 


MPAC2SAV 
MPAC  +2 


0609  REF  1 

061C  REF  1 

0611  REF  1 


10. 2420 

10.2421 

10. 2422 


50  164  I COPYPACS  INDEX 
3 3532  0 CAF 

54  162  0 TS 


COP  INDEX 

PRIOCCT 

GENMASK 


0612  REF 

0613  REF 

0614  REF 


2 LAST  1348  10,2423 
1 10,2424 
I 10,2425 


50  164  1 
3 1067  1 
54  160  I 


INDEX  COPINDEX 
CAF  FBANKSAV 

TS  TEMPCR2  ACTIVE  EBANK  AND  FLAG 


REF  79  'LAST  1323 


10,2426  54  003  0 


TS  EBANK 


0616 


REF  361  LAST  1346 


10,2427  C 0CC2 


TC 


Q 


R0617  PINCHEK  CHECKS  TO  SEE  IF  THE  CURRENT  MARK  REQUEST  IS  MADE  BY  THE  ASTRONAUT  WHILE  INTFRRLPTING  A GOPLAY  DISPLAY 

R0619  {A  NORMAL  OR  A PRIO)*  IF  THE  ASTRONAUT  TRIES  TC  MARK  DURING  A PRIO,  THE  CHECK  FAIL  LIGHT  GOES  ON  AND  THE  MARK 

R0621  REQUEST  IS  ENDEC*  IF  HE  TRIES  TO  MARK  DURING  A NCRM,  THE  MARK  IS  ALLCWEOo  IN  THIS  CASE  THE  NORM  IS  PUT  TO  SLEEP 
R0623  UNTIL  ALL  MARKING  IS  FIMSHEC* 


R0624  IF  THE  MARK  REQUEST  CCMES  FftCM  THE  PRCGRAM  DURING  A TIME  THE  ASTRONAUT  IS  NOT  INTERRUPTING  A NORMAL  OR  A 

R0626  PRIO,  THE  MARK  REQUEST  IS  PUT  TO  SLEEP  UNTIL  THE  +RESENT  ACTIVE  DISPLAY  IS  RESPONDED  TC  BY  THE  ASTRONAUT® 


0628  REF  11  LAST  1348 

0629  RFF  1 

0630  REF  431  LAST  1348 

063!  REF  1 


10.2430 

10. 2431 

10.2432 

10.2433 


3 0X00  0 
7 3255  1 
10  000  0 
1 3455  I 


CHKPR  10 


CA 

MASK 

CCS 

TCF 


FL  AGWR04 
C1CT24100 
A 


MARK  ATTEMPT  DURING  PRIO 


MARSLEEP 


GAP: 

L 

0632 

0633 

0634 

0635 

0636 

0637 

063fl 

063<5 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647 

C648 

064Q 

065^ 

R0651 

R0653 

R0654 

R0656 

R0657 

A0658 

A0659 

0660 

0661 

0662 

0663 

0664 

0665 

0666 


ASSEMBLE  REVISION  131  OF  AGC  PRCGPAM  LUMINARY  BY  NASA  2021112-091 


17: 53  DECo  19,1969 


SKIPPER  , 101  PAGE  1349 


DISPLAY  INTERFACE  ROUTINES 


REF  13  LAST  1349 
REF  1 

REF  3 LAST  1348 
REF  1 
REF  1 


10,2440  I 2535  1 


10.2442  7 4144  0 

10.2443  1 3121  1 


CS  FLAGWRD4 

MASK  MKOVeiT 
INHINT 

ACS  FLAGWPC4 


MARKNV 

VERBMASK 

NV50DSP 


REF  10  LAST  1347  10,2444  54  155  1 GCCSP 

REF  245  LAST  1347 

REF  6 LAST  1347 

PEF  11  LAST  1349  10,2447  54  155  1 GCCSPRET  TS 

REF  59  LAST  1319 

REF  7 LAST  1349 

REF  12  LAST  1349  10,2452  54  155  1 GCCSPR 

REF  246  LAST  1349 

REF  3 LAST  1346 


USER'S  PAGE  NOo 


SET  MARK  OVER  NORM 


ENTRANCE  FOP  A GODSP  WITH  A PASTE 

SET  BIT6  TO  GO  BACK  TO  USER  AFTER  NVSUB 


* DCNT  MOVE 


CALLING  SECUENCE  FCR  CLEANCSP- 


REF  8 LAST  1349 
REF  14  LAST  1349 


54  155  1 REFLASHR  TS 


FLASH  AND  PERMIT 


FLASH  AND  PERMIT 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PfiCGRAM  LUMINARY  0Y  NASA  2021112-091 


display 
REF  15 


INTERFACE  ROUTINES 
LAST  13A9  10,2466 


54  155  1 REGOCSP  TS 


HEF  16  LAST  1350  10,2471  54  155  1 PEGCOSPR  TS 


06721 
0672  2 
06723 


0676 

0677 

0678 

0679 


REF  10 
REF  18 


PFF  I 
REF  19 


LAST  1350 
LAST  1350 


10t2474 

n,2475 

10,2476 


54  155  I 
3 3544  1 
1 2 501  0 


10,2477  54  155  1 


10. 2502 

10.2503 

10.2504 

10.2505 


CLCCPLAY 

GOFLASH 

GCFLASH2 


0 2723  0 

0 0003  1 

1 2547  1 
54  155  1 


TS 

CAF 

TCF 

TS 

CAF 


PLAYTEMl 

CLCCKCCN 

G0FLASH2 


REL  INT 
TCF 


PRIOOSPR  TS 


MAKEPLAY 

PLAYTEMl 


LAST  1349 
LAST  1350 


10,2510  54  155  I 


PRIOOSP 

SETPRIO 


MAKEPRIC  CAF 


0607 

0688 

0689 

0690 
069'* 
0692 


REF  1 
REF  1 
REF  14 
REF  1 
REF  432 
REF  1 


LAST  1349 
LAST  1348 


10.2515  C 3375  0 

10.2516  1 2523  C 

10.2517  3 0100  0 

10.2520  7 3543  1 

10.2521  1C  CCO  0 

10.2522  1 2576  0 


TC  LINUSCHR 

TCF  HIPRIO 

CA  FLAGhPD4 

MASK  OCT20100 

CCS  A 

TCF  PRIOBORT 


0693  REF  15  LAST  1350  10,2523  3 0100  0 HIPRIC  CA  FLAGWRC4 

0694  REF  1 10,2524  7 5632  I MASK  OCT4O40O 

0695  10,2525  C 0006  1 EXTEND 

0696  REF  1 10,2526  1 2531  C B2F  ASKIFNPM 


17:53  DECe  19,1969  SKIPPER  «101  PAGE  1350 


USER'S  PAGE  NCo  18  EO  S3 


LEAVE  ONLY  FLASH  BIT  SET 


ERANCH  DIRECT  WITH  NO  SEPARATE  JOB  CALL 


LINUS  RETURN 

IS  PRIO  IN  ENOIDLF  OR  BUSY 
YES,  ABORT 
MARK  ACTIVE 

NO 


gap:  assemble  revision  131  OF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 
L DISPLAY  INTERFACE  ROUTINES 


LAST  1350 


0699 

0700 

0701 

0702 


LAST  1350 


10  ,253’ 

10.2532 

10.2533 

10.2534 


3 OICO  0 ASK  IFNRM  CA 


0006  I 
2537  0 


MASK  0CT1O200 
EXTEND 

BZF  OKTOCOPY 


CKTCCCPY  TC 


0707 

0708 


REF 

REF 


LAST  1320 


10.2541 

10.2542 


0 5137  1 
C 3223  1 


J0BWAK6 

XCHTOEND 


REOCPR 10 

KEEPPRIC 


0713 

07131 

07132 


REF 

REF 

REF 


10,2547 

10.2550 

10.2551 


3 0167  1 
7 7730  0 
54  163  1 


MAKEPLAY  CA 


PR  lOR  ITY 
PRIC37 
USERPRl 0 


07135 

0714 

0715 

0716 

0717 

0718 


REF  5 
REF  1 
REF  433 
REF  1 
REF  1 
PEF  1 


LAST  1350 
LAST  1350 


10.2554 

10.2555 

10.2556 

10.2557 

10.2560 

10.2561 


3 0160  0 
7 3523  1 
10  COO  0 
1 2513  r 
I 2562  C 
1 2365  1 


CA 

MASK 

CCS 

TCf 

TCF 

TCF 


MAKEPRIC 

IFLEGAL 

MAKFHARK 


IFLEGAL  CAF 


0721 

0722 

0723 

0724 

0725 

0726 


10,2564  r 3375  0 


REF 

REF 

REF 


LAST  232 
LAST  1350 
LAST  1351 
LAST  1351 


10.2565 

10.2566 

10.2567 

10. 2570 

10.2571 


1 2600  1 
4 1071  1 
7 4750  0 
10  000  0 
1 2600  1 


MASK 

CC  s 

TCF 


REF  17  LAST  1351  10,2572  3 ClCC  0 


OKTCPLAY 

E6ANKTEM 

BIT4 

A 

OKTOPLAY 

FLAGWR04 


17:53  OECo  19,1969  SKIPPER  olOl  PAGE  1351 


USER'S  PAGE  NCe  19  EO  S3  i 

NORMAL  ACTIVE  ..z 

BITS  13+8 

NO 


SAVE  TIME  PPIOCSP  SENT  CUT 

START  UP  PRIO  DISPLAY 

SAVE  USERS  PP lOR ITY 

RAISE  PRIORITY  FOR  FAST  JOBS  AFTER  WAKE 

IS  IT  MARK  OR  PRIO  OR  NORM 

ITS  PRIO 
ITS  MARK 


LINUS  RETURN  [ 

NO 


WAS  NORM  ASLEEP 


gap:  assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202)112-091 


0728 

0729 

0730 


DISPLAY  INTERFACE  ROUTINES 
REF 
PEF 


REF 


LAST  1351 
LAST 


10,2573 

10,257A 

10,2575 


7 3514  0 
C C0C6  1 
1 2600  1 


MASK 

EXTEND 

RZF 


NBUSMASK 

OKTOPLAY 


PRICeCRT  TC 


0733 

07331 

07332 

07333 

07334 


REF 

REF 


10,2600  0 2737  0 OKTOPLAY  TC 


LAST  1351 


LAST  1291 
LAST  229 


10,2601 

10,260? 

10,2603 

10,26CA 


3 Cl  63  0 
C 0006  1 
OA  007  1 
5A  366  C 


COPIES? 

USERPRIC 


SUPEPBNK 

RESTREG 


0737 

0738 

0739 

0740 


REF  18 
REF  1 
REF  435 
REF  1 


LAST  1351 
LAST  1351 


LAST  1352 


10.2605 

10.2606 
10,26C7 
10,2610 


3 nioo  0 
7 3515  1 
K OCO  0 
1 2755  0 


MASK 

CCS 

TCF 


GOSLEEPS 

+2 

GOSLEEPS 


R0743 

0744 

0745 


COULD  PIT  NORM  BUSY  CHECK  HERE  TC  SAVE 
REF  2 LAST  1351  10,2613  0 32C6  C 
REF  9 LAST  1351  10,2614  0 5137  1 


WI TCHCNE 
JOBWAKE 


LAST  1351  10,2615  C 3223  1 


3 4752  0 
54  164  0 


0749 

0750 


REF 

REF 


21  LAST  1350 
■ 1 

12  LAST  1350 
2 LAST  941 


10,2620 

10,2621 


1 3C71  C 
54  155  1 


3 7737  0 
1 2501  0 


EXCSPRET  TS 


GOPERFl  TS 


GOPLAY 

PLAYTEMl 


REF  22  LAST  1352 


54  155  1 GOPERFS 


13  LAST  1352 
23  LAST  1352 


10,2631  54  155  1 GCPERF2  TS 


14  LAST  1352 


)7:53  DEC«  19,)Q69  SKIPPER  101  PAGE  1352 


USER'S  PAGE  NGo  20  EC  S3 

ARE  ANY  NORMS  ASLEEP 
NO 


PRIG  OR  MARK  GOING 

YFS 

MARK  GCING 

IS  IT  NVSUe  BUSY,  ENDICLE  CR  NOONE 


STORE  DESIRED  CHECKLIST  VALUE 

USED  TO  DISPLAY  CHECKLIST  VALUE  IN  R1 


LEAVE  ONLY  FLASH,  PERFORM,  BLANKING 


DESIRED  VERB-NCUN  TC  DISPLAY  R1,R2,R3 


GAP: 


assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L 


DISPLAY  INTERFACE  ROLTINES 


0764  REF  1 

0765  REF  15  LAST  1352 

0766  REF  24  LAST  1352 

0767  REF  53  LAST  1351 

0768  REF  6 LAST  1351 

0769  REF  38  LAST  1316 

0770 

0771  REF  16  LAST  1320 


10, .2634  C 2n6  C 

10.2635  1 2501  0 

10.2636  54  155  I 

10.2637  2 4750  1 

10.2640  54  160  1 

10.2641  2 625C  0 

10.2642  0 0004  0 

10.2643  54  072  0 


G0PERF4  TC  PURRS4 

TCF  G0FLASH2 

GCFLASHR  TS  PLAYTEMl 

CAF  BIT4 

GOCSPRS  TS  PLAYTEM4 

CAF  THREE 

GOCSPRSl  INHINT 

TS  RUPTREG3 


0772  REF  34 

0773  REF  4 

0774  REF  11 


LAST  1351 
LAST  1351 
LAST  1106 


10.2644  3 0167  1 

10.2645  7 7730  0 

10.2646  54  C63  C 


CA  PRIORITY 

MASK  PRI037 
TS  NEWPRIC 


07741  REF  7 

07742  REF  54 

07743  REF  436 

07744  REF  1 

07745  REF  12 

07746  REF  29 

07747  REF  4 
07746  REF  2 

07748 

0774S  REF  I 


LAST  1353 
LAST  1353 
LAST  1352 

LAST  1353 
LAST  1330 
LAST  776 
LAST  1350 


10 ,2647  3 0160  0 

10.2650  7 4750  0 

10.2651  10  COO  C 

10.2652  1 2660  1 

10.2653  3 0063  1 

10.2654  C 5C72  1 
E7,147l 

10.2655  C2547  0 

10.2656  20067  I 

10.2657  1 2666  1 


CA  PLAYTEM4 

MASK  BIT4 
CCS  A 
TCF  VACDSP 
CA  NEWPRIO 

TC  NOVAC 

EBANK=  WHOCARES 
2CA0R  MAKEPLAY 

TCF  BOTHJOBS 


0775  REF  45  LAST  1323 

0776 

0777  REF  26  LAST  1352 

0778  REF  230  LAST  1328 

0779  REF  I 

0760  REF  3 LAST  371 


10.2660  3 0006  I VACDSP 

10.2661  0 0006  1 

10.2662  04  007  1 

10.2663  54  001  1 

10  ,2664  3 3540  0 

10,2665  0 5116  1 


CA  BBANK 

EXTEND 

RCR  SUPERBNK 
TS  L 

CAF  MAKEGEN 

TC  SPVAC 


0781  REF 


LAST  1350  10,2666  0 2723  0 BOTHJOBS  TC  SAVELOCS 


0782 

0783 
07B4 
0785 


REF  816 
REF  25 
REF  817 


LAST  1348 
LAST  1330 
LAST  1353 


10,2667 

10.2670 

10.2671 

10.2672 


0 0006  1 
3 C156  C 
50  064  0 
52  156  1 


EXTEND 

DCA  MPAC  +1 
INDEX  LOCCTP 
DXCH  MPAC  +1 


0786 

0787  REF  818  LAST  1353 
0738  REF  26  LAST  1353 
0789  REF  819  LAST  1353 


10.2673  0 0006  1 

10.2674  3 0160  0 

10.2675  £C  C64  0 

10.2676  52  160  1 


EXTEND 

OCA  MPAC  +3 
INDEX  LCCCTR 
PXCH  MPAC  +3 


C790 

0791 


REF  27  LAST  1353 
REF  620  LAST  1 


10,2677  3 0064  0 

10,2700  54  161  0 


CA  LCCCTR 

TS  MPAC  +5 


17:53  DECo  19,1969  SKIPPFP 
USER'S  PAGE  NOe  21 


clOl  PAGE  1353 
EO  S3 


LEAVE  CNLY  FLASH  BIT  SET 

IMMEDIATE  RETURN  IS  CALL  CAOR  +4 

MAKE  display  ONE  HIGHER  THAN  USER 

IS  THIS  A FLASHING  R DISPLAY 

YES,  MAKE  DSPLAY  JCB  A VAC 
NO,  MAKE  DSPLAY  JOB  A NOVAC 


COPY  TEMPS  INTC  PERMANENT  REGISTERS 
SAVE  NVWORO  AND  USERS  MPAC  +2 


SAVE  USERS  CADR,  FLAGS  AND  EBANK 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


L DISPLAY  IMEFFACE  ROUTINES 

0792  REF  1 10,27Cl  0 2730  1 TC  SAVELCCR 

0793  10|27C2  C 0003  1 RELINT 


0794  REF  17  LAST  1286  10,2703  1 4640  0 TCF  6ANKJUMP 

0795  REF  3 last  1352  10,2704  E5‘C44  1 GCPERFIR  TS  N0RMTEM1 

0796  REF  2 LAST  1352  10,2705  2 3A77  0 CAF  V01N25 


0797  REF  25  LAST  1353  10,2706  54  155  1 GCFERFRS  TS  PLAYTEMl 


0798  REF  2 LAST  1352 
C799  REF  6 LAST  1350 


10,2707  3 3476  1 CAF  PEPFMASK 

10,2710  1 2640  0 TCF  GOOSPRS 


0800  REF 

0801  REF 
0002  REF 

0806  REF 

0807  REF 
0800  REF 

080Q  REF 

0810  REF 

0811  REF 

0812  REF 


26 

2 

7 

2 


1 

27 


1 

362 


LAST  1353 
LAST  1354 
LAST  97C 


LAST  1354 


LAST  1348 


10.2714 

10.2715 

10.2716 


54  155 

2 2502 
1 2640 

G 2716 

1 2640 
55' 143 

2 3503 
54  155 

2 35C4 
0 0002 


1 GCFERFZR  TS 

0 CAF 

0 TCF 

0 GOPERFAR  TC 

0 TCF 

1 PURPS4  TS 

1 CAF 

1 TS 

0 CAF 

0 TC 


PLAYTEMl 

PERF2MSK 

GOOSPRS 

PURRS4 

GOOSPRS 

GPTICM 

V04N06 

PLAYTEMl 

PERF4MSK 

0 


0813 


10,2723 


0004  0 SAVELCCS  INFINT 


0815  REF 
C816  REF 

0817  REF 

0818  REF 


1 

8 LAST  1353 
80  LAST  1348 

9 LAST  1354 


10 .2724 

10 .2725 

10.2726 

10.2727 


4 3513  1 
7 0160  I 
6 C003  1 
54  160  1 


CS  aCT34no 

MASK  PLAYTFM4 

AO  EBANK 

TS  PLAYTEM4 


0819 


REF  263  LAST  1354 


10,2730  22  002  0 


SAVELCCR  LXCH 


Q 


0820 

0821 


REF  14  LAST  1322 
REF  1 


10,2731  0 4645  1 

10  ,2732  54  157  0 


TC  HAKECAOR 

TS  PLAYTEM3 


0822  REF  17  LAST  1353 

0823  REF  239  LAST  1353 


10.2733  e CC72  1 

10.2734  0 0001  0 


AC  RUPTREG3 

TC  L 


0024  REF  252  LAST  1351 

0825  REF  6 LAST  1352 

0826 

0827  REF  10  LAST  1354 


10.2735 

10.2736 
10  ,2737 
10,2740 


3 4755  1 
54  164  0 
0 0004  0 
3 0160  0 


CCPYNOPM  CAF  ZERO 

COPIES  TS  COPINDEX 

C0PIES2  INHINT 

CA  PLAYTEM4 


17:53  DECo  19,1969  SKIPPER  dOl  PAGE  1354 


USER'  S PAGE  NC.  22  EO  S3 

CALL  CADR  +4 

DESIRED  CHECKLIST  VALUE 

DISPLAYS  CHECKLIST  VALUE  IN  R1 

LEAVE  ONLY  FLASH,  PERFORM,  BLANKING 

DESIRED  VERB-NOUN  TO  DISPLAY  R1,R2,R3 


CES  IREO  OPT  ION  CODE 


FLASH, PERFORM  AND  BLANK  R3 


EBANK  BITS 


NOT  USED  FOR  NON  R ROUTINES 


FLAGWORO 


GAP  ; 


ASSEMBLE  REVISION  131  CF  AGC  FRCGRAP  LUMINARY  BY  NASA  2021112-091 


L DISPLAY  INTERFACE  ROUTINES 


0828  REF 

0829  REF 


7 LAST  1354  10,2741 
2 LAST  1348  10-,2742 


50  164  1 
55‘067  0 


INDEX  COPINOEX 
TS  EBANKSAV 


0830  REF  1 

0831 

0832  REF  1 


10.2743  7 3531  1 

10.2744  0 0006  I 

10,27^5  1 2751  1 


MASK  CAORMASK 
EXTEND 

BZF  SKIPAOO 


0033  REF 

0834  REF 

0835  REF 


2 

8 

2 


LAST  107 


10,2746  3 0157  1 
10,27A7  5f  164  1 
10,2750  5A  372  0 


CA  PLAYTEM3 
INCEX  COPINDEX 
TS  CADRFLSH 


0836  REF  28  LAST  1354 

0837  REF  0 LAST  1355 


10.2751  3 0155  0 

10.2752  5C  U4  1 


SKIPADC  CA  PLAYTEMl 

INOEX  CCPINDEX 


0838  REF 


LAST  739  10,2753 


367 


TS  NVWORD 


0842  REF 


10,2754  1 3232  0 


TCF  RELINTC 


0843 

0044 

0845 

0846 

0847 

0848 

0849 

0850 


REF  10  last  1355  . 
REF  2 LAST  1340 
REF  1 
REF  1 

REF  137  LAST  1351 
REF  11  LAST  1355 
REF  1 


10.2755 

10.2756 

10.2757 

10.2760 

10.2761 

10. 2762 

10.2763 
10,276A 


5C  164  1 

3 3532  0 
7 2761  1 
0 3545  0 

03004  0 

4 4753  C 
6 0164  1 
54  154  0 


GOSLEEPS  INDEX 
CA 

MASK 

TC 

WAITMASK  OCT 
CS 
AD 
TS 


CCPI NOEX 

PR  lOOCT 

WAITMASK 

UPENT2 

3004 

ONE 

COPINDEX 

FACEREG 


0851 

0652 

0853 

0654 


REF  2 LAST  1355 
RE-F  1 

REF  10  LAST  1352 


10.2765  50  154  1 

10.2766  3 3511  1 

10.2767  0 0004  0 

10,2770  0 5137  1 


XCHSLEEP  INDEX 
CAF 
INFINT 


FACEREG 

WAKECAOR 

J06WAKE 


0855  REF 


LAST  135  2 


10,2771  0 3223 


TC  XCHTOENO 


0858  REF 
0059  REF 
0860  REF 


LAST  1355 
LAST  1355 
LAST  1322 


10.2772 

10.2773 

10.2774 


1 5133  1 


INDEX  FACERFG 
CAF  WAKECADR 
TCF  JOESLEEP 


0861  REF 

0862  REF 

0863  REF 

0864  REF 
C865  REF 
0866  REF 


4 
3 

11 

5 

28 

6 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


1352 

1355 

1355 

13F3 

1355 


10.2775  54  154  0 

10.2776  0 3206  0 

10.2777  C 5137  1 

10.3000  3 0154  1 

10.3001  50  064  0 

10.3002  54  154  0 


jnexCH 


INDEX 

TS 


FACEREG 

WITCHONE 

JCEWAKE 

FACFREG 

LOCCTR 

FACEREG 


0867  REF  1 

0868  REF  1 


10.3003  3 3016  0 

10.3004  C 3224  0 


CAF  XCHOADD 

TC  XCHNYLCC 


0869  REF  7 LAST  1355 

C870  REF  1 

0871  REF  1 


10.3005  50  154  1 

10.3006  3 3533  1 

10.3007  7 3535  0 


INDEX  FACEREG 
CA  MARKCCT 

MASK  IDLESLEF 


17:53  DECo  19,1969  SKIPPEP 
USER'S  PAGE  NOo  23 


clOl  PAGE  1355 
FO  S3 


EQUIV  TO  OSPFLG 
FLASH  AND  GCDSPPET 


VERB  NOUN 


FIND  CAOR  IN  JCB  AREA 

CAUSES  AWAKENED  JOB  TO  GO  TO  ENDOFJOB 
RFPLACE  SAME  CACR  BUT  NEW  JOB  AREA 


CONTROLS  TYPE  CF  DISPLAY  PUT  TO  SLEEP 


GAP:  ASStMRLE  REVISION  131  OF  AGC  PRCGRAN  LUMINARY  BY  NASA  2021112-001 


17:S3  OECo  19,1969  SKIPPER  101  PAGE  1356 


L DISPLAY  INTERFACE  ROUTINES 


USER'  S PAGE  NCo  24  EO  S3 


0872  REF  1 10,3010  0 3555  1 TC  OOWNENT2 

0873  10,3011  7<,004  C IDLEMASK  OCT  74004  * OONT  MOVE 


0674  REF  8 LAST  1355 

0875  REF  AA  LAST  1348 

0876  REF  29  LAST  1314 

0877  REF  2 LAST  1355 

0878  REF  1 

0879  REF  19  LAST  1352 

ObSO  REF  2 LAST  1349 

0881  REF  437  LAST  1353 

0882  REF  2 LAST  1348 

0883  REF  2 LAST  1351 


10.3012  50  154  1 

10.3013  3 4747  1 

10.3014  6 4751  0 

10.3015  0 3545  0 

10,30X6  C2765  I 

10,3017  3 ClOO  0 

10.3020  7 4751  1 

10.3021  10  OOC  0 

10.3022  0 2400  1 

10.3023  1 2537  0 


XCHOACC 


GENMARK 


INDEX  FACEREG 

CA  BITS 

AO  FOUR 

TC  UPENT2 

GENAOR  XCHSLEEP 

CA  FLAGViRD4 

MASK  MKOVeiT 

CCS  A 

TC  MARKPLAY 

TCF  OKTOCOPY 


BIT  SHOKS  PRIO  INTERRUPTED  NORM  OR  MARK 
BIT5  FOR  MARK,  B1T4  FOR  NORMAL 

FLAG  ROUTINE  DOES  RELINT 
* CCNT  MOVE 

MARK  OVER  NOFM  ? 

USED  AS  GENADR  FCR  JCEUAKE 


REF  253  LAST  1354 
REF  2 LAST  1348 


10.3024  3 4755 

10.3025  54  160 


1 MARKWAKE  CAF 
1 WAKEPLAY  TS 


ZERO 

TEMP0R2 


0886  REF  3 LAST  1356 

0887  REF  1 

0888  REF  30  LAST  1356 

0889  REF  2 LAST  1356 

0890 


10.3026  5C  160  0 

10.3027  3 3525  0 

10.3030  6 4751  0 

10.3031  0 3555  I 

10.3032  40010  1 


MARKFMSK 


CA 

AO 

TC 

OCT 


TEMPCR2 
B ITS5+11 
FOUR 

D0WNENT2 

40010 


*#400NT  MOVE 


0801  REF  4 LAST  1356 
0892  REF  3 LAST  1355 


10.3033  5C  16C  C 

10.3034  3 3511  1 


0893 

0894 


REF  12  LAST  1355* 


10.3035  C 0004  0 

10.3036  C 5137  1 


INDEX  TEMPCR2 
CAF  WAKECADR 

INHINT 

TC  JDBhAKE 


0895  REF 


10,3037  1 3336  0 


TCF  ENORET 


R0e96 

R0898 

R0900 

R0902 


ALL  ol  RESTARTS  BRANCH  DIRECTLY  TC  IMTDSPo  NORMAL  DISPLAYS  ARE  THEONLY  DISPLAYS  ALLOWED  TO  USE  ,1  RESTARTS 
INITOSP  FIRST  RESTORES  THE  EBANK  AND  THE  SUPERSANK  TO  THE  MOST  RECENT  NORMAL  EBANK  AND  SUPERBANKo 

IF  THE  MOST  RECENT  NORMAL  DISPLAY  REQUEST  WAS  NOT  FINISHED,  CONTROLIS  SENT  BACK  TO  THE  LAST  NORMAL  USER-. 
OTHERWISE  THE  NORMAL  DISPLAY  SET  UP  IN  THE  NORMAL  DISPLAY  REGS  IS  STARTED  UP  IMMEDIATELY* 


0904  REF  4 LAST  1351 

0905  R^F  81  LAST  1354 


10.3040  3 1071  0 INITOSP  CA 

10.3041  54  003  0 TS 


EBANKTEM 

EBANK 


RESTORE  MOST  PECECT  NORMAL  EBANK 


0906  REF  4 LAST  1352 

0907  REF  1 


10.3042  3 0366  1 

10.3043  0 4727  1 


CA  RESTREG  SUPERBANK  AND  JCB  PRIORITY 

TC  SUPERSW  RESTORE  SUPERBANK 


0908  REF  5 LAST  1353 
0900  ref  18  LAST  1351 


10,3C44  7 773C  0 

10,3045  0 5146  1 


YASK  PRIC37 
TC  PRIOCHNG 


0910 

0911 

0912 


REF 

REF 

REF 


LAST  1353 
LAST  233 
LAST  1354 


10.3046 

10.3047 
10,3050 


1 4640  0 


THREE 

TEMPFLSH 

BANKJUMP 


0913 

09135  REF 


10.3051 

10.3052 


0003  1 pinbrnch  relint 

1072  0 CA  MARK2PAC 


FOP  GOPIN  USERS 

NEEDED  TC  SAVE  MPAC  +2  FOR  MARK  USERS 


GAP;  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L DISPLAY  INTERFACE  ROUTINES 


0914  REF  821  LAST  1353 


10,3052  5A  156 


TS  MPAC  +2 


0915  REF  20 

0916  REF  1 

0917  REF  <i38 

0918 

C919  REF  1 

0920  REF  3 


LAST  1356 
LAST  1356 

LAST  1356 


10,3054 
10  ,3055 

10.3056 

10.3057 

10.3060 

10.3061 


2 0100  0 
7 7743  1 
1C  COO  0 
1 3062  1 
1 3472  1 
1 2400  0 


CA  FLAGVsR04 

MASK  PINMASK 

CCS  A 

TCF  +3 

TCF  ERASER 

TCF  MARKPLAY 


0921  REF  73  LAST  1327 

0922  REF  1 


10  ,3062 
10,3063 


0 5504  0 NCRM0NCH  TC  UPFLAG 

00105  0 A0R6S  PINBRFLG 


0923  REF  1 

0924  REF  21  LAST  1357 

0925  REF  439  LAST  1357 

0926  PEF  1 


10.3064  2 A736  1 

10.3065  7 OlPO  1 

10.3066  1C  000  0 

10.3067  1 25A5  C 


CAF  PRIOOeiT 

MASK  FLAGWR04 

CCS  A 

TCF  KEEPPRIC 


0927  REF  1 

0928  REF  1 


10.3070  1 2616  0 TCF 

10.3071  0 2A20  0 NVOSP  TC 


PLAYJUMl 

CGPYPACS 


09281 

09282 

09283 


REF  5 LAST  1356 
REF  22  LAST  1323 
REF  240  LAST  1354 


1},3072  3 0160  0 
10,3073  7 A757  1 
10,307A  5A  COl  1 


CA  TEMP0R2 

MASK  SEVEN 
TS  L 


0929  REF  47  LAST  131A 

0930  REF  12  LAST  1355 

0931  REF  1 

0932  REF'  13  LAST  1357 

0933  REF  2 LAST  1357 


10.3075  A A737  1 

10.3076  5C  164  1 

10.3077  7 1067  0 

10,31.00  5C  164  1 
IC,31C1  55*067  0 


CS 

INDEX 

MASK 

INDEX 

TS 


BIT13 
COFI NOEX 
OSPFLG 
COPINCEX 
DSPFLG 


REF  42  LAST  1323 
REF  33  LAST  1259 


10.3102  7 4744  0 

10.3103  5A  141  1 


MASK  B1T8 
TS  TEM3 


0936  REF  82?  LAST  1357 

0937  REF  2 LAST  1348 


10.3104  2 0156  C 

10.3105  54  165  1 


CA  MPAC  +2 

TS  MPAC2SAV 


0938  REF  2 

0939  REF  14 

0940  REF  3 

0941  REF  I 

0942  REF  1 

0943  REF  4 

0944  REF  5 

0945  REF  12 

0946  REF  1 

0947  REF  34 

0948  REF  138 

0949  REF  1 

0950  REF  1 


LAST  1356  10,3106 
LAST  1357  10,3107 
LAST  1355  10,3110 

10.3111 

10.3112 
LAST  1349  10,3113 
LAST  1357  10,311A 
LAST  1318  10,3115 

10,3116 
LAST  1357  10,3117 
LAST  1355  10,3120 

10.3121 

10.3122 


10  367  1 
1 3120  0 
1 3234  0 
A C37C  1 
5A  370  1 
7 6077  0 
6 3516  C 
6 0141  n 
6 4753  1 NVOSPl 

0 A155  1 NV50OSP 

1 3246  0 


TS  MARK2PAC 

INDEX  CCIPINDEX 

CCS  NVWORC 

TCF  NVOSPT 

TCF  CLEANEND 

CS  MARKNV 

TS  MARKNV 

MASK  L0W7 

AO  V05N00M1 

AO  TEMl 

AD  ONE 

TC  NVMONOPT 

TCF  REST 


17:53  OECe  19,1969  SKIPPER  *,101 


PAGE  1357 


USFR’  S PAGE  NCo  25  EP  S3 

ONLY 

PINBRANCH  CCNOITICN 

**  NOTHING  IN  ENDIDLE 

SET  PINBRANCH  BIT 

PRIO  INTERRUPTED 


SET  UP  BLANK  BITS  FCR  NVMONOPT  IN  CASE 
USER  REQUESTS  BLANKING  MONITOR 


BITS  SET  IF  DEC  MARK  PERFORM  DISPLAY 


* FOR  DISK  ONLY  * 


IN  CASE  MARKPLAY  AViAKENEO  AFTER  SLEEPING 


IF  BUSY 


ASSFI^BLE  REVISION  131  CF  AGC  PRCCRAM  LUMINARY  BY  NASA  2021112-091 


DISPLAY  INTERFACE  ROLTINE5 


0951 

0952 

0953 
095^ 

09541 

09542 

09543 

09544 

0955 

0956 

0957 

0958 

0959 

0960 

0961 


REF  6 

REF  1 
REF  102 
REF  1 
REF  103 
REF  1 
REF  104 
REF  1 
REF  6 
REF  2 
REF  1 
REF  45 
REF  7 
REF  440 
REF  1 


LAST  473  10,3123  0 4433  1 


TC 


FLASHOFF 


LAST  1329 

LAST  1358 

LAST  1358 

LAST  1357 
LAST  443 

LAST  1356 
LAST  1358 
LAST  1357 


10.3124 

10.3125 

10.3126 

10.3127 

10.3130 

10.3131 

10.3132 

10.3133 
10,3134' 

10.3135 

10.3136 

10.3137 

10.3140 

10.3141 


0 2416  0 
0 5516  C 
00102  1 
0 55)6  0 

00103  0 
0 5516  0 

00104  1 
3 0160  0 

0 4255  1 

1 3C71  0 
3 4747  1 
7 0160  1 
1C  000  0 
1 3164  0 


AORES 

TC 


AORES 

BLANKCHK  CA 


TCF 

PERFCHEK  CAF 
MASK 
CCS 
TCF 


COPYTOGO 
DOWNFLAG 
MRKNVFLG 
DQWNFLAG 
AORES  NRMNVFLG 
TC  OOWNFLAG 

PRCNVFLG 
TE  MP0R2 
BLANKSUB 
NVDSP 
P IT5 
TEMP0R2 


1STDR2N0 


0962 

0963 

0964 

0965 


REF  55 
REF  6 
REF  441 


LAST  1358 


10.3142 

10.3143 

10 .3144 

10.3145 


3 475C  1 
7 0160  1 
1C  000  0 
1 3261  0 


0966 

0967 

0968 

0969 


REF  9 
REF  60 
REF  442 


10.3146 

10.3147 

10. 3150 

10.3151 


4 0160  \ 
7 4746  1 
1C  000  0 
1 3156  1 


CS 

MASK 

CCS 

TCF 


09691 

09692 

09693 

09694 


PFF  15 
REF  3 
REF  823 


LAST  1357 
LAST  1355 
LAST  1357 


10.3152 

10.3153 
10,3X54 
10,3155 


5C  16*  1 
3 0372  1 
54  157  0 
I 3354  1 


INDEX  COPINCEX 

CA  CAORFLSH 

TS  MPAC  +3 

TCF  ENDIT 


0972 

0973 

0974 

0975 

0976 


REF 

REF 

REF 


LAST  1357 
LAST  1358 


10.3156 

10.3157 

10.3160 

13.3161 

10.3162 


50  164  1 
3 0367  0 
7 6077  0 
0 0006  1 
1 3261  0 


0977  REF  146  LAST  1348  10,3163  1 5155  1 


INDEX  COPINDEX 
CA  NVWORD 

MASK  L0W7 
EXTEND 

eZF  FLASESUE 

TCF 


ENOOF JOB 


0978 

0979 

0980 

0981 


REF  10 
REF  48 
REF  443 


LAST  1358 


10,3164 
10, J165 

10.3166 

10.3167 


3 C160  0 
7 4737  I 
10  000  0 
1 3142  1 


CCS 

TCF 


0982 

0983 

0984 


REF 

REF 

REF 


LAST  1358 
LAST  1350 
LAST  1357 


10.3170 

10.3171 

10.3172 


2 4737  0 
50  164  1 
27‘C67  C 


INDEX 

ADS 


B ni3 

COPINDEX 

DSPFL6 


10,3173  22  007  0 
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USER'S  PAGF  NOe  26  60  S3 

IN  CASE  CF  EXTENDEC  VERB  NON  FLASE 

MPACS  DESTROYED  BY  NVSUR 
UNSET  SLEEPING  BITS 


BLANK  BITS  1,2,3  IF  SET 

BIT  5 FOR  PERFORM 

IS  THIS  A GCPFPF  DISPLAY 
YES 


IT  IS 

IS  THI S A GODSPRFT 


IS  THI S A PASTE 

CHFCK  MADE  FOR  PINBRNCH  AND  PR  10  ON  MARK 
YES,  ASSUME  PASTE  ALWAYS  ON  FLASH 
NOT  FLASH,  NOT  GOPERF,  THERFORE  EXIT 


SECOND 


GAP:  ASSEI^BLE  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


L DISPLAY  INTERFACE  RHLTINES 


0985 

0986  REF  1 


10.3174  C CCC6  1 

10.3175  6 2441  I 


EXTEND 

BZMF  MARKPERF 


0987  REF 

09871 

09872  REF 

09674  REF 
098741  REF 

09675  REF 

0988  REF 

0989  REF 


35  LAST  1294 
1 

3 LAST  739 
1 

2 LAST  1349 
1 

3 LAST  1359 


10.3176 

10.3177 

10.3200 

10.3201 

10.3202 

10.3203 
I'1,  3204 
10,'»205 


7 4740  1 
C 0006  1 
1 3204  0 
4 1C66  1 
6 3542  1 
1 3121  1 
3 3501  0 
1 3121  1 


MASK 

E XTENO 

6ZF 

CS 

AD 

TCF 

V5CPAS1E  CAF 
TCF 


eiTl2 

V50PASTE 

NVWDROl 

V97N00 

NV50CSP 

VSONOn 

NV500SP 


0990  REF  46  LAST  1358 

0991 

0992  REF  35  LAST  1331 


10.3206  4 4747  0 

10.3207  0 0006  1 

10,3210  03  011  1 


WI TCHOAE  CS 

EXTEND 

WANC 


6IT5 

DSALMOUT 


0993 

0994 

0995 

0996 

0997 

0998 

0999 

1000 


REF  22 
REF  1 
REF  444 
REF  139 
REF  241 
REF  254 
REF  242 
REF  11 


LAST  1357 

LAST  1358 
LAST  1357 
LAST  1357 
LAST  1356 
LAST  1359 
LAST  462 


10.3211 

10.3212 

10.3213 

10.3214 

10.3215 

10.3216 

10.3217 
10,3220 


2 CICO  C 
7 3517  0 
10  COO  0 

2 4753  1 
54  001  1 

3 4755  1 
50  001  0 
57 '041  0 


CA  FLAGWRC4 

MASK  NVBUSMSK 

CCS  A 

CAF  ONE 

TS  L 

CAF  ZFRC 

INDEX  L 

XCF  CADPSTOR 


1001 

1002  REF  364  LAST  1354 


10.3221  0 0CC4  0 

10.3222  C 0002  0 


INHINT 
TC  Q 


1003 

1004 

1005 

1006 

1007 

1008 
lOOo 


REF  . 6 LAST  451 
REF  29  LAST  1355 

REF  2 LAST  1355 
REF  30  LAST  1359 
REF  31  LAST  1359 
REF  45  LAST  1320 


10.3223  3 4217  1 

10.3224  56  C64  0 

10.3225  C 0006  1 

10.3226  6 3232  1 

10.3227  56  064  0 

10.3230  50  064  0 

10.3231  54  164  C 


XCHTDEND 

XCHNYLCC 


CAF  ENCINST 
XCH  LOCCTR 

EXTEND 

BZFF  RELINTC 
XCH  LOCCTR 

INDEX  LOCCTR 

TS  LOC 


1010 

1011  REF  365  LAST  1359 


10  ,3232 
10,3233 


0 0003  1 
C 0002  0 


REL  INTO 


RELINT 
TC  0 


1012  REF  4 

1014  REF  44 

1015  REF  2 

1016  REF  1 

1016  REF  1 


LAST  882 
LAST  1300 
LAST  213 


10.3234 

10.3235 
0371 

10 .3236 

10.3237 


2 7723  0 
0 5105  0 

04231  0 
04060  0 


cleanend 


CAF 

TC 

eOANK= 

2CADR 


PPI032 
F INDVAC 
NVSAVE 
JAMTERM 


1017  PCF  3 LAST  1358  10,3240  1 3262  0 TCF  FLASHSUB 


1018  REF  23 

1019  REF  1 

1020 


LAST  1359 


10.3241  3 0100  0 ISITPRIO  CA  FLAGWRD4 

10.3242  7 3267  0 MASK  ITISMASK 

10.3243  0 0006  1 EXTEND 


17:53  DECo  19,1969 

USER'S  PAGE 

IS  IT  MARK 
YES 


SKIPPER  clOl  PAGE  1359 
NOe  27  EO  S3 


NV0WRC1=  -0  IS  V97o  NVW0RD1=  -400  IS  V99 

DISPLAY  SECOND  PART  CF  GOPERF 
TURN  OFF  KEY  RELEASE  LIGHT 

I S IT  NVSUB  ASLEEP 


TC  ENOOFJOB  REPLACES  GENADR  IN  LOC  FOR 
RAS  THIS  ADDRESS  SLEEPING 

NO 

YES 


BACK  TO  USER 

CNF  LOWER  THAN  DISPLAYS  SLEEPING 


IS  PINBRFLG,  MARKIDFLG  SET 


gap:  assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


DISPLAY  INTERFACE  ROUTINFS 


1023  REF  12  LAST  1359 

1024  REF  lAP  LAST  1360 

1025  REF  ) 


10,3246  11'041  1 REST 

10,32R7  1 5155  I 

10,3250  1 3252  0 


CCS  CADRSTOR 
TCF  ENDCFJCe 
TCF  PESTSLEP 


1026  REF  1^19  LAST  1360 


10,3251  1 5155  1 


TCF  ENCOFJCP 


1027  PEF 

1028  REF 

1029  REF 

1030 


2 LAST  1348 
1 

3 LAST  1356 


10,3252  3 0162  I 

10  ,3253  7 3520  1 

10,3254  c 35A5  0 


RESTSLEP  CA 

MASK 


TC 


GEN'MASK 

ASTROMSK 

UPENT2 


10 ,3255 


24100  n OCT2A100  OCT  24100 


1031  REF 

1032  REF 

1033  RFF 


LAST  1358 
LAST  468 


10.3256 

10.3257 
10,3260 


50  164 
3 3510 
0 4442 


INDEX  COPINDEX 
CAF  NVCADR 

TC  NVSUBUSV 


1034  REF 


4 LAST  451 


10,3261  0 4427 


FLASHSUe  TC 


FLAShCN 


1035  REF  19  LAST  1360 

1036  REF  1 


10,3262  3 0164  I 

10  ,3263  54  157  0 


CA  COPINDEX 

TS  COPMPAC 


1037  REF  3 LAST  136C 

1038  PEF  1 


10.3264  3 0162  1 

10.3265  7 3C11  0 


CA  GENPASK 

MASK  IDLFMASK 


1039  REF 


4 LAST  1360 


10,3266  0 3545  0 


TC  UP6NT2 


1040 


10,3267  40C40  1 ITISMASK  QCT  40040 


1041  REF  2 

1042  REF  20 

1043  REF  36 

1044  REF  445 

1045  REF  1 


LAST  224 
LAST  1360 
LAST  1331 
LAST  1359 


10.3270 

10.3271 

10.3272 

10.3273 

10.3274 


3 1073  1 
50  164  1 
7 A751  I 
10  000  0 
I 3361  I 


CA  RISAVE 

INDEX  COPINDEX 

MASK  8IT3 

CCS  A 

TCF  UNSETRl 


1046 

1047 

1048 

1049 


REF  13  LAST  1360 
REF  1 

REF  2 LAST  1360 


10.3275 

10.3276 

10.3277 
10,3300 


11'041  1 
1 3241  1 
1 3301  1 
1 3241  1 


CCS  CADRSTOR 

TCF  ISITPRIC 

TCF  +2 

TCF  ISITPRIO 


1050  REF  1 

1051  REF  1 


10,3301  C 4207  0 TC  ENCIDLE 

10,33C2  1 3373  1 lOLERETl  TCF  TERMATE 


1052  REF 


10,3303  1 3412 


TCF  PROCEED 


1053  REF  1 

1054  REF  824  LAST  1358 

1055 

1056  REF  446  LAST  1360 

1057 

1058  REF  1 


10.3304  4 3527  C 

10.3305  6 0154  1 

10,33C6  C 0006  1 
10,33C7  26  COO  C 

10.3310  0 0006  1 

10.3311  1 3462  0 


CS  LOhLCAD 

AD  NPAC 

EXTEND 
niM  A 

EXTEND 

BZF  LOACITIS 
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USER'  S PAGE  NCo  28  EC  S3 


IS  SOMEONE  IN  ENDIOLE 
YES 


SET  NVSLEEP  BITS 

OONT  MOVE 


BUSY  UR  ABORT  IF  ILLFGAL 


COPINDEX  OBSTRCYED  BY  ENDICLE 


***  ENDICLE  ALLOW  **■*  OONT  MOVE 
IS  THIS  A REPEAT  AND  RETURN  DISPLAY 

YES 

SEE  IF  SCMECNE  ALREADY  IN  ENOIDLE 


ENDIOLE  RETURNS  HERE  CN  PRCCEEO 

VERBREG 


V21  OP  V22  OR  V23  ON  DSKY 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 


L DISPLAY  INTERFACE  ROUTINES 


1059  REF  87  LAST  1352 

1060  BEF  I 


10,33.12  3 4752  0 OKTOENT  CAF 
10,3313  54  161  C ENDCUT  TS 


TWO 

OU THERE 


1061 

1062 

1063 

1064 

1065 

1066 


REF  24 
REF  2 
REF  447 
REF  1 
REF  I 
REF  1 


LAST  1359 
LAST  1292 
LAST  1360 


10 .3314 

10.3315 

10.3316 
10,?.317 

10.3320 

10.3321 


2 0100  0 
7 4101  1 
1C  COC  C 
1 3322  0 
1 3430  1 
1 3414  1 


CA  FLAGWRD4 

MASK  OCT6O00O 

CCS  A 

TCF  TIMECHEK 

TCP  NORMRET 

TCF  MARKRET 


1067  REF  21 

1068  REF  2 

1069  REF  448 

1070 

1071  REF  3 

1072  REF  140 

1073  BEF  I 

1074 

1075  REF  2 


LAST  1351 
LAST  1351 
LAST  1361 

LAST  1297 
LAST  1359 


LAST  1357 


1 ),3322 
10,3323 
in ,3324 

10.3325 

10.3326 

10 .3327 

10.3330 

10.3331 

10.3332 


4 0025  1 
6 1164  C 
10  OCO  0 
4 0000  0 
6 7734  C 
6 4753  1 
6 3571  1 
0 0CC6  1 
6 2545  1 


T I MECHEK 


CS  TIMEl 

AO  PRIGTIME 

CCS  A 

COM 

AD  0CT37776 

AO  ONE 

AD  -2SBC 

EXTEND 

8ZMF  KEEPPRIO 


1076  REF 


LAST  136!  10,3333  1 343C 


TCF  NORMRET 


1084  REF  141  LAST  1361 

1085  REF  1 


4753  1 NORMWAKE 
3025  1 


CAF  ONE 
TCF  WAKEPLAY 


1086 

1087 

1088 

1089 

1090 

1091 

1092 


REF  150  LAST  1360 
REF  2 LAST  1360 
REF  4 LAST  1358 
REF  825  LAST  1360 


10.3336  1C  161  0 

10.3337  6 4753  I 

10.3340  1 3342  0 

10.3341  1 5155  1 

10.3342  50  157  1 

10.3343  6 0372  1 

10.3344  54  157  0 


ENORET 


CCS  OUTHERE 

AO  ONE 

TCF  +2 

TCF  ENDCFJCe 

INDEX  COPMPAC 

AC  CADRFLSh 

TS  MPAC  +3 


1093  REF 

1094  REF 

1095  REF 

1096 


4 LAST  1360 

1 

3 LAST  1356 


10.3345  3 0162  1 

10.3346  7 3350  0 

10.3347  C 3555  1 

10,3350  74044  1 


PIMOMSK 


CA 

MASK 

TC 

CCT 


GENMASK 

PIMDMSK 

00WNENT2 

74044 


1097 

1098 

1099 


10. 3351 

10.3352 
10,3;53 


4 6250 
C 4154 
1 3354 


I 

n 

1 


CS  THREE 
TC  NVSUB 
TCF  +1 


1100  REF  3 LAST  1352 

1101  REF  6 LAST  1356 

1102  REF  19  LAST  1356 

1103  REF  826  LAST  1361 

1104  REF  19  LAST  1356 


10.3354  2 0163  0 ENOIT 

10.3355  7 7730  0 
10,3256  C 5146  1 
10,3357  3 0157  1 
10,3360  1 4640  0 


CA  USERPRIC 

MASK  PRI037 

TC  PRICCHN6 

CA  MPAC  +3 

TCF  BANKJUMP 


1105 

1106 


REF  21  LAST  1360 
REF  37  LAST  1360 


10,3361  50  164  1 UNSETRl 

10,?362  4 4751  1 


INDEX  COPINDEX 
CS  6IT3 


7:53  OECc  19,1969  SKIPPER  .101  PAGE  1361 
USER 'S  PAGF  NOo  29  EC  $3 


CHECK  NATURE  OF  ENCICLE  RETURN 


PRIO  ENDIDLE  RETURN 
NORMAL  ENOIOLE  RETURN 
mark  ENOIOLE  RETURN 


NORMAL  ENOIOLE  EXIT 


REMOVE  ENDIDLE  AMD  PINBPANCH  BITS 
DONT  MOVE 

BLANK  EVERYTHING  EXCEPT  MM 

RETURN  TC  USERS  PRIORITY 


RESET  REPEAT  AND  RETURN  REQUEST 


GAP  : 

L 

1107 

llOR 

1109 

1110 

nil 

1112 

1115 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

■ 1126 

1127 

1128 

1129 

R113n 

1132 

1133 

R1138 

R1140 

R1142 

R1143 

R1145 

R1147 

R1149 

1163 

1164 

1165 

1166 

1167 

1168 
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DISPLAY  INTERFACE  ROLTINES 


USER  'S  PAGE  N'Oc  3C  EC  S3 


REF  3 LAST  1360  10,3363  7 1073  0 MASK  RISAVE 

REF  4 LAST  1362  10,3364  55'073  0 TS  RISAVE 


REF  255  LAST  1359  10,3365  3 4755  I 
REF  2 LAST  1356  10,3366  0 4727  1 


CAF  ZERO  205  ONLY  MARK6RAN  USERS  IN 

TC  SUPERSW  SUPERBANK  0 


REF  41  LAST  1361 
REF  22  LAST  1361 
REF  5 LAST  1361 
REF  20  LAST  1361 


10,3367  3 6250  0 

10.3370  50  164  1 

10.3371  6 0372  1 

10.3372  1 464C  C 


-1  CAF  THREE 

IMPEDRET  INDEX  COPlNDEx 

AD  CAORFLSH 

TCF  BANKJUMF 


RETURN  TO  USERS  IMMEDIATE  RETURN  LOC 


REF  256  LAST  1362 
REF  1 


10.3373  3 4755 

10.3374  1 3313 


1 TERMATE  CAF 
1 TCF 


ZERO 

ENDOUT 


ASTRONAUT  TERMINATE  (V34>  RETURNS  TO 


REF  11 
REF  79 
REF  449 
REF  6 
REF  3 
REF  23 
PEF  6 


LAST  1354  10,3375 

LAST  1350  10,3376 

LAST  1361  10,3377 

LAST  1286  10,3400 

LAST  1355  10, ->401 

LAST  1362  10,3402 

LAST  1362  10,3403 

10  ,3404 
10,3405 


4 0160  I 
7 4736  0 
1C  COO  0 
I 6742  1 
4 0157  0 
50  164  1 
6 0372  i 
C 0006  1 
1 3407  0 


LI NLSCHR 


CS  PLAYTEM4 

MASK  BIT14 
CCS  A 

TCF  Q+1 

CS  PLAYTEM3 

INDEX  COPINDEX 

AD  CADRFLSH 

EXTEND 
BZF  +2 


IS  THIS  A LINUS 


NC 

YES,  IS  IT  ALREADY  IN  ENDIOLE 


YES 


REF  366 
REF  12 
REF  151 
REF  367 


LAST  1359 
LAST  474 
LAST  1361 
LAST  1362 


10.3406 

10.3407 
10 ,3410 
10  ,3411 


0 0002  0 
ll'Oll  1 
0 5155  0 
0 0002  0 


TC  0 NO 

CCS  OSPLOCK  IS  THE  ASTRONAUT  BUSY 

TC  FNDOFJOB  END  THE  NEW  DISPLAY,  ITS  ALREADY  ACTIVE 

TC  0 


MORE  LOGIC  COULD  BE 
REF  143  LAST  1361 
REF  2 LAST  1362 


INCQRPCRATED  HERE  TO  MAKE  SURE  A RECYCLE  IS  A RFCYCLANC  CONVERSLY  THAT  A LOAD  IS  A LOAD* 

10.3412  3 4753  1 PROCEED  CAF  ONE  ASTRONAUT  PROCEED  (V33I  RETURNS 

10.3413  1 3313  1 TCF  ENCOUT 


LASTPLAY  CHECKS  TO  SEE  IF  ID  THE 
CCULO  ONLY  HAPPEN  CURING  PINBRANCH)  OR 


LAST  NORMAL  DISPLAY  WAS  EITHER 
IF  (2)  THE  LAST  NORMAL  DISPLAY 


DISPLAY  WAS  GOING  RESULTING 


IN  THE  NORMAL  BEING  PUT  TG  SLEEPc 


INTERRUPTED  BY  A PR 
WAS  REQUESTED  WHILF 


C OR  A MARK  (MARK 
A HIGHER  PRIORITY 


IF  EITHER  OF  THE  ABOVE  2 CCNDITIONS  EXISTS  , THE  NORMAL  DISPLAY  IS  AWAKENED  TC  GO  TO 
UP  THE  MOST  RECENT  VALID  NORMAL  DISPLAY*  IF  THESE  2 CONDITIONS  DC  NOT  EXIST,  CONTROL  GOES 
STARTED  IMMEDIATELY  WITH  THE  ASSUMPTION  THAT  THE  MOST  RECENT  NORMAL  DISPLAY  IS  ALREADY  IN- 
PINBRANCH»  CR  THAT  A RESTART  HAS  CCCURREC  AND  THE  DISPLAY  CAN  BE  STARTED  AS  A *1  RESTART* 


FLAYJUMl  WHICH  STARTS 
TO  PLAYJUMl  WHICH  IS 
ENOIOLE(OURING  A 


REF  23  LAST 
REF  25  LAST 

REF  26  LAST 


1304  10,3414 

1361  10,3415 
10,3416 

1362  10,3417 


4 6245  0 MARKRET  CS  SIX 

7 OlOtJ  1 MASK  FLAGWRD4 

0 0004  0 INHINT 

54  ICO  1 TS  FLAGWRC4 


***  MAY  MOVE  DISPLAY  FLAGWCRO  OUT  OF 


REF 


LAST  1356 


1J,3420  0 0003 

10,3421  ] 3336 


FELINT  INHINT  REALM 

TCF  FNDPFT 
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L DISPLAY  INTERFACE  ROUTINES 


3 7752  0 MARKOVER  CAF 
54  161  0 TS 


1171 

1172 

1173 

1174 


REF  27  LAST  1362 
REF  12  LAST  1286 
REF  450  LAST  1362 
REF  1 


10 i3424  3 0100  0 

10»3425  7 4355  1 

10.3426  1C  CCO  0 

10.3427  1 3062  1 


CA  FLAGURD4 

MASK  PR  1030 

CCS  A 

TC  F NORMBNCH 


1175  REF  28  LAST  1363  10,3430  ? 0100  0 

1176  REF  2 LAST  1356  10,3431  7 3525  1 

1177  REF  451  LAST  1363  10,3432  10  000  0 

1178  REF  1 10,3433  1 3024  0 


NCRMRET 


CA 

MASK 

CCS 

TCF 


FLAGWPC4 
BI TS5+11 
A 

MARKWAKE 


1179 

1180 
1161 
1182 


REF  29  LAST  1363 
REF  I 

REF  452  LAST  1363 
REF  1 


10.3434  3 OICO  0 

10.3435  7 3526  1 

10.3436  1C  OCO  0 

10.3437  1 3334  1 


CA  FLAGV.RD4 

MASK  BITS4+10 

CCS  A 

TCF  NORMWAKE 


1183 

1184 

1185 

1186 

1187 

1188 
1189 


REF  5 
REF  4 
REF  453 
REF  3 
REF  3 


LAST  1356 
LAST  1323 
LAST  1363 
LAST  1362 
LAST  1359 

LAST  1363 


10.3440  3 1071  0 

10.3441  7 4771  0 

10.3442  10  000  0 

10.3443  1 3336  C 

10.3444  3 0371  1 

10.3445  C 0006  I 

10.3446  1 3336  0 


CA 

MASK 

CCS 

TCF 

CA 

EXTEND 

BZF 


EBANKTEM 

DC750 

A 

ENCPET 

NVSAVE 

ENDRET 


1190  REF 

1191 

1192  REF 

1193  REF 

1194  REF 
1194 


5-  LAST  472 

30  LAST  1353 
5 LAST  1358 
2 LAST  1357 


10,3447  3 5025  0 

10.3450  C 0004  0 

10.3451  C 5072  1 
0367 

10.3452  02616  1 

10.3453  20060  0 


CAF 

INhINT 

TC 

E8ANK= 

2CADR 


PRI015 

NOVAC 

NVWORO 

PLAYJUMl 


1195  REF 


LAST  1363  10,3454 


3336  0 


TCF  ENDRET 


1196 
11  97 

1198 

1199 
11991 


REF  30 
REF  3 
REF  454 
REF  152 
REF  3 


LAST  1363 
LAST  1362 
LAST  1352 


10.3455 

10.3456 

10.3457 
10,3460 
10  ,3461 


3 OICO  0 
7 3525  1 
1C  000  0 
1 5155  1 
1 2755  0 


MARSLEEP 


CA  FLAGWR04 

MASK  BITS5+11 

CCS  A 

TCF  ENDOFJOe 

TCF  GOSLEEPS 


1200  REF 

1201  REF 

1202  REF 

1203 

1204  REF 

1205 

1206  REF 

1207  REF 


3 LAST 

6 LAST 
14  LAST 

827  LAST 

1 

7 LAST 


1361 

1363 

1358 


1361 


829 


10.3462 

10.3463 

10.3464 

10.3465 

10.3466 

10.3467 
10,3470 
10  ,3471 


5C  157  1 

3 0367  0 
7 6077  0 

4 CCOO  0 
6 0155  C 
C 0006  1 
I 3312  0 
1 3051  1 


LCACITIS 


INCex  COPMPAC 

CA  NVk^ORD 

MASK  L0W7 

COM 

AO  MPAC  +1 

EXTEND 

eZF  CKTCENT 

TCF  PINBRNCH 
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PUPTReG2  IS  - MEANS  ENOCFJCB  TC  ENDRET 

I S ENOIOFLG  SET 

IS  NORMAL  OP  PRIO  IN  ENOIOLE 


IS  MARK  SLEEP  ING 
CR  WAITING 

NO 

IS  NORMAL  INTERRUPTED  OR  WAITING 
YES 

NO,  WAS  IT  A FLASH  REQUEST 
CR  A GOOSPRET 

YES 


IS  MARK  ALREADY  IN 

YES 


NOUNREG 


NO,  THEN  LOAD  IS  VALID 

YES,  ACCEPT  LOAD  BUT  ASK  FOR  LAST  AGAIN 


gap;  ASSEf'BLE  REVISION  131  CF  AGC  PPCCPA^  LUMINARY  BY  NASA  2021112-091 
L DISPLAY  INTERFACE  ROLTINES 


1208  REF  42 

12C9  REF  3 

1210  REF  153 

1211  REF  154 


LAST  1362 
LAST  1361 
LAST  1363 
LAST  1364 


10.3472 

10.3473 

10.3474 
1),3475 


4 6250 

0 4154 

1 5155 
1 5155 


ERASER 


CS  THREE 

TC  NVSUB 

TCF  ENDCFJCE 

TCF  END0FJ06 


1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 


REF 


REF 

REF 

REF 


LAST  1363 


LAST 

LAST 


10.3476 

10.3477 
10,3  50.0 

10.3501 

10.3502 

10.3503 

10.3504 
10 ,3051 

10.3505 

10.3506 

10.3507 

10.3510 

10.3511 
10  ,3512 


00036  1 
CC231  1 
01407  0 
14400  0 
00030  1 
01006  0 
CCC14  1 

23010  1 
40230  1 
40036  0 
20543  1 
20400  I 
20616  1 


PERFMASK 

V01N25 

V06N07 

V50N0C 

PERF2MSK 

V04N06 

PERF4MSK 

GOAGIN 

REOCMASK 

MARK3MSK 

MARK4MSK 

NVCADR 

t^AKECACP 


1357 

1363 


OCT 

VN 

OCT 

EQUALS 

OCT 

OCT 

OCT 

CACR 

CACR 

CACR 


0036 

00125 

00607 

5000 

00C30 

00406 

14 

P IN8RNCH 

20010 

40230 

40036 

PECCPR  10 

MARKPLAY 

PLAYJUMl 


1226 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1238 
12385 

1239 

1240 

1241 
124? 

1243 

1244 

1245 

1246 

1247 

1249 

1250 

1252 

1253 

1254 
A1255 

1256 

1257 


REF  4 

REF  1 
REF  1 
REF  12 
RFF  6 
REF  2 
REF  14 


REF  3 
REF  1 
REF  6 


REF  4 
REF  2 

REF  828 
REF  829 


LAST 


LAST 

LAST 

LAST 

LAST 


LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


450 


705 

493 

254 

1105 


1355 

1363 


130  6 
1358 

1363 

1364 


in', 
10, 
10  , 
10 
10, 


10, 

10 

10 

10 

10 

lOi 


10 

10 

10 

19 

10 

10 


,3515 

4144 

,3516 

,2330 

,2350 

,2334 

,2353 

5472 

C165 

.3517 

,3520 

,3521 

.3522 

,3523 

3524 

1067 

1070 

1C71 

,3525 

,3526 

.3527 

,3530 

3531 

7743 

,3071 


0157 

0160 


C340C 

11210 

66521 


0 

1 

1 


01177  1 


C0700  0 
00704  1 
40030  0 
34300  0 
40100  I 
COHO  1 


02020  1 
cinio  1 
00026  0 
77730  0 
C0050  1 


0CT3400 

N8USMASK 

PFPASK 

VERBMASK 

V05N00M1 

GCXOS  P 

60X0SPR 

GCXDSPf 

GCXOSPFR 

ENDEXT 

PPAC2SAV 

NVBLSMSK 

ASTROMSK 

NPERFMSK 

0CT343CC 

BITS1547 

BITS7+4 

OSPFLG 

MARKFLA6 

SAVEFLAG 

eiTS5+ll 

BI TS4+10 

LORLOAC 

8USYMASK 

CADRMASK 

PINMASK 

GCPLAY 

PRinSAVE 

COPMPAC 

TEMP0R2 


GCT 

OCT 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

ncT 

OCT 

OCT 

ncT 

OCT 

ncT 

EQUALS 

EQUALS 

EQUALS 

OCT 

OCT 

DEC 

OCT 

OCT 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 


66521 
MI  D7 
1177 
GOMARK 
GOMARKR 
GOMARKF 
GCMARKFR 
ENDMARK 
RANKSET 
700 
704 
40030 
34300 
40100 
110 

EBANKSAV 
MARKEBAN 
EBANKTEM 
2020 
’ 010 
22 

77730 

50 

13,14, 15 
NVCSP 
R1 SAVE 
MPAC  +3 
MPAC  +4 
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USER  'S  PAGE  NOo  32  EO  S3 

PLANK  EVERYTH! NGEXCEPT  MM 


FLASH, PERFORM, BLANK  R2  AND  P3 
G0PERF3  VN  DISPLAY  BEFORE  V50 
FLASH,  PEPFCPM 
FLASH,  BLANK  R3 
BITS  4 AND  1^ 

MARK, DECIMAL  NCUN,  P ER FORM, FL AS H 
MARK, PERFORM, FLASH, BLANK  2 AND  3 


EBANK  MASK 

(OCT  37600) 
VP5  MINUS  ONE 


BIT  15,5,4  FOR  MARK, PERFORM , FLASH 


OONT  MOVE 
DONT  MOVE 
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1258 

1259 

1260 
1261 
1262 

1263 

1264 


REF  830  LAST  1364 
REF  46  LAST  1359 
REF  37  last  1071 
REF  831  LAST  1365 


0161 

0X64 

0163 

0162 

10.3532  2C144 

10.3533  42424 

10.3534  11254 


0 

1 


OUTHERE 

CGPINDEX 

USERPR  10 

6ENMASK 

PRIOOCT 

MARKGCT 


EQUALS 

ECLALS 

EQUALS 

EQUALS 

OCT 

OCT 

OCT 


MPAC  +5 

LOC 

MODE 

MPAC  +6 

20144 

42424 

11254 


1267  REF  9 

1266  REF  832 

1269  REF  833 

1270  REF  83^ 

1271  REF  835 

1273 

1274  REF  3 

1275 

1276 

12761 

12762 


LAST  493 
LAST  1365 
LAST  1365 
LAST  1365 
LAST  1365 

LAST  1353 


5464 

0154 

0155 
0157 
0160 

10,3537 

10.3540 

10.3541 

10.3542 

10.3543 
10  ,3544 


40420 

C2547 

10200 

30200 

20100 

24030 


1 lOLESLEP 
1 0CT67777 

LI  NUS 
FACEREG 
PLAYTEMl 
PLAYTEM3 
PLAYTEM4 
0 CCT4042n 

0 makegen 

1 0CT10200 

0 V97N00 

1 00720100 
1 CLCCKCON 


EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

OCT 

genadr 

OCT 

VN 

OCT 

OCT 


74704 
67777 
BLANKET 
MPAC 
MPAC  +1 
MPAC  +3 
MPAC  +4 
40420 
MAKEPLAY 
10200 
09700 
20100 
24030 
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PRIP 

MARK 

NORM 


PASTE  FOR  V97  OR  V99 

FLASH,  PERFORM,  V99  OR  V97  PASTE , REFLASH 
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L SERVICE  ROUTINES 


0002  REF 

0003 

0004  REF 


10,3545 

2 LAST  1346  10,2^00 

10,3545 

2 LAST  1346  TO  1366:  655  655* 


SETLCC  DISPLAYS 
BANK 

CCUM*  SS/CSPLA 


0005 

0006 
0007 
00U8 

0009 

0010 
0011 
0012 


REF  3 
REF  243 
REF  31 
REF  244 
REF  32 

REF  7 


LAST  1278 
LAST  1359 
LAST  1363 
LAST  1366 
LAST  1366 

LAST  1362 


10. 3545 

10.3546 

10.3547 

10.3550 

10.3551 

10.3552 

10.3553 

10.3554 


0 0004  0 
7 5650  0 
54  001  1 
4 0100  1 
7 OOCl  1 
26  ICO  I 
C 0003  1 

1 6742  1 


UPENT2 


JOIN 


INHINT 

MASK  OCTTTTTC 

TS  L 

CS  FLAGURD4 

MASK  L 

AOS  FLAGWRD4 

PELINT 

TCF  0+1 


0013 

0014  REF  4 

0015 

0016  REF  33 

0017  REF  34 

0018  REF  1 


LAST  1366 

LAST  1366 
LAST  1366 


10.3555 

10.3556 

10.3557 

10.3560 

10 .3561 

10.3562 


C 0004  0 
7 5650  0 
4 COCO  0 
7 OICO  1 
54  ion  1 
1 3553  0 


DaWN6NT2  INHINT 
MASK 
COM 
MASK 


0CT77770 

FLAGV»PD4 

FLAGWRD4 

JOIN 


0032 


REF  23  LAST  1357 


4757 


0CT7 


EQUALS  SEVEN 
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USER'S  PAGE  NC.  1 EO  S3 


GAP  : 

L 

P0033 

R003A 

R0036 

ft003B 

R0040 

R0041 

R0043 

R0044 

R0045 

R0046 

R0047 

R00A9 

0050 

0051 

0052 

0053 

005A 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 
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SERVICE  ROUTINES  USER'S  PAGE  Nn,  2 EO  S3 


UPFLAG  AND  DOWNFLAG  ARE  ENTIRELY  GENERAL  FLAG  SETTING  ANC  CLEARING  SUBROUTINGSo  USING  THEM,  WHETHER  OR 
NOT  IN  INTERRUPT,  ONE  MAY  SET  OR  CLEAR  ANY  SINGLE,  NAMED  BIT  IN  ANY  ERASABLE  REGISTER,  SUBJECT  CF  COURSE  TO 
E6ANK  SETTINGo  A "NAMED''  BIT,  AS  TEE  WORD  IS  USED  HERE,  IS  ANY  BIT  WITH  A NAME  FORMALLY  ASSIGNED  BY  THE  YUL 
ASSEMBLER., 


AT  PRESENT  THE  ONLY  NAMED  BITS  ARE  THOSE  IN  THE  FLAGWORDS#  ASSEMBLER  CHANGES  WILL  MAKE  IT  POSSIBLE  TO 
NAME  ANY  BIT  IN  ERASABLE  MEMCPY* 

CALLING  SEQUENCES  ARE  AS  FOLLOWS:- 

TC  UPFLAG  TC  DOWNFLAG 

AORES  NAME  OF  FLAG  ADRES  NAME  OF  FLAG 

RETURN  IS  TO  THE  LOCATION  FOLLOWING  THE  "AORES"  ABOUT  » 58  MS  AFTFR  THE  "TC"o 


LPON  RETURN  A CONTAINS  THE  CURRENT 


FLAGWRC  SETTING* 


REF  3 LAST  1206 
REF  I 


5504 

4000 

5504 


BLOCK  02 
SETLOC  FFTAGl 
BANK 

COUNT*  S$/FLAG 


REF  368  LAST  1362 
REF  2 LAST  737 


REF  .16  LAST  1020 
REF  57  LAST  1317 
REF  29  LAST  960 
REF  26  LAST  1292 

REF  245  LAST  1366 


5504  3 0002  0 

5505  0 5522  1 

5506  4 0000  0 

5507  0 0006  1 

5510  CA  001  I 

5511  50  061  0 

5512  54  C74  0 

5513  22  063  I 

5514  0 0003  1 

5515  C 0001  0 


UPFLAG  CA  0 

TC  DEBIT 

COM  + (15  - BIT) 

EXTEND 

ROR  LCHAN  SET  BIT 

COMFLAG  INDEX  ITEMPl 

TS  FLAGWRCO 

LXCH  ITEMP3 

REL  INT 
TC  L 


REF  369  LAST  1367 
REF  3 LAST  1367 
REF  246  LAST  1367 
REF  2 LAST  737 


5516  3 0002  0 

5517  0 5522  1 

5520  7 QCOl  I 

5521  1 5511  0 


DOWNFLAG  CA 
TC 

MASK 

TCF 


0 

DEBIT 

L 

COMFLAG 


RESET  BIT 


REF  144  LAST  1362 

REF  27  LAST  1367 
REF  3 LAST  1086 
REF  58  LAST  1367 
RFF  20  LAST  1367 

REF  247  LAST  1367 
REF  257  LAST  1362 


5522  6 4753  1 

5523  0 0004  0 

5524  54  063  0 

5525  3 4762  0 

5526  54  061  1 

5527  50  063  1 

5530  2'7777  0 

5531  54  001  1 

5532  3 4755  1 


DEBIT 


AC  ONE  GET  DE  BITS 

INHINT 

TS  ITEMP3 

CA  L0W4  CEC)5 

TS  ITEMPl 

INDEX  ITeMP3 

CA  0 -1  AORES 

TS  I 

CA  ZERO 


GAP: 

L 

0077 

0070 

0079 

0C80 

0061 

0082 

0083 

0004 

0085 
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SERVICE  ROUTINES 


USER ' S PAGE  NOo  3 


EO  S3 


REF  59  LAST  1367 
RFF  60  LAST  1360 
REF  61  LAST  1368 
REF  30  LAST  1367 
REF  248  LAST  1367 
REF  26  LAST  1316 
REF  47  LAST  1347 
REF  370  LAST  1367 


5533  0 0006  1 

5534  10  061  1 

5535  52  062  1 

5536  50  061  0 

5537  3 0C74  1 

5540  54  OCl  I 

5541  50  C62  0 

55A2  A735  C 

5543  0 0002  0 


EXTEND 

DV  ITEMPl  A = FLAGWRO,  L = ( 15  - BIT! 

OXCH  ITEMPl 

INDEX  ITEMPl 

CA  FLAGWRDO 

TS  L CURRENT  STATE 

INDEX  ITEMP2 

CS  BIT15  -(15  - BIT) 

TC  Q 


gap:  assemble  REVISION  131  OF  AGC  PPCGRA^  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19,1969 


SKIPPER  . 101  PAGE  1369 


L SERVICE  ROUTINES 


USER'S  PAGE  NCo  A EC  S3 


DELAYJOB-  A GENERAL  RCUTINE  TC  DELAY  A JCB  A SPECIFIC  AMOUNT  OF  TIME  BEFORE  PICKING  UP  AGAINc 


ROOBB 

A0089 

AOOon 

A0091 


ENTRANCE  R EQU I REME NTS»o c 


CAF  OT  DELAY  JOB  FOR  OT  CENTISFCS 

TC  BANKCALL 

CAOR  DELAYJCB 


0092 

0093  REF 
00  9A 


06,3772 

00,2000 

00,3735 


BANK  06 
SETLOC  DLAYJOe 
BANK 


R0095 

0096 
00965 

0097 

0098 


THIS  MLST  REMAIN  I N 
REF  1 

REF  7 LAST  1308 
REF  371  LAST  1368 


EANK  n # 

00,3735 

00,3736 

00,3737 


COUNT*  tS/DELAY 

3 5000  1 2SECCELY  CAF  2SECS 
0 OOOA  0 DELAYJCB  INHINT 
5A  002  1 TS  Q 


STORE  DELAY  DT  IN  C FCR  DLY  -1  IN 


0099  REF  1 

0100  RFF  58  LAST  1318 

0101  REF  455  LAST  1363 

0102  REF  ^ LAST  224 

0103 

0104  REF  1 


30,3740  3 4752  0 
00,3741  54  C70  1 
00,3742  50  000  1 
30,3743  3 1323  1 
00,3744  C 0CC6  I 
00,3745-  1 3753  1 


CAF  DELAYNUM 

DELLOOP  TS  RUPTREGl 

INDEX  A 

CA  DELAYLOC 

EXTEND 

BZF  DK2DELAY 


WAITLIST 


IS  THIS  DELAYLOC  AVAILABLE 
YES 


0105  REF  59  LAST  1369 

0106  REF  1 


00,3746  10  070  1 

00,3747  1 3741  1 


CCS  RUPTREGl  NO,  TRY  NEXT  DELAYLOC 

TCF  DELLOOP 


0107  REF  27  LAST  1323 

0108  REF  7 LAST  1322 

0109 


00,3750  52  134  0 
00,3751  f 5706  C 
00,3752  311C4  0 


CXCH  BUF2 

TC  BAILCUTl  NO  AVAILAELF  LOCSo 

OCT  31104 


1 

7 LAST  1126 


1 

1 


CK2CELAY  CA 
TS 


SET  WAITLIST  IMMEDIATE  RETURN 


0112 

0113 

0114 


RFF  31 
RFF  60 
REF  249 


LAST  1368 


00,3755  3 0004  0 
00,3756  6 0070  0 
00,3757  54  OCl  1 


CA  F8ANK 

AD  RUPTREGl  STORE  BBANK  FOR  TASK  CALL 

TS  L 


0115 

0116 


1 00,3760  3 3774  0 

2 LAST  1113  00,3761  I 5211  1 


CAF  WAKECAD  STORE  CAOR  FOR  TASK  CALL 

TCF  DLY2  -1  CLY  IS  IN  WAITLIST  ROUTINE 


0117 


REF  15  LAST  1354 


00,3762  0 4645  1 TCGETCAD  TC 


MAKECADR 


GET  CALLERS  FCAOR 


0118 

0119 


REF  61 
REF  5 


LAST  1369 
LAST  1369 


00,3763 

00,3764 


50  070  0 
55'323  0 


INDEX  RUPTREGl 

TS  DELAYLOC  SAVE  DELAY  CADPS 


0120  REF 


LAST  1355 


00  ,3765  0 5133  0 


TC  JoeSLEEP 


0121  REF  258  LAST  1367  00,3766  3 4755  1 UAKER  CAF  ZERC 

0122  REF  46  LAST  1353  00,3767  50  006  1 INDEX  BBANK 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
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L SERVICE  ROUTINES 

0123  REF  6 LAST  1369  00,3770  57'223  1 

012A  REF  13  LAST  1356  00,3771  0 5137  1 

0125  REF  81  LAST  1320  00,3772  0 5261  1 


1 

1 


TCSLEEP 

WAKECAC 


XCH  OELAYLCC 

TC  JOBWAKE 


TC  TASKGVEP 

GENADR  TCGETCAO  -2 
GENADR  WAKER 


USER'S  PAGE  NOo 
RAKE  CELAYLCC  AVAILABLE 


ED  S3 


gap: 

L 

P0128 

R0129 

R013n 

R0132 

R0133 

R0135 

R0137 

A0139 

A0140 

A0191 

A0192 

A01A3 

R0144 

R0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 
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SKIPPFP  ,101  PAGE  1371 


SERVICE  ROUTINES 

GENTRAN,  A BLOCK  TRANSFER  ROUTINE, 

WRITTEN  BY  C,  EYLES 
MOD  1 BY  KERNAN 

MOO  2 BY  SCHULENBEBG  (REMOVE  REL 

THIS  ROUTINE  IS  USEFULL 
CONSECUTIVE  ERASABLE  LOCATIONSo 

GENTRAN  IS  CALLABLE  IN  A 


USeR*S  PAGE  NCo  6 EO  S3 


UTILITYM  REV  17  11/18/67 


1NT>  SKIPPER  REV  4 2/28/68 

FCR  TRANSFERING  N CONSECUTIVE  ERASAB 
IF  BOTH  BLOCKS  CF  DATA  ARE  IN  SWITCH 

JOB  AS  WELL  AS  A RUPTo  THF  CALLING 

I CA  N-1 

I +1  TC  GENTRAN 

I +2  AORES  L 

I +3  ACRES  M 

I +4 


LE  OR  FIXED  QUANTITIES  TO  SCME  OTHER  N 
ABLE  EBANKS,  THEY  MUST  BF  IN  THE  SAME  ONEo 


SEQUENCE  IS: 

H OF  QUANTITIES  MINUS  ONE. 

IN  FIXEC-FiXFDo 

STARTING  AORES  OF  DATA  TO  BE  MOVEOo 
STARTING  AORES  OF  DUPLICATION  BLOCK, 
RETURNS  HEREo 


GENTRAN  TAKES  25  -MCT'S 


(300  MICRCSECONOS)  PER  ITEM 


5 MCT'S  (60  MICS» 


FOR  ENTERING  AND  EXITINGo 


A 


AND  ITEMPl  ARE  NCT  PRESERVEDo 


REF 


LAST  1346 


5544 

4000 

5544 


BLOCK  02 
SETLCC  FFTAG4 
BANK 


REF  62  LAST  1368  0061 


EBANK=  ITEMPl 


REF 


COUNT*  $$/TRAN 


REF  63 
REF  372 


REF  456 

REF  250 
REF  64 
REF  373 

REF  457 

REF  65 
REF  2 
REF  5 


LAST  1371 
LAST  1369 

LAST  1369 

LAST  1369 
LAST  1371 
LAST  1371 

LAST  1371 

LAST  1371 
LAST  299 
LAST  1286 


5544  0 0004  0 

5545  54  061  I 

5546  50  QC2  0 

5547  6 0000  1 

5550  50  000  1 

5551  3 0000  1 

5552  54  001  1 

5553  3 0061  0 

5554  50  002  0 

5555  6 0001  0 

5556  5C  OCO  1 

5557  22  000  I 

5560  10  061  1 

5561  1 5545  1 

5562  1 6744  1 


GENTRAN 


INHINT 

TS 

INDEX 


INDEX 

AC 

INDEX 

LXCH 

CCS 

TCF 

TCF 


ITEMPl 

GENTRAN 

Q+2 


SAVE  N-lc 

C(0)  = ACRES  Lo 

AORES  ( L + N - 3 3e 

CIABOVE  »<, 

SAVE  DATAo 


AORES  (M  + N - 1 >0 
STUFF  ITe 

LOOP  UNTIL  N-1  = Oo 
RETURN  TO  CALLEPo 


GAP 
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P0167 

R0168 

0170 


SERVICE  ROLTINES 
e5CFF  ZERO  BIT  5 OF  EXTVBACT, 
MAY  BE  USED  AS  NEEDED 

REF  1 


WFICH  IS  SET  BY  TESTXACTe 
BY  ANY  EXTENDED  VERB  WHICH  HAS  DONE  TESTXACT 
COUNT#  $$/EXTVe 


USER'S  PAGE  NOo  7 EO  S3 


0171 

0172 

0173 
017A 


REF  A7  LAST  1359 
REF  18  LAST  1346 
REF  19  LAST  1372 
REF  155  LAST  1364 


5563  A 4747  0 

5564  7 1043  0 
,5565  f5'0A3  0 
5566  0 5155  0 


B50FF 


CS  BITS 

MASK  EXTVBACT 

TS  EXTVBACT 

TC  ENOOFJOB 


gap;  assemble  revision  131  OF  AGC  PROGRAM  LUMlNARV  BY  NASA  202)112-091 
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L ALARM  AND  ABORT 


USER*  S PAGE  NCe  1 EO  S3 


ROOOl  THE  FOLLOWING  SUBROUTINE  MAY  BE  CALLED  TO  DISPLAY  A NCN-A8GFTIVE  ALARM  CONDITIONo  IT  MAY  BE  CALLED 

R0003  EITHER  IN  INTERRUPT  OR  UNDER  EXECUTIVE  CONTROL® 


ROOOA 


CALLING  SEQUENCE  IS  AS  FCLLCWS: 


R0005  TC  ALARM 
R0006  CCT  AAANN 
R0007 


ALARM  NO*  NN  IN  GENERAL  AREA  AAA* 
(RETURNS  HERE) 


0008 

0309  REF 
0010 


5567 

4000 

5567 


BLOCK  02 
SETLOC  FFTAG7 
BANK 


0011  REF  7 LAST  475 


0375 


EBANK=  FAILREG 


0012 

R0013 


REF  1 

ALARM  TURNS  UN  THE  PROGRAM  ALARM  LIGHT, 


COUNT*  $$/ALARM 
BUT  COES  NOT  DISPLAY* 


5567  0 0004  0 ALARM 


0017 

0018 
0019 


REF  375  LAST  1373 
REF  251  LAST  1371 


5572 

5573 

5574 


3 0002  0 
55*363  1 
50  002  0 
3 0000  1 
54  001  1 


INDEX 

CA 


BORTENT  TS 


0020  REF  47  LAST  1369 

0021 

0022  REF  27  LAST  1353 

0023  REF  5 LAST  1373 


5575  3 0006  1 

5576  C 0006  1 

5577  04  007  1 

5600  55*364  0 


PRIOENT  CA 
+1  EXTEND 

ROR 
TS 


BBANK 

SUPER6NK 

ALMCADR 


1 


ADD  SUPER  BITS* 


0024  REF  376  LAST  1373 

0025  REF  66  LAST  1371 


5601  3 00C2  0 LARMENT  CA 

5602  54  061  1 TS 


Q 

ITEMPl 


STORE  RETURN  FOR  ALARM 


0026  REF  8 

0027  REF  1 

0028  REF  252 

00285  REF  9 

0029  REF  1 


LAST  1373 

LAST  1373 
LAST  1373 


5603  10  375  1 

5604  1 5610  1 

5605  3 0001  0 

5606  54  375  1 

5607  1 5614  0 


CHKFAI LI 


CCS 
TCF 
CA 
TS 
TC  F 


FAILREG 

CHKFAIL2 

L 

FAILREG 

PROGLARM 


IS  ANYTHING  IN  FAILREG 
YES  TRY  NEXT  PEG 


TURN  ALARM  LIGHT  CN  FOR  FIRST  ALARM 


0030  REF  in 

0031  REF  2 

0032  REF  253 

0033  REF  11 


LAST  1373 
LAST  1373 
LAST  1373 
LAST  1373 


5610 

5611 

5612 

5613 


10  376  1 CFKFAIL2 
I 5614  0 
3 0001  0 


54  376  1 


CCS 

TCF 

CA 

TS 


FAILREG  +1 

PRCGLARM 

L 

FAILREG  +1 


0039  REF  12  LAST  1373  5614  22  377  1 PROGLARM  LXCH  FAILREG  *2  STORE  AS  '*MCST  RECENT"  ALARM  CODE 


0040  REF  47  LAST  1309 

0041  REF  2 LAST  1350 


5615  4 1035  I 

5616  7 5632  1 


CS  DSPTAB  +Un  TURN  ON  PROGRAM  ALARM  IF  OFF 

MASK  (3CT40400 


0042 


REF  48  LAST  1373 


5617  27*035 


AOS  DSPTAB  +11D 


gap: 

L 

0043 

0044 

0045 

0046 

R0051 

R0053 

A0054 

A0055 

A005t> 

A0057 

A005R 

AO  059 

A0060 

AU061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0061 

0082 

0083 

0084 

0065 

0086 

0087 

0088 
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ALARM  AND  ABORT 
REF  67  LAST  1373 
PEF  458  LAST  1371 


562C 

5621 

5622 

5623 


56  C61  C 
0 0003  1 
50  000  1 
C UOOl  0 


MULTEXIT  XCH  ITEMPl 

REL  INT 
INDEX  A 
TC  1 


USER  'S  PAGE  NOo 


OBTAIN  RETURN  ADDRESS  IN  A 


RETURNS  TO  THE  USER  FROM  THE  ASTRONAUT  AT  CALL  LOC 
+4«  EXAMPLE  FOLLOWS, 

CAF  OCTXX  ALARM  CODE 

TC  BANKCALL 

CAOR  PRICLARM 


ooo  »oo  ASTRONAUT  RETURN 

TC  PHASCHNG  IMMEDIATE  RETURN  TC  USEP«  RESTART 

OCT  Xol  PHASE  CHANGE  FOR  PRIO  DISPLAY 


10 ,3563 

REF  3 LAST  1366  10,2000 


BANK  10 
SETLOC  DISPLAYS 


10,3563 


BANK 


REF  3 
REF  254 


LAST  1366  TO  1367: 

10,3563 
LAST  1373  10,3564 


14  669> 
C 0004  0 
54  001  1 


PRICLARM 


COUNT# 

INhINT 

TS 


$$/OSPLA 

L 


# ♦ # KEEP  IN  DISPLAY  ROUTINES  BANK 
SAVE  ALARM  CODE 


REF 

REF 

PEF 

REF 


28 

6 

29 

1 


LAST 

LAST 

LAST 


1369 

1373 

1374 


PEF  6 LAST  925 
REF  2 LAST  519 


10.3565  3 0133  0 

10.3566  55*363  1 

10.3567  3 0134  1 

10.3570  C 5576  0 

10.3571  77467  I -2SEC 

10.3572  3 5006  1 

10.3573  1 2505  I 


CA  BUF2  2 CADR  OF  PRIOLARM  USER 

TS  ALMCADR 

CA  BUF2  +1 

TC  PRICENT  +l  # LEAVE  L ALONE 

DEC  -2CC  DCNT  MCVE 

CAF  V05NO«? 

TCF  PRICDSFR 


REF 


LAST  1373 


5624 

4000 

5624 


BLOCK  02 
SETLCC  FFTAG7 
BANK 


REF  2 LAST  1373  TO  1374  : 

5624 

REF  377  LAST  1373  5625 

RF.F  7 LAST  1374  5626 


29  29# 

C 0CC4  0 BAILOUT 
2 Q0C2  0 
55*  363  I 


COUNT#  St/ALAPM 
INHINT 
CA  0 

TS  ALMCADR 


REF  378  LAST  1374 
REF  1 


5627  50  CC2  0 

5630  3 0000  1 

5631  0 5574  1 

5632  40400  1 


OCT404oQ  nCT 


0 

0 

BORTENT 

40400 


REF  88  LAST  1361 
REF  24  LAST  1286 


5633  0 0004  0 INhINT 

5634  3 4752  0 WHIMPER  CA  TWC 

5635  6 0005  1 AO  Z 


GAP 


ASSEMBLE  REVISION  l?l  OF  AGC  PROGRAM  LLMINARY  BY  NASA  2021112-0'51 


L ALARM  AND  ABORT 


0089 

0090 

0091 

0092 

0093 
009A 

0095 

0096 

0097 

0098 

0099 


REF  2 LAST  e2A 

REF  60  LAST  1346 
REF  2 LAST  826 

REF  379  LAST  1374 
REF  8 LAST  137A 
REF  380  LAST  1375 

REF  2 LAST  1374 


5636 

5637 
5640 
56A1 

5642 

5643 
56A4 

5645 

5646 
56A7 
5650 


0 4635  0 
13763  C 
0 0004  n 
.3  10C2  0 
55*363  1 
50  002  0 
3 0000  1 
C 5574  1 
77770  1 


POODOO 

ABnRT2 


0CT77770 


CADR 

INHINT 


TS 

INDEX 

CAF 


6RUPT 

POST  JUMP 
FNEMA 

Q 

ALMCADR 

0 

0 

BORTENT 

77770 


0100 

0101 

0102 

0103 

0104 
01^42 
010^4 

0105 

0106 

0107 

0108 

0109 

0110 
01102 
01104 
0111 
OJ 12 
01 122 

01124 

01125 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 


REF  3 
REF  255 

REF  9 

REF  304 
REF  1 
REF  31 
REF  3 
REF  459 
REF  1 
REF  305 
REF  2 
REF  306 
REF  2 
REF  2 
REF  1 
REF  3 
REF  307 
REF  1 

REF  381 
REF  1 


REF  382 
REF  2 


REF  9 


LAST  1090 
LAST  1374 

LAST  860 

LAST  1327 

LAST  1331 
LAST  282 
LAST  1374 

LAST  1375 
LAST  232 
LAST  1375 
LAST  214 
LAST  86C 

LAST  1362 
LAST  1375 


LAST  1375 


LAST  1375 
LAST  1278 


LAST  1375 


5651  3 4765  1 

5652  54  001  1 

5653  4 0000  0 

5654  52  760  1 

5655  0 0004  0 

5656  C 4616  1 

5657  27746  1 

5660  3 0103  0 

5661  7 4746  1 

5662  10  000  0 

5663  1 5671  0 

5664  0 4616  1 

5665  12650  1 

5666  0 4616  1 

5667  12641  1 

5670  1 5634  1 

5671  3 5733  G 

5672  0 4727  1 

5673  0 4616  1 

5674  57322  0 

5675  0 0004  0 

5676  3 CCC2  0 

5677  0 5644  1 

5700  21103  0 

57C1  C 0004  0 

5702  3 0002  0 

5703  0 5571  1 

5704  00217  0 

5705  0 136?  0 


CAF 

TS 

CCM 

OXCH 

GOPCODOO  INHINT 
TC 

CADR 

CA 

MASK 

CCS 

TCP 

TC 

CACR 

TC 

CADR 

TCF 

STRTIDLE  CAF 
TC 
TC 

CACR 

CCSHOLE  INHINT 
CA 
TC 

CCT2Un3  CCT 
CURTAINS  INHINT 
CA 
TC 

0CT217  OCT 
TC 


0CT35 

L 

-PHASE4 

BANKCALL 
FLAGS 
FLAGWRC7 
V37FL8I T 
A 

STRTIDLE 

EANKCALL 

V37KLEAN 

BANKCALL 

MRoKLEAN 

WHIMPER 

B6SERVCL 

SUPERSW 

BANKCALL 

SERVIOLE 

Q 

AB0RT2 

21103 

0 

ALARM2 

00217 

ALMCADR 


0123 

0124  REF  10 

0125  REF  1 

0126  REF  68 

0127  REF  383 

012P 

0129  REF  256 

0130  REF  1 


LAST  1375 

LAST  1374 
LAST  1375 

LAST  1375 


5706 

5707 

5710 

5711 

5712 

5713 

5714 

5715 


C 0004  0 
53*364  0 

2 5732  1 
54  061  I 
50  002  0 

3 0000  1 
54  001  1 
1 5603  0 


BAILOUTl  INHINT 
DXCH 
CAF 

BOTHABRT  TS 

INDEX 

CAF 

TS 

TCF 


ALMCADR 
ACR40400 
I TEMPI 
0 
0 
L 

CHKFAILl 
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USER  'S  PAGE  NCc  3 EO  S3 

RESUME  SENDS  CONTROL  HERE 


DON’T  MOVE 

4o35SP0T  FOR  GCPCOCOO 

RESET  STATEFLG,  RFINTFLG,  AND  NOOOFLAGo 
IS  SERVICER  CURRENTLY  IN  OPERATION? 

TERMINATE  GRPS  1,  3,  5,  AND  6 

TERMINATE  GRPS  2,  4,  1,  3,  5,  AND  6 
( loEo  , GRP  4 LAST) 

PUT  SERVICER  INTO  ITS  "GROUND"  STATE 
AND  PROCEED  TO  GOTCPOOH« 


RETURN  TO  USER 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGPAf'  LUMINARY  BY  NASA  2021112-0?! 


L ALARM  AND  ABORT 


0131 

0132  REF 

0133  REF 

0134  REF 


11  LAST  1375 
) 

1 


5716  C 0004  C 

5717  53*364  0 

5720  3 5731  1 

5721  1 5711  1 


POODOOl 


INHINT 

CXCF  ALMCACR 
CAF  ADR7777C 
TCF  B0THA8RT 


0135 

0136 

0137 

0138 

0139 

0140 

0141 


REF  12  LAST  1376 

REF  364  LAST  1375 

PEF  257  LAST  1375 
REF  1 


5722  C 0004  0 

5723  52*364  0 

5724  C 0004  0 

5725  5C  002  0 

5726  3 0000  1 

5727  54  001  1 

5730  1 56C1  1 


ALARMl  INHINT 

DXCH  ALMCAOR 

ALMNCACR  INHINT 

INDEX  0 

CA  0 

TS  L 

TCF  LARHENT 


0142 

0143 

0144 

01444 

01445 
R0145 


REF  5 LAST 
REF  3 LAST 
RFF  156  LAST 
REF  53  LAST 
REF  2 LAST 
CALLING  SEOUEI 


1366  5731 

1373  5732 

1372  5155 

P87  E7,1515 

1375  5733 

CE  FOR  VARALARH 


1 5650  0 
1 5632  1 

56C67  0 


ADR77770 

A0R40400 

DOALARW 


BBSERVCL 


TCF  OCT77770 
TCF  001^0400 
EQUALS  ENDOFJOB 
E0ANK=  OVCNTR 
BBCON  SERVICLE 


CAF  (ALARMl 

TC  VARALARM 


R0148 

0149 


VARALARM 


TURNS  CN  FfiCGRAM  ALARM 
5734  C 


LIGHT  BUT  COES  NOT  DISPLAY 
0004  0 VARALARM  INHINT 


0150 


REF  258  LAST-  1376 


5735  54  001 


TS  L 


0151 

0152 


REF  385  LAST  1376 
KEF  13  LAST  1376 


5736  3 0002  0 

5727  55*363  1 


CA  0 

TS  ALMCAOR 


0153  REF  2 LAST  1374 

0154 


574(>  0 5575  0 TC 

5741  00014  1 CCT14  OCT 


PRIOENT 

14 


0155 


REF  14  LAST  1376 


5742  r 1363  0 


TC  ALMCADR 


0156  REF 

0157 

0158  PEF 

0159 

0160  REF 


3 


1 


1 


LAST 


1375 


5634 
13,3746 
13,2000 
13  ,3746 


AECPT  EQUALS  WHIMPER 
BANK  13 
SETLOC  A6TFLGS 
BANK 

COUNT*  «.$/ALARM 


0161 

0162 

0163 


0164 

0165 

0166 

0167 

0168 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


1 

21 

22 

3 

20 

21 

3 

31 


LAST  1324 
LAST  1376 
LAST  1213 
LAST  657 
LAST  1376 
LAST  231 
LAST  1307 


13  ,3747 

13.3750 

13.3751 

13.3752 

13.3753 
13  ,375* 
13  ,3755 


4747 
0077 
4 C77 


4 4745 
7 0106 
54  106 
* 4753 
7 0076 


0 

0 

0 

1 

1 

1 

0 

1 


FLAGS 


CS  STATEBIT 

MASK  FLAGHRD3 

TS  FLAGWR03 

CS  REINTBIT 

MASK  FLGWRCIO 

TS  FLGWRCIO 

CS  NODOBIT 

MASK  FLAGWRC2 


17:53  DECo  19,1969  SKIPPER  *101 
USeR*S  PAGE  NO*  * 


PAGE  ] 376 
EO  S3 


SAVE  USERS  ALARM  CCOE 
SAVE  USERS  0 

DONT  MOVE 


RETURN  TO  USER 
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L ALARM  ANC  ABORT  USER'S  PAGE  NC»  5 ED  S3 

0169  REF  32  LAST  1376  13,3756  5A  076  1 TS  FLAGWRD2 

0170  REF  386  LAST  1376  13,3757  ( 0CC2  0 TC  0 
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UPDATE  PROGRAM 


USER  'S  PAGE  NCo 


R0003 

ROCO^ 

R00C5 


MOD  NO; 
MCC  BY: 
DATE  : 


R0006 

R0007 

K0008 

R0709 

ROOlO 

ROOl] 


LCG  SECTION; 
FLNCTo  DESCR: 


UPDATE  PROGRAM^ 

P27  (THE  UPDATE  PROGRAM)  PROCESSES  COMMANDS  AND  DATA 
INSERTIONS  REQUESTED  8Y  THE  GROUND  VIA  UPLINK, 
THE  P27  PROGRAM  WILL  ACCEPT  UPDATES 
CNLY  DURING  POO  FOR  THE  LM,  AND  ONLY  DURING  POn, 
P02»  AND  FRESH  START  FOR  THE  CSM 


R0012 


CALLING  SEQ: 
SUBROUTINE  $: 


PROGRAM  IS  INITIATED  0Y  UPLINK  ENTRY  OF  VERBS  70,  71,  72  AND  73, 

INTPRET,  INTSTALL,  TPAGRFE, 


ROO)  8 

R0019 

R0020 

R0022 

R0023 

R0025 

R0C27 

R0C29 

R0031 


NORMAL  EXIT: 
ALARM/AEORT; 
RESTARTS: 


TC  ENDEXT 

TC  FALTGN  FOLLOWED  BY  TC  ENDEXT 

P27  IS  RESTART  PROTECTED  IN  TWO  WAYSoe, 

Ic  PRIOR  TO  VERIFLAG  I NVERS I ON ( WH I CH  IS  CAUSED  BY  THE  GROUND/ASTRONAUT’S  VERIFICATION  OF  UPDATE 
DATA  BY  SENDING  A V33E  WHEN  V21N02  IS  FLASHING) 

NO  PROTECTICN  EXCEPT  PRE-P27  MODE  IS  RESTORED,  COAST  + ALIGN  OOWNLIST  IS  SELECTED  AND  UPLINK 
ACTIVITY  LIGHT  IS  TURNED  OFFn(JUST  AS  IF  A V3A-E  WAS  SENT  DURING  P27  DATA  LOADS), 

V70,V71,V72  CR  V73  WILL  HAVE  TO  BE  COMPLETELY  RESENT  BY  USER, 

2,  AFTER  VERIFLAG  I NV ERS I CN ( W H EN  UPDATE  OF  THE  SPECIFIED  ERASABLES  IS  BEING  PERFORMED) 

PROTECTED  AGAINST  RESTARTS, 


ROO  32 
R0033 
R0035 
R0036 
R0038 
R0039 


UP  BUFF  (20C) 
UPVER8  (1) 
UPOLCMOD  (1) 
CCNPNLMB  (II 
UPCOUNT  (I) 
UPTEMP  (1) 


TEMP  STORAGE  FOR  ADDRESSES  AND  CONTENTS, 

VERB  NUMBER  MINUS  700  (EcG,  FOR  V72,  UPVER8  = 720  - 7<>D  = 2) 

FOR  MAJOR  MODE  INTERRUPTED  BY  P27, 

TCTAL  NUMBER  OF  COMPONENTS  TO  BE  TRANSMITTED, 

ACTUAL  NUMBER  OF  COMPONENTS  RECEIVED, 

SCRATCH,  BUT  USUALLY  CONTAINS  CCMPCNENT  NUMBER  TC  BE  CHANGED  CURING  VERIFY  CYCLE 


R0042 

R0093 

R0045 

R0047 

R0049 


INPUT : 

entry: 


DESCRIPTION 

XXXEXXXXXE  (LIFTOFF  TIME  INCREMENT)  COUBLE  PRECISION  OCTAL  TIME  INCREMENT,  XXXXX  XXXXX, 

IS  ADDED  TO  TEPHEM,  SUBTRACTED  FROM  AGC  C LOC K ( T I MF2 , T I MEl  ) , SUBTRACTED  FROM  CSM  STATE 
VECTOR  TIMEITETCSM)  AND  SUBTRACTED  FROM  LEM  STATE  VECTCR  TI ME (TET LEM  ), 

THE  DP  OCTAL  TIME  INCREMENT  IS  SCALED  AT  2(28), 
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R0050 

R0051 

R0052 

R0053 

R0054 

R0055 


VTIEIIEAAAAE 

xxxxxe 

XXXXXE 
9 NE  XT  BANK 


USER'S  PAGE  NDo 


PAGE  1379 
EO  S3 


(CCMIGUCUS  ELCCK  UPDATE)  II-2  OCTAL  COMPCNE  NT  S , XXX  X X , 
ARE  LOADED  INTO  ERASABLE  STARTING  AT  ECACR,  AAAA. 

IT  IS  o6E«  3 oANOo  oLE.  20D«,  , 

ANC  (AAAA  -4  II  « 3)  OCES  NOT  PRODUCE  AN  ADDRESS  IN  THE 
SCALING  IS  SAME  AS  INTERNAL  REGISTERS* 


R0056  V72EIIE  (SCATTER  UPCATE)  (II-l)/2  OCTAL  COMPONENTS ,XXXXX , ARE 

R0057  AAAAEXXXXXE  LOADED  INTO  ERASABLE  LOCATIONS,  AAAA. 

R0058  AAAAEXXXXXF  II  IS  *GE<,  3 oANC.  oLE*  190,  AND  MUST  BE  ODD* 

R0060  . SCALING  IS  SAME  AS  INTERNAL  REGISTEPSo 

R0061  V73exxXXXEXXXXXE  (OCTAL  CLOCK  INCREMENT)  DOUBLE  PRECISION  OCTAL  TIME 

R0062  INCREMENT  XXXXX  XXXXX,  IS  ACCEC  TO  THE  AGC  CLOCK,  IN 

R0063  CENTISECONDS  SCALED  AT  (2)28* 

R006A  THIS  LOAD  IS  THE  OCTAL  EQUIVALENT  OF  VfS* 


ACDITICNAL  NOTES:  VERE  7),  JLST  DEFINED  ABOVE  WILL  BE  USED  TO  PERFORM  BUT  NOT  LIMITED  TO  THE  FOLLOWING  UPDATES— 


THE  FOLLOWING  COMMENTS  DELINEATE  EACF  SPECIAL  UPOATE- 


R0074  1:  CSM/LM  STATE  VECTOR  UPDATEIALL  DATA  ENTRIES  IN  OCTAL) 


R0C75 

R0077 

ROOTS 

Rooeo 

R0082 

R0083 

R0084 

R0086 

R0088 

R0090 

R0092 

RQ094 

k0096 

ROO90 


ENTRIES: 

V71E 
21  E 
AAAAE 
XXXXXE 

xxxxxexxxxxE 

XXXXXEXXXXXE 
XXXXXEXXXXXE 
XXXXXEXXXXXE 
XXXXXEXXXXXE 
XXXXXE  XXXXXE 
XXXXXEXXXXXE 
V33E 


SCALE  FACTORS: 


DATA  CEFIMTICN: 

CONTIGUOUS  BLCCK  UPDATE  VERB 
NUMBER  OF  COMPCNENTS  FOR  STATE  VECTOR  UPDATE 
ECAOR  CF  'UPSVFLAG' 

STATE  VECTOR  IDENTIFIER:  OOOOl  FOR  CSM,  77776  FOR  LEM  - EARTH  SPHERE  OF  INFLUENCE  SCALING 
00002  FOR  CSM,  77775  FOR  LFM  - LUNAR  SPHERE  OF  INFLUENCE  SCALING 

X PCSITICN 

Y POSITION 
Z POSITION 
X VELOCITY 

Y VELOCITY 
Z VELOCITY 

TIME  FROM  AGC  CLOCK  ZERO 

VERB  33  TO  SIGNAL  TFAT  THE  STATE  VECTOR  IS  READY  TC  BE  STCREOo 


SCALE  FACTORS: 


GAP; 


ASSCM8LE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  OECo  19,1969  SKIPPER  o 10 1 PAGE  1380 


L UPDATE  PROGRAM 


USER*  S PAGE  NCb  3 EO  S3 


R01A7 
R0148 
R0150 
R0152 
R015^ 
R0156 
ROl  58 
R0160 
R0i62 
R0164 
R0166 
R0168 
R0170 


V71E 

2AE 

AAAAE 

* X X X X e X X X X X E 
XXXXXEXXXXXE 
XXXXXE>XXXXE 
XXXXXEXXXXXE 
XXXXXEXXXXXE 
XXXXXEXXXXXE 
XXXXXEXXXXXE 
XXXXXEXXXXXE 
XXXXXEXXXXXE 
V33E 


CONTIGUOUS  BLCCK  UPDATE  VERB 

number  of  COMPONENTS  FOR  RGFSMMAT  UPDATE 

ECAOR  CF  'REFSMMAT* 

ROU  1 COLUMN  1 
ROW  1 COLUMN  2 
RON  I COLUMN  3 
ROW  2 COLUMN  1 
ROW  2 COLUMN  2 
ROW  2 COLUMN'  3 
ROW  3 COLUMN  I 
RCW  3 CCLUMN  2 
ROW  3 COLUMN  3 

VERB  33  TO  SIGNAL  TFAT  REFSMMAT  IS  READY  TC  BE 


2(-l  ) 
2(-l) 
2(-l) 
21-1  ) 
2(-l) 
2(-l  > 
2(-l  » 
2(-H 
2(-l) 


0171 

0172  REF 

0173 


7 LAST  299 


07,3763 
*2, 2000 
A3, 3751 


BANK  07 
SETLCC  EXTVERES 
BANK 


017A  REF 


A LAST  979  E3,1706 


EBANK=  TEPHEM 


0175  REF 

0176  REF 

0177  REF 


1 

1 

? LAST  263 


A3  ,3751 
A3, 3752 


COUNT*  tS/P27 

3 A755  1 V70UP0AT  CAF  UP70 

1 3760  1 TCF  V73UPDAT  +1 


COMFS  HERE  ON  V70F 


1 

3 LAST  1380 


3 

1 


V71UPDAT  CAF 
TCF 


UP71 

V73UPCAT 


COMES  HERE  ON  V71 E 


0180  REF  1 

0181  REF  A LAST  1380 


A3, 3755 
A3  ,3756 


A752  C V72UPDAT 
3760  1 


CAF  UP72 

TCF  V73UPDAT  +l 


COMES  HERE  CN  V72  E 


0182  REF 

0183  REF 

0184  REF 
A0185 


1 

1 

20  LAST  301 


A3, 3757  2 625C  C 

43.3760  55*165  0 

43.3761  0 2076  1 


V73UPOAT  CAF 
+ 1 TS 

TC 


UP73 

UPV6R6SV 

TESTXACT 


COMFS  HERE  ON  V73E 

SAVF  UPVFR0  UNTIL  IT'S  CK  TO  ENTER  P27 

GRAB  DISPLAY  IF  AVAILABLE,  OTHERWISE 
TUPN*OPERATCR  6PPCR*  CN  AND  TERMINATEJOB 


0186  REF 

0187 

0188 

0189  KEF 

0190  REF 


22  LAST  1286 

61  LAST  1375 
1 


43  ,3762  3 1010  1 

A3, 3763  C C0C6  1 

43.3764  1 3767  0 

43.3765  0 4635  0 

A3, 3766  11740  1 


CA  MODREG 

EXTEND 

B2  F +3 

UPERROR  TC  POSTJUMP 

CAOR  UPERROUT  +2 


CHECK  IF  UPDATE  ALLOWED 
FIRST  CHECK  FOR  MOCPEG  = +0,  -0 
(+0  = POO,  -0  = FPESHSTARTl 
TURN  ON  'OPERATOR  ERROR*  LIGHT 
GO  TO  CCMMCN  UPDATE  PROGRAM  EXIT 


01915  REF 

0192  REF 

0193  REF 


1 

2 LAST  104 
2 LAST  1380 


43  ,3765 
43,3767 
43,3770 


CKMCMORF  = 

55*170  1 +3  TS 

21*165  1 CAE 


UPERROR 

UPCLCMCC 

UPVER0SV 


SET  UPOLDMOO  TO  ZEROo 

SET  UPVERB  TO  INDICATE  TO  P27 


GAP: 

L 

019A 

0195 

0196 

0197 

0195 

0213 

0212 

0213 

0214 

0215 

0216 

0217 

0215 

0219 

0220 

0221 

0222 

0223 

0224 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 
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UPDATE  PROGRAM 


USER'S  PAGE  NCo  4 E3  S4 


REF  2 LAST  104  43,3771  55'171  0 


TS  UPVERB 


WHICH  EXTENDED  VERB  CALLED  ITo 


REF  145  LAST  1367  43,3772  3 4753  1 
REF  2 LAST  104  43,3773  55*172  0 


CAF  ONE 

TS  UPCOUNT  INITIALIZE  UPCOUNT  TO  1 


REF  62 
REF  1 


LAST  1380 


43,3774 
43  ,3775 


C 4635  0 
11357  0 


TC  POSTJUMP 

CACR  UPPART2 


LEAVE  EXTENDED  VERB  BANK  AND 
GO  TO  UPDATE  PR0GRAM(P27)  BANKo 


REF  259  LAST 
REF  146  LAST 
REF  89  LAST 
PEF  43  LAST 


1369  4755 
1381  4753 
1374  4752 
1364  6250 


UP7C  EQUALS  ZERC 

UP71  EQUALS  ONE 

UP72  EQUALS  TWO 

L'P73  EQUALS  THREE 


REF 


2 LAST  1218 


J4,3357 
04,2000 
04, 3357 


BANK  04 
SFTLGC  UPCATE2 
BANK 


REF 


COUNT*  J.$/P27 


LPPART2  EQUALS 


UPDATE  PROGRAM  - PART  2 


PEF  113 


REF  4 
REF  1 
REF  1 


LAST  1327 

LAST  206 


04,3357 

04.3360 

04.3361 
1173 

04.3362 

04.3363 


0 5353  1 
07026  1 
30000  1 

C3670  0 
10102  0 


TC 

CCT 

OCT 

EBANK= 

2CADR 


PHASC  HNG 
07026 
30000 
UPBUFF 
UPCUT  *1 


SET  RESTART  GROUP  6 TO  RESTORE  OLD  MODE 
AND  OOWNLIST  AND  FXIT  IF  RESTART  OCCURS- 
PRIORITY  SAME  AS  CFRPRIC 


REF  147 
REF  9 


LAST  1381 
LAST  986 


04.3364 

04.3365 


3 4753  1 
54  333  0 


CAF  ONE 

TS  DNLSTCCO  COWNLIST 


REF 


LAST  797 


04.3366  0 5311  1 

04.3367  00033  1 


TC  NEWMODEX  SET  MAJOR  MODE  = 27 

DEC  27 


REF  3 LAST  1381 


REF  1 

PEF  2 LAST  1381 

PEF  90  LAST  1381 

REF  3 LAST  206 

REF  1 


04.3370 

04.3371 
04  , 33  72 
04,3373 
C4,3374 

04.3375 

04.3376 

04.3377 


51'171  1 
1 3372  0 
1 3375  1 
1 3400  1 
1 3400  1 
3 4752  0 
55'167  1 
1 3423  0 


INDEX  UPVERB 

TCF  +1 

TCP  +3 

TCF  OHWELLl 

TCF  OHWELLl 

CA  TWC 

TS  COMPNUMB 

TCF  0HWELL2 


BRANCH  DEPENDING  ON  WHETHER  THE  UPDATE 
VEPB  REQUIRES  A FIXED  OR  VARIABLE  NUMBER 

V70  FIXED*  IDF  COMPONENTS* 

V7l  VARIABLE  - GO  GET  NC*  CF  COMPONENTS 
V72  VARIABLE  - GO  GET  NO*  GF  COMPONENTS 
V7?  (AND  VTO)  FIXED 

SET  NUMBER  GF  COMPCNFNTS  TO  2* 

GO  GET  THE  TWO  UPDATE  COMPONENTS 


REF  I 
REF  836 
REF  I 
REF  308 
REF  11 


14,3400 
LAST  1365  C4,?4C1 

04, 3402 
LAST  1375  04,3403 

LAST  719  04,3404 


3 3473  1 OHWELLl 
54  156  J 
3 3474  0 +2 

0 4616  1 
20334  1 


CAF  AOLPBUFF 

TS  MPAC  +2 

CAF  UPLOADNV 

TC  BANKCALL 

CAOR  GOXDSPF 


* RFQUEST  USER  TO  SEND  NUMBER  * 

* OF  COMPONENTS  P AR AMETER  ( I I)  . * 

(CK4V32  RETURNS  HERE  IF  V32  ENCOUNTERED! 
DISPLAY  A FLASHING  V21Nfl 

TO  REQUEST  II* 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-f>9l 


17:53  DECo  IQ.1^69  SKIPPER  - 1^1  PAGE  1382 


L UPOATF  PROGRAM 


USER'S  PAGE  Nn«  5 


£3  S^ 


0242  REF 
02A3  REF 
0244  REF 
0246  REF 

0246  RFF 

0247 

C248  REF 

0249  REF 

0250  REF 

0251 

0252  REF 

0253  REF 

0254  RFF 


1 

3 LAST  1361 
1 

50  LAST  1277 

5 LAST  1381 

4 LAST  1382 

6 LAST  1382 
1 

5 LAST  1382 

7 LAST  1382 
4 LAST  1381 


04,3405  1 3670  1 

C4,3406  1 3402  0 

C4,34C7  0 3A64  1 

04,3410  4 4752  1 

CA,3411  6 1173  0 

14.3412  0 0006  1 

04.3413  t 3402  1 

04.3414  4 1173  1 

04.3415  6 4362  1 

04.3416  C 0006  1 

04.3417  6 3402  1 

04.3420  31*173  0 

04.3421  55*167  1 


TCF  UPCUT4 

TCF  OHWFLLl  *2 

TC  CK4V32 

CS  BIT2 

AD  UPBUFF 

EXTEND 

8ZMF  DHWELLl  +2 

CS  UPBUFF 

AD  UP21 

EXTEND 

R2MF  OHWELLl  +2 

CAE  UPBUFF 

TS  COMPNUMP 


V34  TERMINATE  UPnATE(P271  RETURN 
DATA  GR  V32  RETURN 

IS  IIINUMBFR  OF  COMPONENTS  PAPAMFTERI 
sGF*.  3 AND  oLEo  20C- 


SAVE  II  IN  CCMPNUMB 


R0257 


UPBUFF  LCACIAG  SECUENCE 


C2571  PEF  3 

0258  PEF  1 

0259  REF  4 

0260  REF  837 

0261  REF  2 

0262  REF  309 

0263  REF  12 

0264  REF  2 

0265  REF  2 

0266  REF  2 

0267  REF  5 

0268  RFF  5 

0269 

0270  REF  1 

0272  REF  3 


LAST  1361 

LAST  1382 
LAST  1381 
LAST  138  1 
LAST  1381 
LAST  1381 
LAST  1382 
LAST  1381 
LAST  1382 
LAST  1382 
LAST  1382 


LAST  1382 


04.3422 

04. 3423 

04.3424 

04.3425 
•>4,3426 
04  ,3427 
C4,3430 

94. 3431 

04.3432 

04.3433 
04  ,3434 
C4,3435 
04,3436 
04  ,3437 
04,3440 


25*172  1 
3 3£4C  0 
6 1172  1 
54  156  1 

3 3474  0 

0 4616  1 
2C334  1 

1 3670  I 
1 3426  0 
C 3464  1 

4 1172  0 
6 1167  0 

0 0C06  1 
6 3441  0 

1 3422  I 


0HV.ELL2 
+ 2 


INCR  UPCOUNT 

CAF  ADUP8FM1 

AD  UPCOUNT 

TS  MPAC  +2 

CAF  UPLOAONV 

TC  BANKCALL 

CADR  GCXDSPF 

TCF  UP0UT4 

TCF  0HWELL2  +3 

TC  CK4V32 

CS  UPCOUNT 

AO  C0MPNUM6 

EXTEND 

DZMF  UPVERIFY 

TCF  0HWELL2  -1 


INCREMENT  COUNT  OF  COMPONENTS  RECEIVEOo 
CALCULATE  L CC AT  I ON ( EC AOP ) IN  UPBUFF 
WHERE  NEXT  COMPONENT  SHOULD  BE  STOREDo 
PLACE  ECADR  INTO  B3o 

(CK4V32  RETURNS  FERE  IF  V32  ENCOUNTEREOI 
DISPLAY  A FLASHING  V21N01 
TO  REQUEST  CATA« 

V34  TERMINATE  UPDATEIP27I  RETURNo 

V3''  PROCEED  RETURN 

DATA  OR  V32  RETURN 

HAVE  WE  FINISHED  RECEIVING  ALL 

THE  DATA  WE  EXPECTED^ 

YES-  GO  TO  VERIFICATION  SEQUENCE 
NO-  REQUEST  ADDITIONAL  DATA* 


R0273 


VERIFY  SEQUENCE 


0274  PEF  1 

0275  REF  838  LAST  1382 

0276  REF  1 

0277  REF  310  LAST  1382 


0278  REF 

0279  REF 

0280  REF 

0281  REF 

0282  REF 

0283 

0284  REF 

0285  REF 

0288  PEF 

0289  PEF 


3 LAST  1382 
3 LAST  1382 
1 

3 LAST  1382 

4 LAST  104 

2 LAST  1382 

5 LAST  1382 

6 LAST  1382 
>5  LAST  1319 


04.3441  3 3472  0 

04.3442  54  156  1 

04.3443  3 3475  1 

04.3444  0 4616  1 

04.3445  2033i  1 

0^,3446  1 3670  1 

04,3447  1 3476  0 

04.3450  0 3464  1 

04.3451  3 1166  1 

04.3452  C 0006  I 

04.3453  6 3441  0 

C4,3454  4 1166  0 

04,3455  6 1167  0 

>4,3456  6 4753  1 


LPVERIFY  CAF  ACUPTEMP 

TS  MPAC  +2 

CAF  UPVRFYNV 

TC  BANKCALL 

CADR  GOXDSPF 

TCF  UP0UT4 

TCF  UPSTCRE 

TC  CK4V32 

CA  UPTEMP 

EXTEND 

8ZMF  UPVERIFY 

CS  UPTEMP 

AO  COMPNUM0 

AO  eiTl 


PLACE  ECADR  WHERE  COMPONENT  NOo  INDEX 
IS  TO  BE  STORED  INTO  R3o 

(CK4V32  RETURNS  HERE  IF  V32  ENCOUNTEREOI 
DISPLAY  A FLASHING  V21N02  TO  REQUEST 
DATA  CORRECTION  OR  VER I F 1 C AT lONe 
V34  TERMINATE  UPDATE(P27)  RETURN 
V3?  DATA  SENT  IS  GOODo  GO  STORE  ITo 
COMPONENT  NOo  INDEX  OR  V32  RETURN 
DOES  THE  COMPONENT  NOo  INDEX  JUST  SENT 
SPECIFY  A LEGAL  CCMPCNENT  NUMBER? 

NO,  IT  IS  NOT  POSITIVE  NCNZERO 


GAP:  ASSEMBLE  R6V1SIQ^  131  CF  AGC  FRCGRAM  LUMINARY  BY  NASA  202in2-C'91 


UPDATE  PROGRAM 


02  90 

0291 

0292 

0293 
029A 


REF 

REF 

REF 

REF 


LAST  1382 
LAST  1382 
LAST  1382 
LAST  1382 


TA,3A57 
T4  ,3A6.0 
0Ar3A61 
)A,3A62 
TAf 3A63 


C 0006  1 
6 3A41  Q 
3 36A0  0 
6 1166  1 
1 3A25  0 


EXTEND 

BZMF 

CAF 


UPVER  IFY 
ADUP6FM1 
UPTEMP 
0HWELL2  ^ 


0295 


LAST  1381  04,3670 


UPCUT4  EQUALS  UPDLT  +1 


RC296 


CHECK  FOR  VERB  32  SECUENCE 


0297 

0298 

0299 

0300 

0301 

0302 


RFF  460 
REF  387 


LAST  1382 
LAST  1358 
LAST  1375 
LAST  1377 
LAST  1383 


04.3464 

04.3465 

04.3466 

04.3467 

04.3470 

04.3471 


4 0154  0 
7 4746  1 
10  000  0 
C 0002  0 
50  002  0 
7'777l  0 


0305 

0306 

0307 

0308 

0309 
03121 


04.3472 

04.3473 

04.3474 

04.3475 
4362 
4756 


01166  1 
0U73  0 
C52C1  1 
05202  1 


ADUPTEMP  AORES 
ACUPBUFF  ADRES 
LPLGAONV  VN 
UPVRFYNV  VN 
UP21 


UPTEMP 
UPBUFF 
2 101 
21C2 
MCI 


UPDTPHAS  EQUALS  FIVE 


R0313 

0314 

0315 

0316 

0317 

0318 
0310 

0320 

0321 


PRE-STORE  AND  FAN  TC  AFPRCPRIATE  ERANCF  SEQUENCE 
'34,3476  UPSTORE  EQUALS 

>4,3476  C 0004  0 INhlNT 


REF  259 
REF  1 


REF 

REF 


LAST  1367 
LAST  1383 


C4,3477 

04,3500 

T4,3501 

04,3502 

>4,3503 

04,3504 


3C  103  0 
56  001  0 
3 4751  0 
C COCB  1 
06  001  0 
54  103  1 


CAE 

XCH 

CAF 

EXTEND 
R XOR 
TS 


LCHAN 

FLAGWRD7 


0322 

0323 

0324 


REF  114  LAST  1381 


04.3505 

74.3506 

04.3507 


0 5353  1 
04026  1 
C 0004  0 


TC  PHASCHNG 

OCT  0*026 

INHINT 


0325 

0326 

0327 
032  8 


LAST  1381  >4,3510  4 4752  1 

LAST  1381  >4,3511  6 1171  1 

74,3512  C 0006  1 

>4,3513  6 3522  1 


C S TWC 

AD  UPVERB 

EXTEND 

BZMF  UPFNDVAC 


R0330 

0331 


VERB  73  BRANCH 

34,3514  C 0006  1 UPEN073  EXTEND 


17: 53  DEC*  19,1969 


SKI PPEP  o 101  PAGE  1383 


USER'S  PAGE  NOo 


E3  S4 


Nn 

YES-  BASED  ON  THE  COMPONENT  NO*  INDEX 
CALCULATE  THF  ECAOP  CF  ICCATION  IN 
UPBUFF  WHICH  USER  WANTS  TO  CHANGE* 

CCMES  HERE  CN  V34  TC  TERMINATE  UPDATE 


CN  DATA  RETURN  FROM  'GOXCSPF' 

ON  DATA  RETURN  FROf-  "GCXOSP"Ei  THE  CON- 
TENTS OF  MPAC  = VERB*  SC  TEST  FOR  V32t 
IT'S  NOT  A V32,  IT'S  DATA.,  PROCEED* 

V32  ENCOUNTERED  - GP  BACK  AND  GET  DATA 

ADDRESS  OF  TEMP  STCRAGE  FOR  CORRECTIONS 
ADDRESS  OF  UPDATE  DATA  STORAGE  BUFFER 
VERE  21  NOUN  01 
VERB  21  NOUN  02 

DEC  2J  = MAX  NO  OF  COMPONENTS  +1 


GROUND  HAS  VERIFIED  UPDATE,  STORE  DATA, 


INVERT  VER  IFLAGI  8 IT3  OF  FLAGWRD7J  TO 
INDICATE  TC  THE  GRCUNDIVIA  DOWNLINK) 

THAT  THE  V33  (WHICH  THE  GROUND  SENT  TO 
VERIFY  THE  UPDATE)  HAS  BEEN  SUCCESSFULLY 
RECEIVED  BY  THE  UPDATE  PROGRAM 


SET  RESTART  GROUP  6 TO  REDO  THE  UPDATE 
DATA  STORE  IF  A RESTART  CCCURS, 
(BECAUSE  PHASCHNG  DIO  A RELINT) 


GO  TO  UPFNDVAC  IF  INSTALL  IS  REQUIRED, 
THAT  IS,  IF  IT'S  A VTO  - V72o 
GO  TO  UPENC73  IF  IT'S  A 


V73-PERF0RM  DP  OCTAL  AGC  CLOCK  INCREMENT 


GAPJ  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARV  BY  NASA  202ni2-0<?l 
L update  program 


0332  REF  o 

0333  REF  10 

0334  REF  1 

0335  REF  8 


0336 


REF 


LAST  1383  04,3515 

LAST  1384  04,3516 

04,3517 
LAST  829  04,3520 

LAST  1383  14,3521 


3 117^  1 
52'20A  1 
0 3545  n 
0 A364  1 
0 3670  0 


DCA 

DXCH 

TC 

TC 

TC 


UP  BUFF 
UPBUFF  +8 
TIMFDIOL 
FALTCN 
UPOUT  +1 


17J53  DECe  10,1969  SKIPPER  n 10 1 PAGE  1384 
USER'  S PAGE  KCo  7 E3  S4 


ERROR-  TURN  ON  *OPEPATnR  ERROR*  LIGHT 
GO  TO  COMMON  UPDATE  PROGRAM  EXIT 


0337 

0338 

0339 

0340 

0340 

0341 


REF  7 
REF  45 
REF  5 
REF  1 
PEF  1 
REF  157 


LAST  1380 


04,3522 
•04, 3523 
E3  ,1706 
0A,3524 
04,  "<525 
04,3526 


03527  1 
10103  1 
0 5155  0 


UPFNCVAC  CAF  CHPPRIG 

TC  FINDVAC 

EBANK=  TEPHEM 
2CA0R  UPJCB 


TC 


ENDOFJOB 


(NOTE:  THIS  WILL  ALSO  SET  EBANK  FOR 
•TEPHEM'  UPDATE  BY  V7C) 


0344 

A0345 


REF  237  LAST  1257 
REF  38  LAST  1216 


C4, 3527 

04.3530 

04.3531 


0 6042  1 
77624  1 
27410  1 


IS  IN  PROGRESS — OR  — GRAB  01  AND  RETURN 
TO  UPWAKE  IF  01  IS  NOT  IN  PROGRESSe 


REF  115  LAST  1383 


77776  1 UPWAKE 


RESTART  PROTECT  (GROUP  6» 


0350 

0351 

0352 
0355 


C4,3535 

04,3536 

04,'^537 

0A,354O 


0 5504 
00236 
0 0004 


TC  UPFLAG 

AORES  REINTFLG 
INHINT 
EQUALS 


SET  INTEGRATION  RESTART  BIT 


0356 

0357 

0358 

0359 

0360 


LAST  1383 


REF 

REF 

RFF 


34,35AO 
14,3541 
aA,35A2 
1A,35A3 
0 A, 3 544 


51*171  1 
I 3542  0 
1 37C1  C 
1 3610  1 
1 3642  0 


INDEX  UPVERB 

TCF  +1 

TCF  UPENC70 

TCF  UPEND71 

TCF  UPEND72 


BRANCH  TC  THF  APPPCPRUTE  UPDATE  VERB 

ROUTINE  TO  ACTUALLY  PERFORM  THE  UPDATE 

V7n 

V71 

V72 


R0361 


ROUTINE  TO  INCREMENT  CLOCK ( T IME 2 , T I M£ 1 ) WITH  CONTENTS  CF  DP  WCRC  AT  UPBUFFc 


0363 

0364 
03  65 

0366 

0367 

0368 


REF  8 
REF  260 


REF 

REF 


LAST  1383 
LAST  1381 


LAST  1329 
LAST  1384 


04,3545 
CA,3546 
04,3547 
04,3550 
CA, 355> 
04,3552 


0 0006  1 
23*166  I 
3 4755  1 
22  007  0 
52  C25  J 
53*216  1 


TIMECICL  EXTEND 

CXCH  UPTEHP 
CAF  ZERO 


OXCH 

DXCH 


TI  ME2 
UPBUFF 


SAVE  0 FOR  RETURN 

ZERC  AND  SAVE  TIME2,TIME1 


STORE  IN  CASE  OF  OVERFLCW 


0369 

0370 

0371 
03711 


LAST  1383 
LAST  860 


04.3553 

04.3554 

04.3555 
C4,3556 


3 4756  1 
54  001  1 

4 0000  0 
52  764  C 


CAF 

TS 

COM 

DXCH 


UPCTPHAS 

L 

-PHASE6 


QUICK 

PHASCHNG 


0372 


14,3557  C 0004  0 TIMEDICR  INHINT 


gap:  ASSEf'BLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211  12-091 


L UPDATE  PROGRAM 


0373  REF  261 

0374 

0375  REF  8A0 

0376  KEF  12 

0377  REF  941 


LAST  1384 

LAST  1383 
LAST  1384 
LAST  1385 


34.3560  3 4755  1 

04.3561  22  007  C 

C4,3562  54  156  1 

04.3563  52*2C^  1 

04.3564  52  155  1 


CAF  ZERC 

ZL 

TS  MPAC  +2 

DXCH  UPBUFF  +90 
CXCH  MPAC 


0378 

0379  REF  13 

0380  REF  842 

0381 

0382  PCF  1 

0303  REF  262 

0384  REF  14 

0385  REF  37 


LAST  1385 
LAST  1385 


LAST  1385 
LAST  1385 
LAST  1384 


04.3565  0 O0P6  1 

04.3566  3 1216  0 

04.3567  20  155  1 

04,3570  C CCC6  1 
J4,357l  1 3600  0 

04.3572  3 4755  1. 

04.3573  53'216  I 

04.3574  20  025  1 


EXTEND 

OCA  UPBUFF  +18D 

DAS  MPAC 

EXTEND 

BZF  DELTATOK 
CAF  ZERO 

OXCH  UPBUFF  +180 
OAS  TIME2 


0386  REF  116  LAST  1364 
03  87 


04.3575  C 5353 

04.3576  04026 


TC  PFASCHNG 

OCT  04026 


0388  REF 


9 LAST  1384 


04,3577  0 1166 


TC  UPTEMP 


0389  REF  18 

0390  REF  843 

0391  REF  38 


LAST  1329 
LAST  1385 
LAST  1385 


04.3600 

04.3601 

04.3602 


0 7262  C DELTATOK  TC  TPAGREE 

52  155  I DXCH  MPAC 

2C  025  I OAS  T IME2 


0392  REF  117  LAST  1385 

0393 


04,3603  0 5353  1 

C4,3604  04026  1 


TC  PHASCHNG 

OCT  04026 


0394 
03  95 
0396 
R0397 


REF  10 


C4,36C5 
LAST  1385  04,3606 

C4,3607 

VERB  71  BRANCH 


C CCC4  C 
51 ' 166  1 
C 0001  0 


I NHI NT 

INDEX  UPTEMP 
TC  1 


0402  REF  15 

0403  REF  82 

0404  kef  20 

0405  REF  11 


LAST  1385  04 
LAST  1356  04 
LAST  1316  74 
LAST  1385  04 


,3610  31'174  1 

,3611  54  003  C 

,3612  7 4357  0 

,3613  55' 166  0 


UPEN071  CAE 
TS 

MASK 

TS 


UPBUFF  +1 
EBANK 
LOwe 
UPTEMP 


0406  REF  5 

0407  REF  7 

0408 

0409  REF  1 

0410  REF  31 

0411  REF  461 

0412  REF  2 


LAST  1324 
LAST  1383 
LAST  1380 


04,3614  6 7750  I 

04,361.5  6 U67  0 

04.3616  C 0006  1 

04.3617  1 3625  1 

04,3620  7 4743  1 

C4,3621  1C  OCO  0 
04,3622  1 3736  1 


AD  NBG3 

AO  COMPNUMB 

EXTEND 

BZF  STCRLP71 

MASK  BIT9 

CCS  A 

TCF  UPERROUT 


0413  REF  6 

0414  REF  8 

0415  REF  846. 

0416  REF  462 

0417  REF  16 


LAST  1385  04 
LAST  1.385  C4 
LAST  1385  04 
LAST  1385  04 
LAST  1385  04 


,3623  3 7750  1 
,3624  6 1167  0 
,3625  54  154  0 
,3626  50  onn  1 
,3627  2 1175  0 


CA 

AD 

ST0RLP71  TS 

INDEX 

CA 


NEG3 

CPKPRUMB 

MPAC 

A 

UPBUFF  *?. 


17:53  OECo  19,196' 


SKIPPER  olOl  PAGE  1305 


USER  'S  PAGE  NC*  P E3  S4 

PICK  UP  INCRFMENTERIANO  ZERO 
IT  IN  CASE  OF  RESTARTS)  AND 
STORE  IT 

INTO  MPAC  FOR  TPAGREE-, 

FORM  SUM  IN  MPAC 
TEST  FOR  OVERF  LOW 

CVEPFLCW,  PESTCPE  CLC  VALUE  OF  CLOCK 
AND  TURN  ON  OPERATCP  ERROR 

RESTART  PROTECT (GROUP  6) 

GO  TO  ERROR  EXIT 
FORCE  SIGN  AGREEMENT 
INCREMENT  TIME2,TIME1 
RESTART  PROTECT (GROUP  6) 


(CODED  THIS  WAY  FOR  RESTART  PROTECTION) 
NORMAL  RETURN 


SET  EBANK 
AND 

CALCULATE 

S-REG  VALUE  OF  RECEIVING  AREA 


IN  THE  PROCESS  OF 
PERFORMING 
THIS  UPDATE 
WILL  WE 
OVERFLOW 

INTO  THE  NEXT  EBANKoooo 
YES 


NO-  CALCULATE  NUMBER  OF 

WORDS  TO  BE  STORED  MINUS  ONE 

SAVE  NOo  OF  WORDS  REMAINING  MINUS  ONE 

TAKE  NEXT  UPDATE  WORD  FROM 

UPBUFF  AND 


GAP: 

L 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

R0430 

0431 

0432 

0433 

0434 

043  5 

0451 

0452 

045? 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

R046g 

0470 

0471 

0472 

0473 

0474 

0475 

0476 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DEC*  19,1969  SKIPPER  «1C1  PAGE  1386 


UPDATE  PROGRAM 


REF  261  LAST  1384 
REF  845  LAST  1385 
REF  12  LAST  1385 
REF  463  LAST  1386 


REF  6 LAST  1384 
REF  846  LAST  1386 
REF  2 LAST  1385 
REF  4 LAST  1304 
REF  17  LAST  1365 
REF  5 LAST  1386 


04.3630  54  OCl  1 

04.3631  2 0154  I 

74.3632  6 1166  1 
C4,3633  5C  CCC  1 
E3,1400 

04.3634 
E3,1706 

04.3635 

04.3636 

04. 3637 
04  ,3640 
04,3641 


TS  L 

CA  MPAC 

AC  UPTEMP 

INDEX  A 
EBANK=  1400 
LXCH  1400 
EBANK=  TEPHEM 
CCS  MPAC 
TCF  ST0RLP71 
UPOUT 
UPBUFF  -I 
UPOUT 


23'400  1 

10  154  0 
1 3625  1 
1 3667  1 TCF 

•01172  1 ACUPBFMl  ACRES 
1 3667  1 TCF 


USER  'S  PAGE  NCe  o E3  S4 

SAVE  IT  IN  L 
CALCULATE  NEXT 
RECEIVING  ADDRESS 

^22 


UPDATE  THE  REGISTER  BY  CONTENTS  OF  L 

ARE  THERE  ANY  HCPDS  LEFT  TC  BE  STORED 
YES 

NO-  THEN  EXIT  UPDATE  PROGRAM 

SAME  AS  ADUPBUFF  BUT  LESS  1 (DON'T  MOVE) 

NO-  EXIT  UPOATE(HERE  WHEN  COMPNUMB  = 3) 


VERB  72  BRANCH 


REF  56 
REF  9 
REF  464 

REF  3 
REF  51 
PEF  10 
REF  847 
REF  465 
REF  18 
REF  466 
REF  840 
REF  849 
REF  467 
REF  19 
REF  83 
REF  21 
REF  466 


REF  7 
REF  850 
REF  1 


LAST  1382 
LAST  1385 
LAST  1386 

LAST  1385 
LAST  1382 
LAST  1386 
LAST  1386 
LAST  1386 
LAST  1386 
LAST  1386 
LAST  1386 
LAST  1386 
LAST  1386 
LAST  1386 
LAST  1385 
LAST  1385 
LAST  1386 


’LAST  1386 
LAST  1386 


04,3642 

C4,3643 

04.3644 

04.3645 

04.3646 

04.3647 

04.3650 

04.3651 

04.3652 
C4,3653 
04,36.54 

04.3655 

04.3656 

04.3657 

04.3660 

04.3661 
C4.3662 

04. 3663 
E3 ,1  400 

04.3664 
E3,1706 
04  ,3665 
04, 3666 


3 4753  1 
7 1167  1 
10  000  0 
1 3647  0 
1 3736  1 

4 4752  1 

6 1167  0 
54  154  0 
5C  000  1 
31*174  I 
22  000  1 
1C  154  0 
54  154  0 
50  000  I 
31*174  1 
54  003  0 

7 4357  0 
50  QOO  1 

23*400  1 

10  154  0 
1 3651  1 


LPEN072 


LOLnOP72 


CAF 

WASK 

CCS 

TCF 

TCF 

CS 

AO 

TS 

INDEX 

CAE 

LXCH 

CCS 

TS 

INDEX 

CAE 

TS 

MASK 

INDEX 

E6ANK= 

LXCH 

EBANK= 

CCS 

TCF 


6IT1 

CDMPNUMe 

A 

+2 

UPERROLT 
B IT2 

COMPNUME 

MPAC 

A 

UPBUFF  +1 
A 

MPAC 

MPAC 

A 

UPBUFF  +l 
EBANK 
LOWS 
A 

1 40C 
) 400 
TEPHEM 
MPAC 
LDLGCP72 


HAVE  AN  ODD  N0»  OF  COMPONENTS 
BEEN  SENT  FOR  A V72  UPDATGoc 

YES 

FRPCR-  SHOULD  BE  OCO  NOo  OF  COMPONENTS 


NOW  PERFORM  THE  UPDATE 

PICK  UP  NEXT  UPDATE  WORC 

SET  POINTER  TO  ECACP(MUST  BE  CCS) 

PICK  UP  NEXT  ECADR  OF  PEG  TO  BE  UPDATED 
SET  EBANK 

ISOLATE  RELATIVE  ADDRESS 

UPDATE  THE  REGISTER  BY  CONTENTS  OF  L 

ARE  WE  THROUGH  THE  V72  UPDATEoco 
NO 


NORMAL  FINISH  OF  F27 


REF  1 
REF  3 
REF  6 
PEF  263 
REF  10 
REF  1 


LAST  1380 
LAST  1381 
LAST  1385 
LAST  1381 


04,3667 

04.3670 

04.3671 

04.3672 

74.3673 

04. 3674 


C 3131  I 
31*170  0 
C 5314  I 
2 4755  1 
54  333  0 
C 3743  1 


UPOUT 


+ 1 


EQUALS 

TC  INTWAKEU 

CAE  UPQLOMOD 

TC  NEWMQOEX  +3 

CAF  ZERO 

TS  DNLSTCOO 

TC  UPACTCFF 


RELEASE  GRAB  CF  CR6ITAL  INTEGRATION 
RESTORE  PRIOR  P?7  MODE 


TURN  OFF  'UPLINK  ACTIVITY*  LIGHT 


gap:  assemble  REVISION  131  OF  AGC  PRCGBAf'  LUMINARY  BY  NASA  2021)  12~09X 

L UPCATE  FRC6RAM 


0478  REF 

0479  REF 


26  LAST  J305 
5 LAST  1384 


C4,3675 

CA,3676 

14,3677 


C 0006  1 
2 A755  1 
52  764  0 


EXTEND 

OCA 

OXCH 


NEGO 

-PHASE6 


0480 


REF  A3  LAST  720 


3A,37CO 


5472  0 


TC  ENCEXT 


R0481 


VERB  70  BRANCH 


0482 

0483 
0464 
0485 


REF  20  LAST  1386 
REF  21  LAST  1387 
REF  2 last  n8A 


04,37Cl 

04.3702 

04.3703 

04.3704 


C 0006  I 
A 1174  C 
53*204  1 
C 3545  0 


UPENC70 


extend 

DCS  UPBUFF 

OXCH  UPBUFF  +80 
TC  TIMEDICL 


0466 


REF  4 LAST  1386 


04,3705  0 3736  0 


TC  UPEBROUT 


0487 

0488 
0409 

0490 

0491 

0492 

0493 


REF  8 

REF  22 
REF  23 

REF  24 
REF  25 


LAST  1386 

LAST  1367 
LAST  1387 

LAST  1387 
LAST  1387 


C4,37C6 

74,3707 

04.3710 

04.3711 

04.3712 

04.3713 


C CCC6  1 
4 1174  0 
53*206  0 
C 0006  1 
4 1174  0 
53*210  1 


E0ANK=  TEPHEM 
EXTEND 

OCS  UPBUFF 

OXCH  UPBUFF  +100 
EXTEND 

OCS  UPBUFF 

OXCH  UPBUFF  +120 


0494 

0495 


REF  118  LAST  1385 


74.3714  0 5353  1 

74.3715  04026  1 


TC  PHASCHNG 

OCT  04026 


0496 

0497 
0490 
0499 


REF  264  LAST  1306 

REF  26  LAST  1367 
REF  5 LAST  504 


04.3716  3 4755  I 

04.3717  22  007  0 

04.3720  53*206  0 

04.3721  21*571  1 


CAF  ZEKC 
ZL 

DXCh  UPBUFF  +100 
DAS  TETCSN 


0500 

0501 

0502 
0503’ 


REF  265  LAST 

REF  27  LAST 
REF  4 LAST 


1387  04,3722 

04,3723 
1387  04,3724 

627  04,3725 


3 4755 
22  CC7 
53*210 
21*  643 


1 

0 

I 

0 


CAF  ZERO 

ZL 

OXCH  UPBUFF  +120 
DAS  TETLEM 


0504 

0505 

0506 

0507 

0508 


REF  266  LAST  1387 

REF  28  LAST  1387 
REF  9 LAST  1387 
REF  10  LAST  1387 


04.3726  3 4755  1 

04.3727  22  007  0 

04.3730  53* 174  C 

04.3731  21*710  1 

04.3732  27*706  0 


CAF  ZERC 

ZL 

OXCH  UPBUFF 

DAS  TEPHEM  +1 

AOS  TEPHEM 


0509 

0510 


KEF  119  LAST  1387 


04.3733  0 5353  1 

04.3734  04026  1 


TC  PHASCHNG 

OCT  04026 


0511 


REF  29  LAST  1387 


1173 


E8ANK=  UPBUFF 


0512 


REF 


6 LAST  1306  04,3735  0 3667  0 


TC 


UPOUT 


17:53  DECo  19,1969  SKIPPER  elOl  PAGE  1387 
USER*  S PAGE  NCe  10  E3  S4 

KILL  GROUP  6o 


EXTENDED  VERB  EXIT 


V70  DOES  THE  FOLLCHING  V^ITH  OP  DELTA 
time  in  UPBUFF 

CECREMENT  AGC  CLOCK 

ERRCR  while  DECREMENTING  CLOCK  — EXIT 

COPY  DECREMENTEPS  FOR 
RESTART  PROTECTION 


RESTART  PRCTECT(GRCUP  6) 


CECREMENT  CSM  STATE  VECTOR  TIME 


DECREMENT  LEM  STATE  VECTOR  TIME 


INCREMENT  TF  TEPHEM 

RESTART  PROTECT (GROUP  61 


GO  TO  STANDARD  UPDATE  PROGRAM  EXIT 


gap:  assemble  REVISION  131  OF  AGO  PROGRAM  LUMINARY  BY  NASA  202m2-091 


17:53  CECo  19,1969  SKIPPER  old  PAGE  1368 


L UPDATE  PROGRAM  USER'S  PAGE  NC,  11  E2  S4 

R0513  ERROR  SEQUENCE 


0516 

0517 

0518 
A0519 
A0520 
A0521 
A052? 


REF 

REF 

REF 


LAST  1388 
LAST  1366 
LAST  1387 


QA,37^0 

0A,3741 

09,37A2 


A3C4  1 
37A3  I 
5472  0 


FALTCN 

UPACTOFF 

ENCEXT 


TURN  ON  'CPEPATCR  ERROR'  LIGHT 
TURN  OFF'UPLINK  AC T I V I TY • L I GHT 
EXTENDED  VERB  EXIT 

(THE  PURPOSE  OF  UPERRCUT  *2  EXIT  IS 
TO  PROVIDE  AN  ERROR  EXIT  WHICH  DOES  NOT 
RESET  ANY  RESTART  GROUPS) 


R0523 


:LPACTOFF;  IS  A ROUTINE  TC  TURN  CFF  UPLINK  ACTIVITY  LIGHT  ON  ALL  EXITS  FROM  UPDATE  PROGRAM! P27) . 


0525 

0527 

0528 
0 530 


REF  38  LAST  1361 

REF  36  LAST  1359 
REF  309  LAST  1383 


04.3743 

04.3744 
C4,3745 
04,3746 


4 4751  1 UPACTOFF  CS  BI  T3 

0 0006  1 EXTEND 

03  011  1 WAND  DSALMOUT 

0 0002  0 TC  0 


TURN  OFF  UPLINK  ACTIVITY  LIGHT 
(BIT  3 OF  CHANNEL  11  I 


GAP: 

L 

0001 

0002 

0003 

OOOA 

0005 

R0006 

0007 

0008 

000<3 

ROOlO 

R0012 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

002 

0025 

0026 

0027 

R0054 

0055 

0056 

R0057 

R0059 

0060 

0061 

0062 

0063 

R0064 

0065 

0066 

0067 

0068 


ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
PTe  OP  COCES 


17:53  DECe  19, 1^69  SKIPPER  » 101 
USER'S  PAGE  MCo  I 


PAGE  1389 
EO  S4 


REF  1 


22,3773 

10,2000 

10,3574 


BANK  22 
SETLCC  PTBCCDES 
BANK 


REF  12  LAST  1257  E5,1664 

REF  1 


EBANK=  XNB 
CCUNT*  $t/RTe 


LOAD  TIME2,  TIMEl  INTO  MPAC: 


REF  39  LAST  1385 
REF  2 LAST  1013 


10,3576 


0 0006  1 LOACT IME  EXTEND 

3 0025  C CCA  TIME2 

1 6060  C TCF  SLOA02 


CONVERT  THE  SINGLE  PRECISION  2*S  COMPLEMENT  NUMBER  ARRIVING  IN  MPAC  (SCALED  IN  HALF-REVOLUTIONS)  TO  A 
DP  I'S  COMPLEMENT  NUMBER  SCALED  IN  REVOLUTIDNSo 


REF  851  LAST  1386 
REF  267  LAST  1387 

REF  28  LAST  1096 


10,3577  10  154 

10.3600  3 4755 

10.3601  1 3604 

10.3602  13  603 

10.3603  4 4736 


0 CCULOGIC  CCS 

1 CAF 

1 TCF 

0 NOOP 

C CS 


MPAC 
ZERO 
+ 3 

HALF 


REF  852 
REF  268 
REF  853 

REF  29 
REF  854 
REF  61 


LAST  1389 
LAST  1389 
LAST  1389 

LAST  1389 
LAST  1389 
LAST  1274 


10.3604 

10.3605 

10.3606 

10.3607 

10.3610 

10.3611 

10.3612 


5A  155  1 
3 4755  1 
56  154  1 
0 0006  1 
7 4736  0 
20  155  1 
1 6064  1 


CAF  ZERO 

XCH  MPAC 

EXTEND 
MP  HALF 

DAS  MPAC 

TCF  DANZIG 


MODE  IS  ALREADY  AT  DOUBLE- PREC I S I ON 


FORCE  TP  SIGN  AGREEMENT  IN  MPAC: 


SGNAGREE  TC 
TCF 


TPAGREE 
DANZ 1 G 


CONVERT  THE  CP  I'S  COMPLEMENT  ANGLE  SCALED  IN  REVOLUTIONS  TO  A SINGLE  PRECISION  2'S  COMPLEMENT  ANGLE 
SCALED  IN  hALF-REVCLLTICNS« 


REF  1 
REF  269 
REF  855 
REF  5 


LAST  1389 
LAST  1389 
LAST  1041 


10.3615 

10.3616 

10.3617 
10,3620 


C 3645  C 
3 4755  1 
54  155  1 
J 6C63  C 


1STC2S 


TC 

CAF 

TS 

TCF 


1 TC2SUe 
ZERO 
MPAC  +1 
NEUMCDE 


DC  1ST02S  CN  A VECTCR  CF  ANGLES: 


REF  2 LAST  1389  10,3621  C 3645  0 V1STC2S  TC  )T02SUB  ANSWER  ARRIVES  IN  A AND  MPACo 


REF  856 
REF  857 
REF  3 


LAST  1389  10,3622  52  162  0 
LAST  1389  10,3623  52  155  1 
LAST  1389  10,3624  C 3645  0 


DXCH  MPAC  +5 
OXCH  MPAC 
TC  1TC2SUB 


GAP: 

L 

0C69 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

R0078 

0079 

0080 

0081 

00B2 

0063 

0084 

0085 

R0086 

0087 

0088 

0089 

0090 

0091 

C092 

0093 

009^. 

0095 

0096 

0097 

0098 

R0114 

R0n6 

ROHR 

0119 

0120 

0121 

0122 

0123 

0124 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021J12-091 


17:53  CECs  19,1969  SKIPPER  101  PAGE  1390 


RTB  OP  CODES 

REF  858  LAST  1389  10,3625  54  156 


TS  MPAC  +2 


USER'S  PAGE  NCe  2 E5  S4 


REF  4 
REF  861 


LAST  1389 
LAST  1300 


10.3626 

10.3627 

10.3630 

10. 3631 


52  160  1 
52  155  1 
0 3645  0 
54  155  1 


DXCH  M.PAC  +3 
DXCH  MPAC 
TC  lTC2SUe 

TS  MPAC  +1 


REF  862 
REF  863 


LAST  1390 
LAST  1390 


10.3632 

10. 3633 


3 0161  1 
54  154  0 


CA  MPAC  +5 

TS  MPAC 


REF  148  LAST  1381  10,3634  3 4753  1 TPMOOE  CAF  ONE 

REF  6 LAST  1389  10,3635  1 6063  0 TCF  NEWMCCE 


MODE  IS  TPo 


V1ST02S  FOR  2 COMPONENT  VECTOR*  USED  BY  RRo 


REF  5 LAST  1390 
REF  86<‘  LAST  1390 
REF  865  LAST  1390 
RFF  6 LAST  1390 
REF  262  LAST  1386 
REF  866  LAST  1390 
REF  3 LAST  1389 


SUBROUTINE  TO  UO  DOUBLING  AND  I'S  TO  2'S  CONVERSION: 

FINAL  MPAC  +1  UNSPECIFIFOo 


THIS  V>AS  REVERSE  OF  MSUo 


REF  867  LAST  1390 


REF  469 
REF  149 


LAST  1386 
LAST  1390 


10 .3645 

10. 3646 

10.3647 

10.3650 

10.3651 
10  ,3652 


52  155  1 
20  001  1 
J C 000  0 
6 4753  I 
1 2653  0 
4 0000  0 


CXCH  MPAC 
DDOUBL 
CCS  A 
AD  ONE 

TCF  +2 

COM 


10,3636 

10,3627 

10.3640 

10.3641 

10. 3642 

10.3643 


0 3645  0 
52  160  1 
52  155  1 
f 3645  0 
54  001  1 
3 0157  1 


2V1ST02S  TC 

DXCH 

DXCH 

TC 

TS 

CA 


1T02SU8 
MPAC  43 
MPAC 
lTC2SUe 
L 

MPAC  +3 


10,3644  1 6060  0 


TS  MP/SC 

TC  0 


AND  SKIP  ON  OVERFLOW* 


KEF 

REF 

REF 

REF 


47C 

s 

869 

391 


LAST  1390 
LAST  1096 
LAST  1390 
LAST  1390 


10.3655  5C  000  1 

10.3656  3 4734  0 
10  ,3657  26  154  0 
10,3660  C 0002  0 


INDEX  A OVERFLOW  UNCORRECT  AND  IN  MSU, 

CAF  LIMITS 
ADS  MPAC 

TC  0 


THE  FOLLOWING  ROUTINE  INCREMENTS  IN  2S  COMPLEMENT  THE  REGISTER  WHOSE  ADDRESS  IS  IN  BU F BY  THE  IS  COMPLo 
QLANTITV  FCUND  IN  TEM2a  THIS  MAY  BE  USED  TC  INCREMENT  DESIRED  IMU  AND  OPTICS  COU  ANGLES  OR  ANY  OTHER  2S  COMPL-, 
(40  UNEQUAL  TO  -0)  QUANTITY*  MAY  BE  CALLED  BY  eANKCALL/SWCALL* 


REF  31  LAST  1259 
REF  168  LAST  1259 

REF  15r  LAST  1390 

REF  151  LAST  1390 


10.3661 

10.3662 

10.3663 

10.3664 

10.3665 

10 .3666 


54  142  1 
50  130  n 
1C  CCO  0 
6 4753  1 
1 3671  0 
6 4752  1 


CDUINC 


TS  TFM2 

INDEX  BUF 

CCS  0 

AC  ONE 

TCF  44 

AO  ONE 


IS  COMPL»QUANT«  ARRIVES  IN  ACC*  STORE  IT 
CHANGE  2S  CCMPL*  ANGLEIIN  BUFIINTO  IS 


GAP:  assemble  revision  131  OF  AGC  PROGRAM  LIMINARY  RY  NASA  2C2in2-0«5 


L RTB  CP  CODES 


0125  REF  152  LAST  139C 

0126 


10,3667  6 A753  1 

10,3670  A 0000  0 


AC  ONE 

COM 


0127  REF  32 

0129  REF  A71 

0130  REF  153 

0131 

0132 

0133  REF  33 

013A 

0135  REF  A72 

0137  REF  6 

0138  REF  3A 


LAST  1390 
LAST  1390- 
LAST  1391 


LAST  1391 


LAST  1391 
LAST  1390 
LAST  1391 


10.3671  6 0142  0 

10.3672  1C  CCO  0 

10.3673  6 4753  1 

10.3674  1 3676  1 

10.3675  A 0000  0 

10.3676  5A  1A2  1 

10.3677  I 3703  1 

10.3700  50  000  1 

10.3701  3 A73A  0 

10,37C2  6 C1A2  0 


AO  TEM2 

CCS  A 

AD  ONE 

TCF  +2 

COM 

TS  TEM2 

TCF  +4 

INDEX  A 

CAF  LIMITS 

AD  TEM2 


0139  REF  169  LAST  1390 

0140 

0141  REF  392  LAST  1390 


10.3703  50  130  0 

10.3704  54  000  0 

10.3705  C 0002  0 


INDEX  BUF 
TS  0 

TC  0 


17:53  CEC*  19,1969  SKIPPER  ICl  PAGE  1391 


USER'S  PAGE  NCe  3 65  $4 

OVERFLOW  HERE  IF  2S  COMPLc  IS  180  DEGe 

SULT  MOVES  FROM  2N0  TO  30  QUAD, (OR  BACK* 
PACK  TO  2S  COMPLe 

STORE  14BIT  QUANTITY  WITH  PRESENT  SIGN 
SIGNo 

FIX  IT, BY  ADDING  IN  37777  OR  40000 

STORE  NEW  ANGLE  IN  2S  COMPLEMENT,, 


GAP 


ASSEMBLE  REVISIOA  131  CF  AGC  PPCCRAM  LUMINARY  8Y  NASA  2021112-n<;i 


17:53  OECo  1Q»1969  SKIPPER  olOl  PAGE  1392 


L RTB  OP  CODES 


USER’S  PAGE  NOo  ^ £5  S4 


P01^2 


RTE  TC  TORQUE  GYROS  f 


EXCEPT  FOR  THE  CALL  TO  IMUSTALLo  ECADR  CF  COMMANDS  ARRIVES  U Xl» 


0144 

0145 

0146 

0147 

0148 


REF  61  LAST  1213 
REF  69  LAST  1263 
REF  311  LAST  1382 
REF  7 LAST  962 
REF  63  LAST  1389 


10,37C6 

10,37C7 

10*3710 

10.3711 

10.3712 


50  120  1 
3 0C46  0 

0 4616  1 
17314  1 

1 6064  1 


PULSEIMU  INDEX  FIXLCC 

CA  XI 

TC  BANKCALL 

CACR  IMUPULSe 

TCF  DANZIG 


ADDRESS  OF  GYRO  COMMANDS  SHOULD  8E  IN  XI 


GAP:  ASSEMBLE  REVISION  l3l  CF  AGC  PRCGPAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19,1969  SKIPPER  ^101  PAGE  1393 


RTB  CP  CODES 


USER'S  PAGE  NCc 


R0196 

R0197 

R0198 


ENTRY  MAY  BE  BY  ElThER  CF  THE  FCLLCWING: 

U LIMIT  THE  SIZE  CF  MFAC  CN  INTERPRETIVE  OVERFLOW: 

ENTRY:  60VB 

S IGNMPAC 


R0199 

R0200 

R0201 


GENERATE  IN  MPAC  THE  SIGNUM  FUNCTION  CF  MPAC: 
RTB 

SIGNMPAC 


R0202  IN  EITHER  CASE,  RETURN  IS  TO  THE  NEXT  INTERPRETIVE  INSTRUCTION  IN  THE  CALLING  SEQUENCEo 


020A 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 
0213 


REF  2 
REF  870 
REF  ^73 
REF  270 
REF  4 


REF 


LAST  445 
LAST  1390 
LAST  1391 
LAST  1389 
LAST  1390 


LAST  1393 


10,3713  0 0006  1 SIGNMPAC  EXTEND 


10.3714 

13.3715 

10 .3716 

10.3717 

10.3720 

10.3721 

10.3722 

10.3723 


3 4733 
52  155  1 
10  000  0 

3 4755  1 
1 6062  I 
1 3722  1 
C 0006  1 

4 4733  C 


LAST  1393  10,3724  1 6060  0 


OCA 
DXCH 
CCS 
CAF 
TCF 
TCF 

EXTEND 

DCS 

TCF 


ZERO 
SLCA02 
+ 1 


SL0A02 


SETS  MPAC  +2  TO  ZERO  IN  THE  PROCESS 


R0214  RTE  OP  CODE  NORMUNIT  IS  LIKE  INTERPRETIVE  INSTRUCTION  UNIT,  EXCEPT  THAT  IT  CAN  BE  DEPENDED  ON  NOT  TO  BLOW 

R0216  UP  WHEN  THE  VECTOR  BEING  UNITIZED  IS  VERY  SMALL  — IT  WILL  BLOW  UP  WHEN  ALL  COMPONENTS  ARE  ZERCo  IF  NORMUNIT 

R0218  IS  USED  AND  THE  UPPER  ORDER  HALVES  OF  ALL  CCMPCNENTS  APE  ZERO,  THE  MAGNITUDE  RETURNED  IN  360  WILL  BE  TOn  LARGE 

R0220  BY  A FACTOR  OF  2(13)  AND  Tf-E  SQUARED  MAGNITUDE  RETURNED  AT  34D  WILL  EE  TOC  BIG  BY  A FACTOR  CF  2(26)» 


0222 

02221 

02222 

02223 

02224 

0222  5 

0223 

0224 

0225 

0226 
02  2 7 
0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 


REF  154 
REF  11 
REF  271 
RFF  62 
REF  87J 
REF  312 
REF  3 
REF  872 


REF  4 
REF  874 


LAST  1393 
LAST  1392 
LAST  1393 
LAST  1392 
LAST  1064 
LAST  1393 


LAST  1393 


LAST  1393 
LAST  1393 


LAST  1393 


10  ,3725 

10.3726 

10.3727 

10.3730 

10.3731 

10.3732 

10.3733 

10.3734 
10  ,3  735 

10.3736 

10.3737 
10  ,3740 

10.3741 

10.3742 

10.3743 

10.3744 

10.3745 

10.3746 

10.3747 


3 4753  1 
1 3730  1 
3 4755  1 
6 0120  1 
54  156  1 

0 4616  1 
OlOlO  1 

10  154  0 

1 3771  1 
1 374C  C 
1 3771  1 
10  157  0 
1 3771  1 
1 3744  1 
1 3771  1 
10  161  0 
1 3771  1 
1 3750  1 
1 3771  1 


NORMUNXl  CAF 
TCF 

NORMUNIT  CAF 
'AC 
>TS 


Ccl 


CR 
CCS 
TCF 
TCF 
TCF 
CCS 
TCF 
TCF 
TC  F 
CCS 
TCP 
TCF 
TC  F 


ONE 

NORMUNIT  +1 
ZERO 
FIXLCC 
MPAC  +2 
BANKCALL 
VECACREE 
MPAC 
NOSHIFT 
+2 

NO  SHI  FT 
MPAC  43 
NOSHIFT 
42 

NOSHIFT 
MPAC  45 
NOShIFT 
42 

NOSHIFT 


GET  SIGN  AGREEMENT  IN  ALL  COMPONENTS 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C91 


L RT6  CP  COOES 


0236  REF  675 

0237 

0238  REF  80 

0239  REF  876 

0290  REF  877 

0291 

02911  REF  01 

02912  REF  €78 

02913  REF  879 
02919 

02915  RFF  82 

02916  REF  680 

02917  REF  2 
02916  REF  681 
02919 

0292  REF  63 

0293  REF  3 


LAST  1393 

LAST  1362 
LAST  1399 
LAST  1399 

LAST  1399 
LAST  1399 
LAST  1399 

LAST  1399 
LAST  1399 
LAST  1069 
LAST  1399 

LAST  1381 
LAST  1007 


10.3750  3 0155  0 

10.3751  C 0006  1 

10.3752  7 9736  0 

10.3753  2C  155  1 

in, 3759  3 0160  0 

10.3755  C 0006  I 

10.3756  7 9736  0 

10.3757  20  160  1 

10.3760  3 0162  1 

10.3761  C 0006  1 

10.3762  7 9736  0 

10.3763  2C  162  0 

10  ,3769  3 9761  0 

10.3765  5C  156  0 

10.3766  59  095  1 

10  ,3767  0 9635  0 

10,3770  01029  0 


CA  MPAC  +1 

EXTEND 

MP  eiT19 

DAS  MPAC 

CA  MPAC  +9 

EXTEND 

MP  BIT19 

CAS  MPAC  +3 

CA  MPAC  +6 

EXTEND 

MP  BIT19 

DAS  MPAC  +5 

CAF  THIRTEEN 

INDEX  MPAC  +2 

TS  370 

CFFTUNIT  TC  POSTJUMP 

CACR  UNIT  +1 


02931  REF  272  LAST  1393 

02932  REF  1 


10.3771  3 9755  1 NOSHIFT  CAF  ZERO 

10.3772  1 3765  1 TCF  OFFTUNIT 


R03n0  RTB  VECSGNAG  ooaFORCES  SIGN  AGREEMENT  OF  VECTOR  IN  MPAC* 


0301 

0302 

0303 


REF  313  LAST  1393 
REF  9 LAST  1393 
REF  69  LAST  1392 


10,3773 

10,3779 

10,3775 


0 6069  0 


BANKCALL 

VECAGREE 

DANZIG 


END  OF  SKIPPER  olOl 


17:53  CECe  19,1969  SKIPPER  ^lOl  PAGE  1399 


USER'S  PAGE  NC«  6 F5  S9 

SHIFT  ALL  COMPONENTS  LEFT  13 

CAS  GAINS  A LITTLE  ACCURACY 


SKIP  THE  "TC  VECAGREE"  DONE  AT  UNIT 


•2 


gap:  assemble  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  OECo  19,1969  LMDAP 


025  PAGE  1395 


L 

T6-RLFT  PROGRAMS  USER'S  PAGE  NC«  1 EH  S4 

ROOOl 

R0002 

PROGRAM  NAMES:  (1>  T6J0BChK  MCCo  NCo  5 CCTCBER  2,  1967 

12)  DnT6RUPT 

R0003 

R0004 

R0006 

R0008 

R0009 

ROOlO 

ROOll 

R0012 

R0013 

ROOIA 

R0015 

R0016 

R0018 

R0020 

R0021 

R0023 

R0025 

R0026 

R0028 

NCDIFICATICN  BY:  LCViELL  G FULL  ( A.  Co  EL  ECT  RON  I CS  f 

TFESE  PROGRAMS  ENABLE  THE  LM  DAP  TC  CCNTRCL  THE  THRUST  TIMES  OF  THE  REACTION  CONTROL  SYSTEM  JETS  BY  USING  TIME6. 
SINCE  THE  LM  DAP  MAINTAINS  EXCLUSIVE  CONTROL  OVER  TIME6  AND  ITS  INTERRUPTS,  THE  FOLLOWING  CONVENTIONS  HAVE  BEEN 
ESTABLISHED  AND  MUST  NOT  BE  TAMFEREC  WITH: 

1*  NO  NUMBER  IS  EVER  PLACED  INTO  TIME6  EXCEPT  BY  LM  DAP^ 

2o  NO  PRCGRAM  'OTHER  THAN  LM  DAP  ENABLES  THE  T I ME  6 COUNTER® 

3®  TO  USE  TIME6,  THE  FCLLCWING  SEQUENCE  IS  ALWAYS  EMPLCYEC: 

A®  A POSITIVE  (NON-ZERO)  NUMBER  IS  STORED  IN  TIME6® 

8o  THE  TIME6  CLCCK  IS  ENABLEC® 

Co  TIMES  IS  INTERROGATED  AND  IS: 

I®  NEVER  FOUND  N EG  A TI VE ( NON-Z ERO ) OR  +0® 

II®  SOMETIMES  FOUND  PO S I T I VE ( BET W EEN  1 AND  240D)  INDICATING  THAT  IT  IS  ACTIVE® 

IIIo  SOMETIMES  FOUND  POSMAX  INDICATING  THAT  IT  IS  INACTIVE  AND  NOT  EMABLEO® 

IV®  SOMETIMES  FOUND  NEGATIVE  ZERO  INDICATING  THAT: 

A®  A T6RUPT  IS  ABOUT  TO  OCCUR  AT  THE  NEXT  CINC,  OR 

B®  A T6RUPT  IS  WAITING  IN  THE  PRIORITY  CHAIN,  OR 

C®  A T6RUPT  IS  IN  PROCESS  NOW® 

4)  ALL  PROGRAMS  WHICH  OPERATE  IN  EITHER  INTERRUPT  MODE  CR  WITH  INTERRUPT  INHIBITED  MUST  CALL  T6J0BCHK 
EVERY  5 MILLISECCNDS  TO  PROCESS  A POSSIBLE  WAITING  T6RUPT  BEFORE  IT  CAN  PE  HONCREO  BY  THE  HARDWARE® 

R0030 

R0031 

(5®  PROGRAM  JTLST,  IN  C,R-/!XES,  HANDLES  THE  INPUT  LIST®) 

T6J08CHK  CALLING  SEQUENCE: 

A0032 

A0033 

L TC  T6J06CHK 

L *1  (RETURN) 

R003A. 

DCT6RUPT  CALLING  SEQUENCE: 

A0035 

A0036 

A0037 

A0038 

DXCH  ARUPT  T6RUPT  LEAD  IN  AT  LOCATION  4004® 

EXTEND 

DCA  T6ADR 

CTCB 

R0039 

SUBROUTINES  CALLED:  D0T6RUPT  CALLS  T6J0BCHK® 

ROO^O 

ROOAl 

NCRMAL  EXIT  MODES:  T6J0BCHK  RETURNS  TO  L +1® 

00T6RUPT  TRANSFERS  CCNTRCL  TC  RESUME® 

R00^2 

ALAPM/ABORT  MQCES:  NONE® 

R0043 

R0044 

R0045 

R0046 

INPUT:  TIME6  NXT6ACR  CUTPUT:  TIME6  NXT6A0R  CHANNEL  5 

T6NEXT  T6NEXT  ^1  T6NEXT  T6NEXT  +1  CHANNEL  6 

T6FURTHA  T6FUPTHA  ♦!  T6FURTHA  T6FLR7HA  +1  61T15/CH13 

DEBRIS:  T6JO0CHK  CLOBBERS  A®  CCT6RUPT  CLCBBERS  NOTHING* 

0047 

5743  BLOCK  02 

gap: 


J7:53  OECo  19,1969 


L WCAP 


025  PAGE  1396 


ASSEMBLE  REVISION  131  OF  AGC  PFCGRA^  LUMINARY  BY  NASA  2021112-091 
T6-RUFT  FRGGRAMS 


USER*  S PAGE  NCc 


0055 

0056 

0057 
0056 
0059 


REF 

REF 


LAST  221 


17,2055 

17,2000 

17,2055 

E6,IA66 


BANK 

68ANK=  T6NEXT 
COUNT*  S£/0APT6 


0060 

0061 

0062 

0063 

R006A 


LAST  1391 
LAST  1109 
LAST  1396 


17.2055 

17.2056 

17.2057 
17,2060 


CONTROL  PASSES  TO  T6J0B  0NLY 


10  031  1 T6J0BCFK  CCS 

C C002  0 TC 

C 5675  0 TC 

C 5675  0 TC 

WHEN  C(  TIME6)  = -0  ( Ig  Ea 


TIME6  CHECK  TIMB6  FOR  WAITING  T6RLPT: 

0 NONF:  CLOCK  TOUTING  DOWNe, 

CCSHOLE 
CCSFCLE 

WHFN  A T6RUPT  MUST  BE  PROCESSEOIo 


0069 

0070 

0071 

0072 

0073 

0074 


REF  34  LAST  1122 

REF  1 

REF  3 LAST  1396 

REF  2 LAST  221 

REF  2 LAST  1396 


17.2061 

17.2062 

17.2063 

17.2064 

17.2065 

17.2066 


3 4733  1 

22  on?  0 

52'471  0 
53*467  1 
23*465  1 
54  031  1 


DXCH 

DXCH 

LXCH 


POSMAX 

T6FURTHA 
T6NEXT 
NXT6ADR 
TI  ME6 


0075 

0076 

0077 

0078 

0079 

0080 
008) 
00812 
008125 
00813 
0C814 

0081  5 
0081 55 
00816 

0082 
0083 
0064 

0085 

0086 

0087 

0088 
008° 

0090 

0091 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST  907 


4 LAST  1396 
63  LAST  1396 
48  LAST  1368 


REF  22 
REF  4 
REF  8 
REF  475 
REF  2 
REF  36 
REF  5 
RFF  263 
REF  1 


LAST  1328 
LAST  1396 
LAST  1396 
LAST  1306 
LAST  1396 
LAST  1396 
LAST  1396 
LAST  1390 


17,2067 

17.2070 

17.2071 

17.2072 

17.2073 

17.2074 

17.2075 

17.2076 

17.2077 
17,21C0 

17.2101 

17.2102 

17.2103 

17 .2104 

17. 2105 

17.2106 

17.2107 

17.2110 

17.2111 

17.2112 

17.2113 

17.2114 

17.2115 

17.2116 


6 7730  1 
54  OOO  0 
1 2075  0 
3 4733  1 
54  031  1 
1 2115  I 
0 0006  1 
23*265  1 
22  070  0 
C 6022  1 
0 0006  1 
23*265  1 
22  070  0 
3 4735  1 
C 0006  1 

05  013  0 
3 1466  1 

6 7730  1 
54  000  0 
1 2115  1 
3 4733  1 
55*466  0 
5C  001  0 
1 5743  0 


TS 

TCF 

CA 

TS 

TCF 

eNA6LET6  EXTEND 
QXCH 
LXCh 
TC 

EXTEND 

CXCH 

LXCH 

CAF 

EXTEND 

WOR 

CA 

AD 


PRI037 

A 

ENABLET6 
PnSMAX 
TI  ME6 
G0CH56 

C 13QSAV 

RUPTPEGl 

C13STAIL 

Cl  3QSAV 
RUPTREGl 
BIT15 

CHAN13 

T6NEXT 

PRIC37 

A 

G0CH56 

PUSMAX 

T6NEXT 


0092 

0093 

0094 

0095 

0096 


LAST  908 


5743 

4000 

5743 

E6,1634 


BANK 

E8ANK*  CCUXC 
COUNT*  $$/DAPT6 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L 76-RLPT  PROGRAMS 


0097 

0090 

0090 

0100 


REF  4 LAST  221 

REF  2 LAST  214 
REF  394  LAST  1396 


5743  3 1472  1 

5744  0 0006  1 WR  ITEP 

5745  01  006  0 
5146  C 0CC2  0 


CA  NEXTP 

EXTEND 

WRITE  CHAN6 
TC  0 


0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 
0109 


REF  1 
REF  264 
REF  1 

REF  3 
REF  265 

REF  4 
REF  395 


LAST  1396 


LAST  1020 
LAST  1397 

LAST  1397 
LAST  1397 


5750 

5751 

5752 

5753 

5754 

5755 

5756 

5757 


3 1473 
54  001 

4 5764 
C 0006 
Ci-0il5- 
6 OCOl 
0 0006 
Cl  C05 
0 0002 


0 

1 

C 

1 

S 

C 

1 

0 

0 


WRITEU 


CA  NEXTU 

TS  L 

CS  003140CT 

EXTEND 

RAND  CHAN9 
AO  L 

EXTEND 

WRITE  CHAN5 
TC  Q 


0110  REF  1 

0111  REF  266  LAST  1397 

0112  RFF  2 LAST  1 397 

0113 

0114 


5760  3 1474  1 

5761  54  001  1 

5762  3 5764  1 

5763  1 5752  0 

5764  00314  1 


CA 

WRITEV  TS 
CA 
TCP 

0Q314OCT  OCT 


NEXTV 

L 

00314nCT 

-9C 

00314 


0115 

0116  REF 

0117 


LAST  1396 


17,2117 

17,20C0 

17,2117 


BANK  17 
SETLCC  0APS2 
BANK 


0118  REF  6 LAST  1396  E6,1466 

0119  REF  2 LAST  1396  TO  1396:  34 


EBANK=  T6KEXT 
COUNT*  t$/DAPT6 


0120  REF  11  LAST  1331 

0121 

0122  REF  10  LAST  1331 


17 ,2117  22  016  0 

17.2120  C 0C06  1 

17.2121  22  012  1 


0aT6RUPT 


LXCH 

EXTEND 

OXCH 


BANKRUPT 

ORUPT 


0123  RFF 


17,2122  0 2055  0 


TC  T6J0BCHK 


0124 


REF  25  LAST  1331 


17,2123 


1 5270  0 


TCF  RESUME 


17:53  ceCo  19,1969  LMCAP 
USER'S  PAGE  NCo 


c025  PAGE  1397 
E?  S4 


(INTERRUPT  LEAD  INS  CONTINUED} 


CALL  T6JOBCHK0 


END  TIME6  INTERRUPT  PROCESSOR, 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARV  BY  NASA  2021)12-091 

L DAP  INTERFACE  SUBRCUTINES 


0001 

0002 

0003 


R0006 

R0007 

R00C8 


20,2115 

3 LAST  ^3  20,2000 

20,2115 

16  LAST  1396  E6,163A 

1 


MOD  0 DATE 

MCC  I 

FLNClinNAL  OESCRIPTICN 


U/15/66 
1/22/ tl 


17:53  DECo  19,1969  Lf'CAP 
USER’S  PAGF  NO® 


BANK  20 
SETLOC  DAPS3 
BANK 


BY  GECRGE  W®  CHERRY 
MODIFICATION  BY  PETER  ADLER 


®025  PAGE  1 398 
EO  S4 


R0009  HEREIN  ARE  A COLLECTION  OF  SUBROLTINES  V*HICH  ALLOK  MSSTCN  CCNTRGL  PROGRAMS  TC  CCFTRCL  THE  MODE 

ROOll  AND  INTERFACE  WITH  THE  DAP® 


R0012  CALLING  SEOLENCES 


R0013  IN  INTERRUPT  CR  WITH  INTERRUPT  INHIBITED 
R0014  TC  IBNKCALL 

R0015  FCADR  ROUTINE 


R0016  IN  A JOB  WITHOUT  INTERRUPT  INHIBITED 

R0017  INHINT 

R0018  TC  IBNKCALL 

R0019  FCAOR  RCLTINE 

R0020  RELINT 


R0021  OUTPUT 

R002.2  SEE  INDIVIDUAL  ROUTINES  BELOW 

R0023  DEBRIS 


R0024 


A,L,  AND  SCNETIMES  NCUETEMP 


ODE 


NOT  I N PULSES  MODE 


gap:  ASSEf'BLE  REVISION  131  OF  AGC  PRCCPAN  LUMINARY  BY  NASA  2C21)12-Cgi 

L DAP  INTERFACE  SU8RCLTINES 


17:53  OeCo  IPtlPBP  LNCAP 
USER'S  PAGE  NO« 


2 


o025  PAGE  1399 
E?  S4 


R0087  SUEROUTINE  NAMES: 

R0088  SETMAXDB,  SETMINCB,  RESTCRC0,  PFLITECC 


K0089  MOCIFIEC: 
R0090  PCCIFIF.C; 


30  JANUARY  1968 
1 MARCH  1968  BY 


BY  P S VsEISSMAN 
P S WEISSMAN  TO 


TC  CREATE  RESTORCB^, 

SAVE  EBANK  AND  CREATE  PFLITEDB 


R0091 

R0n92 

R0093 

R0094 

R0096 

R0098 

ROlOO 


FLNCTIONAL  OESCRIPTICN: 

SETMAXDB  - SET  DEAOBANO  TO  5oO  DEGREES 
SETMINOB  - SET  DEADBAND  TO  Oo3  DEGREE 

REST0R08  - SET  DEADBAND  TO  o3ili  CR  5 ACCORDING  TC  BITS  4 AND  5 OF  OAPBOOLS 

PFLITEDB  - SET  UEADPANO  TO  loO  DEGREE  AND  ZERO  THE  COMMANDED  ATTITUDE  CHANGE  AND  CCMMANDEO  RATE 
ALL  ENTRIES  SET  UF  A NCVAC  JOB  TC  CO  1/ACCS  SO  THAT  THE  TJETLAW  SWITCH  CURVES  APE  POSITIONED  TO 
REFLECT  THE  NEW  DEADBAND,.  IT  SHOULD  BE  NOTED  THAT  THE  DEADBAND  REFERS  TO  THE  ATTITUDE  IN  THE  P-|U-,AND  V-AXESo 


R0102  SLBRCUTINE  CALLED:  NCVAC 


R0103 

A0jn4 

R0105 


CALLING  SEQUENCE;  SAME  AS  ABCVE 
DEBRIS:  A,  L,  Q»  RUPTREGl,  (ITEMPS 


OR 

IN  NOVAC) 


TC 


RESTORDB 


FROM  ALLCCAST 


0106  REF  31 
01061  REF  1 
C1C62 

01063 

01064  REF  1 

01065  REF  32 

0107  REF  I 
0100 

0109  REF  6 


LAST  904 

LAST  1399 

LAST  847 


20.2115 

20 .2116 
20  ,2117 
20,2120 
20,2121 
20,2122 
20,2123 
20  ,2124 
20,2125 


3C  111  0 
7 4747  0 
C C006  1 
1 2122  0 
1 2130  0 
30  111  0 
7 4750  a 
C 0006  1 
1 2141  0 


RESTCRCe  CAE 
MASK 
EXTEND 
6ZF 
TCF 
CAE 
WASK 
EXTEND 
8ZF 


DAPBCCLS 

DBSLECT2 

+ 2 

SETMAXDB 

OAPBOOLS 

DDSELECT 

SETMINCe 


DETERMINE  CR  EW -S  EL  EC  T EO  OEADBANDa 
CHECK  FOR  MAX  CB  (5  DEG) 

B1T5  OAPBOOLS  IS  SET  - CREW  WANTS  5 DEG 
CHECK  FOR  1 DEG  DEACBANO  SELECTION 


01091  REF  I 

01092  REF  2 LAST  1399 

0110  REF  1 


20,2126 
20,2127 
20, 2130 


2153  1 CAF 
2131  1 TCF 
2152  0 SETMAXDB  CAF 


POWERDB 
SETMAXDB  +l 
WIOEOD 


0111 


REF  4 LAST  825 


20,2131  55*343  0 


TS  DB 


8IT4  OAPBOOLS  IS  SET  - CREW  WANTS  1 DEG 
SET  5 DEGREE  DEACBANOo 


0112 

0113  REF 

0114  REF 

0115  REF 

0116  REF 

0117  REF 
0117 


64  LAST  1396 
4 last  738 
31  LAST  1363 
9 LAST  734 
2 LAST  194 


20,2133 
20  ,2134 

20.2135 
£6,1536 

20 .2136 

20.2137 


0 0006 
22  07G 
3 7720 
C 5072 


03652 

42106 


I 

0 

0 

1 


0 

0 


EXTEND 

QXCH  KUPTREGl 
CALLACCS  CAF  PR  1027 

TC  NGVAC 

E0ANK=  AOSO 
2CA0R  1/ACCJC6 


SET  UP  JOB  TO  RE-POSITION  SWITCH  CURVES. 


0118 


REF  65  LAST  1399 


20,2140  0 0070  0 


TC  RUPTREGl  RETURN  TO  CALLERa 


0119  REF 

0120  REF 


1 20,2141 

3 LAST  1399  20,2142 


2151  0 SETMINCB  CAF 
2131  1 TCF 


NARROW  Ce 
SETMAXDB 


SET  0o3  DEGPFE  DEADBANDo 


gap:  assemble  revision  131  OF  A6C  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L DAP  INTERFACE  SUBRCUTINES 


0121 

0122 

0123 

0124 

0125 

0126 
01261 
01262 
0127 


REF 

REF 

hEF 

REF 

REF 


LAST  1399 
LAST  1399 


2C  i21A3 
20,21A4 
20  ,2145 
20,21A6 
20  ,2147 

20.2150 

20.2151 
20  ,2152 
20,2153 


C 0006  1 
22  070  0 

0 2154  0 
3 2153  1 
55'343  0 

1 2134  1 
00155  0 
03434  1 
C0E54  0 


CAF 

TS 

TCF 

NARROWOB  OCTAL 
WICECB  OCTAL 
PCkERCe  DEC 


RUPTREGl 

ZATTERCP 

POViEROB 

DB 

CALLACCS 

00155 

03A3A 

©02222 


0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 


REF  8 
REF  8A 
REF  267 
REF  21 
REF  17 
REF  10 
REF  4 
REF  13 
REF  4 
REF  9 


LAST  1397 
LAST  1305 
LAST  1398 
LAST  1301 
LAST  905 
LAST  1301 
LAST  905 
LAST  919 


20.2154 

20.2155 

20.2156 

20.2157 
20,2160 
20,2161 
20,2162 

20.2163 

20.2164 

20.2165 


3 5015  C 
56  003  1 
5A  COl  1 
30  032  0 
55' 634  0 
20  033  1 
55*635  1 
2C  C34  0 
55*636  1 
1 2171  0 


CAE 

TS 

TCF 


CDUX 

CCUXC 

CDLY 

CDUYD 

CDUZ 

CDLZD 

STCPRATE 


0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 
0146 

0149 

0150 

0151 

0152 


REF  9 
REF  65 
REF  268 
REF  273 
REF  11 
PEF  6 
REF  6 
PEF  5 
REF  2 
REF  2 
REF  4 
REF  2 
REF  2 
REF  86 
REF  396 


LAST  1400 
LAST  1394 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


913 

912 

912 

913 
137 
137 
913 
371 
371 


20,2166 

20,2167 

20.2170 

20.2171 

20.2172 

20.2173 

20 .2174 

20.2175 

20.2176 

20.2177 
20,2200 
20,2201 
20,2202 

20.2203 

20.2204 


3 5015  0 
56  003  1 
59  001  1 
3 9755  1 
55*642  1 
55*641  0 
55*644  1 
55*  637  0 
55*690  0 
55*691  1 
55*274  0 
55*275  1 
55*276  1 
22  CC3  I 
0 0002  0 


LXCH 

TC 


ZERO 

OMEGAPD 

OMEGAQD 

OMEGARO 

DELCDUX 

DELCDUY 

OELCDUZ 

DELPEROR 

DELOERGR 

OELREROR 

E8ANK 


R0153  SLBROUTINE  NAME:  ALLCOAST 

R0154  WILL  BE  CALLEC  BY  FRESH  STARTS  AND  ENGINE  OFF  ROUTINES© 

R0156  CALLING  SEQUENCE:  (SAME  AS  ABCVE> 

R0157  EXIT:  RETURN  TO  0© 

R0158  SLBRCUTINES  CALLEC:  STCPRATE,  RESTORCB,  NOVAC 

R0159  ZERO:  (FOR  ALL  AXES*  AOS,  ALPHA,  AOSTERM,  CMEGAC,  CELCDU,  DELERGR 


17:53  CeCo  19,1960  LMOAP  o025  PAGE  1400 

USER*S  PAGE  NCo  3 E6  S4 

TFE  RETURN  FROM  CALLACCS  IS  TO  RUPTREGl© 

ZERO  THE  ERRORS  AND  COMMANDED  RATES© 

SET  C6  TO  1©0  OEG© 

SET  UP  1/ACCS  AND  RETURN  TO  CALLER© 

0©?  DEGREE  SCALFO  AT  45© 

5eO  DEGREES  SCALED  AT  45© 

1»C  DEGREE  SCALED  AT  45© 


SAVE  CALLERS  EBANK  IN  L© 


SAVE  CALLERS  E6ANK  IN  L© 


RESTORE  CALLERS  EBANK, 


gap: 

L 

R0160 

R0161 

0162 

0163 

0164 

0165 

0166 

0167 

016fl 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 


ASSEMBLE  REVISION  131  CF  AGO  PRCGFAM  LUMINARY  BY  NASA  2021112-091 
DAP  INTERFACE  SUBROUTINES 


17:53  DECo  19,1969  LHDAP  025  PAGE  1401 
USER'S  PAGE  NCo  4 E6  S4 


CLTPLT: 
CEBR  IS: 


DPIFTeiT/CAFECOLS,  CE,  JCB  TO  DO  1/ACCS 

A,  L,  0,  RUPTREGl,  RLPTREG2,  (ITEMPS  IN  NOVAC» 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST  1322 
LAST  1400 


LAST  1401 
LAST  734 


2 LAST  134 


LAST  1401 


20.2205 

20.2206 
20,2207 
20,2210 
20,2211 
20, 2212 

20.2213 

20.2214 

20.2215 

20.2216 
20,2217 
20 ,2220 
20,2221 


0 0006  1 
22  071  1 
C 2166  1 
22  003  1 
55'536  1 
55'537  C 
55 '540  0 
55'54l  1 
55'424  0 
55*425  1 
55*544  1 
55*545  0 
22  003  1 


EXTEND 

QXCF 

TC 

LXCH 

TS 

TS 


LXCH 


RUPTREG2 

STOPRATE 

EBANK 

AOSO 

AOSC  ♦! 

AO  SR 

AnsP.  +1 

ALPHAQ 

ALPHAR 

AOSQTERM 

AOSRTERM 

EBANK 


SAVF  0 FCR  RETURN 


CLEAR  RATE  INTERFACE*  RETURN  WITH  A=0 
AND  L=EBANK6.  SAVE  CALLERS  EBANKo 


FCR  OGWNLISTo 


RESTORE  EBANK  (FBANK6  NO  LONGER  NEEDED) 


REF 

REF 

REF 

REF 


LAST  1399 
LAST  734 
LAST  1401 
LAST  847 


20,2222 

20.2223 

20.2224 

20.2225 


i 0111  1 
7 4744  0 
26  111  I 
0 2116  0 


kEF  26  LAST  1401  20,2226  0 CC71  1 


CS  DAPBOOLS 

MASK  ORIFTBIT 

AOS  DAPBOCLS 

TC  RE  STORDB  +1 


TC 


PUPTREG2 


SET  UP  DRIFTBIT 

RESTORE  DEADBANK  TC  CREW-SELECTED  VALUE. 
RETURN. 


GAP: 

L 

ROOOl 

R0003 

R0005 

0006 

0007 

0008 

OOOP 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

ooie 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRA^  LUMINARY  BY  NASA  2021112-091 


17:53  CECo  19,1969  LMDAP 


025  PAGE  1402 


CAPICLEP  FRCGRAM 


USER'S  PAGE  NCp  1 EO  S4 


THE  DAPIDLER  PROGRAM  IS  S7ARTEC  BY  FRESF  START  AND  RESTARTo  THE  DAPIOLER  PROGRAM  IS  DONE  10  TIMES 
PER  SECONC  UNTIL  THE  ASTRONAUT  DESIRES  THE  DAP  TO  WAKE  UP,  AND  THE  IMU  AND  CDUS  ARE  READY  FOR  USE  BY  THE  OAPo 
THE  NECESSARY  I M T I A L I Z AT  ICN  CF  THE  CAP  IS  CONE  BY  THE  CAPIDLER  PROGPAMo 


16,2000 

16,2000 

16,2000 


BANK  )6 
SETLOC  DAPSl 
BANK 


REF  12  LAST  1401 


EBANK=  AOSO 


PEF  I 


COUNT*  $$/OAPIO 


REF  8 LAST  905 
REF  6 LAST  501 
REF  1 


16,2000 

16,2001 

16,2002 

16.2003 

16.2004 

16.2005 


C 0006  1 
CO  C3l  0 
4 0000  0 
7 4355  1 
0 0006  1 
1 2157  1 


COM 

MASK 

EXTEND 

OZF 


CHAN31 

eiT13-14 

MOREIDLE 


IF  BOTH  eiT13  AND  PIT14  APE  ONE,  THEN 
THE  MODE  SELECT  SWITCH  IS  IN  THE  OFF 
POSITION,  AND  SO  THE  DAP  SHOULD  BE  OFF, 
WITH  NO  ATTITUDE  EPRCR  CISPLAYo 


REF  48 
REF  62 
REF  476 
PEF  1 
REF  4 
REF  39 
REF  5 
PEF  1 


LAST  1309 
LAST  1383 
LAST  1396 

LAST  221 
LAST  1388 
LAST  1402 


16,2006 

16,2007 

16,2010 

16,2011 

16,2012 

16,2013 

16,.2C14 

16,2015 


10  000  0 
1 2206  0 
4 1262  1 
7 4751  1 
27'262  1 
1 2163  0 


CS  IMCCES33 

MASK  BIT6 

CCS  A 

TCF  JUMPOSF 

CS  RCSFLAGS 

MASK  BIT3 

AOS  RCSFLAGS 

TCF  SHUTDOWN 


IMU  NOT  USABLEo  SET  UP  INITIALIZATION 
FLAG  FOR  ATT  ERROR  DISPLAY  ROUTINE* 


REF  50  LAST  1331 

REF  8 LAST  905 
REF  477  LAST  1402 
REF  2 LAST  1402 


16,2016  2 4742  1 CHEKMCRE  CAF  BITIO 


16,2017  r 0006  1 

16.2020  02  030  0 

16.2021  10  COO  0 

16.2022  1 2157  1 


EXTEND 

RAND  CHAN30 

CCS  A 

TCF  MOREIDLE 


BIT  10  OF  30  IS  PGNCS  CONTROL  OF  S/C 
BITS  IN  30  ARE  INVERTED 


16,2023  r 0002  0 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PRCGPAJ>'  LUMINARY  BY  NASA  2021112-091 


L CAPICLER  PROGRAM 

P0031  DAPIDLER  EMRYo 

0032  REF  12  LAST  1397 

0033 

003A  REF  11  LAST  1397 


16.2024  22  016  0 

16.2025  0 0006  1 

16 .2026  22  012  1 


BANKRUPT 

ORUPT 


0035 

0036 

0037 

0038 


00381 

00382 

00383 

0039 

0040 

0041 
0041 


REF  6 
REF  50 
REF  478 
REF  1 
REF  51 
REF  7 
REF  5 
REF  32 
REF  13 
REF  1 
REF  1 


LAST  1402 
LAST  1358 
LAST  1402 

LAST  1403 
LAST  1403 
LAST  1399 
LAST  1399 
LAST  1402 


16,2027  3 1262  0 

16.2030  7 4737  1 

16.2031  10  000  0 

16,2022  1 2041  I 

16,203?  3 4737  0 

16,2024  27*262  I 

16.2035  ? 7720  0 

16.2036  C 5072  1 
£6,1536 

16.2037  03645  0 

16 ,2040  42106  0 


CA  RCSFLAGS 

MASK  BIT13 

CCS  A 

TCF  CHECKUP 

CA  BIT13 

ADS  RCSFLAGS 

CAF  PRI027 

TC  NOVAC 

£BANK=  AOSC 

2CADR  1/ACCSET 


0042  REF  1 
A0043 


16,2041  0 2000  0 CHECKUP  TC  CHEKBITS 


0044  REF 

0045  REF 

0046 

0047  REF 


LAST  1401 
LAST  221 

LAST  1402 


16.2042  20  111  0 

16.2043  7 4751  1 

16.2044  C 0006  1 

16.2045  J 2157  1 


CAE  OAPPOCLS 
MASK  ACCSOKAY 
EXTEND 

RZF  MOREIDLE 


0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 
007] 


REF  51  LAST  1310 
REF  in  LAST  1400 
REF  274  LAST  1400 
REF  3 LAST  134 
REF  2 LAST  135 
REF  1 

REF  7 LAST  197 
REF  6 LAST  756 
REF  ] 

REF  6 LAST  131 
REF  1 
REF  1 

REF  14  LAST  1403 
REF  15  LAST  1403 
REF  4 LAST  1401 
REF  5 LAST  1403 
REF  3 LAST  1401 
REF  2 LAST  1401 
REF  3 LAST  135 
REF  1 

REF  3 LAST  1401 
REF  2 LAST  1401 
REF  1 
REF  1 


16,2046  0 4674  0 STARTOAP  TC 


16,2047  40154  0 FCADR 

16.2050  2 4755  1 CAF 

16.2051  55*524  1 TS 

16.2052  £5*525  C TS 

16.2053  55*526  C TS 

16.2054  55*  423  0 TS 

16.2055  55*422  0 TS 

16.2056  55*423  1 TS 

16.2057  55*430  0 TS 

16.2060  55*431  1 TS 

16.2061  55*432  1 TS 

16.2062  55*536  1 TS 

16,2062  55*537  0 TS 

16.2064  55*540  0 TS 

16.2065  55*541  1 TS 

16.2066  55*424  0 TS 

16.2067  55*425  1 TS 

16.2070  55*501  0 TS 

16.2071  55*503  1 TS 

16.2072  55*544  1 TS 

16.2073  55*545  C TS 

16 .2074  55’  510  0 TS 

16.2075  55*512  1 TS 


IBNKCALL 

ZATTERCR 

ZERO 

TJP 

TJU 

TJV 

OMEGAP 

nMEGAQ 

PMEGAR 

TRAPECP 

TRAPEDC 

TRAPEDR 

AOSO 

AOSQ  +3 

AOSR 

AOSR  +l 

ALPHAO 

ALPHAR 

NEGUC 

NEGUR 

AOSCTERM 

AOSRTFRM 

OACCDOT 

PACCOCT 


17:53  DECo  19,1969  LMOAP  025  PAGE  1403 
USER'S  PAGE  NCo  2 E6  S4 

INTERRUPT  LEAD  INS  (CONTINUED) 


CHECK  IF  l/ACCJOB  HAS  BEEN  SET  UP  SINCE 
THE  LAST  FRFSH  START  OR  RESTART*, 

BIT  13  IS  lo 


SET  UP  JOB  TO  00  A LITTLE  INITIALIZATION 
AND  EXECUTE  1/ACCSo 
(HILL  BRANCH  TC  MOPFIDLE  ON  ACCSOKAY) 


CHECK  TO  SEE  IF  LM  DAP  IS  TO  GO  ON  AND 
on  ERROR  DI  SPLAY, 


IF  l/ACCS  HAS  NOT  BEEN  COMPLETED,  IDLE, 
NOTE:  ONLY  FRESH  START  ANO  RESTART 
KNOCK  THIS  BIT  OOHNr, 


ZERO  ATTITUDE  ERROR  AND  DESIRED  RATES, 
INITIALIZE: 


RATES  IN  BODY  (PILOT)  COORDINATES, 


CFFSET  ACCELERATION  ESTIMATES, 


COPIES  OF  OFFSET  ESTIMATES  FOR  DOWNLIST, 


QRAXIS  RATE  DERIVATION  TERMS  ANO  KALMAN 
FILTER  IMTIALI7ATICN  TERMS, 

DESCENT  ACCELERATION  DERIVATIVE  EST, 


gap: 


025  PAGE  lAO^ 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021  U2-O<9i 


0079 

0080 
0081 
0082 


CAPIDLER  PROGRAM 


0072 

0073 
007^ 

0075 
0076. 

0077 

0078 

00781 

00782  REF 

00783  REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

PEF 


REF 

REF 

RFF 

REF 


48  LAST  1372 


LAST  1AC3 
LAST  1404 


16.2076 

16.2077 
16,2100 
16,2101 
16, 210  2 
16  ,2103 
16,2104 
16,210  5 
16,2106 
16,2107 

4747 
16,2110 
16,2111 
16  ,2112 


55‘  502  0 
55*630  I 
55*632  0 
55*  631  0 
55*633  1 
55*460  0 
55*461  1 
55*766  0 
55*  767  1 
55'77C  I 

4 2202  1 
7 1262  I 
55*262  1 


CALLGMBL  EQUALS 


ALLCWGTS 

COTROLER 

INGTS 

OGIMT IMR 

PGIMTIMR 

OLOPMIN 

CLGQRMU 

P JETCTR 

UJETCTR 

VJETCTR 

BITS 

MANFLA6 

PCSFLAGS 

RCSFLAGS 


17:53  CECo  19,1969  LMOAP 
USER*  S PAGE  NCa 


E6  S4 


AnSTASK  FLAG  FOR  ORAXIS  RCS  CONTROL  USEo 
DO  TRYGTS  ON  FIRST  PASS  (WILL  GO  TO  RCS) 
RFCOGNIZE  FIRST  GTS  PASS  AS  SUCHc 
STOP  GIMBAL  ORiVESo  (PROBABLY  WOULD  BE 
GCOD  ENOUGH  JUST  TO  INACTIVATE  TIMERS) 
MINIMUM  IMPULSE  MODE  ERASABLES 


RCSFLAGS  INlTIALlZATICNo 
NEGUQ(R)  HAVE  PEEK'  GENERATED., 


R0083  SET  UP  "OLD"  MEASURED  COU  ANGLES: 


0084 

0085 

0086 

0087 

0088 

0089 

0090 
00901 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 
ClOO 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 


10 


REF 
REF 
REF 
REF 
REF 
REF  36 
REF  11 
REF  31 
REF  2 
REF  1 
REF  37 
REF  4 
REF  7 
REF  2 
REF  275 
BEF  8 
REF  3 
REF  3 
PEF  5 
REF  2 
REF  2 
REF  7 
REF 
REF 
REF 
REF 
REF 

PEF 
REF 
REF 
REF 


LAST  1400 
LAST  131 
LAST  1400 

LAST  1404 
LAST  1359 
LAST  1404 
LAST  1356 


LAST  1396 
LAST  1396 
LAST  1397 
LAST  1396 
LAST  1403 
LAST  1404 


5 LAST  1397 
2 LAST  1397 
2 LAST  1397 
7 LAST  1032 
1 

92  LAST  1383 


LAST  221 
LAST  853 


16,2112 

16.2114 

16.2115 

16.2116 
16,2117 
16, 2120 
16  ,2121 
16,2122 

16.2123 

16.2124 

16.2125 

16.2126 
16,2127 

16.2130 

16.2131 

16.2132 

16. 2133 

16.2134 
16,  2125 

16.2136 

16.2137 
16,2140 
.16,2141 

16.2142 

16.2143 

16 .2144 

16.2145 

16.2146 

16.2147 
16,2150 
16  ,2151 

16.2152 

16.2153 


C 0006  1 
3 0033  1 
53*441  0 

3 0034  0 
55*442  0 

4 1262  I 
7 4740  1 
27*262  1 
3 4751  0 
55*534  0 
55*535  1 
3 4733  I 
54  031  I 
55*466  0 
55*470  1 

3 4755  1 
55*467  1 
55*471  0 
55*465  0 
55*472  0 
55*473  I 
55*474  0 

4 4363  1 
55*756  C 
3 4752  0 
55*433  0 
55*434  1 
55*435  0 
C 0006  1 
2 2205  1 
53*264  1 
2 7732  0 
54  C30  0 


EXTEND 

OCA 

DXCH 

CA 


MASK 

ADS 


TS 


CDUX 

OLDXFCRF 
COUZ 

OLCZFCRQ 
PCSFLAGS 
B1T12 
PCSFLAGS 
FOUR 
SKIPU 
SKIPV 
PnSMAX 
TIME6 
T6NEXT 
T6FURTHA 
ZERO 

T6NEXT  +l 
T6FURThA  + 
NXT6A0R 
NE  XTP 
NEXTU 
TS  NEXTV 

CS  TEN 

TS  DAPZRUPT 

CA  TWO 

TS  NPTRAPS 

TS  NQTRAPS 

TS  NRTRAPS 

EXTEND 

DCA  PAXADIDL 

DXCH  T5ADR 

SETTIME5  CAF  MSlOO 

TS  TIMES 


TS 


TS 


OLDXFORP  AND  OLDYFORP 


eiT  12  SET  TO  lo 


JASK  NOT  IN  PROGRESS,  INITIALIZE  NEGo 


GAP;  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2C21112-C91 


L DAPIDLER  PROGRAM 


0116 

0117 

0118 
0118 

0119 

0120 


REF 

REF 

REF 


LAST  lAn3 


16.2154  1 5270  0 
E6,  ] 536 

16.2155  C2024  0 

16.2156  24106  I 

16.2157  C 4674  0 

16,2160  36655  1 


TCF  RESUME 
EBANK=  AOSO 

IDLERACR  2CA0R  CAPIDLER 

MOREIOLF  TC  18NKCALL 

CACR  OERRCALC 


0121 

0122 


REF  53  LAST  1405 
REF  1 


16.2161  0 4674  0 

16.2162  35452  1 


TC  IRNKCALL 

CAOR  CALCPERR 


0123 

0124  REF  1 

0125  REF  4 LAST  1404 


16.2163  C 0006  1 

16.2164  2 2156  1 

16.2165  52*264  I 


SHUTDOWN 


EXTEND 

OCA  lOLERAOR 
CXCH  T5A0R 


0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 


0134 

0135 

0136 

0137 


REF 

REF 


REF  3 
REF  1 

REF  66 
REF  1 


LAST  1404  16,2166 

LAST  1404  16,2167 

LAST  1404  16,2170 

LAST  1404  16,2171 

16  ,2172 
LAST  1397  16,2173 

16,2174 
LAST  1397  .16,2175 

16.2176 

16.2177 
LAST  1316  16,2200 

16,2201 


2 4755 
55*472 
55*473 
55*474 
0 0006 
Cl  0C5 
C 0006 
01  006 


4 22C3 
C 0006 
03  012 
1 2152 


1 

0 

1 

0 

1 

0 

1 

0 

0 

1 

I 

1 


TS 

TS 

EXTEND 

t^RITE 

EXTEND 

WRITE 

CS 

EXTEND 

WAND 

TCF 


ZERO 
NE  XTP 
NEXTU 
NEXTV 


CHAN5 


CHAN6 
BGI  M23 

CHAM2  ^ 
SETTI Me5 


01371 

0138 

0139  REF  8 

0140  REF  1 

0140  REF  1 

0141  REF  2 

0142  REF  69 

01431 

01432  REF  1 

01433 


LAST  1403 

LAST  157 
LAST  1375 


16 ,2202 

16.2203 
66,1421 

16.2204 

16.2205 
7732 
0061 

16.2206 
16  ,2207 
16,2210 


03021  1 
C740C  1 

02213  0 
341C6  1 


C 0006  1 
3 2212  1 
52  006  C 


MANFLAG  OCT  03021 
BGIM23  OCTAL  07400 
EBANK=  OMEGAP 
PAXACICL  2CADR  PAXIS 


MSlOO  = nCT37766 

CCSMG  = ITEMPl 

JUMPDSP  EXTEND 

DCA  DSPCADR 
DTCB 


01434  REF  3 LAST  138 

01435  REF  1 

01435  REF  1 


E6,1760 

16.2211  02227  1 

16.2212  «C1C6  1 


CSPCACR 


EBANK=  AK 
2CA0R  ALTOSPLY 


17:53  CECo  19,1969 


LMOAP 


-025  PAGE  1405 


USER*S  PAGE  NCo  4 E6  S4 

CALCULATE  Q,P-AXES  ATTITUDE  ERRORS* 

CALCULATE  P AXIS  ATTITUDE  ERRORS* 

KILL  ANY  POSSIBLE  JET  REQUESTS 

COMMAND  JETS  OFF* 

TURN  TRIM  GIMBAL  OFF 

RETURN  IN  mo  MSEC* 


TRANSFER  TO  BANK  20 

FOR  ATTITUDE  ERROR  DISPLAYS 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 

L CAPIOLER  PROGRAM 


01A3e 

01437  REF  4 LAST  1398 

0143  E 

01439  REF  I 


20 ,2227 
20,2000 
20,2227 


BANK  20 
SETLCC  DAPS? 
BANK 

COUNT*  JS/NEECL 


R0144  PRCGRAM:  ALTCSPLY 
R0145  MCO  Oo  6 DEC  1967 

R0146  AUTHOR:  CRAIG  HORK,  DON  KEENE,  MIT  IL 

R0147  MCO  3 BY  CCN  KEENE  AUG  I,  1968  MCVEO  PROGRAM  TO  BANK  20 
R0148  PROGRAM  oeSCRIPTICN: 


17:53  OECo  19,1969  LMDAP 
USER' S PAGE  NCo 


025  PAGE  1406 
E6  S4 


R0149  ALTDSPLY  REVERSES  THE  DSPLYALl  BIT  OF  RCSFLAGS  EACH  TIME  IT  IS  CALLED,  WHICH  IS  PRESUMABLY  EVERY  100  MSo 
R0151  IF  THE  REVERSED  BIT  IS  CNE,  NEECLER  IS  CALLED  TQ  DISPLAY  ATTITUDE  ERRORS#  IF  THE  BIT  IS  ZERO,  THE  ATTITUDE  ERR- 
R0153  ORS  ARE  CALCULATED  AS  IJ  ESTIMATED  RATES  (FCLLCWINGI  IF  NEEC2FLG  = 1,  OTHERWISE  AS  2»  CAP  FOLLOWING  ERRORS  FOR 
R01541  NEECLFLG  = 0 ANC  3)  TOTAL  ATTITUDE  ERRORS  FOR  NEEOLFLG  = lo 


R0155  WARNING:  ALTDSPLY  MAY  CNLY  BE  CALLED  WITH  INTERRUPT  INHIBITED# 

R0156  WARNING:  E8ANK  MUST  BE  SET  TO  6 WHEN  USING  THIS  ROLTINE# 

R0157  INPUT:  RCSFLAGS  ANC  II  IF  NEEELFLG=0,  INPUT  PERROR , QERROR , R ERROR# 

R0158  21  IF  NEE0LFLG  = 1,  INPUT  C PH  I , C THET A, C PS  I , CCUX , CDUY , CDU Z , Ml  1 , M21 , M3  1 , M 22 , M32o  (GPMATRIXI 


R01591  3)  IF  NEE02FLG  = 1,  INPUT  OMFGAP,  OMEGAQ,  AND  OMEGAR# 

R0160  OUTPUTS:  RCSFLAGS  WITH  DSFLYALT  REV ERS E C , AK , AKl , AK2 , + NEEDIER  OUTPUTS. 

R0161  ENTRY:  TCF  ALTDSPLY 


R0162  EXIT:  TCF  ChEKMCRE 

R0163  ALARM  OR  ABORT  EXITS:  NONE 

R0164  SLBPR06RAMS  CALLED:  NEEDLER,  CVERSUB2 


R0165  DEBRIS: 


A,L,AND  NEEDLEH  DEBRIS. 


0166 

0167 

0166 

0169 

0170 

0171 


REF  12 
REF  2 69 
REF  1 


REF  18 
REF  13 


LAST  1383 
LAST  1406 


20.2230 

20.2231 

20. 2232 

20.2233 

20.2234 


54  001  I 
3 4750  1 
0 0006  1 
06  001  0 
55'262  1 


ALTDSPLY  CA  RCSFLAGS 

TS  L 

CA  OSPLYALT 

EXTEND 

RXOR  LCHAN 

TS  RCSFLAGS 


INVERT  THE  DISPLAY  ALTERNATION  BIT. 


0172  REF  2 LAST  1406 

0173  REF  479  LAST  1403 


20.2235  7 4750  0 

20.2236  10  COO  0 


MASK  DSPLYALT 
CCS  A 


IS  ALTERNATION  FLAG  ZERO? 


J7: 53  DEC*  19,1969 


LMDAP 


025  PAGE  1^07 


gap:  assemble  REVISION  131  CF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021112-091 


L CAPIDLER  PROGRAM 


USER'S  PAGE  NO*  6 


E6  SA 


0174  REF  1 


20,2237  1 2336 


TCF  NEEDLER 


01741  REF  31  LAST  1368 

01742  REF  1 

01743 

0174A  REF  1 


20.2240  A 0074  0 

20.2241  7 4735  C 

20.2242  C 0006  1 

20.2243  1 2257  1 


CS  FLAGWRCn  CHECK  FOP  PATE  DISPLAY  TO  ERROR  NEEDLES 

MASK  NEFD2BIT  VIA  EXTENDED  VERB  60 

EXTEND 

bZF  DISPRATE 


0175  REF  32  LAST  1407 

0176  REF  1 

0177  REF  480  LAST  1406 

0178  REF  1 


20.2244 

20.2245 

20.2246 

20.2247 


30  074 
7 4750 
1C  COC 
1 2266 


1 

C 

0 

0 


CAE  FLAGUROO 

MASK  NEEOLBIT 
CCS  A 

TCF  DSPLYTOT 


NEEOLFLG  WILL  INDICATE  TOTAL  OR  DAP  AT- 
TITUDE ERROR  DISPLAY  REQUEST* 

TOTAL  ERROR  IS  NEEDED  IN  AK,AK  +1,AK  +2 


0179 

0180 
0181 
01815 
0182 
0183 


REF 

REF 

REF 

k£F 

REF 

REF 


2 

4 
2 

5 
2 

6 


LAST  133 
LAST  1405 
LAST  133 
LAST  1407 
LAST  156 
LAST  1407 


20.2250  4 1450  0 

20.2251  55'761  1 

20.2252  4 1452  1 

20.2253  55*762  1 

20.2254  4 1464  1 

20.2255  57*760  1 


CS  QERROR  YES*  DISPLAY  ATT  ERRORS  ON  THE  ,-BALL^ 

TS  AK  +1  ERRCR  COMPLEMENTS  ARE  INPUT  TO  NEEDLER* 

CS  PERROR 

TS  AK  42 

CS  PERROR 

XCF  AK 


0184  REF 


20,2256  1 2456 


TCF  PETNMGRE 


DISPLAY  THESF  THE  NEXT  TIME  THROUGH 


01841  REF 

01842  REF 

01843  REF 

01844  REF 

01845  REF 

01846  REF 

01847  REF 


7 LAST  1403 
7 LAST  1407 
2 LAST  1403 
0 LAST  1407 
9 LAST  1405 
9 LAST  1407 
2 LAST  1407 


20,2257  4 1422 

20.2260  55*761  I 

20.2261  4 1423  1 

20.2262  55*762  1 

20.2263  4 1421  0 

20.2264  57*760  1 

20.2265  1 2456  0 


OMEGAO 
AK  4j 
CS  OMEGAR 

TS  AK  42 

CS  CMEGAP 

XCH  AK 

TCF  RETNMCPE 


0 DISPRATE  CS 
TS 


LOAD  ESTIMATED  RATES  (FCLLOWING) 


R0185 


CALCULATE  GIMBAL  ANGLE  TOTAL  ERRORS, 


RESOLVE  INTO  PILOT 


AXES,  STORE  TOTAL  ERRORS  FOR  NEEDLER* 


C-AX  IS  FIRST* 


0167 

0188  REF  70  LAST  1405 


20.2266  0 0006  1 DSPLYTOT  EXTEND 

20.2267  22  061  0 OXCF  ITEMPl 


SAVE  C FOR  CHEKBITS  RETURN* 


0189 

C190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 


REF  3 

REF  11 
REF  10 

REF  2 
REF  11 
REF  5 


REF  15 
REF  1? 

REF  5 
REF  13 
REF  1 
REF  14 


LiST  482 

LAST  1400 
LAST  1407 

LAST  191 
LAST  1407 
LAST  523 

LAST  1404 
LAST  1407 

LAST  896 
LAST  1407 

LAST  1407 


20 .2270 

20.2271 

20.2272 

20.2273 

20.2274 

20.2275 

20.2276 

20.2277 

20.2300 

20.2301 

20. 2302 

20.2303 

20.2304 

20.2305 

20.2306 
20,23C7 


3 C322  1 
0 0006  1 
20  C33  0 
55*760  0 
C 0006  I 
7 1415  1 
57*761  0 
3 0323  0 
C 0006  1 
20  034  1 
55*762  1 
0 0006  1 
7 1417  0 
6 1761  0 
0 2451  0 
55*761  1 


CA 

EXTEND 

MSU 

TS 

EXTEND 
MP 
Xf  h 
CA 

EXTEND 

MSU 

TS 

EXTEND 

MP 

AO 

TC 

TS 


C THETA 

COUY 

AK 

M21 

AK  4l 

CPSI 

COUZ 
AK  42 

M22 
AK  4l 
nVEPSUB2 

AK  4) 


DESIRED  ATTITUDE,  Y-AXIS,  2*S  COMP* 
SUBTRACT  CURRENT  ATTITUDE^ 

DIFFERENCE  SCALED  AT  PI,  1*S  COMP* 

SAVE  FOR  R-ERROR  CALCULATION* 

(CHTETA-CDUY )*M21  SCALED  AT  PI  RADIANS* 
STORE  FIRST  TERM  OF  C FRPOR* 

DESIRED  ATTITUDE, Z-AXIS,  2'S  COMP* 
SUBTRACT  CURRENT  ATTITUDE* 

DIFFERENCE  SCALED  AT  PI,  I'S  COMP, 

SAVE  Z-AXIS  TERM  FOP  R ERROR  CALCULATION 

(CPSI-C0UZ»#M22,  SCALED  AT  PI  RADIANS. 

C FRRCR  COMPLETE  , AT  PI  RAO* 

PIN  NEEDLES  IN  CASE  CF  CVFRFLOW* 


gap: 

L 

R0205 

0206 

0207 

0208 

0209 

A0210 

0211 

0212 

0213 

021A 

0215 

R0216 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

R0225 

R0226 

R0227 

0228 

0229 

C230 

0231 

0232 

0233 


J7;53  CECo  19,1969  LMDAP 


025  PAGE  1408 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


LAPICLER  PROGRAM 


USER'S  PAGE  NCo  7 E6  SA 


R ERROR  CALCLLATICN  NEXT, 


REF  15 

REF  2 
REF  16 


REF  3 
REF  17 
REF  2 
REF  18 


LAST  1407 

LAST  191 
LAST  1408 


LAST  896 
LAST  1408 
LAST  1407 
LAST  1408 


20.2311 

20.2312 

20. 2313 

20.2314 

20.2315 

20.2316 

20.2317 
20,2320 


3 1760  1 
0 0006  1 
7 1416  1 
57'762  0 

0 0C06  1 
7 1420  I 
6 1762  0 
0 2451  0 
55'762  1 


CA  AK 

EXTEND 
MP  M3! 

XCH  AK  +2 

EXTEND 
MP  M32 

AO  AK  +2 

TC  nVERSUB2 

TS  AK  +2 


Y-AXIS  CIFFEPENCE  STORED  BY  Q-AXIS  CALCo 

(CTHETA-CDUY)*M-21,  scaled  at  PI  RADIANSo 
FIRST  TERM  CF  R EPRORo 

Z-AXIS  DIFFERENCF,  STCRED  BY  A CALCo  IS 
RECOVERED  RY  TFE  EXCHANGEc 
(CPSI-C0UZI*M32,  SCALED  AT  PI  RADIANS., 

R ERROR  COMPLETE  , AT  PI  RAOc 

PIN  NEEDLES  IN  CASE  OF  OVERFLOW^ 


NOW  CALCULATE 


ERROR®  ( NOTE  THAT  M13 


SCALED  AT  1,  SO  THE  MULTIPLICATION  IS  BY-PASSED®! 


Y-AXIS  OIFFEFENCE  STORED  BY  Q AXIS  CALC® 

(CTHETA-CCUY)#M11  SCALED  AT  PI  RADIANS® 
first  TERM  CF  P ERROR  IN  AK , AT  PI  RAD® 
DESIRED  ATTITUDE,  X-AxiS,  2'SCOMPo 
SUBTRACT  CURRENT  X ATTITUDE® 

X-AXIS  DIFFERENCE,  I'S  CCMP,  AT  PI  RAD® 


M13  = 1,  SO  BYPASS  THE  MULTI P L I C A T I CN® 

EXTEND 

MP  M13'  (CPHI-CDUX >»M13  SCALED  AT  PI  RADIANS® 


REF  19  LAST  1400 


REF 

REF 

REF 


LAST  190 
LAST  1408 
LAST  908 


REF  23  LAST  1404 


2''>,  2321 

20.2322 

20.2323 
20  ,2324 

20.2325 

20.2326 

20.2327 


3 1760  1 
0 0006  1 
7 1414  G 
57'760  1 
30  321  1 
C 0CC6  1 
20  032  1 


CA 


AK 


EXTEND 
MP  Mil 

XCF  AK 

CAE  CPFI 

EXTEND 
MSU  COUX 


REF  21 
REF  3 
REF  22 


LAST  1408 
LAST  1408 
LAST  1408 


20.2330 

20.2331 

20.2332 


6 176G  1 
0 2451  0 
55'760  0 


AD  AK  P FRROR  COMPLETE  , SCALED  AT  PI  RAD 

TC  0VERSIB2  PIN  NEEDLES  IN  CASE  OF  CVERFLOW® 

TS  AK 


REF  71 
RDF  3 


LAST  1407 
LAST  1407 


20.2333 

20.2334 

20.2335 


C CC06  1 
22  061  0 

1 2456  0 


EXTEND 

QXCH  ITEMPl  RESTORE  Q FOR  CHEKRITS  RETURN® 

TCF  RETNMORE  DISPLAY  THESE  THE  NEXT  TIME  THROUGH 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PRCGRAR  LUMINARY  BY  NASA  2021112-091 

L CAPIDLER  PROGRAM 


17:53  C6C«  19,1969  LMDAP 
USER'  S PAGE  NCd 


o0?5  PAGE  ] A09 
E6  SA 


P023A  FDAI  AnnuOE  ERRCR  DISPLAY  SLBFCUTINE 


R0235  PROGRAM  DESCRIPTION: 
R0236  MCO  1 BY  CRAIG  WCRK, 
R0237  MCO  2 BY  CRAIG  WORK, 


Do  KEENE  5/2A/67 
12  CCC  67 

6 APRIL  68  CONVERTS  ATTITUDE  ERROR  DISPLAY  SCALING  FROM  16  7/8  DEG*  TO  A2  2/16  DEGREES® 


R0239 

R02A1 


THIS  SUBROUTINE  IS  USED  TC 
IN  THE  COLSo  CARE  IS  TAKEN  TC 


DISPLAY  ATTITUDE  ERRORS  ON  THE  FDAI 
NETEP  CUT  THE  APPROPRIATE  NUMBER  OF 


VIA  THE  digital  TO  ANALOG  CCNVERTERS  (OACSI 
PULSES  TO  THE  IMU  ERROR  COUNTERS  AND  PREVENT 


R02A3 


OVERFLCW, 


TC  CONTROL  THE  RELAY 


SEOUENC  ING  , 


AND  TO  AVCID  INTERFERENCE  WITF  THE  COARSE  ALIGN 


LOOP  WHICH  ALSO  USES 


R02A5  THE  DACS® 


R02A6  CALLING  SEQUENCE: 

R02A7  DURING  THE  INITIALIZATION  SECTION  OF  THE  USER'S  PROGRAM,  0IT3  OF  RCSFLAGS  SHOULD  BE  SET  TO  INITIATE  THE 

R02A9  TLRN-GN  SEQUENCE  WITHIN  THE  NEEDLES  PRCGRAM: 


R0250 

R0251 

R0252 


CS  RCSFLAGS  IN  EBANK6 

MASK  BIT3 
ADS  RCSFLAGS 


R0253 


THEREAFTER, 


THE  ATTITUDE  ERRORS  GENERATED 


THE  USER 


SHOULD  BE  TRANSFEREC  TO  THE  FOLLOWING  LCCATIONS 


IN  EBANK6: 


R0255 

R0256 

R0257 


SCALED  180  DEGREFS 
SCALED  180  DEGREES 
SCALED  180  DEGREES 


NOTE:  THESE  LOCATIONS  ARE  SUBJECT 
TC  CHANGE 


R025R 

R0260 


FULL  SCALED  DEFLECTICN  OF  THE 
CORRESPCNDS  TO  A2  3/16  DEGREE: 


NEEDLES  CORRESPONDS  TO  5 
id  (DAC  MAXIMUM  CAPACITY 


1/16  DEGREES,  WHILE  384  BITS  IN  THE 
IS  264  BITS®)  46  PITS  EFFECTIVELY  PI 


IMU  FRROR  COUNTER 
N THE  NEEDLES® 


R02611  FCR  RATE  DISPLAY,  FULL 
R0262  A CALL  TO  NEEOLEP  WILL 


SCALE  NEEDLE  DEFLECTION  IS  1 
THEN  LPDATE  THE  DISPLAY: 


17/64  DEG/SEC, 


AND  A FULL  COUNTER 


I S ABOUT  10®  5 DEG/SEC® 


R0263 

R0264 

R0265 

R0266 


INHINT 

TC  IBNKCALL  NCTE:  EBANK  SHOULD  EE  SET  TO  E6 

CADR  NEEOLER 

RELINT 


R0267  THIS  PROCESS  SHOULD  BE  REPEATED  EACH  TIME  THE  ERRORS  APE  UPDATED®  AT  LFAST  3 PASSFS  THRU  THE  PROGRAM  ARE 

R0269  REQUIRED  BEFORE  ANYTHING  IS  ACTUALLY  DISPLAYED  ON  THE  ERROR  METERS® 

R0270  NCTE:  EACH  CALL  TC  NEEOLER  MUST  BE  SEPARATED  BY  AT  LEAST  5CMS  TO  ASSURE  PROPER  RELAY  SEQUENCING® 


R0272 
R0273 
R027i 
R02  75 
R0276 
R0277 


ERASABLE  USED: 


AK  COUXCMO 

AKl  CCUYCMC 

AK2  CDUZCMQ 

EORIVEX  A,L,Q 

EDRIVBY  T5TEMP 


GAP;  ASSEMBLE  REVISION  131  CF  AGC  PRCGPAM  LUMINARY  BY  NASA  202in2-n'51 


L CAPIOLER  PROGRAM 


R0278  ECRIVEZ 

R0279  SWITCHES:  RCSFLAG 

R028f^  I/C  CHANNELS:  CHAN12 

RC28]  ChAM2 

R0282  CHANIA 


C INCX 

S BITS  3 ,2 

BIT  4 (COARSE  ALIGN  - READ  ONLY) 
BIT  6 (IMU  ERROR  COUNTER  ENABLE) 
BIT  13tlA,15  (CAC  ACTIVITY) 


R0283 

R0284 

R0285 


SIGN  CCNVENTICN<  AK  = T)-ETAC  - T)-ETA 

WHERE  THETAC  = CCMMANC  ANGLE 
T)-ETA  = PRESENT  ANGLE 


0286 

0287 

0288 
02P9 
0290 
02  91 
0292 


REF 

REF 

REF 

RFF 

REF 


14 

24 

1 

40 

1 


LAST  1406 
LAST  1362 

LAST  U02 


20.2336 

20.2337 

20.2340 

20.2341 

20. 2342 

20.2343 

20.2344 


3 1262  0 
7 6245  0 
C 0006  1 
1 2376  0 
7 4751  1 
0 0006  1 
] 2367  0 


NEECLER 


CA  RCSFLAGS 

MASK  SIX 

EXTEND 

B2F  NEBDLFS3 

MASK  BIT3 

EXTEND 

0ZF  N£eCLER2 


0293  REF  63  LAST  1402 

0294 

0295  REF  67  LAST  1405 

0296  REF  277  LAST  1405 


C297  REF 

0298  REF 

0299  REF 

0300  REF 

0301  REF 

0302  REF 

0303  REF 

0304  REF 

0305  REF 

0306  REF 

0307  REF 

0308  REF 

0309  REF 

0310  REF 


23  LAST  1408 
1 
1 

3 LAST  138 

1 
1 

4 LAST  1305 

2 LAST  176 
2 LAST  177 

25  LAST  1410 

15  LAST  1410 
52  LAST  1386 

16  LAST  1410 
4 LAST  1408 


20.2345 

20.2346 
•20,2347 

20.2350 

20.2351 

20.2352 

20.2353 

20.2354 

20.2355 

20.2356 

20.2357  54  050  0 

20.2360  54  051  1 

20.2361  54  052  1 

20.2362  e2^5  0 

20.2363  7 1262  1 

20.2364  6 4752  0 

20.2365  55*262  1 

20.2366  1 2456  0 


CS  BIT6 

EXTEND 

WAND  CHAMa-* 

CS  ZERO 

TS  AK 

TS  AKl 

TS  AK2 

TS  ECRIVEX 

TS  EORIVEY 

TS  eORIVEZ 

TS  CDUXCMD 

TS  COLYCMO 

TS  CDUZCMO 

CS  SIX 

MASK  RCSFLAGS 

AD  eiT2 

TS  RCSFLAGS 

TCP  RFTNMORE 


4 4746  1 
0 0006  1 
C3  C12  1 

4 4755  0 NEEOLEll 

55*  760  0 

55*761  1 

55*762  1 

55*  763  0 

55*764  1 

55*765  0 


0311 

0312 

0313 

0314 

0315 

0316 

0317 


REF  64  LAST  1410 

REF  68  LAST  1410 
REF  26  LAST  1410 
REF  17  LAST  1410 
REF  18  LAST  1410 
RFF  5 LAST  1410 


20,2367  3 4746  0 

20.2370  C 0006  1 

20.2371  05  012  I 

20.2372  4 6245  0 

20.2373  7 1262  1 

20.2374  55*262  1 

20.2375  1 2456  0 


NEECLER2  CAF 

EXTEND 

WOR 

CS 

MASK 

TS 

TCF 


BIT6 

CHAN12 

SIX 

RCSFLAGS 
RCSFLAGS 
Rf  TNMCPE 


0318  REF 


LAST  1410  20,2376 


4746  0 NEE0LES3  CAF 


6IT6 


17:53  OeC<,  19,1969  LMDAP 


025  PAGE  1410 


USER*S  PAGE  NOo  9 


F6  S4 


eiT3  = 0,  BIT2  = 1 


FIRST  PASS  PIT3  = I 

DISABLE  IMU  ERROR  COUNTER  TO  ZERO  DAOS 
MUST  WAIT  AT  LEAST  60  MS  BEFORE 
ENABLING  CCUNTERSc 
ZERO  THE  INPUTS  ON  FIRST  PASS 


ZERO  THE  DISPLAY  PEGISTERS 


ZERO  THE  OUT  COUNTERS 

RESET  RCSFLAGS  FPR  PASS2 

ENABLE  IMU  ERROR  COUNTERS 

RESET  RCSFLAGS  TO  DISPLAY  ATTITUDE 
ERRORS  WAIT  ATLEAST  a MS  FOR 
RELAY  CLOSURE 


CHECK  TO  SEE  IF  IML  ERROR  COUNTER 


AP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


L OAPIDLER  PROGRAM 


0320  REF  6Q  LAST  1410 

0321  REF  481  LAST  1407 

0322  REF  1 


20,2377 

20.2400 

20.2401 

20.2402 


0 0006  1 
02  012  0 
10  000  0 
1 2407  1 


E XTEND 

RAND  CHAN12  -** 

CCS  A 

TCF  NEEDLES 


0323 

0324 

0325 

0326 


REF  19  LAST  141C 
REF  41  LAST  1410 
REF  20  LAST  1411 
REF  6 LAST  1410 


20.2403  4 1262  1 

20.2404  7 4751  1 

20.2405  27*262  1 

20.2406  1 2456  C 


CS  RCSFLAGS 

MASK  BIT3 

AOS  RCSFLAGS 

TCF  RETNMORE 


032  7 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 


REF  93  LAST 
REF  1 
REF  1 

REF  2 LAST 
REF  24  LAST 
REF  270  LAST 
REF  482  LAST 
REF  1 

REF  2 LAST 
REF  271  LAST 
REF  1 

REF  483  LAST 
REF  3 LAST 
REF  272  LAST 
REF  3 LAST 
REF  4 LAST 
REF  273  LAST 
REF  4 LAST 
REF  5 LAST 
REF  5 LAST 
REF  5 LAST 
REF  6 LAST 
REF  1 
REF  5 LAST 

REF  23  LAST 
REF  7 LAST 


1404 


1411 

1410 
1406 

1411 


1411 

1411 


1411 

1411 

1411 

1411 

1410 

1411 
141  1 

1410 
1^11 

1411 
1411 

1364 

1318 

1411 


20,2407 

20.2410 

20.2411 

20.2412 

20.2413 

20.2414 
20-,2415 

20.2416 

20.2417 

20.2420 

20. 2421 

20.2422 

20.2423 

20. 2424 

20.2425 

20.2426 

20.2427 

20.2430 

20.2431 

20.2432 

20.2433 

20.2434 

20.2435 

20.2436 

20.2437 

20.2440 

20.2441 

20.2442 

20.2443 

23.2444 


3 4752  C 
54  C63  0 

4 2450  0 
0 0006  1 

5 0C63  I 
7 1760  0 
54  001  1 
10  COO  0 

3 2446  0 
1 2422  0 
i 2446  1 

6 0001  0 
54  061  1 

1 2430  C 
50  000  1 

2 2446  C 
54  001  1 
50  0 63  1 

4 1763  0 
6 0001  0 
50  063  1 

2 6 0 50  0 
50  063  1 
23*763  1 
10  C63  0 
1 2410  1 

3 7743  C 
0 0006  1 

05  014  1 
1 2456  0 


NEEDLES 

CACLOOP 


CAF  THO 
TS  DINCX 

CS  ONETENTH 

EXTEND 

INDEX  DIN'OX 
MP  AK 

TS  L 

CCS  A 
CA  DACLIMIT 

TCF  +2 
CS  DACLIMIT 

AD  L 

TS  T5TEMP 

TCF  +4 
INDEX  A 
CAF  DACLIMIT 
TS  L 
INDEX  OINDX 
CS  EDRIVFX 

AO  L 

INDEX  DINDX 
ADS  COUXCMD 
INDEX  OINOX 
LXCH  EDRIVEX 
CCS  DINDX 
TCF  DACLOOP 
CAF  13,14,15 
EXTEND 

WOR  CHAN14 
TCF  RETNMCRE 


0357 

0358 

0359 


20.2445  77177 

20.2446  37200 

20.2447  00600 


0 DEC 

1 DACLIMIT  DEC 

1 DEC 


•3 
6000 


384 


0360 

0361  REF  56  LAST  1358 


20,2450  C3146 

4750 


CNETENTh  OCT  03146 
DSPLYALT  ECUALS  BI  T4 


0362 


20,2451  54  007  1 0VERSUB2  TS  7 


17:53  DEC.  19,1969  LMOAP  o025  PAGE  1411 
USER'S  PAGE  NCo  1C  E6  S4 

IS  ENABLED 

IF  NOT,  RE-INIT  lAL  IZe  NEFDLERe 

SET  UP  INITIALIZATION  FLAG  IN  RCSFLAGSo 


RESCALE  INPUTS  TO  4 OR  - 1800  OEGREESo 


CVFLO  CHK 

ON  OVERFLOt^  LIMIT  OUTPUT  TC  4-304 

CURRENT  VALUE  OF  OAC 


SET  OAC  ACTIVITY  BITS 


DECIMAL  4-Oal,  SCALED  AT  U 

100  MS  ALTERNATION  BIT  IN  RCSFLAGS 


RETURNS  A UNCHANGED  CR  LIMITED  TO 


gap;  ASSEPBLE  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
L DAPIOLER  PROGRAM 


036)3  REF  397 

036A  REF  AR4 

0365  REF  7 

0366  REF  398 


LAST  lAOO  20 
LAST  lAll  20 
LAST  1391  20 
LAST  1412  20 


,2452  C CC02  0 
,2453  50  000  1 

,2454  4 4734  1 

,2455  C 0002  0 


TC  0 

INDEX  A 

CS  LIMITS 

TC  0 


0367 

0368  REF 

0369 


20.2456  0 0006  1 

20.2457  2 2462  0 

20,2460  52  006  0 


PETNMORE 


EXTEND 

DCA 

OTC0 


MORECADR 


0370  REF 

0371  REF 
0371  REF 


17  LAST  1405  E6,1536 

1 20,2461 

1 20,2462 


EBANK=  AOSe 

02016  1 MORECADR  2CA0R  CHEKMORE 
34106  1 


17:53  OEC«  19,1969 
USER'S  PAGE 
POSMAX  OR  NEGMAX 
DUPLICATE  COOING 


LMDAP  o025  PAGE  1412 
NOo  11  E6  S4 

IF  A HAS  OVERFLOW 
IN  BANK  16 


RETURN  TO  CHEKMORE 


GAP:  assemble  REVISION  131  OF  AGC  PRCGRAN  LUMINARY  BY  NASA  2021112-091 

L P-AXIS  RCS  AUTCPILCT 


17:53  DECo  19,1969  LMCAP 
USER'S  PAGE  NCo 


o025  PAGE  1 ^13 
EO  S4 


0001 

0002  REF 

0003 


LAST  1A02 


16,2213 

16,2000 

16,2213 


BANK  16 
SETLOC  DAPSl 
BANK 


0004  REF  3 LAST  1407  €6,1464 

0005  REF  1 


£BANK=  PEPRCR 
COUNT#  $$/OAPP 


R0006  THE  FOLLOWING  T5RUPT  ENTRY  BEGINS  THE  PROGRAM  WHICH  CONTROLS  THE  P-AXIS  ACTION  OF  THE  LEM  USING  THF  RCS  JETS» 

R0008  THE  NOMINAL  TIME  BETWEEN  THE  P-AXiS  RUPTS  IS  100  MS  IN  ALL  NCN-ICLING  MODES  OF  THE  CAP, 


0010  REF 

0011  REF 
AOOl  15 


2 LAST  1404 
5 LAST  1404 


16.2213  3 7732  0 PAXIS  CA  MSlOO 

16.2214  26  C30  0 ACS  T IME5 


#**  NECESSARY  IN  ORDER  TO  ALLOW  SYN- 
CHRONIZATION  WITH  CTHEP  INTERRUPTS  *#* 


0012 

0013 

0014 


REF  13  LAST  1403 
REF  12  LAST  1403 


16.2215  22  016  0 

16.2216  C CCC6  1 

16. 2217  22  012  1 


LXCH  BANKRUPT  INTERRUPT  LEAD  IN  (CCNTINUEDI 

EXTEND 

OXCH  ORLPT 


R0015  CHECK  IF  DAP  PASS  IS  PERMISSIELE 


0016  REF  2 LAST  1404  16,2220  11'756  0 

0017  REF  3 LAST  1352  16,2221  0 5624  1 

0018  16,2222  32000  0 


CCS  DAPZRUPT 
TC  BAILOUT 

OCT  32000 


IF  CAPZRUPT  POSITIVE,  DAP  (JASKI  IS 
STILL  IN  PROGRESS  ANC  A RESTART  IS 
CALLED  FORo  IT  IS  NEVER  ZERO 


0019 

00191 

00192 

00193 

00194 

00195 

00196 


LAST  1403  16,2223  0 2000  0 


REF 

REF 

REF 

REF 

REF 

REF 


LAST  1408 
LAST  132 
LAST  1407 
LAST  132 
LAST  1407 
LAST  134 


16.2224 

16.2225 

16.2226 
16,2227 
16,2230 
16  ,2231 


3 0032  0 
£5*747  0 
3 0033  1 
55*750  0 
2 0034  0 
55*751  1 


R0020  ###*#  KALCMANU-OAP  AND  "R A TE-HC LO "-OAP  INTERFACE  ###*# 


CHEKBl TS 
COUX 

DAPTREG4 

CDUY 

DAPTREGB 

CDLZ 

0APTREG6 


RETURN  IS  TC  1+1  IF  CAP  SHOULD  STAY  ONo 
READ  AND  STORE  COU'S 


R0021  THE  FCLLCWING  SECTICN  IS  EXECUTED  EVERY  IOC  MS  (10  TIMES  A SECCNOI  WITHIN  THE  P-AXIS  REACTION  CCNTROL  SYSTEM 
R0023  ALTOPILOT  (WHENEVER  THE  DAP  IS  IN  CPFRATICNU 


0024  REF 

0025 

0026  REF 

0027  REF 

0028  REF 

0029  peF 

0030 

0031  REF 

0032  REF 

0033  REF 
003^^  REF 

0035 

0036  REF 


18 

6 

1 

19 

5 

3 

2 

6 
5 

3 


LAST  1400 
LAST  1400 

LAST  1413 
LAST  1400 

LAST  1400 
LAST  1413 
LAST  1413 
LAST  1400 

LAST  1400 


16,2232 
16  ,2233 

16.2234 

16.2235 
16  ,2236 
16,2237 

16.2240 

16.2241 

16.2242 

16.2243 

16.2244 

16.2245 

16 .2246 


3 1634  1 
0 0006  1 
21 *637  0 
0 2256  I 
55*634  0 
3 1635  0 
0 0006  1 
21*640  C 
C 2256  1 
55*635  1 
3 1636  0 
C 0006  1 
21*641  1 


CA 

EXTEND 

MSU 

TC 

TS 

CA 

EXTEND 

MSU 

TC 

TS 

CA 

EXTEND 

MSU 


COLXC 

CELCDUX 
1 STCTWCS 
CDUXD 
CDUYO 

OELCDUY 

ISTOTWCS 

CDUYO 

COUZC 

DELCOUZ 


GAP 
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0037 

0038 

00381 

00382 

00383 
003feA 

A 0039 
A004n 


16,2247  0 2256  1 TC  1ST0T^«CS 

16.2250  55'636  1 TS  CDUZO 

16.2251  C 0C06  1 EXTEND 

16.2252  27'445  1 OIM  TCP 

16.2253  C 0006  1 EXTEND 

16.2254  27'A57  1 DIP  TCCR 

RATFLOOP  COMPUTES  JETRATEQ, 
RETURNS  TC  BACKPc 


DIMINISH  MANUAL  CONTROL  DIRECT  RATE 
TIME  COUNTERSe 


JFTPATEP,  AND  lJACC*NOo  PJETS  IN'  ITEMPU 


A0041 

A0042 

A0043 


JETRATE  = lJACC*NOoPJETS*TJP  (NOTE  TJ  IS  THE  TIPE  FIRED  DUPING  CSPI 
JFTRATFQ=  1 JACf 0(T JU^NOoUJFTS  - TJV*NOoVJFTS  I 
JETRATER=  IJACC  R ( T JU#  NCo  U JE  TS  ♦ T JV’S'NOo  V J ETS  ) 


0044  REF  1 

0045  REF  485 

0046  REF  155 

0047  REF  399 

0048  REF  486 

0049  REF  400 

0050 

0051  REF  3 

0052  REF  3 


LAST  1412 
LAST  1393 
LAST  1412 
LAST  141A 
LAST  1414 

LAST  134 
LAST  131 


16  ,2255 

16.2256 

16. 2257 
16,2260 
16,2261 
16,2262 

16.2263 

16.2264 

16.2265 


1 2647  1 

10  one  0 

6 4753  1 
0 0002  0 
4 CCCO  0 
C 0002  0 
0 0006  1 

7 1740  1 
21'427  0 


TCF 

1S70TWCS  CCS 
AD 
TC 
CS 
TC 

SUBCIVCE  EXTEND 
MP 
CAS 


ONE 

0 


0APTEMP3 

DMBGAU 


PROCEEDS  TO  RATELCCP  AFTER  SUPEPJOB 


OVERFLOW  PROCTION  ROUTINE  TO  GIVE 

POSMAX  CR  NEGPAX  IF  TFE  CIVIOE  WOULD 
OVERFLOW 


0053 

00531  REF  4 

00532  REF  2 

00533  REF  5 

0054 

0055  REF  1 

0056  REF  1 

0057 

0058  REF  2 


LAST  1414 
LAST  132 
LAST  1414 


LAST  1414 


16,2266 

16,2267 

16.2270 

16.2271 

16.2272 

16.2273 

16. 2274 

16.2275 

16.2276 


C C0C!6  I 
3 1427  1 
53' 743  1 
11'426  1 
1 2274  0 
1 2304  0 
6 2315  I 
0 0006  1 
6 2 304  1 


EXTEND 

DCA  OMEGAU 

DXCH  DAPTEMP5 

CCS  CMEGAU 

TCF  +2 

TCF  DIVIDER 

AD  -CCT630 

EXTEND 

fiZPF  DIVIDER 


0059  REF  6 LAST  1414 

0060  REF  38  LAST  1404 

0061  REF  401  LAST  1414 

0062  REF  39  LAST  1414 

0063  REF  402  LAST  1414 


16,2277 

16,2300 

16,23C1 

16.2302 

16.2303 


n '426 

3 4733 
C 0C02 

4 4733 
C 0002 


1 

1 

0 

0 

0 


CCS  OMEGAU 

CA  POSMAX 

TC  0 

CS  POSMAX 

TC  Q 


45  DEG/SEC 


0064 

0065 

0066 
0067 


REF  7 LAST  1414 

REF  3 LAST  1413 
REF  403  LAST  1414 


16.2304  53'427  C 

16 .2305  0 0006  1 

16.2306  11 ' 747  0 

16.2307  0 0002  0 


01 VIOER 


DXCH  OMEGAU 
EXTEND 

OV  DAPTREG4 

TC  0 


0068 

0069  REF  404  LAST  1414 

0070  REF  487  LAST  1414 

0071  REF  49  LAST  1396 


16.2310  54  007  1 

16.2311  C C002  0 

16.2312  50  000  1 

16.2313  4 4734  1 


CVERSUe  TS 
TC 

INDEX 

CS 


7 

0 

A 


BIT)5  -1 


RETURNS  A UNCHANGED  OR  LIMITED  TO 
PPSMAX  OR  NEG^AX  IF  A HAS  OVERFLOW 


GAP  : 

L 

0072 

0073 

0074 

0075 

0076 

0077 

A0078 

A0079 

A0080 

A0091 

A0082 

A00d3 

A00d4 

A0086 

A00a7 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 
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USER’S  PAGE  NC* 


REF  405  LAST  1414  16,2314  0 0002  0 


16,2315  77147  0 -0CT630  OCT  77147 


REF  19  LAST  138 


REF 

REF 


LAST 

LAST 


913 

133 


16.2316  2 1736  1 BACKP  CA  DAPTEMPl 

16.2317  0 0006  1 EXTEND 

16.2320  7 1530  1 MP  IJACC 

16.2321  55'744  0 TS  JETRATE 

BEGINNING  OF  THE  RATE  DERIVATION 


OM£GAP,Q,R  BODY  RATES  SCALED  AT  PI/4 

TRAPER,Q,R  BODY  ANGLE  ERRORS  FROM  PREDICTED  ANGLE  {PI/40) 

NPICRITRAPS  number  CF  TIMES  ANGLE  ERROR  HAS  BEEN  ACCUMULATED 

AnSQ(R)TERM  CHANGE  IN  RATE  DUE  TO  OFFSET  Af C EL L ER AT  ION«  (PI/4| 

JETRATE, 0,R  CHANGE  IN  RATE  DUE  TO  JET  ACC  EL  LER  A TI  ONo  (PI/4) 

TRAPSIZE  NEGATIVE  LIMIT  OF  MAGNITUDE  OF  TPAPEDP,ECT« 

OMEGAU  OP-TEMPORARY  STORAGE 


OMEGA  = OMEGA  + JETRATE  + AOSTERM  ( +TR APED/NTR AP $ IF  TRAPEO  BIG) 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

RtF 

REF 


LAST  1404 
LAST  1415 
LAST  141  5 

LAST  1415 
LAST  14)5 

LAST  1304 
LAST  1403 

LAST  1403 


LAST  1403 
LAST  1403 


LAST  1415 
LAST  1403 


16, 2322 
16  ,2323 

16. 2324 

16.2325 

16.2326 

16.2327 
16  ,2330 

16.2331 

16.2332 

16.2333 

16. 2334 

16.2335 

16.2336 

16.2337 

16 .2340 

16.2341 

16.2342 
16  ,2343 

16.2344 

16.2345 

16.2346 

16.2347 


31’747  1 

54  001  1 
C 0C06  I 
21'440  1 
23'440  0 

55  ■ 736  C 

3 3624  1 
55 '747  0 

4 1744  0 
0 0006  1 
7 4736  C 
27'430  0 
3 1745  0 

6 1544  C 
0 0006  1 

7 7741  0 
27’431  1 
3 1746  0 

6 1545  I 
C 0006  1 

7 7741  0 
27’432  I 


EXTEND 

MSU 

LXCH 


cs 

EXTEND 


OLD  XF  GRP 
OLDXFCRP 
OAFTEMPl 
1/40 

DAPTREG4 

JETRATE 

BI  T14 
TRAPFDP 
JETRATEC 
AOSCTERM 

-6IT14 

TRAPEDQ 

JETRATER 

AOSRTERM 

-BIT14 

TRAPEDR 


CDUX  IS  STCREO  HERE 

SCALED  AT  PI 


REF 

REF 

REF 


LAST  1415 
LAST  134 


8 LAST  1408 


16  ,2350 

16.2351 

16.2352 
16  ,2353 

16.2354 

16.2355 

16.2356 

16.2357 


3 1750  1 
54  001  1 
C 0006  1 
21'441  0 
23*441  1 
55*737  1 
C 0006  1. 
7 1414  0 


CA 

TS 

EXTEND 

MSU 

LXCH 


TS 
EXTEND 


OLDYFQRP 

OLDYFCRP 

DAPTEMP2 


CDUY  IS  STORED  HERE 

SCALED  AT  PI 


Mil  SCALED  AT  1 
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0120 

0121 

0122 

0123 

012A 

0125 
012501 
012502 
0125C3 
0125CA 
0125C5 
0125C6 
012507 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 
013A 

0135 

0136 

0137 


16  ,2362  0 2266  1 


RETURNS  WITH  CDU-RATE  AT  PI/4 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


1 


REF  2 
REF  4 
REF  3 
REF  276 

REF  2 
REF  4 
REF  3 
REF  3 

REF  4 
REF  9 
REF  6 
REF  2 


LAST  1416 


LAST  1414 
LAST  131 


LAST  1415 
LAST  1416 
LAST  1413 
LAST  1415 

LAST  1404 
LAST  1414 
LAST  1416 
LAST  1407 


LAST  1407 
LAST  1416 


16.2363 

16.2364 

16.2365 

16.2366 
. 16,2367 

16.2370 

16.2371 
16  ,2372 

16.2373 

16.2374 

16.2375 

16.2376 

16.2377 
16,2400 
16, 24C1 
16  ,2402 

16.2403 

16.2404 
16 ,?4C5 

16.2406 

16.2407 

16.2410 

16.2411 
16  ,2412 


C CCC6  1 
61*421  1 
27*  430  0 
0 2210  1 
55'430  0 
C 0006  1 

2 1743  0 
21*447  0 
4 1454  I 
C 0006  1 
7 3624  0 
21*447  C 

3 1751  0 
54  001  1 
C 0006  1 
21*442  0 
55*740  1 
23*4A2  1 
3 1415  0 
r OOC6  1 
7 1737  1 
53*427  0 
2 1417  I 
0 2263  1 


EXTEND 

SU 

ADS 


EXTEND 

DCA 

CAS 


OMEGAP 

TRAPECP 

OVERSUe 

TRAPEDP 

DAFTFMF5 

DXERRDR 

PLAST 

1/40 

DXERRCR 

DAPTPEG6 


EXTEND 

MSU 


OLOZFORQ 

0APTEMP3 

OLDZFORQ 

M21 

DA  FTEMP2 

OMEGAU 

M22 

SU8CIVDE 


MANUAL  MODE  X-ATTITUOE  ERROR  (DPI 
COUZ  IS  STORED  HERE 


REF 

REF 

REF 

REF 


0138 

0139 

0140 

0141 

0142 
014201 
014202  REF 
014203  REF 
014204  REF 
014?  C5 
C142C6  REF 
014207  REF 

0143 


0144 

0145 

0146 

0147 


REF 

REF 

REF 

REF 


8 LAST  1407 

3 LAST  1415 
2 LAST  1416 

4 LAST  1416 

4 LAST  1416 
2 LAST  131 


LAST  1416 
LAST  1416 
LAST  1408 


LAST  1416 
LAST  1416 
LAST  1408 


16.2413 

16.2414 

16.2415 

16.2416 

16.2417 

16.2420 

16.2421 

16.2422 

16.2423 

16.2424 

16.2425 

16.2426 

16.2427 

16.2430 

16. 2431 
16  ,2432 
16,2433 


C CC06  1 
61*422  1 
27*431  1 
0 2310  1 
55*431  1 
C 0006  1 

3 1743  0 
21*451  1 

4 1455  0 
C 0006  1 
7 3624  0 
21*451  1 
3 1416  0 
0 0006  1 
7 1737  1 
53*427  0 
3 1420  C 


EXTEND 

SU 

ADS 


EXTEND 

OCA 

DAS 


OXCH 

CA 


OMEGAQ 

TRAPEDO 

OVERSUe 

TPAPEDQ 

OA  FTEMF5 

DYERROR 

OLAST 

] /40 

DYERRCR 

M31 

DAPTEMF2 

OMEGAU 

M32 


MANUAL  MODE  Y-ATTITUOE  ERROR  (OP) 


16,2434  0 2263  1 
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014Q 

0150 

0151 

0152 

0153 


REF 

REF 

REF 

REF 


LAST  1416 
LAST  1417 


16.2435 

16.2436 

16.2437 
16,2440 
16  ,2441 


0 C0C6  1 
61*423  0 
27'432  1 
C 2310  1 
55*432  1 


OMEGAR 

TRAPEDR 

CVERSUe 

TRAPEDR 


TRAPEOS  HAVE  ALL  BEEN  COMPUTED 


015301 

015302 

0153C3 

015304 

0153C5 

015306 

015307 

01531 

01532 

01533 

01534 
01635 

01536 

01537 

01538 
015362 
015384 
01 53  86 
015388 

01539 

0153  92 

0154 

0155 

0156 

0157 

0158 
C159 
0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST  1416 
LAST  131 


LAST  1416 
LAST  1417 


LAST  215 
LAST  1415 
LAST  214 


LAST  1417 
LAST  214 
-LAST  1416 
LAST  1416 


LAST  1417 

LAST  1417 

LAST  1417 
LAST  1410 

LAST  1404 
LAST  1416 
LAST  1417 
LAST  141  7 


4 LAST  1417 

5 LAST  1415 

13  LAST  1417 
5 LAST  1417 

14  LAST  1417 


16.2442 

16.2443 

16.2444 

16.2445 

16.2446 

16.2447 
16,2450 
16  ,2451 

16.2452 

16.2453 

16.2454 

16.2455 

16.2456 

16.2457 

16.2460 

16.2461 

16.2462 

16.2463 

16.2464 

16.2465 

16.2466 

16.2467 
16,2470 
16  ,2471 

16.2472 

16.2473 
16  ,2474 

16.2475 

16.2476 

16.2477 
16,2500 
16  ,2501 

16.2502 

16.2503 

16.2504 

16.2505 

16.2506 

16.2507 
16,2510 
16  ,2511 

16.2512 

16.2513 


0 0006 

3 1743 
21*453 

4 1456 
0 0006 
7 3624 


21*453  0 
3 0111  0 
7 4737  1 
0 0006  1 
1 2462  1 
C 0C06  1 
3 1405  1 
53*750  0 
3 1403  1 
1 2466  0 
0 0006  1 
3 1410  0 
53*750  0 
3 1406  1 
55*751  1 
11*430  0 
1 2472  0 
1 2507  0 
6 1751  0 
0 0006  1 
6 2507  1 
22  CC7  0 
23*430  1 
3 4755  1 
C 0006  1 
11*433  0 
27*421  0 
C 2310  1 
55*421  0 
3 1747  1 
55*433  0 
25*433  1 
3 1744  1 
27*421  0 
C 2310  I 
55*421  0 


EXTEND 

OCA 

DAS 


OAS 

CA 

MASK 

EXTEND 

6ZF 

EXTEND 

DCA 

CXCH 

CA 

TCF 

EXTEND 

OCA 

DXCH 


0APTEMP5 

DZERROR 

PLAST 

J/40 

DZERRCR 

DAPBOOLS 

CSMCCCKC 

LMONLY 

DKOMEGAN 

DAPTREG4 

OKTPAF 


CA 

TS 

CCS 

TC  F 

TCF 

AD 

EXTEND 

flZMF 

ZL 

LXCH 

CA 

EXTEND 


CA 

TS 

SMALPOIF  INCR 
P-RATE  CA 
ADS 
TC 
TS 


LMOMEGAN 
DAPTREG4 
LMTRAP 
DAPTREG6 
TRAPECP 
+ 2 

SMALPOIF 

DAPTREG6 

SMALPOIF 

TRAPEDP 

ZERO 

NPTRAPS 

OMEGAP 

OVER  SUB 

OMFGAP 

DAPTRE64 

NPTRAPS 

NPTRAPS 

JETPATE 

OMEGAP 

CVERSUe 

OMEGAP 


manual  mode  Z-ATTITUDE  ERROR  lOP) 

PICK  UP  PAD  LOADED  STATF  ESTIMATOR  GAINS 


TRAPSIZE  > ABOUT  77(01  ?- 1©  40EG/ SEC  " 


ABOUT  in  OR  0 FOR  COCKFD  OR  UNDOCKED 


0175  REF 


LAST  1416  16,2514  11*431  1 


TRAPEDQ 


GAP: 

L 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

021? 

021A 

0215 

0216 

0217 

0218 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0226 
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REF  1 
REF  6 

REF  2 

REF  6 
REF  279 

REF  2 
REF  22 
REF  9 
REF  6 
RFF  10 
REF  9 
REF  3 
REF  4 
REF  23 

REF  23 

REF  24 
REF  18 
REF  4 
REF  2 
REF  5 
REF  11 
REF  7 
REF  12 


LAST  1417 

LAST  1418 

LAST  1417 
LAST  1417 

LAST  1404 
LAST  l4lfe 
LAST  1416 
LAST  1417 
LAST  1418 
LAST  1417 
LAST  1418 
LAST  1415 
LAST  14]  8 

LAST  1383 

LAST  1418 
LAST  1412 
LAST  1418 
LAST  1415 
LAST  1415 
LAST  1418 
LAST  1^»18 
LAST  1418 


16. 2515 

16.2516 

16.2517 

16.2520 

16.2521 

16.2522 
16  ,2523 

16.2524 

16.2525 

16.2526 

16.2527 

16.2530 

16.2531 

16.2532 
16  ,2533 

16.2534 

16.2535 
16 ,253o 
16, 2537 

16.2540 

16.2541 

16.2542 
16  ,2543 

16.2544 

16.2545 

16 .2546 

16.2547 

16.2550 

16.2551 


1 2517  1 
1 2544  1 
6 1751  C 
0 0006  1 
6 2544  C 
22  007  0 
23'431  0 
3 4755  1 
C 0006  1 
11'434  1 
55*736  0 
27*422  0 
0 2310  1 
55 '422  0 
3 1747  1 
57*434  0 

6 1750  1 
57' 736  1 
0 C0C6  1 

7 4756  0 
C 0006  1 
11'736  0 
27*536  1 
25*434  0 
3 1745  r 
6 1544  0 
27*422  0 
G 2310  1 
55*422  0 


C-RATE 


TCF  +2 

TCF  0-RATE 

AO  DAPTREG6 

EXTEND 

B2RF  Q-RATE 

ZL 

LXCH  TRAPEDO 

CA  ZERC 

EXTEND 

DV  NQTRAPS 

TS  OAFTEMF] 

AOS  OMEGAQ 

TC  OVERSUe 

TS  GMEGAG 

CA  0APTREG4 

XCF  NOTPAPS 

AD  DAPTRFG5 

XCH  DAPTFRPl 

EXTEND 
MP  FIVE 

EXTEND 

DV  OAFTEMPl 

ACS  AnSQ 

INCR  NOTPAPS 

CA  JETRATEO 

AO  AOSQTERM 

ADS  OMEGAC 

TC  OVERSUB 

TS  OMEGAQ 


TRAPSIZE  > ABOUT  77001  ?- lo 40EG/S EC" 


SAVE  FOR  OFFSET  ESTIMATE 


ABOUT  10  OR  0 FCR  CCCKED  OR  UNDOCKED 
KACS  > A8CUT  60C  ?N/N_6f'" 


REF  5 

REF  1 
REF  7 


REF  2 


REF  6 
REF  280 

REF  2 
REF  6 
REF  4 
REF  0 
REF  5 
REF  10 
REF  3 
REF  5 
REF  7 


LAST  1417 


LAST  1418 

LAST  1418 

LAST  1418 
LAST  1418 

LAST  1404 
LAST  1416 
LAST  141  7 
LAST  1418 
LAST  1418 
LAST  1418 
LAST  1418 
LAST  1418 
LAST  1418 


16, 2552 
16  ,2553 

16.2554 

16.2555 

16.2556 

16.2557 

16.2560 

16.2561 

16.2562 
16  ,2563 

16.2564 

16.2565 

16.2566 

16.2567 

16.2570 

16.2571 

16.2572 

16.2573 

16.2574 

16.2575 


1 26C2  0 
6 1751  C 
C 0006  1 
6 26C2  I 
22  007  0 
23*432  0 

2 4755  1 
0 0006  1 
11  '435  0 
55'737  1 
27*423  1 
0 231C  I 
55*423  1 

3 1747  I 
57*435  1 
6 1750  1 
57*737  C 
C 0006  1 


CCS 

TCF 

TCF 


TS 

ACS 


TS 

CA 

XCH 

AD 

XCH 

EXTEND 


TRAPEOR 

+2 

R-PATE 

DAPTREG6 

P-RATE 

TRAPBCR 

ZERO 

NRTRAPS 

0APTFMP2 

OMEGAR 

nVERSUB 

OMEGAR 

DAPTREG4 

NRTRAPS 

DAPTREG5 

OAPTEMP? 


TRAPSIZE  > ABOUT  77001  %-U40EG/SEC" 


SAVE  FOR  OFFSET  ESTIMATE 


ABOUT  10  OR  0 FOR  COCKED  OR  UNDOCKED 
KAOS  > ABOUT  600  tN/N_6r" 


GAP: 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  SY  NASA  2021112-091 


L P-AXl S RCS  AUTCP! LCT 


0229  REF 

0230 

0231  REF 

0232  REF 

0233  REF 
023A  REF 

0235  REF 

0236  REF 

0237  REF 

0238  REF 


2A  LAST  1A18 

8 LAST  1418 
6 LAST  1403 
4 LAST  1418 
2 LAST  1A15 
4 LAST  1415 

6 LAST  1418 

9 LAST  1418 

7 LAST  1419 


16.2576  7 4756 

16.2577  0 0006 

16.2600  11*737 

16.2601  27*540 

16.2602  25*435 

16.2603  3 1746 

16.2604  6 1545 

16.2605  27*423 

16.2606  0 2310 

16.2607  55*423 


C 

1 

1 

0 

1 R-RATE 
0 
1 
1 
1 
1 


MP  FIVE 

EXTEND 

CV  0APTEMP2 

ADS  ACSR 

INCR  NRTPAPS 

CA  JFTRATER 

AD  ACSRTERM 

AOS  OMEGAR 

TC  DVERSUB 

TS  OMEGAR 


A0239 

A024n 

A0241 


ENC  OF  RATE  OER  IVAT  ION 
BEGIN  OFFSET  ESTIMATER 
IN  POWERED  FLIGHT,  AOSTASK 


A0242 


AOS  = AOS  + K#SUMRATE 


0243  REF  37  LAST  1417 

0244  REF  3 LAST  1401 

0245  RFF  488  LAST  1414 


0246  REF 

0247  REF 

0248  REF 

0249  REF 

0250  REF 

0251  REF 

0252  REF 

0253  REF 
02  54 

0255  REF 

0256 

0257  REF 

0258  REF 

0259  REF 

0260  RFF 

0261 

0262  REF 

0263  REF 

0264  REF 

0265 

0266  REF 

0267  REF 

0268  REF 

0269  REF 
02  70 

0271  REF 

0272  REF 
02721  REF 


4 LAST  1403 
3 LAST  1403 

6 LAST  1418 

5 LAST  141 5 

19  LAST  1418 

7 LAST  1419 
1 

2 LAST  1403 

3 LAST  IOC'9 

20  LAST  1419 

21  LAST  1419 

5 LAST  1419 

J 

7 LAST  1419 
2 LAST  1403 

4 LAST  1419 

8 LAST  1419 

9 LAST  1419 
4 LAST  1419 

2 LAST  1419 

6 LAST  1419 
2 LAST  1419 


16, 2610 
16  ,2611 
16,2612 

16.2613 

16.2614 

16.2615 

16.2616 
16,2617 
16,2620 
16  ,2621 
16,2622 

16.2623 

16.2624 

16.2625 

16.2626 
16,2627 
16,2630 
16  ,2631 

16.2632 

16.2633 

16.2634 

16.2635 

16.2636 

16.2637 
16,2640 
16  ,2641 

16.2642 

16.2643 

16.2644 

16.2645 

16.2646 


4 0111  1 
7 4744  0 
1C  000  C 
1 2624  1 
55*424  0 
55*425  1 
55*544  1 
55*  545  0 
55*536  1 
55*540  0 
1 2667  0 
00074  1 
3 1510  1 
C 0006  1 
7 4766  0 
21*  537  0 
3 1536  C 
55*424  0 
C 0006  I 
7 3622  0 
55*  544  1 
3 1512  0 
C 0006  I 
7 4766  0 
21*541  1 
3 1540  1 
55*425  1 
C 0006  1 
7 3622  0 
55*545  0 
1 2667  0 


KAOS 

WORKTIME 


CS  DAPBOOLS 

MASK  DR  IFTBIT 

CCS  A 

TCF  WORKTIME 

TS  ALPHAO 

TS  ALPHAR 

TS  AOSQTERM 

TS  AOSRTERM 

TS  ACSC 

TS  AOSR 

TCF  PRETIMCK 

DEC  60 

CA  QACCOOT 

EXTEND 

MP  CALLCCOE 

DAS  AOSO 

CA  ACSC 

TS  ALPHAQ 

EXTEND 

MP  200MS 

TS  AOSOTERM 

CA  RACCDCT 

EXTEND 

MP  CALLCCDE 

DAS  ATSR 

CA  AOSR 

TS  ALPHAR 

EXTEND 

MP  200MS 

TS  AOSRTERM 

TCF  PRETIMCK 


17:53  CECo  19,196«> 
USER 'S  PAGE 


LMCAP  -025 
NCo  7 


PAGE  1419 
F6  S4 


WILL  8E  CALLED  EVERY  2 SECCNDSo 


ZERO  THE  OFFSET  ACCELERATION  VALUES^ 


OCTAL  00032  IS  DECIMAL  o3  AT  2(6lo 


*2  AT  1 

OCTAL  00032  IS  DECIMAL  ol  AT  2(6)o 


AT  1 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091  17:53  OECo  19,1969  LPOAP  ^025  PAGE  1620 

L P-AXIS  RCS  AUTCPILCT  USER’S  PAGE  N0«  P 66  S6 

R0273 


0276  REF  1 

02762  REF  21  LAST  1611 

02766  PEF  689  LAST  1619 

02766  REF  1 


16,2667  3 6767  1 

16.2650  7 1262  1 

16.2651  1C  000  0 

lb, 2652  0 3762  0 


PAXFILT  ca 


MASK 

CCS 


EXECUTE  AC0T+C12,  IF  NEEOFDo 

CALLGMBL  IS  NOT  BITIS,  SC  THIS  TEST  IS 
VALIDo 


0275  REF 

0276  REF 
C277  REF 

0278  REF 

0279  PEF 

0280  PEF 

0281  REF 

0282  REF 

0283  REF 
0286  REF 

A0285 


12  LAST  1123 
6 LAST  138 
1 

3 LAST  1375 

13  LAST  1613 
1 

1 

1 

3 LAST  1613 
1 


16,2653  52  Cll  0 

16,2656  53*753  0 

16.2655  3 2666  0 

16.2656  56  017  1 

16.2657  22  012  I 

16.2660  53*755  0 

16.2661  2 2665  0 

16.2662  52  016  1 

16.2663  53*757  I 

16.2664  1 5275  0 


CXCH  ARUPT 

DXCH  DAPARUPT 

CA  SUPERJOe  SETTING  UP  THE  SUPERJOB 

XCH  BRUPT 

LXCH  ORUPT 

DXCH  DAPBQRPT 

CA  SUPERADP 

DXCH  2RUPT 

CXCH  OAPZPUPT 

TCF  NOQBRSM  +l  RELINT  IJUST  IN  CASE!  AND  RESUME,  IN  THE 

FORM  OF  A JASK,  AT  SUPERJOBr 


0286 

R0287 


2 LAST  1420 


C2667  1 SUPERAOR  GENADR  SUPERJCB 


CCUNT  OCHN  GIMEAL  CRIVE  TIMERS  AND  TURN  OFF  DRIVES  IF  REQUIREDo 


+ 1 


0288  REF 
02381  PEF 

0289  REF 

0290  REF 

0291  PEF 

0292  REF 

0293  PEF 


1 

4 LAST  lAOA 

1 
1 

2 LAST  1404 
1 

1 


16.2666  1 3645 

16.2667  11*631 

16  ,2670  1 2710 

16.2671  1 2714 

16.2672  11*633 

16  ,2673  1 2712 

16,2674  1 2724 


1 SUPERJCP  TCF 

0 PRETIMCK  CCS 

1 TCF 

0 TCF 

1 CHKRTIMR  CCS 

0 TCF 

C TCF 


FATELOCP 
OGI MTIMP 
DECOTIMP 
TURNOFFC 
RGIMTIMR 
DECRTIMR 
TURNOFFR 


POSITIVE-  COUNTING  DCUN 
NEGATIVE-  DRIVE  SHOULD  BE  ENDED 
NEGATIVE-  INACTIVE 
(NEG  ZERO-  IMPOSSIBLE  > 

REPEATED  (ABOVE)  FOR  R AXIS® 


02  94 

0295  REF  4 

0296 

0297  REF  2 

0298 

02  99  RFF  2 

03CO  REF  37 

0301  REF  22 

0302 

0303  REF  1 

0304  REF  1 

0305  PEF  5 

0306  REF  1 

0307  REF  3 

0308  REF  2 


LAST  1404 

LAST  1404 

LAST  1404 
LAST  1404 
LAST  1420 


LAST  1420 

LAST  1420 
LAST  1420 


16.2675 

16.2676 

16.2677 
16  ,2700 

16.2701 

16.2702 

16.2703 

16.2704 

16 .2705 

16.2706 
16,  2707 
16  ,2710 

16.2711 

16.2712 

16.2713 


0 0006  1 
27*766  0 
C 0006  1 
27*767  1 
C 0CQ6  1 
27*770  1 
3 4740  0 
7 1262  1 
0 0006  1 
1 2734  1 
C 2740  0 
55*631  0 
1 2672  I 
55*633  1 
1 2675  0 


DECCTIMR 

DECRTIMR 


EXTEND 

DIM  PJETCTR 

EXTEND 

DIM  UJETCTR 

EXTEND 

DIM  VJETCTR 

CA  BIT12 

MASK  RCSFLAGS 

EXTEND 

eZF  SKIPPAXS 

TC  CHKVISF? 

TS  QGIMTIMR 

TCF  CHKPTIMP 

TS  RGIMTIMR 

TCF  CHKRTIMR 


•3 


CFCREMENT  DOCKED  JET  INHIBITION  COUNTERS 


COUNT  TIMERS  OCV,N  TC  PCS  ZEROo 


0309 

0310 


REF  4 LAST  1403 
PEF  3 LAST  1419 


16.2714  55'5C1 

16.2715  55*510 


C TURNGFFQ  TS 
0 TS 


0311  REF 


16,2716  4 5007 


CS 


NEGUC 

OACCOOT 

OGIMBITS 


03)2 


16,2717  C 0006 


EXTEND 


HALT  DRIVES® 


GAP: 

L 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

A0331 

A0332 

A0333 

A0334 

A0335 

A0336 

A0337 

A0338 

A0339 

0340 

0341 

0342 

0343 

034^^ 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 


ASSEMBLE  REVISION  131  t)F  AGC  PROGRAM  LUMINARY  BY  NASA  20211)2-091 
P-AXIS  PCS  AUTCPILCT 


J7:53  CECo  19,1960  LMDAP 
USER'  S PAGE  NCo 


«025  PAGE  1421 
9 E6  S4 


REF  70 
REF  8 
REF  6 
REF  3 
REF  2 
REF  3 
REF  1 

REF  71 
REF  9 
REF  4 
PEF  4 
REF  12 
REF  4 


LAST  1411 
LAST  1116 
LAST  1420 
LAST  1420 
LAST  1403 
LAST  1419 


LAST  1421 
LAST  1421 
LAST  1420 
LAST  1421 
LAST  1295 
LAST  1278 


16.2720  03  012  1 

16.2721  2 4735  1 

16.2722  55'631  0 

16.2723  1 2672  1 

16.2724  55'503  1 

16.2725  55»512  1 

16.2726  4 5C20  1 

16.2727  0 0006  1 

16.2730  03  012  1 

16.2731  3 4735  1 

16.2732  55'633  1 

16.2733  1 2675  0 
5007 

5 '^20 


WAND 

CAF 

TS 

TCF 

TURNOFFR  TS 
TS 
CS 

EXTEND 

WANO 

CAF 

TS 

TCF 

QGIM8ITS  EQUALS 
RGIMBITS  EQUALS 


CHAN12  - 

NEGMAX 

OGIMTIMR 

CHKRT 1 PR 

NEGUR 

RACCOCT 

RGIMBITS 

CHAN12  - 
NEGMAX 
PGIMTIMR 
CHKPTIMP  +3 
0CT1400 
PR  106 


BITS  9 AND  10  (CF  CHANNEL  121.. 
BITS  11  AND  12  (OF  CHANNEL  12)a 


RFF  23  LAST  1420 
REF  38  LAST  1420 
REF  24  LAST  1421 
PEF  1 


16.2734  4 1262 

16.2735  7 4740 

16.2736  27'262 

16.2737  1 3630 


I SKIPOAXS  CS 
1 MASK 

1 AOS 

0 TCF 


RCSFLAGS 
BIT12 
RCSFLAGS 
ORAXI  S 


BIT  12  SFT  TO  le 

GO  TO  ORAXIS  OR  TC  C-TS„ 


Y-Z  TRANSLATION 

INPUT:  BITS  9-12  CF  CH31  (FRCM  TRANSLATION  CONTROLERI 

OUTPUT:  NEXTP 

NEXTP  IS  THE  CHANNEL  6 CODE  OF  JFTS  FOR  THE  DESIRED  TRANSLATIONo 
IF  THERE  ARE  FAILURES  IN  THE  DESIRED  POLICY,  THFN 


(1)  FOR  DIAGONAL  TRANS:  LNFAILEO  PAIR 

ALARM  (IF  NO  PA  IR  I 


REF  9 LAST  1402 
REF  450  LAST  1420 
REF  1 

REF  I 

REF  43  LAST  1291 
REF  491  LAST  1421 
REF  1 
REF  1 

REF  27  LAST  1410 
REF  1 

REF  28  LAST  1421 
REF  1 


16.2740 

16.2741 

16.2742 

16.2743 

16.2744 

16.2745 

16.2746 
16  ,2747 

16.2750 

16.2751 

16.2752 

16.2753 

16.2754 

16.2755 

16.2756 

16.2757 


C C006  1 

00  031  0 
4 0000  0 
7 3617  0 
0 0006  1 

1 3014  0 
C 0006  1 
7 4745  1 
50  000  I 
3 3576  C 
55'743  1 

3 6245  1 
0 3555  1 

4 6245  0 
6 1742  1 
0 0006  I 


( 2)  FCR  PRINCIPAL  TRANS 


CHKVISFZ  EXTEND 
READ 
CS 

MASK 

EXTEND 

BZF 

EXTEND 

MP 

INDEX 

CA 

TS 

7RYL0RV  CA 
TC 
CS 
AD 

EXTEND 


CHAN31 

A 

07400 CCT 

TSNEXTP 

BIT7 

A 

(NDXYZ 
ROT  INDEX 
SIX 

SELECTYZ 

SIX 

NUMBERT 


TRY  TO  TACK  WITH  CIAGCNAL  PAIRS 
ALARM  (IF  DIAGONAL  PAIRS  ARE  FAILED! 


\ 


GAP: 

L 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0366 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

03  63 

0384 

AO305 

A03  86 

A0387 

A038d 

A0389 

A0390 

n3Ql 

0392 

0393 

03  94 

0395 

0396 

0397 

0398 

03  99 

0400 

0401 

0402 


ASSEMBLE  REVISION  131  CF  AGC  PFCC-RAM  LUMINARY  BY  NASA  2021)  12-091 


17:53  OECo  19,1069  LPDAP 


025  PAGE  1422 


P-AXI S RCS  AUTOPILOT 


USER'S  PAGE  NOo  10  E6  S4 


REF  2 
REF  25 
PEF  2 

REF  1 
REF  2 
REF  32 

REF  3 
REF  48 

PEF  57 
REF  25 


KEF  26 
REF  281 
REF  4 
RFF  58 
PEF  27 


REF  28 
REF  59 
REF  33 
REF  3 
REF  1 
REF  1 
KEF  7 


LAST  1421 
LAST  1419 
LAST  1421 


LAST  1421 
LAST  1404 

LAST  1422 
LAST  1310 

LAST  1386 
LAST  1421 


LAST  1422 
LAST  1*18 
LAST  1*22 
LAST  1422 
LAST  1422 


LAST  1422 
LAST  1422 
LAs't  1422 
LAST  1422 


LAST  1405 


16.2760 

16.2761 

16.2762 

16.2763 

16.2764 

16.2765 

16.2766 

16.2767 

16.2770 

16.2771 

16.2772 

16.2773 

16 .2774 

16. 2775 

16.2776 

16.2777 
16,3000 
16  ,3001 

16.3002 

16.3003 
16  ,3004 

16.3005 

16.3006 

16.3007 
16, 301C 
16  ,3011 

16.3012 

16.3013 
16  ,3014 


6 1743  0 
0 00G6  1 
6 3002  0 
< 1742  C 
6 4751  0 

r 0006  1 

6 3013  0 

0 5567  0 
02001  I 

3 4753  1 
23*262  0 
C 0C06  1 
06  001  0 
55*262  1 

2 4755  1 

1 3014  0 

3 4753  1 
23*262  0 
0 0006  1 
C6  001  0 
55*262  1 

7 4753  0 
6 4751  C 
27*743  1 
1 2753  0 
3 1740  0 
55*472  0 


BZF 

CS 

AO 

EXTEND 

RZMF 

CS 

AO 

EXTEND 

BZMF 

ABORTYZ  TC 
OCT 
CA 

LXCH 

EXTEND 

R XOR 

TS 

CA 

TCF 

ALTERYZ  CA 

LXCH 

EXTEND 

RXCR 

TS 

MASK 

AD 

ADS 

TCF 

CA 

TSNEXTP  TS 
STATE  LOGIC 


TSNEXTP  -I 
FIVE 

ROTINOEX 

ALTERYZ 

NUMPERT 

FOUR 

TSNEXTP  -1 

ALARM 

02001 

BIT! 

PCSFLAGS 

1 

PCSFLAGS 

ZERC 

TSNEXTP 

BIT! 

RC  SFLAGS 
1 

RC SFLAGS 

BITl 

FOUR 

ROTINOEX 

TRYUORV 

POLYTEMP 

NEXTP 


INVERT  BIT  1 OF  RCSFLAGSo 


INVERT  BIT  1 OF  RCSFLAGSo 


REF  52 
REF  10 
REF  1 


LAST  1403 
LAST  1421 


16,3015 
16  ,3016 
16, 3017 

16.3020 

16.3021 


3 4737  0 
0 0006  1 
r.2  C31  1 
C 0006  1 
1 3C27  0 


CHECK  IN  ORDER: 
LPCPHASE 
PULSES 

DETENT! 6IT15  CF31 ) 
GC  TC  PURGENCY 

CA  BIT13 

EXTEND 

RAND  CHAN3) 
EXTEND 

BZF  MANMCCE 


IF  ON 

GO  TO  PURGENCY 
MINIMUM  PULSE  LOGIC 
RATE  COMMAND 

CHECK  STICK  IF  IN  ATTo  HOLCo 


RFF  38 
REF  2 
REF  492 
REF  1 


LAST  1419 
LAST  904 
LAST  1421 


16.3022 

16.3023 

16.3024 

16.3025 


2 0111  C 
7 4743  1 
IC  CCO  C 
1 3467  C 


CA  OAPBOOLS 
MASK  XOVINHIB 
CCS  A 

TCF  PURGENCY  ATTITUDE  STEER  DURING  VISIBILITY  PHASE 


PEF  1 

REF  2 LAST  732 
REF  39  LAST  1422 


16.3026  1 3C71  0 TCF 

16.3027  3 4735  1 MANMODE  CA 

16,3030  7 Oil]  1 MASK 


DETENTCK 

PULSES 

DAPBOOLS 


PULSES  IS  ONF  FOP  PULSE  MODE 


gap:  ASSEf'BLE  REVISION  131  OF  AGC  PPCCRAM  LUMINARV  BY  NASA  2C2U12-091 

L P-AXI S RCS  ALTCPI LOT 


0A03 

0A04  REF 


LAST  1422 


1 

0 


EXTEND 

BZF  DETFNTCK 


17:53  DECo  LPCAP  o025  PAGE  1423 

USER  'S  PAGE  NOo  11  66  S4 

BRANCH  FOR  RATE  COPHANO 


0405 

0406 
R0407 


REF  282 
REF  4 
MINIMUM 


LAST  1422 
LAST  1413 


16.3023 

16.3024 


3 4755  I 
55*464  1 


IMPULSE  MODE 


CA  ZERO 

TS  PERROR 


0408  REF  25  LAST  1413 

0409  REF  20  LAST  1413 


16.3035  2 0C32  0 

16.3036  55*634  0 


CA  CDUX 

TS  CDUXD 


0410  REF  2 LAST  1404 

0411  PEF  1 


16,3027  11*460  0 

16,3040  1 2054  1 


CCS  OLCPMIN 
TCF  CHECKP 


0412 

0413 

0414 

0415 
041,6 


REF  42  LAST  1411 
REF  11  LAST  1422 
PEF  1 


16  ,3041  3 4751  0 

16,304?  C 00C6  1 

16.3043  C2  031  1 

16.3044  C 0006  1 

16.3045  1 3064  1 


FIREP 


CA  BIT3 

EXTEND 

RAND  CHAN31 
EXTEND 

BZF  +XMN 


0417  REF 

0418 

04J9  PEF 

0420 

0421  REF 


57  LAST  1411 
12  LAST  1423 
1 


16.3046  3 4750  1 

16.3047  0 0006  1 
16, 3050  C2  031  I 
16  ,3051  0 0006  1 
16,3052  1 3062  1 


CA  BIT4 

EXTEND 

RAND  CHAN31 
EXTEND 

eZF  -XMIN 


0422  REF 


16,3053  1 3446 


TCF  JETSOFF 


0423 

0424 

0425 

0426 

0427 
0426 


REF  13  LAST  1423 
REF  493  LAST  1422 
REF  5 LAST  1323 
REF  3 LAST  1423 
REF  2 LAST  1423 


16.3054 

16.3055 

16.3056 

16.3057 

16.3060 

16.3061 


C 0006  1 
CC  C31  C 
4 0000  0 
7 5741  1 
55*460  0 
1 3446  0 


ChECKP 


EXTEND 

READ  CHAN31 

CS  A 

MASK  0CT14 

TS  OLDPMIN 

TCF  JETSOFF 


0429  REF 

0430 

0431  REF 

0432  REF 

0433  REF  1 

0434  REF 

0435  REF 


8 LAST  1404 

9 LAST  1423 
4 LAST  1403 

56  LAST  1414 
4 LAST  1423 
1 


16.3062  4 4363  1 

16.3063  1 3065  0 

l6,3C6i  3 4363  0 

16.3065  55*524  1 

16.3066  3 4753  1 

16.3067  55*460  0 

16,3070  1 3354  1 


-XWIN 


+ XMIN 


CS  TEN  ANYTHING  LESS  THAN  lAMSo  CORRECTED 

TCF  +2  IN  JET  SELFCTICN  ROUTINE 

CA  TEN 

TS  TJP 

CA  ONE 

TS  OLDPMIN 

TCF  PJETSLEC  -6 


R0436  MANUAL  RATE  COMMAND  MCCE 

R0437  ======================== 

R0438  BY  ROBERT  Fo  STENGEL 

R0439 

R0440  This  MODE  PROVIDES  RCAH  MANUAL  CONTROL  THRL  2 CONTROL  LAWS:  1)  DIRECT  RATE  AND  2)  PSFUOO-AUTOo 

R0442  the  direct  RATE  MODE  AFFORDS  IMMEDIATE  CONTROL  WITHOUT  OVERSHOOT,  THE  PSEUDO-AUTO  MODE  PROVIDES  PRECISE 
R0444  RATE  CONTROL  AND  ATTITUDE  HCLOo 
R0445 
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025  PAGE  142^ 


L P-AXI S PCS  flUTCPiLCT 


USER'S  PAGE  NC,  12  E6  S4 


R04A6 

R0448 

R0450 

R0451 

R0453 

R0455 

R0457 

R0458 

R0460 

R0462 

R0463 

R0464 

R0466 

R0468 

R0470 

A0472 

A0473 

A0474 

A0475 

0476 

0477 

0478 

0479 

0460 

0481 

0482 

0483 

0484 

0485 
R0486 

0487 

0468 

0489 

0490 

0491 

0492 

0493 

0494 

0495 


IN  DIRECT  RATE,  JETS  ARE  FIRED  WHEN  STICK  PCSITICN  CHANGES  SY  A FIXET  NUMBER  OF  INCREMENTS  IN  ONE  OAP  CYCLEo 
THE  'BREAKOUT  LEVEL'  IS  «6  D/S  FOR  LM-ONLY  ANO  o3  0/S  FOR  CSM-OOCKEO.  THIS  LAW  NULLS  THF  RATE  ERROR  TO  WITHIN 
THE  'TARGET  DEADBAND',  WHICH  ECUALS  THE  BREAKOUT  LEVEL* 

IN  PSEUOO-AUTO,  BODY-FIXED  RATE  AND  ATTITUDE  ERRORS  ARE  SUPPLIED  TO  TJETLAW,  WHICH  EXERCISES  CONTROLo 
CCNTRCL  SWITCHES  FROM  TIRECT  RATE  TO  PSEUDO-AUTO  IF  THE  TARGET  D8  IS  ACHIEVED  OR  IF  TIMF  IN  (11  EXCEEDS  4 SEC, 

IF  THE  INITIAL  COMMAND  DOES  NCT  EXCEED  THE  EREAKCUT  LEVEL,  CCNTROL  GOES  TO  PSEUOO-AUTO  IMMEDIATELY:, 

SINCE  F-AXIS  CCNTRCL  IS  SEPARATE  FROM  Q,R  AXES  CONTROL,  IT  IS  POSSIBLE  TO  USE  (1)  IN  P-AXIS  AND  (2)  IN  C,R  AXES, 
OR  VICE  VERSA©  THIS  ALLOWS  A DEGREE  OF  ATTITUDE  HOLD  IN  UNCONTROLLED  AXES©  DUE  TO  U,V  CONTROL,  HOWEVER,  0 AND 
R AXES  ARE  COUPLEC  AND  MUST  USE  THE  SAME  CONTROL  LAW© 

HAND  CONTROLLER  COMMANDS  ARE  SCALED  BY  A LINEAR/QUADRATIC  LAW©  FCR  THE  LM-ALONE,  MAXIMUM  COMMANDED  RATES  ARE  20 
ANO  4 D/S  IN  NORMAL  AND  FINE  SCALING:  HOWEVER,  STICK  SENSITIVITY  AT  ZERO  COINTS  (OBTAINED  AT  A STICK  DEFLECTION 
OF  2 DEGREES  FROM  THE  CENTEREC  POSITICM  IS  .5  OR  ©I  D/S  PEP  DEGREE©  NORMAL  ANO  FINE  SCALINGS  FCR  THE  CSM-OOCKED 
CASE  IS  AUTOMATICALLY  SET  TO  1/10  THE  ABOVE  VALUES©  SCALING  IS  CETERMINEC  IN  ROUTINE  3© 

ZEROENBL  ENABLES  COUNTERS  SO  THEY  CAN  BE  READ  NEXT  TIME 

JUSTCUT  FIRST  DETECTION  OF  OUT  OF  DETENT  (BY  OURRCBITI 


REF  14  last  1423 
REF  1 

REF  50  LAST  141A 

REF  1 
REF  1 

REF  40  LAST  1422 
REF  2 LAST  1422 


16,3071  C 0006  1 DETENTCK  EXTEND 


16.3072  00  031  0 

16.3073  55*443  1 

16.3074  7 4735  0 

16.3075  r 0006  1 

16.3076  1 3223  0 

16.3077  3 4740  0 

16,3100  7 0111  1 

16,310)  C C006  I 
16,2102  I 3467  0 


READ  CHAN31 

TS  CH31TEMP 

MASK  PIT15 

EXTEND 

6ZF  RHCMOVEC 

CAF  0URRC8IT 

MASK  DAPBOOLS 

EXTEND 

BZF  P URGENCY 


CHECK  OUT-OF-OETENT  PIT© 

ERANCH  IF  OUT  OF  DETENT© 

IN  DETENT©  CHECK  THE  PATE  COMMAND  BIT, 


BRANCH  IF  NCT  IN  PATE  COMMAND  LAST  PASS© 


REF 

REF 

REF 

REF 

REF 

REF 


32  LAST  1385 
29  LAST  1422 

1 

53  LAST  1422 
15  LAST  1424 
1 


16.3103  2 4743  0 

16.3104  7 1262  1 

16.3105  0 0006  1 

16. 3106  1 3120  0 

16.3107  3 4737  0 

16.3110  C 0006  1 

16.3111  02  031  1 

16.3112  0 0006  1 

16. 3113  1 3220  0 


CA 

MASK 

EXTEND 

BZF 

CAF 

EXTEND 

RAND 

EXTEND 

BZF 


BI  T9 

RCSFLAGS 

RUTH 
e IT13 

CHAN31 

RATEDAMP 


JUST  IN  CETEMT7? 


CHECK  FOR  attitude  HOLD© 


BRANCH  IF  IN  ATTITUDE  HOLD© 


0496 

0497 

0498 

0499 


REF  1 
REF  30 
REF  31 
REF  2 


LAST  1424 
LAST  1424 
LAST  1424 


16.3115 

16.3116 

16.3117 


4 5014  0 
7 1262  1 
55'?62  1 
1 3220  0 


CS  6ITS9,11  IN  AUTO© 

MASK  RCSFLAGS  (X-AXIS  OVERRIDE) 

TS  RCSFLAGS  ZERC  ORBIT  (BIT  11 ) AND  JUST-IN  BIT  (9)© 

TCF  RATFDAMP 


0500  REF  32  LAST  1424 

0501  REF  1 

C5C2 

0503 

0504  REF  3 LAST  1424 


16.3120 

16.3121 

16.3122 

16.3123 

16.3124 


3 1262  C 
7 4742  0 
C 0006  1 
1 3125  0 
1 3220  0 


RLTH 


CA  RCSFLAGS 

MASK  PPIT 

EXTEND 

BZF  +2 

TCF  RATEDAMP 


IN  ATTITUDE  HOLD© 

BRANCH  IF  P-RATE  DAMPING  IS  FINISHED© 


gap: 

L 

0505 

0506 

0507 

0508 

0509 

R0510 

0511 

0512 

0513 

0514 

0515 

R0516 

0517 

0518 

0519 

0520 

R052I 

0522 

0523 

052t- 

0525 

0 52  6 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 


ASSEMBLE 
P-AXI S 


REVISION  131  CF  AGC  PPCGRAM  LUMINARV  BY  NASA  2021112-091 
RCS  AUTCPI LCT 


17:53  DECo  19,1969 
USER'S  PAGE 


LRCAP 
N0«  13 


o025  PAGE  1425 
E6  S4 


REF  33 
PEF  1 

Rf  F I 
REF  4 


LAST  1424 

LAST  1424 


16.3125 

16.3126 

16.3127 
16,3130 
16  ,3131 


3 1262  0 
7 4741  0 
C 0006  1 
1 3134  0 
1 3220  0 


CA  RCSFLAGS 

MASK  ORBIT 

EXTEND 

BZF  PATEDONE  BRANCH  IF  C,P  RATE  CAMPING  IS  FINISHED® 

TCF  RATEOAMP 


REF  60  LAST  1422 
REF  5 LAST  1363 

REF  14  LAST  953 


4753 

4771 

16.3132  74777  0 
5014 

16.3133  C0C56  1 


1/inSEC  = 

40CYC 

PQR6IT  OCT 
eiTS9,ll  EQUALS 
LINRATP  DEC 


B IT] 

0CT50 

74777 

EBANK5 

46 


REF  2 

REF  41 
REF  42 


LAST  1424 

LAST 
LAST 


16.3134 

16.3135 

16.3136 
16  ,3137 


4 4740  1 
0 0004  0 
7 0111  1 
54  111  1 


1424 

1425 


RATEOONE  CS  OURRCBIT 

INHINT 

MASK  DAP8CCLS 
TS  DAP600LS 


MANUAL  COMMAND  AND  DAMPING  COMPLETED  IN 
ALL  AXES® 


READ  CDUS  INTO  ,CDU  DESIRED  REGISTERS 


REF  54  LAST  1424 
REF  16  LAST  1424 

REF  26  LAST  1423 
REF  21  LAST  1423 

REF  54  LAST  1405 
REF  U LAST  1403 

REF  3 LAST  1424 


16.3140  3 4737  0 

16.3141  0 0006  1 

16.3142  C2  031  1 

16 .3143  0 0006  1 

16.3144  1 3150  1 

16.3145  3 0032  0 

16  ,3  146  55*  634  0 

16, 3147  C 3152  1 

16.3150  C 4674  0 

16.3151  40154  0 

16.3152  C 0003  1 

16.3153  1 3467  0 


CAP  61T13 

EXTEND 

RAND  CHAN31 

EXTEND 
BZF  +4 

CA  CDUX 

TS  CDUXO 

TC  +3 

TC  IBNKCALL 

FCAOR  ZATTERCR 

RELINT 

TCF  PURGENCY 


(X-AXIS  CVERRICE> 


REF  5 
REF  3 
REF  43 
REF  283 
REF  5 
REF  6 
REF  4 
REF  5 
REF  4 
REF  5 
REF  2 
REF  2 
REF  2 
REF  1 
REF  1 
REF  1 
PEF  34 
REF  35 


LAST  1425 
LAST  1423 
LAST  1416 
LAST  1425 
LAST  1416 
LAST  1425 
LAST  1417 
LAST  1425 
LAST  1416 
LAST  1416 
LAST  1417 


LAST  1425 
LAST  1425 


16.3155  3 4740  0 

16.3156  26  111  1 

16.3157  3 4755  1 

16.3160  55'446  1 

16.3161  55'447  0 

16.3162  55*450  0 

16.3163  55*451  1 

16.3164  55*452  1 

16.3165  55*453  0 

16.3166  55*454  1 

16.3167  55*455  0 

16.3170  55*456  0 

16.3171  54  042  0 

16.3172  54  044  0 

16.3173  3 313?  1 

16.3174  7 1262  1 

16.3175  55*262  1 


JLSTOUT 


TS 

CA 

ADS 


MASK 

TS 


PERRCR 

C1URRC6I  T 

DAPPGCLS 

ZEPC 

D XERROR 

DXERROR  ♦! 

DYERROR 

OYERROR  +1 

OZERRCR 

DZERROR  +l 

PLAST 

QLAST 

RLAST 

0-RHCCTR 

P-RHCCTR 

PQRB I T 

RCSFLAGS 

RCSFLAGS 


INITIALIZATION  - FIRST  MANUAL  PASS® 


BITS  10  AND  11  OF  RCSFLAGS  ARE  D. 
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L 


P-AXI S BCS  AITCPI LCT 


0555  REF  1 

05551 

0556  REF  3 

0557  REF  2 

0558  REF  ? 

0559  REF  1 

0560  REF  28A 

0561  REF  1 

0562  REF  3 

0563  REF  3 

056305 

0563) 

05632  REF  5 

05633  REF  9 


LAST  IA23 
LAST  1A25 
LAST  1A25 

LAST  )425 

LAST  1426 
LAST  1426 


LAST  1396 
LAST  1396 


16,3177 
16  ,3200 

16.3201 

16.3202 

16.3203 

16.3204 
16  ,3205 

16.3206 

16.3207 
16  ,3210 

16.3211 

16.3212 

16.3213 


1 3446  0 
22  C44  I 
3 0042  I 
52*463  0 
3 4755  1 
54  043  1 
54  042  0 
54  044  0 
0 0004  0 
C C0C6  1 
23*265  1 
0 6022  1 


RELINT 

TCF 

ZEROENBL  LXCH 


INhlNT 

EXTEND 

OXCH 


ZERCENBL 

JETSOFF 

R-RHCCTR 

0-RHCCTR 

SAVEHAAC 

ZERO 

P-RHCCTR 

Q-RHCCTR 

R-RHCCTR 


C130SAV 

riBSTALL 


0564  REF  1 

0565 

0566  REF  23  LAST  1396 

0567  REF  6 LAST  1426 


16.3214  3 3623  0 

16.3215  C 0006  I 

16.3216  C5  013  0 

16.3217  0 1265  1 


CA  BITS8,9 

EXTEND 

WOR  CHAN13 

TC  C13QSAV 


0560  REF  285  LAST  1426 
0569  REF  2 LAST  1426 


16.3220  3 4755 

16.3221  54  C43 


1 RAIEOAMP  CA 
1 TS 


ZERO 

P-RHCCTR 


0570  REF 


16,3222  1 3232  0 


TCF  RATERROR 


05701  «REF  36 

05702  *REF  33 

05703  *REF  37 

0571  «REF  4 

0572  REF  44 
C573 

0574  REF  1 

0575  REF  27 

0576  REF  22 

0577  REF  3 

0578 

0579 
05  80 

0581 

0582 

0583  REF  1 

0584 

0585  REF  4 

0586  REF  277 

0587 

0588  REF  6 

0589  REF  3 

0590 

0591  REF  4 

0592  REF  25 

0593  REF  2 


LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


1425 

1424 

1426 

1425 
142  5 


1425 

1425 

1426 


1426 

1416 

29  6 

1425 

1426 
1418 
1426 


16.3223  4 1262 

16.3224  7 4743 

16.3225  27*262 

16.3226  3 474C 

16.3227  7 0111 

16.3230  0 0006 

16.3231  ) 3154 

16.3232  3 0032 

16.3233  55*634 

16.3234  1C  043 

16.3235  I 3240 

16.3236  I 3240 

16.3237  1 3240 

16  ,3240  6 OOnO 

16.3241  6 CCOO 

16.3242  6 3133 

16.3243  0 0006 

16.3244  7 0043 

16.3245  3 0001 

16.3246  C 0006 

16.3247  7 1444 

16  ,3250  £7*454 

I6,32£l  4 CCOO 

16.3252  6 1454 

16.3253  55*736 

16.3254  C 3201 


1 

1 

1 

0 

I 

1 

0 

0 

0 

I 

0 

0 

0 

1 

1 

0 

1 

1 

0 

1 

0 

0 

0 

0 

0 

1 


RHCMOVEC  CS 

MASK 

ADS 

CA 

MASK 

EXTEND 

6ZF 

RATERROR  CA 
TS 
CCS 
TCF 
TCF 
TCF 

DOUBLE 

DOUBLE 

AO 

EXTEND 

MP 

CA 

EXTEND 

MP 

XCh 

COM 

AD 

TS 

TC 


RCSFLAGS 
61  T9 

RCSFLAGS 

0URRC6IT 

DAPBOOLS 

JUSTCUT 

CDUX 

CDUXD 

P-RHCCTR 

+ 3 

*2 

+ 1 


LI NRATP 

P-RHCCTR 

L 

STIKSEKS 

PLAST 

PLAST 

OAPTEMPl 

ZEPCENBL 


17:53  CECo  19,1969  LMCAP 
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E6  S4 


COUNTERS  ZEROEC  ANC  ENABLED 


SET  JUSTIN  BIT  TO  1 

P CONTROL 

FINDCDUW  REQUIRES  THAT  COUXD=CDUX  DURING 
X-AXIS  OVERRIDE 


LINEAR/QUADRATIC  CONTROLLER  SCALING 
(SEE  EXPLANATION  IN  Q,R-AXES  RCS 
AUTOPILOT) 


INTERVAL, 


ZERC  ANC  ENABLE  ACA  COUNTERS. 


GAP;  ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021312-091 
L P-AXIS  PCS  AUTCPILCT 


37:53  OECo  19,1969  LMDAP 

USER*  S PAGE  NCe  1 5 


o025  PAGE  1^27 
E6  SA 


05931 

0594  REF  5 

C595  REF  15 

0596  RCF  1 

0597  KEF  26 

0598 

0599 

0600 

0601  REF  5 

0602 

0603 

0604  REF  1 

0605  REF  2 

0606  REF  1 

0607  REF  36 

0608  REF  2 

0609 

0610 

0611  REF  2 

0612  REF  7 

0613  REF  1 

0614  PfcF  6 

0615  REF  4 

0616  REF  28 

0617  REF  23 

0618  REF  286 

0619  REF  8 

0620  REF  9 

0621  REF  7 

0622  REF  2 

0623 

0624 

0625 

0626  REF  1 

0627  REF  1 

0628 

0629  REF  1 

0630  REF  3 

0631 

0632  REF  2 

0633  REF  39 

0634  REF  3 

0635  RFF  40 

0636 

0637  REF  4 

0638  REF  41 

0639  RFF  42 

0640  REF  3 

0641 

0642  REF  1 


LAST  1A26 
LAST  1417 

LAST  1426 


LAST  296 


LAST  1414 


LAST  1426 
LAST  1424 


LAST  1427 
LAST  1425 

LAST  1425 
LAST  3425 
LAST  1426 
LAST  1426 
LAST  1426 
LAST  1427 
LAST  1427 
LAST  1427 
LAST  1427 


LAST  1427 

LAST  1427 
LAST  1427 
LAST  1427 
LAST  1427 

LAST  1427 
LAST  1427 
LAST  1427 
LAST  1427 


16.3255 

16.3256 
16  ,3257 

16.3260 

16.3261 

16.3262 

16. 3263 

16.3264 

16.3265 

16.3266 
16  ,3267 
16,327?' 
16,3271 
16  ,3272 

16.3273 

16.3274 

16.3275 

16.3276 
16  ,3277 

16.3300 

16.3301 
16  ,3302 

16.3303 

16.3304 

16.3305 

16.3306 

16.3307 

16.3310 

16.3311 

16.3312 

16.3313 

16.3314 

16.3315 
16,''316 
16  ,3317 

16.3320 

16 .3321 

16 .3322 

16.3323 

16.3324 

16.3325 

16.3326 
16  ,3327 

16.3330 

16.3331 
16  ,3332 
16,333? 

16.3334 

16.3335 

16. 3336 


C 0003  1 
4 1454  1 
6 1421  1 
55'427  0 
ll»736  0 
1 3265  1 
1 327?  0 

1 3265  1 
6 1476  0 
C 0006  1 

6 3273  1 
3 4771  1 
55'445  1 

0 3304  0 

2 1.262  0 

7 4742  0 
C 0006  1 

1 3300  0 
0 3304  0 
3 1446  0 
55'751  1 
55*464  1 
C 3473  1 
3 0032  0 
55*  634  0 
3 4755  1 
55*446  1 
55*447  0 
55*464  1 
11*427  0 
C 3316  C 
0 3316  0 

0 3316  0 
55*736  C 
6 1476  0 
G 0006  1 
6 3331  0 

3 1445  0 
C 00C6  1 

6 3331  0 

4 126?  1 

7 4742  0 
27*262  1 

1 3334  1 

0 

7 1262  1 
55*262  1 
4 1427  0 
0 0006  1 
7 1550  1 


PEGI 


CS 

AO 

TS 

CCS 

TCF 

TCF 

TCF 

AO 

EXTEND 

8ZMF 

CA 

TS 

TC 

CA 

MASK 

EXTEND 

BZF 

TC 

CA 

TS 

TS 

TC 

CA 

TS 

CA 

TS 

TS 

TS 

CCS 

TC 

TC 

TC 

TS 

AD 

EXTEND 

BZMF 

CA 

EXTEND 

BZMF 

CS 

MASK 

ADS 

TCF 

CS 

MASK 

TS 

CS 

EXTEND 

MP 


PLAST 
OMEGAP 
EDCTP 
OAPTEMPl 
+3 
+ 8 
+ 1 

-RATECE 
+ 4 

40CYC 

TCP 

PEGI 

RCSFLAGS 

PBIT 

+ 2 

PEGI 

DXERROR 

E 

PFRROR 
PURGENCY  +4 
CDUX 
COUXC 
ZERO 
DXERRDR 
DXERRCR  +l 
PERROR 
EDOTP 
+ 3 
+ 2 
+ 1 

A6SEDCTF 

TARGETDB 

LAST 

TCP 

LAST 

RCSFLAGS 

PBIT 

RCSFLAGS 

PBIT 

RCSFLAGS 

RCSFLAGS 

EDOTP 

1 /ANETP 


IF  P COMMAND  CHANGE  EXCEEDS  BREAKOUT 
LEVEL,  GO  TO  DIRECT  RATE  CONTROLr  IF  NOT 
CHECK  FOR  DIRECT  RATE  CONTROL  LAST  TIME*, 


CHECK  FOR  DIRFCT  RATE  COMMAND  LAST  TIMEo 


TO  PURE  RATF  COMMAND 
PSEUDO-AUTO  CONTROL.N 
X-ATTITUDE  FRRCP  (SP> 
LOAD  P-AXIS  ERROR  FOR 

DIRECT  RATE  CONTPOLo 


MODEl  FDAI  DISPLAY 


ZEPC  P-AXIS  ERRCP  FCP  MCCEl  FDAI  DISPLAY 


IF  RATE  ERROR  IS  LESS  THAN  DEADBAND, 
FIRF,  AND  SWITCH  TC  PSEUDO-AUTOc 

IF  TIME  IN  RATE  COMMAND  EXCEEDS  4 SECo, 


BIT  10  IS  lo 


BIT  10  IS  0« 


1/2JTACC  SCALED  AT  2EXPI7)/PI 


gap: 

L 

06A3 

064A 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

A0656 

A0657 

A0658 

A0659 

A0660 

A0661 

A0662 

A0663 

A0664 

A0665 

A0666 

A0667 

A0668 

A0669 

A0670 

A0671 

0672 

0673 

0674 

0675 

0676 

0677 

0678 

0679 

0680 

0681 

0682 

0663 

0684 

0685 

0686 

0687 
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,025  PAGE  1428 


P-AXIS  RCS  AUTCPILCT 


USER*  S PAGE  NCo  16  £6  S4 


REF  4S4 
REF  10 

REF  1 
PEF  5 
REF  2 
REF  2 


LAST  1^23 
LAST  1419 


LAST  1423 
LAST  1427 
LAST  131 


16,3337 
16, 3340 
16  ,3341 

16.3342 

16.3343 

16 .3344 

16.3345 

16.3346 

16.3347 


20  001  1 
C 2310  1 
0 0006  1 
7 7721  C 
55*524  1 
’ 1736  1 
6 1475  0 
0 0006  1 
6 3352  0 


DAS  A 

TC  OVERSUB 

EXTEND 

NP  25/32  A CONTAINS  TJ6T  SCALED  AT  2E XP I 4 M 1 6/25  I 

TS  TJP  4oJeT  TI^E 

CA  ABSEOOTP 

AO  -2JETLIM  COMPARING  DELTA  RATE  WITH  2 JET  LIMIT 

EXTEND 

BZPF  +3 


PEF  29  LAST  1421 

PEF  6 LAST  1428 
REF  7 LAST  1428 


16.3350  2 6245  1 

16.3351  1 3361  1 

16.3352  3 1524  0 

16.3353  27*524  1 


CA 


SI  > 


TCF 
CA  TJP 

ADS  TJP 

GOES  TO  PJETSLEC  FOR  TWO  JFTS 


P- JET- SELECT  I ON-ROUT  I NE  (RCTAT  ION  I 

INPUT:  NUMBERT  4,5,6  FOR  WHICH  PAIR  OR  4 JETS 

TJP  + FCR  +P  ROTATION 


OUTPUT : 


CHANNEL  6 
PJUMPAOR 
(JTLST  CALL) 


FOR  P-AXIS  SKIP 
(SMALL  T JP ) 


REF  1 

REF  31  LAST  1330 
REF  495  LAST  1428 
REF  157  LAST  1423 
REF  34  LAST  1422 
REF  3 LAST  1422 
REF  158  LAST  1428 
REF  278  LAST  1426 
REF  8 LAST  1428 

REF  4 LAST  1426 

REF  5 LAST  142B 

REF  15C  LAST  1428 
REF  ] 


ORDER  OF  POLICIES  TRIED  IN  CASE  CF  FAILURE* 
♦ P -P 

7.15  8,16 

4.12  ■>,11 

4,7  8,11 

7.12  11,16 

12.15  3,16 

4.15  3,8 

ALARM  ALARM 

16.3354 

16.3355 

16.3356 

16.3357 

16. 3360 

16.3361 

16.3362 

16.3363 
16  ,3364 

16. 3365 

16.3366 

16.3367 
16, 1370 
16,3371 
16,3272 
16,3373 


3 4747  1 
1 QlCl  0 
1C  000  0 
3 4753  1 
6 4751  0 
55*742  0 
3 4753  I 
54  OCl  1 
11*  524  1 
1 3372  C 
1 3446  0 
1 3371  0 
1 3446  0 
22  007  0 
6 4753  1 
55*736  C 


MASK 

CCS 


PJETSLEC  CA 


CCS 

TCF 

TCF 

TCF 

TCF 


AORBSYST 

FLA6WRC5 

A 

ONE 

FOUR 

NUMBERT 

ONE 

L 

TJP 


GAP: 

L 

0606 

0689 

0690 

0691 

0692 

0693 

069A 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 

0728 

0729 

0730 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2C21112-C91 
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USER'S  PAGF  NCe  17 


025  PAGE  1429 
66  S4 


REF  4 LAST  1422 

REF  1 

REF  30  LAST  1428 

REF  4 LAST  1428 


16.3375 

16.3376 

16.3377 
16,3400 
16,34C1 


4 6245  0 
6 1742  1 
C 0006  1 
1 3403  1 


LXCH  ROTINCEX 
TC  SELECTP 

CS  SIX 

AO  NUMBER! 

EXTEND 
0ZF  42 


REF  9i 
REF  35 
REF  2 
REF  2 
RFF  2 
REF  2 
REF  1 

REF  2 


LAST  1411 
LAST  1428 
LAST  134 
LAST  1422 
LAST  1396 
LAST  1428 


LAST  1421 


16,3402 
16  ,3403 

16.3404 

16.3405 

16.3406 

16.3407 

16.3410 

16.3411 

16.3412 


4 4752  1 
6 4751  0 
55*521  1 
? 1740  0 
C 5744  Q 
4 1736  C 
6 3616  0 
C 0006  1 
6 3630  1 


C S TWO 

AD  FOUR 

TS  NOoPJFTS 

CA  POLYTEMP 

TC  WRITEP 

CS  ABSTJ 

AD  4150MST6 

EXTEND 

BZMF  QRAXIS 


GO  TO  QRAXIS  OR  TO  GTSo 


REF 


16.3413  6 3576  0 

16.3414  C 0C06  1 

16.3415  6 3422  0 


AD  -136MST6 

EXTEND 

BZMF  +5 


REF  3 LAST  1429 
RFF  5 LAST  1429 
PEF  1 

RFF  9 LAST  1428 


16.3416  27*  736  0 

16.3417  51*743  0 

16.3420  3 3625  0 

16.3421  55' 524  1 


ADS  ABSTJ 
INDEX  POTINOEX 
CA  MINTIMES 

TS  TJP 


REF  4 


REF  4 
REF  55 
REF  1 
REF  39 
RFF  43 
REF  44 
REF  1 
REF  3 


LAST  1429 


LAST  1404 
LAST  1425 

LAST  1421 
LAST  1427 
LAST  1429 

LAST  1429 


16,3422 
16  ,3423 

16.3424 

16.3425 
16  ,3426 
16,3427 

16.3430 

16.3431 

16.3432 
16  ,3433 
16,3434 


2 1736  1 
22  007  0 
C 0004  C 
53'471  C 
0 4674  0 
37143  0 
4 4740  1 
7 1262  I 
55*262  1 

0 3435  0 

1 3630  0 


CA 

ZL 

INFINT 

DXCH 

TC 

CADR 

CS 

MASK 

TS 

TC 

TCF 


ABSTJ 


T6FURTHA 

IBNKCALL 

JTLST 

BIT12 

RCSFLAGS 

RCSFLAGS  PIT  12  SET  TO  Oo 

ALTSYST 

QRAXIS 


REF 
REF  2 
REF 


REF  19 
REF  33 


REF  406 


LAST  1428 
LAST  1428 
LAST  1428 


LAST  1406 
LAST  1429 


LAST  1415 


16.3435  3 0101  1 

16.3436  54  001  1 

16.3437  3 4747  1 

16.3440  0 0006  1 

16.3441  06  no)  0 

16.3442  54  ICl  0 

16.3443  0 0003  1 

16.3444  C 0002  0 


ALTSYST 


CA  FLAGWRD5 

TS  L 

CA  ACRBSYST 

EXTEND 

RXCR  LCHAN 
TS  FLAGhR05 

REL  INT 
TC  Q 


ALTERNATE  P-AXIS  JETS 


REF  ? LAST  1429 
RFF  3 LAST  1429 


16.3445  0 3435  0 CKALT  TC 

16.3446  C 5743  1 JETSOFF  TC 


ALTSYST 
WRITFP  -1 


GAP : 

L 

0731 

0732 

0733 

R 073-4 

0735 

0736 

0737 

0738 

0739 

0740 

0741 

0742 

0743 

R0744 

R0745 

0746 

0747 

0748 

0749 

R0750 

0751 

0752 

0753 

0754 

0755 

0756 

0757 

0758 

0759 

0760 

0761 

0762 

0763 

0764 

0765 

0766 

0767 

0768 

0769 

0770 

0771 

0772 

0773 

0774 
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025  PAGE  1430 


P-AXIS  RCS  AUTOPILOT 


USER’S  PAGE  N0»  IP  E6  S4 


REF  287  LAST 
REF  10  LAST 
REF  4 LAST 
( NCTE  — K13  ^ 


1427  16,3447 

1429  16,3450 

1429  16,3451 

I IDEATICALLY 


3 4755  1 CA  ZERO 

55' 524  I TS  T JP 

1 3630  0 TCF  QRAXIS 

I^FLIES  NULL  MULT IPL ICAT lONo ) 


REF  13 
REF  7 

REF  9 
REF  2 
REF  29 

REF  24 


REF  5 
REF  3 
PEF  8 
REF  407 


LAST  1413 
LAST  1413 

LAST  1415 
LAST  1427 
LAST  1427 

LAST  1427 


16.3452  3 0033 

16.3453  C 0006 

16.3454  21'635 

16.3455  C 0006 

16.3456  7 1414 

16.3457  57'751 

16,3460  3 CC32 

16  ,‘»461  0 0006 

16,3462  21*634 


1 

1 

1 

1 

0 

0 

n 

I 

0 


LAST  1400 
LAST  1430 
LAST  1427 
LAST  1429 


16. 3463 

16.3464 

16.3465 

16.3466 


6 1274  I 
27'751  1 
57'464  0 
C 0C02  0 


EXTEND 

MSU 

EXTEND 


AOS 

XCH 


CDUY 

CDUYD 

Mil 

E 

CDUX 

CDUXD 

M13 

DELPERCR 

E 

PERRGR 

0 


P-FRROR  calculation© 

COU  VALUE  - ANGLE  DESIRED  (Y-AXISI 

( f DLY-CDUYO )M11  SCALED  AT  PI  RADIANS 
SAVE  FIRST  TERM  (OF  TWO) 

THIRD  COMPCNENT 


COU  VALUE  - ANGLE  DESIRED  <X-AXIS) 


KALCMANU  INERFACE  ERROR 
SAVE  SUM  OF  TFRMSe  CCULD  BE  OVERFLOW© 
SAVF  P-ERROP  FOP  EIGHT-BALL  DISPLAY, 
RETURN  TO  CALLER 


P-AXIS  LRGENCY  FUNCTION 


CALCLLAT ICN© 


REF  2 LAST  1405 
REF  12  LAST  1400 
REF  16  LAST  1427 
REF  4 LAST  1427 


16,3467  0 3452 

16.3470  4 1642 

16.3471  6 1421 

16.3472  55'427 


1 PLRGENCY  TC 
1 CS 
1 AD 
0 TS 


CALCPERP  CALCULATE  P-AXIS  ERRORS© 
OMEGAPD  THIS  CODING  IS  COMMON  TC 
OMEGAP  SPS-BACKUP  MODE© 

EDOTP  EDOTP  = OMEGAP  - OMEGAPD 


BOTH  LM  DAP  AND 
AT  PI/4  RAD/SeC 


REF  160  LAST  1428 
REF  2 LAST  133 
REF  45  LAST  1426 
REF  8 LAST  1417 

REF  1 


RFF  56  LAST  1429 
REF  1 


16  ,3473  4 4753  0 

16.3474  55'505  1 

16.3475  3 0111  0 

16.3476  7 4737  1 

16.3477  C 0006  I 

16.3500  1 3511  0 

16.3501  C 0004  0 

16.3502  0 4674  0 

16.3503  43736  1 


CS  ONE 

TS  AXISCTR 

CA  OAPBOOLS 

MASK  CSMDOCKD 

EXTEND 

BZF  HEADTJET 

INHINT 

TC  IBNKCALL 

CACR  SPSRCS 


IF  CSMDOCKD  = 1,  GO  TO  OOCKEO  RCS  LOGIC 


PEF  11  LAST  1430 
REF  1 

REF  2 LAST  1423 
REF  288  LAST  1430 
REF  I 


REF  57  LAST  1430 
REF  1 


16.3504  3 1524  0 

16.3505  C 0006  I 

16.3506  1 3445  0 

16.3507  C 0003  1 

16.3510  1 3354  1 

16.3511  3 4755  1 

16.3512  55'500  1 

16  ,3513  0 0004  0 

16.3514  0 4674  0 

16.3515  37304  1 

16  ,3516  0 0003  1 


CA 

EXTEND 

62F 

RELINT 

TCF 

HEADTJET  CA 
TS 

INHINT 


CAOR 
REL  INT 


TJP 

DKALT 

PJETSLEC 

ZERO 

SENSETYf 

IBNKCALL 

TJETLAW 


IF  TJP  = ZERO,  CHANGE  ACRBSYSTc 

SELECT  AORBSYST  AND  USE  TWO  JETS 


GAP:  ASSEMBLE  REV1SI0^  131  CF  AGC  PRCGRAP  LUMINARY  BY  NASA  202U12-C91 

L P-AXIS  RCS  AUTOPILOT 


17:53  DECe  19,1969  LPOAP 

USER'S  PAGE  NOc  19 


o025  PAGE  1431 
E6  S4 


077*?  REF  1 

0776  REF  1 

0777 

0770  REF  3 

0779  REF  12 

0780 

0781  REF  6 

0782  REF  1 

0783 

0784  REF  4 

0765  REF  31 

0786  REF  5 

0787 

0788 


LAST  1430 
LAST  1430 

LAST  1428 


LAST  1431 
LAST  1429 
LAST  1431 


16,3517  i 174C  1 
16  ,3520  6 3534  0 

16.3521  C 0006  I 

16.3522  6 3354  0 

16.3523  11' 524  1 

16.3524  1 3526  1 

16.3525  1 3446  0 

16.3526  6 3533  I 

16.3527  C 0006  1 

16.3530  6 3354  0 

16. 3531  2 6245  1 

16.3532  1 3361  1 

16.3533  77377  1 

16.3534  75117  I 


-160MST6 

-FOURDEG 


CS  FIREFCT 

AD  -FOURDEG 

E XTEND 

BZMF  PJETSLEC  -6 

CCS  TJP 

TCF  *2 

TCF  JETSDFF 

AD  -160MST6 

EXTEND 

BZMF  PJETSLEC  -6 

CA  SIX 

TCF  PJETSLEC  -1 

DEC  -256 

DEC  -0O8888 


GAP  ; 

L 

P0789 

AC790 

A079] 

A0792 

0793 

0794 

C795 

0796 

0797 

0798 

0799 

0800 

0801 

0802 

0803 

0804 

0805 

0806 

0807 

0808 

0809 

0810 

OBll 

0812 

0813 

0814 

0815 

0816 

0817 

0818 

0819 

0820 

0821 

0822 

0823 

0824 

0825 

0826 

0827 

0828 

0829 

0830 

0831 

0832 

0833 

0834 

0035 


assemble  revision  135  CF  AGO  PFCGPAM  LUMINARY  0Y  NASA  2021112-091 


17:53  OECo  19tl969  LPDAP 


025  PAGE  1432 


P-AXIS  RCS  AUTOPILOT 


USER’S  PAGE  NCo  ?C  E6  S4 


JET  PCLICY  CCNSTPUCTION  SUePCUTINE 


INPUT:  RCTINDEX,  NUMBERT 
OUTPUT:  POLYTEMP  (JET  POLICY! 


REF  32 
REF  1 
REF  5 
PEF  1 
REF  6 
REF  1 
REF  3 
REF  6 
REF  496 

REF  408 
REF  2 

REF  49 


REF  7 
REF  6 
REF  2 
REF  1 


LAST  1431 

LAST  1429 

LAST  1429 

LAST  1429 
LAST  213 
LAST  1428 

LAST  1430 
LAST  1432 

LAST  1422 


LAST  1431 
LAST  1432 
LAST  1429 


REF 


LAST  1429 


16.3535 

16.3536 
16  ,3537 

16.3540 

16.3541 

16.3542 

16.3543 
16  ,3544 

16.3545 

16.3546 
16  ,3547 

16.3550 

16.3551 

16.3552 

16.3553 

16.3554 

16.3555 

16.3556 
16  ,3557 

16.3560 

16.3561 

16.3562 

16.3563 
16  ,3564 

16.3565 

16.3566 

16.3567 

16.3570 

16.3571 

16.3572 

16.3573 
16  ,3574 

16.3575 

16.3576 
16  ,3576 

16.3577 

16.3600 

16.3601 

16.3602 

16.3603 

16.3604 

16.3605 
16  ,3606 


3 6245  1 
E5'741  0 
51*742  1 
3 3567  G 
51*743  0 
7 3560  0 
55*740  I 
7 1260  0 
1C  OOO  0 
1 355C  0 
0 0002  0 
11*741  C 
1 3555  0 
C 5567  0 
C2003  0 
1 3446  0 
55*742  C 
1 3536  0 
1 2773  1 
CC252  I 
C0125  1 
CQ140  1 
CC0C6  1 
00220  1 
00011  1 
00151  1 
00146  1 
CC226  1 
00231  I 
C0151  1 
CC132  1 
00245  I 
00377  1 

77445  1 
CC0C4  0 
00002  0 
07776  0 
C0005  1 
00011  1 
00012  1 
C7776  0 
00003  1 


This  SUBROUTINE 
SELECTP  CA 
TS 

INDEX 

CA 

INDEX 

MASK 

TS 

MASK 

CCS 

TCF 

TC 

cc  s 

TCF 

TC 

OCT 

TCF 

SELECTYZ  TS 
TC  F 

-1  TCF 

JETSALL  OCT 
OCT 
OCT 
ncT 
OCT 
OCT 
OCT 

TYPEP  OCT 

OCT 
OCT 
CCT 
OCT 
OCT 
□ CT 

INCXYZ 

-136MST6  DEC 
DEC 
DEC 
OCT 
DEC 
DEC 
DEC 
OCT 
DEC 


SELECT  A 
SIX 

TE  MPNUM 

NUMBERT 

TYPFP 

ROTINOEX 

JETSALL 

POLYTEMF 

CH6MASK 

A 

+ 2 
Q 

TEMPNUM 
+ 4 

ALARM 
02003 
J ETSOFF 
NUMBERT 
SELECTP  4- 
ABORTYZ  + 
00252 
00125 
00140 
00006 
00220 
00011 
00151 
00146 
00226 
00231 
00151 
00132 
00245 
00377 
-136MST6 
-218 

4 
2 

07776 

5 

9 

10 

07776 

3 


siesE 


1 

2 


T OF  THE  DESIRED  JETS  ^iHlCH  HAS  NO  FAILURE 


<t*i(e*!(sTCF  ALARMJET  ♦####*« ***#**^« *#**### 


+ P 
-Y 
-Z 
+ Y 
+ Z 
+ V 
-U 
-V 
+ L 
+ V 

1- 3 

2- 4 
ALL 


GAP  : 
L 


ASSENBie 

P-AXIS 


REV  IS  ION  131  CF 
RCS  AUTOPILOT 


AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-091 


17:53  DEC.  1.9,1969  LPDAP  ^025 
USER'S  PAGE  NOo  21 


PAGE  1^33 
E6  S4 


0836 

C837 

0830 

0839 

0640 

0841 

0842 
08^3 
0844 

R0845 


16 

16 

16 

16 


LAW  FIXED  CCNSTAN 


,3607 

,3610 

,3611 

,3612 

,3613 

,3614 

,3615 

,3616 

,3617 

TS 


COOlO  0 
00007  0 
C7776  0 
07776  0 
07776  0 
07776  0 
07776  0 
00360  I 
C7400  1 


DEC  8 

DEC  7 

OCT  07776 

OCT  07776 

OCT  07776 

OCT  07776 

OCT  07776 

+150MST6  CEC  240 

C7^000CT  OCT  07400 


THESE  INDEXES  OF  MASK  JETSALL  WILL 
CHANGE  THE  INSTRUCTICN  AT  SELECTP  +4 
TO  BE  TC  JETSALL  -1 
CNLY  USED  FCP  TPANSLATICN  FAILURE 


0846 

0847 

0848 

0849 

0850 

0851 
0052 
0653 
0854 


REF 


REF 


5 LAST  960 


2 LAST  1^20 


16. 3620 

16.3621 

16.3622 
7721 

16.3623 
16,362^ 

16.3625 

16.3626 

16.3627 


CC266  0 
74631  0 
C6315  0 

00600  1 
00632  0 
77751  1 
00026  0 
C2734  0 


NORPSCL  OCT 
-lOOMS  DEC 
2n0PS  DEC 
25/32 

eiTS8,9  OCTAL 
1/AC  DEC 

MINTIMES  DEC 
DEC 

PSKIPADR  GEKAOR 


266 
-0  1 
o2 

PRIG31 

00600 

o02500 

-22 


22 

SKI PPAXS 


(CEC  o78125  I 


A0655 

0856  REF  7 

0857  REF  8 

0858  REF  11 

0859  REF  2 

0860  REF  7 

0861  REF  13 

0862  REF  12 

0863  REF  3 

0864 

0865  REF  1 

0866 


LAST  1400 
LAST  1A19 
LAST  1428 
LAST  131 
LAST  1400 
LAST  1418 
LAST  1433 
LAST  131 


16.3630 

16.3631 
16  ,3632 
16,3623 
16,362A 

16.3635 

16.3636 

16.3637 
16,3640 
16,36A1 
16,3642 


A 1644  1 
6 1A23  0 
0 2310  1 
55*437  1 
A 1643  0 
6 1422  I 
C 2310  I 
55*436  0 
C 0006  1 
2 36AA  1 
52  006  0 


GOES 

QRAX. 


TO  0,R-AXES  RCS  AUTOPILOT 
S CS  OMEGARD 

AO  (?MEGAR 

TC  CIVEPSUB 

TS  EDCTR 

CS  nMEGAQO 

AD  OMEGAQ 

TC  CVERSUe 

TS  EDOTQ 

EXTEND 

OCA  (3ERRCALL 
DTCB 


0867 

0868 


REF  22  LAST  1A19  E6,1536 

REF  I 16,36A3 


0068  REF 


16,3644 


EBANK=  AOSG 

0212A  1 QERRCALL  2CADR  CALLQERR 
36106  0 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  FPCGPAi 


LUMNARY  BY  NASA  202111  2-0'51 


17:53  DECo  19, 1965  LHPAP 


025  PAGE  143<t 


L 0,R-AXES  RCS  AUTOPILOT 


USER'S  PAGE  NC.  1 EO  SA 


0001 

0002  REF  3 LAST  1397 

0003 


17,2124 

17,2000 

17,2124 


BANK  17 
SETLCC  0APS2 
BANK 


0004  REF  25  LAST  1430  E6,1634 

0005  REF  1 


EBANK=  CDUXD 
COUNT*  t$/DAPQR 


RQQ06 

00061  REF  55  LAST 

00062 

00063  REF  17  LAST 

00064  REF  497  LAST 

00065 

0007  REF  46  LAST 
00071  REF  5 LAST 
0U072 

00073  REF  1 

00074  REF  2 LAST 


1425 

1425 
1432 

1430 

1426 


1405 


17.2124  3 4737  0 

17.2125  C 0006  1 

17.2126  02  021  1 

17.2127  1C  OnO  0 

17,2130  1 2135  0 

17,2121  4 cm  1 

17.2132  7 4740  1 

17.2133  0 0006  1 

17.2134  1 2136  0 

17.2135  0 2655  0 


CALLQERR 


CA  BIT13 

EXTEND 

RAND  CHAN31 

CCS  A 

TCF  +5 

CS  DAPBCCLS 

MASK  OURRCBIT 

EXTEND 

BZF  OfROP.GTS 

TC  OERRCALC 


CALCULATE  Q,R  ERRORS  UNLESS  THESE  AXES 
ARE  IN  manual  RATE  COMMANDo 


IN  AUTO  CCMPUTE  C,R  EPRCRS 
IN  MANUAL  RATE  COMRANO? 

IF  SO  BYPASS  CALCULATION  OF  ERRORSq 


R0008 

0009 

0010 
0011 
0012 
0013 


REF  2 LAST  1404 

REF  1 

REF  1 

REF  289  LAST  1430 

REF  3 LAST  1434 


17.2136 

17.2137 

17.2140 

17.2141 

17.2142 


11*630  1 OfRORGTS  CCS 
1 2636  1 TCF 
1 2622  0 TCF 
3 4755  1 RCS  CAF 
55*630  1 TS 


COTROLER 

GOTOGTS 

TRYGTS 

ZERO 

COTROLER 


CHOOSE  CONTROL  SYSTEM  FCR  THIS  DAP  PASS: 
GTS  (ALTERNATES  HTH  RCS  WHEN  DOCKED) 
GTS  IF  ALLOWEC,  CTFERWISE  RCS 
RCS  (TRYGTS  MAY  BRANCH  TC  HERE) 


0014 

0015 

0016 


REF  4 
REF  1 
REF  11 


LAST  1433 
LAST  1416 


17,214? 

17 .2144 

17.2145 


52*437  1 
C 3200  0 
53*427  0 


OXCH  FDOTO 
TC  RCT-TCUV 

DXCH  OMEGAU 


A0017 


TRANSLATION; 


A0018 

A0019 

A0020 


INPUT: 


BITS  7,8  CF  CH31.  (TRANSLATION  CONTROLLER) 
ULLAGER 

APSFLAG,  ORIFTBIT 


A0021 


ACC40R2X,  ACRBTRAN 


A0022 

A0023 


OUTPUT:  NEXTUt  NEXTV  CODES  OF  TRANSLATION  FCR  AFTER  ROTATION 

SENSETYP  TELL  ROTATION  DIRECTION  AND  DFSIRE 


R0024 

R0026 


X-TRANS  POLICIES  ARE  EITHER  4 JETS 
WILL  CVEPPIDE  THIS  S PEC  I F ICAT  IC No 


OR 

AN 


A DIAGONAL  PAIR®  IN  2-JET  TRANSLATICN  THE  SYSTEM  IS  SPECIFIED-. 
ALARM  RESULTS  WHEN  NO  POLICY  IS  AVAILABLE  BECAUSE  OF  FAILURESo 


A FAILURE 


0028  REF  44  LAST  1421 

002  9 

0030  REF  18  LAST  1434 

0031 

0032  REF  1 


17.2146  2 4745  0 

17.2147  C 0006  1 

17.2150  C2  031  1 

17.2151  C 0006  1 

17.2152  1 2200  0 


SENSEGET 


CA 

EXTEND 

RAND 

EXTEND 

RZF 


B1T7 

CHAN31 

♦XORULGE 


INPUT  BITS  OVERRIDE  THE  INTERNAL  BITS 
SENSETYP  WILL  NCT  CPPCSE  ANYTRANS 


GAP:  ASSEf^BLE  REVISION  131  CF  AGC  PRC6RAM  LUMINARY  BY  NASA  2021112-091 


L OiR-AXtS  RCS  ALTOPILCT 


0033  REF  A3  LAST  1357 

003A 

0035  REF  19  LAST  1A3A 

0036 

0037  REF  I 


17f2153  3 A7AA  1 

17,215A  0 0006  1 

17.2155  02  031  1 

17.2156  r 0006  1 

17.2157  1 2201  1 


CA  BIT8 

EXTEND 

RAND  CHAN3) 
EXTEND 

BZF  -XTPANS 


0038  REF  3 LAST  737 

0039  REF  A7  LAST  1434 

0040  REF  498  LAST  1A34 

0041  REF  2 LAST  IA34 


17. 2160  3 A746  0 

17.2161  7 0111  1 

17.2162  1C  000  0 

17.2163  1 2200  0 


CA  ULLAGER 

MASK  DAPBOOLS 

CCS  A 

TCF  +XCRULGE 


0042  REF  4 

0043  REF  4 

0047  REF  48 

0048  REF  4 

0049 

0050  REF  1 

0051  REF  22 

0052  REF  14 

0053  REF  499 

0054  REF  95 

0055  REF  2 

0056  REF  I 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 


1405  17,2164 

1405  17,2165 

1435  17,2166 

1419  17,2167 

17.2170 

17.2171 
1376  17,2172 

857  17,2173 

1435  17,2174 

1429  17,2175 

1430  17,2176 
17,2177 


55*473  1 
55*474  n 
4 0111  1 
7 4744  0 
C C006  1 
1 2176  1 
3 0106  0 
7 4737  1 
10  000  0 
3 4752  0 

55*500  1 TS6NSE 
1 2232  1 


TS  NEXTU 

TS  NFXTV 

CS  DAPBOOLS 

MASK  DRIFTBIT 

EXTEND 

BZF  TSENSe 

CA  FLGWRDIO 

MASK  APSFLBTT 

CCS  A 

CAF  TWO 

TS  SENSETYP 

TCF  ORCONTRL 


0057  REF  161 

0058  REF  36 

0059  REF  7 

0060  REF  7 

00601  REF  3 

0061  REF  49 

0062  REF  2 

0063  REF  500 

0064  REF  1 


LAST  1430 
LAST  1429 
LAST  1432 
LAST  1385 
LAST  1435 
LAST  1435 
LAST  296 
LAST  1435 


17.2200  3 4753  1 

17.2201  6 4751  0 

17,22C2  55*743  1 

17,22C3  6 7750  1 

17,2204  55*500  1 

17,22C5  3 cm  0 

17.2206  7 4741  0 

17.2207  1C  000  0 

17, 2210  1 2352  0 


+XORULGE  CAF 
-XTRANS  AO 
TS 
AD 
TS 
CA 

MASK 

CCS 

TCF 


ONE 

FOUR 

POTINOEX 

NEG3 

SENSETYP 

DAPBCCLS 

ACC40R2X 

A 

TRANS4 


0065 

0066 

0067 

0068 

0069 

0070 


0071 


REF  50 
REF  1 
REF  501 
REF  162 
REF  96 
REF  7 


REF  1 


LAST  1435 

LAST  143‘5 
LAST  1435 
LAST  1435 
LAST  1432 


17.2212 

17. 2213 

17 .2214 

17.2215 

17.2216 


17,2217 


10  COO  0 
3 4753  1 
6 4752  0 
55*742  0 


0 3225  1 


CA  DAPBOOLS 

MASK  AORBTRAN 

CCS  A 

CA  ONE 

AD  TWO 

TSNUMBRT  TS  NUMBERT 

) 

TC  SELCTSUe 


0072  REF  4 

0073 

0074  REF  50 

0075 

0076  REF  3 

0077  REF  5 

0078  REF  5 


LAST  1432 

LAST  1432 

LAST 
LAST 
LAST 


17,2220 
17  ,2221 

17.2222 

17.2223 

17.2224 

17.2225 

17.2226 


11*740  1 
1 2224  0 
0 5567  0 
G2002  1 
3 5764  1 
7 174C  1 
55*473  1 


1397 

1435 

1435 


TSNEXTS 


CCS  POLYTEMP 

TCF  +3 

TC  ALARM 

OCT  02002 

CA  003140CT 

MASK  POLYTEMF 

TS  NEXTU 


17:53  DECo  19,1969 


.025  PAGE  1435 


LMCAP 
USER’S  PAGE  NOo  2 


E6  S4 


STORE  NULL  TPANSLATICN  POLICIES 
BURNING  CR  DRIFTING? 

OPS  (INCLUDING  DOCKED)  OR  APS? 

FAVOR  +X  JETS  DUPING  AN  APS  BURNo 


FAVOR  APPROPRIATE  JETS  DURING  TPANSe 


THREE  FOR  B 

TWO  FOR  A SYSTEM  2 JET  X TRANS 


GAP: 

L 

0079 

0080 

0061 

A0082 

A0063 

A0085 

A00e6 

A0087 

0088 

0089 

OOOO 

0091 

0092 

0093 

009^ 

0095 

0096 

R0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

Olio 

oiU 

01J2 

0113 

0114 

0115 

0116 

0117 

0118 

0119 


ASS£^'BLF  REVISION  131  CF  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-091 


17:53  DECc  19,1969  LRCAP 


.025  PAGE  1436 


0,R-AXES  RCS  ALTOPILCT 


USER'S  PAGE  NOo  3 E6  S4 


REF  4 
REF  6 
REF  5 


LAST  1^35 
LAST  1435 
LAST  1435 


17, 2227 

17.2230 

17.2231 


4 5764  0 
7 1740  1 
55*474  0 


CS  n0314CCT 
MASK  POLYTEMP 
TS  NEXTV 


0,R-AXES  RCS  CONTROL  MODE  S6LFCTICN 

SWITCHES  INDICATION  WHEN  SET 

BIT13/CHAN31  AUTC,  GO  TO  ATTSTEEP 

PULSES  MINIMUM  IMPULSE  MODE 

(OTHERWISE)  RATF  COMM  AN  0/ ATT ITUOE  HOLD  MODE 


REF  56 

REF  20 
REF  502 
REF  1 
REF  3 
REF  51 

REF  1 


LAST 

LAST 

LAST 

LAST 

LAST 


1434 

1435 
1435 

1422 

1435 


17. 2232  2 4737  0 

17.2233  0 0006  1 

17.2234  02  031  I 

17.2235  10  OOO  0 

17.2236  1 2710  1 

17.2237  2 4735  1 

17.2240  7 0111  1 

17.2241  C 0006  1 

17.2242  1 2354  0 


QRCONTRL  CA 

EXTEND 

RAND 

CCS 

TCF 

CHKBITIO  CAF 
MA  SK 
EXTEND 
BZF 


BI  T13 

CHAN31 

A 

ATTSTEEP 

PULSES 

OAPBOOLS 

CHEKSTIK 


CHECK  MCDE  SELECT  SWITCHo 
PITS  INVERTED 

PULSES  = 1 FOR  MIN  IMP  USE  OF  RHC 

IN  ATT-HCLD/RAT E-CCMMANC  IF  SIT10=0 


MIMMLM  IMPULSE  MOCE 


REF  58 
REF  12 
REF  290 
REF  3 
REF  3 


LAST  1430 
LAST  1425 
LAST  1434 
LAST  1407 
LAST  1407 


17,2244 
17  ,2245 

17.2246 

17.2247 

17.2250 

17.2251 


40154  0 
3 4755  1 
55*450  0 
55*452  1 
C 0002  1 


INHINT 

TC  IBNKCALL 

CADR  ZATTERCR 

CA  ZERC 

TS  OERROR 

TS  RERROR  FOR  DISPLAYS 

RELINT 


REF  21 
REF  1 
REF  2 
REF  1 


LAST  1436 
LAST  1404 


17.2252 

17.2253 

17.2254 

17 .2255 

17.2256 


0 0006  1 
CO  031  0 
55*736  0 
11*461  1 
I 2300  1 


EXTEND 

READ  CHAN31 

TS  TEMP31  IS  EQUAL  TC  DAPTEMFl 

CCS  OLDOPMIN 

TCF  CHECKIN 


17,2261 
17  ,2262 


3 1736  1 
7 4753  0 
0 0006  1 
1 2304  0 


MASK 

EXTEND 

BZF 


3 

53 


LAST 

LAST 


REF  1 


17,2262 

17.2264 

17.2265 

17.2266 


1736  1 
4752  1 
C006  I 


CA  TEMP31 

MASK  BIT2 
EXTEND 

BZF  -QMIN 


REF  4 
REF  49 


LAST  1436 
LAST  1404 


17,2267 

17,2270 


3 1736  1 
7 4747  0 


CA  TEMP31 

MASK  BITS 


gap:  assemble  revision  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 


025  PAGE  1437 


Q,R-AXFS  RCS  AUTOPILOT 


17; 53  DEC,  19, 1969  LMDAP 
USER'S  PAGE  NDe 


0122 

0123 

0124 

0125 

0126 

0127 

012fi 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 
013fi 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 


17.2273 

17.2274 

17.2275 

17.2276 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


1 


REF  2 
REF  5 
REF  7 
REF  53 
REF  2 
REF  503 
REF  164 
REF  97 
REF  0 


17,2277  I 3112  1 


LAST  1437 


LAST  1436 
LAST  1437 


LAST  1403 
LAST  1437 

LAST  1437 
LAST  1437 
LAST  1437 
LAST  1437 


REF  6 LAST  1437 

REF  5 LAST  1437 

REF  2 LAST  1403 

REF  1 

REF  1 

REF  163 


LAST  1435 
LAST  1437 
LAST  1430 
LAST  1436 
LAST  1430 


LAST  1437 
LAST  1437 


LAST  1437 
LAST  1437 


LAST  1435 
LAST  1436 
LAST  1437 
LAST  1435 
LAST  1435 


17.2300 

17.2301 

17.2302 

17.2303 

17  ,2304 
17,23C5 

17.2306 

17.2307 

17. 2310 

17.2311 

17.2312 

17.2313 

17.2314 
17, 22)5 

17.2316 

17.2317 
17,2320 
17  ,2321 

17.2322 

17.2323 
17  ,2324 

17.2325 

17.2326 

17.2327 
17,2330 
17  ,2331 

17.2332 

17.2333 
17  ,2334 

17.2335 

17.2336 

17.2337 
17,2340 
17  ,2341 

17.2342 

17.2343 
17  ,2344 

17.2345 

17.2346 


4 1736  0 
7 2351  0 
55'461  1 
1 3112  1 


+ QMIN 


-QMIN 


+ RM  IN 


3 3136  0 
55'525  C 

4 3136  1 
1 2320  0 
4 3136  1 
55'525  0 
3 3136  0 
1 2220  0 

3 3136  0 
1 2317  1 

4 3136  1 -RMIN 
55*525  0 
55*526  0 MINOR 
3 2350  0 
55*477  0 
3 4753  1 
55'46)  1 
55'5C5  1 MINRTN  TS 
3 0111  0 
7 4737  1 

0 C006  1 

1 234]  1 
51'5C5 


11 ' 525  0 

3 4776  0 
1 2337  C 

4 4776  1 
51*  505  0 
55»525  C 
3 0111  0 
7 4742  0 
1C  000  0 
3 4753  1 
£ 4752  0 
55'742  0 


MIMRET  CA 


CA  TEMP31 

MASK  BIT6 

EXTEND 

BZF  -RMIN 

TCF  XTRANS 


TEMP31 

0CT63 

OLDQRMIN 

XTRANS 

14MS 

TJU 

1 4MS 

MINOR 

14MS 

TJU 

) 4MS 

MINOR 

14MS 

*2 

14MS 

TJU 

TJV 

MINADR 
F ETJACR 
ONE 

OLOQRM  IN 
AXI SCTR 
DAP60CLS 
CSMCCCKC 

MIMRET 
AXISCTR 
TJU 
60MS 
+ 2 

60MS 
AX  ISCTR 
TJU 

DAPBOOLS 

AORBTRAN 

A 

ONE 

TWC 

NUMBERT 


C S 
TCF 


TCF 

CS 

TS 


TS 


CA 

MASK 

EXTEND 

BZF 

INDEX 

CCS 

CA 

Tf  F 


IF  DOCKED, USE  60MS  MINIMUM  IMPULSE 


GAP; 

L 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

AC173 

A0174 

0175 

0176 

0177 

017P 

0179 

0180 

0181 

0162 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

R0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

020^ 

0205 

0206 

0207 

0208 

0209 

0210 
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,025  PAGE  1438 


Q,R-AXES  RCS  ALTOPILCT 


USER'S  PAGE  NOo  5 E6  S4 


REF 


17,2347  1 2T56  C 


TCF  AFTERTJ 


REF 

REF 

REF 


3 LAST  256 
1 


4776 

17,2350  C2325 


60MS 
MI NAOR 


1 


17,2351  00063  1 OCT63 

17,3136  14MS 


= 0CT140 

GENACR  MINBTN 
GCT  63 

= +TJMINT6 


REF  37  LAST  1435 
REF  1 


17.2352  3 475)  0 TRANS4 

17.2353  1 2216  1 


CA 

TCF 


FOUR 

TSNUMBRT 


RATE  COMMAND  MODE: 


DESCRIPTION  (SAME  AS  P-AXIS) 


REF 

REF 

REF 


LAST  1434 
LAST  1424 
LAST  1424 


REF  1 

REF  6 LAST  1434 
REF  5i  LAST  1437 


REF  1 

REF  34  LAST  1426 
REF  45  LAST  1429 
REF  46  LAST  1438 
REF  I 

REF  6 LAST  1425 
REF  62  LAST  1436 


17.2355  4 4753 

17.2356  55'63C 

17.2357  3 4735 

17.2360  7 1443 

17.2361  0 0006 

17.2362  1 2377 

17.2363  3 474C 

17  ,2364  7 Tin 

17.2365  0 0006 

17.2366  1 2710 

17.2367  4 4743 

17.2370  7 1262 

17.2371  55'262 

17.2372  1 2374 
4771 

4753 

17.2373  00056 


0 

0 

I 

1 

1 

1 

1 

0 

1 

I 

I 

1 

1 

1 

1 


I 


CFEKST  IK  TS 
CS 
TS 
CA 
MASK 
EXTEND 
ezF 
CA 
MASK 
EXTEND 

ez  F 

CS 

MASK 

TS 

TCF 

40CYCL 

1/lOS 

LINRAT  DEC 


INGTS 

ONE 

COTRCLER 
BIT)  5 
CH31TFMP 


RHCACTIV 
OURRCBI T 
OAPBOOLS 

STILLRCS 

B IT9 

RCSFLAGS 

PCSFLA6S 

DAMPING 

CCT50 

BITl 

46 


NOT  IN  GTS  WHEN  IN  ATT  HOLD 
1/ACCS  WILL  DO  THF  NULLING  DRIVES 
COME  BACK  TC  RCS  NEXT  TIME 


BRANCH  I F OUT  OF  DETENTc 

*IN  DETENT#  CHECK  FCR  MANUAL  CONTROL 
LAST  TIMEc 


61  T 9 IS  0* 


REF  291 
REF  2 
REF  3 
REF  4 


REF  1 

REF  5 
REF  280 

FEF  7 
REF  3 


LAST  1436 
LAST  14?6 
LAST  1438 
LAST  1438 


LAST  1438 
LAST  1429 

LAST  1426 
LAST  1425 


17.2374 

17.2375 

17.2376 

17.2377 
17, 24C0 

17.2401 

17.2402 

17.2403 

17.2404 

17.2405 

17.2406 

17.2407 
17,2410 
17  ,2411 

17.2412 

17.2413 

17 .2414 


3 4755  I 
£5’462  I 
55'463  0 
11*462  1 
1 2403  0 
1 2403  0 
I 2403  0 
6 0000  I 
6 0000  1 

6 2373  1 

n 0006  1 

7 1462  1 

3 0001  0 
0 0006  1 
7 1444  C 
57*455  1 

4 QCOO  0 


DAMPING  CA 
TS 
TS 

RHCACTIV  CCS 
TCF 
TCF 
TCF 

DOUBLE 

DOUBLE 

AO 

EXTEND 

MP 

CA 

EXTEND 

MP 

XCH 

COM 


ZERO 

SAVEHAND 
SAVEHANO 
S AVEHANC 
♦ 3 
+ 2 
+ 1 


LINRAT 

SAVEHANC 

L 

STI KSENS 
QLAST 


Q,R  MANUAL  CONTROL  WC  = A*(B+|0|»*D 


WC  = COMMANDED  ROTATIONAL  RATE 
A = QUADRATIC  SENSITIVITY  FACTOR 
B = L INEAP /QUADRATIC  SENSITIVITY 
jD|=  ABSo  VALUE  CF  DEFLECTION 
D = HAND  CCNTBCLLER  DEFLECTION 

COMMAND  0 RATE 


SCALED  45  DEG/SEC 


GAP: 

L 

0211 

0212 

0213 

0214 

0215 

0216 

02X7 

0218 

0219 

0220 

022) 

0222 

0223 

0224 

0225 

0226 

0227 

022P 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

02  5). 

0252 

0253 

02  54 

0255 

02  56 

0257 

0258 

0259 

0260 
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USER'S  PAGE  NOo 


b025  page  1439 
E6  S4 


REF  4 
REF  5 
REF  6 


REF  2 


REF  7 
REF  28) 


REF  8 
REF  3 

REF  4 
REF  3 
REF  5 
REF  14 
REF  1 
REF  5 
REF  9 
REF  1 
REF  2 
REF  2 
REF  ) 
REF  6 


REF  6 


RFF  1 
REF  4 


REF  7 


REF  2 
REF  47 
REF  2 


REF  3 
REF  2 
REF  1 


LAST  1438 
LAST  1416 
LAST  )438 


LAST  1438 

LAST  l<i39 
LAST  1438 


LAST  1438 
LAST  142  5 

LAST  1439 
LAST  134 
LAST  1^39 
LAST  1433 

LAST  1439 
LAST  1433 

LAST  1439 
LAST  1434 

LAST  1439 


LAST  1427 


LAST  1439 


LAST  1439 


LAST  1439 
LAST  1436 
LAST  1425 


LAST  1439 
LAST  1438 


17.2416 

17. 2417 

17.2420 

17.2421 

17. 2422 
17  ,2423 

17.2424 

17.2425 

17.2426 

17.2427 
17,2430 
17  ,2431 
17,2432 
17  ,2433 

17.2434 

17.2435 

17 .2436 

17.2437 

17.2440 

17.2441 

17. 2442 
17  ,2443 

17.2444 

17 .2445 

17.2446 

17.2447 
17  ,2450 

17.2451 

17.2452 

17.2453 

17.2454 

17.2455 
17  ,2456 
17,2457 

17.2460 

17.2461 

17.2462 

17 .2463 

17.2464 

17.2465 

17.2466 

17.2467 

17.2470 

17.2471 

17. 2472 

17.2473 

17.2474 

17.2475 

17.2476 


55' 740  1 
ll'463  0 
1 2423  1 
1 2423  1 
1 2423  1 

6 onoo  1 
6 ooon  I 

6 2373  1 
0 0006  1 

7 1463  O 

3 0001  0 
0 0006  1 
7 1444  0 
57*456  I 

4 0000  0 
6 1456  I 
£5‘741  0 
4 1455  0 
6 1422  1 
55*436  0 
4 1456  0 
6 1423  0 
55*437  1 
53*437  I 
0 3200  0 
52*427  0 
11*740  1 
C 2454  0 
C 2454  C 

0 2454  0 
6 1476  0 
0 0006  1 
6 2460  1 

1 2476  1 
11*741  0 
0 2464  0 
0 2464  0 

0 2464  0 
6 1476  0 
0 0006  1 

6 2470  0 

1 2476  1 
3 1262  0 

7 4741  0 
C 0006  1 
1 2475  1 
1 2 500  1 
1 2710  1 
3 4771  1 


ENTEROR 


AD  OLAST 

TS  DAPTEMPS 

CCS  SAVEHAND  +l 

TCF  +3 

TCF  +2 

TCF  +1 

DOUBLE 

CCU0LE 

AO  LINRAT 

EXTEND 

MP  SAVEHAKC  ♦! 

CA  L 

EXTEND 

MP  STIKSENS 

XCF  RLAST 

COM 

AO  RLAST 

TS  DAPTEMP4 

CS  OLAST 

AD  OMEGAO 

TS  QRATECIF 

CS  RLAST 

AD  OMEGAR 

TS  RRATEDIF 

OXCH  ORATEDIF 

TC  ROT-TOUV 

DXCH  URATEOIF 

CCS  DAPTEMP3 

TC  +3 

TC  +2 

TC  +1 

AC  -RATECB 

EXTEND 
BZMF  +2 

TCF  ENTERUV  -2 

CCS  DAPTEMP4 

TC  +3 

TC  +2 

TC  +1 

AD  -RATECB 

EXTEND 
eZMF  +2 

TCF  ENTERUV  -2 

CA  RCSFLAGS 

MASK  ORBIT 

EXTEND 
B7F  +2 

TCF  ENTERUV 

TCF  STILLRCS 

CA  40CYCL 


INTERVAL* 


TRANSFORM  RATES  FRCM  C,P  TO  U,V  AXES 


CHECK  IF  0 COMMAND  CHANGE  EXCEEDS 
BREAKOUT  LEVEL*  IF  NOT,  CHFCK  R. 


BREAKOUT  LEVEL  EXCEEDED*  DIRECT  RATE, 
R COMMAND  BREAKOUT  CHECK* 


BREAKOUT  LEVEL  EXCEEDED*  DIRECT  RATE* 
BREAKOUT  LEVEL  NOT  EXCEEDED*  CHECK  FOR 
DIRECT  RATE  CONTROL  LAST  TIME. 


CONTINUE  DIRECT  PATE  CONTROL* 
PSEUDO-AUTO  CONTRCLo 


GAP:  ASSEPDLE  REVISION  131  CF  AGC  PRCCRAM  LUMINARY  BY  NASA  202)112-091 

L Q,R-AX£S  RCS  AUTOPILOT 


)7:53  DEC*  19,1969  LPDAP  *025  PAGE  1A40 
USER'S  PAGE  NO*  7 E6  SA 


0261  PEF  2 

0262 

0263  REF  59 

0264  REF  13 

0265 

0266  , REF  292 

0267  REF  6 

0268  PEF  7 

0269  REF  6 

0270  REF  7 

0271  REF  2 

02  72 

0273 

0274 

0275  REF  2 

0276 

0277  REF  1 

0278  REF  1 

0279 

0280 
0281 

0282  REF  3 

0283 

0284 

0285  REF  1 

0286  REF  293 

0287  REF  2 

0286  REF  2 

0289  REF  3 

0290 

0291 

0292 

0293  REF  4 

0294 

0295  REF  1 

0296  REF  294 

0297  REF  3 

0298  REF  3 

0299 

0300 

0301  REF  46 

0302  REF  3 

0303  PEF  49 

0304 

0305  REF  4 

0306  REF  50 

0307  REF  51 

0308  REF  1 

0309  REF  2 

0310  REF  166 


LAST  1414 

LAST  1436 
LAST  1436 

LAST  1438 
LAST  1425 
LAST  1440 
LAST  1425 
LAST  1440 
LAST  1439 


LAST  1427 


last  3440 


LAST  1440 
LAST  1440 
LAST  1440 
LAST  144C 


LAST  1440 


LAST  1440 
LAST  1440 
LAST  1440 


LAST  1439 
LAST  1439 
LAST  1440 

LAST  1440 
LAST  1440 
LAST  1440 

LAST  1437 
LAST  1438 


17,2477 

17,2500 

.17,2501 

17.2502 

17.2503 
17,25C4 

17.2505 

17.2506 

17.2507 

17 .2510 

17.2511 

17.2512 

17.2513 

17. 2514 

17.2515 

17.2516 

17.2517 
17 ,25  20 

17.2521 

17.2522 

17.2523 

17.2524 

17.2525 

17.2526 

17.2527 

17.2530 

17.2531 

17.2532 

17.2533 
17, 2934 

17.2535 

17.2536 

17.2537 
17 ,25  40 

17.2541 

17 .2542 

17.2543 

17.2544 

17.2545 

17.2546 

17.2547 

17.2550 

17.2551 

17.2552 

17.2553 

17.2554 

17.2555 

17.2556 

17.2557 
17,2560 


55'457  1 
C 0004  0 
0 4674  0 
40154  0 

0 0003  1 
3 4755  1 
55'450  0 
55'45l  1 
55'452  1 
55' 453  0 
11 '426  1 

1 2515  0 
1 251  5 0 
1 2515  0 
6 1476  0 

0 0C06  1 
6 2533  0 
11'427  0 

1 2524  1 
X 2524  I 
1 2524  1 
6 1476  0 
0 0006  1 
6 2530  0 
I 2544  1 
3 4755  3 
55*427  0 
1 2544  1 
11*427  0 
C 2537  1 
0 2537  I 
0 2537  1 
6 1476  0 
0 0006  1 
6 2553  0 
3 4755  1 
55*426  1 

3 1457  0 
0 0006  1 

6 2553  0 

4 1262  I 

7 4741  0 
27*262  1 
0 2556  0 
4 4741  0 
7 1262  1 
55*262  1 
3 2622  0 
55*477  0 
3 4753  1 


ENTERUV 


vce 


TS  TCOR 

INHINT  CIRECT  RATE  CONTROL* 

TC  I6NKCALL 

FCADR  ZATTEROR 

RELINT 
CA  ZERC 

TS  DYERROR 

TS  DYERRGR  +1 

TS  DZERROR 

TS  DZERROR  +1 

CCS  URATEOIF 

TCF  +3 

TCF  +2 

TCF  +1 

AD  TARGETOB  IF  TARGET  DB  IS  EXCEEDED,  CONTINUE 

EXTEND  DIRECT  RATE  CONTROL* 

BZMF  VOB 

CCS  VRATEOIF 

TCF  +3 

TCF  +2 

TCF  +1 

AO  TARGETOe 

EXTEND 

BZMF  +2 

TCF  QRTIME 

CA  ZERO 

TS  VRATEDIF 

TCF  ORTIME 

CCS  VRATECIF 

TC  +3 

TC  +2 


QRTIME 


TCPSEUCC 


TC  +1 

AO  TARGETOB 

EXTEND 

BZMF  TOPSEUOr 

CA  ZERO 

TS  URATECIF 

CA  TCCR 

EXTEND 
eZMF  +5 

CS  RCSFLAGS 

MASK  ORBIT 

AOS  RCSFLAGS 

TC  +4 

CS  ORBIT 

MASK  RCSFLAGS 

TS  RCSFLAGS 

CA  HANDACR 

TS  RETJADR 

CA  ONE 


IF  TARGET  OB  IS  EXCEEDED,  CONTINUE 
DIRECT  RATE  CONTRDLc  IF  NOT,  FIRE  AND 
SWITCH  TO  PSEUDO-AUTO  CONTROL  ON  NEXT 
PASS* 

DIRECT  RATE  TIME  CFECK* 

BRANCH  IF  TIME  EXCEEDS  4 SEC* 


BIT  11  IS  1* 


BIT  11  ISO* 


GAP : 

L 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

A0345 

A0346 

A0347 

A0348 

0349 

0350 

0351 

0352 

0353 


ASSEMBLE  REVISION  131  CF  AGO  PFCGRA^'  LUMINARY  BY  NASA  2021112-C91 


17:53  DECo  19,1969 


LROAP 


025  PAGE  1441 


0,R-AXES  RCS  ALTOP  ROT 

REF  6 LAST  1437  17,2561  55'505  1 BACKHAND  TS 


REF  38  LAST  1438 
REF  9 LAST  1437 


3 4751  0 
55‘742  C 


AXISCTR 

FOUR 

NUM6ERT 


USER'S  PAGE  NOo  8 E6  S4 


REF  7 LAST  1441 
PEF  3 LAST  1404 

REF  39  LAST  1441 
REF  6 LAST  1441 
REF  LAST  1441 
REF  1 


17.2564  51*505  0 

17.2565  51'534  1 

17.2566  1 2567  0 

17  ,2567  3 4751  0 

17.2570  51' 5C5  0 

17.2571  55*  534  0 

17.2572  1 3034  I 


INDEX  AXISCTR 
INDEX  SKIPU 
TCF  +1 
CA  FOUR 

INDEX  AXISCTR 
TS  SKIPU 
TCF  LQOPER 


REF  9 
REF  4 
REF  295 


REF  167 
REF  10 
REF  1 


LAST  1441 
LAST  1440 
LAST  1440 

LAST  1440 
LAST  1441 


17.2574 

17.2575 

17.2576 

17.2577 

17.2600 

17.2601 


51'505  0 
11*426  1 
3 4755  1 
1 2600  1 
3 4753  1 
51*505  0 
6 3755  0 


INDEX  AXISCTR 
CCS  URATEDIF 
CA  ZERO 

TC  F +2 
CA  ONE 

INDEX  AXISCTP 
AD  AXISDIFF 


AXIS  OUAMTY 

-U  1/JETACC-AnSU 

+U  1 /JETACC+AGSU 

-V  1 /JETACC-AOSV 

+V  l/JETACC+APSV 

= 2 JET  ACCELERATION  (1 


FOR  FAILJ 


REF  5C4  LAST  1437 
REF  1 

REF  11  LAST  1441 
REF  5 LAST  1441 
REF  409  LAST  1432 
REF  505  LAST  1441 
REF  410  LAST  1441 
REF  506  LAST  1441 

REF  411  LAST  1441 
PEF  12  LAST  1441 
REF  e LAST  1437 
REF  2 LAST  1436 


17.2602  5C  000  1 

17.2603  4 1570  0 

17.2604  0 0006  1 

17.2605  5 1505  0 

17.2606  7 1426  I 

17.2607  54  002  1 

17. 2610  20  OOi  1 

17.2611  6 0002  0 

17.2612  54  000  0 

17. 2613  1 2615  0 

17.2614  3 0002  0 

17.2615  51'505 

17.2616  55'525  0 

17.2617  1 2756  0 


INDEX  A 

CS  1/ANET2  ♦! 
EXTEND 

INDEX  AXISCTR 
MP  URATEDIF 

TS  0 

DAS  A 

AD  0 

TS  A 

TCF  +2 

0 

AX  I SCTR 
TJL 

AFTERTJ 


CA 

0 SETTIME  INDEX 
TS 
TCF 


URATEDIF  IS  SCALED  AT  PI/4  PAO/SEC 
JFT  TIME  IN  A SCALED  32  SEC 

OVERFLOW  SKIP 

RIGHT  SIGN  AND  BIGGER  THAN  150MS 
SCALED  AT  10867  WHICH  IS  CLOSE  TO  10o24 


REF  296  LAST  1441 
REF  1 


17.2620  2 4755  1 ZEROTJ 

17.2621  1 2615  0 


CA  ZERP 

TCF  SETTIME 


REF 


17,2622  02561 


HANOACR  GENAOR  BACKHAND 


REF  4 LAST  858 
REF  55  LAST  1438 
REF  507  LAST  1441 
REF  1 

REF  2 LAST  1404 


17.2623  3 4736  1 

17.2624  7 cm  I 

17.2625  10  000  0 

17.2626  1 2141  0 

17.2627  11'502  0 


GTS  WILL  BE  TRIED  IF 
1,  USEQRJTS=  0, 

2*  ALLCWGTS  POS, 

3o  JETS  ARE  0FF(0,P-AXES) 
TRYGTS  CAF  USEORJTS 
MASK  OAPBCCLS 
CCS  A 

TCF  RCS 

CCS  ALLCWGTS 


IS  JET  USE  MANDATORY-  (AS  LONG  AS 

USEORJTS  BIT  IS  NOT  BIT  15,  CCS  IS  SAFE  I 


NO®  DOES  AOSTASK  CK  CONTROL  FOR  GTS? 


gap;  assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  3Y  NASA  2021112-091 


L 0»R-AXES  PCS  AUTOPILOT 


0354 

0353  REF  2 LAST  14-^1 

0356 

0357  REF  6 LAST  1405 

0358  REF  508  LAST  1441 

0359  REF  1 

0360 

0361  REF  1 

0362 


17.2630 

17. 2631 
17,263? 

17.2633 

17.2634 

17.2635 

17.2636 

17.2637 
17,2640 


1 2632  0 
1 2141  0 

0 0006  I 
Cr  005  1 
10  000  0 

1 2641  1 

C CCC6  1 GOTOGTS 
3 2654  1 
52  C06  0 


TCF  +2 

TCF  RCS 

EXTEND 

READ  r.HANS 

CCS  A 

TCF  CHKINGTS 

EXTEND 

OCA  6TSCA0R 

CTCB 


0363 

0364 

0365 

0366 
C367 
0366 

0369 

0370 

0371 

0372 


REF  3 

REF  3 

REF  60 
REF  1 

REF  297 
REF  4 
REF  4 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 


1438  17,2641  11'632 

17,2642  1 2644 

1442  17,2643  1 2141 

17,2644  C 0004 

1440  17,2645  0 4674 

17.2646  43327 

17.2647  C 0003 

1441  17,2650  3 4755 

1442  17,2651  55*632 

1442  17  ,2652  1 2141 


0 

1 

0 

0 

0 

0 

1 

1 

0 

0 


CHKINGTS  CC  S 
TCF 
TCF 
INHINT 
TC 

CADR 

RELINT 

CAF 


INGTS 

+2 

PCS 


IBNKCALL 
T1 REGMBL 

ZERO 

INGTS 

RCS 


0373  REF  26  LAST  1434  66,1634 

0374  RFF  1 17,2653 

C374  ref  1 17,2654 


EeANK=  CDUXD 

03076  0 GTSCAOR  2CADF  GTS 
42106  0 


17:53  CECo  19,196' 


LMDAP 


,025  PAGE  1442 


USER*  S PAGE  NC^  9 E6,  S4 


HAS  THE  TRIM  GIM6AL  CONTROLLING 

YES,  SET  UP  A DAMPED  NULLING  ORIVEc 
NCo  NULLING  WAS  SET  UP  BEFORE*  DO  RCS 


GAP: 

L 

P0375 

0377 

0378 

0379 

0380 

0381 

0382 

03  83 

0384 

0385 

0386 

0387 

0368 

0389 

0390 

03  91 

0392 

0393 

03  94 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-091 


17:53  DEC«  19,1969  LMDAP 


025  PAGE  1443 


Q,R-flXES  RCS  AUTOPILOT  USER'S  PAGE  NC,  10  E6  S4 

SLBROLTINE  TO  COMPUTE  0,R-AXES  ATTITUDE  ERRORS  FOR  USE  IN  THE  RCS  AND  GTS  CONTROL  LAWS  AND  THE  OISPLAYSc 


REF  14 

REF  8 
REF  27 


REF  i 
REF  4 
REF  17 

REF  7 
REF  9 

REF  7 
REF  3 
REF  5 
REF  4 


LAST  1A30 

LAST  1430 
LAST  1427 


LAST  1416 
LAST  1430 
LAST  1413 

LAST  1414 
LAST  1419 

LAST  1416 
LAST  1400 
LAST  1A43 
LAST  1436 


17,2655  2C  033  I QERRCALC  CAE  COUY 


17.2656  0 0006  1 

17.2657  21*635  1 

17.2660  55'736  0 

17.2661  0 0006  1 

17.2662  7 1415  1 

17.2663  55'751  1 

17.2664  30  034  0 

17.2665  C 0C06  1 

17.2666  21'636  1 

17.2667  55'737  I 

17,2670  C 0006  1 
17  ,2671  7 1417  0 

17.2672  6 1275  0 

17.2673  6 1751  C 

17.2674  57*450  ] 


EXTEND 

MSU  CDUYO 

TS  OAPTEMPl 

EXTEND 

MP  M21 

TS  E 

CAE  CDUZ 

EXTEND 

MSU  CDUZD 

TS  0APTEMP2 

£ XTENO 

MP  M22 

AD  OELOEROR 

AD  E 

XCF  OERROR 


Q-ERROR  CALCULATION 

COU  ANGLE  - ANGLE  DESIRED  (Y-AXISI 
SAVE  FOR  RERPCALC 

(C0UY-C0UY0J4M21  SCALED  AT  PI  RADIANS 

SECOND  TERM  CALCULATION: 

CDL  ANGLE  -ANGLE  DESIRED  (Z-AXIS> 

SAVE  FOR  RERPCALC 

(CDLZ-CDUZD )4M22  SCALED  AT  PI  RADIANS 
KALCMANU  INERFACe  ERROR 

SAVE  O-ERROR  FOR  EIGHT-BALL  DISPLAYo 


REF  28 

REF  4 
REF  6 
REF  10 

REF  5 
REF  3 
REF  7 
REF  4 
REF  412 


LAST  1442 

LAST  1416 
LAST  1443 
LAST  1443 

LAST  1416 
LAST  1400 
LAST  1443 
LAST  1436 
LAST  1441 


17,2675  31*736  1 RERRCALC  CAE  DAPTEMPl 


17.2676  0 0006  1 

17.2677  7 1416  1 

17.2700  55*751  1 

17.2701  31 *737  0 
17,27C2  C 0006  I 

17.2703  7 1420  1 

17.2704  6 1276  0 

17.2705  6 1751  0 

17.2706  57*452  0 

17,27C7  0 0002  0 


EXTEND 

MP  M3J 

TS  E 

CAE  0APTEMP2 

EXTEND 

MP  M32 

AO  DELRFRCP 

AO  E 

XCF  RERROR 

TC  Q 


R-ERROR  CALCULATION: 

COU  ANGLE  -ANGLE  DESIRED  {Y-AXIS> 
(C0UY-C0UYD)#M31  SCALED  AT  PI  RADIANS 

SECOND  TFRM  CALCULATION: 
ecu  ANGLE  -ANGLE  DESIRED  (Z-AXIS) 
(CDUZ-C0UZ0)4M32  SCALED  AT  PI  RADIANS 
KALCMANU  INERFACE  ERROR 

SAVE  R-BRROR  FOR  EIGHT-BALL  CISPLAYo 


GAP: 

L 

P0^04 

0406 

0^07 

0408 

C4C9 

C410 

0411 

A041  2 

A0413 

0414 

0415 

0416 

0417 

041  e 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

042  8 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

043  6 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

044h 

A0447 

A0448 

A0449 


ASSEMBLE  REVISION  131  OF  AGC  PRCGPAP  LUMINARY  BY  NASA  2021112-091 


17:53  OeC*  19,1969  LMOAP 


025  PAGE  1444 


Q,R-AXES  PCS  AUTCPILCT 
"ATTSTEER"  I S THE  ENTRY 


LSER'  S PAGE  NC<,  11  E6  S4 

PCINT  FCR  G,R-^XES  (U,V-AXES)  ATTITUCE  CONTROL  USING  THE  REACTION  CONTPCL  SYSTEM 


LAST  1439  17,2710 


REF 

REF  5 LAST  1443 
REF  5CS  LAST  1442 
REF 
REF 

LAST 


REF 


LAST  1443 
LAST  1439 
132 


17.2710  3 1452  0 

17.2711  22  OOC  I 

17.2712  3 1450  1 

17 .2713  0 3200  0 

17.2714  53*751  1 


ATTSTEER  EQUALS  STILLPCS 

RERROR 
A 

OERROR 
ROT-TGUV 
UERRCR 


*'STILLRCS"  IS  THE  PCS  EXIT  FROM  TRYGTSo 


REF  1 
REF  3 
REF  168 
REF  13 


REF 

REF 


14 


REF  40 
REF  15 
REF  6 
REF  2 
REF  16 
REF  3 
REF  8 
REF  17 
REF  12 
REF  2 
REF  56 
REF  10 
REF  510 

REF  2 
REF  3 
RFF  57 
REF  5 
REF  511 
REF  5 

REF  61 


REF 

REF 


LAST  1441 
LAST  I44i 
LAST  1441 


LAST  1444 
LAST  1.441 


LAST  1434 
LAST  131 
LAST  1441 
LAST  1437 
LAST  1444 

LAST  1430 
LAST  1441 

last  14X.4 

LAST  1441 
LAST  1444 
LAST  1438 


LAST  1442 
LAST  1430 


LAST  1444 
LAST  1441 


17.2715 

17.2716 

17.2717 

17. 2720 

17 .2721 

17. 2722 

17.2723 

17.2724 

17.2725 
17  ,2726 
17,2727 

17.2730 

17 .2731 

17.2732 

17.2733 

17.2734 

17. 2735 
17  ,2736 
17,2737 
17,2740 
17  ,2741 
17, 2742 
17,27^*3 

17.2744 

17.2745 
17  ,2746 
17,2747 

17.2750 

17.2751 

17. 2752 

17.2753 

17.2754 

17. 2755 


3 3142  0 
55*477  0 

2 4753  I 
55*505  1 
51*505  0 
51*534  1 
1 2724  0 

3 4751  0 
51*505  0 
55*534  0 
1 3034  I 
51*505  C 
3 1750  1 
55*751  1 
51 *505  0 
3 1426  0 
55*427  r 

3 0111  0 
7 4737  1 
1C  000  0 
1 2744  0 
C 3304  C 
1 2756  0 

4 0111  I 
7 4736  0 
10  000  0 
55*63C  1 
0 0004  0 
C 4674  0 

43736  1 
0 0003  1 
3 4751  0 
55*742  0 


PREPARES  CALL  TO  TJETLAW  (OR  SP  SR  C S ( OOC  K6D  ) ) 
PREFORMS  SKIP  LOGIC  CN  U OR  Y AXIS  IF  NEEOEDc 
TJLAW  CA  TJLAV.ADR 

TS  RETJAOR 

CA  ONE 

TS  AXISCTR 

INDEX  AXISCTR 
INDEX  SKIPU 
TC  F +1 
CA  FOUR 

INDEX  AXISCTR 
TS  SKIPU 

TCF  LOCPER 
INDEX  AXISCTR 
CA  UERROR 

TS  E 

INDEX  AXISCTR 
CA  OMEGAU 

TS  EDOT 

CA  DAPBOOLS 

CSMCCCKC 


MASK 

CCS 

TCF 

TC 

TCF 

CS 

MASK 

CCS 

TS 

INHINT 

TC 

CADR 
REL  INT 
CAF 


TJETLAk, 

AFTERTJ 

OAPBCCLS 

USEQRJTS 

A 

COTRCLEP 

IBNKCALL 

SPSRCS 

FOUR 

NUMBERT 


COCKEDo  IF  GIM8AL  USABLE  DO  GTS  CONTROL 
CN  THE  NEXT  PASS® 

USEQRJTS  BIT  MUST  NCT  BE  BIT  15c 
GIMBAL  USABLEc  STORE  POSITIVE  VALUE® 


DETERMINE  RCS  CONTROL 


ALWAYS  CALL  FOR  2-JET  CONTROL  ABOUT  U,V; 
FALL  THROUGH  TO  JFT  SELECTION,  ETCc 


C,R-JeT-S ELECT  ION-LOGIC 


,V  AND  TRANS®  CNLY  IF  SFT  IN  A DPS  BURN 


gap:  assemble  revision  121  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
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L Q,R-AXFS  RCS  ALTOPILCT 


USER'S  PAGE  NCo  12  F6  S4 


A0450 

A0451 

A0452 


TJUtTJV  JET  TIME  SCALED  10*24  SECo 

NUMBERT  INDICATES  NUMBER  OF  JETS  AND  TYPE  OF  POLICY 

RETJADR  WhERE  TO  RETURN  TO 


A0453 

A0454 

A0455 


OUTPUT: 


NO»U(V}J£TS  BATE  OERIVATIGN  FEEDBACK 
CHANNEL  5 

SKIPUtSKIRV  FCR  LESS  THAN  T50MS  FIRING 


A0456 

A0457 

A0458 

A0459 


NOTES:  IN  CASE  OF  FAILURE  IN  DESIRED  ROTATION  POL  ICY , "ALL " UNFAILED 

JETS  OF  THE  DESIRED  POLICY  ARE  SELECTED*  SINCE  THERE  ARE  ONLY 
TkO  JETS,  THIS  MEANS  THE  OTHER  ONE  OR  NONE,  THE  ALARM  IS  SENT 
IF  NONE  CAN  BE  FOUND* 


AU460 

A0461 


TIMES  LESS  THAN  1.4  MSEC  ARE  TAKEN  TO  CALL  EOR  A SINGLE-JET 
MINIMUM  IMPULSE,  V»ITH  THE  JET  CHOSEN  S EMI-PANCCMLY* 


0462  REF 

0463  REF 

0464 

0465  REF 

0466  REF 

0467  REF 

0468 

0469  REF 

0470  REF 

0471  REF 

0472 

0473  REF 


34  LAST  1429 
1 

1 

23  LAST  1435 
15  LAST  1435 

2 LAST  1445 
58  LAST  1444 

5 LAST  1435 

3 LAST  1437 


17.2756  3 0101  1 

17.2757  7 4737  1 

17.2760  0 0006  1 

17.2761  1 2772  0 

17.2762  4 0106  1 

17.2763  7 4737  1 

17.2764  0 0006  1 

17.2765  1 2772  C 

17  ,2766  3 0111  0 

17,2767  7 4744  0 

17.2770  C 0006  1 

17.2771  1 3112  1 


AFTERT  J 


CA  FLAGWRD5 

MASK  SNUFFEIT 

EXTEND 

BZF  OORCTAT 

CS  FLGWROlO 

MASK  APSFL8IT 

EXTEND 

BZF  DOROTA7 

CA  0AP600LS 

MASK  ORIFTBIT 

EXTEND 

BZF  XTRANS 


IF  SNUFFBIT  SET  DUPING  A DPS  BURN  GO  TO 
XTRANS;  THAT  IS,  INHIBIT  CONTROL* 


0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 
0402 
0483 
0464 


REF  90 
REF  282 
REF  18 
REF  9 

REF  1 

REF  2 

REF  169 
REH  5 


LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 


1437 

1439 

1444 

1441 


1445 

1444 

1429 


17. 2772  3 4752  0 

17.2773  54  001  1 

17.2774  51*505  0 

17.2775  11'525  0 

17.2776  1 3003  0 

17.2777  1 3C26  1 

17.3000  1 3002  1 

17.3001  1 3026  1 

17.3002  22  007  0 

17.3003  6 4753  1 

17.3004  55'736  0 


OOROTAT  CAF 
TS 

INDEX 

CCS 

TCF 

TCF 

TCF 

TCF 

ZL 

AD 

TS 


TWC 

L 

AX  I SCTR 

TJU 

+5 

NORCTAT 
+ 2 

NOPCT  AT 

ONE 

ABSTJ 


0485 

0486 

0487 


REF  19  LAST  1445 
REF  283  LAST  1445 
REF  8 LAST  1435 


17,3005 
17, 31^06 
17,300? 


3 1505 

6 cool 

55'743 


0 

n 

1 


CA  AXISCTR 

AO  L 

TS  ROTIN'DEX  0 12  3 = -u  -V  -4U  tV 


0488  REF  6 

0489  RFF  I 

0490 

0491  REF  1 


LAST  1445 


17.3010 

17.3011 

17. 3012 
17  ,3013 


3 1736  1 
6 3137  1 
C 0006  1 
6 3037  n 


CA  ABSTJ 

AO  -150MS 

E XTEND 

BZMF  OOSKIP 


gap; 
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0492  REF 


LAST  1435 


17,3014  0 3225  1 


TC  SELCTSLB 


0493  REF  20  LAST  14*5 

0494  RFF  1 

0495  REF  284  LAST  1445 


17.3015  51*505  0 

17.3016  3 3J34  I 

17.3017  54  001  1 


INDEX  AXISCTR 
CA  INDEXES 
TS  L 


0496  REF  7 LAST  1436 

0497 

0498  REF  285  LAST  1446 

0499  REF  4 LAST  1429 


17.3020  3 1740  0 

17.3021  C 0004  0 

17  ,?022  50  001  0 

17,3023  C 5744  0 


CA  POLYTEMP 

INHINT 
INDEX  L 
TC  WRITER 


0500 

0501  RDF  1 


17.3024  C 0003  1 

17.3025  1 3100  1 


RELINT 

TCF  FEEDBACK 


0502 

0503 

0504 

0505 

0506 


LAST  1446 
LAST  14^6 

LAST  1444 
LAST  1446 


17.3026 

17.3027 

17.3030 

17.3031 

17.3032 


51*5C5  0 
3 3134  1 
C 0004  0 
5C  OCO  1 
n 5743  1 


NOROTAT  INDEX 


INHINT 
INDEX  A 
TC  WRITER 


0507 

0508  REF  22 

0509  REF  t 

0510  REF  1 

0511  REF  7 

0512  REF  2 

0513 

0514  REF  1 


17,3033 
LAST  1446  17,3034 

last  1444  17,3035 

17,3036 
LAST  1445  17,3037 

LAST  1438  17,3040 

17,3041 
17  ,3042 


C 0003  1 

11'5C5  1 LOOPER 

0 1477  1 

1 3270  0 

4 1736  0 DOSK  IP 
6 3136  0 
C 0006  1 
6 3061  0 


RELINT 

CCS  AXISCTR 

TC  RETJADR 

TCF  CLCSECUT 

CS  ABSTJ 

AD  +TJMINT6 

EXTEND 

eZMF  NOTHIN 


0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 


REF 

REF 

REF 

RFF 


8 

23 

10 

3 


LAST  1445 
LAST  1446 


REF  4 LAST  1446 
REF  24  LAST  1446 
REF  11  last  1446 


17.3043 

17.3044 

17 .3045 

17.3046 

17.3047 

17.3050 

17.3051 
17  ,3052 


27*736  C 
51*505  C 
11*  525  0 

3 3136  C 
1 3051  I 

4 3136  I 
51*505  0 
55*525  0 


ADS 

INDEX 

CCS 

CA 

TCF 

CS 

INDEX 

TS 


AXISCTR 
T JU 

+T JMI NT6 
+ 2 

+TJMINT6 
AXI  SCTR 
TJU 


0523 

0524 

0525 

0526 

0527 

0528 


REF 

REF 


4 LAST  1435 
2 LAST  1446 


REF  6 LAST  565 
REF  170  LAST  1445 
REF  11  LAST  1444 


17.3053  11*  500  1 

17.3054  1 3060  0 

17.3055  C 0006  1 

17.3056  CC  004  0 

17.3057  7 4753  0 

17,3060  55*742  0 


CCS  SENSFTYP 
TCF  NOTHIN  -I 
EXTEND 

READ  LCSCALAR 
MASK  ONE 
TS  NUMBERT 


0529  REF 


LAST  1446 


17,3061  0 3225  I NOTHIN 


TC 


SELCTSUB 


0530 

0531 

0532 


REF  25  LAST  1446 
REF  3 LAST  1446 


17,3064 


51 ' 505  0 
3 3134  1 
C 0004  0 


INDEX  AXISCTR 
CA  INDEXES 
INHINT 


17:53  DEC«  19,]969  LMDAP  o025 
USER'S  PAGE  NOo  13 


PAGE  1446 
E6  S4 


14HS 


ENSURE  MIN- IMPULSE  NOT  AGAINST  TRANS 


GAP: 

L 

0533 

0534 

0535- 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0 544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

056^^ 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 
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17:53  DECo  19»1969  LMOAP 

USER  'S  PAGE  NOo  14 


t,025  PAGE  1447 
E6  S4 


REF 

REF 

REF 

REF 


LAST  1429 
LAST  1446 
LAST  1447 
LAST  1446 


17.3065 

17.3066 

17.3067 
17,3070 


55'471  0 
3 1740  0 
51*471  1 
0 5744  C 


TS  T6FURTHA  +1 

CA  POLYTEMP 

INDEX  T6FURTHA  +1 
TC  WRITER 


REF  9 
REF  7 
REF  2 


LAST  1446 
LAST  1447 
LAST  1429 


17-,3071 

17.3072 

17.3073 


3 1736  1 
55'47C  1 
n 3143  1 


CA  ABSTJ 

TS  T6FURTHA 

TC  JTLST  IN  OR  BANK  BY  NCW 


17,3074  C 0003 


RELINT 


REF  298  LAST  1442 
REF  26  LAST  1446 
REF  7 LAST  1444 


17.3075  3 4755  1 

17.3076  51*505  0 

17.3077  55*534  0 


CA  ZERC 

INDEX  AXISCTR 
TS  SKIPU 


FEF  44 
REF  12 


LAST  1381 
LAST  1446 


17,3100 
17  ,3101 
17, 31C2 
17,3103 


4 6250  1 
6 1742  1 
C aCC6  1 
6 3106  0 


FEEDBACK 


CS 

AO 

EXTEND 

8ZMF 


THREF 

NUMBERT 

+ 3 


REF  99 

REF  171 
REF  27 
REF  2 
REF  3 


LAST  1445 

LAST  1446 
LAST  1447 
LAST  134 
last  1444 


17. 3105 

17.3106 
17,31C7 
17,3110 
17  ,3111 


3 4753  1 
51 '£05  0 
55*522  I 
1 3034  1 


TWC 
+ 2 
ONE 

AXISCTR 

NOoUJETS 

LOOPER 


REF  299 
REF  12 
REF  3 
REF  42 

REF  8 


REF  1 
REF  43 
REF  2 


LAST  1447 
LAS!  1446 
LAST  1437 
LAST  1444 

LAST  1447 


LAST  1447 
LAST  1404 


17.3113 

17.3114 

17. 3115 

17.3116 

17.3117 
17,3120 
17  ,3121 

17.3122 

17.3123 

17.3124 

17. 3125 


3 4755  1 
55*525  0 
55*  526  0 
3 4751  0 

0 0004  0 
57*534  1 
C 0006  1 

1 3123  0 
C 5747  C 
3 4751  0 
57*  535  0 
C 0003  1 


XTRANS 


CA  ZERC 

TS  TJU 

TS  T JV 

CA  FOUR 

INUNT 

XCH  SKIPU 

EXTEND 

BZF  +2 

TC  WRITEU  -1 

CA  FOUR 

XCH  SKIPV 

RELINT 


REF 


REF 


17,3126 

2 LAST  1446  17,3127 

17,3130 

1 17,3131 

17,  3132 


0 0006  1 
1 3270  C 
0 0004  0 
0 5760  0 
C 0003  1 


EXTEND 

BZF 

INHINT 

TC 

RELINT 


CLGSECUT 
WRITEV  -1 


REF 


3 LAST  1447 


17.3133  1 3270  0 

17.3134  000C4  0 

17.3135  00015  0 

17  ,3136  00026  0 


TCP 

INDEXES  DEC 
DEC 

+TJMINT6  DEC 
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L 0,R-AXFS  RCS  ALTOPILOT 


USER 'S  PAGE  NOe  15  E6  S4 


0575 

0576 

0577 

0578 


REF 


17,3137 
17  ,3140 

17.3141 

17.3142 


77417  0 -IfOMS  DEC  -240 

00600  1 eiT8,9  OCT  00600 

C0266  0 SCLNORM  OCT  266 

C2720  0 TJLAWADR  GENAOR  TJLAh  +3 


RETURN  ADDRESS  FOR  RCS  ATTITUDE  CONTROL 


A0579 

AOS 


A0581 

A0582 

A0563 

40584 

A0585 

40586 


CALLED 


BY: 

CA  TJ  TIME  WHEN  NEXT  JETS  WILL  BE  WRITTEN 

TS  T6FURTHA 

CA  INDEX  AXIS  TO  BE  WIRTTEN  AT  IJ  (FROM  NOW) 

TS  T6FURTHA  +1 
TC  JTLST 


A0587 

40588 

A0589 

A0590 

A0591 


EXAMPLE-  U-AXIS  AUTOPILOT  WILL  WRITE  ITS  ROTATION  CODE  OF 
JETS  INTO  CHANNEL  5®  IF  IT  DESIRES  TO  TURN  OFF  TFIS  PCLICY  WITHIN 
150MS  AND  THEN  FIRE  NEXTU,  A CALL  TP  JTLST  IS  MADE  WITH  T6FURTHA 
CCNTAIMNG  THE  TIMF  TC  TURN  OFF  THE  POLICY,  T6FURTHA  +1  THE  INDEX 
OF  THE  U-AXIS(4),  AND  NEXTU  WILL  CONTAIN  THE  "U-TPANS"  POLICY  OP  ZEROo 


THE  LIST  IS  EXACTLY  3 LONG,(THIS  LEADS  TO  SKIP  LOGIC  AND  150MS  LIMIT) 
THE  INPUT  IS  THE  LAST  MEMBER  OF  THE  LIST 


RETURNS  by: 

+ TC  Q 


A0596 

AC5«7 

A0598 

A0599 

A0600 

A0601 

A0602 

0603 

0604 

0605 

0606 


REF 

REF 

REF 


8 LAST  1447 
5 LAST  1404 

I 


DEFINITI0NS:(0UTPUT) 


17.3143 

17.3144 

17.3145 

17.3146 


1470  1 
0031  0 
0006  1 
3163  0 


T6NFXT 
T6FURTHA 
NXT6ACR 
T6NEXT  +1 
T6FURTHA  + 
JTLST  C 


TIME  OF  NEXT  R LPT 

DELTA  TIME  TC  NEXT  RUPT 

DELTA  TIME  FROM  2N0  TC  LAST  RLPT 


AXIS  INDEX 
AXIS  INDEX 
AXIS  INDEX 
T6FURTHA 
TI  Me6 

MIOQRLST 


Q - P-AXIS 
4 - U-AXiS 
13  - V-AXIS 


T IS  IN  A 


0607  REF  4 

0608  REF  9 

0609  REF  9 

0610  REF  6 

0611  REF  5 


LAST  14C-4  17 
LAST  1404.  17 
LAST  1448  17 
LAST  1448  17 
LAST  1448  17 


,3147  23*465  1 

,3150  53*467  1 

,3151  53*471  0 

,3152  54  031  1 

,3153  23*465  I 


LXCH  NXT6ADR 
OXCH  T6NEXT 
DXCH  T6FURTHA 
TS  TIME6 

LXCH  NXT6ACR 


0612 

06121  REF 

06122  REF 


7 LAST  1426 
10  LAST  1426 


17.3154  C 0006  1 TURNON  EXTEND 

17.3155  23*265  1 OXCH  C130SAV 


17,3156  C 6022 


TC  C13STALL 


52  LAST  1438 


CA 


06123 


REF 


17,3157 


3 4735 


61715 


GAP: 

L 

0613 

061^ 

0615 

0616 

0617 

0618 

0619 

0620 

062] 

0622 

0623 

062^ 

0625 

0626 

0627 

0626 

R062O 

R0631 

R0633 

R0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

065^ 

0655 

0656 

0657 
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USER  'S  PAGE  NOo  16 


E6  S4 


REF  24  LAST  1426 
REF  8 LAST  1448 


17.3160  C CCC6  1 

17.3161  05  013  0 

17.3162  0 1265  1 


EXTEND 

WOR  CHAN13 

TC  C13QSAV 


REF  10  LAST  1448 
REF  1 


17.3163 

17.3164 

17.3165 


6 1466  1 MIOCRLST  Al)  T6NEXT 

n 0006  I EXTEND 

6 3174  0 BZMF  LASTCFG 


T IME6  + T6NEXT  - T IS  IN  A 


LAST  1449 
LAST  1448 


REF  7 LAST  1448 
REF  12  LAST  1449 


17.3166 

17 .3167 

17.3170 

17.3171 

17.3172 


C 0006  3 
60  031  0 
53*467  1 


LXCH  T6NEXT  + 
DXCH  T6FUPTHA 
EXTEND 

SU  TIME6 
OXCH  T6NEXT 


REF  413  LAST  1443 


17,3173  C 0002  0 


TC 


0 


REF  513  LAST  1446 
REF  27  LAST  1387 
KEF  11  LAST  1449 


17.3174  4 OOOO 

17.3175  6 4754 

17.3176  55*470 


0 LASTCHG  CS 

C AD 

1 TS 


A 

NEGO 

T6FURTHA 


REF  414  LAST  1449 


17,3177  C 0002  0 


TC 


0 


ROT-TOUV  IS  ENTERED  WITH  THE  O-COMPONENT  OF  THE  QUANTITY  TO  BE  TRANSFORMED  IN  A AND  THE  R-COMPONENT  IN  L* 
PCT-TOUV  TRANSFORMS  THE  QUANTITY  INTO  THE  NON-ORT HOGONAL  U-V  AXIS  SYSTEM,  IN  THE  U-V  SYSTEM  NO  CROSS-COUPLING  IS 
PRODUCED  FROM  RCS  JET  FIRINGS,  AT  THE  COMPLETICN  CF  ROT-TOUV,  THE  U-CCMPPNENT  OF  THE  TRANSFORMED  QUANTITY  IS  IN 
A ANC  THE  V-COMPCNENT  IS  IN  Lo 


REF  1 

REF  2 
REF  2 

REF  1 
REF  286 
REF  3 
REF  1 

REF  514 
REF  8 
REF  2 
REF  4 
REF  287 


REF  515 
REF  9 
PEF  3 
REF  415 
REF  9 


LAST  135 
LAST  1449 


LAST  1446 
LAST  1449 


LAST  1449 
LAST  1412 
LAST  1449 
LAST  1449 
LAST  1449 


LAST  1449 
LAST  1449 
LAST  1449 
LAST  1449 
LAST  1445 


17,3200 
17,  3201 

17.3202 

17.3203 
17,  3204 

17.3205 

17.3206 

17.3207 
17  ,3  210 

17. 3211 

17.3212 

17.3213 

17.3214 
17  ,3215 

17.3216 

17.3217 
17  ,3220 

17.3221 

17.3222 

17.3223 

17.3224 

17.3225 


23' 737  0 
C 0C06  1 
7 1626  0 
57*737  0 
C 0006  I 
7 1627  1 
54  001  1 
6 1737  0 
55*  736  0 
1 3215  0 
5C  000  1 
4 4734  1 
55*736  0 
4 1737  1 
6 0001  0 
54  007  1 
1 3223  0 
50  000  1 
4 4734  1 
23*  736  1 
C 0002  0 
51*743  0 


RCT-TOUV  LXCH 

EXTEND 

MP 

XCF 

EXTEND 

MP 

TS 

AD 

TS 

TCF 

INDEX 

CS 

TS 

CS 

AC 

TS 

TCF 

INDEX 

CS 

LXCH 

TC 

SELCTSUB  INDEX 


R0TFMP2 

COEFFQ 

R0TEMP2 

COEFFR 

L 

P0TEHP2 
ROTEMPl 
+ 4 
A 

LIMITS 

PCTEMPl 

R0TEMP2 

L 

7 

+3 

A 

LIMITS 

ROTEMPl 

Q 

POTINDE 


(R  ) IS  PUT  INTO  Pm£MP2 


(R>  GOES  TO  A AND  COEFFQo(O)  TD  R0TEMP2 


COEFFRo (R  » IS  PUT  INTO  L 

COEFFQ,  {Q>  + COEFFRc  IP)  IS  PUT  IN  ROTEMPl 

COEFFQoIQ)  + CDEFFR,(R1  HAS  OVERFLOWED 
AND  IS  LIMITED  TO  POSMAX  OR  NEGMAX 


-COEFFQ, (0)  + COEFFRcfPI  IS  NOW  IN  A 


-COEFFQ, IQ]  + COEFFRo(R]  HAS  OVERFLOWED 
AND  IS  LIMITED  TO  POSMAX  OR  NEGMAX 
COEFFQ, (Q]  + rOEFFRo(R)  IS  PUT  INTO  L 


GAP  : 

L 

0658 

0659 

0660 

0661 

0662 

0663 

066A 

0665 

0666 

0667 

0666 

0669 

0670 

067) 

0672 

0673 

0674 

0675 

0676 

0677 

0678 

0679 

06  80 

0681 

0682 

0663 

0684 

0685 

0686 

0687 

0688 

0689 

0690 

0691 

R0692 

0694 

0695 

0696 

0697 

0698 

0699 

0700 
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17:53  OeCa  19,1969  LMDAP 


025  PAGE  1450 


0,R-AXFS  RCS  AUTOPILOT 


USER  'S  PAGE  NOo  17  E6  S4 


REF 

REF 

REF 

REF 


LAST 

LAST 


17,3226  3 3257  1 

1447  17,3227  51*742  1 

17,3230  7 3263  I 

1447  17,3231  55*740  1 


CA  ALLJE7S 

INDEX  NUMBER! 
MASK  TYPEPCLY 
TS  POLYTEMP 


REF  7 
REF  516 


LAST  213 
LAST  1449 


17.3232 

17. 3233 

17.3234 


7 1257  1 
1C  CCO  0 
1 3236  1 


MASK  fHSMASK 
CCS  A 

TCF  +2 


REF  416  LAST  1449 


17,3235  0 0002  0 


TC  0 


KEF  45 
REF  14 
REF  10 
REF  2 
REF  15 
REF  2 
REF  10 
REF  6 

PEF  1 
REF  16 
REF  2 
REF  28 
REF  13 
REF  51 

REF  3 


LAST  1447 
LAST  1450 
LAST  1449 
LAST  1450 
LAST  1450 
LAST  1450 
LAST  1450 
LAST  1450 


LAST  1450 
LAST  145fi 
LAST  1447 
LAST  1447 
LAST  1435 

LAST  1445 


17.3236 

17.3237 

17.3240 

17.3241 

17 .3242 

17. 3243 

17.3244 

17.3245 

17.3246 
17  ,3247 

17.3250 

17.3251 

17 .3252 

17.3253 

17.3254 

17.3255 

17.3256 
17  ,3257 

17.3260 

17.3261 


3 6250  0 
55*742  0 
51*743  C 
3 3257  1 
51*742  I 
7 3263  1 
55*740  1 
7 1257  1 
0 0006  1 
1 3235  1 
11*742  e 
1 3237  0 
51*  505  0 
55*525  0 

0 5567  0 
02004  1 

1 3026  1 
OOllO  1 
00022  1 
00204  I 


FA  ILOnP 


ALLJETS 


CA  THREE 

TS  NUMBERT 

INDEX  RCTINDEX 

CA  ALLJETS 

INDEX  NUMBERT 

MASK  TYPEPCLY 

TS  PHLYTEMP 

MASK  CH5MASK 

EXTEND 

B2F  FA ILOOP  -2 
CCS  NUMBERT 

TCF  FAILOOP 

INOFX  AXISCTR 

TS  TJU 

TC  ALARM 

OCT  02004 

TCF  NCPCTAT 

OCT  00110 

OCT  00022 

OCT  00204 


6 

2 


13 

14 


17. 3263 

17.3264 

17.3265 

17.3266 
17  ,3267 


00041  1 OCT 

CC125  1 TYPEPCLY  OCT 


00252  1 OCT 
C0146  1 OCT 
00231  1 nCT 
00377  1 OCT 


00041 

00125 

00252 

00146 

00231 

00377 


10  14 
5 10  13 


ALL  1256 


14 


THE  FOLLOWING  SETS  THE  INTERRUPT  FLIP-FLCP  AS  SCCN  AS  POSSIBLE,  WHICH  PERMITS  A RETURN  TO  THE 


INTERRUPTED  JOB-, 


REF  1 
REF  1 


17.3270  3 3272  0 CLOSEOUT  CA 

17.3271  0 7757  0 TC 


AORP  UPT 
MAKERUPT 


REF 


17,3272 


C3273  1 


ADRRUPT  ACRES  ENDJASK 


REF  5 LAST  1420 

REF  13  LAST  1420 

REF  2 LAST  1420 

REF  4 LAST  1420 


17.3273  53*753 

17.3274  5?  Cll 

17.3275  53*755 

17.3276  56  017 


0 ENCJASK  OXCh 
0 CXCH 

0 DXCH 

1 XCh 


DAPARUPT 

APUPT 

DAPBQRPT 

BRUPT 


GAP 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L g,R-AXES  RCS  AUTUPILOT 


0701  REF  417 

0702  REF  10 

0703  REF  A 

0704  REF  2 

0705  REF  1 

070ft 

0707  REF  5 

0708 


LAST  1450  17 

LAST  1421  17 

LAST  1420  17: 

LAST  1420  17, 

17 

LAST  1294 


.3277  22  0C2  0 

,3300  3 4735  1 

,3301  53*757  1 

3302  52  Gift  1 

,3303  1 5272  1 

7757 
6000 
7757 


LXCH  0 
CAF  NFGMAX 
DXCH  OAFZRUFT 
DXCH  2BUPT 
TCF  NOORSM 
BLOCK  3 
SETLCC  FFTA66 
BANK 


0709  REF 


COUNT*  $$/DAP 


0710 

0711  REF  2 LAST  1450 


7757  0 0006  1 MAKERUPT  EXTEND 

7760  07  757  0 EDPUPT  MAKERUPT 


17:53  OECo  19,196Q  LMDAP  o025  PAGE  1451 
USER'S  PAGE  NOo  IP  Eft  S4 

NEGATIVE  DAPZPUPT  SIGNALS  JASK  IS  OVER-, 


17:53  DECo  19il96<?  LNC&P 


,025  PAGE  1^52 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


L TJET  LAU  USER'S  PAGE  NOe  1 60  S4 

ROOOl  PROGRAM  DESCRIPTION 


R0002 

R0003 


OESIG^BD  BY;  Re 
CODEC  BY:  P,  So 


0.  GCSS  AKC  Fo  So  WEISSMAN 
WEISSKAN  28  FEBRUARY  1966 


ROOO^ 

R0006 

R0008 

R0009 

ROOlO 

ROOll 

R0013 

R0015 

R0017 

ROCld 

R0020 

R0022 

R0024 

R0026 

R0028 

R0030 


TjETLAls  IS  CALLED  AS  A SUBROUTINE  WHEN  THE  LEM  IS  NOT  DOCKED  AND  THE  AUTOPILCT  IS  IN  THE  AUTOMATIC  OR 
AITI TIDE-HOLD  MODE  TO  CALCULATE  THE  J ET - F I R ING-T IM F (TJETI  REQUIRED  FOR  THE  AXIS  INDICATED  BY  AXISCTR: 

-1  INDICATES  THE  P-AXIS 
+0  INDICATES  THE  U-AXIS 
+1  INDICATES  THE  V-AXIS« 

THE  REGISTERS  £ AND  EDOT  CUNTAIN  THE  APPROPRIATE  ATTITUDE  ERROR  AND  FRRCR  PATE  AND  SENSETYP  SHOWS  WHETHER 
UNBALANCED  CCUPLES  ARE  PREFEPPEC3  TJETLAW  ALSO  USES  VARIOUS  FUNCTIONS  OF  ACCELERATION  AND  DEADBAND  WHICH  ARE 
COMPUTED  IN  THE  1/ACCDNT  SECTICN  CF  1/ACCS  AND  ARE  STORED  IN  SUCH  AN  ORDER  THAT  THEY  CAN  BE  CONVENIENTLY 
ACCESSED  BY  INDEX  INGe 

THE  SIGN  OF  THE  REQUIRED  RGTATICN  IS  CARRIED  THROUGH  TJETLAW  AS  POTSENSE  AND  IS  FINALLY  APPLIED  TO  TJET  JUST 
PREVIOUS  TO  ITS  STORAGE  IN  THE  LOCATION  CORRESPONDING  TO  THE  AXIS  ITJP,  TJU  OR  TJVIc  THE  NUMBER  OF  JETS  THAT 

TJETLAW  ASSUMES  WILL  BE  USED  IS  INCICATEC  BY  THE  SETTING  OF  NUMBERT  FOR  THF  U-  OR  V-AXISo  TWC  JETS  ARE  ALWAYS 

ASSUMED  FOR  THF  P-AXIS  ALTHCLGH  FCUR  JETS  WILL  BE  FIRED  WHEN  FIREFCT  IS  MORE  NEGATIVE  THAN  -4e C DEGREES 
(FIREFCT  IS  THE  DISTANCE  TO  A SWITCH  CURVE  IN  THE  PHASE  PLANE)  AND  A LONG  FIRING  IS  CALLED  FOR® 

IN  ORDER  TO  AVOID  SCALING  DIFFICULTIES*  SIMPLE  ALGORITHMS  TAGGED  RLFLAWl,  -2  AND  -3  ARE  RESORTED  TO  WHEN  THE 

ERROR  AND/OR  ERROR  RATE  ARE  LARGE® 


R0031 

R0032 

R0033 

R0034 

R0035 

R0036 

R0037 


CALLING  SEQUENCE: 

TC 


OR 


INHINT 

TC 

CACR 

RELINT 


TJETLAW 


IBNKCALL 

TJETLAW 


(MUST  BE  IN  JASK) 
(MUST  BE  IN  JASK) 


R0038  EXIT:  RETURN  TO  0® 

R0039  INPUT: 

R0040  FROM  THE  CALLER:  Ei  EOCT,  AXISCTR*  SENSETYP,  TJP,-U,-Vo 

R0041  FROM  1/ACCONT:  48  ERASABLES  BEGINNING  AT  BLCCKTCP  (INCLUDING  FLAT,  Z0NE3LIM  AND  ACCSWU,-V)® 

R0043  OUTPUT: 

R0044  TJFi-l  OR  -V,  NUMBERT  (CAFTEMP5),  FIREFCT  (CAPTEMP3)® 


R0045  CtBRIS: 

R0046  A*  L,  C,  E,  EDCT,  CAPTeMPl-6,  CAPTREGl-4e 


R0047  ALARM:  NONE 


0046 

0C49  REF  4 LAST  1434 

0050 

0051  REF  13  LAST  1431 


17*3304 
17,2000 
17, 3304 
E6*1524 


BANK  17 
SETLOC  DAPS2 
BANK 

EBANK=  TJP 


GAP: 

L 

0052 

0053 

0054 

R0055 

0056 

0057 

0058 

0C54 

0060 

0061 

0062 

0063 

0064 

0065 

0U66 

0067 

0066 

0069 

0070 

0071 

0072 

0073 

0074 

R0075 

R0077 

R0079 

0080 

0081 

0082 

0083 

0084 

0005 

0086 

0087 

0088 

0089 

0090 

R0091 

R0092 

R0094 

0096 


ASStNOLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  8Y  NASA  2021112-091 
TJE7  LAJ. 


17:53  OECo  lo,1069  L80AP 
USER  'S  PAGE  NOe 


o025  PAGE  1453 
E?  S4 


PEF  1 


CCLNT*  $t/DAPTJ 


REF 


17.3304  0 0006  I TJETLAW  EXTEND  SAVE  Q FOR  RETURN* 

17.3305  23'744  I QXCH  HOLDO 


SET  INDEXERS  TO  CORRESPOND  TC  THE  AXIS  AND  TO  THE  SIGN  CF  EDOT 


PEF  29  LAST  1450 
REF  2 LAST  1A41 
REF  1 


17.3306  51'505  0 

17.3307  3 3755  0 

17,3310  55*745  1 


INDEX  AXISCTR 
CAF  AXISDIFF 

TS  AORSOIFI 


AXISDIFF(-1)=N0  OF  LOCATIONS  BEP  P AND  U 
AX  ISOI FF (0 ) = 0 

AXI SOI FF ( +1 ) =NC  CF  LOCATIONS  BET  V AND  U 


REF  3 

REF  1 
REF  2 
REF  1 
REF  1 
REF  1 


LAST  1444 

LAST  1453 


17, 3312 
17  ,3313 

17.3314 

17.3315 
17  ,3316 
17,3317 


6 3320  0 
31*745  0 
55*743  I 
3 3757  1 
1 3330  0 


CAE  EDCT 

EXTEND 

BZMF  NEGEOOT 

CAE  ADRSCIFl 

TS  AURSDIF2 

CAF  SENSOR 

TCF  SETSENSE 


IF  BOOT  NEGATIVE,  PICK  UP  SET  OF  VALUES 
THAT  ALLOW  USE  OF  SAME  COOING  AS  FOR 
POSITIVE  EDOT* 

SET  A SECOND  INDEXER  WHICH  MAY  BE 

MODIFIED  BY  A DECISION  FOR  MAX  JETS? 
FOR  POSITIVE  BOOT,  ROTSENSE  IS 
INITIALIZED  POSITIVE^ 


REF 

PEF 

REF 

REF 

REF 

RFF 

REF 

REF 


9 

10 

4 

5 
63 

3 

2 

2 

1 


LAST  1444 
LAST  1453 
LAST  1452 
LAST  1453 
LAST  1438 
LAST  1453 
LAST  1453 
LAST  1453 


17,3320  4 1751  1 NEGEDOT  CS 


17.3321  55*751  1 TS 

17.3322  4 1427  0 CS 

17.3323  55*427  0 TS 

17.3324  3 4753  1 CAF 

17.3325  27*745  1 ADS 

17 .3326  55*  743  1 TS 

17.3327  4 3757  0 CS 


17,3330  55*737  1 SETSENSE  TS 


E 

E 

EDCT 

EDOT 

BITl 

AORSOIFI 

ADRSDIF2 

SENSOR 

ROTSENSE 


IN  ORDER  FOR  NEG  EDCT  CASE  TO  USE  COOING 
OF  POS  EDOT,  MUST  MODIFY  AS  FOLLOWS: 
loCOMPLEMFNT  E AND  ECOT* 

2«SET  SENSE  OF  PCTATION  TC  NEGATIVE 
(REVERSED  LATER  IF  NECESSARYla 
3oINCREMFNT  INDEXERS  BY  ONE  SO  THAT 
THE  PROPER  PARAMETERS  ARE  ACCESSED* 


TEST  MAGNITUDE  OF  E (ATTITUDE  ERROR,  S I NGL £- PR  EC  I S I CN , SCALED  AT  PI  RADIANS*: 

IF  GREATER  THAN  (OR  EQUAL  TO  I PI/U  RADIANS,  GO  TO  THE  SIMPLIFIED  TJET  ROUTINE* 
IF  LESS  THAN  PI/16  RADIANS*  RESCALE  TC  PI/4* 


PEF  11 

PEF  5n 
RFF  517 
REF  1 
REF  1 
REF  1 
REF  57 

REF  288 
REF  12 


LAST  1453 

LAST  1436 
LAST  1450 

LAST  1436 

LAST  1449 
LAST  1453 


17, 3332 
17  ,3333 

17.3334 

17.3335 

17.3336 

17.3337 
17  ,3340 
17,3341 
17,3242 
17,3343 


7 4747  0 
1C  000  0 
1 3717  1 
1 3340  1 
1 3663  0 
3 4737  0 
0 0CC6  1 
7 OCOl  1 
55*  751  1 


SCALEE 


CAE  E 

EXTEND 

MP  BITS 

CCS  A 

TCF  RUFLAW2 

TCF  SCALEE 

TCF  RUFLAWl 

CAF  eiT13 

EXTEND 

MP  L 

TS  E 


PICK  UP  ATTITUDE  ERROR  FOR  THIS  AXIS 

SHIFT  RIGHT  TEN  BITS;  IF  A-REGISTER  IS 
ZERO,  RESCALE  AND  TEST  EDOT* 


ERROR  IS  IN  L SCALED  AT  PI/16q  RESCALE 
IT  TO  PI/4  AND  SAVE  IT* 


TEST  MAGNITUDE  OF  EDOT  (ERROR  RATE  SCALED  AT  PI/4  RADI ANS / SECOND  I 

IF  GREATER  TFAN  (CR  EQUAL  TO  » PI/22  P AD  1 AN  S/SEC  OND , GO  TO  THE  SIMPLIFIED  TJET  ROUTINF, 
IF  LESS  THAN  PI/32  R AC  I A N S/ SECOND , THEN  RESCALE  TC  PI/32  R AD  I ANS/ S ECON 0* 


REF  6 LAST  1453 


17,3344  31*427  1 


CAE 


EDOT 


PICK  UP  SINGLE-PRECISICN  ERROR-RATE 


gap:  assemble  revision  131  OF  AGC  PROGRAM  LUMINARV  BY  NASA  2021112-091 

L TJET  LAU 


0097 

0098 

0099 

0100 
0101 

R0102 


REF  58  LAST  1A23 

REF  1 
REF  1 

♦ FINELAh  STARTS 


17,33A5  C 0006  1 
17,33^6  7 A750  C 

17,3347  0 0006  1 

17.3350  1 3352  1 

17.3351  1 3725  0 

HERE  *** 


EXTEND 

MP  BIT4 

EXTEND 

BZF  SCALECCT 

TCF  RUFLAH3 


0103  REF  7 LAST  1A53  17,3352  23'A27 


SCALEDOT  LXCH  EOCT 


0104 

0105 

0106 

0107 

0108 
0109 


REF  0 

REF  58 
REF  1 


LAST  1454 

LAST  1453 


17  ,3353 
17,325A 

17.3355 

17 .3356 

17.3357 
17,3360 


31*427  1 
C CCC6  1 
7 0000  0 
C 0006  1 
7 A737  1 
55*736  0 


CAE 

EXTEND 

SQUARE 

EXTEND 


EDOT 


MP  BIT13 

TS  EOOTSQ 


0110  REF  13 

0111 
0112 
01125 

0113  REF  1 

0114 

0115  REF  4 

0116  REF  1 

0117 

0118  REF  1 

0119  REF  100 

0120  REF  3 

0121  REF  44 

0122  REF  1 

0123  REF  5 

0124  REF  2 

0125  REF  1 

0126  REF  17 


LAST 


LAST 


LAST 
LAST 
L AST 

LAST 

LAST 

LAST 


1453  17,3361 

17,3362 
17  ,3363 
17,336A 

17.3365 

17.3366 
1453  17,3367 

17.3370 

17.3371 

17.3372 
1447  17,3373 

1453  17,3374 

1447  17,3375 

17,3376 
1446  17,3377 

1454  17,3400 
17,3401 

1450  17,3402 


11*751 
1 3365 
1 3365 
1 3365 
6 3760 
0 0006 

5 1745 
61*600 
f 0C06 

6 3377 
3 4752 
27*743 
3 4751 
1 3402 
11'50C 


1 3402 
1 3373 
55*742 


1 

0 

0 

c 

0 

1 

c 

0 

1 

1 

0 

1 

c 

0 

1 

0 

1 

0 


ERRTEST  CCS 
TCF 
TCF 
TCF 
AD 

EXTEND 

INDEX 

SU 

EXTEND 

BZMF 

MAXJETS  CAF 
ACS 
CAF 
TCF 

SENSTEST  CCS 
TCF 
TCF 

TJCALC  TS 


E 

+ 3 
+ 2 
+] 

-3DEG 

AORSDIFl 
F IREOB 

SENSTEST 

TWO 

A0PS0IF2 

FOUR 

TJCALC 

SENSETYF 

TJCALC 

MAXJETS 

NUMBERT 


R0127  BEGINNING  OF  TJET  CALCULATIONS: 


0128  REF 

0129 

C130  REF 

0131  REF 

0132  REF 

0133  RFF 

0134 

0135  REF 

0136  REF 

0137 

C138  REF 


2 LAST  1454 

4 LAST  1454 
8 LAST  135 

5 LAST  1454 
2 LAST  1454 

14  LAST  1454 
2 LAST  1431 

1 


17,3404 
17  ,3405 
17,34C6 
17,3^07 

17.3410 

17.3411 
17  ,3412 

17.3413 

17.3414 
17  ,3415 


5 1743  0 
7 1566  1 
51*745  0 

6 1600  0 
C 0006  1 
61*751  0 
55*740  1 
r 0006  1 
6 3575  0 


EXTEND 

INDEX 

MP 

INDEX 

AD 

EXTEND 

SU 

TS 

EXTEND 

BZMF 


EDOTSQ 

A0RS0IF2 

1 /aneti 

ADPSDIFl 

FIRECe 

E 

FIREFCT 
ZONl ,2,3 


0139 


REF  6 LAST  1454 


17,3416 


51*745  0 ZaNE4,5 


INDEX  ADRSDIFl 


17:53  CECe  19,1969  LMDAP 


,025  PAGE  1454 


USER*  S PAGF  NCo  ? 66  S4 


FOR  THIS  AXIS  = 

SHIFT  RIGHT  ELEVEN  BITS,  IF  THE  A-REG  IS 
ZFRD,  THEN  RESCALE  AND  USE  FINELAWt 


EDOT  IS  scaled  AT  FI/32  R AO  I ANS/ S ECONOo 
COMPUTE  (EDOT) (EDGTI 

PRODUCT  SCALED  AT  Pn2)/2(1DI  RAD/SECo 

SHIFT  RIGHT  TWO  BITS  TO  RESCALE  EOOTSQ 
TO  PI(2>/2(8)  PA0(2  > /SEC  (2  >« 

DOES  BIG  ERROR  (THREE  DEG  BEYOND  THE 
CEAC8ANC)  REQUIRE  MAX  IMUM  J ETS ? 


IF  NOT:  ARE  UNBALANCED  JETS  PREFERREDl 
IF  YES  : INCREMENT  ADDRESS  LOCATOR  AND 
SET  SWITCH  FOR  JET  SELECT  LOGIC  TO  4o 
(ALWAYS  DC  THIS  FCR  P-AXlS) 

DOES  TRANSLATICN  PREFER  MIN  JETSo 

YESo  USE  MIN- JET  FARAMFTERSo 

NOo  GET  MAX-JET  PAPAMETERSc 

SET  TO  +0,1,4  FCR  (U,V-AXES)  JET  SELECTo 


SCALED  AT  PI(2  1/2 ( E)o 


o5/ACC  SCALED  AT  2(61/PI  S EC ( 2 ) /R AO  I ANo 

OEACBAND  SCALED  AT  PI/4  RAOIANe 

ATTITUDE  ERROR  SCALED  AT  PI/4  RAOIANo 
-E-o5 ( EDOTSQ)/ ACC-CB  AT  PI/4  RADIAN* 


GAP; 

L 

01^0 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

A0148 

ft0149 

R0151 

R0152 

R0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

OJ  70 

0171 

0172 

0173 

01  74 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAM  LUMINAR 


17:‘'3  DEC.  19,J969  LMOAP 


,025  PAGE  1455 


Y BY  NASA  2021112-091 


TJET  LAV. 


USER' S PAGE  NCo  4 E6  S4 


REF  1 

REF  3 
REF  15 
REF  7 
REF  1 

REF  1 


LAST  1454 
LAST  1454 
LAST  1454 


17,3417 

17. 3420 

17.3421 

17.3422 

17.3423 
17  ,3424 

17.3425 

17.3426 


31' 572  0 
C 0006  1 
7 1736  0 
6 1751  0 
El'745  C 
6 1602  1 
C 0006  1 
6 3461  1 


CAE  1/ACCAST 

EXTEND 

MP  EOOTSO 

AC  E 

INDEX  ADFSOIFl 

AD  COASTDB 

EXTEND 

eZMF  ZONES 


o5/ACC  SCALED  AT  2(6)/PI  V^HERE 
ACC  = MAXIAMIN,  AOS-)o 
SCALED  AT  PI/2  (PU 
SCALED  AT  PI/4 

SCALED  AT  PI/4  POSo  FOP  NEGo  INTERCEPT: 
TEST  £+95(ED0TS0)/ACC+C6  AT  Pl/i  RADIANo 
IF  FUNCTION  NEGATIVE,  FIND  TJFTo 
IF  FUNCTION  POSITIVE,  IN  ZONE  4® 


ZONE  4 IS  THE  COAST  REGIONo  HOWEVER,  IF  THE  JETS  ARE  ON  AND  DRIVING  TOWARD 
Ao  THE  AXIS  WITHIN  + OP  - (CB  + FLAT)  FCR  DRIFTING  FLIGHT,  OR 
Bo  THE  USUAL  TARGET  PARABOLA  FCP  FCWERED  FLIGHT 
THEN  THE  THRUSTERS  ARE  KEPT  CNo 


REF 

30 

LAST 

145  3 

17,3427 

51 

» 505 

0 

2CNE4 

INDEX 

AX  ISCTR 

IS  THF  CURRENT  VALUE  IN  TJET  NON-ZERO 

PEF 

1 

17,3430 

4 

1525 

0 

CS 

TJETU 

WITH  SENSE  OPPOSITE  TO  EOOT, 

17,3431 

n 

0006 

1 

EXTEND 

(I0E9,  APE  JETS  CN  AND  FIRING  TOWARD 

REF 

2 

LAST 

1453 

17,3432 

7 

1737 

1 

MP 

POTSENSE 

THE  OES  IRABLE  STATE  )o 

17,3433 

C 

00C6 

1 

EXTEND 

PEF 

1 

17  ,3434 

6 

3455 

0 

BZMF 

COASTTJ 

NO*  COAST* 

REF 

1 

17,3435 

I 1 

*554 

0 

JETSQN 

CCS 

FLAT 

YESo  IS  THIS  DRIFTING  OR  POWERED  FLIGHT) 

PEF 

1 

17 ,3436 

1 

3447 

1 

TCF 

DRIFT/CN 

DRIFTING*  GC  MAKE  FURTHER  TEST* 

REF 

3 

LAST 

1454 

17,3437 

4 

1740 

1 

CS 

FIREFCT 

POWERED  (OR  ULLAGE)*  CAN  TARGET  PARABOLA 

REF 

8 

LAST 

1455 

17,3440 

51 

• 745 

0 

INDEX 

ADRSOIFl 

BE  REACHED  FROM  THIS  POINT  IN  THE 

REF 

1 

17  ,3441 

6 

1604 

1 

AC 

AX  ISOIST 

PHASE  PLANE  | 

17,3442 

C 

0006 

1 

EXTEND 

REF 

2 

LAST 

1455 

17,3443 

6 

3455 

0 

BZMF 

COASTTJ 

NO*  SET  TJET  = 0* 

REF 

1 

17  ,3444 

0 

3561 

0 

TC 

Z123C0MP 

YES*  CALCULATE  TJET  AS  THOUGH  IN  ZONE  1 

REF 

4 

LAST 

1455 

17, 3445 

31 

' 740 

0 

CAE 

FIREFCT 

AFTER  COMPUTING  THE  REQUIRED 

REF 

1 

17,3446 

1 

3615 

1 

TCF 

ZONEl 

PARAMETERS* 

RFF 

9 

LAST 

1455 

17 ,3447 

51 

• 745 

0 

ORIFT/CN 

INDEX 

ACRSCIFl 

CAN  TARGET  STRIP  OF  AXIS  BE  REACHED  FROM 

REF 

3 

LAST 

1454 

17, 3450 

4 

1600 

J 

CS 

FI REDB 

THIS  PCINT  IN  THE  PHASE  PLANE) 

17  ,3451 

6 

0000 

1 

DOUBLE 

REF 

5 

LAST 

1455 

17,3452 

6 

1740 

c 

AD 

FIREFCT 

17,3453 

C 

0006 

1 

EXTEND 

17  ,3454 

6 

3457 

I 

8ZMF 

+ 3 

REF 

300 

LAST 

1447 

17,3455 

3 

475*; 

1 

COASTTJ 

CAF 

ZERC 

NO*  SET  TJET  = 0* 

REF 

1 

17 , 3456 

1 

3521 

0 

TCF 

RFTURNTJ 

REF 

2 

LAST 

1455 

17,3457 

Q 

3561 

0 

TC 

Z123CCMP 

YES*  CALCULATE  TJET  AS  THOUGH  IN  ZONE  2 

REF 

1 

17,3460 

1 

3602 

1 

TCF 

Z0NE2 ,3 

OR  3 AFTER  COMPUTING  REQUIRED  VALUES* 

PEF 

289 

LAST 

1^53 

17  ,3461 

54 

001 

1 

ZONES 

TS 

L 

TEMPORARILY  STORE  FUNCTION  IN  L* 

REF 

3 

LAST 

1455 

17,3462 

11 

•737 

1 

CCS 

POTSENSE 

MODIFY  ADRSCIF2  FOP  ACCESSING  1/AN6T2 

17, ■*463 

1 

3467 

0 

TCF 

+ 4 

AND  ACCFCTZ5,  WHICH  MUST  RE  PICKED  UP 

REF 

22 

LAST 

1396 

17,3464 

C 

5675 

0 

TC 

CCSHCLE 

FROM  THE  NEXT  LOWER  REGISTER  IF  THE 

gap; 

L 

0184 

0185 

0186 

0187 

0188 

0189 

C190 

019] 

0192 

0193 

0194 

0195 

0196 

0197 

R0198 

0199 

0200 

0201 

0202 

0203 

0204 

R0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

R0213 

R0214 

0215 

R0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 


ASSEMBLE  REVISION  13 


17:53  OECo  19tl969  LMOAP 


025  PAGE  1456 


] CF  AGC  PRCGRAf'  LUMINARY  BY  NASA  2021112-091 


TJET  LAW 


USER'S  PAGE  NOo  5 66  S4 


CS  TWO  (AOTUALI  ERROR  PATE  IS  NEGATIVE* 

ACS  A0RSCIF2 


REF  290 

REF  6 
REF  1 


REF  1 
RFF  7 
REF  2 

REF  9 
REF  1 


LAST  1955 
LAST  1956 

LAST  1456 
LAST  1441 

LAST  1454 


17»3467 

17.3470 

17.3471 

17.3472 

17.3473 

17.3474 

17.3475 

17.3476 

17. 3477 

17.3500 

17.3501 

17.3502 


30  COl  0 
G 0006  1 
5 1743  0 
7 1575  0 
20  001  1 
2C  001  1 
53*747  0 
51'743  0 
21'567  1 
0 0006  1 
7 1427  0 
55'741  0 


+ 4 


CAE  L 
EXTEND 

INDEX  A0RS0IF2 

MP  ACCFCTZ5 

DDOUBL 

DOOUBL 

DXCH  HH 

INDEX  ADRSCIF2 

CAE  1/ANET2 

EXTEND 

MP  EOCT 

TS  TTOAXIS 


TTOAXiS  AND  HH  ARE  THE  PARAMETERS  UPON 
WHICH  THE  APPRCXIMATICNS  TO  TJET  ARE 
B ASE  Do 

OOUBLE  PRECISION  H SCALED  AT  8 SeC(2lo 

SCALED  AT  2(7)/PI  SEC{2l/RADo 

SCALED  AT  PI/2(51 
SCALED  AT  4 SEC® 


TEST 

REF 

REF 

REF 

REF 


WHETHER  TJET  GRFATLR  THAN  50  MSEC® 


LAST  1456 
LAST  1300 


17, 35C3 

17.3504 

17.3505 
17,35C6 
17,3507 
17,3510 


C C006  1 
7 3767  0 
6 J 746  0 
6 7751  0 
0 0006  1 
6 3536  1 


EXTEND 

MP  -®05AT2  H - o05  TTOAXIS  - 0OO125  G®  T®  ZERO 

AD  HH  (SCALED  AT  0 SeCl2I  I® 

AO  NEG2 

EXTEND 

BZMF  FORMULAl 


TEST 

REF 

REF 

REF 

REF 


REF 


WHETHER  T-JET  GREATER  THAN  150  MSEC® 


LAST  1456 


3 LAST  1456 


17.3511 

17.3512 

17.3513 

17.3514 

17.3515 
17  ,3516 
17,3517 


31*741  1 
0 0006  1 
7 3770  0 
6 1746  0 
6 3761  1 
0 0006  1 
6 3546  C 


CAE  TTCAXIS 

EXTEND 

MP  -«15AT2 

AO  HH 

AO  -®C112A8 

EXTEND 

BZMF  F0RMULA2 


H - ®15  TTOAXIS  - ®01125  G®  T®  ZERO 
(SCALED  AT  8 SEC  ( ?I  I 


IF  TJET  GREATER  THAN  150  MSEC,  ASSIGN  IT  VALUE  OF  250  MSEC,  SINCE  THIS 
IS  ENOUGH  TO  ASSURE  NO  SKIP  NEXT  CSP  (100  MSECI® 


REF  31  LAST  1328  17,3520  3 4741  1 FULLTIME  (:aF 

RETURN  TO  CALLING  PROGRAM  WITH  JET  TIME  SCALED  AS  TIMF6 


BITll 

AND  SIGNED® 


250  MSEC  SCALED  AT  4 SEC® 


PEF  4 LAST  1455 
REF  31  LAST  1455 
REF  2 LAST  1455 

REF  32  LAST  1456 
REF  2 LAST  135 
REF  291  LAST  1456 


17,3522 
17  ,3523 

17.3524 

17.3525 

17.3526 

17.3527 
17  ,3530 

17.3531 

17.3532 


C 0006  1 
7 1737  1 
51’ 505  0 
55*525  0 
C 0006  1 

5 1505  0 
7 1546  0 
30  001  0 
C 0006  1 

6 3535  1 


R6TURNTJ  EXTEND 
MP 

INDEX 

TS 

EXTEND 

INDEX 

MP 


CAE 

EXTEND 

eZMF 


ROTSGNSE 
AX ISCTP 
TJETU 

AX  ISCTR 
ACCSWU 


ALL  BRANCHES  TERMINATE  HERE  WITH  TJET 
(SCALED  AT  4 SEC  I IN  THE  ACCUMULATOR® 
ROTSENSE  APPLIES  SIGN  AND  CHANGES  SCALE® 


SET  SWITCH  FOR  JET  SELECT  IF  ROTATION  IS 

IN  A SENSE  FOR  WHICH  1/ACCS  HAS  FORCED 
A MAX- JET  CALCULATION® 


GAP: 

L 

0227 

0228 

0229 

R0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

R0239 

0240 

0241 

0242 

A0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

R0252 

R0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

R026e 


LVCAP 


r025  PAGE  1457 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LL/MINARY  BY  NASA  2C21H2-091 


17:53  CECo  19,196o 


TJET  LAk 


USER  ' S PAGE  NCc  6 


E6  S4 


REF  45  LAST  1454 
REF  18  LAST  1454 
REF  2 LAST  1453 


17,3523  3 4751  C 

17,3534  55’742  0 

17  ,3535  0 1744  1 


CAF  FOUR 

TS  NUMBERT 

TC  HOLOQ 


RETURN  VIA  SAVED  Qo 


TJET 


h/(,025  + TTOAXIS) 


FOR  TJET  LESS  THAN  50  MSECo 


REF  1 

REF  3 LAST  1456 

REF  4 LAST  1456 

REF  5 LAST  1457 

REF  84  LAST  1415 

REF  1 


17  ,3536  4 3766  1 FCRMULAl  CS  -/>025AT4 


17,3537  6 1741  1 

17.3540  52*747  0 

17.3541  0 0006  1 

17.3542  11*746  1 

17.3543  0 0006  1 

17.3544  7 4736  0 

17.3545  1 3656  0 


AO  TTCAXIS 

DXCH  HH 

EXTEND 
DV  HH 

EXTEND 

WP  BIT14 

TCF  CHKMINTJ 


c025  SEC  SCALED  AT  4« 

SCALED  AT  4 SECONDS*. 

STCRE  DENOMINATCR  IN  FIRST  WORD  OF  H, 
WHICH  NEED  NOT  BE  PRESERVED©  PICK  UP 
CP  H ANC  DIVIDE  EY  DENOMINATOR© 

RESCALE  TJET  FROM  2 TO  LSIAL  4 SEC© 

CHECK  THAT  TJET  IS  NOT  LESS  THAN  MINIMUM 


TJET  = (H  + ©00375)/(0«l  4 TTCAXIS)  FOR  TJET  GREATER  THAN  5C  MSEC© 


REF  1 

REF  6 LAST  1457 


17.3546  C 00C6  1 

17.3547  2 3772  0 

17,3550  21*  747  0 


FCRMULA2  EXTEND 
OCA 
DAS 


«00375Ae 

HH 


REF  4 
REF  1 
REF  7 

REF  8 

REF  85 
REF  2 


LAST  1457 

LAST  1457 

LAST  1457 

LAST  1457 
LAST  1455 


17.3551 

17.3552 

17.3553 

17.3554 

17.3555 

17.3556 
17  ,3557 
17,3560 


31*741  1 

6 3762  1 
52*747  0 
C 0006  1 
11*746  1 
C 0006  1 

7 4736  0 
1 3521  0 


CAE 

AD 

DXCH 

EXTEND 

DV 

EXTEND 

MP 

TCF 


TTOAXI S 

©1AT4 

HH 

HH 

BIT14 

RETURNTJ 


©00375  SEC(2I  SCALED  AT  ft- 
STORE  NUMERATOR  IN  OP  H,  WHICH  NEED  NOT 
PE  PRESERVED© 

SCALED  AT  4 SEC© 

Oul  SEC  SCALED  AT  4© 

STCRE  DENOMINATCR  IN  FIRST  WORD  OF  H, 
WHICH  NEED  NOT  BE  PRESERVED©  PICK  UP 
CP  NUMERATOR  AND  DIVIDE  BY  DENOMINATOR 

RESCALE  TJET  FROM  2 TO  USUAL  4 SEC© 

END  SUBROUT  INE© 


SLBRGUTINI ZED  COMPUTATIONS  RECUIREC  FOR  ALL  ENTRIES  INTO  CODING  FOR  ZONES  1,  2,  AND  3# 


REACHED  BY  TC  FROM  3 POINTS  IN  TJETLAVi© 


REF  5 LAST  1456 

REF  6 LAST  1457 

REF  10  LAST  1456 

REF  ft  LAST  1456 

REF  9 LAST  1454 

REF  5 LAST  1457 

REF  I 


REF  1 


17.3561  4 1737  1 

17.3562  55*737  1 

17.3563  31*427  1 

17.3564  0 0006  1 

17.3565  5 1743  0 

17.3566  7 1566  1 

17  ,3567  55*741  0 

17,3570  6 3773  1 

17,5571  C 0006  1 

17.3572  6 3574  1 

17.3573  I 3520  1 

17.3574  L 0002  0 


Z123C0MP  CS 


CAE 

EXTEND 

INDEX 


TS 

AD 

EXTEND 

BZMF 

TCF 

RETURN 


ROTSENSE 

ROTSENSF 

EDOT 

A0RSCIF2 

l/ANETl 

TTOAXIS 

-TJMAX 

+ 2 

FULLTI ME 


USED  IN  RFTUPNTJ  SECTICN  TO  RESCALE  TJET 
AS  TIMF6  AND  GIVF  IT  PROPER  SIGN© 
SCALED  AT  PT/2(5)  RAO/SEC© 


SCALED  AT  2<7)/PI  SEC<2)/RAD© 

STORE  TIME-TO-AXIS  SCALED  AT  4 SECONDS© 

IS  TIME  TC  AXIS  LESS  THAN  150  MSEC© 

NO©  FIRE  JETS,  DO  NOT  CALCULATE  TJET© 
YES©  GO  ON  TO  FIND  TJET 


REF  3 LAST  1455 


17,3575  0 3561  0 


ZCM  ,2  ,3  TC 


Z123CCMP 


SUBROUTINIZEO  PREPARATICN  FOR  ZONEl,2,3-. 


IF  THE  (NEG)  DISTANCE  BEYOND  PARABOLA  IS  LESS  THAN  FLAT 


USE  SPECIAL 


gap: 

L 

R0269 

R0270 

0271 

0272 

02  73 

C274 

R0275 

0276 

0277 

0278 

0279 

0280 

0281 

0282 

0283 

02  84 

0285 

02  86 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

02  95 

R0296 

R0297 

R0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

R0307 

0309 

0310 

0311 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECe  19,1969  LMDAP 


.025  PAGE  1458 


TJET  LAW  USER'S  PAGE  NCe  7 E6  S4 

LOGIC  TO  ACQUIRE  MINIMUM  IMPULSE  LIMIT  CYCLE*  DURING  POWERED  FLIGHT 
OP  ULLAGE,  FLAT  = 0 


REF  6 LAST  1455 

REF  2 LAST  1455 

REF  2 LAST  1455 


17.3576  31*740  0 

17.3577  6 1554  I 

17.3600  0 0006  1 

17.3601  6 3615  0 


CAE  FIREFCT  SCALED  AT  PI/4  RAD* 

AD  FLAT 

EXTEND 

BZMF  ZONEl  NOT  IN  SPECIAL  ZONESn 


FIRE  FOR  AXIS  OR,  IF  CLOSE,  FIRE  MINIMUM  IMPULSE*  IF  ON  AXIS,  COAST* 


REF  1 

REF  6 LAST  1457 
REF  1 

REF  7 LAST  1458 
REF  3 LAST  1457 
REF  11  LAST  1457 
REF  67  LAST  1437 
REF  4 LAST  1458 
REF  23  LAST  1455 
REF  5 LAST  1458 


17.3602  4 1555 

17.3603  6 1741 

17.3604  0 0006 

17 .3605  6 3610 

17.3606  31'741 

17.3607  1 3521 

17.3610  11*427 

17.3611  3 4746 

17.3612  1 3521 

17.3613  0 5675 

17.3614  1 3521 


1 

X 

1 

0 

1 

0 

0 

0 

0 

C 

0 


ZONE2,3 


Z0NE2 

ZCNE3 


CS  Z0NE3L1M 

AD  TTCAXIS 

EXTEND 

BZMF  Z0NE3 

CAE  TTCAXIS 

TCF  RETURNTJ 

CCS  EDCT 

CAF  BIT6 

TCF  PETURNTJ 

TC  CCSHOLE 

TCF  RETURNTJ 


HEIGHT  OF  MIN-IMPULSE  ZCNE  SET  BY  1/ACCS 
35  MSEC  IN  DRIFTING  FLIGHT 
ZERC  WHEN  TRYING  TO  ENTER  GTS  CONTROL* 

FIRE  TO  AXIS* 

CHECK  IF  EDOT  IS  ZERO* 

FIRE  A ONE- JET  MINIMUM  IMPULSE* 

TJET  = +0* 

CANNOT  BE  BECAUSE  NEG  EDOT  COMPLEMENTED* 
TJET  = +0* 


REF 

REF 

REF 

REF 


PEE 


10 

2 

9 

1 


9 


LAST  1455 
LAST  1455 

LAST  1457 

LAST  1457 


17.3615 

17.3616 

17.3617 

17.3620 

17.3621 
17  ,3622 

17.3623 

17.3624 
17  ,3625 


C 0006  1 
5 1745  0 
61*604  1 
C 0006  1 
5 1743  0 
7 1574  1 
20  001  1 
20  001  1 
53*  747  n 


ZCNEl 


EXTEND 

INDEX  ADRSOIFl 

SU  AXISDIST  SCALED  AT  PI/4  RAO* 

EXTEND 

INDEX  ADRSDIF2 

HP  ACCFCTZl  SCALED  AT  2(7»/PI  S£C{2I/PAD* 

CCCUBL 

DDOUBL 

OXCH  HH  DOUBLE  PRECISION  H SCALED  AT  8 SEC(2) 


TEST  WHETHER  TOTAL  TIME  REQUIRED  GREATER  THAN  150  MSEC: 

2 2 
IS  *5(ol50  - TTCAXIS)  - H NEGATIVE  (SCALED  AT  8 SECONDS  ) 


REF  8 
REF  2 

REF  10 
REF  2 


LAST  1450 
LAST  1457 

LAST  1458 
LAST  1457 


17,3627 

17.3630 

17.3631 

17.3632 
17, 3623 

17.3634 

17.3635 


31*741  1 

6 3773  1 
C 00C6  I 

7 0000  0 
0 0006  1 
61*746  C 
0 0006  1 
6 3520  0 


CAE  TTOAXIS 

AO  -TJMAX 

EXTEND 

SQUARE 

EXTEND 

SU  HH 

EXTEND 

BZMF  FULLTIME 


TTOAXIS  SCALED  AT  4 SECONDS* 

-*150  SECOND  SCALED  AT  4, 

HIGH  WORD  OF  H SCALED  AT  B SEC(2)* 
YES*  NEED  NOT  CALCULATE  TJET* 


TEST  WHETHER  TIME  BEYOND  AXIS  GREATER  THAN  50  MSEC  TO  DETERMINE  WHICH  A PFRCX I MAT  I CN  TO  USE* 


REF  11  LAST  1458  17,3636  31*746  0 CAE  HH 

REF  10  LAST  1456  17, '’637  6 7751  C AD  NEG2 

17,3640  C 0006  1 EXTEND 


GAP: 

L 

0312 

R0313 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

R0322 

0323 

0324 

0325 

0326 

0327 

R0328 

R0329 

0331 

0332 

0333 

0334 

0335 


ASSEMBLE  REVISION  131  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-091 
TJET  LAU 


17:53  CEC»  19,1969  LMDAP 
USER’S  PAGE  NCo 


«025  PAGE  1459 
E6  S4 


REF 


I 


17,3641  6 3651 


EZMF  FORMULAS 


TJET  = h/0*l 


TTOAXIS  * «0375 


FOR  APPROXIMATION  OVER  MORE  THAN  5C  MSECo 


REF  1 

REF  12  LAST  1458 

REF  13  LAST  1459 
REF  9 LAST  1458 
REF  1 

REF  6 LAST  1458 


17 

17: 

17 

17 

17 

17 

IT 


-3642 

3643 

,3644 

,3645 

,3646 

,3647 

.3650 


3 3763  0 
53'747  0 
0 0006  1 
11' 746  1 
6 1741  1 
6 3764  1 
1 3521  0 


CAF  *1472  STORE  ol  SEC  SCALED  AT  2 FOR  DIVISION: 

DXCH  HH  DP  H SCALED  AT  8 SFC12)  NEED  NOT  BE 


EXTEND 


PRESERVEOo 


DV  HH 

AO  TTOAXIS 

AC  c0375AT4 

TCF  RETURNTJ 


QUOTIENT  SCALED  AT  4 SECONDSo 
SCALED  AT  4 SECe 
o0375  SEC  SCALED  AT  4<, 

ENC  COMPUTATIONo 


TJET  = H/e025 


TTOAXIS  FOR  APPROXIMATION  OVER  LESS  THAN  50  MSECe 


REF  1 

REF  14  LAST 

REF  15  LAST 
REF  10  LAST 


17,3651  4 3765  1 FCRMULA3  CS 

1459  17,3652  53'747  0 DXCH 

0 0006  1 EXTEND 

11'746  1 OV 


17,3653 
1459  17,3654 
1459  17,3655 


6 1741  1 


AD 


STORE  +o025  SEC  SCALED  AT  2 FOR  DIVISION 
PICK  UP  DP  H AT  8,  WHICH  NEED  NOT  BE 
PRESERVEDo 

QUOTIENT  SCALED  AT  4 SECONDSo 
SCALED  AT  4 SECo 


IF  COMPLTED  JET  TIME  IS  LESS 
MINIMUM  IMPULSES  REQUIRED  IN 
REF  1 17,3656 

17,3657 

REF  3 LAST  1455  17,3660 

REF  1 17,3661 

REF  7 LAST  1459  17,3662 


THAN  TJMIN 
ZONE  3 ARE 
6 3775  1 
C 0C06  1 
6 3455  0 
6 3774  0 
1 3521  0 


, TJET  IS  SET  TO  ZERO, 

NOT  SUBJECT  TO  THIS  CONSTRAINT 
CHKMINTJ  AO  -TJMIN 

EXTEND 

BZMF  COASTTJ 
AO  TJMIN 

TCF  RFTURNTJ 


NATURALLY, 

IS  COMPUTED  TIME  LESS  THAN  THF  MINIMUM, 

YES,  SET  TIME  TC  ZERO, 

NO,  RESTORE  COMPUTED  TI  MEe 
END  COMPUTATION, 


17:53  CEC*  l'5tl96g 


Lf'DAP 


,0?5  PAGE  1460 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARV  BY  NASA  2021112-091 

L TJET  LAV^  USER'S  PAGE  NCo  9 E6  S4 

P0336  ***  ROUGFLAW  *** 


R0340 

R0342 

R0343 


BEFORE  ENTRY  TO  RUFLAVJ: 

lo  INDEXERS  AORSOIFl  AND  ADRSDIF2  ARE  SET  ON  BASIS  OF  AXiSf  AND  SIGN  OF  EOOTo 

2o  IF  EOnT  WAS  NEGATIVE^  E AND  EOOT  ARE  ROTATED  INTO  UPPER  HALF-PLANE  ANO  ROTSENSE  IS  MADE  NEGATiVEo 
3*  E IS  SCALED  AT  PI  RADIANS  AND  EDOT  AT  PI/4  RAD/SECo 
(EXCEPT  THE  PUFLAW3  ENTRY  WHEN  E IS  AT  PI/4) 


R0344 

R0346 

R0348 


RUFLAWl: 
RUFLAW2 : 
PUFLAW35 


ERROR  MORE 
ERROR  MORE 
ERROR  RATE 


NEGATIVE  THAN  Pl/16  RAOo  FIRE 
POSITIVE  THAN  PI/16  RACo  FIRE 
GREATER  THAN  PI /32  RAD/SEC  AND 


TO  A PATE  OF  6*5  DEG/SEC  (IF  JFT  TIME  EXCEEDS  20  MSECo)- 
TO  AN  OPPOSING  PATF  OF  6o  5 DEG/SEC* 

ERROR  WITHIN  BOUNDS*  COAST  IF  BELOW  FIREFCT,  FIRE  IF  ABOVE 


0350 

0351 

0352 

0353 

0354 

0355 


REF  1 

REF  12  LAST  1458 

REF  1 
REF  1 

REF  13  LAST  1460 


17.3663 

17.3664 

17.3665 
17  ,3666 
17,3667 
17,3670 


4 3776  0 
27'427  0 
C 0006  1 
6 3707  1 
0 3745  1 
31'427  1 


RUFLAUl 


CS 

AOS 

EXTEND 

BZMF 

TC 

CAE 


RUFRATE 

EOCT 

SMALRATE 

PUFSETUP 

EDOT 


DECREMENT  FOOT  BY  ^14^4  RAO/SEC  AT  PI/4 
WHICH  IS  THE  TARGET  RATE 

BRANCH  IF  RATE  LESS  THAN  TARGET* 

REVERSE  ROTSENSE  AND  INDICATE  MAX  JETS* 
PICK  UP  DESIRED  RATE  CHANGEo 


0356 

0357  REF  10 

0358  REF  10 

0359  RFF  3 

0360 

0361 

0362  REF  3 

03621 

03622  REF  4 

0363  REF  40 

0364  REF  518 

0365  REF  519 

0366  REF  520 

0367  REF  2 


LAST  1458 
LAST  1457 
LAST  989 


LAST  1458 

LAST  1460 
LAST  1429 
LAST  1453 
LAST  1460 
LAST  1460 
LAST  1457 


17. 3672 

17.3673 

17.3674 

17. 3675 

17.3676 

17.3677 
17,3700 
17,3  701 
17,  3702 

17.3703 

17.3704 

17.3705 

17.3706 


0 0006  1 

5 1743  0 
7 1570  0 

6 7744  I 
C 0006  1 
6 3700  0 
1 3520  I 
C 0006  1 
1 3520  1 
6 4740  0 
20  001  1 
20  001  1 
2C  001  1 
1 3656  0 


RUFLAW12 


EXTEND 

INDEX  A0RSDIF2 

MP  1/ANETl  +2 

AO  -J/8 

EXTEND 

BZMF  +2 

TCP  FULLTIME 

EXTEND 

8ZF  FULLTIME 

AO  BIT12 

DAS  A 

CAS  A 

DAS  A 

TCF  CHKMINTJ 


COMPUTE  TJET 

= (OESIREO  PATE  C HANGE  ) / ( 2- J ET  ACCEL*) 

IF  TJET,  SCALED  AT  32  SEC,  EXCEEDS 
4 SECONDS,  SET  TJET  TO  TJMAX* 


RESTORE  COMPUTED  TJET  TO  ACCUMULATOR* 

RESCALED  TJET  AT  4 SECONDS* 

RETURN  AS  FROM  FINELAW* 


0368  REF  2 LAST 

0369  REF  7 LAST 

0370  REF  172  LAST 

0371 

0372  REF  13  LAST 

0373  REF  11  LAST 


1460 

1457 

1447 

1278 

1460 


17,3710 
17  ,3711 

17.3712 

17.3713 

17.3714 


0 3747  C 
11'737  1 
3 4753  1 

1 371^  1 
3 7752  0 
27'  743  1 


SMALRATE 


TC 

CCS 

CAF 

TCF 

CAF 

AOS 


PUFSETUP  +2 
ROTSENSF 
ONE 
+ 2 

NEGONE 

A0RSCIF2 


SET  MUMBERT  AND  FIREFCT  FOR  MAXIMUM  JETS 

MODIFY  INDFXER  TO  POINT  TO  1/ANET 
CORRESPONDING  TO  THE  PROPER  SENSE* 


037i- 

C375 


REF  1.4  LAST  1460 
REF  1 


17.3715  4 1427  0 

17.3716  1 3671  0 


CS  EOOT  1*144  AT  PI/4  - EOCT  l = D ES I R ED  RATE  CHNG* 

TCF  RUFLAW12 


0376 

0377 

0378 

0379 
03  80 
0381 


REF 

REF 

REF 

REF 


3 

2 

15 

521 

2 

5 


LAST  1460  17,3717 
LAST  1460  17,3720 
LAST  1460  17,3721 
LAST  1460  17,3722 
LAST  1460  17,3723 
LAST  1460  17,3724 


0 3745 
3 3776 
6 1427 
54  OOC 

1 3671 
1 3520 


RUFLAW2 


PUFSETUP 

RUFRATE 

EOOT 

A 

RUFLAW12 
FULLT IME 


REVERSE  ROTSENSE  AND  INDICATE  MAX  JETS* 

(*144  AT  PI/4  + E0CT)=DES1R£0  RATE  CHNGc 
IF  OVERFLOW  SKIP,  FIRE  FOR  FULL  TIME* 
OTHERWISE,  COMPUTE  JFT  TIME* 


gap;  assemble  revision  131  CF  AGC  PPCCPAM  LUMINARY  BY  NASA  2021112-091 
L TJET  LAW 


0382  REF 

0383  REF 
038^  REF 

0385  REF 

0386 

0387  REF 

0388  REF 

0389 

0390 

0391 

0392  REF 

0393  REF 
039A  REF 
03  95 

0396  REF 

0397  REF 


A LAST  1460 
11  LAST  1458 
4 LAST  1455 
16  LAST  1455 

32  LAST  1456 
16  LAST  1460 


12  LAST  1461 
11  LAST  1460 
17  LAST  1461 

4 LAST  1459 
6 LAST  1460 


1 7,3725 

17.3726 

17.3727 

17.3730 

17. 3731 

17.3732 

17.3733 

17. 3734 
17,8735 

17.3736 

17.3737 

17.3740 

17.3741 

17.3742 

17.3743 
17,8744 


0 3745 
51 '745 

4 1600 

6 1751 
C 0CC6 

7 4741 
57'427 
C 0CC6 
7 0000 
0 0006 

5 1745 
7 1570 

6 1427 
0 0006 
6 3455 

1 3520 


RUFLAW3 


1 

0 

I 

0 

1 

0 

1 

1 

0 

I 

0 

0 

1 

1 

0 

1 


TC  RUFSETUP 

INDEX  ADRSCIFl 

CS  FIREOB 

AD  E 

EXTEND 

MP  BlTll 

XCH  EDCT 

E XTEND 
SQUARE 
EXTEND 

INDEX  ADRSniFl 

MP  l/ANETl  +, 

AD  EOCT 

EXTEND 

B2MF  COASTTJ 

TCF  FULLTIME 


R0398  SLBRCUTINE  USED  IN  ALL  ENTRIES  TO  ROUGFLAWe 


0399  REF  8 

0400  REF  9 

0401  REF  46 

0402  REF  19 

0403  REF  11 

0404  REF  7 

0405  REF  418 


LAST  1460  17 
LAST  1461  17 
LAST  1457  17 
LAST  1457  17 
LAST  1451  17 
LAST  1458  17 
LAST  1451  17 


,3745  4 1737  1 
,3746  55'737  1 
,3747  3 4751  0 
,3750  55'742  C 
,3751  2 4735  1 
,3752  55'740  1 
, 3753  C 0002  0 


RLFSETUP  CS  POTSENSE 

TS  ROTSENSE 

+2  CAF  FOUR 

TS  NUMBERT 

CAF  NEGMAX 

TS  FIREFCT 

TC  0 


R0406  CONSTANTS  FCP  TJETLAW 


0407 

0408 

0409 

0410 
A0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0421 

0422 

0423 

0424 

0425 


17.3754 

17.3755 
17  ,3756 
17,3757 


77757  1 DEC 
COOOO  1 AXISOIFF  DEC 
00020  0 DEC 
144C0  0 SENSOR  OCT 


-16 
+ 0 
16 

14400 


17,8760  75673 

17.3761  77750 

17.3762  00632 

17.3763  C1463 

17.3764  00232 

17.3765  77462 

17.3766  77631 

17,?767  77145 

17.3770  75462 

17.3771  C0007 

17.3772  25605 

17.3773  76631 

17.3774  00122 

17.3775  77655 

17.3776  04476 


I -3CEG  cec 

0 -o0112A8  DEC 

0 alAT4  DEC 

1 .lATZ  DEC 

1 o0375AT4  DEC 

1 -e025AT2  DEC 

C -6C25AT4  CEC 
1 -.C5AT2  DEC 

0 -el5AT2  CEC 

0 ,0037548  20EC 
0 

1 -TJMAX  DEC 

0 TJMIN  DFC 

1 -TJMIN  DEC 
C RUFRATE  CEC 


-,06667 

-,00141 

,025 

,05 

,00938 

-,0125 

-,00625 

-,025 

-,075 

,00375  B-: 

-,0375 

,005 

-,0C5 

,1444 


17: 53  DEC,  19,1969  LMDAP 


c 025  PAGE  1461 


USER'S  PAGE  NC,  10  66  S4 

EXECUTE  COMMON  FUFLAU  SLBRCUTINE, 

CALCULATE  DISTANCE  FROM  SWITCH  CURVE 

1/ANET1#ED0T*ED0T  +E  - FIREDB  = 0 
SCALED  AT  4 PI  RADIANS 


COAST  IF  BELOW  IT, 

FIRE  FOR  FULL  PERIOD  IF  ABOVE  IT, 

REVERSE  ROTSENSE  WHEN  ENTER  HERE, 
REQUIRE  MAXIMUM  (2»  JETS  IN  U,V-AXES« 
SUGGEST  MAXIMUM  (4 | jgTS  IN  P-AX  IS, 


AXISDIFFIINOEX)  = NUMBER  OF  REGISTERS 
BETWEEN  STORED  1 /ACCS  PARAMETERS  FOR 
THE  INDEXED  AXIS  AND  THE  U-AXIS, 

PATIO  OF  TJET  SCALING  WITHIN  TJETLAW 
(4  SEC)  TO  SCALING  FOR  T6  (10,24  SEC), 
-3,0  DEGREES  SCALED  AT  45, 

-,01125  SEC(2I  SCALED  AT  0, 

0,  1 SECOND  SCALED  AT  4, 

Oo 1 SFC  SCALED  AT  2, 

,0375  SEC  SCALED  AT  4, 

-,025  SEC  SCALED  AT  2, 


LARGEST  CALCULATED  TIME,  -150  SEC  AT  4, 
SMALLEST  ALLOWABLE  TIME,  ,020  SEC  AT  4, 

COPRESPONCS  TO  TARGET  RATE  OF  6,5  OEG/S, 


GAP  : 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021112-091 


17:33  OECo  19,1969  LPDAP 


025  PAGE  1462 


L KALMAN  FILTER 


USER'S  PAGE  NC»  1 EO  S4 


0001  REF  3 LAST  1447 

0002 

0003  REF  3 last  1413 

0004 


£6,1522 

16,3645 

16,2000 

16,3645 


E6ANK=  ND.UJFTS 
BANK  16 
SETLOC  DAPSl 
BANK 


0005  REF 


COUNT*  S$/DAP 


0006  REF  102 

0007  REF  3 

00071 

00072  REF  419 

0008  REF  4 

0009  REF  14 

0010 

0011  REF  1 

0012  REF  1 

0013 

0014  REF  I 

0015  REF  5 

0016  REF  15 

0017  REF  2 

0018 

0019  REF  3 

0020  REF  6 

0021  RFF  16 

0022  REF  7 

0023  REF  17 

0024  REF  1 

0025 

0026  REF  2 

0027 

0028  REF  8 

0029  REF  3 

0030  REF  292 

0031  REF  9 

00311  REF  29 

00312 

00313  REF  51 

00314 

00315  REF  1 

00316  REF  420 

00317  REF  7 


LAST  1456 
LAST  134 

LAST  1461 
LAST  1462 
LAST  1452 


LAST  1462 
LAST  1462 
LAST  1462 

LAST  1462 
LAST  1462 
LAST  1462 
LAST  1462 
LAST  1462 


LAST  1462 

LAST  1462 
LAST  1429 
LAST  1456 
LAST  14b2 
LAST  1443 

LAST  1402 


LAST  1462 
LAST  134 


16.3645 

16.3646 

16. 3647 
16  ,3650 

16.3651 

16.3652 

16.3653 

16.3654 

16.3655 

16.3656 

16.3657 

16.3660 

16.3661 

16.3662 

16.3663 
16,  3664 

16.3665 

16.3666 

16.3667 
16  ,3670 

16.3671 

16.3672 

16.3673 

16.3674 

16.3675 

16.3676 

16.3677 
16  ,3700 

16.3701 

16.3702 
16  ,3703 

16.3704 

16.3705 

16.3706 

16.3707 


3 4752  0 
55'743  1 
6 0000  1 
54  002  1 
£1*743  0 
1 1 • £24  1 
1 3655  0 
1 3674  0 
6 3735  O 
C 0006  1 

6 3713  1 
51'743  0 
U'£24  I 

3 3735  0 
1 3665  0 

4 3735  1 
51'743  0 
27*  524  1 
£1*743  0 
11*524  1 

4 3621  0 
1 3674  C 
3 3621  1 
C 0006  1 

5 1743  0 

7 1521  1 
3 0001  0 
51*743  0 
55' 736  0 
C 0006  1 
7 4742  0 
C 0006  1 

6 3736  0 
50  002  0 
27*  £13  0 


RATELOOP  CA 
TS 

DCUBLE 

TS 

iNcex 
CC  S 
TCF 
TCF 
AO 

EXTEND 

BZMF 

INDEX 

CCS 

CA 

TCF 

CS 

INDEX 

ADS 

INDEX 

CCS 

CS 

TCF 

CA 

LOOPRATE  EXTEND 
INDEX 
MP 
CA 

INDEX 

TS 

extend 

MP 

EXTEND 

BZMF 

STCRTORK  INDEX 
ADS 


TWO 

DAPTEMP6 

Q 

UAPTEMF6 
TJP 
+ 2 

LOOPRATE 
- 100MST6 

SMALLTJL 

0APTEMP6 

TJP 

-1C0MST6 

+2 

-100*'ST6 

DAPTEMP6 

TJP 

DAPTFMF6 

TJP 

-lOOMS 
+ 2 

-lOOMS 

DAPTEMP6 

NOoPJETS 

L 

DAPTEMP6 

DAPTEMPl 

BITIO 

NEGTGRK 

0 

OCWNTCRK 


0«1  AT 


1 


SIGNED  TORQUE  AT  1 JET-SEC  FOR  FILTER 
RESCALE  TO  32;  ONE  BIT  ABOUT  2 JET-MSEC 


INCREMENT  DOWNLIST  PEGISTER- 

NCTE:  NOT  INITIALIZED;  OVERFLOWS* 


0032  REF  10  LAST  1462 

0033  REF  2 LAST  1420 

0034  REF  1 

0035  REF  301  LAST  1455 

0036  REF  11  LAST  1462 

0037  REF  18  LAST  1462 

0038 


16  ,3710  11  *743  1 

16.3711  1 3646  1 

16.3712  1 3722  1 

16.3713  3 4755  1 

16.3714  51*743  0 

16.3715  57*524  0 

16.3716  0 0006  1 


CCS  0APTeMP6 

TCF  RATELCCP  +1 
TCF  ROTOROUE 

SMALLTJU  CA  ZERO 

INDEX  DAFTeMP6 

XCH  TJP 

EXTEND 


GAP  : 

L 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

R0054 

0055 

0056 

0057 


ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
KALMAN  FILTER 


17: 53  DEC*  19,1965  LMDAP 
USER'S  PAGE  NQo 


o 025  PAGE  1463 
E6  S4 


REF  4 
REF  253 
REF  2 
REF  U 
REF  7 

REF  1 
REF  3 
REF  8 
REF  12 

REF  1 
REF  3 
REF  ] 


LAST  1093 
LAST  1462 
LAST  1462 
LAST  144.3 
LAST  1439 


16.3720 

16.3721 

16.3722 

16.3723 

16.3724 
16  ,3725 

16. 3726 

16.3727 

16.3730 

16.3731 

16.3732 

16.3733 

16.3734 

16.3735 


7 4760  0 
3 0001  0 
1 3674  0 

3 1737  0 

6 1740  0 
C 0006  1 

7 1532  0 
55'746  1 

4 1740  1 

6 1737  0 
C 0006  1 

7 1531  0 
55'745  1 
1 2316  0 

77537  0 


RCTOPOUE 


ELEVEN 

L 

LOOPRATE 

DAPTeMP2 

DAPTEMF3 

IJACCR 

JETRATER 

DAPTEMP3 

DAPTEMP2 

IJACCQ 

JETPATEQ 

8ACKP 

-160 


LAST  1419 
LAST  1463 
LAST  1463 


LAST  1418 


TS 

TCF 

-100MST6  DEC 


lOo  24  PLUS 


REF  421  LAST  1462 
REF  1 


16.3736  4 0000 

16.3737  24  0C2 

16,3740  1 3706 


0 NEGTORK  COM 

0 IN'CR 

1 TCF 


0 

STCPTCRK 


ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
TRIM  GIMBAL  CONTROL  SYSTEM 


0001 

0002 

0003 

000^ 


17:53  DECo  19*1969  LMDAP 

USER  *S  PAGE  NOo  1 


21,3076 
E6  ,1A50 
21*2000 
21*3076 


BANK  21 
EBANK=  QDIFF 
SETLCC  OAPSA 
BANK 


PAGE  l^6A 
EC  S4 


00045  REF 


1 


COUNT*  $$/DAPGT 


ROO05  CONTROL  REACHES  THIS  POINT  UNDER  EITHER  OF  THE  FOLLOWING  TWO  CCNCITIPNS  ONCE  THE  DESCENT  ENGINE  AND  THE  DIGITAL 
R0007  ALTCPILCT  ARE  ECTH  CM 

R0008  A1  THE  TRIM  GIMBAL  CCNTRCL  LAW  WAS  ON  DURING  THE  PREVIOUS  Q*R-AXIS  TIMES  INTERRUPT  (OR  THE  OAPIOLEP 

ROOin  INITIALIZATION  WAS  SET  FOR  TRIM  GIMBAL  CONTROL  AND  THIS  IS  THE  FIRST  PASS),  OR 

R0012  01  THE  OrR-A!<ES  RCS  AUTOPILOT  DETERMINED  THAT  THF  VEHICLE  WAS  ENTERING  (OR  HAD  JUST  ENTERED)  A CCAST 

R0C14  ZONE  WITH  A SMALL  OFFSET  ANGULAR  ACCELERATION^ 


R0015 

0018 

0019 

0020 
0021 
0022 


GTS  IS  THE  ENTRY  TO  THE  GIMBAL  TRIM  SYSTEM  FOR  CONTROLLING  ATTITUDE  ERRORS  AND  RATES  AS  WELL  AS  ACCEL ERAT lONSo 

GTS 


REF  14 
REF  6 
REF  47 


LAST  1461 
LAST  1447 
LAST  1447 


21.3076 

21.3077 
21  ,3100 
21,3101 
21,31C2 


3 7752  0 
55‘63C  1 
3 4751  0 
55' 534  0 
55*535  1 


CAF 

TS 

CAF 


NEGCNE 
COTRCLER 
FOUR 
SKIPU 
SKI  PV 


MAKE  THE  NEXT  PASS  THROUGH  THE  DAP  BE 
THROUGH  RCS  CONTROL, 

AND  ENSURE  THAT  IT  IS  NCT  A SKIPo 


00225 

0023 

0024 

0025 


REF 

REF 


LAST  1421 
LAST  1421 


21  ,3103 
21,3)04 
21 ,3105 
21  ,3106 


3 4752  0 
55'632  0 
55*631  0 
55*  633  1 


TWO 
INGTS 
OGIMTIMR 
RGIMT IMP 


SET  INDICATOR  OF  GTS  CONTROL  POSITIVEo 
SET  TIMERS  TO  200  MSEC  TC  AVOID  BOTH 
RUNAWAY  AND  INTERFERENCE  BY  NULLING^ 


R0026 

R0027 


THE  DRIVE  SETTING  ALGORITHM 

DEL  = SGMCMEGA  + « LPF  A^ABS  ( A L P )- A )/ ( 2 *K  ) ) 


0033 

003^ 

0035 


NEGUSUM 
DRIVE  = 


: ERROR*K  + ALPHA*(OEL*OMEGA 
•SGN(NeGUSLM) 


ALPHA  /(  3*K  I ) 


21,3111  55*  505  1 


ALPHA  / (2*K)  ) 


0040 

0041 

0042 

0043 


LAST  1464 


REF  54  LAST  1436 


21.3116 

21.3117 

21.3120 

21.3121 


51' 747  1 
3 1536  C 
C 0006  1 
7 4752  1 


INDEX 

CA 

EXTEND 


SET  INDEXER  FOR  P-AXIS  CALCULATIONS. 

SET  INDEXER  FOR  Q-AXIS  CALCULATIONS 

AOS  SCALED  AT  PI/2 

RESCALE  AOS  TO  PI/4 


GAP  : 

L 

004^ 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

006). 

0062 

0063 

0064 

C065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0060 

0081 

0082 

0083 

0084 

0085 


ASSEMBLt  REVISION  131  CF  AGC  PRCGPAP  LUMINARY  BY  NASA  2021112-09) 


17:53  DECo  19,1965  LMDAP 


025  PAGE  1465 


TRIM  GIMBAL  CONTROL  SYSTEM 


USER'S  PAGE  NOo  2 E6  S4 


REF 


0 0006  1 
1 3127  1 


EXTEND 

B2F  GTSCAXIS  -3  USE  FULL  SCALE  FOP  LARGER  AOS  ESTIMATES© 


REF  523  LAST  1464 
REF  10  LAST  1449 
REF  294  LAST  1463 


21,3124  50  000  1 
21  ,3125  4 4734  1 
21,3126  56  OCl  0 


INDEX  A 

CS  LIMITS  LIMITS  +1  CONTAINS  NEGMAXr 

XCH  L LIMITS  -1  CONTAINS  POSMAXo 


REF  3 
REF  524 
REF  5 
REF  1 


LAST  1464 
LAST  1465 
LAST  1434 


21,3127 

21.3130 

21.3131 
21  ,3132 


11 » 747  0 
50  000  1 
2 1436  1 
53'743  1 


CCS 

INDEX 

CA 


GTSOAXIS  CXCH 


ORCNTR 

A 

EOOTQ 

IsCENTRAL 


PICK  UP  RATE  FOR  THIS  AXIS©  RATE  CELLS 
ARE  ADJACENT,  NOT  SEPAPATFDo  AT  PI/4 


REF  4 
PEF  3 
REF  1 


LAST  1465 
LAST  133 


21.3133 

21.3134 

21.3135 


51*747  1 
3 1504  1 
55*740  1 


INDEX  ORCNTR  COLLECT  K FOR  THIS  AXIS 

CA  KO 

TS  KCENTRAL 


REF 


21. 3136  0 0006 

21.3137  1 3575 


EXTEND 

RZF  POSDRIve  ^1 


CONTROL  AUTHOR ITY 
ENGINE  BELL  TO  THF 


ZEROo  AVOID  DRIVING 
STOPS© 


REF  5 LAST  1465 
REF  2 LAST  1464 


1 

1 


INDEX  ORCNTR  QDIFF,  RDIFF  ARE  STORED  IN  D,  P© 

CAE  ODIFF 


REF  2 
PEF  1 

REF  51 
REF  2 

REF  52 
REF  3 


21,3142 
LAST  1465  21,3143 

21,314'^ 
21,3145 
LAST  1453  21,3146 

LAST  1465  21 ,3147 

21,3150 
LAST  1465  21,3151 

LAST  1465  21,3152 


0 0006  1 
7 174C  1 
23*736  1 
C 0006  1 
7 4747  0 
53*737  1 
C 0006  1 
7 4747  0 
27*  737  ] 


ALGORTHM  EXTEND 
MP 

LXCH 

EXTEND 


CXCh 

EXTEND 


KCENTRAL 

K2THETA 

8!  T5 
K2THETA 

BITS 

K2THETA  + 


1 


OIRIOIFF  IS  theta  (ERRORI  SCALED  AT  PU 
FORM  K*BRR0R  at  PI(?)/2(8),  IN  DoP© 


RESCALE  TC  4*PI  (2  ) 


FIRST  TERM  CF  NF6USUM  IN  K2THETA© 
NO  CARRY  NEEDED  DeP:  AT  4*PI(2) 


REF 

REF 

REF 

REF 

REF 


1 

86 

2 

3 


1 


LAST  1457 

LAST  1465 
LAST  1465 


21.3154 

21.3155 

21. 3156 
21  ,3157 

21.3160 

21. 3161 
21  ,3162 


7 4736  0 
0 0006  1 
7 1743  1 
6 174C  0 
0 0006  1 
6 3177  0 


CS 

EXTEND 

MP 

EXTEND 

MP 

AD 

EXTEND 

BZMF 


ACENTRAL 

BIT14 

ACENTRAL 

KCENTRAL 

HUGEQUOT 


FORM  ALPFA(2  )/ (2*k  ) AT  16*PI,  IN  0©P©, 
LIMITING  QUOTIENT  TC  AVCID  OVERFLOW® 
-ALPHA/2  IN  A,  SCALED  AT  PI/4 

-ALPHA(2)/2  IN  A,L,  SCALED  AT  PI{2)/16 


K-ALPHA(2}/2  SHOULD  BE  PNZ  FO  DIVISION 


REF  525 
RFF  4 

REF  5 
REF  1 
REF  295 


LAST  1465 
LAST  1465 

LAST  1465 

LAST  1465 


21.3164 

21 .3165 

21. 3166 
21  ,3167 

21.3170 

21.3171 
21  ,3172 
21, 3173 


n 0C06  I 
4 0001  1 
6 1740  0 
0 C006  1 
11*740  1 
57*745  0 
2 0001  0 
22  007  0 
C 0006  1 


A 

KCENTRAL 

KCENTRAL 
A2  CNTRAL 
L 
7 


ALPHA! 21 /2  - K 


HIGH  ORDER  OF  QUOTIENT© 

SHIFT  UP  THE  REMAINCFR© 
ZFPn  LOW-ORDER  DIVIDEND. 


GAP; 

L 

0086 

0087 

0088 

0089 

0090 

0091 

00  <32 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

Pin 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 


17:53  CECo  19,196Q 


LMDAP 
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ASSEMBLE  REVISION  131  OF  AGC  PPCGRAP  LUMINARY  BY  NASA  2021112-091 
TRIM  GIMBAL  COMRCL  SYSTEM 

1 D 


REF 

REF 

REF 


1 


21.3174 

21.3175 

21.3176 


11'740 
57‘ 746 
1 3202 


KCEMRAL 
A2CNTRAL  +1 
HAVFOUOT 


REF  40  LAST  1414 
REF  296  LAST  1465 
REF  3 LAST  1466 


21,3177 
21, 3200 
21  ,3201 


3 4733  1 
54  001  1 
53*746  I 


HUGEQUCT  CA 


LAST  1465 


21.3202 

21.3203 
21  ,3204 
21,3205 


0 0006  I 
7 4743  1 
53*742  0 


6IT9 

K2CNTRAL 


LAST  1466 


21.3206 

21.3207 
21, 3210 


0 0006  1 
3 1742  1 
53*751  1 


EXTEND 

OCA 

OXCH 


K2CNTRAL 

FUNCTION 


LAST  1465 


21  ,3211 

21.3212 

21.3213 


1743 

CC06 

3217 


LAST  1466 


21.3214 

21.3215 

21.3216 


0006  1 
1746  0 
3221  1 


EXTEND 

OCA 

TCF 


REF 

RFF 


LAST 

LAST 

LAST 


1466 

1466 

1466 


21  ,3221  21 *751  1 


21.3222 

21.3223 

21.3224 

21.3225 


11*750  0 
1 3227  1 
1 3226  0 
1 3231  0 


CCS 

TCF 

TCF 

TCF 


A2CNTRAL 

FUNCTION 

FUNCTICN 
P0SFNC71 
+ 2 

NE6FNCT1 


65  LAST  1466 


21  ,3226 
21,3227 
21,3230 
21  ,3231 
21,3232 


11*751  1 

3 4753  1 
1 3232  0 

4 4753  0 
55*744  0 


CCS 

PCSFNCTl  CAF 
TCF 

NEGFNCTl  CS 
TS 


REF 

REF 

REF 

REF 


LAST  1466 


11 *744 
1 3246 
1 3237 
1 3243 


CCS 

TCF 

TCF 

TCF 


DEL 

FUNCT2 

DEFUNCT 

NEGFNCT2 


REF 

REF 

REF 


LAST 

LAST 

LAST 


1466 

1466 

1466 


21,3237 
21,3240 
21  ,3241 


55*  741 
55*742 
I 3246 


DEFUNCT  TS 


K2CNTRAL 

K2CNTRAL 

FUNCT2 


USER*  S PAGE  NCo  3 


E6  S4 


QUOTIENT  STORED  AT  16«P1  , D«,Po 


LIMITED  QUOTIENT  STORED  AT  le^PI,  D, Pc 


RESCALE  OMEGA  AT  16*PI  IN  OoPc 
LOWER  WORD  OVERLAYS  OMEGA  IN  WCENTRAL 


GET  ALPHA*APS(ALPHA)/(2*K) 


OMEGA  + ALPHA#ABS(  ALPHA  ) /2*K»  AT  16<‘PI 

CEL  = +1  FOR  FUNCTT  GREATER  THAN  ZEROo 
CTHERWI SE  DEL  = -1 

USE  LOW  ORDER  WORD  SINCE  HIGH  IS  ZERO 


REPLACE  CMEGA  BY  CEL+CMEGA 
POSITIVE  DEL  VALUE®  PPOCEEOo 


GAP : 

L 

012A 

0125 

0126 

0127 

012a 

0129 

0130 

0131 

0132 

0133 

013A 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0J45 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

015^ 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 


ASSewbLE  REVISION  131  CF  AGO  PFCCRAM  LUMINARY  BY  NASA  2021112-091 


LROAP 


025  PAGE  1467 


17:53  OECo  19,1969 


TRIM  GIMBAL  CONTROL  SYSTEM 


USER  'S  PAGE  NC* 


E6  S4 


21,32^2  65252  1 NEGl/3  DEC 


REF  5 
REF  6 


LAST  1466 
LAST  1467 


21,32^3 
21, 32AA 
21,3295 


0 0 006  1 
* 1742  0 
53'742  0 


NEGFNCT2 


EXTEND 

DCS 

OXCH 


K2CNTRAL 

K2CNTRAL 


REF 

REF 


6 LAST  1966 

7 LAST  1467 


21.3246  C 0006  I FUNCT2 

21.3247  3 1746  0 

21  ,3250  21*742  0 


EXTEND 

OCA  A2CNTRAL 
DAS  K2CNTRAL 


DEL*OMEGA 


ALPHA(2)/(2*K)  AT  16#PI,0cP« 


REF  7 LAST  J467 
REF  1 

REF  8 LAST  1467 
REF  297  LAST  1466 

REF  2 LAST  1467 
REF  9 LAST  1467 
REF  298  LAST  1467 

REF  10  LAST  1467 


21.3251  3 1745 

21.3252  C 0006  1 

21  ,3253  7 3242  1 

21.3254  53*746  1 

21.3255  3 0001  0 

21.3256  C 0006  1 

21.3257  7 3242  1 

21  ,3260  27*746  1 

21.3261  54  CCJ  1 

21.3262  1 3264  0 

21.3263  27*745  1 


CA  A2CNTRAL 

EXTEND 

MP  NFGl/3 

DXCH  A2CNTRAL 

CA  L 

EXTEND 

MP  NEGl/3 

AOS  A2CNTRAL 

TS  L 

TCF  ^-2 

AOS  A2CNTRAL 


0 FLNCT3 


A2CNTRAL  NCW  CONTAINS  -AL PF A ( 2 I / { 6 ♦K I , 
SCALED  AT  16*PI,  IN  DoPc 


REF  8 
PEF  11 


LAST  1467 
LAST  1467 


21.3264 

21.3265 

21 .3266 


C CQC6  I 
3 1742  1 
21’ 746  1 


EXTEND 

OCA  K2CNTPAL  DEL*OMEGA 

DAS  A2CNTRAL  SCALED  AT 


+ ALPHA(?)/(3*K)  IN  A2CNTRAL, 
1 6*P  I , DoPo 


PEF  12  LAST  1467 

REF  4 LAST  1466 
PEF  4 LAST  1465 
REF  13  LAST  1467 

REF  5 LAST  1467 
REF  5 LAST  146? 
REF  299  LAST  1467 

REF  6 LAST  1467 


21,3267  3 1745  0 

21  ,3270  0 0006  1 

21 .3271  7 1743  1 

21.3272  21*737  I 

21  ,3273  3 1 746  0 

21.3274  C 0006  1 

21.3275  7 1743  1 

21.3276  27*  737  1 

21.3277  54  001  1 

21  ,3300  1 3302  1 

21,3301  27*736  C 


CA 

EXTEND 

MP 

DAS 

CA 

EXTEND 

MP 

ADS 

TS 

TCF 

ADS 


A2CNTRAL 

AC  ENTRAL 

K2THETA 

A2CNTRAL 

ACENTRAL 

K2THETA 

L 

+ 2 

K2THETA 


+ 1 


ACENTRAL  MAY  NOW  BE  OVERLAIOo 


TWO  TERMS  OF  NEGUSUM  ACCUMULATED,  SO  FAR 
SCALED  AT  4*PI(2),  IN  DePo 


REF  9 

REF  7 
REF  5 
REF  10 

PEF  8 
REF  6 
REF  300 


LAST  1467 

LAST  1466 
LAST  1466 
LAST  1467 

LAST  1467 
LAST  1467 
LAST  1467 


21.3302 

21.3303 

21. 3304 

21 .3305 

21.3306 

21.3307 
21  ,3310 

21.3311 

21.3312 

21.3313 

21.3314 


2 1741  1 
0 0006  1 
7 1740  1 
53*751  I 

3 1742  I 
0 0006  1 
7 1740  1 
27*751  1 
5*  001  1 
1 3315  1 
27*750  0 


GETROOT 


CA  K2CNTRAL 

EXTEND 

MP  KCEMPAL 

OXCH  FUNCTION 

CA  K2CNTRAL  +1 

EXTEND 

MP  KCENTRAL 

ACS  FUNCTICN  +1 

TS  L 

TCF  +2 

ADS 


K*(OEL*OMeGA  * ALPFA(2  ) /(2#K M IS  THF 
TERM  FOR  WHICH  A SQUARE  ROOT  IS  NEEDED., 
K AT  PI/2 (8  I 


REF  7 LAST  1467 


FUNCTION 


DESIRED  TERM  IN  FUNCTION,  AT  PH2)/16 


GAP; 

L 

0167 

0166 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0X77 

0178 

0179 

R0180 

R0182 

R0184 

0185 

01  86 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

02  02 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
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TRIP  GINBAL  CCMPCL  SYSTE« 


LSER*  S PAGF  NCo  5 E6  S4 


REF 

REF 

PEF 

REF 

REF 


LAST  1466 

LAST  1468 


21,3316 
21  ,3317 

21.3320 

21.3321 


11*  744 
1 3523 
1 3565 
1 3322 
1 3565 


0 

1 

0 

0 

C 


CCS 

TCF 

TCF 

TCF 

TCF 


RSTCFGTS 

NEGUSUM 

NEGATE 

NEGLSLM 


PEF  U LAST  1467 
PEF  12  LAST  1468 
REF  2 LAST  1466 


21  ,3322 

21. 3323 

21.3324 

21.3325 


0 0006  1 
4 1742  C 
53'742  0 
I 3523  1 


NEGATE 


EXTEND 

DCS  K2CNTRAL 
OXCH  K2CNTRAL 
TCF  RSTOFGTS 


16,3741 

REF  5 LAST  1420  E6,1501 

REF  4 LAST  1462  16,2000 

16,3741 


BANK  16 
EBANK=  NFGUQ 
SETLOC  DAPSJ 
BANK 


THE  RRCHN12  SUBROUTINE  SETS  BITS  9,10,11,12  OF  CHANNEL  12  ON  TFE  BASIS  OF  THE  CONTENTS  OF  NFGUQ, NEGUR  RHICH  ARE 
THE  NEGATIVES  OF  THE  DESIRED  ACCELERATION  CHANGESa  ACDT+C12  SETS  OIPIACCDOT  TO  REFLECT  THE  NEW  ORIVESo 


WARNING:  AC0T  + C12  ANC  WRCFM2  RUST  BE  CALLED  WITH  INTERRUPT  INHIBITED. 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


8 

6 

4 

4 

3 


LAST  1292 
LAST  1468 

LAST  133 
LAST  1420 
LAST  1421 


LAST  1421 


16,3741  C7400  1 

0066 

16  ,3742  4 1501  0 

16.3743  0 0006  I 

16.3744  7 1507  0 

16.3745  23' 510  1 

16.3746  4 1503  I 

16  ,3747  0 0006  1 

16.3750  7 1511  1 

16.3751  23'512  C 


BGIN  OCTAL  07400 

CHNL12  EQUALS  IT6MP6 

ACCT+C12  CS  NEGUO 

EXTEND 

MP  ACCOCTQ 

LXCH  QACCCCT 

CS  NEGUR 

EXTEND 

MP  ACCOCTR 

LXCH  PACCDCT 


GIMEAL  DRIVE  REQUESTS. 


REF 

PEF 


36  LAST  1466 


16.3752 

16. 3753 

16.3754 

16.3755 

16.3756 


11'  501  n 

2 4742  1 
1 3756  1 

3 4743  0 
54  G66  C 


eiT9 
CHNLl  2 


REF  4 LAST  1468 
REF  41  LAST  1460 

REF  33  LAST  1461 
REF  2 LAST  1460 


16,3757  11*503  1 

16.3760  2 4740  0 

16.3761  1 2763  1 

16.3762  3 4741  1 

16,3762  26  C66  0 


CCS  NEGUR 

CAF  BITJ2 

TCF  +2 

CAF  PITH 

AOS  CHNL12 


(STORED  RESULT  N(^T  USED  AT  PRESENT) 


REF  1 

REF  72 
REF  3 

REF  73 


LAST  1421 
LAST  1468 

LAST  1468 


16.3764 

16.3765 

16.3766 

16.3767 

16.3770 

16.3771 


4 3741  1 
0 0006  1 
02  012  0 
6 0066  1 
C 0006  1 
01  012  0 


CS  BGIM 

EXTEND 

RAND  CHAN12- 
AD  CHNL12“ 

EXTEND 

WRITE  CHAN)2 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  0Y  NASA  2021112-091  17:53  CECo  19,1569  LMCAP 

L TRIM  GIM8AL  CCMRCL  SYSTEM  USER'S  PAGF  NC, 


025  PAGE  1469 
E6  S4 


R02H 

0212  REF 
02J.3  REF 
0214  REF 


2 LAST  1420 

52  LAST  1440 

53  LAST  1469 


16.3772  i 4747  0 

16.3773  7 1262  1 

16.3774  5£'262  1 


CS  CALLGM8L  TURN  OFF  REQUEST  FCP  ACCT+C12  EXECUTION. 

MASK  RCSFLAGS 
TS  RCSFLAGS 


0215  REF  422  LAST  1463 


16,3775 


0002  0 


TC  0 


RETURN  TO  CALLERo 


0216 

0217 

0216 

0219 


REF 

REF 


21,3326 

9 last  1465  E6,1450 

2 LAST  1464  21  ,2000 

21,3326 


BANK  21 
eBANK=  QDIFF 
SETLOC  DAPS4 
BANK 


17:53  DECo  l‘?,l<569  L^CAP 


,025  PAGE  1^70 


gap:  ASSEPBLE  revision  131  OF  A6C  PRCCRAM  LUMINARY  BY  NASA  2021112-091 

L TRIM  GIMBAL  CONTROL  SYSTEM 

P0220  SUBROUTINE  TIMEGMBL:  MOD  0,  OCTOBER  1967  , CRAIG  IhCRK 


USER  'S  PAGE  NOe 


R0221 

R0223 

R0225 

R0227 

R0229 

R0231 

R0233 


TIMEGMBL  CCMPUT6S  THE  DRIVE  TIME  NEEDED  FCR  THE  TRIM  GIMBAL  TO  POSITION  THE  DESCENT  ENGINE  NOZZLE  SC  AS  TO  NULL 
TEE  OFFSET  ANGULAR  ACCELEKATICN  ABOUT  THE  C ( CR  R>  AXISo  INSTEAD  OF  USING  AOSOIRI,  TIMFGM0L  USES  ^^•^'AOSQ{R). 
SCALED  at  P1/8o  FOR  EACH  AXISi  THE  DRIVE  TIME  IS  CCMPUTED  AS  AB S ( A L P H A / ACC  OCT > o A ZERO 

ALPHA  OR  ACCDOT  OR  A ZERO  CUCTIENT  TURNS  CFF  TFF  GIMBAL  DRIVE  IMMEDIATELY,  OTHERWISE,  THE  GIMBAL  IS  TURNED  ON 
DRIVING  IN  THE  CORRECT  DIRECTION,  THE  Q(R)GIMT1MR  IS  SET  TC  TERMINATE  THF  DRIVE  AND  OIRIACCOOT 
IS  STCREO  TC  REFLECT  THE  NEW  ACCELERATION  DERIVATIVE,  NEGUQ(R)  WILL  CONTAIN  +l,  + n,-l  FCR  A CIRIACCDOT  VALUE 
WHICH  IS  NEGATIVE,  ZERO,  CR  FCSITIVE, 


INPUTS: 

DUTPLTS: 


AOSUtAOSR,  SCALED  AT  PI/2,  AND  ACCOOTQ,  ACCOOTR  AT  PI/2(7), 


R0239  DEBRIS:  A,L,C,  ITEMPS  2»3»6,  RUPTREG2  AND  ACCT+C12  DEBRIS, 
R0240  EXITS:  VIA  TC  0, 

R0241  ALARMS,  ABORTS*  : NGNE 

R02A2  SLBROLTINES:  ACDT+C12t  IBNKCALL 


R02‘^6  ERASABLE  STORAGE  CCNF I GURAT I C N (NEEDED  BY  THE  INDEXING  METHODS): 

A02<k7  NEGUO  erase  +2 

A0248  (SPWORDI  EQUALS  NEGUO  +1 

A0249  NEGUR  EQUALS  NEGUC  +2 


NEGATIVE  GF  0-AXIS  GIMBAL  DRIVE 

ANY  SoPo  ERASABLE  NUMBER,  NOW  THRSTCMO 

NEGATIVE  OF  R-AXIS  GIMBAL  DRIVE 


A0250 

A0251 

A0252 

A0253 

A025^ 

A0255 


ACCOOTQ  ERASE  +2 
(SFWORD)  EQUALS  ACCOOTQ  +1 
ACCDOTR  EQUALS  ACCOCTC  +2 


ACSC 

AOSR 


ERASE  +«• 
EQUALS  AOSG 


0-JERK  TERM  SCALED  AT  PI/2(7>  RA0/SEC(3I 
ANY  S,P,  ERASABLE  NUMBER  NOW  OACCDOT 
R-JERK  TERM  SCALED  AT  PI/2(7>  PA0/SEC(3I 
ACCOOTQ , ACCDOTR  ARF  MAGNITUDES, 

Q-AXIS  ACC,, Dr. P,  AT  PI/2  R/SEC(2I 
R-AXIS  ACCELERATION  SCALED  AT  PI/2  R/S2 


02  56 

0257 

0258 


PEF 

REF 


LAST  1468 
LAST  1367 


0066 

21,3326 

^^063 


CRNDXER  EQUALS  ITEMP6 
23146  0 CCT23)46  OCTAL  23146 

NZACCDOT  EQUALS  ITEMP3 


REF  173  LAST  146C 
REF  3 LAST  1441 


TIMEGMBL  CAF 


INITIAL  IZE  ALLOWGTS, 


0261 

0262 

0263 


REF  105  LAST  1464 
REF  ^23  LAST  1<.6S 
REF  25  LAST  1401 


21,3333  22  C7I  1 


CAF 
LXCH 
L XCH 


TWO 

0 

RUPTREG? 


GAP: 

L 

026A 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

027A 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0282 

0283 

02  8A 

0285 

0266 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

02  97 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 


,025  PAGE  1471 
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17:53  CECc  19,1969  LMCAP 
USER  'S  PAGE  NCo 


E6  S4 


REF  303  LAST  1464 
REF  1 

REF  2 LAST  IA71 
REF  5 LAST  1468 

REF  1 
REF  1 


21.3335  ? 4755  1 

21.3336  54  C66  0 

21, 3527  5C  C66  1 

21.3340  3 1507  1 

21.3341  0 0006  1 

21.3342  6 3412  0 

21  ,3343  54  063  0 


TIMQGMBL 


TCF 

CAF 

TS 

I NOEX 
CA 

EXTEND 

RZMF 

TS 


ZERO 

QRNDXER 

ORADXER 

ACCDOTQ 

TGCFFNCU 

NZACCOOT 


NOW  00  THE  Q-AXIS 


ACCOOT  IS  PRESUMED  TC  RE  AT  PI/2(7U 

IS  ACCOOT  LFSS  THAN  OR  EQUAL  TO  0? 

NO*  STORE  NON-ZERC,  POSITIVE  ACCOOT* 


REF  3 LAST  1471 
REF  24  LAST  146^ 

REF  2 LAST  1471 


21.3344  5C  C6e  I 

21.3345  4 1536  1 

21.3346  0 0006  1 

21.3347  1 3412  1 


ALPHATRY  IN'CEX 
CS 

EXTEND 

BZF 


ORNCXER 

AOSO 

TGCFFNCW 


IS  ALPHA  ZERO? 


REF  424 

REF  1 
REF  425 
REF  301 
REF  1 


LAST 


LAST 

LAST 


1470  21 ,3350  54  002  1 

21.3351  0 0006  1 

21.3352  7 3326  1 

1471  21  ,3353  6 0002  0 

1467  21,3354  54  OCl  1 

21,3355  1 3362  1 


0 

DCT23146 

0 

L 

SF  TNEGU 


SAVE  A COPY  OF  -ACS* 

NO,  RESCALE  FOR  TIMEGMBL  USE- 
CCTAL  23146  IS  DECIMAL  *6 
-l,64A0S  AT  PI/?  = -c4»A0S  AT  PI/8« 
WAS  THERE  OVERFLOW? 

NO*  COMPUTE  DRIVE  TIME, 


RFF  526 
REF  4 
REF  8 
REF  1 


LAST  1465 
LAST  1471 
LAST  1468 


21.3356 

21.3357 

21.3360 

21.3361 


4 0000  0 
5C  C66  1 
57 '501  1 
1 3416  0 


CS  A 

INDEX  ORNDXER 

XCH  NEGUO 

TCF  NOTALLOW 


RECOVER  -SGNIAOSI  IN  THE  A REGISTERr 
YES,  START  DRIVE  WITHOUT  WAITLIST, 

KNOCK  DOWN  THE  ALLOWGTS  FLAG, 


REF  I 


21.3362  0 0006  1 SETNEGU  EXTEND 

21.3363  6 3370  0 BZMF  POSALPH 


REF  27 
REF  66 
REF  2 
REF  28 
REF  67 
REF  5 
REF  9 


21,3364 
LAST  1368  21,3365 
LAST  1466  21,3366 
LAST  1471  21,3367 
LAST  1471  21 ,3370 
LAST  1471  21,3371 
LAST  1471  21, 3372 
LAST  1471  21  ,3373 


4 COCO  0 
54  062  1 
4 4753  0 
1 3372  0 

54  062  1 POSALPH 
3 4753  1 
50  066  1 +2 

55*  503  0 


COM 

TS  ITEMP2 

CS  8IT1 

TCF  PCSALPH  +2 
TS  1TEMP2 

CA  BIT! 

INDEX  QRNDXER 
TS  NEGUQ 


STORE  -ABS(o4*A0S)  SCALED  AT  PI/S, 

STORE  -ABS(,4*A0S>  SCALED  AT  PI/8, 

SGMACS>  INTO  NEGU 
STORE  SGN(APLHA)  AS  NEGU 


REF  2 

REF  42 
REF  29 

REF  2 
REF  30 

REF  1 

REF  3 


LAST  1471 

LAST  1468 
LAST  1471 

LAST  1471 
LAST  1471 

LAST  1471 


21. 3374 

21.3375 

21.3376 

21.3377 
21  ,3400 
21  ,3401 
21,3402 
21  ,3403 
21, 3404 
21 ,3  405 
21,3406 


2 CC63  1 
0 0006  1 
7 4740  1 
6 0062  0 
0 0006  1 

6 3416  I 
4 0062  1 
0 0006  1 

7 3437  C 
C 0006  1 
1C  063  0 


CA  NZACCOCT 

EXTEND 

MP  PIT12 

AD  ITEMP2 

EXTEND 

BZMF  NOTALLCW 

CS  1TEMP2 

EXTEND 

MP  0CT00240 

EXTEND 

DV  NZACCOCT 


2*ACCD0T,  SCALED  AT  PI/8o 
-ABS(ALPHA)  + 2*ACCCCT,  AT  PI/8, 

IS  DRIVE  TIME  MORE  THAN  TWO  SECONDS? 
NO,  COMPUTE  DRIVE  TIME, 

ABS(ALPHA)  AT  PI/P, 

DECIMAL  10/1024 

QUOTIENT  IS  DRIVE  TIME  AT  WAITLIST, 
ABSIALPHAJ/ACCDOT  AT  2(141/100 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  FPCGRAM  LUMINARY  BY  NASA  2021112-091 


TRIM  GIMBAL  CONTROL  SYSTEM 


0310 

0311 

0312 


REF  3 

REF  1 

REF  3CA 
BEF  6 
REF  10 


LAST  1A71 


LAST  1471 


21,3411  1 3424  1 


21.3412 

21.3413 
21  ,3414 


3 4755  1 
5C  C66  1 
55*501  0 


TGCFFNCW 

DRIVFON 

ZERO 

QRNOXER 

NEGUO 


0313 

0314 

0315 

0316 

0317 

0318 
A0319 

0320 


REF 


1 


21,3415  1 3426  0 


REF  4 
REF  7 
REF  8 
REF  305 
REF  4 

REF  2 


LAST  1472 
LAST  1464 
LAST  1472 
LAST  1470 


21,3416 
21  ,3417 

21.3420 

21.3421 

21.3422 


2 6010  0 
50  066  1 
55*631  C 
3 4755  I 
55*  502  0 


21 ,3423  1 3426  0 


TCF 

ORIVEON  INDEX 


DONEYET 

0CT31 

ORNDXEP 

QGIMTIMR 

ZERO 

ALLOWGTS 

DONE  YET 


0331 

0332 


REF  26  LAST  1470 


21.3436 

21.3437 


n 0071  1 
C024Q  1 


TC 

nCT00240  OCTAL 


RUPTREG2 

00240 


17:53  OECo  19,1969  LMDAP  . 025  PAGE  1472 
USEP*S  PAGE  NCo  9 E6  S4 

DRIVE  TIME  MUST  BE  GREATER  THAN  ZEROo 


TURN  OFF  GIMBAL  NOUo 


DRIVE  TIME  IS  MCRE  THAN  2 SECONDS,  SO 
00  NOT  PERMIT  FURTHER  GTS  ATTITUDE-RATE 
CONTROL  UNTIL  AOSTASK  APPROVESo 
NO  NAI  TLI  ST  CALL  IS  MADEo 


CHCCSE  Q CR  R AXIS* 


PROTECT  IBNKCALL  ERASA8LES*  AC0T  + C12 
LEAVES  ITEMPS2,3  ALONE* 

TURN  OF  CHANNEL  BITS,  SET  Q (R  ) ACCDOTS-, 

RESTORE  ERASABLES  FOR  IBNKCALL* 

RETURN  TO  CALLER* 


DECIMAL  10/1024 


GAP: 

L 

P0333 

R0335 

R0337 

R0339 

R0341 

R0343 

R0345 

R03A7 

R0349 

0350 

0351 

0352 

0353 

035^ 

0355 

0356 

0357 

03  5 8 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

03  66 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

03  74 

0375 

A0376 

0377 

0378 

0379 

0380 

0381 

A0382 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  0Y  NASA  2021112-091 


17:53  CECo  19,1960  LMCAP 


,025  PAGE  1473 


TRIM  GIMBAL  COMPCL  SYSTEM 


USER'S  PAGE  NC«  1C  E6  S4 


TFE  FOLLOWING  SECTION  IS  A CCMINUATICN  OF  THE  TRIM  GIMBAL  CTNTPCL  FROM  THE  LAST  GTS  ENTRY*  THE  QUANTITY  NEGUSUM 
IS  CCMPUTEO  FOR  EACH  AXIS  (0,RI,  *707  #CEL  ^FUNCT  ION  ( 3/ 2 ) + K2THETA  = NEGUSUMo  NEIn  DRIVES  APE  ENTERED  TO  CH  12* 


THE  SUBROUTINE  GTSQRT  ACCEPTS  A OCUBLE  PRECISICN  VALUE  IN  FUNCTION,  FUNCTION  +1  AND  RETURNS  A SINGLE-PRECISION 
SCUARE  RCOT  OF  THE  FOURTEEN  MOST  SIGNIFICANT  BITS  OF  THE  ARGIMENT,  ALSC,  THE  CELL  SHFTFLAG  CCNTAINS  A BINARY 
EXPONENT  S,  SUCH  THAT  THE  SQUARE  RCCT  (RETURNEC  IN  THE  A REGISTER)  MUST  BE  SHIFTED  RIGHT  (MULTIPLIFD  BY  2 TO  THE 
POWER  {-S)l  IN  ORDER  TO  BE  THE  TRUE  SQUARE  RGCT  OF  THE  FOURTEEN  MOST  SIGNIFICANT  BITS  OF  FUNCTION,  FUNCTION  +1* 
SQUARE  ROOT  ERROR  IS  NOT  MCRE  THAN  2 IN  THE  14TH  SIGNIFICANT  BIT*  CELLS  CLC66ERE0  APE  A , L , SHFTFL AG , I N INDEX , 
HALFAR6, SCRATCH, SR, FUNCTICN,  FUNCTICN  +1*  GTSQRT  IS  CALLED  BY  TC  GTSQRT  AND  RETURNS  VIA  TC  Q OR  TC  FUNCTION  +1* 
ZERO  OR  NEGATIVE  ARGUMENTS  YIELD  ZERO  FOR  SQUARE  ROCTS* 


REF 


8 LAST  1467 
1 

1 


21 .3440 

21.3441 

21.3442 
21  ,3443 


11 '750 
1 3457 
1 3444 
1 3450 


0 

0 

1 

I 


GTSQRT 


CCS  FUNCTION 
TCF  GOCCARG 
TCF  +2 

TCF  ZEROOT 


FUNCTION  IS  POSITIVF,  TAKE  SQUARE  ROOT. 
HIGH  ORDER  WORC  IS  ZERO*  TRY  THE  LOWER* 
NEGATIVE*  USE  ZERC  FCP  1/2  POWER* 


REF  9 
REF  2 


LAST  1473 
LAST  1473 


21.3444 

21.3445 
21  ,3446 


3 1751  C 
0 0006  1 
6 3450  0 


CA  FUNCTICN  +l 

EXTEND 

RZMF  ZEROOT 


REF  1 

REF  306  LAST  1472 
REF  1 

REF  426  LAST  1471 


21,3447  I 3453  1 

21.3450  3 4755  1 

21.3451  55'740  1 

21.3452  C 0002  0 


ZEROOT 


TCF 

CA 

TS 

TC 


ZEROHIGH 

ZERC 

SHFTFLAG 

Q 


PROCEED* 


REF 

REF 

REF 

REF 


LAST  1473 
LAST  1473 
LAST  1366 
LAST  1473 


21  ,3453 

21.3454 

21.3455 

21.3456 


57'750  1 
57'751  n 
3 4757  0 
1 3460  1 


ZEROHIGH 


FUNCTION 

FUNCTICN 

SEVEN 

GOOOARG 


•1 

•I 


14  MOST  SIGNIFICANT  BITS  ARE  IN  THE 
LOWER  WORD*  EXCHANGE  THEM* 


REF  307 
REF  2 
REF  1 
REF  1 
REF  1 


21, 3457 

21 .3460 

21.3461 

21. 3462 
21  ,3463 


3 4755  1 GOnOARG  CA 


55'740  1 TS 

3 5741  0 CA 

55'?43  1 TS 

1 3472  1 TCF 


ZERC 

SHFTFLAG 

TWELVE 

ININDEX 

SCALLOOP 


INITIALIZE  THE  SCALING  LOOP* 


REF  12  LAST  1473 
REF  1 


21.3464  3 175C  1 SCALSTRT  CA 

21.3465  1 3506  0 TCF 


FUNCTICN 
SCA  LDONE 


REF  11 
PEF  2 

REF  I 

REF  13 
REF  3 
REF  53 

REF  1 


LAST  1458 
LAST  1473 


LAST  1473 
LAST  1473 
LAST  1448 


21 ,3466 
21, ?467 

21 .3470 

21.3471 

21  ,3472 

21.3473 

21.3474 

21 .3475 

21.3476 


3 7751  0 
27'743  1 
0 0006  1 
6 3464  1 

4 1750  0 
£1'743  0 
6 4735  1 
C C0C6  1 
6 3466  0 


MULEUSH 


CA  NEG2 

AOS  ININDEX 

EXTEND 

BZMF  SCALSTRT 


SCALLOOP 


CS  FUNCTION 

INDEX  ININDEX 
AO  BIT15 

EXTEND 

BZMF  MULBUSH 


IF  ARG  IS  NOT  LESS  THAN  1/4,  INDEX  IS 
ZERO,  INDICATING  NO  SHIFT  NEEDED* 
BRANCH  IF  ARG  IS  NCT  LESS  THAN  1/4* 
OTHERWISE  COMPARE  ARG  WITH  A REFERENCE 
WHICH  IS  4 TIMES  LARGER  THAN  THE  LAST* 


REFERENCE  MAGNITUDE  LESS  OP  EQUAL  TO  1/4 

IF  ARG  IS  NOT  LESS  THAN  REFERENCE,  GO 
AROUND  THE  MULBERRY  BUSH  CNCE  MORE* 


GAP: 

L 

0383 

03  84 

0385 

0386 

03P7 

0388 

03  89 

A0390 

A0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

80405 

0407 

0408 

0409 

0410 

0411 

0412 

041? 

0414 

0415 

0416 

0417 

A0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 


ASSEMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DEC. 


19,1969  LRCAP 


,025  PAGE  1474 


TFIM  GIMBAL  COMRCL  SYSTEM 


USER'S  PAGE  NO.  11  E6  S4 


REF 

PEF 

REF 


REF 

PEF 


4 

54 

1 


14 

2 


LAST 

LAST 


1473 

1474 


, 3477 
,3500 
,3501 
, 3502 
,3503 
, 35C4 
,3505 


51*743 
3 4735 
57' 746 
0 0006 
3 1751 
C CCC6 
11 '746 


C 

1 

0 

1 

0 

1 

1 


INDEX  ININOEX 

CA  BIT15 

XCH  HALFARG 

EXTEND 

OCA  FUNCTION 

EXTEND 

OV  HALFARG 


THIS  IS  THE  SCALE  RAGMTUDE 
2#*I-ININ0EX)  IS  THE  SHIFT  DIVISOR. 
RESCALE  ARGUMENT. 


ININDEX  AND  SHFTFLAG  PRESERVE  INFO  FOR 


REF  15 

REF  87 
PEF  3 
REF  59 
REF  527 
REF  1 
REF  1 


LAST  1474 

LAST  1465 
LAST  1474 
LAST  1454 
LAST  1471 


21.3506 

21 .3507 
21,3510 
21  ,3511 

21.3512 

21.3513 

21.3514 

21. 3515 

21.3516 


C 0006  1 
23'  751  0 
C 0006  1 
7 4736  0 
55'74t  1 
7 4737  1 
1C  000  0 
2 3633  1 
6 3631  0 


SCALDONE  EXTEND 
QXCH 
EXTEND 


FUNCTION 


MP  B1T14 

TS  HALFARG 

MASK  BIT13 

CCS  A 

CA  0CT11276 

AD  POOTHALF 


RFSCALING  AFTER  PCCT  PROCESS. 
SAVE  Q FOR  RETURN 


INITIAL  GUESS  IS  RCCT  1/2  OR  POSMAX 


REF 

REF 

REF 


1 

2 

3 


21,3517  0 3635  I 

LAST  1474  21,3520  C 3635  1 

LAST  1474  21,3521  0 3635  1 


TC  ROOTCYCL 
TC  ROOTCYCL 
TC  ROOTCYCL 


REF  16  LAST  1474 


21,3522  0 1751  0 


TC  FUNCTICN  +1 


REF  1 

REF  13  LAST  1468 

REF  14  LAST  1474 
REF  15  LAST  1474 

REF  302  LAST  1471 
REF  16  LAST  1474 
REF  303  LAST  1474 


REF  17  LAST  1474 


21.3523  0 3440 

21.3524  57*741 

21  ,3525  0 0006  1 

21.3526  1 1741  0 

21.3527  53'742  0 

21 .3530  0 0006  1 

21.3531  7 CCOl  1 

21  ,3532  27*742  0 

21.3533  54  CCl  L 

21.3534  1 3536  C 

21  ,3535  27*  741  0 


TC  GTSQRT 

XCH  K2CNTRAL 

EXTEND 

MP  K2CNTRAL 

DXCH  K2CNTRAL 

EXTEND 
MP  L 

ACS  K2CNTRAL  +1 

TS  L 

TCF  +2 

AOS  K2CNTRAL 


1 RSTCFGTS 
1 PRODUCT 


THF 

1/2 

K *(OEL=*OMFGA 


PRODUCT  OF 
2 

+ ALPHA  /12*KJ 
ANC 

2 


DeL*(OEL*OMeGA  + ALPHA  /(2*K> 
K2CNTRAL 


1/2 

) 

) NOW  IN 


REF  5 LAST  1474 

REF  88  LAST  1474 
REF  3 LAST  1^*73 

REF  1 

PEF  4 LAST  1474 
REF  55  LAST  1474 


21.3536  3 1743  0 

21.3537  0 0006  1 

21.3540  7 4736  0 

21.3541  27'740  1 

21.3542  C C006  1 

21.3543  1 3562  1 

21  ,3544  51*  740  0 

21,3545  ? 4735  1 


cnshiFT 


CA  ININOEX 

EXTEND 

MP  6IT14 

ADS  SHFTFLAG 
EXTEND 

BZF  ADDITIN 

INDEX  SHFTFLAG 
CA  BIT15 


MULTIPLY  IN  THE  FACTOR  2(-SI,  RETURNED 
BY  THE  GTSQRT  SUBPCUTINE 


gap: 

L 

0A27 

0^28 

0A29 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

043  7 

0438 

0439 

0440 

0441 

0442 

C443 

0444 

0445 

0446 

0447 

0448 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

045  8 

0459 

0460 

0461 

0462 

0463 

046  4 

0465 

0466 

0467 

0468 


025  PAGE  1475 
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TRIM  GIMBAL  COMRCL 


OF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 
SYSTEM 


17:53  DEC*  19,1969  LMDAP 

USER' S PAGE  NCo  12 


E6  S4 


REF  18 

REF  19 
REF  7 
REF  20 

REF  21 
REF  8 
REF  304 

REF  9 


LAST  1474 

LAST  1475 
LAST  1467 
LAST  1475 

LAST  1475 
LAST  1475 
LAST  1474 

LAST  1475 


21.3546 

21. 3547 

21.3550 

21.3551 

21.3552 
21  ,3553 

21 .3554 

21.3555 

21.3556 

21. 3557 
21,3560 


57«741  1 
0 0006  1 
7 1741  0 
21'737  1 
57'741  1 
0 0006  1 
7 1742  0 
27'737  1 
54  001  1 
1 3561  1 
27*736  0 


XCF  K2CNTRAL 

EXTEND 

MP  K2CNTRAL 

CAS  K2THETA 

XCH  K2CNTRAL 

EXTEND 

MP  K2CNTRAL  +1 

AOS  K2THETA  +l 

TS  L 

TCF  +2 

AOS  K2THETA 


REF  3 LAST  1468  21,3561 


3565  0 


TCF  NEGUSUM 


REF  22 
REF  10 
REF  11 
REF  1 

REF  2 


LAST  1475 
LAST  1475 
LAST  1475 


LAST  1465 


21,3562 
21  ,3563 

21.3564 

21.3565 
21  ,3566 
21,3567 
21  ,3570 


0 0006  1 
3 1742  1 
21*737  1 
11*736  0 
1 3572  0 
1 3571  0 
1 3574  0 


ADDITIN 

NEGUSUM 


EXTEND 

DCA  K2CNTRAL 

DAS  K2THETA 

CCS  K2THETA 

TCF  NE6DR1VE 

TCF  +2 

TCF  POSDRIVE 


NOW  ADD  IN  THE  K2TFFTA  TERM* 
TEST  SIGN  CF  HIGH  CPDER  PARTo 


REF 

E 


12 

68 


REF  69 
REF  305 
REF  6 
REF  1 1 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


1475 

1475 

1465 

1472 


21.3572 

21.3573 

21.3574 

21.3575 

21.3576 

21.3577 


3 4753  1 
1 3575  1 

4 4753  C 
54  001  1 
51*  747  1 
57*501  1 


CCS  K2THETA 

NEGDRI VE  CA  BI T1 

TCF  +2 

POSCRI VE  CS  BITl 

TS  L 

INCEX  OPCNTfi 
XCH  NEGUC 


SIGN  TEST  FDR  LOW  CROEP 
STOP  GIMBAL  DPIVF  FOR  A 
SAVE  FOR  DRIVE  REVERSAL 


PART, 

ZERO  NEGUSUMo 
TEST, 


REF  306  LAST  1475 
REF  307  LAST  1475 
REF  1 


21  ,3600  0 0006  1 

21.3601  7 0001  1 

21.3602  10  001  1 

21  ,3603  1 3620  1 


EXTEND 

MP  L MULTIPLY  OLD  NEGU  AND  NEW  NEGU, 

CCS  L 

TCF  LOUPE  NON-ZERO  GIMBAL  DRIVE  BEING  CONTINUED-- 


REF 


21,3604  ) 3615 


TCF  ZERCLCUP  NO  REVERSAL  PROBLEM  HERE, 


1 21,3605  1 3607  I 

2 LAST  1475  21,3606  1 3615  1 


TCF  RFVERSAL  NON-ZERO  GIMBAL  DRIVE  BEING  REVERSED, 

TCF  ZEROLOUP  NO  REVERSAL  PROBLEM  HERE, 


REF  7 LAST  1475 

REF  5 LAST  1468 

REF  8 LAST  1475 

REF  ] 

REF  74  LAST  1468 


21,3607 
21  ,3610 

21.3611 

21.3612 

21.3613 
21,  3614 


55*510 
51*747 
4 3632 
0 0006 
C3  012 


REVERSAL  INDEX 
TS 

INDEX 

CS 

EXTEND 

WAND 


ORCNTR 

QACCOOT 

ORCNTR 

GMBLBITA 

CHAN12  • 


A ZFRC-CRIVF  PAUSE  IS  NEEDED  FERE,  ZERO 
IS  IN  A REGISTER  FROM  CCS  ON  (-1). 


RFF  54 
REF  3 
REF  55 


LAST  1469 
LAST  1469 
L4ST  1475 


21  ,3615 

21.3616 

21.3617 


27*262  1 


ZEROLOUP  CS 

MASK 


ADS 


PCSFLAGS 

CALLGMBL 

PCSFLAGS 


SFT  UP  REQUEST  FOR  ACDT+C12  CALL, 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202in2-C‘51  17:53  DEC«  19,lo69  LMCAP  o025  PAGE  1^76 

L TRIM  G1M6AL  CCMRCL  SYSTEM  USER'S  PAGE  NOo  13  E6  S^ 

0469  kEF  9 LAST  1475  21,3620  11'747  C LGLPE  CCS  ORCNTR  HAVE  BOTH  AXES  BEEN  PROCESSED? 

0470  REF  2 LAST  1464  21,3621  1 3114  1 TC  F GOOTPIMG  NOe  DO  Q AXIS  NEXT* 


0471  REF  2 LAST  1464  21,3622  3 1505  0 

0472  REF  28  LAST  146A  21,3623  5*  021  C 


CA  SAVESR  RESTORE  THE  SR 

TS  SR 


0473 

0474  REF 

0475 


21.3624  0 0006  1 GOCLOSE  EXTEND  TERMINATE  THE  JASK* 

21.3625  3 363C  1 OCA  CLCSEADR 

21.3626  52  0C6  0 DTCS 


0476 

0477 
0477 

R0478 

0479 

0480 

0481 

0482 

0483 
80484 
R0485 
R04&6 
R0486 
R0690 
R0492 


E6,1536 

21,3627 

21,3630 


EeANK=  AOSC 

03270  I CLCSEADR  2CA0R  CLPSECUT 
36106  0 


TERMINATE  THE  JASK* 


REF 


6 


LAST 


1423 


5741 
21  ,3631 
21,3632 
21,3623 
21  ,3634 


26501  1 
C1400  1 
n276  1 
060P0  1 


TWELVE  EQUALS  nCT14 
RODTHALF  OCTAL  26501 
GMBLBITA  OCTAL  Cl  400 
OCT11276  OCTAL  11276 
GMBL8 ITB  OCTAL  06000 


SQUARE  ROOT  OF  1/2 

INDEXED  WRT  GM6LBIT0  DO  NOT  MOVE****** 
PCSMAX  - RCCTHALF 

INDEXED  WRT  GMBLBITA  00  NOT  MOVE****** 


SUBROUTINE  ROOTCYCL:  BY  CRAIC  WORK, 3 APRIL  68 

ROOTCYCL  IS  A SUBROUTINE  WHICH  EXECUTES  ONE  NEWTON  SQUARE  ROOT  ALGORITHM  ITERATION*  THE  INITIAL  GUESS  AT  THE 
SQUARE  ROOT  IS. PRESUMED  TO  BE  IN  THE  A REGISTER  AND  ONE-HALF  THE  SQUARE  IS  TAKEN  FROM  HALFAP6*  THE  NEW  APPROXI- 
MATION TO  THF  SQUARE  RCOT  IS  RETURNED  IN  THE  A REGISTER.  DEBRIS:  A , L , SR , SC RA TCH*  ROCTCYCL  IS  CALLED  FRCM 

LOCATION  (LOC)  BY  A TC  ROOTCYCL,  AND  RETURNS  (TC  C)  TO  LOC  +1* 


R0493  WARNING:  IF  THE  INITIAL  GUESS  IS  NOT  GREATER  THAN  THE  SQUARE,  DIVIDE  CR  ADD  OVERFLOW  IS  A REAL  POSSIBILITY* 


0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 


REF 

REF 

PEF 


PEF  2 
REF  30 
REF  427 


LAST  1476 
LAST  1474 


LAST  1476 
LAST  1476 
LAST  1473 


21,2636 

21,3637 

21.3640 

21. 3641 
21  ,3642 

21.3643 

21.3644 


3 1746  0 
22  007  0 
0 0006  1 
11*745  1 
6 0021  I 
0 0002  0 


ROCTCYCL  TS 


SCRATCH 

SR 

HALFARG 


SCRATCH 

SR 

Q 


STORE  X 
X/2  NOW  IN  SR 
ARG/2  IN  THE  A PEG 
PREPARE  FOR  DIVISION 

(ARG/X)/2 

(X  + ARG/X  )/?  IN  THE  A PEG 


R0503 
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L ADSTASK  ANC  AOSJOB  USER'S  PAGE  NO®  1 EO  S4 


ROOOl 

R0002 

R0003 


PRCGPAN  NAPE:  1/ACCS 

PROGRAM  WRITTEN  BY:  BOB  COVELLI  AND  MIKE  HOUSTON 
LAST  MDUIF  ICAT  ION : FE3ol4,1969  BY  GoKALAN 


R0C04  PROGRAM  OFSCRIPTICN: 


R0005  1/ACCS  PROVIDES  THE  INTERFACE  BETWEEN  THE  GUIDANCE  PROGRAMS  AND  THE  DIGITAL  AUTOPILOT®  WHENEVER  THERE  IS  A 

R0007  CHANGE  IN  THE  PASS  CF  THE  VEHICLE,  IN  THE  DEADBAND  SELECTED,  IN  THE  VEHICLE  CONFIGURATION  (ASCENT-OESCENT- 

RC0G9  DOCKED),  AND  DURING  A FRESH  START  OR  A RESTART,  1/ACCS  IS  CALLED  TO  COMMUNICATE  THE  DATA  CHANGES  TC  THE  DAP® 


ROOD  THE  INPUTS  TO  1/ACCS  ARE  MASS,  ACCELERATION  (ABDELV),  DEADBAND  (CP),  CFFSET  ACCELERATIONS  (ACSQ  AND  AOSRI, 

R0013  STAGE  VERIFY  BIT  ( ChAN30 , E I T2  ) , CCCKED  BIT  ( 0 AP BOOL S, 6 ITl 3 ) , DRIFT  BIT  ( DA PBOOL S , B I T8 1 , USEQRJTS  (OAPBOOLS, 
R0015  BITIA),  AND  SURFACE  FLAG  I F L AGWRD E , B I T 8 I , AND  CH5MASK® 


R0016  1/ACCS  COMPUTES  THE  JET  ACCELERATIONS  (IJACC,  IJACCO,  IJACCR  ) AS  FLNCTICNS  OF  MASS®  IjACCU  AND  IJACCV  ARE 

R0018  FORMED  BY  RESOLVING  IJACCG  NAO  IJACCR®  IN  THE  DESCENT  CASE,  THE  DESCFNT  ENGINE  MOMENT  ARM  (L,PVT-CG)  IS  ALSO 

R0020  COMPUTED  AS  A FUNCTION  OF  MASS®  THE  RATE  OF  CHANGE  OF  ACCELEPATICN  DUE  TO  ROTATION  OF  THE  GIMRAL  (ACCDOTO, 

R0022  ACCDCTP)  IS  ALSC  COMPUTED  IN  THE  DESCENT  CASE® 


R0023  AFTER  THE  ABOVE  COMPUTAT I CNS , THE  PROGRAM  1/ACCCNT  COMPUTES  THE  RECIPROCAL  NET  ACCELERATIONS  ABOUT  THE  P,  U, 

R0025  AND  V AXES  (2  JETS  FOR  P AXIS,  BOTH  1 AND  2 JETS  FOR  U AND  V AXES),  AND  THE  RECIPROCAL  COAST  ACCELERATIONS  ABOUT 

R0027  THE  P,  L,  AND  V AXES®  THE  ACCELERATION  FUNCTIONS  (ACCFCTZl  AND  ACCFCTZSIARE  ALSO  COMPUTED  FOR  THESE  AXES®  THE 

R0029  FIRE  AND  COAST  DEADBANDS  AND  AXISOIST  ARE  COMPUTED  FOR  EACH  AXIS®  FLAT  AND  Z0NE3LIM,  THE  WIDTH  AND  HEIGHT  OF  THE 

R003X  MINIMUM  IMPULSE  ZONE,  ARE  COMPUTED®  1/ACCONT  ALSO  SETS  ACCSWU  AND  ACCSWV,  WHICH  INDICATE  WHEN  1 JET  ACCELERATION 

R0033  IS  NOT  SLFFICIENT  TC  FRCOUCE  MINIMUM  ACCELERATION®  AT  THE  COMPLETION  OF  1/ACCS,  THE  ACCSOKAY  BIT  IS  SET® 


R0035  SUeeOUTINES  CALLED: 

R0036  TIPEGMBL 
R0037  MAKECADR 
R0038  R0T45DEG 


R0039  CALLING  SEOLENCE: 


A0040  TC  BANKCALL  (1/ACCS  MUST  BE  CALL  BY  RANKCALL 

A0041  CAOR  1/ACCS 

R0042  NORMAL  EXIT:  VIA  BANKJUMP  ALARM  AND  ABORT  EXIT  MODES:  NONE® 

R004?  INPUT/OUTPUT:  SEE  PROGRAM  DESCRIPTION 

R0044  DEBRIS: 

R0045  ALL  OF  THE  EXECUTIVE  TEMPORARY  REGISTERS,  EXCEPT  FIXLOC  AND  OVFINC,  ANC  THE  CORE  SET  AREA  FROM  MPAC  TO  BANKS6T® 
RC047  RESTRICTIONS  : 


R0048 

R0049 


X/ACCS  MUST  BE  CALLED  BY  BANKCALL 
EEANK  IS  SET  TO  6,  BUT  NOT  RESTOREO< 


GAP: 
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L 


ACSTASK  ANC  AOSJOB 


USER'S  PAGE  NGo  2 


EO  S4 


0050 

0051  REF 

0052 


LAST  1469 


21,3645 

21,2000 

21,3645 


BANK  21 
SETLCC  DAPS4 
BANK 


0053  REF  1 

0054  REF  26  LAST  1476  E6,1536 


CCUNT*  $t/CAPAC 
EB4NK=  AOSO 


R0055 


ENTR  V 


1 S IhROUGh  1 /ACCJOB  CR 


1/ACCSET  WHEN  1/ACCS 


IS  TO  BE  DONE  AS  A SEPARATE  NOVAC  JOBo 


R0057 

R0059 


IT  IS  POSSIBLE  FOR  MORE  THAN  CNE  OF  THESE  JOBS  TO  BE  SET  UP  CONCURRENTLY,  HOWEVER, 
NEKJOB,  A SECCNC  M AN  I FGST AT  I C N CANNOT  BE  STARTED  UNTIL  THE  FIRST  IS  CCMFLETEDo 


SINCE  THERE  IS  NO  CHECK  OF 


0061 

0062 

0063 

0064 

0065 


REF  308  LAST  1A73 
REF  27  LAST  1478 
REF  m LAST  1419 
REF  6 LAST  1419 
REF  5 LAST  1419 


21.3645 

21.3646 
21  ,3647 
21  ,3650 
21,3651 


3 4755  1 1/ACCSET  CAF  ZERC 

55'536  1 TS  AOSQ 

55*540  0 TS  AOSR 

55*424  0 TS  ALPHAC 

55*425  1 TS  ALPHAR 


ENTRY  FROM 
NULL  THE 


FPESH  START/RESTART  CODINGo 
OFFSET  ESTIMATES  FOR  1/ACCS« 


NULL  THE  OFFSET  ESTIMATES  FOR  DOWNLIST 


0066  PEF  314  LAST  1394 

0067  REF  2 LAST  858 


21.3652  0 4616  1 1/ACCJOB  TC 

21.3653  40465  I CAOR 


BANKCALL 
1/ACCS  +2 


1/ACCS  ASSUMES  ENTRY  VIA  BANKCALLo 
SKIP  EBANK  SETTING, 


0068 


REF  158  LAST  1384 


21 ,3654  0 5155  0 


TC  ENOOFJOB 


00682 

00683  REF  5 LAST 

00684 

00685  REF  3 LAST 


20,2463 
1406  20,2000 

20,2463 
43  TO  44: 


4* 


BANK 

SETLOC 

BANK 

CCUNT* 


20 

DAPS3 

SS/DAPAO 


0069  REF 

0070  REF 


10  LAST  I4r.0  20,2463 
89  LAST  1401  20,2464 


2 5015  0 1/ACCS  CA  EBANK6 

54  003  0 TS  EBANK 


EBANK  SFT  BUT  NCT  RESTORED  #4#*# 


REF  16  LAST  1369 
PEF  1 


20.2465  C 4645  1 

20.2466  54  117  1 


TC  MAKECADP  SAVE  RETURN  SO  THAT  0UF2  MAY  BE  USED 

TS  ACCRETRN 


R0073 

0074 

0075 

0076 

0077 
C078 

0079 

0080 


DETERMINE  MASS 
REF  59  LAST 
REF  11  LAST 
REF  I 
REF  526  LAST 
REF  5 LAST 
REF  14  LAST 
REF  11  LAST 


OF  THE  LEMo 
1445  20,2467 

1444  20,2470 

20,2471 
1474  20,2472 

316  20,2473 

855  20,2474 

316  20,2475 


2 cm  0 

7 4737  1 
54  157  0 
10  000  0 
4 1327  1 
6 1243  0 
55*326  n 


CA  DAPBOOLS 

MASK  CSMOOCKO 

TS  OCCKTEMP 

CCS  A 

CS  CSMMASS 

AO  MASS 

TS  LEMMASS 


IS  CSM  OCCKED 

STORE  RECORC  OF  STATE  IN  TEMP  (MPAC  +3U 

DOCKED:  LEMMASS  = MASS  - CSMMASS 

LEM  ALONE:  LEMMASS  = MASS 


R0081 

R0082 

R00e3 

R0085 


ON  THE  BASIS  OF  APSFLAG: 

SET  THE  P-AXIS  RATE  COMMAND  LIMIT  FOR  2-JET/*-jeT  CONTROL 

SET  MPAC,  WHICH  INDICATES  THE  PROPER  SET  CF  COEFFICIENTS  FOR  THE  LEM-ALONE  FIMASSI  CALCULATIONS 
ENSURE  THAT  THE  LEM  MASS  VALUE  IS  WITHIN  THE  ACCEPTABLE  RANGE 


00855 


20,2476  0 0004  0 


INHINT 


gap: 

L 

0066 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

009<f 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0J13 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

R0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 
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REF  24  LAST  1445 
REF  16  LAST  1445 

REF  1 


20,2477  2C  106  0 

20.2500  7 4737  1 

20.2501  C 0006  1 

20.2502  1 2526  C 


CAE  FLGWRDIO  DETERMINE  WHETHER  STAGECo 

MASK  APSFLBI  T 

EXTEND 

BZF  DPSFLITE 


REF  41 
REF  3 
REF  7 
REF  882 
REF  12 
REF  3 

REF  1 
REF  13 
REF  1 

R EF  1 


LAST  1466 
LAST  3428 
LAST  1476 
LAST  1394 
LAST  1478 
LAST  214 


LAST  1479 


20.2503 

20.2504 

20.2505 

20.2506 

20. 2507 

20.2510 

20.2511 

20. 2512 

20.2513 

20.2514 

20.2515 

23 .2516 


4 4733  0 
55'475  1 
2 5741  0 
54  154  0 
4 1326  0 
6 1400  1 
0 0006  I 
6 2517  0 
4 1326  0 
6 2CQ1  1 
C 0006  1 

6 2544  c 


CS  POSMAX 

TS  -2JETLIN 

CAF  0CT14 

TS  MPAC 

CS  LEMMASS 

AD  HIASCENT 

EXTEND 

BZMF  MASSFIX 

CS  LEMMASS 

AD  LOASCENT 

EXTEND 

BZMF  F(MASS  ) 


ASCENT  (OR  ON  LUNAR  SURFACE) 

ALWAYS  2 JETS  FOP  P-AXIS  RATE  COMMAND 
INI TI ALI ZE  INDEX  AT  12« 

CHECK  IF  MASS  TOO  HlGHo  CATCH  STAGING, 


CHECK  IF  MASS  TCO 
DECREMENTING  BY 


LOW®  THIS 
MASSHONo 


LIMITS  THE 


REF  14 

REF  2 
REF  6 
REF  15 
PEF  15 
REF  2 


LAST  1479 

LAST  1478 
LAST  147P 
LAST  1479 
LAST  1478 
LAST  1479 


20,2517 

20.2520 

20.2521 

20.2522 

20.2523 

20.2524 

20.2525 


27'326  0 
22  007  0 
10  157  0 
?1'227  0 
6 1326  1 
52'244  0 
1 2544  1 


MASSFI 


X ADS  LEMMASS 

Z L 

CCS  OOCKTEMP 

CAE  CSMMASS 

AD  LEMMASS 

DXCH  MASS 

TCF  F(MASS) 


STORE  THE  VIOLATED  LIMIT  AS  LEMMASS, 
ALSO  CORRECT  TOTAL  MASS,  ZEROING  THE 
LOW-ORDER  WOROo 

DOCKED:  MASS  = LEMMASS  + CSMMASS 

LEM  ALONE:  MASS  = LEMMASS 


53 


REF 
REF 
REF  33 
REF  883 


REF 

KEF 

PEF 

REF 

REF 

PEF 


LAST  1432 
LAST  1479 


16  LAST  1479 
1 


20.2526  4 4742  0 

20.2527  55*475  1 

20.2530  3 6245  1 

20.2531  54  154  0 

20.2532  4 1326  0 

20  ,2533  6 2002  1 

20.2534  0 C0C6  1 

20.2535  6 2517  0 

20.2536  4 1326  0 

20,2527  6 2003  0 

20.2540  6 1400  1 

20.2541  C 0006  1 

20.2542  6 2544  0 

20.2543  1 2517  1 
COMPUTATION  OF  FUNCTIONS  OF  MASS 


LAST  1479 
LAST  1479 


LAST  1479 
LAST  1479 


DPSFLITE  CS 


CAF 

TS 


CS 

AD 

EXTEND 

BZMF 

CS 

AO 

AD 

EXTEND 

BZMF 

TCF 


BITIO 

-2JETLIM 

SIX 

MPAC 

LEMMASS 

HIDESCNT 


MASSF  1 X 
LEMMASS 
LODESCNT 
HIASCENT 


F ( MASS) 
MASSFIX 


FOUR  JETS  FOR  P-AXiS  RATE  COMMAND  ERRORS 
EXCEEDING  1,4  OEG/SEC  (SCALED  AT  45) 
INITIALIZE  INDEX  AT  6, 

CHECK  IF  MASS  TCO  HIGH,  SHOULD  NEVER 
OCCUR  EXCEPT  PERHAPS  BEFORE  THE  PAD 
LOAD  IS  DONE, 

CHECK  IF  MASS  TOO  LOW«  THIS  LIMITS  THE 
DECREMENTING  BY  WASSMON, 


REF  3 LAST  1479 
REF  1 

REF  106  LAST  1470 
REF  884  last  1479 


20 .2544 

20.2545 

20.2546 

20.2547 
20,2550 


0 0003  I 
10  157  0 

1 3111  1 
3 4752  0 
54  155  1 


F(MASS 

STCTR 


) RFLINT 

CCS  OOCKTEMP 

TCF  DOCKED 

CA  TWO 

TS  MPAC  ♦! 


CnCKEC:  USE  SEPEPATE  COMPUTATION, 
J = 2,l,0  FOR  J JACCR  .IJACCO, IJACC 


1479 

1479 


20.2551  4 4752  1 

20.2552  26  154  0 


TWO 

MPAC 


JX=10,8,6  OR  4,2,0  TO  INDEX  COEFS. 
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USER'S  PAGE  NO* 


0131 
01311 

0132 

0133 
013^ 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 


REF  18 
REF  886 
REF  1 
KEF  887 

REF  888 
REF  1 

REF  889 
REF  890 
REF  1 
REF  891 
REF  7 


LAST  1480 


LAST  1^80 


LAST  1460 
LAST  1A15 


20,255? 

20.2554 

20.2555 

20.2556 

20.2557 
20,2560 
20  ,2561 

20.2562 

20.2563 

20.2564 

20.2565 
20  ,2566 
20,2567 


31  '226  1 
50  154  1 
6 3C64  0 
54  156  1 
C 0006  1 

5 0154  1 
3 3046  0 
C C006  1 
10  156  1 
50  154  1 

6 3063  1 
50  155  0 
55'  530  1 


AD 
TS 
EXTEND 
INDEX 
CCA 

EXTEND 

DV 

INDEX 


LEMMASS 
MPAC 
INERCCNC 
MPAC  +2 

MPAC 

INERCONA 

MPAC  *2 
MPAC 
I NERCCNB 
MPAC  ♦■I 
IJACC 


IJACCI J1=A( JXI /(MASS+C { JXI  + 8(JX) 
lJACC(-n  = L ,PVT-CG  SCALED  AT  8 FEET 


0145 

0146 


REF  892 
REF  I 
REF  1 
REF  1 


LAST  l<i80 


20.2571 

20.2572 

20.2573 


10  155  1 
1 2550  1 
1 2574  1 
I 2673  0 


CCS  MPAC  +1 

TCF  STCTR 

TCF  CCMMFCS 

TCF  LRESC 


R0147  C06FFQ  ANO  COEFFR  ARE  CCMFUTEO  IN  THIS  SECTION*  THEY  ARE  USED  TO  RESOLVE  0-R  COMPONENTS  INTO  NCN-ORTHOGONAL 

R0149  U ANO  V COMPONENTS  (SEE  ROT-TOLV  SECTION >* 


0160 

01501  REF  2 

0151  REF  2 

0152 

0153  REF  1 

0154 

0155  REF  3 

0156  REF  1 

0157  REF  1 

0158 

0159  REF  I 

0160  KEF  2 

0161  REF  2 

0162  REF  3 

0163 

0164  REF  1 

0165  REF  1 

0166  REF  2 

0167  RFF  42 

0168  REF  4 

0169 

0170  REF  3 

0171  REF  3 

0172  REF  1 

0173 

0174  REF  3 

0175  REF  1 

C176  RFF  2 


LAST  1463 
LAST  1*463 


LAST  1480 


LAST  1480 
LAST  U80 
LAST  1400 


LAST  1449 
LAST  1<,79 
LAST  1480 

LAST  1480 
LAST  1449 


LAST  1480 
LAST  1480 


20.2575 

23.2576 

20.2577 
20,2600 
20,2601 
20,2602 

20. 2603 

20.2604 

20.2605 

20.2606 
20,2607 
20,?610 
20,2611 
20,2612 

20.2613 

20.2614 

20.2615 

20. 2616 
20  ,2617 
20,2620 
20,2621 
20,2622 

20.2623 

20.2624 

20.2625 

20.2626 
20,2627 


22  007  0 
4 1532  0 
6 1531  1 
0 0006  1 
6 2624  0 
0 0006  1 
11'531  0 
5A  155  1 

6 3110  1 
C 0006  1 
6 2611  0 
4 3110  0 
5A  155  1 
3 0155  0 
0 0006  1 

7 3104  0 
6 3106  0 
55'627  I 
* A733  C 

6 0155  0 
C 0006  I 

7 1627  1 
55*626  0 
1 2647  1 
C 0006  1 
11 ' 532  0 
5A  155  1 
A 0155  1 


COMNEQS 


GOODEPSl 


eiGlQ 


ZL 

CS  IJACCR 

AD  IJACCO 

EXTEND 

BZMF  BIGIQ 

EXTEND 

OV  IJACCQ 

TS  EPSILGN 

AD  -EPSMAX 

EXTEND 

BZMF  GCCDEPSl 

CS  -EPSMAX 

TS  FPSILON 

CA  EPSILON 

EXTEND 

MP  0.35356 

AD  .7071 

TS  COEFFR 

CS  PCSMAX 

AD  EPSILON 

EXTEND 

MP  COEFFR 

TS  COEFFO 

TCF  JACCUV 

EXTEND 

OV  IJACCR 

TS  -EPSILCN 

CS  -EPSILON 


EPSILON  IS  A MEASURE  OF  COUPLING  ANO  IS 
0EFINED=1-IQ/Ift  FOR  IR  GREATER  THAN  10. 
THE  COMPUTEC  EXPRESSION  IS  EQUIVALENT 


EPSILON  IS  LIMITED  TO  A MAX.  OF  .42265 


IN  THIS  CASE  WHERE  IR  IS  GREATER  THAN 
IC,  C0EFFG=-o707(l  4g5ePS  ILONI  ( 1-EPS  ILON  I 
AND  COEFFR=, 707(1+. SEPSILON) 


EPSILON  IS  DEFINED  AS  1-IR/IG  FOR  IC 
GREATER  THAN  IR.  -EPSILON  IS  COMPUTED 
RATHER  TFAN  EPSILCN  FOR  CONVENIENCE 


GAP : 

L 

0177 

0176 

0170 

016U 

0181 

0182 

01  83 

018A 

0185 

0166 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

R0213 

R0215 

R0217 

R0218 

R0219 

0220 

0221 

0222 

0223 

022^ 

R0225 

R0227 
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USER  'S  PAGE  NDo  5 E6  S4 


REF  3 LAST  1480 

REF  1 

REF  4 LAST  1481 

REF  3 LAST  1480 

REF  4 LAST  l^ift) 

REF  2 LAST  1480 

REF  1 

REF  4 LAST  1480 

REF  5 LAST  1481 

REF  12  LAST  1461 

REF  5 LAST  1481 

REF  4 last  1480 

REF  6 last  1481 

REF  4 LAST  1460 

REF  1 

REF  5 LAST  1481 

RFF  4 LAST  1480 

REF  2 LAST  1.4  P 1 

REF  89  LAST  1474 

REF  3 LAST  1481 

REF  893  LAST  1480 

REF  309  LAST  1478 

REF  5 LAST  1472 

BEF  I 


20.2630 

20.2631 

20.2632 
20 , 26  3 3 

20.2634 

20.2635 

20.2636 

20.2637 
20,2640 
20t264l 
20,2642 
20,264? 

20.2644 

20.2645 

20.2646 

20.2647 

20.2650 

20.2651 

23.2652 

20.2653 

20 .2654 

20.2655 

20.2656 

20.2657 
20,2660 
20,2661 
20,2662 

20 . 2663 

20.2664 

20.2665 


6 3110  1 
0 0006  1 

6 2635  0 
3 3110  1 

54  155  1 

3 C155  C 
C 0006  1 

7 31C4  0 
6 3107  1 

55  '626  0 
A 0155  1 

6 4735  1 
C 0006  1 

7 1626  0 
55‘627  1 

4 162  6 0 
C 0006  1 
7 1531  0 
55'533  1 
3 1627  0 
C 0006  1 
7 1532  0 

6 1533  0 
C 0006  1 

7 4736  0 
55'533  I 
1C  154  0 
2 ^755  1 
55'502  0 
1 3234  0 


GCCOEPS? 


AO  -EPSMAX 

EXTEND 

BZMF  GCCDEPS2 

CA  -EPSMAX 

TS  -EPSILON 

CA  -EPSILCN 

EXTEND 

MP  Oo35356 

AD  -*7071 

TS  COEFFO 

CS  -EPSILON 

AD  NEGMAX 

EXTEND 


MP  COEFFC 

TS  COEFFR 

JACCUV  CS  COEFFO 

EXTEND 

MP  IJACCQ 

TS  J JACCU 

CA  COEFFR 

EXTEND 

MP  IJACCR 

AD  IJACCU 

EXTEND 

MP  BIT14 

TS  IJACCU 

CCS  MPAC 

CAF  ZERO 

TS  ALLOWGTS 

7CF  1 /ACCENT  -I 


EPSILON  IS  LIMITED  TO  A MAX-.  OF  *42265 


IN  THIS  CASE  WHERE  IG  IS  GREATER  THAN 
IR,  COEFFQ=-r707(l-*e5EPSILONU  AND 
C0EFFR=o707(l+«5EPSaCN)()-FPSIL0N> 


IJACCO  IS  SCALED  AT  PI/4 
IJACCU  USED  AS  TEMPORARY  STORAGE 


SCALING  CHANGED  FRCM  PI/4  TO  PI/2 
SCALED  AT  PI/2  RAO  I A NS  / SEC  ( 2 ) 
COMPUTE  L,PVT-CG  IF  IN  DESCENT 
ZERC  SWITCHES  AND  GO  TO  1/ACCONT  IN 
ASCENT 


REF  174 
REF  695 


REF 


LAST  1470 
LAST  1481 


I 


20,2666 

20,2667 

20.2670 

20.2671 

20.2672 


4 4752  1 
54  154  0 
4 4753  0 
54  155  1 
1 2553  1 


THIS  SECTION  CCMPUTES  THE  RATE  OF  CHANGE 
MENTED  IN  BOTH  THE  Y-X  PLANE  AND  THF  Z-X 
T = ENGINE  THRUST  FORCE 
L = PIVCT  TO  CG  CISTANCE  CF  ENGINE 
I = MOMENT  OF  I NERTI A 


CS  TWO 

TS  MPAC 

CS  ONE 

TS  MPAC  +1 

TCF  STCTRl 

OF  ACCELERATION  DUE  TO  THE  POTATION  OF  THE  GIMBALS* 
PLANE  IS  — D(ALPHA)/OT  = T L/ I 0(  DEL  TA  I / OT  , WHERE 


THE  EQUATION  IMPLE 


REF  6 LAST  856 

REF  16  LAST  1479 
REF  1 
REF  1 


20  ,2674 

20.2675 

20 .2676 

20.2677 


31*245  0 
0 0006  1 
7 1243  I 
0 3002  0 
03105  0 


LRESC 


CAE  ABDELV 

EXTEND 
MP  MASS 

TC  0V0VSU6 

ADRES  GFACTM 


SCALED  AT  2(131  CM/SEC(2  > 

SCALED  AT  B + 16  KGS 

GET  QUOTIENT  WITH  CVERFLOW  PROTECTION 


MASS  IS  DIVIDED  BY  ACCELERATION  OF  GRAVITY  IN  CRDER  TO  MATCH  THE  UMTS 
THE  RATIO  OF  ACCELERATION  FRCM  PIPAS  TO  ACCELERATION  OF  GRAVITY  IS  THE 


CF  IXX,IYY,IZZ,  WHICH  ARF  SLUG-FT(2)* 
SAME  IN  METRIC  OR  ENGINEERING  UNITS, 


SO 


gap: 

L 

R0229 

0231 

0232 

0233 

023^ 

0235 

0236 

0237 

0238 

0239 

02<^0 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

02  52 

0253 

0254 

0255 

0256 

0257 

025P 

0259 

02  60 

0261 

0262 

0263 

0264 

02  65 

0266 

0267 

0268 

0269 

0270 

C271 

0272 

0273 

0274 

0275 

0276 
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USER'S  PAGE  NO.  6 


E6  S4 


TEAT  IS  UNCONVERTED*  2*20462  CONVERTS  KG*  TO  LB*  NOW  T IS  IN  A SCALED  AT  2(14)* 


REF  1 


REF  896 


REF  5 
REF  2 
REF  1 


LAST  1481 

LAST  1481 
LAST  1481 


20.2700 

20.2701 

20.2702 

20.2703 
2C,27C4 
20.,2705 

20.2706 

20.2707 


0 0006  1 
7 1527  1 
C 00C4  0 
54  154  0 
C rCC6  1 
7 1532  0 
0 3002  0 
02000  0 


REF  2 
REF  897 


REF  5 LAST  1481 

REF  3 LAST  1482 

REF  2 LAST  1482 


20.2710  55'511  1 

20.2711  2 C154  1 

20.2712  0 0006  1 

20.2713  7 1531  0 

20,2734  0 3C02  0 

20,2715  02000  0 


EXTEND 

MP  l.,PVT-CG  SCALED  AT  8 FEET* 

INFINT 

TS  MPAC 

EXTEND 

MP  IJACCR 

TC  DV0VSU6  GET  QUOTIENT  WITH  OVERFLOW  PROTFCTION 

AORES  TORKJETl 


TS  ACCOOTR  SCALED  AT  PI/2(7) 

CA  MPAC 

EXTEND 

MP  3JACC0 

TC  DVCVSU8  GET  QUOTIENT  WITH  OVERFLOW  PROTECTION 

AORES  TORKJETl 


REF  6 

REF  1 
REF  4 
REF  3 

REF  2 
REF  I 

REF  75 
REF  898 
RFF  55 
REF  1 
REF  310 
REF  899 
REF  900 
REF  901 
REF  1 

REF  1 
REF  902 
REF  903 
FEF  2 

REF  1 
REF  904 
REF  7 
REF  1 
REF  905 
REF  8 
REF  2 
REF  311 


LAST  1471 


LAST  1465 
LAST  1482 

LAST  1482' 


LAST  1475 
LAST  1482 
LAST  3464 

LAST  1481 
LAST  1482 
LAST  1482 
LAST  1482 


LAST  1482 
LAST  1482 
LAST  1482 


LAST  1482 
LAST  1482 

LAST  1482 
LAST  1482 
LAST  1482 
LAST  1482 


20.2716 

20.2717 

20.2720 

20.2721 

20.2722 

20 .2723 

20.2724 

20.2725 

20.2726 

20.2727 

30.2730 

20.2731 

20. 2732 

20.2733 

20.2734 

20.2735 

20.2736 

20.2737 

20.2740 

20.2741 

20.2742 

20.2743 

20. 2744 

20.2745 

20.2746 

20.2747 

20.2750 

20.2751 

20.2752 

20.2753 

20.2754 

20.2755 


55*507  0 
0 0006  1 
7 3103  1 
55'5C4  C 
33 ’ £11  C 
C 0006  1 
7 3103  1 
55*506  1 
C 0006  1 

00  012  I 
54  155  1 

2 4752  C 

1 2734  1 

3 4755  1 
54  354  0 
3 0155  0 
50  154  1 
7 3077  0 
C 0006  1 
I 2755  C 

3 0155  0 
50  154  I 
7 3100  1 
C 0006  1 
I 2752  3 
5C  154  1 

4 1507  0 
1 2756  C 
5C  154  1 
3 1 50  7 1 
1 2756  C 
3 4755  1 


SPSCONT  TS 

EXTEND 

MP 

TS 

CAE 

EXTEND 

MP 

TS 

EXTEND 

READ 

TS 

CAF 

TCF 

CAF 

L00P3  TS 
CA 

INDEX 

MASK 

EXTEND 

RZF 

CA 

INDEX 

MASK 

EXTEND 

BZF 

INDEX 

CS 

TCF 

FRSTZERO  INDEX 
CA 
TCF 

ZACCDOT  CAF 


ACCDCTC 

OGBF 

KO 

ACCDOTR 

DGBF 

KROAP 

CHAN12  - 
MPAC  +1 
BIT2 
L00P3 
ZERO 
MPAC 
MPAC  +1 
MPAC 

GIMBLBTS 

ZACCCDT 
MPAC  +1 
MPAC 

61 MBLBTS 

FRSTZERO 

MPAC 

ACCOGTQ 

STACCCOT 

MPAC 

ACCDOTO 

STACCCCT 

ZERO 


♦ 1 


scaled  at  P!/2(7| 

*3ACCDOTO  SCALED  AT  PI/2(8I 
* 3ACCDCTR  AT  P 1 /2 ( 8 ) 


NOW  COMPUTE  QACCOOT,  RACCDOT,  THE  SIGNED 
JERK  TERMS*  STORE  CHANNEL  12*  WITH  61M 
BAL  DRIVE  BITS  9 THRCUGH  12*  SET  LOOP 
INDEX  TO  COMPUTE  PACCOOT,  THEN  OACCOnT* 

ACCOOTQ  AND  ACCOOTR  ARE  NOT  NEGATIVE, 
BECAUSE  THEY  ARE  MAGNITUDES 

mask  CHANNEL  IMAGE  FOR  ANY  GIMPAL  MOTION 


IF  NONE,  OIRIACCDOT  IS  ZERO* 

6IM8AL  IS  MOVING*  IS  ROTATION  POSITIVE* 

IF  NOT  POSITIVE,  BRANCH 

POSITIVE  ROTATION,  NEGATIVE  Q{R)ACCOOTo 

NEGATIVE  ROTATION,  POSITIVE  QIRJACCOOT* 
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0277 

0278 

0279 

0280 


0261 
0282 
02  83 

0284 

0285 
028ft 

0287 

0288 

0289 

0290 

0291 

0292 

0293 


REF  906 
REF  6 
REF  907 
REF  2 
REF  60 
REF  e 

REF  1 
REF  5 
REF  1 


REF  2 
REF  6 
REF  1 
REF  63 
REF  2 


LAST  1482 
LAST  1475 
LAST  1483 
LAST  1482 
LAST  1478 
LAST  144* 


LAST  1405 


LAST  1483 
LAST  1464 

LAST  1472 
LAST  1442 


20,2756  5C  154  1 S7ACC0CT  INDEX  MPAC 


20,2757  55*510  0 

20.2760  10  154  0 

20.2761  1 2733  0 

20  ,2762  4 0111  1 

20.2763  7 4736  0 

20.2764  C 0006  1 

20.2765  I 3712  I 

20.2766  4 1263  0 

20.2767  6 3772  0 

20.2770  C 00C6  1 

20.2771  1 2773  1 

20.2772  I 3712  1 

20.2773  11*632  0 

20.2774  1 2777  0 

20.2775  0 4674  0 

20.2776  43327  0 


TS  OACCDOT 

CCS  MPAC 

TCF  L00P3  -1 

CS  DAP800LS 

MASK  USECRJTS 

EXTEND 

BZF  DOWNGTS 

CS  T5ADR 

AO  PAXISADR 

EXTEND 
BZF  +2 

TCF  DOWNGTS 

CCS  INGTS 

TCF  DOCKTEST 

TC  IBNKCALL 

CADR  TIMEGMeL 


0294  REF  4 LAST  1479 

0295  REF  1 

0296  REF  2 LAST  1481 


20,2777  10  157  0 COCKTEST  CCS 

20.3000  1 3675  1 TCF 

20.3001  1 3235  1 TCF 


OOCKTEMP 

1/ACCRET 

1/ACCOM 


17:53  DECo  19,1069  LMDAP 
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USER'S  PAGE  NOc  7 E6  S4 

STORE  QlR)ACCDOT« 

NCW  DO  QACCCOTo 
I S GIM8AL  USABLE? 


NOe  BE  SURF  THE  GIMBAL  SWITCHES  ARE  DOWN 
YESo  IS  THE  DAP  PUNNING? 


NOo  BE  SURE  THE  GIMBAL  SWITCHES  ARE  DOWN 
YESo  IS  GTS  IN  CONTROL? 

YESo  PRCCEED  WITH  l/ACCSo 

NO.  NULL  OFFSET  AND  FIND  ALLOWGTS 


BYPASS  1/ACCONT  WHEN  DCCKEOo 


GAP 
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P0297  SLBROUTINE:  CVOVSUB 


ft0298  ALTHOR;  Co  WORK,  PCD  0 12  JINE  68 


R0299 

R0301 

R0302 

R0303 

R0305 

R0307 

R0309 

R0311 

R0312 

A0313 

A031^ 

A0315 


PURPOSE:  THIS  SUBROUTINE  PROVIDES  A SINGLE-PRECISION  MACHINE  LANGUAGE  DIVISION  OPERATION  WHICH  RETURNS 

(1)  THE  CUCTIENT,  IF  THE  DIVISION  WAS  NORMALo 

(2)  NPGMAX,  IF  THE  CLCTIENT  WAS  IMPPCPER  AND  NEGATIVE® 

(3)  P^S^'AX,  IF  THE  QUOTIENT  WAS  IMPROPER  AND  POSITIVE  OR  IF  THERE  WAS  A ZERO  DIVISOR® 

THE  CALLING  PROGRAM  IS  PRESUMED  TO  BE  A JOB  IN  THE  F BANK  WHICH  CONTAINS  DVOVSUB®  E BANK  MUST  BE  6q 

THE  DIVISOR  FOR  THIS  ROUTINE  MAY  BE  IN  EITHER  FIXED  CR  ERASABLE  STORAGE,  SIGN  AGREEMENT  IS 

ASSUMED  BETWEEN  THE  TWO  HALVES  OF  THE  OlVIOEND®  (THIS  IS  CERTAIN  IF  THE  A AND  L REGISTERS  ARE  THE  RE- 
SULT OF  A MULTIPLICATION  OPERATIONol 
CALL  SECUENCE: 

L TC  DVOVSUB 

L +1  ACRES  (DIV  ISOR  ) 

L *-2  RETURN  HERE,  WITH  RESULT  IN  A,L 


R0316  INPUT:  DIVIDEND  IN  A,L  (SIGN  AGREEMENT  ASSUMED),  DIVISOR  IN  LOCATION  DESIGNATED  BY  "ADPES*'® 

R0318  DIVISOR  MAY  BE  IN  THE  DVOVSUB  F B ANK  , F I XE D-F I XED  FBANK.EBANK  6,  OR  UNSWITCHED  ERASABLE® 


R0320  OUTPUT:  CUCTIENT  ANC  REMAINDER,  CR  POSMAX  (NEGMAX),  WHICHEVER  IS  APPROPRIATE® 

R0322  DEBRIS:  SCRATCHY , SC R A TCH Y , SC F ATCH Z , A , L (NCTE:  SCRATCHX,Y,Z  ARE  EQUATED  TO  MPAC  +A,+5,AN0  +6c) 

R0324  ABORTS  OR  ALARMS:  NONE 


R0325  exits:  TC  THE  CALL  PCINT  4 2® 
R0326  SUBROUTINES  CALLED:  NONE® 


0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 


REF  1 20,3002 

REF  1 20,3003 

REF  428  LAST  1476  20,3004 

20,3005 

REF  A29  LAST  1484  20,3006 

REF  529  LAST  1A78  20,3007 

20.3010 

20.3011 

REF  1 20,3012 


5A  161  0 
5^  160  1 
5C  002  0 
3 0000  1 
24  002  0 
5C  000  1 
3 0000  1 
Q 0006  I 
1 30A1  0 


DVOVSUB 


INCR 
I NDEX 


SCRATCHY 

SCRATCHX 

Q 

0 

C 

A 

0 


MA  XPLUS 


SAVE  UPPER  HALF  OF  DIVIDEND 
CBTAIN  ADDRESS  OF  DIVISOR® 

STEP  0 FOR  PROPER  RETURN  SEOUENCEc 

P ICK  UP  THF  01 VI  SCR® 

RETURN  POSMAX  FOR  A ZERO  DIVISOR® 


0336  REF 


20,3013  5A  162  0 


TS  SCRATCHZ 


STORE  DIVISOR® 


0337 

0338 

0339 

0340 


REF 

REF 


71  LAST  1484 


20.3014 

20.3015 

20.3016 

20.3017 


IC  OOO  0 
6 4753  1 
1 3020  1 
6 4753  1 


CCS  A GET  ABSIOIVISORI  IN  THE  A REGISTER® 

AD  BITl 

TCF  ZERCPLUS 

AD  BITl 


0341 

0342 

0343 


REF  2 LAST  1484 
REF  1 


20.3020  56  161  I ZERCPLUS  XCF  SCRATCHY 

20.3021  C 0006  1 EXTEND 

20.3022  6 3024  1 BZMF  GOODNEG 


STORE  ABS(DIVISnF )®  PICK  UP  TOP  HALF  OF 
DIVIDEND® 

GET  -APSICIVIOENO ) 


GAP: 

I 

034A 

0345 

0346 

0347 

0346 

0349 

0350 

0351 

0352 

03  53 

0354 

0355 

0356 

0357 

0358 

0359 

R0360 

R0361 

R0362 

R0363 

R0365 

RU367 

0368 

0366 

0369 

0369 

0370 

0370 

0371 

0371 

0372 

0372 

0373 

0373 

0374 

03  74 

0375 

0376 
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REF  531  LAST  1484 


20,3023  ^ CCCO  0 


CS 


A 


REF 

PEF 


3 LAST  1484 
1 


20.3024  6 0161  1 

20.3025  C 0006  I 

20.3026  6 3033  1 


GOODNEG 


AD  SCRATCHY 

EXTEND 

BZMF  MAKEWAX 


ABSIOIVISORJ  - ABS  ( Cl  VI  DEND  > 
BRANCH  IF  DIVISION  IS  NCT  PROPER* 


REF  2 

REF  2 
REF  ^30 


LAST  1484 

LAST  1484 
LAST  1484 


20,3027 

20.3030 

20.3031 

20.3032 


3 0160  0 
C 0006  1 
10  U2  0 
0 0002  0 


CA  SCRATCHY 

EXTEND 

OV  SCRATCHZ 

TC  0 


RE-ESTABLISH  THE  DIVIDEND* 

CUCTIENT  IN  THE  A,  REMAINDER  IN  La 
RETURN  TO  CALLER* 


REF  3 LAST  1485 
REF  3 LAST  1485 
REF  2 LAST  1484 
REF  4 LAST  1485 
REF  13  LAST  1481 
PEF  431  LAST  1485 
REF  43  LAST  1480 
REF  A32  LAST  1485 


20.3033  1C  160  1 

20.3034  10  162  0 

20.3035  1 3041  0 

20.3036  10  162  0 

20.3037  3 4735  1 

20.3040  C 0CC2  0 

20.3041  3 4733  1 

20.3042  0 0002  0 


MAKEMAX 


MAXPLUS 


CCS  SCPATCHX 

CCS  SCRATCHZ 

TCF  MAXPLUS 

CCS  SCRATCHZ 

CAF  NEGMAX 

TC  C 

CAF  POSMAX 

TC  0 


DETERMINE  THF  SIGN  OF  THE  QUOTIENT, 
SCRATCHX  AND  SCRATCHZ  APE  NON-ZERO, 


COEFFICIENTS  FOR  THE  JET  ACCELERATION  CURVE  FITS 
THE  CURVE  FITS  ARE  CF  THE  FORM  - 


IJACC  = A/( PASS  + Cl  + 0 


A IS  scaled'  at  PI/4  RAD/SEC**2  6+16KG,  B IS  SCALED  AT  Pl/4  RA0/SEC*#2,  AND  C IS  SCALED  AT  B +16  KG, 


THE  CURVE  fit  FOR  L,PVT-CG  IS  CF  THE  SAME  FORM,  EXCEPT  THAT  A IS  SCALED  AT  8 FT  6+16  KG,  6 IS  SCALED  AT  8 FT, 
AND  C IS  SCALED  AT  6+16  KG, 


20.3043  01240  0 20EC  +o04105ll917 

20.3044  22513  0 


A DESCENT 


20.3045  OOlAl 

20.3046  07416 

20.3047  CQ030 

20.3050  21261 

20.3051  00021 

20.3052  03766 


0 INERCONA  20EC 
0 

1 2DEC 
1 

1 2DEC 

0 


+ •0059347676- 
+,0014«7g264 
+•0010451889 


IJACCP  A DESCENT 
IJACCO  A DESCENT 
IJACCR  A DESCENT 


20.3053  00153  0 

20.3054  C7111  1 

20.3055  00072  1 

20.3056  24103  0 

20.3057  CC135  0 

20,3060  11511  1 


2DEC  +c0065443852 
20EC  +o003578A354 
20EC  +,0056946631 


IJACCP  A ASCENT 
IJACCO  A ASCENT 
IJACCR  A ASCENT 


20.3061  04754  Q 

20.3062  77142  0 


DEC  +,155044  L 8 DESCENT 

DEC  -,025233  L C DESCENT 
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0377 

0378 

0379 

0380 
03  81 
0382 


20i3<]63  Q0C61  0 

20,3n6A  00217  0 

20f3065  00464  1 

20.3066  75642  0 

20.3067  00536  1 

20,3070  75705  1 


INERCCNB  CEC 
INERCONC  CEC 
DEC 
DEC 
DEC 
DEC 


+«002989 

+,008721 

+o018791 

-«06ei63 

+oC21345 

-,066027 


0383 

0384 

0385 

0386 

0387 

0388 


20. 3071  00001  0 

20.3072  77616  0 

20.3073  C5154  1 

20.3074  00052  0 

2J,3075  00231  1 

20,3076  77174  0 


DEC  +,000032 
DEC  -,006923 
DEC  +,162862 
DEC  +,002588 
CEC  +,009312 
DEC  -,023608 


0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 
R0399 


20  ,3  077 

20.3100 

20.3101 

20.3102 

20.3103 

20.3104 

20.3105 

20. 3106 

20.3107 
20,3110 

CSM-COCKEC  IMERTIA  COMPUTATIONS 


01400  1 
CIOOO  0 
06000  1 
04000  0 
23146  0 
13241  1 
00337  0 
26501  1 
51276  0 
62362  1 


GIM0L0TS  OCTAL 
OCTAL 
OCTAL 
OCTAL 

OGEF  DEC 

0,35356  DEC 
GFACTM  OCT 
,7071  DEC 
-,7071  CEC 
-EFSMAX  CEC 


C1400 
0]  000 
C6C00 
04000 
0,6 

0,35356 

337 

, 7C7H 
-, 7C711 
-,42265 


0400  REF  175  LAST  1481 

0401  REF  I 

0402  REF  176  LAST  1486 

0403  REF  1 


20.3111 

20.3112 
20,^113 
20,3114 


3 4753  1 
54  160  1 
3 4753  1 
54  161  0 


CCCKEC  CA 
SPSLOQPl  TS 
CA 
TS 


ONE 

COEFCTR 

ONE 

MASSCTR 


0404  REF 

0405  REF 

0406 

0407  REF 

0408 

0409  REF 


2 

1 

19 


LAST  I486 

LAST  1480 
LAST  1479 


20.31 15 

20.3116 

20.3117 

20.3120 

20 .3121 

20. 3122 


50  160 
3 3216 
C 0C06 
7 1326 
C 0006 
7 1327 


0 

1 

1 

0 

I 

1 


INDEX 

CA 

EXTEND 

MP 

EXTEND 

MP 


LEMMASS 

CSMMASS 


0410  REF  3 LAST  1486  20,3123  50  160  0 

0411  REF  2 LAST  1486  20,3124  6 3217  0 


INDEX  COEFCTR 
AD  COEFF 


0412 

0413 


REF  908  LAST  1483 


20,3125  54  154  0 

20  ,3126  1 3132  0 


TS  MPAC 

TCF  +4 


0414  REF 

0415 

0416  REF 

0417  REF 

0418  REF 

0419 


2 LAST  1486 

4 LAST  1486 

5 LAST  1486 

3 LAST  1486 


20,3127  54  161  0 

20.3130  0 0006  1 

20.3131  26  160  1 

20.3132  5C  16C  0 

20.3133  3 3221  0 

20.3134  C 0006  1 


SPSLCCP2  TS  MASSCTR 

EXTEND 

CIM  COFFCTR 

INDEX  COEFCTR 

CA  COEFF  +2 

EXTEND 


17:53  CEC,  19,1969  LMOAP 


,025  PAGE  1486 


USER'S  PAGE  NCe 


1 JACCP 
IJACCP 
IJACCO 
IJACCO 
IJACCR 
IJACCR 


DESCENT 
DES  CENT 
DESCENT 
DESCENT 
DE  SCENT 
DESCENT 


IJACCP 
IJACCP 
IJACCO 
IJACCO 
IJ  ACCR 
IJACCR 


B ASCENT 
C ASCENT 
6 ASCENT 
C ASCENT 
0 ASCENT 
C ASCENT 


,3  SCALEC  AT  1/2 
, 70711  SCALED  AT  2 
979,24/2,20462  AT  8+15 


COFFTR  = 1 FOR  INERTIA  COEFFICIENTS 
= 7 FOR  CG  COEFFICIENTS 

MASSCTR  = 1 FOR  CSM 

= 0 FOR  LFM 


COEFF  -1  = C 


LET  X = CSMMASS  ANC  Y = LEMMASS 


COEFF  = F 

MPAC  = C X Y + F 


LOOP  TWICE  THROUGH  HERE  TO  OBTAIN 
MPAC  = MPAC  + lA  X ♦DIX  + (B  Y +E>Y 

LOOP  LOOP  nz 


COEFF  +2 


OR  B 


gap:  assemble  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


L AOSTASK  AND  AOSJO0 


0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 


REF  3 LAST  1486 
REF  20  LAST  I486 
REF  6 LAST  1*86 
REF  4 LAST  1486 

REF  4 LAST  1487 
REF  21  LAST  1407 
REF  909  LAST  1486 


20.3135  5 0161  1 

20.3136  7 1326  0 

20.3137  50  160  0 

20.3140  6 3223  1 

20.3141  C 00C6  1 

20.3142  5 Olei  1 

20.3143  7 1326  0 

20.3144  26  154  0 


INDEX  MASSCTR 
MP  LEMMASS 

INDEX  COEFCTR 
AO  COEFF  44 

EXTEND 

INDEX  MASSCTR 
MP  LEMMASS 

ADS  MPAC 


042  8 

0429 

0430 

0431 

0432 

0432 

0433 

0434 

0435 

0436 


REF  5 LAST  1487 

REF  1 

REF  7 LAST  1487 


REF  910  LAST  1487 
REF  911  LAST  1487 
REF  25  LAST  1473 
REF  1 


20.3145  10  161  0 

20.3146  1 3127  1 

23.3147  1C  160  1 

20  ,3150  1 3157  0 

20.3151  COOCO  1 

20.3152  20354  1 

20.3153  3 0154  1 

20.3154  54  155  1 

20.3155  3 4757  0 

20.3156  1 3112  1 


CCS 

TCF 

CCS 

TCF 

TCRCCCNS  2CEC 

CA 

TS 

CA 

TCF 


MASSCTR 
SPSL00P2 
COEFCTR 
+ 7 

0o51443  e-14 

MPAC 
MPAC  +1 
SEVEN 
SPSLCDFl 


0437 

0438 

0439 

0440 

0441 


REF  1 

REF  4 LAST  1482 

REF  17  LAST  1401 

REF  8 LAST  1480 


20,3157 
20  ,3160 

20.3161 

20.3162 

20.3163 


3 3216  1 
22  007  0 
C 3002  0 
C1243  0 
55*  530  1 


CA  IJACCCON 

ZL 

TC  Dvcvsue 

ADRES  MASS 
TS  IJACC 


0442  REF  44 

0443  REF  2 

0444  REF  3 

0445  REF  4 

0446  REF  5 

0447  REF  6 

0448 

0449  REF  1 

0450 

0451  REF  912 

0452 

0453  REF  6 

0454  REF  6 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


1485 

1427 

1456 

1487 

1487 

1487 


LAST  1487 

LAST  1482 
LAST  1482 


20.3164 

20.3165 

20.3166 

20.3167 

20.3170 

20.3171 

20.3172 

20.3173 

20. 3174 

20.3175 

20.3176 

20.3177 
20,3200 


2 4733 
55*550 
55*  570 
55*571 
55*610 
55*611 
C 0006 

3 3152 
C 0CC6 
10  155 
C 0004 
55'531 
55*532 


1 

1 

0 

1 

0 

1 

1 

1 

1 

1 

0 

0 

0 


CA  POSMAX 

TS  l/ANETP 

TS  1/ANET2 

TS  1/ANET2 

TS  1/ANET2 

TS  1/ANET2 

EXTEND 

CCA  TOROCONS 
EXTEND 

OV  MPAC  *1 

INhINT 

TS  IJACCC 

TS  IJACCR 


♦ 1 
♦ 2 

♦ 17D 

♦ 180 


0455  REF  2 LAST 

0456  REF  7 LAST 

0457  REF  2 LAST 

0458  REF  6 LAST 

0459  REF  18  LAST 

0460 

0461  REF  913  LAST 

0462 

0463  REF  7 LAST 

0464  REF  5 LAST 


148  1 20,3201  2 3K7 

1481  20,3202  55*626 

1480  20,3203  3 3106 

1481  20,3204  55*627 

1487  20,3205  3 1243 

20,3206  C 0006 
1487  20,3207  7 0154 

20,3210  0 0006 

1481  20,32)1  7 1245 

1487  20,3212  0 3002 


1 

0 

0 

1 

0 

I 

0 

1 

1 

0 


-o7071 

COEFFO 

o7071 

CCEFFR 

MASS 

MPAC 

AeCELV 

DVOVSUB 


17: 53  DEC*  19,1969  LMQAP 

US  ER*  S PAGE  NO*  11 


* 025  PAGE  1487 
£6  S4 


CDEFF  +4  = E OR  D 


IF  COEFCTR  IS  PCS  , EXIT  FRCM  LOOP  WITH 
CG  X DELOOT  = MPAC  X 4 PI  RAO-CM/SEC 
CORRESPONDS  TO  500  L8-FT 


INERTIA  = (MPAC  +1)  X 2(381  KG-CM(2) 


1JACC=1JACCC0N/MASS 


SCALED  AT  PI/4 

SET  INVERSE  JET  ACCELERATIONS  TO  POSMAX, 
WHICH  CORRESPONDS  TC  ACCEL*  OF  3c4  O/SS* 


SCALED  AT  PI/4 

COEFFC  AND  CCEFFR  APE  CHOSEN  TO  MAKE  U- 
ANC  V-AXES  ORTHOGONAL  FOR  DOCKED  CASE 

SCALED  AT  2(161  KG 

SCALED  AT  4 PI  RAD-CM/SEC 

SCALED  AT  2(1 3 1 CM/SEC( 21 

GET  QUOTIENT  WITH  CVERFLOW  PROTECTION 


gap: 


0A65 

0^66 

0A67 

0^68 

AC469 

AOA70 


ASSEMBLE  REVISION  131 

ACSTASK  AND  AOSJOB 

REF  914  LAST  1487 

REF  4 LAST  1462 
REF  I 


OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  CECo  19,1969  LRDAP  e025  PAGE  1488 
USER  'S  PAGE  NCc  12  E6  S4 


20.3213 

20.3214 

20.3215 

20.3216 


0C155  0 

55'511  1 
I 2716  1 

00167  1 


ACRES  MPAC  +1 
TS  ACCDOTR 

TCF  SPSCONT  CONTINUE  K,  KSO  CALCULATIONS 


IJACCCCN  OCT  00167  SCALED  AT  PI/4X2(16»  R AC/S  EC ( 2 )-K G 

2 2 

COEFFICIENTS  FCR  CURVE  FIT  OF  TFE  FORM  Z=A  X +B  Y +C  X Y +0  X +£  Y +F 


0471 

0472 

0473 

0474 

0475 

0476 


20,3217 

20.3220 

20.3221 

20.3222 

20.3223 

20.3224 


06176  1 
77650  1 
7226C  C 
76637  1 
02167  0 
00645  0 


COEFF 


DEC 

CEC 

DEC 

DEC 

DEC 

DEC 


c 19518 

-o0052° 

-ol7670 

-oC3709 

o06974 

o 02569 


C COEFFICIENT  CF  INERTIA 

F • ' 

e • ' 

A ‘ ‘ 

E • • 

D ' ' 


C477 

0478 

0479 

0480 

0481 

0482 


20,3225  06335  1 

20,2226  C4256  1 

20,3227  30163  0 

20.3230  64C72  0 

20. 3231  53632  0 

20.3232  15133  1 


DEC 

CEC 

DEC 

DEC 

DEC 

DEC 


c2C096  C 
<13564  F 
e75704  B 
-o37142  A 
-o63lJ7  E 
«41179  0 


COEFFICIENT  OF  CG 


R0483 


ASSIGNMENT  OF 


TEMPORARIES  FOR  1/ACCS 


(EXCLUDING  l/ACCONT) 


A0484 

0485  REF  915  LAST 

0486  REF  916  LAST 

0467  REF  917  LAST 

0488  REF  4 LAST 

0489  REF  5 LAST 


1488 

1488 

1488 

1485 

14R8 


0160 

0161 

0160 

0161 

0162 


MPAC,  MPAC  +1, 
CCEFCTR  EQUALS 
MASSCTR  EQUALS 
SCRATCHX  EQUALS 
SCRATCHY  EQUALS 
SCRATCHZ  EQUALS 


MPAC  *2  USED  EXPLICITLY 
MPAC  +4 
MPAC  +5 

MPAC  +4  SCRATCH  ARFA  FOR  DVGVSUB  ROUTINEo 

SCRATCHX  +1 
SCRATCHX  +2 


0490  REF  918  LAST  1468 

0491  REF  919  LAST  1488 

0492  REF  5 LAST  1480 

0493 


20 


0157 

0155 

0155 

,3233 


DCCKTEMP  EQUALS  MPAC  +3 
EPSILCN  EQUALS  MPAC  +1 
-EPSILON  EQUALS  EPSILCN 
-«1875  DEC  -<,18750 


RECORD  OF  CSMDOCKEO  BIT  CF  OAPBOOLS 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  FFCGFAP  LUMINARY  BY  NASA  2021112-091 


L ACSTASK  ANC  AOSJOB 


P0A9A 

0495 

0496 

0497 


REF  6 LAST  1478 


20,3234 

20,2000 

20,3234 


BANK  20 
SETLOC  DAPS3 
BANK 


0498  REF  28  LAST  1478  £6,1526 

0499  PEF  4 LAST  1478  TO  1489:  361  365» 


£BANK=  ACSC 
COUNT#  $$/DAPAO 


0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 


REF  7 LAST  1483 
REF  b LAST  1400 

REF  60  LAST  1474 
REF  308  LAST  1475 
REF  532  LAST  1485 
REF  1 
REF  1 

REF  309  LAST  1489 
PEF  I 


20.3234 

20. 3235 

20.3236 
20,3227 

20.3240 

20.3241 

20. 3242 

20.3243 
20,32^4 
20,3245 


55'  632  0 

3 1343  1 
0 0006  1 
7 4737  1 
54  001  1 
6 0000  1 
54  115  0 

4 1343  0 
6 OCOl  0 
54  114  1 


-\  TS  INGTS 

1/ACCONT  CA  OB 

EXTEND 

MP  BIT13 

TS  L 

AD  A 

TS  D8VAL3 

CS  DBVAL1 

AO  L 

TS  DBVAL2 


0510 

0511  REF 

0512  REF 

0513  PEF 

0514  REF 

0515  REF 

0516  ref 


11  LAST  1478 
310  LAST  1489 
29  LAST  1489 
64  LAST  1483 
4 LAST  1444 
I 


20.3246 

20. 3247 

20.3250 

20.3251 

20.3252 

23.3253 

20.3254 


C 0C04  0 
21 ' 540  1 
54  001  1 
31'536  0 
C 4674  0 
37200  1 
53'543  0 


GETAQSUV  INFINT 
CAE 
TS 
CAE 
TC 

CAOR 

DXCH 


AOSR 

L 

AOSQ 

IBNKCALL 

ROT-TOUV 

AOSU 


0517 

0518  REF  61 

0519  REF  6 

0520  REF  533 

0521  REF  177 

0522  REF  1 

0523  REF  6 

0524  REF  534 

0525  REF  1 

0526  REF  1 

0527 

0528  REF  1 

0529  REF  2 

0530  REF  1 

0531  REF  1 


LAST  1483 
LAST  1445 
LAST  1489 
LAST  1486 


LAST  148L 
LAST  14P9 


LAST  1489 


20.3255  C 0003  1 

20.3256  3 Oil!  0 

20.3257  7 4744  0 

20.3260  10  000  0 

20.3261  3 4753  I 

20.3262  54  116  0 

20.3263  6 1502  I 

20.3264  10  CCC  0 

20.3265  3 3767  1 

20.3266  54  151  0 

20.3267  C 0CC6  I 

20.3270  1 3274  1 

20.3271  10  116  0 

20.3272  3 3766  0 

20  ,3273  54  152  0 


RELINT 

CA 

MASK 

CCS 

CA 

TS 

AO 

CCS 

CA 

TS 

EXTEND 

BZF 

CCS 

CA 

TS 


DAPBOOLS 
DR  IFTBIT 
A 

ONE 

DRIFTER 

ALLOWGTS 

A 

FLATVAL 

FLATEMP 

DOPAXI S 
DRIFTER 
ZCNE3MAX 
Z3TEM 


0532 

A0533 

0534 

0535 


REF 


9 LAST  1437  20,3274 


2 1530  0 DOPAXI S CA 


REF  37  LAST  1468 
REF  1 


20  ,3275  6 4743  0 

20,3276  *=4  157  C 


AD 

TS 


JJACC 

BIT9 

FUNTEM 


0536  REF  10  LAST  1489 


20,3277  3 1530  0 


CA  IJACC 


17:53  DEC:  19,1969  LMDAP 


025  PAGE  1489 


USER'S  PAGE  NCo  13  E6  S4 


ZERO  INGTS  IN  ASCENT 
I M Tl ALI ZE  OBV At  1,2,3 


Oo  2 5 08 
Oo50  CB 


COMPUTE  AOSU  AND  AOSV  BY  ROTATING 
AOSQ  AND  ACSRo 


ZERO  CURING  ULLAGE  ANC  POWERED  FLIGHTo 
IF  DRIFTING  FLIGHT, 

SET  DRIFTER  TO  1 

SAVE  TO  TEST  FCR  DRIFTING  FLIGHT  LATER 
NON-ZERO  IF  DRIFT  CR  GTS  NEAR 

DRIFTING  FLIGHT,  STORE  p0  IN  FLAT 
IN  POWERED  FLIGHT,  STORE  ZERO  IN  FLAT 

IF  POWERED  AND  NO  GTS,  START  P AXIS, 

OTHERWISE  SET  Z0NE3LIM 

17«,5  MS  , SCALED  AT  4 SECONOS- 


IJACC  AT  PI/4  = 2JACC  AT  PI/2  = 

ANFT  AT  PI/2  = AMET/ACOAST  AT  2(6U 
I + ANET/ACOAST  AT  2(6) 


GAP 


ASSEMBLE  REVISION  131  OF  AGC  PPCGRAM  LUMINARY  6Y  NASA  aoaillZ-OQl 


L AOS7ASK  AND  AOSJOS 


0537  REF 

0538 

0539  REF 
05^^0  REF 


I 

3 LAST  1A87 

4 LAST  l^9C 


20i3300  C 37CA  I 

20.3301  C 0004  0 

20.3302  55*  550  1 

20. 3303  55*551  0 


TC  INVERT 

INHINT 

TS  1/ANETP 

TS  1/ANETP  +I 


0541  RFF  38 

0542 

0543  REF  5 

0544 

0545  REF  2 

0546  PEF  1 

0547  REF  2 


LAST  1489 
LAST  1490 
LAST  1489 
LAST  1490 


20.3304 

20.3305 

20.3306 

20.3307 

20.3310 

20.3311 

20.3312 


4 4743  I 
C 0006  1 
7 1550  I 
C 0006  1 
1C  157  0 
55*556  1 
55*  557  n 


BIT9 
1 /ANETP 

FUNTEM 
PACCFUN 
PACCFUN  +1 


0548  REF 

0549  REF 

0550  REF 

0551 


1 

1 

2 LAST  1490 


20.3313  2 4733  1 

20.3314  55*552  0 

20.3315  55*553  1 

20.3316  0 0003  1 


CA  l/oC3 

TS  1/ACOSTP 

TS  l/ACCSTF  + 

PEL  INT 


0552 

0553  REF 

0554  REF 


20,3317  22  007  0 
3 LAST  1489  20,3320  1C  116  0 
2 LAST  1489  20,3321  53*543  0 


CCS  DRIFTER 
DXCH  AGSU 


0555  REF  312  LAST  1402 

0556  REF  1 


20.3322  3 4755  1 UAXIS 

20.3323  54  154  0 


CA 

TS 


ZERC 

UV 


0557  REF  1 

0558  REF  2 LAST  1490 

0559  REF  3 LAST  1490 

0560  REF  178  LAST  1489 

0561 

0562  REF  179  LAST  1490 

0563  REF  2 LAST  1490 

0564  REF  1 

0565  REF  3 LAST  1490 

0566  RFF  1 


20,3324  54  163  1 eOTHAXES  TS  SIGNAOS 


20.3325  !C  154  1 

20.3326  11*542  1 

20.3327  6 4753  1 

20,3330  1 3333  0 

20  ,3331  6 4753  1 

20.3332  24  163  0 

20.3333  54  162  0 

20.3334  4 0163  1 

20. 3335  54  164  0 


INDEX  UV 

CCS  AOSU 

AC  ONE 

TCF  +3 

AC  ONE 

INCR  SIGNAOS 

TS  ABSAOS 

CS  SIGNAOS 

TS  -SIGNACS 


0567 

0568 

0569 


PEF 

REF 

REF 


2 LAST  1489 
1 
1 


20.3336 

20.3337 
20, 3340 


3 1343 
54  143 
54  144 


1 

0 

1 


UBVAL  1 
DBBl 
0662 


0570  REF 

0571  PEF 

0572 

0573  REF 

0574  REF 

0575  REF 


2 LAST  1490 
1 

1 

2 LAST  1489 
I 


20.3341  3 0162  1 

20.3342  6 377C  1 

20.3343  0 00C6  1 

20.3344  6 3436  0 

20.3345  1C  151  0 

20.3346  1 3376  1 


BIGAOS 


CA  ABSAOS 

AO  -o03R/S2 

EXTEND 

BZMF  NOTMUCH 

CCS  FLATFMP 

TCF  SKIPOBl 


0576  RFF  3 LAST  1490 

0577  PEF  2 LAST  1490 


20,3347  3 1343  1 

20,3350  50  164  1 


CA  DBVALI 

INDEX  -SIGNAOS 


17:53  DECo  19,196«  LMCAP  «025  PAGE  1490 
USER*S  PAGE  NOe  14  E6  S4 

P AXIS  DATA  MUST  BE  CONSISTENT 
SCALED  AT  2(7)/PIr 

-1  AT  2I6> 

-1/ANET  AT  2<131/PI 

-l/IANET  + ANET**2/ACnAST  ) AT  2{7)/PI 

NO  AOS  FOR  P AXIS,  ACGAST  = AMIN 


ZERO  AOSU.V  IF  IN  DRIFT,  JUST  TO  BE  SURE 


DO  U AXIS  COMPUTATIONS 

ZERC  FOP  U AXIS,  ONE  FCP  V AXISo 


COOING  COMMON  TO  U,V  AXES 

PICK  UP  ABSIAOSU  CR  ACSV) 

RESTORE  TO  PROPER  VALUE 
AND  LEAVE  SIGNACS  AT  ZERO 
NEGATIVE,  RESTCRE  TC  PRCPER  VALUE 
AND  SET  SIGNAOS  TO  ONE  TO  SHOW  AOS  NEG 
SAVE  ABS(ACS) 

USEC  AS  AN  INDEX 


SET  DBl,  DB2  TO  DBVALl  (=  CB» 


TEST  MAGNITUDE  OF  ABS(ACS) 


ABSIAOS)  LESS  THAN  AMIN 
ABSIAOSI  GREATER  THAN  AMIN 
1 DRIFT  OR  GTS,  PC  NCT  COMPUTE  DB 


GAP: 

L 

0578 

0579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 

0587 

05P8 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

C596 

0597 

0598 

0599 

0600 

0601 

0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 

0611 

0612 

0613 

061^ 

0615 

0616 

0617 

0618 

0619 

A0620 

0621 

0622 

0623 

0624 


.025  PAGE  1491 


ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARV  BY  NASA  2021112-093 
ACSTASK  AND  AOSJOB 


17:53  CECo  19,1969  LMOAP 

USER*  S PAGE  NCe  15  £6  S4 


PEE  2 LAST 

REF  4 LAST 

REF  1 

PEF  1 

REF  3 LAST 


PEF  2 LAST 

REF  1 

REF  4 LAST 


REF  90  LAST 


REF  7 LAST 

RFF  5 LAST 

REF  2 LAST 

REF  2 LAST 

PEF  3 LAST 

PEF  1 


1490  20,3351 

1490  20,3352 

20,3353 
20, 335A 

1490  20,3355 

20.3356 

20.3357 
1489  20,3360 

20,3361 

1491  20,3362 

20.3363 

20.3364 
1481  20,3365 

20.3366 

20.3367 
1489  20,3370 

1491  20,3371 

1A90  20,3372 

1489  20,3373 

1A90  20,337A 

20,3375 


26  144  1 
50  163  0 
59  145  0 

2 3233  0 
6 0162  1 
C 0006  1 
6 3262  0 
4 0115  0 
1 3371  0 
A 0162  0 
6 0000  1 
6 OOOO  1 

6 A736  1 
6 0000  1 
C 0C06  1 

7 1343  0 

50  163  0 OeCNE 
5A  1A3  0 

3 0114  0 
50  164  1 
5A  146  0 


AOS  0862 

INDEX  SIGNAQS 
TS  D8B4 

CA  -«1875 

AD  ABSAOS 

EXTEND 
BZMF  +3 

CS  08VAL3 

TCF  DBCNE 

CS  ABSACS 

DOUBLE 
DOUBLE 

AD  BIT14 

DOUBLE 
EXTEND 
MP  D6 

INDEX  SIGNAOS 
TS  DBBl 

CA  DBVAL2 

INDEX  -SIGNACS 
TS  DBB3 


DB2( 1 » = 2 DB 
DB4(3»  = I DB 

-»1875  PI/2  RAD/SEC(2I  SCALED  AT  PI/2 
ABSAOS  IS  SCALED  AT  P I /2 


-o  5 06 


1-8  ABSAOSe  (8  IS  16/PI  SCALED  AT  2/PM 


DBl(2)=(l-8  ABSAOSI  OBo  IF  ABSAOS  IS 
GREATER  THAN  ,1875  THEN  CBl(2)  = -<,5  DB 


DB3(4)  = -e75  08 


REF  5 

REF  43 
REF  6 
REF  2 
REF  4 
REF  1 
REF  ? 
REF  6 
RFF  2 


LAST  1491 

LAST  147  1 
LAST  1991 
LAST  1490 
LAST  1491 

LAST  1490 
LAST  1491 
LAST  1991 


20,3376 
20, 3277 

20.3900 

20.3901 

20.3902 

20.3903 
20,3909 
20,3905 

20.3406 

20.3407 


3 0162  1 

r 0006  1 

7 4740  1 
6 0162  1 
C 3704  1 
50  164  1 
59  130  I 
2 9733  1 
50  163  0 
59  127  1 


SKIPCBl 


CA 

EXTEND 

MP 

AC 

TC 

INDEX 

TS 

CA 

INDEX 

TS 


ABSAOS 


BIT12 
ABSACS 
INVERT 
-SIGNAOS 
1 /ACCSTT 
1/«C3 
S IGNAOS 
1 /ACOSTT 


ABSIAOS)  greater  THAN  AMIN,  SO  IT  IS 

(9/81  ABSAOSo 

ALL  RIGHT  TC  DIVIDE 

1/AC0ASTP0S(N'FG)  = l/A8S(AnS) 

l/ACOASTNEGfPOS ) = 1/AMIN 


REF  7 
PEF  9 
REF  5 
RFF  39 
REF  535 
REF  1 


LAST  1991 
LAST  1981 
LAST  1491 
LAST  1490 
LAST  1989 


20.3910 

20.3911 

20.3912 

20.3913 
20,3919 
20,3915 


3 0162  1 
6 1533  0 
6 1533  0 
6 4743  0 
59  OCO  0 
1 2962  0 


CA  ABSAOS 

AC  IJACCU 

AO  ] JACCU 

AD  BIT9 

TS  A 

TCF  SKIPDB2 


2 JACC  + ABSIACS I 

MAXIMUM  VALUE  IN  CCMPUTATIONS 

TEST  FOR  OVERFLOW 

NO  OVERFLOW,  DC  NORMAL  COMPUTATION 


REF  8 LAST  1991 

PEF  91  LAST  1991 

REF  6 LAST  1991 

REF  1 


20.3916  2 0162  1 

20.3917  C 0006  1 

20.3920  7 9736  0 

20.3921  6 1533  0 

20.3922  59  157  0 


REF  99  LAST 
REF  2 LAST 
REF  3 LAST 


1935  20,3923 

1991  20,3929 

1991  20,3425 

20,3926 


6 9799  1 
56  157  1 
0 3704  1 
C CC06  1 


CA  ABSACS  PESCALE  TO  PI  TO  PREVENT  OVERFLOW 

EXTEND 

MP  BIT19 

AO  IJACCU  1 JACC  AT  Pl/2  = 2JACC  AT  PI 

TS  ANET  ANETPOStNEGI  MAX  SCALED  AT  Pi  = 

ANBTPOSINFGI  MA X/ACOA STNEG ( POS I AT  2(71 
AO  BITS  1 + ANETPnS/ACCASTNEG  AT  2(7J 

XCH  ANET  SAVE  IN  ANET,  WHILE  PICKING  UP  ANET 

TC  INVERT 

EXTEND 


GAP: 

L 

C625 

0626 

062  7 

0626 

0629 

C630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 

0661 

0662 

0663 

0664 


ASSEMBLE  REVISION  131  OF  AGC  PPCGRAf-  LUMINARY  BY  NASA  2D21U2-091 


17:53  CEC«  19,1969  LMOAP  -025  PAGE  1492 


ACSTASK  AND  AOSJOB 


USER*  S PAGE  NCo  16  E6  S4 


REF  92  LAST  149)  20,3427  7 4736  0 MP  BIT14 

REF  1 20,3430  54  16C  1 TS  l/ANET 


SCALE  l/ANET  AT  2{7)/pI 


REF  1 
RFF  3 
REF  45 
RFF  1 


LAST  1491 


20.3431 

20.3432 

20.3433 
20  ,3434 


3 3435  0 
54  161  0 
i i,744  0 
1 3737  0 


CA  ACCHERF  SET  UP  RETURN  FRCP  CCMPUTATICN  ROUTINE 

TS  ARET 

CS  BITS  -1  AT  2 (7 ) 

TCF  DOACCFUN  FINISH  ACCFUN  CCMPLTATICN 


REF 


20,3435  1 3467  0 ACCHERE  TCF  ACCTHERE 


REF  311 
REF  3 
REF  3 
REF  4 


LAST  1489 
LAST  1491 
LAST  )491 
LAST  1492 


20 .3436 

20.3437 
20, 3440 
20  ,3441 


3 4733  1 
54  127  1 
54  130  1 


NOTMUCH 


TS  L 

CA  l/«03 

TS  1/ACCSTT 

TS  J/ACOSTT 


ABSIACS)  LESS  TI-AN  AMIN,  SAVE  IN  L 
ACPASTPOS.NEG  = AMIN 


REF  3 LAST  1490 
REF  2 LAST  1491 


20.3442  1C  151  0 

20.3443  1 3462  0 


CCS  FLAT6MP 

TCF  SKIP0e2  DC  NCT  COMPUTE  CB  IF  DRIFT  OR  GTS 


LAST  1492 


REF  1 

REF  3 LAST  1491 

REF  5 LAST  1491 

REF  2 LAST  1491 

REF  536  LAST  1491 

REF  7 LAST  1491 

REF  2 LAST  1491 

REF  3 LAST  1492 


20.3444 

20. 3445 

20.3446 

20.3447 

20.3450 

20.3451 

20.3452 

20.3453 

20.3454 

20.3455 

20.3456 


3 3771 

6 reel 

C 0006 
6 3^57 
3 0115 
50  164 
54  146 
6 0000 
50  163 
54  145 
1 3462 


0 

0 

1 

1 

I 

1 

0 

1 

0 

0 

0 


S0M6A0S 


CA  o023R/S2 

AO  L 

EXTEND 

BZMF  NOAOS 

CA  DBVAL3 

INDEX  -SIGNAOS 
TS  0663 

AO  A 

INDEX  SIGNAOS 
TS  06B4 

TCF  SKIPDB2 


»0?28  RAD/SEC ( 2 I 

L=ABSIAnS )-AMIN=ABS(AnS )-e0245R AD/SEC ( 2) 
RESLLT  IS  ABS(ACS>-o0017  RA0/SeC(2) 
A8S(A0S>  LESS  THAN  <,0017  PA0/SEC(2) 
e0017  RAD/SEC(2>  LT  ABStAOS)  LT  AMIN 

D63(4)  = CB/2 


064  (3  ) 


CB 


REF  4 LAST 

REF  3 LAST 

REF  3 LAST 


1490  20,3457 
1492  20,3460 
1492  20,3461 


3 1343  1 NCACS 
54  146  0 
54  145  0 


CA  OeVALl 

TS  DBB3 

TS  DBB4 


D83  ,4 


DB 


REF  9 LAST  1491 

REF  7 LAST  1491 

REF  8 LAST  1492 

REF  3 LAST  1491 

REF  1 


20,3462  3 0162 

20,346?  6 1533 

20.3464  6 1533 

20.3465  54  157 

20.3466  0 3730 


I SKIP0e2  CA 
0 AO 

0 AC 

0 TS 

0 CL1/NET+  TC 


ABSACS 
IJACCU 
1 JACCU 
ANET 

D01/NET+ 


ANETPOS(NEG)  max  = 2 JACC  ♦ ABSIAOSI 

CONNOT  OVERFLOW  HERE 
COMPUTE  l/ANET,  ACCFUN 


REF 

REF 

REF 

REF 

REF 


6 LAST  1492 

1 

2 LAST  1492 

7 LAST  1492 
1 


20,3467  50  l64  1 

20.3470  54  134  0 

20.3471  3 0160  0 

20.3472  5C  164  1 

20.3473  54  126  0 


ACCTHERE  INDEX 


-SIGNAOS 
Z5TEM  +2 
l/ANET 
-SIGNACS 
1/ATEM2  +2 


STORE  ACCFUN  IN  TFMPCRARY  BUFFER 

STORE  l/ANET  IN  TEMPORARY  BUFFER 


REF  10 
REF  9 
REF  40 


LAST  1492 
LAST  1492 
LAST  1491 


20.3474 

20.3475 

20.3476 


3 0162  1 
f 1533  C 
6 4743  0 


CA  ABSAGS  SEE  IF  OVERFLOW  IN  MIN  CASE 

AD  IJACCU 

AO  6IT9  MAXIMUM  POSSIBLE  VALUE 


GAP  : 

L 

0665 

0666 

0667 

0666 

0669 

0670 

0671 

0672 

0673 

067^ 

0675 

0676 

0677 

0678 

0679 

0660 

0681 

0682 

0663 

0684 

0685 

0686 

0687 

0686 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0707 

0708 


L^DAP 


025 


PAGE  1493 
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AOSTASK  AND  AOSJOB 


USER’S  PAGE  NOo  37  F6  S4 


REF  537 

REF  45 
REF  2 
REF  4 
REF  2 


LAST  1492 

LAST  1487 
LAST  1490 
LAST  1492 
LAST  1492 


20,3477 

20.3500 

20.3501 
20 , 3 50  2 
20,3503 
20,35G4 


54  000  0 

1 3502  1 

2 4733  1 
6 3770  1 
54  157  0 
C 3730  0 


TS  A 

TCF  +2 

CA  POSMAX 

AO  -o03R/S2 

TS  ANET 

TC  UC1/NET+ 


OVERFLOW  POSSIELE  EUT  REMOTE 

IF  OVERFLOW,  TRUNCATE  TO  P I /2 
RESTORE  TC  CORRECT  VALUE 

COMPUTE  1/AMET,  ACCFUN 


REF 

REF 

REF 

REF 

REF 


LAST  1492 
LAST  1492 
LAST  1492 
LAST  1403 
LAST  1492 


•20,3505 

20.3506 

20.3507 

20.3510 

20.3511 


50  164  1 
54  132  0 
3 OUO  0 
50  164  1 
54  124  1 


INDEX  -SIGNADS  STORE  MIN  VALUES  JUST  AS  MAX  VALUES 

TS  Z5TEM 

CA  1/ANET 

INDEX  -SIGNAOS 

TS  1/AT6M2 


REF  11 
REF  10 
REF  11 
REF  1 
REF  8 
REF  1 
REF  313 
REF  4 
REF  9 
REF  1 
REF  12 
REF  12 
REF  5 
REF  3 


REF  1 


LAST  1492 
LAST  1492 
LAST  1493 

LAST  1492 

LAST  1492 
LAST  1493 
LAST  1493 

LAST  1493 
LAST  1493 
LAST  1493 
LAST  1493 


20.3512 

20.3513 

20.3514 

20.3515 

20.3516 

20.3517 

20.3520 

20.3521 

20.3522 

20.3523 

20.3524 

20.3525 

20.3526 

20.3527 

20.3530 

20. 3531 


4 0162  0 
6 1533  0 
6 1533  0 
0 3716  1 
50  163  0 
54  133  1 
54  001  1 

3 0160  0 
50  163  0 
54  125  0 

4 0162  0 
6 1533  0 
54  157  0 
6 3770  1 
0 0006  1 
6 3747  C 


CS 

AO 

AD 

TC 

INDEX 

TS 

TS 

CA 

INDEX 

TS 

CS 

AO 

TS 

AD 

EXTEND 

8ZMF 


ABSAOS 

IJACCU 

J JACCU 

1/ANET- 

SIGNAOS 

ZITEM  +2 

L 

1/ANET 

SIGNAOS 

J/ATEMl  *2 

ABSACS 

IJACCU 

ANET 

-«C3R/S2 


F I X M I N 


NOW  DO  NEG(POS)  CASES 
ANETNEG(FOS)  MAX 

COMPUTE  1/ANET,  ACCFUN,  AND  ACCSW 
STORE  NEG(POS)  VALUES  JUST  AS  POSINEG) 

SAVE  IN  L FOR  POSSIBLE  FUTLRE  USE 


1/ANETNEG(  PCS)  MIN 
TEST  FOR  AMIN 

IF  ANET  LESS  THAN  AMIN,  STORE  MAX  JET 
VALUES  FOR  MIN  JETS  AND  SET  ACCSW 


REF  1 
REF  10 
REF  2 
REF  5 
PEF  U 
REF  2 


LAST  1493 
LAST  1493 
LAST  1493 
LAST  1493 
LAST  1493 


20.3532 

20.3533 

20.3534 

20.3535 

20.3536 

20. 3537 


0 3724  0 
50  163  0 
54  121  0 
3 0160  0 
50  163  0 
54  123  0 


STMIN- 


TC  1/NETMIN 

INDEX  SIGNAOS 
TS  ZITEM 

CA  1/ANET 

INDEX  SIGNACS 
TS  1/ATEMl 


OTHERWISE  DO  MIN  JET  COMPUTATIONS 
STORE  VALUES 


PEF  3 
REF  1 
REF  9 

REF  1 
REF  3 
REF  4 
REF  3 
REF  4 
REF  4 
REF  1 


LAST  1490  20,3540 

20,3541 
LAST  1450  20,3542 

20.3543 

20 .3544 
LAST  1493  20,3545 

LAST  1493  20,3546 

LAST  1493  20,3547 

LAST  1493  20,3550 

LAST  1493  20,3551 

20,3552 


50  154  I 
3 3775  1 
7 1257  1 
0 0006  1 
1 3551  1 
3 0124  0 
54  126  0 
3 0132  1 
54  134  n 
5C  154  1 FAIL- 
3 3773  1 


INDEX  UV 

CA  +UMASK 

MASK  CH5MASK 

EXTEND 

eZF  FAIL- 

CA  1/ATEM2 

TS  1/ATEM2  +2 

CA  Z5TFM 

TS  ZSTEM  +2 

INDEX  UV 

CA  -UMASK 


TEST  FOR  +U  < + V)  JET  FAILURES 


REPLACE  FUNCTION  VALUES  DEPENDING  ON  THE 
FAILED  JET  PAIR  WITH  CORRESPONDING  ONE- 
JET  (OR  AMIN)  FUNCTION  VALUES 


GAP  : 

L 

0709 

0710 

0711 

0712 

0713 

071<f 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 

0728 

0729 

0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 

0741 

C742 

0743 

074^ 

0745 

0746 

0747 

0748 
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AOSTASK  AND  AOSJOb 


USER’S  PAGE  NOo  18  66  S4 


REF  10 

REF  1 
KEF  3 
REF  4 
REF  3 
REF  4 


LAST  1493 


LAST  1493 
LAST  1494 
LAST  1493 
LAST  1404 


20t3553 

20.3554 

20.3555 

20.3556 

20.3557 

20.3560 

20.3561 


7 1257  1 
C 3006  1 
] 3562  1 
3 0123  1 
54  125  0 
3 0131  1 
54  133  1 


WASK  CH5MASK 

EXTEND 

EZF  DBFUN 

CA  1/ATEMl 

TS  l/ATEMl  +2 

CA  ZITEM 

TS  ZITEM  +2 


TEST  FOR  -U  I-V)  JET  FAILURES 


REPLACE  FUNCTION  VALUES  DEPENDING  ON  THE 
FAILED  JFT  PAIR  WITH  CORRESPONDING  ONE- 
JET  (OR  AMIM)  FUNCTION  VALUES 


REF  4 LAST  1492 

REF  3 LAST  1491 

REF  4 LAST  14Q2 

REF  1 

REF  4 LAST  1492 

REF  3 LAST  1491 

REF  5 LAST  1494 

REF  2 LAST  1494 


20.3562 

20.3563 

20.3564 

20.3565 

20.3566 

20.3567 

20.3570 

20.3571 


4 0146  0 
6 0143  1 
6 0151  1 
E4  147  1 
4 0145  0 
6 0144  0 
6 0151  1 
54  150  1 


CPFUN 


CS  0063  COMPUTE  AXISDIST 

AO  DBBl 

AC  FLATEMP 

TS  AXCSTEM 

CS  DBBi 

AD  D8B2 

AO  FLATEMF 

TS  AXDSTEM  +1 


REF  5 
REF  1 


LAST  1493 


20.3572 

20.3573 
20  ,3574 


C.  0004  n 
K 154  0 
1 3616  1 


INF  I NT 

CCS  UV  TEST  FOR  U OR  V AXIS 

TCF  STORV  V AXIS  STORE  V VALUES 


REF  1 
REF  3 


LAST  1456 


20.3575 

20.3576 


3 0122  0 
55‘546  C 


CA  ACCSW  U AXIS  STORE  U VALUES 

TS  ACCSWU 


REF  3 
REF  5 
REF  12 


20,3577 
LAST  1371  20,3600 
LAST  1494  20,3601 
LAST  1461  20,3602 


00123  1 
01566  0 


CA  NINE 

TC  GENTRAN  +l 

ADRES  l/ATEMl 
ADRES  1/ANETl 


TRANSFER  10  WORDS  VIA  GENTPAN 

TEMPORARY  BUFFER 
THE  REAL  PLACE 


REF 

REF 

REF 

REF 


LAST  1494 
LAST  1494 


20.3603 

20.3604 

20.3605 

20.3606 

20.3607 


C 0003 
52  144 
52  136 
52  146 
52  140 


RELINT 
DXCH  DBBl 
OXCH  UDBl 
UXCH  0664 
DXCH  U0B4 


SAVE  U DBS  FOR  LATER  STORING 


REF  3 LAST  1494  20,3610  52  15C  I 
REF  1 20,3611  52  142  1 


OXCH  AXDSTEH 
DXCH  UAXOIST 


REF  180  LAST  149C 
REF  6 LAST  1494 
REF  313  LAST  1490 
REF  1 


20.3612 

20.3613 

20.3614 

20.3615 


3 4753  1 
54  154  C 
3 4755  1 
1 3324  0 


CA  ONE  NOW  DO  V AX  IS 

TS  UV 

CA  ZERO 

TCF  BOTHAXES  ANC  00  IT  AGAIN 


KEF  2 LAST 

REF  1 

REF  2 LAST 

REF  4 LAST 

REF  6 LAST 


1494  20,5616 

20,3617 
1494  20,3620 

1494  20,3621 

1494  20,3622 


3 0122  0 
55*547  1 
3 4320  1 
0 5545  0 
00123  1 


STORV 


CA  ACCSW 

TS  ACCSWV 

CA  NINE 

TC  GENTRAN  +1 

ACRES  J/ATEMl 


STORE  V AXI S VALUES 


TEMPORARY  BUFFER 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PFCGRAM  LUMINARY  RY  NASA  2021112-091 


17:5?  DECc  19»1969  LMDAP 


025  PAGE  1A95 


L ACSTASK  ANC  AOSJOB 


USER'S  PAGF  NCo  19  F6  S4 


0749  REF  13  LAST  1494  20|3623  01606  0 


ACRES  1/ANETl  *160  THE  REAL  PLACE 


A0750 

0751  REF 

0752  REF 


6 LAST  1494  20,3624  52  152  0 
3 LAST  1458  20,3625  53*555  1 


NOW  STORE  DEADBANDS  FOR  ALL  AXES 
OXCH  FLATEMP  FLAT  AND  ZDNE3LIM 

DXCH  FLAT 


0753  REF  5 

C754  REF  1 

0755  REF  1 

0756  REF  4 

C757  REF  I 

0758  PEF  1 

0759  REF  314 

0760  REF  1 

0761  PEF  2 


LAST  1492 

LAST  1495 

LAST  1494 
LAST  1495 


20.3626 

20.3627 

20.3630 

20.3631 

20.3632 

20. 3633 

20.3634 

20.3635 

20. 3636 


3 1343  1 
55*560  1 
55*561  C 
6 1554  1 
55*  563  1 
55»562  C 
3 4755  1 
55*564  0 
55*565  1 


CA  DBVALl 

TS  PDBl 

TS  PDe2 

AD  FLAT 

TS  PDB3 

TS  P0B4 

CA  ZERO 

TS  PAXOIST 

TS  PAXDIST  +1 


COMPUTE  P AXIS  DEACBANCS 


0762  REF 

0763  PEF 


5 LAST  1495  20,3637  11*554  0 

1 20,3640  1 3656  0 


CCS  FLAT 

TCF  DRFDB  DRIFT  OR  GTS  - COMPUTE  OBS 


0764  REF  2 

0765  REF  5 

0766  REF  2 

0767  PEF  2 

0768  REF  2 

0769  PEF  3 

0770  REF  5 

0771  REF  6 

0772  REF  6 

0773  REF  3 

0774  PEF  4 

0775  PEF  4 


LAST  1494  20 
LAST  1461  20 
LAST  1494  20 
LAST  1455  20 
LAST  1494  20 
LAST  1458  20 
LAST  1494  20 
LAST  1495  20 
LAST  1494  20 
LAST  1495  20 
LAST  1494  20 
LAST  1495  20 


,3641  52  136  1 
,3642  53*601  0 
, 3643  52  140  0 
,3644  53*603  I 
,3645  52  142  1 
,3646  52*605  1 
,3647  52  144  1 
,3650  53*621  I 
,3651  52  146  0 
,3652  53*623  0 
,3653  52  15C  1 
,3654  53*625  0 


DXCH  UDBl 
DXCH  FIREDB 
OXCH  U0B4 
DXCH  COASTDB 
DXCH  UAXCIST 
DXCH  AXISDIST 
DXCH  0B61 
OXCH  FIREDB  +16C 
DXCH  OBB^ 

DXCH  COASTDB  +16P 
DXCH  AXOSTFM 
DXCH  AXISDIST  +16D 


STCR6  U DEADBANDS 

CANNOT  USE  GENTRAN  BECAUSE  OF  RELINT 


STORE  V AXIS  DEADBANDS 
COULD  USE  GENTRAN  IF  DESIRED 


0776 

0777 
C778 

0779 

0780 

0781 

0782 

0783 

0784 

0785 

0786 

0787 

0788 

0789 

0790 

0791 


REF  2 
REF  6 
REF  7 
REF  8 
REF  9 
REF  10 
REF  6 
REF  4 
REF  5 
PEF  6 
PEF  7 
REF  315 
REF  5 
KFF  6 
REF  7 
PEF  8 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


1403 
1495 
149  5 
1495 
1495 
1495 
1495 
149  5 


1495 
1495 
1495 
1A95 
1495 
1495 
1.405 
149  5 


20,3656 
20  ,3657 

20.3660 

20.3661 

20.3662 

20.3663 

20.3664 

20.3665 

20. 3666 

20.3667 
20,3670 
20 ,367  1 

20.3672 

20. 3673 

20.3674 


1 3676 

2 1343 
55*600 
55'6C1 
55*620 


55*  621 
6 1554 
55*602 
55*  603 
55*622 
55*623 
3 4755 
55*604 
55*  605 
55*624 
55*625 


1 

I 0RF06 
1 
C 
0 
1 
1 
0 
1 
1 
0 
1 
0 
1 

0 


F IREDB 
FIREDB  +1 
FIPEDB  +160 
FIREDB  *170 
FLAT 
COASTDB 
COASTDB  ♦! 
CDASTOB  +160 
COASTDB  +17D 
ZERC 

AXISDIST 
AXISDIST  +1 
AXISDIST  +16D 
AXISDIST  +17D 


ALL  DONE 
DRIFT  DEADBANDS 


0792 


20,3675  C 0004  0 1/ACCRET  INHINT 


GAP  : 

L 

0793 

0794 

0795 

0796 

0797 

0798 

0799 

0600 

0801 

0802 

0803 

0804 

0805 

0806 

0807 

0808 

0809 

0810 

0811 

0812 

0813 

0814 

0815 

0616 

0817 

0818 

A0819 

A0820 

0821 

0822 

0823 

0824 

0825 

0826 

0827 

0828 

0829 

0830 

0831 

0832 

0833 

0834 

0835 
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AOSTASK  AND  AOSJOR 


USER'S  PAGF  NOc  20  E6  S4 


REF  62 
RFF  3 
REF  63 

REF  2 
REF  21 


LAST  1489 
LAST  1403 
LAST  1^96 

LAST  1A78 
LAST  1362 


20.3676 

20.3677 

20.3700 

20.3701 

20.3702 

20.3703 


4 0111  1 
7 4751  1 
26  111  1 
0 0003  1 
3 0117  0 
0 6660  1 


CS  OAPBOOLS 
MASK  ACCSGKAY 
ADS  DAPBOOLS 
REL  INT 

CA  ACCRETRN 
TC  BANKJUMP 


SET  BIT  TO  INDICATE  DATA  GCCOo 


RETURN  TC  CALLER 


REF  1 

REF  61  LAST  1692 

PEF  2 LAST  1696 
REF  633  LAST  1685 


20,3  706 

20.3705 

20.3706 

20.3707 
20,3710 
20  ,3711 


56  165 
2 6763 
22  007 
C 0006 
1C  165 
0 0002 


1 

0 

0 

1 

1 

0 


INVERT 


HOLD 

I 


HOLD 

0 


ROUTINE  TO  INVERT  -INPUT  AT  PI/2 
1 AT  2(61 

ZERO  L FOR  ACCURACY  AND  TO  PREVENT  OVFLO 


RESULT  AT  2(7) /PI 


REF  316  LAST  1695 
REF  7 LAST  1689 
REF  8 LAST  1689 
REF  2 LAST  1683 


20.3712 

20.3713 
20,3716 
20, 3715 


3 6755  X 
55'502  0 
55'632  0 
1 2777  0 


CCV>N6TS 


CAF  ZERO 

TS  ALLOV.GTS 

TS  INGTS 

TCF  ODCKTEST 


ZERO  SWITCHES  WHEN  USEQRJTS  BIT  IS  UP 
OP  DAP  IS  OFF, 


REF  3 LAST  1696 

REF  6 LAST  1493 

REF  4 LAST  1493 

REF  1 

REF  7 LAST  1696 

REF  10  LAST  1693 

PEF  5 LAST  1692 


20,3717  22  122 

20,3720  56  157 

20  ,3721  6 3770 

20.3722  C «'C06 

20.3723  6 3766 

20,3726  3 0157 

20.3725  C C0C6 

20.3726  5 0164 

20.3727  7 0130 


0 

0 

C 

1 

1 

0 

1 

1 

1 

1 


1/ANET- 


1/NETMIN 


ZL 

LXCH  ACCSW 

TS  ANFT 

AD  -•03R/S2 

EXTEND 

BZMF  NETNEG 

CA  ANET 

EXTEND 

INDEX  -SIGNACS 

MP  1/ACOSTT 


ZERO  ACCSW 
SAVE  ANET 

TEST  FOR  MIN  VALUE 

ANET  LESS  THAN  AMN,  SC  FAKE  IT 


ANETNEG(PnS)/ACOASTPOS(NEG)  AT  2(61 


THE  FCLLCWING  CODING  IS  VALIC  FOR  BOTH  POS  OR  NEG 
VALUES  OF  AOS 


REF  42 
REF  8 

REF  2 
REF  4 
REF  6 
PEF  43 

REF  7 

REF  9 
REF  3 


LAST  1496 
LAST  1496 

LAST  14Q2 
LAST  1491 
LAST  1493 
LAST  1496 

LAST  1496 

LAST  1696 
LAST  1696 


20.3730 

20.3731 

20.3732 

20.3733 

20.3734 

20.3735 

20.3736 

20.3737 

20.3760 

20.3761 

20.3762 

20.3763 


6 6763  0 
56  157  1 
C 0006  1 
22  161  1 
0 3704  1 
56  160  1 

6 6763  1 
0 0006  1 

7 0160  I 
0 0006  1 
10  157  0 
0 0161  1 


DC1/NET+ 


COACCFUN 


AC  RITQ 

XCF  ANET 

EXTEND 
QXCH  ARET 

TC  INVERT 

TS  1/ANET 

CS  BIT9 

EXTEND 

MP  I /ANET 

EXTEND 
OV  ANET 

TC  ARET 


I + ANET/ACOAST  AT  2(6) 
SAVE  AND  PICK  UP  ANET 

SAVE  RETURN 

l/ANET  AT  2(7)/PI 
-1  AT  2(6) 

-l/ANET  AT  2(13)/PI 

ACCFUN  AT  2(7) /PI 
RETURN 


REF  5 LAST  1496 
REF  10  LAST  16«6 
REF  2 LAST  1693 


20.3764  4 3770  0 NFTNEG 

20.3765  56  157  0 

20.3766  1 3725  0 


CS 
TS 
TC  F 


-,C3R/S? 

ANET 

1/NETMIN 


ANET  LESS  THAN  AMIN  - SET  ECUAL  TC  AMIN 
CONTINUE  AS  IF  NOTHING  HAPPENED 
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L AOSTASK  AND  AOSJOB  USER’S  PAGE  NO®  21  £6  SA- 


0836 

0837 
0830 

0039 

0040 

0841 

0842 

0843 
08^4 

0845 

0846 

0847 

0848 

0849 

0850 


REF  12 
REF  109 
REF  15 
REF  4 
REF  7 
REF  538 
REF  2 
REF  11 


REF  6 
REF  11 
PFF  1 
REF  314 
FEF  2 


LAST  1493 
LAST  1481 
LAST  1464 
LAST  1496 
LAST  1494 
LAST  1493 
LAST  1493 
LAST  1494 


LAST  1496 
LAST  1496 

LAST  1493 
LAST  1497 


20,3747 
20,3  750 

20.3751 

20. 3752 

20.3753 

20.3754 

20.3755 

20.3756 

20. 3757 
20,3760 
20,3763 

20.3762 

20.3763 

20.3764 

20.3765 


1C  163  1 
3 4752  0 
6 7752  0 
54  122  1 

6 0154  1 
50  000  I 

3 3774  0 

7 1257  1 
C 0006  1 
1 3764  0 

4 3770  0 
54  157  0 
1 3532  1 
3 0001  0 
1 3533  0 


FI XVIN 


CCS  SIGNACS 

CA  TWO 

AO  NEGONE 

TS  ACCSW 

AO  UV 

INDEX  A 

CA  -UMASK  +1 

MASK  CH5MASK 

EXTEND 

BZF  +4 

CS  -a03R/S2 

TS  ANET 

TCF  STMIN-  -1 

CA  L 

TCF  STMIN- 


IF  AOS  NFG,  ACCSW  = +1 
IF  AOS  POS,  ACCSW  = -1 


IF  ACCSW  = +1, 
IF  ACCSW  = -1, 


TEST  FCR  +U 
TEST  FOR  -U 


(+VI  JET  FAIL 
(-V)  JET  FAIL 


JET  FAILURE  - CANNOT  USE  ?-JeT  VALUES 
ANET  = AMIN 

CALCULATE  FUNCTIONS  USING  AMIN 
L HAS  ACCFUN 

STORE  MAX  VALUES  FCR  MIN  JETS 


A0851 


ERASABLE  ASSIGNMENTS  FCR  1/ACCONT 


0852 

0853 

0854 

0855 

0856 

0857 

0858 

0859 


REF  5 LAST 
REF  6 LAST 
REF  7 LAST 
PEF  6 LAST 
REF  9 LAST 
REF  10  LAST 
REF  11  LAST 
REF  12  LAST 


135  £6,1550 
1497  E6,1552 
1497  E6,1556 
1407  E6, 1 560 
1497  £6,1561 
1497  E6,1562 
1497  E6,1563 
1497  £6,1564 


1/ANETP  EQUALS 
1/ACQSTP  EQUALS 
PACCFUN  EQUALS 
PDBl  EQUALS 
PCea  EQUALS 
PCe4  EQUALS 
PCB3  EQUALS 
PAXCIST  EQUALS 


6LCCKTCF  +2 
BLOCKTOP  +4 
BLOCKTCP  +80 
BLOCKTOP  +100 
BLOCKTOP  +110 
BLCCKTCP  +120 
BLOCKTOP  +130 
BLCCKTOP  +14C 


0860  REF 
A0861 

0862  REF 

0863  REF 

0864  REF 

0865  REF 
0066  REF 


71  LAST  1256 

5 LAST  1497 

7 LAST  1494 

8 LAST  1497 

9 LAST  1497 
10  LAST  1497 


0122 

0123 

0124 
0127 

0131 

0132 


ACCSW  EQUALS  VBUF 


l/ATEMl  EQUALS 
1/ATEM2  EQUALS 
1/ACOSTT  EQUALS 
ZITEM  EQUALS 
Z5TEM  EQUALS 


ACCSW  +3 
1/ATEMl  +1 
1/ AT  EMI  +4 
1/ATEM3  +6 
3/ATeMl  +7 


EXECUTIVE  TEMPORARIES 

CANNOT  DO  CCS  NEWJOB  DURING  1/ACCS 
TEMP  BUFFER  FOR  U AND  V AXES 


0867  REF 

0868  REF 

0869  REF 

0870  REF 

0871  REF 


11  LAST  1497 

12  LAST  1497 

13  LAST  1497 

14  LAST  1497 

15  LAST  1497 


0135 

0136 

0137 

0140 

0141 


ucei 

UDB2 

uce4 

LDB3 

UAXCIST 


EQUALS  1/ATEMl 
EQUALS  1/ATEMl 
EQUALS  1/ATEMl 
EQUALS  3 /ATEMJ 
EQUALS  1/ATFMl 


+ 100 
+ 110 
+ 12D 
+ 130 
+ 14D 


U 


AXIS 


DEADBAND  BUFFER 


0872  REF  16  LAST  1497 

0873  REF  17  LAST  1497 

0874  REF  18  LAST  1497 

0875  REF  19  LAST  1497 

0876  REF  20  LAST  1497 


0143 

0144 

0145 

0146 

0147 


ceei 

0BB2 

ce64 

0683 


EQUALS  1/ATEMl  +16D 
EQUALS  1/ATEMl  +170 
EQUALS  1/ATEMl  +180 
EQUALS  1 /ATEMl  +190 


AXDST6M  EQUALS  1/ATEMl  +200 


TEMP  DEADBAND  BUFFER,  ALSO  V AXIS 


0877  RFF  21  LAST  1497  0151 

0878  REF  22  LAST  1497  0152 


FLATEMP  EQUALS  1/ATEMl  +220 
ZBTEM  EQUALS  3 /ATEMJ.  +?3D 


MUST  FOLLOW  FLATEMP 


gap: 

L 

0879 

0660 

0881 

0682 

0883 

086A 

0885 

0666 

0887 

0868 

0889 

0890 

0891 

0892 

0803 

0894 

0895 

0896 

0897 

0898 

A0899 

A0900 

0901 

0902 

0903 

0904 
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f'  LUMINARV  BY  NASA  2021112-091 


ACSTASK  ANC  AOSJOB 


USER*  S PAGE  NCo  22  E6  S4 


REF 

REF 

REF 


LAST  1498 


1343 

0114 

0115 


CeVALl 

D8VAL2 

CeVAL3 


EQUALS 

EQUALS 

EQUALS 


OB 

I NT  615  + 
1NTB15+  +1 


REF  7 LAST  1498 


0116 


DRIFTER  EQUALS  INTEIS*  *2 


REF  920  LAST 
REF  921  LAST 
REF  922  LAST 
REF  923  LAST 
REF  924  LAST 
REF  925  LAST 
REF  926  LAST 
REF  927  LAST 
REF  928  LAST 
KEF  63  LAST 


1488  0154 
1498  0157 
1498  0157 
1498  0160 
1498  0161 
1498  0162 
1498  0163 
1498  0164 
1498  0165 
1393  0117 


UV 

ANET 

FLMEM 

1/ANET 

AR6T 

ABSAOS 

SIGNAOS 

-SIGNAGS 

HOLD 

ACCRETRN 


EQUALS  MPAC 
EQUALS  MPAC  +3 
EQUALS  MPAC  +3 
EQUALS  MPAC  +4 
EQUALS  MPAC  +5 
EQUALS  MPAC  +6 
EQUALS  MPAC  +7 
EQUALS  MPAC  +80 
EQUALS  MPAC  +90 
EQUALS  FIXLOC  -i 


20.3766  OCllO 

20.3767  00443 

20,3770  77377 


1 Z0N63MAX  DEC 
1 FLATVAL  DEC 
I -<,03R/S2  CCT 


*004375 

*01778 

77377 


17o5  MS  (35  MS  FOR  I JFTI  AT  4 SECONDS 
,8  AT  PI/4  RAO 
-PI/217  ) AT  PI/2 


REF  46  LAST  1493 


20,3771  00356 

4733 


*0238/52  OCT  00356 
)/,03  EQUALS  POSMAX 


0228  RAD/SEC(2)  AT  PI/2 
2( 71/PI  AT  2(7) /PI 


REF 


LAST  1405  20,3772 


C2213  0 PAXISAOR  GENADR  PAXlS 


20.3773 

20.3774 

20.3775 

20.3776 


COHO 

00022 

CC2C4 

00041 


-UMASK 

+LMASK 


OCT  00110 
OCT  00022 
CCT  00204 
OCT  00041 


THE  FOLLOWING  4 CONSTANTS  ARE  JET 

FAILURE  MASKS  AND  ARE  INDEXED 

-U 

-V 

+U 

+ V 
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L 

SPS  BACK-UP  RCS  CONTRCL  USER'S  PAGE  NOo  3 EO  S4 

POOOl 

PROGRAM  NAME:  SPSRCS 

R0002 

AUTHOR:  EDGAR  Me  CSFIKA  (AC  ELECTRCNICS) 

R00021 

MODIFIED;  TO  RETURN  TO  ALL  AXES  VIA  C BY  P*  So  WE  I SS^AN , OCT  7,  1968 

R0002  2 
R0003 

MCCIFIEC  TC  IMPROVE  BENCINC-  STABILITY  BY  GoK  AL  AN  , FEBo  1 A , 1 9 69 

FUNCTIONAL  DESCRI  PTICN  : 

R0004 

R0006 

THIS  PROGRAM  CONTROLS  THE  FIRING  OF  ALL  RCS  JETS  IN  THE  DOCKED  CONFIGURATION  ACCORDING  TO  TFE  FOLLOWING  PHASE 
PLANE  LCGICo 

R0007 

le  JET  SENSE  TEST  (SPSRCS) 

R0008 

R0009 

ROOlO 

IF  JETS  ARE  FIRING  NEGAT  I VEL  Y , S ET  OLDSENSE  NEGATIVE  AND  CONTINUE 

IF  JETS  ARE  FIRING  PCS  IT  I VE L Y , S ET  OLDSENSE  POSITIVE  AND  CONTINUE 

IF  JETS  ARE  NOT  FIRINGjSET  OLDSENSE  TC  ZERC  AND  GO  TO  OUTER  RATE  LIMIT  TEST 

R0012 

2o  RATE  DEAD  BAND  TEST 

R0013 

R0014 

R0015 

R0016 

IF  JETS  ARE  FIRING  NEGATIVELY  ANC  RATE  IS  GREATER  THAN  TARGET  RATE, LEAVE 

JETS  ON  ANC  GO  TO  INHIBITION  LOGICo  OTHERWI SE , CONTI NUEo 

IF  JETS  ARE  FIRING  PCSITIVELY  ANC  RATE  IS  LESS  THAN  TARGET  RATE, LEAVE 

JETS  ON  AND  GO  TO  'INHIBITICN  LCGICe  CTHE  PW  I S E , CON  T I NUE  o 

R0017 

3e  OUTER  RATE  LIMIT  TEST  (SPSSTART) 

R0018 

R0019 

IF  MAGNITUDE  OF  EDCT  IS  GREATER  THAN  1*73  CEG/SEC  SET  JET  FIRING  TIME 

TO  REDUCE  RATE  ANC  GO  Ttl  INHIBITION  LOGIC*  OTHERW I SE , CGNT I NUE* 

R0020 

4*  CCAST  ZCNE  TEST 

R0023 

R0023 

R0024 

R0026 

IH  STATE  (E,EDOT>  IS  BELOW  LINE  E + 4 X BOOT  > -1*4  DEG  ANC  SCOT  IS  LESS  THAN  1*30  DEG/SEC  SET  JET  TIME  POSI- 
TIVE ANC  CONTINUE*  OTHERW ISE  , SET  JET  FIRING  TIME  TO  ZERO  AND  CONTINUE* 

IF  STATE  IS  ABOVE  LINE  E + 4X  EDCT  > +1*4  CEG  AND  EDOT  IS  GREATER  THAN  -1*30  DEG/SEC,  SET  JFT  TIME  NEGATIVE 

AND  CONTINUE*  OTHERWl SE , SET  JET  FIRING  TIME  TO  ZERO  AND  CONTINUE* 

R0027 

5*  INHIBITION  LOGIC 

ROO20 

R0029 

R0030 

R0031 

R0032 

IF  OLDSENSE  IS  NON-ZERO: 

A)  RETURN  IF  JET  TIME  HAS  SAME  SIGN  AS  OLDSENSE 

B)  SET  INHIBITICN  CCUNTER=>ANC  RETURN  IF  JET  TIME  IS  ZERO 

Cl  SET  INHIBITICN  COUNTER, *S£T  JET  TIME  TC  ZERO  AND  RETURN  IF  SIGN 

CF  JET  TIME  IS  OPPCSITE  TO  THAT  OF  OLDSENSE 

R0033 
R00  34 
R0035 
R0037 
R0038 

IF  OLDSENSE  I S ZERC  : 

A)  RETURN  IF  INHIBITION  COUNTER  IS  NOT  POSITIVE 

B)  SET  JET  TIME  TC  ZERC  AND  RETURN  IF  INHIBITION  COUNTER  IS  POSITIVE 
*NOTE:  INHIBITION  COUNTERS  CAN  BE  SET  TC  4 CR  10  FOR  THE  P,AND  UV  AXFS, 

RESPECTIVELY, IN  SPSRCS*  THEY  ARE  DECREMENTED  BY  ONE  AT  THE  BEGINNING  CF 

GAP; 
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025  PAGE  1500 


L SPS  BACK-UP  RCS  CCMRCL 


USER'S  PAGE  NCe  2 EO  S4 


R0039  EACH  CAP  PASSo 

R0040  Tt-E  MINIMUM  PULSE  WIDTH  OF  TUS  CONTROLLER  IS  DETERMINED  BY  THE  REPETITICN  RATE  AT  WHICH  THIS  ROUTINE  IS  CALLED 

R0042  AND  IS  NOMINALLY  100  MS  FOR  ALL  AXES  IN  DRIFTING  FLIGHT.  DURING  POWERED  FLIGHT  THE  MINIMUM  IS  100  MS  FOR  THE 

R0044  P AXIS  ANC  200  MS  FOR  THE  CONTROL  OF  THE  L AND  V AXES. 


R0045  CALLING  SECUENCE: 


R0046 

R0047 

R0048 


INHINT 


TC  lENKCALL 

CACR  SPSRCS 


R0049  EXIT: 

R0050  TC  0 

R0051  ALARM/ABORT  MODE:  NCNE 

R0052  SUBROUTINES  CALLED:  NONE 


R0053  INPUT: 
R0054 


E.EOOT 

TJP,  TJV,  TJU 


TJ  MUST  NOT  BE  NEGATIVE  ZERO 


R0055  OUTPUT:  TJP,  TJV,  TJU 

R0056 


0057 

0058  REF 

0059 


4 


LAST 


1478 


21 ,3655 
21,2000 
21,3655 


BANK  21 
SETLOC  DAPS4 
BANK 


0060  REF 


COUNT*  $S/OAPeu 


0061  REF  14  LAST  1450 

0062 

0063  REF  30  LAST  1389 


E6,1525 

21.3655 

21. 3656 


CG632  0 
2 6736  1 


E6ANK=  TJU 

RATEL1M2  OCT  00632 

PCSTHRST  CA  HALF 


loJ25  OEG/SEC 


0064  REF  33 

0065  REF  15 

0066  REF  1 

0067  REF  1 

0068  REF  1 

0069  REF  34 

0070  REF  16 

0071  REF  539 

0072  REF  434 

0073 

0074 

0075  REF  35 

0076  REF  1 


LAST  1456 
LAST  1500 


LAST  1500 
LAST  1500 
LAST  1497 
LAST  1496 


LAST  1500 


21  ,3657 

21.3660 

21.3661 
21  ,3662 

21.3663 

21.3664 

21.3665 

21.3666 
21  ,3667 

21 .3670 

21.3671 

21.3672 

21. 3673 


51'505  0 
55*525  C 
ll'7AA  0 
1 3702  0 
1 3705  1 
51*505  0 
A 1525  0 
10  000  0 
0 0002  0 
I 3672  0 
1 3672  0 
51*  505  0 
3 3714  0 


NOX 

TS 

CCS 

TCF 

TCF 

NEGCHECK  INDEX 
CS 
CCS 
TC 
TCF 
TCF 

SETCTR  INDEX 
CA 


AXISCTR 

TJU 

OLOSENSE 

POSCHECK 

CTRCHECK 

AXISCTR 

TJU 

A 

0 

+2 

4l 

AX ISCTR 
UTI  ME 


JETS  FIRING  POSITIVELY 

JETS  OFF.  CHECK  INHIBITION  CTR 

JETS  FIRING  NEGATIVELY 


RETURN 

JETS  COMMANDED  CFF.SET  CTP  ANC  RETURN 
JET  FIRING  REVERSAL  COMMANDED.  SET  CTR, 
SET  jet  TIME  TC  ZERO, AND  RETURN 
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SPS  BACK-UP  RCS  CCNTRCL 


USER*  S PAGE  NCe 


0079 

0080- 

0081 

0082 

0083 

008A 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 
01C9 
0110 
0111 


REF  317 
RbF  37 
REF  17 
PEF  435 
REF  38 
REF  18 
REF  1 
REF  39 
REF  4 


PEF  3 
REF  181 
REF  2 
REF  18 

REF  192 
REF  3 
REF  19 
REF  540 
REF  64 
REF  7 
REF  541 


LAST  1496 
LAST  1501 
LAST  1500 
LAST  1500 
LAST  1501 
LAST  1501 

LAST  1501 
LAST  1501 

LAST  1501 

LAST  1501 


LAST  134 
LAST  1494 
LAST  1500 
LAST  1461 

LAST  150  1 • 
LAST  1501 
LAST  1501 
LAST  1500 
LAST  1406 
LAST  1489 
LAST  1501 


REF  315  LAST  1497 


REF 

REF 


21  ,3674 

21.3675 

21.3676 

21.3677 
21,3700 
21  ,3701 

21.3702 

21.3703 

21.3704 

21.3705 

21.3706 

21.3707 
21, 3710 
21  ,3711 

21.3712 

21.3713 
21  ,3714 

21. 3715 
E6,l  744 

21.3716 

21. 3717 
21  ,3720 

21.3721 

21.3722 
21  ,3723 

21. 3724 

21.3725 

21.3726 

21.3727 
21  ,3730 
21  ,3731 
21,3732 
21  ,3733 

21.3734 

21.3735 


51*  505  0 
55*767  1 
3 4755  1 
51*  505  0 
55'525  C 
0 0002  0 
51*505  0 

3 1525  1 
I 3666  0 
61*505  0 
11*767  1 
1 3711  1 
0 0002  0 
1 3676  1 
C CC02  0 

00C04  0 
00012  1 
CCC12  1 

4 4753  0 
55*744  0 
? 1427  1 
1 3725  C 

3 4753  1 
55*744  0 

4 1427  0 
22  000  1 
4 Clll  1 
7 4744  0 
10  000  0 
3 4767  0 
6 0001  0 
0 0006  1 
6 3744  0 
1 3661  1 


POSCHECK  INDEX 
CA 
TCF 

CTRCHECK  INDEX 
CCS 


AX  ISCTR 
UJETCTR 
ZERO 
AX  ISCTR 
TJU 
0 

AXISfTR 

TJU 

NEGChECK 

AXISCTR 

UJETCTR 


TCF 

TC 

OCT 

UTIME  OCT 

ncT 

OLDSENSE  EQUALS 
NEGFIRE  CS 
TS 
CA 
TCF 

PLUSF  IRE  CA 
TS 


MA  SK 
CCS 


0 

ZAPTJ 

0 

00004 

000J2 

00012 

DAPTPEGl 

ONE 

OLDSENSE 

FOOT 

+4 

ONE 

OLDSENSE 

EOCT 


CHECK  JET  INHieiTICN  COUNTER 


CTR  IS  NCT  POSITIVEo  RETURN 
CTP  IS  POSITIVEo  INHIBI  T FIRINGS 
CTR  IS  NOT  PPS  IT  IVEoRETURN 


JETS  FIR ING  NEGATIVELY 


RATE  DEAD  BAND  TEST 


USE  ZERO  TARGET  RATE 
USE  OolO  RATE  TARGET 


EXTEND 

6ZMF 

TCF 


SPSSTART 
POSTHPST  +3 


0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 


PEF  1 
REF  4 
REF  20 


REF  1 
REF  542 
PEF  1 


REF  2 
REF  21 


1501 

1501 


LAST  1501 
LAST  1501 


LAST  1501 


LAST  1501 
LAST  1501 


21.3736  51*  505  0 

21.3737  11*525  C 

21  ,3740  1 3722  1 

2], 3741  1 3743  C 

21.3742  1 3716  0 

21.3743  55*744  0 

21.3744  3 1427  I 

21.3745  0 0006  1 

21  ,3746  7 4766  0 

21,3747  10  000  0 

21  ,3750  1 3767  0 

21.3751  ] 3753  1. 

21.3752  1 3656  0 

21.3753  3 1427  1 


SPSRCS  INDEX 
CCS 
TCF 
TCF 
TC  F 
TS 

SPSSTART  CA 

EXTEND 

MP 

CCS 

TC  F 

TCF 

TCF 

CA 


AX  ISCTR 
TJU 

PLUSFIRE 

+2 

NEGFIRE 

OLOSENSF 

EDCT 

RATELIMl 

A 

NEGTHRST 

+2 

POSTHR  ST 
EDOT 


JET  SENSE  TEST 

JETS  FIRING  POSITIVELY 

JETS  FIRING  NEGATIVELY 
JETS  OFF 

OUTER  RATE  LIMIT  TEST 


OUTER  RATE  LIMIT  EXCEEDED 

CUTER  RATE  LIMIT  EXCEEDED 
COAST  ZONE  TEST 


0126 

0127 

0128 
0129 


ASSEMBLE  REVISION  131  CF  AGC  PFCCRAr'  LUMINARY  BY  NASA  2021112-091 
SPS  BACK-UP  RCS  CONTROL 
LAST  1461 


REF 

REF 


LAST  215 


2lt3754 
21  ,3755 

21. 3756 

21 .3757 


1751  0 
0006  1 
1411  0 
0006  1 


21,3760  1 3775  0 


EXTEND 
MP 
EXTEND 


OKOB 


17:53  DEC,  19,1969  LNDAP  e025  PAGE  1502 
USER'S  PAGE  NOo  4 66  S4 


PAC  LOADED  CEACBANDc  FRESHSTART:  1«  4 DEG 


0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 
014T 

0142 

0143 

0144 


REF 

REF 


22  LAST  1501 


REF  2 
REF  31 
REF  3 
REF  2 
REF 


LAST  1502 
LAST  1500 
3 LAST  1501 
2 LAST  1502 
23  LAST  1502 


REF  4 
REF  318 


LAST  1502 
LAST  1501 
LAST  1502 


21,3761 
21  ,3762 

21.3763 

21.3764 
21  ,3765 

21.3766 

21.3767 

21.3770 

21.3771 

21.3772 

21.3773 

21.3774 
21  ,3775 
21  ,3776 


0 0006  1 
6 3771  C 

3 1427  I 
6 3655  1 
0 0006  1 
6 3775  1 

4 A736  0 
1 3657  1 
A 3655  0 
6 1427  1 
C 0006  1 
6 3656  1 
3 4755  1 
1 3657  1 


CA 

AD 

EXTEND 
BZMF 
ST  CS 
TCF 


CS 

AD 


TJZERC 

HALF 

PCSTHRST 

RATELIM? 

EDOT 

PCSTHRST 

ZERO 

POSTHRST 


LAST  1419 


ENC  CF  LMCAP 
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SYMBOL 

DEE 

H 

REFERENCES 

SYMBOL 

OEF 

H 

REFERENCES 

SYMBOL 

DEF 

F 

REFERENCES 

,00375Ae 

17,3771 

1461 

1 

1457 

-al875 

20,3233 

1488 

1 

1491 

-TJMIN 

17,3775 

1461 

1 

1459 

• 023P/S2 

20,3771 

1498 

1 

1492 

-o707l 

2C  ,3107 

1466 

2 

1481 

1487 

-TPER 

6^,1 542 

116 

6 

308 

723 

*0375ATA 

17,3764 

1461 

1 

1459 

-AYO 

E3,1713 

112 

1 

1141 

-UMASK 

20  ,3773 

1498 

2 

1493 

1497 

a IAT2 

17,3763 

1461 

1 

1459 

-AZ 

11  ,2357 

816 

-UP 

00,2620 

1057 

1 

1056 

• 1AT4 

17,3762 

1461 

1 

1457 

-AZBIT 

4746 

= 

816 

1 

815 

-XMIN 

16  ,3062 

1423 

1 

1423 

« 166e«o 

23,3537 

1249 

1 

1245 

-8IT10 

06,3004 

183 

1 

179 

-XTRANS 

17 ,2201 

1435 

1 

1435 

a 30 

12, 3761 

1239 

i 

1211 

-BIT12 

7744 

532 

1 

532 

-Oo3D/S 

01,2344 

298 

1 

296 

a5SEC 

4774 

1090 

3 

5 20 

1327 

-BIT14 

7741 

IC'92 

2 

141  5 

-O06O/S 

01 ,2343 

298 

1 

296 

a 5SEC617 

33,2176 

603 

1 

603 

-CCSPR 

01,3133 

1107 

1 

1109 

-1/12 

13,3734 

1240 

1 

1230 

• 7071 

20,3106 

1486 

2 

1480 

1467 

-CGMMAX 

07,3736 

1323 

2 

1305 

1306 

-1/2+2 

00,2444 

1053 

1 

1073 

1460 

i ^ L c 

(AT)A 

27,2016 

39 

1 

833 

-CCSB 

E5  ,1644 

124 

1 

124 

-ICHK 

43,3320 

1279 

5 

1280 

1285 

( T8UP 1 A 

27,2020 

39 

1 

833 

-DEC103 

31,3706 

821 

1 

820 

-moMs 

16  ,3621 

1433 

2 

1462 

32,3737 

830 

1 

831 

-CELGM8 

E6, 1674 

137 

19 

137 

913 

-100MST6 

16,3735 

1463 

3 

1462 

1 1/OV  lA 

27, 2012 

39 

1 

033 

-OTSCALR 

17 ,20  54 

566 

1 

566 

-136MST6 

16,3576 

1432 

2 

1.429 

1432 

-EL 

11, 2371 

816 

-15DEGS 

06  ,2513 

172 

1 

171 

♦ AZ 

11,2364 

616 

-ELBIT 

4753 

= 

616 

1 

P16 

-15CMS 

17,3137 

14iP 

1 

1445 

♦AZBIT 

4747 

= 816 

1 

816 

-ELR 

05,3372 

225 

1 

220 

-160MST6 

16,3533 

1431 

1 

1431 

+OECSGN 

40,2303 

403 

1 

40  2 

-ENOERAS 

7746 

1092 

1 

999 

-2JETLIM 

B6  ,1475 

131 

4 

131 

1479 

♦ UtL  V' 

31 , 3710 

822 

1 

820 

-ENCVAC 

6254 

1003 

2 

999 

1017 

-2SEC 

10,3571 

1374 

1 

1361 

♦ DOWN 

00,2610 

1057 

1 

1056 

-EPSILON 

0155 

= 

1488 

5 

1480 

1481 

-3CEG 

17,3760 

146  1 

1 

1454 

+ EL 

11,2376 

816 

-EPSMAX 

20,3110 

1486 

4 

148C 

1481 

-45DEGSR 

774  3 

= 

536 

1 

535 

+-ELBIT 

4752 

= 816' 

1 

816 

-FCURDEG 

16,3534 

1431 

1 

1431 

-50DEGSR 

25,2242 

536 

1 

536 

♦LIMIT 

42,3337 

425 

1 

425 

-FOUROT 

27,2534 

767 

1 

766 

-50SC 

04,3016 

1179 

1 

1168 

+ MGA 

E4,1652 

= 118 

5 

316 

6 94 

-GYROMIN 

07,3511 

1315 

2 

1315 

1310 

-70DEGS 

06,2512 

172 

1 

171 

+0N 

40, 2413 

404 

3 

404 

4 45 

-LQKONFG 

23  ,2040 

272 

-80CEGSR 

25,2243 

536 

1 

536 

+ OMIN 

17,2304 

1437 

1 

1436 

-MAXAORS 

4350 

= 

1278 

1 

1283 

+RMIN 

17,2314 

1437 

1 

1437 

-MUOT 

33,2031 

44 

1 

873 

/AF/CNST 

31,2356 

792 

1 

788 

+ TJMI  NT6 

17,3136 

1447 

4 

1438 

1446 

-MUOTMUN 

33,2035 

44 

1 

876 

/AFC/ 

E7  ,1463 

= 

142 

6 

142 

814 

+UMASK 

20 ,3775 

1498 

1 

1493 

-MUOTl 

33,2033 

44 

/BUF  + 

00,2721 

1061 

2 

1060 

+ XMIN 

16, 3064 

1423 

1 

1423 

-OCTIO 

6225 

1002 

1 

1002 

/euF- 

00,2715 

1060 

2 

1060 

+XOBULGE 

17,2200 

1435 

2 

1434 

1435 

-CCT630 

16, 2315 

1415 

1 

1414 

/LAND/ 

E4 ,1732 

= 

121 

11 

120 

876 

♦ 150MST4 

16,3616 

1433 

1 

1429 

-CN 

40,2433 

405 

2 

404 

445 

/MPAC  + 

00,2767 

1062 

2 

1062 

-PHASEl 

0751 

100 

6 

216 

1293 

/MPAC- 

00,2763 

1062 

2 

1062 

♦ENTER 

36  ,3050 

740 

1 

740 

-PhASE2 

0753 

100 

8 

215 

867 

/NORM 

00,2732 

1061 

1 

1061 

♦NBSM* 

23,3675 

1255 

6 

554 

962 

-PHASES 

0755 

101 

4 

216 

860 

/N0RM2 

0C,2725 

1061 

1 

1061 

♦PROCEED 

36,3045 

740 

1 

740 

-PHASE4 

0757 

101 

9 

216 

1375 

/R/MAG 

E4  ,1700 

120 

6 

120 

848 

♦SMNB^ 

23,3673 

1255 

7 

491 

961 

-PHASES 

0761 

101 

2 

216 

854 

-PHASE6 

0763 

101 

5 

216 

1307 

? 

6001 

743 

-aO112A0 

17,3761 

1461 

1 

1456 

-OMIN 

17,2310 

1437 

1 

1436 

7GUI0SUB 

31  ,241  5 

794 

1 

781 

-a025AT2 

17,3765 

1461 

1 

1459 

-PATEDB 

E6,1476 

= 

131 

7 

131 

1439 

-o025AT4 

17,3766 

1461 

1 

1457 

-RMl  N 

17,2316 

1437 

1, 

14  37 

A 

0000 

= 

92 

542 

160 

1501 

-a03R/S2 

20,3770 

1498 

6 

1490 

1497 

-RRLIMIT 

25,2326 

539 

2 

540 

A-PCHK 

13,3156 

1209 

4 

1206 

1218 

-a05AT2 

17,3767 

1 461 

1 

1456 

-SIGNACS 

0164 

= 

1498 

10 

1490 

1496 

AAPFG 

E5,1452 

122 

1 

122 

-el5AT2 

17,3770 

1461 

1 

1456 

-TJMAX 

17,3773 

1461 

2 

1457 

1458 

AAPFG^ 

E5 ,1462 

= 

122 

1 

122 
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SYMBOL 

ABCLOAC 

ABDEL  V 

ABCVCONV 

A6L0AD 

ABORT 

ABORTALM 

ABORTCN 

ABORTS 

ABORTSl 

ABORTYZ 

ABDRT2 

A0OUTONE 

A6RFG 

ABRFG* 

ABRTABLE 

A8RT I CN 

ABRTJACR 

ABRTJASK 

ABS 

ABSAOS 

ABSEOOTP 

ABSTJ 

ABTCOMC 

ABTFLGS 

ABTKLEAN 

ABTRDOT 

ABTTG8IT 

ABTTGFL6 

ABVAL 

ABVAL  ABS 

ABVEL 

ABV6L* 

ACADN83 

ACAON85 

ACCDOTO 

ACCDOTR 

ACCEPTUP 

ACCEPTWC 

ACCFC  TZl 

ACCFCTZ5 

ACCHERE 

ACCOKFLG 

ACCOMP 

ACCRE  TRN 

ACCSOKAY 


DEF 

41,2622 
1245 
E7, 1513 
41  ,2726 
5634 
21,2121 
21 ,3066 

32.2000 
C5  ,2000 
16,2771 

5644 
15  ,2046 
E5, 1416 
£5 , 1426 
36,2114 
26,2535 
05  ,3416 
05,3417 
00,3226 
0162 
E6, 1736 
E6  ,1736 
12,3752 

13.2000 
05  ,2653 
65,1566 

4745 
0217 
00,3201 
00,3176 
E7,1471 
0130 
36,3767 
36,2057 
£6,1507 
E6,1511 
04,3266 
41  ,2027 
E6,1574 
E6, 1575 
20,3435 
0317 
11,2524 
0117 
4751 


428 
105 
149 

429 
1376 

829 

900 

34 

29 
1422 
1375 

252 

122 

122 

727 

734 

824 

824 

1070 

1498 

132 

132 
1195 

30 
216 
123 

81 

81 

1C69 

1069 

149 

123 

758 

750 

133 
133 

1330 

408 

135 

135 

1492 

86 

1223 

1498 


REFERENCES 

1 411 

7 105  1487 

5 149  655 

1 411 


2 829 

1 900 

2 826 

1 824 

1 1432 

1 1375 

2 251 

2 122 
2 122 
I 830 
1 727 

1 824 

1 824 

4 818 

12  1490 

2 1427 
9 1428 

3 1180 
1 1376 

1 825 

2 123 


IC69 

1493 

1428 

1447 

1193 


231  827 


862 


I 100  7 
8 149 

3 861 

1 753 

1 749 

8 13?  J4E2 

4 1468  1468 

2 1331 

2 408 

1 1458 
I 1456 
1 149  2 

1 1231 

2 1478  1496 

3 221  1496 


SYMBOL 
ACCSW 

ACCSWU  E6 
ACCShV  E6 
ACCTHERE  20 
ACCWO  E5 
ACC4-2FL 
ACC4GR2X 
ACDT+C12  16 
ACENTRAL  E6 
ACM0D8IT 
ACMODFLG 
AC0S=0  00 
ACOSABRT  no 
ACOSOVF  00 
ACOSSHR  no 
ACCSST  00 
AC0SST2  00 
ACCSZERO  00 
AC0S3  00 
ACTC6NT  E3 
ACTIVE  23 
ADDGRAV  15 
ADCITIN  21 
AOOPOS  3C 
ADDRESS 
AODRWD 
AOG  E5 

ACG2TTF  E5 
ADIAX  E3 
ADIAY  E3 
ADIAZ  E3 
ADRPCHN2 
ACRRUPT  17 
ADRS+1  43 
ADRSCAN  27 
ACRSChK  43 
AORSOIFl  E6 
A0RS0IF2  E6 
ADRSl  43 
ADR404QO 
A0R77770 
ACSRAX  £3 
ADSRAY  £3 
ACSRAZ  E3 
ADSUM  43 


DEF 

0122 

6.1546 

6 .1547 
3467 
1512 
0307 
4741 
3742 
1 743 
4737 
0040 
3637 
3723 
3721 
3714 
3625 
3642 
3731 
3652 
1755 
2425 
2730 
3562 
2002 
6106 
0116 
1416 
1426 

1463 

1464 

1465 
5366 
3272 
3652 
2214 
3621 
1745 
1743 
3271 
5732 
5731 

1466 

1467 
1470 
3610 


1497 
135 
135 
1492 
129 
87 
87 
146  8 
133 


REFERENCES 

5 1494  1 
3 135  1 
I 1494 

1 1492 

2 388 
2 826 
2 296 
2 1420 
5 1465 


68 

68 

1078 

1080 

1080 

1080 

1078 

1078 
1080 

1079 
112 
699 
961 

1475 

615 

998 

96 

821 

821 

111 

111 

111 

1291 

1450 

1284 

746 

1283 

134 

134 

1278 

1376 

1376 

111 

111 

111 

1283 


3 500 

4 1078 

I 1078 
1 1C78 

1 1078 

2 1078 

1 1078 
1 1080 

2 316 

6 632 

1 961 

1 1474 
1 615 


I 804 

1 ec2 

3 331 

1 331 

1 332 

1 1291 
1 145C 


389 

831 

1435 

1472 

1467 

50  2 
108C 


1 746 

2 1283 
12  1453 
11  1453 

1 292 

1 1375 
1 1376 
I 331 
1 331 


1461 

1460 


SYMBOL 

ADTIMG 

AOUP0FM1 

ADUP8UFF 

AOUPTEMP 

ADVAN 

ADVANCE 

AFCCALCl 

AFCCALC2 

AFCCALC3 

AFCCLENO 

AFCSPOT 

AFDUMP 

AFTERTJ 

AFTRFLTR 

AFTRGUID 

AGAINMM 

AGS8UFF 

AGSBUFFE 

AGSCISPK 

A6SGND 

AGSINIT 

AGSK 

AGSLIST 

AGSRNOl 

AGSRND2 

AGSUPDAT 

AGSVCALC 

AGSk^ORD 

AHEAD5 

AIG 

AIGBANK 

AIMER 

AIN60TN 

AINLA 

AK 

AKl 

AK2 

ALARM 

ALARM/TB 

ALARMIT 

ALARMMGA 

ALARMl 

ALARM2 

ALC6KK 

ALDK 


OFF 

35,3146 
04,3640 
04,347? 
04  ,347? 
01,3215 
34,3016 
31,3151 
31,3161 
31,3175 

31.3203 
32,3514 
31  ,2151 
17,2756 

30.3204 

31  ,2376 
04,2073 
E4,1600 
E4,161 5 

32  ,2022 
32,2122 
32,2005 
£4,1420 
05,2407 
32,220? 
32  ,2211 

0003 
32,2036 
1321 
6436 
E7 ,1457 
26,3332 
30,2671 
37,2217 
E5,1434 
E6  ,1  760 
E6  ,1761 
E6,1762 
5567 
35,2430 
27,2526 
30,3747 
5722 
5571 
37,2627 
£5,1532 


672 

1386 

138? 

1363 

1110 

647 

804 
8C4 

805 
605 
814 
788 

1445 

907 

793 

23r 

lie 

UP 

209 

21C 

208 

114 

195 

211 

211 

237 

209 

107 

lOlP 

141 

591 

842 

378 

129 

138 

138 

138 

1373 

636 

766 

919 

1376 

1373 

387 

129 


REFERENCES 

1 672 

2 1382  1383 
1 1381 

1 1382 

2 1104  1279 

2 627  632 

1 eii 


I 


805 

805 

814 


3 1438  1444 
I 906 
1 605 

I 230 

14  118  276 


2 210 
1 276 

6 198  210 


I 209 
4 210  232 

1 ICIO 

9 201  886 

2 585  590 

1 842 

1 378 

3 129 

4 138  1411 

1 1410 

1 1410 
1 166  1450 

I 626 
I 766 


1 908 
1 1080 

2 1278  1375 


HEALTH  K£Y:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


J CEFINED  BY  JCKER  OR  ERASE  ANYWHERE 


r^ITH  CONFLICT 


XX  MISCELLANEOUS  TROUBLE 


MD  MULTIPLY  DEFINED 


17:53  CECa  19,1969 


PAGE  1505 


GAP:  ASSEf'BLE  REVISION  131  OF  AGC  PRCGRAP  LUMINARY  BY  NASA  2021112-091 

SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  OFF,  U OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REFo 


SYMBOL 

ALFDK 

ALFLT 

ALFLT3 

ALGCRTHM 

ALIGNCCA 

ALIGNOPT 

ALI  LP 

ALINE  X 

ALINE2 

ALlNTl  ME 

ALK 

ALKCG 

ALKCG2 

ALKLP 

ALLCPAST 

ALLDC  /DC 

ALLJETS 

ALLOOP 

ALLOWGTS 

ALLREAC 

ALLSET 

ALLIS 

ALL30EC 

ALLAB ITS 

ALM/END 

ALMCADR 

ALMCYCLE 

ALMNCACR 

ALMXI  T 

ALMX 1 TA 

ALOAO 

ALOAOED 

ALPHA 

ALPHAM 

ALPHAO 

ALPHAR 

ALPHASB 

ALPHATRY 

ALPHAV 

ALRM5('3 

ALRM51A 

ALRM525 

ALRM526 

ALRM527 

ALRM53C 


OEF 

EA, 1A22 
37  ,2577 
37,26AA 
21,31A2 
27,2311 
15,331A 
37,2667 
26,2067 
26,2113 
A3  ,2AA2 
E5, 1AA6 
27,2632 
37,2635 
27,2676 
20,2205 
A1,303A 
17,3257 
37,2536 
F6, 1502 
25,3103 
35,3A17 
26,3703 
A2  ,3573 
U,2A01 
A3, 2116 
1363 
A1A5 
572A 
35 ,2nA5 
35, 20A3 
A1  ,2755 
13,31A7 
0010 
EA  ,IA67 
E6, 1A2A 
E6,1A25 
EA,1600 
2 1,  33AA 
EA.1A31 
2A,3000 
2A,2307 
2A  ,266A 
2A, 2305 
2A,300l 
2A,3116 


387 

lAes 

300 

969 

368 

3^1 

3A2 

277 

129 
387 

387 

388 
lAOl 

A31 
1A50 
366 
135 
557 
679 
598 
A39 
816 
265  . 
loe 
A50 
1376 
626 
626 
A30 
1209 
1195 
115 

130 
130 
119 

1A71 

115 

51A 

503 

511 

5C3 

51A 

515 


REFERENCES 

1 387 

366 
387 


3 80 
969 
388 

3A] 

263 

129 

387 

388 
232 
A2  8 

1A50 

385 

lAOA 

558 

679 

597 

A38 

815 

263 

108 

A09 

6A6 

6A3 

All 

1208 

1168 

115 

197 

lAOl 

119 

115 

513 

501 

509 

500 


299 

1376 

A50 


12C9 

117C 

1220 

1A78 

1A78 

316 


SYMBOL 

AL  SIGNAG 

ALSK 

ALT 

ALTB  ITS 

ALTCALC 

ALTCONV 

ALTDSPLY 

ALTERY2 

ALTIM 

ALT  IMS 

ALTM 

ALTOUT 

ALTRATE 

ALTROUT 

ALTSAVE 

ALTSCALE 

ALTSCBIT 

ALTSYST 

ALXXXZ 

ALXIS 

AM 

AMEMCRY 

AMG 

AMOVED 

ANET 

ANGLT IME 

ANGTERM 

ANGX 

AN  GY 

ANGZ 

ANGICHEK 

ANTENBIT 

ANTENFLG 

ACG 

AORBSFLG 

AORBSYST 

ACR8TFLG 

ACRBTRAN 

AOSO 

AOSCTEPM 

AOSR 

AOSRTERM 

ACSU 

AOSV 

ACTAZ 


DEF 

75A7 
37,3103 
1123 
E7,17A1 
22,2131 
33,2025 
20,2227 
16,3002 
£5,1530 
E5, 1531 
0060 
21,2231 
E7, 1711 
21,2160 
E7, 1712 
0272 
47A3 
16,3^35 
37,3076 
E5,iA<iA 
E6, 173A 
EA  ,1AOO 
E7, 1A60 
11  ,3636 
0157 
22,3001 
EA  ,166A 
E5,1500 
E5, 1A76 
E5,1A72 
27, 3273 
A7A0 
0267 
E7, 1A61 
0125 
A7A7 
0310 
A7A2 
E6, 1536 
E6  ,15AA 
E6,15A0 
e6,15A5 
E6 ,15A2 
E6, 15A3 
E7, lAOA 


1037 

391 

lOA 

153 

355 

A2 

1A06 

1A22 

129 

129 


93 
892 
153 
891 
153 
86 
86 
1A29 
39) 
129 
136 
) lA 
lAl 
1236 
IA98 
366 
120 
129 


lAl 

7A 


13A 

13A 

134 

13A 

)3A 

13A 

lAC 


REFERENCES 

5 878  1 

1 388 

6 lOA 

5 153 

1 35A 

1 871 

1 1A05 

1 IA22 

2 386 

2 386 

1 892 

1 891 

5 153 


) 1 30 
892 


1 877 

2 1A29 

J 385 
4 385 

3 354 


2 576 
1 1235 

11  1491 

1 366 

3 120 

2 389 

1 390 

1 390 

1 843 

12  325 

7 201 

2 1428 

1 737 

2 1435 

29  134 

7 134 

II  734 
6 1^01 

3 1489 


585 

1497 


601 

eE6 

1429 

1437 

)4flS 

1419 

1489 
1419 

1490 


SYMBOL 

AOTCODE 

A0T6L 

AOTMARK 

ACTMARKl 

A0TMAPK2 

AOTSTALL 

APOPERI 

APSESBIT 

APS  ESW 

APSFLAG 

APSFLBIT 

APSIDES 

APSTGO 

APSVEX 

ARATE 

ARCCOS 

ARCOMP 

ARCONV 

ARCONVl 

ARCSIN 

ARC  TAN 

ARCTANXX 

ARCTRGSP 

ARCTR IG 

ARET 

ARG  + 

ARGHI 

ARGLO 

ARGZERO 

ARGZER02 

ARG90 

AROUTISF 

ARTHINSF 

ARTINISF 

ARTOA 

ARTCA2 

ARTOUTSF 

ARUPT 

ASCALE 

ASCENT 

ASCFILT 

A SC  SA  VE 

ASCSPOT 

ASCTERM 

ASCTERM1 


DEF 

073A 
E7  ,)  412 
07,20nn 
07  ,2000 

04.2000 
07,3703 

23.2000 
4747 
0202 
0230 
A737 

12  ,3704 
27,2671 

33.2000 
22,2771 
00,3612 
2)  ,2167 
21  ,2000 
33,2027 
00  ,3610 
13,2506 
13,2534 
30  ,3613 
23,3322 

0161 
7270 
00,3417 
OO  ,3470 
7310 
7305 
5067 

40.2740 
40  ,3132 
40,3145 
21,200) 
21  ,2002 
40,2733 

0010 

13  ,3730 
30,23) 5 

34.2000 
E5 ,1  574 
23,2505 
30  ,2730 

30.2740 


REFERENCES 


100 

140 

245 


1194 

770 

39 

366 

1078 

891 

42 

42 

1078 

1131 

1131 

917 

1243 

1498 

1030 

107A 

1075 

1030 

1030 

1096 

422 

436 

436 

42 

42 

422 


84  8 
862 


16 


2 198  956 

1 247 

3 937  955 

2 2A5  252 

2 250  977 

3 945  1322 

1 697 

2 1192  1193 

3 768  786 

215  1479 

1 697  • 

1 769 

3 753  855 

3 366 

1 1007 


13 


1 891 

1 672 

1 1007 

5 482  1128 

2 1131 

3 915 

9 302  1246 

3 1492  1496 

1 10  30 

2 1075 

1 1075 
1 1030 
1 1030 
1 1096 
I 419 
1 434 

1 434 

1 892 

1 892 

2 419  420 

155  1450 

1 1225 

3 833 

1 836 

2 8 48 

3 843 

1 844 


837 
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SYMBOL 

ASC  TERM2 

ASCTERM3 

ASCTERMA 

ASEGXT 

ASENT 

ASENTl 

ASENT2 

ASENT3 

ASENTL 

ASENT5 

ASENT6 

ASENT7 

ASENT8 

ASINEX 

ASK  1 FNRM 

ASTAR 

ASTNBIT 

ASTNCLOK 

ASTNOE  X 

ASTNFLAG 

ASTNRET 

ASTNRETN 

ASTOK 

ASTREND 

ASTROMSK 

AT 

AT/RCS 

ATAN=90 

ATCECAY 

ATIGI NC 

ATMAG 

ATMAGAD 

ATMAGAOR 

ATOPCSM 

ATOPLEM 

ATOPOTH 

ATOPTHIS 

ATP 

ATR 

ATTACHED 

ATTACHIT 

ATTCAOR 

ATTCHK 

ATTCK2 

ATTFLAG 


DEF 

30,275A 
30  ,2755 
30  ,2756 
G5, 1573 

30.2000 

27.2000 

07.2000 
C5  ,2000 
1A,2000 

30.2000 

33.2000 

23.2000 
34  ,2000 
00,3707 
10,2531 
1 5 ,3052 

4740 
32,3206 
4362 
0154 
32,3212 
36,3034 
26,3431 
27,3170 
10,3520 
E4,166  2 
3C,2000 
13, 2541 
36,2012 
E7,1400 
34,3372 
32  ,3744 
36,3144 
13,2660 
13,2733 
13,2660 
13  ,2733 
£4,1760 
E4,1756 
43  ,3163 
43,3174 
1304 
15,3536 
42,2035 
0150 


843 

843 

843 

129 


34 

32 

34 

1079 

1351 

964 

77 

783 

784 
77 

783 
740 
592 
774 
1364 
120 
39 
1131 
38 
140 
836 
830 
743 
120  3 
1205 
37 
37 
121 
121 
299 
299 
106 
974 
284 


839 

843 

836 


1 850 

3 834 

1 1078 
) 1350 
1 964 

1 732 

1 783 

4 731 

1 740 

1 739 

1 510 

1 774 

1 1360 
7 120 

1 839 

1 1131 

1 834 

3 389 

2 743 

1 82  8 
1 734 


121 
121 
263 
299 
10  6 
96  0 
28  3 
973 


849 

849 


1323 

2f4 


SYMBOL 

ATTFLe IT 
ATTPR 10 
ATTSCALE  42, 
ATTSTEER  17, 
ATY  E4, 

AUG2  07, 

AUG3  07, 

AURLKONl  23i 
AURLCKCN  23, 
ALTOMANV  26, 
AUTCMB  IT 
AUTOMOOE 
AUTRATE 1 
AUTRAT  E2 
AUTRIFLG 
AUTR2FLG 
ALXFLAG 
AUXFLBIT 
AVECTR 
AVEGEXI T 
AVEGFBIT 
AVEGFLAG 
AVEGOUT  37, 
AVEIT  07, 
AVEM06IT 
AVEMIDSW 
AVERAGEG  33, 
AVERTRN  22, 
AVESTAR  07, 
AVETOMID  13, 
AVFLAG 
AVFLAGA  35, 
AVFLAGP  35, 
AVFLB  IT 
AVGEND  22, 
AVGEXI  T 
AVQUTCAO  37, 
AxftSR*T  23( 
AXC  01, 

AXUSTEM 
AXISCTR  E6, 
AXISOIFF  17, 
AXISOIST  E6, 
AMSGEN  23, 
AXISGENl  23, 


DEF 


REFERENCES 


SYMBOL 


OEF 


4753 
1306 
2053 
2710 
1754 
3570 
3541 
2034 
2000 
2172 
4752 
0301 
47  53 
4752 
0321 
0320 
0147 

4752 
0024 
1251 
4747 
01  63 
3515 
2276 

4753 
0225 
2267 
3707 
2241 
3463 
0050 
2354 
2361 
4747 
3661 
1251 
3533 
3677 
2352 
0147 
1505 
3755 
1604 
3443 
3451 


77 

106 

284 

1444 

121 

1317 

1316 

272 

272 

478 

86 

86 


1142 

105 


854 

254 

81 

81 

856 

859 

253 

1214 

69 

634 

634 

69 

858 

105 

854 

1255 

1081 

1497 

133 

1461 

135 

1247 

1247 


3 970  974  AXISGEN2  23,3500  1247 

2 371  1323  AXISGEN3  23,3523  1248 

1 264  AXO  E3,1715  112 

1 1436  AXT  01,2345  1081 

5 121  845  AZ  1344  108 

1 1316  AZBIAS  E6tl773  138 

1 1317  AZEACH  11,2402  816 

1 272  AZEL  14,3745  951 

I 270  AZIOUMMY  E7,1645  = 151 

.AZIMUTH  E5,1400  = 128 

(6  184  610  ;AZINCR  E7,1556  = 151 

^ AZINCRl  E7,)445  = 142 

AZO  E3,1711  112 

A2CNTRAL  E6,1745  = 133 


REFERENCES 

1 1248 
1 1248 

1 1141 
1 1006 

4 108 

2 139 

2 816 
1 951 

1 151 

5 128 

4 151 

6 142 
1 1140 

1 3 1465  1467 


389 

800 

616 


856 

1137 

105 

188 

220 

853 

251 


1 859 

2 253 

1 859 

6 634 

4 626 

4 626 

1 854 

7 733 

1 854 

2 606 
1 1006 
4 1494 

40  133 

2 1441 

8 1455 

4 937 

1 1247 


857 

1129 

753 

853 

715 


1254 

1495 

1501 

1453 

1495 

965 


B4RNB*B* 

BACKHAND 

BACKP 

BADDES 

BAOENO 

BAORAO 

BAOROOT 

0ACP2 

BAOX 

BAILOUT 

BAILOUTl 

BALLANGS 

BALLEX IT 

BANKCALL 

BANKJUMP 

8ANKMASK 

BANKRUPT 

BANKSET 

PASFOTP 

BASEOTV 

BAS  ETEMP 

6ASETHP 

BASETHV 

BASETIME 

BAULANGS 

BB 

BBANK 

BBSERVOL 

ecDu 

BODY 


36,2137 
17,2561 
16  ,2316 
25,2634 
07,3653 
25,3220 
31,3615 
12,3674 
12  ,2302 
5624 
5706 
26,2272 
1337 
4616 
4640 
4350 
0016 
0165 
F4,1537 
E4,1517 
1060 
E4,1567 
64,1504 
E4,1513 
26  ,2000 
0006 
0006 
5733 
66,1.675 
7606 


727 

1441 

1415 

550 

1320 

559 

619 

1193 

1171 

1374 

1375 
481 
107 
992 
go2 


116 

116 

235 

116 

116 

116 


1 376 
1^6 
103  8 


I 751 
1 1441 
1 1463 

1 550 

2 569  1319 

5 559  562 


2 1192 

3 1169 

3 459 

7 245 

4 342 

2 481 

314  209 

21  272 

3 1004 

13  157 

14  994 

2 706 

2 706 

2 234 

2 706 

2 706 

3 706 

2 341 

5 1291 

47  155 

1 1375 
136 

2 1005 


1413 

1369 

524 

482 

1478 

1496 

1017 

1413 

1364 

707 

707 


707 

481 

1298 

1373 


13 
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SYMBOL 

BOOT 

BOSU 

BDTOK 

BEEIT 

6EE19 

BEE22 

BEGOES 

BEG0ES29 

BELOWl 

BELnW2 

BEL0W3 

BGL0W4 

BESTI 

BESTJ 

BETAM 

BETAS  e 

BETAV 

BGIM 

BGIM23 

BHI I 

6IASCALE 

BIASFACT 

BIASHI 

0IASLO 

BIASRDCT 

BIASTEMP 

BiBIBlAS 

BIGAOS 

BIGIQ 

BIGTIME 

BINCON 

BINftOUNO 

BINS 

B ITSET 

BITSOFF 

BITSOFFl 

BITS0FF2 

BITS15+7 

6ITS2-10 

B ITS3&A 

BITS4+10 

8 ITS465 

BITS4&6 

BITS4-5 

B ITS4-7 


OEF 

26,2010 
7065 
27,2461 
C4,2773 
C4,  3005 
04,3011 
25,2604 
24,3357 
10,2247 
10,2264 
10,2300 
1C, 2303 
£5,1755 
E5  ,1756 
£4,1471 
E4,1602 
E4,1437 
16, 3741 
16,2203 
01,2453 
22,3167 
32  ,3531 
00,2566 
00,2270 
40,2667 
E6, 1710 
37,3416 
20,3345 
20,2624 
12  ,3447 
4363 
40 ,3142 
6250 
5020 
41  ,2713 
41,2717 
41,2724 
10,3523 
5011 
5741 
10,3526 
4763 
4771 
C7,37?5 
33, 3111 


REFERENCES 


53 

1023 

766 

1179 

1179 

1179 

549 

604 

1293 

1293 

1293 

1293 

125 

125 

115 

119 

115 

1468 

1405 

1084 

369 

814 

1055 

1048 

421 

136 

852 

1490 

1480 

1190 

465 

436 

569 

900 

429 

429 

429 

1364 

1091 

1323 

1364 

1090 

1323 

1323 

876 


1 1190 
1 1187 

1 1170 

3 514 

2 603 

1 1294 

2 1293 

1 1293 

2 1293 
125 


13 


957 


5 125  935 

6 115  1238 

3 119  316 

11  115  1225 

1 1468 
1 1405 

) 369 

1 795 

1 1074 
1 1075 
1 421 

1 244 

3 1480 

1 1189 

4 445  1093 

3 434  436 

2 560 

1 900 

1 429 

1 429 

2 429 
1 1351 

1 37 

2 1302  13C3 
1 1363 

4 167  429 

5 213  1302 

1 1308 

1 870 


SYMBOL 

0 ITS5  + 11 
BITS5 ,8 
B 1TS6615 
0ITS7+4 
BI TS7&8 
BITS8/7 
eiTSe  ,9 
BITS9+7 
eiTS9,ll 
BITl 
8 IT  IH 
8IT10 
6niQ+15 
B ITll 
BITll+1 
6 IT12 
81T12,14 
61  T13 
B IT13-14 
BIT14 
BI T14+7 
B IT14CCM 
eiTl5 
BIT15+6 
8IT15/14 
Bl  T2 
BIT3 
BIT3H 
BI  T4 
B IT4H 
BITS 
B IT6 
8IT7 

BI T7+9PV 
B IT8 
B IT8 ,9 
61  T9 
BLANKCHK 
8LANKCCN 
8LANK0E  X 
BLANKCSP 
BLANKET 
BLANKRET 
BLANKSUB 
BLNKBBNK 


OEF 

10.3525 
25,3402 
06, 3003 
30,3524 
06,2777 
21,3075 
16,3623 
43,3065 

5014 

4753 

32.3526 

4742 
6021 
4741 

25  ,2403 
4740 
7715 
4737 
4355 
4736 
26,2256 
10,2276 
4735 
7737 
41,3264 
4752 

4751 
34,3445 

4750 

30,3015 

4747 

4746 

4745 

23,2316 

4744 

17,3140 

4743 
10,3133 
40  ,2614 

4752 
41,3531 

5464 

0114 

4255 

4302 


REFERENCES 


1364 

562 

183 

1364 

183 

900 

1433 

289 

1*25 

1089 

814 

1089 

520 

1089 

541 

1089 

556 

1089 

1093 

1089 

479 

1293 

1089 

1092 

441 

1089 

1089 

837 

1089 

850 

1089 

1089 

1089 

524 

1089 

1448 

1089 

1358 

407 

740 

457 

1346 

96 


1356  1363 
562 
1 82 
1350 

166  178 

90C 
1426 
289 
1424 


67 


65 


1484 

1479 

1468 

1491 

1489 

1402 

1492 


55 


42 


1 1293 

65  1474 

1 1352 

2 441  443 

5 66  1482 

66  1423 
836 

66  1454 


52 


66  1465 
66  1458 
66  1434 


^,3  66  1496 

2 407  420 

1 729 

2 457 

9 272  1365 


SYMBOL 

6LNKSUB1 

BLNKWAIT 

BLCAO 

8LQCKT0P 

BNKCHK 

BNKOPTN 

BOOLSMSK 

eOOLSTRT 

BOOP 

BORTENT 

BOTHABRT 

BOTHAXES 

BOTHJOBS 

BOTHLI TS 

BOTHPAO 

EOTHSGN 

BOTH  SHIP 

eoviBi 

BPL 

SPL/BMN 

BRANCH 

BRATE 

BRNCHCON 

0RNCHCTR 

BRSPOTl 

6RSP0T2 

6RSP0T3 

BRSP0T4 

BRUPT 

8SU80 

BUF 

eUF4 

BUF- 

BUFNEG 

BUFNORM 

BUFPOS 

BUFZERO 

BUF2 

8URNBA8Y 

6USVMASK 

BUTTONS 

eVECTOR 

BVECTR 

BVSU 

BYLMATT 


OEF 

40,3550 
36,3351 
41  ,2766 
E6,1546 
43  ,3743 
43,3342 
20,211* 
05  ,3061 
37 ,2755 
5574 
5711 
20,3324 
10,2666 
25  ,362* 
22,3377 
40,2377 
22,3336 
01,2460 
01  ,250* 
01,2475 
6726 
E6 ,172* 
40,2600 
12  ,2267 
31,2545 
31,2652 
31  ,3024 
31,3210 
0017 
26,2016 
0130 
00  ,2422 
00,2416 
00,2531 
00  ,2500 
00,2516 
00,2363 
0133 
36,2130 
10  ,3530 
05  ,2701 
E7,1524 
0032 
7041 
15,3530 


R EFERENCES 


460 

751 

430 

135 
1285 
1279 

296 

220 

389 

1373 

1375 

1490 

1353 

617 

7J7 

404 

716 

1084 

1085 
1085 
1019 

136 
407 

1171 

797 

799 

802 

805 

92 

53 

96 
1052 
1051 
1C54 
1054 
105* 
1051 

97 
727 

1364 

217 

147 

1142 

102? 


460 

752 

411 

135  1497 


3 294  295 

1 214 

1 389 

2 1374  1375 
1 1376 

1 1494 
1 1353 
1 617 

\ 717 

1 404 

1 717 

1 1006 
1 1085 
1 1006 

10  878  1085 

3 366  369 

I 407 

1 1172 


4 824  1450 

1 1137 
9 97  1391 

3 1051  1054 
3 1051  1054 
1 1051 

1 1054 

2 1051  1054 
1 1054 

245  1374 
749  833 


29 


147  1344 
1338 
1005 

970  971 
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gap:  assemble  REVISION  131  OF  AGC  PPCGRAP  LUMINARY  BY  NASA  2021112-091 


17:53  CEC  19,1Q69 


PAGE  1508 


SYMBOL  TABLE  LISTING,  INCLUDING  OEFIMTION,  HEALTH,  PAGE  OF  DEF,  M OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REF, 


REFERENCES 


SYMBOL 


CEF 


REFERENCES 


SYMBOL 


REFERENCES 


B 12-1 

612T1A 

81A+82 

62/A2 

82F8 

B2XSC 

B3T084 

650FF 

B5TOB8 


A356 

7725 

25,2645 

13,2502 

15,3162 

13,2S0U 

01,2577 

5563 

01,2466 


1085 

273 

465 

1093 

550 

1130 

966 

1130 

1088 

1372 

1084 


1 100  8 
1 550 

1 1132 
1 966 

1 1130 

2 1087 

14  273 


C*MM*N1 

C*MM*N2 

C*MN#N3 

CA+bC£ 

caorflsh 

CAORMARK 

CADRMASK 

CAOBSTOR 

CADRTAB 

CAGESU8 

CAGESUBl 

CAGESUB2 

CAGETEST 

CAGETSTJ 

CAGETSTO 

CALCOIB 

calcga 

CALCGAl 

CALCGRAV 

CALCGRVl 

CALCGTA 

CALCMAN2 

CALCMAN3 

CALCN83 

CALCN85 

CALCPERR 

CALCPHI 

CALCRGVG 

CALCRVG 

CALCSMSC 

CALCT  FF 

CALCTHET 

CALCTPER 


23,3655 
23, 3657 
23,3670 
07,3131 

0372 

0373 
10, 3531 

1041 
Cl ,2001 

06.2735 
06  ,2743 
C6,2746 
07,3632 
07,3644 
07,3637 
E5,1460 
23,3355 
23,34)5 
33  ,2667 
33,2724 
23,3251 

0053 

0052 

36.3466 
36,3402 
16, 3452 
22  ,2701 
31,2753 

33.2735 
10,2030 
27,3471 
27,2255 

27.3466 


1254 

1254 

1254 

13C6 

100 

100 

1364 

102 

240 

182 

182 

182 

1319 

1319 

1319 

128 

1245 

1245 

873 

873 

1241 

70 

70 

753 

752 

1430 

364 

801 

873 

1257 

1269 

760 

1269 


2 1254 

1 1254 

2 1254 

1 172 

6 197 

1 1355 
13  224 

1 1298 
1 166 

1 176 
1 168 

7 1302 
5 1302 

2 1309 

4 376 

3 1246 
2 862 

1 873 

4 935 

2 366 

1 366 

1 758 

1 726 

2 1405 

1 364 

2 793 

1 856 

7 932 

1 723 

1 723 


1255 

1255 

1362 

1360 


1316 

1311 

1310 


143G 

754 

975 


CALCXY 

CALC28IT 

CALC3BIT 

CALL 

CALL/ITA 

CALLACC  S 

CALLCQOE 

CALLDGCH 

CALLGMBL 

CALLOERR 

CALLRECT 

CALLRPRT 

CALLRTRP 

CALLT-35 

CALOOP 

CALOGPI 

CALSAM 

calsami 

CAL53A 

CAM 

CANTROO 

CANV37 

CATLOG 

CCALL 

CCSHOLE 

CCSL 

CD*TR#G 

CD*TR*GS 

CDELF/2 

CDESBI T 

CDESFLAG 

CCHMVR 

CDRVe 

CCU*NeSM 

CDU^SMNB 

CDUANG 

CDUDANG 

COUFLAG 

COU  INC 

CCUIND 

COULIMIT 

CCULOG IC 

COUNOX 

COUREADF 

CDUREADI 


26,3623 
4752 
4751 
6643 
01,2510 
20,2134 
4766 
26  ,3643 
4747 
17,2124 
11 ,3370 
13, 2452 
13,2362 
36,2213 
14,3332 
14,3360 
15,2536 
15,2535 
14,3321 
£6,1732 
04,2065 
04,2132 
14,2346 
6631 
5675 
7666 
23,3545 
22,3557 
0016 
4735 
0264 
34,3135 
06,2012 
23,3663 
23,3650 
E5,1543 
E5,1440 
65,1461 
10,3661 
63  ,1474 
E5,1443 
10,3577 
65,1536 
E5, 1441 
65,1442 


1017 

1085 

1399 

1090 

597 

1404 

1434 

1231 

1129 

1127 

728 

942 

942 

957 

957 

942 

136 

229 

230 
51 

1017 

1375 

1040 

1251 

1252 
1260 

85 

85 

652 

158 

1254 

1254 

128 

128 

128 

1390 

111 

128 

1389 

128 

128 

128 


1 1085 
1 1006 
1 1400 
5 281 

4 5 20 

3 1420 
1 1433 

4 123T 

1 1129 
1 1127 
1 728 

1 942 

2 942 

1 956 

1 925 

4 136 

1 229 

1 230 

933 
1 1005 
378 
I 1093 

1 482 

3 1251 

2 595 

2 272 

2 632 

5 7C7 

3 522 


21  168 
15  250 


1502 

598 

1475 


12 


23 


956 

1458 


131  6 
1252 


ecus 

CD  use MD 

COU  SPOT 

CDUSPOTX 

COUSPOTY 

CDUSPOTZ 

CDUT 

COUTCMO 

COUTEMPX 

COUTEMPY 

CDUTEMPZ 

COUTI MEF 

COUTIMEI 

COUTODCM 

COUTRIG 

CDUTR IGS 

CDUWXFR 

CDUX 

COUXCMD 

CDUXO 

COUY 

COUYCMD 

CDUYO 

CDUZ 

COUZCHD 

COUZD 

COUZDLIM 

CEARTH 

CENTANG 

CG 

CGCALC 

CGOTO 

CHAN 

CHANBITS 

CHANOSP 

CHANGEVB 

CHANGl 

CHANG2 

CHANJOB 

CHANLOAO 

CHAN12 

CHAN13 

CHAN14 

CHAN30 

C HAN31 


005* 
0765 
07  71 
0765 
0767 
0035 
0053 
115* 

1155 

1156 
E5  ,1436 
£5,1434 

22  ,2410 

23  ,3541 
23,3551 
30  ,3432 

0032 

0050 
66  ,)  634 

0033 

0051 
E6,1635 

0034 

0052 
E6 ,16  36 
30,3764 

0016 
£7,1620 
65,1574 
31,3225 
fe706 
E5  ,1443 

41,2700 

41,2506 
07,2610 
5122 
5126 
01 ,2707 
41,3204 
0012 

0013 

0014 

0030 

0031 


101 

101 

101 

101 

°2 

92 

104 

10* 

104 

12P 

128 

359 

1251 

1251 

913 


135 
920 
93  3 
143 
123 
805 
1018 
12P 
429 
418 
261 
1097 
1097 
1102 
433 
93 


16 


101  1253 
867  905 

B67  905 

667  905 

189  611 

540  900 

865  886 

865  666 


3 353 

11  491 

3 1251 

1 913 

29  190 

5 176 

26  135 

14  255 

2 176 

8 371 

17  171 

2 177 

7 371 

I 908 


930 
200 
123 
2 793 

1 1005 


465 

975 

1254 

1430 

1411 

1442 

1443 
1410 
1443 
1443 
1410 
1443 

934 

664 

848 

805 


93 


1 429 

1 417 

1 261 
5 264 

1 997 

4 1097 
1 433 

75  167 

24  214 


23 


12  84 

1109 

1482 

1449 

1411 

1402 

1436 
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J DEFINED  BY  JOKFR  OR  ERASE  ANYWHERE 
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SYMBOL 


DEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


CHAN32 

CHAN33 

CHANS 

CHAN6 

CHAR 

CHARALRM 

CHAR  IN 

CHARI N2 

CHECKALT 

CHECKS 

CHECKCTR 

CHECKG 

CHECKGl 

CHECK  IN 

CHECKMAX 

CHECKMM 

CHECKNJ 

CHECKP 

CHECKRR 

CHECKTAB 

CHECKUP 

CHECK  YAW 

CHEKAX  IS 

CHE  KB  I TS 

CHEKMORE 

CHEKST IK 

CHEXERR 

CHKB  ITIO 

CHK6MAG 

CHKCOR  s 

CHKOATAl 

CHKFA  1 LI 

CHKFAIL2 

CHKINGTS 

CHKLA  STY 

CHKL INUS 

CHKLIST 

CHKM  IN7J 

CHKNOVAC 

CHKPOCH 

CHKPRIO 

CHKRT  IMR 

CHKSAB 

CHKSB 

CHKSO 


0032 

0033 
C005 
0006 
0117 

90,3A70 
90,2077 
90,2112 
30,2763 
7753 
12,2699 
37,2332 
37,2335 
17,2300 
22,2117 
5321 
93, 3357 
16,3059 
93,2720 
09,2072 
16,2091 
07,2666 
27,2137 
16,2000 
16, 2016 
17  ,2359 
32,2537 
17,2237 
30,2591 
07,3069 
20,2019 
5603 
561C 

17.2691 

21.2692 
26,2205 
05  ,3537 
17,3656 
01,3690 
93,2121 
10,2930 
16,2672 
19,3253 
19,3255 
19,3279 


93 

96 

950 

900 

900 

899 

1299 

1177 

380 

380 

1937 
359 

1286 

1279 

1923 

282 

229 

1903 

895 

986 

1902 

19C2 

1938 
577 

1936 

891 

1305 

295 

1373 

1373 

1992 

897 

978 

986 

1959 

1297 

265 

1398 

1920 

991 

991 

991 


23 


160 
169 
6 219 

3 219 

5 900 

18  910 

1 1330 

2 900 

1 893 

1 1291 

2 1171 

2 377 

1 381 

i 1936 
1 359 

6 266 

3 1279 

1 1923 
1 282 
1 229 

1 1903 

2 899 

1 986 

2 1903 

1 1912 
1 1936 
1 576 

1 891 

1 1306 
1 29  5 

1 1375 
1 1373 
1 1992 

1 897 

2 978 

2 1957 
1 1300 
6 283 

1 1397 
9 1920 


857 

889 

1992 

i9C5 

902 

952 


1189 

378 


1^60 
971 
192  1 


1 


991 

991 


CHKSDA 

CHKSDATA 

CHKSRCH 

CHKSUPR 

CHKTEMX 

CHKVI SFZ 

CHNL12 

CFRPRIO 

CHSITEMP 

CH5MASK 

CH6MASK 

CIRCL 

CIRCULAR 

CKIMUSE 

CKMDMORE 

CKMI02 

CKMODCAD 

CKSTALL 

CK9V32 

CLEANDSP 

CLEANEND 

CLEAR 

CLEARMRK 

CLEARl 

CLCAO 

CLCC  KCGN 

CLCCPLAY 

CLOG2/32 

CLOKJOB 

CLOKTASK 

CLOSEADR 

CLGSEGUT 

C LPASHI 

CLPASS 

CLRADMOD 

CLRMOON 

CLROVFLW 

CLRXFLAG 

CLR5 

CLUPCATE 

CLUPLCCK 

CL1/NET+ 

CMNT  OVFL 

CMOON 

CMOONBIT 


19,3315 

19,3250 

26,3999 

93,3673 

37,3636 

16,2790 

0066 

9355 

E6,1993 

1257 

1260 

39,2372 

12,3670 

5299 

93,3765 

13.3627 
93,2936 
32,2105 
09,3969 
10,2957 
10,3239 
90,2967 

5979 
90,2522 
91,3003 
10, 3599 
10,2979 
30,3067 
36,2793 
36,2723 

21.3627 
17,3270 
90,2505 

1019 
6011 
13,2710 
13, 2510 
30,2722 
90,2525 
35,3573 
09,3390 
2C,3966 
12,2315 
0022 
9790 


991 
991 
593 
1289 
866 
1921 
196  8 
965 
131 
105 
105 
691 
1193 
1115 
1380 
1217 
276 
210 
1383 
1399 
1359 
906 
1396 
906 

930 
1365 
1350 

851 

739 

738 

1976 

1950 

906 

102 

520 

1209 

1131 

893 

906 

683 

1331 

1992 

1172 

931 
79 


11 


1.  991 

2 990 

1 597 

1 1209 
1 866 

1 1920 

3 1968 

7 160 

2 1929 
192 

6 193 

3 690 
1 1192 


1389 

1938 

1997 

1932 


1 1235 

3 266 

1 210 
3 1382 

2 729 
1 1357 

1 901 

2 227 

1 906 

1 911 

1 1350 

2 739 

1 851 

1 730 

9 299 

1 1976 
9 1996 

1 906 

13  229 

10  231 

2 1205 

1 1131 
1 899 

1 906 

1 602 
1 1331 

1 1172 

2 930 

1 215 


790 

738 

1976 

958 

031 

1232 


CMOONFLG 

CMPCNENT 

CMPXl 

CNGL 

CNTABTAO 

CNTCHK 

CNTONDEX 

CNTRCHK 

CNTRCON 

CNTRLOOP 

COAALIGN 

COARFINE 

CGAPS 

COARSE 

COARSERR 

COARSRET 

COARSTOL 

COARSTY  P 

COARSl 

C0ARS2 

CGASCODE 

COASTOB 

COASTSET 

COASTTJ 

COATRIM 

COB 

CODE 

CnDElT06 

C0DE500 

C0D67 

COEFCTR 

COEFF 

COEFFO 

CCEFFR 

COF 

COFMAXGO 
COF SKEW 
COGA 

COGAFBIT 

COGAFLAG 

COGAMAX 

COGAMI  N 

COGAOVFL 

COGLOL IM 

COGUPLIM 


0173 
30  ,2612 
E5,1995 
22,2900 
21  ,2101 
07,2235 
9762 
93,3513 
9771 
93  ,3519 
37,2301 
19,3352 
07,3001 
19,3557 
07,3101 
15,2161 
07,3107 
15  ,2171 
07,3006 
07,3031 
07,2137 
E6, 1602 
36  ,3612 
17,3955 
15,3237 
0090 
0129 
07,2123 
32,3256 
07,2107 
0160 
20,3217 
E6,1626 
E6  ,1627 
E6,1667 
22,2176 
E6,172^ 
E5,1765 
97  50 
0203 
0016 
0010 
12,2769 
09,3026 
09,302^ 


129 
359 
829 
253 
730 
1281 
1 276 
1281 
380 
992 

1304 
997 

1306 

925 
1306 

926 
1309 

1305 
298 
1 35 
756 

1955 
968 
11*2 
96 
297 
784 
297 
1988 
1988 
1 35 
135 

135 
355 

136 
126 

80 

80 

1196 

1196 

1180 

1179 

1179 


37  1209 
890 
368 


1 1281 
I 1282 
1 378 


1305 
993 

1306 
925 

1309 

1305 

297 

1955 

755 

1955 

965 

1137 

901 

297 

789 

297 

1^86 

1986 

135 

1999 

359 


1306 

1995 

1961 

1138 

957 


1987 

1987 

1987 

1987 

987 


136  357 

126  1192 

1180 

1187  1191 

1188  1190 
1180  1192 
1191 
1168 
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COLINEAP 

colrfg 

CCMADRS 

COMFAIL 

COMFAILl 

COMFAI  L2 

COMFA IL3 

COMFAILL 

C0MFLA6 

COMMAND 

COMMECS 

COMMFX 

COMM  IN  IT 

COMMNOUT 

COMMON 

COMMCNLM 

COMNEG 

COMP 

CCKPCHK 

COHPDISP 

COMPICK 

COMPMAT 

COMPMATX 

COMPMFSN 

C0MPNUM6 

COMPOS 

COMPTEST 

COMPTGO 

COMPTSTl 

C0MP12 

COMTERM 

CCKZEPC 

C0NC+  SI 

C0NC+S2 

CONICS 

CONICSl 

CONST 

CONTABRT 

CONT0L2 

CONTOeSG 

C0NT0ES2 

CONT INU 

CONTMANU 

CONTSERV 

CONUMNOR 


CA,312A 
111  6 
A3»3560 
36,2575 
36, 2614 
36,2627 
26,2616 
36,2620 
5511 
E3, 1471 
20,2574 
43,3552 
30,2275 

12  ,2747 
36, 2404 
12,3436 
07,3110 

7673 

06,3561 

37,3240 

Al,2515 

13  ,2240 
27, 2072 
27,2151 

1167 
07,3043 
41  ,2426 
25,2437 
A1  ,2430 
22,2211 
11,3061 
07,3120 

43.3266 

43.3267 
12,2000 
04,2000 
30 ,2572 
05,3413 
01,3666 
26,5567 
26,3576 
43,3643 
22  ,3170 
33,2545 
41,3114 


1182 
= 104 

1282 
736 
736 
736 
736 
736 
1367 
= 111 
1480 
1282 
634 
1180 
732 
1190 
1306 
1040 
335 
707 
41fl 
712 

485 

486 
104 

1305 
416 
655 
416 
356 

1227 

1306 
1278 
J 278 

30 

28 

841 

824 

1298 

595 

595 

1284 

369 

870 

432 


1 1182 
7 104 

2 1284 

2 243 

1 739 

1 739 

3 725 

2 725 

2 737 

6 1301 

1 1480 

2 1284 

2 827 

I 1193 
1 726 

1 1190 
1 1305 

4 1007 

I 334 
1 709 

1 418 

1 487 

1 486 

10  104 

1 1305 
6 416 

1 682 
I 417 
1 356 

1 1230 

2 1305 
1 1282 
1 1282 

3 1167 


1236 

857 


727 

726 

1367 

13C6 


1386 

430 


4 45 

1 84C 

1 824 

2 1300 

1 597 

5 1283 

1 368 

5 868 

1 432 


1103 

1180 


12  84 
682 


CCNV3 

C0NV4 

CCNV5 

CCNl 

C0N2 

C0N2ADR 

COPIES 

C0PIES2 

COPINDEX 

COPMPAC 

COPYCYC 

ccpycycl 

COPVCYCl 

C0PYCYC2 

CCPYNCRM 

CDPYPAC  S 

CCPYTOGO 

CCREI NC 

CORFDUNO 

CCRSChK2 

COP  SI T 

COSCDU 

CCSCOUX 

COSCDUY 

CCSCDU2 

CCSF 

COS  I 

COSINE 

COSMG 

COSPhI/2 

CCSPHIE 

COSTALIN 

CCSTH 

CCSTHETl 

C0STI-ET2 

CCS1/2CG 

C0S150EG 

CCS60CeG 

CCTROLER 

CCUNT 

C CUNT*  EM 

COUNTPL 

COVCNV 

C0ZY4 

CPHI 


42,3623 
42,3634 
42, 3636 
5405 
10,2512 
5422 
10,2736 
IC,2737 
0164 
0157 
33,2423 
33,2275 
33,2551 
33,2632 
10,2735 
10, 2420 
10,2416 
01,3034 
01,  2637 
07,3076 
I 5,32  66 
0743 
0747 
0743 
0745 
0030 
26,2000 
00,3517 
0061 
0022 
11,3273 
0000 
0020 
E5,1570 
E5,1572 
25,3076 
23,2317 
23,2521 
66,1630 
0143 
11,2347 
E5,1542 
42, 3675 
£7  ,1666 
0321 


97 

815 

128 

492 

144 


REFERENCES 


491 
491 
491 
1291 
1294 
1291 
1354 
1354 
= 1365 
= 1364 
862 
856 

871 

872 
1354 
1348 
1348 
1105 
1101 
1306 

968 

= 100 
= ion 
= 100 
= 100 
= 1]  97 
52 
1076 
= 1405 
= 1240 
1230 
= 237 

125 
= 123 

123 
556 
524 
598 
135 


1 491 

1 491 

1 1292 
1 1291 

1 1291 
1 1347 
1 1352 
23  1348 
3 1360 
3 856 

I 872 
1 8 69 

I 1351 
1 1357 

1 1358 

2 1101 

2 1305 


1362 

1363 
863 


1 968 

5 100 

6 482 

5 482 

7 482 
4 1192 

2 1138 

2 1007 

3 190 

6 1227 

1 1227 
3 237 


1105 

1306 

1253 

1258 

1250 

1257 

1193 

1252 

191 

1230 


12 


L8  301 
2 123 

2 123 

1 554 

1 523 

2 595 
6 1404 

401 
815 


1245 

644 

844 


1 


HEALTH  KEY:  NORMALLY 


UN  UNOEF  INED 
BO  BACLY  OEFINFD 


492 

688 

342 


SYMBOL 

CPSI 

CR6WMANU 

CRITCCN 

CSI  /A 

CS  r/6 

CSI  /6  1 

CSI/82 

CSI/622 

CSI/B23 

CSI/B230 

CSI /B3 

CSI /COH 

CS I/CCHl 

CSI/SOL 

CS  lALRM 

CSISTEP 

CSMCONIC 

CSMCKFLG 

CSMOOCKD 

CSM  INT 

CSMMASS 

C SMPREC 

CSMSTORE 

CSMVEC 

CSS 

CSSUN 

CSS33 

CSS40 

CSSS 

CSTH 

CSTH-RHO 

CSTCDAY 

CSUN 

CS359+ 

CTHETA 

CTL  1ST 

CTRCHECK 

CULTBIT 

CULTED 

CULTFLAG 

CULTRIX 

CURSOR 

CURTAINS 

CUTOFF 

CUTCFFl 


DEF 


0323 

43,3036 

40,2315 

34,2113 

34,2125 

34,2165 

34,2176 

3<^,2216 

34,2224 

34,2237 

3^,2330 

35.2000 

34.2000 
34,2737 
E7,1613 
34,2732 
13,3065 

0305 
4737 
24,3275 
1327 
13  ,304? 
23,24?1 
43  ,3075 
0016 
14,2577 
14,2756 
14,2754 
1A,2575 
E 5, 1731 
£5,1735 
05  ,2023 
0020 
35,2422 
0322 
0334 
21  ,3705 
47  4 5 
1^,2751 
0065 
E5,1706 
1235  = 

5701 
14,2416 
14,2430 


288 

403 


638 

628 


35 

34 

646 

143 

645 

1207 

87 

87 

571 

107 

1207 

699 

291 

934 


931 

126 

126 


969 

15C1 


71 

125 

955 

1375 

846 

847 


5 353  1407 

1 263 

1 402 

1 628 
1 646 

3 643  646 

1 645 

1 639 

1 639 

1 639 

1 640 

3 626  663 

I 637 
1 645 

5 143  646 

1 645 

3 341  594 


295  1478 
571 

295  I486 
37  728 

699 
264 
934 
931 
933 
933 

930  931 
126  1193 
126  1180 
979 

931 


OEFINEC  UNLESS  FLAGGED  AS  FOLLOWS: 

CB  DiPiKlflGN  WITH  Ic'e  NE  o5l  TROUBlV"-" 


3 371  1407 

6 986 

1 1500 

4 934 

4 933  934 

1 934 

^ 262  954 

a 937  963 

4 741  846 

1 846 
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CUTOFFZ  3A 

CVECTR 

CYCLSFFT  A3 

CYL 

CYR 

Cl/2 

CIMP  E6 

CIPP  E6 

CIBBANK  17 
C13FSAV 
C130SAV 
C13SL0CP  17 
C13STALL 
C13STAL1  17 
C2MP  E6 

C2PP  E6 

C2SQM  E6 
C2SQP  E6 
C3/2 

C33JMP  C6 
C33TEST  C6 
C5/2 


OEF 

A,345A 
0010 
3522 
C022 
0020 
7722 
r 1722 
1720 

r2000 
1266 
1265 
,2030 
6022 
2022 
.1716 
171A 
,1712 
,1710 
7742 
,2763 
.2374 
500  5 


REFERENCES 


947 

1142 

1282 


1091 
136 
136 

31 

105 

105 

565 

566 
565 
136 
136 
136 
136 

1092 
183 
169 

1090 


23  402 

42  234 

1 1096 


1292 

1297 


565 

565 
987 

566 
471 
566 


1 1096 
1 170 
6 166 
1 1096 


17 


OACLIMIT  20, 
OACLOOP  20, 
OAD 

DALTRATE  E7 , 
DAMPI NG 
DANZIG 
OAPARUPT  E6, 
DAPATTER  43, 
DAP6ITS  05, 
OAPBOCLS 
DAP6QRPT  F6, 
OAPOATAl  20: 
0AP0ATA2  01 
0AP0ATA3  01, 
DAPCATRl 
DAPDAT2  Cl, 
OAPDISP  43, 
OAPIOLER  16, 
DAPLRUPT  £6, 
DAPSl  16, 
DAPS2 
0APS3 


17 


2446 

2410 

7000 

1716 

2374 

6064 

1752 
2165 
3501 
Olll 
1754 
200  4 
2236 
2303 
1340 
2253 
3156 
2024 

1753 
2000 
2000 
2000 


1411 

1411 

1020 

153 

1438 

997 

138 

267 

826 

87 

138 

294 

297 

297 

107 

297 

294 

1403 

138 

31 

31 

31 


3 1411 
I 1411 
1 1005 


138 

263 

825 


1394 

1450 


1420 

294 
297 

295 
297 
262 
225 


1501 

1450 


4 1402 
4 1396 


1466 

1452 

1489 


SYMBOL 

DAPS4 
DAPTEMPl 
DAPTEMP2 
0APTEMP3 
0APTEMP4 
OAPTEMPS 
DAFTEMP6 
OAPTREGl 
0APTREG2 
0APTREG3 
DAPTREG4 
0APTREG5 
DAPTReG6 
0APT4S 
CAPZRUPT 
DASAMPL 
OATAFAIL 
CATAGDCO 
OATAOUT 
CATAPL 
OATGDCHK 
DAXMAX 
DAY/2MAX 
OAZMAX 
08 
OBBl 
UBB2 
0663 
DBB4 
06FUN 
CBONE 
06SELECT 
08SELFLG 
CeSLECT2 
0BSL2FLG 
CeVALl 
0BVAL2 
OBVAL  3 
OCDU 
OCMCL 
OCMTOCOU 
0CC6A 
OCOMP 
CCCMPTST 
DCTSTCYC 


CEF 

21,2000 
£6,1736 
E6,1737 
E6,1740 
E6  ,1741 
E6,1742 
E6, 1743 
E6,1744 
£6,1745 
E6,1746 
E6  ,1747 
E6, 1750 
E6,1751 
06,3140 
E6,1756 
25,3345 
25,3444 
E7,1733 
21  ,2224 
£5,1472 
26  ,3654 
30,3760 
30,3762 
30,3760 
1343 

0143 

0144 
0146 

0145 
20, 3562 
20,3371 

4750 

0316 

4747 

0315 

1343 

0114 

0115 
E6,1634 
30,3221 
22,2654 

0014 

7710 

41,2441 

41,2454 


REFERENCES 


31 
136 
138 
138 
1 38 
138 


138 
138 
138 
138 
138 
190 
138 
561 
563 
146 
892 
126 
597 
92C 
920 
92  0 
107 
1497 
1497 
1497 

1497 
1494 
149  1 

88 

88 

88 

86 

1498 
1498 
1498 

137 

907 

364 

1196 

1040 

^•17 

417 


29 


11 


13 


132 
132 
132 
132 
132 
3 133 

I 134 
I 134 

0 132 

5 132 

7 134 

3 161 

4 1404 

1 563 

1 560 

5 146 

2 892 
377 

1 597 

2 911 

2 911 

1 911 

8 214 

5 1490 

3 1490 

4 1491 

6 1491 
1 1494 
1 1491 
1 1399 

1 1309 

6 1489 

2 1489 

3 1489 

1 914 

2 367 

4 1189 

2 1040 
2 416 

2 433 


1500 

1462 

1463 
1463 
1439 
1417 
1462 

1501 


1410 

1418 

1410 

109 

1451 


597 

893 

381 

920 

920 

1498 

1495 

1494 

1494 

1495 


1495 

1491 

1492 


SYMBOL 

DDUMCALC 

OOUMCRIT 

COUMGOOO 

DDV 

DOV/BDDV 

DOVCALL 

DEAD 

DEBIT 

OEC-12 

CEC~6 

CECERNCH 

OECCNTR 

DECOSP 

0EC0SP3 

DECENO 

CECON 

DECCUNT 

DECOTIMR 

CECRET 

DECROUND 

OECRTIMR 

DECTEM 

DEC  TEST 

DECTOBIN 

0EC17 

0EC227 

CEC23 

DEC27 

DEC29 

DEC45 

0EC51 

0EC58 

OEC585 

CEC66 

CEC70 

DEFUNCT 

OEGoS 

OEGCOM 

DEGCONl 

OEGINSF 

0EGINSF2 

DEGOUTSF 

DEGREEl 

OEGTAB 

0EG30 


DEF 

32  ,3104 
32,3263 
32,3165 

7602 
00,2353 
00  ,3004 
27,2230 
5522 
12  ,2016 
12,2015 
0777 

33  ,2366 
41,2525 

41  ,2  577 
40,2265 
40,2322 

0117 

16,2710 

0115 

40,3315 

16,2712 

0122 

41,2445 

40,2232 

4361 

15,2557 

42  ,2033 

4764 

4765 
4772 

04,3232 

37,2474 

37.3055 
31,2452 
04,2403 
21  ,3  237 
15,2467 
40,2717 
40,3130 
40,3044 

40.3055 
40,2615 
14,3403 
40,2727 
15,2465 


782 
78* 

783 
1038 
1051 
1062 

746 
1367 
1095 
1095 
10  1 
857 

418 

419 

402 

403 
96 

1420 
96 
4*6 
1420 
96 
417 
402 
3 03 
957 
277 
1090 
1090 
lOOO 
1324 
383 
390 
705 
235 
1466 
955 

421 
436 
435 
435 

420 
943 

422 
955 


REFERENCES 

1 807 

I 762 
I 782 

1 1005 

2 819  1038 
1 1062 

2 746 

3 737  1367 


401 

857 

410 

*19 


436 


2 402 

1 402 

27  412 

1 1420 

2 432  433 

1 445 

1 1420 

3 *18 

2 416  417 

1 402 


375 

952 

277 


854 

956 


2 lOlO  1083 

I 377 

1 378 

2 790  795 

1 229 

1 1466 
I 953 
1 *20 

1 435 

2 434 

2 419  420 

1 942 

2 421 

2 252  953 
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SYMBOL  TABLE  L 1ST  ING, 
SYMBOL  OEF  H 


INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  DEF » # OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  CF  LAST  REF« 


REFERENCES 


REFERENCES 


REFERENCES 


DEG359 

06060 

DEL 

OELAYEX 

OELAYJCB 

DELAYLOC 

OELAYNUM 

OELCDUX 

CELCDUY 

OELCDUZ 

OELCOMP 

OELDCDU 

DELDCDll 

0EL0CCU2 

OELDEP 

DELDV 

DELEL 

OELELO 

OELER  LIM 

UELGMBLP 

OELINOEP 

OELLOOP 

0ELLT4 

OELM 

DELMAX  1 

OELMLP 

DELOK 

DELPERCR 

DELQERCR 

OELQFIX 

OELREPCR 

OELRSPL 

OELT 

DbLTACSM 

OELTAH 

DELTALEM 

DELTAQ 

DELTATM 

OELTATCK 

DEL  TAX 

OELTEE 

DELTEEO 

OELT  IME 

OELTTFAP 

OELV 


14, 3404 
15  ,2471 
E6,1744  = 

5235 
00,3736 
1323 
4752  = 

E6,1637 
E6,1640  = 

£6,1641  = 

22,2527 
E6,1637  = 

E6,1640  = 

£6,1641  = 

E5,1757  = 

E7,1611 
E7,1575  = 

0032  = 

30,3762  = 

30,3271 

0014  = 

00,3741 
E7,145l 
E5,1550  = 

34,2105 
37,2646 
12, 2632 

1274 

1275 

E5,1520  = 

1276 

22  ,3541  = 

E5 , 1644  = 

E3  ,1572 
E7,1664  = 

E3,1644 
E7,1546  = 

E7,1426  = 

04  ,3600 
£5,1664  = 

E7,1611  = 

E7,1605  = 

12, 2421 
E7 ,1425 
0324 


133 

1114 

1369 

107 

37 

135 

135 

135 

361 

137 

137 

137 

126 

143 

143 

663 

920 

908 

1197 

1369 

141 

129 

637 

387 

1177 

106 

106 

122 

106 

37 

126 

112 

152 

112 

147 

141 

1385 

127 

143 

143 

1174 

140 

99 


3 

1 

14 
6 

1 
6 
3 

3 

2 
1 
) 
5 

15 

4 
3 
1 
1 
2 
1 
7 

5 
2 
1 
1 

5 
3 

3 

3 
1 

6 
1 
6 
2 
1 

12 

4 
3 
I 
9 


942 

1466 

1113 

210 

224 

1369 

135 

137 

137 

366 

367 
371 
371 
126 
14  3 
669 
669 
913 
909 

1176 

1369 

196 

338 

645 

388 

1176 

369 

371 

122 

371 

126 

591 

152 

591 

147 

515 

1385 

127 

672 

1170 

797 

99 


OELVCSI  .E7 
OELVCTL  £7, 
1468  CELVEETl  E4 
0ELVEET2  £4 
947  CELVEET3  E4 
1370  06LVIMU  E7 
OELVLVC  E7, 
1413  OELVMIC  E7 
1413  DELVOV  E4 
1413  DELVREF  E7, 
486  DELVRCD  E7 
311  OELVS  E7 
OELVSAB  E7 
OELVSIN  £7 
1177  OELVSLV  E7, 
645  DELVTEST  27, 
672  OELVTPF  E4 
672  DELVTPI  E7, 
OELVX 
OELVY 
1177  OELVZ 

DELX  E5 

761  DBP 

OEPRCRIT  22, 
DEPREV  E5. 
OERCLOOP  31, 
DERCCF+1 
1430  OERCOF-l 
1443  OBRCOF-2 
816  DERCGF-3 
1443  oeRCOF-4 
OERCOF-5 
117C  DERCOF-6 
DERCOF-7 
878  DERCOF-0 
OERCDFN 
1145  DERPTR 

DERTA8LL  31, 
DESASCNT 

1150  CESCBITS  23  , 
DESCOUNT  - 
DESGLOS  26, 
1189  DESIGBIT 
D6S  IGFLG 
961  OESLOnP  25, 


, 1501 
,1666 
,1674 
,1765 
,1622 
,1433 
,1575 
,1622 
,1526 
,1766 
,1733 
,1663 
,1655 
,1433 
,2252 
,1747 
, 1575 
0324 
0326 
0330 
,1642 
0036 
,3657 
,1761 
, 3 544 
0153 

0151 
0150 
0147 
0146 
0145 
0144 
0143 
0142 

0152 
0141 

,3635 

0004 

,2455 

1113 

,3636 

4742 

0271 

,2611 


143 
= 149 

117 

117 

119 

144 
141 

= 143 

117 
= 149 

= 153 

= 153 

= 144 

= 144 

= 141 

760 
119 
143 
= 99 

= 99 

= 99 

= 126 
= 1197 
822 
= 126 
818 
= 98 

= 98 

= 98 

= 98 

= 98 

= 98 

= 98 

= 98 

= 98 

= 98 

= 98 

820 
= 237 

817 
103 
597 
= 85 

= 85 

550 


16  143  645 

3 753  754 

5 196  639 

6 196  654 

15  196  775 

7 318  758 

20  141  711 

5 318  712 

5 149  873 

6 153  813 

7 153  895 

4 144  760 

14  144  760 

2 200  6.22 

3 200  665 

6 143  665 

12  328  866 

10  331  866 

9 331  866 

6 126  1172 

1 1176 

2 BOO 

3 126  1176 

1 819 


1 020 
3 81B  019 

I 818 

3 237 

1 256 

4 513  550 

1 595 

9 534  871 

1 550 

5 550  598 


DESRET 
OESRETRN  25 
OESRTRN  25 
DETENTCK  16 
DEXOEX 
DEX  I 
DEXl 
06X2 

CFRNT  40 

DGBF  20 

OGBITS  25 
CGCH6CK  25 
06CHECK2  25 
CGODO?  32 
OGCCDCHK  25 
OIDFLAG 
CIDFL0IT 
OIFEQ+0  11 
OIFEO+1  11 
OIFEO+2  11 
DIFEQCNT  E3 
CIFEOCOM  11 
OIFEOTAB  11 
DIFEQO  11 
DIFFALT  E7. 
OIMOBIT 
DIMOFLAG 
DINDX 
DIRAORES 
CISCVLVC  35, 
OISGRVER  15 
OISINOAT  21, 
CISPCHNG  36, 
DISPCHMN  31 
CISPDEX 
OISPEXIT  31 
OISPGYRO  15 
DISPLACE  41  , 
01 SPLAYB  35, 
01  SPLAYS  10, 
OISPNOT  36, 
0ISPN5X  37 
DISPRATE  20, 
01 SPRSET  21  I 
OISTEM 


1112  103 

,2457  545 

,2463  545 

,3071  1424 

0142  = 98 

0143  = 98 

0143  = 98 

0144  = 98 

,3420  448 

,3103  1486 

,3156  558 

,3425  563 

,3346  562 

2743  609 

,3010  55*^ 

0020  = 67 

^736  = 67 

,3475  1234 

3501  1234 

,3512  123i^ 

,3  500  111 

,3655  1236 

,3306  1230 

,3401  1231 

.1577  143 

4753  = 71 

0073  = 71 

0063  = 138 

6111  908 

.2375  635 

,2761  961 

.2315  893 

.2402  732 

,3440  B09 

1167  1C4 

,3426  809 

,3276  968 

.3111  432 

,3603  684 

,2000  ==  29 

,3016  740 

,31)  3 705 

,2257  1407 

,3052  900 

0122  = 96 


10  103  547 

1 544 

2 545 

2 1422  1423 
7 1251  1256 
1 1255 
5 98  1256 


2 1482 
2 558  562 

2 560  562 

2 563 

I 555 

4 219  900 

1 1230 

1 1230 

1 1230 

25  111  1236 

2 1234 
I 1230 

1 1235 

5 196  653 

73  238  1236 

6 1411 

2 1012 

2 628  650 

1 960 

2 891  892 

4 725  731 

1 810 

24  150  825 

5 794  814 

1 965 

2 431  432 

2 663  664 

3 1346  1374 

1 739 

2 705 
1 1407 

3 891  895 

3 416 


HEALTH  key:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS; 


UN  UNDEFINED 
BO  BADLY  DEF  INFO 


= DEFINED  BY  EQUALS  J DEFINED  BY  JOKER  CR  ERASE  ANYWHERE 

CD  DEFINITION  ASSOCIATED  WITH  CONFLICT  XX  MISCELLANEOUS 


MD  MULTIPLY  DEFINED 
TR OUBLF 
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SYMBOL 

DIVIDER 

OKALT 

OKOB 

DKKAOSN 

DKCMEGAN 

OKTRAP 

OLAND 

dlanox 

DLANOY 

DLAND2 

DLAYJC6 

DLOAD 

DLOAO# 

OLOAOCOD 

0LY2 

OMENFBIT 

DMENFLG 

OMOOE 

DMP 

DMPNSUB 

DMPNT  EMP 

OMPR 

OMPSUB 

DMPSUB2 

DMPl 

ONADROCR 

ONOUMP 

ONDUMPI 

ONDUMPl 

0NDUMP2 

DNECAOR 

ONEDUMP 

DNINOEX 

DNLADMMl 

ONLAOPOO 

DNLRALT 

ONLRVELX 

DNLRVELY 

ONLRVELZ 

ONLSTADR 

ONLSTCOO 

ONPHASEl 

0NPHASE2 

DNU 

DNRRANGE 


DEF 

16,2304 
16,3445 
E6,1411 
E6, 1405 
E6,1404 
E6,1403 
E5, 1634 
E5  ,1634 
E5,1636 
E5,1640 
00 ,2000 
6055 
7736 
7735 
5212 
4743 
0121 
7335 
7106 
7321 
0135 
7577 
711  2 
7131 
7575 
05,3536 
05  ,3734 
05,3721 
05  ,3746 
05,3750 

0336 
43  ,3066 

1332 
04,2471 

4755 

1336 

1333 

1334 

1335 
0333 
0333 

05,3522 

05,3530 

0337 
1330 


1414 

1429 

130 

130 

130 

130 

123 

123 

123 

123 

28 

996 

1092 

1092 

1113 

74 

74 

1032 

1025 

1031 

97 

1038 

1025 

1025 

1038 

986 

991 

990 

991 
991 
989 
290 
IC7 
237 
237 
107 
107 
107 
107 

99 

99 

985 

986 


2 1414 

1 1430 

2 215 

1 215 

2 215 

2 214 

11  123 

1 318 

1 318 

1 318 

1 1369 

1 1005 
1 1000 
1 1012 

2 1113 

7 581 

1 1071 

22  402 

1 818 

2 10  31 
1 1005 

25  1027 
1 10  30 
1 1005 
1 988 


1 


1417 

1^17 

799 


1369 

1151 

1258 


991 

290 

991 

991 

985 

263 

107 

234 

231 

107 

107 

107 


225 

968 

110 

107 


1386 

991 


989 

611 


SYMBOL 

DNRROOT 

DNTABLE 

CNTMBUFF 

DNTMEXI 1 

ONTMFAST 

ONTMGCTC 

ONTMl 

DNTM2 

CCACCFUN 

OOALARM 

DCALIGN 

DOCKED 

OOCKTEMP 

OOCKTEST 

0CCM6ASE 

COCORS 

DOCSM 

DOCSMl 

CCCAT 

OGDELVZ 

Dooes 

OCDESENO 

DODLOAD 

OOOLOAO* 

OCCNACR 

OOONCHAN 

CCDNPTR 

DODCWMM 

OOFSTART 

DCFSTRTl 

001  NT 

D0INT2 

DOIT 

DOLEM 

DCNBRC 

DQNEAOR 

DONE  YET 

OOPAX IS 

DGPIF 

OOPROC 

OOROTAT 

DORREPOS 

DCRROUT 

OCRSAPP 

D0RSAMP2 


DEF 

1331 

05,2441 

0340 

05,37)3 

06.2671 
0335 

0034 

0035 
20,3737 

5155 
15,3104 
20,3111 
0157 
20,2777 
37,3144 
14,3567 
23,3236 
23,3241 
07,2074 
37,3565 
25, 2646 
25,3073 
6463 
6147 
05,3531 
05,3577 
05,3623 
05,3505 
05,2472 
05,2477 
13,2036 
13,2060 
31,2251 
26,2460 

25.2671 
37,3651 
21,  3426 
20,3274 
31,2241 
40,3644 
17,2772 
25,2140 
25,3027 
25,2023 
25, 2027 


107 

206 

ICO 

988 

180 

99 

93 

93 

1496 

1376 

965 

1486 

1488 
1483 

706 

947 

1151 

1151 

247 

865 

55? 

556 

1012 

1000 

986 

986 

987 
985 
213 
213 
238 
238 
790 
581 
552 
666 

1472 

1489 
790 
463 

1445 

533 

555 

494 

494 


REFERENCES 

107 

986 
156 

987 
183 


1 989 

1 1492 


1 1479 
4 1470 

2 1483 

1 709 

1 947 

I 1150 
1 1150 
1 247 

1 866 
1 550 

I 556 

1 1009 

2 1C09 


1 986 

2 1 55 

1 220 
2 219 

2 238 

1 238 

1 791 

1 581 

1 552 
1 866 

2 1472 

1 1489 

) 789 

2 462 
2 1445 

1 189 

2 555 

1 494 


SYMBOL 

OOR  START 

DOSHl FT 

DOSKIP 

OOSSHFT 

OOSTORE 

OOSUBLST 

COSWITCH 

DOT 

DOTERM 

DOTICK 

DOT  INC 

OOTIXBR 

DOT  PER 

DOTRET 

COTSUB 

OOTSWFMX 

D0T6R  UPT 

DOUPLK 

OOVLOAD 

DOVLOAD'X 

DOWoo 

OOWeo  1 

OnWNENT2 

DOWNFLAG 

DOWNGTS 

DOWNTELM 

OOWNTORK 

001 /NFT+ 

0P(-22» 

DP-«01 

CPAGREE 

OP  6-14 

DPBIT14 

OPOATl 

DPDAT3 

DPHALF 

DPI  NCOM 

DPINOKM 

DPINSF 

DPINSF2 

0PINSF4 

CPIPAY 

DPIPAZ 

CP  LI 

DPL3 


DEF 

05,2726 

21  ,3536 
17,3037 
00  ,2322 

6365 

05,3677 

11,343* 

7334 

40,3642 

22  ,3441 

0136 
01,2425 
22  ,3622 

0137 
71  61 

3'^,3757 
17,2117 
40  ,2575 
6466 
6471 
11,3714 
11,3742 

10,3555 

5516 

20.3712 
05,2000 
F6 ,1513 
20,3730 
27  ,3761 
35,3650 

7260 
26,241* 
01,3500 
20,2037 
ni  ,2320 
23,2521 
40  ,3165 
40,3173 
40,3150 
40,3175 
40,320? 
E5  ,1522 
E5,1526 

30.3713 

30.3714 


217 

147* 

1446 

1049 

1008 

988 

1232 

1032 

462 

718 

97 

1082 

723 

97 

1^27 

920 

1397 

407 

1012 

1012 

1238 

1238 

1366 

1367 
1496 

29 

133 

1*96 

1275 

686 

1030 

488 

1125 

295 

298 

1094 

436 

437 

436 

437 
437 
129 
129 
918 
91  8 


REFERENCES 

I 217 

1 1445 
1 1049 
1 997 

1 987 

2 1231  1232 

1 1005 
1 462 

1 718 

7 97  1033 


1 


3 1033 
i 914 

1 156 

2 406  407 

1 1009 

1 ICO9 

2 1231  1236 

2 1238 

3 1356  1361 

04  210  1358 

2 1483 

3 195  985 

7 133  1462 

2 1492  1493 

1 1270 

3 682 

2 485  487 

1 1125 

1 295 

1 297 

355  766 

437 
436 

*34  437 

434 
434 
387 
387 
918 
918 


12 
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OEFINEC  BY  EQUALS 
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J DEFINED  BY  JCKER  CR  ERASE  ANYWHERE 


MISCELLANEOUS  TROUBLE 


MC  MULTIPLY  DEFINED 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINAR 


6Y  NASA  2OZ1112-0C1 


17:53  OECo  19,1969 


PAGE  1514 


SYMBOL  TABLE  LISTING,  INCLUDING  OEfIMTICN,  HEALTH,  PAGE  OF  DEF,  « OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REFo 


SYMBOL 


DEF 


REFERENCES 


DEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


DPL5 

OPL7 

0PL9 

DPMOOE 

OPOSMAX 

OPOUT 

DPPOSMAX 

DPS  BURN 

OPSFLI  TE 

DPSTHRSH 

OPSVEX 

OP  TEST 

OPTESTl 

DPZERO 

DPO 

DPI 

DPl/12 

DPl/2 

OPl/20 

OPl/4  ■ 

OP1/4TH 

OPl/e 

OPIM  IN 

DPIOUTSF 

0P2(-3) 

0P2(-4) 

DP2/3 

DP20UTSF 

DP30UTSF 

OP9/10 

DQUARTER 

DRDOT 

ORFDB 

ORFTB  IT 

ORFTSUe2 

ORIFT/ON 

DRIFT  B IT 

ORIFTDFL 

DRIFTER 

oriftflg 

DRIFTI 
DRIFTO 
DRIFTSU6 
ORIFTT 
CR  IVEGN 


30.3715 

30.3716 

30.3717 

10.3717 
473Z 

40,2757 
23,2531 
E6, 1747 
20  ,2526 

32.2000 

33.2001 
Rl,2261 
41,2303 
12  ,2006 

0036 
0040 
15  ,2465 
12,2004 
33,2765 

12.3765 
23,  2513 
C7  ,2621 
26,2121 
40,2744 
27,3763 

27. 3765 
04,3227 
^C,2751 
40,2753 
04,3014 

12.3765 
E4,1736 
20,3656 

4735 
06,3502 
17,3447 
4744 
0312 
0116 
0036 
E5,15C4 
E5, 1502 
06  ,3462 
E5,1442 
21, 3424 


918 

918 

918 

1393 

1089 

422 

1094 

132 

1479 

40 

39 

412 

413 
1239 

935 

935 

252 

1130 

874 

1239 

1094 

261 

343 

422 

1275 

1275 

1239 

422 

422 

1179 

1239 

120 

1495 

66 

334 

1455 


68 

129 

129 

334 

129 

1472 


1 918 

I 918 
1 918 

3 445 

3 422 

9 302 

1 1479 

1 780 

2 749 

4 412 


1 251 
5 1130 
1 873 
3 1193 


1393 
70  8 


7 37 

1 254 

1 341 

1 419 

1 1272 
1 1266 

3 1220 

2 419 

1 419 

4 1171 

2 1225 

4 121 

1 1495 

3 167 

1 338 

I 1455 
7 734 

1 737 

3 1489 
3 858 

1 377 

1 379 

3 330 

1 378 

I 1472 


1239 

1145 


1239 

1177 

84] 

13C7 

15C1 


OSKYFBIT 

OSKYFLAG 

DSLV 

DSMAG 

OSMSK 

DSPA 

CSPA6 

OSPABC 

OSPABORT 

OSPALARM 

OSPB 

DSPC 

nSPCACR 

DSPCNT 

CSPCOMl 

DSPCnM2 

0SPC0M3 

OSPCOUNT 

DSPDCEND 

CSPDCGET 

CSPDCPUT 

OSPOCWDl 

DSPDC2NR 

DSPDECNR 

OSPDECVN 

DSPCECWD 

DSPDELAY 

CSPOPDEC 

DSPFLG 

OSPFMEM 

OSPIN 

OSPINl 

DSPLAY 

OSPLIST 

OSPLOCK 

OSPLV 

OSPLYALT 

DSPLYMSK 

CSPLYTOT 

DSPMM 

DSPMMJB 

OSPMMJOB 

OSPMMTEM 


0011 
0114 
4735 
0113 
40,3432 
0142 
40,3434 
41,2367 
41,2362 
41  ,2355 
4227 
40,3454 
41,2375 
41, 2402 
16,2211 

0775 
41,2373 
41  ,2407 
41,2415 

0776 
41,2570 
41,2531 
41  ,2541 
4C,3267 
40,3322 
40,3316 
40,3342 
40,3262 
40,3743 
40,3025 

1067 

41,3400 

40,3356 

40,3403 

06,2047 

1042 

1011 

41,3440 

4750 

20,2113 

20,2266 

04,2622 

40,3577 

40,3577 

0140 


449 
416 
416 
416 
459 
449 
416 
^16 
1^05 
101 
416 
416 
416 
101 
41  9 
418 
418 

445 

446 
44  6 

447 
445 
705 
427 

1364 

444 

448 
648 
159 
102 
101 
647 

1411 

296 

1407 

461 

462 
L2ti6 

97 


36  173 

3 448 

1 1330 

2 448 

2 448 

2 448 

1 410 

1 410 

1 410 

3 459 

8 410 

1 410 

1 410 

1 1405 

7 159 

3 416 

2 416 

1 416 

66  160 

4 419 

I 418 
1 419 

4 446 

3 425 

4 423 

4 419 

1 705 

1 410 

3 1357 

1 411 

5 401 

2 448 

1 159 

6 224 

12  224 

1 450 

2 1406 

1 295 

1 1407 

1 472 

2 461 

1 1266 
2 462 


DSPMSK 

OSPOCTIN 

CSPCCTWO 

DSPOFF 

OSPOPTN 

OSPCUT 

OSPOUTSB 

OSPRNC 

OSPPRLOS 

DSPSCAN 

DSPSFNOR 

DSPSIGN 

OSPTA0 

OSPTEMX 

DSPTEMl 

CSPTEM2 

DSPV6N79 

DSPWDRET 

DSP2DEC 

DSP5068 

DSP6e 

DSO 

OSOSUB 

OSREL 

OSRUPTEM 

DSRUPTSW 

DSU 

DT 

CT/DELT 

DT/TAU 

DT/2 

DT/2C0MP 

0T/2MAX 

DT/2MIN 

DTDECAY 

OUMMYAD 

dummy  JOB 

OUMPCNIC 

OUMPLOC 

CUMPRPRA 

DUMPTFF 1 

DUMPTFF2 

OUNFVLI M 

DV/SC 

CVBYCnSM 


4757 
40,3446 
41  ,3410 
05,33C5 
15,3413 
06,2063 
06,2024 
40,3251 
40,2000 
06,2032 
41  ,2564 
40,3234 
1022 
1 050 
1044 
1047 
07,2626 
0144 
40  ,3327 
43,2345 
43,2326 
00,3174 
00,3300 
0141 
0073 
1310 
7010 
67,1715 
30,3765 
22  ,3121 
E4,1475 
13,3317 
13  ,34  06 
13,3404 
36  ,2004 
04,2144 
01,3207 
27,3427 
0336 
27  ,3465 
27,3550 
27,3645 
30,37  55 
7641 
30,3571 


448 

449 
447 
224 
970 
159 
159 
445 
301 
159 
410 

445 
102 
102 
1C2 
102 
262 

97 

446 
273 
273 

1 069 
1072 
97 
95 
106 
1022 
153 
920 
368 
1 15 
1211 
1212 
1212 
3P 
231 
1110 
1264 
99 

1 266 
127C 
1271 
920 
1039 
916 


1 447 

I 447 
3 410 

1 224 

3 970 

2 158 

2 159 

I 445 

1 301 

2 159 

1 419 

4 445 

48  158 

7 102 

32  102 

12  102 

3 257 

3 445 

1 427 


444 

971 

162 


446 

1373 

703 

970 

383 

262 


10 


1 273 

1 1007 
5 1069  1077 
it  A48  449 

5 159 

157  223 

1 1005 
7 153 


895 


1 


013 


11 


367 

115  1236 
1 1212 
2 1211  1212 
1 1212 

1 235 

2 215  1109 


1 914 

2 1039 

4 915 
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= DEFINED  BY  EQUALS 


CD  DEFINITION  ASSOCIATED  WITH  CONFLICT 


J DEFINED  BY  JOKER  CR  ERASE  ANYWHERE 


MISCELLANEOUS  TRCUBLE 


MO  MULTIPLY  DEFINED 
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SYMBOL 

OVCNT  P 
OVCNTRl 
OVCNTSET 
OVeCTR 
DVLOS 
OVMAXl 
DVMAX2 
OVMQN 
OVMCNCON 
OVNORM 
DVNOPMCT 
DVOVF 
OVOVSUB 
DVPREV 
0VSI6N 
OVTHR  USH 
OVTOTAL 
OVXSC 
DWNRPTBB 
OXCOMP 
OXCR  IT 
DXCR  IT  + 1 
OXERROR 
OYDOT 
OYERROR 
OYNMDISP 
OZOOT 
OZERPCR 
01/102A 
01/128 
01/1  6 
01/256 
01/32 
0 1/A 
01/ 6A 
01/8 
021 

029«9SEC 

060R98IT 

060R9FLG 


DEF 

E7,1515 
E7,1570 
23,2323 
0010 
EA  ,1702 
3A, 2063 
3A  ,2065 
33,231A 
36,2554 
CC,2505 
0137 
00,2405 

20.3002 
E7, 1575 

0136 

1250 

E7,1507 

7433 

4062 

12,2155 

0124 

0125 
E6 ,1446 
E4, 1740 
E6 ,1450 
36,3365 
E4, 1742 
E6 ,1452 
04,3010 
04,2776 
04  ,3004 
04, 3012 
04,3006 

04.3002 
04,3000 
04,2774 
E6,1704 
36,3146 

4752 

0072 


REFERENCES 


149 

859 

856 

1142 

118 

637 

637 

856 

734 

1054 

97 

1051 

1484 

143 

97 
1C5 
149 

1035 

156 

116« 

98 
98 

131 

121 

131 

752 

121 

131 

1179 

1179 

1179 

1179 

1179 

1179 

1179 

1179 

136 

743 

71 

71 


1 1138 
4 317 

1 639 

1 639 


E E6,1751 
E/BKCALL  04,2562 
6/CALL  04,2601 
E/JOBWAK  04,2615 


134 

372 

373 

374 


3 1053 

6 1051 
11  10  5 3 

5 1481 

4 643 
10  1051 

7 105 

6 149 

2 1034 
1 155 

1 1169 

2 318 

9 131 

4 121 

7 131 

2 751 

3 121 

7 131 

1 1188 
3 1172 

2 1185 

3 1173 
7 1179 

4 37 

5 1168 

1 1194 

2 728 

10  238 

17  1427 


1C62 

1064 

1487 

644 

1068 

856 

856 


619 

1427 

841 

144C 

752 

642 

1440 

lies 

1192 

1179 

1229 

1192 

1194 


1236 

1502 


SYPeCL 

E/PROG 

E/SWiTCH 

EARSPH 

EARTCNTR 

FARTHGCN 

EARTHL 

EARTHLOC 

EARTHMU 

EARTHMX 

EARTHMXX 

EARTHPAD 

EARTHR 

EARTHR# 

E6ANK 

EBANKSAV 

EBANKTEM 

E6ANK3 

EBANK4 

EBANK5 

EBANK6 

EBANK? 

e6UF2 

6CC 

ECOUh 

eCDUWL 

ECCUWUSR 

EOCP 

EDQT 

EDCTP 

EDOTO 

EOOTR 

EDOTSQ 

EORIVEX 

ECRIVEY 

EDRI  VEZ 

EE 

EGRESS 

E IGHT 

EIGHTEEN 

E JSCAN 

EJl 

EJ2 

EL 

ELBIAS 

ELCALC 


DEF 

04.2000 
04,2577 
11 ,3414 
14,2514 
22,3527 
06  ,3761 

06.2000 
27  ,2022 
26,3743 

0051 

22,3367 

37,2420 

37,2447 

0003 

1067 

1071 

5007 

4741 

5014 

5015 

5016 
1166 

E5,1751 
66  ,1645 
30,3752 
E6,1645 
0023 
66,1427 
E6  ,1427 
66,1436 
E6,1437 
66  ,1736 
E6, 1763 
66,1764 
E6  ,1765 
13,2504 
E5  ,1772 
4750 
33,2437 
01,3121 
01,3172 
01,3202 
1345 
1356 
35,2714 


26 

372 

1231 

930 

719 

1141 

29 

44 


717 
382 
38  2 
92 
102 

103 
1093 
1093 
1091 
1093 
1091 

104 
126 

137 
920 
] 37 

92 

134 

131 

131 

131 

134 

138 
138 
138 

1130 

127 

1093 

863 

no7 

1109 

1109 

108 

108 

669 


REFERENCES 
2 372 

1 1230 

1 719 

2 1134  1 
1 1141 

1 775 

2 1134 

4 1137 
I 716 
1 382 


1136 

1140 


377 

214 

1348 

213 

225 

278 


10  37  2 

3 126 

3 137 

1 904 

3 137 

14  443 

2?  131 

4 1427 

5 131 

2 131 

3 1454 

5 138 
1 1410 
1 1410 
1 1130 

6 127 


862 

1104 

UC7 

1109 

319 

802 

672 


390 

1478 

1364 

1364 

883 

885 

1425 

1470 

952 

373 

1194 

920 

913 

1282 

1502 

1430 

1465 

1433 

1455 

1411 


1107 

1108 


SYMBOL 

ELEACH 

ELEPS 

ELEV 

ELEVEN 

ELEX 

ELICUMMY 

ELINCR 

EL INCRJ 

ELOOPF I N 

ELRCODE 

ELRCODEl 

ELVDUMMY 

ELVIRA 

ENA6LFT6 

ENO-ALIG 

EN0-E3 

END-E4 

END-E5 

ENO-66 

END-E7 

6N0-e7oD 

ENC-£7al 

END-E7o2 

END-e7«3 

END-*67o4 

EN0-£7o  5 

ENC-IN/M 

END-UE 

ENOALL 

ENDALM 

ENOBALL 

ENDBLFF 

EN06SUB1 

ENDCHKG 

ENDDAPT4 

ENDDOT 

ENOOPOEC 

ENDCPUSH 

ENDEC  VN 

ENDEXT 

ENDEXTVB 

ENOFINO 

ENDHMSS 

ENDIDLE 

ENDIMU 


DEF 

11  ,2403 
35,3646 
£4,1656 
4760 
35,3171 
F7,1644 
£7,1554 
E7,1446 
43  ,3464 

04.3356 
40,2156 
E7,1647 
E7,1444 
17,2075 
E7,163P 
E3,1777 
E5 ,1400 
E5,1774 
E6,1774 
67,1777 
67,1745 
£7 ,1747 

4000 
E7,1630 
E7 ,1777 
£7,1655 
E7,167? 

1377 
40,2263 
4153 
26,2352 
4303 
40  ,3577 
37,2366 
5270 

7210 

40,3043 

6553 

40.3356 
5472 
5472 
5160 

42,3606 

4207 

07,3622 


REFERENCES 


816 

686 

117 

1089 

672 

151 

151 

142 

1281 

1332 

401 
151 
142 

1 396 
150 
113 
120 
129 
139 
154 
1 54 
154 
154 
154 
1 54 
154 
144 
108 

402 
450 
482 
46C 
461 
381 
1 91 

102  7 
427 
1014 
447 
1364 
265 
1099 
440 
459 
13J9 


816 

669 

196  672 

471  1463 
669 


2 151 

4 151 

5 799 
2 1281 
1 1331 
I 400 

3 151 

5 142 

1 1396 
3 150 


152 

600 

816 


152 

815 


I 435 
1 1014 
I 448 

44  209  1386 

5 269  275 

4 1101  1105 

1 1360 
3 1303  1308 
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CO  DEFINITION  ASSOCIATED  WITH  CONFLICT 


J DEFINED  BY  JOKER  OR  ERASE  ANYWHERE 


XX  MISCELLANEOUS  TROUBLE 


MD  MULTI  PLY  DEFINED 
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GAP: 

SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  OEF , 


OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REF. 


SYMBOL 

ENDINST 

ENDINT 

ENOI  T 

ENDJASK 

ENDJOei 

ENOLL JOB 

ENDLRF 

ENDLRV 

ENDMANUV 

ENOMANUl 

ENOMARK 

ENDMARKS 

ENOMAXOV 

ENOMODE 

ENOMONDO 

ENONMTST 

ENONUM 

ENDNV  eSY 

ENONVSBl 

ENOOFJOB 

6ND0UT 

ENOPASTE 

ENDPINBF 

ENDPl  NSl 

EN0P1NS2 

ENOPOS 

ENOPRCHG 

ENDP76 

ENDRADAR 

ENDRDLO 

ENORELDS 

ENDRET 

ENORMOCF 

ENDRGLL 

ENORODAT 

ENORiJWT 

ENDRR029 

ENDRRMON 

ENORSTRT 

ENDRTCUT 

ENDRUT  IN 

EN0R03 

EN0R29R0 

ENDSAM 

END  SCALE 


OEF 

A217 
13»2631 
10,3354 
17, 3273 
01  ,3104 
31,3431 
34,3617 
33,3620 
26,2200 
26,2201 
5472 
07,2317 
CO  ,2624 
07,3677 
41,3373 
40,2247 
40,2257 
04,2641 
41,3625 
5155 
10,3313 
4143 
4512 
40,3737 
41, 3750 
33  ,3646 
Cl  ,2766 
13,2331 
25,3551 
40,3024 
40,3550 
10,3336 
4616 
22  ,3226 
41,2320 
41,3530 
24  ,3476 
06,3140 
05,2637 
41,2622 
41,2255 
01  ,2247 
24,3501 
14,2562 
40,3077 


459 

1203 

1361 

1450 

1107 

8C9 

386 

886 

478 

478 

1346 

254 

1057 

1320 

443 

402 

402 

468 
458 

1099 
1361 
44  3 

469 
475 
473 
8B8 

1103 

713 

569 

423 

454 

1361 

529 

371 

413 

452 

611 

169 

215 

419 

434 
297 
611 
931 

435 


FEFEPENCES 

6 404 
1 238 
1 1358 
1 1450 
1 1099 


2 470 

2 254 

2 1057 
2 1320 

1 443 

2 402 

1 402 

1 471 

158  230 

2 1362 


2 1102 
2 711 

2 541 

1 427 

1 460 

5 1356 


456 

610 

189 

219 

42  8 
441 
297 
610 
930 

43  5 


ENDSPM IN 
ENOSPMM 
ENDSPDCT 
ENOSTATE 
ENDSTEER 
ENCSUMS 
£NDS40o9 
*79  ENDT( X) 
1364  ENDTASK 
ENOTESTl 
1059  ENOTFF 
ENDTNCN 
6NDTNON2 
ENDTPUSH 
E^OTSLC 
BNDVOAT 
6N0VLCAC 
1476  ENDVPUSH 
ENDVXV 
ENOW 
EN020EC 
END2900D 
ENEMA 
ENGI NOFF 
1109  ENGINCFl 
ENGINQF2 
550  ENGIN0F3 
ENGI NCF4 
ENGOFF 

1363  ENGOFFOT 
ENGCFF 1 
ENGDFTSK 
ENGONBIT 
ENGONFLG 
611  ENTER 

ENTERDAT 
ENTER JMP 
ENTERGR 
ENTBRUV 
ENTBX IT 
ENTMICl 
ENTM1D2 
436  ENTPASHl 


DEF 

40,3112 

41,3407 

42.3451 
04,2632 

40.3451 
11  ,3606 
36,3652 
43,3152 
27,2725 
27,3754 

5236 
37,2270 
27,3642 
06,2266 
06,2306 
6555 
90,2212 
33,3454 
6514 
6543 
7003 
E5 ,1642 
40,3341 
32,2772 
05,2763 
36,3551 
36,3561 
36,3555 
36,3570 

36.3565 
14,2347 
E7 , 1644 
14,2402 
36, 3546 

4745 

0123 

41,2002 

07,2073 

40,2157 

17,2445 

17,2500 

0136 

13,3572 

13.3566 
41,2012 


*27 

461 

449 

1235 

756 

293 

771 

1274 

1115 

379 

1271 

166 

167 

1014 

1046 

662 

1013 

1014 
1020 

122 

446 

609 

218 

755 

755 

755 

755 

755 

645 

154 

846 

755 

74 

74 

408 

247 

401 

1*39 

1440 

408 

1216 

1216 

408 


REFERENCES 

2 436 

I 447 
437 
468 


1 1234 

1 1264 

1 1274 
4 223 

3 375 

3 1271 

1 166 
1 166 

2 lOlA 

1 1046 

3 881 

2 1015 


609 

826 

755 

232 

846 

727 

737 

840 

154 

846 

2*2 

176 


1 401 


1122 

390 

1273 


1071 

884 


10 


1439 

A09 

1 1216 
1 1216 


SYMBOL 

FNTPASO 

ENTRET 

ENTSET 

EOURPERM 

EPHEM 

EPHEMl 

EPSFDUR 

EPSILNl 

EPSILON 

EPSI LONL 

EPSILGNT 

BPSSMALL 

EPSI 

EPS2 

ERAC 

ERAOFBIT 

ERACFLAG 

ERADM 

ERASCHK 

ERASCONl 

ERASC0N2 

ERASC0N3 

ERASC0N4 

ERASC0N5 

ERASC0N6 

ERASER 

ERASI  0 

ERASLOOP 

ERASZERO 

6RCNT 

ERCOM 

ERCOMP 

ERCON 

ERCCUNT 

ERE  STORE 

EREXITl 

ERMINUS 

ERPLUS 

ERROR 

ERRORS 

ERRTEST 

ERTHR 

ERTHRVSe 

ERVECTOP. 

ESCAPE 


DEF 

41,2035 
0136 
4J ,3603 
E7,}670 

15.2000 
05,20CC 
35,3652 
34,2075 

0155 

E‘^,1763 

E4,1576 

27,2723 

27,2405 

27,2407 

04.2000 
4737 
0021 

E7,1672 

43,336* 

43,3257 

43.3260 

43.3261 
43  ,3262 
43,3270 

5007 
10,3472 
5011 
43,3414 
0007 
0117 
40  ,3721 
E5,1563 
40,3733 
1365 
1360 
32,2543 
40,3713 
40,3716 
40  ,3646 
43,3304 
17,3361 
37,2431 
37,2401 
E5 ,1404 
0136 


REFERENCES 


457 

152 

31 


666 

637 

1488 

126 

116 

771 

761 

762 
45 
67 
67 

1*6 

1280 

1278 

1278 

1278 

1278 

1278 

1278 

1364 

37 

1280 

195 

96 
475 
129 
475 
108 
108 
577 

474 

475 
474 

1276 

1454 

382 

382 

128 

97 


981 


2 457 

1 152 

1 979 

2 51 

1 675 

1 645 

5 1480  1480 

3 126  1189 

2 1170 

1 771 

2 761  771 

2 761  771 

1 1133 


5 659 

5 146 

I 1279 
1 1280 
1 1280 
1 1280 
1 1280 
1 1281 

3 1280 
1 1357 

1 991 

4 1200 

2 195 


1281 

1281 

475 

382 


7 *71 

1 475 

8 378 
I 474 

3 109  1278 

11  108  1281 

1 575 

I 474 
1 400 

I 1278 

1 382 

2 385  390 

5 128  382 

4 1078  1079 
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SYMBOL  TABLE  LISTiNGi  INCLUDING  DEFIMTICN,  HEALTH,  PAGE  OF  OEF,  # OF  PEFS,  PAGF  OF  FIRST  REF,  PAGE  OF  LAST  REF« 


SYMBOL 


SYMBOL 


DEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


e SCAPE2 

EST ICACR 

ESTIMS 

ETPIBIT 

ETPIFLAG 

E X8RAK 

EXOSPRET 

EXECBANK 

eXECTEMl 

EXECTEM2 

EXGSUB 

EXIT 

EX  ITEM 

E XI TSPGT 

EXITVR 

EXITVRl 

E XNORM 

EXOVFLOW 

EXTLOGIC 

E XTVBACT 

EXTVSCHK 

EXTVBl 

EXTVERBS 

EXVERT 

EO 

EOi 

E02 

El 

£13^5678 

E2 

E2DPS 

E3 

E3J22R2M 

E32C31RM 

E7aveRLA 


37,2500 
^7A5 
00A6 
31,3316 
10, 2621 
5163 
0061 
0062 
31  ,3275 
67A6 
0114 
31  ,3273 
30,2771 
30,3002 
31,3324 
31,3407 
31  ,3212 
1043 
07,2006 

23.2000 

43.2000 
31 ,3404 
E7,1676 
E4, 1630 
E4,1636 
£7,1700 
43,3375 
E7,1702 
E7, 1621 
E7,1704 

1347 

1350 

£7,1471 


807 

13'52 

1099 


807 

1019 

96 

606 

644 

844 

807 

808 
805 
1C2 
245 

32 

36 

808 

147 

117 

117 

147 

1280 

147 

151 

147 

108 

106 

142 


2 1078 
2 376 

2 376 

5 663 

1 794 

5 209 
8 109  7 

6 1007 

4 non 

1 794 

1 997 

7 431 

2 006 

1 844 

1 845 

1 794 

2 793 

19  224 

1 245 

1 272 

7 263 


1 1281 
I 147 
3 780 

1 1230 
1 1229 
3 142 


1079 

379 

672 

263 

1C99 

1105 

nc5 


F ( MASS! 

FACEREG 

FAIL- 

FAILODP 

FAILREG 

FAKEPRET 

FALTOF 

FALTON 


E7,1734 

20,2544 

0154 

20,3551 

17,3237 

0375 

5164 

4370 

4364 


145 
1479 
1365 
1493 
1450 
100 
1099 
465 
46  5 


12 


7 145 
3 1479 

8 1355 

1 1493 

2 1450 
213 

2 1097 


149 

769 

1356 


1373 

1107 


10  234  1368 


FAPS 

FASTCHNG 

FAZA 

FA2AB 

FAZABl 

FAZAB2 

FAZA83 

FAZAB4 

FAZAB5 

FAZAl 

FAZB 

FAZBl 

FAZB2 

FAZB5 

FAZC 

F8ANK 

FBANKMSK 

FBIASSUB 

FBR3 

FC 

FCADRMMl 

FCCUW 

FCOOD 

FCOLO 

FCCMPSET 

FOAl  X 

FCA  lY 

FCAIZ 

FOOT 

FCPS 

FEEDBACK 

FETCHZN8 

F6TCH2W0 

FE  XTRA 

FFTAGl 

FFTAGIO 

FFTAGll 

FFTAG12 

FFTAG13 

FFTAG2 

FFTAG3 

FFTAG4 

FFTAG5 

FFTAG6 

FFTA67 


36.2006 
31  ,3677 
23,2773 
23  ,3150 
23,3176 
23,3202 

23.3211 
23, 3221 
23,3230 
23,2777 
23,3072 
23  ,3075 
23,3123 
23,3130 
23,3136 

0004 

4350 

06,3652 

11,2504 

E7,1615 

04,2406 

30.2000 
E7,1465 
E7,1620 
31  ,2226 
E4,1744 
E4,1745 
£4,1746 

26.2006 

36.2000 
17,3100 

30. 3212 
05,3665 

4737 

4000 

4000 

4000 

4000 

4000 

4000 

4000 

4000 

6000 

6000 

4000 


38 

621 

1147 
1150 
1150 
1150 
1150 

1150 

1151 

1148 

1149 
1149 
1149 
1149 
1149 

92 


1222 

151 

235 

34 

142 

151 

789 

119 

119 

119 

52 

38 

1447 

907 

988 

792 

28 

28 


2 753 

9 790 

1 1149 
1 1151 
1 1150 
1 1150 
1 1150 

1 1151 

2 1151 

I 1148 

1 1149 

1 1149 

2 1149 

31  459 

2 1105 

3 336 
I 1236 

4 151 


1369 

337 

788 


234 

9C4 

142 

151 

789 

307 


1 1137 
1 749 
1 1446 
1 907 


1 


986 

789 

1286 

157 


1296 

1301 

1346 

40 

520 

1373 


1298 

1371 

598 

1451 

1374 


FFTAGB 

FFTAG9 

FHNM 

FIFPSOP 

FIFTYFPS 

FIGTIME 

FILCELV 

FILLED 

FILLER 

FINALBIT 

FINALDV 

FINAL  FLG 

FINOCDUW 

FINOGIMB 

FINOKEY 

FINDTIME 

FINDVAC 

FINCVAC2 

FINE 

FINEK2 

FINEONLY 

FINETIME 

FIN IMUDD 

FI PEDB 

FIREFCT 

FIREP 

fireor 

FIPSTIME 

FIRSTTME 

FIVE 

FIXCLPAS 

FIXOELAY 

FIXLOC 

FIXMIN 

FI XRANGE 

FIXROOT 

FIXY 

FLAGGUN 

FLAGOFF 

FLAGON 

FLAGOOOW 

FLAGORGY 

FLAGS 

FLAGWROO 

FLAGWRDl 


4000 
4000 
25  ,3602 
3^,2101 

34  ,2663 

35  ,2756 
E5,1460 
01 ,3372 
E7,1622 

4746 
00,2625 
0047 
30  ,3102 
27  ,2160 
07,2364 
01  ,3602 
5105 
01,2602 
01  ,2341 
43,2410 
14,3362 
4102 
37,2320 
E6  ,1600 
E6,1740 
16,3041 
17,2257 
12,2606 
27  ,3171 
4756 
40,2402 
5221 
0l2f 
20,3747 
40,2706 
00,3453 
27  ,2441 
22,3310 
35,3505 
35  ,3441 
E6,l  650 
32,3021 
13  ,3746 
0n74 
0075 


28 

28 

573 

637 

645 

670 

129 

1120 

151 

69 

1058 

69 

904 

487 

255 

1296 

1097 

1100 

298 

275 

94? 

383 

380 

135 

134 

1423 

1436 

1176 

774 

1080 

404 

1113 

96 

1497 

421 

1074 

76^ 

716 

681 

680 

137 

780 

1376 

65 

67 


1 443 

1 1396 
1 572 

I 645 
1 644 

1 129 

1 1119 

1 151 

3 1051  1057 
7 620  695 

5 766  904 

2 485  486 

1 255 

2 1296 

45  213  1384 

2 1097  1099 
1 296 


1 942 

3 381  1328 

1 376 

10  1454  1495 
7 1431  1461 


25  225  1422 

16  503  1305 

63  247  1498 

I 1493 
1 420 

3 1073 
1 764 

1 716 

1 680 

2 680 

6 137  914 

1 1375 

32  167  1407 

33  219  1307 


HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FCLLOWS: 


= DEFINED  BY  EQUALS 


J DEFINED  BY 


CD  DEFINITICN  ASSOCIATED  WITH  CONFLICT 
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SYMBOL 

FLAGWR02 
FLAGWR03 
FLAGWRCA 
FLAGWRD5 
FLAGWR06 
FLAGWRC7 
FLAGHRD8 
FLAGWRC9 
FLAP 
FLAPS  IT 
FLASHH?  21 
FLASHCFF 
FLASHON 
FLASHSUB  10 
FLASHV?  21 
FLAT  E6 

FLATEMP 
FLATOUT  21 
FLATDUTl  31 
FLAT0UT2  31 
FLATVAL  20 
FLESHLCC  10 
FLESHPOT  10 
FLGWRDIO 
FLGWROll 
FLGWRD12 
FLGWRD13 
F LI  P 

FLOGSUB  30 
FLPASSO  E7 
FLPAUTNO  E6 
FLPC 
FLPCBIT 
FLPI 
FLPIBIT 
FLRCS 
FLRCSBIT 
FLTRSUB  30 
FLUNDBIT 
FLUNO  ISP 
FLVR 
FLVRBIT 
FMAXODC  31 
FMAXPCS  31 
FORCEONE  20, 


OEF 

0076 

0077 
0100 
0101 
0102 
0103 
OlOA 

0105 
0216 
‘iTAA 

1 ,2022 
4433 
4427 
,3261 
,2030 
,1554 
0151 
,2327 
,2236 
,2240 
,3767 
,2000 
,2037 

0106 
0107 

0110 

0111 
4606 

, 2000 
,1623 
,1651 
0212 

4740 

0213 

4741 

0214 

4742 
,3474 

4742 
0175 
0210 
4736 
,200  2 
,2003 
, 2034 


REFERENCES 


80 

81 

81 

823 

466 

466 

1360 

823 

135 

1497 
791 
789 
789 

1498 
29 

1257 


159 

188 

138 

259 


6 276 

4 409 

3 1358 
1 82  3 

6 1455 
6 1489 
1 735 

1 789 

1 789 

1 1489 

1 1257 

2 356 


1376 

1366 

1445 


SYMBCL 

F0RCeV25  42, 
FORMULAl  17 
F0RMULA2  17 
FORMULAS  17. 
FCRTYONE  13 
FORVEL  E7, 
FORVMETR  E7, 
FCUR 

FOURSECS  27, 
FCURTEEN 


OEF 


24 


FP 


82 


823 

851 

151 

137 

840 


626 

843 

906 

733 

736 

827 

789 

789 

295 


E7 


1358 
136C 

1359 

1495 

1495 


1 2 57 
1479 


843 

846 


843 
826 

844 


FRANDRES  05 
FRCS2  36 
FRCS4  36 
FREEFBIT 
FREEFLAG 
FREER ET 
FRSTPAS  34 
FRSTZERO  20 
FSPAS0  IT 
FSPASFL6 
FSUBn  26 
FTHROT  31 
FT99999  30 

FUELNEED  E7, 
FULLAPS  05 
FULLOSP  41 
FULLOSPl  41 
FULLTIME  17 
FUNCTION  ee 
FUNCT2  21: 
FUNCT3  21 
FUNNYDSP  E7, 
FUNTEM 
FV  E4 

FVACCACR  01 
FWCOMP  31 
FWEIGHT  E7, 
FXADRS  43 
FXFX  43 

F2DPS»11  111 
F2CPSM31  31 
F20PS#32  32 
F2CPS*34  34, 


3603 
3536 
5546 
3651 
3446 
1701 
1677 
4751 
2536 
4317 
1467 
2000 
2020 
2016 
4751 
0014 
0144 
2644 
2752 
4742 
0005 
2014 
2000 
2057 
1666 
2000 

3672 

3673 
3520 
1750 
3246 
3251 
1666 
0157 
1461 
3774 
22  74 
1610 

3604 
3570 
2000 
2000 
2000 
2000 


43  9 
1457 
1^*57 
1459 
1213 
152 
152 
1C93 
767 
1067 
142 
29 
38 


REFERENCES 

2 439 
1 1456 
1 1456 

1 1459 
) 1206 

3 152 

2 152 

47  213 

1 766 

2 568 

5 788 

2 43 

2 751 

1 750 

1 960 

12  937 


897 

893 

1464 

1064 

790 

213 

768 


43 

471 

471 

1456 

133 

1467 

1467 

152 

1498 

115 

1300 

791 

151 

1283 

1283 

29 

34 


615 

214 
471 
471 
6 1457 
16  1466 
2 1466 


1 


15 


152 

1489 

115 

1 1297 

2 790 

7 151 

2 1284 
1 1284 

1 814 

2 39 

3 40 


1461 

1474 


317 

1490 

1230 


817 

780 


SYMBOL 

GICSMI 
G+N, AUTO 
GACC 

GAINAPPR 

GAINBRAK 

GAI NFLTR 

GAMCOMP 

GAMMA 

GAMPREV 

GAMRP 

GCOMP 

GC0MPSU8 

GCOMPSW 

GCOMPZER 

GCOMPl 

GCTR 

GDESELCT 

GOT/2 

GOTl/2 

GDUMPl 

GEAODR 

GEFF 

GENODV 

GENMARK 

GENMASK 

GENPL 

GENRET 

GEN  SC  L 

GEN  SCR 

GeNSHFT2 

GENSHIF  T 

GENTRAN 

GEOCOMPS 

GEO  IMUTT 

GEOM 

GEOMSGN 

GEORGEJ 

GEORGEK 

GE0STPT4 

GET.LVC 

GET+MGA 

GETABVAL 

GETAOSUV 

GETAZEL 

GETCAOR 


DEF 

E4,1716 
26,2261 
E5,1706 
E5  ,1466 
E5,1432 

30  ,3753 
11,2655 
E7,1477 
E7,1607 

OOlC 
E3  ,1471 
06,3433 
£3,1477 
06,3707 
06,3546 
E5,1736 
07  ,3617 
1 235 
E7  ,1562 

31  ,3421 

614] 
E4,1714 
00,2570 
10,3022 
0162 
E5,1434 
1142 
00,2346 
00,2277 
00,2224 
00,2214 
5544 
E5  ,1562 
37,2004 
04,3074 
E5 ,1672 
37,3107 
37,3111 
37,3025 
06,3741 
06  ,3725 
33,2217 
20  ,3246 
14,3735 
01,3517 


121 
479 
124 
122 
1 22 
920 
1224 
147 
143 
1132 
111 
333 

in 

338 

335 

124 

131P 

1C5 

149 
809 
999 
120 
1 056 
1356 
1365 
128 
104 
1C5C 
1040 
1047 
1047 
1371 
129 
375 
118? 
126 
391 
391 
390 
694 
694 
855 
1489 
951 
1126 


REFERENCES 

4 121 

3 478 

4 960 

1 122 

2 122 

1 914 

3 1223 

5 147 

7 144 

3 1120 

111 


24 


806 

1224 

1147 

645 

1132 

947 

332 

385 


6 331 

10  328 

1 960 

I 335 

10  124  961 

1 1313 

19  105  967 

5 149  876 

1 999 

4 121  842 

2 1055  1059 

4 1348  1361 
27  128  129 

4 517  524 

2 1050 

4 1048  1070 
1 1047 

1 1038 

4 299  1494 

3 386  387 

2 1180  1187 

11  126  1180 

2 389  390 


2 761 

1 682 
1 855 

3 950  951 

1 1 126 
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GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  OeC«  19,1969 
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SYMBOL 

GET  COMP 

GETOAT 

GETDT 

GETECC 

GETERAO 

GETGOBL 

GETINREL 

GETLMATT 

6ETMAXDT 

GETMKS 

GETNEWNM 

GETNOW 

GETPART2 

GETPft  10 

GETRANS 

GETROOT 

GETRPSV 

GETRVN 

GETRVN2 

GETULC 

GETVR  VGI 

GETVRVG2 

GETX 

GET22/32 

GET'fS 

GFACTM 

GIMBLBTS 

GIMLOCKl 

gl+noatt 

GLAMPTST 

GLINVERT 

GLOCKCHK 

GLOCKMCN 

GLOCKCK 

GLOKFA  IL 

GL0KF8  IT 

GMBORBIT 

GMBORVSW 

GMBLBITA 

GMBLBITB 

GMERGE 

GMODE 

GN/CCODE 

6NUFA2E5 

GNUR 


OEF 

41,2517 
C7  ,2063 
36,3741 
12,3720 
13,2464 
27,3177 
40  ,2324 
15,3524 
13,3344 
07,2202 
5427 
04,2752 

01.3542 
5423 

36,3662 
21,3302 
11,2627 
37  ,3326 
37,3363 
26,3333 
27,3113 
27,3115 
12  ,2767 
21,2551 

35.3543 
20,3105 
20, 3077 
23,3433 
40,3735 
C6,2507 
C6,2500 
06,2441 
06,2434 

5270 
0056 
4736 
4742 
0137 
21  ,3632 
21,3634 
07,3471 
E4,1501 
5001 
37,3527 
E7,1656 


REFERENCES 


418 

247 

758 

1194 

1130 

775 

403 

974 

1212 

253 

1292 

704 

1295 

1291 

756 

1467 

1224 

708 

709 
591 
774 
774 

1183 

896 

682 

1486 

1486 

1246 

475 

172 

172 

171 

171 

1P3 

70 

70 

76 

76 

1476 

1476 

1315 

115 

1090 

654 

152 


5 416 

4 245 

2 754 

1 1194 
1 1133 
1 774 

4 401 

1 9 70 

I 121  1 

3 249 

1 1291 
1 703 

1 1300 

2 1291 

1 756 


1 1224 

2 706 

1 708 

3 582 

1 774 

I 774 
3 1180 

3 682 

1 1481 

2 1482 

1 1245 
1 474 

I 172 


1 172 

2 1 71 

1 169 

4 172 

3 231 

1 776 

2 776 
I 1475 

1 1318 
1 115 


SYMBOL 

GNURVST 

GNUTFAZ5 

GNUV 

G0A60RT 

GCAGIN 

GCALMCYC 

GCANIOLE 

GOBAC 

G08ACK 

GOBAOUE 

G0B8 

GOBLTIME 

GCCH56 

GCCLOSE 

GOCUTDFF 

GCOSP 

GOOSPALM 

GCOSPR 

GCOSPRET 

GODSPRS 

GCDSPRSl 

GGDSPRl 

G00SPR2 

GCDSP2 

GOESTIMS 

GOEXTVB 

GCFLASH 

GOFLASHR 

6CFLASH2 

GCGOMARK 

GOGOPROG 

GCINT 

GOITER 

GOLOACLV 

GCLCC 

GOMANUR 

GOMARK 

GCMARKF 

GOMARKFR 

GCMARKR 

G0MARK2 

GCMARK2R 

GCMARK3 

GCMARK  3R 

GCMARK4 


DEF 

33,3474 
37,3523 
E7  ,1656 
32»3533 
10,3051 

41.2352 
10,3142 
13»3457 
35,3733 
11,3000 

4054 
E7,1511 
17,2115 
21  i3624 
36,3066 
10  ,2444 

41.2353 

10.2452 
10  ,2447 
10,2640 
10,2642 

10.2453 

10.2454 
10,2445 
37  ,2113 
43,2000 
10,2477 
10, 2636 
10,2501 
10,2406 
04,2230 
35,3372 
12,3415 
43,2422 

0705 

07,3741 

10,2330 

10,2334 

10.2353 
10,2350 
10,2337 
10,2356 
10,2342 
10,2362 
10,2345 


882 
854 
152 
826 
1364 
41  4 
1358 
1213 
743 
1226 
156 
149 
1396 
1476 
741 
1349 
414 
1349 
1349 
1353 
1353 
1349 
1349 

1349 
376 
263 

1350 
1353 
1350 
1348 

232 

679 

1169 

276 

1300 

1323 

1346 

1347 
1347 
1347 
1347 
1347 
1347 
13^7 
1347 


REFERENCES 

2 879 

2 P52 

1 882 
1 242 

1 434 

1 1358 

2 1213 

2 742 

3 1228 

1 155 

3 149 

2 1396 

2 725 

1 843 

20  40  8 

2 478 

4 751 
8 1347 
1 1349 


1235 

775 

727 

457 

939 

945 

1354 


2 1347  1350 


1 376 

1 410 

43  227 

2 749 
15  1347 

1 233 

2 672 
1 1189 


971 

754 

1353 


6 263 

30  1295 
1 478 

1 1364 
12  209 

6 272 

1 1364 


264 

1300 


1364 

1364 


210 

273 

253 


SYMBOL 

GOMARS 

GOMIOAV 

GOMOO 

GOMCVE 

GONXTBNK 

GOOCARG 

GOOOENO 

GOODEPSl 

G00DEPS2 

6000MANU 

GOODNEG 

GOODRAO 

GOPERFRS 

GDPERFS 

GOPERFl 

GOPERFIR 

G0PERF2 

G0PERF2R 

G0PERF4 

G0PERF4R 

GOPIN 

GnpINNER 

60PLAY 

GOPQQDOO 

GOPOOFIX 

GOPOST 

GOPROG 

6nPR0G2 

G0PR0G2A 

60PRnG3 

GOO 

GOOTRIMG 

GOREACAX 

GOSERV 

GOSHOSUM 

GOSLEEPS 

GOTANGLS 

GOTH 

GCTGERS 

GDTDGF 

GOTOGTS 

GOTOPOOH 

G0T0V56 

GOUT 

GOVNUPO  T 


DEF 

10  ,2331 
36,2202 
04,2224 
23,2111 
43,3707 

21  ,3457 
07,3656 
20,2617 
20,2635 

22  ,3?3^ 
20,3024 
25  ,3254 
10,2706 
10,2626 
10,2624 
10,2704 
10,2631 
10,2711 
10,2634 
10  ,2714 
43,2117 
25,3547 
10,3071 

5655 
04,2024 
36,3053 
05,2665 
05  ,2766 
05,2767 
05,277? 
41  ,3050 
21,3114 
37  ,3434 
33,2274 
43,3121 
10,2755 
32,263C 
6651 
6665 
6700 
17  ,2636 
6001 
6025 
E5  ,1714 
40,3353 


1347 

728 

232 

489 

1284 

147? 

1320 

1480 

1481 
?71 

1485 

56C 

1354 

1352 

1352 

1354 

1352 
1354 

1353 

1354 
265 
568 

1364 

1375 

226 

741 

217 

218 
21  B 
218 
431 

1464 

852 

856 

792 

1355 
606 

1017 

1017 

1018 
1442 

226 

598 


REFERENCES 

1 720 

1 233 

1 409 

3 1284 

2 1473 

4 246  1320 

1 1480 
1 1481 
1 365 


1 1484 
1 562 


10  501  1327 


478  51  5 

497  657 

923  969 

300 


20  266 
2 568 

1 1352 

1 243 

2 226 

2 725 

2 155 

2 232 

1 218 


243 

726 

156 

290 


1 432 

2 1464  1476 

1 854 

1 264 

3 1352  1363 
1 606 

13  1018  1085 
1 1017 
1 1017 
1 1434 

64  219  1329 

13  479  519 

3 959  961 

1 414 
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SYMBOL  TABLE  LISTING,  INCLUDING  DEFIMTICN,  HEALTH,  PAGE  OF  OfcF,  ff  OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REF, 


SYMBOL 


CEF 


REFERENCES 


REFERENCE  S 


SYMBOL 


DEF 


REFERENCES 


15 


21 


GOXOSP  10, 
GOXOSPF  10, 
GOXDSPFR  10 
GOXDSPR  10, 
GPMATPU  06: 
GRABGRAV  15 
GRAVEL  15, 
GREED 
GRP20FF 
GRP2PC 
GRP2SV0 
GRPAOFF 
GSAV 
GSCALE 
GSELECT 
GSHIFT 
GTMP 
GTS 

GTSCAOR 
GTSFIN  A2, 
GTSFINLC  41  , 
GTSFOLT  A2, 
GTSFOUTL  Al, 
GTSGO+ON  21 
GTSQAXIS  21, 
GTSORT  21, 
GTSTEMPS  E6, 
GUESS  27, 

GUESSBIT 
GUESSl^ 
Guessi  37, 
GUIOOURN  32 
GUIOINIT  3A, 
GUIDSUB  21, 
GUILDEN  21, 
GUILDRET  21, 
GVDETER  15, 
6WAKE  C7, 

GWAKE2  07, 
GYCOARS  14, 
GYRCOR  15. 
GYROAGRE  07, 
GYROBUSY  C7, 
GYROCMC 
GYROEXIT  C7, 


2330 
2334 
2353 
2350 
3140 
2721 
2601 
2714 
21AI 
3210 
1711 
366A 
1630 
3651 
3424 
7624 
0026 
3076 
2653 
2147 
3202 
2141 
2566 
3112 
3132 
3440 
173  6 
2020 
4752 
0034 
2255 
3261 
3343 
2421 
2434 
2527 
2561 
3365 
3325 
3156 
3027 
3337 
3360 
0047 
3530 


1364 

1364 

1364 

1364 

190 

961 

959 

961 

867 

1219 

127 

82B 

117 

822 

1314 

1038 

981 

1464 

1442 

307 

433 

306 

419 

1464 

1465 
1473 

133 

375 

68 

68 

379 

784 

034 

794 

795 

796 
958 

1312 

1311 

939 

963 

1311 

1312 
92 

1316 


269 
295 

190 
961 
959 
961 
867 
497 
127 

117 

2 eo4 

3 1313 

1 1005 
5 979 

1 1442 
1 1442 
I 433 
1 434 

1 419 

1 41^ 

1 1465 
1 1474 
13  133 


GYROFRAC  07,3620 
1382  GYROTKIM  15,2764 
297  GYT0B6TC  E5,1462 
G21  E6,1706 


1310 

962 

126 

136 


10 


701 

781 

607 


3 794 

2 960 

1 1312 
I 1212 
1 926 

1 962 

1 1311 
I 1311 
6 177 

1 1316 


H#GHCR4T 

FAFPAl 

HALF 

HALFARG 

HALFOP 

HALFREV 

HALFSEC 

HANOACR 

HANG2C 

HAPO 

HAPOX 

HAVEGLES 

HAVENCRM 

HAVEQUCT 

HBAD 

HEEAMANT 

HBEAMNB 

HCALC 

HCALCl 

HDOTOISP 

HEACTJET 

HFAI  L 

HFLSHBIT 

HFLSHFL6 

HH 

HIASCENT 

HIDESCNT 

HIDPHALF 

H ICPl/4 

HIENERGY 

H IGATASK 

HIGATCHK 

HIGATJOB 

HIGHCR  IT 

HIGHESTF 

HIGH4 

H IGH9 

HIMINCCN 

H inject 


E4,1477 
0131 
E7,1603 
4736 
E6,1746 
12,2004 
06,3723 
24,3121 
17,2622 
C6,2071 
B4, 1716 
E4,1517 
11,2002 
04,3126 
21,3202 
24,3620 

33.2002 
E4,1672 
E7,1534 
E7  ,1774 
67,1473 
16,3511 
33,3520 

4753 
0263 
E6 ,1  746 
66,1400 

20.2002 

22.2521 
23,2513 
12,3432 
22,2447 

33.2522 
33,3634 
65,1507 
22  ,3647 

7745 

7747 

42,3376 

22,3735 


115 
123 
143 
1093 
133 
1095 
6 94 
515 
1^41 
1 59 
118 
115 
688 
1182 
1466 
887 
41 
120 
149 
153 
149 
1430 
863 
85 
85 


1190 
668 
869 
868 
122 
822 
1092 
1092 
42  £> 
830 


115 

789 

639 

336 

1474 

933 

694 

513 

1440 

158 

118 

115 

771 

1182 

1466 

686 

890 

877 
149 
317 
120 

1430 

878 
617 
878 

1456 

214 

1479 

407 

1275 

1189 

870 

868 

122 

804 

1000 

247 

425 

834 


1236 

641 

1502 

1476 

1225 


823 

883 

1459 

1479 


HIPRIO 

HIRTHROT 

HI  SCALAR 

HISECON 

HITEMIN 

HITEMOUT 

HITEST 

HI  UNI TX 

HIUNITY 

HIUMT2 

HI  10 

HI5 

HI6ZEP0S 

HLIGHT 

HLITE 

HMEAS 

HMS  IN 

HMSOUT 

HOLD 

HOLDO 

HOLOW 

HPER 

HPERMIN 

HPERX 

HRCON 

hRCCNl 

HSCAL 

HST ILBAO 

HUGEOUOT 


10,2523 

4737 

000? 

42,3375 

ni23 

1006 

33.2516 
23,2521 

23.2517 
23.2515 
04,3353 

4350 

23,252? 

25,3620 

4747 

E7,I654 

42,3452 

42,3230 

0165 

66,1744 

E5,1734 

E4,1720 

E4,16nn 

64,1521 
42,3536 
42  ,3277 
33,2010 
34,3630 
21 ,31 77 


1332 

465 

37 

617 

618 
151 

438 

423 
1498 

134 

127 

n 8 
116 
115 

439 

424 
41 


1 1350 

1 755 

2 383  1020 

I 425 

3 438 

4 424  427 

1 492 

2 492 

4 492  522 

1 1331 
0 159  1264 

7 301  1275 


2 617  823 

8 151  886 

1 434 

1 419 

2 1^96 

2 1453  1457 
7 127  1149 

2 316  622 

6 116  723 

2 316  723 

2 438 


424 


1 877 

2 886 
1 1465 


IBNKCALL 
iC 

ICOUFAIL 
1243  IC0RK2 

lOAOO TAB 
lOACOTEM 
lOADlTEM 
I0A02T6M 
IDAC3TEM 
lOLEAOR 
IDLEF6IT 
1017  IDLEFLAG 
lOCC  lOLEMASK 
IDLERAOR 
I DLERETl 


4674 
E7,1655 
06,2703 
43  ,2223 
42,265C 

0142 

0150 

0151 

0152 
05,3357 

4745 

0161 

10,3011 

16,2155 

10,3302 


994 
145 
1 82 
269 
316 


1356 

1405 

1360 


167  1409 
771  774 
183 


1 221 
4 755 

7 734 

1 1360 
1 1405 


860 

846 


HEALTH  key:  NORMALLY  DEFINED  LNLESS  FLAGGEC  AS  FOLLOWS: 


= DEF  INEC  BY  EQUALS 


CO  OEFiNITICN  ASSOCIATED  WITH  CONFLICT 


J DEFINED  BY  JCKER  CR  EPASE  ANYWHERE 


XX  MISCELLANEOUS  TROUBLE 


MO  MULTIPLY  DEFINED 
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symbol  table  LISTlNGr  INCLUDING  OEFIMTICN,  HEALTH,  PAGE  OF  DEF,  # OF  REFSi  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  RFFe 


SYMBOL 

lOLESLEP 

lERASTST 

IFAILINH 

IFAILJMP 

IFAILOK 

I FLAGG 

I FLAGP 

I FLEGAL 

IG 

IGC 

IGNALG 

IGNALGRT 

IGNALOOP 

IGNAOSC 

I6NA0SR 

IGNFLAG 

IGNFLBIT 

IGNITE 

IGNITEI 

IGNI TI CN 

IGNYET? 

IGRET 

IGSAMEX 

IMEDIATE 

I MMEDRET 

IM0OES30 

IM00ES33 

I MPLBURN 

IMPULBIT 

I MPULSV^ 

IMUATTCK 

IMU6ACK 

I MUbAD 

IMUCAOR 

1 MUCAGE 

IMUCHK 

IMUCOARK 

I MUCOARS 

IMUCOARV 

I MUCOMP 

1 MUFAI  L 

IMUFINE 

IMUFINED 

IMUFI NEK 

IMUFINEV 


DEF 

10,3535 
6130 
05,3361 
Cei2755 
07, 3225 
13»3073 
13,3050 
10,2562 
E6,172A 
E5,  17A1 
32,3033 
32,320A 
22,3072 
E6,1A12 
E6,1A13 
0153 
A737 
36,3106 
36,3122 
36,2A32 
26, 2A25 
E7,1675 
27,2125 
01,3621 
10,3370 
1277 

1300 
36,3526 

A743 

0044 

^3,2733 

37,2005 

07,3630 

1301 
06,2565 
15,3635 
43, 2214 
07,2771 
<3,2235 
06,2000 
06,2703 
07, 3201 
07,3223 
43,2371 
43,2421 


1365 

999 

225 

183 

13C9 

1207 

1207 

1351 

136 

124 

780 
783 

781 
130 
130 

77 
77 
741 
74  2 
732 
' 732 
147 
486 
1297 
1362 
106 
106 
754 
69 
69 
283 
375 
1319 
106 
176 
977 
269 
1304 
269 
29 
182 
1308 
1308 
275 
275 


REFERENCES 

1 n55 
I 999 
1 218 
1 164 

1 1300 
1 1208 
i 1207 
1 1351 


1 783 

1 734 

1 734 

3 731 

2 732 

1 740 

1 741 

2 242 

1 732 

2 589 

1 486 

4 1296  1299 


754 

741 


741 


590 


67 


163  1324 
160  1402 
734 

734  757 

754  769 

263 

167  1319 
210  1319 
183 
945 
268 
269 
269 
328 
183 

275  1323 


969 


947 

270 


1308 

263 

275 


1313 


SYMBOL 

IMUF IN20 

IMUGDOO 

IMUMON 

IMUCP 

I MU0P2 

IMUPULSE 

IMUSE 

I MLSEBI T 

IMUSEFLG 

I MUSLLLG 

IMUSTALL 

IMUSUPER 

I MUVAR 

IMUZERO 

IMLZERCA 

IMUZEROK 

IMUZERQ2 

I MUZER03 

IMUZERR 

IMU2 

1 MU4 

IM30IN  IF 

IM30IMR 

IM33INI T 

INBOUND 

I NCAZ 

INCORPEX 

INCORPl 

INC0RP2 

INCORl 

INCORIA 

INCORIB 

INCORIC 

INC0R2 

1NC0R2AB 

INCGR3 

INCR 

INCRDCDU 

INOEP 

INDERASE 

INDEX 

INDEXES 

INDEXl 

INDEXLOC 

INDE  X2 


DEF 

07, 3201 
07,3627 
06,2172 
06,2622 
06,2643 
07,3314 
0007 
4744 
4744 
37,2315 
07,3707 
37,2000 
26,3435 
07, 2705 
07,2715 
43,2131 
07,2750 
07,2757 
37,2325 
37,2000 
37,2000 
05,3373 
05  ,3374 
5026 
27,3551 
15,2310 
E 7, 1674 
23,2533 
23,2745 
23, 2567 
23  ,2576 
23,2625 
23,2633 
23,2674 
23,2724 
23,2730 
01,2407 
22,3035 
E5,1765 
6211 
6151 
17,3134 
22,3765 
0130 
6167 


REFERENCES 


1323 
1319 
163 
178 
1 78 
1311 
66 
66 
1323 
380 
1322 
36 
592 
1302 

1302 
266 

1303 
1303 

380 

36 

36 

225 

225 

225 

1270 

952 

146 

1143 
1147 

1144 
1144 
1144 

1144 

1145 

1146 
1146 
1082 

367 

126 

1000 

1000 

1447 

1256 

97 

1000 


161 

183 

178 

275  1392 


1 178 

3 376  390 

12  210  963 

1 292 

2 587  588 

3 210  380 

1 1302 

1 266 
1 1302 

1 375 

2 44  375 

1 385 

1 214 
1 218 

2 215 

1 1269 
1 954 

5 146  1130 

1 592 

I 592 
I 1144 
1 1144 

1 1144 

2 1144 

7.  1145  1152 
1 1146 
1 1146 
1 1006 


224 


369 


2 368 
4 1176  1177 
1 1000 

1 999 

3 1446 
1 1255 

12  1000  1083 
1 1000 


SYMBOL 

IND JUMP 

INDWORK 

INOXYZ 

INERCONA 

INERCONe 

INERCONC 

INF  INAPO 

INFINBIT 

INF  INFLG 

INFINITY 

INFLIGHT 

INGTS 

ININDEX 

I NITA6I T 

INITALGN 

INI  TRY 

INI  TCDUVi 

INITDSP 

I NI TREAD 

INI TST 

INITV 

I NI  TVEL 

INITV  ELX 

INITVELl 

INI TVEL2 

INITVEL3 

INI TVEL4 

INITVEL5 

INITVEL6 

1 NI TVEL7 

IN1TWMX6 

INJTARG 

INLINK 

INLUNCHK 

INREL 

INRELTAB 

INT-A0RT 

INT/H 

I NT  BANK 

INTBITAB 

INTBIT15 

INTB15+ 

INTEGRV 

INTEGRVS 

INTEGRVl 


OEF 

6277 
6207 
16  ,3576 
20,3065 

20.3063 

20.3064 
12,3747 

6745 
0200 
12,3205 
23  ,2000 
E6,1632 
E6,1743 
^752 
0205 
15,3111 
30,3071 

10.3040 
25,3123 
34,2061 
12,3516 
11  ,2000 
11 ,2260 
11  ,2026 
11  ,2062 
n ,2105 
n ,2137 
11,2166 
11,2230 
11  ,2233 
26,3231 
32  ,3606 

0045 
11  ,3335 
0137 
40,2330 
11  ,3023 
13  ,3532 

13.3041 
13  ,3662 

0115 
0114 
13  ,3133 
13,3106 
13,3135 


REFERENCES 


1005 

1000 

1432 

1485 

1486 
1486 
U94 

79 

79 
1186 

32 
135 
1 3? 

80 
PC 

965 

904 

1356 

558 

637 

1191 

688 

692 

688 

689 

689 

690 

691 
691 
691 
589 
8 27 

92 

1231 

97 

403 

1226 

1215 

1206 

1213 

96 

96 

1209 

1208 

1209 


I 1000 
1 1421 
1 1480 
1 1480 

1 1480 

2 1194 

4 1180 

5 1183 

2 326 

9 1404 

5 1473 

2 965 

4 965 

1 965 

2 728 

1 1295 

6 557 

2 638 

3 1189 

2 676 

1 692 

1 688 

1 691 

2 689 

1 690 

1 691 

I 691 
1 690 

1 589 
1 828 

2 224 

1 1232 

23  402 

2 403 
1 1226 
2 1214 
1 1206 
2 1212 


1189 

1186 

1241 

1496 

1474 

966 

974 


644 

1190 

761 


96 

96 

238 

658 

1207 


1213 

1000 

1498 

1217 

783 


HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


= DEFINED  BY  EQLALS 


CO  DEFINITION  ASSOCIATED  WITH  CONFLICT 


J DEFINED  BY  JOKER  OR  ERASE  ANYWHERE 


XX  MISCELLANEOUS  TPCU8LE 


MO  MULTIPLY  DEFINED 


gap:  assemble  REVISION  131  OF  AGC  PRCGPAR  LUMINARY  BY  NASA  202Jn2-091 


17:53  DEC*  19,1969 


SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  OEF,  H OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  CF  LAST  RFFo 


SYMBOL 

I NTEGRV2 

INTEXIT 

INTFLAG 

INTFLBIT 

INTGRATE 

I NT  GRCAL 

INTIME 

INT  IN  I T 

INTI  NT 

INTINT2C 

INTINT3P 

I NTLOOP 

INTLZE 

INTMCTBS 

INTOTHIS 

INTPRET 

I NTPRETX 

I NTPRETl 

INTPRFT2 

I NTRSM 

I NTSTALL 

INTVAL 

I NTVEC 

INTVEL 

INTWAKE 

I NTWAKEC 

INTWAKEM 

INTWAKEU 

INTWAKEX 

INTWAKEO 

I NTWAKEl 

INTWAKLM 

I NTWAKUP 

I NTWAKLO 

I NTWAKIQ 

I NTY 

INTYPBI  T 
INTYPFLG 
INT2 
INVER  T 
INVFLAG 
I NVRSEON 
IRETURN 
I RETURNl 
IRIGCOMP 


DEF 

13,3140 
13,3224 
0227 
472  6 
11,3372 
26,3242 
E7,1607 

n,2000 

35,3376 
34,3062 
34,3071 
35,2514 
21  ,2356 
41,2116 
13  ,2301 
6042 
21,3636 

23.2000 

12.2000 

6053 

13,3410 
37,3065 
E5,1462 
11,2000 
13,3421 
04,3162 
04,3157 
04,3131 
C4,3174 
13,3417 
13  ,3441 
04,3172 
04,3176 
1166 
1166 
E5 ,1470 
4750 
0070 
E5  ,1474 
20,3704 
36,2651 
12,3127 
£4,1502 
fc7 ,1744 
C6,3336 


REFERENCES 


1231 

589 

144 
30 

679 

649 

649 

664 

893 

410 

712 

956 

820 

32 

30 

996 

1212 

391 

129 

29 

1213 

1219 

1219 

1218 

1219 

1212 

1213 

1218 

1219 

1218 

104 

129 

71 

71 

129 

1496 

737 

1185 

115 

145 
330 


2 217  1213 

2 1231  1232 
7 581  565 

5 665  651 

4 46  1214 

6 627  677 

2 641  642 

2 632 

1 664 

1 893 

2 409 

37  2C5  1384 

3 802  8C6 

1 1094 

1 1095 

1 1104 

38  231  1384 

2 385  367 


4 300  1210 

1 1219 
I 1218 
1 1386 
1 1219 
3 499  1215 

3 1213 
1 1219 
1 1218 

3 121 8 1219 
1 121  8 

6 387  388 

19  497  1217 

4 1450  1456 

1 737 

1 1185 
8 115  1210 

6 154  1218 


SYMECL 

IR  IGX 

IR  IGY 

IRIGZ 

IR  IGl 

ISCADR+0 

I SI  TALTO 

IS  ITNCO 

ISITPRIC 

I SLI ST+0 

ISSERVCN 

I SSUP 

ISSWOFF 

ISSWON 

I SSZERO 

ISWCALL 

I SV.RETRN 

ITC  TP 

ITEMPl 

I TEMP2 

ITEMP3 

1TEMP4 

I TEMPS 

ITEMP6 

1 TERATOR 

ITERCTR 

ITISMASK 

I TRPNTl 

1TPPNT2 

ITRO 

I TRl 

ITRIO 

I.TRll 

ITR  12 

ITR13 

I TR14 

ITR15 

1TR7 

I TSAJOB 

ITSAJ082 

ITSATBL 

ITSAVAR 

ITSAWA  IT 

I TSEVEN 

ITSINOIR 

ITSLGCLl 


OEF 

06.3364 
06,3401 
06,3416 
06,3361 

4220 

26,2266 

10,3156 

10,3241 

4224 

04,2107 

06,2321 

06,2716 

06,2726 

06,2361 

4700 

4707 

E7,1616 

0061 

0062 

0063 

0064 

0065 

0066 
12,2536 

0026 

10,3267 

32.3364 
32,3520 

6373 
6362 
6145 
6205 
6137 
6216 
6242 
6126 
6264 
01,3636 
01,3747 
01  ,3652 
01,3552 
01,3571 
01,3753 
5436 
5445 


REFERENCES 


331 

331 

331 

320 

459 

480 

1358 

1359 
459 
230 

167 
161 
182 

168 
904 
994 
144 

95 

95 


95 

95 

1176 

1197 

1360 

812 

814 

1008 

1008 

999 

1000 

999 

1001 

1002 

999 

1003 

1297 

1300 

1297 
1255 
1296 
1300 
1296 

1298 


2 330 

2 330 

2 330 

3 328 

2 459 

1 367 

1 1358 

2 1360 

2 459 

1 225 


565 

688 


16  95 

50  95 

9 182 

1 1189 
4 690 

1 1355 


SYMBOL 

ITSLGCL2  01 
ITSLIKE6  01 
ITSLNGCL  01; 
ITSNQVAC  01 
ITSWBIT 
ITSWICH 
ITSWTLST  01 
ITURNON  06 
ITURN0N2  06 


OEF 


755 

691 

14C8 

1472 

1470 

1318 

1202 

147C 


1 1296 
1 1258 
1 1295 
1 1295 
1 1256 
1 1297 

1 1296 

2 1298 


37  10 
3623 
3735 
3646 

4735 

0151 

?742 

25?3 

2556 


1290 

1297 

1295 

1297 

77 

77 

1299 

174 

175 


REFERENCES 

1 1299 
1 1295 
i 1295 
1 1297 

5 632  669 

1 1298 

1 163 

2 174  178 


JACCUV 

JAMPROC 

JAMTERM 

JAPFG’t' 

JBRFG# 

J0G2TTF 

JETRATE 

JETRATEQ 

JETRATER 

JETSALL 

JETSOFF 

JETSON 

JOB  SLEEP 

JOBSLPl 

jnBSLP2 

JOBViAKE 

J0BWAKE2 

J0BWAKE3 

jnBWAKEA 

joexcHS 

JOIN 

JPARM 

JSHCHBIT 

JSWITCH 

JTLST 

JUMPDSP 

JUSTOA 

JUSTOUT 

JLSTTRIM 

JUSTZY 

JIPARM 

J2PARM 

J2REQSQ 

J4RFQ/ J3 


20,2647 
4243 
42?1 
E5,1464 
E5  ,1  430 
E5,7430 
E6  ,1744 
E6,1745 
E6,1746 
16  ,3560 
16,3446 
17,3435 
5133 
01,2777 
01  ,30in 
5137 
01,3024 
01  ,3036 
01,3030 
10,2775 
10,3553 
E5,1620 
47  36 
0001 
17,3143 
16  ,2206 
15,204? 
16,3155 
15  ,3017 
15,20) 1 
E5  ,1550 
E5 ,1554 

13,2022 

13,2012 


450 

459 

122 

122 

821 

133 

133 

133 

1432 

1429 

1455 

1009 

U04 

1104 

1009 

1105 
1105 
1105 
1355 
1366 

123 

65 

65 

1448 

14C5 

251 

1425 

962 

251 

123 

123 

46 


13 


1 1480 

1 1359 
1 122 

2 122  821 
1 802 

5 133  1417 

3 1415  1463 
3 1415  1463 
1 1432 

7 1423  1432 

8 376  1369 

1 1099 

1 1106 

374  1370 

1 U99 

2 1105 

1 1105 

2 1351 

1 1366 

3 123  646 

5 1231  1236- 

2 1429  1447 
I 1402 

1 252 

I 1426 
1 966 

1 252 

2 123  827 

2 123  827 

1 1220 

2 1228 


HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FCLLOkS  : 


GAP  : 


SSEPBLE  REVISION  131  Cf  AGO  PRCGRAf^  LUMINARY  8Y  NASA  2021112-n<;i 


17:53  DEC*  19,1969 


PAGE  1523 


SYMBOL  TABLE  LISTING,  INCLUDING  OEFIMTICN,  HEALTH,  PAGE  OF  OfcF»  « OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REFc 


SYMBOL 

KoOl 
KIAT  ) 

K(  1/DV» 

KALCMAN3 

KALCMGM 

KALCMON2 

KAL  EBCON 

KAOS 

KCENTRAL 

KOPNOX 

KEEP-2 

KEEPPRIO 

KEEPVR 

KEEPVRl 

KEL 

KEPCDNVG 

KEPCl 

KEPC2 

KE  PLERN 

KEPLOOP 

K EPPPEP 

KEPRTN 

KEP2ERO 

KEYCOM 

KEYRPT06 

KEYRUPT 

KEYRUPTl 

KEYTEMPl 

KeYTEMP2 

K IGNV/BA 

K IGNX/8^ 

KlGNY/BB 

KILCLOCK 

KILLAOT 

KI LLBB 

KILLCLOK 

KILLDEAD 

KILLMON 

K ILLTASK 

KILLTSK2 

KILL2 

KILMONCN 

KLEENEX 

KONMAT 

KPARM 


OEF 

2A,367fc 
32,3741 
27,2014 
22, 2004 
22  ,2000 
22,2000 
07,3762 
16,2623 
E6, 1740 
E6, 1701 
E7,1560 
10, 2545 
34,3^,46 
34,3450 
£4, 1630 
12  ,2333 
0042 
0044 
12,2023 
12,2166 
11 ,2404 
E4,1512 
12,2006 
04,3262 
4060 
04,2000 
04,3253 
0073 
0332 
E5,1504 
£5,1500 
E5  ,1502 
35,3560 
07,2060 
6041 
36,2737 
27,2242 
41,3341 
6052 
27  ,2200 
04,2260 
4204 
10,2333 
C5,2001 
E5,1622 


REFERENCES 


627 

827 

1323 


32 

32 

1323 

1419 

133 

136 

151 

1351 

845 

845 

117 

1172 

1195 

1195 

1168 

1170 

1220- 

115 

1179 

1330 

156 

28 

1330 

95 

99 

122 

122 

122 

682 

247 

745 
738 

746 
442 
745 
745 
233 
458 

1347 

51 


358 

1323 

1465 

136 

151 

1357 

845 

844 

262 

1170 
1168 
1168 
1221 

1171 
1210 

1172 
1169 

15*= 

1330 

155 

156 

1331 
122 
122 
122 
682 
247 

745 
738 

746 
442 
514 
745 
233 
450 

979 


KPI  P 
KPIPl 
KPIPl  (5  ) 
KPI  P2 


KT 

KVl 

KV2 

KV3 

Kl 

K10RK2 

KIPARM 

KlVAL 


1171 

1184 

1184 


1221 

1193 


156 

1331 


K2 

K2o 

K2CNTRAL 

K2PARM 

K2THETA 

K2VAL 

K3 

K3S1 

K3VAL 


OEF 

33.2020 

33.2021 

21.2001 
33,2023 
E6,1504 
E6,1506 
E6,1700 
E7, 1575 
E6,1702 
E6,1710 
E6,1716 
E6,1702 
34,2542 
e5,1552 
27,2000 
E6, 1710 
34,2561 
E6,174i 
E5,1556 
E6,1736 

27.2002 
E6,1716 
22,2370 
27, 2004 
22,2372 
22,2374 


41 

133 

133 

136 

1^3 

136 

136 

136 

136 

643 


REFERENCES 

1 855 

5 812 

3 894 

1 875 

4 133 
1 1482 

6 136 

3 666 

4 136 

4 136 

4 136 


880\ 

895) 

1482 

369 


643 

123 

768 


136 

643 

133 

123 

133 


359 

359 


1 643 

22  1466 
1 123 

12  1465 
1 769 


1475 

1475 


L*WCR*T 

L, PVT-CG 

LAOQSAVe 

LAG/TAU 

LAGSLIST 

LALOTORV 

LAMBERT 

LAMBLCCP 

LAMENTER 

LAMPTEST 

LAND 

LANOALT 

LAN'CCNST 

LANDI SP 

LANDJUNK 

LANDLAT 

landlong 


0001 
0130 
£6,1527 
E7,1714 
£5,1542 
4753 
13,2420 
12,3212 
12,3330 
12, 2701 
06,2766 
E7,1634 
£5,  1712 
22  ,2000 
21,2145 
34,3271 
E5,1706 
E5,1710 


92 

123 

134 

153 

123 
211 

1129 
1187 
118  6 
1178 
183 
1 51 

124 
32 

891 

786 

124 

124 


315  93 

2 789 

1 1482 

5 153 

2 123 

1 210 
1 928 

1 690 

3 1189 

1 1191 

2 172 

17  151 

3 319 
1 822 

4 823 

1 235 

4 124 

124 


SYMBOL 

LANDTEMP 

LARGE 

LAPGe2 

LAPGE3 

LARMENT 

LASINEX 

LAST 

LAST8IAS 

LASTCHG 

LASTLAOH 

LASTLRDT 

LASTNEGY 

LASTOK 

LASTPOSY 

LASTSEG 

LASTTIME 

LASTTPIP 

LASTXCMO 

LASTYCMO 

LAT 

LAT-LONG 

LATAZCHK 

L AT  FW  CV 

LATITUDE 

LATLONG 

LATVEL 

LATVMETR 

LATVNEG 

LATVPOS 

LAXIS 

L0U  F2 

LCHAN 

LOANZ IG 

LDATALST 

L0L00P72 

LONDUMP 

LONDUMPI 

LDNOUMPl 

LDNPHASl 

LDNPHAS2 

LDPOSMAX 

LEACTI ME 

LEFT 

LFFT- 

LEFTNCOM 


DEF 

E7,15*4 

00  ,3065 
00,3112 
00,3074 

5601 
00,3631 
16,3331 
06  ,3671 
17,3174 
E7  ,1745 

25.3520 
21,2711 
21  ,2661 
21,2673 

07.3521 

01  ,3502 
E7,7757 

0113 
0112 
1117 
13,23^7 
37,2021 
21,2561 
E5  ,1402 
13,2000 
E7  ,1700 
E7,1676 
21,2765 
21  ,2760 
E4,1702 
00,2470 
0001 
00,3713 
033^ 

04.3651 

05.3732 
43,3071 

05.3733 
05,3362 

05.3652 
12,2017 
E7  ,1426 
00  ,2342 
00,2336 
40 ,3212 


REFERENCES 


151 
1064 
1066 
1066 
1373 

1078 
1427 

338 

1449 

153 

568 

898 

898 

898 
1316 
1126 

153 

96 

96 

104 

1127 

375 

896 

128 

30 

152 
152 

899 
89Q 
120 

1053 

03 

1079 
99 

1366 

991 

290 

991 

225 

988 

1195 

140 

1050 

1050 

437 


800 


7 151 

1 1064 

2 1064  1065 
1 1064 

1 1376 

1 1C78 

2 1427 

1 852 

1 1449 

1 567 

2 898 

2 897 

2 897  898 

1 1316 


813 


19 


153 
534 

96  539 

104  1129 
659  928 


6 128  302 

1 1127 
8 152  899 

3 152  900 

1 898 

1 898 

5 120  845 

2 1C77  IC79 
160  1429 

1 1078 

2 99  989 


1 1386 
1 991 

I 290 
1 991 

I 221 
1 985 

1 1194 
1 803 

1 1047 
1 1047 
1 437 


HEALTH  key:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


JCKER  CR  ERASE  ANYWHERE 


XX  MISCELLANEOUS  TROUBLE 


MO  MULTIPLY  DEFINED 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021H2-C91 


17:»=3  DEC. 


19,1969 


PAGE  1524 


SYMBOL  TABLE  LI  STING , 
SYMBOL  DEF  H 


INCLUDING  DEFIMTICN,  HEALTH,  PAGE  OF  DEF,  « OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REF« 


REFERENCES 


REFERENCES 


REFERENCES 


LEFTS 

LEGAL?  21, 
LEGALTST  40, 
LEMALCNE  01, 
LEMCONIC  13, 
LEMGEOM  13, 
LEMMASS 
LEMONM 
LEMPREC  13, 
LEMSTORE  23, 
LEMVeC  A3, 
LENGTHCT  E5, 
LESCHK  05, 
LETABBIT 
L ETABORT 
LETITLIV  27, 
LGCLCADR  01  , 
LGCL2C0R 
LGCOMP  06, 
LGCUPDTE  26, 
LGRET  £7, 
LGWAKE  07, 
LGYRO 

LGYROBIN  43, 
LIGHTSET  05 , 
LIM(-22)  27, 
LIMALARM  26, 
LIMITCCM  42, 
L IMITS 
LIMITSUB  30, 
LINRAT  17, 
LINRATP  16, 
LINUS 

LINUSCHR  10, 
LITIT  25, 
LMAGSIDL  05, 
LMAGSI02  05, 
LMAGSI03  05, 
LMAGSI04  05, 
LMAGS 105  05, 
LMCSTADL  05, 
LMCSTAOl  05, 
LMCSTA02  05, 
LMCSTA03  05, 
LMCSTA04  05, 


4331  464 

2105  829 

2527  406 

2274  297 

3077  1207 

2000  = 30 

1326  107 

0056  = 93 

3056  1207 

2421  699 

3072  290 

1412  = 128 

3363  225 

4743  = 81 

0215  = 91 

2221  746 

3773  1300 

5307  1125 

3537  335 

3401  592 

1675  = 147 

3375  1312 

1311  106 

241  7 275 

3066  220 

3757  1275 

3675  598 

3334  425 

4734  = 1089 

3720  919 

2373  1438 

3133  1425 

5464  = 1365 

3375  1362 

3634  617 

2^07  = 206 

2136  = 206 

2145  = 206 

2154  = 206 

2157  = 206 

2172  = 198 

2127  = 198 

2136  = 190 

2145  = 198 

2154  = 198 


5 

2 

2 

1 

5 

1 

21 

11 

1 

1 

9 

1 

3 

3 

1 

1 

1 

3 

4 

5 
2 
9 
1 
2 
1 
2 
1 

10 

7 

2 

1 

2 

2 

1 

3 

1 

1 

1 

1 

2 

1 

1 

I 

1 


416 

824 

406 

297 

341 

322 

196 


37 
699 
264 
126 
224 
733 
786 
746 
1299 
1125 
328 
583 
147 
1312 
224 
275 
217 
1270 
596 
425 
918 
908 
1438 
1426 
479 
1350 
617 
195 
206 
20  6 
206 
20  6 
195 
190 
198 
198 
198 


1284 

949 

1487 

070 

390 

829 

847 

338 

566 

1313 

1316 

218 

1 465 
914 
1439 

515 
13  51 

206 


206 


LMCSTA05 

LMCSTA06 

LMCSTA07 

LMOSASDL 

LRDSAS02 

LM0SAS03 

LMCSAS04 

LM0SAS05 

LM0SAS06 

LMDSAS07 

LM0SAS08 

LM0SAS09 

LMINT 

LMKAOSN 

LMLSALCL 

LMLSALOl 

LMLSAL02 

LMLSAL03 

LMLSAL04 

LMLSAL05 

LMLSALC6 

LMLSAL07 

LMLSALO0 

LMLSAL09 

LMOMEGAN 

LNCNLY 

LMOONBIT 

LMCDNFLG 

LMCPBMOL 

LMORBMOl 

LMDRBM02 

LM0R6M03 

LM0R6M04 

LMGRBM05 

LMORBM06 

LMPOS 

LMRENODL 

LMRENOOl 

LPREN002 

LMREM003 

LMREND04 

LMREND05 

LMREND06 

LMRENC07 

LNTFAP 


05, 

05 

05 

05 

05 

05, 

05. 

05 

05, 

05 

05 

05. 

24 

E6, 

05, 

05 

05 

05 

05 

05: 

05 

05, 

05, 

05 

£6, 

16 


05 

05, 

05 

05 

05 

05 

05 

G4 

05 

05, 

05 

05 

05 

05 

05. 

05: 

E6 


.2157 
,2224 
,2226 
,2303 
,2136 
2145 
,2154 
,2157 
,2170 
,2341 
,2355 
,2224 
,3265 
. 1410 
2357 
,2127 
,2136 
,2145 
,2154 
,2157 
,2170 
. 2276 
2224 
,2226 
. 1407 
,2462 
4741 
0174 
,2066 
,2127 
,2136 
,2145 
,2154 
,2157 
, 2170 
, 1751 
,2232 
. 2127 
,2136 
,2145 
,2154 
,21  57 
,2224 
,2276 
,1406 


= 198 

198 
198 

= 202 
= 202 
= 202 
= 202 
= 2 02 
= 202 
202 
203 
= 2C3 

571 
130 
= 204 

= 20^ 
= 204 

= 204 

= 204 

= 204 

= 204 

= 204 

= 204 

= 2 04 

130 
1417 
= 79 

= 79 

= 1 96 

196 

196 

197 
197 
197 
197 
119 

= 200 
= 200 
= 200 
= 200 
= 201 
= 201 
= 201 
2C1 
1 30 


1 198 

3 201  204 

2 198  204 

1 2C6 

1 202 
1 2C2 

1 202 
J 202 
1 202 
1 202 
1 202 
1 202 
1 571 

1 215 

I 207 
1 204 

1 2C4 

1 204 

1 204 

1 204 

1 204 

1 204 

1 204 

1 204 

2 215  1417 

I 1417 

1 215 

5 37  1205 

1 206 

4 196  204 

6 196  206 

6 196  206 

6 196  206 

6 196  206 

3 196  204 

3 504  571 

1 206 

1 200 

1 200 
1 200 
1 200 
1 200 
1 200 

2 200  204 

2 214  1417 


LMVEL 

LNCHTM 

LNGCALL2 

LOADDAP 

LHACDAPl 

LOAOITIS 

LOADLV 

LOACLVl 

LOAOSTAT 

LDACT IME 

LOA SCENT 

LOC 

LOCCTK 

LOCKANGL 

LOC SAM 

LOCSKIRT 

LODESCNT 

LODMIXNN 

LODNLV 

LOONNLOC 

LOONNTAB 

LOOPHALF 

LODPMAX 

LODPMAXl 

LODPl /4 

LODSAMPT 

LCENERGY 

LOG  SUB 

LOKONBIT 

LOKONS^* 

LOL  IM 

LOMAT 

LONG 

L0NG8ASE 

LONGCADR 

LONGCALL 

L0N6CLCL 

LONGCYCL 

LONGEXIT 

LDNGGYRO 

LONGPODH 

LONGRTRN 

LONGTIME 

LOOKANGL 

LOOPCT 


E4  ,1757 
E7.1660 
01  ,3453 
20  ,2000 
01,2000 
10,3462 
41,3020 
41,2001 
1013 
10,3574 
20  ,2001 
0164 
0064 
22,2402 
14,25^0 
22,2744 
20,2003 
42,2121 
42  ,2137 
41,2113 
42,2103 
12,200^ 
12,2017 
12,2021 
04,3002 
*•400 
12  ,3452 
30,3023 
*747 
0012 
12,3513 
35,3357 
1121 
U50 
1146 
5277 
01,3730 
01  ,3467 
E3,1434 
07  ,3534 
01  ,3522 
01,3507 
1152 
E7,1667 
E7,1605 


IIQ 
150 
n25 
31 
28 
1363 
431 
40  8 
102 
1 3B9 

43 


95 
350 
930 
366 
43 
306 
306 
41  C 
306 
37 
1095 
1095 
37 
466 
1190 
B51 
66 
66 
11  91 
679 
1 04 
1C* 
104 

1124 
1299 

1125 

no 

1316 

1126 
1126 

104 

152 

14? 


3 504  57] 

3 150  499 

I 1125 

1 294 

2 43  296 

1 1360 

10  408  438 

1 276 

4 431  462 

35  209  1217 

I 1479 

46  373  1365 

31  374  1359 

1 353 

3 930  957 

7 355  357 

1 1470 

1 306 

1 306 

8 409  430 

I 410 

3 324  1193 

3 37  1195 

1 37 

1 1131 

3 442  1331 

1 1189 

1 840 

1 555 

5 272  514 

2 1188 

2 676  677 

7 104  1129 

2 1293  1299 
2 1125  1126 
5 376  1300 

2 1299 
2 1125  1126 

4 1125  1126 

1 1315 

2 1125 
1 1126 

13  1124  1299 
1 802 

5 638  646 


HEALTH  KEY: 


NORMALLY  DEFINED  UNLESS 


FLAGGED  AS  FOLLOWS: 


UN  UNOEF INEO 
BD  BADLY  DEFINED 


= DEFINED  BY  ECLALS  J DEFINED  BY  JCKER  OR  ERASE  ANYWHERE 

CD  DEFINITION  ASSOCIATED  WITH  CONFLICT  XX  MISCELLANEOUS 


MD  MULTIPLY  DEFINED 
TROUBLE 
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SYMBOL  TABLE  LISTING,  INCLUDING  DEFIMTION,  HEALTH,  PAGE  OF  DBF,  H OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REF* 


SYMBOL 

LOOPER 

LOQPMX 

LOOPRATE 

LOOPS  IN 

LOOPl 

L00P2 

LOOPS 

LOOSE 

LOSCALAR 

L0SCM6IT 

LOSCMFLG 

LOSCOUNT 

LOSDESRO 

LOSSM 

LOSVOT/^ 

LOSVEC 

LOSVEL 

LOSl 

LOS  2 

LOTEMIN 

LOTEMOUT 

LOTHRUST 

LOUNITX 

LOUNI TY 

LOUNITZ 

LOUPE 

LOWCRIT 

LOWFCCLO 

LOWIDCOO 

LOMLOAD 

LOWSUPER 

LOWVERB 

LOWIO 

LOWll 

L0W2 

LOWS 

L0W4 

LOWS 

LOW? 

L0W7+2K 

Lowe 

L0W9 

L06ZER0S 

LPnS26IT 

LP0S2FLG 


OEF 

17,3034 
34,2057 
16,3674 
22,2417 
23,3720 
23,3717 
20,2734 
37,2730 
0004 
4740 
0041 
E7  ,1456 
E7,1711 
IlOO 
E3  ,1760 
65,1413 
E3,1760 
E5,1444 
E5, 1452 
0124 
1007 
33,2352 
12  ,2004 
12,2002 
12,2000 
21,3620 
E5,1506 
31,2231 
C5,2065 
10, 3527 
30,2000 
41,2034 
501  2 

4356 
6250 
4757 
4762 
4346 
6077 
5013 

4357 
5004 

12,2006 
4746 
02  56 


1446 

637 

1462 

359 

1256 

1255 

1482 

368 

93 


69 
69 
141 
146 
6 09 
609 
128 
113 


REFERENCES 

3 1441 

1 638 

2 1462 

1 360 

1 1255 

1 1256 

2 1482 

1 389 

6 383 

4 556 

in  500 
39  185 

6 146 

2 60  3 

5 603 


1447 

1463 


1483 

1446 
6 09 
6C3 
617 
597 
6C5 
605 
389 
6C9 


101 

857 

3.7 

37 

37 

1476 

122 

789 

195 

1364 

34 

4C9 

1091 

465 

1093 

1093 

1089 
465 
997 

1091 

465 

1090 
37 


21 


426 

856 


1 1475 
3 122 

1 789 

1 991 

1 1360 
8 212 
1 409 

234 
7 158 

1 1047 

2 234 

3 739 

6 401 

4 230 
1 1003 

1 193 

2 246 


249 


1283 

1008 

1044 

1367 

1321 

1363 

1366 

1107 

1179 


SYMBOL 

LPS20ol 

LPS20.2 

LP2ALM 

LRAORET 

LRAORETl 

LRALPHA 

LRALPHA2 

LRALT 

LRALTBl T 

lraltflg 

LRBETAl 

LRBETA2 

LRBY6IT 

LRBYPASS 

LRESC 

LRHEIGHT 

LRHJHB 

LRFHAX 

LRHTASK 

LR  INH 

LR  INHB  IT 

LRLCTR 

LRMCTR 

LROFF 

LRON 

LRPCSALM 

LRP0S8IT 

LRPOSCAL 

LRPOSCAN 

LRPOSFLG 

LRPOSNXT 

LRPCSCUT 

LRPnS2 

LRP0S2K 

LRPnS2Kl 

LRP2C0MM 

LRRCTR 

LRRESTRT 

LRSCK 

LRSCTR 

LR  S22 

LBS22ol 

LRS22o IX 

LRS22*  2 

LRS24*1 


DEF 

24,3256 

25.3570 
25  ,3536 
E7,1650 
E7,1656 
E5,1522 
E5,1524 
25,3102 

4747 

0276 

£5,1523 

£5,1525 

4735 

0245 

20,2673 

25,3273 

34.3571 
E7,1420 
21  ,2125 

0254 
4744 
E7,1670 
E7, 1672 

43.2366 
43,2325 
33,2543 

4746 
43,2677 
25,3526 
0275 
25,3475 
40,2635 
25,3454 
43,2147 
4 3,2161 
25,3531 
E7,167l 
33,3650 
25,3420 
E7,1673 
32,2000 

32.2366 
E7,1737 
24,3334 
26,3442 


571 

572 
568 

151 

152 
122 
123 
557 


123 

123 

83 

83 
1481 

560 

866 

140 

867 

84 
84 

152 
152 
27  3 
272 
870 


281 

568 


567 
266 
266 

568 


575 
148 
578 
59  3 


REFERENCES 

5 SCO 
1 5CC 

1 568 

4 151 

2 889 

3 123 

1 123 

2 495 

1 617 

1 123 

1 123 

8 221 
1 780 

1 1480 
1 560 


1 


867 
876 
823 
273 
878 
152 
152 
263 
2 63 

567 

278 

567 

567 
419 

568 
263 
266 
267 
152 


509 

148 

509 

520 


SYM BOL 

576  LRS24*ll 
LRUPT 
LRVEL 

890  LRVFLBIT 
LRVELFLG 
889  LRVELX 
LRVELY 
886  LRVELZ 
LRVF 
LRVJOB 
LRVMAX 
LRVTIMOL 
869  LRVTIME 
LRWH 
LRWVFF 
LRWVFX 
LRWVFY 
LR  WVF  Z 
LRWVX 
LRWVY 
881  LRWVZ 
889  LRXCOU 
889  LRXCDUDL 
LPYCDU 
LRYCDUDL 
LR  ZCDU 
LRZCDUOL 
LSOISP 
LSORIENT 
LSPOS 

568  LSR229  3 
LSR22*4 

888  LSTENKCH 
LSTLIM 
LSTPTR 
LSTl 

089  LST2 

LST2C0N 

LST2FAN 

889  LS21X 
575  LTHVACA 

LUNAB  I T 
579  LUNAFLAG 
LUNDESCH 
597  LUNG 


DFF 

26,3471 
OOl  1 
25,21 16 
474A 
0273 
25,3110 
25,3106 
25,31C4 
E5,1527 
33,3556 
E5,1526 
£4,1737 
E4,1652 
E7,1421 
E5 ,1  536 
E5,l 535 
£5  ,1534 
E5,1533 
E5,1532 
E5,1531 
E5,1580 
£4,16  54 
E4,)734 
E4,1655 
E4  ,1735 
£4,1656 
£4,1736 
14,245^. 
04,2757 
15,3647 
26,2416 
26,3200 
43  ,3750 
4747 
0144 
E3 ,1400 
63,141.0 
4]  ,2145 
43  ,2002 
E3,)757 
05  ,3366 
4740 
0060 
25,2432 
15,2666 


REFERENCES 


594 

92 

557 


557 

557 

557 

123 


120 
117 
140 
123 
123 
123 
123 
123 
123 
123 
U7 
120 
1 17 
120 
117 
120 
928 
977 
979 
581 
589 
1285 
746 
97 
110 
110 
410 
263 
113 
225 


495 

495 

495 

123 

882 

123 


878 

123  882 

123 

123 

123  881 

123 
123 
123 
117 
120 
117 
120 
117 


881 

887 

885 

879 


970 


1 928 

2 927 

4 930  1230 

2 510  591 

I 581 

I 1284 
1 746 

48  156  1295 

41  223  1122 

1 410 

2 263  470 

4 503  571 

4 223  224 

9 658  1133 

1 324 

2 958  959 
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LUNPOS 
LUNRS  ALN 
LUNSFCHK 
L UNSPH 
LV 

LVBUF 
LVEL8IAS 
LVLIMITS 
LVMI NLM 
LVSQUARE 
LVWTLIST 
L XA 
LXC 

L14/0UT 


15,3647 
1005 
24,2670 
11,3417 
0044 
6276 
25,2000 
21,2727 
21,3017 
0042 
5215 
01,2355 
01,2361 
40  ,2745 


743 

794 

979 

237 

511 

1232 

93 

1004 


93 

1113 

1081 

loei 

422 


M/SCONl 

M/SC0N2 

M/SC0N3 

M/SLI MIT 

M/SNORM 

M/SOUT 

MAGSUB 

MAGV6C2 

MAINENG 

MAINLINE 

MAJ  + 

MAJ- 

MAKEACCS 

MAKECADR 

MAKEGEN 

MAKEMARK 

MAKEMAX 

MAKEPLAY 

MAKEPRIO 

MAKERUFT 

MANFLAG 

MANMOCe 

MANUC  ALL 

MANUFB  IT 

MANUFLAG 

MANUOFF 

MANUSTAL 

MANUSTAT 


42,3377 
42,3400 
42,3402 
42 ,3326 
42,3342 
42,  3303 
4512 
65,1717 
30,2427 
30,2710 
07,3460 
07,3600 
37,3513 
4645 
10,3543 
10,2365 
20,3033 
10,2547 
10, 2513 
7757 
16,2202 
16,3027 
22  ,3177 
4736 
0152 
22 ,3113 
22,3067 
22  ,3122 


426 

426 

4,26 

425 

425 

424 

525 

126 

839 

843 

1315 

1318 

854 

993 

1365 

1347 

J485 

1351 

1350 

145L 

1405 

1422 

369 

77 

77 

368 

366 

368 


1 733 

1 743 

2 491 

2 237 

9 496 

1 1230 

2 1064 
1 1028 

1 560 

4 897 

6 899 

2 1064 
1 1117 

1 1006 
1 1006 

2 421 


1 425 

1 425 

4 42  5 

2 425 

7 425 

1 419 

9 527 

6 12  6 

1 839 

2 844 
1 1314 

1 1314 

2 853 
272 

1 1353 
1 1351 
1 1485 

3 1350 

1 1351 

2 1450 

1 1404 
1 1422 
1 369 


16 


1365 

1451 


1 368 

1 367 


MANUSTCP 

MANUVER 

MANUVERl 

MARKCHEX 

MARKCNTR 

MARKCOP 

MARKCTR 

MARKE6AN 

MARKEND 

MARKFLAG 

MARKFMSK 

MARKFCRM 

MARKNV 

MARKOCT 

MARKOVER 

MARKPERF 

MARKPLAY 

MARKRET 

MARKRUPT 

markstat 

MARKTE  ST 

MAPKTYPE 

MARKWAKE 

MARK2PAC 

MARK3MSK 

MARK4MSK 

MARSLEEP 

MASKREG 

MASS 

MASSCTR 

MASSFI  X 

MASSMON 

MASSMULT 

MASSl 

MATINC 

MATMCVE 

MATRIX 

MAX 

MAXANG 

MAXCHECK 

MAXCHK 

MAXCOGA 

MAXDB 

MAXOT 

MAXDV 


22,3213 
26,2000 
26,2000 
07,2216 
E7, 1550 
10,2414 
67,1462 
1070 
10,2326 
1070 
10,3032 
10,2340 
0370 
10,3533 
10,3422 
10,2441 
10,2400 
10,3414 
07,2332 
1307 
26,2510 
07,2513 
10,3024 
1072 

10.3506 

10.3507 
10,3455 
E5,1  534 

1243 
0161 
20,2  5)7 
33,2233 
31  ,2337 
E7,1570 
0140 
14,3371 

11.3301 
0016 

22,2364 

12,2625 

22,3636 

12.3302 
05,3065 
13,3343 
0C,2642 


33 

33 

253 

147 

1346 

141 

103 

1346 

1364 
1356 

1347 
100 

1365 

1363 
1349 

1348 

1362 
255 
106 
582 
259 

1356 

103 

1364 
1364 

1363 
128 
105 

1468 

1479 

855 

791 

149 

97 

943 

1230 

1197 

359 

1177 

723 

lies 

220 

1212 

1059 


13 


368 
477 
487 
253 
147 
1 1348 
5 500 

1 1364 
1 1346 

1 1348 

2 1347 


5 1340  1357 
1 1355 
1 1346 
1 1359 

4 1348  1364 

1 1361 

2 155  156 

34  224  262 

1 581 

5 256  261 

1 1363 

2 1356  1357 
2 1347 

1 1347 
1 1346 

18  105  1487 

5 1486  1487 


2 788 

5 149  859 

9 97  1033 

7 939  969 

2 1227 
4 1176  1177 
1 354 

1 1177 

4 622  7?2 

2 1188 

1 214 

2 1211 
1 1055 


MAXDVSW 

MAXFQRCE 

MA  XJETS 

MAXNM 

MAXPLUS 

MAXRA 

MAXTEST 

MAXTFF 

MAXTFFl 

MAXTRIES 

MAX7RYS 

MAXVRITS 

MAX250 

MCTOMS 

MOOT 

MDOTAPS 

MDOTDPS 

MDl 

MEA  SINC 

MEASINCl 

MFTHODl 

METH0D2 

METHODS 

MFI 

MF  ISYM 

MFREF 

MFS 

MGARET 

MGC 

MGLVFB I T 
MGLVFLAG 
MG2 

MIOAVBIT 

MOAVFLG 

MIDOGIM 

MIDFLAG 

MIDFLBIT 

MIDORLST 

MIDTOAVI 

MinT0AV2 

MIDI FBIT 

MIOIFLAG 

MID2 

MI05 

MI07 


0140 
E5 ,15^6 
17,3373 
22,3665 
20  ,3041 
27,3462 
00  ,2565 
27  ,3652 
27,3651 
24,2310 
25,2505 

21,2005 

35,3642 

25,310C 

E7,173F 

36,2010 

36,2002 

4362 

23,2000 

23.2000 
22  ,2242 
?2,22U 
22,2266 
E4,1630 
E6,1702 
15,3445 
64,1630 
30,3266 
E5,174? 

4752 
0130 
07  ,3717 
47  5 2 
0224 

06.2000 
000? 
4737 

17,3163 
13 ,3553 
1?  ,3547 
4751 
0223 
13,3646 
4347 
4144 


123 

1454 

723 

1485 

1266 

1055 

1272 

1272 

50? 

546 


356 

356 

357 
117 
136 
972 
117 
908 


1449 

1216 

1216 


1277 

465 

44? 


6 1051  1C66 

2 123  B14 

1 1454 

3 723 

2 1484  1485 
2 1266 

4 1054  1068 
1 1271 

1 1269 

2 513 

I 547 
8 897 

1 669 

2 552 

2 145 


514 


899 


555 

769 


1 827 

4 462  1383 

1 1143 
1 1147 
1 356 


356 
353 
355 
975 
117 
919 

125  1245 


355 

357 

976 

353 


3 1217  1235 

1 694 

5 1211  1238 

1 1448 
1 728 

1 753 

4 1216  1218 
1 1217 

1 431 

4 A43  1364 
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SYMBOL 


OEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


MIMRET 
M IN 
MIN  + 

MIN- 
M INA6DV 
MINAOP 
M INANG 
M 1NB12 
MI  N8131«^ 
MINCHECK 
M INCOGA 
M I NC  0 N 
M INCONl 
MINCCN2 
MINCSM 
M INDEX 
MINFORCE 
M INIMP 
MINI RECT 
MINLHD 
M INMINLM 
MINPERE 
M INPERM 
MINOR 
MINRTN 
MINTIMES 
MINTIME2 
M INUSl 
MINUS2 
MIS 

MI  SC  JUMP 

MIXAO 

MI XBACK 

MlXBR 

MIXCQN 

MIXNNl 

M1XNN2 

MI XNOUN 

M I XTEMP 

MKAbORT 

MKALARM 

MKDEX 

MKOVBIT 

MKOVF  LAG 

MKREJ 


17  ,2341 
0010 
07,3455 
07,3575 
33,2202 
17  ,2350 
22,2362 
7744 
05,3565 
12,2571 
12,3320 
A2,3540 
<2,3275 
42 ,3273 
A7<1 
0773 
E5 ,1544 
<3,3025 
13,3705 
Cl, 2000 
Cl, 2001 
22  ,3365 
22,3363 
17,2320 
17  ,2325 
16, 3625 
05,3532 
7752 
7751 
E6,1645 
6337 
41,2260 
40,3103 
0140 
4771 
<1  ,2234 
<1,2246 
41,2221 
0125 
07,20<4 
07,2325 
E7, 1552 
4751 
0110 
07,2460 


1437 
1197 
1315 
1318 

850 

1438 
359 
989 
986 

1176 
1188 
439 
424 
424 
<3 
101 
123 
266 
1233 
<3 
43 
717 
717  ■ 
1437 
1437 
1433 
986 
1093 
1300 
135 
1006 
412 
435 
97 
306 
412 
412 
412 
96 
246 
254 
147 


1 1437 
4 1176 
1 1314 
1 1314 
I 836 
\ 1437 
1 354 

1 966 

1 086 
) 1176 
1 1191 
1 438 

1 427 

2 ^24 

1 297 

< 230 

2 12  i 

1 264 

3 499 

1 297 

1 297 

2 716 

1 719 

2 1437 
1 1438 
1 1429 

1 986 

2 1315 

3 221 
135 

I 1003 
1 412 

435 
306 
30  6 
1 412 

1 412 

1 409 

3 406 

I 245 

1 253 

9 147 

2 1349 

1 255 


07 


07 


20 


13 


1363 

1295 

<87 


MKREL6AS  07, 
MKRUPT06 
MKTIME 
MKVAC 
MKVACFNO  07 
MKVe52 
MKV053 
MKV854  07 
MKVB54*  07 
MLCSV  E3 
MMADREF  <!■ 
MMATRIX 
MMCHANG  <l 
MMOSPLAY 
•'MNUMBER 
MMTEMP 
MNKEY  IN 
MGDABCRT  07 
MOODONE  12 
MCOE 
MCDEA 
MODES 
MCDECAOR 
MODEE  XIT  07 
MOOEGOOD  07 
MCDESLP  07 
MODESW  07: 
MCDE2CHK 
M0DE70  05 
M00E71  05, 

MOCNGOEL  12 
MODPSDEL  12 
MOCREG 
MCDROUTB  0< 
MCNAOR  <0, 
MCNBACK  41, 
MONBUSY  41 
MONOEL  41, 
MCNDO  41 
MONITOR  41 
MCNITl  41: 
MONI T2 
MONREF 
MCNREPOS  06, 
MONREO 


41 


2047 
4061 
1754 
2014 
2031 
2617 
2616 
261  5 
2620 
1766 
2033 
0024 
3443 
5315 
0774 
1057 
0015 
3732 
2124 
0163 
1106 
1110 
1301 
2746 
3722 
3726 
20C0 
4550 
3476 
3500 
2600 
2636 
1010 
2040 
3474 

3375 

3376 

3345 

3346 
3255 
3257 
3272 
3374 
3115 
3322 


246 
1 56 
148 
245 
245 
261 
261 
261 
261 
113 
408 
1142 
450 
1286 
101 
235 
93 


99 

103 

103 

106 

1303 

1322 

1322 

29 

527 

826 

826 

1176 

1177 
101 
451 
450 
443 
443 
442 

442 
441 
441 

441 

443 
189 

442 


254 
] 55 
148 


1 261 
I 253 
6 552 

1 408 
8 1134 

2 408 

1 219 

10  2 29 


1230 

411 


37 


11 


22 


3 234 

2 220 
3 1322 
3 1169 
32P 
325 
103 
106 
8 1302 
1 1322 
1 1322 

1 1302 

2 526 

1 825 

2 1176 
2 1177 

214 

451 

449 

443 

442 

<42 

4<2 

410 

441 
*43 
189 

442 


133C 

1323 

1365 

543 

546 

1322 

1322 


MON  SAVE 

MONSAVEl 

M0NSAVE2 

MOONBIT 

MOONCNTR 

MOONFLAG 

MOONGON 

MOONMX 

MOflNMXA 

MOONOTH 

MQONPAD 

MOONRATE 

MQCNSPOT 

MOONTHI S 

MOPFCADR 

MOREOES 

MOREIDLE 

MORNUM 

MOVATHI S 

MOVEACSM 

MOVEALEM 

MOVEPCSM 

MOVEPLEM 

MPAC 

MPAC  + 

MPAC+6 

MPAC- 

MPACSHR 

MPACSPNO 

MPACTST 

MPACVBUF 

MPAC2SAV 

MPBRFMSK 

MPTFMP 

MRo  KLEAN 

MRK  1061  T 

MRKIOFLG 

MRKNVBI T 

MPKNVFLG 

MRUPT8IT 

MR  UPTFLG 

MSKDATR 1 

MSTOREl 

MSino 

MU(P) 


1017 
1020 
1021 
4740 
14,2535 
0003 
22,3516 
24,3730 
25,3653 
0173 
22  ,337? 
27,2026 
33,2254 
017* 
20,2461 
25  ,2637 
16,2157 
40,231 2 
13  ,2746 
13,2673 
13,2746 
13  ,2722 
13,2767 
015* 
00,2437 
0162 

00  ,243? 
00,2033 
00,2050 
42  ,3554 

7535 
0165 
10,3521 
C135 
05  ,2641 
4735 
0074 
*743 
010? 
4747 
0106 
20,2021 

01  ,2370 

7732 

0032 


102 

10? 

102 


1^37 

1138 


1405 

40? 

37 

120* 

1205 

12C4 

1205 

99 

1053 

42? 

105? 

1041 

1042 
439 

1037 

1364 

1364 


1081 

1405 

1240 


224  443 

224  469 

441  456 


1 930 

31  658 

1 719 

2 1134 

1 1138 

2 299 

1 716 

1 834 

I 855 
6 299 

1 1412 

2 550 

3 1402 

2 402 
1 1215 

3 1151 

4 37 


28  98 

2 1052 
7 422 

2 1052 
2 1049 
1 1C41 

1 438 

5 606 

2 1348 
2 1347 


1238 

1136 


97 

214 


1204 

1205 

1204 

1205 
1498 

466 


1254 

1357 


1060 

1375 


1 1347 
1 1358 


295 

1082  1085 
1404  1413 


HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


J DEFINED  BY  JCKER  CR  ERASE  ANYWHERE 


,^ITH  CONFLICT 


XX  MISCELLANEOUS  TPCU6LF 


MO  multiply  defined 


gap:  assemble  REVISION  12J  OF  AGC  PRCGRAf'  LUMINARY  8Y  NASA  2021112-091 


17:53  DEC-  19,1969 


SYMBOL  TABLE  LISTING,  INCLUDING  D6FINITICN,  HEALTH,  PAGE  OF  OEF,  tt  OF  REFS,  PAGE  OF  FIRST  RFF,  PAGE  OF  LAST  REFo 


SYMBOL 

MU/A 

MUASTEER 
MUCH!  IME 
MUEARTH 
MUL8USH 
MULTEX  IT 
MUM 

MUM(-37J 

MUNFLAG 

MUNFLBI T 

MUNG? 

MUN6PAV 

MUNRETKN 

MUNRVG 

MUSCALE 

MUTABLE 

MWAITBIT 

MWAI TF  LG 

MX 

MXMYM2 
M XM3 
MXV 


MU 

M21 

M22 

M3i 

M32 


OEF 

E7 ,1720 
E7,1716 
01,3512 
13,2006 
21t3A66 
5620 
13  ,200A 
27,202A 
0141 
4744 
37,3377 
33,3067 
33,2461 
33,3025 
E7  ,1766 
04,2004 
4741 
0100 
E7, 1676 
26,2763 
22,2312 
7337 
E7  ,1704 
£7,ni2 
£6,1414 
E6,1415 
E6, 1417 
E6,I416 
E6,1420 


145 

145 

1126 

46 

1473 

1374 


REFERENCES 

4 145 

5 145 
2 1125 

8 689  I 

1 1473 


7C9 

876 

869 

875 

145 

45 

72 

72 

147 

585 

358 

1032 

147 

147 

130 

130 

130* 

130 

130 


NARROWDB 

NAVKEYIN 

NBDONLY 

N8DX 

NBOY 

NBOZ 

NB02 

NB03 

NBPOSPL 

NBRANCH 

NBUSMASK 

NB1NB2 

NB2C0USP 

NCOU 

NCOAR  SE 


20,2151 
0016 
06,3563 
63,1460 
E3, 1461 
E3,1462 
06,3610 
06,3614 
37  ,2012 
11,3264 
10,3514 
23,2515 
30, 3524 
£6 ,1702 
14,3603 


1400 

93 

336 

no 
110 
110 
336 
336 
375 
1230 
1 364 
37 
915 
136 
947 


648 

231 

183 

705 

728 

876 

772 

692 


4 353 
1 1005 

5 147 

3 147 

9 156 

4 191 

7 190 

4 191 

5 191 


586 

486 

592 

5E6 

1430 

1443 

1443 

1443 

1443 


1 1399 
6 220 

1 1115 

6 328 

2 330 

2 330 

1 338 


1115 

337 

327 


908 

367 

939 


SYMBOL 

NCSMVEL 

NCCMPTST 

NDXCOUW 

NDXCHNGE 

NCXCTR 

NOl 

NEARONE 

NEECLBIT 

NEEDLER 

NEECLER2 

NEEDLES 

NEEDLESS 

NEEDLEll 

NEEDLFLG 

NEE028IT 

NEEC2FLG 

NEG 

NEGAT  E 

NEGCH6CK 

NEGCOS 

NEGCRIVE 

NEGEDOT 

NEGFIRE 

NEGFNCTl 

NEGFNCT2 

N6GLMLV 

NEGMAX 

NEGONE 

NEGOUT 

NEGP 

NEGPROO 

NEGSGN 

NEG SHAFT 

NEGTFF 

NEGTHRST 

NEGTORK 

NEGTORKU 

NEGTORKV 

NEGTOTKP 

NEGTOVFL 

NEGUQ 

NEGUR 

NEGUSUM 

N6GVMA  XY 

NEGO 


D6F 

E7,1664 
41,2440 
E6,1647 
12,2240 
E5,1414 
4361 
27, 3771 
4750 
20,2336 
20,2367 
20,2407 
20,2376 
20,2350 
0013 
4735 
0000 
6744 
21,3322 
21,3664 
12, 2530 
21,3572 
17,3320 
21,3716 
21,3231 
21,3243 
21,2774 
4735 
7752 
13,2536 
1 2,3427 
27,3146 
40,2374 
25,2601 
27,3646 
21  ,3767 
16,3736 
E6,1516 
E6,1520 
66,1514 
12  ,2330 
£6,1501 
66,1503 
21,3565 
21,2717 
4754 


REFERENCES 


150 

417 

137 

1171 
12R 
^65 

1275 

66 

1410 

1410 

1411 
1410 
1410 

66 

65 

65 

1019 

1468 

1500 
1131 
1475 
1453 

1501 

1466 

1467 
899 

1093 

1092 

1131 

1189 

774 

404 

548 

1272 

1502 
1463 

134 

134 

133 

1172 
133 
133 

1475 

896 

108° 


2 499 

6 137 

2 1170 

7 128 

7 273 

4 839 

I 1407 
1 1407 
1 1410 
1 1411 
1 1410 

3 267 
1 1407 

3 267 

4 1019 

1 1468 
1 1501 
1 1131 
1 1475 
1 1453 
1 1501 
1 1466 
1 1466 
1 898 

1 3 369 

15  221 

1 1131 
3 1188 
1 774 

1 401 

1 548 

2 1271 
I 1501 
I 1462 


914 

378 

805 

1272 


1485 

1497 


1172 

133 

1403 

1468 

896 

159 


1475 

1466 

1475 


SYMBOL 

NEGl 

NEGl/2 

NEGl/3 

N6G100 

NEG12 

NEGIRO 

N6G2 

NE63 

NE64 

NEG5 

NEG7 

netneg 

NETZERO 

NEWAGS 

NEWANGL 

NEW  ANGLE 

NEWCATA 

NEWDEL 

NEWOELHI 

NEWOELX 

NEWIBIT 

NEW  IFLG 

NEWJOB 

NEWLIST 

NEWLOAO 

NEWLOC 

NEWMOOE 

NEWMODEA 

NEWMODEX 

NEWOPS 

NEWPAR 

NEWPHASE 

NEWPQS 

NEWPRIO 

NFWSTATE 

NEWTN 

NEWVEL 

NEWZCOMP 

NEXTCDU 

NEXTCOL 

NEXTCORE 

NEXT6S 

NEXT  I ME 

NEXTINCL 

NBXTINSL 


DEF 

7752 

4734 

21,3242 

5172 

00,3733 

40.3122 
7751 
7750 
6115 

41  ,2115 
5650 

20  ,374^- 

6124 

32,2014 

22,3007 

25,3732 

21  ,2304 
12,2634 
22,3003 
12  ,2260 

4737 
0172 
0067 
05,3543 
30  ,2160 
0065 
6063 
531i 
5311 
6073 
14,2725 
31,2362 
E7 ,1652 
0063 
17,2653 
34  ,2702 
E7,1644 
22,3711 
07,3051 
11,3571 
01  ,2675 

35.3123 
E6,1705 
05,3550 
05,37C0 


1093 
1C89 
1467 
1110 
mec 
436 
1092 
3 092 

998 
41C 
235 

1406 

999 
209 
367 

1139 

893 

1177 

367 

1171 


REFERENCES 

5 328  1093 

6 223  1122 

2 1467 

3 1048  1070 

1 435 

11  232  1473 

7 863  1435 

2 1002  1278 

2 247  950 

I U96 

1 209 

1 366 

4 1137  1140 

1 892 

2 1176  1177 

1 370 

3 1171 


23 


832 

95 

997 

1286 

1286 

907 

934 

793 

ISO 

9R 

U78 

645 

150 

1151 

1305 

1235 

1101 

672 

136 

986 

988 


12 


3 1208 
223 

2 986 

1 832 
9 1097 
6 1013 

2 234 

6 375 

I 996 
1 934 

1 797 

4 150 
234 

1 13  80 

2 645 

3 150 

1 1145 
^ 1305 

2 1236 

2 1100 
1 671 

3 369 

1 986 

1 986 


1212 

1285 


13  05 
1390 
379 
1386 


499 

1353 


499 

1306 


HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


3Y  JOKER  OR  ERASE  ANYWHERE 


XX  MISCELLANEOUS  TROUBLE 


MD  MULTIPLY  DEFINED 
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SYMBOL 


REFERENCES 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


NEXTLINE  22 
NEXTP  E6i 
NEXTU  £6 
NE-XTV  E6, 
NGUIDSUB  E7, 
NICKELDP  3A, 
N IGNLOGP  E7, 
NINE 

NJETS6IT 

NJETSFLG 


NN 


E7 


NNADTA8  AZ 
NNAOTEM 
NNTYPTAB  R2 
NNTYPTEM 
NOeCORES  01 
NO*PJETS  E6, 
NOoUJETS  E6 
NOeVJETS  E6 
NUC.WOS 


NO.  9 


36 


13 


NO-ATP 
NO-INT 
NQAOJUST  A2 
NOAOS  20 
NOATTCNT  30 
NOATTCFF  07 
NOBITS  E5 
NCCHG  35 
NODOOT  26 
NODESNB  25 
NODESSM  25 
NOOIO 
NOOOBIT 
NODOFLAG 
NODSPOUT  06 
NODSPY  06 
NOOVMONl  23 
NCDVMQN2  33 
NOEBANK  A3 
NOENO  25 

NOGIMLCC  22 
NOGIMRUN  06 
NOGO  22 

NOGOBL  27 


26, 


1473 

1474 
1647 
2077 
1646 
4320 
4735 
0017 
1466 
2154 

0146 
2320 

0147 
2635 

1521 

1522 

1523 
6247 
3667 
2663 
2063 
3721 
3457 
3741 
3257 
1442 
3502 
2004  • 
2544 
2502 
2C12 
4753 
0054 
2130 
2152 
2342 
2346 
3407 
3263 
2744 
2462 
2732 
3212 


131 

131 

152 

637 

152 

1093 

67 

67 


1100 

134 

134 

134 

1002 

757 

842 

23fi 

492 

1492 

919 

1309 

12B 

681 

52 


70 

70 

162 

162 

857 

857 

1280 

560 

366 

172 

365 

775 


1 715 

7 131 

5 1397 

5 1397 

3 794 

1 640 

2 781 

2 1494 

1 750 

7 200 

1 30  6 

6 306 

1 306 

5 306 

2 11  •'10 

3 134 

3 134 

5 10C2 
1 756 

1 842 

1 238 

1 492 

1 l^9Z 

3 90  6 

4 167 

1 601 
1 1137 

1 547 

2 543 

1 113? 

3 229 

8 209 

2 159 

1 162 
1 056 

1 856 

1 1281 
1 560 


1422 

1435 


1105 

1462 

1^62 


I 


366 

171 

365 

775 


NCGUESS  J2, 
NnlBNKSU 
NCINT  13, 
NCKILL  43 
NOLITE  33, 
NCLOKCN  23, 
NOLRRB I T 
NOLRREAD 
NCMONLST  05 
NOMINIMP  43. 
NCMORE  25, 
NOMTPI  E4, 
NONAVKEY  05, 
NOPIE  35, 
N0Q6R  SM 
NOQRSM 
NORATES  30 
NORBACK  40 
NORDSTAL  25, 
NGREASCN  33, 
NORESET  07, 
NCRFINAL  13, 
NORLITE  33; 
NORMAOR  42, 
NORMAL  01, 
N0RM8NCH  10, 
NCRMEX  E7, 
NORMEXIT  32. 
N0RM6AM  E4, 
NCRMLIZ  23, 
NORMLIZE  23, 
NORMLIZl  33, 
NCRMLI Z2  33 , 
N0RMLOP 
NORMRET 
NCRMSei T 
NORMSCL  16: 
NCRMSW 
NORMTEMl 
NDPMTEST  00, 
N0RMT4  06 
NORMUNIT  10, 
NCRMUNXl  10, 
NORMWAKE  10 
NORMZ 1 


10 


2652 
3136 
3547 
2026 
4742 
0252 
2172 
3030 
3206 
1716 
3100 
3260 
5274 
5272 
2503 
3105 
2467 
32  03 
3421 
3277 
3532 
3401 
2340 
3062 
1463 
2 532 
1503 
2000 
2463 
2415 
2420 
2604 
3430 
474? 
3620 
0156 
1044 
3512 
2007 
3727 
3725 
3334 
0044 


1190 

997 

1203 

292 

884 

272 

84 

84 

)95 

287 

559 

1)8 

220 

675 

1123 

)123 

840 

435 

645 

878 

1313 

1211 

883 

426 

298 

1357 

142 

577 

115 

32 

862 

862 

862 

387 

1363 

77 

1433 

77 

102 

1075 

157 

1393 

1393 

1361 

1152 


1 1188 
1 1038 
1 1202 

1 293 

2 883 

1 272 

3 867 
1 880 


1 264 

2 559 

9 632 

3 217 

1 675 

1 1420 
1 1451 
1 840 

1 436 

3 543 

1 877 


2 883 

1 425 

1 296 

1 1363 
19  142 

1 577 

7 115 

1 861 

2 243 
1 862 
) 862 

1 387 

2 1361 


699 

1152 

852 


8 60<» 
3 94) 

2 157 

11  341 

3 591 
1 1363 

12  1151 


1182 

1354 


1393 

771 


NOROTAT 

NORRGMON 

NORRMBI T 

NORRMON 

N0R29FLG 

N0R29N0W 

NnSHI  FT 

NOTALLOW 

N0TBIT12 

NOTHRBIT 

NOTHROTL 

NOT  I ME 

NOT MI N 

NOTMUCH 

NOTPLAN 

N0TP20 

NOTSHIFT 

NOTWCSM 

NOTkLEM 

NOULLAGE 

NCUN 

NOUNAOO 

NOUNCAOR 

NOUNREG 

NOUNTEM 

NOUNTEST 

NOUPDOWN 

NOUPFB IT 

NOUPFLAG 

NOUT 

NOUTCON 

NOLVEAU 

NOVAC 

NOVACAOP 

NOVAC 2 

NnVAC3 

NCVPWRT 

NOV37MM 

NOWMATX 

N05118IT 

N0511FLG 

NPTPAPS 

NQTRAPS 

NRMAG 

NRMIDBIT 


17,3026 

06,3126 

4750 

0126 

0061 

33,2573 

10,3771 


21  , 


^1  6 


40,3736 
6740 
0116 
13,3656 
17,3061 
20,3436 
15,2521 
25,3051 
24,3322 
26  ,2450 
26,2502 
36,2657 
40,2370 
0145 
1016 
1001 
0122 
41  ,2462 
43,3077 
4746 
0030 
10)  5 
4760 
04,231^ 
5072 
oi  ,3776 
01,2626 
01 ,2631 
35  ,3334 
04,2470 
32  ,2257 
4751 
0261 

66 .1433 

66.1434 
0040 
4737 


871 

1394 

1472 

475 

74 

74 

1218 
1 446 
1492 
956 
556 
571 
58! 
58? 
737 
4 04 
97 

in? 

101 

96 

417 

291 

68 

68 

102 

1093 

233 

1097 

1300 

lion 

1100 

677 

237 

498 

84 

84 

130 

131 
1260 


3 1445 

6 185 

2 188 
8 271 

2 843 

6 601 
6 1393 
2 1471 
2 475 

1 733 

5 749 

2 1216 

2 1446 
I 1490 
1 956 

1 555 

I 571 
1 581 

1 582 

4 735 

1 401 

412 
409 
224 
412 
428 

290 
509 

291 

159 
224 
231 

160 
1 1297 
1 1097 
1 1101 
1 678 

I 229 
I 496 
1 869 

1 888 
4 1404 
4 1404 
4 1263 


27 


15 


32 


1450 

189 

222 

518 


780 

1217 


464 

464 

462 


1417 

1418 
1270 
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J DEFINED  BY  JOKER  CR  ERASE  ANYWHERE 


XX  MISCELLANEOUS  TROUBLE 
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SYMBOL 


OEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


NRMIDFLG 

NRMNV  BIT 

NRMNVFLG 

NRTERM 

NRTRAPS 

NRUPTBIT 

NkUPTFLG 

NR29CR0R 

NR29F  ei  T 

NSAMP 

NSRCHPNT 

N STEER 

NTARGBIT 

NTARGCHK 

NTARGFLG 

NTP/2 

NUCHA  NG2 

NUOIRECT 

NULLCLCK 

NUM 

NUMBEBT 

NUMGRPS 

NUVCSM 

NUVLEM 

NVBNKTEM 

NVBUSMSK 

NVCAOR 

NVCOM 

NVDSP 

NVDSPl 

NVMONOPT 

NVQTEM 

NVSAVE 

NVSBBBNK 

NVSBCOM 

NVS8EN0L 

NVSBHAIT 

NVSBWTl 

NVSU6 

NVSU6B 

NVSUBCCM 

NVSUBEND 

NVSU6SY1 

N VSUftUSY 

NVSUBl 


0076 
97^A 
0103 
0020 
E6,1A35 
^750 
0107 
501A 
^7^1 
IIIO 
E7,1736 
?6,3676 
4751 
35  ,3460 
0196 
34,2376 
Cl  ,3012 
01, 3226 
36,3021 
40,2175 
E6, 1742 
4756 
E3,1600 
63,1652 
1037 
10,3517 
10,3510 
40,2357 
10,3071 
10,3120 
4155 
1036 
0371 

4201 
4164 

40,3475 

4445 

4455 

4154 

41,2000 

4170 

4202 
04,2633 

4442 
41 ,3557 


72 

1260 

131 


103 

146 

757 

76 

660 

76 

641 

1104 

1110 

740 

401 

132 

.225 

112 

112 

102 

1364 

1364 

404 

1357 

1357 

456 

102 

100 

456 

456 

450 

468 

468 

456 

408 

456 

456 
^68 
466 

457 


1 1358 

2 1269 
4 14^4 


871 

222 

558 

146 


1 660 
3 680 

2 641 
1 1110 
1 1110 

3 740 

9 400 

19  1421 
2 218 
1 584 

1 564 

1 456 

1 1359 
1 1360 

1 404 

2 1358 
1 1357 

1 1357 

2 456 

3 213 

2 456 

1 468 

2 449 


1419 


NVSUB2 
NVTEMP 
NVWORD 
NVWCRDl 
NV50DSP 
NWAIT6IT 
NVsAITFLG 
NXAX 

610  NXPCSVEL 
560  NXTBNK 
597  NXTFL33 
NXT  I8T 
NXTIFAIL 
NXT  IFBIT 
NXTRRIAX 
NXTRST 
NXTSUPR 
NXT6A0R 
741  NZACCDOT 
401  N45PR0C 
1461  N49DSP 
219  N49FLAG 
N89CI SP 
N99L00P 


41,3604 
0123 
0367 
1066 
10,31 21 
4742 
0101 

15.2420 
31,2137 
43,3660 
06, 2432 

06.2420 
06,2225 
06,2213 
25,2263 
05,3026 
43,3705 
E6,1465 

0063 
35,3563 
24,2645 
E7, 1746 
14  ,2440 
31,2034 


100 

102 

1357 

72 

72 

954 

614 

1264 

170 

170 

164 

164 

538 

219 

1284 

131 

147C 

683 

511 

147 

928 

613 


457 

456 

739 

739 

1349 


468 

1363 

1359 

1359 


1 


468 

264 

456 

450 

468 

468 

406 


CANS 

OBLATE 

OCCQS 

1364  OCCULT 
OCTAL  27 
0CTAL3 
OCTBACK 

1363  CCTOOOlO 
OCT00012 
OCT00240 

452  QCT02100 
□CT05776 
nCTlOOOO 

1364  OCTlOOOl 
OCTIC002 
0CT10200 

458  DC  Til 

OCTll 276 

1360  QCT120 

456  nCT13 


04,2522 

11,3026 

14,2567 

14,2732 

05,3477 

6250 

41.3436 
4750 
4363 

21.3437 
06,3137 
C6,3033 

4737 
7666 
33,2250 
10,3541 
4320 
21, 3633 
4775 
15,2217 


250 
1227 
931 
934 
626 
1002 
447 
234 
503 
1472 
189 
185 
220 
1093 
855 
1365 
1089 
1476 
109  3 
92  6 


1 953 

1 615 

2 292 

7 179 

3 170 

11  173 

3 164 

1 538 

1 219 

1 1284 
5 221 

3 1471 
1 682 

1 510 

7 1 54 

2 927 

1 613 


3 249 

2 1223 
2 930 

2 93? 

1 824 

1 1093 
1 449 


1 184 

1 871 

I 1351 

1 1474 

2 232 

1 926 


0CT14 

OCT  140 

0CT14O0 

0CT14000 

0CT15 

0CT15O00 

nCT16 

0CT1601 

0CT172C 

nCT176 

0CT177 

0CT17770 

0CT17777 

0CT20 

OCT20002 

0CT201 

OCT20100 

0CT203 

0CT205 

0CT21 

0CT21103 

nCT217 

0CT220 

0CT23 

0CT23146 

0CT24 

0CT24100 

OCT25 

0CT26 

0CT27 

0CT272 

0CT27470 

0CT30 

OCT  30000 

0CT30001 

OCT30002 

0CT305 

0CT31 

0CT32001 

0CT32OO2 

0CT33 

0CT34 

GCT34BAR 

0CT3400 

DCT34300 


5741 

4776 

5007 

5024 
4761 

5025 
4317 

37  ,3054 
06,3000 
00,2126 
60  77 
5030 
31,2357 
4747 
06,3136 
24  ,2306 
10  ,354? 
26,2257 
24,3207 

4361 
5700 
5704 

04,3252 
43  60 
21 ,3326 
6007 
10  ,3255 

4362 
04,2332 
04,3231 
06,2776 
05,3367 

4763 
4355 

05  ,3371 
6474 
04,2331 
6010 

05, ?365 

06,  ’135 

4764 
07,2623 
42  ,3600 
10,3513 
10,3522 


1376 

1093 

1090 
1292 

1089 
183 

1067 

390 

10? 

1044 

1300 

1091 
792 
743 
18« 
503 

1365 

479 

510 

273 

1375 

1375 

1325 

1093 

1470 

226 

1360 

1093 

234 

1239 

183 

225 

429 

220 

225 
1093 

234 

226 
225 
189 

1090 
261 
439 

1364 

1364 


7 183  1479 

3 255  1438 

12  464  1421 

2 1291  1292 

4 181  1067 

1 181 

I 1067 
1 390 

1 179 

2 1050 

1 1297 

2 1290  1292 

1 700 

1 169 

1 501 

1 1350 

1 517 

3 273  429 


1 1324 

2 741  1002 
I 1471 

6 233 

1 1348 

2 264 

2 232 

1 1224 
I 176 
1 ,222 
1 429 


862 


273 


222 


222 

188 

226  1090 


2 439 
1 1354 
1 1347 
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SYMBOL  TAELE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  OFF,  U OF  REFS,  PAGE  OF  FIRST  RFF,  PAGE  CF  LAST  REF, 


SYMBOL 


DEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


SYMBOL 


OEF 


REFERENCES 


OCT35 

0CT37667 

0CT37737 

0CT37766 

0CT37771 

0CT37774 

0CT37776 

0CT4O001 

0CT40010 

OCT40C72 

OCT40200 

OCT40201 

OCT40400 

OCT40420 

0CT410C0 

0CT50 

OCT500 

0CT501PV 

0CT51 

QCT523 

0CT54 

0CT55000 

OCT60000 

OCT  62 

0CT63 

0CT67777 

0CT7 

0CT70C 

0CT74C 

0CT74160 

0CT75 

OCT77000 

0CT7777 

0CT7777C 

0C241 00 

0041010 

OFFCALC 

OFFROT 

OFFSTFAC 

OFFTUNIT 

OGABI AS 

OGC 

OGCPL 

OGCT 

OGF 


4765 
C4,2372 
C6, 2162 

7732 

27.3535 

7733 

7734 
6112 

07,3200 
C4,2373 
7740 
01  ,3371 
5632 
10,3537 
43,2324 
4771 
04,2330 
24,3206 
43,3231 
33  ,3757 
C6,2774 
41,3747 
4101 
4774 
17,2351 

10.3536 
4757 

04,2374 
C6,3001 
05,3370 
06,2775 
06, 3002 
05,3055 
5650 
43,2125 
06,2773 
26,3561 
27,3310 
26,3706 
10,3767 
E6,1677 
E5,1737 
27,2475 
£5  ,1747 
E6, 1716 


1090 

235 

162 

1092 

054 

1092 

1092 

998 

1307 

235 

1092 

U19 

1374 
1365 

271 

1090 

234 
518 
3C0 
690 
183 
473 

109'3 

1327 

1438 

1365 

1366 

235 
183 
225 
183 
183 
220 

1375 
265 
183 
595 
844 
59b 

1394 

137 

124 
383 

125 
136 


739 

230 

172 

157 

853 


3 161 

2 1093 
2 1307 
1 230 


1361 

1116 

13C9 


2 270 

6 306 

3 232 

1 510 

1 299 

1 U86 

1 167 

1 472 

2 1292 
1 1327 

1 1437 

3 1290 

2 231 

1 177 

I 222 
1 182 
1 176 


5 235 

1 264 

1 182 
1 597 

1 844 

1 595 

1 1 394 
3 808 

16  124 

1 390 

2 125 


OHRELLl 

GHV,ELL2 

CKDE  SNB 

QKDESSM 

OKEXI T 

OKMAX 

OKPHl 

OKTHETA 

OKTHCOPY 

OKTCENT 

CKTCGRAB 

□KTOPLAY 

0KU12 

0KU2J 

0KU31 

0K2DELAY 

OLDATAGD 

CLDDATA 

OLOESBIT 

QLOeSFLG 

CLOPI PAX 

OLOPIPAY 

CLDPIPAZ 

CLOPMI N 

OLDPRin 

CLOQRMIN 

OLDSENSE 

QLDTIME 

CLOXFCRP 

OLDYFORP 

OLDZFCRO 

OMEG/MS 

OMEGA 

CMEGAD 

OMEGAMl 

GMEGAM2 

0MEGAM3 

OMEGAP 

CMEGAPC 

DMEGAQ 

OMEGA QD 

CMEGAR 

OMEGARO 

QMEGAU 

OMEGAV 


04,3400 
04,3423 
25,2520 
25,2423 
24,3350 
35  ,3077 
22,2722 
22,2702 
10,2537 
10,3312 
13,3454 
10,2600 
22  ,2256 
22,2232 
22,2302 
00,3753 
1112 
21,2263 
4753 
0016 
E7,1763 
E7, 1764 
E7,1765 
£6,1460 
5402 
E6,1461 
E6  ,1744 
32, 3704 
E6  ,1440 
E6,l44l 
E6,1442 
37,2000 
E7, 15C2 
E7,1734 
£5,1712 
£5,1720 
E5 ,1  726 
E6,1421 
£6,1642 
6 6,1422 
66,1643 
66,1423 
E6,1644 
66,1426 
E6,1427 


1382 

547 

543 

578 

671 

364 

364 

1351 
1361 
1213 

1352 
356 

356 

357 
1369 

103 

892 

67 

66 

153 

153 

153 

131 

1291 

131 

1501 

828 

131 

131 

131 

44 

147 

146 

127 

127 

127 

130 

135 

130 

135 

130 

135 

130 

130 


5 1381 
4 1381 
1 547 

1 546 

1 578 

1 671 

1 364 

1 364 

2 1351 
1 1363 
1 1212 

3 1351 

1 356 

1 356 

1 357 

1 1369 

4 558 

2 092 
2 601 

5 153 

3 153 

4 153 
4 1404 
1 1294 
4 1404 

4 1500 

1 828 

5 131 

2 1415 

3 1404 

1 382 

9 147 

3 318 

3 127 

3 127 


812 

812 

1423 

1437 

1501 


16 


127 

130 

135 

726 

371 

1403 

371 

130 

131 


1416 

1147 
519 

1148 

1148 

1149 
1430 
1430 
1439 
1433 
1439 
1433 
1444 

134 


CMEGCALC 
nMEGDI SP 
OMEGMOnN 
ONE 

ONE/SP 

0N6B-2 

ONEBASE 

ONERIT 

CNEOPP 

□NEOCT 

CNEORTWO 

CNES6K 

DNEST02S 

ONFTENTH 

ONETHTH 

ONL  ITES 

ONULLAGE 

□P/INERT 

OPJUMP 

CPJUMP2 

0PJUMP3 

□PONLY 

OPTAXI S 

OPTCAOR 

OPTCOARV 

OPTIONVN 

CPT  lONX 

CPTIQNl 

GPTI0N2 

CPTI0N3 

0PTNR6G 

OPTSTALL 

CPT4 

OPBCHGO 

nRBCHGl 

□RBCHG2 

0RBCHG3 

ORBITAL 

ORB  I TALI 

nRPlTAL2 

0RBITAL3 

ORBMANUV 

ORBWFBIT 

ORBWFLAG 

ORDERBIT 


26,3610 
E7,1734 
13,2000 
4753 
25,3601 
23,2513 
37,3403 
04,3022 
37  ,3063 
26,3710 
5370 
22,3165 
30,3734 
20,2450 
34,2107 
25,3640 
36,2663 
43,2203 
6102 
6252 
6266 
06  ,2347 
07,2142 
1302 
43  ,2235 
22,3316 
1050 

1143 

1144 

1145 
E5 ,1463 
07,3703 
15  ,2105 
24,2007 
24,2021 
24,2033 
32,2217 
11  ,2000 
12,2n00 
13,2000 
04  ,2000 

0003 

4746 

0066 

4746 


46 
109? 
572 
503 
709 
11  79 
391 
598 
1291 
369 
Qio 
1411 
637 
617 
737 
268 
997 

1003 

1004 
168 
249 
106 
270 
716 
102 
104 
104 
104 
128 

1322 

923 

497 

497 

497 

497 


3 146  5^6 

1 1206 

182  159  1501 

1 572 

I 498 
1 705 

1 1190 
1 380 


1 


595 


1 1293 
4 368  370 

3 913  917 

1 1411 
1 640 

1 617 

1 731 

2 266  268 

1 997 

1 997 

1 1003 
1 166 


I 


224 

270 

715 

272  716 

307  1354 
497  974 


1 937 


1 


923 


1 497 

1 497 

I 497 

1 497 

2 1220  1233 
1 1239 

3 46  1239 
1 1239 

4 237 

3 1214  1236 
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SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  CF  OEF , H PF  REFS,  PAGE  DF  FIRST  REF,  PAGE  CF  LAST  REFo 


SYMBOL 


DEF 


REFERENCES 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


OROERSW 
ORIG  E4i 

ORIGCHNG  11 
ORIGEX  EAi 
ORIGIN  E5 
OTHCUNIC  27, 
OTHERS  13, 
OTHINT  37 
OTHPREC  13, 
OTHSHIP  22, 
OURPERMS  E7 
OURRCeiT 
OURRCFLG 
JURTEMPS  E7, 
OUT  13, 

OUTGOAVE  22: 
OUTHERE 
OUT  LINK 
OUTOFLIM  2A, 
OUTOFPLN  E5, 
OUTSNUFF  43, 
OUTO 

0UT22»1  32, 

OUT22.  2 24 

OVERFFIX  27, 
OVERFLCW 
OVERFLWY 
OVERFLHZ 
OVERSUB  16, 
QVERSU82  20, 
OVF+  00, 
OVF INO 
OVFLCLR  12, 
OVFLOWCK  E5, 


0201 
1515 
3440 
1512 
1773 
3211 
3472 
3222 
3042 
3333 
1621 
4740 
0306 
1544 
2327 
37C7 
0161 
0057 
3170 
1616 
3251 
0010 
2535 
3353 
2275 
7022 
7C17 
7014 
2310 
2451 
241  4 
0121 
3210 
1576 


79 
lit) 
1232 
1 1 5 
127 

706 
1214 

707 
37 


151 

713 


517 

123 

300 

93 

577 

579 

380 

1022 

1022 

1022 

1414 

14U 

1051 

96 

1186 

129 


1177 

1232 


3 13  76 

1 1232 

4 U5 

1 709 

1 121  5 

1 709 

3 703 

2 151 
6 1424 


3 1361  1363 


2 517 

3 123 

1 263 

5 158 

2 577 

1 570 

2 373 

3 1021 

4 1020 
4 1020 

12  1416 
3 1407 

2 1051 

13  808 
1 U86 

3 375 


382 
1045 
1045 
1C45 
14  33 
1408 

1103 


P-RATE 

P-RHCCTR 

PACCFUN 

PACKOPTN 

PACT  IVE 

PARAM 

PARAM30 

PASSIVE 

PASTEOPT 


E5,1737 

16,2510 

0043 

E6,1556 

15,3374 

05,3034 

04,3030 

35,2021 

23,2435 

4132 


92 

1497 

970 

219 

1180 

619 

699 

443 


14  126  1194 

4 1426 
2 1490 

2 96  9 

1 219 

3 1180 


627 

443 


1194 

699 


PAUTNC 

PAXADIDL 

PAXDIST 

PAXFI LT 

PAXI  S 

PAX  ISACR 

PBI ASX 

PBIASY 

PBIAS  Z 

PBI  T 

PBOCY 

PCLOOP 

PCONS 

PCA 

POBl 

PDB2 

PDB3 

PDB4 

POOL 

PCSPFBIT 

PDSPFLAG 

PCVL 

PDXCHNGE 

PEGI 

PERFCHEK 

PERFDLAY 

PERFFRAS 

PERFMASK 

PERF2MSK 

PERF4MSK 

PERI APC 

PERIAPOl 

PERIOCCH 

PERROR 

PFA  ILOK 

PFAI LCK2 

PFLITEOB 

PFRATBIT 

PFRATFLG 

PGUIOE 

PHASCHNG 

PHASETAB 

PhASEl 


30,3153 
16,2204 
E6,1564 
16,2647 
16,2213 
20,3772 
E3,1452 
E3,1454 
E3,1456 
4742 
E4, 1430 
05,2774 
E4 ,1744 
0026 
E6,1  560 
E6,  1561 
E6,1563 
E6,1562 
6526 
4740 
0077 
6562 
12,2274 
16, 3304 
10,3136 
E5,1574 
37, 2772 
10,3476 
10,3502 
10,3504 
2 3,2  351 
23,2341 
12,2112 
E6,1464 
07,3245 
07,3240 
20,2143 
4750 
0051 
1246 
5353 
10,2000 
0752 


906 

1405 

1497 
1420 
1413 

1498 
110 
110 
110 
132 
114 
218 
121 
125 

1467 
1497 
1497 
1497 
1014 
72 
72 
10)  5 
1171 
1427 
1358 
329 
3B9 
1364 
1364 
1364 
697 
697 
1169 
131 
1309 
1309 
1400 
69 
69 


905 

1404 
1495 
1414 

1405 
1483 

110 

795 

795 

1424 

115 

219 

121 

1495 

1495 

14R5 

1495 

1005 

478 

479 
10C5 
1171 
1427 


1352 
1352 
1254 
63  R 
622 
1169 
156 
1 68 
1309 
749 
922 
764 
105 
230 
1286 
219 


1498 

795 


1427 

1238 


1354 
13  54 


665 

1430 

833 

939 

875 

1387 

1292 

1294 


PHASE2 

PHASES 

PHASE4 

PHASE5 

PHASE6 

P HAS JUMP 

PHEXIT 

PHI 

PHIV 

PHS8B1 

PHSBB2 

PHSB63 

PHSB64 

PHSBB5 

PHSeB6 

PHSCHNGA 

PHSCHNG2 

PHSNAMEl 

PHSNAME2 

PHSNAME3 

PHSNAME4 

PHSNAME^ 

PHSNAME6 

PHSPART2 

PHSPR  DTI 

PHSPRDT2 

PHSPR0T3 

PHSPRDT4 

PHSPR0T5 

PHSPR0T6 

PHS2CADR 

PI  /16 

PICAPAR 

picexT 

PICEND 

PICGXT 

PICKANGl 

PICKAXIS 

PICKX 

PICNSWP 

PICl 

PIC2 

PIC3 

PIC4 

PIF 


0754 
0756 
0760 
8762 
0764 
5363 
13  ,3175 
0024 
E4,1445 
£3  ,1437 
E3,1441 
£3 ,1443 
E3  ,1445 
63,1447 
E3  ,1451 
9357 
10,2224 
63,1436 
£3,1440 
E3,1442 
E3  ,1444 
E3,1446 
E3  ,14  50 
01,3764 
1053 
10  55 
1057 
1061 
) 06? 
1065 
01  ,3771 
27,3755 
14,2603 
14,3005 
14,2760 
14,2764 
27,2147 
27,2170 
26  ,2376 
14,3003 
14,2640 
14,2643 
14,2653 
14,2656 
E7,1612 


ICl 

101 

ICl 

101 

101 

1291 

1209 

524 

119 

110 

1-10 

110 

lie 

110 

110 

1290 

1202 

110 

110 

110 

110 

110 

110 

1300 

102 

102 

1C2 

102 

102 

102 

1300 

1275 

932 
939 

934 

935 

486 

487 
487 
935 

933 

933 

933 

933 

151 


2 756 

I 731 
1 857 

1 731 

1 736 

1 1290 
1 1209 


1 230 

1 1291 
5 1292  1297 

1 821 
1 821 

2 883 

1 1300 
5 1291  1299 

3 231  823 

1 235 

1 234 


1 1295 

2 1271  1273 

1 932 

1 935 

I 933 
1 935 

1 486 

2 405 

2 487 
I 935 

3 933 
I 933 

5 933  934 

I 933 
1 151  808 
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SYMBOL 


DEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


PIFPSET 

PINACT 

PINBALLl 

P INBALL2 

PINBALL3 

PINBALL4 

P INBR6IT 

PINBRFLG 

PINBRNCH 

P INIDMSK 

PINMASK 

P INSUPBT 

PINSUPER 

PINTEST 

PIPABIAS 

PI PACHK 

PIPAGE 

P IPASC 

PIPASCF 

P IPASCFX 

PIPASCFY 

PIPASCFZ 

PIPASR 

PIPATASK 

PI PATMPX 

PIPATMPY 

P 1 PATMPZ 

P IPAX 

PIP  AY 

P I PAZ 

PIPCTR 

PI PCTRl 

PIPFAIL 

PIPFREE 

PiPFREE2 

P IP  INDEX 

PIPJ0B8 

P I PSDCNE 

P IPSR INE 

PI  PTEM 

P IPTIME 

PIPTIMEl 

PIPUSE 

P IPUSEl 

PITCH 


E7,1606 
05,3041 
40,2700 
A1 ,2000 

42.2000 

04 .2000 
4746 
0105 

10, 3051 
10, 3350 
7743 
4201 

40.2000 
43  ,2002 
E3,1452 
37,2126 

1256 
37, 3077 
£3  ,1453 
E3,1453 
E3,1455 
£3 ,1457 
37,3536 
37,2151 
1157 
1160 
1161 
0037 

0040 

0041 
1055 

£7,1714 
06,2650 
07, 3301 
07,32T6 
E5, 1415 
37,2166 
37,3447 
37,3541 
E4  ,1657 
1233 
E7 ,1560 
C7  ,3264 
07,3270 
E^,1764 


73 

73 

1356 

)36l 

1364 

456 


470 

110 

377 

105 

391 

110 

110 

110 

110 

'864 

377 

104 

104 

104 
92 
92 
92 

823 

823 

179 

1310 

1310 

128 

377 

853 

957 

117 

105 
149 

1310 

1310 

121 


5 151 

1 219 

2 301 

1 408 

3 283 

1 461 

1 1357 
8 229 

1 1361 
1 1357 
5 276 

1 276 

1 328 

1 376 

5 107 

1 307 

1 328 

1 110 


15 


336 
377 
812 
81  2 
812 
307 
385 
9 385 

4 603 

2 823 

1 183 

1 858 

1 1310 
6 128 

1 377 
1 866 

2 960 

7 120 

6 197 

1 149 


557 

894 

854 

855 
1310 
1310 
1310 

853 

891 


561 

887 

1215 

1217 


1 338 

2 318 


PITCHANG  E4, 
PITCHGFF  27 
PITFALL  111 
PITTIME  E6 
PJETCTR  E6 
PJETSLEC  16, 
PLANET  15 
PLANTIN  2A, 
PLANTINl  26, 
PLANTIN2  26 
PLANTIN3  25, 
PLANVEC  E7: 
PLAST  £6, 
PLAYJUMl  10, 
PLAYTEMl 
PLAYT6M3 
PLAYTEM4 
PLENTY  25, 
PLUSFIRE  21, 
PLUSX  27, 
PMINE  34, 
PMINM  34, 
PMMASK  10, 
POINTER 
PCINTVSM  £7, 
POLI SH 
PQLLEY 
PCLY 
POLYCNT 
PCLYCDEF  12, 
PCLYCCM 
PCLYLOOP 
PCLYRET 
POLYTEMP  E6, 
P0LY2 

PON  37, 

P0N2  37, 

PCN4  37, 

PCOOOO 
POODOOl 
PCCFIZZ  04, 
POOH  04, 

POOFB  IT 
PCCHFLAG 
POOKLE/N  05, 


1600 
32  60 
2302 
1402 
1766 
3362 
2472 
2000 
2000 
2000 
2000 
15  53 
1454 
2616 

0155 
0157 
0160 
3223 
3722 
2423 
2073 
2103 
3515 

0156 
1772 
0117 
5051 
7225 
0140 
3031 
7235 
7245 
014) 
1740 
7250 
2251 
2240 
2245 
5642 
5716 
2263 
2167 
4735 
0055 
2645 


119 

777 

81A 

130 
138 

1428 

956 

32 

33 
33 
32 

147 

131 
1352 
1365 
1365 
1365 

559 

1501 

764 

637 

637 

1364 

1300 

148 

96 
1096 
1026 

97 
1183 
1028 
1029 

97 
) 32 
1029 
378 
378 
378 

1375 

1376 
233 
231 

70 

70 


7 119 

2 776 

2 156 

2 316 

4 138 

5 1423 

7 937 

1 1135 

2 1134 

1 52 

1 1138 
5 147 

5 1416 

3 1357 
28  1346 

3 1354 
11  1346 

1 559 

1 150) 

? 646 

1 1352 

7 1298 
7 154 

39  96 

2 IC96 

7 051 

4 1028 
I 1185 
1 1028 
1 1C29 

3 1028 
10  1422 

1 1029 
1 378 

1 378 

5 245 

2 1G73 


231 

232 


776 
142  0 
1431 


946 

1427 

1364 

1355 

1362 

1362 


1226 

1126 


POSALARM  33, 
POSALPH  21, 
PCSCHECK  21 
POSCODE 
POSCEL  12 
POSOELX  12, 
POSDRIVE  21, 
PCSEC  42 
POSFNCTl  21, 
POSGMBL  37, 
PCSGN  40 

POSGOOD  33, 
POSITA  15 
POSITB  15, 
POSITD  15, 
POSITE  15, 
POSITF  15, 
POSITON  E5, 
POSMAX 
POSNV  E5, 

pnSTANO  37, 
POSTBURN  36 
POSTCDH  E7, 
POSTCGM  37, 
POSTCSI  E7, 
POSTHRST  21 , 
POSTJUMP 
PDSTORKP  E6, 
PCSTORKU  E6, 
POSTORKV  E6, 
POSTST  33, 
PCSTTP!  E7, 
POSUPOAT  33, 
POSVMAXY  21, 
POSl/2 
POSl/4 
PCSICHK 
P0S2CHK 
PPW  EROB 
POWFL! TE  23 
PnWFL  ITl  23, 
POWPSERS 
PQR8IT  16 
PRATE  E4, 
PRDTTA8  01 


12 


20 


3653 
3370 
.3702 
1241 
2620 
2246 
3574 
,3414 
3227 
2064 
,2*^07 
364) 
3663 
3666 
3705 
37  53 
3726 
1416 
4733 
1 520 
3731 
3227 
1603 
3760 
1601 
3656 
4635 
1513 
1515 
1517 
3674 
1605 
3125 
2702 
^736 
3765 
2536 
2540 
2153 
2000 
200C 
7220 
3132 
1750 
200fi 


888 
1471 
150) 
955 
1177 
) 171 
1475 
426 
1466 
376 
404 
888 

979 
97c 

980 

981 
980 
128 

1089 

129 

1328 

749 

143 

1320 

14? 

1500 

OQ2 

133 

133 

134 
889 
) 43 
877 
8QP 

1093 

1239 

870 

870 

140C 

32 

32 

1028 

1425 

12) 

240 


2 888  889 

2 1471 
1 1500 
6 318  955 

1 1176 

1 1170 

2 1465  1475 

2 426 

1 1466 


I 


1 


400 

866 

980 
900 

981 
980 


6 128 
46  173 

2 388 

2 1327 

4 242 

3 143 

2 1329 
2 639 

5 1501 

63  167 

1 197 

5 196 


383 

1498 

389 

1328 

755 

646 

646 

1502 

1394 


1 8 69 

1 869 

2 1399  1400 

1 1251 

2 819 
1 1425 

9 121  647 

3 1298  1300 
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SYMBOL 


REFERENCES 


SVMBCL 


OEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


PRE6JUMP 

PRECI BIT 

PRECIFLG 

PRECSET 

PREOOT 

PREOS  PAL 

PREGUIOE 

PREMMl 

PREMOM 

PREM0N2 

PRENVeSY 

PREP0S29 

PREREAO 

PRERRORS 

PRESI NE 

PRESTANU 

PRESTORE 

PRETIMCK 

PRIOBORT 

PRIOCHNG 

PR  I0CH2 

PRIODEIT 

PRIODFLG 

PRIODSP 

PRIODSPR 

PRI06NT 

PRIOLARM 

PRIOOCT 

PRIOPLAY 

PRIORITY 

PRIOTI ME 

PRIQl 

PRIOlO 

PRIOll 

PR1012 

PRIOl  3 

PRIOIA 

PR1015 

PRIIJ16 

PRI017 

PR  102 

PRI020 

PRI021 

PR1022 

PRI023 


0064 
23,2403 
7157 
40,3452 
31,2366 
04, 2437 
11  ,2323 
11,2324 
4437 
25,36C4 
37, 3410 
43,3273 
CO, 3526 
?7, 3654 
6424 
16,2667 
10 ,2576 
5146 
Cl, 3073 

4736 
0075 

10, 2510 
10,2505 
5575 
10,3563 
10,3532 
10, 2617 
0167 
1164 
4742 

4737 

5022 
4644 

5023 

5024 

5025 

5026 

5027 
4741 
4736 
5031 

7713 

7714 


71 

71 
699 

1027 

449 

793 

236 

815 

815 

469 

602 

852 

1278 

1076 

1327 

1010 

1420 

1352 

1099 

1106 

72 

72 

1350 

1350 

1373 

1374 
1365 
1352 

99 

104 

1093 

1093 

1091 

992 

1091 

1091 

1091 

1091 

1091 

1093 

1093 

1091 

1091 

1091 


19 


6 238  1212 

4 627  668 

2 1032  IC35 
1 - 419 

1 799 

2 230  234 

1 815 

1 815 

1 468 

1 601 

1 731 

3 1279 

2 1076 
1 1327 

1 ion 

2 1419 

2 1350  136C 
277  1361 
1 1099 

1 1357 

2 509  511 


7 530  888 

2 1348  1355 
2 1348  1351 

34  223  1353 

2 1351  1361 

5 286  776 

3 213  755 

3 740  1347 

3 507  1295 

5 183  1363 

6 183  735 

5 729  846 

8 270  853 

4 330  E52 

6 292  871 

2 256  688 


PR  1024 

PRI025 

PR  1026 

PR  1027 

PRIGS 

PRI030 

PRI031 

PRI G32 

PR  1033 

PPI034 

PR  1035 

PR  1036 

PRIC37 

PR104 

PR1C5 

PRI06 

PR  107 

PRLIMIT 

PROCEED 

PROCEECE 

PROCKEY 

PROCKEYl 

FPCCTNON 

PRODUCT 

PROGLARM 

PROGRAV 

PROG  20 

PR0G20A 

PRCG21 

PROG22 

PRGG25 

PR0652 

PROJ 

PRCJMAX 

PROJMIN 

PRCK 

PRCNVBl T 
PRONVFLG 
PRSHRTMP 
PRT2CA0R 
PSEU0055 
PSIV 

PSKIPAOR 
PSTHI01T 
PSTHl  GAT 


7715 

7716 

7717 

7720 
5015 
4355 

7721 

7723 

7724 

7725 

7726 

7727 
7 730 

4740 
5017 

5020 

5021 
33  ,2200 
10,3412 
06,2075 

40 . 3506 
4C,3514 
06,2242 
21,3524 

5614 

15,2652 

24,2000 

24,2040 

24.3506 
24,2000 
24,2400 
15,2050 

0022 
31  ,3714 
31,3715 
30,2553 
4745 
0104 
4415 
01  ,3772 
E7,1614 
E4,1453 
16,3627 

4741 
0251 


1091 
109  1 
1091 
1091 
1091 
1093 
1091 
1091 
1091 

1091 

1092 
109  2 

1092 

1093 
1091 
1091 
1091 

850 

1362 

160 

452 

452 

166 

1474 

1373 

960 

496 

499 

657 

496 

506 

922 

152 

822 

822 

841 

73 

73 

466 

1300 

151 

115 

1433 

b4 


10 


370 


12 


lo 


194 
25'3 
176 
5 338 

4 867 

1 1351 
1 1093 
1 1115 

1 566 

8 234 

4 276 

237 
4 540 

7 277 

2 R41 
1 1360 

1 160 


2 236 

3 497 

1 236 

1 236 

1 236 

X 235 

I 007 

1 807 

2 841 

1 1358 

4 422 
I 1 297 

3 151 

3 115 


610 

14C3 

1093 

1363 

1433 

1359 


7 396 
493 
12C2 


790 

1234 


PTPAO 

PTIGINC 

ptoacsm 

PTOALEM 

PULSEFLG 

PULSEIMU 

PULSEM 

PULSES 

PUPGENCY 

PURRS4 

PUSH 

PUSHLOC 

PUSHUP 

PUTAOO 

PIJTCQM 

PUTCGM2 

PUTDCSF2 

PUTCECSF 

PUTCPCOM 

PUTNORM 

PUTSFNOR 

PUTXY 

PUTXYZ 

PVALVEST 

PWRCNT 

PWPPTR 

POOHCHK 

P05PO6 

pn6 

PICHK 

P12 

P12A 

P12A0ReS 

P12IGN 

P12 INIT 

P12LM 

P12LMB 

P12RET 

P12SP0T 

P12TABLe 

P2CHK 

P20FL  GON 

P20LEMA 

P20LEMB 

P20LEMB7 


05,3052 
67,1402 
13  ,2704 
13  ,2757 
030? 
10  ,3706 
14,3222 
4735 
16  ,3467 
10,271 6 
on  ,3247 
0166 
6220 
41  ,2334 
41,3120 
41  ,3200 
41  ,3232 
41,3217 
41  ,3153 
41,3162 
41,3231 
41  ,2737 
41,2636 
1273 
0140 
0117 
13  ,3350 

37.2000 
37,365? 
33,366? 

30.2000 

23.2000 
30,231* 
36,2525 
30  ,2251 
30,2061 
30,2122 
30,227  6 
36,2150 
36,2024 
33  ,3670 
35,2366 
2*, 2111 
24,211 7 
24,21 6? 


1204 

1205 


1430 

1354 

1071 

100? 

413 

432 

433 
43* 

434 
433 

433 

434 
430 
428 
106 


38 


831 

833 

727 

725 

888 

634 

500 

500 

507 


3 218 
1 668 

1 1209 

2 299  1209 

4 286  786 

1 382 

3 732  1436 

4 1*22  1427 

2 1353  1354 
1 1007 

2 53  1103 
1 998 

3 413 

8 428  431 

4 433  435 

1 434 

2 433 

1 433 

1 432 

1 434 


7 193  213 

2 818  819 

4 818  819 

2 1211  1212 
1 1327 
1 236 

1 888 
1 831 


I 


832 

725 

828  831 

236 

843 
725 
834 
888 
626 
500 
500 
517 


668 

513 

501 
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SYMBOL 


OEF 


REFERENCES 


SYMBOL 


CEF 


REFERENCES 


SYMBOL 


OFF 


REFERENCES 


P20LEMB2 

P20LE  MB3 

P 20LEMBA 

P20LEMe5 

P20LEMB6 

P20LEM67 

PaOLEMC 

P20LEMC1 

PZ0LEMC2 

P20Lb  MC3 

P20LEMC4 

P20LEM0 

P20LEMD1 

P20LEMC2 

P20LEMF 

P20LEMt,T 

P20LEM1 

P20LMV.T1 

P20RE6 

P20S 

P20S1 

P20S2 

P20S3 

P20S4 

P21 

P21ALT 

P218ASER 

P21BASEV 

P21C0NT 

P21DSP 

P21FLAG 

P21FLBIT 

P21GAM 

P2iOR IG 

P21PP0G1 

P21PP0G2 

P21PRTM 

P21T I ME 

P21VEL 

P 21VSAVE 

P25FLAG 

P25FLBIT 

P25L6M1 

P25LEM2 

P25LMWT1 


24,2166 

24,2170 

24,2205 

24,2135 

24,2153 

24,2130 

24,2217 

24,2244 

24,2261 

24,2211 

2^,2216 

24,2264 

24,2270 

24,2277 

24.2231 

24.2232 
24,2063 
24,2241 
04,2333 

24.2000 

25.2000 

25.2000 

26.2000 
32,2000 
E6,  170  2 
E7,1715 
E7, 1675 
t7,1703 
24,3555 
24,3632 

0004 
47*1 
E7, 1713 
1162 
24,3521 
24,3533 
24,3667 
E7, 1762 
£7,1711 
24,3576 
C006 
4743 
24,2414 
24,2437 
24,2433 


501 

501 

5C2 

501 

501 
500 

502  • 

502 

503 
502 

502 

503 
503 
5C3 
502 
502 
500 
502 
234 

32 

32 


136 

150 

150 

150 

658 

658 


150 

150 

657 

657 
659 
148 
150 

658 


506 

507 
507 


1 501 

2 501 

1 501 

1 509 

2 501 

3 509 

3 241 

1 50  2 

3 501 

1 504 

1 502 

2 503 

1 503 

6 5 00 

2 500 

1 233 

8 496 

3 530 


319 

150 

15f 

657 

658 

657 
219 
150 

658 

659 
659 

657 
14  5 
150 

658 
289 
230 
241 
507 
507 


P3xnRP7X 

P30 

p3oexn 

P30N33 

P30S 

P30S1 

P30ZER0 

P32 

P32/P72A 

P32/P72B 

P32/P72C 

P32/P720 

P32/ P72E 

P32/P72F 

P32STRT 

P33 

P33/P73A 

P33/P738 

P33/P73C 

P33/P73D 

P33/P73E 

P33/P73F 

P34 

P34/P74A 

P34/P74B 

P34/P74C 

P34/P74D 

P34/P74E 

P35 

P35/P75A 

P35/P758 

P40/RET 

P40A/P 

P40A/PMD 

P40ADRES 

P40ALM 

P40AUTC 

P40IGN 

P40IN 

P40LM 

P4CPH  SI 

P40S 

P40SJUNK 

P40SPQT 

P40SXT4 


35,3613 
35,2000 
E5  ,1773 
35,2004 

35.2000 
3*, 2000 
35, 2424 
35,2034 
35,2060 
35,2136 
35,2157 
35,2163 
35,2165 
35,2173 
35,2037 
35,2223 
35,2226 
35,2240 
35,2307 
35,2313 
35,2321 
35,2332 
35,2455 
35,2460 
35,2502 
35,2504 
35,2545 
35,2550 
35,2635 
35,2644 
35,2651 

1141 

35,3711 

35,3735 

36,3137 

36,3125 

35,3707 

36,2510 

36,3204 

36,3153 

36,3242 

36.2000 
36,2372 
36,2150 
36,3217 


685 

619 

127 

619 

35 
34 

636 
6 26 
626 

627 

628 
628 
628 
628 
626- 
632 
632 

632 

633 
633 
633 
633 
663 
663 
663 

663 

664 
664 
668 
668 
668 
104 
7*2 
743 
743 
742 
742 
733 

749 

748 

750 

36 
731 
727 

749 


682 

236 

127 

619 

621 

626 

236 

626 

626 

646 

628 

628 

628 

626 

236 

632 

633 

632 

633 
633 
633 
236 
663 

663 
665 

664 
664 
236 
668 
668 
740 
743 
743 
748 

748 
727 
726 
753 
236 
7 50 

38 

726 

725 

749 


P40S1 

P40S2 

P40S3 

P*OTABLE 

P4nZ00M 

P4r  ZODMA 

P41 AORES 

P41DLANK 

P41FJET 

PAIFJETI 

P41  IN 

P41  LM 

P41MANU 

P43  NORM 

F41SPCT 

P41TABLE 

P42  AORES 

P42IGN 

P42LM 

P42SPCT 

P42STAGE 

P42TABLE 

P47800 

P4780DY 

P*7LM 

P50S 

P50S1 

P51 

P51B 

P51C 

P5  10 

P51E 

P51G 

P52A 

P52B 

P52C 

P52E 

P52F 

P52H 

P52LS 

P52C'UT 

P52T 

P52V 

P52W 

P57 


27.2000 

35.2000 

35.2000 
36  ,20*0 

35  ,3677 
35,370* 

36.3140 
36,2265 
36,3307 

36  ,3311 
36,3314 

36.3276 
36,3221 
36,3316 

36.2153 
36,2055 

36.3141 
36  ,2545 
36,3414 
36  ,2l5f 
36,3424 
36,2063 
36,3510 
36,3517 
36,3442 

15.2000 

14.2000 
1*,3421 
14,3453 
14,3*6* 
14,3502 
14,3522 

14,3544 
15,2060 
15,2062 
15  ,2143 
15,2102 
15,2164 

15.21 53 
15,2220 
15,2166 
15,2110 
15,2130 
15,2137 

15.3277 


725 
735 
7?6 
743 
729 
750 

750 

751 

750 
74e 

751 
728 

726 
743 
734 

752 

727 

752 
726 
75* 
75* 

753 


946 

9*6 

946 

923 

923 

925 

923 

925 

025 

927 

925 

923 

923 

925 

969 


742 
735 

743 
735 
735 
750 
729 

750 

750 

236 


726  727 

743  758 

752 

726  734 

236 

726 

726 

743 

754 

753  754 
235 

251  959 

45  928 


946 


235 

945 

946 

945 

946 
946 
923 
923 

925  927 

923 

923 

924 

926 
923 

923 

235 
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SYMBOL 

P57A 

P57AA 

P57C 

P57D 

P57 JUMP 

P570PT 

P57OPT0 

P570PT1 

P570PT2 

P570PT3 

P57POST 

P63A0RES 

P630ISPS 

P63IGN 

P63IGN1 

P63LM 

P63SP0T 

P63SP0T2 

P63SPOT3 

P63SPOT^ 

PSSTABLE 

P63200M 

P64CEED 

P640B 

P6A0I  SPS 

P65START 

P65VERT 

P65VEPTA 

P66L0C 

P66VERT 

P66VERTA 

P70 

P70A 

P7OCA0R 

P70INI T 

P70N0W? 

P7071 BIT 

P7071FLG 

P71 

P71A 

P71N0W? 

P71ReT 

P72 

P73 

P7A 


DEF 

15,3336 
15,33^.0 
15,3363 
15, 3365 
15 ,35AA 
15,3303 
15, 3560 
15,3601 
15,3617 
15,3620 
15  ,3171 
22,3255 
31 ,3A3  7 
36,246^ 
36,2520 
32  ,3000 
36,2153 
32,3217 
22,3237 
22,  3251 
36,2100 
35,3672 
31,3457 

31  ,3707 
21,3442 
31,2547 
21,3505 
32,3272 

32  ,2000 
31,3510 
32,3300 
21  ,2067 
21,2070 
04,2404 
32,3555 
21,2056 

4737 

0211 
21,2072 
21  ,2073 
21,2043 
22,3667 
35,2036 
25,  2225 
35,2A57 


REFERENCES 


SYMBOL 


DEF 


969 

969 

970 
970 

974 
969 

975 

975 

976 
976 
966 
784 

809 
733 
733 
780 
727 

783 

784 
784 
726 
735 

810 
821 
809 
797 
819 
811 

34 

811 

811 

824 

824 

235 

826 

824 


824 

824 

823 

628 

626 

632 

663 


969 

970 
970 
966 
969 
974 
974 
974 
974 
965 
780 
794 


235 

726 

783 

784 
784 
743 

810 

797 

794 

793 

810 

811 

810 

811 

235 

243 

235 


826 

235 

235 

235 


P75  35,2641 
P76  13,2207 
P76L0C  13,2000 
P76SUei  13,2336 


REFERENCES 


235 

711 

712 


966 


Q+1 

0-^10000 
0+2 

Q-RATE 
■RHCCTR 
Q,RORGTS 
QACCDOT 
CAXIS 
CCDLWLSR 
QCHAN 
CDIFF 
OERRCALC 
OERRCALL 
CERROR 

784  QGIMBITS 
CGIMTIMR 
QLAST 
QMAJ 
610  CMIN 

gM  INEX  I T 
QCK 

OPLACE 
CPLACES 
QPRET 
ORATEDIF 
ORAXIS 
824  ORBIT 
QRCNTR 
QRCCNTRL 
QRNOXER 
ORTIME 
843  QRUPT 
OSAVED 
824  QTEMP 
QTEMPl 
QTSN45 
QUAOGUIO 
QUARTER 
OUICTR  IG 


0002 

6742 

4643 

6744 

16.2544 
0042 

17,2136 
E6, 1510 
F7,1717 
E6,1646 
0002 
E6  ,1450 
17,2655 
16,3643 
E6  ,1450 
5007 
E6,1631 
£6,1455 
E5, 1746 
E5  ,1745 
15,2755 
26,2611 
F5,1417 
E5,1420 
0052 
E6 ,1436 
16,3630 
4741 
£6,1747 
17,2232 
0066 

17.2544 
0012 

E7,1464 
E7, 1632 
E7,1665 
23,3535 
31,3066 
4737 
23,3617 


1019 

992 

1019 

1418 

92 
1434 

133 

153 

137 

93 
133 

1443 

1433 

131 

1421 

135 

131 

125 

125 

961 

583 

128 

128 

93 

131 
1433 

132 

133 
1436 
1470 
1440 

92 

142 

144 

144 

1249 

803 

1093 

1253 


17 


7 93 

7 159 

1 994 

5 525 

2 1416 

3 1425 

1 1434 

6 1403 

3 833 

3 137 

2 1C87 

3 146* 

2 1405 
1 1433 
5 133 

1 1420 
9 135 

5 1416 

125 


SYMBOL 

OUIKDSP 

QUIKFAZ5 

OUI  KOFF 

OUIKRUPT 

OUITBIT 

OUITFLAG 


17 


125 
1 963 

1 583 

7 128 

3 128 

8 300 

2 1439 

4 1421 

4 1425 

9 1464 

1 1435 
9 1471 

2 1440 
157 

2 682 

5 621 

6 144 
1 1243 

4 1075 

5 606 


13 


DEF 

06,2134 

33,?512 

06,2165 

06,21*4 

*747 

0221 


162 

883 

162 

162 

81 

81 


REFERENCES 

157 
656 
162 
162 


300  1211 


1371 

1426 


1469 

143* 

1444 

1472 

3439 

977 

965 


R(CSM) 
R#TL»#P 
R-OTHER 
R-RATE 
R-RHCCTR 
R-TO-RP 
PACCDOT 
RACTCAOR 
RACTl 
RACT2 
RACT3 
PADARANG 
RADAREAD 
RAOARFF 
RAOARUPT 
RADCAOR 
RADDEL 
RACIN 
RADLITES 
PADMDOES 
PADNOCP 
RADSAMP 
PAOSKAL 
RAOSTALL 
RADSTART 
RACTIMG 
RAMIN 

1472  RANGCONV 
RANGE 
RANGEBO 
RANGEBOl 
RANGEDSP 
PANGEVAR 
PANGRDOT 
RAPFG 
RAPO 
RAPREC 


383 

382 

1235 


1440 

1476 


1420 

683 

761 

757 


67,1520 
F3,1717 
23  ,3702 
£3,1717 
16,2602 
004* 
24,3700 
66,1 512 
05,3060 
£4,1702 
E4 ,1710 
67,1535 
26,3361 
25  ,3157 
*000 

25.2000 
1303 
1270 

25  ,3332 
25  ,3612 
0110 
25,3513 

25.2003 
1351 

07,3705 

17.2000 
1267 

E5 ,1562 

32.2003 
E4,I 600 
26,2514 
26,2524 
E5,1616 
63,1770 
E7  ,1760 
E5,1436 

00  20 
67,1477 


1*9 

121 

1255 

112 

1419 

92 

1136 

133 

220 

117 

117 

143 

592 

559 

28 

32 

106 

106 

561 

617 


108 

1321 


41 

116 

582 

582 

123 

113 

146 

122 

1266 

1*3 


149  875 

603  875 

1256 

121  323 

1418 

1425  1426 
786  1227 
1403  1468 
219 


118 
118 
627 
586 
156 
524 
41 
224 
565 
561 
560 
175 
541 
279 
677 
266 
558 
565 
123 
576 
1 16 
582 

582 
123 

583 
148 
122 


651 

652 
699 
587 


564 

871 

567 

494 


HEALTH  KFV:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


DEFINED  BY  EQUALS 


CD  DEFIMTICN  ASSOCIATED  WITH  CONFLICT 


J DEFINED  BY  JCKER  CR  ERASE  ANYWHERE 


MI  SCELLANEOUS  TROUBLE 
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SYMBOL 

RASFLAG 

RASTEERl 

RATERIAS 

RATEOAMP 

RATEOBl 

RATEOISP 

RATEDONE 

RATEINCX 

RATELIMI 

RATEL  IM2 

RATELOCP 

RATEPRCR 

RATES 

RATESP 

RATESTOP 

RATESTRT 

RATEVAR 

RATT 

RATTl 

RBRFG 

RCB-13 

RCDUFAIL 

RCDUFBIT 

RCOUOBIT 

RCDUOFLG 

RCNORM 

RCO 

RCS 

RCSFLAGS 

RCSMON 

RCSMONEX 

RCSMONIT 

RCSMONT 

RCV 

RCVCSM 

RCVLEM 

RCBADENO 

ROC  DUS 

RDQ 

ROES 

RDESGAIN 

RDESIREO 

RDG 

RDGIMS 

RDIFF 


OEF 

0106 

27,2731 

22.3133 
16,3220 

4767 

43,2175 

16.3134 
1322 
4766 

21,3655 
16,3645 
16,3232 
30,2510 
05  ,2027 
31,3411 
05,3057 
E3  ,1772 
0000 
0016 
E5,14C2 
05,2025 
0274 
4745 
4737 
0266 
0042 
E7,16?0 
17,2141 
1262 
06,3164 
5270 
06,3164 
C6,2000 
E3, 1534 
E3  ,1606 
E3,1660 
25,3565 
14  ,3405 
13,3744 
133  3 
25,3C75 
E5, 1755 
E5,1402 
34,3632 
E6,1452 


REFERENCES 


82 
771 
369 
1426 
1502 
267 
142  5 
107 
3 502 
15C0 
1462 
1426 
840 
52 
BOR 
220 
113 
1240 
1240 
122 
52 
66 
86 
85 
85 
126 
154 
1434 

105 
193 

192 

193 
29 

111 

112 

112 

569 

943 

1240 

106 
556 
126 
821 
8B7 
133 


6 1212 
1 766 

1 369 

4 1424 
1 1501 
1 263 

1 1425 
3 214 

1 1501 

2 1502 
2 1420 
1 1426 

1 840 

2 980 

2 808 
1 214 

1 584 

3 341 
1 211 

2 122 

1 980 


1213 

1425 

366 


1217 

782 

621 


186 

50) 

1172 

154 

1441 

213 

193 

193 

161 

192 

111 

591 

504 

550 

942 

1227 
106 
554 
126 
80  2 
885 


541 

1173 

849 

1442 

1475 

194 


1233 

591 


SYMBOL 

RDLGNOR 

RDM 

ROOT 

ROOTBIAS 

RDCTCCNV 

ROOTO 

RDCTDNCM 

RDOTM 

RDOTMSAV 

ROOTV 

RDRET 

RDRLCCS 

RDRPTee 

RCRUSECK 

RCSP 

REAOACCS 

READCDUD 

READCOUK 

READLD 

REAOLCl 

READRBI T 

READROOT 

READRFLG 

READY 

READVBIT 

REAOVEL 

RECALTST 

RECALl 

RECAL2 

RECAL3 

RECRATIC 

RECTEST 

RECTIFY 

RECTOUT 

RED-OVER 

REOES-CK 

REOESIG 

REOESMCN 

REDESl 

REDFLAG 

RECFLB  IT 

REDO 

REDOCTR 

RECOMANC 

REODMANN 


D6F 

40, 3023 
13,3  742 
E7,1473 

25.2001 

32.2001 
E4, 1672 
34,3370 
E7,1750 
67,1746 
£7,1616 
E7,1675 
25,2065 

4063 
43,2700 
E5  ,1434 
37,3437 
23,2322 
22  ,2403 
4C, 3003 
40,3014 
4743 
32, 2404 
0063 

33.3467 
4747 
02  57 

40, 3612 
40,3615 
40,3626 
40, 3640 
13,3736 
11,3342 
13,3671 
13,3177 
31,3465 

31.3467 
31  ,2654 
11,2326 
31  ,2725 

0143 

4746 

37.2002 
0320 

26,2154 

26,2125 


REFERENCES 


423 

1240 

120 

41, 
12C 
835 
148 
148 
143 
147 
495 
156 
282 
128 
853 
524 
359 
423 
42  3 

71 

575 


84 

84 

462 

462 

462 

462 

1240 

1231 

1233 

1209 

810 

810 

799 
815 

800 
76 
76 


833 

561 

576 

120 

832 

148 


147 

495 

155 

266 

866 

522 

353 

422 

423 
222 
577 
612 
882 
682 
862 
431 
462 
462 

1231 

1230 

1150 

1209 

809 

809 

793 

815 

800 

780 

799 

292 

196 

478 


1232 

1232 

12)0 


SYMBOL 

PEDOMASK 

REDOPR 10 

REDC2ol7 

RFD04o  2 

REDn5o5 

PeOC6o  7 

REOSPTEM 

REFLASH 

RFF  LA  SHR 

REFMF 

PEFSHBIT 

REFSMFLG 

REFSMMAT 

PFGCOARS 

REGODSP 

REGCDSPR 

REGSLFEP 

PEGUP 

REINTBIT 

REINTFLG 

REJALM 

REJECT 

PEJ  ECT2 

PELCSP 

RELOSPON 

RELDSPl 

PELDSP2 

REL  INTO 

PEL  INUS 

RFLOADSV 

RELRET 

PELTA8 

PFLTA611 

REMARK 

REMDl ST 

REMODBIT 

REMOOE 

REMOOFLG 

RFNCEND 

RENCEZ 

RENDEZVU 

PENDNOO 

RENDRAD 

RENDVOO 

RENDW6IT 


OFF 

10,3505 
10,2543 
36  ,2341 
36,2344 
37,3451 
36  ,3354 
32,201 7 
10,2460 

10  ,2463 
15,3471 

4737 
0057 
E3,1733 
15,21 56 

10.2466 

10.2471 
07,3363 

6236 

4745 

0236 

07.2466 

07.2471 
07,2504 

4457 
43  7^ 
4502 
4473 
10,3232 
26,2223 

11  ,3651 

0144 
4066 
4101 
07,2576 
42  ,2000 
4736 
25,2202 
0265 
26,3176 
22  ,2000 
0002 
04,2266 
25,3277 
04,2232 
4753 


1364 

1351 

730 

73) 

85? 

751 

209 

1349 

1340 

973 

70 

70 


1350 

1312 

1002 


258 

258 

468 
465 

469 
469 

1359 

479 

1236 

97 

157 

157 

261 


237 

233 

561 

232 


REFERENCES 

2 1349 
1 1364 
1 241 


244 

209 

739  610 

750 

787  974 

208  1324 
682  966 

196  973 

926 

730  809 


1 1312 
3 1002 
3 1213 
5 713 


1376 

1384 


1 


258 
1 258 

1 258 

10  229 

3 400 

2 442 

2 469 

2 1355 
1 241 

1 1235 

4 468 

4 159 

2 158 

3 258 

1 40  1 

6 536 

2 550 

I 585 

1 1151 

13  237 

2 232 

1 560 

1 232 

1 292 


829 

468 

454 


469 

447 

1093 

260 


HEALTH  key:  NORMALLY  DEFINED  UNLESS  FLAGGEC  AS  FOLLOWS: 


J DEFINED  6Y  JCKER  CR  ERASE  ANYWHERE 
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XX  MISCELLANEOUS  TPCUBLE 


MO  MULTIPLY  DEFINED 
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SYMBOL 


OEF 


37 


RENDWFLG 
RENEHMK 
REPETE 
REPIPl 
REPIP3 
REP1P4 
REPOSBIT 
REPOSCNT  E7 
REPOS MCN 
REPOSKPT  25 
REPOSTM  E7 
REP40ALM  36 
R6QA00 
REOCOM  41 
REQDATX  41 
KEOOATY  41. 
REQOATZ  41 
REQEXLCC  41 
REQEXl  <1, 
REOMM  41 

REQKET 
REOUESTC  41 
REREADAC  37 
REREPOS  23, 
RERRCALC  17, 
KERROR  E6, 
RER60  26, 

resample  25. 
RESETRPT  11: 
RESETX2  12, 
RESET22 
R6SET57 
RESIGN 
RESO 
REST 
RESTART 
RESTART?  21 
RESTARTS  01, 
RESTOROB  20, 
R ESTREG 
RESTSLEP  10, 
RESULTCT  E5 
RESUME 
RETJADR  E6 
RETNMORE  20 


04 


01 


0131 
,2501 
, 3107 
,3554 
,3562 
. 3566 
4741 
,1423 
0270 
,2155 
1424 
,3127 
.2064 
2312 
,2305 
2307 
2311 
2207 
3506 
,3465 
1012 
3512 
3611 
3630 
2675 
1452 
22*3 
3264 
2342 
3120 
2254 
2357 
3133 
2037 
3246 
2000 
2522 
3527 
2115 
0366 
3252 
1537 
5270 
1477 
2456 


258 

671 
865 
865 

865 
85 

141 

85 

534 

141 

742 

409 

413 

413 

413 

413 

411 

451 

451 

101 

451 

866 
888 

1443 

131 
479 
560 
815 

1185 

233 

273 

672 
44 

1360 

28 

796 

1295 

1399 

100 

1360 

128 

1123 

132 
1412 


REFERENCES 

1’  238  1 

258 
671 
866 
866 
666 
109 
141 


1 53  8 

5 141  515 

2 726  742 

1 409 

2 413 

3 428  430 

3 428  430 

3 409  430 

1 452 

1 450 

17  224  460 

1 452 

3 243 

1 240 

5 133  1444 

I *79 

1 563 

2 815 

1 1183 

2 232 

1 273 

1 672 

1 873 

1 1357 

4 240  1299 

1 795 

1 220 
8 290  1401 

4 213  1356 

1 1360 

5 377  381 

26  162  14C5 

4 1437  1446 
7 1407  1*11 


816 


SYMBOL 

RETNON 

RETROOT 

RETLRNTJ 

REVCNT 

REVERS 

REVERSAL 

REVN1645 

REV83 

RFAILCNT 

RFAILS 

RFAILS2 

RGEXIT 

RGIMBITS 

RGIMTIMR 

RGOOCENC 

RGU 

RGVGCALC 

RHCACTIV 

RHCMCVEO 

RhCSCALE 

RHCSCFL6 

R IGHT 

R IGHT- 

RIGHTR 

R IGHT5 

RIGNX 

RIGNZ 

R INIT 

RLAST 

RLM 

RLMSRCH 
RLMUNI T 
RLS 
RM 

RMAG 

RMA61 

RMAX 

RME 

RMM 

RMOOI M T 

RMODINV 

RN 

RND/TST 

RNOCON 

RNDREFCR 


DEF 

C6,2264 
0132 
17,3521 
6245 
35,3136 
21  ,3607 
35, 2026 
37  ,3155 
E4,15?5 
40,3734 
41,3746 
E7, 1665 
5020 
E6,1633 
25,3560 
E5,1626 
31,2763 
17,2377 
16,3223 
4745 
0313 
00,22  36 
00,2332 
00,2031 
4322 
65,1474 
E5,1476 
E4, 1722 
E6,1456 
E4,1604 
E7, 1675 
0014 
E4,1422 
E7,1756 
E7,1714 
0014 
E4,1404 
12,2021 
12,2017 
05,3376 
25,2244 
1217 
42,3543 
42,3302 
07,3166 


REFERENCES 


166 

96 

1456 

1002 

672 

1475 

620 

706 

120 

475 

473 

1*4 

1*21 

135 

569 

123 

801 

1438 

1426 

88 

88 

1048 

1050 

1041 

464 

122 

122 

119 

131 

119 

146 

598 

114 

140 

145 

1260 

114 

37 

37 

225 

536 

105 

439 


618 

J455 

295 

672 

1475 

620 

708 

270 

474 

472 


1 1421 

5 J404 

6 536 

fi  123 
5 793 

1 1438 
1 1424 
1 296 

1 1050 
1 1C47 

1 1049 

2 431 
2 122 
2 1 22 

10  675 

5 1417 

16  491 

6 146 


820 

1*59 

1093 


146* 

569 

804 

800 


15 


198 

6 148 

5 1 45 

4 1263 

1 592 
1 1211 

1 

7 536 

16  197 

3 438 

2 426 

3 176 


1205 
61  1 
772 
1272 


SYMBOL 

RNDVZ8IT 

RNDVZFLG 

RNGEOATA 

PNGEOBIT 

RNGSC6IT 

PNGSCFLG 

RNRAO 

RNl  E7 

P0AC8ACK  25 
ROOCOMP  32 
ROCCDUNT  E7 
RODFLAG 
R0DFL6IT 
RODSCALE  E5, 
RODSCALl  E7 
RODTASK  32 
POOTRAP  23 
ROE  14 

ROLLOVER  27 
ROLLTIME  66 
PONE  E4, 

ROn  04 

PnOAO  04 
ROOTCYCL  21, 
POCTHALF  21 
ROOTLOOP  31, 
ROCTMU 
POOTPS 
ROOTPS+l 
ROOTPSRS  31 
ROOTSTOR  31 
ROPECHK  43, 
ROT-TOUV  17. 
ROTATE  34, 
RGTEMPl  E6, 
R0TEMP2  E6, 
ROTFLAG 
BOTFLBIT 
POTINOEX  F6, 
POTOROUE  16, 
ROTSENSE  F6 I 
R0T180  26, 

POUND  OO, 
R0UN0SU6 
RP  E5, 


DEF 

4745 
00)0 
0260 
4750 
4742 
0120 
0046 

7,1544 
,2377 
,3305 
1746 
0022 
4740 
1 537 
,1756 
.3265 
,2000 
2006 
3247 
,1401 
1606 
2141 
.2371 
3635 
3631 
3563 
O02C 
0126 
0127 
3512 
36  27 
3545 
3200 
3052 

1736 

1737 
0220 

4746 
1743 
3722 
1737 
2354 
2116 
71  4t 
1624 


REFERENCES 


149 

5*1 

811 

153 


811 
32 
45 
776 
130 
1 16 
230 
235 
1476 
1476 

819 
1195 

98 

90 

818 

820 
1282 
14*9 

646 


81 

81 

132 

1463 

134 

487 

1043 

1026 

123 


16 


877 

577 

562 

559 

149 

541 

811 

795 

795 

219 

123 

153 

811 

816 

930 

777 

298 

116 


886 

887 

887 

561 

1217 

568 

817 

70  6 
796 
811 


776 

1269 


1 230 

3 1474 

1 1474 

2 819  820 

3 1173  1191 

5 818  820 

1 602 

3 819  820 

1 1279 

4 1434  1489 

2 647 

3 1449 

4 1449 

5 828  844 

10  1421  1450 
1 1462 
9 1453  1461 
1 487 

1 1007 

4 1038  1049 

5 828 


848 
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MD  MULTI  PLY  DEFINED 
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H REFERENCES  SYMBOL  DEF  H REFERENCES 


RP-TO-R 

ftPAD 

RPAOTEM 

RPAOl 

RPASSl 

RPASS2 

RPASS3 

RPASSae 

RPCOMPl 

RPC0MP2 

RPCRT  IMF 

RPCRTOSW 

RP6R 

RPPREC 

RPQFLAG 

RPQFLBIT 

RPQV 

kPREXiT 

RPRPXXXX 

RPSV 

RPTORA 

RPTOR8 

RQVV 

RR-AZ 

RR-EL  EV 

RRANGLES 

RRANGOUT 

RRATE 

RRATEDIF 

RRAUTCHK 

RR60RS IT 

RRCDUCHK 

RRCHECK 

RRDATAET 

RROATAFL 

RROESDUN 

RROeSENO 

RROESK2 

RRDESNB 

RRDESNBK 

RROESSM 

RRDOTOUT 

RRECT 

RRECTCSM 

RRECTHI S 


26,3716 
23,2337 
6A,1602  = 

23,  2337  = 

E7,1477 
E7, 1521 
E7,1551 
EA,1606  = 

3^, 3A75 
3A,3501 
E7,1427 
E7, 1430 
0016  = 
£7,1521  = 

0170  = 

4735  = 

E4,1504  = 

0050  = 

24,371  6 
E4,152l  = 

26  ,3733 
26,3725 
E4,1513  = 

E4,1600  = 

£4,16C2  = 

13,2133 
40,2645 
E4,160?  = 

E6,1437  = 

C6, 3006 
E7,1740  = 

C6,3037 
4576 
4750  = 

0277  = 

25,3015 
43,2305 
4 2,  2264 
25,2506 
43,2236 
25,2404 
40  ,2662 
E3,1502  = 

E3,1554 
E3,1626  = 


1134 

697 

116 

1275 

143 

143 

143. 

118 

847 

847 

140 

140 

1266 

143 

78 

78 

115 

1142 

1136 

115 

1134 

1134 

115 
119 
119 
324 

420 

116 
131 
184 
148 
186 
528 

86 

86 

555 

271 

270 

•547 

270 

542 

421 
111 
111 
112 


8 781  1206 

4 698  1275 

6 116  7 23 

4 143  647 

7 143  652 

11  638  699 

3 118  703 

1 839 
1 8-^2 

3 568  869 

2 568  E70 

3 722  1266 

2 669  672 

6 1203  1222 

8 115  1222 

3 1134  1136 
1 1134 

5 115  1224 

1 1134 

1 1135 

7 115  1224 

5 119  317 

2 302  217 

1 543 

1 41  9 

6 116  7C? 

1 1439 

2 161 

5 148  578 

2 164 

1 528 

I 555 
1 263 

1 270 

3 270  £15 

1 269 

3 513  £96 

1 419 

15  111  1233 

II  111  1206 

4 299  1203 


RRECTLEM 

RRECTQTH 

RRGIMCN 

RRIMUOIF 

RR  INDEX 

RRINIT 

RRLEADIN 

RRLIMCHK 

RRLI MNB 

PRLIMOK 

RRLCSDSP 

RRLOSVEC 

RRNB 

RRNBBI T 

RRN0MPAC 

RRNeSW 

RRNBl 

RROUT 

RRQUTLIM 

RR0UT2 

RRRANGE 

RRRDOT 

RRRET 

RRRS6IT 

RRRSFLAG 

RRShAFT 

RPSCNLY 

rrspgain 

RRSPTOOP 

RRTARGET 

RRTONLY 

RRTRKF 

RRTRUN 

RRTURNON 

RRZERO 

RRZEROK 

RRZERCSB 

RRZ2 

RRIAXIS 

RP1AX2 

RR29GAIN 

RSAMPCT 

RSBBO 

RSCAL6 

rsflgbts 


E3,l626 
E3,1554 
06,3071 
43,2213 
1314 
06  ,2564 
25,2000 
4523 
25,2551 
4560 
40,2017 
1100 
23,2041 
4746 
22,2065 
0011 
23,2054 
25,2317 
25,2346 
25,2321 
25,3114 
25,3112 
1312 
4751 
0300 
E7,  1735 
25,2255 
25,2316 
40,2671 
1100 
25, 2252 
4570 
£7,1733 
25,2073 
25,2354 
43,2140 
25,2102 
25,2401 
25, 2257 
25,2265 
32,2777 
£4,1777 
E3  ,1432 
32,2177 
05,3064 


186  1 

260  1 

106  3 

175  1 

32  I 

526  4 

547  2 

527  2 

301  2 

577 

326  3 

66 

326  I 

66  5 

326  1 

539  3 

540  1 

53  9 I 

557  4 

557  5 

106  5 

66  I 

86 

148  3 

537  3 

538  1 

421  2 

103  14 

537  5 

520  2 

148  3 

530  1 

541  1 

266  ] 

531  2 

541  J 

537  1 

538  1 

609  2 

120  7 

110  2 

21 1 1 

220  I 


112  1205  RSPHERE 


299 

186 

260 

537 

175 

49i 

189 

547 

527 

301 


rstack 
RSTOFGTS 
RSUBC 
538  R SURE 
RSUBEM 
RSUBL 
546  RSUBM 
RTARG 

548  RTAR61 
302  RTB 

PTB/8HIZ 
596  RTBCODES 
RTFRM 


301 

543 

3?6 

538 

539 

540 
495 
495 
106 
575 

148 

534 

538 

420 

103 

534 

617 

148 

185 

266 

266 

530 

541 
537 
537 
608 
278 
197 
211 
218 


RTHFTA 
571  RTIG 
RTMAG 

609  RTMU 
RTNAPSE 
RTNHnLD 

611  RTNLAMB 

610  RTNPRM 
538  RTNSAVER 

RTNTR 

RTNTT 

5P6  RTCPPA 
536  RTORPB 
RTRN 

421  RTPNCAOR 
609  RTRNMU 
602  PTSRl/MU 
RTSTBASE 
5fi8  RTSTOEX 
RTSTLCC 
RTSTMAX 
RTXl 
541  PTX2 

RUFLAWl 
RUFLAW12 
PUFLAW2 
RUFLAW3 
494  PUFRATE 
217  PUFSETUP 
RUN  IT 
kUPDATED 


13,3740 

E4,1600 

21,3523 

1100 

14,2004 

14.2000 
F7  ,1630 
14,2002 
E7, 1443 
E7,1471 
01,2451 
01  ,2450 

10.2000 

0022 

E4,1604 
E7,1641 
E7,1722 
E4,1720 
E5,1710 
E7,1607 
E5,1710 
E5,1753 
0145 
E5,1710 
E5,17in 
24,3722 
24,3711 
67  ,1465 
01  ,3566 
10,2022 
E4,1716 
£4,1775 
E4,177? 
£4,1776 
E4,1774 
E5,1776 
E5 ,1777 
17,3663 
17  ,3671 
17,3717 
17,3725 
17  ,3776 
17,3745 
E7 ,1743 
33,3247 


12*0 

11° 

1474 

103 

45 

45 

150 
45 

141 
1 *6 

1084 

1084 

29 

1 260 
116 

144 

145 

lie 

126 

151 
126 
126 

98 

126 

126 

1136 

1136 

142 
1205 

695 

118 

120 

12C 

120 

120 

125 

125 

1460 

1460 

1460 

1461 
1461 
1461 

153 

879 


2 1231  1232 

10  278  494 

2 1468 

3 498 

1 030. 

2 930 

4 150  499 

1 930 

9 142  771 

11  686  692 

1 1084 

I 1006 
I 1369 

3 1269  1271 

10  116  708 

9 14^  764 

5 145  772 

4 638  695 

3 1I9A 

4 151  791 

8 126  1191 

3 326  1181 

3 1255  1256 
I 1192 

3 1180 
1 1136 
1 1136 

7 655  685 

5 3295  1300 

1 695 

4 118  695 

4 279  494 

5 279  495 

7 278  495 

2 279  495 

33  125  1217 

17  622  1217 

1 1453 

2 1*60 
1 1453 

1 1454 

2 1460 

4 1460  1461 

8 153  891 
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SYMBOL 


OEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


RUPTAGN 

RUPTREGl 

RUPTREG2 

RUPTREG3 

RUPTREG4 

RUPTSTCR 

RUPTIOBB 

RUTH 

RUTMXTAB 

RUTMXTEM 

RVARMI N 

RVBOTH 

RVCON 

RVEC 

RVQ 

RVSW 

RVSWBIT 

RHA  ITK 

RXZ 

R02 

R0280Th 

ROZZERC 

R04 

R04A 

R04B 

R04C 

RO4EN0 

R04FLAG 

R04FLBIT 

R04K 

R04L 

R04LR 

R04PR 

R04X 

R04Y 

R04Z 

R1 

RIA 

RIC 

RlOl 

RIS 

RISAVE 

RIVEC 

RIO 

RIO  ,Rll 


0332 

0070 

0071 
CQ72 
0073 
0063 
4065 

16,3120 
42,3134 
0153 
E3,1774 
33,2771 
13,3242 
£5,1654 
00, 3274 
0157 
4743 
43,2143 
E7 ,1721 

04.2000 
04,3233 
C4,3247 
43,2455 
43,2507 
43,2531 
43,2546 
43 ,2641 

0063 
4743 
43,2633 
43,2635 
43  ,2603 
^3,2567 
^3,2524 
43,2617 
43,  2461 
0040 
E5,1741 
E7, 1724 
4317 
E7, 1572 
1073 
E5,1654 

21.2000 
21  ,2006 


156 

1424 

319 

98 

113 

875 

1210 

126 

1071 

77 

77 

266 

147 

28 

1324 

1324 

278 

278 

279 

279 
261 

71 
71 
2 80 
281 
260 

280 

279 

280 
278 

1195 

126 

145 

464 

149 

103 

126 

31 

823 


157 

164 

374 


1 156 

1 1424 

1 306 

2 306 

1 582 

1 856 

1 1209 

10  498 

1 1007 
7 498 


1123 

14GC 

1472 

1472 


1194 

1180 


10  147  592 

1 1324 

10  341  922 

• 1 1324 
1 263 

1 279 

1 279 

2 279  281 

6 279  280 

7 71  522 


278 

278 

279 

280 
280 
280 
280 
278 
640 
126 
145 
405 
149 
224 
126 


1194 
1194 
77  2 
1067 
883 
1262 
1187 
891 
854 


RlO.RllA 
KIOFLAG 
RIOFLCIT 
R1  1 
R12 

fil2STUFF 

R2 

R2DX 

R2VEC 

R21-5C3 

R21DISP 

R21END 

R21LEM 

R21LeMOO 

R21LEM1 

R21LEM10 

R21LeMll 

R21LEM12 

R21LEM13 

R21LEM2 

R21LEM2 

R21LEM4 

R21LEM5 

R21LEM50 

R21LEM6 

R21LEM7 

R21LEM8 

R21LEM9 

R21SRCH 

R220ISP 

R22LEM 

R22LEM1 

R22LeMl2 

R22LEM2 

R22LEM3 

R22LEM42 

R22LEM44 

R22LeM45 

R22LEM46 

R22LEM7 

R22LEM93 

R22LEM96 

R22RSTRT 

R22HAI T 

R23LEM 


21,2021 
0015 
4752 
21  ,2000 
33,2506 
34,2000 
E5,1717 
4320 
E5,1662 
24,2761 
24,3123 
24,2770 
24,2675 
24,3013 
24,2734 
24,2726 
24,3107 
24,3011 
24,3035 
24,2732 
24,2743 
24,3002 
24,2706 
24,3042 
24,2716 
24,3040 
24,3045 
24,3077 
24,2775 
0314 
24  ,2445 
24,2515 
24,2457 
24,2525 
24,2545 
24,2631 
24,2624 
24,2634 
24,2642 
24,2612 
24,2562 
24,2566 
24,2654 
24,2640 
24,3137 


126 

464 

126 

513 

515 

513 

512 

514 

513 

513 

515 

514 
514 
513 

513 

514 

512 
514 

513 

514 

514 

515 
513 

99 

508 

509 

508 

509 

509 
511 

510 

511 
511 
510 
510 

510 

511 
511 
517 


1 831 

4 825 

2 823 

2 869 
1 886 

3 1178 

7 4C5 


126 

513 

513 

513 

502 

514 

512 
514 

514 

556 

513 
512 

514 

512 
514 

514 

515 

513 
316 
510 
5C9 

509 
5C9 

503 

510 

511 
510 
51C 
588 
592 
241 
508 
501 


9cr 

829 


1093 

1187 


R23LEM1 

R23LEM11 

R23LEM2 

R23LEM3 

P24END 

R 24LEM 

R24LEM1 

R24LEM2 

R24LEM3 

R2ALEM4 

R29 

R?Q«LOS 

R29/SERV 

R?9? 

P2OCL0DP 

P29D0DE  S 

R29DPAS1 

R29CPAS2 

R290VBeG 

R29CVEND 

R2OFXL0C 

R2QL0K0N 

R29NnDES 

R20PANGE 

R29ROJOB 

R29READ 

R29REM0J 

R29RRR? 

R29S1 

R3D1 

R30L0C 

R300K 

R31 

R31CALL 

R3U0C 

R31SURF 

R33 

R36 

R36 INT 

P36LM 

R36TAG? 

R47 

R51 

R5ls  1 

R5lo2 


24,3145 
24,3156 
24,3200 
24,3203 
24,3232 
24,3210 
24,3214 
24,3220 
24,3236 
24,3252 
33  ,2045 
33,2123 
33  ,2000 
33,2552 
24,3363 
32,2550 
32,2564 
32,2703 

32  ,2553 
32,2600 
32,2776 
32,2754 
33,2567 

24  ,3444 
24,3414 
24,340] 

33  ,2113 
24,3467 

25  ,2000 

4321 
22,2000 
27  ,3767 

37.2000 
40  ,3737 

40.2000 
37,3370 
42  ,2002 
04,2642 
04,2657 
04  ,2000 
04,2743 
32  ,2000 
14,3007 
14,3011 
14,3047 


5]  7 

517 
51  8 

518 
520 

519 
519 

519 

520 
520 
601 
602 

34 

871 

604 

605 
605 
608 
605 
605 
609 

609 
871 
611 
61C 

610 
602 
611 


32 

1275 


709 

277 

703 

703 


936 

936 

036 


517 

517  518 

517  510 

519 
514 

5 20 

519 

520 

602  871 

601 
600 

604 

604 

605 

606 

605  607 

605 

606 

609 
871 
611 

610 

609  610 

601 
611 
602 
405 


44 


461 

715 


705 

285 

705 

706 
277 

286  704 
704 

702 

704 

208 

925 

242 
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REFERENCES  SYMBOL  DEF  H REFERENCES  SYMBOL  DEF  F REFERENCES 


SYMBOL 

R51e3 

R5U4 

R51C 

R51E 

R51F 

R51 1 

R51K 

R51P63 

R52 

R52A 

R52B 

R5A 

R55 

R55ol 

R55o  2 

R55C0R 

R55RET 

R 56 

R59 

R 59A 

K59ALM 

R59  0 

R59E 

R590UT 

R59RET 

R60INn 

R60LEM 

R 60VSAVE 

R61 

R6K  + L01 

R61C*L02 

R61C+L03 

R61C+L04 

R61C+L05 

R61C+L06 

R61C+  LI 

R61C+L2 

R61C+L4 

R 61FLAG 

R6lFLeiT 

R61LEM 

R61LEM1 

R61LEM2 

R61TEST 

R62 


DEF 

14,3050 

14,3137 

14,3014 

14,3045 

14.3034 

14.3035 

14.3126 

14. 3127 
14,3671 
34,3701 
14,3707 
14,3250 
14,3216 
14,3223 
14,3231 
14, 3247 
14,3243 
14,2603 

15.2245 
15,2257 
15,2427 
15,2375 
15,2445 
15,2455 
15  ,3037 
22,3200 
26,2123 
E5,1620 
23,2000 
23,2127 
23,2152 
23, 2156 
23,2302 
22,2236 
23,2261 
23,2307 
23, 2275 
23,2305 

0024 
4742 
23  ,2116 
23, 2162 
23,2220 

26.2246 
23,2000 


936 

937 
936 
936 
936 

936 

937 
937 
950 
950 
950 
940 
940 
940 
940 
940 
940 
932 
952 
952 
954 

954 

955 
955 
964 
783 
477 
123 

32 

521 

522 

522 
524 

523 

523 

524 

523 

524 


521 

522 

523 
479 


1 


938 
937 
936 
936 

936 

937 
783 

936 
950 
950 

937 
937 

94  0 

939 

940 
936 
952 
952 
954 

954 

955 
952 
955 

342 

123 

521 

524 

521 

522 

523 
523 

523 

523 

521 

522 
500 


478 

489 


SYMBOL 

R62DISP 

R62FLASH 

R65CNTR 

R65LEM 

R65hAI T 

R77 

R77CHECK 

R77EN0 

R77FLAG 

R77FLPIT 

R77IN 


DEF 

23,2103 

23,2103 

£7,1745 

23,2123 

23,2314 

42,2445 

25,3365 

43,2655 

0117 

4741 

25,2050 


489 

489 

148 

521 

524 

278 

562 

281 


1 


268 
489 
507 
507 
522 
2 64 
560 

264 

278 

222 

494 


S(  xn 
S+ZERO 
S + 1 
S+2 
S+3 
S + 4 
S + 5 
S+6 
S + 7 

S-ZERO 

S-1 

S-2 

S-3 

S-4 

S-7 

SAMETYP 
SAMPLI  M 
SAMPLSUM 
SAMPT 1 ME 
SAVE 

SAVECDUT 

SAVEOEN 

SAVEFLAG 

SAVEHAND 

SAVELCCR 

SAVELOCS 

SAVESR 

SAVET-3C 

SAVLEMV 

SAVQR52 

SAX 

SBANO 

SBANDANT 


0032 

4755 

4753 
4752 
6250 
4751 

4756 
6245 

4757 

4754 
7752 
7751 
7750 
6115 
5650 

15,3573 
1077 
1100 
0013 
E 5 , 1 464 
E3, 1766 
27,3536 
1071 
£6,1462 
10,2730 
IC, 2723 
£6,1505 
E7,1477 
E7, 1737 
E7  ,1665 
E5,1730 
42,2000 
42,3606 


1277 

1277 

1277 

1277 

1277 

1277 

1277 

1278 
1278 
1278 
1278 
1278 
1278 
1278 

975 

103 

103 

92 

128 

609 

1270 

1364 

131 

1354 

1354 

133 

149 

146 

144 

125 

36 

490 


6 1172 
9 292 

9 292 


1 1279 

1 1232 

2 1283 


1 1279 
1 975 

9 224 

9 103 

5 209 

11  606 
1 1270 

7 1426 

1 1354 

2 1350 
2 1464 

8 149 


1178 

1283 

1285 


594 


1439 

1353 

1476 

730 

595 

°51 

935 

49C 

493 


SBANDEX 

SBITl 

SBITIO 

SBITll 

SPIT12 

Sei T13 

SBIT14 

S6IT1.5 

SBI  T2 

S0IT3 

SBIT4 

SB  ITS 

SBIT6 

SBIT7 

SB  IT8 

S8IT9 

SBNK03 

SCALADJ 

SCALCHNG 

SCALOONE 

SCALECHK 

SCALEDOT 

SCALEE 

SCALEFAC 

SCALELO 

SCALEVEC 

SCALLOOP 

SCALPREP 

SCALSAVE 

SCALSHFT 

SCALSTRT 

SCAXIS 

SCHZEROS 

SCLNORM 

SCNDSOL 

SCOUNT 

SCOUTEND 

SCRATCH 

SCR  ATCHX 

SCP  ATCHY 

SCRATCHZ 

SO 

SOISPLAY 
SEC  AO 
S FCMAX 


42  ,374? 
4753 

4742 
4741 

4740 

4737 

4736 

4735 

4752 

4751 

4750 

4747 

4746 

4745 

4744 

4743 
5020 

25,3403 
25,3351 
21,3506 
25,332? 
17  ,3352 
17,3340 
31  ,2005 
40  ,2657 
32,2132 
21  ,3472 
37,3711 
0316 
£7  ,1720 
21,3464 
£7,1764 
37  ,3056 
17,3141 
34,2776 
1366 
40,2736 
E6,1745 
0160 
0161 
0162 
22,2366 
43,3134 
22,2027 
£7,1573 


402 

1277 

1277 

1277 

1277 

1277 

1277 

1277 

1277 

1277 

1277 

1277 

1277 

1277 

1277 

1277 

1278 
563 
562 

1474 

561 

145^ 

1453 

40 

421 

21c 

1473 

1328 

99 

147 

1473 

14P 

390 

1448 

646 

109 

422 

133 

1488 

1488 

1488 

359 

292 

353 

143 


I 492 


1 1281 
I 1283 
1 561 

1 561 

1 1473 
1 561 

I 1454 

1 1453 

2 792  613 

2 421 

2 209 

1 1473 

2 1327  1328 

3 1327  1328 

4 147  592 

I 1473 

145  953 

382  385 


27 


7 638  646 

4 109  1282 

4 422 

2 1476 

5 1404  1488 

3 1484  1485 

4 1404  1485 

1 1285 

5 669  671 


HEALTH  key:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


= DEFINED  BY  ECLALS 


CD  DEFINITION  ASSOCIATED  WITH  CONFLICT 


J DEFINED  BY  JOKER  OR  ERASE  ANYWHERE 


XX  MISCELLANEOUS  TROUBLE 


MO  MULTIPLY  DEFINED 


gap:  assemble  REVISION  131  OF  AGC  PRCGBA^  LUPINAR' 


BY  NASA  2021112-0^1 


17:53  CEC«  19,1969 


PAGE  15A2 


SYMBOL  TABLE  LISTING, 
SYMBOL  OEF  H 


INCLUDING  UEFTMTION,  HEALTH, 
REFERENCES  SYMBOL 


PAGE  OF  OEF , 
DEF  h 


tf  OF  REFS,  PAGE  OF  FIRST  REF,  PAGE 
REFERENCES  SYMBOL  DEF  H 


OF  LAST  REF* 

REFERENCES 


SECONl  A2 
SEC0N2  92 
SECOl 

SEC15  36 
SEC150P  36 
SECBODP  36, 
SECA5  36 
SEC95DP  36, 
SELCTSUQ  17 
SELtCTMU  10, 
SELECTP  16, 
SELECTYZ  16, 
SELFAORS  93, 
SELFBANK  01, 
SELFChEC  93 
SELFCHK  93' 
SELFERAS 
SELFRET 
SELFSUPR  90, 
SENOID  05, 
SENOPULS  07 
SENSEGET  17, 
SENSETYP  £6 
SENSOR  17: 
SENSTEST  17 
SEPMIN  92 
SEPMNRET 
SEPSCRET 
SEPSEC  92 
SEPSECNR  92, 
SEPSECl  92 
SERV  32 

SERVCACR  36 
SEPVEXIT  32 
SERVICER  33, 
SERVICES  33 
SERVIDLE  27 
S6RV0UT  33, 
SERVl  37 
SEPV2  22 
SERV3  27; 
SERV9  39 
SETAUG  90, 
SETBANK  13: 
SETCOARS  07 


3267 
,3271 
9777  = 

3759 
3753 
3755 
,3760 
,3757 
,3225 
,2000 
. 3535 
,3555 
,3272 
,3225 
,2000  = 
,3363 
1357 
1361  = 

2000  = 
,3769 
,3129 
2196 
,1500 
,3757 
,3377 
,3935 
0199  = 

0199  = 

,3909 
3917 
,3912 
,2000  = 
,2107  = 

,3796 
2206 
,2000  = 
,3322 
2900 
,2000  = 
2000  = 
2000  = 
,2000  = 
2701 
,3035 
,3135 


929  1 926 

929  1 929 

750 

758 

750 

758 

758 

758 

3 1935 

695  9 627 

1932  2 1929 

1932  1 1921 

1278  2 292 

1110  1 1110 

36  1 1277 

1279  5 225 

108  1 108 

108  7 108 

36 

991  2 906 

1306  1 1305 

1939 

132  5 1930 

1961  2 1953 

1959  1 1959 

92b  2 929 

97  2 926 

97  2 926 

926  I 925 

926  3 92A 

926  1 926 

39  I B61 

7A3  I 75C 

861  7 725 

855  2 2A3 

39  8 39 

860  2 1375 

058  3 05? 

36  2 852 

32  I 858 

33  1 860 

39  1 087 

921  1 920 

1206  9 1209 

1307  2 171 


SETCTR  21,3672 
SETEBANK  9313 
SETGAMMA  13,2596 
SET6L0CK  06,2965 
SETGMEX  13,2559 
SETIFLGS  13,2693 
SETINFL  05,2727 
SETISSh  06  ,2703 
lA9e  SETLOC  01,2662 
668  SETMARK  10,2527 
1932  SETMAXOB  20,2130 
SETMGA  06,3736 
293  SETMINCB  20,2191 
SETMOCN  13,2715 
SETMUER  1C, 2011 
1279  SETNACD  9311 
SETNCADR  9303 
1279  SETNEGU  21,3362 
SETNORM  10,2535 
990  SETOVF  7006 

SETCVF2  7155 

SETPO  7616 

1959  SETPOS  33,3720 
SETPOSl  33,3701 
SETP0S2  33,3717 

925  SETPRIC  10,2511 
*27  SETPRPOS  33,2109 

SETRAD  22,2367 
SETRADX  23,2902 

926  SETRE  13,2556 

SETREX  0051 

SETROUNC  00,2272 
SETRRCTR  25,2330 

861  SETRRECR  25,2167 
853  SETRXX  1 3,2571 
887  S6TSENSE  17,3330 
1376  SETTIME  17,2615 
SETTIME9  06,2079 
869  SETTIMF5  16,2152 
SETTRKF  9569 
SETUPOSP  10,2213 
SETUPERl  37,3005 
SETUP290  33,2152 
1205  SETUP70  09,2376 
1309  SETUP71  09,2375 


1500 

969  2 912 

1132  2 1127 

172  9 171 

1132  1 1137 

1203  8 238 

217 

181  7 167 

1101  3 1101 

1351 

1399  3 1399 

699  1 699 

1399  6 517 

1209  3 1209 

695  1 695 

969  2 909 

969  7 909 

1971  1 1971 

1351  1 1399 

1021  1 1029 

1026  1 1022 

1038  1 1005 

889  1 889 

889  I 789 

889  1 888 

1350 

601  1 601 

698  I 697 

698  1 698 

1133  2 1127 

1133  2 1133 

1098  3 1098 

539  1 590 

539  3 533 

1133  3 1133 

1953  1 1953 

1991  I 1991 

159  I 162 

1909  1 1905 

528  2 187 

1286  1 1286 

390  1 389 

603  1 603 

235  1 229 

235  1 229 


SETVAC 
923  SFTkO 
1129  SFTXFLAG 
172  SETXTACT 
SETX2 
1219  SET57 

seuoopoo 

1310  SEVFN 
1105  SFAIL 
SFCOM 
SFCONSTl 
SFCCNUM 
1399  SFINTAB 
1232  SFINTA6R 
SFMI  XCAL 
93’’  SFNORCAL 
969  SFdUTAB 
SFOITABR 
SFP  ET 
SFRETl 
SFRUTMI  X 
SFRUTNOR 
SFTEMPl 
SFTEMP2 
SGNAGREE 
SGNCHECK 
SGNCOH 
SGNDVCVF 
SGNOFF 
1129  SGNCN 

SGNROOT 
SGNTAB 
SGNTni 
601  SGNTSTl 
SHAFTBO 
SHAFTCMO 
SHAFTL IM 
SHAFTVAR 
SHFTFACT 
532  SHFTFLAG 
SHI FTRl 
SHIFTll 
SHO  LTS 
SHORTMP 
SHDftTMP2 


91,3523  952 

05,3567  986 

07,2666  = 099 

93,2X05  26* 

26,2532  582 

93,2359  273 

09,2206  232 

9757  1089 

1357  = 108 

92  ,21*5  307 

E5,'«967  = 128 

91  ,3072  932 

92,296*  313 

91,3235  939 

90,311*  935 

90,3117  936 

92  ,2556  315 

91  ,2602  919 

91,3107  932 

91  ,3071  932 

91,3057  A31 

91,3051  931 

0123  = 96 

0129  = 96 

10  ,3613  1389 

12,2562  1176 

90,2922  90* 

00,2902  1051 

0123  = 96 

0122  = 96 

E5  ,1759  = 126 

90,2993  905 

90  ,3129  936 

90,2962  905 

26,3015  586 

1355  108 

25,2575  598 

69,1910  119 

32  ,3527  819 

E6,1790  = J33 

23  ,2951  701 

33  ,2767  87* 

91,3677  972 

73)2  1030 

7316  1030 


1 951 

3 986  986 


1 582 

1 273 

1 239 

25  157  1987 

9 108  1279 

1 30  7 

2 918  939 

1 307 

1 939 

1 935 

I 935 
1 307 

1 919 


5 912  935 

5 918  936 

21  306  937 

2 937 

5 378  1211 

2 1176  1177 

1 905 

1 1051 

3 409  905 

3 4C9  905 

2 126  1192 

2 409  905 

1 935 

3 905 

2 559  608 

1 598 

1 587 

1 813 

9 1973  )979 
8 622  665 

3 875  876 

1 971 

11  902  1329 

1 878 


HEALTH  KEY:  NORMALLY  OEF  INEO.  UNLESS  FLAGGED  AS  FOLLOtiS: 


UN  UNDEFINED 
SO  BADLY  DEFINED 


CO 


define:  BY  EQUALS  J DEFINED  BY  JOKER 

DEFINITION  ASSOCIATED  WITH  CONFLICT 
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PAGE  1543 


SYMBOL  TABLE  LISTING,  INCLUDING  OEFIMTIGN,  HEALTH,  PAGE  OF  OEF  , H CF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REF* 


SYMBOL 


D£F 


REFERENCES 


SYMBOL 


DEF 


REFERENCE  S 


SYMBOL 


OEF 


REFERENCES 


SHORTT 
SHOKTV 
SHOW 
SHOWSUM 
SHOWl 
SHUTDOWN 
S lOLOOP 
SIGN 
S IGNAOS 
S IGNFIX 
SIGNLCHK 
S IGNMPAC 
S IGNRET 
SIGNTEST 
S IM2CACR 
SINB 

SINBLANK 
S INCOU 
SINCDUX 
S INCOUY 
SINCDUZ 
SINE 

SINESLOC 

SINGIMLC 

SINI 

S INNODl 

SINTH 

S INTHETA 

SINVECl 

SINVEC2 

S INZERO 

S IN6QDEG 

S I X 

S IXTY 

SIZETAB 

SIZETST 

SKALSKAL 

SKcEPl 

SKEEP2 

SKEEP3 

SKEEP4 

SKEEP5 

SKEEP6 

SKEEP7 

SKIPADC 


00,2017 
CO  ,2121 
37,2457 
^3, 3121 
37,2461 
16,2163 
43, 3314 
7660 
0163 
40,3065 
25,2777 
10,3713 
0125 
40,2446 
05,2454 
E5  ,1646 
40,2572 
0735 
0741 
0735 
0737 
00,3530 
23,3764 
26,2401 
26,2002 
0010 
0022 
E7, 1731 
26,2403 
26,2405 
30, 3656 
26  ,3704 
6245 
43,3263 
Cl ,2002 
42,3561 
1353 

1371 

1372 

1373 

1374 

1375 

1376 

1377 
10,2751 


1041 

1044 

362 

292 

383 

1405 

1278 

1340 

1499 

435 

555 

1393 

96 

405 

213 

124 
407 
100 
100 
100 
100 

1076 

1256 

487 

52 

1142 

125 
147 
487 
487 
9J7 
59b 

1093 

1278 

240 

439 

108 

109 

IC9 

109 

109 

109 

109 

109 

1355 


379 


2 1004 
I 1304 

3 377 

1 292 

1 383 

1 1402 
1 1279 

1 1005 

12  1490  1497 

2 435 

2 555 

14  355  1272 

2 6^04 


21 


1 407 

6 130 

6 402 

5 482 

7 43  2 

2 1007 
1 1256 

1 485 

2 1138 
1 1138 

301 

3 148 

1 486 

1 486 

1 917 

2 595 

33  171 

] 1284 
2 1298 
2 43  0 

1 877 

20  109 

10  139 

14  109 

14  109 

10  109 

6 109 

22  217 

1 1355 


1256 

1258 

1258 

1256 

1252 


1246 

592 


1*79 

1300 


1285 

1263 

1264 
1285 
1264 
1285 
1264 


SKIPO01 

SKIPDB2 

SK  IPPAXS 

SKIPSIM 

SKIPTPER 

SK  IPU 

SKIPV 

SLAPl 

SLCTMU 

SLEEPIE 

SLEFT5 

SLOAD 

SL0AD2 

SLCPEeiT 

SLOPEHI 

SLOPELO 

SLOPESW 

SMALL 

SMALLEPS 

SMALLTJU 

SMALL2 

SMALPDIF 

SMALRATE 

SMOOE 

SMODECHK 

SMPAC  + 

SNAPAGN 

SNAPEND 

SNAPLOOP 

SNGLCD 

SNTH 

SNUFFBIT 

SNUFFER 

SNUFFOLT 

SM 

SN359+ 

SOB 

SCLNSBIT 

SOLNSW 

SCMEAOS 

SCMEERRR 

SOMEKEY 

SCMeRR2 

SOPT 

SOPTION 


20,3376 
20,3462 
16,2734 
05,2456 
22,3626 
E6,1534 
E6,1535 
05,2447 
10,2000 
37,3034 
4340 
6504 
6060 
4751 
00,2314 
00,3007 
0033 
00,3133 
27,2366 
1 6,3713 
00,3062 
16,2507 
17,3707 
1362 
43  ,3326 
00,3405 
05,3645 
05,3664 
05,3634 
22,2376 
E5,1727 
4737 
0115 
42,3246 
00,3553 
35,2420 
0042 
4751 
0127 
20, 3450 
37,3040 
07,2403 
37,3047 
43,3732 
43,3715 


149  1 
1492 
1421 
2J  3 
723 
134 
134 
213 
29 
390 
465 
1013 
996 
66 
1049 

1063 
68 

1067 

761 

1462 

1064 
1417 
1460 

108 

1279 

1073 

987 

988 
987 
359 
126 

74 

74 
300 

1077 

636 

1142 

75 
75 

1492 

390 

256 

390 

1285 

1284 


1 1490 
3 1491 

2 142C 

1 213 

1 723 

9 134 

3 1404 

1 411 

1 695 

2 385 

1 448 

1 1005 
5 1013 

1 1074 
1 1075 

3 1176 

1 1064 
1 761 

1 1462 

1 1067 

2 1417 

1 1460 
7 1C8 

3 1279 
3 1 073 


1 988 

14  126 

1 1445 

2 300 
I 263 
1 1C76 
I 639 

4 1137 

5 1187 


1492 

1433 


1464 

1464 


1138 

1193 


SOPTIONS 

SOPTI CNl 

S0PT10N2 

Sr)PTI0N3 

SCPTICN4 

SOPTIONS 

S0PTI0N6 

SOPTI  0N7 

SOPTONIO 

SnUPLY 

SOUTHDR 

SPAPCSIN 

SPARE 

SPCOS 

SPFCSTS 

SPECTEST 

SPEEORUN 

SPIRAL 

SPLPET 

SPNOX 

SPSCODE 

SPSCONT 

SPS  IN 

SPSLOOPl 

SPSL00P2 

SPSRCS 

SPSSTART 

SPT 

SPVAC 

SPVAC  IN 

SO 

SORT 

S0RTA6RT 

SORTNEG 

SQRTNM2 

SORTNORM 

SQRTSHFT 

SQRTSUB 


SR 

SRCHOei T 
SRf HOPTN 
SPOOV 
SR  TEST 
SR30*1 
SS 


43,3337 
43  ,3347 

43.3350 

43.3351 
4?  ,3352 

43.3353 

43.3354 

43.3355 

43.3356 
37,3071 
65,1421 
30,3664 

0007 

5032 
37,2572 
01  ,2652 
21,2365 

1237 
22  ,3541 
1261 
4743 
20,2716 

5033 
20,3112 
20,3127 
21  ,3736 
21,3744 

5036 
5116 
5112 
1076 
00,3207 
00,3402 
00,3373 
00,3475 
00,3502 
00  ,3221 
00,3343 
0021 
4736 
on  37 
00,2024 
00,3456 
22,355) 
67  ,1732 


1279 
1279 
1279 
1.279 
1279 
1279 
1270 
1279 
Y279 
391 
128 
9)  8 
195 
1096 
386 
1101 
894 
955 
720 
105 
1301 
1482 
1096 
1486 
1486 
1501 
1501 

1096 

1097 
1097 

103 

1070 

1.073 

1073 

1075 

1075 

1070 

1073 

92 

68 

68 

1041 

1075 

722 

145 


128 

602 

196 


378 

917 

206 


5 190  1253 

1 1105 
1 893 

4 262  954 

1 37 

8 367  368 

1 14R8 

5 190  1253 
1 1467 

1 1487 

2 1430  1444 
1 1501 

1 1096 

3 234  1353 

1 1097 

2 1096 

1 1007 

2 1073 
1 1073 
1 1075 
1 1075 
I 1070 

3 1064  1078 

30  407  1476 

1 594 

4 209  519 

1 1064 

1 1074 

2 717  719 

9 772  773 
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0Y  NASA  2021112-0?! 


17:53  D£C«  19,1Q69 


PAGE  15A<h 


GAP:  ASSEf'BLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY 

SYMBOL  TABLE  LISTINGt  INCLUCIN6  DEFIMTICN,  HEALTH,  PAGE  OF  OEF, 


OF  REFS,  PAGE  OF  FIRST  RF= , PAGE  OF  LAST  REF. 


SYMBOL 

SSP 

STACCOOT 

STAOR 

STALL 

STAR 

STARAC 

STARALGN 

STARCODE 

STARING 

STARM 

STARS  AVI 

STARSAV2 

STARTA6 

START  DAP 

STAR  TOES 

START  EE 

STARTMNV 

STAR  TP  IP 

START  P47 

STARTP6A 

STAKTP66 

STARTSei 

STARTSB2 

STARTSIM 

STARTSTO 

STAkTSUB 

STARTSW 

STATE 

STATEBIT 

STAT6FL6 

STATE  INT 

STATEUP 

STATEXIT 

STATIN71 

STAT  QUO 

STCLOKl 

STCL0K2 

STCL0K3 

STC  TR 

STCTRl 

STDES  IG 

STDESIGl 

STEER? 

STEEKBI  T 

STEERING 


DEF 

6623 
20,2756 
6357 
C7,3710 
E5, 1730 
£5,1706 
0735 
0739 
E5 ,1757 
0090 
£5,1 760 
E5,1766 
19,2000 
16,2096 
25,2993 
5007 
26,2176 
37,2161 
36,3953 
31,2556 

21. 2950 
05,3119 
05,3157 
05,2952 

6937  - 
05,3105 

05.2951 
0079 
9797 
0067 

13,2602 
13,2026 
E9  ,1516 
13,2611 
09  ,2310 
36,2667 

36.2670 

36.2671 
20,2550 
20,2553 
25  ,2613 
25,2627 
31,3900 

9791 
36, 3672 


REFERENCES 


1015 
1983 
1008 
1322 
129 
129 
100 
100 
= 125 

125 
125 
125 
31 
1903 
599 
225 
978 
377 
753 
797 
795 
321 
222 
213 
1011 
221 
213 
95 
71 
71 

1202 

236 

116 

1202 

233 

737 

737 

738 

1979 

1980 
550 
550 
808 

69 

757 


1 1007 

2 1321 

8 129 

*3  129 

2 100 

9 100 

16  125 

12  125 

8 125 


593 

223 

377 

753 

793 


961 

1298 


99  65 

1 1376 
9 581 

3 291 

1 1203 

2 291 

2 233 

1 736 

2 728 

1 1980 
1 1981 

3 515 


220 

1087 


793 

606 

726 


SYMBOL 

STEERSW 

STERN 

STIKLOAD 

STIKSENS 

STI KSTRT 

STILBAOH 

STILBACV 

STI LLRC  S 

STMIN- 

STMP 

STOPCLOK 

STGPFIRE 

STOPRATE 

STORANG 

STOPBNCS 

STORDEL  7 

STORE 

STORE  ,1 

STORE, 2 

STOREMAX 

STGREMI N 

STORETGO 

STCP61 

STOREIS 

STQRhAPO 

STORHPER 

STORJLMP 

STCRLP71 

STCRPARM 

STORTORK 

STQRV 

STORY 

STRAT 

STRATGY 

STPTGYRO 

STRTGYR2 

STRTIOLE 

STRTP66A 

STSHOSUM 

SU801 VOE 

SUBEX  IT 

SUBLIST 

SLBTR 

SUFFCFEK 

SUHALFA 


DBF 

0092 
31  ,2435 
01,2211 
F6,1999 
05,3056 
E7,1679 
E7,1675 
17,2710 
20,3533 
0020 
36,3017 
31 ,3977 
20,2166 
27,2096 
12,2190 
35,3195 
6925 
6917 
6922 
12,2077 
12,2152 
27,2666 
6626 
26,3667 
22,3600 
22,3612 
6375 
09,3625 
32,3692 
16, 3706 
20,3616 
27,2931 
19,2719 
19,2706 
07,3376 
07,3902 
5671 
31, 2956 
93,3597 
76,2263 
E7,1970 
0337 
00,3702 
12,3960 
22,2677 


REFERENCES 


795 
296 
131 
220 
152 
152 
1999 
199  3 
: 981 

790 
810 
1900 
985 
1169 
672 
1010 
1010 
1010 
1169 
1169 
770 
1015 
597 

722 

723 
1009 
1385 

827 

1962 

1999 

769 

939 

939 

1313 

1313 

1375 

795 

1262 

1919 

192 

989 

1079 

1190 

36^^ 


10 


2 766 

1 296 

8 219 

1 219 

7 152 

6 152 

3 1938 

2 1A97 

7 980 

3 739 

7 eio 

290 
985 

1 1172 

2 671 
6 1C09 
1 1009 
I lOOa 

3 1166 

1 1169 

2 770 

1 1096 
1 597 


1 1008 
2 1385 
1 827 

1 1963 
1 1999 
I 769 

1 939 

2 1311 
9 1319 
1 1375 

1 796 

2 292 

3 1916 

22  626 
12  905 

1 1080 
9 1189 
1 3 69 


889 

8B9 

1999 


79  0 
1901 


1316 

131P 


SUPCXCHZ 

SUPFRAOR 

SUPERBNK 

SUPERJOB 

SUPERSW 

SUPEROll 

SUPERIOO 

SUPERlOl 

SUPERllO 

SUPRCON 

SUR FAGAN 

SURFOI SP 

SURFENO 

SURFFBIT 

SUPFFLAG 

SUPFJOB 

SUPFLINE 

SURFREJ 

SUR  FSTAR 

SUPFSTOR 

SURFSUP 

SVCT3 

SVCT3X 

SVDWNl 

SVDWN2 

SVFXITAO 

SVEXTAOR 

SW/ 

SWAN08 I T 

SWANOISP 

SWBIT 

SWBPANCH 

SHOALL 

SWC  HCLR 

SWCHSET 

SWI  M T 

SWITCHES 

SWPETURN 

SWSKI P 

SWSTORE 

SWWCRC 

SXA 

SYNCT9 


DEF 

22,2717 

9651 

5165 

16.2665 
0007 

16.2666 
9727 
9773 
9795 

9775 

9776 
93,3269 
07,2699 
15,3199 
07,2690 

9749 
0177 
07,2603 
15,3069 
07,2506 
15,2000 
07  ,2520 
15,3139 
5290 
5256 
13,21 19 
13,2070 

05,3979 

27,3357 
01  ,2517 
9791 
0155 
0131 
6720 
9622 
35,2535 
35,2513 
05  ,3377 
01,2517 
963) 
01  ,2600 
01,2559 
0130 
01  ,2365 
06,2) 59 


REFERENCES 


369 

993 

1110 

192C 

93 

1920 

995 

1090 

1090 

109C 

logo 

1278 

262 

966 

262 

70 

79 


251 

250 

965 

1115 

1115 

323 

322 

826 

061 

1088 

77 

77 

97 

101  8 
992 
669 
669 
225 
1086 
99? 
1088 
1087 
97 
1081 
162 


1356  1375 
652  1303 


1 1093 
3 603 

1 1289 

1 262 

2 965 

1 262 
9 215 

6 238 

1 259 

2 969 

I 258 
1 259 

I 256 


055 

1205 


I 


965 


2 1115 

3 1115 

3 299 

2 1150 
I 825 
1 &60 
I 1006 

3 733 

1 656 

5 1086 
I 1080 
5 219 

1 669 

1 669 

9 215 

1 1088 
9 245 

2 1088 
2 1087 
2 1C86 
1 1006 
1 162 


1203 

1205 


091 

1088 

1089 


HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS; 


equals  J DEFINED  BY  JOKER  CR  ERASE  ANYWHERE  MD  MULTIPLY  DEFINED 

CO  DEFINITION  ASSOCIATED  WITH  CONFLICT  XX  MISCELLANEOUS  TROUBLE 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PFCGRAP  LUMINARY  BY  NASA  2021112-091 


17:53  DEC,  19, 1969 


PAGE  15A5 


SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  DEF  , # OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  CF  LAST  REF, 


SYSTEST 

51 

SIOBITS 

S13BITS 

52 

S2A,9SBC 

S30ol 

S32e  IFl 

S32,1F2 

S32*1F3A 

S32olF3B 

S32/33oX 

S32/33,  1 

S328IT1 

S326IT2 

S32BI T3A 

S32EIT3B 

S33/3A. 1 

534/35,1 

S34/35o2 

S34/35,  3 

S34/35,4 

S34/35o5 

53435,23 

$3435,25 

S40,  1 

S40,1B 

S40,13 

S40c  130 

S40,120V 

540.131 

540.132 
S40,132« 
S40,  133 
$40,134 
$40,136 
$40,  136_ 
$40,137 
$40,138 
S4Co2r3 
$40,6 
$40,  9 
$41,1 
S50 
$52,2 


DEF 

43,3105 

0050 

5012 

43,3265 

0051 
36,3150 
34,2000 

0132 

0133 

0134 

0135 
34,3120 
34,3100 

4735 

4736 

4737 

4740 

35  ,2674 
35, 32C4 
35,3216 
35,3307 
35,3352 
35  ,3432 
35,3235 
35,3237 
27,22^6 
27,2336 
27,2540 
27,2626 
27,2653 
27,2610 
27,2616 
27,2620 
27,2647 
27,2650 
27,2006 
27,2010 
27,2641 
27,2661 
27,2*13 
27,2447 
27 ,2707 
27, 3267 
14,2500 
14,3620 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


S52o2«l  14,3640 

S52o2A  14,3631 
S52«3  14,3651 

S861TS  4357 


948 

948 

949 
1278 


I 948 
1 925 

1 1285 


324  1247  ==== 


651 

650 


669 

674 

675 

677 

678 
680 
675 
675 

760 

761 

768 

769 

770 
769 
7 69 

769 
7 70 

770 


770 

770 
764 
766 

771 
779 
930 
948 


637 

638 
638 
635 
628 


632 

668 

665 

681 

681 

665 

675 

749 

760 

241 

768 
770 

769 

769 

770 

769 

769 

770 

770 

749 

756 

756 

751 


646 

646 

646 

646 

650 

633 


T{X> 

T-CTHER 

T/2SEC 

TA8LNTH 

TABLTTF 

TA6LTTFL 

TAD 

TAGSUB 

TAL  IGN 

TANG 

TANGNB 

TARGETOB 

TARGETV 

TARGTOEX 

TASKCVER 

TAT 

TAU» 

TAURCC 

TAUVERT 

TBASEl 

TBA$E2 

TBASE3 

TBASE4 

T8ASE5 

TeASF6 

T6UI LCFX 

TBLP 

TC 

TCALARM2 
TCCSM 
TCOANZ  IG 
TCOH 

TCFINDVC 

TCGETCAO 

TCGFAPPR 

TCGFBRAK 

TCGIAPPR 

TCGIBRAK 

TCLEM 


0036 
27,3736 
E3 ,1570 
15,2760 
06,2037 
E7 ,1562 
31,3705 
7074 
01,2442 
E5,  1774 
1106 
E7,1752 
E6, 1476 
12,3551 
21,2413 
5261 
0014 
€4,1473 
E5  ,1540 
E5,i516 
1052 
1054 
1056 
1060 
1062 
1064 
4767 
64,1670 
E3,1550 
43,3311 
E3,1622 
27,3754 
63,1  776 
4354 
00,3762 
E5,1470 
65,1434 
E5 ,1471 
E5,  1435 
E3,1674 


1195 
1274 
112 
961 
159 
151 
821 
1024 
1083 
125 
103 
148 
131 
1191 
794 
1123 
1240 
115 
123 
122 
102 
102 
102 
102 
102 
102 
1090 
120 
111 
1278 
112 
1274 
113 
46  5 
1369 
122 
122 
122 
122 
112 


498 

1271 

196 

960 

189 

151 

802 

1CC5 

1081 

125 

103 

148 

1427 

1191 

806 

167 

209 

115 

123 

122 

730 

478 


1 


854 
1 738 

1 1502 
15  120 

10  111 


571 

196 

452 

1370 

122 

122 


608 

cn 

1440 

820 

1370 

1217 

1226 

P13 

811 

1296 

1213 


846 

1233 


122 


SYMBOL 

TCNHVAC 

TCP 

TCPIN 

TCPINAO 

TCO 

TCQ0NKOO 

TCOCOUH 

TCOR 

TCOSTAL 

TCS! 

TCSLEEP 

TCSUBTR 

TCTSKOVR 

TCWAIT 

TOEC 

T06CAY 

T CECAYFX 

TOFCl 

TDEC2 

TOELTAV 

TOESIREO 

TOISP 

TDI  5PSET 

TOPOS 

TCVEL 

TEMK 

TEMP 

TEMFADD 

TEMPBB 

TFMP68CN 

TEMPFLSH 

TEMPG 

TEMFG2 

TEMPNM 

TEMPNUM 

TEMPOK 

TFMP0R2 

TFMPP 

TEMPPHS 

TEMPPR 

TEMPP2 

TEMPR60 

TEMPSW 

TEMFSWCH 

TEMPSW2 


REFERENCES 


4351 
€6,1445 
43,3227 
43  ,3232 

6745 
00,3455 
30,3466 
€6,1457 
17,2050 
E7,1633 
00,377? 
00  ,3734 
*353 

4352 
1 114 

F7, 1 740 
4770 
0040 
€7,1573 
63 ,1520 
E5,1670 
15,3333 
31  ,3643 
E5,1756 
E5,1764 
1075 
65,1441 
E5  ,1440 

0064 
0073 
0374 
0061 
r073 
0063 

66,1741 
06  ,2525 
0160 
0062 
01  54 
0070 
0072 
1163 

0065 
0157 

0066 


465 

131 

300 

300 

1286 

1074 

913 

131 
566 

144 
137C 
1080 

465 

465 

104 

145 
1090 
1240 

143 
111 
126 
969 
82  0 
127 

127 

103 
12P 

128 
1,2  92 
1292 

100 

1292 

1292 

1292 

132 
173 

1364 

129? 

1300 

1292 

1292 

104 
1292 
1300 
1292 


12 


451 

1414  1427 
300 
299 

265  889 

1074 

919 

1414  1440 
565  566 

196  649 

1 1369 
1 1078 
I 746 
1 452 

9 104  1236 

1 766 


57  209  1236 

3 627  699 

13  111  1235 

5 126  1190 

1 969 

2 798  fl03 

I 127 

1 127 

10  1096 


1 1291 

6 1291 
3 230 

8 1291 
3 1290 
3 1291 

2 1432 

2 173 

10  1348 

6 1291 

9 1295 

2 1291 
5 1290 

7 477 

8 1290 

3 1295 

4 1290 


1294 
1356 
1294 
1293 
12  94 


1358 
1294 
1300 
1294 
1293 
83  5 
1293 
1300 

1203 


HEALTH  key:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


JY  JOKEP  OR  ERASE  ANYWHERE 


XX  MISCELLANEOUS  TROUBLE 


MO  MULTIPLY  DEFINED 


GAP:  ASS£^BLE  REVISION  131  OF  AGO  PPCGPAN  LUMINARY  BY  NASA  a021112-0?l 


17:53  DECo  19,1P69 
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SYMBOL  TABLE  LISTING*  INCLUDING  DEFIMTICN,  HEALTH,  PAGE  CF  OEF , U CF  REFS,  PAGE  OF  FIRST  PEF,  PAGE  OF  LAST  REF® 


SYMBOL 

TEMPTIME 

TEMPVAR 

TEMP2G 

TEMP31 

TEMX 

TEMY 

TEMZ 

TEMl 

TEM2 

TEM3 

TEMA 

TEM5 

TEN 

TENOAPPK 

T ENDBRAK 

TENSEC 

TEPHEM 

TERMASC 

TERMATE 

T ERM6XTV 

T ERMNVEC 

TERMl TMP 

TERM40 

TERRLAMB 

TEST 

TESTBIT 

TESTCOS 

TESTLODX 

TESTLCCP 

TESTNN 

TESTOFUF 

TESTVB 

TESTXACT 

TESTY 

TET 

TETCSM 

TETLEM 

TETOTHEP. 

TETTHIS 

TEVENT 

TFF 

TFF/RTMU 
TFFALFA 
T FFBANK 
TFFCALLS 


CEF 

E5,1430 
E5,1667 
0155 
66, 1736 

1253 

1254 

1255 

0141 

0142 

0143 

0144 

0145 
4363 

E7,1424 
E7, 1423 
24,3117 
E 3, 170 6 
34,3464 
1C, 3373 
5472 

12  ,3640 

01  57 
36,3262 
E5,1757 
01,2566 
40,3572 
32  ,2673 
31,3623 

13  ,3256 
41,2046 

40  ,3230 

41  ,2  041 
43,2076 
35,2742 
E3,1516 
£3,1570 
E3  ,1642 
£3,1570 
E3 ,1642 

1341 

64,1540 

0036 

0032 

22,3320 

22,3565 


REFERENCES 


128 

127 

1300 

131 

105 

105 

105 

97 

97 

97 

97 

97 
1093 

140 

140 

515 

112 

847 

1362 

264 

1193 

98 
750 
126 

1068 

461 

607 

819 

1211 

409 

437 

409 

264 

669 

111 

112 

112 

112 

112 

107 

116 

1260 

1260 

716 

722 


10 


210 

141 

514 

113 

2 846 

1 1360 
4 269 

1 1193 

3 1256 

3 749 

2 1189 
1 1088 

3 461 

1 819 

6 1209 
1 443 


269 

669 

111 

112 

112 

712 

196 

116 

716 

1264 

715 

722 


1300 

1437 

866 

866 

666 

1357 

1391 

1252 

917 

916 

1423 

€05 

1287 

847 


750 

1190 


1237 

445 

136C 

1232 

1267 

1387 


825 

723 

1271 

1271 


TFFDELC 

TFFELL 

TFFEL I 

TFFNP 

TFFQl 

TFFRP/RA 

TFFRTALF 

TFFSl^ 

TFFSW8IT 

TFFTEM 

TFFTICK 

TFFVSQ 

TFFx 

TFFXTBST 

TFFZERGS 

TFFl/ALF 

TFFl/4 

TFI 

TGO 

TGOCALC 

TGOCOMP 

TGOFFNOW 

TGOl 

THOUMP 

THETA 

THETACCN 

TFETAO 

THETAN 

THETCOMP 

TFETCRIT 

THIRD 

THIRTEEN 

THISAXIS 

THI SPREC 

TF  ISSHIP 

IhlSTPIP 

TFISVINT 

TFRDCFK 

THRDI SP 

THREE 

THReE/8 

THREEDEG 

TFRESFl 


OEF 

27.3361 

27.3362 
0012 

27,3654 
27,3656 
0034 
0016 
27,3430 
0030 
0167 
4753 
0044 
22, 3453 
0024 
0042 
27,3562 
23  ,2523 
0026 
23,2513 
E7,1453 
67, 1516 
27, 2464 
32,3716 
21, 3412 
E7,1501 
31,2326 
0024 
27,2411 
0321 
E5,1452 
34,3554 
E5,1560 
35,3644 
4761 
23,2515 
13,3056 
22,3356 
£7,1761 
13,2066 
34,2656 
£7,1750 
6250 
12,3757 
32,2546 
36, 2022 


1263 
1263 
1260 
1272 
1272 
1260 
1260 
1266 
1260 
78 
78 
1260 
718 
1260 
1260 
1270 
1275 
1260 
1275 
141 
149 
766 
829 
1472 
629 
791 
125 
762 
99 
129 
84  8 
123 
686 
106  7 
37 
37 
717 
153 
238 
645 
148 
1093 
1239 
577 
40 


REFERENCE  S 

1 722 

2 1272  1 

I 1270 
1.  1270 
6 1263  1 
5 1269  1 
1 722 

3 1264  1 


3 126 


13  1269  1273 


1 1263 
7 T26Q 

1 1270 

2 1269 
7 1264 
4 1263 


1270 

1273 

1269 


39  149  848 


2 8 26 
3 1471 
2 828 


99 

129 

827 

123 

671 

1064 


1 


37 


2 703 

1 716 

6 153 

1 1217 

2 644 

2 319 

45  235 

1 1225 
1 577 

1 748 


828 

1472 

829 

1243 

1305 

648 

827 

847 

1394 

717 


788 
1 A50 


SYMBOL 

THP  ESH2 

THP  ESH3 

THPOTLAG 

THRTTTLE 

THROTUP 

THRUST 

TICKTEST 

11  CKTFF 

TICKTPER 

TIG 

TlG-0 

TIG-30 

TlG-aOo 1 

TIG-30A 

T lG-35 

TIG-5 

TIGNOW 

TIGSAVE 

TIGSAVEP 

T IGTASK 

TIGTASKl 

TIMECHEK 

TIMECHK 

TIMEOELT 

T IMEDIOL 

TIMEOIOR 

TIMEGMBL 

T1M6H0LD 

TIMETNC 

TIMEOVFL 

T IMEP 

TIMER 

T IMERAO 

TI MESTEP 

TIMETEST 

TIMETHET 

T!  MEX 

TlMFl 

TIME2 

TIME2  SA  V 

TIME3 

TI  ME4 

TIMES 

TIME6 

TI MCGMBL 


OEF 

6000 
36,2923 
31,2004 
31,2144 
32  ,3725 

0055 
22,3430 
22  ,3420 
22,3410 
£7  ,1441 
36,2407 
36,2300 
36,2270 
36,2275 
36,2242 
36,2354 
36,3245 
£7  ,1762 
E7,1764 
36,2573 
35,3656 
10,3322 
22,3075 
13,3667 
04,3545 

04.3557 
21,3327 

n04 

13,3641 

12,2311 

0030 

£5,1470 

12.3557 
11,3311 
03,3575 
12,2732 
35  ,3201 

0025 

0024 

0314 

0026 

0027 

0030 

0031 
21  ,3335 


718 

717 

717 

141 

732 

730 

729 

730 
720 

731 
750 


735 

735 

1361 

368 

1218 

1384 

138^ 

1470 

IC3 

1217 

1172 

981 

128 

1192 

1230 

1296 

1180 

672 

92 

92 


REFERENCES 

3 753 

1 748 

1 791 

2 809 

2 828 
5 213 

715 
717 


40  196 

2 242 

2 242 

1 729 

1 729 

3 242 

4 242 

2 735 

4 756 

2 756 

1 726 

1 735 

1 1361 

1 368 
4 1216 

2 1384 

1 244 

2 1442 

7 557 

1 1218 
1 1170 

3 979 

1 627 

4 1212 
1 1299 

5 498 


970 

73! 

729 


728 

737 

749 

760 


2 670 

21  167 

39  196 

4 90 

4 221 

4 159 

5 221 
7 1396 
1 1472 


665 

672 

1361 

1389 

1329 

1122 

221 

1413 

1449 


HEALTH  key:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FCLLCWS: 


= DEFINED  BY  EOLALS 


CO  DEFIMTICN  ASSOCIATED  WITH  CONFLICT 


J DEFINED  BY  JOKER  CR  ERASE  ANYWHERE 


XX  MISCELLANEOUS  TROUBLE 


MO  MULTIPLY  DEFINED 
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SYMBOL  TABLE  LISTING,  INCLUDING  OEFIMTICN,  HEALTH,  PAGE  OF  OEF,  U OF  REFS,  PAGE  OF  FIRST  PEF,  PAGE  OF  LAST  R£F« 


SYMBOL 

TIMSUBP 
TIMSUBO 
TITER 
TI  X 

T JCALC 

TJETLAl, 

TJETU 

TJLAW 

TJLAWADR 

T JMIN 

TJP 

TJU 

TJV 

T JZERC 

TLAND 

TLIM 

TLOAO 

TM 

TMANUCHK 

TMARK 

TMEXITL 

TMFAI L2 

TMFI 

TMIN 

THINOEX 

THIS 

TMODE 

TMPTO  SPT 

TMRESUME 

TNEWA 

TNONTEST 

TNUV 

TOBALL 

TOBALLA 

TOBALLC 

TOCON2 

TOF-FF 

TOF*FFl 

TOFAR 

TOOBACF 

TOOBADI 

TOPSEUCO 

TORKJETl 

TOROCONS 

TORONDX 


DEF 

0016 
£3,1706 
E7  ,1613 
€1,2416 
17, 3402 
17,3304 
E6,  1525 
17,2715 
17,3142 
17, 3774 
E6,1524 
E6,1525 
E6, 1526 
21  ,3775 
E5,1400 
06,2514 
6473 
E6, 1732 
22,3064 
E5, 1432 
05, 371  6 
04,3344 
£6,1702 
34,2111 
0336 
E6, 1702 
6502 
33,2440 
05,3720 
E7,1431 
06,2227 
£3,1526 
26,2136 
26, 2144 
26,2165 
5417 
27,2000 

27.2000 
25,3577 
22,2724 
22,2742 
17,2553 

20.2000 
20,3151 
E5, 1440 


REFERENCES 


1454 

1453 

135 
1444 
1448 
1461 

134 

134 

134 

1502 

122 

173 

1013 

136 
368 
128 

988 
1331 

136 

637 

09 

136 

1013 

867 

989 
140 
165 
111 
477 

477 

478 
1291 

33 

33 

572 

365 

365 

1440 

42 

1487 

129 


18 


12 


5 66<5 

1 1006 
2 1454 
2 1430 
2 1455 
1 1448 
1 I4ii4 
1 1459 

134 

135 
1403 
15l*2 

122 

164 

359 

366 


136 

524 

856 

756 

163 

ill 

1 477 

2 478 

1 478 

1 1292 
1 1263 


1444 

1456 


1462 

1501 

1447 


1 572 

1 353 

1 354 

1 1440 

2 1482 

1 1487 
8 375 


TPAGREE 

TPASS4 

TPDVL 

TPERTICK 

TRIP 

TPIPGLO 

TPLEFTN 

TPM006 

TPREV 

TPSLl 

TPUSH 

TRSGL^^P 

TRACEl 

TRACE  IS 

TRACKBIT 

TRACKFLG 

TRAKFWDV 

TRAKLATV 

TRANSMl 

TRANSPOS 

TRANSTR 

TRANS4 

TRAPECP 

TRAPEOC 

TPAPEDR 

TREDES 

TREOESCL 

TRG^NBSM 

1RG#SMNB 

TR  161 

TRI62 

TRI MACCL 

TRIMOONE 

TRIMGIMB 

TRI  PA 

TRKFLCOU 

TRKFLCN 

TRKMKCNT 

TPMTRACK 

TRMTRAKl 

TRNSPSPO 

TRUE360X 

TRLNBO 


DBF 

37,2117 
43,2170 
7262 
E7,1630 
6613 
22,3460 
E7,1624 
67,1573 
40,3207 
10,3634 
E 5, 1761 
4404 
00,3272 
23,3562 
40,3272 
40,3303 
4747 
0031 
E7, 1703 
E7,1702 
E4,1400 
22,2326 
E7,1662 
17,2352 

66.1430 

66.1431 
E6,  1432 
E7,1666 
31,3711 
23,3666 
23  ,3653 
23,3335 
23,3346 
31,2000 
01, 2325 
27,3217 
E5,1664 
06,3070 

4601 
E7,1462 
43,3045 
42,2054 
22, 2335 
12,3172 
26,3111 


376 

267 

1130 

144 

1015 

718 

151 

151 
437 

1390 
126 
46  6 
1071 
1252 
445 
445 
68 
68 

152 
152 
118 
358 
150 

1438 

130 

130 

130 

152 

822 

1254 

1254 

1243 

1243 

39 

298 

776 

127 

187 

529 

141 

289 

289 

358 

1185 

587 


REFERENCES 

390 
263 
277 
196 
1015 
718 
151 
796 
422 
582 


267 

13P9 


11 
3 1189 
6 426 

I 1071 
1 125? 


1185 

1190 

437 


14 


282 
6 289 

2 152 

5 152 

2 1 18 
1 353 

3 150 

1 1435 

11  130 

6 1403 

6 1403 
6 799 

1 8 20 
5 251 

2 577 

1 1243 
I 1243 
I 807 
1 777 

1 298 

5 127 

2 197 

2 528 

141 
2 263 

1 289 

1 354 

1 1184 


1307 
7)  1 


499 

1417 
8 

1418 
820 

962 

890 


11 


SYMBOL 

TRUNNCMO 

TPUNVAR 

TRYCOUNT 

TRYGTS 

TPVSWN 

TRYSWS 

TRYUORV 

TSCALE 

TSCALINV 

TSENSE 

TSIGHT 

TSIGHTI 

TSKOVCDR 

TSLCTCQ 

TSLC 

TSLCLOOP 

TSLCTEST 

TSLC2 

TSNEXTP 

TSNFXTS 

TSNUMBRT 

TSSL 

TSSR 

TSTA8 

TSTART82 

TSTCONl 

TSTC0N2 

TSTC0N3 

TST  FBANK 

TSTFORDP 

TSTLTSl 

TSTLTS2 

TSTLTS3 

TSTLTS4 

TSTCRE 

TSTPOINT 

TSTRLSRM 

ISTRT 

TTEMP 

TTF/8 

TTF/8CL 

TTF/8TMP 

TTFDI SP 

TTFINCR 

TTFSCALE 


DEF 

1354 
£4,141 1 
25,3200 
17,2623 
25,2534 
25  ,2472 
16,2753 
32  ,2174 
47  5G 
17,2176 
E7  ,1561 
14,3154 
01,3521 

30  ,3610 

7621 
00,2201 
on  ,2207 
00,2172 
16,3014 
17,2226 
17,2216 
00,2101 
00,2025 

40  ,3703 
£4,1604 
41,3674 

41  ,3675 
41,3676 
27,2232 
41  ,2470 
41,3647 
41  ,3700 
41  ,3705 
40,553* 

6457 

23,3757 

13.2573 
E7  ,1611 
E6, 1 706 
E7  ,1642 

31  ,3026 
67,1552 
E7,1475 

31.2573 
4740 


REFERENCES 


55C 

1441 

547 

546 

1421 
211 
821 

1435 

1*7 

938 

1126 

016 

1038 

1046 

1046 

1046 

1422 
1435 
1435 
1043 
1041 

474 

116 

472 

472 

472 

746 

417 

471 

472 
472 
454 

1011 
1256 
1133 
143 
136 
151 
802 
1 51 
1*9 
798 
821 


17 


606 


973 


4 538 

1 588 

1 559 

1 1434 
1 547 

1 543 

1 1422 
1 210 
1 820 
1 1*35 
259 
1 936 

1 1126 
1 916 

I 1005 
1 1046 
1 1046 
1 1038 
4 1421  1422 

1 1438 
3 1041  1050 


I 475 
7 341 

1 471 

1 471 

I 472 
1 746 

I 416 
1 471 


1 


*71 


I *72 
1 *73 

1 1011 

1 1133 
3 285  705 

8 367  370 

20  151  869 

3 793 

5 151 

4 149 

4 793 


798 

820 

797 
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SYMBOL 

TTHROT 

TTO 

TTOAXIS 

TTOGO 

TTOTI  G 

TTP  I 

TTPIO 

TURNI TON 

TURNOFFQ 

TURNOFFR 

TURNON 

TURNONET 

TURNONFL 

TVEC 

TUEEKIT 

TWELVE 

TWIDDLE 

TWO 

TWOPI 

TXO 

TX78P 

TYPEP 

TYPEPCLY 

T1TOT2 

T2A 

T2TEST 

T2TOT3 

T3 

T3RPTBB 

T3RUPT 

T3RUPT2 

T^JUMP 

T4RPTBe 

T4RUP 

TARUPT 

T5ADR 

T5TEMP 

T6A0R 

T6FURTHA 

T6J0B 

TGJOeCHK 

T6NEXT 


OEF 

E7 ,1617 
E4 1 1666 
E6, 17A1 
E7,U53 
1271 
E7, 1635 
E7 ,1637 
35,3726 
16,2714 
16,2724 
17,3154 
4753 
0302 
0032 
0050 
5741 
5173 
4752 
25,3640 
E7  ,1653 
E7,1471 
16,3567 
17  ,3263 
E4, 1652 
30,3007 
30,2452 
E4,1654 
30,3011 
4057 
01,3410 
Cl  ,3415 
06,2116 
4064 
C6,2000 
C6, 2000 
1263 
0C61 
4055 
E6 ,1470 
17,2061 
17,2055 
E 6 ,1466 


141 

106 

144 

144 

743 

1420 

1421 
1448 

86 

66 

1240 

1197 

1476 

1113 

1093 

686 

154 

147 

1422 
1450 

117 

850 

840 

117 

850 

156 

1122 

1122 

161 

156 
29 

157 
105 
138 
I5b 
131 

1396 

1396 

131 


REFERENCES 

3 151 

4 120 
10  1456 

141 


19 


26 


318 
196 

3 62  8 

1 742 

1 1420 
1 1420 

1 530 

4 1228 

4 1176 
1 1473 

377 
09  37 

5 627 

4 154 

3 147 

1 J432 

2 1450 

6 118 

1 840 

2 839 

5 318 

1 840 

1 155 

2 155 

1 1123 

2 160 

1 155 


79C 

839 

1459 

E45 

559 

672 

633 


SYMBOL 

UAXIS 

UCSM 

UDBl 

U0B2 

UCB3 

U0B4 

UERRQR 

UHYP 


UH2P 

UJETCTR 

ULC 

ULLAGER 
ULLAGFLG 
ULLAGOFF 
1190  ULLGNOT 
ULLGTASK 
ULOS 
UMPAC+ 
UMPAC- 


961 

1497 

675 

844 

1151 


646 

646 


158 

156 

1483 


1 155 

11  1396 


1 1397 
12  221 


U=SCAX1S  27,2134 
UAXDIST  0141 


486 

1497 


486 

1494 


UN 

UNAJUMP 

UNFC/2 

UNFV/2 

UNFVLI  M 

UNFVX/2 

UNFVY/2 

UN‘FVZ/2 

UN  IT 

LMT/R/ 

LNITOV 

UNITGOBL 

UNITNCRM 

UNITX 

UNITY 

UMTZ 

UNKNOWN 

UNLR/2 

UNLRB/2 

UNP36 

UNRM 

UNSETRl 

UNSUSPEN 

UNVEC 

UNWC/2 

UNWCLCCP 


DEF 

20,3322 

E7,1636 

0135 

0136 
0140 

0137 
E6, 1750 
E7,1717 
E7,1725 
66,1767 
E7,1723 

4746 
0314 
36,2566 
36,2327 
36,2350 
E4,1710 
00,3170 
00,3162 
65,  1673 
00,2000 
66,1652 
E 6, 1666 
30,3756 

e 6, 1666 

66,1670 
66,1672 
CC, 3023 
E7  ,1536 
00,3151 
E7,1520 
04,3120 
23,2521 
23,2517 
23,2515 
0007 
0024 
0024 
F4,1614 
E4  ,1660 
10,3361 
40,3542 
67,1543 
E6, 1660 
,3354 


REFERENCES 


1490 

150 

1497 

1497 

1497 

1497 

132 

153 

153 

13B 

147 

68 

88 

735 

730 

731 
118 

1068 
1068 
126 
1007 
137 
137 
920 
137 
137 
137 
1064 
149 
1060 
1 49 
1182 
1094 
1094 
1094 
195 
152 
152 
118 
lie 

1361 

454 

143 

137 

808 


1494 

132 

153 

120 

14C4 

147 

737 

226 

242 

725 

240 

669 

1066 

1068 

126 

1004 

137 

137 

914 

906 

906 

6C6 

149 

1066 

775 

1182 

37 

37 


7C3 

670 

1360 

454 

65? 

137 

808 


1495 

1444 

R96 

896 

15C1 

591 

1435 

737 

73C 
740 
6 77 


907 

1394 

896 


1094 

890 

P73 


SYMBOL 

UNWCTEST 

UNX/2 

UNY/2 

UNZ/2 

UNZ2 

UPACTPFF 

UP  PUFF 

UPCOUNT 

UPOATBIT 

LPOATCHK 

UPPATEVG 

UPDATE2 

UPDATFLG 

UPDAT  IME 

UPOATNN 

UPDATOFF 

LPDATRFT 

UPDATVB 

UPOATl 

UPONLI ST 

UPCTCALL 

UPCTMENC 

LPDTPHA  S 

UPEND70 

UPEN071 

UPEN072 

UPFN073 

UPENT2 

UPERROR 

UPERRGUT 

UPFLAG 

UPFNDVAC 

UPJC8 

UPLIM 

UPLCADNV 

UPLCCBIT 

UPLOCKFL 

UPMNSVCC 

LPNEG 

UPOK 

UPQLDMOD 

UPOUT 

UPnUT4 

UPPART2 

UPPART3 


DEF 

30  ,3514 
0000 
0006 
0014 
06,2313 
04,3743 
1173 
1 172 
4745 
33,3115 
36,3615 
04,2000 
0027 
42,2016 

41  ,2322 
43,3102 

0117 

41,2342 

41,2347 

05,2407 

22,3206 

42  ,2032 

4756 
04,3701 
04,3610 
04,3642 
04,3514 
10,3545 
43,3765 
04,3736 
5504 
04,3522 
04,3527 
12,3277 
04,3474 
4750 
0164 
04  ,3206 
7564 
04,3327 
1170 
04,3667 
04,3670 
04  ,3357 
04,3540 


914 

137 

137 

137 

167 

1388 

104 

104 

67 


43  3 

41  4 

195 
370 
277 
1383 
1 387 

1385 

1386 

1383 

1366 

1380 
1388 

1367 

1384 
1384 
1188 
1383 

78 

78 

1219 

1037 

1331 

104 

1386 

1383 

1381 

1384 


REFERENCES 

907 

906 

907 
906 
168 

1386 
206 
1C4 
510 
869 
752 
1218 
289 
277 
443 
264 
413 
406 


413 


93  4 
907 

1386 

1387 
1382 

870 

757 

1381 

663 

458 

414 

458 

447 


369 


1 1384 
1 1384 
I 1384 
1 1304 


1 1383 
1 1384 

1 1)  87 

2 1381  1382 

3 1331 


1382 

1381 
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SYMBOL 


OEF 


REFERENCES 


DEF 


REFERENCES 


SYMBOL 


OFF 


REFERENCES 


UPPOS 

UPPSV 

UPPSVl 

UPPSV3 

UPPSVA 

UPPSV5 

UPRPTBB 

UPRPTl 

UPRUPT 

UPSTORE 

UPSVFLAG 

UPTEMP 

UPTEST 

UPTHROT 

UPTHROTl 

UPTMFAST 

UPVERB 

UPVER6SV 

UPVER IFY 

UPVRFYNV 

upwake 

UPl 

UP2I 

UP70 

UP71 

UP72 

UP73 

UR 

URATECIF 

URP 

URPV 

URRECT 

URL 

USEAUC 

USECOS 

USEGTS 

USE  JETS 

USEMAXOT 

USEPIOS 

USEORFLG 

USEQRJTS 

USERPR 10 

USEVF 

USPRCADR 

UT 


755A 
2i‘,2312 
24,2332 
24, 2364 
24,2345 
24,2327 
4060 
04,3310 
04,3276 
04,3476 
E3,150l 
1166 
04,3350 
32,36*7 
32,3654 
06,2676 
1171 
1165 
04,3441 
C4,3475 
04  ,3532 
E4, 1660 
4362 
4755 
4753 
4752 
6250 
0000 
£6  ,1426 
0006 
0016 
E5, lo46 
E5, 1721 
41  ,2105 
20,3645 
33,2336 
33  ,2375 
13,3333 
13,3000 
0304 
4736 
0163 
33,3426 
4713 
E7,1672 


1037 

503 

504 
504 
504 
504 
156 

1331 

1331 

1383 

111 

104 

1331 

626 

328 

180 

104 

104 

1382  ■ 

1383 

1364 
117 

1383 

1381 

1381 

1381 

13P1 

493 

131 

493 

1240 

126 

126 

40Q 

917 

857 

858 
1211 
1205 

£7 

87 

1365 
861 
994 
145 


12 


1 1037 

2 . 502 

1 504 

1 504 

1 504 

1 504 

I 155 

1 155 

1 1382 
6 111 
104 
1331 


1 829 

1 1 83 

5 104 

2 1380 

3 1382 
1 1382 


11 


11 


1219 

1386 


LTI  ME 
UV 

UXVECT 

UXVECTPR 

UYVECT 

UYVECTPR 

uz 

UIPOS 

U2 

U2P0S 

U3P0S 


118 
1 1382 
1 1300 
1 1380 
1 1380 
1 1380 

1 492 
5 1439 

2 492 

8 1227 
4 126 

126 
409 
917 


4 857 

1 1212 
1 1205 

6 755 
3 1351 
1 881 

7 606 

10  145 


21,3714 
0154 
E7,1717 
0014 
E7, 1725 
0022 
0024 
22,2250 
E5,1711 
22,2224 
22,2274 


1501 

1498 

146 

598 

146 

598 

1240 

356 

126 

356 

357 


1 1500 

7 1490 
7 146 

3 595 

6 146 

2 595 

4 1227 

1 356 

5 1 26 

1 356 


1229 

1192 


1 


357 


1384 

1383 


124C 

1173 

1193 


1463 

1361 


V 

V(CSMI 

V-OTHFR 

V/SC 

V/SCOV 

V/SC  1 

V/SC2 

VACDSP 

VACFOUND 

VACSTCR 

VACTl 

VACT2 

VACT3 

VACT4 

VACX 

VACY 

VACZ 

VACl 

VAC lADRC 

VACIUSE 

VAC2 

VAC2USE 

VAC3 

VAC3USE 

VAC* 

VAC4USE 

VAC  5 

VAC5USE 

VAO 

VALMI S 
VALTCHK 
VAL67 
VAPFG 


E7,1526 
E3  ,1725 
E3,1725 
7627 
00,2750 
7635 
00,2654 
10,2660 
01,2621 
07,2525 
E7,1471 
E7,1513 
E7,1543 
E7, 1565 
E4,1537 
E4,1541 
£4,1543 
0401 
05,3364 
0400 
0455 
0454 
0531 
0530 
0605 
0604 
0661 
0660 
6754 
37, 2263 
33,3454 
05,2043 
F5, 1444 


149 
121 
112 
1039 
1062 
1039 
1060 
1353 
1100 
259 
143 
1 43 
143 
143 
115 
115 
115 
100 
225 
100 
100 
100 
100 
100 
100 
100 
100 
100 
IC'20 
379 
882 
52 


149 
603 
5 1 21 

1 ICC5 

3 1061 
1 1C39 
1 1039 
1 1353 

5 IICO 

1 256 

4 146 

3 641 

3 143 

6 144 

1 115 

1 115 


3 224 

3 224 

1 1300 
3 224 

7 7005 
1 390 

3 879 

3 979 

1 7 22 


3 100 
1100 
1100 
1700 

nro 

882 


VAPFG* 

VAPREC 

VARADAR 

VAPALARM 

varoelay 

VARIANCE 

VATT 

VATTl 

VBAC 

VBCCAPK 

VBFANOIR 

veiAs 

VBPROC 

V8R  ELOSP 

VBRFSEO 

VBRFG 

VBPFG* 

V8RQEXEC 

VBROWAl T 

VBSPILD 

VBSP2LD 

V6SP2LD* 

VBSP3LD 

VBTERM 

VBTSTLTS 

VBUF 

VR2ER0 

VB04Na2 

VBOSNOB 

V0O5NO9 

V606N18 

V606N98 

VB56CA0R 

VB6N5 

VB6* 

VB67 

VB67A 

VB970EX 

VB990EX 

VCV 

VCVCSM 

VCVLEM 

VOB 

VDEF 

VOG 


E5,1460 
E7,1505 
25,2060 
5734 
522* 

E5, 1706 
0006 
0024 

33.3625 
43  ,2200 
41,2146 
E5,1620 
40,3476  452 

40.3524  45* 

*(•,3521  45? 

E'^,1410  = 122 

E5,7424  = 722 

41  ,3501  *51 

41.3525 
41  ,3031 
41  ,3032 
40,3423 
41  ,3033 
40,350* 

41.3626 
0122 

43,2126 
26,2117 
15  ,3634 
5006 
26,2120 
37  ,2472 
60  30 
14,3320 
43,2725 

31.2000 

30.2000 
4765 
4760 

E3,15*2 
E3,161* 

E3  ,1666 
17,2533 
00 ,3232 
E5  ,1410 


1376 
111-’ 
127 
1240 
1240 
886 
268 
41  0 


452 
431 
431 

453 
431 
452 
471 

96 

266 

342 

976 

925 

342 

383 

598 

042 

282 

34 

3* 

739 

739 

111 

112 

112 

1440 

1071 

821 


122 

669 

494 

182 

166 

127 

571 

210 

885 

263 

410 
795 

411 
400 
411 
122 
122 
411 
411 
428 
426 
452 
428 
411 
411 

96 


672 

1324 

1304 

1144 

1217 

801 


813 

460 


429 

430 


459 

1497 


1 263 

1 341 

1 970 

3 936 

1 342 

1 383 

1 598 

1 941 

1 263 

1 613 

1 615 

I 736 
1 732 

21  111 

1 584 

2 504 

1 1440 
1 1007 
1 804 


1233 

584 
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OEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


VDl 

VE 

VEARTF 

VEC AGREE 

VECANGl 

VECANG2 

VfcCLEAR 

VECOFANG 

VECPNTl 

VECPNT2 

VECPOINT 

VECPT 

VECQTEMP 

VECS6NAG 

VEC  SHIFT 

VECTAB 

VECTABNO 

VECl 

VEC2 

VEHUPBI T 

VEHUPFL6 

VELBI  AS 

VELCHK 

VELCONV 

VELCABIT 

VELDATA 

VELSC 

VELUPOAT 

VERB 

VEKBFAN 

VER8MASK 

V ER6N0UN 
VERBREG 
VER  BSAVE 
VERBTA8 
VER63? 
VERB65 
VEB885 
VERB96 
VER  IFBIT 
VERIFLAG 
VER  IFYMK 

V ERROR 


E7,1644 
E5, 1424 
4360 
E4,1664 
E5,1706 
00,3010 
26, 2407 
26,2411 
27,2043 
22,2723 
27,2032 
27,2035 
27,2040 
27,2000 
E6, 1724 
10,3773 
23  ,2441 
E4, 1531 
E4,1574 
E6, 1645 
E6,1653 

4744 
0026 

E6,1771 

25.3232 
21,200  3 

4745 
7255 

37,3101 
33  ,3255 
40,2354 
41 ,2133 
4144 
E7, 1615 
1000 
1040 
41,2151 
C4,2000 
43,  2037 
43  ,3254 

43.3233 
4751 
0165 

C7,2443 
E6, 1751 


152 
621 
46  5 
120. 
124 
1063 
487 
466 
485 
364 
485 
485 
485 
33 

136 
1394 

700 

115 

115 

137 
' 137 

67 

67 


84 

84 

391 

879 

404 

410 

1364 

143 

101 

102 

410 

28 

263 

301 

300 


120 

124 

1060 

486 

466 

485 

364 

522 

405 

342 

48* 

485 

211 

639 


ei3 

1093 

839 

957 

1394 


6 52 
1238 


137 

964 


290 

880 


1 387 

1 400 

7 409 

1 13*9 
4 625 

1 224 

3 409 

1 410 

1 226 
1 2 63 

1 264 

1 264 

1 1383 

I 256 


VERTOISP 

VERTDRFT 

VERTGUID 

VERTSKIP 

VEX 

VFAIL 

VFLAG 

VFLAGBIT 

VFLSH0IT 

VFLSHFLG 

VG 

VGAIN* 

VGBODY 

VGDISP 

VGPREV 

VGTIG 

VGU 

VGVECT 

VhY 

VHZ 

VIGN 

VINIT 

VI NJNCV 

VINTF8IT 

VINTFLAG 

VI  PRl  ME 

VJETCTR 

VLAUN 

VLAUNS 

VL  IGHT 

VLITE 

VLOAO 

VLOAD* 

VLOAOCOD 

VMAX 

VMEAS 

VM£A  SCHK 

VMGDE 

VMGNI TCR 

VMCON 

VN 

VNCON 

VNDSPCON 

VNLCRCCU 

VNLODCOU 


31,3471 
37,2231 
31,3503 
37,2534 
£7,1742 
33,3535 
0062 
4742 
4752 
0262 
E7, 1706 
27  ,2455 
E7,1501 
£7,1663 
E7,1700 
E7,17Q0 
E7,1626 
E7,1645 
E7, 1704 
E7,1705 
E5,1472 
E4, 1730 
34,3366 
4751 
0071 
E4, 1.736 
E6,  1770 
E5  ,1510 
£5,1462 
25,3646 
4751 
6510 
6112 
4735 
£4, 1405 
£7,1652 
33,3250 
6524 
21,2617 
£5,  1722 
1225 
43,3151 
40,3352 
43  ,2263 
43,2234 


81  0 
38  5 
145 


145 

766 

149 

144 

145 
145 

151 
154 

152 
] 53 
122 
119 
835 

71 

71 

119 

138 

129 

129 

617 

618 
1013 
1093 
109? 

114 

151 

879 

10)3 

697 

124 

105 

293 

447 

270 

269 


793 

385 

749 

880 

032 

823 
880 
145 
775 
149 
316 
241 
145 
151 
154 
1 53 
1 53 
122 
676 
832 


7 665 

2 1*04 
5 388 

1 617 

2 617 
I 1005 
1 1012 
1 ) 012 
I 592 


1235 

774 

1*20 

389 


151 

877 

1C35 

900 

125 

197 

292 

*47 

270 

269 


885 

883 

1071 

980 

1214 


VNLOOOT 

VNLOOGYR 

VNPLANV 

VNPOOH 

VN0611 

VNn641 

VN0655 

VM 

VNl 645 

VN2 

VOK 

VUKl 

V0K2 

VONE 

VONF* 

VOPENED 

VPASSl 

VPASS2 

VPASS3 

VPASS4 

VPC 

VPOVL 

VPPREC 

VPRCJ 

VRATEOIF 

VRECT 

VRECTCSM 

VRFCTLEM 

VR IGHT2 

VROTATEX 

VROUNO 

VSCALE 

VSFLECT 

VSELeCT# 

VSHRRNO 

VSHR2 

VSO 

V SO  SUB 

VSSL 

VSSR 

VSTILBAD 

VSTORE 

VSU 

VSUBC 

VSUN 


42,2034 
43,2420 
15,2560 
35,3621 
35,2065 
37,2473 
35,2120 
B7,1552 
35,35)5 
E7,1656 
26,2666 
26,2727 
26  ,2731 
E4,1614 
E4,1 567 
06  ,3231 
£7,1505 
E7,1527 
E7,1557 
E7,1505 
OOOO 
6576 
E7,7  527 
7430 
E6,1427 
£9,1510 
E3,1562 
E3,163* 
00,2242 
7423 
714? 
32,2201 
E7,1651 
0131 
00,2073 
00,2060 
00  ,3245 
00,3317 
00,2M5 
00  ,2127 
33,3626 
6446 
6752 
E3,}760 
E5  ,1714 


277 

275 

957 

685 

626 

383 

627 

14Q 

682 

151 

584 

585 
585 
116 
1)5 
194 
143 
143 
143 
146 
935 

1015 
1 43 
1035 
131 
111 
111 
1 12 
1048 
1034 
1026 
21! 
151 

123 
1042 
1042 

1071 

1072 
1045 
1044 

886 

1011 

1020 

113 

124 


I 277 
1 275 

1 956 

1 3 619 

I 627 
1 37  5 

1 626 

7 149 
6 620 

4 152 

1 584 

I 585 
1 585 

9 707 

3 1263 

1 193 

6 143 

5 143 

8 643 

2 665 


1217 

695 


1263 

1269 

647 

652 

699 

675 


672 


11 


2 669 

1 1005 

3 1440 
111  1233 

2 834  977 

I 1048 

3 1044  1066 

6 1034  1035 
1 210 

11  151  889 

3 881 

4 1044  1080 
1 1042 

1 1007 
3 1064  1071 
3 1044  1050 
1 1048 
1 885 

1 1005 
3 496 

7 124  980 
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SYMBOL 

VTARGET 

VTARGTAG 

VT  IG 

VTPRI ME 

VUPDAT 

VUPCATEC 

VV/SC 

WARM  IN 

WEC 

VVECT 

WXSC 

VXBEAMNB 

VXINH 

VX  INHBIT 

VXM 

VXM/MXV 

VXRCM 

vxsc 

VXSCAL 

vxv 

VY8EAMNB 
VYSCAL 
VZBEAMNB 
V ZSCAL 
VO 

V00N25 

V00N34 

V01N14 

V01N25 

V01N46 

V01N70 

V01N704 

V01N71 

V04N06 

V04N12X 

V04N1272 

VO5NO0M1 

V05N09 

V06N05 

V06NO7 

V06N11 

V06N13 

V06N16 

V06N16N 

V06N18 


OEF 

E5 ,1702 
E5,1701 
E7, 1647 
E7  ,1565 
33,3375 
33,3453 
7632 
£3, 1775 
E5  ,1743 
£7,1706 
7407 
64  ,1644 
0250 
4740 
7342 
7345 
£7 ,1703 
7404 
33,2016 
7463 
EA,1636 
33,2014 
E4,1630 
23,2012 
0006 
601C 
4242 
22,2170 
10, 3A77 
20,2112 
lA, 3773 
15, 2463 
C7 ,2330 
10,3503 
43,2673 
23,2037 
10,  3516 
5006 
24,2665 
10,3500 
35  ,2415 
35,2416 
32,2172 
04,2755 
26, 2260 


126 

126 

144 

144 

881 

882 

103  9 
113 
126 
153 

1034 

117 

83 

83 

1032 

1033 
146 

1034 
41 


41 

935 

211 

211 

211 

1364 

296 

951 

955 

254 

1364 

281 

272 

1364 

1090 

511 

1364 

636 

636 

211 

704 

479 


REFERENCES 

126  1 
126  1 
144 
665 


16 


584 

126 

153 


2 117 
2 861 
I 880 
1 1005 
1 1032 

3 146 
1 1005 


117 

879 


2 1352 
1 29  5 

1 950 

1 952 

1 2*7 

1 1354 
1 279 

1 272 

1 1357 
6 626 
1 509 


1 


626 

632 

209 

7U3 

477 


SYMBOL 

V06N22 

V06N33 

VC6N334 

V(I6N33A 

V06N34* 

V06N37 

V06N42 

V06N43 

V06N43* 

V06N48 

VC6N49NB 

V06N51 

V06N55 

VOeN50 

V06N59 

VC6N60 

V06N61 

V06N63 

V06N634 

V06N64 

V06N68 

V06N71 

V06N72PV 

V06N75 

V06N76 

V06N79 

V06N79* 

V06N81 

V06N84 

V06N87 

V06N87* 

V06N89* 

VC6N90N 

V06N93 

V06N99 

V06N99CS 

V06N9933 

V0647 

VI 

VIS 

V1ST02S 

V16N20 

V16N4C 

V16N44 

V16N45 


OEF 

5010 

35,2032 

24,2311 

30,3022 

15,2170 

35.3632 
35,  2033 
24,3674 
34,3342 
01,2337 
24,2666 
42,3765 

35.3633 

35.3634 

35.3635 
31,3720 
36,3152 

31.3716 

30.3020 

31.3717 
43,2365 

07.2624 
24,3136 
35,2417 

30. 3021 
15  ,2464 

07.2625 

35.3636 
13,2334 
1 4,3774 
07,2331 
14,2477 
04,2756 
14,3246 
31,2143 
31,2024 
31,2051 
01,2336 

0014 

E7,1600 

10,3621 

14,3215 

36,3764 

22,3317 

35.3637 


1090 

620 

503 

850 

925 
686 
620 
659 
787 
298 
511 
493 
666 
686 
686 
622 
744 
822 
850 
822 
273 
261 
516 
636 
850 
955 
261 
666 
713 
951 
254 

926 
704 
940 
615 


REFERENCES 

4 489  968 

1 619 

1 497 

1 P51 

2 923  969 

3 627  664 

1 619 

1 659 

1 786 

2 297  298 

1 511 

1 492 

2 627 

1 665 

1 681 
1 810 
1 739 

1 809 

1 843 

2 eC9 

2 273 

1 515 

2 628 
1 822 

1 954 
1 262 

2 619 

2 711 

1 951 

1 247 

1 928 

1 7C4 

1 940 

1 613 

1 613 

1 613 

1 297 


935 

149 

1389 

939 

758 

716 

686 


SYMBOL 

V16N54 

V16N56 

V16N63 

V16N66 

V16N67 

V16N72 

V16N78 

V16N80 

V16N858 

Vt6N85C 

V16P3 

V? 


149 

367 

939 

749 

716 

682 


882 

12*6 


V3 

V34T0N49 

V37 

V37BA0 

V37FLAG 

V37FLBIT 

V37KLEAN 

V37N0N0 

V37N99 

V370CAD 

V37RET 

V37XE0 

V37XE0C 

V41  K 

V*3K 

V47TXACT 

V5ON00 

V50NOOA 

V50N16 

V50N25X 

V50N4e 

V50N68 

V50PASTF 

V59GP63 

V6N34 

V6N99PR0 

V67 

V67CALL 
V67CLRF 
V67FLAG 
V67FLB I T 
V67SURF 


OEF 

37,3407 

40,2076 

14,2437 

43.2671 

43.2672 
43  ,2667 
43,267C 
24,3255 

36.3765 
34,3474 

36.3766 
P022 

E5,1510 
0030 
24,2607 
04,2040 
04,2067 
0162 
4746 
05  ,2650 
04,2326 
04,2037 
04,2370 
04,2116 
04,2334 
04,2363 
14,3556 
43,2771 
43,2430 
10  ,3501 
32,2171 
32,2173 
43,267* 
01,2337 
43,2365 
10,3204 
25,354! 
24,3675 
31,2032 
43,3240 
31  ,2007 
31,2110 
0160 
4744 
31,2102 


REFER  ENCES 


709 

302 

847 

281 

281 

281 

281 

520 

758 

847 

758 

935 

122 

935 

510 


21  6 

234 
227 

235 
230 
234 
234 
947 
28* 
276 

136* 

211 

211 

281 

298 

273 

1359 

568 

659 

613 

300 

613 

614 


705 

301 

846 
280 
280 
280 
280 
519 

730  752 

847 
754 

122  811 
511 

300  451 

234 
859 

230  1375 

232  1375 
230 

227 

233 
859 

235 


1 945 

1 283 

1 263 

1 1359 

1 210 
I 279 
1 298 

1 273 

1 1359 
1 266 


1 


657 

613 
263 
300 

614 

613  614 
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SYMBOL 


OEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


V67WW 

V67XXX 

V70UPDAT 

V71UPDAT 

V72UP0AT 

V73UPDAT 

V74 

Va2CALL 

V82C0N 

V82EMeiT 

V82EMFLG 

V82FLAGS 

V82G0FF 

V82G0FFI 

V82G0FLP 

V82G0N 

V82G0N1 

V82GGN2 

V82GDN3 

V82PeRF 

V82RE0SP 

V82STALL 

V83CALL 

V83PERF 

V89CALL 

V89CALL1 

V89PERF 

V89RECL 

V90PERF 

V 97N00 

V99ReCYC 


31,2120 
30,2042 
*3,3751 
43,3753 
43,3755 
<3,3757 
<3,3066 
22, 32<2 
<3,3000 
<752 
0166 
E<,1537 
22,3247 
22, 3321 
22,3267 
22,3465 
22,3503 
22,3536 

22.3541 
43,2772 
22,3475 
22, 3300 
37 ,3121 
<3,3002 
26,2022 
26,2072 
<3,30X0 
26,2036 
<3,3017 

10.3542 
36,3003 


614 

615 
1360 
1380 
1360 
1380 

290 

715 

285 

78 

78 

116 

715 

716 
715 
719 
719 

719 

720 
285 
719 
715 
705 

285 

341 

342 

286 
341 
286 

1365 

739 


613 
615 
263 
26  3 
263 

263 

28  5 

285 

717 

116 

715 

715 

716 

715 
719 

719 

720 

264 
719 

716 
705 
264 

286 
3*^2 
264 
342 
264 

1359 

726 


Wo  IND 
Wo  INOl 
WAITABIT 
WAI TADR 
W AITBANK 
HAITBB 
WAITEXIT 
WAITLIST 
WAI TMASK 
MAITPOOH 
WAITTEMP 
WAI  T2 


E5,14O0 

1256 

1257 
36,2567 

0063 
0062 
5220 
0061 
520  3 

10  ,2761 
01, 3524 

0064 
01,3232 


122 

107 

1C7 

735 


1113 

1355 

1126 


46 


725 

1113 

IU6 

1113 

1113 

166 

1 1355 
1 1116 
3 U21 

2 1113 


1123 

1369 

13U 


WAI T6fi 

WAKECAD 

WAKECADR 

V.AKEPLAY 

WAKER 

WAKESTAL 

WAKETEST 

mANGI 

WANGO 

WANGT 

WANTAPS 

WBAMK 

WCALC 

hCENTRAL 

WChPHASE 

WCHPHCLD 

WCHVERT 

WDAGA IN 

WDCNT 

WDRET 

WEARTH 

WEIGHT/G 

WFATALM 

WHATDISP 

WHATExn 

WFAT6UI0 

WHATOUT 

WHCHREAD 

WHERETC 

WHICH 

WF  IChADR 

WHIMPER 

WHOCARES 

WFOLECON 

WIOEOB 

WITCHONE 

WIXA 

W1  XB 

WL  INIT 

HLCGP 

WLSRFPOS 

WLSRFVEL 

WM 


43  ,2334 
00,3774 
10,3511 
10,3025 
00,3766 
I 3,3461 
01,3045 
£5,1436 
E5,1434 
E5, 1440 
36,2324 
26,3331 
22,2746 
E6,1742 
1346 
E7,1621 
E7,1647 
41,3416 
0137 
0115 
26,2020 
1243 
31,2410 
31  ,2404 
31  ,2402 
31,2372 
31,2330 
1356 
31,2203 
E7,1455 
32, 3743 
5634 
E7,1471 
42,3534 
20,2152 
10,3206 

1315 

1316 
26,3251 
12,3013 
26,3274 
26,3311 
E4,1724 
1 1, 3700 
43  ,31 14 


273 
1370 
1364 
1356 
1369 
1213 
1105 
129 
129 
129 
730 
591 
366 
133 
1C8 
151 
1 52 
447 
97 
96 
53 

105 
794 
794 
794 
793 
791 
108 
789 

141 
830 

1374 

142 
439 

1400 

1359 

106 
106 
590 

1183 

590 

590 

121 

1236 

292 


1 2 73 

I 1369 
3 1355 
1 1361 

1 137C 

2 1212 
1 1 105 
I 376 

376 
] 29 


1 

1 726 

1 590 


13 


1465 

733 

7 151 

3 796 

1 447 

4 445 

8 445 

I 1140 
6 760 

1 803 

1 609 

1 806 
1 8C2 

6 108 
1 788 

30  243 

1 P26 

3 8 60 

4 490 

3 438 

1 1399 
3 1351 

5 1147 

3 1147 
3 562 

1 1183 
I 590 
1 59C 

6 121 

1 1234 
\ 264 


1466 

820 

PC9 

ein 

447 


587 

857 


WORKTIME 

WOZERU 

WPLATI 

WPLATC 

WPOSTflRE 

WRDRET 

WRFNDPOS 

WRENDV6L 

WRITEP 

WR  I TEU 

WR ITEV 

WRTDESIR 

WSHAFT 

wsize 

WSTOR 

WSUPFPOS 

WSUPFVEL 

WTABORT 

WTLST2 

WTLST4 

WTLST5 

WTLTCAOR 

WTRUN 

WVELSTOR 

WWBIAS 

WWPOS 

WWVEL 


16,2624 
05  ,3612 
E5,1560 
E5,146*‘ 
26,32'76 
0115 
E4,140n 
E4 ,1401 
5744 
5750 
5761 
15  ,3070 
E4,1402 
26,3437 
33  ,3432 
E4,1406 
E4,1407 
01  ,3364 
01,3375 
01  ,3261 
01f33ll 
01,3775 
E4,1403 
26,3313 
E4 ,1  604 
E4  ,160« 
E4,1602 


1419 

087 

129 

12° 

59C 

96 

114 

114 

3,397 

1397 

1397 

965 

114 

592 

881 

114 

114 

1119 

1121 

1117 

me 

1300 

114 

590 

116 

116 

116 


3 118 

2 590 

6 1396 
1 1447 
1 1447 

1 965 

2 590 

1 590 

3 881 

2 590 

2 590 

1 1117 

3 1118 
1 1121 
1 1116 
3 1296 

2 591 

1 590 

11  319 

15  300 

9 319 


614 

614 


1299 

614 

615 
615 
61  5 


1376 

1353 


1355 

1149 

1149 

591 


XAO 

XAD2 

XCHNYLOC 

XCHOACO 

XCH  SLEEP 

XCHTOENO 

XCHX 

XCOMMON 

xoc 

xnELVBl T 

XOELVFLG 

XDI  FF 

XOSPBIT 

XDSPFLAG 

XI 

XKFP 


0024 
01,2401 
01  ,2404 
10,3224 
10  ,3016 
10,2765 

10,322? 

01  ,2373 
12,3066 
E5,1664 
4744 
0045 
12  ,2163 

4753 
0112 
00  30 
E3,1552 


1082 

1082 

1359 

1356 

1355 

T*59 

1082 

1184 

124 

69 

69 


22  1169  1184 
1 1006 
2 1082 
1 1555 
1 1355 
I 1356 
3 1351  1355 
1 1006 
1 1186 

12  124  1246 

6 619  766 

I 1346 
1 209 

7 U70  1189 

3 126  1233 
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SYMBOL 


CEF 


SYMBOL 


DEF 


REFERENCE  S 


SYMBOL 


DEF 


REFERENCES 


XKEPC  SM 

XKEPLEM 

XKFPNE^f 

XMAX 

XMIN 

XMKRUPT 

XNB 

XNBADR 

XN8ECADR 

XN6PI P 

XNBPI PAD 

XORFL6IT 

XORFLG 

XOVINFLG 

XOVINHIB 

XPREV 

XRANGE 

XREG 

XREGLP 

XROT 

XSCl 

XSCREF 

XSM 

XSMADR 

XSMD 

XSOCIXl ) 

XSTORE 

XSU 

XTRANS 

XUNI  T 

XXXALT 

XYMARK 

XI 

XUNPUT 


E3, 1624 
E3fl676 
E4»1527 
0012 
0014 
C7,2415 
E5. 1664 
37,2476 
10,2035 
E4,1545 
33,2414 
4743 
0253 
0311 

4743 

E3  ,1552 
E7, 1642 
1002 
1005 
26,2372 
E5  ,1706 
E7,16C6 
E5,1642 
37  ,2477 
E7, 1606 
0034 
Cl  ,2347 
01,2412 
17,3112 
12,2004 
E7,1670 
E7  ,1551 
0046 
E7,l6ll 
C047 
E3, 1700 


112 
) 12 
115 
1195 
1195 
256 

124 
3B3 

1257 

115 

B58 

84 

84 

87 

87 

126 

154 

101 

101 

487 

125 
149 
124 
383 
149 

1195 

1081 

1082 

1447 

1095 

144 

147 

93 


12 


3 115 

9 1169 
6 1169 
1 256 

375 
1 375 

J 1257 


1221 

1172 

1172 


11 


115 


10 


24 


1 856 

1 869 

1 669 

7 226 

2 904 

2 1170 
5 154 

307 
403 
487 
125 
764 
124 


869 
142? 
1 173 
832 
422 
432 


YCCT 
YOOTD 
YL  IM 
YMKRUPT 
YNB 

YNBPI P 

YNBSAV 

YOK 

YRATE 

YRFG 

YREGLR 

YSCI 

YSCREF 

YSM 

YSMD 

YSZERO 

YUM  T 


E4,1710 
64,1674 
E5,1564 
07,2421 
E5,1672 
£4,1553 
E4,1636 
32,3620 
E4,1752 
1003 
1006 
E5,1714 
E7,  1614 
E5,1650 
E7,1614 
07,2177 
12,2002 
1125 
07,2171 


120 

120 

123 
256 

124 
115 
117 
827 
121 
101 
101 

125 
149 
124 
149 
252 

1095 

104 

252 


120 

120 

123 
255 
376 
115 
117 
827 
121 
429 
ICl 
125 
764 

124 
149 
252 


1245 

800 

975 


1245 

Q77 


1 


15 


16<5 
5 1172 
3 1081 

1 luoe 

3 1-^37 

9 37 

4 144 

8 147 

9 253 

9 491 

5 198 


977 

1178 


1445 

1227 

697 

952 

1392 

1264 


YAW 

YAWANG 

YAWOUN 

YCO 

YCOMP 

YCONS 

YOC 


E4,  I 734 
E4,1762 
E4,1602 
20,2230 
£7,1632 
27,3313 
E4,1746 
E5  ,1672 


120 

121 

119 

833 

154 

849 

121 


833 

154 

827 

121 

124 


841 

838 

642 

1248 


Z 

ZACCDCT 

ZAPTJ 

ZATTEROR 

ZAXI  SI 

Z0ATA2 

ZDC 

ZOCT 

ZDOTD 

ZDCTOCMP 

ZERDUMMY 

ZERLINA 

ZERO 

ZERO/SP 

ZERCAN'S 

ZEROOATA 

ZERODP 

ZERQENEL 

ZEROHIGH 

ZERO  ICCU 

ZERCING 

ZER0IN61 

ZERCLCUP 

ZEROLSTY 

ZERONCX 


0005 
20,2755 
21  ,3676 
20,2154 
E7,1725 
21,2261 
E5,L700 
64,1712 
£4, 1676 
34  ,3524 
67,1646 
E7, 1443 
47  55 
22,2523 
00,3376 
21  ,3047 
12,2006 
16,3201 
21,3453 
5457 
37,2367 
27,2371 
21,3615 
21,3023 
E5,1571 


92 
1482 
1501 
1400 
120 
892 
124 
120 
120 
848 
151 
142 
1(89 
598 
1073 
900 
1095 
1426 
147? 
130  1 
381 
361 
1475 
699 
129 


24 


13 


306 
1 1482 
1 1501 
267 


6 833 

1 900 

5 124 

3 J 20 

6 120 
1 828 

2 151 

4 142 

18  159 

1 572 

2 1073 

1 893 

2 1426 

1 1473 

4 167 

2 375 

1 381 

2 1475 


1440 

845 

1248 

838 

848 

152 

F15 

15C2 


ZEROO 

ZERCOT 

ZEPOPLUS 

7EPPT J 

ZEPCVEC 

Z6R0VECS 

ZI 

Z 1 XA 
Z 1X6 
ZNB 

ZNDPI P 

ZNBSAV 

ZONEl 

Z0NE2 

Z0NE2  ,3 

Z0NF3 

Z0NE3L  IM 

Z0NE3MAX 

Z0NF4 

Z0NE4,5 

Z0NF5 

ZONl,  2,  3 

ZOOM 

ZODMBI  T 

ZDOMFLAG 

ZOCMTI ME 

ZPP IME 

ZREG 

ZREGLP 

ZRUPT 

ZSCI 

ZSCREF 

ZSM 

ZSMD 

Z SPCR 

ZUNIT 

ZV 

ZITEM 

Z12? 

Z123C  OMP 

Z3TEM 

Z5TEM 


23,2523 
21  ,3450 
20,3020 
17,2620 
12  ,2006 
23,2523 
£5,1642 
1317 
1220 
E5  ,1700 
E4,1561 
64,1644 
17,361  5 
17,3606 
17,3602 
17,361  0 
66,1555 
20  ,3766 
17,3427 
17,3416 
17,3461 
17,3575 
35  ,3667 
4744 
0122 
E7 ,1422 
0026 
1004 
1007 
0015 
E5  ,171a 
E7,1622 
E5,1656 
67  ,1622 
15,2413 
12  ,2000 
1133 
<^131 
23,2545 
17  ,3561 
015? 
0132 


1151 

1473 

1484 

1441 

1 005 

109A 

127 

106 

107 

124 
115 
117 

145R 

1458 

1458 

1458 

135 

1498 

1455 

1454 

1455 

1457 

735 

74 

74 

140 

125 
101 
101 

92 

125 

150 

124 

149 
954 
1095 
1 04 
1497 
1143 
1457 
1.497 
1497 


37  1239 
37  115) 
127  1152 
1147  1149 
3147  1149 
376  1245 
907 

973  975 

1455  1458 


737 


1 1455 
1 1454 

4 241 

1 794 

2 731  735 

5 241  807 

7 1241  1242 

3 409  438 

2 101  438 

2 1420  1451 

1 764 

2 124  1245 

5 150  977 

1 953 

4 37  1230 

8 1231  1236 
4 1493  1494 
I 1144 

3 1455  1457 
1 1489 

4 1492  1493 


11 


375 


899  0«35356  20,3104 

385  CEPANK  43,3366 


2 1480  1481 
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REFERENCES 


SYMBOL 


OEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


003140CT  5764 
06SEC  23,2321 
074000CT  16,3617 


1397 

524 

1433 


1397 
52  3 
1421 


l»2SPOT 

lo3SPOT 

loSSECS 

1*5SP0T 

lo95SECS 

1-CSTH 

1-30KFT 

l/o03 

I/ACCFIX 

l/ACCJCB 

1/ACCONT 

l/ACCRET 

1/ACCS 

1/ACCSET 

1 /ACOAST 

1/ACOSTP 

I /ACOSTT 

1 /ANET 

1/ANET- 

1/ANETP 

1/ANETl 

1/ANET2 

1/ATEMl 

1/ATEM2 

1 /OVO 

l/DVl 

1/DV2 

1/0V3 

1/GYRC 

1/MU 

1 /NETMIN 

l/PIPA 

1/PlPADT 

1/PIPAl 

1/ROOTNU 

1 /RTMU 

l/RTMUE 

1/RTMUM 

1/WLOOP 

I/IO 

1/lOS 


Cl,  2016 
Cl  ,2024 
26, 3714 
01,2027 
33,3102 
E5,  1733 
33,3112 

4733 
06, 3244 

21  ,3652 
20,3235 
20  ,3675 
20,2463 
21,3645 
E6,1572 
E6,1552 

0127 

0160 

20,3716 

E6,1550 

E6,1566 

£6,1567 

0123 

0124 
E7, 1570 
E7,1634 
£7,1636 
E7,1640 
C6,3515 

0016 
20  ,3724 
06,3271 

1074 

06,3300 

0022 
27  ,2030 

22  ,2002 
22,2000 
12  ,3151 
01,2342 

4753 


240 

240 

598 

240 

876 

126 

876 

1498 

194 

1478 

1489 

1495 
1478 
1478 

135 

1497 

1497 

1498 
1 496 
1497 

135 

135 

1497 

1497 

850 

154 

154 

154 

335 

1195 

1496 
328 
103 
326 


1185 

296 

1438 


240 

240 

594 


4 126 

1 869 

3 1490 

1 193 

2 194 

2 1481 
2 1483 
2 858 

1 1403 

1 1455 

2 1490 

5 1491 
7 1492 

1 1*93 

5 1427 

13  135 

6 1*41 
22  1493 

4 1*92 

2 8’6 

5 154 

5 154 

5 154 

3 330 

4 1160 

2 149  3 

3 387 
167 

1 328 

5 1168 


10 


1492 

1399 

1483 

1495 

1478 


1496 

149C 

1495 

14€7 

1497 
1493 


826 

337 

1187 

1496 

961 

96C 

1178 


2 716 

1 71  9 

I 1185 
1 296 


1/lOSEC 
1/20EG 
1/40 
1/6TH 
IBI TOP 
181 

1DEC70 

IDEC71 

ICEGOe 

10PB2 

10PB2e 

1 JACC 

IJACCCON 

IJACCO 

1 JACCR 

IJACCL 

ICVSCRT2 

IREV 

ISEC 

lSEC+1 

ISECx 

ISECXT 

1SEC20 

ISTAR 

1ST0R2N0 

ISTGTWCS 

lSTa2S 

1TC2&TCQ 

IT02SL8 

10,11 

lOSECS 

lOOCS 

lOOMRUPT 

ICOPCTTC 

llDSP  IN 

12D0 

12CMRLPT 
120MS 
13-U  ,1 
13, 14,  15 
13,7,2 
130DEG 
14,  11,9 
14MS 
1406ALM 


4753 
31,3713 
16, 3624 
14,377? 
26,2413 
12,2004 
21  ,2103 
21,2104 
05,3502 
34,2067 
34, 2071 
£6,1530 
20,3216 
E6, 1531 
E6,1532 
E6,1533 
42,3766 
12,2073 
4777 
43,2676 
4777 
£5,1572 
27  ,2675 
15,3032 
10,3164 
16,22  56 
10,3615 
30,3643 
10,3645 
21,2037 
32,3733 
33,3103 
7732 
36  ,2014 
4C, 3440 
23  ,3250 
06  ,2041 
5741 
41  ,3745 
7743 
4615 
35,3654 
06,2171 
17,3136 
31,3674 


1425 

822 

1433 

951 

*88 

1142 

824 

624 

826 

637 

637 

134 

1488 

134 

134 

134 

493 

1168 

1090 

261 

383 

129 

770 

964 

1358 

1414 

1389 
«17 

1390 
823 
830 
850 
157 

38 

449 

1151 

159 

183 

473 

1092 

529 

686 

162 

1438 

821 


I 802 
4 1415 
1 9 50 

1 1132 
1 824 

1 623 

1 825 

2 636 

2 638 

10  134 

1 1487 
6 1463 
6 1463 

12  1481 

2 491 
1 1168 

18  271 

2 278 


640 

643 

1*89 

14E7 

1487 

1493 


1406POO 

15/16 

15A0RERS 

15E ITAOR 

1500DEC 

160CT 

17T020 

170MS 

1800EGS 

180MESS 

1 80SETUP 


31,3672 
12,3771 
01  ,2430 
6255 
24,2667 
30,3570 
43,3670 
4361 
31,3712 
27,312? 
36,3637 


821 

1239 

1083 

1003 

511 

915 

1284 

885 

822 

774 

756 


1 


2 964 

1 1358 

3 1413 

3 375 

2 917 

6 1389 
1 823 

1 844 

2 842 

1 827 

4 405 
1 1149 
1 162 


1 


947 

280 

386 

976 

141  4 
<=54 

1390 


472 

284 

187 

663 

159 

1437 

794 


1411 

528 


2oOSPT 

2o  11  SPOT 

2ollSPT 

2*13SPOT 

2*  15SP0T 

2«17SP0T 

2o  2SPCT 

2*21SP0T 

2»?SP0T 

2e  5SPDT 

2o7SP0T 

2e7SPT 

2/3 

PRLANK 
20ZER0 
2EBANK 
2 INTGUT 
2J 

2J7RE/J2 

2K 

2K+3 

2NCPETRN 
2PH  SCHNG 
2P1+3 
2PI/8 
2PI  SC 
2RNCEND 
2PCUND 
2SFC( 17) 
2SFC( 18  I 
2SEC(28) 
2SEC(9» 
2SFC0ELY 


0*,2126 
01  ,2043 
04,2127 
01,2046 
01,2051 
01,2054 
01,2016 
01,2057 
01,2032 
01  ,2035 
01,2040 
04,2130 

04.3227 
40,2601 
12  ,2006 
43,3402 
40,2766 
33,204? 
13,2016 

4741 

4444 

22,3137 

^327 
27,3215 
26  ,3440 
04,3020 

40.3227 
40  ,3217 
30,3007 
33,3103 
33  ,3105 
30,30)6 
00  ,3735 


1 794 

1 1227 
7 1081  1085 

1 1009 

2 503  511 

1 915 

1 885 

1 802 
1 773 

1 756 


230 

241 

230 

241 

241 

241 

240 

2*1 

240 

241 
?41 
230 

1239 

407 

1131 

1200 

423 

45 

46 
1093 

468 
368 
1 290 
775 
592 
1170 
437 
437 
850 
876 
876 
8 50 
1369 


1 240 

1 240 


1 230 

1 1227 
6 404  462 

1 1281 
1 419 

1 873 

2 1228 

3 1000  1105 
1 *68 
2 368 

496 
2 773 

2 586 

2 1169 


10 


858 


*35  436 

850 

838  850 

880 
636 

273  511 
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SYMBOL 

2SECS 
2 STARS 
2VEXHUST 
2V1ST02S 
20.  5DEGS 
20J 

20MRUPT 

20SEC 

200MS 

201RnA 

21/22REG 

25/32 

25KFT 

250oec 

250MS+1 

26SeCS 

27T030 


OEF 

5000 
15,3030 
E7, 17A2 
10,3636 
25,2603 
33,2041 
7734 
32,2176 
16,3622 
43,2675 
0115 
7721 
33,2204 
24,2304 
4766 
36, 3763 
^3  ,3676 


REFERENCES 


SYMBOL 


OEF 


REFERENCES 


SYMBOL 


DEF 


1090 

964 

767 

1390 

548 

45 

161 

211 

1433 

281 

96 

1433 

850 

503 

281 

758 

1284 


3»2SP0T 

3<,3SP0T 

3,5SEC 

3o5SPCT 

3/32 

3/4 

3/40P 

3/5 

3/64 

3/0DP 

3AXISBIT 

3AX1SFLG 

3CSECS 

3J22R2MU 

3SECCNCS 

3SECS 

300EG 

300EGCHK 

30KCHK 

30ROMSK 

33DEC 

33RDMSK 

340EC 

350EG 

360-CDU 

360-CDUE 

360-C0U0 


01,2016 
Cl  ,2062 
27, 2677 
01,2065 
12,3767 
C4, 3217 
22  ,3655 
12,3755 
12,3763 
22,3653 
4746 
0124 
13,3665 
13,  2024 
26  ,3711 
5002 
24,3355 
24,3337 
33,2472 
06,2761 
4254 
5026 
4242 
15,2763 
40,2625 
40,2634 
40,2623 


241 

241 

770 

241 

1239 

1239 

822 

1239 

1239 

822 

74 

74 


2 325 

1 548 

1 873 

3 159 
1 210 

2 1419 

1 27  9 

3 400 
1 1428 

1 844 

2 502 
1 280 


1369  360CHECK  12,3122 
360LAMB  12,3473 
36CSk^  0206 

360SWBIT  4753 

3990DEC  37,2471 


383 


1 


■^69 


1 1227 

5 953 

2 602 
1 1227 
1 1227 

1 802 

2 477 

7 231 

1218  1 1217 

46 
598 
1090 
579 
57B 
869 
183 
460 
183 
459 
961 
420 
420 
420 


162  AollSPOT 
4„ 13SPCT 
4o  15SPDT 
4ol7SPGT 
474  4o2SPDT 
4o21SP0T 
4o23SPCT 
4o25SPnT 
4.27SPCT 
4e3SPCT 
4*31SPOT 
===  4,33SP0T 
4o  35SPOT 
4o37SP0T 
4<,5SPCT 
4o7SP0T 
4»9SEC 
238  4FMAXNCM 
80^  4SEC( 17  I 
^SEC(28I 
4$ECS 
40CYC 
478  40CYCL 
950  40FPS 
42DEG 
49FPS 


01,2107 
01,2112 
01,2115 
01,2120 
01,2070 
01,2123 
01,2126 
01,2131 
01,2134 
01,2076 
01,2137 
01,2142 
01,2145 
01,2150 
01  ,2101 
01,2104 
36,3151 
31  ,2360 
30,3005 
33,3107 
5003 
4771 
4771 
05, 3503 
15,2762 
34,3364 


242 

2^2 

242 

242 

241 

242 
242 

242 

243 

242 

243 
243 
243 
243 
242 
242 
743 
792 
850 
876 

1090 
1425 
1438 
845 
961 
83  5 


522 

788 

578 


1 163 

1 46*^ 

2 169 


211 

958 


Sa2SPCT 
SsBSPOT 
5o4SP0T 
5,  5DEGS 
5o5SPOT 
5.7SPCT 
5/128 
459  5/8 

SBLANK 
435  5BLANK1 
5810 


01  ,2153 
01,2167 
01,2161 
4562 
01,  2172 
01, 2]  75 
04,3225 
13,  3732 
40,2536 
40,2557 
01,2477 


SDEGREES  14,2601 


243 

243 

243 

527 

243 

244 

1239 

1240 

406 

407 
1085 

931 


1163 
1187 

1183  1185  5MKALARM  07,2453 
5SEC  36,3762 

378  5SECDP  36,3761 

= = =======  = = 5SECS  27  ,2701 

504AZ  0022 

504F  0006 

504LM  £4,1412 

5^*LPL  0016 

240  504RM  04,2002 

504RPR  OOOn 

526ALARM  24,2102 
5400  23,3246 

59o99SEC  42,3542 
240  59MIN  42,3541 


965 
194 
257 
758 
758 
770 
1142 
1142 
11^ 
1142 
45 
1142 
500 
1151 
43  9 
439 


REFERENCES 

2 965 

2 193  194 

2 256  262 

2 729  731 

1 728 

2 769 

3 1140 
5 1138  1139 

3 1134  1230 

4 11^1 
1 1133 
4 1134  1136 
I 571 
I 11A7 


1 7 29 

1 788 

2 768 
1 812 

3 167 

1 1A27 
1 1439 
1 8^5 

1 958 

I 833 


2A0 

240 


1 1228 
6 1205 
6 406 


6*  2SP0T 
6o3SP0T 
6c  5 SPOT 
6o7SPGT 
600 

6FAILTAB 
6KFT/SeC 
839  6SEC 

6SEC(18) 
790  6SEC0N0S 
6SECS 
60DFC 
60MIN 
60MS 
6OSCN0S 
====  eOOMS 
600SEC 
60CSECS 
63/64+1 


01,2016 
01,2200 
01  ,2203 
01,2206 
23  ,32^7 
06,3260 
33,31 lA 
27,2703 
30,3013 
26,3713 
25  ,3530 
05,3063 
35  ,2426 
4776 
2A,2444 
07,3740 
24,3672 
13  ,2627 
7731 


244 
244 
244 
244 
1151 
194 
876 
77C 
850 
598 
568 
22C 
636 
1438 
507 
1323 
659 
1203 
1 092 


7/12 
70DEC 
770ECML 
1229  770010CT 
461  79DISP 


04,322) 
32,3553 
37,3075 
05  ,306? 
15,2437 


1239 

826 

391 

220 

95A 


438 

438 


1 1149 

2 193  194 

1 882 

2 770 

1 B36 

1 594 

1 567 

1 214 

6 628  633 

2 1437 
I 507 
1 1306 

1 659 

2 240  1203 


385 

214 


ei92AUG  07,3550 
931  965  820EGS  4563 


1 1316 
1 527 


health  key;  normally  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19,1969 
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SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  OEF , « OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REFr 
SYMBOL  OEF  h REFERENCES  SYMBOL  CEF  F REFERENCES  SYMBOL  OEF  H REFERENCES 


9/16  0A,3223 
9, 6, A 05,3375 
90MSCALR  17,2053 


1239 

225 

566 


1 1227 
1 216 
1 565 


HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


gap;  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  RY  NASA  2P21112-C91 


17:53  OeCo  19,1969 
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UNREFERENCED  SYMBOL  LISTING, 
SYMBOL  OEF  I-  PAGE 


INCLUCING  DEFINITION,  HEALTH, 
SYMBCL  DEF  H PAGE 


£ PAGE  OF  DEFINITIONo 
SYMBOL  DEF  H PAGE 


SYMBOL  DEF  H PAGE 


♦ AZ  11  ,2369  816 

+EL  11,2376  816 


-AZ  11,2357  816 
-EL  11,2371  816 
-LOKQNFG  23,2040  272 
-MUDTl  32,2033  44 


? 


ABORT 
ABTTGBIT 
ABVAL  00, 
ACCCKFLG 
ACMODBIT 
ACOSABRT  00, 
ADDRESS 
ADRS+1  <3, 
AFCCALC2  31, 
AFDUMP  31, 
AGSBUFFE  E4, 
AGSDISPK  32, 
AGSLIST  C5, 
AGSUPDAT 
ALCGKK  37, 
ALGORTHM  21, 
ALINEX  26, 
ALKCG  37, 

ALMNCADR 
ALPHATRY  21, 
ALRM527  24, 
ALTROUT  21, 
ALTSCALE 
AMEMORY  E4, 
ANT  ENFLG 
AORBSFLG 
AOSV  66, 

APSESBIT 
ARCOMP  21, 
ASCSPOT  23, 
ASECXT  E5, 
ASENT5  30, 
ASENT7  23, 
ASTNCLOK  32, 
ATOPTHIS  13, 


6001  = 743 


5634  = 1376 

4745  = 81 

3201  1C69 

0317  = 08 

4737  = 60 

3723  1080 

6106  790 

3652  1284 

3161  804 

2151  768 

1615  = 118 

2022  209 

2407  = 195 

0001  = 237 

2627  '387 

3142  1465 

2067  341 

2632  387 

5724  1376 

3344  1471 

3001  514 

2160  091 

0272  = 86 

1400  = 114 

0267  = 85 

0125  = 74 

1543  = 134 

4747  = 79 

2167  051 

2505  862 

1573  = 129 

2000  = 34 

2000  = 32 

3206  783 

2733  = 37 


AUTOMANV 

AUTOMODE 

AUTRATEl 

AUTRATE2 

AUTRIFLG 

AUTR2FLG 

AUXFLAG 

AVEMDB I T 

AVEPAGEC 

AVFLRIT 


BADRCOT 
BDTGK 
BHI  Z 

BI  ASTEMF 

BIGAOS 

BIT14+7 

BI  T4H 

B1T8,9 

BLANKCHK 

6LANKRET 

6NKCHK 

BNKCFTN 

BRSPOTl 

BRS  PCT2 

BRSP0T3 

BRSPnT4 

flUSYMASK 

BUTTONS 

B12-1 

85TCB0 


26,2172 

0301 

4753 

4752 
0321 
0320 
0147 

4753 
33,2267 

4747 


31  ,3615 
27,2461 
01,2453 
£6,1710 
20,3345 
26,2256 
30,3015 
17,3140 
10,3133 
on  4 

^3,3743 
43,3342 
31 ,2545 
31,2652 
31  ,3024 
31,3210 
10  ,3530 
C5,2701 
4356 
01,2466 


478 

= 86 
= 80 
= 88 
= 88 
= 88 
= 76 

= 81 
856 
= 69 


619 
766 
1084 
= 136 

1490 
479 
850 
1440 
1358 
= 96 

1295 
1279 
797 
799 
802 
805 
1364 
217 
= 465 

1084 


CAORPARK  0373 
CALCDIR  E5,1460 
CALCTHET  27,2255 
CALC2BIT  4752 
CALC3BIT  4751 
CALSAM  15,  2536 
COELF/2  0016 
COPVE  C6,2012 
CDUANG  E5,1543 
COUOANG  65,1440 
CDUFLAG  E5,1461 
COUINC  10,3661 
CDULIMIT  E5,1443 


lOO 

= 128 
760 
= 70 

= 70 

957 

= 1260 
158 

= 128 
= 128 
= 128 
1390 
= 12  8 


CDUNDX 

CDUREACF 

COUREADI 

COUSCMC 

CDUTIMEF 

CDUTIMEI 

CHAN 

CHK8I TIO 

CHKLIST 

CHKSA8 

CKIMUSE 

CKMDMORE 

CL1/NET+ 

CNGL 

CNTCHK 

CNTRCHK 

COARFINE 

COFMAXGC 

COGAFBIT 

COMPMAT 

CONTDES? 

C0NV3 

C0PYCYC2 

CORFOUNO 

COUNTPL 

CSMCKFLG 

CS359+ 

CULTBIT 

CYCLSHFT 

CIMP 

CIPP 

C2MP 

C2PP 

C2SQM 

C2S0P 


0APDATA3 

DAPLRUPT 

DBSELFLG 

0BSL2FLG 

OCDU 

OEC-) 2 

DEC-6 

DEC27 

DEC29 


E5,1536 

65.1441 

65.1442 
G054 

E5  ,1436 
E5 , 1434 
E5,  1443 
17,2237 
05,3537 
14,3253 
5244 
A3, 3765 
20,3466 
22,2400 
07,2235 
43,3513 
lA, 3352 
22,21 76 
4750 
13,2240 
26  ,3576 
A2,2e23 
33,2632 
01,2637 
E5, 1542 
0305 
35,2422 
47A5 
43,3522 
66,1722 
E6, 1720 
66,1716 
E6, 1714 
66,1712 
E6,1710 


01  ,2303 
66,1753 
0316 
0315 
E6, 1634 
12,2016 
12,2015 
A764 
4765 


= 128 
= 128 
= 120 
= 92 

= 128 
= 128 
= 128 
1436 
986 

941 
1115 

= 1380 
149  2 
35C 
253 
1281 

942 
355 

= 80 
712 
595 
491 
872 
1101 
= 128 
= 87 

63  6 
= 71 

1282 
= 136 

= 136 

= 136 

= 1 36 

= 136 

= 136 


297 
= 138 

= 88 
= P8 
= 137 

1095 
1095 
= 1090 
= 109C 


OECSl  04, 

0EGINSF2  40, 
06660  15, 

DELRSPL  22, 
OELTEE  E7, 
DELVMID  E7, 
OFLVTEST  27, 
DERCOF  + 1 
OERCOF-1 
DERCOF-2 
DFRCOF-3 
OEPCOF-4 
DERCOF-5 
OFRCCF-6 
DEPCOF-7 
OERCOF-8 
DEX2 

DFPNT  40, 
DGOOD?  32, 
DIDFLAG 
DIMOBIT 
OMENFB! T 
DNLRALT 
ONI  STADR 
DCALAPM 
DOAL I6N  15, 
OCDNACR  05, 
OCPNCHAN  C5, 
D0PSAMP2  25, 
OQSHIFT  21  , 
DQTIXBP  Cl, 
DPAGPEE 
DPMOPF  10, 
PPSBUPN  E6, 
OPO 
DPI 

DSKYFLAG 
PSPOeCNR  40, 
DSP5068 
DTOECAY  36, 
DUMPCNTC  27, 
DUMPRPRA  27, 
DUMPTFFl  27, 
0UKPTFF2  27, 
DVCNTSET  33, 


3232  1324 

3055  435 

2471  955 

3541  = 37 

1611  = 143 

1575  = 143 

2252  760 

0153  = 98 

0151  = 90 

C150  = 98 

ri47  = 98 

0146  = 98 

0145  = 98 

0144  = 98 

0143  = 98 

0142  = 98 

0144  = 98 

3420  448 

2743  609 

0020  = 67 

4753  = 71 

4743  = 74 

1336  = 107 

0333  = 99 

5155  = 1376 

3104  965 

3531  986 

3577  966 

2027  494 

3536  1474 

2425  1082 

7260  1030 

3717  1393 

1747  = 132 

0036  = 935 

004O  = Q35 

0113  = 73 

3316  446 

2345  273 

2004  38 

3427  1264 

3465  1266 

3550  1270 

3645  1271 

2323  856 


HEALTH  key:  NCRHALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


UN  UNDEFINED 
BC  BADLY  DEFINED 


CO 


DEFINED  BY  EOLALS  J CFFINEO  BY  JOKER  OR  ERASE  ANYWHERF 

DEFINITION  ASSOCIATED  WITH  CONFLICT  XX  MSCELLANECUS 


MD  multiply 
TROUBLE 


DEFINED 


gap:  assemble  revision  131  OF  AGC  PRCGPAP  LUMNARY  BY  NASA  2021112-091 


17:53  DEC  10,1969 


PAGE  1 558 


UNREFERENCfcO  SYPBCL  LISTING, 
SYMBOL  DEF  H PAGE 


INCLUCING 

SYMBCL 


CEFINITION,  HEALTH,  £PAGE  OF 
DEF  H PAGE  SYMBOL 


oefimticn- 

DEF  H PAGE 


SYMBOL  OEF  H PAGE 


OVMON  33,231A 
DVMONCCN  36,2554 
0XCkIT4l  0125 
D21  66,1704 
D60R9BIT  A752 


6/6KCALL  04,2562 
E/CALL  CA,2601 
E/JDBkAK  04,2615 
E /SHI TCH  CA,2577 
EARTCNTft  1A,2514 
EIGHT  4750 
EN0-F3  E3,1777 
6N0-E4  E5,1400 
EN0-E5  £5,1774 
EN0-E6  E6,1774 
END-E7  E7,1777 
END-67.0  E7,1745 
END-67ol  E7,17A7 
EN0-E7.2  4000 
eN0-£7.3  67,1630 
EN0-E7o4  E7,1777 
6ND-E7o5  E7,1655 
END-IN/M  E7, 1672 
END-UE  1377 
ENDBALL  26,2352 
ENCCHKG  27,2366 
EN00APT4  5270 
ENDHMSS  A2,3606 
ENDLLJOB  31,3431 
ENDLRH  34,3617 
ENDMANUV  26,2200 
6NDMAHKS  07,2317 
ENONVBSY  04,2641 
ENDPASTE  4143 
ENOPINBF  4512 
6NDPINS1  40,3737 
eN0PINS2  41,3750 
ENDRMCDF  4616 
ENOROLL  22,2226 
ENORQDAT  41,2320 
ENOSPCCT  40,3451 
ENDSTEER  26,  3652 
EN0S40.9  27,2725 
6NDVPUSH  6543 


= 98 

= 136 

= 71 


372 

373 

374 
372 
930 

= 1093 
= 113 

= 120 
= 129 

= 139 

= 154 

= 154 

= 154 

= 154 

= 154 

= 154 

= 154 

= 144 

= 108 
482 
381 
= 191 

= 440 

= 809 

886 
478 
254 
468 
443 
= 469 

= 475 

= 473 

= 529 

371 
413 
449 
756 
771 
1014 


EN02CeC 

ENGCNFLG 

6NT6RDAT 

ENTER  OR 

ENTPASHI 

ERAOFBI T 

EkM  INUS 

eRRTEST 

6TP1BIT 

EXCVFLCVi 

EXVERT 

EO 

E02 


40,3341 
0123 
C7  ,2073 
17,2445 
41,2012 
4737 
40,3713 
17,3361 
4745 
31  ,3407 
31,3404 
E7, 1676 
E4,1636 
E7,1700 
E7, 1704 


446 

74 

247 

1439 

408 

67 


808 

808 

147 

117 


FALTOF 
FA2A1  23 
FAZBl  23 
FOAIY  64, 
FDAIZ  E4 
FFTAGll 
FFTAG12 
FFTAG12 
FIGTIME  25 
FINALBIT 
FINEK2  42 
FlftEP  16. 
FIRECR  17 
FIRSTTME  27 
FIXCLPAS  40: 
FLAGORGy  32 
FIAPBIT 
FLASHH?  21 
FLPCBI T 
FLPieiT 
FLVR8IT 
FREERET 
FSPASeiT 
FUFLNEED  E7 
FUNCT3  21 


4370  465 

,2777  1148 

,3075  1149 

.1745  119 

,1746  119 

400C  = 28 

4000  = 28 

4000  = 28 

,2756  670 

4746  = 69 

,241C  275 

,3041  1423 

,2257  1436 

,3171  774 

,240  2 404 

,3021  780 

4744  = 81 

,2022  823 

4740  = 80 

4741  = 80 

4736  = 80 

0144  = 97 

4742  = 66 

,1666  = 152 

,2251  1467 


GOUMPl  31,3421  809 
GENMARK  10,3022  1356 
GEOIMUTT  37,2004  375 


GEORGEK  37, 
GE0STKT4  37, 
GETACSUV  20 , 
GETROOT  21, 
GET22/32  21, 
GL0KF61T 
GMBLBITB  21, 
GN/CCOCE 
GOAGIN  10, 
GCICLOSE  21, 
GOOSPRl  10, 
G0DSP2  10, 
GOGOMARK  10, 
G0MARK2  10, 
G0MARK2R  10, 
GOMARS  10, 
GrPERFRS  10, 
GOPERFS  10, 
GOPERFIR  10, 
GUPERF2  10, 
GOSEBV  33, 
GOXDSP  in, 
GOXDSPR  10, 
GPP40FF  32, 
GTSGO+ON  21, 
GUESS  37, 

GUESSeiT 
GUESSl  37, 
GUILDEN  31, 
GYTOBETQ  E5 , 
G21  E6, 


HIGATCHK  33, 
HITEST  33, 
HLIGHT  25, 


3025  390 
3246  1489 
3302  1467 
2551  896 
4736  = 70 
3634  1476 
5001  lOQO 
3051  = 1364 
3624  1476 
2453  1349 
2445  1349 
2406  134P 
2337  1347 
2356  1347 
2331  1347 
2706  1354 
2626  1352 
2704  1^54 
2631  1352 
2274  856 
2330  = 1364 
2350  = 1364 
3664  828 
3112  1464 
2020  375 
4752  = 68 
2255  379 
2434  795 
1462  = 128 
1706  = 136 


2522  869 
2*16  869 
3620  617 


1C0RK2  43,2223 
lOAOOTEM  0142 
I0AD3TEM  ri52 
lOLEPETl  10,3302 
IG  E6,1724 
IGNALG  32,3033 
IGNALGRT  32  ,3204 
IMMEORET  10,3370 
IMURACK  37,2005 


269 

97 

C8 

1360 

136 

780 

783 

1362 

375 


IMUF IN20 

I MUG  ODD 

IMUZFRO? 

INFIN61T 

INTFLAG 

INT  DTHIS 

INTVeC 

INTYPPIT 

INTZ 

IRIGCOMP 

ISSUP 

ISSWCFF 

I SWCALL 

ITRPNTl 

I TPPNT2 

ITPO 

ITPl 

I TRIO 

ITPll 

1 TP12 

ITP  14 

ITR15 

ITF7 


07,3201 

07,3627 
07,2757 
4745 
0227 
13,2301 
E5  ,1^62 
4750 
E5 , 1474 
06,3336 
06,2321 
06,2716 
4700 
32,3364 
32,3520 
6373 
6362 
6145 
6205 
6137 
6242 
6126 
6264 
4735 


1323 

1319 

1303 


71 

129 

330 

167 

181 

994 

812 

814 

1008 

1008 

999 

1000 

999 

1002 

999 

1003 

77 


JAMPROC  4243  459 
JFTSON  17,3435  1455 
JSWCHBIT  4.736  = 65 


KAOS  16,2623  1419 

KEYCOM  04,3262  1330 

KLEENEX  10,2333  1347 

K1  F6,1702  = 136 

K2  E6,1710  = 136 

K3  E6,1716  = 136 

K3S1  22,2370  359 

K4  22,2372  359 

K4SQ  22,2374,  359 


LASTLADW 

LASTTIME 

LATAZCHK 

L AT  FWOV 

LEMONM 

LOSl 


E7,J745  = 153 

01,3502  1126 

37,2021  375 

21,256]  896 

0056  = 93 

e5,1444,  = 128 


HEALTH  KEY: 


NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS; 


= define:  by  equals  J defined  by  joker  or  erase  anywhere  mo  MULTIPLY  DEFINED 

CO  DEFINITION  ASSOCIATED  WITH  CONFLICT  XX  MISCELLANEOUS  TROUBLE 


gap:  assemble  REVISION  131  Of  AGC  FPCGRAM  LUMINARY  BY 


>SA  2O2ni2-0';i 


17:53  OECo  19»1969 


PAGE  1559 


UNREFERENCED  SYMBOL  LISTING, 
SYMBOL  DEF  f PAGE 


INCLUDING  DEFINITION,  HEALTH,  & PAGE  CF  DEFIMTICNe 


LOS2 

LOTEMIN 

LOUNI TX 

LOUNITY 

LOUNITZ 

LPOS2BIT 

LRALTFLG 

LRPOSALM 

LRPOSFLG 

LRS2Ao  11 

LRUPT 

LRVELBIT 

LRVELFLG 

LSTPTR 

LUNAB IT 


E5,  IA52 
0124 
12,2004 
12, 2002 
12,2000 
4746 
0276 
33  ,2543 
0275 
26,3471 
0011 
4744 
0273 
0144 
4740 


PXMYMZ  26  ,2763 


MANUF8 IT 

MANUFLA6 

MANUSTAL 

MARKFORM 

MASKHEG 

MASSMDN 

MDOTAPS 

HETH002 

MGLVFB IT 

MlDAVeiT 

MIOFLBIT 

M IDIFBIT 

MKOVFLAG 

MKVAC 

MKVB52 

HKVB53 

M00E71 

MONIT 1 

M00N6I T 

MRK  lOe  IT 

MRK  IDFLG 

MRUPTBIT 

MRUPTPLG 

MUIPI 

MULTEXIT 

MUM 

MUNRVG 

MWAITBIT 

MWAITFLG 


4736 
0152 

22,3067 
10, 2340 
E5 ,1534 
32,2233 
36,2010 
22  ,2216 
4752 
4752 

4737 
4751 
0110 

C7,2014 
07,2617 
07,2616 
05, 3500 
41,3257 

4740 
4735 
0074 
4747 
0106 
0032 
5620 

13,2004 

33,3025 

4741 
0100 


77 

77 

368 

1347 

128- 

855 

38 

356 


245 

261 

261 

826 

441 


1240 

1374 


NeD3 

NBPQSPL 

NB1NB2 

NDCMFTST 

NEEDLE  11 

NEGTORKU 

NEGTGRKV 

NEGTOTKP 

NEGIOO 

NEG5 

NET  ZERO 

NEWI BIT 

NJETSBIT 

NOoVJ  ETS 

NCBI TS 

NOMDNLST 

NOPESET 

NORFINAL 

NORMSeiT 

NORPSCL 

NORMTE  ST 

NRMICeiT 

NRMIOFLG 

NRMNVBIT 

NRUPTP IT 

NRUPTF  LG 

NSTEER 

NTARGB  IT 

NVSBWAI T 

NVSUBCCM 

NhA I TB  I T 

NWAITFLG 


06 ,3614 
37,2012 
23, 2515 
41,2440 
20,235C 
E6,1516 
E6,1520 
E6,1514 
5172 
41,2115 
6124 
4737 
4735 
E6, 1523 
E5,1442 
05,2172 
07,3421 
13,3277 
4742 
16,3620 
00,3512 
47  37 
0076 
4744 

4750 
C107 

36,3676 

4751 
4445 
4170 
4742 
0101 


OCTOOOIC 

0CTO210C 

OCTIOOOO 

OCTll 

0CT2O 

0CT2C3 

OCT21103 

0CT217 

0CT300CC 

QCT30OO2 


37 

417 

1410 

134 

134 

133 
1110 

410 

999 

79 

67 

134 
128 
195 

1313 

1211 

77 

1433 

1075 


468 

456 


72 


4750 
06, 3137 
4737 
4320 
4747 
26,2257 
5700 
5704 
4355 
6474 


234 

189 

220 

1089 

743 

479 

1375 

1375 

220 

1093 


SYMBOL 

DCT34  07 

0CT37774 
0CT4020C 
CCT4{ 420  10 
0CT67777  IT 
0CT7777  05: 

OGF  E6 

oldesflg 

OMEGCALC  26: 
GPTAXIS  07 
OPT  inN3 
CPTNPFG  65 
ORBWFB IT 
ORDERBIT 
ORIG  E4 

ORIGIN 
OTHSHIP 
OURRCFLG 
OUT  13, 

OUTGOAVE  22 
OUTLINK 


DEF 


22 


2623 

7733 

7740 

3537 

3536 

3055 

1716 

0016 

3610 

2142 

1145 

1463 

4746 

4746 

1515 

1773 

3333 

0306 

2327 

3707 

0057 


P-RATE  16 
PARAM3C  35. 
PDA 

PERFCHEK  10, 
PHI 

PHSBBI  £3 
PHSBB2  E3 
PHSBB3  E3. 
PHSBB4  E3 
PHSPB5  E3, 
PHSBB6  E3, 
PHSNAME4  E3 
PHSNAME6  E3, 
PHSPRDT5 
PHSPP-DT6 
PIN8RBIT 
PINTEST  43 
PIPASCFY  £3, 
PIPASCFZ  E3, 
P1PUS6  07 
PLUSX  27, 
PMINM  3*,. 
P0N2  37 


261 

1092 

109? 

1365 

1365 

220 

136 

66 

5«6 

249 

104 

12P 


116 

127 

716 


93 


2510 

2021 

0026 

3136 

0024 

1437 

1441 

1443 
1445 
1447 
1451 

1444 
1450 
1063 
1065 
4746 
2002 
1455 
1457 
3264 
2423 
2103 
224C 


1417 

619 

1?5 

1358 

524 

no 
no 
110 
no 
110 
110 
no 
1 10 
102 
102 
73 
470 

nc 
no 
13)  0 
764 
637 
37P 


SYMBOL 

POOH 

POOHBIT 

PCSGMBL 

Pns  ITF 

PCSTCRKV 

POSUPOAT 

POSl /4 

PnWFLITl 

PREBJUMP 

PREC I PIT 

PFIODFLG 

PRIOl 

pRion 

PPI02 
PROCEEPE 
PR  DC  KF-Yl 
PRODUCT 
PRPJ 

PRONVBI T 

PSK  IPAOR 

PSTHIGAT 

PULSEM 

PUTXY 

PUTXYZ 

P12A 

P12LM6 

P20LeMB7 

P20L  EMF 

P20LMWT1 

P20S2 

P21 

P30N33 

P4) FJET 

P41 MANU 

P41N0RM 

P52E 

P52V 

P57A 

P63 IGNl 

P63  ZOOM 

P65VePT 

P70  INIT 

P70N0W? 

P7071BIT 

P71 


DEF 

04,2)67 

4735 

37,2064 

15,3726 

E6,1517 

33,3125 

12,3765 

23,2000 

5316 

4744 
0075 
4742 
5022 
474] 

06, 2075 
40,3514 
21,3524 
OC-22 

4745 
16,3627 

02*^1 
14,3222 
41,2737 
41  ,2636 

23.2000 
30,2122 

24.2130 
24, 2231 
24,2241 

25.2000 
E6, 1702 
35,2004 
36,3307 
36,3221 
36,3316 
15,2102 

15.2130 
15,3336 
34,2520 
35,3672 
31, 3505 
32,3555 
21,2056 

4737 
21  ,2072 


231 
= 70 

376 
980 
= 134 

877 
= 1239 
= 32 

1286 
71 

= 72 

= 1093 
1091 
= 1093 
160 
452 
1474 
= 152 

= 73 

1433 


631 

500 

502 

502 

32 

136 

619 

750 
749 

751 
923 
923 
969 
733 
735 
810 
626 
824 

80 

824 
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UNREFERENCED  SYMBOL  LiSTINGt 
SYMBOL  DEF  h PAGE 


INCLUDING  DEFINITION,  HEALTH,  t PAGE  OF  DEFINITION,, 
SYMBOL  DEF  H PAGE  SYMBOL  DEF  H PAGE 


SYMBOL  DEF  H PAGE 


P71N0H?  21,20A3  823 

QUACGUID  31,3066  803 

QUITBIT  A747  = 81 


RCDUFAIL 
RCDUOFLG 
RDIFF  E6, 
RDM  12, 

ROSP  £5, 

RECAL3  AO, 
REOOMANN  26, 
KEGODSPR  10, 
REMOOFLG 
REPOSMON 
RbQEXLCC  Al, 
RERRCALC  17, 
RGEXIT  E7, 
RHCSCFLG 
RLMUN  1 T 
RMM  12, 

RNGEOATA 
ROO  C^, 

ROOT  PS +1 
ROTFLBIT 
RPADl  23, 
RPyFLBIT 
RRCHECK 
RRDATAFL 
RRLOSVEC 
RRNB8I7 
KRRSFLAG 
RUP0AT6D  33, 
RUPTSTOR 
RVSWeiT 
RWAITK  A3, 
R21LEM1  2A, 
R21LEM12  2A, 
R21LEM3  ?A, 
R22LeM12  2A, 
R2ALER1  2A, 
R29?  33, 

R300K  27, 

R 5 lo  2 1 A , 

R51F  lA, 


rt27A  = 86 

0266  = 85 

1A52  = 133 

37A2  12A0 

1A3A  = 128 

36A0  A62 

2125  A77 

2A71  1350 

0265  = 85 

0270  = 85 

2207  All 

2675  1AA3 

1665  = lAA 

0313  = 88 

OOIA  = 59B 

2017  = 37 

0260  = BA 

21A1  230 

0127  = 98 

A7A6  = 8) 

2337  = 1275 

A735  = 78 

A576  528 

0277  = 86 

1100  = 577 

A7A6  = 66 

0300  = 66 

32A7  879 

0063  = 95 

A7A3  = 77 

21A3  266 

273A  513 

3011  51A 

27A3  513 

2A57  508 

321A  519 

2552  871 

3767  1275 

30A7  936 

303A  936 


R55ol 
R60INI 7 
R61C+LC3 
R61 C+Ll 
R61LEM1 
R6UBM2 


1A,3223 

32,3200 

23,2156 

23,2307 

23,2162 

23,2220 


9A0 

783 

522 

52A 

522 

523 


S + 2 
S+^ 

S+A 

S*5 

S+6 

S-2 

S-3 

S-A 

SAVE  E5, 

SAVEFLAG 

SBITl 

SBITIO 

SHI T13 

SBI TIA 

S HI  T 2 

Sbl  T3 

S6IT5 

SBIT6 

SBI  T6 

SCLNORM  17, 
SD  22, 

SECAD  22, 
SECO  1 

SEC15  36, 
S6C15DP  36, 
SEC30CP  36, 
SEC  A 5 36, 

SECA5DP  36, 
SELFSUPR  AO , 
SENSEGET  17, 
SETCTR  21, 
SETINFL  05, 
SETMARK  10, 
SETPRIC  10, 
SETXFLAG  07, 
SCTXTACT  A3, 
SFCCNSTl  E5, 
SFR6T  Al, 


A752  = 1277 

6250  = 1277 

A751  = 1277 

A756  = 1277 

62A5  = 1277 

7751  = 1278 

7750  = 1278 

6115  = 1278 

1A6A  = 120 

1071  = 136A 

A753  = 1277 

A7A2  = 1277 
A737  = 1277 

A736  = 1277 

A752  = 1277 

A751  = 1277 

A7A7  = 1277 
A7A6  = 1277 
47^4  = 1277 

31A1  lAAE 

2366  359 

2027  353 

A777  = 758 

375A  758 

3753  758 

3755  758 

3760  758 

3757  758 

2000  = 36 

21A6  1A3A 

3672  1500 

2727  217 

2527  1351 

2511  1350 

2666  = BAA 

2105  26A 

1A67  = 128 

3107  A32 


SFRETl  Al 
SHAFT6C  26, 
SIGNFET 
SIM2CA0R  05, 
SINB  £5 

SLOPES  IT 
SNAPAGN  05, 
SNAPEND  05 
SNGLCO  22. 
SOLNSeiT 
SOMEAOS  20 
S0M6ERRR  37 
SnPT10N2  A3 
S0PTI0N3  A3 
SOPTICNA  A3 
S0PTI0N5  43 
S0PTI0N6  A3 
SDPTI0N7  A3, 
SnPTONlC  A3 
SOUPLY  37, 
SPECSTS  37 
SPSCOOe 
STARM 

STARTOAP  16 
STARTMNV  26 
STARTP66  31 
STAPTSI  M 05 
STARTSTO 
STARTSV.  05 
STATFXIT  EA 
STCL0K3  36 
STDESI61  25 
STERN  31 
STUPHAPO  22, 
STORHPER  22 
STRAT6Y  lA 
SUPERIOO 
S32BIT) 
S32BIT2 
S32B1 T3A 
S32BIT3B 
S3A35ft25  35 
SAO0I33  27 
SA0el37  27 
S50  lA 


.3071 
3015 
0125  = 

2A5A 
,16A6  = 

A751  = 

36A5 
1366^^ 
2376 
A751  = 

,3A50 
30A0 
,33  50 
, 3351 
,3352 
,3353 
,335^ 
3355 
,3356 
3071 
,2572 
A7A3  = 
OOAO  == 
,20A6 
-2176 
.2450 
,2452 
6A37 
,2451 
,1516  = 

, 2671 
,2627 
,2A35 
3600 
,3612 
. 2706 
A7A5  = 
A735  = 

A736  = 

A737  = 

A7A0  = 
,3237 
,26A7 
,26A1 


43  2 
586 
96 
213 

124 
68 

987 

988 
350 

■"5 

149? 

1279 
1279 
1 279 
1279 
1279 
1279 
1279 
391 
366 
1301 

125 
1403 

478 
795 
213 
101  1 
?13 
116 
738 
550 
795 

722 

723 
93A 

1090 

75 

75 

75 

75 

675 

770 

770 

930 


S52o2el  14,3640  948 


TBASF3 

TCALAPM2  A3, 
TCCSM  83, 
TCLEM  E3, 
TDECAYFX 
TEMP  E5, 

TEMPAOO  E5, 
TENDAPPR  E7, 
TFSTCrS  32, 
TESTVP  41, 
TETDTHEP  E3, 
TFFCONIC  27, 
TFFS1^BIT 
TFFTICK  22, 
TFI  F7, 

TGOCALC  27, 
THDUMP  31, 
TICKTPER  22, 
TIMFP  E5, 
TMANUCHK  22, 
TMFXITL  05, 
TMRESUME  05, 
TRACEl  AO, 
TRACEIS  40, 
TRUNBC  26, 
TSNEXTS  17, 
TSSR  on, 
TSTPOINT  23 , 
TTFSCALE 
TURNON  17, 
TURNONF  L 
T6J0R  17, 


1056  102 
3311  1270 
1622  112 
1674  112 
4770  1090 
1441  = 120 
l<i40  = 128 

1624  140 
2673  607 
2041  409 
1570  = 112 
3361  1263 
4753  = 78 
345?  718 
1453  = 141 
2464  766 
2326  791 
3410  717 
1470  = 128 
3064  368 
3716  980 
3720  009 
3272  445 
3303  445 
3111  587 
2226  1435 
2025  1C41 
3757  1256 

4740  = 821 

3154  1448 
0302  = 06 
2061  1396 


UAXIS  20,3322  1490 

UDB2  0136  = 1497 

UDD3  0140  = 1497 

UNFVX/2  E6,1666  = 137 

UNKNOWN  0007  = 195 

UNLP/2  0024  = 152 

UNlRB/2  0024  = 152 

UPDNLIST  05,2407  - 195 

UPOTMFNO  42,2032  277 

UPEND73  04,3514  1383 
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SYMBOL 

UPLOCKFL 

UPOK 

UPPART3 

UPRPTl 

UPTHROT 

UPWAKE 

USEGTS 

USEORFLG 


OEF 

016^ 
C4,3327 
CA, 35A0 
C%,3310 
22  ,3647 
04,3532 
33  ,2336 
0304 


VACZ 

VACl 

VAC2 

VAC3 

VAC4 

VECTABND 

VEHUPBIT 

VELCHK 

VELOATA 

V ELUPDAT 
VERl  FLAG 
VERROR 
VERTORFT 
VFLAGBIT 
VINTFBIT 
VLAUNS 
VPO 
VPOVL 
VRECTLEM 

V STORE 
VUPCATED 
VV/SC 
VVXSC 
VXSCAL 


70 

1331 

1384 

1331 

828 

1304 

857 

87 


E4,1543 
0401 
0455 
0531 
0605 
E4  ,1574 
4744 
25,3232 
0255 
23, 3255 
0165 
£6,1751 
37  ,2231 
4742 
4751 
E5,1462 
0000 
6576 
£3,1634 
6446 
23,3453 
7632 
7407 
33,2016 


115 

100 

100 

ino 

100 

115 


70 

71 
129 
935 

1015 

112 

1011 

682 

1039 

1034 


VYSCAL 

VO 

V00N25 

V0nN34 

V01N14 

V06N07 

V06N71 

VI 

V2 

V3 

V37XEQC 
V50  NOOA 
V67FLB  IT 
V74 

V82EMe  IT 


6010 

4242 

32.2170 
10,3500 
07,2624 

0014 

0022 

0030 

C4,2363 

22.2171 
4744 

43,3066 

^752 


W®IND1 

UCALC 

V.HATOUT 

WPLAT  I 

V.PLATC 

WRDRET 


XOELVBIT 
XDI  FF 
XKEPCSM 
XKEPLE  M 
XSHACP 
XIINPUT 


41 

= 935 

= 211 
= 211 
211 
1364 
261 
= 935 

= 935 

= 935 

234 
211 


1257 
22  ,2746 
31  ,2330 
E5, 156C 
F5,1464 
C115 


12,2163 
E3 ,1624 
£3,1676 
27,2477 
E7,1611 


41 


ZEROCP  12,2006 
ZEROC  23,2523 
ZEROTJ  17,2620 


137 

366 

791 

129 

129 


69 

1170 

112 

112 

383 

144 


1095 

1151 

1441 


SYMBOL 

Z0NE2 
Z0NE4 
Z0NE4,5 
ZSC  I 


DEF 

17,3606 

17,2427 

17,3416 

E5,1714 


SYMBOL 


DEF 


lo5SPQT  Oil 
lo95SECS  33 
1/RTMU  27, 
1/lOS 
I/IOSEC 
IBITDP  26, 
ISECX 
lOOMPlJPT 
120  MS 

17T020  43: 


2oOSPT  04: 
2e  IISPOT  Cl. 
2cllSPT  04, 
2o  13SPCT  01, 
2el55POT  01, 
2al7SPCT  01, 
2»21SP0T  01 
2o5SPOT  01, 
2o7SP0T  01: 
2DZER0  12 
2RN0END  40, 
2VEXHUST  E7 
26SECS  ?6, 
27T030  43, 


1458 

1455 

1454 

125 


OEBANK  43,3366  12B0 


2027 
3102 
2C3C 
4753 
4753 
2413 
47  77 


1438 
142  5 
488 
383 
157 
183 
1284 


2126 
2043 
2127 
20  46 
2051 
2054 
2057 
2035 
2040 
2006 
3227 
1742 
2763 
3676 


230 

241 
230 
241 
241 
241 
241 
24  1 
241 
11^1 
437 
767 
758 
1284 


?„5SPCT  01,2065 
3J22R2MU  13,2024 
300EGCHK  24,3337 
30KCHK  33,2472 
36nSWeiT  4753 


4ol  1 SPOT  01 
4ol3SP0T  01 
4oi5SPCT  01 
4ol7SP0T  n 
4e2lSP0T  01 
4«23SPCT  01 
4e25SP0T  Cl 
4o27SP0T  01 
4o21 SPOT  01 
4o33SP0T  01 
4<.?5SPCT  01 
4o?7SP0T  Cl 
4o5SPnT  01 
4«7SPCT  01 


,2107 

,2112 

,2115 

,2120 

,2123 

,2126 

,2131 

,2134 

,2137 

,2142 

,2145 

,2150 

,2101 

,2104 


So^SPOT 
5o5SP0T 
5o7SP0T 
5BLANK1 
5BJ  0 


01,2161 
01  ,2172 
01,2175 
40 , 2557 
01,2477 


6o5SPCT  01  ,2203 
6o7SP0T  01,2206 
63/6441  7731 


578 

869 


242 

242 

242 

242 

242 

242 

242 

243 
243 
243 
243 
243 
242 
242 


243 

243 

244 
407 

1085 


244 

244 

1092 
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OOOC 
QOOO 
C'OOO 
coco 
0000 
0000 

0000  11A2 
UOOO  1240 
OOCl  65 

0001  92 
0001 
0001 

0002 
0002 
0002 
0002 
0003  65 

0003  92 

0003  93 

0003  237 

0004  65 
0004 
0004 

0004 

0005  66 

0005  92 

0005  93 

3005  237 


0006 

0006 

0006 

0006 

0006 

0006 


0007 

0007 

0CC7 

0007 

0010 

COlO 

UOlO 


65  NEED2FLG 
92  A 

137  UNX/2 
237  COSTALIN 
493  UR 
935  VPO 

504RPR 
RATT 
JSV>  I TCH 
L 

LCHAN 
AGSUPDAT 
MIOFLAG 
Q 

QCHAN 
RENCEZVU 
MCCKFLAG 
FBANK 

hiscalar 
0R6MANUV 
P21FLAG 
FBANK 

loscalar 
DESASCNT 
FSPASFLG 
Z 

ChAN5 
LLNRSALN 
P25FLAG 
BBANK 
CHAN6 
UNY/2 
URP 
VO 


6B 

I MUSE 

SUPERBNK 

ERASZERO 

SPARE 

UNKNOWN 

RNDVZFLG 

ARUPT 

OUTO 


93 

237 


92 

93 
237 


92 


237 


0010  1195 
0010  1196 

0010  1197 

0011  66 

0011  92 
OCll  93 

0012  66 

0012  92 

0012  93 

0012  1195 


0013 

0013 

0014 
0014 
0014 
0014 
0014 
0014 


127 
598 
598 
935 
0014  1195 
0014  1196 
0014  1197 
0014  1240 

0014  1260 

0015  66 

0015  92 

0015  93 

0016  66 

0016  92 

0016  93 

0016  931 

0016  934 


.0016  1197 
0016  1240 
0016  1240 
0016  126C 


GAMRP 

CVECTR 

DVeCTR 

S INNOOI 

ALPHA 

CCGAM IN 

MIN 

RRN6SW 

LPUPT 

OSALMOUT 

LCKCNSW 

CRUPT 

CHAN12 

XMAX 

7FF0EL0 

NEEOLFLG 

SAMFT IME 

CHAM3 

FREEFLAG 

CHAM4 

UNZ/2 

RLMUNIT 

UXVECTPR 

VI 

XMIN 

OCQGA 

CEL  INDEP 

TAT 

RMAGl 

RIOFLAG 

ZRUPT 

MNKEYIN 

CLDESFLG 

BANKRUPT 

NAVKEY  IN 

CEARTH 

CSS 

T IMSUBM 

504LPL 

1/MU 

CCGAMAX 

MAX 

RATTl 

LPPV 

CDELF/2 


0017 

0017 

0020 

0020 

0020 

0020 

0020 


0020  1195 

0020  126C 
0020  1266 

0021  67 

0021  92 

0022  67 

0022  92 

0022  125 

0022  152 

0022  598 

0022  931 

0022  935 


0022  1142 
0022  1195 


0023 

0024 
0024 
0024 
0024 
0024 
0024 


125 
152 
152 
524 
0024  1142 
0024  1142 
0024  1195 
0024  1240 
0024  1240 

0024  1260 

0025  92 

0026  67 

0026  92 

0026 
0026 
0026 


125 

125 

981 


TFFOl 

RPER 

NJETSFLG 

BRUPT 

DIDFLAG 

CYP 

COSTH 

CSUN 

STMP 

ROOTMU 

NRTERM 

RAPO 

ERADFLA6 

SR 

ROCFLAG 
CYL 
S INTH 
PROJ 

UYVECTPR 

cmoon 

V2 

504AZ 
1 /ROCTMU 
COSPHI  /2 
R TERM 

eocp 

R61FLAG 

T IME2 

THETA 

UNLR/2 

UNLRe/2 

PHI 

AVECTR 
MMATR  IX 

UZ 

VATTl 

TFFVSO 

TIHEl 

VEHUPFLG 

TIME3 

PDA 

ZPR IME 

GTMP 

ITERCTP 


0027 

0030 

0030 

CC30 

0030 

0030 


935 

961 


Q3 

663 


OrSC  1195 
0030  1197 

0030  1260 

0031  68 

0031  92 

0031  93 

0032  92 
003  2 
CC32 
0032  1142 
0032  1195 
0032  1240 
0032  1240 

0032  1260 

0033  68 

0033  92 

0033  93 

0034  68 

0C34  92 

OC34  03 
0034  ll<55 

0034  1260 

0035  92 

0035  93 


0036 

0036 


0036  1260 

0037  68 

0C37  92 

0040  68 

0040  92 

0040 
0040 


125 
935 
0040  1142 


TFF  1/ALF 

UPOATFLG 

T I ME4 

NOUPFLAG 

T IME5 

CHAN30 

V3 

TIMEP 

XI 

cnsF 

TFFRTALF 

TRACKFLG 

T IME6 

CHAN31 

COUX 

ChAN32 

OELFLO 

BVECTR 

S ( XI  ) 

MU(P) 

TV  EC 

TFFALFA 

SLOPESW- 

CDUY 

CHAN33 

GUESSW 

COLZ 

ONTMl 

XSQCCXI 1 

TFFNP 

COUT 

DNTM2 

ORIFTFLG 

CDUS 

OPO 

T 

CEP 

TFF/RTMU 
SRCHOPTN 
PI  PAX 
ACMOOFLG 
P IPAY 
STARM 
DPI 
COB 


DEF  PAGE  SYMBOL 


R1 


00^1  92 
0042  60 
0042  92 
0042  93 
0042  126 
0042  1142 
004-2  1195 


0044  69 

0OA4  9? 
0044  93 

0044  1152 
C044  1195 

0044  1260 

C045  69 

0045  92 

0046  69 

0046  9? 

0046  93 

r047  69 

0047  92 

0047  93 

0050  69 

0050  92 

0050  93 

0050  1142 

0050  1197 

0051  6« 

00*=!  92 

0051  93 

0051  1133 


0052 
005? 

0053 

0053 

0054 
C054 

0055 


TDECl 

NRMAG 

LOSCMFLG 

PIPAZ 

STEERSW 

0-RHCCTR 

LVSQUARE 

RCNORM 

SCB 

KEPCl 

TFFX 

P-RHCCTR 
1 MPULSW 
R-RHCCTR 
LV 

NORMZI 

KEPC2 

TFFTEM 

XDELVFLG 

INLINK 

ETPIFLAG 

PNRAO 

XI 

FINALFLG 

GYRQCMO 


51 

RPRE  XI  T 
TWEEK  IT 
PFRATFLG 
CDUYCMD 

52 

SETREX 

EARTHMXX 

CALCMAN3 

COUZCMD 

OPRET 

CALCMAN2 

CDUTCMD 

NODOFLAG 

COUSCMO 

POOHFLAG 
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0055  93 

0056  70 

0056  93 

0057  70 

0057  93 

0060  70 

0060  93 

0061  70 

0061  95 

0061  95 

0061  95 

0061  138 

0061  1292 

0061  1A05 

0062  70 

3062  95 

0062  95 

0062  95 

0062  1292 

0063  71 

00  63  71 

0063  95 

0063  95 

0063  95 

0063  95 

0063  138 

0063  1292 

0063  1A70 

0064  71 

0064  95 

0064  95 

0064  95 

0064  1292 

0065  71 

0065  95 

0065  95 

0065  1292 

0066  71 

0066  95 

3066  1292 
0066  1468 

0066  1470 

0067  71 

0067  95 

007C  71 


THRUST 

GLCKFAIL 

LEMONM 

R EFSMFLG 

OLTLINK 

LUNAFLAG 

ALTM 

N0R29FL6 

ExeCTEMl 

I TEMPI 

WAITEXIT 

T5TEMP 

TEMPG 

COSMG 

VFLAG 

GXECTEM2 

ITEMP2 

WAI TBANK 

TEMPP 

REACRFLG 

R04FLAG 

ITEMP3 

NEWFRIO 

RUPTSTOR 

WAITACR 

OINDX 

TEMPNM 

MZACCDOT 

PRECIFLG 

I TEMP 4 

LCCCTR 

WAI TTEMP 

TEMP8B 

CULTFLAG 

ITEMP5 

NEWLOC 

TEMPSW 

OR0WFLAG 

I TFMF6 

TEMPSW2 

ChNL12 

QRNDXER 

STATGFLG 

NEWJOe 

INTYPFLG 


0C70  95 

0070  1292 

0071  71 

0071  95 

0071  1292 

0072  71 
0072  Q5 

0072  1292 

C073  7] 

0073  95 

0073  95 

0073  95 

0073  1292 

0074  65 

0074  72 

0074  95 

0075  67 

0075  72 

0076  68 

0076  72 

0C77  70 

0077  72 

0100  72 
ClOO  72 

0101  72 

0101  73 

0102  72 

0102  75 

0103  72 

0133  77 

0104  73 

0104  78 

0105  73 

0105  80 

0106  73 
0106  82 
0106  82 

0107  73 

0107  83 

0110  73 

0110  85 

0110  85 

0111  67 

0111  87 

0112  73 


RLPTREGl 

TEMFPR 

VINTFLAG 

RUPTREG2 

TEMPG2 

D60R9FLG 

RUPTREG3 

TEMPP2 

D IMOFLAG 

CSRUPTEM 

KEYTEMPl 

RUPTREG4 

TEMPBBCN 

FLAGWRDO 

MRK  IDFLG 

STATE 

FLAGWRDl 

PRICDFLG 

FLAGWR02 

NRMIDFLG 

FLAGWRD3 

PDSPFLAG 

FLAGWRD4 

MWAITFLG 

NWAITFLG 

FLAGWR05 

M.RKNVFLG 

FLAGWRD6 

NRMNVFLG 

FL46WRD7 

PRONVFLG 

F LAGWROe 

P INBRFLG 

FLAGWPC9 

MRUPTF  LG 

FLGWROlO 

RASFLA6 

NRLPTFLG 

FLGWBDll 

MKOVFLAG 

FLGWR012 

RACMCCES 

OAPBDOLS 

FLGWR013 

XOSPFLAG 


0112  96 

0113  73 

0113  96 

0114  96 

0114  96 

0114  96 

0114  96 

0114  1498 

0115  74 

0115  96 

01.1  5 96 

0115  96 

0115  96 

0115  96 

0115  1498 

0116  74 

0116  96 

0116  1498 

0117  74 

0117  96 

0117  96 

0117  96 

0117  96 

0117  96 

0117  98 

0117  1498 
0120  74 

0120  96 

0121  74 

0121  96 

0122  74 

0122  96 

0122  96 

0122  96 

0122  96 

0122  96 

0122  1497 

0123  74 

0123  96 

0123  96 

0123  96 

0123  96 

0123  1497 

0124  74 

0124  96 


LASTYCMC 

OSKYFLAG 

LASTXCMC 

BLANKRET 

DSEX  IT 

EXITEM 

INTB15+ 

DBVAL2 

SNUFFER 

OECRET 

INTBIT15 

W0RE7 

WRORET 

21/22REG 

DBVAL3 

NCTHRCTL 

AODRWD 

DRIFTER 

R77FLAG 

CHAR 

DECOUNT 

ERCNT 

POLISH 

UPOATRET 

PWRPTR 

ACCRETRN 

PN6SCFLG 

FIXLOC 

DMENFLG 

OVFI ND 

ZOOMFLAG 

DECTEM 

01  STEM 

NOUNTEM 

SGNON 

VBUF 

ACCSW 

ENGCNFLG 

HITEMIN 

NVTEMP 

SF  TEMPI 

S6N0FF 

1 /AT6M1 

3AXI SFLG 

CODE 


0124  96 

0124  96 

0124  98 

0124  ]497 

0125  74 

0125  96 

0125  96 

0125  98 

0126  75 

C126  98 

0127  75 

0127  98 

0127  1497 
0130  75 

C13C  96 
0130  97 

0130  97 

0130  123 

0130  123 

0131  75 

0131  97 

0131  123 

0131  123 

0131  1497 

0132  75 

0132  98 

0132  1497 

0133  75 

0133  97 

0134  75 

0135  75 

0135  97 

0135  97 

0135  1497 

0136  97 

0136  97 

0136  97 

0136  97 

cn6  40e 

0136  1497 

0137  76 

0137  97 

0137  97 

0137  97 

0137  97 


LCTEMIN 

SFTFMP2 

DXCRIT 

1/ATEM2 

AORBSFLG 

M IXTEMP 

SIGNRET 

OXCR  IT  + 1 

NCRRMCN 

RODTPS 

SCLNSW 

RCCTPS+1 

1/ACOSTT 

MGLVFLAG 

fiUF 

INOEXLOC 

SWWORD 

ABVFL* 

LX'WCRX'T 

RENDWFLG 

SWBIT 

H*GHCR*T 

VSELFCT* 

ZITEM 

S32«I  FI 

RETROOT 

75TEM 

S32^1F2 

BUF2 

S32olF3A 

S32,1F38 

OMPNTFMP 

MPTEMP 

UDBl 

DOT  INC 

DVSIGN 

ENTRFT 

ESCAPE 

ENTEXIT 

U0B2 

GMBORVSW 

OOTRET 

DVNORMCT 

ESCAPE2 

INREL 


0137  97 
0137  1497 
0140  97 
0140  07 
0140  97 
0140  97 
0140  97 
0140  9fl 

0140  1497 

0141  76 
0141  97 
0141  97 
0141  97 
0141  98 

0141  1497 
014?  97 

0142  97 
C142  97 
014?  98 

0142  90 

0143  76 
0143  97 
0143  97 
0143  98 
0143  90 
0143  98 

0143  1497 

0144  97 
0144  97 
0144  97 
0144  97 
01*4  97 
0144  97 
0144  97 
0144  98 
01^4  98 

0144  1497 

0145  97 
0145  97 
C145  98 
0145  98 

0145  1497 

0146  76 
0146  97 
0146  98 


WDCNT 
UP  84 

DSPMMTEM 

MAT  INC 

MAXOVSW 

MIXBR 

POLYCNT 

PWRCNT 

UDB3 

MUNFLAG 

OSREL 

POLYRET 

TEMl 

DERPTR 

UAXOIST 

DSMAG 

lOADDTFM 

TEM2 

OERCOF-8 

DEXDEX 

RFOFLAG 

COUNT 

TEM3 

DERCOF-7 
DEX  I 
CfcXl 
DBBl 

DSPWCRET 

FBEERET 

LSTPTR 

RELRET 

SEPMNRET 

SFPSCRET 

TEM4 

DERCOF-6 

0EX2 

0BB2 

NOUNAOD 

TEM5 

OERCOF-5 

RTNSAVER 

DBB4 

NTARGFLG 

NNADTEM 

DFRCOF-4 
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DS03 

AUXFLAC 

NMYPTEM 

DERCOF-3 

AXCSTEM 

ATTFLAG 

lOAOlTEM 

DERCOF-2 

ITSViICH 

IOAC2TEM 

DERCCF-1 

flatemp 

MANUFLAG 

OERCOFN 

IDA03TEM 

Z3TEM 

I GNFLAG 

DERCOF+l 

RUTFXTEM 

ASTNFLAG 

MPAC 

TEMPPHS 

FACEREG 
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014  7 97 
0147  98 

0147  1497 
01 50  77 

0150  97 

01 50  96 

0151  77 

0151  97 

0151  98 

0151  1497 

0152  77 

01 52  98 

0152  98 

01 52  1497 

0153  77 

0153  98 

01 53  98 

0154  77 

0154  99 

0154  13C0 
01 54  1 365 

0154  1498 

0155  77 
0155  1300 
0155  1365 
0155  1488 

0155  1488 

0156  77 

0156  1300 

01  57  77 

0157  98 

0157  1300 
0157  1364 
0157  1365 
0157  1488 
0157  1496 
0157  1498 
0160  77 

016C  1364 
0160  1365 
0160  1*08 
0160  1488 
0160  1498 


UV 

ShANDI  SP 

TEMP2G 

PLAYTEMl 

-EPSILON 

EPS  ILON 

NORMSW 

POINTER 

RVSh 

TERMITMP 

tempswch 

CCPMPAC 

PLAYTEM3 

COCKTEMP 

ANSI 

FUNTEM 

V67FLAG 

TEMPOR? 

PLAYTEM4 

COEFCTR 

SCRATCHX 

1 /ANET 


0161  70 
0161  1365 
0161  1488 
0161  1488 
0161  1498 


0162 

0162 


78 


422 
0162  1365 

0162  1488 
0-162  1496 

0163  78 

0163  99 

0163  1365 

0163  1498 

0164  78 

0164  99 

0164  1365 

0164  1498 

0165  78 

0165  99 

0165  1364 
0165  1498 


0166 

0166 

016? 

0167 

0170 

0172 

0173 

0173 

0174 

0174 

0175 
0J77 
02  00 
02C1 
0202 
02  03 

0205 

0206 
0210 
0211 
0212 
.0213 
0214 


IDLEFLAG 

OUTHERE 

MASSCTR 

SCRATCHY 

ARET 

V37FLAG 

MPAC  + 6 

GENMASK 

SCRATCHZ 

A6SA0S 

AVEGFLAG 

MCDE 

LSERPRIO 
S IGNAGS 
UPLCCKF  L 
LCC 

CCPINDEX 

-SIGNAOS 

VERIFLAG 

bankset 

MPAC2SAV 

HCLO 

V82E  MFLG 

PUShLOC 

TFFSk 

PRIORITY 

RPCFLAG 

NEhIFLG 

MOONOTH 

CMCCNFLG 

MCONTHI  S 

LMCCNFLG 

FLUNDISP 

SLRFFLAG 

INFIN'FLG 

CRDE  RSW 

APSESW 

CCGAFLAG 

I M TALGN 

3tOSW 

F LVR 

P7071FLG 
FLPC 
F LPl 
FLRCS 


0215 

0216 
0217 
0220 
0221 

0223 

0224 

0225 
0227 
0230 
0236 
0245 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 
0260 
0261 
0262 

0263 

0264 

0265 

0266 
0267 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0300 

0301 
C302 
0303 
03  04 

0305 

0306 

0307 
0310 


PI  LETABCRT 
81  FLAP 
81  ABTTGFLG 
81  ROTFLAG 
81  OUITFLAG 
01  MIOIFLAG 
81  MIDAVFLG 

81  AVEMlOSk 

82  INTFLAG 
82  APSFLAG 

82  REINTFLG 

83  LRBYPASS 

83  VXINH 

84  PSTHIGAT 
84  NOLRREAC 
84  XOFFLG 
84  LRINH 

84  VELDATA 
84  LPDS2FLG 
84  REACVEL 
84  PNGEOATA 
84  NO51IFLG 

84  VFLSHFLG 

85  HFLSHFLG 
85  COESFLAG 
85  REMGDFLG 
85  RCOUOFLG 
85  ANTENFLG 
85  REPOSMON 

85  OESIGFLG 

86  ALTSCALE 
86  LRVELFLG 
86  RCDUFAIL 
86  LRPOSFLG 
86  LRALTFLG 
86  RROATAFL 
86  RRRSFLAG 
86  AUTOMOOE 

86  TURNCNFL 

87  PULSFFLG 
87  USEORFLG 
87  CSMDKFLG 
87  OURRCFLG 
87  ACC4-2FL 
87  AOPBIFLG 


0311 

0312 

0313 

0314 
0314 

0314 

0315 

0316 

0316 

0317 
0320 

0320 

0321 

0321 
032] 

0322 

0323 

0324 
0324 
0326 
0330 
0332 

0332 

0333 

0333 

0334 

0334 

0335 

0336 
0336 

0336 

0337 
0337 
0340 

0366 

0367 

0370 

0371 
037? 

0373 

0374 

0375 
C40C 
0401 
0454 


’ XOVINFLG 
ORIFTDFL 
' RHCSCFLG 
ULLAGFLG 
R220ISP 
TIM6  2SAV 
0BSL2FL6 
08SELFLG 
SCALSAVE 
ACCCK  PLG 
AUTR2FLG 
REDOCTR 
AUTRIFLG 
CPHI 
THETAO 
CTHBTA 

cpsr 

OELV 

DE  LVX 

OELVY 

DELVZ 

KBYTE  MP2 

RUPTAGN 

ONLSTADR 

DNLSTCDO 

LDATALST 

CTLIST 

DNTMGCTO 

DUMPLCC 

TMINDEX 

ONECACR 

ONQ 

SUBLIST 

DNTMBUFF 

RESTRFG 

NVWOR  D 

MARKNV 

NVSAVE 

CAORFLSH 

CAORMARK 

TEMPFLSH 

FAILREG 

VAC  lUSF 

VACI 

VACZUSe 
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0455 

0530 

0531 
0604 

C605 


0705  1300 
0734  1 00 


07?' 

0735 
0735 
0735 
0737 
0741 
C743 
C743 
0745 
07*7 
C751 

0752 

0753 

0754 

0755 
C756 
0757 

0760 

0761 

0762 

0763 

0764 

0765 
0765 
0767 
0771 
0773 
077* 

0775 

0776 

0777  101 
lOnC  101 


100 

100 

100 

mo 

100 

100 

100 

100 

100 

ion 

100 
mo 
100 

101 
101 
mi 
mi 
101 
101 
701 

101 
101 
101 
101 
101 
101 
101 
101 
1 01 
101 


1001 

1002 

1003 

1004 


101 

101 

ici 

101 


VAC2 

VAC3USE 

VAC3 

VAC4USE 

VAC4 

VAC5USE 

VAC  5 

GOLOC 

AOTCODE 

STARCOOE 

SINCDU 

SINCDUY 

STARAL  GN 

SINCDUZ 

SlNCDUX 

COSCDU 

CCSCDUY 

COSCOUZ 

COSCDUX 

-PHASEl 

PHASEl 

-PHASE2 

PHASE2 

-PHASES 

PHASES 

-PHASE4 

PHASE4 

-PHA SE5 

PHASE5 

-PHASE6 

PHASB6 

CD US  POT 

CDUSPOTY 

ODUSPOTZ 

CDUSPOTX 

M INDEX 

MMNUMBER 

OSPCNT 

OSPCOUNT 

OECBRNCH 

VERBREG 

NOUNREG 

XREG 

YREG 

ZPEG 
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1006 

1007 

1007 

1010 

1011 

1012 

1013 

lOlA 

1015 

1016 
1017 
1020 
1021 
1022 

1036 

1037 
lOAO 
I'^^l 

1042 

1043 

1044 
1044 
1047 
1050 
1050 

1052 

1053 

1054 


101 

101 

101 

101 

ICl 

101 

102 

102 

102 

102 

102 

102 

102 

102 

102 

102 

102 

102 

102 

102 

1C2 

102 

102 

102 

102 

102 

102 

102 


1055  1C2 

1055  823 


1056 

1057 
1057 
1060 
1060 
1061 
1062 

1063 

1064 

1065 

1066 
1067 


102 

102 

235 

102 

235 

102 

102 

102 

102 

102 

102 

102 


1067  1364 


YREGLP 

LCTEMCUT 

ZREGLP 

MOCREG 

OSFLCCK 

PEQRET 

LOACSTAT 

CLPASS 

NOUT 

NCUNCAOR 

MON  SAVE 

MONSAVEl 

MCNSAVE2 

DSPTAB 

NVQTEM 

NVBNKTEM 

VERBSAVE 

CADfiSTCk 

DSPL  I ST 

EXTVBACT 

OSPTEMl 

NORMTEMl 

CSPTEM2 

0SPT6MX 

OPTIONX 

TBASEl 

PHSPROTl 

T0ASE2 

PHSPRDT2 

P IPCTR 

TEASES 

PH5PRDT3 

MMTEMP 

TeASE4 

BASE  TEMP 

PMSPR0T4 

TBASE5 

PHSPR0T5 

TeASE6 

PHSPR0T6 

NVWOROl 

EBANKSAV 

DSPFLG 


1070  103 

1070  1364 

1071  103 

1071  1364 
1C72  103 


1073 

1074 
1C75 

1076 

1077 
1100 
1100 
1100 
1100 
1100 
1104 
11:16 
1106 
1110 
111  ) 
1112 
1112 
1113 
13  14 
1116 
1117 
UZl 
1123 
1125 
1133 

1141 

1142 

1143 

1144 

1145 

1146 
1150 
1152 

1154 

1155 

1156 

1157 
1160 
1161 
1162 


103 
103 
103 
10  3 
103 
103 
103 
103 
577 
609 
103 
103 
103 
103 
103 
103 
103 

103 

104 
104 
104 
104 
104 
104 
104 
104 
104 
104 
104 
1C4 
104 
104 
104 
104 
1C4 
104 
104 
104 
104 
1C4 


MARKE  BAN 

MARKFLAG 

EBANKTEM 

SAVEFLAG 

MARK2PAC 

RISAVE 

1/PIPAOT 

TEMK 

SC 

SAMPLI M 
RRTARGET 

Rsuec 

SAMPLSUM 

BRLOSVEC 

LCSSM 

TIMEHCLD 

MCOEA 

TANG 

MODES 

NSAMP 

DESRET 

OLDATAGD 

DESCCUNT 

TDEC 

CCLREG 

LAT 

LONG 

ALT 

YV 

ZV 

P40/RET 

GENRET 

CPT  lONl 

CFTICN2 

0PTI0N3 

LCNGCAOR 

LCNGBASE 

LONGTIME 

CCUTEMFX 

COUTEMPY 

CCUTEMPZ 

FI FATMPX 

PIPATMPY 

F IPATMPZ 

01 SPOEX 


1162 

1163 

1164 

1165 

1166 
1166 
1166 


150 

104 

104 

1C4 

104 

104 

104 


1166  1218 
1167  1C4 


1170 

1171 

1172 

1173 
1217 
1225 
1233 
1235 
1235 
1237 
1241 
1243 
1243 

1245 

1246 

1250 

1251 
1251 

1253 

1254 

1255 

1256 

1256  107 

1257  ir5 

1257  107 

1260  105 

1261  105 

1262  105 

1263 

1265 

1266 
1267 

1270 

1271 

1273 

1274 


104 

104 

104 

104 

105 
1C5 
105 
1C5 
955 
955 
955 
105 
105 
105 
105 
105 
105 
105 
105 
105 
1C5 


105 

105 

105 

106 
106 
106 
106 


P210KIG 

TEMPR60 

PRIOTIME 

UPVERBSV 

EBUF2 

INTWAKIC 

UPTEMP 

INTWAKUO 

COMPNUMB 

UPOLOMOC 

UPVERE 

UPCOUNT 

UPBUFF 

RN 

VN 

PIPTIMF 
GDT/2 
CUPSCR 
SPI  PAL 
POSC  ODE 
MASS 

WEIGHT/G 

A60ELV 

P6UIDE 

DVTHRUSH 

AVEGEX IT 

AVGEXl T 

TEMX 

TEMY 

TEMZ 

P IPAGF 

W«  I NC 

C H5MA  SK 

Wo INOl 

CH6MASK 

SPNDX 

RCSFLAGS 

T5ADR 

CJ30SAV 

C13FSAV 

RADTIME 

RADDEL 

TTOTIG 

PVALVEST 

OELPERCR 


106 
106 
106 
106 
106 
106 
106 
106 
10  6 
106 
106 
106 
106 
106 
106 
106 
106 
106 
106 
107 
107 
107 
107 
107 
1C7 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 

1343  1498 

1344  108 


1275 

1276 

1277 

1300 

1301 

1301 

1302 

1303 

1304 

1306 

1307 

1310 

1311 

1312 
13)3 

1314 

1315 

1316 

1317 

1320 

1321 

1322 

1323 

1326 

1327 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 
1340 
1 341 
1343 


1345 

1346 

1347 

1350 

1351 
1353 
13‘'4 


1 08 
108 
108 
108 
108 
108 
100 


DELCEROP 

DELRFROR 

IM00ES30 

I MODE  S3? 

IMUCADR 

MOOECADR 

OPTCADR 

PACCACF 

ATTCADR 

ATTPR ID 

MARKSTAT 

D SRUPTSW 

LGYRO 

RRRET 

RDE  S 

RR  INDEX 

WI  XA 

wr  XB 

Z IXA 

Z I XB 

AGS WORD 

RATEl NDX 

OELAYLOC 

LEMMASS 

CSMMASS 

DNRRANGE 

DNRROnT 

DNI  NOE  X 

DNLRVELX 

DNLRVELY 

DNLRVELZ 

DNLRALT 

BALLEXIT 

DAPOATRl 

TEVENT 

DB 

DBVAL  1 

AZ 

EL 

WCHPHAS  E 

E3J22R2M 

E32C31RM 

RACSKAL 

SKALSKAL 

TRUNNCMO 


1355 

1356 

1356 

1357 

1357 

1360 

1361 

1362 

t 363 

1365 

1366 

1371 

1372 

1373 

137A 

1 375 

1376 

1 377 

1377 
F3  ,1400 
E3,1410 
83,1432 
E3,1434 
F3,1436 
E3  ,1  4?7 
F3,1440 
F3  ,1441 
E?  ,1442 
F3,1443 
F3 ,1444 
E3  ,1445 
F3 ,1  446 
E3  ,1447 
£3,1450 
E3  ,1451 
E3  ,1452 
E3,1452 
E3 ,1453 
E3,)453 
F3,1454 
F3  ,1455 
E3,1456 
E3,1457 
£•'  ,1460 
E?,1461 


lOfl 

108 

108 

108 

108 

108 

lOP 

1C8 

108 

108 


109 
109 
1.09 
1 09 

109 
108 
lOQ 

no 
no 
no 
no 
no 
no 
no 
no 
1 10 
no 
no 
no 

1 10 
1 10 
1 in 
no 
no 
no 
no 
no 
1 10 
no 
no 
no 
1 10 


SHAFTCMD 

ELBIAS 

WHCHREAD 

SELFERAS 

SFAI  L 

EFESTORE 

SELFRET 

SMODE 

ALMCADP 

ERCQUNT 

SCOUNT 

SKEEPl 

SKEEP2 

SKEEP3 

SKEEP4 

SKEEPS 

SKEEP6 

END-UE 

SKEEP7 

LSTl 

LST2 

RSRBQ 

LONGEXIT 

PHSNAMEl 

PHSBBl 

PHSNAME2 

PHSBB2 

PHSNAME3 

PHSBBS 

PHSNAME4 

PHSBB4 

PHSNAME5 

PHS8B5 

PHSNAME6 

PHSBB6 

PBIASX 

PIPA8IAS 

PIPASCF 

PIPASCFX 

PBIASY 

PIPASCFY 

P6I ASZ 

PIPASCFZ 

NBDX 

NBOY 
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AND  SYMBOL 
PAGE  SYMBOL 


OEF  PAGE  SYMBOL 


£3,1^62  110 

E3,1463  111 

E3,14eA  111 

E3,1465  111 

E3,1466  111 

E3,1467  111 

E3,1470  111 

E3,1471  111 

E3,1471  111 

E3,1474  111 

E3,1477  111 

E3,1500  111 

E3,1501  111 

E3,1502  111 

E3,1510  111 

E3,1516  111 

E3,1520  111 

E3,1526  111 

E3,1534  111 

E3,1542  111 

E3,1550  111 

E3,1552  111 

E3,1552  126 

E3,155A  111 

E3,1554  111 

E3,1562  111 

E3,1570  112 

E3,1570  J12 

E3,1570  112 

E3,1572  112 

E3,1600  112 

E3,1606  112 

E3,l6lA  112 
£3,1622  112 

E3,1624  112 

E3,1626  112 

E3,1626  112 

E3,1634  112 

£3  ,1642  112 

E3,1642  112 

£3,1644  112 

E3,1652  112 

E3,1660  112 

£3,1666  112 

£3,1674  112 


N60Z 

ACIAX 

ADIAY 

AOIAZ 

ADSRAX 

AOSRAY 

ACSRAZ 

COMMAND 

GCOMP 

CCUIND 

GCOMPSh 

DIFEOCNT 

UPSVFLAG 

RRECT 

VRECT 

TET 

TOELTAV 

TNUV 

RCV 

vcv 

TC 

XKEP 

XPREV 

RRECTCSM 

RRECTOTH 

VRECTCSH 

T-OTHER 

TETCSM 

TETCTHER 

DELTACSM 

NUVCSM 

RCVCSM 

VCVCSM 

TCCSM 

XKEPC  SM 

RRECTHIS 

RRECTLEM 

VRECTLEM 

TETLEM 

TETTHl S 

DEL  TALEM 

NUVLEM 

RCVLEM 

VCVLEM 

TCLFM 


E3,1676  112 

E3,1700  U2 
E3,1736  112 

£3,1706  113 

E3,17H  112 

E3,1713  112 

E3,1715  112 

£3,1717  112 

£3,1717  121 

E3,1725  112 

E3  ,1725  121 

E3,1733  112 

£3,1755  112 

E3,1757  113 

E3,17eo  113 

E3  ,1760  113 

E3,17e0  609 

E3,1766  113 

E3  ,1766  609 

E3,1770  113 

£3,1772  113 

E3,1774  113 

E3,1775  113 

E3,1776  113 

£3,1777  113 

E4,140D  114 

£4,1400  114 

£4,1400  Uf 
E4,1401  114 

£4,1402  114 

£4,1403  114 

E4,1404  114 

E4,1405  114 

£4,1406  114 

£4,1407  114 

£4,1410  114 

E4,14ll  114 

£4,1412  114 

£4,1420  Hi 
£4,1422  114 

E4,1422  118 

£4,1430  114 

E4,1431  115 

£4,1427  115 

£4,1445  115 


XKE  PLE  M 

X789 

TEPHEM 

TIMSLBO 

AZO 

-AYC 

AXO 

R-CTHER 

R(CSMl 

V-CTHER 

V (CSM) 

REFSMMAT 

ACTCENT 

LS21X 

LOSVEL 

vsuec 

LCSVDT/4 

MLCSV 

SAVECDUT 

RANGE  VAR 

RATEVAR 

RVARMI N 

VVARMIN 

TCCl- 

EN0-E3 

AMEMORY 

URENOPOS 

TRAN  SMI 

WRENDVEL 

wshaft 

RTRUN 

RMAX 

VMAX 

WSURFPOS 

WSURFVEL 

SHAFTVAR 

trunvar 

504LM 

AGSK 

RLS 

ALFOK 

PBOOY 

ALPHAV 

6ETAV 

PHV 


£4  ,1453 
E4, 1461 
£4,1467 
E4,1471 
£4,1473 
E4  ,1475 
E4 , 1477 
E4,1501 
E4  ,)  502 
E4,1503 
£4,1504 
£4  ,1504 
£4,1512 
64,15)2 
F4 ,1513 
E4,1513 
E4,1515 
E4,1516 
E4,1517 
64  ,1517 
E4, 1521 
£4  ,1521 
E4 ,1527 
£4,1531 
E4,1537 
E4, 1537 
£4,1537 
E4 ,1540 
E4,l54l 
E4,1542 
E4 ,1543 
£4,1545 
E4  ,1553 
£4,1561 
E4,1567 
E4,1567 
£4,1574 
£4,1575 
E4 ,1576 
E4,1600 
Ei,1600 
E4,1600 
£4,1600 
E4  ,1600 
£4,1600 


I 1 5 
115 
115 
115 
115 
115 
115 
115 
115 
115 

115 

116 
115 
115 

115 

116 
116 
116 
1X5 
116 
115 
115 
115 
115 

115 

116 
116 
116 

115 

116 
115 

II  5 
115 
115 
115 
1)  6 

115 
120 

116 
H6 
116 
116 
110 
119 
119 


PS  IV 
FV 

ALPHAM 

BETA*/ 

TAUe 

DT/2 

H 

GMUOE 

IRETURN 

NORMGAM 

RPOV 

BASETHV 

KEPRTN 

ORl GEX 

ROW 

BASETIME 

ORIG 

STA  TEXI  T 

HAPOX 

BAS6CTV 

HPER  X 

RPSV 

XKEPNEk 

VECTAB 

VACX 

BASEOTP 

V82FLAGS 

TFF 

VACY 

-TPER 

VAC  Z 

XNBP  IP 

YNBPIP 

ZNBPIP 

VONE' 

BASETHP 

VECTA6ND 

RFAILCNT 

EPSl LONT 

HPERM  IN 

RANGE 

wwpos 

AGS8UFF 
ALPHASB 
P ITCHANG 


E4,1600 
64  ,1  600 
64,1602 
E4 ,1602 
E4,1602 
£4,1602 
E4,1602 
£4,1602 
E4  ,1604 
£4,1604 
£4,1604 
E4  ,1604 
E4,16C6 
E4, 1606 
£4,1614 
£4,1614 
F4,1615 
E4  ,1622 
£4,1630 
64,1630 
£4,1630 
£4,1630 
£4,1630 
£4,1630 
£4  ,1636 
£4,1636 
£4,1636 
£4 ,1644 
£4,1644 
£4,1652 
£4,1652 
£4,1652 
E4,1654 
E4,165i 
E4,1655 
£4,1656 
E4,1656 
E4,1657 
E4  ,1660 
£4,1660 
64,1662 
E4,1664 
£4,1664 
£4,1666 
£4,1666 


1 19 
1)9 
116 
116 
116 
HP 
119 
119 
1)6 
116 
1 16 

119 
116 
lie 
116 
lie 

IIB 
117 
117 
117 
117 
M7 
117 
117 
1 17 
117 
1)7 
117 
117 
117 

117 

118 
1 17 
117 
Uf 
117 
117 
117 
117 
U8 

120 
120 
120 
117 
l?o 


RR-AZ 

RSTACK 

RPADTEM 

RRATE 

WWVEL 

BETASB 

RR-ELEV 

YAWANG 

RTHETA 

TSTARTP2 

WWBIAS 

RLM 

RONE 

RPASS36 

VCNE 

UNP36 

AGSBUFFF 

DELVOV 

£01 

GSAV 

KEL 

MFl 

MFS 

VZ6FAMNB 

E02 

VYBEAMNB 

YNBSAV 

VXBEAMNB 

2NBSAV 

LRVTIME 

T1TCT2 

+ MGA 

LRXCDU 

T2TCT3 

LRYCDU 

ELEV 

LRZCDU 

PIPTEM 

UPl 

UNRM 

AT 

ANGTERM 

VE 

OELVEETl 

TTO 


64,1670 
ei,1672 
E4,1672 
EA, 1674 
£4  ,1674 
£4,1676 
£4,1700 
£4,1702 
£4,1702 
£4,1702 
E4 ,1710 
£4,1710 
£4  ,1  710 
£4,1712 
F4,1714 
£4,1716 
£4,1716 
£4,1716 
F4,1716 
£4,1720 
£4  ,1720 
F4,1722 
E4  ,1724 
£4  ,1730 
£4,173? 
£4,1734 
E4,1734 
E4 ,1735 
E4  ,1  736 
£4, 1736 
E4,1736 
£4  ,1737 
Ei,1740 
Ei,1742 
EA  ,174* 
E4, 1744 
£*,1745 
£4,17*6 
E4  ,1  746 
E4,l  747 
£4,1750 
£4  ,1751 
£4,1752 
£*,1754 
£4  ,1756 


120 

120 

120 

117 

120 

120 

120 

117 

118 
120 

117 

118 
120 
120 
120 
1 18 
118 
lie 
121 
118 
lie 

1 19 
121 

119 
121 

120 
120 
120 
U9 
120 
120 
120 
121 
121 
119 
121 
119 
1 19 
121 
119 
121 
119 
121 
121 
121 


TBUP 

HBEAMNB 

RDOTO 

0ELVEFT2 

YDOTO 

ZDOTO 

/R/MAG 

RACTl 

OVLOS 

LAX  IS 

RACT2 

ULOS 

YDOT 

ZDOT 

GEFF 

HAPO 

NPMTPI 

RTSR 1/MU 

G(CSMI 

HPER 

RTMU 

RI  N1  T 

WM 

VINIT 

/LAND/ 

LPXCOUOL 

Y 

LRYCDUOL 

VI  PRIME 

ORDQT 

LRZCDU DL 

LRVTIMDL 

DYDOT 

OZDOT 

FDAI  X 

PCQNS 

FDAIY 

FOAl  Z 

YCONS 

DELVTPF 

PPATE 

LMPOS 

YRATE 

ATY 

ATR 
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EA,  1760  121 

64,1762  121 

E4,1764  121 

E4,1765  119 

64,1773  120 

E4,1774  120 

E4,1775  120 

£4,1776  120 

6A,1777  120 

E5,1400  12C 

E5,14C0  122 

E5,1400  122 

65,1400  128 

E5,14C2  122 

65  ,1402  120 

E5,1402  821 

E5,14C4  128 

E5,1410  122 

£ 5,  1410  621 

65.1412  128 

65.1413  128 

£5,1414  128 

65.1415  128 

65.1416  122 

£5,1416  128 

65.1416  821 

65.1417  128 

£5,1420  128 

65,1421  128 

E5,1424  122 

E5, 1,424  821 

E 5, 1426  122 

E5,1426  821 

65,1430  122 

E5,1430  128 

65,1^^30  821 

65,1432  122 

£5,1432  128 

65,1434  122 

E5,1434  128 

E5,1434  128 

£5,1434  128 

65,1434  129 

E5,1434  129 


LMVEL 

ATP 

YAW 

PITCH 

0ELVEET3 

RTSTCEX 

RTSTMAX 

RTSTBASE 

PTSTLCC 

RSAMPDT 

END-E4 

TLAND 

W 

AZIMUTH 

RBRFG 

LATITUDE 

ROG 

ER  VECTOR 

VBRFG 

VDG 

L ENGTHOT 

LCSV6C 

NDXC  TR 

PIPINDEX 

ABRFG 

POSITUN 

ADG 

0PLAC6 

OPLACES 

SOUTHDR 

VBRFG* 

V0G2TTF 

ABRFG* 

A0G2TTF 

JBRFG* 

TEMPTIME 

J0G2TTF 

OAI  N8RAK 

TMARK 

TCGFQRAK 

COUTIMEI 

GEN  PL 

RDSP 

A I NLA 

WANGO 


E5,1436  122 

65,1436  128 

E5,1436‘  129 

E 5, 14 40  1 28 

E5,1440  128 

65.1440  129 

E5,1440  129 

65.1441  128 

F5,1441  128 

E5,1442  128 

F5,1442  128 

£5,1442  129 

65,1443  128 

65.1443  128 

65.1444  122 

65,1444  128 

65.1444  129 

65.1445  129 

65.1446  129 

65,1452  122 

65,1452  128 

65,1452  129 

65,1460  122 

65  ,1460  128 

65.1460  129 

65.1461  128 

65.1462  122 

65,1462  128 

65,1462  129 

65.1462  129 

65.1463  128 

65.1464  122 

E 5, 1464  1,2  8 

E5,1464  129 

65  ,1466  122 

E5,1467  128 

£5,1470  122 

E5,1470  128 

E5,1470  129 

65  ,1471  122 

65,1472  122 

65,1472  128 

65,1472  129 

65,1474  122 


TCGIBRAK 

RAPFG 

CDUT IMEF 

WANGI 

CDUDANG 

TEMPACD 

TCRCNDX 

WANGT 

CDUREADF 

TEMP 

f OUREAOI 

NCBI TS 

DRIFTT 

CCUL  IM  IT 

CHAN 

VAPFG 

LCSl 

ALXIS 

CMP  XI 

ALK 

AAPFG 

LCS2 

THETAN 

VAPFG* 

CALCDIR 

F ILOELV 

CDUFLAG 

AAPFG* 

GYTOBETO 

INTVEC 

VLAUNS 

OPTNREG 

JAPFG* 

SAVE 

WPLATO 

GAINAPPR 

SFCONSTl 

TCGFAPPR 

TIMER 

INTY 

TCGIAPPP 
VIGN 
CATAPL 
ANGZ 
R IGNX 


E5,1474  129 

E5  ,1476  122 

E5,1476  129 

65,1500  122 

E5,1500  129 

E5,1502  122 

65  ,1502  129 

65,1504  122 

65,1504  129 

E5  ,1506  122 

E5,1507  122 

65,1510  122 

65  ,3  510  129 

65,1512  129 

65,1516  122 

65,3520  122 

65,1520  129 

65,1522  122 

65.1522  129 

65.1523  123 

65.1524  123 

65.1525  123 

65  ,1526  123 

65.1526  129 

65.1527  123 

65,1530  123 

65.1530  129 

65.1531  123 

65.1531  129 

65.1532  123 

65.1532  129 

65.1533  123 

65.1534  123 

65.1534  128 

65.1535  123 

65.1536  123 

65.1536  126 

65.1537  123 

F5  ,1537  126 

65,1540  123 

65,1542  123 

65.1542  128 

65.1543  128 

65.1544  323 

E5,1546  123 


INTZ 

RIGNZ 

ANGY 

K IGNX/B4 
ANGX 

K IGNY/B8 

ORIFTC 

KIGNV/P4 

DR  IF  TI 

LOWCF  IT 

HIGHCRI T 

V2FG 

VLAUN 

ACC  WO 

TAUV6RT 

D6LQFI X 

POSNV 

LRALPHA 

DPI  PAY 

LRBETAl 

LRALPHA2 

LRBFTA? 

LRVMAX 

DPI  PAZ 

LRVF 

LRWVZ 

ALTI  M 

LRViVY 

ALTI MS 

LRHVX 

ALDK 

LRWVFZ 

LRWVFY 

MASKPEG 

LRWVFX 

LRWVFF 

COUNOX 

RODSCALE 

RESULTCT 

TAURCO 

LAG/TAU 

COUNTPL 

CDUANG 

M INFCRCE 

MAXFCPCE 


e',155C 
65,1550 
65,1552 
E5,1554 
E5  ,1556 
E5,1560 
E5,1560 
65,1562 
65,1562 
65 ,1'=63 
65,1564 
£5,1566 
65 ,1570 
65,1*71 
E5, 1572 
65,1572 
65,157? 
65,1574 
65,1574 
65,1574 
65,1576 
65,1616 
65,1616 
65  ,1620 
65,1620 
65  ,1620 
65,1622 
65,1624 
65 ,1626 
65,1634 
65,1634 
65,1636 
65,1640 
65 ,1642 
E5,1642 
E5,1642 
65  ,1642 
65,1644 
65,1644 
65  ,1646 
E5 , 1646 
65  ,1650 
65,1654 
65, 1654 
65,1656 


123 

123 

123 

123 

129 

123 

120 

129 

123 

123 

123 

12° 

123 

129 

129 

123 

129 

848 

129 

123 

123 

123 

123 

123 

123 

123 

123 

123 

123 

123 

123 
122 

124 
126 
127 
124 
126 
124 
126 
124 
126 
126 
124 


JIPARM 

DELM 

K1 PARM 

J2PARM 

K2PARM 

THETCPIT 

WPLAT  I 

RAMIN 

GFQCnMPS 

6RC0MP 

YLIM 

ABTRDOT 

C0STFFT1 

ZERCNDX 

C0STHET2 

isecxT 

ASECXT 

CG 

PERFOLAY 

A SC  SA  VE 

OVFLOWCK 

OUTOFPLN 

RANGEDSP 

JPARM 

R60VSAV6 

VBIAS 

KPARM 

RP 

RGU 

DLANO 

OLANOX 

DLANOY 

OLANOZ 

ENDW 

XSM 

06LX 

Z1 

-COSfl 

DELT 

SINB 

URRECT 

YSM 

RVEC 

RIVEC 

ZSM 


F5  ,1662 
E5,1664 
65 , 1664 
65,1664 
E5,1664 
E5,1667 
£5,1670 
65,1672 
65  ,1672 
65,1672 
E5  ,1673 
65,1700 
E5,170C 
65  ,1701 
£5,1702 
£5 ,1706 
E5  ,1706 
£5,1706 
£5,1706 
65,1706 
65,1706 
65  ,1706 

65.1710 
E5 ,1710 
E5  ,1710 
E5,1710 
65  ,1710 

65.1711 

65.1711 
65  ,1712 

65.1712 
65,1714 
E 5 ,1714 
£5,1714 
65  ,1714 
E5,17I7 
E5,1717 
£5  ,1720 
65,1721 
E5 ,1722 
£5,1726 
F5,1727 
E5  ,1730 
65,1730 
65  ,]7?1 


124 

127 

127 

127 

126 

124 

124 

126 

126 

124 

124 

126 

126 

124 

124 

124 

124 

125 

125 
127 
1 24 

126 
1 26 
126 
1 26 
126 
1 27 
124 
127 
124 

124 
12* 

125 

126 
126 
127 
126 
124 
127 
126 

124 

125 

126 


R2V6C 

XDC 

XNB 

06LTAX 

TP  IPA 

TEMPVAR 

TDESIREO 

YOC 

YNB 

GEOM  SGN 
UN 
ZOC 
ZN6 

VTARGTAG 

VTARGET 

GACC 

LANOLAT 

STARAO 

VEARTH 

CULTRI  X 

xsc  I 

VARIANCE 

LANDLONG 

RTNAPSE 

RTNLAM6 

RTNTR 

RTNTT 

U2 

GRP2SV0 

LANDALT 

OMEGAMl 

GOUT 

VSUN 

YSCI 

ZSCI 

MAGV6C2 

R2 

0MeGAM2 

URJ 

VMOON 

OMEGAMS 

SNTH 

STAR 

SAX 

CSTH 
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E5, 1733 
E5,173A 
E5,1735 
E5,1736 
£5,1737 
£5,1737 
E5,17A1 
E5, L7A1 
E5, 1743 
E5,1743 
E5, 17A5 
E5 ,1746 
E 5,1747 
E5,  1751 
E5,1753 
£5,1754 
E5,1755 
E5,1755 
E5,1756 
£5,1756 
E 5, 1757 
£5,1757 
£5,1757 
£5,1760 
£5,1761 
65,1761 
E5, 1763 
E5 ,1764 
E5,1765 
£5,1765 
65,1766 

65. 1772 

65.1773 
£5,1773 
E5,1774 
E 5 , 1 7 74 
6 5,1776 
65,1777 
E 6, 1400 
E6, 1401 

66.1402 

66.1403 
£6,1404 

66.1405 

66.1406 


126 

127 

126 

124 

124 

126 

124 

126 

124 
126 

125 
125 

125 

126 
126 
126 

125 

126 
125 
127 

125 

126 
126 

125 

126 
126 
126 
127 
126 
126 
125 
127 
127 
127 
125 

129 
125 
125 

130 
130 
130 
130 
130 
130 
130 


1-CSTH 

HCLDW 

C STH-RHO 

GCTR 

OGC 

P 

IGC 

RIA 

MGC 

VV6C 

QMIN 

UMAJ 

OGCT 

ECC 

RTKPRM 

SGNROOT 

BESTI 

ROESIREO 

BESTJ 

TDPOS 

STARINO 

CELDEP 

TERRLAMB 

STARSAVl 

OEPREV 

TPREV 

EPSILONL 

TDVEL 

COGA 

INDEP 

STARSAV2 

EGRESS 

ORIGIN 

P306XI T 

TAL I6N 

END-E5 

RTXl 

RTX2 

HIASCENT 

BOLLTIME 

PITT  IME 

OKTRAP 

DKOMEGAN 

OKKAOSN 

LMTRAP 


£6 , 1407 
66  ,1410 
E6,1411 
E6,1412 
E6  ,1413 
66,1414 
E6 ,1415 

66 .1416 

66.1417 
66,1420 
E6,1421 
E6, 1422 
E6  ,1423 
E6,1424 
E6,1425 
E6,1426 
E6,1426 
E6,1427 
£6,1427 
£6,1427 
E6  ,1427 
E6,1^30 
E6 ,1431 
E6,1432 
66,1^23 
66,14^4 
E6,1425 
E6,14  36 
E6  ,1436 
E6,1437 
£6,1437 
E6 ,1440 
£6,1441 
E6  ,1442 
£6,1443 
£6,1444 
£6  ,1445 
£6,1446 
E6 ,1450 
E 6, 1 4 50 
£6,1450 
E6,1452 
E6,1452 
£6,1452 
E6  ,1454 


130 

130 

130 

130 

130 

130 

130 

130 

130 

130 

130 

130 

130 

13C 

130 

130 

131 

130 

131 
131 
134 
130 
130 
130 

130 

131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
131 
133 
131 
131 
133 
131 


LMOMEGAN 

LMKAGSN 

DKDB 

IGNAOSQ 

IGNflCSR 

Mil 

M21 

M31 

M22 

M32 

OMEGAP 

QMEGAQ 

CMEGAR 

ALPHAC 

ALPFAR 

OMEGAU 

URATEDIF 

OMEGAV 

EDCTP 

VPATEOIF 

EDCT 

TRAPFDP 

TRAPEDO 

TRAPGOR 

NPTRAPS 

NCTRAPS 

NRTRAPS 

EDHTO 

CPATEOIF 

EOQTR 

RRATEOIF 

CLOXFCRP 

OLDYFORP 

CLDZFCRC 

CHSITEMP 

STIKSENS 

TCP 

D XERRQR 

OYERROR 

QEKRCR 

QDIFF 

CZ6RRCR 

RERRCR 

RO  IFF 

PLAST 


E6,1455 
£6,1456 
E6  ,1457 
66,1460 
E6,146l 
E6,1462 
E6, 1464 
E6,1465 
E6  ,1466 
E6,1470 
66  ,1472 

66.1473 

66.1474 
E6,1475 
E6, 1476 
E6  ,1476 
66,1477 
E6,1500 
E6  ,1501 
E6, 1502 
E6,150  3 
E6,1504 
E6, 1505 
E6  ,1505 
E6 ,1506 
£6,1507 
E6 ,15 10 
E6, 1511 

66.1512 
£6  ,1513 

66.1513 
E6  ,1514 
E6,1515 
E6,1516 
£6,1517 
£6,1520 
£6,1521 
£6,1522 
£6,1523 
E6 ,1524 
£6,1525 
E6 ,1525 
£6,1526 
£6,1527 
£6 ,1530 


131 

131 

131 

131 

131 

131 

131 

131 

131 

131 

131 

131 

131 

131 

131 

131 
13  2 

132 

133 
135 
133 
J33 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 

133 

134 
1 34 
134 
134 
134 
134 
134 

134 

135 
134 
134 
134 


OLAST 

RLAST 

TCQR 

OLDPMl N 

OLPORM IN 

SAV6HAN0 

PERROR 

NXT6A0R 

T6MEXT 

T6FURTHA 

NEXTP 

NEXTU 

NEXTV 

-2JETLIM 

-RATEDB 

TARGFTDB 

RETJADR 

SENSETYP 

NEGUC 

ALL0W6TS 

NEGUR 

KQ 

AXISCTR 

SAVESP 

KROAF 

ACCDOTQ 

QACCCrT 

ACCOOTR 

RACCDOT 

DOWKTORK 

POSTORKP 

NEGT  CTKP 

POSTCRKU 

NEGTORKU 

POSTCPKV 

NEGTORKV 

NOoPJETS 

NOo  UJETS 

NOoVJETS 

TJP 

TJU 

TJETU 

TJV 

L,PVT-CG 

IJACC 


E6 ,1531 
66,1532 
E6,J533 
E6,1534 
E6, 1535 
E6 ,1536 
£6,1540 
E6, 1542 
66,1543 
E6,1544 
E6, 1545 
66,1546 
£6,1546 
E6 ,1547 
E6,155G 
£6,1552 
E6,1554 
E6,1555 
£6,1556 
E6,1560 
E6, 1561 
E6 ,1  562 
E6,1563 
E6, 1564 
E6 ,1566 
66,1567 
E6,1572 
£6,1574 
E6, 1575 
E6 ,1600 
66,1602 
66,1604 
66,1626 
66,1627 
E6  ,1630 

66.1631 

66.1632 

66.1633 
£6,1634 
E6, 1634 

66.1635 

66.1636 
66  ,1637 

66.1637 
£6, 1640 


!?*• 

134 

134 

134 

134 

134 

134 

134 

134 

134 

134 

135 
135 
135 

1 497 
1497 
135 
135 
1497 
1497 
1407 

1497 

1497 

1497 

135 

135 

135 

135 

135 

135 

135 

135 

135 

135 

135 

135 

135 

135 

135 

137 

135 

135 

135 

137 

135 


IJACCQ 

1 JACCR 

IJACCU 

SKIPU 

SKIPV 

AOSO 

AQSR 

AOSU 

ADSV 

AOSQTEPW 

AOSRTEPM 

ACCSWU 

BLCCKTOP 

ACCSWV 

1/ANETP 

1/ACOSTP 

FLAT 

Z0NE3LI  M 

PACCFUN 

POBl 

PDB2 

PDB4 

P0B3 

PAXDI  ST 

1/ANETl 

1 /A  NE  T2 

1/ACOAST 

ACCFCTZl 

ACCFCTZ5 

FIREDB 

COASTOB 

AXISDIST 

COEFFO 

COEFFR 

CnTROLER 

OGIMTIMR 

INGTS 

RG  IMT  IMR 

CDLXD 

DCDU 

CnUYO 

CDUZO 

DELCOUX 

DELDCDU 

OELCDUY 


F6, 1640 
E6  ,1  641 
66,1641 
E6 ,1642 
E6,1643 
E6, 1644 
66  ,1  645 
E6,1645 
E6 ,1645 
E6  ,1645 
£6,1646 
E6 ,1647 
F6,1650 
E6,1651 
E6  ,1652 
E6,1653 
E6 ,1660 
E6  ,1666 
F6,1666 
E6,1667 
66,1670 
E6,1672 
£6,1674 
66,1675 
E6 ,1677 
E6  ,1700 
£6,1701 
66 ,1702 
£6,1702 
£6,1702 
E6  ,1702 
£6,1702 
E6 ,1702 
£6,1702 
66,1704 
E6,1705 
66,1706 
E6 ,1706 
66,1710 
E6,W10 
£6 ,1710 
E6  ,1710 
66,1712 
66,171^ 
E6,1716 


135 

135 

135 
137 
137 
1 37 
137 

137 

137 
137 
137 
1 37 
137 
137 
137 
1 35 
1 37 
137 
137 

136 

137 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
] 36 
136 
136 
136 
136 
136 
136 
1 36 


OELOCDUl 

OELCOUZ 

DEL0C0U2 

OMEGAPO 

OMEGAQD 

OMEGARO 

MIS 

ECDUW 

ECDUWUSR 

VECl 

OCDUWUSP 

NOXCOUW 

FLAGOOOW 

FLPAUTNO 

UNFC/2 

VEC2 

UNWC/2 

UNFV/2 

UNFVX/2 

COP 

UNFVY/2 

UNFVZ/2 

-0ELGM6 

6C0U 

0GA8IAS 

KS  PNDX 

KDPNDX 

KVl 

K1 

MF  I SYM 

NCDU 

P21 

TMF  I 

TMIS 

D21 

NEXT  IME 

G21 

TTEMP 

6IAST6MP 

C2S0P 

KV2 

K2 

C2SQM 
C2PP 
f 2MP 
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E6,1716  136 

E6,1716  136 

66,1716  136 

£6,1720  136 

E6,1722  136 

e6,172A  136 

E6,172A  136 

66,172^  136 

E6,1724  136 

E6,1732  136 

E6,1732  136 

E6,173A  136 

66,1736  131 

£6,1736  132 

£6,1736  132 

66.1736  132 

E6,1736  133 

E6,1736  133 

E6,1736  134 

E6,i736  138 

E6,1737  132 

66.1737  134 

E6,1737  138 

E6,1740  132 

66,1740  133 

66,1740  133 

66.1740  134 

E6,1740  138 

66.1741  132 

66.1741  133 

£6,1741  134 

£6,1741  138 

66.1742  132 

66.1742  133 

E6,1742  138 

E6,1743  132 

£6,1743  133 

E6,1743  133 

E6,1743  134 

66.1743  138 

66.1744  133 

E6,1744  133 

66,1744  134 

66,1744  130 

66,1744  1501 


KV3 

K3 

OGF 

C IPP 

CIMP 

BPATE 

COFSKEW 

IG 

VECQTEMP 

CAM 

TM 

AM 

TEMP31 

A8SE00TP 

ABSTJ 

fiCTEMPl 

GTSTEMPS 

K2ThETA 

EDOTSQ 

DAPTEMPl 

POT  EMP2 

ROTSENSE 

DAPTEMP2 

PCLYTEMP 

KCENTRAL 

SHFTFLAG 

FIREFCT 

DAPTEMP3 

TEMPNUM 

K2CNTRAL 

TTOAXIS 

0APTEMF4 

NLM8ERT 

^CENTRAL 

0APTEMP5 

ROTINOEX 

ACENTRAL 

IMNDEX 

ACRS01F2 

0APTEMF6 

DEL 

JETRATE 

HCLOC 

C'APTREGl 

OLCSENSE 


E6  ,1745  133 

F6,1745  133 

E6  ,1745  133 

E6,1745  134 

E6,1745  138 

66  ,1746  1 33 

66,1746  133 

66.1746  134 

E6,1746  138 

£6,1747  132 

66.1747  133 

E6,1747  138 

£6,1750  132 

66.1750  133 

£6,1750  138 

66.1751  132 

E6,1751  134 

E6,17fl  138 

66.1752  138 

E6,1753  138 

66,1754  138 

F6,1756  138 

E6,1760  136 

E6,1761  138 

66.1762  138 

66.1763  138 

66.1764  138 

66.1765  138 

E6,1766  138 

66,1767  138 

£6,1770  138 

E6,177l  138 

£6,1773  138 

E6,1774  139 

67  ,1400  140 

£7,1402  140 

£7,1404  140 

E7,1412  140 

67,1420  140 

£7,1421  140 

E7,1422  140 

E7,1423  140 

67,1423  16-1 

£7,1  424  140 

67  ,1424  141 


A2CNTRAL 

JETRATEO 

SCRATCH 

ADRSOIFl 

DAPTREG2 

HALFARG 

JETRATER 

FM 

0APTREG3 

OPSBURN 

CRCNTR 

DAPTREG4 

UERROR 

FUNCTION 

0APTRFG5 

VERROR 

£ 

0APTREG6 

DAPARUPT 

OAPLRLPT 

DAPHQRPT 

DAP2RUPT 

AK 

AKl 

AK2 

EORIVEX 

ECR IVEY 

EDRIVFZ 

P JETCTR 

UJ6TCTR 

VJE  TC  TR 

VELeiAS 

AZei AS 

6ND-E6 

ATIGINC 

PTIGI NC 

AOTA  Z 

ACTEL 

LRHMAX 

LRWF 

ZCCMTIME 

TEN08RAK 

PEPCSCNT 

T6NDAPPB 

REPCSTM 


E7,1425 
E7,1426 
67,1426 
67  ,1427 
E7,1430 
£7,1431 
E7,1433 
67,1433 
67  ,1441 
67  ,1443 
67 ,1443 
E7  ,1444 
E7, 1445 
E7 ,1446 
E7,1451 
67,1453 
E7  ,1453 
£7,1455 
67,1456 
E7  ,1457 
£7,1460 
E7,1461 
E7,1462 
E7, 1462 
E7  ,1463 
67,1462 

67 . 1464 

67 .1465 
E7, 1465 

67.1466 

67.1467 
£7,1*70 
67  ,1471 
67,1*71 
67,1471 
67,1471 
67,1471 
E7,1471 
E7,1473 
67,1473 
67  ,1475 
67,1477 
E7,1477 
67,1477 
E7, 1477 


140 

140 

141 
140 
140 

140 

141 
1^1 
141 

141 

142 
142 
142 
142 
141 
141 
141 
141 
141 
1*1 
141 
141 
141 

141 

142 
142 
142 
142 
142 
142 
142 
142 
142 

142 

143 

146 

147 
149 
120 
149 
149 
143 
143 
147 
149 


DELTTFAP 

LEADTIME 

DELTA  TM 

RPCRT IME 

RPCRTCSW 

TNEWA 

DELVLVC 

DELVSLV 

T 16 

RTAR6 

ZEPL  INA 

ELV  IRA 

AZINCRl 

EL  INCRl 

0ELLT4 

TF  1 

TTOGO 

WHICH 

LOSCOUNT 

AIG 

A MG 

AOG 

MARKCTR 

TRKMKCNT 

/AFC/ 

NCRMEX 

QSAVEO 

Fcnoc 

PTRN 

NN 

FP 

SUBEXIT 

ETOVERLA 

WHOCAFES 

VACTl 

RTARGl 

TX7e9 

ABVEL 

ROOT 

HDOTD I SP 

TTFDISP 

RAPREC 

RPASSl 

GAMMA 

SAVET-3r 


67.1501 
E7,15P1 

67.1561 

07.1502 
67,1505 
67, 15^5 
E7,1505 
E7,15C7 
67,1511 
67,1513 
£7,1513 
E7,1515 
£7,1516 

67.1520 
E7,1520 
E7,1521 

67.1521 
E7,1524 
£7,1526 
E7,15?6 
E7 ,1527 
67,1527 
E7  ,1  534 
£7,1535 
£7,1536 
67,1543 
£7,1543 
67,15*4 
E7,1544 
E7, 1544 
67 ,1546 
67,1550 
E7,1551 
£7,1551 
67,1552 
E7 ,1552 
E7,1552 
E7, 1553 
E7,1554 
E7, 1556 
E7,I557 
E7,1560 
E7, 1560 
67  ,1561 

67.1562 


149 

149 

829 

1*7 

143 

143 

146 
149 
149 
143 
1*9 
149 
149 
149 
1 4Q 
14? 
143 

147 
140 
149 
143 
1*3 
149 
143 
149 
143 
1*3 
1*9 
1 51 
151 
147 
)47 
1*3 
1*7 
1*7 
149 
151 
147 
151 
151 
143 
1*9 
151 
147 
1 49 


OELVCTL 

VGBOOY 

TGOl 

OMEGA 

VAPREC 

VPASSl 

VPASS4 

DVTCTAL 

GOBLTIME 

VACT2 

ABDVr  ONV 

OVCNTR 

TGC 

R 

UNITGG8L 

RPASS? 

RPPREC 

BVECTOR 

DELVRFF 

V 

VPASS2 

VPPREC 

HCALC 

RACT3 

UNIT/R/ 

UNVFC 

VACT3 

RNl 

LANOTFMP 

□ UR  TEMPS 

OELTAO 

MARKCNTR 

RPASS3 

XYMARK 

MKDEX 

VNl 

TTF/8TMP 

PLANVEC 

EL  INCR 

AZINCR 

VPASS3 

PIPTIMFl 

KEEP-2 

TS  IGHT 

GOTl/2 


£7,1562 

F7,1565 

67,1565 

67,1570 

E7,157C 

F7,157C 

07.1572 
E7  ,1573 
67  ,1573 

07 .1573 
E7  ,1573 
67,1575 
67,1575 
F 7 ,1  57'? 
67,1575 
F7  ,1575 
07,1577 
E7  ,1600 
F7  ,1  601 

67.1603 

07 .1603 
F7  ,1605 
E7,1605 
E7  ,1605 
67,1606 
67,1606 
E7 ,1606 
E7,1607 
F7,1607 
E7  ,1607 

67.1610 

07.1611 

67.1611 
E7 ,1611 
67,1611 
£7,1612 
E7,1613 
E7,1613 
£7,1614 
07  ,1  614 

67.1614 

07 .1615 

67.1615 

67.1616 
67,1616 


151 

143 

144 
1 49 
850 
859 
1 49 
143 
1 43 
143 
151 
143 
143 
143 
143 
143 
143 
149 
143 
143 
143 
143 
143 
143 
1 49 
149 
151 

143 

144 
151 
151 
143 
1 A3 
143 
1 44 
151 
1 43 
143 
1 49 
149 
1 51 
143 
151 

143 

144 


TABLTTF 

VACT4 

VTPRIME 

MASSl 

l/DVO 

OVCNTRl 

RIS 

D6LVCSI 

SECMAX 

TDEC  2 

TPIPOLD 

DELEL 

DELVMID 

OELVTPI 

DVPREV 

KT 

D1 FFALT 
VIS 

POSTCSI 

HAFPAl 

POSTCDH 

OELTEFO 

LOOPCT 

POSTTPI 

XSCREF 

XSMO 

PIFPSET 

GAMPREV 

INTIME 

RTNHOLO 

FWEIGHT 

DELDV 

OELTEE 

TSTRT 

XI  INPUT 

PIF 

CSIALRM 

TI  TER 

YSCREF 

YSMO 

PSEUD055 

VER6N0UN 

FC 

ROOTV 

ITCTR 
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E7,1617 
E7, 162C 
E7,1620 
£7,1621 
E7, 1621 
E7,1621 
£7,1622 
E7, 1622 
£7,1622 
£7,1622 
E7,1623 
£ 7 ,162A 
E7, 1626 
67,1630 
67,1630 
E7,1630 
£7,1630 
E7,163C 
E7 ,1632 
£7,1632 
E7, 1633 
E7,163A 
E7,163A 
£7,1635 
£7,1636 
67,  1636 
E7,1637 
67,1640 
E7, 1641 
E7,1642 
£7,1642 
67,1644 
£7,1644 
E7, 1644 
67,1644 
£7,1645 
E7, 1645 
£7,1646 
E7,1646 
67,1647 
E7,1647 
E7,1647 
E7,1647 
E7,165C 
£7,1651 


151 

143 
151 
151 
151 
151 

144 

149 
15( 
151 
151 
151 
151 
144 

150 

150 
154 
154 
144 
154 
144 

151 
154 
144 

150 
154 
144 
154 
144 

151 
154 

150 

151 

152 
154 
151 
154 

151 

152 
144 

151 

152 
152 
151 
151 


TTHROT 

CENTANG 

FCOLO 

E2DPS 

OURPERMS 

WCHPHOLO 

DELVIMU 

ZSMO 

ZSCREF 

FILLER 

FLPASSO 

TPl  P 

VGL 

TPASS4 

END-ALIG 

PSUBL 

EN0-E7o3 

RCO 

OTEMP 

YCO 

TCSI 

LANC 

1/DVl 

TTPI 

UCSM 

1/0V2 

TTPIO 

1 /DV3 

PTIG 

TTF/8 

XRANGE 

NEWVEL 

FLIOUMMY 

VDGVEPT 

ENGOFFOT 

AZI DUMMY 

VGVECT 

ZERDUMMY 

NIGNLOOP 

VTI6 

ELVOUMMY 

NGUIOSUB 

WChVERT 

LRADRET 

VSELECT 


E7 ,1652 
67 ,1652 
E7,16S3 
E7 ,1654 

67.1655 
E7,  1655 
E7  ,1655 
£7,1656 

67 .1656 
E7  ,1656 
E7,1656 
67,1660 
E7,1662 
67,1663 
E7  ,1663 
E7,1664 
E7 ,1664 
E7,1665 
E7, 1665 
67,1665 
E7,1666 
E7 ,1666 
E7  ,1666 
E7.,16e6 
E7  ,1667 
£7,1670 
F7 ,1670 
E7  ,1670 
67,1671 
E7 ,1672 
E7,1672 
£7,1672 
E7 ,1672 
E7 ,1673 
E7,1674 
E7  ,1674 
E7,1675 
E7  ,1675 
£7  ,1675 

67.1675 
E7  ,1675 
E7 ,1675 

67.1676 
E7,1676 
£7,1676 


150 

151 
154 
151 

144 

145 
154 

151 

152 
152 
152 
150 
150 
144 
144 
150 
152 
144 
144 
144 
144 
152 
152 
152 
152 
144 
152 
152 
1 52 

144 

145 

146 
152 
152 
146 
152 

146 

147 
147 
147 
150 
152 
147 
147 
152 


NEWPOS 
VMEAS 
T >0 
HMEAS 
DELVSI N 
IC 

EN0-E7t,5 

VN2 

GNUR 

GNUV 

LRAORETl 

LNCHTM 

TRAASTM 

DELVSAB 

VGDISP 

NCSMVEL 

CELTAH 

CTEMPl 

RGEXIT 

SAVCR52 

CCZY4 

FUELNEED 

FUNNYDSP 

TREDES 

LCOKANGL 

XXXALT 

EOURPERM 

LRLCTR 

LRRCTR 

END-IN/M 

UT 

ERADM 

LRMCTR 

LRSCTR 

INCORPEX 

STILBADH 

BLMSRCH 

16RET 

LGPET 

RORET 

P21BAS6R 

STI LBAOV 

EO 

MX 


£7,1677 
E7,1700 
E7,1700 
E7,1700 
E7  ,1700 
E7,1701 
E7,1702 
E7,1702 
E7, 1703 
E7  ,1703 
E7,1703 
E7,1704 
E7 ,1704 
£7,1704 
£7,1705 
E7,1706 
E7,17C6 
£7  ,1711 
E7,17U 
E7,1711 

67.1712 
E7, 1712 

67.1713 
E7 ,1714 
E7,1714 
£7  ,1714 
E7,1715 

67.1715 

67.1716 
£7,1716 
E7 ,1717 
£7 ,1717 
E7,1717 
E7  ,1720 
E7,1720 
E7,1721 
67  ,1722 
E7,1723 
67,1724 
E7  ,1725 
E7,1725 
£7 ,1725 
67,1731 
E7 ,1732 
E7 ,1  733 


152 

145 

145 
147 
152 
152 
147 
152 

146 
150 
152 

147 
147 

152 

153 

145 
153 

146 
150 
153 

147 
153 
150 
145 
153 
B23 
15P 
153 

145 
153 

146 
153 
153 
145 

147 
147 
145 
147 

145 
120 

146 
1 53 

147 

145 

146 


FOPVMETR 

VGPREV 

VGTIG 

El 

LATVFL 

FORVEL 

E2 

TRAKLATV 

VXRC  M 

P21BflSEV 

TRAKFWCV 

E 3 

MY 

VHY 

VHZ 

VG 

VVECT 

LOSDESPO 

P21V6L 

ALTRATE 

MZ 

ALTSAVE 
P2J  GAM 
RMAG 

LAOOSAVE 

PIPCTRl 

P21ALT 

DT 

MUASTEER 

DALTRATE 

UXVECT 

QAXI  S 

UHYP 

MU/A 

SCALSHFT 
RXZ 
RTMAG 
ULC 
R 1C 

ZAXI SI 

UYVECT 

UHZP 

SINTHETA 

SS 

DATAGCrC 


£7,1733 
E7,1733 
£7,1734 
£7,1724 
67,1734 
E7,]  735 
67,1736 
£7,1736 
E7, J737 
£7,1727 
F7,1740 
67,1740 
E7,1741 
67,1742 
E7, 1742 
E7 ,1743 
£7,17^4 
E7, 1745 
E7,1745 
E7, 1745 
E7 ,1746 
67 ,3  746 

67.1746 

67.1747 
£7,1750 
E7, 1750 
E7,1752 
E7,1754 
E7 ,1756 
£7,1756 
E7,1757 
67  ,1760 
E7,1761 
67,1762 
£7,1762 
£7,1762 
E7,1764 
67,1764 
67,1764 
E7 ,1765 
E7,1766 
£7,1766 
E7,1772 
67,1774 
E7,1777 


145 

146 
146 
148 

145 

146 

146 
148 
145 
148 
153 
1^5 
767 
153 

145 
148 

153 

154 

147 

148 
153 
1 54 
l^P 

146 
148 
148 
14R 
143 
153 
148 
153 
145 
148 
143 
1^5 
148 
1 53 
1 *"3 
145 
153 
148 

153 

154 


OMEGAO 

0M6GDISP 

RRSHAFT 

MOOT 

NSRCHPNT 

SAVLEMV 

LRS22«1X 

TCECAY 

RRBORSIT 

ALTBITS 

VEX 

2VE  XHUST 

RUN  IT 

I RETUPNl 

R65CNTP 

LASTLADW 

END-E  7,0 

M49FLAG 

RDCTMSAV 

ROOGOUNT 

ENC-E7ol 

RDOTM 

THROl  SP 

TANGNB 

MKTI ME 

RM 

ROOSCALl 

LASTTPIP 

RANGRCOT 

THI STRIP 

TIGSAVE 

P21TIME 

OLOPIPAX 

T IGSAVEP 

SCAXI S 

OLOPIPAY 

DLOPIPAZ 

MUSCALE 

06LVR0D 

PCINTVSM 

HCALC  1 

EN0-E7 


E7,1777 
4000 
4000 
4000 
*000 
4000 
4000 
4000 
4000 
4000 
4000 
*000 
*00C 
4000 
4060 
4101 
4144 
*201 
4242 
4303 
4317 
4317 
4320 
4320 
43  5 0 
4350 
4350 
4355 
4355 

4355 

4356 

4357 
*-360 
436? 
*361 
*361 
436? 
4362 
4362 

4362 

4363 
4512 
4616 
4733 
*734 


28 
2P 
154 
156 
1093 
1364 
456 
211 
460 
1067 
1067 
1089 
1093 
1004 
1093 
1278 
220 
1093 
1003 
465 
1278 
1093 
273 
38? 
885 
784 
1093 
1383 
503 
1 093 
469 
529 
1498 
1089 


END-E7<,4 

FFTAGl 

FFTAGIC 

FFTAGll 

FFTAG12 

FFTAG13 

FFTAG2 

FFTAG3 

FFTAG4 

FFTA67 

FFTAG8 

FFTAG9 

RADAPFF 

EN0-£7o2 

UPRPTBB 

nCT60000 

VER8MASK 

PI  NSUPBT 

VCON34 

END8LFF 

FO  URTEFN 

0CT16 

OCTll 

NINE 

FBANKMSK 

BANKMASK 

-MAXAORS 

0CT30n00 

BIT13-14 

PRI030 

B12-1 

SSeiTS 

0CT23 

0CT21 

DEC17 

170MS 

ASTNDEX 

0CT25 

UP21 

OCT00012 

TEN 

ENOPl NBF 
ENORMOOF 
l/c03 
LIMITS 
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ERASABLE  £ ECUALS  CRCS S -R E FER ENCE  TABLE  SHOWING  DEFINITION,  PAGE  OF  DEFINITION,  AND  SYMBOL 


DEF  PAGE  SYMBOL 


CEF  PAGE  SYMBOL 


OFF  PAGE  SYMBOL 


OFF  PAGE  SYMBOL 


DEF  PAGE  SYMBOL 


A735  65 

4735  67 

4735  68 

47'35  70 

4735  72 

4735  73 

4735  75 

4735  77 

4735  78 

4735  63 

4735  85 

4735  87 

4735  1093 
4735  1C93 

4735  1277 

4736  65 


67 


4736 
4736  68 

4736  70 

4736  72 

4736  75 

4736  77 

4736  80 

4736  82 

4736  85 

4736  87 

4736  1C93 
4736  1093 
4736  1C93 


4737 

4737 

4737 

4737 

4737 

4737 

4737 

4737 

4737 

4737 

4737 

4737 

4737 

4737 


NEED2BIT 

NJETSbIT 

DRFTBI  T 

POOHB  IT 

MRKIOeiT 

DSKYFBIT 

S220IT1 

ITSWBIT 

KPOFLBIT 

LREYBIT 

COESBIT 

PULSES 

NEGMAX 

VLOAOCOD 

SBIT15 

JSWCHBIT 

DIOFLBIT 

SRCHCeiT 

GLOKFBIT 

PR  I0081T 

S32BIT2 

MANUFBI  T 

FLVRBIT 

INTFLEIT 

REM0081T 

USEQRJTS 

HALF 

POSl/2 

PRIC20 

Sei T14 

HIRTHROT 

MIOFLEIT 

ERAOFBIT 

AOMCCBIT 

PEFSM61T 

NRMIDBIT 

SNUFF0IT 

S32fll T3A 

IGNFLBIT 

NEWIBIT 

P7071BIT 

APSFLBIT 

RCDLOBIT 

CSMCOCKO 

CCTIOOOO 


4737  792 

4737  1093 
4737  J093 


4740 

4740 

4740- 

4740 

4740 

4740 

4740 

4740 

4740 

4740 

4740 

4740 

4740 

4740 


4741  43 
4741  65 
4741  69 
4741  70 
4741  72 
4741  74 
4741  77 
4741  79 
4741  BO 
4741  04 
4741  85 
4741  87 
4741  132 
4741  1093 
4741  1093 


4742 

4742 

4742 

4742 

4742 

4742 

4742 

4742 


FFXTRA 

PR  1010 

CLARTER 

S6IT13 

MCCNBIT 

RCOFLBIT 

LOSCMBIT 

LUNABIT 

PD  SPF61  T 

NCTHRBIT 

S32eiT3B 

ASTNBIT 

CMOCNB  IT 

FLPCBIT 

VXINHBIT 

ANTENBIT 

CURRCBI T 

TTFSCALE 

PPIC4 

SBl T12 

MINCSM 

P21FL81 T 

STEERBIT 

NR29FeiT 

MWAI T8I T 

R77FL8  IT 

SWANDEIT 

LMOONBI T 

FLPIBIT 

PSTHIBI  T 

REPOSBI T 

ACC4CR2X 

CRBI  T 

EBANK4 

FP1C2 

2K 

SBITll 
F SPASBI T 
R61FLBIT 
VFLAGBIT 
NWAI TBI T 
RNGSCBIT 
GMBDRBIT 
NORM  SB  I T 
FLUNDBIT 


4742  8J 
4742  84 
4742  85 
4742  87 
4742  132 
4742  1093 

4742  1277 

4743  66 
4743  69 
4743  71 
4743  71 
4743  72 
4743  74 
4743  77 
4743  ei 
4743  84 
4743  86 
4743  67 
^743  1277 

4743  1301 

4744  66 
4744  67 
4744  69 
4744  71 
4744  72 
4744  74 
4744  76 
4744  78 
4744  79 
4744  81 
4744  84 
4744  86 
4744  87 
4744  1277 


4745 

4745 

4745 

4745 

4745 

4745 

4745 

4745 

4745 


FLRCSeiT 

N0LRP6I T 

DES  IGBIT 

AGPPTRAN 

PB  IT 

PRIOl 

S6IT10 

P25FLBIT 

IMPULBIT 

READRBIT 

R04FLPIT 

MRKNVBI T 

DHENFB 1 T 

pvsweiT 

LETABPIT 

XORFLBIT 

ALTSCeiT 

XOVINHIB 

S6IT9 

SPSCCOE 

1MUSE6IT 

VEHUP0IT 

XDELVBIT 

PRECIBIT 

NRMNVeiT 

ZOOMS  IT 

MUNFLBIT 

V67FL0IT 

SURFFBIT 

FLAPBIT 

LRINHBIT 

LRVFLBIT 

ORIFTBIT 

SB  IT8 

IMUSEFLG 

RNOVZBIT 

UPDATBIT 

ETPieiT 

CULTBI  T 

PRONVBIT 

ENGONBIT 

lOLEFBIT 

INFIN6IT 

ABTTGBl T 

REINTBIT 


4745  84 

4745  86 

4745  88 

4745  1090 

4745  1277 

4746  66 

4746  68 

4746  69 

4746  71 

4746  73 

4746  74 

4746  76 

4746  78 

4746  79 

4746  81 

4746  84 

4746  86 

4746  80 

4746  816 

4746  1277 

4747  66 

4747  68 

4747  69 

4747  71 

4747  73 

4747  74 

4747  76 

4747  79 

4747  81 

4747 
4747 
4747 
4747 
4747 
4747 
4747 


66 
88 
618 
743 
746 
816 
47^7  1277 
4747  1404 
4750  66 

4750  69 

4750  71 

475C  73 

4750  75 

4750  78 

475C  80 


VELOABIT 

RCOUFBIT 

RHC  SCALE 

SUPERIOO 

SB1T7 

RRNBPIT 

NOUPFBIT 

F INALBI T 

ORBWFBIT 

PINBPPIT 

3AX  ISBIT 

REOFLBIT 

V37FLB1 T 

ORDERBIT 

ROTFLBIT 

LP0S2BI  T 

LRPnSBIT 

ULLAGFR 

-AZBIT 

S8IT6 

LGKONBI T 

TPACKBIT 

AVFLBIT 

STATEBI  T 

MRUPTPIT 

AORBSYST 

AVEGFRI T 

APSESBIT 

QUITBIT 

REAOVBIT 

LRALTBIT 

DBSLECT2 

HLITE 

0CT20 

LSTLIM 

+AZ0IT 

SBI  T5 

CALL6MBL 

NEEOLBIT 

PFRATBI  T 

INTYPBIT 

NRLPTBIT 

NORRMBIT 

UPLOCBIT 

COGAFPI  T 


4750 

4750 

4750 

4750 


234 


4750  821 

4750  1093 
4750  1277 

4750  1411 

4751  66 

4751  68 

4751  70 

4751  71 

4751  7? 

4751  75 

4751  76 

4751  78 

4751  81 

4751  84 

4751  86 

4757  88 

4751  610 

4751  109? 
4751  1277 

4751  1277 

4752  37 

^•752  66 

4752  68 

4752  70 

4752  71 

4752  75 

4752  76 

4752  78 

4752  BO 
*•752  81 

4752  85 

4752  86 

4752  88 

4752  740 

4752  816 

4752  1093 
4752  1277 
4752  1277 

4752  1381 

4753  67 

4753  70 


RNGEDBIT 

RR0ATA6T 

D8SELECT 

OCTOOOlO 

TSCALINV 

EIGHT 

SeiT4 

OSPLYALT 

FREEFBIT 

SLOPEB  IT 

CALC3BIT 

VINTFBIT 

MKDV8IT 

SOLNSBI  T 

NTAR6BIT 

VFR1F6IT 

MIOIFBIT 

N0511BIT 

RRRS6IT 

ACCSOKAY 

VLITE 

FOUR 

S+4 

SeiT3 

OELAYNUM 

RIOFLBIT 

GUE  SSBI  T 

CALC2B  IT 

060R9BIT 

MGLVFBI T 

AUXFLBIT 

V82EMBIT 

INITABl T 

MIDAVBIT 

VFLSHBl  T 

AUTOMBIT 

AUTRATE2 

BLANKDE  X 

+ FLBIT 

TWO 

S + 2 

SBIT2 

UP72 

OLDESB  I T 
NODOBIT 
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ERASABLE  G EQUALS  CRCSS-FEFERENCt  TAELE  SHCWING  CEFINITION,  PAGE  OF  DEFINITION, 


OEF  PAGE  SYMBOL 


DEF  PAGE  SYMBOL 


OEF  PAGE  SYMBOL 


AND  SYMBOL 
PAGE  SYMBOL 


OEF  PAGE  SYMBOL 


4753  71 

4753  73 

4753  75 

4753  77 

4753  7R 
4753  80 

4753  81 

4753  85 

4753  86 

4753  b8 
4753  211 

4753  ei6 
4753  1C93 
4753  1277 
4753  1277 
4753  1381 
4753  1425 

4753  1438 

4754  1278 

4755  237 
4755  1277 

4755  1381 

4756  225 
4756  1277 

4756  1383 

4757  448 

4757  1093 
4757  1278 
4757  1366 
4760  739 

4760  1C93 

4761  1067 

4762  739 

4763  429 

4764  1090 

4765  739 

4765  1090 

4766  281 

4766  1502 

4767  1502 

6771  306 

4771  1278 
4771  1323 
4771  1425 
4771  1438 


DIMOBIT 

XDSPBIT 

PENCWeiT 

AITFLBIT 

TFFShBIT 

360SWBIT 

AVEMDBIT 

HFLSHBIT 

TURNCNRT 

AUTRATEl 

LAGSL 1ST 

-ELBIT 

ONE 

S + 1 

S6I  T1 

UP71 

1/lOSEC 

1/lOS 

S-ZERO 

DNLAOPOO 

S+ZERO 

UP70 

NL’MGRPS 

S+5 

UPOTPHAS 

DSPMSK 

LnW3 

S + 7 

0CT7 

ve99oex 

NOUTCON 

THIRTEEN 

CMCNDEX 

OCT30 

0EC27 

V8970EX 

DEC  29 

250MS+1 

RATELIMl 

RATECBl 

MI XCCN 

CNTRCON 

BITS4C6 

40C  YC 

40CYCL 


4774  1327 

4775  1093 

4776  1093 

4776  1438 

4777  383 

477-7  758 

5006  925 

50C7  225 

5007  1093 

5rC7  1278 
5017  1421 
5011  37 

5C12  1278 
5014  600 

5014  1425 

5015  1093 

5020  900 

5020  1278 
5020  1421 

5024  1292 

5025  183 

5(*26  183 

5026  225 

5155  1376 
5270  183 

5270  191 

5270  192 

5464  1365 
5472  264 

5472  265 

5472  1364 
5624  ] 376 
5650  235 

5650  1278 
5741  183 

5741  1323 
5741  1476 
6010  2 8 
6G0O  28 
.6(-01  743 

6010  211 
6C77  1300 
6112  1093 
6115  1278 
6245  1093 


CCT62 

CCT120 

CCT140 

60MS 

I SECX 

SECOl 

ve05N09 

STARTEH 

E8ANK3 

eRASCCN6 

0GIM61TS 

EPASID 

S1061 TS 

NR29SRDR 

BITS9,11 

EBANK6 

BITSET 

S8NK03 

RGIMBITS 

CCTUOno 

CCT1500C 

SSRDMSK 

IM331NIT 

DOALARM 

6LCCKCK 

ENUUAPT4 

PCSMONEX 

LINUS 

TERMEXTV 

EN0GXTV8 

ENOexT 

ABORT 

NEG7 

S-7 

120MS 

BITS3G4 

THELVE 

FFTAG5 

FFTAG6 

? 

VOnN25 
CCT177 
VLOAO# 
S-4 
SI  X 


6245  1277 
6250  569 

6250  K93 
6250  1093 
6250  1277 
6250  1381 
6474  1093 

6744  1019 

6745  1286 

7666  1093 
7715  556 

7721  1433 
772  5 109  3 
7732  157 

7732  1405 
7734  161 

7743  536 

7743  1364 

7744  532 

7744  989 

7750  1278 

7751  1278 

7751  1300 

7752  1093 
7752  1093 
7752  1278 

00,2000  28 
01  ,2000  28 

01  ,2000  28 

01.2000  240 

01  ,2001  240 

01,2016  24C 

01,2016  241 

01,2016  244 

01,2337  298 

01  ,2517  1088 

04.2000  28 

04,2000  28 

04,2000  28 

04,2000  28 

04,2000  28 

04,2000  28 

04,2000  28 

04,2000  28 

04,2000  28 


S+6 

BIN3 

L0W2 

THREE 

S+3 

UP7  3 

0CT3nn02 

Q + 2 

TCO 

OCTlOOOl 

BIT12,1  4 

25/32 

B12T14 

lOOMRUPT 

MSlOO 

20MRUPT 

-450EGSR 

PINMASK 

“61 T12 

MIM812 

S-3 

S-2 

MINUS? 

MINUS! 

NEGl 

S“1 

DLAYJOB 

LOADDAPl 

RESTART 

PRDTTA8 

CAORTAB 

2.2SPCT 

3o2SP0T 

6,2  SPCT 

V50N48 

SW/ 

A0TMARK2 

CONICSl 

E/PRCG 

KEYRLPT 

0RBITAL3 

PINBALL4 

R02 

R36LM 

UPDATE? 


04,2rr0  20 

04,2040  451 

04,3002  37 

04,3005  1179 
04,3011  1179 
CA,3227  1239 
04,3357  1381 
04,3476  1383 
04,3540  1384 
04,3667  1386 
04,3670  1383 
05,2000  29 

05  ,2000  29 

05,2000  29 

05,2000  29 

05,2000  29 

05,2066  1C6 

05,2127  7.98 

05,2127  200 

05,2127  204 

05.2) 36  198 

05,2136  20C 

05,2136  202 

05,2136  204 

05,2136  20fc 
05,2145  198 

05,21<-5  200 

05,2145  202 

05,2145  204 

05,2145  206 

05,2154  198 

05,2154  201 

05,215^  202 

05  ,2154  204 

05  ,21  54  206 

05.2157  198 

06.2157  201 

05.2157  2C2 

05.2) 57  204 

05,21  57  206 

C5,2)7C  202 

05  ,2170  204 

05,2172  195 

05,2172  190 

05,2224  201 


VeRB37 

MODROUTB 

LOOPl/4 

Reei9 

BEE22 

2/3 

UPPART2 

UPSTORB 

UPPAPT? 

UPOUT 

UPCUT4 

ABORTSl 

ASENT3 

OOHNTELM 

EPHEMl 

FRANORES 

LMORBMDL 

LMCSTAOl 

LMRENDri 

LMLSALOl 

LMCSTA02 

LMREND02 

LM0SASC2 

LMLSAL02 

LMAGSI02 

LMCSTA03 

LMRENCOB 

LM0SASO3 

LMLSALO? 

LMAGSI03 

LMCSTA04 

LMREN004 

LMOSA  S04 

LMLSAL04 

LMAGSI04 

LMC  STA05 

LMRENDCS 

LMO  SA  SOS 

LHLSALf'S 

LMAGSI05 

LM0SAS06 

LMISAL06 

NOMDNLST 

LMCSTAOL 

LMRENDOe 


05  ,2224  203 

05,2224  204 

05,2226  204 

05  ,2232  200 

05,2276  204 

05  ,2303  202 

05,2357  204 

05,2407  195 

05  ,2407  195 

05,2407  206 

06,2000  29 

06,2000  29 

06,2000  29 

06  ,2000  29 

06.2000  29 

06,2703  182 

06  ,2703  182 

06,3140  189 

06,3140  190 

06,3164  193 

06,3250  104 

06  ,3260  194 

07.2000  29 

07  ,2000  29 

07.2000  29 

07,2666  844 

07,3201  1323 
07,3703  1322 

10.2000  29 

10  ,2000  29 

io,?noo  29 
10  ,2000  29 

10.2000  29 
10,2330  1364 
10,2334  1364 
10,2350  1364 
10,2353  1364 

10  ,3051  1364 
10,3071  1364 

1 1 ,2000  29 

11.2000  29 

11.2000  29 

12.2000  30 

12,2000  30 

12,2000  30 


LMDSAS09 

LMLSAL08 

LMLSAL09 

LMRENDOL 

IMLSAL07 

LMOSASDL 

LMLSALDL 

AGSLIST 

UPDNLIST 

LMAGSIDL 

EARTHLOC 

IMUCOMP 

MID061M 

RCSMQNT 

T4RUP 

ICOUFAIL 

IKUFAIL 

ENDRRMON 

0APT4S 

RCSMQNI  T 

5FAILTAB 

6FAILTAB 

AOTMARK) 

ASENT2 

MODESW 

SETXFLAG 

IMUF  IN20 

OPTSTALL 

DISPLAYS 

FLESHLOC 

PHASETAB 

RTBCODES 

SLCTMU 

GOXOSP 

GOXOSPF 

GOXOSPR 

GOXDSPFR 

GOAGIN 

60PLAY 

F20PS«11 

INTVEL 

ORBITAL 

CON  ICS 

INTPRET2 

ORBITAL  1 


C0 
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ERASABLE  t EQUALS  CROSS-REFERENCE  TABLE  SHOWING  DEFINITION,  PAGE  OF  DEFINITION,  AND  SYMBOL 


DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

CEF 

PAGE 

SYMBOL 

DEF 

PAGF 

SYMBOL 

DEF 

PAGE 

SYMBOL 

12,2000 

37 

LdUNITZ 

16,2000 

31 

OAPSl 

23,2513 

503 

ONE  B-2 

30  ,2000 

39 

ASENT5 

36,2057 

758 

ACAON85 

12,2002 

37 

LCUNITY 

1 6 ,3576 

1932 

INOXYZ 

23,2513 

1275 

TFF 1/9 

30,2000 

39 

FCDUW 

36  ,2107 

793 

SERVCADR 

12,200A 

37 

loophalf 

17,200') 

31 

C138ANK 

23  ,2515 

37 

HIUNITZ 

30,2000 

39 

FLOGSUB 

36,2150 

727 

P12SP0T 

12  ,200A 

37 

LCUN ITX 

17,2CC0 

31 

DAPS2 

23,2515 

37 

NBlNe2 

30,2000 

39 

LOWSUPfR 

36  ,2150 

727 

P62SP0T 

12,200A 

1055 

HALFDP 

17,2710 

1999 

ATTSTEER 

23,2515 

37 

THISAXIS 

30,2000 

39 

P12 

36  ,2153 

727 

P63SP0T 

12,  200A 

1130 

DPl/2 

17,3136 

1938 

19MS 

23,2517 

37 

HIUNITY 

30  ,2000 

39 

VB67A 

36,3003 

719 

V99RECYC 

12,200A 

1192 

1 ei 

20,2000 

31 

CAPS3 

23,2521 

37 

HIOPHALF 

30,3007 

850 

T2A 

37  ,2000 

36 

I MUSUPER 

12,20C6 

37 

L062ER0S 

20,2000 

31 

LCADDAP 

23  ,2521 

37 

HIUNITX 

30,3760 

920 

DAZMAX 

37,2000 

36 

IMU2 

12,2006 

1095 

Z EROCP 

21,2000 

31 

0APS9 

23,2521 

598 

CnS6O0EG 

30,3762 

‘»20 

DELEPL IM 

37  ,2000 

36 

IHU9 

12  ,2006 

1131 

2DZeRC 

21  ,2000 

31 

RiO 

23  ,2521 

1099 

OPHALF 

31,2000 

39 

F THROT 

37,2000 

36 

P0  5P0  6 

12,2006 

1179 

KEPZERO 

21  ,2000 

31 

Rll 

23  ,2523 

37 

HI6ZER0S 

31  ,2000 

39 

F20PS*?l 

37,2000 

36 

R31 

12,2006 

1239 

OPZERO 

22,2000 

32 

KALCMONl 

23,2523 

598 

ZEPO/SP 

31  ,2000 

39 

VB67 

37,2000 

36 

SERVl 

12,2017 

37 

RMM 

22  ,2000 

32 

KALCMCN2 

23,2523 

1151 

ZEROO 

31,3931 

809 

ENDLLJD6 

37  ,3591 

957 

PIPSRINF 

12,2017 

1195 

LOPOSMAX 

22,2000 

32 

LANOCNST 

23  ,2523 

1275 

TFFZERCS 

32  ,2000 

39 

ABORTS 

60,2000 

36 

P IN6ALL 1 

12,2021 

37 

PME 

22,2«00 

32 

RENDEZ 

29,2000 

32 

PLANTIN 

32,2000 

36 

F20PS*32 

90  ,2000 

36 

PINSUPER 

12,3765 

1239 

DCUARTER 

22,2000 

32 

R30LCC 

29,2000 

32 

P2ns 

32,2000 

36 

LRS22 

60,2000 

36 

R31L0C 

12,3765 

1239 

pasi/9 

22,2000 

32 

SERV2 

29  ,2000 

996 

PROG22 

32  ,2000 

39 

P20S9 

90  ,2000 

36 

SELFSUPR 

13,2000 

30 

ABTFLGS 

22,2  799 

366 

LOCSKIRT 

25,2000 

32 

PLANTIN3 

32,2000 

39 

P66L0C 

60  ,3356 

997 

ENDECVN 

13,2000 

30 

INTINIT 

22,3591 

37 

DELRSPL 

25,2000 

32 

P20S1 

32,2000 

39 

R97 

90,3550 

959 

ENORELOS 

13,2000 

3C 

L AT  LONG 

22,3591 

720 

SPLRET 

25,2000 

32 

P20S2 

32  ,2000 

39 

SERV 

90  ,3577 

961 

ENDBSUBl 

13,2000 

30 

LEMGEOM 

22  ,3707 

859 

CUTGCAVE 

25,2000 

32 

RAOARUPT 

33,2000 

39 

ASENT6 

90,3577 

1286 

0SPMMJ06 

13,2000 

30 

0RBITAL2 

23,2000 

32 

APOPERI 

25  ,2000 

32 

RRLEAOIN 

33,2000 

39 

R29/SERV 

90,3737 

675 

ENOP  INSl 

13,2000 

30 

P76LCC 

23,2000 

32 

ASENT7 

25,2000 

32 

R29S1 

33,200C 

39 

SERVICES 

91  ,2000 

36 

PINBALL2 

13,2660 

37 

A TOPOTH 

23,2000 

32 

ExTvei 

26  ,2000 

33 

6AWLANGS 

33,3103 

850 

lOOCS 

91,2622 

919 

ENDRTOUT 

1 3,2733 

37 

ATOPTHIS 

23,2000 

32 

INFL IGHT 

26,2000 

33 

MANUVER 

33  ,39  54 

882 

ENDVOAT 

91  ,3255 

939 

ENDRUTIN 

13,2796 

37 

MC VA  TH I S 

23  ,2000 

32 

I NTPRETl 

26  ,2000 

33 

MANUVER 1 

39,2000 

39 

ASCFI  LT 

91  ,375C 

973 

EN0PINS2 

13,3092 

37 

OTHPREC 

23,2000 

32 

MEASI NC 

26,2000 

33 

PLANT  INI 

39,2000 

34 

ASENT8 

92,2000 

36 

P INBALL3 

13,3056 

37 

THISPREC 

23  ,2000 

32 

MEASINC  1 

26,2000 

33 

PLANTIN2 

39,2000 

39 

CSI/COHl 

92  ,2000 

36 

SBANO 

19,2000 

31 

A SENT9 

23  ,2000 

32 

NGRMLI Z 

26,2000 

33 

P20S3 

39,20n0 

39 

F2DPS*39 

92 ,3606 

990 

ENOHMSS 

19,2000 

3] 

P50S1 

23,2000 

32 

POWFLI TE 

27,2000 

33 

ASENTl 

39  ,2000 

39 

P30S1 

93,2000 

36 

EXTVERBS 

19,2000 

31 

STARTAB 

2 3,20  00 

32 

POWFL ITl 

27,2000 

33 

P90S1 

39,2000 

39 

R12STUFF 

6?  ,2000 

36 

SELFCHEC 

19,2500 

930 

S50 

23,2000 

32 

P12A 

27  ,2000 

33 

SERV3 

39, 2000 

39 

SERV9 

93,2002 

970 

PINTEST 

19,2603 

932 

R56 

23,2000 

32 

ROD  TRAP 

27,2000 

33 

TOF-F.F 

35,2000 

35 

CSI/rOH 

93,2235 

270 

OPTCOARV 

19,3250 

990 

R59 

23  ,2000 

32 

R6l 

27,2000 

33 

TOF-FFl 

35,2000 

35 

P30S 

63,2365 

273 

V50N68 

15,  2000 

31 

EPHEM 

23,2000 

32 

R62 

27,2000 

33 

VECPT 

35  ,2000 

35 

P90S2 

93,3066 

290 

V79 

15,2000 

31 

P50S 

23,2103 

989 

R62DISP 

27,3759 

1279 

TCDANZIG 

35,2000 

35 

P90S3 

93  ,3121 

202 

GOSHOSUM 

15,2965 

252 

DPI /12 

23,2337 

1275 

RPAOl 

30,2000 

39 

ASENT 

36,2000 

36 

P90S 

93,3765 

1380 

CKMOMORE 

15,3697 

979 

LUNPOS 

23,2513 

37 

HIOPl/9 
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GAP:  ASSEMBLE  REVISION 

SUMMARY  OF  SYMBOL  TABLE 
4521  DEFINED 
2200  DEFINEC 


131  OF  AGO  PROGRAM 
L 1ST INGS 
NORMALLY 
BY  EQUALS 


LUMINARY 


BY  NASA  2021112-091 


TOTAL  : 


7121 
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GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMlNARV  BY  NASA  20211)2-091 


MEMORY  TYPE  £ AVAILABILITY  DISPLAY 


OOOO  TO  0057  SPECIAL  OR  NONExlSTEM  MEI-CPY 


0061  TO 


0060  AVAILABLE  ERASABLE  MEMCRY 
1377  RESERVED  ERASABLE  MEMORY 


E3»1^CC  TO  E5»16A1 
e5,16A2  TC  E5,T777 
EEtl^^OO  TC  E6,1773 
E6, 177A  TO  E6,1777 
E7,1AOO  TC  b7, 174-4 
E7,1745  TC  E7,T777 


RESERVED  SWITCHAELE  ERASABLE  MEMORY 
AVAILABLE  SWITCHABLE  ERASABLE  MEMORY 
RESERVED  SWITCI-AELE  ERASABLE  MEMORY 
AVAILABLE  SKITCHABLE  ERASABLE  MEMORY 
RESERVED  SWITCHABLE  ERASABLE  MEMORY 
AVAILABLE  SV>ITCHAELE  ERASABLE  MEMORY 


4000  TC 
5770  T(J 
6000  TC 
7764  TC 


5767  RESERVED  FIXEC  MEMCRY 
5777  AVAILABLE  FIXED  MEMORY 
7763  RESERVED  FIXED  MEMORY 
7777  AVAILABLE  FIXED  MEMCRY 


00 ,2000  TC  01  ,3777 


RESERVED  SWITCHABLE  FIXED  MEMORY 


02,2000  TO  03,3777 


SPECIAL  OR  NONEXISTENT  MEMORY 


04.2000  TC  04,3751 
34,3752  TO  04,3777 

05.2000  TC  05,3776 

05.3777 

06.2000  TO  06,3774 

06.3775  TO  06,3777 

07.2000  TO  07,3765 
07,3766  TC  07,3777 

10.2000  TO  11,3776 

11.3777 
12,2C0C  TC  12,3775 

12. 3776  TO  12, 3777 

13.2000  TC  13,3762 

13.3763  TO  13,3777 

14.2000  TC  15,3762 

15.3763  TC  15  ,3777 

16.2000  TO  22,3775 

22.3776  TO  22,3777 

23.2000  TC  23,3773 
23,3774  TO  23,3777 

24.2000  TC  25,3761 
25,  3762  TO  25,3777 

26.2000  TC  27,3775 

27.3776  TC  27,3777 


RESERVED  SWITCHABLE  FIXED  MEMCRY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMCRY 
AVAILABLE  SWITCHABLE  FIXED  MEMCRY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXEC  MEMCRY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHAELE  FIXEC  MEMORY 
RESERVED  SaITCHABLE  FIXED  MEMCRY 
AVAILABLE  SWITCHABLE  FIXED  MEMCRY 
PESERVEC  SWITCHABLE  FIXED  MEMCRY 
AVAILABLE  SWITCHABLE  FIXED  MEMCRY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXEC  MEMCRY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMCRY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHAELE  FIXED  MEMCRY 
AVAILABLE  SWITCHABLE  FIXED  MEMCRY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXEC  MEMCRY 
RESERVED  SWITCHAELE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXEC  MEMORY 


30.2000  TC  30. 
50,3771  TO  30 

31.2000  TO  3) 
31,372*  TC  3) 

32.2000  TC  32 
32,3754  TC  32, 
33,200C  TO  33 
33,  3763  TO  33, 

34.2000  TO  34, 
3*, 3653  TO  34. 
35,  2000  TO  35, 
35,374)  TC  35. 

36.2000  TO  36 
36,3774  TO  36, 

37.2000  TC  37 
37,  3774  TO  37, 

40.2000  TC  40. 
40,3761  TO  40 

41.2000  TO  41, 
4)  ,3753  TC  41  , 

42.2000  TO  42, 
42,3773  TO  42, 

43.2000  TO  43 


,3770 
,3777 
,3723 
,3777 
,3753 
,3777 
,3762 
.3777 
3652 
,3777 
, 37*0 
,3777 
,3773 
3777 
,3773 
3777 
,3760 
,3777 
. 3752 
,3777 
,3772 
.3777 
,3777 


RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXFO  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMCRY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXFO  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHAELE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXFD  MEMCRY 
RESERVED  SWITCHABLE  FIXED  MEMORY 


44,2000  TO 


57,3777  SPECIAL 


OR  NONEXISTENT  MEMORY 


60,2000  TO  67,3777  AVAILABLE  SWITCHABLE  FIXED  MEMORY 
70,  2000  TO  73,3777  SPECIAL  OR  NONEXISTENT  MEMORY 


gap;  ASStMBLE  REVISION  131  CF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-051 
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routine:  count  DATA  FOR  ROUTINE'S  LAST  RE ACH : TOT AL : CUMUL 


ROUTINE:  COUNT  DATA  FOR  ROUTINE'S  LAST  P FACH : TOTA L :CUMUL 


BANKSUM 

00/DELAY 

00/INTER 


REF  0 LAST  TO 
REF  1 LAST  28  TO 
REF  I LAST  1369  TC 
REF  1 LAST  1091  TO 


3e: 

1371  : 

icei : 


55  55  59 

32  32  91 

579  979  1065 


09/KEYLF 

09/LT-LG 

09/MARK 

09/PIN 


REF 

PFF 

REF 

REF 


1 LAST  1330  TC  1396: 

I LAST  95  TC  95: 

1 LAST  250  TO  251  : 

2 LAST  968  TO  *68: 


68 

9 

32 

7 


68  9390 

9 9399 

32  9376 

16  9392 


01/EXEC  REF 
01/INTER  REF 
Ol/RSROU  REF 
Ol/RSTAB  REF 


1 LAST  1100  TO 
1 LAST  1001  TO 
3 LAST  1299  TO 
1 LAST  290 -TO 


UlC; 
1089: 
1301 : 
295: 


280  280  1395 

157  157  1502 

55  168  1670 

135  135  1805 


09/PCO  REF  1 LAST  226  TC  238:  319  318  9710 

09/P07  REF  2 LAST  379  TO  375:  5 32  9792 

09/F27  REF  1 LAST  1381  TC  1389:  298  298  9990 


09/P57  REF 


LAST  977  TO  979: 


12  12  5002 


01/R03 

01/WAIT 

02/ALARM 

02/eANK 


REF 

REF 

REF 

REF 


2 LAST  256  TO  295:  92  99  1899 

2 LAST  1125  TO  1127:  99  185  2C88 

2 LAST  1379  TO  1376:  79  108  2196 

1 LAST  992  TO  596:  76  76  2272 


09/R02  REF 
09/R36  REF 
05/ASENT  REF 
05/CLlST  REF 


1 LAST  1329  TO 
I LAST  703  TC 
1 LAST  095  TC 
1 LAST  195  TO 


1327:  17  17 

705;  77  77 

895;  2 2 

208:  292  292 


5019 

5096 

5098 

5390 


02/DAPT6 

02/USPLA 

02/EX6C 

02/FXTV8 


REF  1 LAST 
REF  1 LAST 
REF  2 LAST 
REF  1 LAST 


1396  TO  1397: 
1396  TO  1396: 
1110  TO  1U3: 
1372  TC  1373: 


18 

16 

6 

9 


18  2290 

16  2306 

65  2371 

9 2375 


05/DPR0G  REF 
05/£Ph£M  REF 
05/P7C  RFF 
05/START  REF 


1 LAST  985 

2 LAST  981 

1 LAST  824 

2 LAST  213 


TO  992;  183 

TO  9P5:  0 

TC  826:  56 

TC  226:  989 


163  5623 

52  5575 

56  5631 

985  6116 


02/FCONS 
02/FLAG 
02/1M0DE 
02/  INTER 


REF  1 LAST  1089  TO  1091: 
REF  1 LAST  1367  TO  1369: 
REF  1 LAST  1301  TC  1302: 
REF  I LAST  1096  TO  IC97: 


69  69  2939 

32  32  2971 

5 5 2976 

32  32  2508 


06/ICGMP 

06/LUR0T 


REF  1 LAST  328  TO  3A1:  282  282  6398 
RFF  1 LAST  1X91  TC  1193:  9 9 6907 


O6/MI0G  REF 


LAST  609  TO  695: 


30  30  6937 


06/T9RCS  REF 


LAST  193  TO  195: 


69  69  6506 


02/PHASE 

02/PlN 

02/P07 

02/RRSLB 


REF  1 
REF  6 
REF  1 
REF  1 


LAST  1290 
LAST  968 
LAST  383 
LAST  529 


TO  1292: 
TO  971: 
TO  385: 
TC  53C ; 


71  71  2579 

37  296  2825 

18  18  2893 

68  68  29U 


06/T9RPT 

07/ASENT 

07/INODE 

07/MARK 


REF 

REF 

PEF 

REF 


2 LAST 
1 LAST 

1 LAST 

2 LAST 


158  TO  193: 
899  TO  695; 
1302  TC  1329: 
252  TG  262: 


618  628  7139 

15  15  7199 

558  558  7707 

285  906  81  13 


02/RSR0U 

02/RUPTS 

02/TRAN 

02/T9RPT 


REF  2 
REF  1 
REF  I 
REF  I 


LAST  1290 
LAST  155 
LAST  1371 
LAST  157 


TO  1299: 
TO  157: 
TC  1372: 
TO  158: 


10  17  2928 

59  59  2982 

15  15  2997 

12  12  3009 


07/R59  RFF  1 
10/DSPLA  REF  3 
lO/MIOG  PFF  1 
10/PHASE  REF  2 


LAST  262  TO  263: 
LAST  1379  TC  1379: 
LAST  695  TO  697: 
LAST  1292  TO  1299; 


32  32  8195 

9 678  8823 

29  2*  8897 

66  75  8922 


02/WAn 

03/DAP 

03/FCCNS 

03/lNTER 


REF 

REF 

REF 

REF 


2 LAST  1123  TC  1125: 
1 LAST  1951  TO  1953: 
I LAST  1091  TO  1099: 

3 LAST  1008  TO  1091 : 


29  78  3087 

2 2 30  89 

32  22  2121 

732  952  9073 


lO/POwFL 
1 n/RTB 
11  /F20PS 
11/ INI  TV 


REF  1 LAST  1257  TO  1263: 
RFF  1 LAST  1389  TO  1396: 
PEF  1 LAST  819  TC  817: 
RFF  1 LAST  688  TO  699: 


9037 

9167 

9233 

9927 


03/KILL  REF 
03/PHASE  REF 
03/P00  REF 
03/P20  REF 


I LAST  795  TO  795 

1 LAST  1299  TO  1295: 

I LAST  226  TO  226 

1 LAST  598  TO  60C 


8 8 9081 

9 9 9085 

8 8 9093 

5 5 9C98 


n/CRBIT  REF  1 
12/CONIC  REF  3 
12/ ICONS  REF  I 
13/ALARM  REF  1 


LAST  122C  TO  1291; 
LAST  U83  TC  1202  ; 
LAST  1095  TO  ’096: 
LAST  1376  TC  1380; 


830  630  10257 

602  986  11293 

19  19  11262 

10  10  11272 


03/P90 

03/R29 

09/CCNIC 

09/INTIN 


REF  1 LAST 
REF  1 LAST 
REF  3 last 
REF  I LAST 


90  TC  90: 
520  TO  52C: 
1180  TC  1183: 
1218  TC  122C: 


1 

9 

65 


59 


1 9099 

9 9108 

110  9218 

59  9272 


13/GEOM  REF 
13/INTIN  REF 
13/LT-LG  PEF 
13/CRBlT  REF 


1 LAST  322 
9 LAST  1219 
1 LAST  1127 
1 LAST  96 


TC  326:  79 
TO  1218:  139 
TC  1139:  155 
TO  A6:  20 


79  11351 
603  11959 
155  12109 
20  12129 


ASSEf'BLE  REVISION  131  CF  AGC  PPCGRAI^  LUMINARY  0Y  NASA  2O21112-0S1 
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GAP: 

ROUTINE;  COUNT  DATA  FOR  ROUTINE'S  LAST  RE  ACH  : TOT  A L : CUMUL 


17:53  OECa  l'?,1969 
ROUTINE:  COUNT  DATA  FOR  ROUTINE'S  LAST  REACH-'TOTAL  :CUMUL 


13/P76 
lA/ASENT 
14/  INFLT 
14/LOSAM 


REF 

REF 

REF 

REF 


1 LAST 
1 LAST 

1 LAST 

2 LAST 


715; 
847: 
944  : 
932: 


96  12225 
57  12282 
0 12282 
75  12357 


22/SeRV 

22/SR30S 

23/eXTVe 

23/F20PS 


REF 
R EF 
REF 
REF 


1 LAST 
1 LAST 
1 LAST 
1 LAST 


858  TC 
722  TO 
272  TO 
817  TO 


860: 

725: 

272: 

817: 


24  19257 
62  19319 
33  19352 
6 19358 


14/P51 

14/R50 

14/851 

14/R52 


REF 

REF 

REF 

REF 


I LAST 
1 LAST 
1 LAST 
1 LAST 


944*  TO 
942  TO 
936  TO 
950  TO 


127  12404 
64  12548 
135  12683 
68  12751 


22/GEOM 
23/1  CONS 
23/INCOR 
23/INFLT 


RFF 

PEF 

RFF 

REF 


1 LAST  326  TO  328: 

1 LAST  lOQA^  TC  1095: 

2 LAST  1 147  TC  1151  : 
1 LAST  12^1  TO  1251: 


196 

184 


34  19392 
16  19408 
334  19742 
184  19926 


1 4/R54 
14/R55 
14/R56 
14/STARS 


REF 

REF 

REF 

REF 


I LAST 
1 LAST 
1 LAST 
1 LAST 


941  TO 
940  TC 
932  TO 
47  TO 


132 

223 


41  12792 
26  12018 
132  12950 
223  13173 


23/PFPAP 
23/ POWFL 
23/R61 
23/R62 


RFF 

REF 

REF 

REF 


I LAST  697  TC  703: 
I LAST  1251  TO  1257: 


1 LAST 
1 LAST 


524: 

490: 


78  20004 
152  20156 
145  20301 
1]  20312 


14/S52«l 

14/S52e3 

15/EPHEM 

15/P51 


REF 

REF 

REF 

REF 


I LAST 
1 LAST 
1 LAST 
1 LAST 


948  TU 

949  TO 
979  TC 
956  TO 


949: 
95C: 
98  J ; 
959: 


25  13198 
16  13214 
73  13267 
65  13352 


23/SERV 

24/LPS20 

24/LUROT 

24/P20 


REF 

PFF 

RFF 

REF 


1 LAST  1135  TO  1138: 

2 LAST  409  TO  505: 


24  20336 
46  20382 
63  20445 
256  20701 


15/R59 

16/UAP 


REF 

REF 

REF 

REF 


922  TO 
962  TO 
952  TO 


93C: 
977: 
956  : 


157 
435 
1 49 


1 LAST  1462  TO  1464: 


157  13509 
556  14065 
189  14254 
60  14314 


24/P21 

24/P22 

24/P25 

2<‘/R2l 


REF 

REF 

REF 

REF 


2 LAST 
1 LAST 
I LAST 


657  TO 

511  TO 
506  TC 

512  TO 


663  : 
512: 
508: 


122  20823 
5 20828 
37  20865 
162  21027 


16/OAPIO 

16/DAPP 

17/DAPQR 

17/DAPTJ 


REF 

REF 

REF 

REF 


1 LAST  1402  TO  1406: 
I LAST  1413  TO  1434; 
1 LAST  1434  TO  1451: 
1 LAST  1453  TO  1462: 


139 

794 

624 


139  14453 
794  15247 
624  15871 
315  161 86 


2^/R22 
24/R23 
24/ R24 
2^/R29 


PEF 

REF 

REF 

REF 


1 LAST  508  TO  511: 

1 LAST  517  TC  519: 

2 LAST  520  TO  521: 

2 LAST  610  TO  613: 


147  21174 
41  21215 
38  21253 
87  21340 


1 7/DAPT6 
20/DA PAO 
20/0APIF 
20/NEEDL 


REF 

REF 

REF 

REF 


2 LAST  1397  TC  1398: 
4 LAST  1489  TO  1500: 
I LAST  1398  TO  1402: 
1 LAST  1406  TO  1413: 


39  16225 
720  16945 
74  17C19 
156  17175 


25/LPS20 

25/LUROT 

25/RLEAO 

25/RRUPT 


REF 

REF 

REF 

REF 


1 LAST  572  TC  575: 

1 LAST  1138  TO  1 140: 

1 LAST  494  TC  496: 

3 LAST  617  TO  619: 


12  21352 
68  21420 
56  21476 
273  21749 


20/R03 
21/OAPAO 
21/DAPBU 
21/ DAPGT 


REF 

REF 

REF 

REF 


1 LAST  294  TO  296: 
1 LAST  1478  TO  1478: 
1 LAST  1500  TO  150C; 
1 LAST  1464  TO  147E: 


73  17248 
8 17256 
82  17338 
388  17726 


25/RSUB 

26/BALL 

26/LRS24 

26/LSR22 


PEF 

REF 

PEF 

REF 


2 LAST  567  TO  571: 

1 LAST  481  TO  485  : 

1 LAST  593  TO  598: 

1 LAST  581  TC  593: 


172 

532 


640  22389 
50  22439 
172  22611 
532  23143 


21/P7C 

21/RlO 

21/Rl! 

21/SERV 


REF 

REF 

REF 

REF 


2 LAST 
2 LAST 
1 LAST 
I LAST 


829  TC 
891  TO 
823  TO 
867  TO 


30  17756 
479  18235 
49  18284 
16  18300 


26/LUROT 

26/R06 

26/R63 

27/ASENT 


REF 

PEF 

REF 

RFF 


3 LAST  1140  TO  1141: 

J LAST  477  TO  481: 

1 LAST  3^1  TC  35?; 

2 LAST  849  TO  850: 


65  23208 
103  23311 
65  23376 
37  23413 


22/F2DPS 

22/INCCR 

22/KALC 

22/R30 


REF 

REF 

REF 

REF 


I LAST  822  TO  822: 

1 LAST  1151  TO  1168: 

1 LAST  353  TU  372: 

2 LAST  715  TG  722: 


670 

199 


10  18310 
50  18360 
670  19030 
203  19233 


27/KILL 

27/P12 

27/P40 

27/P70 


REF 

REF 

REF 

REF 


1 LAST  745  TO  748 

1 LAST  44  TO  <^4 

2 LAST  7i8  TO  75C 

1 LAST  39  TC  39 


38  23451 
4 23^55 
93  23548 
8 23556 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PRC6BAM  LUPINARY  BY  NASA  2021)12-091 


17:53  DEC*  19,1965 
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ROUTI  NE:  CCUM 


DATA  FCR  ROUTINE'S  LAST  R EACH: TOTAL :CUMUL 


ROUTINE:  COUNT  DATA  FOR  ROUTINE'S 


LAST  ReACH:TCTAL:CUMUL 


27/SERV  REF 
27/S40cl  REF 
27/S4Co2  REF 
2?/S40«6  REF 


1 LAST  060  TO  86)  : 

1 LAST  760  TO  76A: 

1 LAST  764  TO  765: 

1 LAST  776  TO  77S: 


31  31  23587 
101  ICl  23688 
20  28  23716 
40  40  23756 


34/P6567 

34/SERV 

34/S30S 

35/P30 


REF  1 LAST 
REF  2 LAST 
REF  1 LAST 
REF  1 LAST 


786  TO  700: 
887  TC  687; 
621  TO  626: 
619  TO  621: 


4?  42  25379 
14  47  29426 
^7  47  29473 
28  28  29501 


27/S40.8  REF 
27/S4Co5  REF 
27/S41*l  REF 
27/TFF  REF 


1 LAST  765  TO  768: 

2 LAST  771  TC  776 : 

1 LAST  779  TO  78C; 

2 LAST  1263  TO  1277: 


57  57  23013 

200  202  24015 

4 4 24019 

266  268  24287 


35/P3272  REF 
35/P3373  RFF 
35/P3474  PEF 
35/P3575  RFF 


1 LAST  626  TC  63? : 

1 LAST  632  TO  637: 

1 LAST  663  TO  668: 

2 LAST  668  TP  608: 


119  119  29620 
140  140  29760 
112  112  29872 
529  543  30415 


27/VECPT 

27/40*13 

30/ASENT 

30/EXTV6 


REF 

REF 

REF 


1 LAST 

1 LAST 

2 LAST 
1 LAST 


485  TO  485: 
768  TO  771: 
838  TC  844: 
615  TO  617: 


136  136  24423 

103  103  24526 

312  314  24840 

47  47  24887 


35/P40 

36/P40 

36/P4I 

36/P42 


RFF  2 LAST  742  TO 

RFF  6 LAST  754  TC 

RFF  1 LAST  750  TO 

REF  1 LAST  752  TO 


743:  23  40  30463 
760:  163  782  31245 
752;  78  78  31323 
753:  22  22  31345 


30/FrDUW 
30/P  12 
31/EXTVB 
31/F2DPS 


REF 

REF 

REF 

REF 


LAST  904  TO  922: 
LAST  831  TU  834 
LAST  613  TP  615 
LAST  817  TO  822 


445  445  25332 

156  156  25488 

93  93  25591 

135  679  26260 


36/P47  REF  1 
37/P05  REF  1 
37/P06  RFF  1 
37/P07  REF  3 


LAST  753  TO  754: 
LAST  1328  TO  1330: 
LAST  1327  TC  1328: 
LAST  385  TC  400: 


52  52  31397 

32  32  31429 

47  47  31476 

267  587  32063 


31/R13  REF  1 
31/THRCT  REF  2 
32/F2DPS  REF  2 
32/LRS22  REF  2 


LAST  795  TO  796 
LAST  788  TO  793 
LAST  811  TO  814 
LAST  575  TO  581 


55  59  26319 
141  146  26465 
166  167  26632 
133  137  26769 


37/R31 

37/SERV 

40/EXTVB 

40/PIN 


RFF  1 LAST 
REF  ? LAST 
RFF  1 LAST 
REF  10  LAST 


705  TO  711  ; 
864  TC  867: 
301  TO  306; 
474  TO  477: 


189  189  32252 

76  162  32414 

63  63  32477 

57  928  33405 


32/P20 

32/P63 

32/P70 

32/R25 


REF 

REF 

REF 

REF 


1 LAST  497  TC  499: 

1 LAST  780  TO  786 : 

2 LAST  829  TO  831: 

1 LAST  605  TO  61C : 


103  103  26872 

181  181  27053 

24  139  27192 

152  152  27344 


40/R31  REF 
41/PIN  REF 
42/EXTVB  REF 
42/NOUNS  REF 


1 LAST  705  TO  705: 
8 LAST  471  TO  474: 

2 LAST  289  TC  2 90: 
1 LAST  306  TO  322: 


15  15  33420 

82  1000  34420 

23  38  34458 

597  597  35055 


32/R47 

32/SERV 

33/ASENT 

33/R29 


REF 

REF 

REF 

REF 


1 LAST 
1 LAST 
1 LAST 
I LAST 


20  8 TO 
861  TO 
850  TO 
60C  TO 


21?: 
861  : 
852: 
604: 


1 38  138  27482 

3 3 27485 

44  44  27529 

97  97  27626 


42  / P I N 
42/R05 
42/R33 
43/EXTVe 


REF 

REF 

REF 

REF 


2 LAST 
2 LAST 
1 LAST 
6 LAST 


437  TO 
490  TO 
277  TO 
299  TC 


441: 
4 94  : 
278; 
301 : 


02  238  35293 

114  116  35409 

27  27  35436 

60  511  35947 


33/SERV  REF  8 
34/ASENT  REF  3 
34/CSI  REF  1 
34/P12  REF  1 


LAST  887  TC  891 
LAST  847  TO  849 
LAST  637  TO  655 
LAST  834  TO  836 


88  911  28537 

77  127  28664 

650  650  29314 

23  23  29337 


43/PHASE 

43/P27 

43/R0477 

43/SELF 


REF 

REF 

REF 

REF 


1 LAST  1286  TO  1286:  14  14  35961 

1 LAST  1300  TO  1381:  21  21  35982 


1 LAST  278  TC  202:  176  176  36158 
1 LAST  1277  TO  1286:  314  334  36472 


gap: 
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PARAGRAPHS  GENERATED  FOR  THIS  ASSEMBLY; 


ADDRESS  LIMITS  AND  THE  MANUFACTURING 


LOCATION  CODE  APE  SHOWN  FPP  EACH 


4000 
4400 
5000 
54CC 
6000 
6400 
700C 
7400 
00,2000 
00, 2400 
00,3000 
00,3400 
01,2000 
01,2400 
01,3000 
01,3400 


TO  4377 
TO  4777 
TO  5377 
TC  5777 
TO  6377 
TC  6777 
TO  7377 
TO  7777 
TC  00,2377 
TO  00, 2777 
TC  00,3377 
TC  00,3777 
TO  01, 2377 
TC  01  ,2777 
TO  01,3377 
TC  01,3777 


PARAGRAPH  If 
PARAGRAPH  # 
PARAGRAPH  d 
PARAGRAPH  « 
PARAGRAPH  n 
PARAGRAPH  H 
PARAGRAPH  it 
PARAGRAPH  11 
PARAGRAPH  it 
PARAGRAPH  « 
PARAGRAPH  « 
PARAGRAPH  d 
PARAGRAPH  U 
PARAGRAPH  H 
PARAGRAPH  d 
PARAGRAPH  d 


CIO 
Oil 
C12 
013 
C14 
r 15 
016 
C17 
020 
021 
r 22 

023 

024 

025 
C26 
C27 


ROPE  MODULE 
ROPE  MODULE 
POPE  MODULE 
ROPE  MODULE 
RCPE  MODULE 
POPE  MODULE 
ROPE  MODULE 
ROPE  MODULE 
ROPE  MODULE 
RCPE  MODULE 
ROPE  MODULE 
RCPE  MODULE 
ROPE  MODULE 
ROPE  MODULE 
ROPE  MODULE 
ROPE  MODULE 


1,  SICE  e, 
1,  SIDE  A, 
I,  SIDE  6, 
1 , SIDE  A , 
1,  SIDE  B, 
1,  SIDE  A, 
1 , SI  OE  B, 
1,  SIDE  A, 
1 , SIDE  B, 
1,  SIDE  A, 
1,  SIDE  B, 
1 , SICE  A, 
1,  SIDE  B, 
1,  SIDE  A, 
1 , SIDE  B, 


SENSE 

SENSE 

SENSE 

SENSF 

SENSE 

SENSE 

SENSE 

SENSE 

SENSE 

SENSE 

SENSE 

SENSE 

SENSE 

SENSE 

SENSE 

SENSE 


LINE  SET 
L INE  SET 
LINE  SET 
LINE  SET 
LINF  SET 
LINE  SET 
LINE  SFT 
LINE  SET 
LINE  SFT 
LINE  SFT 
LINE  SET 
LINE  SET 
LINE  SET 
LINE  SET 
L INE  SET 
LINE  SET 


5 

5 

6 
6 


1 

1 

2 

2 

3 

3 


(WIPES  65-  80) 
(WIRES  6 5-80 
(WIRES  81-  96  » 
(WIRES  PI-  96) 
(WIPES  97-112) 
(WIPES  97-112 ) 
(WIRES  113-128) 
(WIRES  113-128  ) 
( WIRES  1-  16  ) 
(WIRES  1-  16) 
(WIPES  17-  32 ) 
(WIRES  17-  32) 
(WIRES  33-  48) 
(WIRES  33-  48) 
(WIPES  *9-  64) 
(WIRES  ^9-  6*  ) 


04.2000 
04,  2400 

04.3000 

04.3400 

05.2000 
05,24u0 
05,300C 

05.3400 

06.2000 
06,  2400 

06 .3000 

06.3400 

07.2000 

07.2400 
07,30C0 
07  ,3400 

10.2000 

10. 2400 

10.3000 

10.3400 

11,2000 

11.2400 

11.3000 

11.3400 

12,2000 

12.2400 

12.3000 


04.2377 

04. 2777 

04.3377 

04.3777 
05,  2377 

05.2777 

05.3377 

05.3777 

06.2377 

06. 2777 

06.3377 

06.3777 

07.2377 

07.2777 

07.3377 

07.3777 

10.2377 

10.2777 

10.3377 

10.3777 

11.2377 

11.2777 

11.3377 

11.3777 

12.2377 

12. 2777 

12.3377 


TC 

TO 

TC 

TO 

TO 

TC 

TC 

TC 

TC 

TO 

TC 

TO 

TO 

TC 

TO 

TC 

TC 

TO 

TC 

TO 

TO 

TC 

TG 

TO 

TC 

TO 

TC 


PARAGRAPH  d 04C 
PARAGRAPH  U 041 
PARAGRAPH  it  042 
PARAGRAPH  d 043 
PARAGRAPH  d C44 
PARAGRAPH  d 045 
PARAGRAPH  d 046 
PARAGRAPH  H C47 
PARAGRAPH  d 050 
PARAGRAPH  d 051 
PARAGRAPH  H 052 
PARAGRAPH  d 053 
PARAGRAPH  d C54 
PARAGRAPH  d 055 
PARAGRAPH  d 056 
PARAGRAPH  d C57 
PARAGRAPH  d 060 
PARAGRAPH  d 06] 
PARAGRAPH  H 062 
PARAGRAPH  d 063 
PARAGRAPH  d 064 
PARAGRAPH  d 065 
PARAGRAPH  d t66 
PARAGRAPH  d C67 
PARAGRAPH  d 070 
PARAGRAPH  d 071 
PARAGRAPH  II  072 


RCPE  MODULE 
RCPE  MODULE 
ROPE  MODULE 
RCPE  MODULE 
ROPE  MODULE 
ROPE  MODULE 
RCPE  MCOULE 
ROPE  MODULE 
RCPF  MODULE 
RCPE  MODULE 
ROPE  MODULE 
RCPE  MODULE 
ROPE  MODULE 
ROPE  MODULE 
ROPE  MODULE 
ROPE  MODULE 
ROPE  MODULE 
RCPE  MODULE 
ROPE  MOOLLfc 
ROPE  MODULE 
ROPE  MODULE 
ROPE  MODULE 
RCPE  MODULE 
ROPE  MODULE 
ROPE  MODULE 
ROPE  MODULE 
ROPE  MODULE 


1,  SIDE  A, 
1 , SIDE  B, 
1 , SIDE  A , 
1,  SIDE  B, 
1 , SIDE  A, 
I,  SIDE  B , 

1,  SIDE  A, 
1 , SIDE  B, 

2,  SIDE  A, 
2,  SIDE  e, 
2,  SIDE  A, 
2,  SIDE  B, 
2 , SI DE  A, 
2,  SIDE  B , 
2,  SIDE  A, 
2,  SIDE  B, 
2,  SIDE  A. 
2,  SIDE  6, 
2,  SIDE  A, 
2,  SIDE  B, 
2,  SIDE  A, 
2,  SIDE  8 , 
2,  SIDE  A, 
2,  SIDE  6, 
2,  SIDE  A, 
2,  SIDE  e, 
2,  SIDE  A, 


SENSE  LINE 
SENSE  L INE 
SENSE  LINE 
SENSE  LINE 
SENSE  LINE 
SENSE  LINE 
SENSE  L INE 
SENSE  LINE 
SENSE  LINE 
SENSE  L INE 
SENSE  LINE 
SENSF  LINE 
SENSE  LINE 
SENSE  LINE 
SENSE  L INE 
SENSE  LINE 
SENSE  LINE 
SENSE  L INE 
SENSE  LINE 
SENSE  LINE 
SENSE  LINE 
SENSE  LINE 
SENSE  L INE 
SENSE  LINE 
SENSE  LINE 
SENSE  L INE 
SENSE  LINE 


9 ( WIRES 
9 (WIRES 
10  (WIPES 

10  (WIRES 

11  (WIRES 

11  (WIRES 

12  (WIPES 
12  (WIPES 

1 (WIPES 

1 (WIRES 

2 (WIRES 

2 (WIRES 

3 (WIRFS 

3 (WIRES 

4 (WIPES 

4 (WIRES 

5 (WIPES 

5 (WIRES 

6 (WIPES 

6 (WIPES 

7 (WIRES 
7 (WIPES 
0 (WIPES 
e (WIPES 
9 ( WIRES 
9 (WIRES 

10  (WIRES 


129-1*4) 
129-144) 
145-160 ) 
145-160 
16  1-176  ) 
161-176 ) 
177-192) 
177-192  ) 
1-  16) 
1-  16) 
17-  32  > 
17-  32) 
33-  48  ) 
33-  48 ) 
49-  6*) 
49-  64 ) 
65-  80 
65-  RO) 
81-  96 ) 
81-  96) 
97-112  ) 
97-1 12  ) 
113-128) 
11^-128  ) 
12C-144) 
129-144) 
145-160 ) 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2C21112-091 


17:53  DEC*  1R,1969 


AGE  1500 


PARAGRAPHS  GEAFRATED  FGR  THIS  ASSEMBLY;  ADDRESS  LIMITS  ANO 


THE  MANUFACTURING  LOCATION  CODE  ARE  SHOUN  FOR  EACH 


12.3400 

13.2000 

13.2400 

13.3000 
13,3^00 

14.2000 

14.2400 

14.3000 

14. 3400 

15.2000 

15.2400 

15.3000 

15.3400 

16.2000 

16.2400 

16.3000 

16.3400 
17,2f  00 

17.2400 

17.3000 

17.3400 

20,  2o00 

20.2400 

20.3000 

20.3400 

21,2000 

21.2400 

21.3000 

21.3400 

22,2000 

22.2400 

22.3000 

22.3400 

23.2000 
23,240C 

23.3000 

23.3400 

24.2000 

24.2400 

24.3000 

24.3400 

25.2000 
25,240C 

25.3000 

25.3400 


TO  12, 3777 
TC  13,2377 
TO  13,2777 
TO  13,3377 
TC  13  ,3777 
TC  14,2377 
TC  14,2777 
TC  14,3377 
TO  14, 3777 
TC  15,2377 
TO  15,2777 
TC  15,3377 
TC  15,3777 
TC  16,  2377 
TO  16,2777 
TC  16,3377 
TO  16,  3777 
TC  17,2377 
TO  17,2777 
TC  17,3377 
TC  17,3777 
TG  20,2377 
TC  20,2777 
TC  20,3377 
TO  20, 3777 
TC  21,2377 
TO  21,2777 
TC  21,3377 
TC  21  ,3777 
TC  22,  2377 
TC  22,2777 
TC  22,3377 
TO  22, 3777 
TC  23,2377 
TC  23,2777 
TC  23,3377 
TC  23,3777 
TC  24, 2377 
TC  24,2777 
TC  24,3377 
TO  24, 3777 
TC  25,2377 
TC  25,2777 
TG  25,3377 
TC  25,3777 


paragraph  « 073 
PARAGRAPH  U 074 
PARAGRAPH  H C75 
PARAGRAPH  « C76 
PARAGRAPH  H C77 
PARAGRAPH  ft  100 
paragraph  « K1 

PARAGRAPH  « 102 
PARAGRAPH  H 1C3 
PARAGRAPH  H 104 
PARAGRAPH  « l05 
PARAGRAPH  H 1C6 
PARAGRAPH  M 107 
PARAGRAPH  « 110 
PARAGRAPH  « 111 
PARAGRAPH  « 112 
PARAGRAPH  H 113 
PARAGRAPH  H 114 
PARAGRAPH  U 115 
PARAGRAPH  « 116 
PARAGRAPH  « 117 
PARAGRAPH  H 120 
PARAGRAPH  « 121 
PARAGRAPH  H 122 
PARAGRAPH  » 123 
PARAGRAPH  « 124 
PARAGRAPH  # 125 
PARAGRAPH  « 126 
PARAGRAPH  « 127 
PARAGRAPH  » 13C 
PARAGRAPH  U 131 
PARAGRAPH  U 132 
PARAGRAPH  « 133 
PARAGRAPH  H 134 
PARAGRAPH  « 135 
PARAGRAPH  « 136 
PARAGRAPH  H 137 
PARAGRAPH  « 140 
PARAGRAPH  « 141 
PARAGRAPH  H 142 
PARAGRAPH  It  143 
PARAGRAPH  ft  144 
PARAGRAPH  If  145 
PARAGRAPH  ft  146 
PARAGRAPH  ft  147 


RCPE 

ROPE 

POPE 

ROPE 

ROPE 

RCPE 

ROPE 

ROPE 

RCPE 

ROPE 

RCPE 

ROPE 

ROPE 

ROPE 

ROPE 

ROPE 

RCPE 

ROPE 

ROPE 

ROPE 

ROPE 

ROPE 

ROPE 

RCPE 

RCPE 

ROPE 

ROPE 

ROPE 

ROPE 

RCPE 

ROPE 

ROPE 

ROPE 

ROPE 

ROPE 

ROPE 

ROPE 

ROPE 

ROPE 

ROPE 

RCPE 

ROPE 

POPE 

ROPE 

ROPE 


MODULE  2 
MODULE  2 
MODULE  2, 
MODULE  2 
MODULE  2, 
MODULE  3: 
MODULE  3: 
MODULE  3i 
MODULE  3 
MODULE  3, 
MODULE  3, 
MODULE  3 
MODULE  3i 
MODULE  3 
MODULE  3 
MODULE  3, 
MODULE  3 
MODULE  3i 
MODULE  3 
MODULE  3 
MODULE  3, 
MCOULE  3i 
MODULE  3, 
MODULE  3t 
MODULE  3. 
MODULE  3, 
MODULE  3, 
MODULE  3 
MODULE  3, 
MODULE  4, 
MODULE  4, 
MODULE  4i 
MODULE  4. 
MODULE  4, 
MODULE  4, 
MOOLLE  4 
MODULE  4, 
MODULE  4. 
MODULE  4, 
MODULE  4, 
MODULE  4 
MODULE  4. 
MODULE  4, 
MODULE  4 
MODULE  4, 


SICE  B, 
SIDE  A , 
SIDE  B, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  6, 
SIDE  A, 
SIDE  e, 
SIDE  A , 
SIDE  R, 
SIDE  A, 
SIDF  B, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  B, 
SIDE  A , 
SIDE  B, 
SIDE  A, 
SIDE  6, 
SIDE  A, 
SIDE  e, 
SIDE  A, 
SIDE  e, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  6, 
SICE  A, 
SIDE  P, 
SIDE  A, 
SIDE  e, 
SIDE  A , 
SIDE  B, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  e, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  B, 


SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  L INE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  L INE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  L INE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  L INE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SET 
SENSE  LINE  SFT 


9 


10 

10 

11 

11 

12 

12 

1 

1 

2 

2 

3 

3 

4 

4 

5 

5 

6 
6 
7 

7 

8 
8 


(WIRES  145-160) 
(WIRES  161-176) 
(WIRES  161-176) 
(WIRES  177-192  ) 
( WIRES  177-1  g?  ) 
(WIRES  1-  16) 
(WIRES  1-  16  I 
( WIPES  17-  32) 
(WIRES  17-  32) 
(WIRES  33-  ) 

(WIPES  33-  48) 
(W  IR  ES  49-  6^  I 
( WIRE  S 49-  64 ) 
(WIRES  65-  80 
(WIPES  65-  80 ) 
( WIRE  S 81-  96 ) 
(W  IRES  81-  96  ) 
(WIRES  07-112 ) 
(WIPES  97-1121 
(WIRES  113-128) 
(WIRES  113-128) 
(WIRES  129-144) 
(WIRES  129-144) 
(WIPES  145-160 
(WIRES  145-160 
(WIRES  161-176  > 
(WIRES  161-176) 
(WIRES  177-192) 
(WIRES  177-192 ) 
(WIRES  1-  16) 
(WIPES  1-  16 ) 
(WIPES  17-  32) 
(WIPES  17-  22  ) 
(WIRES  33-  48 ) 
(WIRES  33-  48) 
(W  IRES  49-  64  ) 
(WIRES  49-  64) 
(WIRES  65-  BO) 
(WIPES  65-  80  ) 
(WIRES  81-  96) 
(W  IP  ES  81-  96  ) 
(WIRES  97-112) 
(WIRES  97-112) 
(WIRES  113-128) 
(WIPES  113-128) 
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26,2000- 

TO 

26,2377 

PARAGRAPH 

H 

150 

ROPE 

MODULE 

4 , 

SIDE 

A , 

SENSE 

LINE 

SET 

9 

(WIRES 

129-144 1 

26,2400 

TC 

26,2777 

PARAGRAPI- 

if 

151 

ROPE 

MOOULF 

4, 

SIDE 

B , 

SENSE 

LINE 

SET 

9 

(WIRES 

129-144) 

26,  3000 

TO 

26, 3377 

PARAGRAPH 

U 

152 

ROPE 

MODULE 

4, 

SIDE 

A, 

SENSE 

L INE 

SET 

10 

(WIRES 

145-160) 

26,3400 

TO 

26,3777 

PARAGRAPH 

n 

153 

ROPE 

MOOULF 

4, 

SI  OE 

B, 

SENSE 

LINE 

SET 

10 

(WIRES 

145-160 1 

27t20CC 

TC 

27,2377 

PARAGRAPH- 

n 

154 

ROPE 

MODULE 

4, 

SIDE 

A, 

SENSE 

LINE 

SET 

11 

(WIRES 

161-176) 

27,2400 

TO 

27, 2777 

PARAGRAPH 

if 

1 55 

RCPE 

MODULE 

4 , 

SIDE 

B, 

SENSE 

L INE 

SET 

11 

(WIRES 

161-176  ) 

27,3000 

TC 

27,3377 

PARAGRAPH 

« 

156 

ROPE 

MODULE 

4, 

SIDE 

A , 

SENSE 

LINE 

SET 

12 

(WIRES 

177-192  ) 

27,3400 

TO 

27,3777 

PARAGRAPH 

a 

157 

ROPE 

MODULE 

4, 

SIDE 

e, 

SENSE 

L INE 

SET 

12 

(WIRES 

177-192  ) 

30,2C00 

TC 

30,2377 

PARAGRAPH 

H 

16C 

ROPE 

MODULE 

5 , 

SIDE 

A, 

SENSE 

LINE 

SET 

1 

(WIRES 

1-  16  » 

30,2400 

TC 

30,27  77 

PARAGRAPH 

H 

161 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

LINE 

SET 

1 

( WIRES 

1-  16  ) 

30,3000 

TO 

30, 3377 

PARAGRAPH 

ft 

162 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LINE 

SFT 

2 

(W  IR  ES 

17-  22) 

30,3400 

TC 

30,3777 

PARAGRAPH 

t* 

163 

ROPE 

MODULE 

5, 

SIDE 

B , 

SENSF 

LI  NF 

SET 

2 

(WIRES 

17-  32 ) 

31,2000 

TO 

31,2377 

PARAGRAPH 

H 

164 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LINE 

SET 

3 

(WIRES 

33-  40) 

31,2400 

TO 

31, 2777 

PARAGRAPH 

u 

165 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

LINE 

SET 

3 

(WIPES 

33-  40 ) 

31,3000 

TC 

31  ,3377 

PARAGRAPH 

n 

166 

ROPE 

MODULE 

5, 

SIDE 

A , 

SENSE 

LI  NE 

SET 

4 

(WIRES 

49-  64 ) 

31, 34C0 

TO 

31,3777 

PARAGRAPH 

4 

167 

RCPE 

MODULE 

S , 

SIDE 

B, 

SENSE 

LINE 

SET 

4 

(WIRES 

49-  64) 

32  ,2000 

TC 

32,2377 

PARAGRAPH 

4 

170 

ROPE 

MODLLfc 

5, 

SIDE 

A , 

SENSE 

LINE 

SET 

5 

(WIRES 

65-  80 ) 

32,2400 

TC 

32,2777 

PARAGRAPH 

ff 

171 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

LINE 

SET 

5 

( WIRES 

65-  90 

32,3000 

TO 

22, 3377 

PARAGRAPH 

u 

1 72 

RCPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

L INE 

SET 

6 

(WIPES 

61-  96) 

32,3400 

TC 

32,3777 

PARAGRAPH 

H 

173 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

LINE 

SET 

6 

(WIPES 

81-  96 ) 

33,2C0C 

TO 

33,2377 

PARA.GRAPH 

ft 

174 

RCPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

L INE 

SET 

7 

(WIRES 

9 7-112  ) 

33,2400 

TO 

33,2777 

PARAGRAPH 

tt 

175 

ROPE 

MODULE 

5 , 

SI  DE 

e, 

SENSE 

LINE 

SET 

7 

(W  IR  ES 

97-112 ) 

33,3000 

TC 

33,3377 

PARAGRAPH 

a 

176 

ROPE 

MODULE 

5, 

SIDE 

A , 

SENSE 

LINE 

SET 

fl 

(WIRES 

113-128) 

33,3400 

TO 

33,3777 

PARAGRAPH 

ff 

177 

RCPE 

MODULE 

5 , 

SIDE 

B, 

SENSE 

L INE 

SET 

6 

(WIRES 

112-1201 

34,2000 

TO 

34,2377 

PARAGRAPH 

H 

200 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LINE 

SET 

9 

(WIRES 

129-144 ) 

34,2400 

TC 

34,2777 

PARAGRAPH 

if 

201 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

L INE 

SET 

9 

(WIRES 

129-144) 

34, 3000 

TO 

34,  3377 

PARAGRAPH 

ff 

2G2 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

L INE 

SET 

10 

(WIRES 

145-160 

34,3400 

TC 

34,3777 

PARAGRAPH 

ff 

203 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

LINE 

SET 

10 

(WIRES 

145-160 ) 

35,2'^CP 

TO 

35,2377 

PARAGRAPH 

tf 

204 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LINE 

SET 

11 

(WIRES 

161-176) 

35,2400 

TO 

35, 2777 

PARAGRAPH 

tf 

205 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSF 

L INE 

SET 

11 

(W  IRES 

16  1-176  ) 

35,3000 

TC 

35,3377 

PARAGRAPH 

ff 

206 

ROPE 

MODULE 

5, 

SIDE 

A , 

SENSE 

LINE 

SET 

12 

(WIPES 

177-192 ) 

35,34C0 

TC 

35,3777 

PARAGRAPH 

if 

2C7 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

L INE 

SET 

12 

(WIRES 

177-192 ) 

36,2000 

TC 

36,2377 

PARAGRAPH 

H 

210 

ROPE 

MODULE 

6, 

SIDE 

A , 

SENSE 

LINE 

SET 

1 

(WIPES 

1-  16  ) 

36, 2400 

TC 

36,2777 

PARAGRAPH 

if 

211 

ROPE 

MODULE 

6, 

SIDE 

B, 

SENSE 

LINE 

SET 

1 

(WIPES 

1-  16) 

36,3000 

TO 

36, 3377 

PARAGRAPH 

u 

212 

RCPE 

MODULE 

6, 

SIDE 

A, 

SENSE 

L INE 

SET 

2 

(WIRES 

)7-  22) 

36,3400 

TC 

36,3777 

PARAGRAPH 

a 

213 

ROPE 

MODULE 

6, 

SIDE 

B , 

SENSE 

LINE 

SET 

2 

(WIRES 

17-  32  > 

37,2000 

TO 

37,2377 

PARAGRAPH 

ff 

214 

ROPE 

MODULE 

6, 

SIDE 

A, 

SENSE 

LINE 

SET 

3 

(WIPES 

3 2-  40) 

37,2400 

TO 

37, 2777 

PARAGRAPH 

u 

215 

ROPE 

MODULE 

6 , 

SIDE 

B, 

SENSE 

LINE 

SET 

3 

(W  IR  ES 

33-  48 ) 

37,3000 

TC 

37,3377 

PARAGRAPH 

tf 

216 

ROPE 

MODULE 

6, 

SIDE 

A , 

SENSE 

LINE 

SET 

4 

(WIRES 

49-  6^ ) 

37, 34CC 

TO 

37,3777 

PARAGRAPH 

tf 

217 

RCPE 

NODULE 

6 , 

S I DE 

B, 

SENSE 

L INE 

SET 

( WIR  ES 

49-  64) 

40,2000 

TC 

40,2377 

PARAGRAPH 

4 

22C 

ROPE 

MODULE 

6 , 

SIDE 

A, 

SENSE 

LINE 

SET 

5 

(WIRES 

65-  80 ) 

40,2400 

TC 

40,2777 

PARAGRAPH 

u 

221 

ROPE 

MODULE 

6, 

SIDE 

B, 

SENSE 

LINE 

SFT 

R 

( WIRES 

6 5-  80) 

40,3000 

TO 

40, 3377 

PARAGRAPH 

4 

222 

RCPE 

MODULE 

6, 

SIDE 

A, 

SENSE 

L INE 

SFT 

6 

(WIRES 

81-  96  ) 

40,3400 

TC 

40,3777 

PARAGRAPH 

4 

223 

ROPE 

MODULE 

6, 

SIDE 

B, 

SENSE 

LINE 

SET 

6 

(WIRES 

81-  96 ) 

41,2000 

TO 

41,2377 

PARAGRAPH 

4 

224 

ROPE 

MODULE 

6, 

SIDE 

A, 

SENSE 

L INE 

SET 

7 

{ WIRF  S 

97-112) 
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^1,300C 

41.3400 

42.2000 
42, 240C 

42.3000 

42.3400 

43.2000 
43,2400 

43.3000 

43.3400 


10  41,3377 
TO  41, 3777 
TC  42,2377 
10  42,2777 
TO  42,3377 
1C  42,3777 
TO  43, 2377 
TC  43,2777 
10  43,3377 
TO  43, 3777 


PARAGRAPH  U 225 
PARAGRAPH  H 226 
PARAGRAPH  # 227 
PARAGRAPH  U 230 
PARAGRAPH  u 231 
PARAGRAPH  fl  232 
paragraph  U 233 
PARAGRAPH  « 234 
PARAGRAPH  tf  235 
PARAGRAPH  n 236 
PARAGRAPH  # 237 


ROPE 

ROPE 

ROPE 

ROPE 

RCPE 

ROPE 

RCPE 

ROPE 

ROPE 

ROPE 

ROPE 


MODULE  6, 
MODULE  6, 
MODULE  6, 
MODULE  6, 
MODULE  6, 
MODULE  6, 
MODULE  6, 
MODULE  6, 
MODULE  6, 
MODULE  6, 
MODULE  6, 


SIDE  6, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  e, 
SIDE  A, 
SIDE  B, 
SIDE  A, 
SIDE  B , 
SIDE  A, 
SIDE  0, 


SENSE 

SENSE 

SENSE 

SENSE 

SENSE 

SENSE 

SENSE 

SENSE 

SENSE 

SENSE 

SENSE 


LINE  SET  7 
LINE  SFT  8 
LINE  SET  8 
LINE  SET  9 
L INE  SET  9 
LINE  SET  in 
LINF  SET  10 
L INE  SET  11 
LINE  SET  11 
LINE  SET  12 
LINE  SFT  12 


(WIRES 
(WIRES 
(WIRES 
(WIRES 
(WIRES 
(WIRES 
( WIRES 
(W  IRES 
(WIRES 
(WIRES 
(W  IP  ES 


97-112  ) 
Il?-I2e> 
113-128 ) 
129-144 ) 
129-144  ) 
145-160 ) 
145-16CI 
161-176J 
161-176  I 
177-1921 
177-192  » 
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4000 

4010 

4020 

4030 


00004 
52011 
52011  ' 
52011 


34054 

00006 

34064 

34061 


1 

1 

1 


56006  1 
31264  0 
S60C6  1 
56O06  1 


12665 

52006 

I2C0C 

12332 


1 

0 

1 

0 


52C11 

52011 

52011 

52011 


0 

0 

0 

0 


00006  1 
34057  1 
34060  0 
34060  0 


34056  0 
56006  1 
56006  1 
56006  1 


52006  0 
13410  0 
13253  1 
13276  0 


4040  52011  0 
4050  52011  0 
4060  C:  10100  1 


34062  I 
34065  0 
163  07  0 


56CC6  1 
56006  1 
12100  0 


C: 


13505  0 
12302  0 
52107  0 


52011  0 34063  0 
12103  0 C : 02117  1 
14106  0 C:  22107  i 


56006  1 
C t 36106  0 
C : 04025  I 


13157  0 
C:  02103  1 
C;  10003  0 


4070 


14031  0 


20033  0 C:  24017 


C:  30036 


34034  1 C:  40023 


44035  1 C:  50037  0 


4100  C : 54000  0 
4110  00006  1 
4120  14103  0 
413C  04132  0 


C 


; 60000  I 
14115  1 
00006  1 
31017  0 


00004  0 
00006  I 
00003  1 
54023  1 


00006  1 
00004  0 
00C02  0 
30023  0 


00004  0 
54001  1 
34144  1 
04616  1 


54001  1 
44733  0 
71^21  1 


00nn6  1 06004  0 
60001  C 00006  1 
00006  1 14131  1 
34755  1 55012  1 


4140 

4150 

4160 

4170 


31021  0 
04616  1 
61C11  0 
34201  0 


C4255  1 
62341  0 
10000  0 
56U06  1 


04143  n 
04635  0 
00002  0 
00006  I 


05155  0 
62002  i 
34753  1 
04C07  1 


37600  0 
22007  0 
60002  0 
55037  0 


04364  1 
54123  0 
55036  1 
34201  0 


41040  0 
34736  1 
23021  0 
00006  1 


55012  1 
71020  0 
04204  0 
01007  1 


4200 
4210 
42  2 0 
4230 


02000  0 C:  62101  0 
04220  0 04224  1 
11041  1 04227  1 
31206  1 34201  0 


53037  0 
30001  0 
00002  0 
00006  1 


05165  0 34735  1 
75012  0 60004  o 
04227  1 11042  1 
01007  1 34242  1 


55020  0 
55041  1 
04227  1 
55012  1 


00002  0 
05133  0 
00002  0 
44360  1 


22002  0 
05155  0 
05624  1 
54776  0 


4240 

425C 

4260 

4270 


04635  0 
44360  1 
71020  0 
22002  0 


61504  1 C:  00042  I 
54776  0 04635  0 
6101  I 0 lOOOC  0 
34302  1 560C6  1 


34201  0 
61476  0 
00102  0 
00006  1 


00006  1 
00041  1 
24002  0 
04007  1 


01007  1 
74757  1 
10123  O 
52131  0 


34254  0 55012  1 
‘^4123  0 34736  1 
14270  1 OOOOZ  0 
34201  0 00006  1 


4300  01007  1 
4310  00002  0 
4320  C:  00011  1 
4330  00C02  0 


03550  1 
11016  1 
00004  0 
54022  0 


60101  1 55016  0 54003  0 74357  0 
14304  0 54003  0 74357  0 65007  0 
54020  I 4002C  1 4C020  1 40020  1 


65007  0 54145  0 
00002  0 C:  00016  0 
40020  1 56020  0 


40022  0 40022  0 


40022  0 


40022  0 


56022  1 0000?  0 


4340 

4350 

4360 

4370 


60000  I 
C;  76000  0 
C;  00023  0 
44745  1 


60000  1 
05072  1 
C:  00021  1 
0noO6  1 


60000  1 
05203  0 
C : 00025  0 
03011  1 


60000  1 
05261  1 
00012  I 
00C02  0 


60000  1 00002  0 

05105  0 C : 30000  1 

34745  0 00006  I 

34747  I 00006  1 


00037  0 C:  01740  0 
03777  0 C : 00377  1 
05011  1 00002  0 
050J.1  1 00002  0 
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OCTAL  LISTING  FOR  PARAGRAPH  ft  Oil,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  OR  "C"  (CONSTANTS) 


^AOO  00006 
-^AlO  2615A 
4420  17313 
4430  00006 


1 30025  0 

0 54007  1 

0 14^*17  0 

1 05011  I 


52014  0 
00002  0 
44755  0 
00002  0 


00002  0 
54162  0 
54154  0 
44746  1 


C0CO6  1 
00O02  0 
54155  1 

rcno6  1 


30156  0 20156  1 60154  1 
54135  1 lOOOO  0 30135  0 
54156  1 00002  0 34746  0 
C3011  1 00002  0 44444  0 


4440 
44  50 
446C 
4470 


60C02  0 
71020  0 
54144  I 
34755  1 


60004  0 
61011  0 
44736  0 
57C42  0 


C4635  0 
10000  0 
00004  0 
05137  1 


14455  0 
71020  0 
00003  1 


02003  0 
14164  1 
55720  0 
44747  0 


22007  0 
24002  0 
11042  1 
O0006  1 


54123  0 
14437  1 
04470  0 
03011  1 


34736  1 
56002  0 
04473  0 
34755  1 


4500 

4510 

4520 

4530 


55011  1 
55011  1 
00006  1 
52062  1 


00144  0 56002  0 
00144  0 00006  1 
66744  0 16742  1 
22002  0 34740  0 


O0006  1 
70110  0 


11042 

14516 

50002 

10000 


1 

0 

0 

0 


04507  1 
40000  0 
50000  1 
14550  1 


04473  0 34755  1 
50C02  0 60000  1 
30001  0 24002  0 
30061  0 045)2  0 


4540 

4550 

456C 

4570 


66161  1 
34563  0 
50001  0 
34744  I 


COOOl  0 
60062  0 
OUOOl  0 
54001  1 


34562 

04512 

00765 

34615 


1 

0 

0 

1 


60062  0 
C;  65673  0 
C;  16450  1 
70110  0 


04512  C C:  64420  0 
00001  0 30061  0 
34753  1 71300  1 
00006  1 14601  0 


00001  0 04560  0 
04512  0 C:  51615  1 
10000  0 00002  0 
34750  ) 70110  0 


4600 

4610 

4620 

4630 


10000  0 
06001  0 
30C00  1 
02000  0 


30001  0 
74733  0 
24302  0 
56134  1 


61035  n 
64735  ) 
54001  1 
56004  0 


70001  1 
55035  1 
22C04  0 
56134  1 


CCC06  1 
00002  0 
75012  0 
00133  n 


16745  0 
IC»10  2 n 
56002  0 
56002  0 


31035  0 
52134  0 
52134  0 
50000  1 


00006  1 
50002  0 
50002  0 
30000  ) 


4640 

4650 

4660 

4670 


54004  1 
00002  0 
00004  0 
00003  1 


75C12  0 
54135  1 
00006  1 
54004  1 


560C2  0 
56004  0 
01007  1 
30135  0 


50002  0 
00006  1 
50001  0 
00002  0 


12000 

04007 

32000 

52073 


1 

1 

0 

1 


35012  1 70133  1 60134  1 
56135  0 75012  0 56001  0 
56135  0 00006  1 01007  1 
50002  0 30000  ) 24002  0 


470C 

4710 

4720 

4730 


54001  1 
56004  0 
50002  0 
01007  1 


22004  0 
56073  0 
30010  1 
00002  0 


75012  0 
00072  1 
54C04  1 


56002  0 52073  1 
54164  0 34744  1 
75C12  C 56002  C 
37777  1 C:  57777  1 


50002  O 
54023  1 
56164  1 
40000  r 


02000  0 56073  0 
30006  I 54165  1 
146^3  0 00006  1 
20000  0 C : lOOOO  0 


47  40 
47  50 
4760 
47  70 


C:  04000  0 
C : 00010  0 
C:  00013  0 
C:  00046  0 


C;  02000  0 
C:  00004  0 
C:  00015  0 
C:  00050  1 


C:  01000  0 
C:  00002  0 
C:  00017  1 
C:  00055  1 


C:  00400  0 
C:  00001  0 
C:  00030  1 
C:  00060  1 


C:  00200  0 
C;  77777  0 
C:  00033  1 
C ; 00062  0 


C : 00100  0 
C : 00000  1 
C:  00035  1 
C : 00120  1 


C:  00040  0 
C : 0000  5 I 
C:  00032  0 
C:  0014C  1 


C:  00020  0 
C:  00007  0 
C:  00045  0 
C:  00144  0 


GAP:  ASSEf'BLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  CEC»  19,196' 


PAGE  1585 


OCTAL  LISTING  FOR  PARAGRAPH  U 012,  kvlTh  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3''  DENOTES  UNUSED  FIXFO  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OB  "C"  (CONSTANTS) 


5000 
50 1C 
5020 
5030 


C:  00310  0 
C : aiA26  0 
C:  06000  1 
C:  17770  1 


C: 

C: 

C: 

C: 


00401  1 
31776  C 
07COO  0 
21000  1 


C:  00454  1 
C:  01777  ’ 
C : 11000  1 
64736  1 


C:  C0620  0 
C:  02177  I 
C : 13000  0 
55Q75  0 


C:  CC777  0 
C:  02400  1 
C:  14000  1 
15036  0 


C : 01124  1 
C:  03000  1 
C : 15000  0 
41075  0 


C : 01211  1 
C : 03400  0 
C:  16000  0 
6O000  1 


C:  01400  1 
C : 05000  1 
C:  1700C  1 
55075  0 


5040 

5050 

5060 

5070 


15051  1 
15067  I 
71076  0 
4^734  1 


57C75  1 
00006  1 
67722  I 
OOC02  0 


51075  1 64734  0 
71075  0 55076  0 
00006  1 71075  0 
C0004  0 65164  1 


40''00  0 61075  1 
00006  1 75005  0 
20001  1 55075  O 
54063  0 00006  1 


55075  0 15051  1 
67742  1 00006  1 
rOOO?  0 50000  1 
50002  0 30001  0 


5100 

5110 

5120 

6130 


52066  0 
50002  0 
56002  0 
35163  0 


35163  0 
30101  0 
15112  I 
54006  0 


56004  0 
52066  0 
22002  0 
12706  0 


54061  I 
35163  0 
35163  0 
54164  0 


12626  0 
56004  0 
56006  1 
35163  C 


00004  0 
12602  O 
12707  1 
54004  1 


54063  0 
560C2  0 
40164  0 
12777  0 


00006  1 
67751  0 
54001  1 
00004  0 


5140 

5150 

516C 

5170 


54065  0 
35163  0 
30C61  0 
54006  0 


44752  1 26CC2  1 
56706  1 54165  1 
54004  1 16744  I 
00001  0 C : 77677  1 


35163  0 56004  0 13024  0 
30002  0 13073  1 35163  0 
02602  1 C:  00110  I 56001  0 
00004  0 54001  1 34733  1 


0OO04  0 
54004  1 
00006  1 
26002  1 


54063  0 
13104  0 
01007  1 
30006  1 


5200 

5210 

5220 

5230 


00006  I 
30001  0 
02063  0 
04007  1 


74307  1 
54063  0 
50002  0 
54301  1 


56001  0 
35220  1 
30000  1 
35235  0 


00004  0 
56006  1 
24C02  0 
54061  1 


56CC2  0 
13232  0 
56002  0 
15212  1 


54061  1 
52062  1 
54063  0 
I 5257  0 


00006  1 50061  0 
64752  0 52006  0 
30006  1 00006  1 
72537  0 C : 73714  1 


5240 

5250 

5260 

5270 


10076  1 
15256  1 
C5240  1 
00006  1 


15261  0 
37726  0 
10332  1 
22012  1 


15261  0 
05072  1 
35220  1 
30016  0 


15244  1 
C:  03563  1 
54006  0 
560C6  1 


11301  0 
C:  14063  1 
13415  0 
52011  0 


15256  1 
15261  0 
30016  0 
00003  1 


15251  0 15256  1 
05221  0 C:  00764  1 
nOf'06  I 01007  1 
50017  1 53153  0 


530C 

5310 

5320 

5330 


C:  20213  0 
50C02  0 


50002  0 
50002  0 
50002  0 
30000  1 


30001  0 
30000  1 
40C00  0 
24002  0 


53147  0 
24002  0 
61C10  1 
54072  0 


CCC06  1 
55010  0 
0CO06  1 
74757  I 


35310  C 52006  0 C:  03453  0 
35320  0 22006  1 14640  0 
16744  1 16742  1 00004  0 
60000  1 54071  0 30072  1 


5340 
5350 
5360 
53  70 


75030  0 
24002  0 
54065  0 
22073  0 


00006  1 
54065  0 
34753  1 
22006  1 


74740  1 56072  1 
15363  0 00004  0 
54066  0 00006  1 


0 

0 


35367  0 


54066  0 50002  0 30000  1 
30000  1 24002  O 00004  0 
52006  0 C:  02224  1 C:  20103  1 


22072  0 75024  0 


10000  0 17753  0 3O062  0 74745  1 


gap:  assemble  revision  131  OF  A6C  PROGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  CECo  19,1969 


PAGE  1506 


OCTAL  LISTING  FOR  PARAGRAPH  « 013,  WITH  PARITY  BIT  IN  BINARY  AT  Tl-F  RIGHT  OF  EACH  WORD,  "3”  DENOTES  UNLSEO  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


10000  0 
15A27  1 
22073  0 
50ro2  0 


15A23  0 
30002  0 
520C6  C 
30001  0 


C 


50061 

54063 

02312 

52064 


0 

0 

0 

1 


31051  1 
30006  1 
50002  0 
34752  0 


5407C  1 
00006  1 
30000  1 
26002  1 


30062  0 7474^  0 
04007  1 54064  1 
24002  0 15404  0 
15417  1 22706  0 


lOOOO  0 
35422  0 
00006  1 
22006  1 


5440 

5450 

546C 


5470 


50000  1 
00006  1 
54032  I 
26160  i 


54033  0 
00002  0 


54034 

C4635 


1 

0 

1 

0 


22706 

22706 

00002 

20326 


0 

0 

0 

1 


54162  0 
34755  I 


22706 

22706 

40160 

55043 


0 

0 

1 

0 


22006  1 
13710  0 
70162  0 
00004  0 


22706 

34755 

50161 

44753 


0 

1 

1 

0 


5500 

5510 

5520 

5530 


70100  1 
04001  1 
70001  1 
27777  0 


54130  1 
50061  0 
15511  0 
54001  1 


00003  1 
54074  D 
64753  I 
34755  1 


O0002  0 
22063  1 
C0004  0 
00006  1 


30002  0 
00003  1 
54063  0 
10C61  1 


05522  1 
OOOOJ,  0 
34762  0 
52062  1 


40000  O 
30002  o 
54061  1 
50061  0 


00006  1 
05522  1 
50063  1 
30074  1 


5540 

5550 

5560 

5570 


10061  I 
30002  0 


5C062  0 
30000  1 
15545  1 
55363  1 


44735  0 
540CI  1 
16744  1 
50002  0 


00002  0 
30061  0 
44747  0 
30000  1 


00004  0 
50002  0 
71043  0 
54001  1 


54061  1 
60001  0 
55043  0 
30006  1 


50002  0 
50000  1 
05155  0 
00006  1 


60000  1 
22000  1 
00004  0 
04007  1 


5600 

5610 

5620 

563C 


55364  0 
10376  1 
56061  0 
30000  1 


30002  0 54061  1 
15614  0 30001  0 
00003  1 50000  1 
05574  1 C:  40400  1 


00001  0 
00004  0 


00004  0 
34752  0 


30001  0 
*•1035  1 

30002  O 
60005  1 


55363  I 
54017  0 


15614  0 
27035  I 
50002  0 
50017  1 


5640 

5650 

5660 

567C 


04635  0 
C:  77770  1 
30103  0 
15634  1 


C:  12763  C 
34765  ) 
74746  1 
35733  0 


OOQC4  0 
54001  1 
10000  0 
04727  1 


30002  0 
40000  0 
15671  0 
04616  1 


C 


04616  1 C: 
57322  0 


50002  0 30000  1 

00004  0 04616  1 C: 

12650  1 04616  1 C : 

00004  0 30002  0 


12641  1 
05644  1 


570C  C : 21103  0 
5710  35732  I 
5720  35731  I 
573C  15601  I 


00004  0 
54061  1 
15711  I 
15650  0 


30002  0 05571  1 
50002  0 30000  1 
00004  0 53364  0 
15632  1 C:  56067  0 


C0217  0 
54001  1 
00004  0 
00004  0 


01363  0 
15603  0 
50002  0 
54001  1 


O00C4  0 
00004  0 
30000  1 
30002  0 


53364  0 
53364  0 
54001  1 
55363  1 


5740 

5750 

5760 

5770 


05575  0 C:  00014  1 
54001  1 45764  0 
31474  1 54001  1 


01363 

00006 

35764 


0 

1 

I 


15752  0 
3 


00006  1 
60001  0 
00314  1 

a 


01006  0 00002  0 

00006  1 01005  0 

05765  0 C:  05766  0 

a a 


31473 
00002 
CKSM  71575 


gap:  ASSE^'BLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  0Y  NASA  2021112-091 


17:53  CECo  19,1969 


PAGE  1587 


OCTAL  LISTING  FOR  PARAGRAPH  H 014,  VsITh  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  OENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "!'*  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C»  (CONSTANTS) 


6000 

6010 

6020 

603C 


C:  00464  1 
C : 00031  0 
00002  0 
C:  03045  0 


34764  0 
46021  0 
C:  4100C  1 
C:  66107  1 


54001  1 
00004  0 
37727  1 
36041  1 


40000  0 
70110  0 
56004  0 
00004  0 


52760  1 
54110  0 
12022  1 
22000  1 


04635  0 
44752  1 
00006  1 
50002  0 


00006  1 
36031  0 
30000  1 


C: 


00024  1 
03012  1 
15165  1 
22006  1 


604C 
6050 
606C 
60  70 


54115  0 
52155  1 
10067  I 


34755  1 
15126  0 


00003  1 
16073  1 
54156  1 
24164  1 


00006  1 
22006  1 
54163  1 
50164  1 


22164  1 
16045  1 
30165  0 
30000  1 


30006  1 
00006  1 
54006  0 
10000  0 


54165  1 
50116  1 
1002?  1 
16365  0 


74735  0 
30001  0 
16102  0 
C:  00177  0 


6100  54023 
6110  16151 
6120  66254 
6130  00006 


1 76077  0 

0 50164  1 

1 10000  0 

1 66141  0 


54020  1 
40001  1 
67746  0 
75012  0 


10020  1 
10000  0 
16130  1 
65012  1 


16252  0 16746  0 74753  0 
16220  0 C:  77773  1 24^64  1 
30120  1 26116  0 50020  0 
56116  1 60115  1 540C4  1 


lOOOO  0 
54116  0 
76276  0 
50020  0 


6140 
61  50 
6160 
6170 


76276  0 
54020  I 
16161  0 
40046  1 


74357  0 
30120  1 
54116  0 
26116  0 


6*^00  7 0 
54130  1 
77745  1 
77747  0 


56116  ) 
24164  1 
00006  1 
00006  1 


54003  0 
50164  1 
16167  0 
16207  0 


50020  0 
40000  0 
30115  1 
77745  1 


76276  n 
10000  0 
26116  O 
00006  1 


37736  ] 
24130  0 
50130  0 
16211  1 


6200 

6210 

6220 

6230 


30116  1 
16215  0 
34360  0 
50000  1 


54J(;4  1 
35007  0 
70020  1 
46247  1 


75012  0 
56116  1 
66225  1 
16240  0 


64741  1 
54003  0 
lOOOO  0 
50163  0 


54116  0 
74357  0 
16236  1 
46245  0 


50020  0 
26116  0 
C:  77767  1 
16240  0 


36276  1 
50020  C 
66115  1 
50163  0 


30120  I 
36276  1 
10000  0 
46247  1 


6240 
62  50 
626C 
6270 


26166  1 
00003  1 
54117  1 
50000  1 


54116  0 
00006  1 
35C13  0 
12000  1 


50020  0 
1CC20  1 
54004  1 
10163  1 


76276  0 
16266  1 
70020  ] 
12017  1 


C:  00002  0 
C : 77722  C 
50000  I 
12017  1 


00006  1 C: 

24164  ] 

16337  1 
12121  0 C: 


00006  1 C:  00002  0 
50164  1 30000  1 
‘=4(?04  1 10020  1 
00122  0 16510  1 


6300 

6310 

6320 

6330 


17074  1 17660  I 
16623  1 16526  1 
17602  0 17606  1 
17430  0 17010  0 


17404  1 16706  1 
17337  0 16562  1 
17624  1 16754  0 


16473  0 16055  0 
16631  1 17342  J 
16752  0 170A1  1 


17627  1 16504  ) 
17621  1 17577  1 
1733^  0 17463  0 


17065  1 17000  1 


16334  1 17575  0 17616  0 12345  0 


6340  12352 
6350  12412 
6360  54004 
6370  77725 


0 12355  1 

0 12^70  1 

1 34164  1 

1 :f006  1 


12361  0 
12475  1 
50164  1 
74747  0 


12365  1 12373  0 12407  1 12416  1 12401  1 
12450  0 12510  0 12517  1 12460  0 30165  0 
40000  0 67752  0 54116  0 74356  1 56116  1 
50000  1 16375  1 06425  1 16064  1 06417  0 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARV  6Y  NASA  2021112-09] 


17:53  DECo  19,1969 


PAGE  1588 


OCTAL  LISTING  FOR  PARAGRAPH  ti  015,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  FACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "1"  (INTERPRETIVE  OPERATOR  WORDS  I OR  "C  (CONSTANTS! 


6A00 
641C 
64  20 
6430 


16064  1 
16466  1 
40046  I 
30120  1 


16422  0 
06425  1 
16424  1. 
16436  1 


16064  1 
16471  1 
50120  1 
35007  0 


06425  1 16463  1 06425  1 
06425  1 34766  1 54020  1 
40047  0 26116  0 40116  0 
56116  1 54003  C 74357  0 


64772  1 
26116  0 


06425  1 
50120  1 
10000  0 
00006  1 


6440 

6450 

646C 

6&7C 


30155  0 
50116  1 
50116  1 
16111  1 


50116  1 
52003  0 
54002  1 
36112  0 


52001  1 
00006  1 
00002  0 
) 6J  50  1 


10163  1 
30162  1 
37735  1 
50116  1 


16457  0 
50116  1 
54C20  1 
30002  0 


00002  0 
52005  0 
16111  1 
541  56  1 


00006  1 
00002  0 
34735  1 
00006  1 


30160  0 
30156  0 
54020  1 
50116  1 


6500 

651C 

6520 

6530 


30001  0 
C0006  I 
00006  1 
30001  0 


52155  1 
50116  1 
50116  1 
52155  1 


34753  1 
30001  0 
300C5  I 
50166  0 


16C63  0 
52155  1 
52162  0 
52001  1 


22007  0 
00006  1 
44753  0 
50163  0 


50116  1 
50116  1 
16063  0 
36247  0 


30000  1 
30003  1 
0OO06  1 
26166  1 


16060  0 
52160  1 
50116  1 
10163  I 


6540 

6550 

6560 

6570 


16555  0 
50166  0 
53777  0 
50163  0 


16553 

51777 

16064 

36247 


C 

1 

1 

0 


00006  1 
26166  1 


50116  1 
10163  1 


52160  I 
16064  1 
30001  0 
16613  1 


50166  0 51775  0 52162  0 
54163  1 56156  n 50166  0 
52155  1 50166  0 52001  1 
16514  0 0O006  1 50116  1 


6600 

6610 

6620 

663C 


30003  1 52160  I 
5C166  0 51777  1 
50166  0 53777  0 
16064  1 24164  1 


50166  0 51775  0 
16064  1 00006  1 
16520  1 24164  1 
50164  1 30000  1 


C0006  1 50116  1 
50116  1 30003  ] 
5C164  1 30000  1 
50116  1 60000  1 


30nC5  I 52162  0 
52160  1 30156  0 
50116  1 54000  0 
54004  I 75012  0 


6640  50000  1 32C00  0 
665C  54052  1 30117  0 
666C  54004  1 75C12  0 
6670  30117  0 16700  1 


54117  1 30165  0 74350  1 
77745  I 00006  1 16665  0 
64741  1 54164  0 16045  1 
30120  1 60117  0 50000  1 


64350  0 60164  1 50120  1 
30165  0 54006  0 30117  0 
30117  C 66254  1 10000  0 
30000  1 54117  1 16652  1 


67C0 

6710 

6720 

6720 


30165  0 
16732  0 


74357  0 
60000  1 
54004  1 
16744  1 


50000  1 
54004^  1 
50164  1 
10155  I 


31400  1 
75012  0 
30001  0 
00002  0 


54117  1 
50000  1 
54117  1 
16736  1 


16652  1 50164  1 3C001  0 
32000  0 54117  1 16652  1 
16652  1 10154  0 00002  0 
16744  1 10156  1 00002  0 


6740 

6750 

6760 

6770 


16742  1 16744  1 
50164  1 OOOOl  0 
00003  1 20160  1 
20162  0 T0006  1 


50002  0 
34735  I 
00006  1 
16774  1 


OOOOl  0 
16755  1 
16765  1 
07C14  0 


50002  0 00002  0 30165  0 
34355  0 26116  0 00006  1 
07017  0 00006  1 50U6  1 
00006  1 50116  1 OOOOl  0 


54006  0 
50116  1 
00005  1 
17003  I 
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OCTAL  LISTING  FOR  PARAGRAPH  # 016,  wITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  i^ORO,  "3  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


7000 

7010 

7020 

7030 


00006  1 
00006  1 
36250  0 
26155  1 


560C1  0 
5A007  1 


30001  ^ 
40001  1 
50CC0  1 
3A755  ] 


20155  1 
17003  1 
4473^  1 
60130  0 


00006  1 
54001  1 
54130  I 
50001  0 


16064  ] 
34756  1 
00006  1 
26154  0 


07022  0 
17021  1 
24000  1 
5^007  1 


16064  1 
54001  I 
50001  0 
00002  0 


7040 

7050 

706C 

7070 


17155  0 
00006  1 
40001  1 
52155  I 


00006  1 50116  1 
17053  I 07017  0 
20162  0 00006  1 
00006  1 40001  1 


30003  1 52160  1 00006  I 
00006  1 50116  1 30005  1 
17065  1 07C14  0 00006  1 
17003  1 00006  I 50116  1 


40001  1 
52162  0 
50116  1 
30002  O 


20160  1 
00006  I 
30001  0 
20156  1 


7100 

7110 

7120 

7130 


50116  I 
24002  0 
00006  1 
56135  0 


60000  1 
54116  0 
70156  1 
00006  I 


60154  1 
50116  I 
56156  0 
70135  1 


54154  0 
30001  0 
00006  1 
20156  1 


16064  1 
54156  1 
70154  0 
56154  1 


17006  1 
34755  1 
20156  1 
00006  1 


50002  0 
56155  0 
50116  I 
70135  1 


30000  1 
54135  1 
30000  1 
20155  I 


7140 

7150 

716C 

7170 


00002  0 
54155  1 
54136  1 
54132  0 


34755  1 
0('002  0 
00006  1 
20136  0 


54163  1 
60154  1 
22137  1 
26116  0 


56156  0 
54154  0 
07112  1 
07112  1 


60000  I 
00002  0 
52160  1 
52156  1 


54001  1 
54121  1 
52155  1 
20132  0 


00002  0 
00002  0 
52131  0 
60154  1 


60155  0 
34752  0 
30156  0 
60130  0 


7200 

7210 

7220 

7230 


54130  1 
52132  0 
00006  I 
60000  1 


17203  0 
20156  1 
22141  0 
60002  0 


54121  1 
60154  1 
54117  1 
54117  1 


52162  0 52155  I 
60130  0 54154  0 
22140  1 17235  0 
64756  1 54141  1 


30136  0 
00137  1 
50002  0 
36276  1 


26116  0 
07022  0 
30000  1 
54116  0 


54140  0 
00006  1 


7240 

7250 

7260 

7270 


501 17  0 
07112  1 
34755  1 
34733  1 


30004  0 
00006  1 
54156  1 
540C2  1 


52155  1 
50117  0 
22002  0 
00006  1 


52123  0 
30002  0 
06726  1 
24000  1 


17250  0 
20155  1 
17270  1 
60156  0 


54140  O 
10140  0 
17310  0 
54156  I 


44752  1 
17245  1 
44733  0 
34755  1 


26117  1 
00141  0 
17271  0 
60002  0 


7300 

7310 

7320 

7330 


60155  0 
54156  1 
17131  1 
26154  0 


54155  1 
17305  1 
54135  1 
00006  1 


34755  1 60002  0 
54135  1 00006  1 
0C0C6  1 70155  1 
30155  0 00002  0 


6C154  1 54154  0 
70156  1 54156  1 
52155  1 00006  1 
07157  0 34755  1 


54155  1 OOOOl  0 
34755  1 56155  0 
70135  1 30001  0 
16063  0 34752  0 


7340 
73  50 
7360 
7370 


54140  0 
00006  I 
30127.  0 
52160  1 


17345  0 
30123  1 
52162  0 
52127  1 


44363  I 
52155  1 
30140  1 
52162  0 


54140 

52134 

26116 

30140 


0 

0 

0 

1 


07161  0 
26116  0 


54136  1 
30125  1 
52123  0 
07161  0 


07535  0 07161  0 
52160  1 00006  1 
523  55  1 52125  0 
52134  0 52155  1 
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OCTAL  LISTING  FCR  PARAGRAPH  H 017,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  OR  "C"  (CONSTANTS! 


7A00 

7^10 

7420 

7430 


52162  0 
07143  0 
52162  0 
07157  0 


52125  0 
52360  1 
07112  1 
4475 1 1 


52160  I 
52155  1 
07143  0 
26116  0 


16064  1 
52160  1 
52155  1 
00006  1 


10163  1 
07112  1 
52162  0 
30155  0 


17433  0 
07143  0 
52160  1 
52160  1 


17433  0 
52162  0 
52155  1 
07112  1 


07112  1 
52155  1 
16064  1 
07143  0 


7440 

7450 

7460 

747C 


34752  0 
34752  0 
52162  0 
00006  1 


26116  0 
26116  0 
52155  1 
40160  1 


00006  1 
52160  1 
16524  0 
52155  I 


30160  0 52155  1 
52155  1 52160  1 
00006  1 3C162  1 
52125  0 07112  I 


52162  0 07112  1 
07112  1 C7143  0 
52155  1 52123  0 
34752  0 26116  0 


07143  0 
52155  1 
07112  1 
00006  1 


7500 

7510 

7520 

7530 


40162  0 
07112  1 
17522  I 
17532  0 


07014  C 
07  017  0 


52162  0 
26116  0 
07112  1 
07112  1 


52125  0 
52127  1 


00006  1 
40123  0 
52160  1 
17C03  1 


52155  1 
00006  1 


52155  1 
20162  0 
20160  1 
30155  0 


00006  1 
52123  0 


7540 

7550 

7560 

7570 


OOC06  1 
17554  0 
17562  0 
17572  1 


30160  0 
00002  0 
24001  0 
24001  0 


52125  0 
17564  0 
56001  0 
56001  0 


00006  1 
00002  0 
00002  0 
40000  0 


30162  1 
56001  0 
56001  0 
00002  0 


52127  1 
64736  1 
64735  1 
07112  1 


00002  0 
64736  1 
67752  0 
16n64  1 


10000  0 
54000  0 
54000  0 
07112  1 


7600 

7610 

7620 

763C 


07142  1 
30001  0 
16066  0 
17641  1 


16064  1 
52155  1 
34755  1 
17641  1 


00006  1 
52131  0 
54004  1 
00006  1 


50116  1 
34755  1 
12172  0 
50116  1 


30001  0 
54004  1 
36077  1 
30C01  0 


17612  1 
12353  1 
54004  1 
52131  0 


P00C6  3 
30116  1 
12214  n 
34755  1 


50116  1 
54166  1 
10163  1 
54004  1 


7640 

7650 

7660 

7670 


12654  0 
52162  0 
50116  I 
16064  1 


00006  1 
44753  0 
lOOOO  0 
17673  0 


16064  1 
16C64  1 


30003  1 
0CCO6  1 
17665  1 
00006  1 


17673  0 
40155  1 


00006  1 
30001  0 
50116  1 
52155  1 


Snilf  T 30005  1 
52155  1 17635  1 
inooi  1 1606^  1 
1016?  1 17710  1 


7700  17710  I 
7710  40156  1 
7720  C:  27000  1 
7730  C:  37000  0 


00006  1 
54156  1 
C:  31OO0  0 
C:  37401  0 


40160  1 
16064  1 
C:  21103  1 
C:  37766  1 


52160  1 00006  1 
22000  1 C:  23000  0 
32000  0 C : 33000  I 
37774  1 C:  37776  0 


40162  0 
C:  24000  1 


52162  0 
25000  0 


C:  34000  o 
C : 40014  0 


C:  35000  I 
C : 4001 5 T 


16064  1 
C;  26000  0 
C:  36000  1 
C:  40040  1 


7740 
77  50 
7760 


C:  40200  1 
C:  77774  0 
07757  0 


C;  57777  1 
C:  77775  1 
C:  07761  0 


C : 65552  0 C : 70000  0 
C:  77776  1 74740  1 
C:  07762  0 CKSM  70442  1 


C:  73777  1 
10000  0 
a 


7770  a 


a 


a 


74000  1 
15423  0 


74056  1 C:  77700  0 
15402  0 00006  1 


3 

a 


a 


a 

a 
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OCTAL  LISTING  FCR  PARAGRAPH  « 020t 


HITF  PARITY  PIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  ViORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARB  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


00,2000 

00,2010 

00,2020 

00,2030 


13207 

13232 

70020 

10020 


13530  0 
13023  1 
54021  0 
02050  0 


13517  0 
13176  0 
10020  1 
16063  0 


13610  1 13612  0 
13245  0 16357  1 
12101  1 C:  00024  1 
30135  0 00006  1 


50021  1 
70156  1 


12116  1 
13247  1 
34736  1 
54156  1 


17673  0 
36245  1 
54135  1 
30135  0 


CC,2040 

00,2050 

OC,206C 

00,2070 


00006  1 
30156  0 
60000  1 
70135  I 


70154  0 
00006  1 
54156  1 
20155  J 


52155  1 30135  0 
70135  1 56155  0 
12064  0 26155  1 
00002  0 30135  0 


00006  1 70001  1 
00006  1 70135  1 
34755  1 54156  1 
00006  1 701S5  1 


20)56  1 16064  1 
56155  0 60001  0 
56154  1 00006  1 
54155  \ 56001  0 


00,2100 

0C,2110 

00,2)20 

00,2130 


12060  I 
54154  0 
16064  1 
34736  1 


30021  1 
12113  1 
34757  0 
54135  1 


54135  1 
54121  I 
70C20  1 
02073  1 


00C06  1 
10135  1 
54135  1 
52155  1 


30156  0 
12102  1 
10020  1 
5216C  1 


20156  1 
10020  1 
12145  1 
52155  1 


60154  1 60154  1 

07)41  1 16064  1 

C : 00176  1 50135  0 

02073  1 52155  1 


00,2140 
00,21  50 
00,2) 60 
00,217C 


52162  0 
00006  I 
07017  0 
12144  0 


52155  1 02073  1 
12153  0 07022  0 
00006  1 30162  1 
16064  1 54135  1 


17423  1 
00006  1 
20162  0 
06726  1 


54135  1 
30160  0 
00006  1 
12176  1 


00006  1 
20160  1 
12167  1 
12212  0 


30155  0 
00006  1 
07014  n 
07262  0 


20155  1 
12161  1 
10135  1 
30154  1 


00,2200 

00,2210 

00,2220 

00,2230 


12207  1 
54000  0 
70116  0 
76250  1 


24135  0 00C06  1 
12201  1 40135  1 
lOOOO  0 07141  1 
50000  1 12233  0 


30156  0 20156  1 

16626  1 70116  0 


60154  1 
10000  0 


26154  0 60000  1 

12224  0 34742  1 


16064 


54135  1 34744 


000C6 


70116  0 


12332  0 12342 


12336 


1^163  I 12277  0 


00, 2240 
00,2250 
00,2260 
00,2270 


12277  0 
54001  1 
20160  1 
04604  1 


30135  0 
56154  1 
56161  1 
16064  I 


63733  0 
56155  0 
56162  1 
60000  1 


00006  1 
02272  1 
02272  1 
54156  1 


62127  1 
20155  I 
20162  0 
34755  1 


67752  0 
56157  1 
10135  1 
5600)  0 


54135  1 34755  I 
56160  r\  02272  1 
54135  1 12242  0 
00002  0 30135  0 


00,2300 
00, 2310 
00,2320 
00,2330 


65733  0 
54156  1 
07141  1 
12C31  0 


')0006  1 
10135  1 
16064  1 
12033  1 


62322  n 
54135  I 
50135  n 
40135  1 


67752  0 54135  1 
02300  0 C:  22650  1 
34736  I 54135  1 
62126  0 54135  1 


34755  1 
34742  1 
34742  ) 
12236  0 


56154  ) 
70116  0 
70116  O 
42126  1 


56155  0 
lOOOO  0 
lOOOO  0 
60135  0 


00,2340 

00,2350 

00,2360 

00,2370 


40COO  0 
74746  1 
12516  0 
12413  1 


12363  1 
56131  1 


10163 

12103 

12531 

56130 


i 

0 

0 

0 


12346  0 12346  0 12145  I 40116  0 00006  1 
44753  0 54136  1 54137  O 54140  0 10130  1 
54156  1 07262  0 10)54  0 124)4  0 12371  1 


56155  0 56154  1 10130  1 12422  0 12401  1 
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OCTAL  LISTING  FCR  PARAGRAPH  ti  021,  WITH  PARITY  BIT  IN  BINARY  AT  THF  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  KOROS  ARE  BASIC  INSTRUCTION'S  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


00, 2A20 

00,2A30 


0 

1 


A015A  0 00006  1 
54121  1 06064  0 
2A136  0 10154  0 
12433  0 1606A  1 


62A05 

2A136 

12437 

00006 


1 

0 

I 

1 


24136  0 
4C131  0 
12426  I 
A0155  ) 


34733  1 
12402  1 
12433  0 
52155  I 


54154  0 
000C6  I 
10155  1 
24136  0 


02630  0 
40131  0 
12437  1 
40154  0 


00,2440 

00,2450 

00,2460 

00,2A7C 


67752  0 
60155  0 
54131  0 
00133  0 


60130  0 
5A155  I 
34755  1 
12405  C 


10000  0 
34755  1 
64733  1 
54140  0 


26130  1 
40155  1 


C:  60001  0 
26154  0 
4C154  0 
60131  1 


12446  1 
34736  1 
60130  0 
00006  1 


3A736  1 
60000  1 
lOOCO  0 
62405  1 


60000  1 
60131  1 
12505  I 
12505  1 


00,2500 

00,2510 

00,2520 

00,2530 


00006  1 
12500  1 
40131  0 
12363  1 


24137  1 
52155  I 
00006  1 
10000  0 


00006  1 
50137  1 
62A22  1 
12416  1 


30131  1 
02565  0 
34736  1 
30131  I 


20131  0 
54156  1 
60000  1 
00006  I 


30130  0 
1606A  1 
26131  0 
62416  0 


60000  1 
10000  0 
34755  1 
44736  0 


54000  0 
12422  0 
54130  1 
12524  1 


00,25A0 

00,2550 

00,2560 

00,2570 


22021  1 
20001  1 
20001  1 
52155  1 


00106  1 
20001  1 
20001  1 
00106  1 


74736  0 
20001  1 
20001  1 
10130  1 


56001  0 60021  1 
20001  1 20001  1 
20001  1 52155  1 
52155  1 40154  0 


56001  0 12571  1 20001  1 
20001  1 20001  1 20001  1 
miAO  0 C:  06552  0 12642  1 
00006  1 70131  0 60155  0 


00,2600 

00,2610 

00,2620 

00,2630 


54000  0 
10006  1 
00006  1 
54155  1 


12606  1 
60130  0 
126-^n  1 

10136  1 


000C6  1 
00006  1 
00006  1 
00002  0 


6013C  0 
12616  0 
26154  0 


2A154  I 12610  0 00006  5 62620  1 
00006  1 62624  0 241 5*  1 12625  0 
60130  0 22007  0 00006  1 10130  1 


00002  0 


00002  0 00006  1 4015? 


52155  1 


00,2640 
00,26  50 
00,266C 
00,2670 


3A755  I 
54154  0 
52131  0 
56130  0 


10002  0 
40131  0 
07547  0 
56155  0 


40154  0 60130  0 
60155  0 12624  I 
52131  0 10130  1 
561  5A  1 00006  1 


00006  1 12647  1 
44753  0 54137  0 
12721  0 12667  0 
12676  0 12405  0 


12570  0 3A733  1 
54127  1 03010  0 
12715  1 56131  1 
56160  0 56157  1 


00,2700 
00, 2710 
00,2720 
0C,273C 


00006  1 
10130  1 
2A127  0 
30131  1 


12703  0 
12721  0 
10006  1 
20131  0 


12405  0 
12405  0 
30131  1 
30130  0 


56162  1 
12715  1 
52)34  0 
60000  1 


56161  1 
12405  0 
12732  1 
5AC00  0 


00006  1 
00006  1 
(10006  1 
12725  1 


12710  1 
4013)  0 
24137  1 
0275C  1 


12405  0 
52131  0 
00006  I 
52160  1 


00, 2740 
00,2750 
00,2760 
00,2770 


52155  1 
30127  0 
00002  0 
54140  0 


12763  0 
40154  0 


C2750  1 
10154  0 
00002  0 
60133  0 


52162 

12767 

00006 

10000 


0 

1 

1 

0 


40155  J 
13004  1 


52162 

12763 

52155 

12777 


0 

0 

1 

0 


02750  1 17423  1 
10155  1 12767  1 
24136  0 44753  0 
12405  O 54140  0 
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OCTAL  LISTING  FOR  PARAGRAPH  ft  022,  W IT  I-  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  FACH  RORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  UOROS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS*  OR  "C " (CONSTANTS! 


00,3000 
00,3010 
00, 30  20 
00,3030 


A0155  1 
56C02  0 
075A7  0 
03317  I 


fc013A  1 
523  55  1 
52162  0 
30141  0 


000C6  1 
07547  0 
OOOOO  1 
56121  0 


62405  1 
52155  1 
03010  0 
00006  1 


52155  1 
52160  1 
07535  0 
13036  0 


50137  1 
07547  0 
34755  1 
12405  0 


12565  1 
5216C  1 
56121  0 
00006  1 


52162  0 
54141  1 
30155  0 


00,3040 

00,3050 

00,3060 

00,3070 


50120  1 52043  1 
12405  0 44317  1 
54135  1 30154  1 
54135  1 0O006  1 


03343  0 10154  0 
60135  C 10000  0 
54001  1 34755  1 
30155  0 1 3112  1 


13051  J 54001  1 
40000  0 13133  1 
13112  1 10135  1 
40000  0 5413'^  1 


50120  1 52045  1 
13065  0 44761  1 
13074  0 42024  1 
*0000  0 50000  1 


00,3100  34736  1 
00,311C  60130  0 
00,3120  52131  0 
00,3130  52162  0 


54130  1 
56001  0 
03151  1 
■)315l  1 


00006  1 
50120  1 
52125  0 
17423  1 


52155  1 
54135  1 


56130  0 
44753  0 
52160  1 
34755  1 


00006  1 
54140  0 
03151  1 
56123  1 


7015*  0 
52123  0 
52127  1 
56122  0 


56001  0 
52155  1 
52155  1 
56125  I 


00,3140 

00,3150 

0C,316C 

00,3170 


56124  0 56127  0 
13062  1 10154  0 
13162  0 00002  0 
54136  1 52155  1 


56126  I 
13170  0 
44755  0 
50135  0 


40135  1 
13155  1 
54136  1 
12564  0 


50000  1 
13162  0 
C0Q06  1 
03300  I 


34736  1 
10155  1 
40155  1 
16064  1 


00006  1 
1317(^  O 
50135  0 
10163  1 


70154  0 
00002  0 
12564  0 
13226  0 


00,3200 

00,3210 

00,3220 

00,3230 


13226  0 
10135  1' 
12303  1 
16064  1 


03317  1 
13213  0 
50135  0 
17673  0 


22163  0 
16064  1 
34735  1 
44751  1 


0CC06  1 
63733  0 
54135  1 
26166  1 


30155  0 
00006  1 
34755  1 
00006  1 


50120  1 
63221  0 
12036  1 
50000  1 


52043  I 
22007  0 
06726  1 
30003  1 


03343  0 
22116  1 
16064  1 
52160  I 


00,3240 

00,3250 

00,3260 

00,3270 


00006  1 
30155  0 
16064  1 
51777  1 


50166  0 
50166  0 
30006  1 
1606A  1 


30001  0 
52001  1 
30160  0 
30156  0 


52162  0 
50163  0 
50166  0 
16557  1 


16524  0 
36247  0 
51775  0 
50120  1 


03317  1 
26166  1 
00006  1 
30052  0 


17335  1 
10163  1 
30162  1 
54117  1 


00006  1 
13272  1 
50166  0 
16655  0 


00,3300 

00,3310 

00,3320 

OC,3330 


30155  0 00006  I 
20001  1 20156  1 
22137  1 03300  1 
52156  1 20132  0 


70000  0 54156  1 
56154  I 00006  1 
52160  1 52155  1 
60154  1 60130  0 


34755  1 56155  0 
70000  0 20155  1 
52131  0 301.56  0 
54130  1 133^7  1 


C0006  1 70154  0 
00002  0 00006  1 
54132  0 03300  1 
54121  1 52162  0 


00,3340 

00,3350 

00,3360 

00,3370 


52155  i 
13373  I 
13262  1 
00002  0 


03300  1 
561 56  0 
13376  1 
13376  1 


17210  1 
56155  0 
56155  0 
13453  1 


34755  1 
54154  0 
54154  0 
10000  0 


54135  1 
34757  0 
34757  0 
13402  0 


10154  0 
54135  1 
26135  1 

10155  1 


13405  1 
10154  O 
10154  0 
34755  1 


13351  1 
13405  1 
13405  1 
13453  1 
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GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202U12-C91  17:53  DEC®  10.1969 

OCTAL  LISTING  FOR  PARAGRAPH  023.  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD.  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C’'  (CONSTANTS) 


00,3400 

00.3410 

00,3420 

00,3430 

00,3440 
00,3450 
00  ,3460 
00,3470 

00,3500 

00,3510 

00,3520 

00,3530 


13402  0 
52155  1 
00006  I 
U0006  1 

54131  0 
00006  1 
63502  0 
33007  0 

60154  1 
60000  1 
13523  I 
52155  I 


13452  1 
22021  1 
70154  0 
74736  0 

34755  1 
13455  1 
52155  I 
C0006  I 

26154  0 
54022  0 
13526  1 
20001  I 


52165  1 
00006  1 
62566  0 
26130  I 

56001  0 
34733  I 
22021  1 
70154  0 

24135  0 
10022  0 
13526  1 
5400C  0 


C5716  1 
74736  0 
54130  1 
00006  1 

00006  1 
54154  0 
O0006  1 
62270  0 

00006  1 
10022  0 
00006  1 
13536  0 


C:  21302  0 
52155  1 
30154  1 
74736  0 

10130  1 
54155  I 
74736  0 
13423  0 

30156  0 
13475  0 
40155  1 
C0006  1 


62444  1 
56021  1 
22007  0 
52155  1 

54001  1 
00002  0 
52155  1 
00006  1 

20156  1 
13417  1 
52155  1 
40001  1 


00006  1 
26155  1 
00006  1 
00006  1 

30131  1 
64737  0 
56021  1 
30156  0 

601  54  1 
1347C  0 
34737  0 
52155  1 


63456  0 
3231^  0 
10130  1 
10130  I 

20155  1 
00006  1 
26155  1 

20156  1 

26154  0 
06726  1 
26154  0 
30154  1 


00,3540 
00,3550 
00,3560 
00,  3570 


60000  1 
54154  0 
C : 00003  1 
C:  71471  0 


54001  1 
40155  1 
C:  14441  0 
C : C0236  0 


13553  0 
54155  1 
C:  37325  1 
C : 32757  0 


50000  1 
00006  1 
C:  53250  0 
32470  0 


34735  1 
30155  0 
6C764  I 
07111  I 


60000  1 
52134  0 
C : 12146  1 
00006  1 


00006  1 
03300  1 
C:  21276  ] 
30156  0 


60154  1 
07225  0 
C:  75466  1 
20156  I 


00,3600 
00,3610 
00,3620 
00  ,3630 

00,3640 
00,36  50 
00,366C 
00,3670 


60154  1 
33631  0- 
40155  1 
13721  1 

54154  0 
10135  1 
23630  0 
26756  1 

07111  1 
40155  1 
13652  1 
13637  1 


26154  0 
13613  1 
57155  T 
13707  0 

10136  0 
13714  1 
74721  0 
74037  0 

10136  0 
64737  0 
00006  1 
34737  0 


00006  1 
33713  1 
33734  1 
13642  0 

0OQ06  1 
52155  1 
47775  1 
5764C  1 

00006  1 
52155  1 
13637  1 
13640  1 


30156  C 
5^136  1 
56136  0 
10155  1 

40155  1 
52134  0 
C:  02^40  0 
C : 03046  0 

40155  1 
16064  1 
00006  1 
C:  77763  0 


2C156  1 
06726  1 
54137  0 
34755  1 

64736  1 
52155  1 
C:  20237  0 
C : 07143  0 

64736  1 
50000  1 
30165  0 
13702  0 


60154  1 
13625  1 
44736  0 
13637  1 

52155  1 
07225  0 
C:  75067  1 
C:  7665^  1 

52155  1 
34736  1 
05722  0 
35O00  1 


26154  0 
13731  0 
60154  1 
13642  0 

52134  0 
C:  (>0006  : 
C : 70742  1 
C:  42244  0 

00137  1 
54135  1 
C:  01301  1 
00004  0 


16064  1 
00006  I 
lOOOO  0 
54155  1 

03343  0 
13240  0 
03436  0 
32470  0 

00006  1 
02073  1 
34755  1 
54002  1 


00,3740 
00,3750 
00,  3760 
00,3770 


34752  0 
52134  0 
33774  0 
57323  1 


54070  1 
05706  0 
15211  1 
05137  I 


50000  1 
C:  31104  0 
04645  1 
05261  1 


31323  1 
33773  1 
50070  0 
C:  03760  0 


00006  1 
54061  1 
55323  0 
C:  C3766  0 


13753  1 
30004  0 
05133  0 
C:  03775  1 


10070  1, 
60070  0 
34755  1 
0^776  1 


13741  1 
54001  1 
50006  1 
CKSM  72464  1 


gap: 
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OCTAL  LISTING  FOR  PARAGRAPH  ft  02A.,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WOROSI  OR  "C " (CONSTANTS! 


01,2000 
01,2010 
01,20  20 
01,2030 


C:  76^66  1 
00062  0 
C:  OA060  0 
C:  03630  1 


c:  76731  C 00010  n 

10072  1 00145  1 

C:  T014A  0 C:  05261  1 

C:  66067  O C:  02627  0 


0OC2O  0 
00163  0 
C:  04060  0 
C:  75175  0 


OOOlO  0 
CCOlO  0 
C:  76300  0 
C : 26063  0 


OO026  0 
00174  C 
C:  75427  1 
C:  05000  1 


00010  o 
C : 21000  1 
C:  C3710  1 
C:  02611  O 


00056  1 
C:  05155  0 
C:  32000  0 
C:  26063  0 


01,  2040  C ; 02734  0 
01,2050  C:  54067  1 
01,2060  C:  75771  I 
01,2070  C:  04704  0 


C : 75533  0 C : 27710  1 
C;  26000  0 C:  02654  1 
C:  35710  1 C:  76355  0 
C:  75423  0 C:  03710  1 


CJ  14000  1 
C:  50067  0 
C:  7411C  1 
C:  77777  0 


L : f / l f f O 

C : C5710  1 
C:  75433  1 


C;  50067  0 
C:  75436  1 
C : 20000  o 
C:  03710  1 


C:  10000  n 
C:  03710  1 
C : 02540  1 
C : 25^00  0 


C ; 02223  0 
C:  00031  0 
C:  56067  0 
C:  03533  1 


01,2100 
01,2110 
01,2120 
01  ,2130 


C:  64067  1 
C:  74231  1 
C;  77777  0 
C:  03710  1 


C:  10062  0 
C:  13710  1 
C : 75423  0 
C:  01477  I 


C:  75211  1 
C:  12000  1 
C:  03710  1 
C:  75535  0 


C:  03710  1 
C;  03227  0 
C:  13000  0 
C:  74067  0 


C:  00764  1 
C:  74067  0 
C;  03012  1 
C : 52777  1 


C:  75370  1 C:  03710  1 C:  76260  1 
C:  00764  1 C:  75477  1 C:  03710  1 
C:  30065  1 C:  7777?  0 C:  75345  1 
C:  02070  1 C:  42067  0 C:  52777  1 


01,2140 
01  ,2150 
01,2160 
01,2170 


C : 02073  I 
C;  52777  1 
C : 01710  0 
C:  74166  0 


C : 42067  0 
C;  12575  1 
C;  00310  0 
C:  11710  C 


C : 46777  1 
C : 74067  0 
C : 74166  0 
C;  77777  0 


C:  02024  0 
C:  22000  1 
C:  01710  0 
C:  74326  0 


C:  10067  1 
C:  02463  1 
C:  2C000  0 
C:  01710  0 


C:  46777  1 
C:  46067  1 
C : 02206  1 
C:  77777  0 


C:  05655  1 
C;  00310  0 
C : 66067  0 
C:  74361  0 


Ci  04067  1 
C:  74166  0 
C:  00310  0 
C:  01710  0 


01,2200 
01, 221C 
31,2220 
01  ,2230 


C:  00144  0 
C : 74C67  0' 
55444  0 
00006  1 


C:  75054  1 
35015  O 
32343  1 
72342  1 


55476  1 
55444  0 


30000  1 C:  035  57  0 
34745  0 70111  1 
34737  0 70111  1 
32344  0 55476  1 


10063  0 
10000  0 
00006  1 
00003  1 


17000  1 C:  03354  0 
32340  1 62341  0 
12235  0 31444  1 
32336  0 04616  1 


01,2240  C:  20353  0 
01  ,2250  04674  0 
01,2260  61326  1 
01,2270  61327  0 


12247  0 
40115  0 
00006  1 
00006  1 


12253  0 
15472  1 
62236  I 
62236  1 


12236  0 
40106  1 
30111  0 
31327  0 


34751  0 
74737  1 
74737  1 
61326  1 


05464  1 
lOOOO  0 
00006  1 
22007  0 


15155  1 
32000  0 
12274  0 
53244  O 


00004  0 
62001  1 
44741  0 
00004  0 


01,2300 

01,2310 

01,2320 

01,2330 


04674  0 C:  40115  0 
04616  1 C : 20353  0 
34753  1 G5203  C 
05472  0 05472  0 


C 


00003  1 40106  1 
05472  0 12320  0 
03217  0 C : 56066  1 
05472  0 36007  0 


74737  1 
12307  0 
3 5155  1 
C5464  1 


00006  1 15472  1 32337  1 
34751  0 05464  ) 15155  1 
32337  1 04616  1 C:  20361  1 
15155  1 C:  01457  0 C:  01460  1 


01,2340 

01,2350 

01,2360 

01,2370 


25101  0 C:  05220  I 
54046  1 16064  1 
12347  1 J2430  1 
50117  0 54000  0 


C3146  I C:  77445  1 
02442  1 4C117  1 
50117  0 40000  0 
16064  1 02430  1 


77622  1 
02347  0 
12347  1 
50117  0 


02442  I 
02430  1 
02430  1 
300O0  1 


301 17  O 
50117  0 
5013C  0 
F0130  0 


50130  0 
30000  1 
30046  0 
56046  0 


GAP: 


ASSEMBLE  REVISION  131  OF  AGC  PRCGRAf^  LUMINARY  BY  NASA  2021112-091 


17:53  CeCo  19,1969 


PAGE  1596 


OCTAL  LISTING  FOR  PARAGRAPH  P 025,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WOROSI  OR  "C*'  (CONSTANTS! 


01 ,2A00 
Ol,241P 
01,2420 
01,2430 


12370  0 
30117  0 
40050  0 
40117  1 


02430  1 
12404  1 
50130  0 
64772  1 


50117  0 
02430  1 
60046  0 
lOOOO  0 


30000  1 
50117  0 
00006  1 
30120  1 


50130  0 
4COOO  0 
66064  0 
12441  0 


26046  1 
12404  1 
50130  0 
35007  0 


16064  1 
02442  1 
56046  0 
56117  o 


02442  1 
50130  0 
16651  1 
54003  0 


01,2440 
01,2450 
01  ,2460 
01,2470 


74357  0 
10020  1 
10121  1 
10020  1 


26117 

30117 

12463 

06726 


1 

0 

0 

1 


30120 

04621 

16064 

16064 


1 

0 

1 

I 


54130  1 
10154  0 
54121  1 
16651  1 


10020  1 
16064  1 
10020  1 
16064  1 


24130  0 00002  0 
16651  1 16064  1 
12451  1 C:  00360  I 
10020  1 125C4  0 


00002  0 
16651  1 
16651  1 


01,2500 
01,2510 
0 1, 2520 
01  ,2530 


06726  1 
10020  1 
70117  1 
00004  0 


16064  1 
16643  1 
5000C  1 
50000  1 


16064  1 
05675  0 
34735  1 
30074  1 


54131  0 
54002  1 


06726 

50120 

34745 

34741 


1 

1 

0 

I 


16651 

30052 

00006 

00006 


1 

0 

1 

1 


16651  1 16064  1 

12370  O 34762  0 

701  1 7 1 5413(^  1 

70117  1 72577  1 


01,2540 
01  ,2550 
01,2560 
01,2570 


50000  I 
06002  0 
00006  1 
126C0  1 


12542  1 30131  1 
12554  0 40131  0 
70117  1 72577  1 
16720  0 12600  1 


00006  1 
70002  1 
50000  1 
05675  0 


04002  1 
50130  0 
12565  1 
05675  0 


12554  0 
54074  0 
40002  1 
30002  0 


30131  1 
OOOC3  1 
70131  0 
12566  1 


00006  1 
34737  0 
10000  0 


01  ,2600 
01,261C 
01,2620 
01  ,2630 


31201  0 
32635  0 


16064  1 
10604  I 
64752  C 
54062  1 


54061  1 
12621  1 
22007  0 
50064  0 


1040C  1 
10660  0 
50000  1 
10167  0 


21777  0 
12675  0 


10454  O 
22061  0 
26063  0 
00007  0 


12621  1 
30002  0 
34755  1 
12675  0 


10530  0 
05706  0 
54064  1 
30063  1 


01,  2640 
01,2650 
01,266C 
01,2670 


50064  0 
30166  0 
52165  1 
00006  1 


54167  0 
54120  0 
15160  I 
65160  0 


75004  1 
10067  I 
52066  0 
30064  0 


50064  0 
12662  0 
50064  0 
54067  1 


54166  1 
05675  0 
52165  1 
15160  1 


10064  1 
05675  O 
50067  0 
33034  0 


12662  0 
54067  1 
40167  0 
26064  1 


54121  1 
52066  0 
60063  1 
10062  1 


01 ,2700 
01,2710 
01  ,2720 
01  ,273C 


12631  0 
00006  I 
01007  I 
52157  0 


22061  0 
04007  1 
52155  1 
52J61  0 


30002  0 
56001  0 
50C67  0 
50067  0 


05706  0 C:  31202  P 
50067  0 52165  1 
52155  1 52155  1 
52161  0 52161  0 


22164  1 30165  0 
52165  1 30165  O 
52157  0 50067  0 
52163  1 50067  P 


00004  0 
00006  I 
52157  0 
52163  1 


01,2740 

01,2750 

01,2760 

01,2770 


52163  1 
50067  0 
12765  0 
000(16  1 


34755  1 
52167  0 
40166  1 
62773  0 


56121  0 
52167  0 
54166  1 
52C06  0 


00006  1 
35004  0 
34753  1 
40000  P 


12747  0 
70167  0 
56121  0 
64753  1 


40166  1 
54120  O 
54067  1 
54164  0 


54166  1 
10166  1 
00003  I 
16053  P 


52165  1 
00004  0 
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OCTAL  LISTING  FOR  PARAGRAPH  ft  026, 


WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD, 


"3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  V^OROS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED 


(INTERPRETIVE  OPERATOR  WORDS!  OR 


"C"  (CONSTANTS! 


01  ,3000  A0167  0 
01,3010  5A131  0 
01,302C  00006  1 
01,3030  5A062  1 


5A167  0 
13121  1 
05011  1 
5^06A  0 


36077  1 
00004  0 
52165  1 
10167  0 


70006  0 
10067  1 
12713  1 
13C36  0 


00006  1 04007  1 

13017  0 00003  1 

54061  1 34755  I 

C : 00014  1 13045  1 


54165  1 44755  0 
132J7  1 34752  0 
54064  1 32635  0 
33034  0 26064  1 


01,304C 
01,3050 
01  ,3060 
01,3070 


10062  1 
00006  1 
44350  1 
10064  1 


13030  0 
13C53  0 
70065  0 
12662  0 


44753  0 
13036  0 
64741  1 
12652  0 


54064  1 
50064  0 
56065  1 
54164  0 


15160  1 
40167  0 
7435C  I 
34755  1 


40065  0 
54063  0 
50064  O 
54130  1 


50064  0 
50064  0 
60165  0 
35004  0 


60164  1 
54167  0 
54066  0 
70167  0 


01,3100 
01,3110 
01,3120 
01 ,3130 


60063  1 
75004  I 
54000  0 
13131  0 


54167  0 
54001  1 
10203  1 
10233  1 


40000  0 13010  1 
45164  0 60001  0 
03172  0 05675  0 
03172  0 C:  67610  1 


00004  0 
C0006  I 
13125  0 
13135  1 


44755  0 
63121  0 
10217  1 
10247  1 


54131  0 
10001  1 
03172  0 
03172  0 


56167  1 
50000  1 
05675  0 
05675  0 


01,3140 
01  ,3150 
01  ,31 60 
01,3170 


13141  I 
13151  0 
13162  0 
54067  1 


10263 

10313 

13207 

12705 


03172  0 05675  0 
03172  0 05675  0 
10130  1 13165  1 
54132  0 60131  1 


13145  0 10277  1 
13155  1 10131  n 
12765  0 50000  1 


03172  0 
05675  0 
27777  0 


05675  0 
05675  0 
63133  0 


10000  0 40132  0 


1320?  n 13200  1 


01,3200 

01,3210 

01,3220 


50002  0 
54067  1 
13226  0 


)000  2 0 
30003  1 
3136J  1 


54131  0 
44752  I 
54001  1 


00CO6  1 
00006  I 
33225  1 


22130  0 50130  0 00002  0 
03011  I 10067  1 13012  0 
15166  1 C:  66102  1 00006  1 


44755  0 
34752  0 
05011  1 


01,3230  52165 


15165  1 54062 


30002  0 


00006  1 63524 


4002  6 


64744  1 


01,  3240 
01  ,3250 
01,3260 
01,3270 


lOOCO  0 
13251  0 
22007  0 
57407  0 


66112  0 
40002  1 
57400  1 
30063  1 


40000  0 
64736  1 
57401  0 
50002  0 


63371  1 
64736  1 
57402  0 
13274  1 


60002  0 
56026  0 
57403  1 
53411  0 


10000  0 
64735  3 
57404  0 
53413  1 


6140C  1 
600C2  0 
574(^5  1 
5^415  I 


13311  C 
00006  1 
57406  1 
53417  0 


53421 

13364 

61402 

64753 


53423  1 52425  1 
lOOOO  0 61401  0 
12325  1 64753  1 
03375  n C:  00003  1 


53427 

13317 

03375 

10000 


00002  0 
61404  C 


65236  0 00006  1 15215  0 
03375  0 C;  OOOOl  0 lOOOO  0 
10000  0 61403  1 13333  0 
13341  0 64753  1 03375  0 


01,  3340 
01  ,3350 
01,3360 
01, 3370 


C: 

C: 


00004  0 
61406  1 
64753  1 
OCOlO  0 


10000  0 
13355  0 
03375  0 
40201  0 


61405  1 
64753  1 
C:  00007  0 
52062  1 


33347 

03375 

10000 

05706 


0 

0 

0 

0 


6^753  1 
C : 00006  1 
03372  I 
C:  31203  1 


03375  0 C:  00005  I 10000  0 
lOOOO  0 63407  0 13363  0 
13366  0 64753  1 03375  0 
54064  1 50002  O 30000  1 
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GAP: 


OCTAL  LISTING  FOK  PARAGRAPH  « 027,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  CF  EACH  WORD,  ’'3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OH  "C"  (CONSTANTS) 


01,3A00 
01  ,3A10 
0 1, 3A20 
01  ,3A30 


5A002  i 
00006  1 
57AC5  1 
5A332  1 


5740A  0 
AA755  0 


60C6A  0 
5A016  I 
57A03  1 
5A332  1 


50002  0 
00006  1 
57402  0 
00006  1 


57^*01  0 
A5237  0 


40064  1 
34734  0 
57400  1 
53431  1 


50002  0 
57407  0 
64733  1 
53427  0 


13261  0 
57406  1 
26026  1 
53425  1 


01,344C 
01,3450 
01  ,3460 
01,347C 


53423  1 5342)  0 53417  0 
01007  I 56001  C 52006  0 
lOOOO  0 13467  0 13464  0 
43501  I 21)  53  0 11 1 53  0 


53415  1 53413  1 
23435  1 34752  0 
13522  0 31153  1 
13512  0 13475  0 


53411  0 560ri  0 
26002  1 5543*  1 
00006  1 63522  1 
13476  0 11  1*52  1 


00006  1 
31152  0 
00006  1 
13512  0 


01  ,3500 
01,3510 
0 1, 3520 
0 1,3530 


00000  1 C:  20000  0 
53435  0 52006  0 
52006  0 C:  05261  1 
60000  1 54155  1 


53435  0 
33771  0 


27153  0 
05203  0 
13525  1 
54157  0 


05203  0 
C:  03467  1 
52062  1 
33566  1 


C : 
C : 


03517  1 
02063  0 
05716  1 
54707  0 


C : 02063  0 
13507  1 
C;  21204  ) 
30154  1 


33521 

53147 

30161 

75007 


01,354C  lOOOO  0 
01,3550  C:  20103  1 
01,3560  52706  1 
01,3570  13636  0 


13552  1 
03566  1 
30154  1 
33775  1 


10154  0 
75007  1 
74757  1 
54704  0 


10000  0 
10000  0 
67751  0 
50155  0 


13652  1 
13623  1 
10000  C 
31053  0 


35024  1 C5105  0 C:  03040  0 
00006  1 50155  0 31437  0 
13735  1 1 13571  0 
lOOOO  0 24000  ) 136C2  1 


01  ,3600 
01, 361C 
01,362C 
01  ,3630 


15436 

10000 

13621 

76077 


1 

0 

0 

O' 


13621 

40000 

64753 

54154 


0 

0 

1 

0 


40000  0 
67734  0 
00704  1 
00006  1 


54001  1 
64753  1 
33566  ) 


50155  0 

60001  n 

54157  0 


41052  0 
10000  0 
33772  0 


09no6  1 
34755  1 
54707  0 


60025  0 
13621  0 
30154  I 


50155  0 


31437  0 52706  1 


50155  o 31053  0 


01,364C 
01  ,3650 
01,3660 
01,3670 


54704  0 00006  1 
40000  0 00704  1 
30154  1 54021  0 
32002  1 22706  0 


63646  0 33774  0 
5402C  1 10C2O  1 
60021  1 50155  0 
lOOOO  0 24000  1 


56704  I 00704  I 
13655  0 13753  1 
62C03  0 54156  1 
13747  1 24000  1 


33776  1 56704  1 
33566  1 5*707  0 
00006  1 50156  0 
54705  1 33775  1 


01,3700 
01,3710 
01,3720 
01  ,3730 


54704  0 
53153  0 
13730  1 
33773  1 


30706  0 
00006  1 
13723  C 
54704  0 


74742  0 
40025  ) 
136)6  1 
00006  1 


10000  0 
21153  0 
11153  n 
31153  1 


13742  1 
00006  1 
13730  1 
00704  1 


50156  C 32000  0 

3115)  0 21153  n 


15445  0 
11152  1 


13726  0 13616  1 

33775  1 54704  0 


13621  0 
50155  0 


01,3750 

01,376C 

01,3770 


15445 
32000 
60154 
C:  0376* 


40706  1 
13640  1 
54156  1 
03542  ) 


54706  1 
30157  1 
13666  0 
C:  05277  0 


50156  0 
54707  0 
36250  0 
C:  05105  0 


C 


32000  0 13575  1 56705  0 

50155  0 32002  1 60154  1 

26156  1 33566  1 54707  0 

: 05203  0 C:  05072  1 CKSM  60423  I 
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OCTAL  LISTING  FOR  PARAGRAPH  H OAO,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  “I" 


(INTERPRETIVE  OPERATOR  WORDS)  OR 


(CONSTANTS) 


0<t,2000 
0^,2010 
0^,  2020 
04,2030 


C:  00302  0 
C:  30276  I 
C:  25477  1 
05476  1 


C:  17755  0 
C:  )A773  0 
C:  03367  0 
32037  1 


C:  00C65  1 
C;  250(^4  1 
C:  27  533  ). 
04616  1 


C:  01265  1 
C:  06702  1 
C:  07571  0 
C:  2C477  1 


C:  22437  1 
C:  16471  1 
05516  0 
12031  0 


C:  16067  1 
C;  01352  1 
C:  00311  1 
12031  0 


C:  15625  1 
C;  21412  0 
C55)6  r 
12(^31  0 


C:  21042  1 
C:  20500  0 
C : 00314  ) 
C:  11343  0 


04,2040 
04,  2050 
04,2060 
04,2C7C 


54774  1 
62403  1 
12107  1 
04635  0 


34355  0 
00006  1 
40076  1 
C:  21051  0 


54366  0 
12376  0 
74753  0 
32470  0 


lOCOO  0 
54155  1 


74746 

00006 

12072 

50155 


1 

I 

1 

0 


10000  0 
12375  0 
05567  0 
32437  0 


12065  1 40774  1 

30774  0 00006  1 

C : 01520  1 04457  0 

76077  0 40000  0 


04,2110 

04,2120 

04,2130 


60774  0 
74746  1 
lOOOO  0 
62373  1 


10000  0 
10000  0 
12123  I 
05357  0 


10155  1 
12132  1 
12130  0 
34755  1 


12073  0 
05516  0 
40074  0 
00006  1 


C: 


12326 

C0163 

74743 

01007 


30155  0 54773  0 40103  1 
15155  1 40074  n 74745  1 
10000  0 32372  0 64747  1 
32371  0 54374  0 05353  1 


04,214C  C : 00014  1 
04,2150  C:  00055  1 
04,2160  C:  00141  0 
04,2170  35017  I 


06042  1 I : 77624  1 
34755  1 54107  0 
)5516  0 C:  00217  0 
55055  1 06011  1 


2741D  1 l:  77776  1 
05516  0 C:  00063  1 
05516  0 C : 00311  1 
44753  0 70076  1 


05516  0 C : 00124  0 
05*^16  0 C:  00056  I 
10774  1 12314  1 
54076  I 34756  I 


05516  0 
05516  C 
04457  0 
54001  1 


04,2200 

04,221C 

04,2220 

04,2230 


40000  0 
04674  0 
04674  0 
04635,  0 


52754  0 
C:  75561  1 
C:  12650  1. 
C:  12766  0 


42374  1 70074  0 
04674  0 C:  40205  1 
10774  1 12232  1 
41010  C 62332  1 


54074  0 
44775  1 
04674  0 
00006  1 


34755  I 
55071  1 
12645  n 
12254  1 


54333  0 
70075  1 
30774  n 
40774  1 


55321  1 
54075  1 
55010  0 
62332  1 


0A,2?40 

04,2250 

04,2260 

04,2270 


00006  1 
32330  0 
00006  1 
30006  1 


34755  1 
12260  0 


67751 

10000 

52754 

64756 


0 

0 

0 

1 


00006  1 
12263  0 
32370  1 
00006  1 


12266  0 
42374  1 
54374  0 
12260  0 


64756  1 
70074  0 
12230  0 
32330  0 


00006  1 
54074  0 
41010  0 
70074  0 


12266  0 

060n  1 

66007  0 
60774  0 


04,2300 

04,2310 

04,2320 

04,2330 


40000  0 
40075  1 
05516  0 
00500  1 


62333  0 
74775  1 
C:  30007  C 
C:  30305  1 


00006  1 
26075  1 
50773  1 
00026  0 


C 


12310 

12224 

32471 

00124 


0 

0 

1 

0 


62331 

32330 

00004 

00004 


1 

0 

0 

0 


00006  I 
70074  0 
12206  0 
50773  1 


12310  0 

1 ooon  0 

04364  1 
32437  0 


12260  0 
12322  1 
12067  0 
55057  0 


U4,23A0  54020  1 
04,2350  74757  1 
04,2360  75012  0 
04,  237C  C:  10337  1 


30020  0 77730  0 
54001  1 50773  1 
64741  I 05116  I 
10144  1 C:  37667  1 


55061  0 
32406  1 
31057  1 
40072  0 


54063  0 
55060  1 
76C77  C 
00700  0 


31057  1 
74350  1 
05314  ] 
36250  0 


00006  1 74744  0 
26001  1 31060  0 
C4457  0 05155  0 
54002  1 00006  1 
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OCTAL  LISTING  FOR  PARAGRAPI-  « 061,  V»ITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  CF  EACH  WORD,  ''3"  DENCTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OP  "C  " (CONSTANTS) 


04,2600 

32405 

1 

6C00? 

0 

52CC6 

0 

C : 

00106 

0 

C: 

02067 

1 

C: 

42067 

0 

C: 

26207 

0 

C : 

72641 

1 

04,2410 

C:  72457 

1 

C: 

7ZZZ5 

1 

C: 

72036 

1 

C: 

71271 

0 

C : 

65000 

1 

C : 

33277 

0 

C : 

32050 

0 

C: 

31421 

1 

04,2420 

C:  75442 

1 

C: 

75414 

1 

C : 

75276 

0 

C: 

75153 

1 

C: 

72635 

} 

C: 

72455 

0 

C : 

72223 

1 

C : 

72034 

0 

04  ,2430 

C:  72000 

1 

C: 

50^00 

0 

C : 

50000 

1 

C: 

51506 

C 

C : 

50000 

1 

C : 

60061 

C: 

77652 

n 

C: 

27714 

0 

04,244C 

C;  27713 

1 

C: 

27712 

0 

C: 

27711 

0 

C: 

27710 

1 

C: 

27704 

1 

C : 

27677 

1 

C : 

27271 

0 

C ; 

27264 

1 

04,2450 

04,2460 

C:  27263 
C:  27640 

0 

C: 

27657 

27636 

0 

C : 

27652 

27631 

0 

C: 

27651 

27626 

0 

C ; 

27650 

27625 

1 

C: 

27643 

27624 

0 

1 

C: 

27642 

27614 

1 

C: 

27641 

1 

0 

C : 

1 

C i 

0 

C : 

0 

C : 

0 

C : 

C t 

1 

C : 

27006 

1 

04,247C 

C:  J0030 

1 

C: 

00002 

0 

C: 

00002 

0 

C; 

00002 

0 

C ; 

00002 

0 

C: 

00002 

0 

C : 

00004 

0 

C : 

00004 

0 

04,2500 

C:  00005 

1 

C: 

ooobo 

J 

C : 

01000 

1 

C: 

00003 

1 

C: 

00003 

1 

C: 

00003 

1 

C : 

00003 

1 

C : 

00002 

0 

04,2510 

C:  00002 

0 

C: 

00002 

0 

C: 

00002 

0 

C: 

00002 

0 

C: 

00002 

0 

C ; 

00005 

1 

C : 

00002 

0 

C: 

00002 

0 

04,2520 

04,2530 

C:  00004 
I:  71406 

0 

C : 

OOOOO 

73525 

1 

I : 

44001 

77626 

0 

C: 

OOOOl 

60012 

0 

C: 

02736 

00011 

1 

I : 

47J35 

77634 

0 

r : 

00C12 

21577 

1 

C : 

21577 

71406 

1 

0 

1 

^ • 

0 

C : 

C : 

1 

I : 

0 

C : 

1 

I : 

0 

04,2540 

04,2550 

C:  00025 

0 

I : 

73525 

72405 

1 

I : 

57406 

1 

C: 

14027 

50006 

1 

C: 

24007 

0 

C: 

14023 

53635 

0 

I : 

72405 

03765 

0 

C ; 

OOOOl 

00031 

0 

CJ  17767 

1 

I : 

0 

I : 

77626 

0 

C : 

1 

C : 

00023 

0 

I : 

0 

C : 

C : 

0 

04,2560 

I;  77650 

1 

C: 

02736 

1 

52134 

0 

53167 

1 

25166 

1 

30006 

1 

75012 

0 

27167 

1 

04,2570 

51166 

1 

27777 

0 

04622 

0 

02577 

0 

02576 

1 

25166 

1 

25166 

1 

53167 

1 

04,2600 

52006 

0 

22164 

1 

50001 

0 

30001 

0 

24001 

n 

24001 

n 

53167 

1 

06042 

1 

04,261C 

04,2620 

I : 77624 
26164 

1 

C: 

01166 

00072 

1 

1 

I : 

77776 

56CC2 

1 

23167 

54154 

0 

16C44 

00004 

0 

05137 

34355 

1 

44741 

05072 

0 

50064 

0 

0 

0 

0 

0 

0 

1 

C : 

03577 

1 

04,2630 

C:  60101 

1 

00003 

1 

00154 

1 

54001 

1 

04220 

0 

04224 

1 

C4374 

0 

30001 

0 

04,264C 

55042 

1 

051  33 

0 

00006 

1 

31442 

1 

53051 

0 

32755 

1 

04616 

1 

C: 

20334 

1 

04,2650 

15472 

1 

12653 

1 

12645 

0 

06042 

1 

I ; 

53145 

1 

C : 

01051 

1 

C : 

10752 

0 

C: 

34041 

0 

04,2660 

04,2670 

C:  27042 
C:  61562 

1 

I: 

63375 

10015 

0 

C: 

00007 

34041 

0 

C: 

OOOOl 

27056 

0 

1 

C : 

C2207 

63375 

0 

I : 

63256 

00007 

0 

I : 

53435 

OOOOl 

0 

1 : 

77626 

41406 

0 

C • 

0 

C 5 

0 

C • 

I : 

0 

C : 

C : 

0 

I : 

0 

04,2700 

04, 2710 

I:  63245 
C:  26203 

1 

1 

C: 

)2207 

00007 

0 

1 : 

72441 

41456 

0 

C: 

02215 

47235 

0 

0 

C : 

26201 

OOOOl 

0 

C : 

OOOOl 

00023 

0 

I : 

72441 

53552 

0 

C: 

02215 

c 

0 

0 

I : 

1 

04,2720 

C:  24001 

0 

C: 

00023 

0 

I : 

74241 

0 

C : 

00015 

0 

I : 

77752 

1 

I ; 

53445 

1 

I : 

77656 

1 

I : 

50206 

0 

04,2730 

C:  OOOOl 

0 

I : 

65552 

c 

C: 

26205 

1 

I : 

50235 

0 

C : 

OOOOl 

0 

I : 

71244 

0 

C : 

10743 

0 

C; 

24C20 

0 

04,  2740 

I:  77625 

0 

C : 

02205 

1 

C : 

02205 

1 

I : 

77776 

1 

32756 

1 

04616 

1 

C ; 

20334 

1 

15472 

1 

04,2750 

04,2760 

15472 
C:  02746 

1 

C: 

12642 

01555 

1 

0 

I : 

52034 

47235 

1 

C : 

21574 

01563 

1 

C : 

10657 

036C7 

1 

C : 

01420 

0 

1 

C: 

01532 

03623 

1 

0 

I : 

77220 

1 

C: 

C : 

0 

I : 

77656 

C : 

I : 

5343  5 

0 

04,  2770 

C:  03607 

0 

C i 

37615 

1 

C: 

02746 

0 

C: 

OOOOO 

1 

C: 

04000 

0 

C: 

OOOOO 

C: 

00200 

0 

C: 

OOOOO 

1 
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OCTAL  LISTING  FOR  PARAGRAPH  ft  042,  VslTH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S”  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  OR  "C"  (CONSTANTS) 


04,3020 

04,3030 


10400  0 
00020  0 
03110  1 
430  20  1 


C:  OOOOC  1 
C:  00000  1 
C:  17665  1 
C:  02753  1 


lOCCO  0 
00100  0 
00000  1 
03665  1 


C 

C 

c 

I 


00000  1 
00000  1 

00001  0 
77614  1 


02DOO  0 
34631  1 
37767  0 
04273  0 


C;  OOOOO  1 
C:  23146  0 
C:  37737  0 
I : 45131  0 


rinno  n 
77467  1 
40010  1 
02673  I 


: OOOOO  1 
: 77777  0 
: 40040  1 
: 27777  0 


04,304C  C:  11074  1 
04,3050  C:  02720  0 
04,3060  I : 44206  0 
04,307C  C : 20575  1 


C:  14045  0 
I : 60316  0 
C:  U007  0 
C:  12740  0 


l: 

C: 


I : 


16742  1 
77650  1 


C:  20606  0 
I : 41275  1 
l:  60205  C 
C:  02753  1 


C;  00045  0 
C:  00017  1 
C : 00045  0 
I:  77656  1 


C : 
C: 
C : 
C: 


00047  I 
16712  1 


C:  10005  0 
I:  77657  0 
I : 53605  1 
C : 00045  0 


C:  14017  1 
C:  21576  0 
C:  00045  0 
C : 26720  0 


04,3100 

04,3110 

04,3120 

04,3130 


l:  77656  1 
1 : 76435  1 
C:  16674  0 
I : 77616  0 


C;  02722  1 
C:  12712  1 
C:  00045  0 
00003  1 


I : 72441  0 
I : 75214  1 
I : 43565  0 
00006  1 


C : 02712  1 
C:  03705  0 
C:  02673  1 
23166  1 


I ; 77725  1 
C:  11126  1 
I:  52162  0 
06042  I 


C : 00045  0 
C : 02673  1 
C;  11120  1 
I : 53135  0 


C:  24''41  1 
I : 40056  0 
I : 75246  0 
C:  01502  1 


C:  02722  1 
C:  11124  0 
C:  02673  1 
C:  11176  1 


04,3140 
04, 3150 
04,3160 
04,3170 


I : 77775  1 
1 : 53025  0 
C:  00002  0 
C : 01671  0 


C:  01503  0 
C:  U207  I 
C:  00063  1 
C:  11174  0 


C:  25535  0 
C:  11157  I 
l:  50135  0 
I ; 77624  1 


C:  01511  0 
I : 43174  1 
C;  01502  1 
C:  26733  1 


I:  77624  1 
C:  OOOOO  1 
C:  11172  0 
I:  77614  1 


C : 27706  0 
C:  00223  1 
I : 77624  1 
C:  02676  1 


I : 51535  0 
C:  11162  1 
C : 26660  0 
I:  4513J  0 


C:  01502  I 
I : 43174  1 
I ; 5 2014  0 
C:  01502  1 


04,3200 

04,321C 

04,3220 

04,3230 


C:  OOOOO  1 
I : 77420  1 
C;  00000-1 
C:  25253  1 


C:  27417  0 
C:  02711  1 
C : 22525  0 
C:  00027  I 


C : 12525  0 
C:  00063  1 


05353  1 C:  04026  1 
04022  0 06042  1 
22000  1 C : OOOOO  1 
34737  0 70077  0 


01166  I 
77650  1 
01200  1 


00002  C 
02711  1 
Onooo  ^ 


OOOOO  I 
300no  1 
25252  0 


lOOOO  0 03247  0 


31277  1 


04, 324C 
14,32  50 
04,3260 
04,3270 


74743  1 
C;  00007  0 
00006  1 
C : 02077  0 


00006  1 
14631  0 
02015  1 
60101  I 


13244  1 
00220  1 
54073  1 
30073  0 


44750  0 
54016  1 
40101  0 
5O064  0 


63252  1 
56002  0 
74735  C 
5415A  0 


05734  1 
54012  0 
26101  0 
05270  1 


06001  0 
04400  1 
34355  0 
54016  1 


05504  0 
34346  1 
05072  1 
56002  0 


04,3300 

04,3310 

04,3320 

04,3330 


54012  0 
34346  1 
03350  1 
60073  0 


04400  1 
70073  1 
34742  1 
00006  I 


34755  1 
56073  0 
OOOC6  1 
13340  1 


56045  0 
00006  1 
70332  1 
34750  1 


54073  1 
74742  0 
74346  0 
70103  1 


34751  0 
54332  1 
40000  0 
lOOi^O  O 


00006  1 
74346  0 
''3350  J 
05270  1 


05011  1 
63353  1 
43356  0 
03266  0 


04,3340  44750  0 
04,3350  60073  0 
04,3360  C:  07026  1 
04,3370  51171  1 


70103 

10000 

30000 

12372 


1 

0 

1 

0 


54103  1 
03344  1 
C:  03670  0 
13375  I 


C; 

C: 


03266  0 
77740  1 
10102  0 
I 3400  1 


40103  1 
03344  1 
34753  1 


74750  0 
00002  0 
54333  0 


26103  X 05270  1 

C;  00022  1 05353  1 

05311  ) C;  00033  1 


13400 


34752  0 55367 


13423  0 
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OCTAL  LISTING  FOR  PARAGRAPH  « 0^3,  hITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  ''a"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCS E MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  OR  "C"  (CONSTANTS! 


04,3AOO 
09  ,3910 
09,  3920 
09,3930 


33973  1 
99752  1 
31173  0 
20339  1 


59156  1 
61173  0 
55167  1 
13670  1 


33979  0 
00006  1 
25172  1 
13926  0 


09616  1 
63902  1 
33690  0 
03969  1 


91173  1 
61172  1 
91172  0 


13670  1 
69362  1 
59156  ? 
61167  0 


13902  0 
00006  I 
33979  0 
00006  1 


03969  1 
63902  1 
09616  1 
63991  0 


09,3990 
09, 3950 
09,3960 
09,397C 


13922  1 
03969  1 
63991  0 
50002  0 


33972  0 59156  1 
21166  1 00006  1 
33690  0 61166  1 
77771  0 C : 01  166  1 


33975  1 09616  1 
63991  0 91166  0 
13925  0 90159  0 
01173  0 C:  05201  1 


20339  I 
61167  0 
79796  1 
05202  1 


13670  1 
69753  1 
10000  0 
f>nnc9  0 


13976  0 
00006  1 
00002  0 
30103  0 


09,3500 

09,3510 

09,3520 

09,3530 


56001  0 39751  0 
99752  1 61171  1 
C9369  1 C3670  0 
77629  1 C:  27910  1 


00006  I 
00006  1 
39355  0 
77776  1 


06001  0 59103  1 
63522  1 00006  1 
05105  0 C:  03527  1 
{*5353  1 C:  09026  1 


C: 


05353  I 
31179  1 
1010  3 1 


09026  1 
53209  1 
05155  0 


05509  0 C:  00236  0 


000f»9  0 
03595  0 
06092  1 
00009  0 


09,3590 
09,  3550 
09,3560 
09,357C 


51171  1 
22007  0 
39755  1 
00006  1 


135^2  0 
52025  1 
22007  0 
13600  0 


13701  0 
53216  1 
59156  1 
39755  1 


13610  1 
39756  1 
53204  1 
53216  1 


13692  0 
59001  1 
52155  I 
20025  1 


00006  1 
90000  0 
00006  1 
05353  1 


23166  1 
52769  0 
31216  0 


39755  1 
00009  0 
20155  1 
01166  1 


09,3600 

09,361C 

09,3620 

09,3630 


07262  0 
31179  1 
79793  1 
59001  i 


52155  1 
59003  0 
10010  0 
30159  1 


2O025  1 
79357  0 
13736  1 
61166  1 


05353  1 C:  09026  1 
55166  0 67750  1 
37750  1 61167  0 
50000  1 23900  1 


00009  r 51166  1 00001  0 
61167  0 n0006  1 13625  1 
59159  0 50000  1 31175  0 
10154  0 13625  1 13667  1 


09,3690  C:  01172  I 
09,3650  61167  0 
09,3660  31  179  1 
09,3670  31170  0 


13667 

59159 

59003 

05319 


1 

0 

0 

1 


39753 

50000 

79357 

39755 


1 

1 

0 

1 


71167  1 mono  0 

31 179  1 22000  1 
50000  1 23900  1 
59333  0 03793  1 


13697  0 
10159  0 
10159  0 
00006  1 


13736 

59159 

13651 

39755 


99752  1 
50000  1 
03131  I 
52769  0 


09,3700 
09,371C 
09,  3720 
09,3730 


05972  0 
53206  0 
53206  0 
53179  0 


00006  1 
00006  1 
21571  1 
21710  1 


91179  0 
91179  0 
39755  I 
27706  0 


53209  1 

53210  1 
22007  0 
05353  1 


03595  0 
05353  1 
53210  1 


03736  0 
09026  1 
21693  0 
03667  0 


00006  1 
39755  1 
39755  1 
09369  1 


91179  0 
22007  0 
22007  0 
13667  1 


09,3790 

09,3750 


09369  1 03793  1 

03750  0 CKSM  09127  1 


05972  0 99751 

3 a 


00006 

a 


0301  1 

a 


00002  o c : 03797  0 
a a 


09,376C  a 

09,3770  a 


ass 


a 


a a 

a a 


a 

a 
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OCTAL  LISTING  FOR  PARAGRAPH  « 


UITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  CF  EACH  WORD, 


DENCTES  UNUSEO  FIXED  MEMORY 


ALL  VALID  V^CRDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCS  E MARKED  "I”  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C”  (CONSTANTS) 


05,2000  C:  02357  1 

05,2010  C:  OOOOC  I 

05,202C  C : 03275  *1 

05  ,2030  C:  2721A  0 


C:  20000  C 
C:  16533  0 
C : 012A2  1 
C:  01315  1 


C : 
C: 
C : 
C: 


00000  1 
30007  0 
24A67  1 
26177  1 


C:  00000  1 
C:  77333  1 
C:  00020  P 
C:  77731  I 


C : 00000  1 
C;  5665A  0 
C:  17260  0 
C;  55217  0 


C:  00000  1 
C:  00000  1 
C:  00002  0 
C : 32055  0 


C:  00000  1 
C : 00000  1 
C : 00000  1 
C:  22576  0 


C:  oonoo  1 
C:  06273  1 
C : 22572  I 
C:  1062A  0 


O5,2OA0 
05,20  50 
05,2060 
05,207C 


C : 


C : 
C : 


10605  0 C : 37436  1 
06A75  1 C:  00162  1 
17752  1 C:  77512  1 
03451  1 C:  13443  0 


C;  01635  0 
C:  33431  1 
C:  67453  1 
C:  02256  1 


01065  0 C:  31323  1 C;  20770  0 
22566  1 C:  24130  0 C:  02000  O 
00131  1 C:  26730  I C:  77340  0 
01341  0 C:  25733  1 C:  03633  1 


C : 13725  0 
C:  COOOO  1 
C:  32127  1 
C : 12266  0 


C:  02245  0 
C : 00256  0 
C:  24340  0 
C:  13700  1 


05,2100 

05,2110 

05,2120 

05,2130 


C:  01335  0 
C:  00007  0 
C:  01326  1 
C:  01723  0 


C:  03630  1 
C:  01776  0 
C ; 01277  1 
C;  01725  0 


C:  32136  1 
C:  12274  0 
C:  03441  0 
C;  01727  1 


C:  00024  1 
C:  03635  1 
C:  32157  0 
C;  01731  0 


C:  32145  0 
C : 12365  1 
C:  32170  0 
C:  01570  1 


C:  24340  0 
C : 01330  0 
C:  00007  0 
C : 76060  0 


C:  3215^  0 
Cj  05333  1 
C:  7A261  J 
C:  04320  1 


C:  07115  0 
C:  03577  1 
C : 76056  0 
C:  01432  0 


O5,2lA0 
05,2150 
05,2160 
05,  2170 


C:  07021  0 
C:  01227  1 
C : 07234  0 
C:  03560  1 


C : 
C; 


C : 


07234 

C1231 

•)4032 

67A53 


0 

0 

1 

I 


C: 

C; 


C: 


04032 

01233 

03024 

32127 


1 

1 

1 

1 


C:  24074  1 
C:  76560  0 
C:  03113  1 
C:  24340  0 


C: 

C: 


C : 
C: 


52755  1 
07242  1 
34011  0 
02020  1 


C;  76556  0 
C:  10372  0 
C:  34013  1 
C:  02774  1 


C 

C 


: 01223  0 
; 77667  0 
: 34030  0 
: 07)1 f 0 


C:  01225 
C:  07021 
C:  43745 
C:  01330 


05,2200 

05,2210 

05,2220 

05,2230 


C:  01341  0 
C:  32145  0 
C:  01277  1 
C:  12760  0 


C:  25733  1 
C : 24340  0 
C:  03441  0 
C:  65011  1 


C : 00734  1 
C:  32154  0 
C:  32157  0 
C:  32127  1 


C:  12022  1 
C:  32226  0 
C:  52755  ) 
C:  24340  0 


C:  05333  1 
C:  C5333  1 
C:  05700  0 
C : 32276  0 


C:  13700  1 
C : 04036  0 
C:  77665  1 
C:  14340  0 


ft  32136  1 
C : 00132  O 
C:  12737  1 
C:  03451  1 


C:  00024  1 
C : 01326  1 
C:  02755  1 
C:  13443  0 


05,2240 
05  ,2250 
05,2260 
05,  2270 


C : 13433  1 
C:  32145  0 
C:  12365  1 
C;  00007  0 


C:  03633  1 
C:  24340  0 
C:  02256  1 
C;  03620  0 


C:  12266  0 
C:  32154  0 
C:  04036  0 
C : 03466  0 


C:  00007  0 
C:  07115  0 
C:  00112  0 


C:  03630  1 
C:  00007  0 
C:  C1326  1 


C;  32224  1 
C:  01776  0 
C : 01277  1 


C: 

C: 


32126  1 
12274  0 


C : 0344)  0 


C:  03577  1 


C:  02347  0 


C:  77770 


74320  0 


C : 00024  1 
C:  03635  1 
C:  32157  0 
C:  03461  1 


05,2300 

05,2310 

05,2320 

05,2330 


C:  03752  1 
C;  03642  1 
C:  24340  0 
C : 03615  0 


03754 

03664 

3215A 

00112 


1 

0 

0 

0 


C: 

C: 


C: 

C: 


07115  0 
01326  1 


C: 

C: 


C: 

C: 


32341  0 
02276  0 
12626  0 
01277  1 


C ; 32355  0 
C;  32224  1 
C:  13626  1 
C:  C3441  0 


C:  13634  1 
C:  32157  C 


13252  0 C:  13645  1 
00024  1 C:  32145  0 
02262  0 C;  02400  1 
32170  0 C:  03614  1 


05,2340 

05,2350 

05,2360 


C:  74324  1 
C:  03457  1 
C : 24340  0 


C:  75441  1 
C:  03461  I 
C;  32276  0 


C:  03651  0 
C:  03752  1 
C:  14340  0 


C:  02337  1 
C:  03754  1 
C:  02774  1 


C;  03652  0 
C:  75443  0 
C:  25733  1 


C:  03754  1 
C:  24340  0 
C : 26236  1 


C : 03654  0 
C:  57423  0 
C:  32224  1 


C:  03756  0 
C:  32)27  1 
C:  32136  1 


05,2370 


00024 


32145  0 


C : 24340  0 


C:  32154  0 


32226  0 


12230  0 


02020  ) C;  00112  0 


gap:  assemble  REVISION  131  OF  AGC  PFCGBAM  LUMINARY  BY  NASA  2021112-'^9l 


17:53  DEC^  19,1969 


PAGE  1604 


OCTAL  LISTING  FOR  PARAGRAPh  « 045, 


NlTH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  V.CIROS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "1''  (INTERPRETIVE  OPERATOR  WORDS) 


DR  "C " (CONSTANTS) 


L:  0221^  I 
C:  252C3  I 
C:  00007  0 


C:  01277  1 
C:  12201  I 
C : 32136  I 
C:  02020  1 


C : 

c; 


C : 
C : 


03441 

02215 

00024 

25173 


C : 
C: 
C : 
C: 


32157  0 
12206  0 
32145  0 
15207  0 


C:  32170  n 
C:  02214  I 
C;  24340  0 
C : C1326  1 


C: 
C ; 


0: 


00007  0 
12207  1 
32154  O 
C1277  1 


C: 
C : 
C : 
C: 


77770  1 
02215  0 
07115  0 
00007  0 


C:  12200  n 
C:  25167  0 
C:  00007  0 
C:  32157  0 


05,2440 
0 5,  2450 
05,2460 
05,247C 


64735  1 
44644  1 


02172 
12456 
55035 
553)  C 


1 

0 

1 

0 


C:  02407  0 
34736  I 
34755  1 
34736  1 


C:  02232  0 
05105  0 
55365  1 
00006  1 


02066  0 
77777  0 
54375  1 
OlOll  0 


C : 02303  0 
C:  77777  0 
54376  1 
44755  o 


02357  1 00004  0 
31035  0 74771  0 
54377  0 54320  1 
54055  0 34751  0 


05,2500 
05,2510 
05,  2520 
05,2530 


55262  1 
55260  0 
01005  0 
01014  0 


34355  0 
55273  1 
00006  1 
41035  1 


54366  0 
55360  1 
01006  0 
74771  0 


34755  1 
55362  0 
00006  1 
10000  0 


55245  1 
54333  C 
010) 2 0 
02540  1 


54371  0 
55321  1 
00006  1 
34771  1 


*^5071  1 
55501  0 
010)3  1 
0O006  1 


55257  1 
00006  1 
00006  1 
05012  1 


05,2540 

02641  0 

44755 

0 

05,2550 

55322  1 

23061 

0 

05,2560 

55476  1 

32000 

0 

05,  257C 

55410  1 

34755 

1 

05,2600 

64746  0 

553nC 

1 

05,2610 

70077  0 

63402 

1 

05,  2620 

52103  1 

34744 

1 

0 5,2630 

5410$  1 

34737 

0 

55010  0 33373  0 55277  0 
54111  1 35015  0 54003  0 
5540C  0 33062  0 55403  0 
554C7  1 34363  0 55404  1 


00006  1 33400  0 52075  1 
54077  0 00006  1 33404  1 
64740  0 64741  1 70104  0 
70106  1 63411  0 54106  1 


33065  1 55343  0 34751  0 
33056  1 55444  0 33057  0 
55406  0 33063  1 55405  0 
34744  1 55411  0 35026  0 


33401  1 54076  1 34737  0 
52101  0 000C6  1 33406  0 
63407  1 54104  0 33410  1 
33412  0 5^107  O 04635  0 


05,264C 
05,2650 
05,2660 
05,  2670 


10006  1 
52752  3 
04007  I 


10004  0 
34755  1 
00006  1 
53433  0 


00006  1 
52762  0 
34755  1 
31035  0 


34755  1 52754  0 
00006  1 34755  1 
5276^  0 00002  0 
74750  0 00006  1 


00006  1 34755  1 
52756  1 OOOC6  1 
24320  0 22002  0 
12701  1 64746  0 


00006  1 
00006  1 


05  ,2700 
05,2710 
0 5, 2720 
05,2730 


05012  1 
00006  I 
00006  1 
70106  1 


03066  1 
12726  1 
21376  1 
54106  1 


34350  0 
61377  0 
51377  0 
33375  0 


71360  1 
00006  1 
52001  I 
71C35  1 


00006  1 
12716  1 
34755  1 


12707  1 
13103  1 
55360  1 


13103  1 
31374  0 
03105  0 


41360  1 
54003  0 
44736  0 


64735 


57035  0 


33361  0 71277  0 


05,2740 

05,2750 

05,276C 

05,2770 


00006  I 
A3064  1 


55277  0 
lOClO  0 
05011  1 
70106  1 


31321  0 
12757  1 
12773  1 
54106  1 


54333  0 
34737  0 
00004  0 
34756  1 


34750  1 
00006  1 
C3114  0 
54161  0 


00006  1 
05011  1 
12767  1 
60000  1 


05014  1 
12773  1 
03157  1 
onnoF  1 


40101  0 
34736  1 
03066  1 
50000  1 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCCFA^  LUMINARY  BY  NASA  2021112-'^91 


17: 53  DECo  19,1969 


PAGF  J605 


OCTAL  LISTING  FOR  PARAGRAPH  H 0A6,  V.ITh  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "SI"  OENCTES  UNUSED  FIXED  MEMORY 


ALL  VALID  k»OBDS  APE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  OB  "C"  (CONSTANTS) 


05,3000 
05,3010 
05,302C 
05,  3030 


30752  1 
12774  0 
70075  i 
50000  1 


QOOOe  1 
54162  0 
54075  1 
10752  C 


06CC1  0 
05315  0 
44741  0 
13034  1 


10000  0 
00004  0 
70074  0 
13041  0 


13052  1 
44736  0 
54074  0 
54154  0 


13052  1 
70075  1 
34756  1 
24154  1 


13<'52  1 
54075  1 
54161  0 
24162  1 


10161  0 
44740  1 
60000  1 
33060  1 


05,304C 
05,30  50 
05,3060 
05,3070 


04622  0 
16001  1 • 
03527  1 
02016  1 


10161  0 
12637  0 
21322  1 
10006  1 


13026  1 
05567  0 
C:  770C1  0 
13100  1 


C: 

C: 


10162  0 
01107  0 
00074  i 
00006  1 


12637  0 
12477  0 
C : 20100  1 
00015  0 


C; 
C : 


34735  I 
07777  1 
03434  1 
63372  1 


71010  0 00006  1 
32321  0 C:  77445  1 
34747  1 00006  1 
00006  1 13101  0 


05,3100 

05,3110 

05,3120 

05,3130 


00002  0 03105  0 
00006  1 02033  0 
67752  0 54030  0 
55466  0 • 00006  I 


12472  0 03105  0 
63376  0 54110  0 
35015  0 54003  0 
03013  0 34755  1 


12477  0 33362  0 
34733  1 54026  1 
44737  1 71262  1 
55465  C 55472  0 


54335  0 34746  0 
67751  0 54027  0 
55262  1 34733  1 
44751  1 70111  1 


05,3140 
05,3150 
05,31  6U 
05,317C 


54111  1 
24006  1 
00006  1 
13172  1 


00006  1 
11674  1 
0 3011  1 
34742  1 


33360  1 
13154  0 
44743  1 
63365  1 


53264  1 
25674  0 
70077  0 
40000  0 


A0107  0 
11  675  0 
54077  0 
70110  0 


74735  C 
13157  0 
40077  0 
54110  0 


00006  1 
25675  1 
747^1  0 
33367  0 


13157  0 
33371  1 
00006  1 
00006  1 


05,3200 
05,3210 
05,  3220 
05  ,3230 


03012  1 
00006  1 
350Q7  0 
55402  I 


A4750  C 
33  013  0 
54003  0 
55401  1 


70101  0 
34740  0 
34734  0 
55400  0 


54101  0 
00006  1 
55407  ) 
45236  1 


44741  0 
C5013  0 
55406  0 
55410  1 


70101  0 
34746  0 
55405  0 
55412  0 


54101  0 
00006  I 
55404  1 
55414  0 


33370  0 
03014  I 
55403  0 
55416  1 


05,3240 
0 5,  3250 
05,3260 
05,3270 


55420  1 
55415  1 
54167  0 
55310  0 


55422  0 
55417  0 
54203  1 
54067  1 


55424  0 
55421  0 
54217  1 
33364  n 


55426  1 55430  0 45237 
55423  X 55425  1 55427 
54233  1 54247  1 54263 
54400  1 63366  1 54454 


0 55411  0 55413  1 

0 55431  1 44755  0 

1 54277  1 54313  1 

C 63366  1 54530  0 


05,3300 

05,3310 

05,3320 

05,3330 


63366  1 54604  1 
55022  1 10154  0 
54775  0 55041  1 
55001  0 55042  1 


63366  1 54660  0 
13305  0 55323  0 
55012  I 55014  1 
55307  0 55C43  0 


34363  0 54154  0 
55324  1 55325  0 
55011  1 55017  1 
55301  0 55302  0 


44740  1 50154  1 
55073  O 540^5  1 
55020  0 55000  1 
55303  1 55304  0 


05,3340  5531  1 
05,3350  65026 
05,3360  C:  34066 
05,3370  C:  74160 


1 54100  1 

0 55300  1 

0 C:  00435  0 C: 

0 C : 30001  0 C : 


34760  1 55015 
33363  1 5536J 
03522  1 C;  03363 
77755  0 C:  374)1 


0 44753  0 

0 44360  1 

1 C : 00400  0 f : 
1 C;  37000  0 C; 


55077  ) 34746  0 
54776  0 00002  n 
32001  1 C : 00054  0 
00450  0 C : 00102  1 


71300  1 
C:  02024  0 
C;  27470  I 
C : 00000  1 


gap:  ASSEPBLE  REVISION  131  CF  AGC  FPCGFA^  LUNINARY  BY  NASA  2021112-091 


17:93  DECo  19,1969 


PAGE  1606 


OCTAL  LISTING  FOR  PARAGRAPH  « 0^7,  V.ITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  UOROS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I”  (INTERPRETIVE  OPERATOR  WOROSI  OR 


(CONSTANTS) 


05,3400 
05,3410 
05,  342C 
05,3430 


OOOOO  1 C:  00000  1 
00000  1 C:  OOOOO  1 
60002  '•)  . 54  101  1 
10002  I A0106  1 


C : 02000  0 
C:  40000  0 
40000  0 
74737  1 


OOOOO  1 C : OOOOO  1 
33416  1 54017  0 
52760  1 50002  0 
26106  1 *3501  1 


OOOOO  1 
50017  1 
33476  1 
70111  1 


00100  0 C:  OOOOO  1 
13417  1 33477  0 
55010  0 55162  1 
54111  1 33502  0 


05  ,3440 
05,3450 
05,3460 
05,3470 


55343  0 
00006  1 
30025  0 
40000  0 


40101  0 
01011  0 
53342  1 
52760  1 


00006  1 
04635  0 


26101  0 44355  1 
54107  0 40074  0 
33475  1 53252  1 
12763  0 C;  03746  1 


00006  1 
74752  1 
02653  0 
64067  1 


02011  0 64737  0 
26074  0 00006  1 
36250  0 54001  1 
00106  0 C:  00027  1 


05,3500 

05,3510 

05,3520 

05,3530 


00107  1 
34745  0 
05013  0 
10336  0 


C: 


40640  I 
00006  1 
00335  1 
03665  I 


00554  0 
02013  I 
37752  0 
77753  0 


00017  1 C:  23305  0 
10000  0 00335  1 
54337  1 54336  0 
13534  I 10337  1 


54016  1 
06022  1 
3365?  0 
15700  1 


00006  1 
34745  0 
54335  0 
74001  0 


22012  1 
00006  1 
13543  1 
30334  0 


05,3540 

05,3550 

05,3560 

05,3570 


00006  1 63543  0 
50334  0 30000  1 
24000  1 54336  0 
30336  1 63565  I 


13550  0 
10000  0 
63532  0 
00006  1 


50333  I 32441 
24334  0 13560 
lOCOO  0 13570 
63665  1 67744 


1 

0 

1 

1 


54334  1 40333  0 13767  C 
56334  0 40000  0 56334  0 
47777  0 13570  1 03612  1 
00006  1 63623  O 00006  1 


05,3600 
05,3610 
05,  3620 
05,3630 


00006  1 
56336  1 


44000  1 
13713  0 
03C13  0 
54337  1 


540CI  1 
00006  1 
01265  1 
34755  1 


00006  1 
23265  1 
50336  1 
56336  1 


50336  1 
22C70  0 
OOOOO  1 
54003  0 


43777  1 54336  0 37752  0 
06022  1 22070  0 447*5  1 
10000  0 30336  1 13677  0 
74357  0 00006  1 50000  1 


05,364C 

05,3650 

05,3660 


31402  0 
10000  0 
74357  0 


50336  1 52341  0 
13634  1 C:  C3530  1 
00006  1 50000  1 


24336  1 24336  1 
54337  1 37752  0 
31402  0 13713  0 


24337  0 
54336  0 
30336  1 


50337  0 
56337  0 
54003  0 


OOOOO  I 
54003  0 
74357  0 


05,367C  54C01  1 33536 


26336  0 00006 


50001  0 


31401  0 13713  C 54337  1 


35  ,3700 
05,3710 
05,  3720 
0 5,3730 


50337  0 OOOOO  1 
24000  I 54336  0 
15270  0 34755  1 
30336  I 13713  0 


10000  0 
13571  0 
54336  0 
03734  1 


24337  0 
00006  1 
03764  I 
C:  03746  1 


13710  0 
01034  1 
33733  0 
34752  0 


54335  0 
26336  0 


37752  0 
00006  1 
30025  0 
74357  0 


56337  0 
01035  0 
56001  0 
lOOOO  0 


05,374C 

05,3750 

05,3760 

05,3770 


13750  1 
30336  1 
56001  0 
03612  I 


30336  1 
54003  C 
50002  0 
32065  0 


74737  1 
74357  0 
71400  0 
56001  0 


00006  1 
54002  1 
13713  0 
13713  0 


13723  0 
34754  0 
C0006  1 
03774  0 


13522  0 3373? 
54001  I 50002 
22335  I 35011 
03775  1 CKSM  75613 


54335  0 
71401  1 
54001  I 


gap:  assemble  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021112-091 


17:53  DEC.  19,1969 


PAGE  1607 


OCTAL  LISTING  FOR  PARAGRAPH  « 050,  kITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  OENOTFS  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I" 


(INTERPRETIVE  OPERATOR  WOROSI  OR  "C"  (CONSTANTS) 


06,2000 
06,2010 
06,2020 
06,20  30 


EAC16  1 00006  1 
54U70  1 55310  U 
6A101  0 00006  1 
64754  0 54775  C 


22012  1 
11035  I 
OlOlO  1 
50775  1 


11310 

02063 

02071 

11022 


12010  0 T2007  0 
02063  0 57035  o 
55015  0 44755  0 
10775  0 12030  1 


54073  1 
12047  1 


34757  0 
55035  1 
56775  1 
00012  1 


06,2040 
06,2050 
06,20  60 


10073  1 
50775  1 
00006  1 


37764  0 
55022  1 
01010  1 


55015  0 00002  0 
74356  1 54073  1 
16742  1 lOlOl  0 


54073  1 32037  1 
34350  0 50775  I 
34755  1 12130  0 


12031  0 64753  1 
74066  1 60073  0 
11^15  0 02024  0 


06,2070 


12130  0 42171  0 


27310  0 


37734  0 54027  0 


31300  0 00006  1 06032  0 


06,2100 

06,2110 

06,212C 

06,2130 


74736  0 
lOOOO  0 
03164  1 
00C06  1 


00006  1 
12116  1 
13006  C 
01010  1 


12116  1 
34355  0 
12172  0 
32041  0 


23300  0 
05072  1 
13140  0 
12C74  1 


00006  1 
C : 03506  1 
03164  1 
34736  ) 


0600T  0 
C:  60101  1 
13006  n 
71310  0 


55300  I 
5007C  O 
12172  0 
000C6  1 


74736  0 
12120  1 
13140  0 
12165  0 


06,2140 

06,2150 

06,2160 

06,2170 


11C15  0 
27310  0 
11310  0 
12144  0 


02024  0 
C5270  1 
05270  1 
22400  0 


12152  1 
00006  1 
37737  0 
31277  1 


44736  0 
01010  1 
02154  0 
00006  I 


27310  C 
37734  0 
05270  1 
06030  1 


37734  0 
26027  0 
00006  1 
72761  1 


54027  0 
34743  n 
01010  1 
00006  1 


34743  0 
27310  0 
34736  I 
12227  0 


06,2200 
06,2210 
06,  2220 
06,2230 


54070  1 
62514  0 
50070  0 
74745  I 


34736  1 
lOCOO  0 


00006  1 
64753  1 
71277  0 
12374  1 


06001  0 55277  0 
24070  0 60000  1 
50070  0 02755  I 
34744  1 71277  0 


44753  0 
54000  0 
10071 
10000  0 


5607C  0 
12213  I 
12212  0 
12242  0 


00006  1 
56071  1 
41277  0 
34744  1 


06,2240 
06, 2250 
06,2260 
06,2270 


27277  0 12374  1 
41277  0 74743  1 
05203  'J  C;  02266  1 
57277  I 74752  1 


42777  0 
10000  0 
14106  0 
00006  I 


71277  0 
12256  0 
12374  1 
12306  1 


55277  0 
05567  0 
33005  1 
34736  1 


74736  0 
00213  J 
05224  P 
71277  0 


inocc  o 

02735  1 
4^752  1 
00006  1 


12347  1 
33005  1 
71277  0 
12264  1 


06,2300 
06  ,2310 
06,2320 
06,2330 


40074  0 
05012  1 
05224  0 
74735  0 


74744  0 
04674  0 
42774  0 
00006  1 


10000  0 15261  0 

C:  17257  1 05457  I 

71277  0 55277  0 

12336  1 26076  1 


04635  0 C:  17630  1 
44763  C 0O006  1 
44746  1 71300  ] 
30025  0 57074  0 


34735  1 00006  1 
03012  1 34741  1 
553PO  1 40076  1 
02703  1 44735  0 


06,2340 

06,2350 

06,2360 

06,2370 


00006  I 
00006  1 
02746  0 
05203  0 


03012  1 
02012  0 
04674  0 
C:  02313  1 


35003  1 
10000  0 
17257  1 
14106  0 


05203  0 
12374  1 
34747  1 
12374  1 


34744  1 
00006  1 
31300  P 


16103  1 
70074  0 
0501?  I 
75026  I 


15261  0 34750  1 
inooo  P 12374  1 
05457  1 34746  0 
54O0J  1 35026  0 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PFCGBAf'  LUMINARY  BY  NASA  2021112-091 


17: 53  DECo  19, 1969 
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OCTAL  LISTING  FOR  PARAGRAPH  tf  051,  kITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  V»OROS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  HOROS)  OR  "C  •'  (CCNSTANTS1 


O6,2A00 
06  ,2A10 
06,242C 
06,2930 


00006  1 
00006  I 
29070  0 
50C70  0 


03033  1 
06001  0 
60000  1 
02763  1 


00O06  I 06001  0 
55300  1 39755  1 
54000  0 12-^20  1 
10C71  0 12417  0 


00006  1 12434  1 

56070  0 60000  1 

56071  1 50070  0 

10034  1 12441  n 


5407C  1 23300  0 
12421  0 64753  1 
34737  0 71300  1 
12465  0 12441  0 


06,2440  12465  0 
06,245C  00006  I 
06,2460  C:  03131  I 
06,2470  15270  0 


02012  0 
16103  1 
71035  1 


00006  1 
10000  0 
34746  0 
10000  0 


62964  0 
12462  1 
12465  0 
12507  0 


62513  1 
04674  0 
34755  1 
34746  C 


00006  1 
17135  0 
61035  0 
71277  0 


62462  0 
36245  ^ 
74746  1 
10000  0 


34750  1 
05203  0 
00006  1 
15270  0 


06,  2500 
06,2510 
06,2520 
06,2530 


91035 

15270 

12525 

00006 


74746  1 
12500  1 
34750  1 
03011  1 


64735  1 
C:  63439  1 
00006  1 
12225  1 


57035 

75252 

05011 

34752 


0 

0 

1 

0 


72162  1 
74733  0 
12225  1 
71277  0 


02766  1 
loono  n 


15270  0 02766  1 
11277  0 12525  0 
12225  1 44750  0 
12225  1 34736  1 


06,2540 

06,2550 

06,2560 

06,2570 


71277  0 J0006  1 
12225  1 34752  0 
27277  0 32564  1 
00006  1 03014  1 


12556  1 34735  1 
27277  0 05567  0 
54110  0 12225  1 
42776  1 00006  1 


0C006  1 02012  0 

C:  00207  1 12225  1 

C:  00102  1 10000  0 

C3C12  1 44745  1 


00006  I 12551  0 
41 277  0 74745  1 
12361  0 43002  1 
701CJ  0 54101  0 


06, 2600 
06,2610 
06,262C 
06  ,2630 


44355  1 
17166  0 
C3014  1 
17166  0 


00006  1 
94755  0 
12225  1 
92777  0 


02011  0 
54050  0 
00006  1 
70074  0 


64736  1 
54051  1 
12643  0 
56074  1 


00Q06  1 
54052  1 
41300  1 
40000  0 


OlOll  0 
54047  0 
74746  1 
74744  0 


02743  0 
43001  I 
27300  1 
lOOOO  0 


04674  0 
00006  1 
04674  0 
12225  1 


06,2640 
06, 265C 
06,2660 
06,267C 


05567  0 
lOOCO  0 
10000  0 
12432  1 


00214  0 
39742  1 
12432  1 
10000  0 


12225 

57277 

31277 

12432 


1 

1 

1 

1 


34752  0 
7300-t  1 
7300C  0 
05567  0 


71277  0 
27277  0 
10000  O 
01105  1 


10000 

02703 

12432 

12932 


0 

1 

1 

1 


12225  I 12556  1 
41277  O 74753  0 
05567  0 C:  00212  0 
lonoo  0 12432  1 


06,2700 

06,2710 

06,2720 

06,2730 


05567  0 
00006  1 
10000  0 
05734  I 


C1106  1 
04001  1 
':0002  0 
34753  1 


12432  1 34761  0 
40000  0 75025  1 
44753  0 00006  1 
C0006  I 05011  ] 


71277  0 
10000  0 
03011  1 
00066  1 


00006  1 
12726  1 
00002  0 
43003  0 


74742  0 
34753  1 
00006  1 
00006  1 


31277  1 
71300  1 
22066  I 
03012  1 


06,2740 

06,2750 

06,2760 

06,277C 


34763  1 00006  1 
27277  0 91300  1 
12565  1 C:  76400  1 
10000  0 24002  0 


05012  1 
74746  1 
12622  1 
00002  0 


41035  1 
27300  1 
12650  1 
40010  1 


72773  1 27035  1 41277  0 
00002  0 12533  1 12703  0 
12671  1 12676  0 ^1300  1 
00054  0 C:  00075  0 C:  00272  0 


72775  1 
12703  0 
74753  0 
00300  1 


gap:  ASSE^RLE  REVISION  131  CF  AGC  PRCCRAP  LUMINARY  6Y  NASA  2021112-0^1 
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OCTAL  LISTING  FOR  PARAGRAPH  H 052,  IsITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "P'  (INTERPRETIVE  OPERATCR  WORDS!  OR  "C"  (CONSTANTS) 


06,3000  C : 01720  0 
06,3010  06033  I 
06,3020  5A110  0 
06,3030  C:  02073  1 


C:  C0740  I 
74752  1 
74752  1 
C:  52107  0 


C : 77000  1 
00006  1 
10000  0 
13126  O 


C 

C 


40040 

13037 

13034 

05776 


1 

1 

I 

J 


C:  76777  1 
22110  1 
37666  0 
44752  1 


C:  21450  0 
00006  1 
26110  0 
00006  1 


30110  1 00006  1 

06001  0 73033  0 

3475?  1 05203  0 

03012  1 30110  1 


06,3040 
06, 3050 
06,3060 
06,3070 


00006  1 06030  1 
13126  0 34745  0 
10  )00  0 13070  1 
04564  1 30101  1 


74745  1 0C006  1 
22110  1 00006  1 
40C74  0 74745  1 
74750  0 10000  0 


13071  0 34752  0 
06001  0 54110  0 
lOOOO  0 13070  1 
13126  0 40103  1 


70110  0 lOOCO  0 
30110  1 7461  5 0 
05567  n c:  00515  0 
74747  0 10000  0 


06,3100 
06,3110 
06, 3120 
06,3130 


13105  1 
13126  0 
00006  1 
10000  0 


30102  1 74744  0 
04523  1 C:  00035  1 
03012  1 34752  0 
13132  0 00006  1 


lOOOO  0 
13115  0 
05203  0 
05012  1 


13126  0 
13126  0 
C:  02140  0 
13140  0 


33135  0 
34741  1 
C : 52107  n 
C:  32002  1 


7«il  1C  0 lOOOO  0 

26110  0 43136  1 

30110  1 74752  1 

: 20002  1 C:  02100  1 


06,3140 
06,315C 
06,3160 
06,31 70 


30034  0 
55417  0 
00006  1 
54002  1 


05033  1 
41417  0 
70061  1 
41273  1 


55414  0 
00006  1 

55415  I 
70002  1 


30034  0 
70061  1 
C5270  1 


05032  0 
55416  1 
44755  0 


54061  1 
30032  C 
00006  1 


30032  0 
05032  o 
06032  0 


05033  1 
55420  1 
74357  0 


54001  1 40002  1 71273 


26001  1 00006  1 


06,3200 

06.3210 

06,3220 

06,3230 


15270  0 
50001  0 
73250  1 
13244  I 


00006  1 
34743  0 
27257  1 
50001  0 


74745  1 
54002  1 
41260  0 
43250  1 


56C01  0 
71273  1 
50001  0 
71257  I 


24001  0 
looon  0 
73260  1 
55257  1 


60000  1 
13231  0 
27260  0 
50001  0 


5400C  0 
^1257  1 
3C002  0 
43260  1 


13204  0 
50001  0 
27273  1 
71260  0 


06,3240 

06,3250 

06,3260 

06,327C 


55260  0 
15270  0 
C:  00002  0 
C:  COlOO  0 


4f002  1 
C:  C0040  0 
C:  GOOlO  0 
33537  0 


71273  I 
C : 00020  0 
C : 00020  0 
56003  1 


55273  1 
C:  00100  0 
C:  00004  0 
54163  I 


37720  C 
C:  00200  0 
C : O0200  0 
11477  0 


05072  1 
C:  00010  0 
C : 00001  0 
13300  0 


C : 03652  0 
C:  00001  0 
C:  0000?  0 
13300  0 


C:  42106  0 
C:  00004  0 
C:  00040  0 
13361  1 


06,  3300 
06,3310 
06,3320 
06,3330 


34751  0 
30001  0 
50132  1 
50132  1 


54132  0 
00006  I 
20325  1 
20325  1 


50132  1 
74746  1 
50132  1 
10132  0 


31^53  1 
50132  1 
41452  1 
67752  0 


00006  I 
54325  1 
00006  1 
13301  1 


50132  1 
30002  0 
71074  1 
13336  0 


70324  0 54002  1 
00006  1 74746  1 
00006  1 74746  1 
55477  0 54130  I 


06,3340 

06,3350 

06,3360 

06,3370 


03364  0 
03462  1 
00O03  1 
52155  1 


41460  0 
11477  0 
30163  U 
31463  1 


03462  1 
13354  1 
54003  0 
03433  0 


03401  1 
13361  1 
14631  0 
00006  1 


41461  1 03462  1 
35031  0 05072  1 
00006  1 22156  0 
40327  0 52155  1 


03416  1 31462  0 
0351 50  C:  14063  1 
00006  1 40325  1 
41466  0 03433  0 


gap:  assemble  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-C'91 
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OCTAL  LISTING  FOR  PARAGRAPH  ft  r)53» 


HTH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WOROr  "3"  DENOTES  UNUSFO  FIXED  MEMORY 


ALL  VALIC  KORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATCR  WORDS! 


OP  "C"  (CONSTANTS) 


00156 

00006 

00006 

31A65 


0 

1 

1 

1 


C0006  1 
^0331  1 
40327  I) 
03433  0 


22156  0 
52155  1 
52155  1 
00156  0 


00006  1 
41467  1 
31470  0 
56154  1 


40327  0 
03433  0 
0343?  0 
00006  1 


52155  1 
00156  D 
00006  1 
70154  0 


3146*  0 
OOOC‘6  1 
40331  1 
521 23  0 


03433  0 
22156  0 
52155  1 
30155  0 


06,3440 
06, 345C 
06,3460 
06,347C 


00006  1 
50130  0 
21472  0 
74750  0 


70154  0 
21472  0 
00002  0 
50130  0 


54001  1 
30123  1 
C0006  1 
21472  0 


34755  1 
00006  1 
22131  1 
30155  0 


20123  0 
74743  1 
00006  1 
CC006  1 


30122  0 
54001  1 
71074  1 
74750  0 


00006  1 74743  1 
34755  1 50130  0 
22155  0 00006  1 
54001  1 34755  1 


06,3500 
36,3510 
06,3520 
06,  3530 


50130  0 
00131  1 
31472  1 
00006  I 


21472  0 
73561  1 
00006  1 
74744  0 


34752  0 
10000  0 
74744  0 
50130  0 


60130  0 
55477  0 
50130  0 
21472  0 


56130  0 
00131  1 
55472  Cl 
10130  1 


50000  1 
34751  0 
34755  1 
67752  0 


U47J  0 
54130  1 
50130  0 
13516  1 


13511  0 
50130  0 
57471  1 


06,3540 

06,355C 

06,3560 

06,3570 


33537  0 
50130  0 
13547  0 
1007  6 1 


04616  1 
31472  1 
C:  77776  1 
15155  1 


15155  1 
15155  1 


04616  1 C : 17707  1 
7474^  0 50130  0 
11477  0 13567  1 
13574  0 30104  1 


15155  1 34751  0 54130  1 
23472  1 1013C  1 67752  0 
13R67  1 15155  1 00004  0 
74744  0 54141  1 00006  1 


06,  3600 
06,3610 
06,3620 
06,3630 


13603  0 
64736  1 
55477  0 
03652  0 


C4674  0 C : 77541  I 
64736  1 56C01  0 
54130  1 10141  1 
10141  1 03401  1 


30025  0 57074 
56001  0 00006 
03364  0 O0006 
00006  1 40125 


0 00003  1 

1 74742  0 
I 30125  1 
0 52155  1 


40000  0 61074  0 
52125  O 34755  I 
52155  1 41460  0 
31461  0 03652  0 


06,3640 

06,3650 

06,3660 

06,3670 


10141 

13515 

21472 

13502 


1 

1 

0 

1 


13416  1 00006  1 
15155  1 56002  O 
30302  0 00006  1 
34616  1 C:  17270  1 


40125  0 52155  1 
5^131  0 30002  0 
70155  1 54001  1 
11477  0 13677  0 


41462  1 

00006  1 

34755  1 
13677  0 


0365?  0 
70154  0 
50130  0 
15155  1 


11477  0 
50130  0 
21472  0 
30104  1 


06,3700  74744  0 

06,3710  56003  1 


06,372C  55475  1 

06,3730  C:  01742  1 


54141  1 
54163  I 
55476  1 


13361  I 
15736  1 


57074  0 
55477  0 
C:  20000  0 
I : 43215  0 


40000  0 
55471  0 
C : 00000  1 
C:  15724  1 


61234  0 
55472  0 
l:  53575  0 
C:  15724  1 


13610  1 

55473  1 

l;  77656  1 
C:  02253  1 


33537  0 
55474  0 
I : 72441  0 
I:  43414  1 


06,3740 
06,3750 
06 ,37  60 
06, 3770 


C : 
I : 


C : 


02675  1 
53435  0 
02475  0 
00017  1 


I:  53575  0 
C:  00023  0 
l:  57545  1 
I : 77616  0 


C:  01716  0 
C:  03772  0 


C:  00001  0 
C:  14017  1 
C:  03773  1 


C:  CC023  0 
l:  76521  0 
C : 01714  1 
CKSM  63402  1 


53435  0 
00007  0 
14021  1 
S 


C : 
C : 
C: 


02331  1 
03434  1 
24007  0 


C:  00015  0 
I:  43414  1 
C:  24023  0 
a 


GAP 
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OCTAL  LISTING  FOR  PARAGRAPH  U 054,  HTH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALIC  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPEPATCR  WORDS!  OP  "C'  (CONSTANTS! 


07,20C0 
07 ,2010 
07,2020 
07,2030 


00004  0 
10000  0 
10530  0 


11307  0 
120AA  1 
12031  0 
64752  0 


02004  1 
34752  0 
10604  1 
55307  0 


02006  0 
27043  0 
12031  0 
34755  1 


05642  1 
10400  1 
10660  0 
51307  1 


12031  0 
12031  0 
53777  0 


36245  1 71043  0 
10454  0 12031  0 
521  34  0 05706  0 
35025  0 05105  0 


07,2040 
07,2050 
07, 2060 
07,2070 


C: 

C: 


02063  0 
57307  1 
34755  1 
20334  I 


C;  li>067  1 
75004  1 
55043  0 
12060  I 


00003  1 

mooo  0 

ObOOl  0 
12C74  I 


14631  0 
5000C  I 
41307  0 
12063  1 


52134  0 
54000  0 
74740  I 
37747  1 


05706  0 
34753  1 
27307  0 
70734  0 


C:  31211  1 34755  1 

04674  0 C : 17656  1 
32330  n 04616  1 

00O06  1 74743  I 


07,2100 
07,2110 
07,2120 
07, 2130 


55551  0 00006  I 
04616  1 C:  20334  1 
52011  0 34755  1 
31403  1 50120  I 


62063  0 
12060  1 
12137  1 
54010  I 


65650  1 
12115  1 
51551  I 
31405  1 


00006  1 
12107  1 
31411  1 
00006  1 


12107 

00006 

50120 

50120 


1 

1 

1 

1 


12123  1 
31345  1 
54011  0 
2001C  1 


32331  1 
5012C  I 
51551  1 
50120  1 


07,2140 

07,2150 

07,2160 

07,2170 


54012  0 
74206  0 
00031  0 
12202  1 


06042  1 
C:  00023  0 
I:  53361  C 
I:  53133  0 


I:  77624  1 
1 : 74325  0 
C:  00023  0 
C:  00004  0 


C:  1C522  C 
C:  00001  0 
I : 77626  0 
C:  16177  1 


I : 70535  0 
C:  00031  0 
C:  53754  1 
I : 52145  0 


C:  00013  0 
I:  45445  C 
C:  24007  D 
C : 00031  0 


I : 73406  1 
C : 63762  I 
C:  02715  O 
C : 3201 1 0 


I:  71525  0 
I : 65361  0 
I:  77776  1 
I:  52175  0 


07,  2200 
07,2210 
07,2220 
07,2230 


02765  0 
32620  1 
27307  0 
35015  0 


32042  0 
04616  I 
75004  1 
C0006  1 


34755  1 
C:  20245  1 
55551  0 
06001  0 


55551  0 
12C60  1 
34755  1 
00006  1 


55550  1 
12216  1 
55552  0 
12241  0 


35004  0 
12063  1 
31307  1 
11  550  1 


71307  0 
41307  0 
75015  1 
12240  1 


55307  0 
74740  1 
54001  1 
12325  0 


07,2240 

07,2250 

07,2260 

07,2270 


C:  30002  0 
C:  30023  0 


34740  0 
54046  1 
C:  247c6  C 
I:  77624  1 


27552  0 
30120  1 
C:  00015  0 
C:  47666  1 


41550  1 
54166  1 
I : 77624  1 
I:  53435  0 


r0006  1 

06042  1 
C:  47666  1 
I:  77626  0 


76245  0 
l:  76614  0 
I : 76606  0 
C : 77746  1 


41551  0 
C:  043C7  1 
C:  00001  0 
I : 63335  1 


60001  0 
C : 32000  0 
C:  24766  0 
C:  03553  1 


07,2300 

07,2310 

07,232C 

37,2330 


C:  00031  0 
C:  02715  0 
00004  0 
C:  30307  0 


I : 70322  0 
C:  0UO31  0 
05  203  0 
C:  01527  0 


C : COOOl  0 C: 

C:  02715  0 C: 

C:  02047  0 C: 

54C16  1 


14031  0 C:  00001 
02767  C I : 77776 
16067  1 05472 
30033  1 54063 


0 I:  56225  1 

1 11550  1 
0 05567  0 
0 30034  0 


16622  0 1 : 53361  0 

122^0  1 34756  1 

com  0 12202  1 

5406^^  1 30032  0 


07,2340 

07,2350 

07,2360 

07,2370 


54065  0 30006  1 
02016  1 10000  0 
12364  0 35567  0 
12460  0 34750  1 


30025  0 52062  1 

12403  0 34740  0 

C:  00112  0 05270  1 

00006  1 02016  1 


56002  0 54012  0 
71307  0 mono  o 
34747  1 00006  1 
10000  0 12421  0 


34776  0 00006  1 
r527C  I 11307  0 
02016  1 10000  0 
34751  0 00006  1 


GAP 
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OCTAL  LISTING  FOR  PARAGRAPH  H 055,  KITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  DENOTES  UNUSFD  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I”  (INTERPRETIVE  OPEPATCR  WORDS)  OR  "C  (CONSTANTS) 


07,2^20 

07,2430 


02016  1 lOOOO  0 
04635  0 C:  46455  1 
12424  0 54753  1 
71307  0 C0006  1 


54070  I 
12443  1 


34776  0 
00113  1 
34741  1 
41550  1 


00006  1 
05270  1 
55551  C 
64751  0 


02016  1 
34755  1 
02513  1 
00006  1 


00006  1 
54070  1 
12520  0 
62453  1 


12412  0 
34742  1 
34736  1 
25550  0 


07,2440 

07,2450 

07,2460 

07,2470 


47714  0 71307  0 
05567  0 C : 00114  0 
02513  1 12506  1 
05270  1 44355  1 


55307  0 
05270  1 
35015  0 
71307  0 


31551  1 71307  0 
05567  0 C:  00107  1 
71307  0 lOOOO  0 
64737  0 57307  1 


lOOOO  0 
02513  1 
12471  0 
74737  1 


12450  n 12525  0 
12626  0 05270  1 
05567  0 C:  00115  1 
lOOno  0 12504  0 


O7,250C 

07,2510 

07,2520 

07,2530 


41551  0 
12466  0 
34755  1 
00006  1 


71307  0 
5555C  1 
54070  I 
30062  0 


55307  0 
C5270  1 
41307  0 
53562  0 


12576  0 
40104  0 
75015  1 
31550  0 


45015  1 
74744  0 
27307  0 
00006  1 


12501  0 
10000  0 
35004  r 
76245  0 


11550  1 
24002  0 
71307  0 
56001  0 


1251]  1 
00002  0 
54071  0 
60071  1 


07,2540 

07,2550 

07,2560 

07,2570 


26070 

30065 

71307 

10000 


55552  0 
50070  n 
61551  1 
12576  0 


30063  I 
54004  1 
553C7  0 
41307  0 


50C70  0 54000  0 
02513  1 12603  1 
75015  I 54001  1 
74736  0 27307  0 


30064  f 50070  0 54002  1 
34737  C 61551  1 40000  0 
35015  0 00006  1 06001  0 
12576  0 35015  0 71307  0 


07,2600  Q0006  1 
07,2610  02513  I 
07,2620  C : 15507  1 
07,2630  C:  20334  I 


74746  1 
12626  0 
34000  0 
12060  1 


55552  0 
51552  1 
00000  1 
12640  0 


35025  0 
32615  1 
C:  00034  0 
34746  0 


05072  I 
02211  1 
C:  C1507  1 
70154  0 


C:  02610  1 
C:  15507  1 
C : 01517  0 
lOOOO  0 


C:  16067  1 
C:  15307  1 
32625  1 
1264 4 1 


05270  1 
C:  15107  0 
04616  1 
12626  0 


07,2640  44736  0 
07,265C  51552  1 
07,2660  40000  0 
07,2670  I : 74345  0 


71307  0 64736  1 
54003  0 41307  0 
64756  1 0CQ06  1 
02355  0 C:  02303  0 


55307 

74736 

62453 

74325 


0 

0 

1 

0 


c 


31235  1 
00006  1 
25550  0 
P2361  1 


51552  1 
12216  1 
12205  0 1: 

03726  1 I ; 


54001  1 
31550  0 
77614  1 
53455 


31237  0 
64753  1 
C:  06466  0 
I : 45325  1 


07,2700 

07,2710 

07,2720 

07,2730 


03474  0 
lOOOO  0 
27300  1 
34747  1 


C:  13504  1 
12715  1 
41277  0 
0C006  1 


I : 52044 
05567 
75741 
05012 


0 

0 

1 

1 


61002 

00206 

27277 

05457 


1 

0 

0 

1 


C : 


71  446 
13650 
44771 
34746 


1 

0 

0 

0 


00004  n 41035  1 
03644  1 41300  1 
00006  1 03012  1 
05203  0 C:  02750  1 


74771  0 
74773  1 
03257  1 
16103  1 


07,2740 

07,2750 

07,2760 

07,277r 


41277  0 
03632  0 
45741  1 
13622  0 


74743  1 
05457  I 
71277  0 
30004  O 


LOOOO  0 12746  1 
44747  0 00006  1 
55277  0 44773  1 
03644  1 03135  C 


05567  C 
03012  1 
71300  I 
36245  1 


00210  1 
34741  1 
55300  1 
05203  0 


00003  1 14631  0 
05224  0 03632  0 
04674  0 C:  14703  0 
03001  0 C:  16103  1 


gap:  ASSEVRie  REVISION  131  CF  AGC  PPCGRAM  LUMINARY  BY  NASA  2021U2-C91 


17:53  OECo  10,19ft<; 


PAGE  1613 


OCTAL  LISTING  FOR  PARAGRAPH  « 056,  kITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  OENOTFS  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATCR  WORDS)  OR  "C 


(CONSTANTS  I 


07,3OC0 

07,3010 

07,3020 

07,3030 


12746  1 
30  321  1 
54061  1 
0522A  0 


73632  0 
00006  1 
13023  1 
73632  0 


34746 

51474 

26001 

54061 


n 

1 

1 

1 


noO06 

20032 

5147^* 

34752 


1 

1 

1 

0 


05012  1 
00006  1 
23471  1 
55474  0 


34752  C 
74737  1 
11474  0 
51^74  I 


55474  O 51474  1 
56001  0 60000  1 
03006  1 34752  0 
11471  0 03C43  0 


07,3040 
07,3050 
07, 3060 
07,3070 


03052  0 
43737  0 
13124  1 
50061  0 


03110  1 03052  0 
24061  0 64754  0 
05221  0 C:  00226  1 
20321  0 10000  0 


63736  0 
51474  1 
34752  0 
13101  0 


00006  1 
54050  0 
54061  1 
13076  1 


50000  1 
13101  0 


51474  1 
03034  0 
30032  0 
looei  1 


55471  0 
10061  1 
00006  1 
13064  1 


07,3100 
07,3110 
07,3120 
07,  3130 


13622  0 63107  1 
63736  0 00006  1 
34755  1 51474  1 
13030  0 34746  0 


00006  1 63076  0 
63120  1 40000  0 
57471  1 03051  0 
00006  1 05012  1 


05567  0 C:  00211  0 
51474  I 55471  0 
37743  0 00006  1 
05261  1 34750  1 


13630  0 C : 77511  1 
33737  1 03051  0 

05014  1 33740  1 

00006  1 02012  0 


07  ,31  40 
07,3150 
07,3160 
07,3170 


10000  0 
44755  0 
41300  1 
54075  1 


00002  0 
54047  0 
74746  1 
44735  0 


44746  1 
34750  1 
27300  1 
70076  1 


00006  1 
00006  1 
41277  0 
54076  1 


03012  1 
05012  1 
74750  0 
44737  1 


44742  0 
41035  1 
27277  0 
70077  0 


00006  1 
73200  1 
44747  0 
54077  0 


03014  1 
27035  1 
70075  1 
00002  0 


07,32C0 

07,3210 

07,3220 

07,3230 


C : 40010  I 
55300  1 
C;  03223  1 
00006  1 


00004  0 
03257  1 
C:  16103  1 
02012  0 


03644  1 
34742  1 
12746  1 
10000  0 


43735  1 00006  1 
05203  0 C:  03225  1 
03632  0 13622  0 
15261  0 41277  0 


03012  1 
16103  1 
03637  0 
74737  1 


447^6  1 
35000  1 
15261  0 
27277  0 


71300  1 
05203  0 
34750  1 
44750  0 


07,3240 
07,  325C 
07,3260 
07,3270 


71277  0 
74742  0 
71035  1 
03637  0 


55277  0 04674  0 
27277  0 41300  1 
64735  1 55C35  1 
14631  0 00004  0 


14703  C 
74737  1 
00002  0 
44753  0 


15261  0 
27300  I 
44755  0 
71277  0 


03637  0 
44747  0 
54037  1 
55277  0 


1 5261  0 41277  0 
13240  0 43200  1 
54O40  1 54041  0 
04674  0 C:  14703  0 


07,  3300 
07,3310 
07,332C 
07,3330 


12746  1 00004  0 
05567  0 C:  00212  0 
54156  1 34746  0 
30161  1 56003  I 


41277  0 74753  0 
00004  0 13276  0 
00006  1 U5014  1 
56161  1 55311  1 


27277  0 74742  0 
54161  0 03644  1 
34751  0 05203  0 
74357  0 54061  1 


10000  0 12746  1 

11311  1 03360  1 

C : C3376  0 C : 16103  1 
34752  0 54157  0 


07,3340 
07,3350 
07  ,3360 
07,3370 


60000  1 60061  U 
52155  1 50160  0 
00006  1 30134  1 
00006  1 30155  O 


54160  1 00006  1 
53401  1 10157  0 
52155  1 33375  0 
52134  0 34753  1 


5C000  1 31401  0 
13337  1 30161  1 
15133  1 11311  1 
13325  1 C : 17365  J 


52155  1 07262  0 
54003  0 12746  1 
13363  0 54156  1 
4361 7 0 00006  1 


gap:  ASSEPBLE  REVISION  131  CF  AGC  PRCCPAP  LUMINARY  BY  NASA  2021112-091 


17:53  OECo  19,1969 


PAGE  1614 


OCTAL  LISTING  FOR  PARAGRAPH  H 057,  HTH  PARITY  BIT  U BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSFO  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  EASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPEFATCR  WORDSI  OR  "C"  (CONSTANTS! 


07,34CC 

07,3410 

07,3420 

07,3430 


OSniA  1 
00202  1 
05137  1 
64737  0 


03632  0 31311  0 
03424  n C:  003C2  (i 
13223  0 44751  1 
27311  1 54003  0 


00006  1 74750  0 
03422  0 C:  OOLOO  0 
27311  I 5000?  0 
74357  0 54061  1 


50000  1 
34755  1 
30000  1 
44757  1 


13407  0 
55313  1 
54064  1 
70064  1 


03424  0 
33375  0 
74757  1 
54064  1 


07  ,3440 
07,3450 
07,3460 
07,3470 


00006  1 50061  0 
10071  0 13455  1 
00006  1 33621  1 
56071  I 00006  1 


31401  0 52071  0 10070  1 
13402  0 13575  1 13402  0 
20071  0 3006^  O 00006  1 
747A4  0 54062  1 30070  0 


13460  1 33450  1 
63511  1 O0006  1 
05034  1 36077  1 
00006  1 74743  1 


13600  0 
63402  1 
70071  0 
54070  I 


07,35C0 

07,3510 

07,3520 

07,3530 


30001  0 
13534  1 
30062  0 
34742  1 


30006  1 
77601  0 
54047  0 
OOOC6  1 


74736  0 
13516  1 
00006  1 
05014  1 


26062  1 
34736  1 
74742  0 
15261  0 


00006  1 
26062  1 
66250  0 
50061  0 


30071  1 
34755  1 
05203  0 
53401  1 


67752  0 lOOOO  0 
50061  0 5340!  1 
03376  0 C:  16103  1 
34736  1 60062  0 


07,3540 

07,3550 

07,3560 

07,3570 


54047  0 
03632  0 
74357  0 
50061  0 


54061  1 
55400  0 


74742  0 67750  1 05203  0 
00006  1 02012  0 lOOOO  0 
50061  0 11400  0 13570  1 
34736  1 26047  0 13541  0 


C;  0355^  1 C:  16103  1 13530  0 

13630  0 31311  0 54003  0 

34736  1 26047  0 13522  0 

63511  1 00006  1 63402  1 


07,36Cr 

07,3610 

07,3620 

07,3630 


Q0006  1 
54070  1 
C : 00000  I 
34755  I 


43621  0 
40071  C 
C:  00034  0 
13653  0 


20071  0 30064  0 
76C77  0 40000  0 
00006  1 00011  1 
34746  0 71277  0 


64743  0 00006  1 
56071  1 40000  0 
74753  0 10000  0 
10000  0 13630  0 


05014  1 40070  1 
13471  1 C:  01700  1 
13630  0 13656  0 
00002  0 41277  0 


07,3640 

07,365C 

07,3660 

07,3670 


74746  1 
44755  0 
54072  0 
50071  1 


lOOOO  T) 
553''l  0 
50071  I 
57301  1 


240Q2  0 0OCO2  0 
12746  1 54071  0 
11301  0 13667  1 
05137  1 40072  0 


41277  0 74746  1 
44755  0 13660  0 
13677  0 00006  1 
50064  0 26164  0 


10000  0 00002  0 

54071  0 44753  0 

13700  1 34755  I 

1 5261  0 30072  1 


07,3700 

07,3710 

07,372C 

07,3730 


50071  1 
00004  0 
55301  0 
55301  0 


55301  0 
54071  0 
12746  1 
15133  1 


15261  0 
50000  1 
10000  0 
52134  0 


34753  1 03710  1 
11301  0 13732  0 
13732  0 24133  0 
05706  0 C:  31210  0 


34752  0 13710  0 
13726  0 13722  I 
13717  1 04645  1 
00030  1 f:  7750C  1 


50071  1 
77477  0 


07,3740 

07,3750 

07,3760 


00074  1 
30006  1 
04635  0 


31304  1 00006  1 

74757  1 27305  1 

C:  44004  C C:  03275  I 


13745  0 
30167  1 
C:  03763  0 


03732  1 00006  1 30134  1 
77730  n 55306  1 33762  1 
03764  1 CKSM  13445  0 S 


53305  1 
54003  0 

a 


07,3770  a 


a 


a 


GAP: 


ASSEMBLE  REVISION  131  CF  AGC  PF.CGRAr'  LUMINARY  BY  NASA  2C21112-CSI 


17:53  OECo  19,1969 


PAGE  1615 


OCTAL  LISTING  FOR  PARAGRAPH  # 060,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  ”5)"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  CPERATCR  WORDS)  OP  "C"  (CONSTANTS) 


10, 2000 
10,2010 
10,2020 
10,2030 


I : 7716C  0 
C:  00002  0 
C:  20022  0 
I ; 77776  1 


C:  00002  0 
I : 661A3  1 
C:  20607  1 
0^616  I 


C:  00000  1 
C : 10011  0 
C:  02321  0 
C:  20036  0 


l:  77614  1 C:  C4343  ] C:  20011  0 I:  7716C  0 C:  00012  1 

C:  02776  0 C:  22317  1 C:  10003  0 I:  542)4  ) C:  04343  1 


I : 43134  0 
06042  1 


C : 02777  I 
I : 77616  0 


C : 01271  I 
C:  02664  1 


77650  1 C;  73515  1 
32035  O 54142  1 


10,2040 

10,2050 

10,2060 

lOfZOlO 


56003  1 
07106  1 
50141  0 
50141  0 


56142  0 
00745  1 
52003  0 
52005  0 


74357  0 
52155  1 
0J006  1 
00006  I 


65007  0 
20001  1 
40736  1 
40742  1 


54141  1 
5C141  0 
52155  1 
52155  1 


00006  1 
52001  1 
07112  ) 
07112  1 


30744  0 52155  1 
00006  1 30740  1 
52155  1 20001  1 
52155  1 20001  1 


10,210C 

10,2110 

10,2120 

10,2130 


52160  1 
52162  0 
07106  1 
52155  I 


10006  1 40742  1 
07106  1 C : 00735  0 
00743  I 52155  1 
07106  1 C : 00747  0 


52155  1 
52155  1 
20001  1 
52155  I 


07106  1 C:  00737  1 
20001  1 20001  ) 
20001  1 52131  0 
20001  ) 20162  0 


00006  I 
52162  0 
OO0C6  1. 
00006  I 


40155  1 
52155  1 
30744  0 
30736  0 


10,2140 
10,21 50 
10,2160 
10,2170 


52155  1 
30155  0 
30162  1 
52165  1 


07112  1 52155  1 
50141  0 52015  1 
50141  0 52021  0 
34744  1 54023  1 


20001  I 
00006  1 
30141  0 
17463  0 


20131  0 52131  0 
30160  C 50141  O 
54116  0 00006  I 
52155  1 20001  1 


52155  1 00006  1 
52017  0 00006  1 
30006  1 64751  0 
50141  0 52007  1 


10,2200  5216C  1 
10,2210  30142  0 
10,2220  C:  60102  1 


20001  1 
54003  0 
52071  0 


50141  0 
14631  0 
00003  1 


52011  0 
00004  0 
52006  0 


52162  0 
52071  0 
22073  0 


2000)  1 501*1  0 
34355  0 05072  1 
30065  1 74757  1 


52013  1 
03577  1 
60000  1 


10, 2230 


54061 


30065 


75030  0 00006 


74740  1 54062 


30065  ) 74101  1 


10 ,2240 
10,225C 
10, 2260 
10,2270 


56065  1 
12264  1 
12264  I 
50061  0 


75024  0 
12252  1 
40025  1 
55050  1 


lOOOO  0 
40072  0 
50071  1 
30065  1 


1537C  1 
22072  1 
55050  1 
62276  0 


30062  0 
50071  ) 
10065  0 
10000  0 


50061  0 
52750  1 
12300  I 
12276  1 


54750  1 

10066  n 

12303  1 


10066  0 
12260  0 
40025  1 
12303  1 


00006  1 
00003  1 
55051  0 
54155  1 


30025  0 
52006  0 
00006  1 
34735  1 


53151  1 40062  1 
22073  0 30062  0 
30064  0 50C61  0 
12501  0 34755  1 


50061  0 54747  1 
50061  0 54750  1 
53435  C 12247  Q 
54155  1 33032  0 


30002  0 22073  0 
30070  0 50061  0 
05474  0 13422  1 
12‘?G)  0 54155  1 


10,2340 

10,2350 

10,2360 

10,2370 


12640  0 
73522  0 


65023  0 
10000  0 


54155  I 
12430  0 


33506  1 
30100  0 


12501  0 54155  1 33507  0 12501  0 
33032  0 12640  0 54155  1 33521  1 
12640  0 34753  1 02736  1 30100  0 
74743  1 00006  1 12400  0 15155  1 


GAP;  ASSE^’6Le  REVISION  131  OF  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-091 


17:53  DEC-  19,1969 


PAGE  1616 


OCTAL  LISTING  FOR  PARAGRAPH  It  06  1,  kITF  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  ''3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  valid  words  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C  (CONSTANTS) 


10, 2A10 
10,2420 
10, 2A30 


00004  0 
lOOOO  0 
50164  I 
30100  0 


54162  0 

lonoo  0 


6*753  1 
54370  1 
50164  1 
13455  1 


541CC  1 
34753  i 
31067  1 
40100  1 


00003  1 
12617  1 
54160  1 
74751  1 


41070  0 
301 65  0 
54003  0 

onnoA  0 


74747  0 
54156  1 
00002  0 
26100  1 


10,24A0 

10,2450 

10,2460 

10,2470 


12535  1 
34746  0 
54155  I 
12501  0 


30370 

12501 

33505 

54155 


0 

0 

1 

1 


74144 

54155 

12501 

34736 


0 

1 

0 

1 


54155  1 
12454  1 


33505  1 
54155  1 


12640  0 
33544  1 


12501  O 
12642  I 
54155  1 
12501  0 


54155  1 
34755  I 
34736  1 
54155  1 


1C,250C 
10, 2510 
10,2520 
10,2530 


34750  1 
54155  1 
73543  1 
12775  I 


54160  1 
33524  1 
10000  0 
30100  0 


02723  0 
12501  0 
12576  0 
73541  0 


00003  1 
34755  1 
30100  0 
00006  1 


12547  1 
54164  n 
75632  1 
12537  0 


54155  1 
03379  0 
00006  1 
34753  1 


33524  1 
12523  0 
12531  0 
12775  1 


12640  0 
30100  0 
34755  1 
02735  1 


10,2540 

10,2550 

10,2560 

10,2570 


03206  0 
77730  0 
12562  0 
lOOOO  0 


05137  I 
54163  I 
12365  1 
12600  1 


03223  1 
37724  1 
34752  0 
30100  0 


30025  0 55164  1 
05146  1 30160  0 
54164  0 03375  0 
73514  0 00006  1 


34755  1 12617  1 30167  1 
73523  1 lOOnO  0 12513  0 
12600  1 41071  1 74750  0 
12600  1 05624  1 C:  31502  1 


10,2600 

10,2610 

10,2620 

10,2630 


02737  0 
12755  U 
13071  0 
12501  0 


30163  0 
12613  0 
54155  1 
54155  1 


00006  1 
12755  0 
37737  0 
33502  0 


04007  1 
03206  0 
12501  0 
12501  0 


54366  0 
05137  1 
55044  1 
02716  0 


30100  0 
03223  1 
33477  0 
12501  0 


73515  1 10000  0 
34752  0 54164  0 
54155  1 33476  1 
54155  1 34750  1 


10,2640 
10,265C 
10,266C 
10  ,2670 


54160  1 
74750  0 
30006  1 
30156  0 


26250  0 
10000  0 
0OD06  1 
50064  0 


00004  0 
12660  1 
04007  1 
52156  1 


54072  0 
30063  1 
54001  1 
00C06  1 


30167  1 
05072  1 
33540  0 
30160  0 


77730  0 54063  0 30160  0 

c;  C2547  0 c;  20067  1 12666  1 

05116  1 02723  0 00006  1 

50064  0 52760  1 30064  0 


10,2700 
10, 2710 
10,2720 
10,2730 


54161  0 
12640  0 
54155  1 
22002  0 


02730  I 
£4155  1 
33504  0 
04645  1 


00003  1 
33502  0 
00002  0 
54157  n 


14640  0 
12640  0 
00004  0 
60072  1 


55044  1 
02716  0 
43513  1 
OOOOl  0 


33477  0 547  55  1 33476  1 
12640  0 551*3  1 33503  1 
701 60  7 60O03  I 54160  1 
34755  1 54164  0 00004  0 


10,2740 

10,2750 

10,276C 

10,2770 


30160  0 
54372  0 
03545  0 
05137  1 


50164  1 
30155  0 
03004  0 
03223  I 


55067  0 
50164  1 
44753  0 
50154  1 


60164  1 
33511  1 


00006  1 
13232  0 
54154  0 
I £133  1 


12751  1 30157  1 50164  1 
50164  1 33532  0 72761  1 
50154  I 33511  1 00004  0 
54154  0 03206  0 05137  1 


GAP:  ASSEf'BLE  REVISION  1,31  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2f'21]12-C91 


17:53  OECo  19,1969 


PAGE  1617 


OCTAL  LISTING  FOR  PARAGRAPH  H 362,  t»ITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNLSEO  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPEFATOR  WORDS)  OR  ”C"  (CONSTANTS) 


10,3000 

10,3010 

10,3020 

10,3C3C 


3015A  1 5006^  0 
03555  1 C;  TAOOA  0 
7A751  1 10030  0 
6A751  0 03555  1 


C: 


5415A  0 
50154  1 
02400  1 
40010  1 


33016  0 
34747  1 
12537  0 
50160  0 


03224  0 50154  1 
64751  0 03545  C 
34755  1 54160  1 
33511  1 00004  0 


33533  1 73535  0 

C:  02765  ^ 30100  0 

50160  0 33525  0 

05137  1 13336  0 


lO,3040 

10,3050 

10,3060 


10,3070 


31071  0 
14640  0 
13472  1 
12616  0 


54003  0 
00003  1 
12^00  0 
02420  0 


30366  1 04727  1 
31C72  0 54156  1 
05504  0 C:  0U105  0 
3016C  0 74757  1 


77730  n 
30100  C 
34736  1 
54001  I 


05146  1 
77743  1 
70100  1 
44737  1 


46250  1 
10000  n 
lonoo  0 

50164  1 


60374  1 
13062  1 
12545  0 
71067  0 


10,3100 

10,3110 

10,3120 

10,3130 


C 


50164 

10367 

64753 

00103 


1 

1 

1 

0 


55067 

13120 

■)4155 

05516 


0 

0 

I 

0 


74744 

13234 

13246 

00104 


0 

0 

0 

1 


54141  1 
40370  1 
04433  1 
30160  0 


30156  0 
54370  1 
02416  0 
04255  I 


05516  0 
13071  0 


55072  1 
63516  0 
C:  001C2  1 
34747  1 


50164  1 
60141  0 
05516  0 
70160  1 


10,31  40 
10,31  50 
10,3160 
10,31 70 


inooo  0 
loono  0 

76077  0 
34737  0 


131 64  0 
13156  1 
00006  1 
50164  1 


34750  1 
50164  1 
13261  0 
27067  0 


70160  1 
30372  1 
15155  1 
22007  0 


10000  0 
54157  0 
30160  0 
00006  1 


13261  0 
13354  1 
74737  1 
62441  1 


40160  1 
50164  1 
moon  0 

74740  I 


7*746  1 
30367  0 
13142  1 
00006  1 


IC,32CC 
10, 3210 
10,3220 
10,3230 


13204  0 
03011  1 
57041  0 
50064  0 


41066  1 
30100  0 
90004  0 
54164  0 


63542  1 
73517  0 
00002  0 
00003  1 


13121  I 
10000  0 
34217  1 
00002  0 


33501  0 
34753  1 
56064  0 
37723  0 


13121  1 44747  0 
54001  1 34755  1 
00006  1 63232  1 
05105  0 C:  04231  0 


00006  1 
500C1  0 
56064  0 
04060  0 


10 ,3240 
10,32  50 
10,3260 
10,3270 


13262 

13252 

04442 

31073 


0 

0 

1 

1 


3ono  0 

15155  1 
04427  1 
50164  1 


73267 

30162 

30164 

74751 


00006  I 
73520  1 
54157  0 
10000  0 


12576  0 
03545  0 C : 
30162  1 
13361  1 


15155  1 11041  1 15155  1 
24100  0 5016*  1 33510  0 
73011  0 03545  0 C:  40040  1 
11041  1 132*1  1 13301  1 


10,3300 

10,3310 

10,3320 

10,3330 


13241  1 
00006  I 
13430  1 
63571  1 


04207  0 
13462  0 
13414  1 
00006  1 


13373 

34752 

40025 

62545 


1 

n 

1 

1 


13412  1 43527  0 60154  1 00006  1 26000  0 
54161  0 30100  0 74101  1 10000  0 13322  0 
61164  0 ICOOO  0 40000  0 67734  0 64753  1 


13430  1 34753  1 13025  1 


10161  0 64753  3 


10,3340 

10,3350 

10,3360 

10,3370 


13342  0 
C;  74044  1 
14640  0 
50164  1 


15155  1 
46250  1 
5016*  1 
60372  1 


50157  I 
04154  0 
44751  1 
14640  0 


60372  1 
13354  1 
71073  0 
3*755  1 


54157  0 
30163  0 
55073  0 
13313  1 


30162  1 
77730  0 
34755  3 
40160  1 


73350  0 
05146  1 
04727  1 
74736  0 


03555  1 
30157  1 
36250  0 
lOOOO  0 
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OCTAL  LISTING  FOR  PARAGRAPH  U 063  , WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  '*0”  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  DR  "C"  (CONSTANTS) 


1C,3A00 

10,3410 

10,3420 

10,3430 


16742  1 
05155  0 
00003  1 
30100  0 


40157  0 
C0002  0 
13336  0 
73525  1 


50164  1 
34753  1 
37752  0 
10000  0 


60372  1 
13313  1 
54161  0 
13024  0 


0C006  1 
46245  0 
30100  0 
3C100  0 


13407  0 
70100  1 
74355  1 
73526  1 


00002  0 
0000*  0 
lOOOO  0 

inooo  0 


13062  1 
13334  I 


10, 34A0 
10,3450 
10,3460 
10,3470 


31071  0 
00004  0 
15155  1 
13312  0 


74771  0 10000  0 
05072  1 C:  02616  1 
12755  0 50157  1 
13051  1 46250  1 


13336  0 
C:  20060  0 
30367  0 
0^154  0 


30371  1 
13336  C 
76077  0 
15155  1 


00006  1 
30100  0 
40000  0 
15155  1 


13336  0 35025  0 
73525  1 10000  0 
60155  O 00006  I 
0O036  1 C:  00231  1 


10,3500 
10, 3510 
10 ,3520 
10,3530 


C:  01407  0 
C:  20543  1 
C:  00704  1 
C:  77730  0 


C:  14400  0 
C;  20400  1 
C:  40030  0 
C:  00050  1 


C:  00030  1 
C:  20616  1 
C:  34300  0 
C:  20144  1 


C;  01006  0 
C:  03400  0 
C:  40100  1 
C:  42424  0 


C:  00014  1 
C:  11210  1 
C : 00110  1 
C:  11254  1 


C:  20010  1 
C:  66521  1 
C:  02020  1 
C:  74704  1 


C : 40230  ] 
C;  01177  1 
C:  01010  1 
C:  67777  1 


C:  40036  0 
C : 00700  0 
C:  00026  0 
C : 40420  0 


10,3540 

10,3550 

10,3560 

10,3570 


70100  I 
05576  0 


C:  10200  1 C:  3020C  C 
70001  1 26100  1 

54100  1 13553  0 

C:  77467  I 35C06  1 


20100  1 C:  24030  1 

00003  1 16742  1 

00004  0 54001  1 

12505  1 00006  1 


00004  0 75650  0 
00004  0 75650  0 
30133  0 55363  1 
30025  0 16060  0 


54001  1 
40000  0 
30134  1 
10154  0 


10,36CC 

10,3610 

10,3620 


34755  1 
7*736  0 
16063  0 


13604  1 
20155  1 
03645  0 


13603  0 
16064  1 
52162  0 


44736  0 54155  1 34755  1 56154  1 00006  1 
07262  0 16064  1 C3645  0 34755  1 54155  1 
52155  1 03645  0 54156  1 52160  1 52155  1 


10,3630 


03645  0 54155 


30161 


54154  0 34753  1 16063  0 03645  0 52160  1 


10,3640 
10,3650 
10, 366C 
10,3670 


00002  0 
40000  0 


03645  0 
13653  0 
54142  1 
60142  0 


54001  1 
40000  0 
50130  0 
10000  0 


30157  1 
5*154  0 
10000  0 
64753  1 


16060  0 
00002  C 
64753  1 
13676  1 


13671  0 
40000  0 


20001  1 
34734  f* 
6*753  I 
54142  ’ 


10000  0 
26154  0 
64753  1 
13703  1 


10,3700 

10,3710 

10,3720 

10,3730 


50000  1 
04616  1 
16062  1 
60120  1 


17314  1 
13722  1 
54156  1 


60142  0 
16C64  1 
00006  1 
04616  1 


50130  0 
00006  I 
44733  0 
OlOlCt  1 


54000  0 
34733  1 
16C60  0 
10154  0 


00002  0 
52155  1 
34753  1 
13771  I 


50120  1 
lOOOC  0 
13730  I 
13740  0 


30046  0 
34755  1 
34755  1 
13771  1 


10,3740  10157  0 
10,3750  30155  0 
10,3760  30162  1 
10,3770  C:  01024  0 


13771  1 13744  1 
00006  1 74736  0 
00006  1 74736  0 
34755  1 13765  1 


13771  1 
20155  1 
20162  0 
04616  1 


10161  0 
30160  0 
34761  0 
OlOlO  1 


13771  1 13750  1 
00006  1 74736  0 
50156  0 54045  1 
06064  n f : 03776  I 


13771  1 
20160  1 
04635  0 
CKSM  44510  0 
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OCTAL  LISTING  FOR  PARAGRAPH  U 064,  hITF  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S"  DENOTES  UNLSED  FIXED  MEMORY 


ALL  VALID  WORDS  APE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPEFATOR  WORDS!  OR  ”C"  (CONSTANTS! 


I : 77614  1 
I : 46135  1 
C;  26331  I 
C:  77776  1 


C: 

C: 


I : 


03472  0 
70546  1 


I:  44175  1 
C : 22026  0 
I : 77752  I 
C:  17667  0 


03444 

72575 

03472 

67154 


0 

0 

0 

0 


C:  C3463  0 
C;  02323  1 
1 : 77646  0 
C:  00154  1 


t; 

C : 03723 
C : 02701 


n 

1 

1 

0 


I : 77646  0 C:  03723  I 
C : 02331  1 I : 77752  I 
I : 71331  0 C:  03617  I 
I : 77775  1 C:  02323  1 


11,20  40 
11,2050 
11,2060 
11  ,2070 


26655  0 
41456  0 
03665  I 
46206  1 


03472  0 
53435  0 
03667  0 
02674  0 


C : 16663  0 
C:  02331  1 
I ; 43044  0 
I : 51352  1 


C:  03452  1 
C:  26674  0 
C;  22105  0 
I : 74256  0 


C : 03472  G 
C:  03465  0 
I : 77772  0 


I : 77201  1 
I ; 50256  0 
I : 41575  0 
C : 02663  0 


C:  OOPCl  0 
I : 43015  1 
C : 02663  0 
I:  67351  1 


C:  02323  1 
C;  03667  0 
I : 63246  1 
C:  24007  0 


11,2100 
11,  2110 
11,2120 
11,2130 


C:  03617  I 
I : 63256  0 
C:  00023  0 
C : 22132  1 


I : 77244  0 
C : 02655  0 
I;  62040  I 
I : 41476  1 


C:  22105  0 
I : 41456  0 
C:  22124  0 
I : 77775  1 


C:  02663  0 
I:  57435  1 
C:  77767  1 
I:  50235  0 


C:  03472  0 
C:  00003  1 
I : 67310  1 
1 : 71244  0 


I : 63345  0 
I : 77606  1 
C:  00012  1 
C:  22137  1 


C:  26007  1 
I:  71350  1 
C:  00047  1 
I : 41476  1 


C:  02663  0 
C:  02776  0 
l:  77230  0 
I : 67154  0 


11,2140 

11,2150 

11,2160 

11,2170 


C:  00000  I 
I : 77214  0 
1 : 43135  1 
C:  02655  0 


C:  02672  0 
C:  00675  0 
C:  03000  1 
C:  25535  0 


I : 66350  I 
C:  02744  I 
C : 00263  0 
C:  02337  I 


C:  02776  0 
C:  16337  1 
I : 43030  0 
C:  15543  1 


C:  00027  1 
C;  02702  0 
C:  22166  0 
C : 03610  0 


C:  00024  1 
I : 45030  o 
C:  00063  1 
C : 01517  0 


I:  77624  1 
C : 22233  0 
I;  77775  1 
I : 43015  1 


C:  25212  1 
C:  27410  1 
C:  02323  1 
C:  03452  1 


11,2200 
11,2210 
11,2220 
11, 2230 


C : 
C: 


C: 
I : 


03472  0 • 
77775  1 


C:  34041  0 
I : 5513A  1 
C:  00017  1 
C : 02663  0 


C:  27106  0 
C : 03616  0 
I:  77655  1 
C:  03472  0 


I:  77775  1 
C:  02701  0 
C:  02663  0 
I : 52375  1 


C;  00025  0 
I : 46135  1 
C : 16663  0 
C:  02337  1 


C : 02703  1 
C:  00050  1 
C : 03667  0 
C:  P2331  1 


i.:  o 

I : 77650  1 
C : 26366  0 


C:  03616  0 
1 : 52375  I 
C:  22062  0 
C:  02703  1 


11,2240 
11,2250 
11,  2260 
11,2270 


C:  03566  1 
I : 77742  0 
I : 70750  I 
I;  77661  0 


I:  A6135  1 
C : 26337  1 
C : 02776  0 
C:  20607  1 


C:  03000  1 
C:  03472  0 
C : 10003  0 
C:  03717  0 


C : 22260  0 
I:  77742  0 
l:  41206  0 
I : 77201  1 


I : 70575  1 
C:  27472  C 
C:  02742  1 
C : 00001  0 


C : 03566  1 
C : 02366  0 
I:  56342  ] 
C : 03472  0 


C : 27566  1 
I : 77742  0 
C;  00041  ^ 
C : 0344^  n 


C;  02337  1 
C:  02366  0 
C:  17721  0 
l:  52014  0 


11,2300 
11,2310 
11,2320 
11, 2330 


C:  01267  0 C:  03463  0 

00006  1 00C31  0 

05173  1 C:  02326  1 

40000  0 72401  1 


56016  0 00006  1 
40000  0 72401  1 
15270  0 55443  1 
57444  1 54001  1 


22012  1 05321  1 
55444  0 34752  0 
34757  0 05224  0 
11444  0 12324  1 


C : OOlPO  0 15270  0 

55443  1 34756  1 

0O006  1 00031  0 

lOOC)  1 12347  1 


11,2340 
11,2350 
1 1, 2360 
11,2370 


11443  1 
00006  I 
27445  1 
lOOOO  0 


12323  0 06022  1 
02031  1 00006  1 
30001  0 74747  0 
42403  0 27446  1 


34740  0 
12342  1 
10000  P 
30001  C 


00006  I 
30001  0 
32402  0 
74752  1 


05013  0 
74746  1 
27445  1 
lOOOO  O 


15261  0 
10000  C 
30P01  0 
32403  1 


34737  0 
42402  1 
74753  0 
27446  1 
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OCTAL  LISTING  FOR  PARAGRAPH  # 065,  klTF  PARITY  EIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTFS  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THESE  MARKED  "I" 


(INTERPRETIVE  PPEPATOR  WORDS)  OR  "C*  (CONSTANTS) 


11,2400 
11,  2410 
1 I .2420 
11,2430 


L : 611/0  0 
C:  01543  1 
I : 41405  0 


C:  D0063  1 
I : 5351 5 0 
C:  02074  0 
C:  00005  1 


C:  ni074  0 
C:  01535  0 
I : 60225  1 
I : 65316  O 


C:  00217  0 
l:  60325  0 
C:  01551  1 
C:  00005  1 


I : 40354  1 
C:  00045  0 
C:  00051  0 
l:  64716  0 


C : 02030  0 
C:  00047  1 
I : 77742  O 
C : 51770  0 


C : «OOC1  0 
1 : 77715  1 
I:  65271  0 
I : 40442  1 


I : 75543  1 
I : 65241  0 
C!  000C3  1 
l:  47515  0 


11,2440 

11,2450 

11,246C 


11,2^^70 


C:  01543  1 
I : 43260  1 
C:  20211  i 
C:  57754  0 


I:  44205  0 
C:  00050  1 
C:  20201  0 
I;  77626  0 


C:  00C45  0 
I : 45257  0 
I : 65215  1 
C : 75647  0 


I:  41271  0 
C:  20211  1 
C:  01553  0 
I : 74020  0 


C:  00003  1 
I : 41205  0 
l:  53605  1 
C:  02112  1 


l:  53605  1 
C : 00001  O 
C:  00001  0 
C:  00012  1 


C:  3 1 230  0 
C:  00005  1 
C;  20202  0 
I:  74014  1 


C:  20176  0 
I : 53657  0 
I : 43204  0 
C:  00303  1 


11  ,2500 
11,2510 
11,2520 
11,25  30 


C : 24023  0 
I:  54345  1 
I:  77615  0 
C:  24007  0 


C;  00302  0 l:  77650  1 

C : 02076  1 C : 20612  0 

C;  01517  0 C:  35517  1 

C:  26062  1 C:  02032  1 


C:  24023  0 
l:  61500  0 
C:  22404  1 
l:  53257  1 


C 

I 

C 


66350  1 
22515  0 
73150  I 
57605  0 


01500  0 
43206  1 
02030  0 
01535  0 


0005  3 0 
ni.551  1 
02030  0 
02040  1 


77762 

16074 

77775 

65014 


1 

0 

1 

1 


11,2540 
11 ,2550 
11,2560 
11,2570 


C:  01756  1 
C:  16032  1 
C : 02072  0 
1 : 72174  0 


C:  22546  0 
C:  00045  0 
C:  02070  1 
C:  00002  0 


C : C1500  0 
C:  36070  0 
I : 71214  0 
C:  00051  0 


l:  22655  I 
C:  00342  I 
I : 7761^^  1 


1 : 77724  0 
I : 66175  1 
C:  23026  1 
C:  00343  0 


C:  Cl 500  0 
r : 02040  1 
C:  01517  0 
C:  22600  1 


l:  53575  0 C:  02032  1 

C : O0051  0 C:  16032  1 

I : 7762^  1 C : 33647  1 

1 : 77076  0 C:  00000  1 


11,26C0 
11,  2610 
11,2620 
11,263C 


C:  02040  1 
C:  22613  0 
C:  02040  1 
C : 02105  1 


C:  26105  1 
C:  01756  1 
I:  77724  0 
C : 00004  0 


C:  00003  1 
C : 22627  1 
C:  01500  0 
I : 43014  0 


C:  02122  1 
I:  74375  0 
C:  12140  1 
C:  04260  1 


I : 45335  0 
C:  02032  1 
C : 02114  1 
C:  00343  0 


C : 01011  0 
C:  02070  3 
I : 77724  0 
C:  22642  1 


C : 11232  3 
I : 52257  0 
C:  01500  0 
I : 53261  1 


I : 43030  0 
C:  57175  0 
I : 62175  0 
C : 20612  0 


I 1,2640 

II  ,2650 
11,2660 
11,2670 


C 
C 
C: 
I : 


02122  1 
02122  1 
OOCOl  0 
77656  1 


C: 
C: 
I : 
C: 


02122 

36040 

61501 

16040 


I : 77624  1 
C;  22655  1 
C : 00040  0 
C : 00045  0 


i:  f(b1>V  l 
1 : 60325  0 
C : 02072  0 


I : 62174  1 
C:  23026  1 
C:  02070  1 
I : 55301  0 


C:  00004  0 
I : 74575  0 
C:  00041  1 
C : 00042  1 


C:  OOOOA  0 
C:  C2040  1 
I:  63342  1 
I : 41562  O 


I:  77775  1 
I : 40236  1 
C;  02040  1 
I:  77743  1 


11,2700 
11, 2710 
11,2720 
ll,273C 


C:  27731  1 
I : 65057  0 
I:  57206  1 
I : 43352  1 


C;  00051  0 
C:  57177  1 
C:  00005  1 
C:  25766  1 


1 : 57124  1 
C:  00050  1 
l;  77752  1 
I : 43325  3 


C:  00050  1 
I : 74406  0 
l:  43206  1 
C:  00013  0 


C;  00040  0 
1 1 50315  0 
C:  25766  1 
C:  24005  1 


75406  1 
72475  1 


C:  00041  1 
C:  02040  1 
I : *1475  1 
C:  00011  3 


C : 00003  1 
I;  44372  1 
C:  00013  0 
1 : 562) 5 1 


11,2740 
11,27  50 
11,2760 
11,2770 


C:  25760  1 
I : 41345  0 
I : 74276  I 
C:  57754  0 


C:  00017  1 
C:  00001  0 
1 : 57124  1 
C:  57177  1 


I : 74275  1 
C:  00015  0 
C:  00050  1 
I:  53324  1 


C;  00007  0 
I:  61501  3 
C:  00051  0 
C:  00050  1 


C:  02040  1 
C:  00037  0 
I : 55064  0 
C : 02062  1 


I : 64515  1 
1 : 40665  0 
C:  00036  I 
C : 02062  1 


C:  02032  1 
C : 00003  1 
C:  00037  0 
1 : 43*00  1 


I;  41455  0 
C:  51770  0 
I : 53604  0 
C:  23000  0 
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11,3000 

11,3010 

11,3020 

11,3030 


I : 51575  1 
C:  01551  1 
I:  7761A  1 
C:  02070  1 


C 

C 

C: 


'1AC20 

4«»60J 


0 

0 

1 

0 


l:  7765A  0 
C:  01517  0 
C:  27256  0 
C:  00001  n 


C:  23023  1 Is  5A345  1 C:  02100  1 C:  20612  0 Is  44206  0 
l:  45425  0 C:  42260  O C:  22404  1 I:  77624  1 C:  27671  1 
IS  77776  1 05642  1 C:  20430  1 I;  71354  0 C:  02030  C 


C:  50032  0 


I : 43044  C C s 23264  0 


00343  0 CS  23273  0 


11,3040 
1 1 , 30  50 
11,3060 
11,3070 


I : 65375  C 
IS  45006  0 
I s 77772  0 
I : 41425  1 


C:  02032  1 
C:  23301  1 
C:  14025  0 
C;  25764  C 


C:  01517  0 
Is  77715  1 
C:  00023  0 
I : 41275  1 


I : 45125  0 
C:  24005  1 
IS  65275  1 
C:  00023  0 


Cs  25756  1 
I : 45006  0 
C:  25770  0 
C : 11222  0 


Cs  51700  1 
C:  23  301  1 
C:  00023  0 
Is  65372  1 


f : 24017  1 
IS  77772  0 
I ; 57316  1 
CS  00001  0 


C:  24001  0 
C:  24041  1 
C:  25772  1 
I:  44275  1 


11 ,3100  C:  11230  0 
11,3110  I s 56203  0 
11,3)20  C:  00003  1 
11,3130  I : 50473  1 


I:  57206  1 
C:  51764  C 
l:  77761  1 
C:  51760  1 


C:  00023  0 
C : 02070  1 
CS  02032  1 
I 5 43271  1 


Is  65275  1 
I : 56615  0 
C:  14033  1 
Cs  02070  1 


C 5 11224  0 
C:  00005  1 
I ; 70403  1 
I 5 76561  1 


CS  00003  1 
C:  51760  1 
C s 51764  0 
C : 00025  0 


I 5 44275  I 
I s 43271  1 
l:  43271  1 
I s 776^5  0 


C:  11226  1 
C:  02070  I 
Cs  02070  1 
C:  00033  1 


11,3140 

11,3150 

11,3160 

11,3170 


14033 

40161 

20153 

23264 


1 

0 

1 

0 


C:  C2C70  1 
Cs  00033  1 
I 5 40055  0 
Is  65316  C 


635CI  C 
23153  1 
02062  1 
00021  1 


Cs  00047  1 
I 5 56C7C  0 
C:  23000  0 
I s 45316  1 


I s 60316  0 
C s 00046  0 
Cs  16062  1 
I ; 74205  0 


C:  00051  0 
Cs  00046  0 
C:  00017  1 
Cs  27733  0 


Is  54606  0 
I s 53670  0 
I s 41414  0 
C:  02032  1 


C s 51754  0 
Cs  00050  1 
C:  00343  0 
I:  65332  0 


11,3200 
11,  3210 
11,3220 
11,3230 


1 : 53361  0 
I 5 77745  1 
Cs  11007  0 
Cs  00041  1 


Cs  00041  1 
C ; 00023  0 
Cs  00017  1 
I : 53372  1 


I : 47315  0 
I 5 41516  0 
Is  74205  0 
I 5 41325  0 


C:  00041  1 
l:  65205  0 
Cs  27733  0 
Cs  00017  1 


C:  0C025  0 
CS  27733  O 
C s 02032  1 
Cs  00023  0 


I ; 743  7 2 1 
Is  43302  1 
I 5 65272  0 
I 5 74205  0 


C s 00021  1 
C;  00011  1 
I;  74225  1 
C 5 27733  0 


I : 4145  5 0 
l:  41221  0 
C;  11007  0 
C : 00025  0 


11,3240 
11 ,3250 
11,3260 
11,3270 


I : 53352  0 
C;  57601  1 
C;  23000  0 
Cs  27735  0 


IS  60325  0 
I : 67206  1 
C:  02062  1 
Cs  00155  0 


CS  02070  I 
cs  01350  0 
I s 77754  1 
C:  23306  0 


C : 00050  1 
IS  53361  0 
Cs  02030  0 
Is  77745  1 


I s 67206  I 
I 5 70257  0 
1 : 721  35  0 
Cs  02036  0 


C:  01351  1 
C s 20146  n 
C:  01501  1 
Cs  24023  0 


I;  74271  0 
I s 40055  0 
C : 00154  1 
Cs  24001  0 


I s 73205  1 
Is  77650  1 


11,3300 
11,  3310 
11,3320 
11,3330 


C 5 
Cs 


I s 
C s 


23061  1 
23512  0 
77640  0 
01517  0 


I : 57435  1 
I s 77214  0 
Cs  23342  0 
C:  33647  1 


Cs 
C : 


C : 


02013 

00342 

43014 

02105 


Cs 
I : 


77655  1 
23342  0 
00303  1 
77754  1 


43505 

01535 

23417 

02030 


0 

0 

1 

n 


C : 00025  0 
I:  41241  0 
C:  04340  1 
l;  51445  0 


C : 23475  0 C:  23501  1 

CS  01543  1 CS  02076  1 

C : 23414  1 I s 45145  0 

C 5 01 535  0 I 5 50025  0 


11,3340 
11,3350 
11,3360 
11 ,3370 


C:  27741  0 
C 5 23370  I 
Cs  23370  I 
Is  77624  1 


C;  23434  0 
Is  53615  0 
C ; 01527  0 
Cs  27  671  1 


I : 
C: 


51575  1 Cs  01521  0 
11220  1 Cs  57605  0 


I s 77600  1 
Is  45271  1 


45246  0 C:  11220  1 I:  77600  1 

77775  1 Cs  01527  0 C:  25134  0 


CS  23370  1 
C s 00013  0 
C:  23370  1 
C s 015  21  0 


IS  51025  1 
C 5 27737  1 
I s 7764C  0 
C s on  26  0 


Cs  11220  I 
I : 77244  0 
C:  23372  0 
IS  77614  1 
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11  ,3^00 
ll,3AlO 
11,3420 
11 ,3430 


I : 66375  0 
C:  00301  0 
I:  50025  C 
C:  33647  1 


L : 23  /14  1 
C : 277A1  0 
I : 77676  0 


C:  01501  1 C:  00000  1 C:  16032  1 
C:  22524  1 I:  52175  0 C:  02105  1 
C:  233A2  0 I:  71214  0 C:  04340  1 
C:  02105  1 I:  7762*  1 C:  23440  0 


C:  24O07  0 
C : 23335  o 
C : 23434  0 
I : 77  650  1 


C:  02100  1 
1 : 60545  0 
C:  01517  0 
C:  23372  0 


11,3440 

11,3450 

11,3460 

11,3470 


I : 45020  1 
C:  57574  0 
C : 5757b  1 
C:  00052  0 


C : 02112  1 
C:  01503  0 
I : 77651  0 
I:  52014  0 


27671 

01535 

77657 

00303 


1 

0 

0 

1 


1:  53775  1 C:  01535  0 
I : 57414  1 C : 00343  0 
C:  57574  0 C:  01511  0 
C:  26710  0 C:  26715  0 


01543  1 
64575  1 


l:  53651  0 
I : 53715  1 
I : 67154  0 
C:  02062  1 


C: 

C; 


C : 
C: 


02112  1 
36046  0 


11,3500 
11, 3510 
11  ,3520 
11,3530 


C : 23655  0 
C : 36046  0 
C:  01134  0 
I : 76561  I 


I:  74575  0 
C : 23655  0 
I:  53361  0 
1 : 77655  1 


C:  02062  1 
I : 57345  1 
C : 02100  1 
C:  01134  0 


I:  53206  0 
C:  02100  1 
C:  01126  0 
C:  01134  0 


C:  02046  1 
C:  11230  0 
C:  25126  0 
1 : 45014  0 


C : 26054  1 
I : 74206  0 
C : 02062  1 
C : 00341  1 


I : 53362  0 
C:  02046  1 
I : 53322  1 
C : 23606  0 


C:  02046  1 
I : 53372  1 
C:  02054  1 
C:  11210  I 


I 1,  3540 

II  ,3550 
11,3560 
11,3570 


l:  77354 
C:  23700 
I : 67114 
C:  01116 


0 

1 

I 

0 


C : nil6  0 
C:  12401  1 
C:  00006  1 
I:  77624  1 


C ; 01134  0 
l:  77624  1 
C : 01125  0 
C : 11210  1 


I : 77732  1 C:  12467 
C:  11210  1 I : 66354 
I:  45104  0 C:  23651 
I : 76754  0 C:  01116 


1 I:  77775  1 C; 
C C : 01116  0 C : 
1 C;  11210  1 I : 
0 C:  75376  1 I: 


01126  0 I : 40132  0 
00052  0 C:  00000  1 
67154  n c : 01125  0 
77722  0 C:  01126  0 


11,3600 

11,3610 

11,3620 

11,3630 


I : 
C: 


C : 


76173  0 
01134  0 
27256  0 
00053  1 


75310 

25527 

77776 

23636 


1 

C 

1 

0 


C:  00000  1 
C:  01126  0 
05353  1 
I : 52014  0 


77722  0 C:  35134  1 
01521  0 I : 43014  0 
04022  0 05504  0 
01714  1 C:  26660  0 


C:  23401  0 
C:  04715  0 
C : O0236  0 
C:  26733  1 


I : 772 00  0 
C;  27627  1 
06042  1 
I : 6621 4 0 


C:  23000  0 
C : 01756  1 
I:  77731  1 
C:  00061  0 


11,3640 
1 1 ,3650 
11,3660 
11  ,3670 


C 

C 

I 

C 


01117 

23571 

66110 

02100 


1 

0 

1 

1 


C:  77741  0 
l:  77745  1 
C;  77763  0 
I:  77  65  5 1. 


I : 66214  0 
C:  01115  0 
C : 01500  0 
C : 01126  0 


C:  01755  1 
C:  34041  0 
C:  02100  1 
C:  02032  1 


l:  2/l4l>  1 
I:  7*^561  O 
I : 52014  n 


C:  01117  1 
I : 43345  1 
C:  02062  1 
C : 00301  n 


C:  77717  O 
C : 02076  1 
I : 742''5  0 
C:  23714  I 


l;  77650  1 
C:  02100  1 
C : 01134  0 
C:  22504  0 


11,370C 
11,  3710 
11,3720 
1 1,  373C 


I : 43014  0 
C:  00421  0 
C:  23742  1 
C:  51772  1 


C:  01676  1 
0o042  1 
C:  12062  1 
C:  36072  1 


C:  01671  0 
I : 77650  1 
l:  62014  0 
C : 23742  1 


L;  2^256  0 
C:  00342  1 
I:  50414  0 


C;  02676  1 
I : 70754  0 
C:  23264  D 
C:  00303  1 


I:  77414  0 
C:  02030  0 
C:  77771  0 
C:  23736  1 


C;  C1472  1 
C:  51770  0 
I : 70744  1 
I : 77655  I 


05567  0 
C;  36072  1 
C:  02030  0 
C : 02062  1 


11,37  40 
11,3750 
11,3760 
11,3770 


C:  36062  0 
I : 52361  I 
C:  Q0C43  0 
C:  00051  0 


C:  23264  0 
C:  11220  1 
C:  12072  0 
C:  00042  1 


I 

I 


60575  0 
60325  0 
56342  1 


C: 
C: 
I ; 


02032  1 
00045  0 
77761  1 


I : 53513  0 
C:  C0052  0 
I : 57154  0 


C : 02132  0 
I : 63406  0 
C:  00051  0 


1 : 46315  1 
I : 77605  1 
C:  00051  0 


C:  02032  1 
I:  65301  0 
I : 57074  0 


I : 43457  0 


C:  57606  0 C:  03774  0 


03775  1 CKSM  10027  0 


a 
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12,2000  C:  00000  1 
12,2010  C:  OOTOO  1 
12,2020  C:  37777  1 
12,2030  C:  2A017  1 


C:  lOvlOO  I 

C:  onooo  I 

C:  37777  1 
C:  01503  0 


C;  00000  I 
C : ooono  1 

C : 37777  1 
1 : 66256  0 


C:  OOCOO  1 
C:  00000  1 
I : AOOOl  1 
C:  00027  1 


C : 20000  0 
C:  77777  0 
C:  noool  0 

C:  00024  1 


C : 00000  1 
C:  77771  0 
C : 24026  0 
C : 16647  O 


r : onnoo  1 
C:  77763  n 
I:  77773  1 
C : 000*5  C 


C:  00000  1 
C : 37777  1 
C:  10005  0 
C:  24041  1 


12,2040 
12,20  50 
12,2060 
12,2070 


C: 

C: 


I : 
C: 


01503  0 
)0017  1 
77671  1 
24077  1 


C:  10041  1 
I : 52166  1 


C : 
C; 


C: 

C: 


01511  0 
00C41  1 
OOOll  ) 
24077  1 


1 ; 61426  0 
l:  71244  0 
I : 55366  1 


C:  00023  0 
C ; 11001  0 
C:  24073  0 
C:  11021  1 


C:  24043  0 
C:  00045  0 
C : J 1017  1 
I:  776no  1 


C : 01511  0 
I:  74421  0 
I : 40071  0 
C:  24077  1 


I : 57236  1 
C:  11001  0 
C:  OOOll  1 
C:  00013  0 


12,2100  I : 65205  0 

12,2110  C:  24124  0 

12,2120  C:  02074  0 

12,2130  I : 53165  0 


C:  00023  0 
C : 24124  0 
C:  16C74  0 
C:  32074  0 


C:  OOOll  1 
I : 51525  1 
I:  77650  1 
C:  24302  0 


I: 

C: 

C: 

l: 


65301 

02074 

24112 

51440 


C:  00047  1 I : 56257  I 
I:  50025  0 C:  00001  n 
1 : 71201  1 C : OOOOl  D 
C;  24302  C I : 51025  1 


C : 20173  O I ; 50000  1 
C : 24124  n l : 77765  0 
C : 02130  1 C:  00025  0 
C : 00013  0 c : 24302  0 


12,  2140 
12,2150 
12,2160 
12,2170 


I;  51145  0 
I : 77650  1 
I : 77646  0 
I:  41501  0 


C:  02P74  0 
C:  24155  0 
C:  16177  1 
C:  00047  1 


C : 24152  1 
l:  77745  1 
C:  01553  n 
I : 53605  1 


I : 57545  1 
C:  24007  0 
I:  77621  1 
C:  OOOll  1 


C:  00013  0 
C:  00015  C 
C:  00025  C 
C:  21573  0 


C;  14015  0 
I : 57345  1 
C:  02643*  1 
C:  34031  1 


C;  240C7  0 
C:  02'>74  0 
I : 63545  0 
C : 24421  n 


C:  00013  0 
C:  11012  1 
C : 00025  0 
I:  44200  0 


12,2200 

12,2210 

12,2220 

12,2230 


C : 24311  1 
I : 60225  1 
C:  02645  1 
I : 45221  1 


C:  02074  0 
•C:  01551  1 
I;  56257  1 
C:  00015  0 


C : 02645  1 
C : 00047  1 
C:  21202  1 
I : 51000  0 


I;  44246  1 
i:  60325  0 
I : 41542  1 
C:  24240  1 


C:  02177  1 
C:  02643  1 
I : 71244  0 
C:  24240  1 


I : 71244  0 
C:  00050  1 
C : 24246  1 
I : 52145  0 


C : 2*333  1 
I : 41260  0 
f;  00025  0 
C : OOOOl  0 


C:  O0037  0 
C:  00047  1 
C:  00013  0 
C : 24260  0 


12,2240 
12,2250 
12,2260 
12  ,2270 


1 : 45345  1 
C:  00015  0 
C:  C2643  1 
C:  24644  1 


C;  OOC15  0 
I:  45221  1 
I : 43254  0 
C:  24333  1 


C;  C0C25  0 
C:  00013  n 
C : 24333  1 
I : 77650  1 


I : 52075  1 
1 : 50000  1 
C:  00025  0 
C:  24166  0 


C:  11015  0 
C:  24274  0 
C:  14025  0 
I : 45345  1 


C;  24260  0 
C : 2427*  0 
C:  00037  o 
C : 00013  n 


I:  777A5  I 
I : 777*5  1 
C;  01551  1 
C:  0D025  0 


C : O0025  0 
C:  OOOOl  0 
I : 46034  1 
I:  52075  1 


12,2300  C : 11015  0 C : 24260 
12,2310  C:  24140  1 I:  50X45 
12,2320  I:  44254  1 C:  02112 
12,2330  C:  00015  0 I : 7765C 


0 

1 

1 

1 


I : 70545  1 C:  00013  0 
C : 00C25  0 C : 24330  1 
C:  00025  C C:  14025  0 
C:  24315  0 I:  44545  0 


I : 77765  0 C : 
C:  00013  0 I : 
C : C1551  1 r : 
C:  00041  1 l; 


0207A  0 C:  CO025 
70545  1 C;  02643 
00037  0 I : 77650 
74225  1 C : 00035 


0 I : 77650  1 

1 C:  02643  1 

1 C:  24267  1 

1 C : 02647  0 


12  ,2340 
12,23  50 


I:  65372  1 
C:  00033  1 


C:  00025  0 
C:  21572  1 


I : 60316  0 
l:  77621  1 


C:  00047  1 
C:  00037  0 


12,2360  C:  01535  0 I:  60246  1 C:  00050  1 C:  14043  0 

12,2370  l:  76405  1 C:  00021  1 I:  536C5  1 C:  00025  0 


I : 572  75  0 
l:  74352  0 
C:  C0031  0 
C : 56601  0 


C : 00023  0 
C : 01511  0 
I : *5275  0 
I : 74271  0 


C:  O0O25  0 
I : 53372  1 
C:  0003?  1 
C:  0004?  0 


l:  53605  1 
I : 77712  0 
C:  10777  1 
C:  02647  0 
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12,2400 

12«2410 

12,2420 


I : 65372  1 
I : 42455  0 
C:  02112  I 
C:  15001  1 


C:  J0035  1 
I : 77626  0 
I:  77776  1 
C:  23771  1 


I: 
C : 

C: 


56257  I 
62234  0 
07225  0 
64342  0 


56602  0 C : 00043  C 
00037  0 C:  15551  1 
00010  0 C:  02525  1 
43674  0 C:  C6563  1 


I : 74221  0 
C:  00025  0 
C : 12526  0 
C : 04645  1 


C : 11013  0 
C : 01553  0 
C:  67356  0 
C : 75173  0 


C:  01511  0 
I : 77650  1 
C:  75666  0 
C;  52672  0 


12,2440 

12,2450 

I2,246C 

12,2470 


C:  00656  I 
06042  I 
C ; 72525  0 
C:  73410  0 


52506  0 
51674  C 


C : 
C : 


C: 


13301  1 
01446  0 


40512  0 
77776  1 
15337  1 
33641  1 


00023  0 
07225  0 
62776  0 
77451  1 


C: 
C : 
C : 


11210  1 
00010  0 
54733  -1 


C:  65233  0 


C:  77774  0 
C:  niooo  0 
C : 11176  1 
C:  00055  1 


C:  67506  0 
C:  00000  1 
C : 13267  0 
C;  37266  1 


12,2500 

12,2510 

12,2520 

12,2530 


C;  77767  1 
C:  00043  0 
I:  65234  1 
I : 76257  0 


C:  52336  0 
I : 65234  1 
C:  21634  0 
C:  20576  1 


06042  1 
C : 21634  0 
C:  00041  1 
1 : 57232  0 


l;  53605  1 
l:  53605  1 
I : 76261  0 
C:  00023  0 


C:  00001  0 
C:  00033  1 
C:  20607  1 
C:  00037  0 


C ; 21574  1 
C:  21574  1 
1 : 41301  0 
I : 77616  0 


C;  00035  1 
I:  72405  0 
C:  00047  I 
I : 7121^  0 


I:  72405  0 
C : 00045  0 
C:  00025  0 
C:  00614  1 


12,2540 

12,2550 

12,2560 

12,2570 


C;  24606  1 
I : 41260  0 
I : 75246  0 
C:  00017  1 


C : 
C: 
C : 
I: 


00037 

00047 

C2760 

45221 


0 

1 

1 

1 


I : 
C: 


I : 
C : 


60225  1 
02760  1 
51006  0 
00011  1 


C: 
1 : 


I : 


02762  0 C:  00047  1 I:  60325  0 
56257  1 C : 21202  1 I : 43142  1 
24620  0 1:  43145  0 C:  02766  1 
51000  0 C:  24600  1 C:  24600  1 


C:  00015  O C : 00050  1 
r : 04351  1 C:  24562  C 
C : 04311  0 C : 24571  1 
1 : 77650  1 C:  24632  0 


12,2600 

12,2610 

12,2620 


I : 45345  1 
C:  00C51  0 ‘ 
l:  43145  0 


C:  000] I 1 
l:  41325  0 
C:  02766  1 


C:  02766  1 
C:  00017  1 
C : 04311  0 


12,2630  C : 24636 


24636 


77745  1 


52005  0 
00051  0 
24625  0 
00001  0 


C:  ) 1015  0 
I : 77625  0 

C:  noon  1 

C:  00015  0 


C : 24634  0 
I : 52165  1 
I : ^5221  1 
I : 77616  0 


I : 41345  O 
C:  02760  1 
C:  00017  1 
I : 45345  1 


C:  00011  1 
C:  24562  0 
I:  50000  1 
C:  00017  1 


12,2640 

12,2650 

12,2660 

12,2670 


C:  02766  1 
54026  1 
I : 65372  1 
C:  00033  1 


I : 52005  0 
5^154  0 
C:  C0025  0 
C;  21572  1 


C : 11015  0 
06064  0 
I : 60316  0 
I : 77621  1 


C;  24634  0 
I:  44545  0 
C:  00047  1 
C:  00037  0 


44753  0 
C:  00041  1 
l:  57275  0 
I : 74352  0 


50120  1 
I : 74225  1 
C:  00023  o 
C : 02744  1 


60026  0 
C : 00035  1 
C:  00025  0 
I : 53372  1 


50120  1 
C:  02722  1 
I : 53605  I 
l:  41512  1 


12,2710 

12,2720 

12,2730 


I : 77646  0 
I:  76405  1 
I : 65372  I 
C : 02744  1 


l:  77701  1 
C:  00021  I 
C:  00035  1 
I : 43412  1 


C:  00047  1 
1 : 536C5  1 
l:  56257  1 
I : 40220  0 


C:  16720  0 
C:  00025  0 
C:  21175  1 
C:  02710  0 


C:  00031  0 
C:  21176  1 
C:  02720  0 
C:  00001  0 


I : 45205  I 
1 : 74271  0 
I : 77621  1 
I:  77600  1 


C : 00033  1 
C:  02720  0 
C : 11C13  0 
C : 24737  ) 


C:  10777  1 
r. : 02722  1 
l:  53361  0 
I : 63375  0 


12,2740 
12,27  50 
12, 2760 
12,2770 


C:  02655  0 
C:  00031  0 
C:  02710  0 
C:  00003  1 


C:  02744  1 
C:  04310  1 
C : 24653  1 
C:  0CO5?  0 


77624 

25752 

77650 

00001 


1 

0 

1 

0 


i:  45014  O 
C:  02710  0 
I : 77614  1 


I : 45000  0 
C:  04273  0 
I:  77614  1 
C:  04276  0 


C:  24764  1 
C ; 24421  C 
C : 04033  0 
I : 65  366  1 


C:  24767  I 
I : 45014  0 
C:  25752  0 
C:  02732  0 


I:  43145  0 
C:  03706  0 
I : 66374  1 
l:  44342  1 
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OCTAL  LISTING  FOR  PARAGRAPH  H 072  » VslTh  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THESE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS  I OR  "C  (CONSTANTS) 


12,3000 
12,3010 
12,3020 
12  ,3030 


C 

C 

I 

C 


75A40 

25205 


1 

1 

0 

1 


54325 

40132 

25205 

41440 


I 

0 

1 

1 


C: 

C 

1 

c 


02730 

25122 

43306 

25205 


1 

1 

n 

1 


C:  21607  0 
I:  63406  0 
I : 61000  0 
I;  77716  1 


I : 77671 
I:  65351 
C:  25120 
I:  41301 


1 

0 

0 

0 


I : 
C: 
C: 
C : 


77600 

00155 

25013 

00047 


1 

0 

1 

1 


C : 25122  I I:  41225  1 

C : 02742  1 I : 76202  0 

I : 40065  0 C:  10777  1 

C;  C2742  1 I:  77457  1 


12,  3040 
12,3050 
12,3060 
12,3070 


C:  21567  0 
C:  15003  0 
C : 27367  0 
l:  53605  1 


07225  0 
C:  75556  0 
06042  1 
C:  02742  1 


C:  00005  1 
C:  45210  0 
I ; 76405  1 
C:  21565  1 


C;  20000  0 
C;  01615  1 
I:  43006  0 
C:  14031  0 


C:  00000  1 
C : 13553  0 
C:  04316  1 
C:  00041  1 


C:  72525  0 
C : 76  371  0 
C:  25172  1 
! : 75542  0 


C:  52471  1 
C:  63777  0 
I : 60316  0 
l:  41306  I 


C:  03146  1 
C:  01232  0 
C;  00047  1 
1 : 77632  0 


12,3100 

12,3110 

12,3120 

12,3130 


C:  00025  0 
C:  C2766  1 
I : 77774  0 
C : 02740  0 


I : 603] 6 0 
C : 14043  0 
C:  C0003  1 
I : 41325  0 


C:  00047  1 
C:  02742  1 
I : 51001  1 
C:  02730  1 


l:  41325  0 
I : 43021  0 
C:  00001  0 
C;  02766  I 


C:  C274C  C 
C:  11001  0 
C:  25127  1 
I;  65352  0 


C:  00041  1 
C:  04270  0 
I : 77614  1 
C : 02732  0 


I : 75452  0 
C:  00045  O 
r:  04076  I 
1 : 43202  0 


I : 56405  0 
I : 7761  6 0 
I:  75545  1 
C:  11007  0 


12,3140 
12,3150 
12,3160 
12  ,3170 


l:  41225  1 
C;  11005  1 
I : 75440  0 
C:  21172  0 


I : 55301  0 
I:  63406  0 
C:  25205  1 
C:  25031  1 


C : 00047  1 
l:  65234  1 
I : 77615  0 
I : 50145  1 


C:  02730  1 
C:  21634  0 
1 : 60304  n 
C:  02742  I 


I : 51457  0 
C : C2742  1 
C:  25151  0 
C:  25205  1 


C:  21174  0 
I : 40405  1 
C:  00047  1 
I : 60366  1 


I:  63406  0 
C:  O0043  0 
I : 77665  1 
C:  00047  1 


C:  14043  0 
1:  77771  0 
I : 52057  1 
I:  53665  1 


12,3200 
12,  3210 
12,3220 
12,3230 


02674  0 
00474  0 


C: 
C : 
C: 
C: 


20176  0 
04070  1 
10005  0 
02655  0 


41425 

40220 

14017 

45115 


1 

0 

1 

0 


l:  7765C  1 
C:  02710  0 
C:  02671  0 
C:  02663  0 


C;  25C66 
C:  OOOOl 
I : 77675 
C;  11074 


0 

n 

0 

1 


1 ; 40001  1 
I:  77600  ] 
C : 11006  1 
C:  16730  1 


C:  OOOOl  0 
C:  25217  ’ 
C:  0276A  0 
C ; 02720  0 


C:  25210  0 
I : 76614  0 
l:  77214  0 
I : 65301  0 


12,3240 

12,3250 

12,3260 

12,3270 


C:  00047  1 
C:  11003  1 
I : 75457  0 
C:  77760  0 


C:  00041  1 
C:  02734  0 
C:  20176  0 
I:  5C000  1 


I : 56342  1 
r.  53106  0 
I : 54325  1 
C:  25277  1 


1 ; 65257  1 
C:  2547?  0 
C:  02730  1 
C:  25302  1 


C:  20173  0 
l:  65301  0 
C:  20607  1 
I : 5002  5 0 


I : 77626  0 
C : 00047  1 
I : 43271  1 
C:  11025  0 


C:  75045  1 
C : OOOOl  C 
C : 02734  C 
C:  25302  1 


1 : 44342  1 
I : 56342  1 
I : 77626  0 
l:  77745  1 


12,3300 

12,3310 

12,3320 

12,3330 


C:  11025  0 
C:  02673  1 
C:  00011  1 
I : 77605  1 


C:  0O017  1 
1 : 71240  I 
I:  66214  0 
C:  02730  1 


I : 77745  1 
C : 25513  1 
C:  00715  1 
I : 45342  0 


C:  02732  0 I:  45261 
C:  02736  1 1 : 56352 
C:  25477  1 C : 00051 
C:  02736  1 I:  65301 


0 C : 20607  1 I : 

0 C:  02730  1 I: 

0 C : OOOOl  0 I : 

0 C:  00047  1 C: 


77626  0 C : 61041  0 
776C0  1 C:  25513  1 
77745  1 C;  02766  1 
C2734  n I ; 56257  1 


12 ,3340 
12,3350 
12,336U 
12  ,3370 


C;  20170  0 
I : 41301  0 
I : 45000  0 
C:  04310  1 


53C4C  0 
00047  1 
25432  0 
25427  I 


C ; 
C: 
C: 
C: 


24767  I 
24421  0 


i:  4425/  1 
1 : 77745  1 
I:  44200  0 


C : 16740  n 
C:  2C571  0 
C:  00037  0 
C : 25447  1 


C:  02766  1 
C : 11007  0 
C:  16762  o 
C : 02671  0 


l:  ^3316  1 
C : 16742  1 
r:  00031  0 
C:  02760  1 


C:  11011  1 
C:  02740  0 
I : 45014  0 
I:  44246  1 
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OCTAL  LISTING  FOR  PARAGRAPH  « 073  , Y*ITh  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNLSFO  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "1"  ( I NT  ER  PPET I VE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


12,3^00 

I2,3A10 

12,3420 

12,3430 


C:  02764  0 
I : 45345  1 
C:  00155  0 
C:  00015  0 


l:  47044  1 
C:  00037  0 
C:  25460  1 
C:  25452  0 


C:  25516  1 
C;  02762  0 
I : 77615  0 
l:  71201  I 


C:  24644  1 I : 43030  C 
1 : 77654  0 C:  25460  1 
C:  02766  1 C:  02766  1 
C:  OnOOl  0 C:  C2766  1 


C : 25460  l 
I:  77624  1 
I ; 77650  1 
C : 00011  1 


: O0714  0 
: 24536  1 
: 25330  o 
: 70545  1 


C:  25415  0 
I : 53145  1 
I : 51145  0 
C:  00015  0 


12, 3440 
12,3450 
12,346C 
12,3470 


C:  OOC15  0 
C:  02762  0 
I : 51545  1 
C:  25516  I 


1:  44254 
C;  00037 
C:  02  7 6 0 
C:  02434 


0 I : 

1 I : 

0 C ; 


25460  I 
71201  I 
41325  0 
25516  1 


C: 

C: 


I : 


02766  1 
00001  0 
02671  0 
4300)  1 


C: 
C : 


C: 


02766  1 
02766  1 
10774  1 
00001  0 


77650 

00017 

45215 

02434 


1 

1 

0 

0 


C:  25'='30  0 
I : 77650  1 
C : 11023  0 
C:  02710  0 


43044  0 
71331  0 


12,3500 

12,3510 

12,3520 

12,3530 


C : 00051  0 
C:  00015  0 
C:  00047  I 
I : 41206  0 


lOOOO  0 
T765C  1 
70525  1 
02766  1 


C:  OOOll  1 
C : 25330  0 
C : 02740  0 
I : 74261  1 


1:  65342  1 
I : 52145  0 
I : 77671  1 
C:  20206  1 


I : 75457  0 
C:  02722  1 


I : *3  342  0 
C:  25320  1 
C : 20175  0 
I : 77725  1 


I : 77626  0 
l:  60345  0 
I : 72405  0 
I : 76561  1 


75011  0 
00041  1 
O0021  1 
02674  0 


12,3540 

12,3550 

12,3560 

12,3570 


I;  53235  0 
C:  02710  0 
C : 02710  0 
C;  11030  1 


C:  C2722  1 
1 : 45145  0 
C:  OOOOl  0 
I : 71200  0 


1 : 77772  0 
C:  02720  0 
I : 77600  1 
C:  24764  1 


C:  02744  1 
C:  24701  1 
C:  25564  1 
C:  11C07  0 


I : 5313  5 0 
C : 02703  1 
I : 63375  0 
I : 41225  1 


C:  027'^2  0 
I : 77650  1 
C:  02655  0 
C:  02742  1 


C:  25551  1 
C : 0271  0 0 
C:  02744  1 
C : 02740  0 


I;  77650  1 
I:  40220  0 
I : 77624  1 
I:  41366  1 


12,360C 
12,3610 
12,36  20 
12,3630 


C : 02766  1 
I:  53512  1 
C:  02740  0 
C : 25674  0 


I:  74212  0 
1 : 77600  1 
I:  56257  I 
I : 50021  1 


C:  02712  1 
C : 25670  1 
C:  20201  0 
C:  11003  1 


45325  1 C;  llCOl  0 
60325  0 C:  02756  1 
56225  1 C : 11005  1 
25674  0 I : 75366  0 


C : 02742  1 
C:  00047  1 
C : 00045  0 
C:  02755  1 


I : 52361  1 
I:  41325  0 
C:  00031  0 
I : 77614  1 


C:  02722  1 
C:  0004)  1 
I:  63400  0 
C:  04272  1 


12,3640 
12,3650 
12,366C 
12  ,3670 


I;  76561  1 C:  02674 
C:  02722  1 C:  25766 
C:  02674  0 C:  16730 
l:  43001  I C:  30001 


0 I : 63235  0 C : 

1 l:  40142  1 C: 

1 C : 02740  0 1 : 

0 C:  02434  0 C: 


OOOOl  0 I : 53361 
25654  1 C : 26732 
77624  1 C:  24767 
25752  0 I : 75345 


0 C:  00031  0 I: 

0 C : 02722  ) I : 

1 I:  77614  1 C: 

1 C : 24005  1 C: 


41572  1 I:  56241  0 
76435  1 I : 72441  0 
02634  1 C:  24747  0 
00031  0 C:  14031  0 


12,3710 

12,3720 

12,373C 


C:  24007  0 
C:  25711  1 
I : 42405  0 
I : 72405  0 


I 

I 

C 

C 


77614 

63375 

02742 

02740 


1 

0 

1 

0 


C:  04032  1 
C : 02655  0 
l:  75421  1 
I : 77671  1 


C: 

C: 


I: 


25640  I 
02744  I 
11001  0 
60325  0 


I:  40220  0 
I : 77624  1 
C : 02752  0 
C:  02742  1 


C ; 02710  0 
C;  11030  1 
! : 65215  1 
C:  000*7  1 


C : OOOOl  0 
I:  77600  J 
C : 10775  0 
I;  53725  1 


I : 77600  I 
C:  25720  0 
C:  00041  1 
C:  00041  1 


12  ,3740 
12,3750 
12,3760 
12  ,3770 


C:  20174  1 
C:  24020  0 
C:  00000  1 
C:  00000  1 


I:  45271  1 
C:  02710  0 
C : 02314  0 
C:  36000  1 


I : 5000C  1 
I : 77776  1 
C ; 31463  1 
C:  00000  1 


C:  25747  1 
05642  1 
C:  0 1 400  1 
C:  03773  1 


C : 25747  1 
C:  20607  1 
C:  00000  1 
C : C3774  0 


I : 77650  ) 
C ; 04631  1 
C:  lOOOO  0 
CKSM  52177  1 


C;  02710  0 
C : 23146  0 
C:  COOOO  1 
a 


1 : 52145  0 
C:  14000  1 
C:  03000  1 
a 
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GAP  : 

OCTAL  LISTING  FCR  PARAGRAPH  tf  07^,  ^.ITh  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  OR  "C"  (CONSTANTS) 


13,2000 

13,2010 

13,2020 

13,2030 


C: 
C : 
C: 
C : 


07112  1 
00)00  I 
10407  0 
04347  0 


C 

C 

C 

C 


■)6620  0 
.10000  I 
05344  1 
26036  0 


C: 

C: 

C: 

l: 


27446  1 
02302  1 
13710  0 
43014  0 


C: 

C: 

C: 

C; 


14620 

24736 

35320 

02756 


C : 
C: 
C : 
C : 


16471  1 
77651  0 
12160  0 
26036  C 


C : 
C: 
C: 
C : 


01352  1 
76237  0 
12124  0 
01476  0 


C : 22437  1 
C : 77776  J 
I ; 43014  0 
I : 450)  4 0 


C: 
C : 
C: 
C: 


16067  1 
53032  0 
01474  1 
01667  1 


13,2040 

13,2050 

13,2060 

13,207C 


C:  27133  0 
C;  01674  0 
I ; 45C14  0 
l:  43414  1 


I : 7121 4 0 
C; ■ 26643  1 
C:  01^67  0 
C:  04756  I 


C:  04307  1 
1 r 77614  1 
C:  27133  0 
C:  26C73  1 


C:  26063  0 
C:  02756  1 
l:  77614  1 
I ; 53775  1 


C:  01571  0 
C : 26060  0 
C:  01236  1 
C:  01521  0 


C:  34041  0 
I : 43014  0 
C;  26631  1 
C:  57605  0 


C:  27410  ] 
C:  01476  O 

I : 434) 4 1 

l:  53655  1 


I : 45014  0 
C:  01475  0 
C : 01674  0 
C:  01535  0 


13,2100  C:  57576  1 
13,2110  C:  15226  0 
13,2120  C:  01535  0 
13,213C  C:  57576  1 


C;  25220  0 
C : 01517  0 
C:  57576  1 
C:  01726  0 


C:  01527  0 
C:  01234  0 
C : 25720  0 
I : 77616  0 


I:  53257  1 
l:  77616  0 
C;  01527  0 
C:  00041  1 


C:  57602  1 
l:  53775  1 
I : 53257  1 
l:  57545  1 


C:  0J543  1 
C:  01521  0 
C : 57602  1 
C : 00043  0 


I : 77657  0 
C : 576C5  0 
C:  0)5*3  1 
I : 67401  n 


C:  57576  1 
! : 53655  1 
l:  77657  0 
C:  OOOOl  0 


13,2140 
13,21 50 
13,2160 
13,2170 


I:  44206  0 
C:  14041  1 
C:  47322  1 
C:  OOOOl  0 


C: 
C: 
I : 


43206  1 


C : 
I : 
C: 


14005  1 
44142  0 
24005  1 


I:  77634  0 C:  21636  1 


C:  24007  0 
C:  00051  0 
C:  24007  0 
C;  on  07  0 


C;  24043  0 
C : 14023  0 
C:  00005  1 
I : 77776  1 


C;  C0041  ) 
C:  00045  0 
I : 77634  0 
40110  0 


I:  41056  1 
I : 77742  0 
C:  21636  I 
74740  I 


C:  52432  0 
C:  34021  0 
C : 25111  1 
lOOOO  0 


13,2200  12204  1 
13,2210  C:  00031  0 
13,2220  C;  20477  1 
13,2230  02232  0 


53107  1 
06042  1 
12i31  0 
02224  1 


53111  0 
77775  1 
02224  1 
06042  I 


53107  1 
C:  03434  1 
02216  0 
I:  43145  0 


06042  1 
C:  02223  0 
32334  1 
C:  03442  0 


I : 77650  I 
I:  77776  I 
04616  1 
C:  01076  I 


C : 00051  0 
32335  D 
C;  20477  1 
C ; 34041  0 


05504  0 
04616  1 
12331  0 


13,2240 
13,22  50 
13,2260 
13,2270 


I:  53575  0 
C;  00031  0 
I : 77624  I 
C:  OOOOl  0 


C:  3OD01  0 
C:  24015  0 
C:  27410  1 
l:  77657  0 


I : 77676  0 
C:  02223  0 
I : 77624  1 
C : 57176  0 


C:  00031  0 
l:  76505  0 
C:  26336  0 
C:  15535  0 


I : 53435  0 
C:  00015  0 
1:  53775  1 
C;  C3442  0 


C:  00007  0 
I : 77655  1 
C:  00007  0 
C:  01517  0 


C:  00023  0 
C : 00007  0 
C:  57176  0 
I : 71214  0 


I:  53435  0 
C:  00007  0 
C:  25543  1 
C:  01673  1 


13,230C 

13,2310 

13,2320 

13,2330 


C: 

C: 


C: 
C : 


01643 

15535 

04024 

01276 


0 

0 


34041 

00015 

06042 

34755 


0 

0 

i 

1 


C:  27106  0 
C : 25517  0 
I : 45014  0 
55462  1 


I:  77624 
C;  00025 
C;  05070 
16001 


27410 

77624 

26660 

01524 


1 

1 

0 

0 


I : 77775  1 
C:  27705  0 
I : 77624  1 
C:  01441  1 


C: 
I : 


00017  1 
77776  1 
27417  n 
43174  1 


C:  01503  0 
05353  I 
I : 77414  0 
C : 00002  0 


13,  2360 
13,2370 


C:  00063  1 I : 77014  1 
C:  03674  1 C:  OOOOl  0 
C:  01743  0 C:  26362  1 
C:  26556  0 I:  63545  0 


C : 04303  0 
C:  24007  0 
I : 77624  1 
C:  02032  1 


C:  00052  0 
C:  02032  1 
C:  5170D  1 
I : 63525  0 


C:  00000  1 I : 43414  1 

I : 51406  1 C : 16070  1 

1 : 77656  1 C:  36032  0 

C : 02034  1 1 : 75415  0 


C:  00263  0 
Cj  24007  0 
C:  26546  1 
I : 76405  ) 


l:  40220  0 
I : 71414  0 
I : 77624  1 
C:  00011  1 


GAP 
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OCTAL  LISTING  FOR  PARAGRAPH  II  075  , l^ITF  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S"  DENOTES  UNUSFO  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


13,2410 

13,2420 

13,2430 


32036  0 
265U6  0 
03674  1 
01120  0 


C:  34023  1 
C:  15122  1 
C:  00001  0 
I;  65346  0 


C;  26506  C 
C;  02070  1 
C:  34007  1 
C:  01122  1 


C : 15120  0 
I : 77625  0 
C:  26546  1 
I : 57356  C 


C:  02032  1 
C:  03673  0 
l:  73545  1 
I : 71525  0 


C : 14021 
C:  35124 
C:  M120 
C;  ril20 


c; 

C : 
I : 
I : 


02034  1 
03674  1 
65275  1 
71525  C 


13,2440 

13,2450 

13,246C 

13,2470 


CJ  01122  1 
C:  26452  0 
C:  02032  1 
l:  44275  1 


77772  0 
26505  0 


I 

C 

C 


41456  0 
77624  1 
36032  0 
24005  I 


C:  36032  0 
C:  55716  1 
C:  03674  1 
I : 75465  1 


C:  26556  0 
C ; 16032  1 
I : 63545  0 
C:  26501  1 


I : 43145  0 
C : 03673  O 
C:  02036  0 
I:  77622  1 


C:  24007  0 
l:  74215  1 
I : 44352  0 
C:  03673  0 


C:  01743  0 
C:  01124  1 
C : 24005  1 
I : 77616  0 


13,2500 
13,2510 
13  ,2520 
13,2530 


C:  00446  1 
I : 63545  0 
C;  00023  0 
I : 57545  1 


C:  30305  1 
C : 30023  0 
C:  26541  0 
I : 43244  1 


C:  17711  0 
I : 63525  0 
I : 67542  0 
C:  26536  0 


C:  05254  1 
C:  00021  1 
C:  00025  0 
C:  24005  1 


C:  00155  0 
1 : 77615  0 
I : 50125  1 
C:  00025  0 


C ; 25250  1 
I : 75454  0 
C : 00021  1 
I : 77616  0 


I : 77600  1 
C:  26534  1 
C:  26530  0 
I : 5202  5 1 


C:  26510  1 
I : 40065  0 
l:  43545  1 
C:  24005  1 


13,  2540 
13,255C 
13,2560 
13,2570 


C:  26534  1 
C:  01743  0 
C:  10003  0 
C:  26464  0 


l:  75345  1 
C:  26554  1 
1 : 71214  0 
C;  37673  1 


C:  11003  1 
I:  77735  0 
C:  01703  1 
C:  00051  0 


C:  00023  0 
C:  24005  1 
C:  26573  1 
I ; 77214  0 


C:  00025  0 
C:  00011  1 
C;  10001  1 
C:  00702  1 


I : 77616  0 
I : 77616  0 
I : 45014  0 
C:  26571  P 


I:  43T45  0 
1 : 71220  1 
C : C0742  0 
C:  02023  1 


C:  26503  0 
C:  00051  P 
C : 26571  0 
I:  64446  0 


13,2600 

13,2610 

13,2620 

13,263C 


I : 


C: 

C: 


77650  1 
05261  1 
27410  1 
251 40  0 


C: 


I: 
I ; 


26571  0 
06042  1 
45014  0 
77414  0 


05353 
I : 47014 
C:  01076 
C:  01672 


1 

1 

1 

0 


C:  00052  0 
CJ  04712  1 
C:  26643  1 
05353  1 


35017  1 P5105  0 C:  02611  P C:  26063  0 
C;  26652  1 C:  21574  1 C:  00041  1 I:  77624  1 
I;  52014  0 C:  01460  1 C:  26026  1 C:  00003  1 
Ct  20032  1 00006  1 32630  0 05277  0 


13,2640 

13,2650 

13,2660 

13,2670 


C:  02602  I 
C : 01675  1 
I : 47C20  0 
C:  00051  0 


C:  26063  0 
l:  77616  -0 
C:  00051  0 
C:  04223  0 


05155  0 
l:  77776  1 
C:  26673  1 
C : 00051  0 


I : 43014  0 
05353  1 
l:  45014  0 
03035  1 


C:  01472  1 
C : 00002  0 
CJ  04063  0 
55500  1 


CJ  01673  1 
0551 6 0 
CJ  26114  1 
51500  0 


IJ  4301^‘  n 
C;  00221  0 
I J 43014  0 
315C2  1 


CJ  01676  1 
05155  0 
CJ  00303  1 
51500  0 


13,270C 
13,  2710 
13,272C 
13,273C 


55554  0 
U 66214  0 
C : 00002  0 
11500  1 


11500  1 
C:  00263  0 
U 77616  0 
12723  1 


12674  1 
C : 02031  1 
03035  1 
06064  0 


06064  0 
C:  00000  1 
55500  1 
U 47020  0 


I:  43034  1 
I J 77616  0 
51500  0 
Cj  0005 1 0 


CJ  26722  1 
I J 66214  0 
31554  1 
C J 26746  0 


C J 0430?  0 
C:  00063  J 
51 5C0  0 
I : 4501 4 0 


CJ  26715  0 
CJ  02031  3 
55502  0 
C : 04064  3 


13,2740 

13,2750 

13,2760 

13,2770 


C;  26070  1 
51500  0 
Cj  04307  I 
55500  1 


U 43014  0 
31502  1 
C;  27  )00  1 
515  )0  0 


CJ  00303  1 
51500  0 
C J 26767  0 
31626  1 


Cj  00051  0 
55626  0 
I : 52014  0 
51500  0 


CJ  04304  3 
55502  0 


00051  0 03035  1 
12747  0 06064  o 
26715  0 Cj  26710  0 
11500  1 12770  3 


55500  1 
47014  1 
03035  3 
06064  0 
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OCTAL  LISTING  FCR  PARAGRAPH  ft  076,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THESE  MARKED  "I" 


(INTERPRETIVE  OPERATOR  WORDS)  OR  "C  (CONSTANTS) 


13,3000 

13,3010 

13,3020 

13,3030 


I : 77201  1 
C : 55716  1 
C:  00063  1 
I : 6717A  1 


C:  00001  0 
C : 25535  0 
C:  557)6  1 
C:  )0002  0 


C:  02023  1 
C:  24001  0 
I : 74235  0 
C:  02030  0 


l:  41525  0 
C;  14001  0 
C:  01535  0 
C:  35527  1 


C : 00041  1 
C:  01517  0 
C:  26001  1 
C:  27156  0 


C : 15517  0 
C:  14007  n 
C:  25543  1 
33041  1 


C:  27733  0 
C:  27733  0 
C:  24007  0 
54006  0 


l:  77624  1 
I : 45014  0 
C:  01521  0 
33446  1 


13,3040 

13,3050 

13,3060 

13,3070 


00002  0 
I : 43014  0 
C:  27410  I 
l:  43130  1 


C:  26063  0 
C:  01467  0 
I : 43130  1 
C : 02102  0 


I : 
C: 


C : 


45020  I 
01676  I 
D2102  0 
01474  1 


C:  00046  0 
I ; 77614  1 
C:  01634  1 
1 : 43014  0 


C:  27410  1 
C:  01633  0 
C:  27050  1 
C:  01676  1 


I:  43130  I 
C : 27135  0 
I : 45020  1 
C:  01433  1 


C:  02102  0 
I:  45020  I 
C : 00046  0 
C:  27135  O 


C : 01474  1 
C:  00046  0 
C:  27410  1 
I:  45020  1 


13,3100 
13,31  10 
13  ,3120 
13,3130 


C : 00046  0 
C : 02031  1 
C:  02102  0 
I : 77614  1 


C 

C 

C 

C 


27410 

OOOOO 

24007 

34020 


1 

1 

0 

1 


I: 
I : 
C ; 
C: 


43130  1 
66214  0 
01521  0 
27147  0 


C:  02102  0 
C:  00343  0 
C:  35527  1 
I:  77620  0 


C:  01634  1 C:  27073  0 I:  66214  0 
C:  27117  0 C:  02031  ] C:  00002  o 
C:  27671  1 I;  43014  0 C:  01676  1 
C:  02102  0 I:  43014  0 C:  04060  0 


C:  01467  0 
I : 77220  1 
C:  04062  I 
f:  04062  1 


13,  3140 
13,3150 
13,316C 
13,3170 


l:  00041  1 
C : 27177  0 
C:  27175  1 


C:  00053  1 
C:  01115  0 
05353  1 
I;  52014  0 


C : 27147  0 
I : 52014  0 
C:  04022  0 
C:  01714  1 


I : 5201^  0 
C:  01753  1 
05504  0 
C : 26660  0 


C:  01714  1 
C : 27256  0 
C;  00236  0 
C:  26733  1 


C:  26704  o 
C : 27242  0 
06042  1 
I : 77624  1 


C:  26757  0 
1 : 77414  0 
l:  77731  1 
C:  11210  1 


I:  77745  1 
C:  01752  0 
C : 0005  3 1 
I:  45001  1 


13,3200 
13,3210 
13 ,3220 
13,3230 


C:  OOOOl  0 
I : 63325  0 
l:  76014  0 
C:  04676  1 


C;  27671  1 
C:  01517  0 
C:  00303  1 
C:  01667  1 


I:  53775  1 
C:  01503  0 
C:  27224  0 
I : 77614  1 


C:  01503  0 
l:  64715  0 
C:  77775  I 
C:  01672  0 


C:  57576  1 
C:  0J511  0 
I : 40001  1 
I:  77535  1 


I : 53715  1 
C:  51770  0 
C : 00001  0 
C:  02103  1 


C:  01511  0 
I : 76006  O 
C:  27227  0 
30154  1 


C:  57576  I 
C : 77765  0 
l:  43014  0 
50120  1 


13,3240 
13,3250 
13,3260 
13  ,3270 


54052  1 
C : 22404  1 
C:  27263  0 
I:  43006  0 


03421  0 
I : 43345  1 
C : 01632  1 
C:  00262  1 


27224  0 
5O023  0 


01115 

01517 

73001 

53755 


0 

0 

1 

0 


C: 
C : 
C: 
C; 


01517  0 
35517  1 
00013  0 
27277  0 


C: 
C : 
C: 
I : 


36074  1 
27177  r 
02030  n 
77614  1 


C:  27671  1 
I : 43''14  0 
I : 51575  1 
C:  00062  0 


I : 77624  1 
C:  04752  0 
C:  01535  0 
I:  41345  0 


13,330C 
13,3310 
13,3320 
13, 333C 


C:  00C13  0 
C:  00155  0 
C:  01115  0 
I : 50025  0 


C:  00043  0 
C : 20220  0 
C:  01517  0 
C:  00015  0 


l:  55762  1 
I : 40006  0 
I:  54234  0 
C:  27350  1 


C:  51770  0 
C:  27340  0 
C:  21613  0 
I:  75345  1 


I:  41366  I 
I : 50021  1 
C:  2C211  1 
C:  00015  0 


C : 25762  0 
C:  27407  1 
C : 02076  1 
C:  02076  1 


I : 40442  1 
C;  27340  0 
I : 51  40n  j 
C : 36076  0 


I : 54345  1 
I:  45345  1 
C:  27344  1 
C;  27350  1 


13,3340 
13 ,3350 
13,3360 
13  ,3370 


1 : 65345  0 
1 : 51545  1 
C : 01707  0 
C:  23311  0 


C:  27407  1 
C:  02076  1 
C:  23311  0 
l:  45345  1 


I : 77650  I 
I:  50025  0 
I : 45345  1 
C:  01115  0 


C:  27317  1 
C:  27405  0 
C;  02076  1 
C:  01517  0 


I ; 77634  0 
C:  27156  0 
C:  00015  0 
I : 77640  0 


C:  21713  1 C:  36076  0 

I ; 43014  0 C : 01740  0 

I : 43040  1 C : 271  56  0 

C : 27224  0 1 : 40525  1 


C:  27333  I 
C:  2331  1 0 
C:  04242  1 
C:  02076  1 


GAP 
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OCTAL  LISTING  FOR  PARAGRAPH  tt  077  , VilTF  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  FACH  KOPO,  "S"  DENOTES  UNUSED  FIXFD  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THESE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C 


(CONSTANTS) 


13,3AOO 

13,341C 

13,3420 

13,3430 


44322  1 
77776  1 
134A1  1 
05353  1 


I;  52040  1 
30106  0 
A0106  1 
C:  04022  0 


27224  0 
73462  0 
74745  1 
31054  1 


C:  23311  0 
00006  1 
10000  0 
50120  1 


13454  0 
03441  0 
54C52  1 


C 


01400  1 
33461  1 
50120  1 
34745  0 


30052  0 
70106  1 


C:  00000  1 
I : 77776  1 
55054  0 
00006  1 


13, 3440 
13  ,3450 
13,3460 
13,3470 


13457  0 
70106  1 
I : 77616  0 
C:  01711  1 


33461  1 
54106  1 
C:  27411  0 
C:  2753?  0 


00004  0 
00003  1 
C:  20100  1 
I : 45145  0 


05137  1 
13457  0 
l:  43020  1 
C:  01234 


10064  1 
34736  1 
C:  02772  1 
C:  27410  1 


13441  ) C;  COOfl  0 
0000-5*  0 26106  1 
02716  r C : 27532  o 
45014  0 C:  01474  1 


43462  0 
06042  1 
I : 77614  1 
C:  26643  1 


13,3500 
13,3510 
13  ,3520 
13,3530 


C:  34041  0 
C : OOOOO  1 
C:  01226  0 
1 : 77650  I 


C:  27133  0 
I : 53775  1 
l:  45057  1 
C:  47230  0 


I:  45174  1 
C : 01220  0 
C : 57176  0 
1 : 45145  0 


C:  00002  0 
C:  57176  0 
C:  27705  0 
C:  01234  0 


C:  27410  1 
C:  01503  0 
I : 66234  1 
C:  27410  1 


I : 77014  1 
C:  15535  C 
C:  26746  0 
I : 43014  0 


C:  0430X*  1 
C : 01234  0 
C:  03463  0 
C : 01476  0 


C:  OOOOO  1 
C:  04476  0 


13,  3540 
13,3550 
13,3560 
13,3570 


I:  43014  0 
C:  03744  0 
C : 27670  0 
C:  27670  0 


01475  0 
04634  1 
51021  0 
00041  1 


C : 
C: 


01674  0 
27566  1 
00041  1 
77624  1 


C:  34041  0 C:  27133 
I : 43020  I C : 03744 
C:  27572  1 I:  77624 
C:  27410  1 I : 45014 


0 l:  77650  1 C: 

0 c.  : 04474  1 l: 

1 C:  27656  1 I: 

0 C:  01676  1 C: 


27472  0 I : 43020  1 
43234  P C:  21574  1 
43234  0 C : 2 1574  1 
26066  0 I : 43014  0 


13,3600 

13,3610 

13,3620 

13,3630 


C:  01673  1 
C:  00007  0 
00004  0 
C:  04754  0 


C:  04475  0 
C:  17553  1 
00006  I 
C : 27646  0 


I : 77624  1 
C : 00015  0 
40025  1 
C:  21574  1 


C:  27133  0 
C:  03561  0 
20155  1 
I:  44215  1 


I : 77214  0 
I:  66134  1 
07262  0 
C:  27670  0 


C : 04675  1 
C:  02777  1 
31744  1 
C : 01115  0 


C ; oonoi  0 

C : 02776  0 
04640  1 
I : 45044  0 


C:  27545  0 
I : 77776  1 
I:  47014  1 
C : 27256  0 


13,3640 

13,3650 

13,3660 

13,3670 


C:  27656  I 
C : 01517  0 
25744  1 
C:  03720  1 


1:  43234  0 
I:  45246  0 
05567  0 
I:  77354  0 


C : 21574  1 
C:  27666  1 
C:  01703  1 
C:  02030  0 


C : 27670  0 
l:  52040  1 
06042  1 
C:  01521  0 


: 35115  J 
: 27156  0 
; 77616  0 
: 53257  1 


C:  27256  0 
C:  27641  1 
Cs  OOOOO  1 
E:  57605  0 


I:  45345  1 
I : 77414  0 
C:  00003  1 
C:  01535  0 


C:  01115  0 
C:  04674  0 
C : OOOOO  1 
C:  01503  0 


13,37CC 

13,3710 

13,3720 

13,3730 


C : 
C: 


C: 
C : 


25535  0 
01521  0 
77766  0 
77770  I 


01527 

15527 

77771 

7T771 


0 

0 

0 

0 


l:  53257  1 
C : 24007  0 
C:  77775  I 
CS  24000  1 


C:  57602  1 
C:  01551  ) 
C:  77775  1 
C:  OOOOO  1 


01543 

01553 

OOOOO 

74631 


1 

0 

1 

0 


C : 01511  C 
I s 77616  0 
C : 77763  0 
C:  63145  1 


25543  1 
77764  1 
77766  0 
00243  1 


C : 24007  0 
C;  77775  1 
C:  77773  I 
C : 3 2703  1 


13,3740 
13  ,3750 
13,3760 
13,3770 


C 

C 


03654  0 
54077  0 
03160  0 


nooo  1 

44745  1 
03761  1 


C : 03654  0 
70106  I 
CKSM  23056  0 


C:  21000  1 
54106  1 

S) 

a 


04627  0 
44753  0 
S 

a 


25200  1 
70076  1 

a 

a 


44747  0 
54076  1 

a 

a 


70077  0 
00002  0 
a 
a 
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1^»,2000 

19,2010 

19,2020 

19,2030 


0 

0 

I 

0 


00950  0 
21773  1 
60150  0 
00563  1 


C:  00065  I 
C:  79130  0 
C:  02551  1 
C:  05076  0 


C: 

C: 

C: 

C: 


01265  1 
92920  1 
15723  0 
35561  C 


C : 00302  0 
C:  70033  0 
C:  07210  0 
C:  70716  C 


C 

C 

C 

C 


: 29533  1 
: 91533  1 
: 01669  1 
: 90260  I 


C:  00052  0 
C : 15019  0 
C:  67276  Q 
C : 62966  1 


C;  09097  0 
C : 09650  0 
C:  62232  0 
C:  69656  0 


19, 2090 
19,2050 
19,2060 
19,2070 


l:  bLiM  ( l 
C:  70715  0 
C:  76196  0 


C:  09296  0 
C:  72393  0 
C:  71267  1 
C:  77019  1 


63235 

02393 

01795 

60371 


0 C:  99200  0 C:  73710  0 C:  66230  0 

1 C:  21362  0 C:  03237  1 C:  13301  1 

0 C;  06977  0 C:  63531  0 C:  75365  0 

1 C:  75073  1 C:  0337C  0 C:  12003  I 


C:  07209  0 c:  33712  0 
C:  62030  0 C:  65332  0 
C:  12010  o c:  03005  1 
C:  76125  0 c : 90037  1 


19,21 00 
19,211C 
19,2120 
19,2130 


C:  72936  0 
C:  70711  I 
C:  63327  1 
C:  71235  0 


C:  77062  0 
C:  70596  1 
C:  69996  0 
C:  72553  1 


C:  61091  0 
C;  67369  1 
C:  67515  1 
C:  66927  0 


C:  59169  0 
C:  97073  0 
C : 55266  0 
C:  92171  0 


C : 72277  0 
C:  69925  0 
C:  05230  0 
C:  66596  C 


C : 51099  0 
C:  77777  0 
C : 25976  0 
C : 70765  1 


C:  62691  0 
C : 071 57  0 
C : 69759  0 
C : 73260  1 


C:  95971  1 
C : 16322  0 
C:  72609  0 
C:  71693  0 


19, 219C 
19,2150 
19,2160 
19,2170 


C:  19121  0 
C:  70606  0 
C:  77031  0 
C:  09099  0 


C : 30153  U 
C:  59569  1 
C:  73359  1 
C:  10627  0 


C : 61297  I 
C:  77153  0 
C:  73161  0 
C:  62169  0 


C:  73310  1 
C:  61536  0 
C:  63065  1 
C:  95090  I 


C:  72313  0 
C : 61601  1 
C:  60931  1 
C:  07325  1 


C:  91297  0 
C : 97096  0 
C:  51702  0 
C:  37993  0 


C:  7979^'  0 
C;  606Ot  0 
C:  00656  1 
C:  03267  1 


C:  99566  1 
C:  76229  1 
C : 33013  0 
C:  06626  0 


19,2200  C:  63971  0 
19,2210  C:  07507  1 
19,2220  C:  69200  1 
19,2230  C;  75059  1 


50971  0 
20100  I 
65331  0 
56052  0 


C:  11660 
C : 13727 
C:  71322 
C:  17030 


l L : 

1 C: 

1 C: 


09151  0 
05955  0 
91512  I 
17635  1 


C: 

C: 


C : 
C: 


75501  1 
72160  0 
16902  0 
73321  0 


C : 96669  1 
C:  6920?  n 
C:  16205  1 
C : 57603  0 


C : 70930  1 
C:  11199  o 
C:  01365  o 
C : 77010  0 


C:  96590  1 
C:  05203  0 
C:  09039  1 
C:  97623  0 


19,2290 

19,2250 

19,2260 

19,2270 


C:  11515  0 
C:  13901  0 
C : 05971  0 
C:  07766  1 


C;  01690  1 
C:  31222  1 
C:  06122  0 
C:  10237  0 


C:  63215  1 
C:  03157  1 
C:  16220  0 
C:  19159  1 


C:  52176  0 
C:  27509  0 
C:  16362  1 
C:  36159  1 


C:  02193  0 
C:  17902  1 
C:  09917  1 
C:  13200  1 


C:  26755  1 
C:  12312  1 
C:  32762  0 
C:  31653  0 


l:  fbbbd  i 
C:  069A2  1 
C:  13299  1 


C:  31970  0 
r:  63657  0 
C : 12622  1 
C:  21036  1 


19,2300 

19,2310 

19,2320 

19,2330 


C:  01067  1 
C:  00153  0 
C:  03916  1 
C:  15735  1 


C:  23106  I 
C : 11212  0 
C:  07626  1 
C:  31531  1 


C:  10560  0 
C : 00077  1 
C:  62913  0 
C:  16795  0 


C:  27227  0 
C:  36275  1 
C:  57536  0 
C;  17555  1 


C;  10902  0 
C:  17777  0 
C : 07510  1 
C:  02615  1 


C : 002  75  1 
C:  01917  1 
C : 06914  0 
C:  13716  0 


C : 65977  n 
C : r7679  0 
C:  01673  1 
C : 73010  1 


C:  77099  1 
C:  21771  0 
C:  06065  1 
C:  90311  0 


19,2390 

19,2350 

19,2360 

19,2370 


C:  15776  0 
C:  21579  1 
00009  0 
C;  02902  0 


C:  39660  0 
l:  93225  0 
10155  1 
05353  I 


C:  00325  0 
C:  01239  0 
12365  1 
C:  97019  1 


C:  26625  1 
C:  03959  1 
12365  1 
C:  76133  1 


C:  07572  0 
1 ; 77976  1 
39755  I 
C:  02902  0 


05105  0 
07262  0 
69753  1 
30067  0 


C:  15972  1 I : 77639  0 
35016  0 59003  0 

65699  1 05173  1 

06092  1 l:  52019  0 
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14,2400 
14,241C 
14, 2420 
14,2430 


03470  1 
05353  1 
32437  0 
00004  0 


C:  60452  1 
C:  07024  0 
04616  I 
J4674  0 


04674  0 
C:  17000  I 
C:  20477  I 
C:  40154  0 


C:  75555  0 
C:  02416  0 
12426  I 
04674  0 


35027  1 
C:  30067  0 
12430  0 
C:  40141  1 


05105  0 
15261  0 
12^20  1 
04635  0 


C: 


C : 


02416  0 
05504  0 
04635  0 
71454  1 


C:  30067  0 
C : 00214  0 
C:  71464  I 
C:  04077  0 


14,2440 
14  ,2450 
14,2460 
14,2470 


77620 

16713 

12462 

02707 


0 

0 

1 

0 


C:  02746 
C:  C1120 
12454 
C:  15120 


0 

0 

1 

0 


C 

C 


c 


: 35242 
: 02707 
06042 
: 01242 


0 

0 

1 

1 


C:  26347  0 
1 : 77776  1 
l:  72545  0 
I : 77624  1 


C:  02711  1 
C:  26420  0 


C : 15122  1 
I : 77650  1 


C : 02713  0 
C:  02746  0 


C:  01124  1 
16001  1 
C:  15124  1 
C:  01531  1 


14,2500 
14,2510 
14  ,2520 
14,2530 


I : 77620  0 
I : 61131  0 
C:  00001  0 
C;  30567  0 


C:  02745  0 
C:  00052  0 
I;  77656  1 
C:  14017  1 


26723  0 
30576  0 


C:  33647  1 
C:  30535  1 
C:  00001  0 
C:  34023  1 


1 : o o 
I : 57456  1 
C : 30562  C 


C:  03562  0 
C:  02723  0 
C:  16707  0 
I : 74375  0 


r : 34041  0 
C : 30001  0 
C:  30005  1 
C : P2723  0 


C:  27056  1 
I : 52372  0 
I:  77624  1 
C:  30007  0 


14,2540 
14,2550 
14,2560 
I 4,  2570 


I : 53445  1 
C:  26707  0 
C : 30576  0 
C:  00045  0 


C:  C2715  0 
C:  00001  0 
C:  00017  1 
I : ^3336  0 


C : 26715  0 
I : 57456  1 
I : 77745  1 
C:  30602  0 


C:  02723  0 
C:  16723  0 
C:  30600  1 
I : 70546  1 


I:  5336)  0 
C:  30003  1 
C:  00021  1 
I : 77616  0 


C:  30001  0 
I : 77624  1 
I : 77650  1 
C:  07760  1 


C:  OOOO)  0 
C:  30567  0 
C : 02745  0 
C:  14473  1 


I : 57456  1 
C:  14023  0 
I : 70471  1 
C:  04000  0 


14,2600 

14,2610 

14,2620 

14,2630 


C:  00000  1 
I : 77624  1 
C:  02665  0 
I : 53505  1 


C:  00343  0 
C : 20030  n 
l:  63361  0 
C:  31734  0 


C:  21616  0 
I : 77601  0 
C;  24005  1 
C:  02731  0 


04645  1 
C:  00001  0 
C:  02701  n 
l:  66331  0 


55745  1 
l:  71214  0 
I : 74370  0 
C:  00051  0 


06042  I 
C:  01465  1 
C:  00344  1 
C : 00006  1 


I : 77624  1 
C : 24007  0 
C:  240^5  1 
C : 00052  0 


C:  47541  1 
C : 26756  1 
l:  77655  1 
C:  00006  1 


14,2640 

14,2650 

14,266C 

14,2670 


l:  52100  1 C:  30643  0 

C:  30640  0 I:  77754  I 

C : 02731  0 1 : 5O025  0 

C:  30755  0 C;  30653  1 


C : 30760  0 
C:  00C46  0 
C:  30757  1 
I : 45173  0 


50373 

52104 

30653 

30347 


0 

0 

1 

1 


C:  30347  1 C:  02731  0 
C : 30656  1 C : 30640  0 
l:  47773  1 C:  30347  1 
C:  30732  1 I:  77614  1 


I:  50025  0 C: 

I : 50373  C: 

C : 47430  0 I : 

C:  C1710  0 C: 


30757  1 
47430  0 
51025  1 
30640  0 


14,2700 

14,2710 

14,2720 

14,2730 


I : 
C: 


1 : 


45173  0 
30725  i 
01545  I 
77650  1 


C:  47430  0 
I : 65120  1 
C:  30711  0 
C:  30653  1 


C:  30732  1 
C : 02755  1 
l:  45345  1 
I : 51321  0 


I;  77614  1 
C:  02756  1 
It  77644  1 
C;  02707  0 


C:  01710  0 
I:  47773  1 
C:  30653  1 
Ct  00017  1 


C ; 30653  1 
C;  30347  1 
I : 67130  1 
I ; 77654  0 


I : 77614  1 
C:  47430  0 
C:  02755  1 
C:  30751  1 


C:  01605  0 
I : 43006  0 
C:  02756  1 
I : 75240  0 


14,2740 

14,2750 

14,2760 

14,2770 


I ; 77414  0 
C:  02731  0 


C:  00160  0 
I : 77614  1 
C:  01745  0 
C:  30347  1 


I : 75240  0 
C:  01430  1 
C:  30764  1 
I : 47715  1 


C;  30751  1 
C:  00052  0 
03005  1 
C:  02731  0 


C:  00162  1 
C : 05110  1 
It  73150  1 
C ; 47430  0 


I:  43040  1 
C : 35052  0 
C:  02755  1 
I : 77625  0 


C:  30751  1 
C : 05110  1 
C:  02756  1 
1 : 66044  1 


C:  01630  0 
Ct  35052  0 
I : 47775  1 
C:  31003  0 
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lA,3n00  C:  02756  1 
14,3010  C : 02746  0 
14,3020  33022  1 
14,3030  I : 77776  I 


I:  77734 
I : 77776 
T3C45 
04616 


1 

1 

0 

1 


P6042  I 
30603  1 


I : 77776  1 
C:  04024  0 
I : 43234  0 
03035  1 


25745  0 
34761  0 
C:  21574  1 
03045  0 


31745  0 
04616  1 
C;  31155  1 
05567  0 


04622  0 
C : 20624  0 
I:  77624  1 
C:  00405  0 


I:  77620  0 
06001  0 
C:  30500  1 
35006  1 


14,3040 
14,3050 
14,306C 
14,  3070 


04616  I 
I:  77776  1 
C : 160CO  0 
l:  77775  1 


C 


C 


20477  1 
05353  1 
04616  1 
C2715  0 


06001  0 
C:  04024  0 
C:  17703  0 
C : 02767  0 


03045  0 03014  1 34755  1 
06042  1 1:  77624  1 C:  31671  0 
05701  1 11757  1 13067  1 
77776  1 05353  1 C:  04024  0 


55757  1 06042  1 

I ; 77776  1 04616  1 

03137  I 06042  1 

06042  1 I:  45145  0 


14,3100  C:  03562  0 
14,3110  C:  26707  0 
14,3120  C:  31126  0 
14,3130  04616  1 


32472  1 l:  53521  1 
02761  0 C:  24007  0 
47443  1 I : 77624  1 
20624  0 06001  0 


C:  01734  0 
C:  02767  0 
C:  31216  0 
0301^  1 


C : 26715  C 
C;  34015  ) 
1 : 77614  1 
06042  1 


C : 03554  0 
C:  31250  1 
C;  01273  0 
1 : 77650  1 


l:  53521  1 
I : 45014  0 
I:  77776  1 
C : 02  746  O 


C;  01734  C 
C : 00354  0 
35741  0 
06042  1 


14, 3140 
14,3150 
14,31 60 
14,  3170 


47251  1 
33247  0 


C : 
C: 
I : 


02715  0 
00001  0 
43014  0 
04616  1 


C:  02761  0 
I ; 77650  1 
C:  01260  1 
C : 17314  I 


45X45  0 
31050  0 
01662  1 
04616  1 


C:  03562  0 
C;  00002  0 
1 : 77776  I 
C:  17707  1 


C:  32472  1 
C : 06240  1 
33215  1 
05701  1 


C:  03554  0 
I:  45020  1 
C4616  1 
05353  1 


1 : 77731  1 
C:  02746  0 
C : 20452  0 
C : 04024  0 


14,3200 

14,3210 

14,3220 

14,3230 


06042  1 
C : 01462  0 
I:  77624  1 
03243  1 


l:  75160  1 
I : 77624  1 
C:  47251  1 
05353  1 


C:  C3606  1 
C:  31603  0 
I : 77776  1 
C:  00214  0 


C:  01733  1 
I:  77650  1 

33246  1 

33247  0 


I : 77624  1 
C:  31126  0 
04616  1 
04616  1 


C : 31371  0 
C:  04024  0 
C:  20477  1 
C;  17314  1 


I ; 43014  0 
I : 7762C  0 
06001  0 
046)6  1 


C:  01273  0 
C : 02745  0 
03231  1 
C:  17707  1 


14,3240 

14,3250 

14,326C 

14,3270 


05701  1 
I:  43020  1 
I : 65552  0 
C:  00025  0 


05353  1 
C:  02745  0 
C:  00025  0 
C:  00023  0 


C : 04024  0 
C:  00074  1 
I : 43014  0 
I : 7765C  1 


06042  1 
l:  77760  0 
C:  00354  0 
C:  31255  1 


l:  77650  1 
C:  C2706  1 
C:  31274  1 
I : 45345  1 


C:  02745  0 
I : 47^73  1 
C:  f)0174  n 
C:  00025  0 


C:  01535  0 
C:  noOOl  0 
I : 71360  1 
C:  00023  0 


C:  02737  0 
C:  00007  0 
C : 00006  1 
I : 77634  0 


14,3300 
14,  3310 
14,3320 
14,333C 


C : 


C: 
C : 


21613 

03315 

01405 

00003 


0 

0 

1 

1 


C:  01045  1 
06042  1 
I:  77624  1 
C : 00005  1 


77414 

52014 

31620 

70543 


0 

0 

1 

1 


00074  1 
00274  0 
66234  1 
00325  0 


33320  0 
C:  02745  0 
C : 31405  1 
I ; 70523  1 


04616  1 
06042  1 
C : 00051  0 
C:  00005  1 


C 

I 

C 

I 


20477 

7765C 

onool 

51425 


1 

1 

o 


16001  1 
C : 02745  0 
l:  40370  1 
I : 45206  1 


14,3340 

14,3350 

14,3360 

14,3370 


C:  31404 
C:  04024 
i : 77700 
C:  32161 


0 l: 

0 

0 C : 
0 l: 


31332  1 
77773  1 


C : 31360  0 
I:  77624  1 
I : 75160  1 
C : 00001  0 


I 

C: 


C 


51025  1 C;  31405  1 
31557  1 I : 77624  1 
02642  0 C:  01733  1 
10001  1 I : 77773  1 


C:  31360  0 
C:  31603  0 
I ; 77624  1 
C:  00007  0 


I:  77776  1 
I : 77650  1 
C : 31371  0 
C:  10007  1 


L : J 1 A6^  I 
I : 77650  1 
l:  77773  1 
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GAPS  ASSEMBLE  REVISION  )31  CF  AGC  PROGRAM  LUMINARV  BY  NASA  2021112-091  17:53  DECo  lo,1969 

OCTAL  LISTING  FCR  PARAGRAPH  II  103»  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  kORDt  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  OR  "C  " (CONSTANTS) 


14,341C 

14,3420 

14,3430 


C 


0 

1 

0 

1 


C: 

C: 


I:  77616 
50120 
C;  33635 
34755 


0 

1 

I 

1 


C : 37722 
30034 
04616 
54322 


1 

0 

1 

C 


00O04  0 
50120  1 
20624  0 
54323  1 


30032  0 50120  1 
54003  0 00003  1 
06001  0 13453  1 
35010  0 04616  1 


14,3440 

14,3450 

14,3460 

14,3470 


I : 40331  1 
C:  16000  0 


02760  1 
04616  1 


04616  1 
13423  0 
C:  00000  1 
C : 17703  0 


20447 

05353 

00001 

05701 


1 

1 

0 

1 


06042  1 
C:  00014  ] 
I : 77776  1 
11757  1 


l:  77624  1 
06042  1 
05353  1 
13503  r 


C : 31557  3 
I : 77624  1 
C : 04024  0 
06042  3 


I : 77776 
C:  31603 
04616 
l:  77775 


14,3500  C : 02715  0 
14,3510  C : 0402^  0 
14,3520  55757  1 
14,3530  C : 24015  0 


02761  0 
06042  1 
13465  1 
03554  0 


77776  1 
45145  0 
05353  1 
24007  0 


05353  1 
C:  03562  0 
C:  04024  0 
C:  02761  0 


C : 04024  0 
C;  32472  1 
06042  1 
C:  26707  0 


11757  1 
C:  03554  0 
I:  45145  0 
C : 02767  0 


13522  0 
I : 77776  1 
C:  03562  0 
C : 36715  1 


05353  1 
34753  1 
C:  32472  1 
C:  31250  1 


14,3540 

14,3550 

14,3560 

14,3570 


77414  0 C:  00314  I 
01733  1 l:  77624  1 
31301  1 00006  1 
16771  1 04616  1 


C : 31544  0 
C t 31371  0 
13567  1 
C : 17707  1 


03423  I 
I:  77414  0 
3*^777  1 
05701  1 


I:  77624  1 
C:  01462  0 
04616  1 
04616  1 


C:  47443  1 
06001  0 
C:  01736  1 
C:  17201  ] 


l:  75160  1 
C:  12200  0 
13560  0 
C4616  1 


C : 02664  1 
l:  77776  1 
04616  1 
C:  17707  1 


14,3600  05701  I 
14, 3610  54040  1 
14,3620  I:  45020  1 
14,3630  C : 00006  1 


06042  1 
54041  0 
02746  C 
61373  1 


I;  77616  0 
06042  1 
C:  47541  1 
C:  02707  0 


I:  77776  1 
I:  77775  1 
I:  77624  1 
C:  01734  0 


C: 
C : 
I : 


30025  0 
24007  0 
20130  0 
77656  1 


I : 66370  0 
C:  06707  1 


*^4755  0 
I : 43414  1 
C:  00022  1 
I : 77700  n 


54037  1 
C : 01060  0 
C:  00051  0 
C:  31631  1 


14,3640 

14,3650 

14,3660 

14,3670 


I:  75160  1 
C:  02746  0 
C : 00007  0 
C:  02746  0 


C:  03606  1 
I:  77620  0 
I : 53435  0 
I:  77420  1 


C : 02642  0 
C:  02746  0 
C:  OnoOl  0 
C : C3665  1 


I:  77624  1 C:  31371  0 I: 

C:  34C41  C C : 27077  1 I : 

C:  27615  0 C:  03607  0 1 : 

51757  0 31755  1 


77624  1 C:  47355  1 I:  77650  1 
53575  0 C:  00001  0 C:  27607  0 
53435  0 C:  C3615  O C:  37623  1 
00006  1 73772  1 64744  1 


14,3700 

14,3710 

14,3720 

14,373C 


54734  0 
00124  0 
65650  1 
35014  1 


33773  1 
30734  1 
00006  1 
54003  0 


04616  1 C:  20477  1 
77747  0 00006  1 
13735  1 35016  0 
34737  0 56C01  0 


06CC1  C 
74743  1 
54003  0 
13745  0 


13707  0 
54001  1 
50001  0 
33774  0 


13701  0 
€0006  1 
3140?  1 
C4616  1 


05516  0 
63735  0 
54001  I 


14, 3740 
14,3750 
14,3760 
14,3770 


06001  0 
I : 77624  I 
I : 77776  1 
I;  77650  I 


13743 

10522 

04616 

03665 


54123  0 
C5253  0 


00006  1 
C:  21574  1 
37747  1 
C:  00306  1 


C : 
C : 


70734  0 
01527  0 


50120 
I : 53521 
00006 
C ; 03775 


i 

I 

1 


52011  0 
C:  01734  o 
13701  0 
C:  03776  1 


06042  1 
C:  03773  1 
06042  1 
CKSM  63670  0 


GAP;  ASSEMBLE  REVISION  13^  OF  AGC  PPCGPAM  LUMINARY  0Y  NASA  2(i?in2-f>91 
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octal  listing  for  paragraph  « 104,  WITH  PARITY  BIT  IN  BINARY  AT  ThF  RIGHT  OF  EACH  WORD,  "S " DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  OR  "C  (CONSTANTS) 


15,2000  l:  77773  1 
15,201C  C:  16171  1 
15,2020  C:  03765  0 
15,2030  C:  32047  > 


C:  00001  0 
I ; 71406  0 
I : 41456  0 
1:  77605  1 


C:  00766  0 
I : 73525  1 
I : 47133  0 
C:  32466  1 


I : 471  33  0 
l:  65361  0 
C:  00004  0 
C:  00033  1 


C:  00002  0 
C:  00023  0 
C;  21577  1 
I : 74356  1 


C : 21577  1 
I : 52361  1 
C;  00033  1 
1 : 65372  1 


C:  00031  0 I;  77654  0 
C : CO015  0 I : 47256  0 
1:  43225  0 C:  00031  0 
C : 00033  1 I : 74346  0 


I 5, 204C 
15,2050 
15,2060 
15,2070 


03765  0 
04616  I 
34753  I 


I : 53372  1 
C:  U233  O 
55144  0 
C:  00014  1 


45056  0 C:  47666  1 
34750  1 70076  1 
34753  1 04616  1 
05155  0 31144  1 


34031  1 
10000  0 
2C714  1 
76250  1 


C:  16276  C C:  37777  J C:  37775  0 
02060  0 36250  0 02061  1 

060C1  0 12073  O 02062  1 

50000  1 02077  0 12105  0 


15,2100 

15,2110 

15,2120 

15,2130 


12153 

00006 

02113 

31144 


0 

1 

0 

1 


12110  1 
34755  ) 
S3045  0 
74752  1 


06042 

53045 

00006 

10000 


1 

0 

1 

0 


77650 

32170 

62125 

02137 


1 

0 

0 

0 


C : 32164  0 
04616  1 
12127  0 
06042  1 


00006  1 
C ; 20477  1 
00006  1 
1 : 77650  ) 


r : 


30025  0 
32220  0 


12112  0 
02121  1 
53775  1 
06042  1 


15,2140 
15,2150 
15,2160 
15,  2170 


l:  45145  0 
C:  20477  1 
C:  31321  0 
C:  01442  1 


02775  0 C:  31651  1 
06001  0 12171  C 
43014  0 C:  01462  0 
32217  1 04616  1 


1 J 77624  1 
06042  1 
C:  01273  0 
C : 20624  0 


C:  31620  1 
I ; 77650  1 
I : 77624  1 
16001  1 


I:  77776  1 
C : 32143  0 
C ; 31007  1 
12156  0 


35010  n 04616  1 
06042  1 l:  77624  1 
77776  1 06001  0 
06042  1 1 : 64375  1 


15,2200 

15,221C 

15,2220 

15,2230 


C;  03607  3 
C : C3623  0 
1 : 43014  0 
C:  36401  1 


01734  0 
53521  1 
01463  1 


55716  1 


I:  77656  1 
C:  01734  0 
C;  00662  0 
I : 77742  0 


C:  26665  0 
C;  36701  1 
I : 77201  1 
Cj  16032  1 


C : 03615  0 
C:  31156  1 
C:  00001  0 
C:  C2775  0 


I : 53521  1 
l;  77650  1 
C:  02023  1 
I : 77624  1 


C!  01  734  0 
C:  32166  1 
I ; 41525  0 
C : 30440  1 


C:  26673  1 
C : 00013  0 
C:  02775  0 
I : 53575  0 


15,2240 

15,2250 

15,2260 

15,2270 


02032  1 
12455  0 
70734  0 
00006  1 


37607  1 C : 10757  C 
32463  1 04616  1 
00006  1 76245  0 
12455  0 40C00  0 


I;  77650  1 
C;  20477  1 
56001  0 
62557  1 


32143  0 
06001  0 
51757  0 
00006  1 


40077  n 
12257  1 
55755  0 
62455  1 


74737  1 
12245  1 
5012C  1 
06042  1 


lOOOO  0 
47747  0 
54046  1 


15,2300 

15,2310 

15,2320 

15,2330 


C:  30347  1 
35016  0 
56001  0 
C:  02731  0 


01734  0 
54003  0 
55745  1 
03765  0 


I: 


I : 


45056  0 
51241  1 
50120  1 
65552  0 


47650  1 
31403  1 
52011  0 
00031  0 


02731  0 
54001  1 
C6U42  1 
51025  1 


I : 77624  1 
C : 32466  1 


r 

c 


34753 

54003 

10522 

32420 


1 

0 

0 

r* 


55241  0 
34737  0 
I:  50375  0 
I : 45345  1 


15,2340 
1 5,2350 
15,236C 
15,2370 


C;  00031  0 
C:  03765  0 
I : 53435  0 
C:  32375  1 


C;  32470  0 
I;  53435  0 
C:  02731  0 
C;  32(147  0 


: 71240  1 
: 24005  1 
: 50206  0 
: 77625  0 


C:  32413  0 
1 : 47206  0 
C;  00001  0 
Cs  00033  1 


C:  00031  0 
C : 03765  0 
I:  65552  0 
C:  00033  1 


I : 42405  0 
I : 77676  0 
C;  24033  1 
I : 70535  O 


C:  11220  1 
I : 63256  0 
I : 77641  1 
C;  02746  0 


C:  24031  0 
C:  03765  0 
I : 71244  0 
I:  41415  1 


gap:  assemble  REVISION  131  OF  AGC  PRCGRA^  LUMNARY  BY  NASA  2021U2-C91 
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OCTAL  LISTING  FCR  PARAGRAPh  U 105»  W IT  h PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  V»ORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I 


(INTERPRETIVE  OPERATOR  WORDS)  OR  "C  ” (CONSTANTS) 


15,2900  C:  00033  1 
15,2910  C:  01290  0 
15, 292C  I : 77776  I 
15,2930  C;  00909  1 


69757  0 
20977  1 


00031  0 I : 77615  O 
39755  1 55235  0 
00006  1 62927  1 
16001  1 12955  0 


77639  Cl  C:  21615  0 
55237  1 12937  1 
12370  05567  0 
12295  1 32969  0 


15,2990 
15,2950 
15,2960 
15,  297C 


09616  1 
79795  1 
C:  17703  0 
C;  30131  1 


20977  1 
97797  0 
05701  1 
12525  0 


16001  I 
70739  0 
13037  1 
03562  0 


12995  1 
60001  0 
C:  00306  1 
I : 77920  1 


12295  1 
59739  0 
C:  01517  0 
C:  02736  1 


39757  0 
09616  1 
C : 02525  1 
97797  0 


71291  0 
C : 16000  0 
C : 12525  0 
7073*  0 


0000  6 1 
09616  1 
C:  00026  0 
00006  1 


15 ,2500  76295  0 
15,2510  C : 20977  1 
15,2520  C:  02736  1 
15,2530  59046  I 


56001  0 51757  0 
02506  0 02519  0 
90000  0 62557  I 
06092  1 I:  52173  0 


55755  0 
02506  0 
00006  1 
30397  1 


10000  0 
06092  1 
62535  0 
02736  1 


I : 


12521 

53575 

51757 


1 

0 

0 


C : 


32560  O 
02707  0 
31755  1 


06092  1 I : 95195  0 


09616  1 
I : 77650  1 
50120  1 
C:  03562  0 


15, 2590 
15,2550 
15,2560 
15,2570 


C : 30500  1 
C:  02715  0 
C:  01530  0 
I:  95019  0 


77390  0 C : 02757  0 
70193  0 C:  02756  1 
32762  0 59321  0 
01662  1 C : 32666  0 


C;  02707  0 
C : 00159  1 
90000  0 
I:  66370  0 


C:  29001  0 C:  02715  0 C:  26707  0 

I:  52173  0 C:  02393  1 C:  02736  1 

59322  0 32763  1 59323  1 

C:  00022  1 C:  00051  0 C;  00006  1 


C : 00001  0 
C:  00393  0 
06092  1 
I ; 77799  0 


15,2600 

15,261C 

15,2620 


C:  00050  1 
C:  00C97  I 
I:  95100  1 


I : 95173  ,0 
C : 75090  1 
C:  32601  1 


C:  59000  0 
1 : 711  52  1 
C:  97355  1 


C:  97675  0 
C:  00097  1 
I : 79575  0 


C : 06707  1 
I : 63097  1 
C:  02715  0 


I : 77775  1 
C:  59000  0 
C:  36723  1 


C:  02731  0 
C:  00002 
C:  32666  0 


l:  73799  1 
C : 06665  1 
I:  79575  0 


1 5,2630 


02715  0 


53955  0 C:  02723 


02761  0 I:  77691  1 C:  02231  0 I:  65552  0 C:  01095  1 


15, 2690  I : 77776  1 
1 5,2650  05509  0 
15,2660  I : 77776  1 
15,267C  C:  29007  0 


05516  C 
C:  00019  I 
39751  0 
C : 02707  0 


C : 00019  1 32761  0 

05353  1 C:  09029  0 
70079  0 10000  0 

I ; 77776  \ 05353  1 


09616  1 C:  20977  1 

06092  1 I : 77775  1 

12561  0 13536  f 

C:  09029  0 06092  1 


06003  0 12652  0 
C:  02761  0 C:  02231  0 
I : 77220  1 C : 02795  0 
l:  77629  1 C:  31557  1 


15,2710 

15,2720 

15,273C 


77776 

09029 

05155 

09616 


1 

0 

0 

1 


32760  1 
09616  1 
09679  0 
15271  1 


55736  0 
C:  77591  1 
C:  77591  1 
25736  1 


37721 

06092 

35023 

06092 


1 

1 

0 

1 


55079  1 
77776  1 
05105  C 
53375  C 


09616  1 
35000  I 
C:  02730  1 
C : 00325  0 


C : 


C: 
C : 


15707  0 
05173  1 
32065  0 
02707  0 


C : 
C : 


05261  1 
02707  0 


15,2790 
I 5,2750 
15,2760 
15,2770 


: 50135 
: 97673 
: 77753 
: 00329 


0 

0 

0 

1 


C:  02737  0 
C:  02715  0 
C:  01909  0 
C:  00323  0 


1 : f { ( fb  1 
C:  07357  I 
1 : 77666  1 


I : 


C; 
C : 


53575  0 
05353  1 
06211  0 
29766  0 


C:  02707  0 
C : 09029  0 
I:  71220  1 
C:  2900  5 1 


C:  36731  1 C:  97591  i 

06092  1 I : 77650  1 

C:  02795  0 C : 00322  1 

l:  77629  1 C:  97666  1 


I : 77629  1 
C:  02795  0 
1 : 65325  0 
C:  26707  0 


gap:  assemble  REVISION  131  OF  AGC  PRCGRA^  LUPINARY  BY  NASA  2C21U2-09). 
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OCTAL  LISTING  FCR  PARAGRAPH  H 106,  W IT F PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  HORO,  "S”  DENOTES  UNUSED  FIXFO  MEMORY 


ALL  VALID  HOROS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WOROSI  OR  "C"  (CONSTANTS) 


33027  1 
34755  1 


l:  7762A  1 
C : 24007  0 
04616  1 
13033  0 


C:  47675  0 
C:  02673  1 
C:  17314  I 
34753  1 


C:  36715  1 
C:  34015  1 
04616  1 
55757  1 


C:  47541  1 
C:  47443  1 
C;  17707  1 
C5353  1 


77624  1 
77624  1 
05701  J 
04024  C 


C;  20030  0 
C : 47251  1 
12755  0 
12245  1 


I:  77775 
I : 77776 
C:  02737 
31757 


15,3040 
15,3050 
L 5,3060 
15,3070 


00006  1 
C:  37254  0 
C:  32472  I 
I:  64373  1 


C: 


C: 


03246  1 
74515  0 


l:  77776  1 
C : 03607  0 


C:  04024  0 
I : 77775  1 
13032  1 
I : 77656  1 


06042 
C:  02715 
l:  77131 
C:  12723 


0 L: 

1 C : 

1 l: 


45145  0 
02761  0 
00052  0 
77773  I 


C ; 03562  0 C : 32472  1 
I : 451*5  0 C:  03562  0 
C : 00006  1 C:  00014  1 
C : 75002  1 C : 10023  1 


15,3100 

15,311C 

15,3120 

15,3130 


I:  43104  0 
C:  33171  0 
lOOOO  0 
06042  1 


C:  33070  0 
I : 77624  1 
13130  1 
I : 40175  0 


C:  04315  1 
C:  47443  1 
33276  1 
C:  02740  0 


C:  33111  0 
I:  77624  1 
04616  1 
C;  33134  1 


I : 77624  1 
C:  47251  1 
C:  20477  1 
C : 02750  I 


C : 31250  1 
I;  77776  1 
06001  0 
I : 40141  1 


I:  7761*  1 
34752  0 
13130  1 
C:  30602  0 


00354  0 
70104  0 
13172  1 
33237  1 


15,31*0 

15,3150 

15,3160 

15,3170 


I : 52131  0 
I:  75160  1 
13162  0 
C:  33471  0 


C;  02746  0 
C:  03606  1 
13172  1 
l:  77776  1 


C:  33144  0 
C : 01733  I 
34752  0 
35741  0 


C:  33017  1 
I ; 45C14  0 
70104  0 
04616  1 


I:  77776  1 
C:  01462  0 
10000  0 
C:  20624  0 


05353  1 
C:  31371  0 
13544  0 
16001  1 


C : 04024  0 
I:  77776  1 
06042  1 
13544  n 


06042  1 
11144  0 
I : 77624  1 
44752  1 


15,32CC 

15,3210 

15,3220 

15,3230 


61144 

02231 

75745 

01242 


1 

0 

0 

1 


3000  6 1 
C:  47663  1 
l:  47014  1 
l:  77606  1 


13204  n 
43105  1 
00662  0 
35234  1 


16001  1 
01734  0 
21574  1 
51700  1 


77624  1 
02023  1 


C;  04024  0 
I : 51515  1 
C:  30440  1 
I : 77776  1 


06042  1 
C:  02023  1 
C:  01220  0 
16001  1 


1 : 45175  0 
1 : 45561  1 
I:  65352  0 
I : 75160  1 


15,3240 

15,3250 

15,3260 

15,3270 


C:  02664  1 
I:  77624  1 
06C01  0 
I:  77624  1 


C:  02642  0 
C:  47355  1 
13263  1 
C : 31603  0 


I : 77624  1 
I : 77414  0 
13255  1 
I : 77624  1 


31371  0 
04255  0 
05353  1 
32764  0 


1:  77624  J 
C : 33266  0 
C:  04024  0 
I:  77650  1 


Cj 


C 


47541  1 
35010  0 
06042  1 
33144  0 


l:  77624  ) 
04616  1 
I : 77624  1 
C:  01535  0 


C : 20030  0 
C:  20477  1 
C : 31557  1 
04616  1 


15,3300  C:  33635  1 
15,3310  13303  0 
15,3320  13333  0 
15,333C  C:  31371  0 


36250  0 55144  0 

05353  I C:  00014  1 
13374  0 13303  0 

I : 77650  1 C:  33373  0 


34753 

05155 

06C42 

06042 


1 

0 

1 

1 


04616  1 
31144  1 
I : 75160  1 
l:  77745  1 


C : 20714  1 
76250  1 
C : 01733  1 
C : 03442  0 


06001  0 
5000C  1 
C:  C3606  1 
C : 01045  1 


13314  0 

13320  1 
I;  77624  1 
I : 77776  1 


15,3340 
1 5,3350 
15,336C 
15,3370 


74335  1 
00001  0 


04616 
C:  01045 
C:  36775 
C:  37607 


1 

1 

1 

1 


C:  20477  1 
I:  65254  1 
C:  33365  1 
C;  1C757  0 


16001  1 
C:  33363  1 
I:  45545  1 
I : 77776  1 


75002  1 
347  55  1 


13340  1 
C : 01045  1 
C:  34041  0 
55144  0 


06042  1 
C:  33363  1 
C:  27056  I 
55145  1 


I:  65234  1 
I:  45545  1 
I : 53575  0 
34737  0 


gap;  assemble  revision  131  OF  AGC  PRCGRAf'  LUMINARY  BY  NASA  2021112-091 


17:53  HECo  19,1969 


PAGE  1638 


OCTAL  LISTING  FCP  PARAGRAPH  H 107,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  *'3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  OR  "C"  (CONSTANTS) 


15,3^00 
15,3410 
15, 3420 
15,343C 


70077  0 
27145  1 
13413  0 
13530  0 


10000  0 
34750  I 
34737  0 
34752  0 


34745  C 
55143  1 
70077  0 
71144  0 


27145  I 
33634  0 
10000  0 
10000  0 


34753  1 70102  0 
C4616  1 C : 20477  1 
13524  f'  34753  1 
13530  0 05567  0 


C; 


10000  O 
16001  1 
70102  0 
00701  1 


34750  1 
13421  1 
10000  0 
35006  1 


15,3440  04616  1 
1 5,3450  I : 77634  0 
15,3460  C:  27246  1 
15,3470  C;  02746  0 


L : 216  r 4 1 
C;  13254  1 
I : 45020  1 


16001  1 
C:  27562  0 
l:  65201  1 
C : 02746  0 


13413  0 
C:  03246  1 
C:  00001  0 
C:  47541  1 


13413  0 
I : 41525  0 
C;  03562  0 
l:  40234  0 


1 ; 40220  0 
C:  03562  0 
I : 45006  0 
C:  21574  1 


C:  02746  0 
I:  77624  1 
C:  55716  1 
C;  oonri  o 


C:  onool  0 

C:  55716  1 
C:  37254  0 
C:  37562  1 


15  ,3500 
15,3510 
15,3520 
15,3530 


C:  20030  0 
C;  26237  0 
C:  02245  0 
05504  0 


I:  61375  1 
C:  02701  0 
I : 77614  1 
C:  10205  0 


C;  02673  1 
I ; 53505  1 
C : 03036  1 
34753  1 


C: 

C: 

C: 


01734 
01734 
02  746 
71144 


0 

0 

0 

0 


I : 65256  0 
I:  41525  0 
06042  1 
10000  0 


C : 03562  0 
C : 03562  0 
I : 77624  I 
12561  0 


I : 45006  0 
I : 77624  1 
C;  3347J  n 
05353  1 


C;  51700  1 
C : 51700  1 
I : 77776  1 
C:  04024  0 


15,  3540 
1 5 ,3550 
15,3560 
15, 3570 


06042  1 
20030  0 


70102  0 lOOOO  0 

71144  0 50000  1 

I : 77775  I C:  02237  0 

l;  77775  1 C:  02673  1 


13560  0 
13554  1 
C:  27246  I 
C:  26761  0 


05353  1 C:  04024  0 05516  O C:  00205  0 

13560  0 13601  1 13617  0 13620  1 

C:  02245  0 C:  37254  0 C:  47541  1 i:  77624  1 

C:  02701  0 C:  36767  1 C:  334^5  1 I:  77650  1 


15,3600 

15,361C 

15,3620 

15,3630 


C:  33064  0 
I : 77624  1 
06042  1 
C;  36761  1 


06042  I 
C:  200  30  0 
I;  53575  C 
C:  33445  1 


I : 53575  0 
I : 45175  0 
C:  02023  1 
l:  77776  1 


C:  02023  1 
C:  02231  0 
C : 03246  1 
13032  1 


C;  27246  1 C:  02245  0 C;  3725^  0 C: 

C;  47663  1 I:  77650  1 C:  3357?  0 

C:  27254  1 C;  02231  0 I:  77624  1 C: 

C ; 01206  1 41277  0 74743  1 


47541  1 
13030  0 
47663  I 
10000  0 


15,3640  13644  0 
15,3650  C:  OOOOl  0 
15,3660  C:  00000  1 
15,3670  C:  12050  1 


05567  0 
C;  20617  0 
I:  77614  1 
I:  42661  0 


C;  00210  1 
I:  56371  1 
C:  00274  0 
C:  20211  1 


0600]  0 
C:  01707  0 
I:  77745  1 
C:  12046  0 


05504  0 
C : 12024  1 
C:  12004  0 
I : 40756  1 


C:  00007  0 
C : 00031  0 
C:  00027  1 
C;  12044  1 


1 ; r ru  i 
I : 40745  0 
I;  62015  1 


I : 54201  0 
C:  00000  1 
C:  00031  0 
C:  00027  1 


15,3700 

15,3710 

15,3720 

15,3730 


C : 
I : 


C : 


77771 

42661 

77775 

00C25 


C: 

C: 


I ; 


10027  1 
20206  1 
53C15  0 
65356  1 


I: 
C : 
C: 
C: 


77614 

65741 

12026 

00021 


1 

0 

0 

1 


C:  00054 
I:  77625 
C:  33753 
l:  65356 


0 C ; 

0 C: 

C I : 

1 C; 


33666  1 
00027  1 
77644  1 
CG021  1 


I : 40745  0 
C:  10021  0 
C;  33663  I 
I : 55546  0 


C:  00031  0 
I : 63135  0 
I:  45345  1 
I : 53521  1 


C:  65747  0 
C:  00050  1 
C:  00021  1 
C:  12002  0 


15,3740 
15,3750 
1 5,376C 
15,3770 


02723  0 
12002  0 
03760  0 


I : 65345  0 
C:  02715  0 
C;  03761  1 

a 


C : 12004  0 
I : 77616  0 
CKSM  42503  1 
a 


C:  00023  0 
I;  77745  1 
a 
a 


I ; 65356  I 
C ; 12004  0 

a 


C:  00023  0 
C : 00027  1 
a 
a 


I:  55546  0 
1 : 77650  1 

a 


1:  53521  1 
C:  33705  0 

a 

a 
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OCTAL  LISTING  FOR  PARAGRAPH  H 110,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S)"  DENOTES  UNUSED  FIXED  MFMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WOROSI  OR  "C " (CONSTANTS! 


16,2000  00006  1 

16,2010  10000  0 

16,2020  C2030  0 

16,2030  7A737  I 


00C31  0 
L2206  0 
10000  0 
lOOOO  0 


AOOOO  0 
A1262  I 
12157  1 
120A1  1 


7A355  1 Cn0O6  I 
7A751  1 27262  1 
00002  0 22016  0 
3*737  0 27262  1 


AI300  1 
347A2  1 


00006  1 22012  1 

37720  O 05072  1 


74746  1 
00006  1 
31262  0 
03645  0 


16,2040 
16,2050 
1 6,2060 
16,2070 


C : 


42106  0 
34755  1 
55431  I 
55501  0 


02000  0 
5552A  1 
55432  1 
55503  1 


30111  0 
55525  0 
55536  1 
55544  1 


74751  1 
55526  0 
55537  0 
55545  0 


00006  1 
55421  0 
55540  0 
55510  n 


12157  1 
55422  0 
55541  1 
55512  1 


04674  0 C : 40154  0 
55423  1 55430  0 
5542*  0 55425  1 
55502  0 5563C  1 


16,2100 
16, 21 10 
16,2120 
16,2130 


55632  0 
42202  1 
41262  1 
55466  0 


55631  0 
71262  1 
74740  I 
55470  1 


55633  1 55460  0 
55262  1 0n006  I 
27262  1 34751  0 
34755  1 55467  I 


55461  1 
30033  1 
55534  0 
55471  0 


55766  0 
53441  0 
55535  1 
55465  0 


55767  1 
30034  0 
34733  1 
55472  0 


55770  1 
55442  0 
54031  1 
55473  1 


16,2I4C 
16  ,2150 
16,216C 
16, 2170 


36655  1 
55473  1 


04674  0 
55474  0 


55756  0 
37732  0 
C:  35452  1 
00006  1 


34752  0 
54030  0 

ooooe  I 

01005  0 


55433 

15270 

32156 

00006 


f) 

6 

1 

1 


C : 


55434 

02024 

53264 

01006 


1 

0 

1 

0 


55435  0 
34106  1 
34755  1 
42203  0 


00006  I 
04674  0 
55472  0 
00006  1 


16,2200 
16, 221C 
16, 2220 
16,2230 


03012  1 12152  I 
52006  0 C:  02227  1 
11756  0 05624  1 
30034  0 55751  1 


C:  03021  1 C:  07400  1 
C:  40106  1 37732  0 
C:  32C00  0 02000  0 


C : 


02213  0 
26030  n 
30032  0 


31634  1 00006 


21637  0 


34106  1 
22016  0 
55747  0 
02256  1 


0C006  1 
00006  1 
30033  1 
55634  0 


32212  1 
22012  1 
55750  0 
31635  0 


16,2240 

16,2250 

16,226C 

16,2270 


00006  I 
55636  1 
00002  0 
53743  1 


21640  0 
30006  1 
40000  0 
11426  1 


02256  1 55635  I 
27445  1 00006  1 
00002  0 OOC06  1 
12274  0 12304  0 


31636  0 
27457  1 
71740  1 
62315  1 


00006  1 
12647  1 
21427  0 
00006  1 


21641  1 
lOOOO  O 
C00C6  1 
62304  1 


02256  J 
64753  1 
31427  1 
U426  1 


16,2310 

16.2320 

16,2330 


71530  1 
33624  1 


00002  0 
00002  0 
55744  0 
55747  0 


44733 

50000 

31747 

41744 


0 

1 

1 

0 


00002  0 
*4734  1 
54001  1 
00006  1 


53427  C 
00002  0 
C0006  1 
74736  C 


00006  1 11747  0 n0002  0 

C:  77147  0 31736  1 00006  1 

21440  1 23440  0 55736  0 

27430  0 31745  0 61544  0 


16,2340 

16,2350 

16,2360 


00006  I 
31750  1 
61736  1 


77741  0 
54001  1 
53427  0 


27431  1 31746  0 
00006  1 21441  0 
02266  1 00006  1 


61545  1 00006  1 
23441  1 55737  1 
61421  1 27430  C 


77741  0 27432  1 
00006  1 71414  0 
r23lC  1 55430  0 


16,2370  00006 


31743  0 21447  0 


41  454 


00006  1 73624  0 21447  0 31751  0 
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OCTAL  LISTING  FOR  PARAGRAPH  « 111,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  OR  “C"  (CONSTANTS) 


16,2400 
16,241C 
16,2420 
16  ,2430 


1 

0 

1 

1 


00006  1 
31417  1 
31743  0 
71737  1 


21442 

02263 

21451 

53427 


0 

1 

1 

0 


55740 

00006 

41455 

3142C 


1 

1 

0 

0 


23442  1 
61422  1 
00006  1 
02263  1 


31415  0 
27431  1 
73624  0 
00006  1 


C0006  1 
02310  1 
21451  1 
61^23  0 


31416  0 
27432  1 


16,244C 

16,2450 

16,2460 


16, 247C 


02310 

21453 

31403 

12472 


12466  0 
12507  0 


00006  1 
74737  1 
00006  1 
61751  0 


31743  0 
00006  I 
31410  0 
00006  1 


21453 

12462 

5375C 

62507 


0 

1 

0 


41456  C 
00006  1 
31406  1 
22007  0 


00006  1 
31405  1 
55751  J 
23430  1 


73624  0 
53750  0 
11430  0 
34755  1 


16,2500 

16,251C 

16,2520 

16,2530 


00006  1 
31744  1 
00006  1 
27422  0 


U433  0 27421  0 02310  1 
27421  0 02310  I 55421  0 
62544  0 22007  0 23431  0 
J2310  1 55422  0 31747  1 


55421  0 
11431  ] 
34755  1 
5743‘i  C 


31747  1 
12517  1 
00006  I 
61750  1 


55433  0 
12544  1 
1143*  1 
57736  1 


25433  1 
61751  0 
55736  0 
00006  1 


16,2540 

16,2550 

16,2560 

16,2570 


74756  0 C0006  1 
02310  1 55422  0 
22007  0 23432  0 
55423  1 31747  1 


11736  0 27536  1 
11432  1 12555  1 
34755  I 00006  1 
57435  1 61750  1 


25434  0 31745  0 
12602  0 61751  0 
11435  C 55737  1 
57737  0 00006  1 


61544  0 27422  0 
00006  1 62602  1 
27423  1 02310  1 
74756  n 00006  1 


16,2600 

16,261C 

16,2620 

16,2630 


55536  1 
31536  p 


27540  0 
74744  0 
5554C  0 
55424  0 


25435  1 31746  0 
10000  0 12624  1 
12667  0 C : 00074  1 
00006  1 73622  0 


61545  1 27423  1 02310  1 55423  1 
55424  0 55425  1 5554*  1 55545  0 
31510  1 00006  1 74766  n 21537  0 
55544  1 31512  n 00006  1 74766  0 


16, 264C 
16,2650 
16,266C 
16, 267C 


53755  0 
12710  1 


31540  1 
lOOOO  0 
32665  0 
12714  0 


55425  1 
03742  0 
52016  1 
11633  1 


00006  I 
52C11  0 
53757  1 
12712  0 


73622  0 55545  0 12667  0 
53753  0 32666  0 56C17  1 
15275  0 C ; 02667  1 1 3645  1 
12724  0 00006  1 27766  0 


34747  1 
22012  1 
11631  0 


00006  1 


16,2700 

16,271C 

16,2720 

16,2730 


27767  1 
55631  0 
03012  1 
03012  1 


00006  I 27770  1 
12672  1 55633  1 
34735  1 55631  0 
34735  I 55633  1 


34740  0 
12675  0 
12672  1 
12675  0 


55503  1 
41262  1 


00006  1 
55510  C 
55512  1 
74740  1 


12734  1 
45007  1 
4502C  1 
27262  1 


02740  0 
00006  1 
00006  1 
13630  0 


16, 2740 
16,2750 
16,276C 
16,2770 


00006  1 
50000  1 
13013  1 
63013  0 


00031  0 40000  0 
33576  0 55743  1 
44756  0 61743  0 
35567  C C:  02001  1 


73617  0 00006  1 
36245  1 03555  1 
00006  1 63002  0 
34753  1 23262  0 


13014  0 
*6245  0 
41742  0 
00006  1 


00006  1 
61742  1 
64751  0 
060(^1  0 


74745  1 
00006  1 
00006  1 
55262  1 
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ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I”  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C“  (CONSTANTS) 


16,3000 
16,30X0 
16,  3020 
16  ,3030 


34755  1 
64751  0 
00006  I 
70111  1 


13014  0 
27743  1 
13027  P 
00006  I 


34753  1 
12753  0 
30111  0 
13071  0 


23262  0 
31740  0 
74743  3 
34755  1 


00006  1 
55472  0 
lOOOO  0 
55464  1 


06001  0 
34737  0 
13467  0 
30032  0 


55262  1 
00006  1 
13073  0 
55634  0 


74753  0 
02031  1 
34735  1 
11460  0 


16,3040 

16,3050 

16,3060 

16,3070 


13054  1 
02031  1 
55460  0 
13354  1 


00006 

13446 

C0006 


0 

I 

0 


00006  I 
13C62  I 
44363  1 
00031  0 


02031  I 
13446  0 
13065  0 
55443  1 


00006  1 
00006  I 
34363  0 
74735  0 


13064  1 
00031  0 
55524  1 
00006  1 


34750  1 00006  1 
40000  O 75741  1 
34753  1 55460  0 
13223  0 34740  0 


16,3100 
16,3llC 
16, 3120 
16,3130 


31262  0 
13134  0 


00006  1 
02031  1 
74742  0 
13220  0 


CJ 


13467  0 34743  0 
00006  1 13220  0 
00006  1 13125  0 
74777  0 C:  00C56  I 


71262  1 00006  1 
45014  0 71262  1 
1 3220  0 31262  0 
44740  1 00004  0 


13120  0 34737  0 
55262  1 13220  0 
74741  0 00006  1 
701  11  1 54111  1 


16,3140 
16,3150 
16,3160 
16, 3170 


34737  0 00  )06  1 
04674  0 C:  401 54  0 
55446  1 55447  0 
55456  0 54042  0 


02031  I 
00003  1 
55450  0 
54044  0 


00006  1 
13467  0 
55451  1 
33132  1 


13150  1 
5546^  1 
55452  1 
71262  1 


30032  0 
34740  0 
55453  0 
55262  1 


55634  0 
26111  I 
55454  1 
03201  1 


03152  1 
34755  1 
55455  0 
00003  1 


16,3200 

16,321C 

16,3220 

16,3230 


13446  0 
Q0C04  0 
34755  1 
00006  I 


22044  1 
00006  1 
54043  1 
13154  0 


30042  1 
23265  1 
13232  0 
30032  0 


53463  0 
06022  1 
41262  1 
55634  0 


34755  1 
33623  0 
74743  1 
10043  1 


54043  1 
00006  1 
27262  1 
13240  0 


54042  0 
C5ni3  0 
34740  0 
13240  0 


54044  0 
01265  1 
70111  1 
13240  0 


16,324C 

16,3250 

l6,32eC 

16,3270 


60000  1 
57454  0 
55427  0 
34771  1 


60000  I 
4T000  0 
1173  6 0 
S5445  1 


‘I 

13265  1 
03304  0 


00006  1 
55736  0 
13273  0 
31262  0 


70043  1 
03201  1 
13265  1 
74742  0 


30001  0 
00003  1 
61476  0 
00006  1 


C00C6  1 
41454  1 
00006  1 
13300  0 


71444  0 
61421  1 
63273  1 
03304  0 


16,3300 

16,3310 

16,3320 

16,3330 


31446  0 55751  1 
55447  0 55464  1 
00006  1 63331  C 
13334  1 44742  0 


55464  1 
11427  0 
31445  0 
71262  1 


03473 

03316 

00006 

55262 


1 

0 

1 

1 


30032  0 
03316  0 
63331  0 
41427  0 


55634  0 
033X6  0 
41262  1 
00006  1 


34755  1 
55736  0 
74742  0 
71550  T 


55446  1 
61476  0 
27262  1 
20001  1 


16,3340 

16,3350 

16,3360 

16,3370 


02310  1 
36245  1 
64751  0 
13446  0 


00006  1 
13361  1 
55742  0 
22007  0 


77721  0 
31524  C 
34753  1 
64753  1 


55524  I 
27524  1 
54001  1 
55736  0 


31736  ^ 
34747  1 
11524  1 
2374?  0 


61475  0 
70101  0 
13372  0 
03535  1 


00006  I 
lOOOO  0 
13446  0 
46245  0 


63352  0 
34753  1 
13371  0 
61742  1 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091 
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OCTAL  LISTING  FOR  PARAGRAPH  H 113,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WOROSI  OR  «'f"  (CONSTANTS! 


16,3A00 
16,3410 
16, 3420 
16,3430 


00006  1 
63616  0 
33625  0 
44740  1 


13403  1 
00o06  1 
55524  1 
71262  1 


44752  1 
63630  1 
31736  1 
55262  1 


64751  0 
63576  0 
22O07  0 
03435  0 


55521  1 31740  0 
C0006  1 63422  0 
00004  0 53471  0 
13630  0 30101  1 


C5744  0 41736  0 
27736  0 51743  0 
04674  0 C : 37143  0 
540C1  1 34747  1 


16,3440 
16, 3450 
16,346U 
16,3470 


00006  1 
55524  1 
30032  0 
41642  1 


06001  0 
13630  0 
00006  I 
61421  I 


5^101  0 
30033  1 
21634  0 
55427  0 


00003  I 
00006  1 
6127^  1 
44753  0 


0CC02  0 
21635  1 
27751  1 
55505  1 


03435  0 
00006  3 
57464  0 
30111  0 


C5743  1 
71414  0 
00002  0 
74737  1 


34755  1 
57751  0 
03452  1 
00006  1 


16,3500 
16,3510 
16,  3520 
16,3530 


13511  0 
13354  1 
63534  0 
63354  0 


0C004  0 
34755  1 
C0006  1 
36245  I 


04674  0 C:  43736  1 
55500  1 00004  0 
63354  0 11524  1 
13361  1 C:  77377  1 


31524  0 00006  1 
C4674  0 C : 37304  1 
13526  1 13446  0 
75117  1 36245  1 


13445  0 00003  1 
0O0C3  1 41740  1 
63533  1 00006  1 
55741  0 51742  I 


16,3540 
16,3550 
16,3560 
16,  3570 


33567 
11741 
C:  00252 
C:  00226 


51743  0 
13555  C 
C:  00125  1 
C:  00231  1 


73560  0 55740  1 

05567  n C:  02003  0 

C:  00140  1 C:  00006  1 

C : 00151  1 C:  00132  1 


71260  0 10000  0 

13446  0 55742  0 

C:  00220  1 C:  00011  1 

C:  00245  1 C:  00377  1 


13550  n 00002  0 

13536  0 12773  1 

C:  00151  1 C:  00146  1 

C : 77445  1 C:  00004  0 


16,3600 

16,3610 

16,3620 

16,3630 


C;  00002  0 
C : 00007  0 
C:  00266  0 
41644  1 


C:  07776  0 
C:  07776  0 
-C:  74631  0 
61423  0 


C:  00005  1 
C:  07776  0 
C : 06315  0 
02310  1 


C:  OOOll  1 
C:  07776  0 
C:  00600  1 
55437  1 


C : 00012  1 
C:  07776  0 
C:  00632  0 
41643  0 


C : 07776  0 
C : 07776  0 
C:  77751  1 
61422  I 


C;  00003  1 
C:  00360  1 
C:  00026  0 
02310  1 


C:  00010  0 
C:  07400  1 
C:  0273^  0 
55436  0 


16,364C 
16  ,3650 
16,3660 
16, 367C 


00006  1 
54002  1 
51743  0 
11524  1 


33644  1 52006  0 
51743  0 11524  I 
11524  1 33735  0 
43621  0 13674  0 


C:  02124  1 C:  36106  0 
13655  0 13674  0 

13665  0 43735  1 

33621  1 00006  1 


34752  n •'57*3  1 
63735  0 00006  1 
51743  0 27524  1 
51743  0 71521  1 


60000  1 
63713  1 
51743  0 
30001  0 


16,3700 
16,371C 
16, 3720 
16,3730 


51743 

11743 

30001 

61737 


0 

I 

0 

0 


55736 

13646 

13674 

10006 


0 

1 

0 

1 


00006  1 
13722  I 
31737  n 
71531  0 


74742 

34755 

61740 

55745 


0 

1 

0 

1 


00006  1 63736  0 
51743  0 57524  0 
00006  1 71532  0 
12316  0 C : 77537  0 


50002  P 27513  0 
00006  1 74760  0 
55746  1 41740  1 
400O0  0 24O02  0 


16,3740 

16,3750 

16,376C 

16,3770 


34740  0 
00006  I 


23512  0 
13763  1 
01012  0 


41501  0 
11501  0 
34741  1 
44747  0 


00006  1 71507  0 
34742  1 13756  1 
26066  0 43741  1 
7)262  1 55262  1 


23510  1 
34743  0 
00006  1 
00002  0 


41503  1 00006  1 
54066  0 11503  1 
02012  0 60066  I 
03776  1 CKSM  24673  0 


GAP:  ASSE^'BLE  REVISION  131  OF  AGC  PRCGRA^  LUMINARY  BY  NASA  2n21112-09l 


17:53  DECo  19tl969 


PAGE  1643 


OCTAL  LISTING  FOR  PARAGRAPH  H 114,  UITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  CF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  OR  "C"  (CONSTANTS! 


17,2010 
17,2020 
17  ,2030 


54002  1 
55270  I 
55267  I 
12031  0 


00006 

67751 

C4707 

00006 


1 

0 

0 

1 


00004  n 
00006  I 
55266  0 
C0004  0 


54001 

62001 

34750 

61267 


1 

1 

1 

0 


74346  0 40000  o 
30002  0 00006  1 
00006  1 02013  1 
64736  1 64736  1 


647^6  0 74346  0 
05013  0 40001  1 
00006  1 12050  1 
56001  0 32053  0 


17,2040 
17,2050 
17,2060 
1 7,207C 


61270  0 
22002  0 
05675  0 
54000  0 


00006  1 
31266  1 
34733  1 
12075  0 


60001  0 00006  1 

520C5  0 C:  00440  1 
22007  0 53*71  0 

34733  I 54031  1 


62C5P  C 
C:  77754  1 
53467  1 
12115  1 


23465  1 
00006  1 


OOOC6  1 
00002  0 
54031  1 
23265  1 


62030  0 
05675  0 
67730  1 
22070  0 


17,2100 

17,2110 

17,2120 

17,2130 


06022  1 
67730  I 
00006  1 
12135  0 


OC006  1 
54000  0 
22012  I 
40111  1 


23265  I 22070  0 
12115  1 34733  1 
02055  0 15270  0 
74740  1 00006  1 


34735  1 00006  1 
55466  0 50001  0 
34737  0 00006  1 
12136  0 02655  0 


0501?  0 31466  1 
1 5743  0 22016  0 
02031  1 lOOOO  0 
11630  1 12636  1 


17,2160 

17,2170 


12623  0 
02031  1 
34746  0 
00006  1 


70111  1 
12176  1 


55630  1 
12200  0 
10000  0 
30106  0 


53437  1 
34744  I 
12200  0 
74737  1 


03200  0 
00006  1 
55473  I 
10000  0 


53427 

02031 

55474 

34752 


34745  0 
00006  1 
*0111  1 
55500  1 


00006  I 
12201  1 
74744  0 
12232  1 


17,2200 
17,2210 
17, 2220 
17,2230 


34753  1 
12352  0 
11740  1 
71740  1 


6A751  0 
30111  0 
12224  n 
55474  0 


55743  1 67750  1 
74742  0 10000  0 
05567  0 C:  02002  1 
34737  0 OC006  1 


55500  I 30111  O 
34753  1 64752  0 
35764  1 7174(^  1 
02031  1 10000  0 


74741  0 lOOOO  0 
55742  0 03225  1 
55473  1 45764  0 
12710  1 34735  1 


17,2250 

17,2260 

17,2270 


74753  0 
74747  0 


00006  1 
00003  1 
00006  1 
00006  1 


12354  0 00004  0 
C0006  1 00031  0 
12304  0 31736  1 
12314  1 31736  1 


04674  0 
55736  0 
74752  I 
74746  1 


40154  0 
11461  1 
00006  1 
00006  1 


34755  1 
12300  1 
12310  O 
1231 6 0 


55450  0 
31736  1 
31736  1 
13112  1 


17,2300 

17,231C 

17,2320 

17,2330 


41736  0 
43136  1 
55526  0 
00006  1 


72351  0 
55525  0 
32350  C 
12341  I 


55461  1 13112  1 
33136  0 12320  0 
55477  0 34753  1 
51505  0 11525  0 


33136  0 55525  0 
33136  0 12317  1 
55461  1 55505  1 
34776  0 12337  0 


43136  ) 12320  0 
43136  1 55525  0 
30111  0 74737  1 
44776  1 51505  0 


17,2340  55525  0 
17,2350  C:  02325  1 
17,2360  71443  1 
17,2370  71262  1 


20111  0 
00063  1 
10006  1 
55262  1 


74742  0 10000  0 
34751  0 12216  1 
12377  1 34740  0 
12374  1 C:  00056  I 


34753  1 64752  0 
55632  0 44753  0 
70U1  I 00006  1 
34755  1 55462  1 


55742  0 12756  0 
5563C  1 34735  1 
12710  1 44743  1 
55463  0 11462  1 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  FRCGPA^  LUMINARY  0Y  NASA  2021112-091 
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OCTAL  LISTING  FOR  PARAGRAPF  H 115,  R ITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C”  (CONSTANTS) 


17,2A0C 

17,2^10 

17,2420 

17,2430 


12403  0 12403  C 
30001  0 00006  1 
12423  1 12423  1 
30001  0 10006  1 


12403  0 60000  1 
71444  0 57455  1 
12423  1 60000  1 
71444  0 57456  1 


60000  1 62373  1 
400P0  r 61455  1 
60000  1 62373  1 
40000  0 61^56  1 


00006  1 71462  1 
557^^0  1 11463  0 
00006  1 71463  0 
55741  0 41455  0 


17,2440 

17,2450 

17,2460 

17,247C 


11741  0 
31262  0 


55436  0 
02454  0 
02464  -0 
74741  0 


41456  0 
02454  0 
02464  0 
00006  1 


61A23  0 
02454  0 
02464  0 
12475  1 


55437  1 
61476  0 
61476  0 
12500  1 


53437  1 
00006  1 
00006  1 
12710  1 


03200  0 
62460  1 
62470  0 
34771  1 


53427  0 
12476  1 
12476  1 
55457  1 


17,2500 

17,2510 

17,2520 

17,2530 


00004  0 
55453  0 
11427  0 
3^755  1 


C^»67A  0 C:  40154  0 00003  1 
11426  1 12515  0 12515  0 
1252A  1 12524  1 12524  1 
55427  C 12544  1 11427  0 


34755 

12515 

61476 

02537 


5545n  0 55451  1 
61476  0 00006  1 
00006  1 62530  0 
02537  1 02537  1 


55452  1 
62533  0 
12544  1 
61476  0 


17,25AC 

17,2550 

17,2560 

17,2570 


00006  1 
74741  0 
34753  1 
51505  0 


6255?  0 
27262  1 
55505  1 
55534  0 


34755  1 
02556  0 
34751  0 
13034  I 


55A26  1 
44741  0 
557A2  0 
51505  0 


3U57  C 
71262  1 
•51505  0 
11426  1 


00006  J 62553  0 41262  I 
55262  1 32622  0 55477  0 
51534  1 12567  0 34751  0 


34755  1 12600  1 34753  1 


17,2600 
17,2610 
17, 2620 
17,2630 


51505  0 63755  C 

20001  1 60002  0 

34755  1 12615  0 C 

12632  0 12141  0 


5000C  1 41570  0 

54000  0 12615  0 

: 02561  1 34736  I 

00006  1 00005  1 


00006  1 51505  0 
30002  0 51505  0 
70111  1 inooo  0 
10000  0 12641  1 


71426  1 54002  1 
55525  0 12756  0 
12141  0 11502  0 
000C6  1 32654  1 


17,2650 

17,2660 

17,2670 


52006  0 11632  0 
34755  I 55632  0 
55736  0 00006  1 
00006  1 71417  0 


12644  1 12141  0 
12141  0 C:  03076  0 
71415  1 55751  1 
61275  0 61751  0 


OOOOA  0 04674  0 

C:  42106  0 30033  1 

30934  C 00006  1 

57450  1 31736  1 


r : A3327  0 00003  1 

00006  1 21635  1 

21636  I 55737  1 

00006  1 71416  1 


17,2700 

17,2710 

17,2720 

17,2730 


55751 

31452 

55505 

51505 


1 

0 

1 

0 


31737  0 
22000  1 
51505  0 
31750  1 


00006  1 
31450  1 
51534  1 
55751  1 


71A2n  1 
03200  0 
12724  0 
515C5  0 


61276  0 
53751  1 
34751  0 
31426  0 


61751 

33142 

51505 

55427 


0 

0 

0 

r 


57452  O 00002  0 
55477  0 34753  I 
55534  n 13034  1 
30111  0 74737  1 


17,27A0 

17,2750 

17,2760 

17,2770 


10000  0 
00004  0 
00006  1 
00006  1 


1274A  0 03304  0 
0467^  0 C : 43736  1 
12772  0 40106  1 
13112  1 34752  0 


12756  n 
00003  1 
7A737  1 
54001  1 


0C006  1 
51505  0 


74736  0 
55742  0 
12772  0 
11525  0 


lOOOC  0 
301C1  1 
30111  0 
33003  n 


55630  1 
7A737  1 
74744  0 
13026  1 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGPAM  LUMINARY  BY  NASA  2021112-091 
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OCTAL  LISTING  FOR  PARAGRAPH  « 116,  kITF  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S"  DENCTES  UNUSED  FIXED  MEMORY 


ALL  VALID  l^DRDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERAT(TR  KOROS)  OR  "C  " (CONSTANTS) 


17,3OC0 

17,3010 

17,3020 

17,3030 


13002  1 
31736  I 
31740  0 
00004  0 


13026  1 
63137  1 
100'^4  0 
5000C  1 


22C07  0 64753  1 
00006  I 63C37  0 
50001  0 05744  0 
05743  1 00003  1 


55736  0 
03225  1 
00003  1 
1 1505  1 


31505  O 
51505  0 
13100  1 
01477  1 


60001  0 55743  1 
33134  1 54001  1 
51505  0 33134  1 
13270  O 41736  0 


17,3040 

17,3050 

17,3060 

17,307C 


63136  0 
43136  1 
55742  0 
05744  0 


30006  1 
51505  0 
03225  1 
31736  1 


63061  0 
55525  0 
515C5  0 
55470  1 


27736  0 
11500  1 
33134  1 
03143  1 


51505  0 
13060  0 
00004  0 
00003  1 


11525  0 
00006  1 
55471  f 
34755  1 


33136  0 13051  1 
00004  0 74753  0 
31740  0 51471  1 
515C5  0 55534  0 


17,3100 
17,31  10 
17,3120 
17,3130 


46250  1 
55522  1 
00006  1 
00004  0 


61742  1 
1303'4  1 
13123  0 
C5760  C 


00006  I 
34755  1 
05747  0 
00003  1 


63106  0 34752  0 13107 
55525  0 55526  C 34751 
34751  0 57535  0 00003 
13270  0 C:  00004  0 C:  00015 


0 34753  1 51505  0 

0 00004  0 57534  1 

1 00006  1 13270  0 

0 C:  00026  0 C:  77417  0 


17,3140 
17, 3150 
17,3160 
17,317C 


00600  1 C:  ■)0?66  0 
53^67  1 53471  0 
00006  1 05013  0 
00006  I 60031  0 


02720  0 41470  1 
54031  1 23465  1 
01265  1 61466  1 
53467  I 00002  0 


60031  0 00006  1 
00006  1 23265  1 
00006  1 63174  0 
40000  0 64754  0 


63163  0 23465  1 
06022  I 34735  1 
23467  0 53471  0 
55470  1 00002  0 


17,3200 
17,3210 
17, 3220 
17,3230 


23737  0 
55736  0 
13223  0 
73263  I 


30006  1 
13215  0 
50000  1 
55740  1 


71626  0 
50000  1 
44734  I 
71257  1 


57737  0 
44734  1 
23736  1 
10000  0 


00006  1 
55736  0 
00002  0 
13236  I 


71627  1 
41737  1 
51743  0 
00002  0 


540C1  1 
60001  0 
33257  1 
36250  0 


61737  0 
54007  1 
51742  1 
55742  0 


17,3240 

17,3250 

17,3260 

17,3270 


51743  0 
11742  0 
00022  1 
33272  0 


33257  1 
13237  0 
J0204  1 
07757  0 


51742  1 
51505  0 
C:  00041  1 
C;  03273  1 


72263  1 
55525  0 
C:  PC125  1 
53753  0 


55740  1 
05567  0 
00252  1 
52011  0 


71257  1 
C:  02O04  1 
C : 00146  1 
53755  0 


OOOC6  1 
13026  1 
C:  00231  1 
56017  ] 


13235  1 
C:  00110  1 
C:  00377  1 
22002  0 


17,3310 

17,3320 

17,3330 


41751  1 
55737  1 


55751  1 
31751  0 


41427 

00006 


1 

1 

0 

1 


15272  1 
63320  0 
55427  0 
74747  C 


00006  1 
31745  0 
34753  1 
10000  0 


27745  1 
13717  ) 


515(^5  0 
33757  1 
5574?  1 
13340  1 


33755 

13330 

43757 

13663 


55736  0 
61600  0 


10006  I 
13725  0 
11751  1 
000^6  1 


70001  1 
23427  1 
13365  0 
63377  1 


13365  0 
34752  0 


31427  1 
00006  1 
13365  0 
27743  1 


00006  1 
70000  0 
63760  0 
34751  0 


74750  0 
00006  1 
C00C6  1 
13402  0 


00006  1 
74737  1 
51745  0 
11500  1 


gap:  assemble  REVISION  131  CF  AGC  PPCCRAM  LUMINARY  RY  NASA  2D21112-091 


17:53  DEC*  19,1Q6? 
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OCTAL  LISTING  FOR  PARAGRAPH  # \\7,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  CF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  EASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  ''I" 


(INTERPRETIVE  OPERATOR  WORDS)  OR  "C ' 


(CONSTANTS) 


l7i3AOO 
17,3410 
17, 3A20 
17,3430 


13A02 

61600 

00006 

A1525 


0 

0 

1 

0 


13373  ) 
>0006  1 
71736  0 
00006  I 


0 

Q 

0 

I 


41736 

55740 

51745 

00006 


0 

1 

0 

1 


OnO06  1 51743  .0  71566  1 
00006  1 63575  0 51 745  0 
61602  1 00006  1 63461  1 
63455  0 1155*  0 13447  1 


51745  0 
31572  0 
51505  0 
41740  1 


17,3440 

17,3450 

17,3460 

17,347C 


51745  0 
^1600  1 
13602  I 
00006  1 


61604  1 
60000  1 
54001  i 
51743  0 


00006  1 63455  0 
61740  0 00006  1 
11737  1 13467  0 
71575  0 20001  1 


03561  C 
63457  1 
05675  0 
2C001  1 


31740  0 
34755  1 
44752  1 
53747  0 


13615 

13521 

27743 

51743 


51745 
03561 
3000 1 
31567 


17, 3500 
17,3510 
17,3520 
17,3530 


00006  I 
63536  1 
34741  1 
3000 T 0 


71427  0 
31741  1 
00006  1 
00006  1 


55741  0 
00006  1 
71737  1 
63535  I 


00006  1 
73770  0 
51505  0 
34751  0 


73767  0 
61746  C 
55525  0 
55742  0 


61746  0 
63761  1 
00006  1 
01744  1 


67751  0 
00006  1 
51505  0 
43766  1 


00006  1 
63546  0 
71546  0 
61741  1 


17,3540 

17,3550 

17,3560 

17,3570 


53747  0 00006 '1 
21747  0 01741  1 
13521  0 ^1737  I 
63773  1 00006  1 


11746  1 00006  1 
63762  I 53747  0 
55737  I 31427  1 
63574  1 13520  I 


74736  0 13656  0 
00006  1 11 746  1 
00006  1 51743  0 
00002  0 03561  0 


00006  1 33772  0 
00006  I 74736  0 
71566  1 55741  0 
31740  0 61554  1 


17,3600  O0CO6  1 
17,361C  11427  0 
17,362C  00006  1 
17,3630  00006  1 


53615 

34746 

51743 

70000 


41555  I 61741  1 00006  1 
13521  0 05675  0 13521  C 
71574  1 20001  I 20001  1 
00006  1 61746  0 00006  1 


63610  0 31741  1 13521  0 
00006  I 51745  0 61604  1 
53747  0 31741  1 63773  1 
63520  0 31746  0 67751  0 


17,364C 

17,3650 

17,3660 

17,367C 


00006  1 63651  0 
13521  0 43765  I 
63455  0 63774  0 
31427  1 00006  1 


33763  0 53747  0 
53747  0 00006  1 
13521  0 43776  C 
51743  0 71570  0 


C0006  1 11746  1 
11746  1 61741  1 
27427  0 00006  1 
67744  1 00006  1 


61741  1 63764  I 
63775  1 00006  1 
63707  1 037*5  I 
63700  0 13520  I 


17,3700 
17,3710 
17, 3720 
17,3730 


00006  1 
11737  1 
33776  1 
61751  0 


13520  1 
34753  1 
61427  1 
00006  1 


64740  0 
1371*  1 
54000  0 
74741  0 


20001  1 
37752  0 
13671  0 
57427  1 


20001  1 
27743  1 
13520  I 
00006  1 


20001  1 
41427  0 
037*5  1 
70000  0 


13656  0 
13671  0 
51745  0 
00006  1 


03747  0 
03745  1 
41600  1 
51745  0 


17,3740 

17,3750 

17,3760 

17,3770 


C : 
C : 


55742  0 
75673  1 
75462  0 


61427 

34735 

7775J 

00007 


1 

1 

0 

0 


00006  1 
55740  1 
C:  00632  0 
C : 25605  0 


63455 

00002 

01463 

76631 


0 

0 

1 

1 


13520  1 
C:  77757  I 
C : 00232  1 
C:  00122  D 


41737  1 

c:  oonoo  1 

C:  77462  1 
C:  77655  T 


55737 
: 00020 
: 77631 
: 04476 


1 

0 

0 

0 


34751  0 
C:  14400  0 
C:  77145  1 
CKSM  47661  0 


gap:  assemble  REVISION  131  CF  AGC  PRCGPAM  LUMINARY  8Y  NASA  2021112-091 
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OCTAL  LISTING  FOR  PARAGRAPH  H 120,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ABE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "1"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


20, 2000 
20,2010 
20,2020 
20,2030 


01150  1 C;  01046  1 
74737  1 lOOOO  0 
31340  1 72113  1 
12014  1 26245  I 


C : 07361  1 C:  00666  1 
34736  1 27340  0 

55340  0 32112  1 

05464  y J5155  1 


32114  1 70111  1 
31340  1 74395  1 
04616  1 C : 20353  C 
34737  0 27340  0 


55340  0 40106  1 
00006  1 1203^  0 
15472  1 12037  0 
12021  \ 00004  0 


20,2040 

20,2050 

20,2060 

20,2070 


44737  1 70106  1 
54106  1 41340  0 
42114  0 . 70111  1 
55243  1 3nil  0 


54001  1 
74355  1 
60001  0 
74741  0 


41340  0 
lOOOO  0 
54111  1 
00006  1 


74736  C 
44737  1 

74737  1 
12101  1 


10000  0 
62114  I 
10000  0 
44735  0 


34737  0 60001  0 
71340  0 54001  1 
31327  0 61326  1 
70075  1 54075  1 


20,2100 

20,2110 

20,2120 

20,2130 


12104 

04635 

12122 

32152 


12130  0 
55343  0 


74735  0 
C;  00256  0 
30111  0 
00006  1 


26075 

33133 

74750 

22070 


3011)  0 76250  1 60000  1 

C:  13133  1 30111  0 74747  0 

00006  1 12141  0 32153  1 

37720  0 05072  1 C:  03652  n 


C: 


12131  1 
42106  0 


20,2140 

20,2150 

20,2160 

20,217C 


00070  0 
12134  1 
55634  0 
54001  1 


32151  0 
00155  0 


12131  1 
C : 03434  I 


30033  1 55635  1 

34755  I 55642  1 


00006  1 
00554  0 
30C34  0 
55643  0 


22070  0 
35015  0 
55636  1 
55644  1 


02154  0 
56003  1 
12171  0 
55637  n 


32153  1 
540C1  1 
35015  n 
5564C  0 


55343  0 
30032  0 
56003  1 
55641  I 


20, 2200 
20,2210 
20,2220 
20,2230 


55274  3 55275  1 
22003  1 55536  1 
55545  0 22003  1 
54001  1 34750  1 


55276  1 22003  1 
55537  0 55540  0 
40111  1 74744  0 
00006  1 06C01  0 


00002  0 
55541  1 
26111  1 
55262  1 


00006  I 
55424  0 
02U6  0 
74750  0 


00071  1 
10000  0 


02166  1 
55544  1 

31262  0 
12336  1 


20,2240 
20, 2250 
20,2260 
20,2270 


40C74  0 
41450  0 
55761  1 
30322  1 


74735  0 
55761  1 
41423  1 
00006  I 


00006  1 
41452  1 
55762  1 
20033  0 


12257  1 
55762  1 
41421  0 
55760  0 


30074  1 
41464  1 
57760  I 
00006  1 


74750  0 
57760  I 
12456  0 
71415  1 


10000  0 
12456  0 
00006  1 
57761  0 


12266  0 
41422  0 
22061  0 
30323  0 


20,2300 
20,2310 
20,2320 
20 ,2330 


00006  1 20034  I 
31760  1 00006  1 
55762  1 31760  1 
61760  1 32451  0 


55762  1 
71416  1 
00006  L 
55760  0 


00006  1 
57762  0 
71414  0 
00006  1 


71417  0 61761  0 
00006  1 71420  1 
57760  I 30321  1 
22061  0 12456  0 


02451  0 55761  I 
61762  0 02451  0 
00006  1 20032  1 
31262  0 76245  0 


20,2340 

20,2350 

20,2360 

20,2370 


00006  1 
44755  0 
54051  1 
00006  1 


12376  0 
55760  0 
54052  1 
05012  1 


46245  0 
46245  0 


00006  1 
55762  1 
71262  1 
71262  1 


12367  0 
55763  0 
64752  0 
55262  1 


44746  1 
55764  1 
55262  I 
12456  0 


00006  1 
55765  0 
12456  0 
34746  0 


03012  1 
54050  0 
34746  0 
00006  1 


gap: 


ASSE^8LE  REVISION  131  CP  AGC  PPCGPAP  LUMINARY  8Y  NASA  202in2-CSl 
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PAGE  1648 


OCTAL  LISTING  FOR  PARAGRAPH  H 121,  ^.ITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  CF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC 


INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I" 


(INTERPRETIVE  OPERATOR  WORDS)  OR  ”f " (CONSTANTS) 


20,24C0 
20  ,2410 
20,2420 
20,2430 


02012  0 
54063  0 
12422  0 
50063  1 


10000  0 
42450  0 
42446  I 
41763  0 


12407 

00006 

60001 

60001 


1 

1 

0 

o 


41262  1 74751  1 27262  1 
50063  1 71760  0 54001  1 
54061  1 12430  n 50000  1 
50063  1 76050  0 50063  1 


12456  o 
10000  0 
32446 
23763  1 


34752  0 
32446  0 
54001  1 
10063  0 


20,2440 

20,2450 

20,2460 

20,2470 


12410  I 
C:  03146  1 
52006  0 
74737  1 


37743  0 
54J07  1 
C;  12016  I 
54157  0 


00006  1 
00002  0 
C:  34106  1 
10000  0 


05014  1 
50000  1 
35015  0 
41327  1 


12456  0 C : 77177  0 
44734  1 00002  0 
54003  0 04645  1 
61243  0 55326  0 


37200  1 
00006  1 
54117  1 
00004  O 


00600  1 
32462  0 
3011J  0 
30106  0 


20,2500 
20  ,2510 
20,2520 
20,2530 


74737  1 
61400  1 
22007  0 
36245  1 


00006  1 
00006  1 
10157  0 
54154  0 


12526  0 
62517  0 
31327  0 
41326  0 


44733  0 
41326  0 
61326  1 
62002  I 


55475  1 
62001  1 
53244  0 
00006  1 


35741  0 
00006  1 
12544  1 
62517  0 


54154  0 
62544  0 
44742  0 
41326  0 


41326  0 
27326  0 
55475  1 
62003  0 


20,2540 

20,2550 

20,2560 

20,2570 


61400  1 
54155  1 
50154  1 
10155  1 


00006  I 62544  0 
44752  1 26154  0 
23046  0 00006  1 
12550  1 12574  1 


10156  1 
12673  0 


00003  I 
50154  1 
50154  I 
22007  0 


10157  0 
63064  0 
63063  1 
41532  0 


1311  1 
54]  56 
50155 
61531 


1 

1 

0 

1 


34752  0 
00006  I 
55530  1 
00006  1 


20,2600 

20,2610 

20,2620 

20,2630 


62624  0 00006  1 
54155  I 30155  0 
00006  1 71627  1 
63110  I 00006  1 


11531  0 54155  1 
00006  1 73104  0 
55626  0 1 2647  1 
62635  0 33110  1 


63110  1 00006  1 
63106  0 55627  1 
00006  1 11532  0 
54155  1 30155  0 


62611  0 43110  0 
44733  0 60155  0 
54155  1 40155  1 
00006  1 73104  0 


20,2640 
20,2650 
20  ,2660 
20,2670 


63107  1 - 55626  0 
00006  1 71531  0 
74736  0 55533  1 
44753  0 54155  1 


40155  1 64735  1 
55533  1 31627  0 
10154  0 34755  1 
12553  1 31245  0 


00006  1 
00006  1 
55502  0 
00006  1 


71626  0 
71532  0 
13234  0 
71243  1 


55627  1 41626  0 
61533  0 00006  1 
44752  ] 54154  0 
C3002  0 C:  03105  0 


20,2700 

20,2710 

20,2720 

20,2730 


00006  I 
55511  1 
73103  1 
54155  1 


71527  1 OOOC4  ^ 
30154  1 00006  1 
55504  0 31511  0 
34752  C 12734  1 


54154 

7153} 

00006 

34755 


0 

0 

1 

1 


00006  1 
03002  0 
73103  1 
54154  0 


71532  0 
02000  0 
55506  1 
30155  0 


03002  0 
55507  0 
00006  1 
50154  1 


02000  0 
00006  1 
00012  I 
73077  0 


20,2  740 
20,2750 
20,2760 
20,2770 


00006  1 
41507  0 
10154  0 
00006  1 


12755  0 

12756  0 
12733  0 
12773  1 


30155  0 
50154  1 
40111  1 
13712  i 


50154  1 
31507  1 
74736  C 
11632  0 


73100  1 
12756  0 
00006  1 
12777  0 


00006  1 12752  1 
34755  1 50154  1 
13712  1 41263  0 
04674  0 C : 43327  0 


50154  1 
55510  0 
63772  0 
10157  0 


gap:  assemble  REVISION  131  CF  flGC  PRCCPAM  LUMINARY  BY  NASA  202111<-0?1 


17:53  DEC*  19,196' 
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octal  listing  for  paragraph  S 12?,  RITH  PARITY  BIT  IN  BINARY  AT  Tf-f  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  QPEPATCR  WORDS)  OP  "C"  (CONSTANTS) 


20,3000  13675  1 
20,3010  30C00  I 
20,3020  56161  1 
20,3030  00006  1 


13235 

00006 

00006 

10162 


63024 

00002 


0 

0 

1 

0 


40C00  0 
10160  1 


50002  0 30000  1 
10000  0 64753  1 
60161  1 00006  1 
10162  0 1304T  0 


24002  0 50000  1 
13020  1 64753  1 
63033  1 30160  0 
10162  0 34735  1 


20,3040  00002  0 
20,305C  C:  21261  1 
20,3060  C:  115U  1 
20,3070  C:  75705  1 


34733  1 
C:  00021  1 
C:  04754  C 
C:  0000 1 0 


00002  0 
C:  03766  0 
C:  77142  0 
C:  77616  0 


C:  01240  0 
C:  00153  0 
C : 00061  0 
C:  05154  1 


l:  07111  i 
C:  00217  0 
C:  00C52  0 


C : 00141  0 
C:  00072  1 
C:  00464  1 
C : 00231  1 


C:  07416  0 
C : 2410?  0 
C:  75642  0 
C : 77174  0 


C:  00030  1 
C : 00135  0 
C:  00536  1 
C:  01400  1 


20,3100  C:  01000  0 
20,3110  C:  62362  1 
20,3120  71326  0 
20,3130  00006  1 


C 


: 06000  1 
34753  1 
00006  1 
26160  1 


C ; 04000  0 C:  23146  0 
54160  I 34753  1 

71327  I 50160  0 

50160  n 33221  0 


C:  13241 
54161 
63217 
^0006 


1 

0 

0 


C:  00337  0 C:  26501  1 C:  51276  0 

50160  0 33216  1 00006  1 

54154  0 13132  0 54161  0 

50161  1 71326  0 50160  0 


20,3140 

20,3150 

20,3160 

20,3170 


63223  I 
13157  0 
22007  0 
55610  0 


00006  1 50161  1 
QOOOO  1 C : 20354  1 
03002  0 C : 01243  0 
55611  1 00006  1 


71326  0 
30154  1 
55530  1 
33152  1 


26154  C 
54155  1 
34733  1 
00006  1 


10161  0 
34757  0 
55550  1 
10155  1 


13127  1 
13112  1 
55570  0 
00004  0 


10160  1 
33216  1 
55571  1 
55531  0 


20,3200 

20,3210 

20,3220 

20,3230 


C 

C 


55532 

00006 

77650 

64072 


0 

1 

1 

0 


C:  72260  0 
C : 53632  0 


55626  0 
03002  0 
C:  76637  1 
C : 15133  1 


33106  0 
C:  00155  C 
C:  02167  0 
C:  71777  0 


00645  0 
55632  0 


31243  0 
12716  1 
C:  06335  1 
31343  1 


^'0006  1 
C:  00167  1 
C : C42  56  1 
00006  1 


C: 
C : 


70154  0 
06176  1 
30163  0 
74737  1 


20,32  40 
20,3250 
20  ,32  60 
20,327C 


54001  1 
540C1  1 
10000  0 
13274  1 


60000  1 
31536  0 
34753  I 
10116  0 


54115  o 
04674  0 

54116  0 
33766  0 


41343  0 
37200  1 
61502  1 
54152  0 


60001  0 
53543  n 
10000  0 
3153C  0 


54114  1 
00003  I 
33767  1 
64743  0 


O0004  0 
30111  0 
54151  0 
54157  0 


31540  I 
74744  0 
00006  1 
31530  0 


20,3300 

20,3310 

20,3320 

20,3330 


03704  1 
10157  0 
10116  0 
13J33  0 


00004  0 
55556  1 
53543  0 
64753  I 


55550  1 55551  0 
55557  0 34733  I 
34755  1 54154  0 
24163  0 54162  0 


44743  1 00006  1 
55552  C 55553  1 
54163  1 50154  1 
40163  1 54164  0 


71550  1 00006  1 
00003  1 22007  0 
1154?  1 64753  1 
31343  1 54143  0 


20,3340  54144  1 
20,3350  50164  I 
20,3360  40115  0 
20,3370  71343  0 


13371  0 
50163  0 


63770  1 00006  1 
50163  0 54145  0 
40162  0 600UO  1 
54143  0 30114  0 


63436  0 10151  0 13376  1 
33233  0 60162  1 00006  1 
60000  1 64736  1 60000  1 
50164  1 54146  0 30162  1 


31343  1 
63362  0 
00006  1 
00006  1 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCCPAM  LUMINARY  0Y  NASA  2021112-CSl 
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OCTAL  LISTING  FOR  PARAGRAPH  « 123,  HTH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3” 
ALL  VALIC  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS) 


DENOTES  UNUSED  FIXED  MEMORY 
OR  "C"  (CONSTANTS) 


20,3400 
20,3410 
20,3420 
20, 3430 


74740  I 
30162  1 
74736  0 
54160  1 


60162  I 
61533  0 
61533  0 
33435  C 


03704  1 
61533  0 
54157  0 
54161  0 


50164  1 

64743  0 

64744  1 
^4744  0 


54130  1 
54000  0 
56157  1 
13737  0 


34733  1 
13462  0 
03704  1 
13467  0 


50163  0 
30162  I 
00^06  1 
54001  1 


54127  1 
00006  1 
74736  0 
34733  1 


20,3440 

20,3450 

20,3460 

20,3470 


54146  0 
54134  0 


54130 

50164- 

54145 

30160 


1 

0 

0 


13462  0 
60000  1 
61533  0 
54126  0 


33771  0 
50163  0 
61533  0 
30162  1 


60001  0 
54145  0 
54157  0 
61533  0 


00006  1 
13462  0 
03730  0 
647^3  0 


50164  1 
54000  0 


20,3500 

20,3510 

20,3520 

20,3530 


54001  1 
00006  1 


30160  0 
63747  0 


63770  1 
40162  C 
50163  0 
03724  0 


54157 

61533 

54125 

50163 


03730  0 50164  1 54132  0 30160  0 
61533  0 03716  1 50163  0 54133  1 
40162  C 61533  0 54157  0 63770  1 
54131  0 30160  0 50163  0 54123  0 


20,3540 

20,3550 

20,3560 

20,3570 


50154  1 33775  1 
54134  0 50154  1 
30131  1 54133  1 
60151  1 54150  1 


71257  1 OOC06  1 
33773  1 71257  ] 
40146  0 60143  1 
00004  0 10154  0 


13551  1 30124  0 
00006  1 13562  1 
60151  1 54147  1 
13616  1 30122  0 


54126  0 30132  1 
30123  1 54125  0 
*0145  0 60144  0 
55546  0 34320  3 


20,3600 

20,3610 

20,3620 

20,3630 


05545  0 
52150  1 
34320  I 
55561  0 


C: 


05545  0 
61554  1 


C:  01566  0 
34753  1 
0:  00123  1 
55563  1 


00003  1 
54154  0 
01606  0 
55562  0 


52144  1 
34755  1 
52152  0 
34755  1 


52136  1 52146  0 52140  0 
13324  0 30122  0 55547  1 
53555  1 313*3  1 55560  1 
55564  0 55565  1 11554  0 


20,3640 
20, 3650 
20,3660 
20,3670 


13656  0 52136  1 
53621  1 52146  0 
55601  0 55620  0 
34755  1 55604  0 


53601  0 5214C  0 
53623  0 52150  1 
55621  1 61554  1 
55605  1 55624  1 


53603  1 52142  1 
53625  0 13676  1 
55602  0 55603  1 
55625  0 00004  n 


53605  1 52144  1 
31343  1 55600  1 
55622  I 55623  0 
40111  1 74751  1 


20,3700 

20,3710 

20,3720 

20,3730 


26111 

10165 

54157 

6*743 


1 

1 

0 

0 


00003  1 
00002  0 
63770  1 
56157  1 


30117 

34755 

00006 

00006 


0 

I 

1 


04640  I 541.65  1 
55502  0 55632  0 
63744  0 30157  1 
22161  1 03704  1 


34743  0 
12777  0 
00006  1 
54160  1 


22007  0 00006  1 
22007  0 22122  0 
50164  1 70130  1 
4*743  1 00006  1 


20,3740  70160  1 
20,3750  34752  0 
20,3760  13764  0 
20,377C  C:  77377  1 


00006  1 
67752  0 
43770  0 
00356  1 


10157  0 00161  1 
54122  1 60154  1 
54157  0 13532  1 
02213  0 0:  00110  I 


43770  0 
50000  1 
30001  0 
O0022  1 


54157 

33774 

13533 

00204 


0 

0 

0 

1 


13725  0 
71257  1 
0:  OOllO  1 
0:  00041  1 


10163  1 
00006  1 
0:  00443  1 
CKSM  62733  1 


gap:  ASSEP^lLE  REVISION  131  CF  AGC  PPCCBAP  LUMINARY  BY  NASA  2021112-C‘;i 


17:53  DEC*  19,1969 


PAGE  1651 


octal  listing  for  PARAGRAPH  t,  124,  UITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "2'*  DENOTES  UNUSFO  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  CP  "C"  (CONSTANTS) 


21,2000  C:  24402  1 
21,2010  10000  0 
21,2020  C:  02006  0 
21,2030  34752  0 


01551  1 
15261  0 
34753  1 
70107  0 


C : 21357  0 
11055  1 
70107  0 
00006  1 


C:  01507  1 
12125  1 


C:  00547  1 
55714  0 


40103  1 
36010  0 


74747  0 
05173  1 


00006  1 12030  1 


34747  1 


54001  1 04606  0 


12037  0 34751  0 


54001  ?.  04606  0 30105  0 


21,2040 
21,2050 
21,20  60 
21,2070 


74743  1 
00030  1 
00006  1 
44755  0 


10006  1 
40000  0 
12145  1 
12074  1 


12145  I 
54001  1 
31001  0 
02105  1 


41010  0 
74750  0 
74753  0 
34752  0 


62104  0 
lOOOO  0 
10000  0 
54002  1 


00006  1 
12073  0 
12070  0 
00004  0 


121^5  1 00006  1 
41010  0 62103  1 
12145  1 12105  1 
OOOC6  1 32102  0 


21,2100 
21,21 10 
21,212C 
21,2130 


52G06  0 
12121  0 
00002  0 
12141  0 


03413  ^ 
40105  1 
04364  1 
40107  0 


C : 


12067  0 
74743  1 
04457  0 
74742  0 


C:  001D6  0 
10000  0 
04635  0 
00006  1 


C:  00107  1 40774  1 

12121  0 30103  0 

C:  21051  0 40107  0 

12141  0 37723  0 


61010  1 00006  I 
74747  0 10000  0 
74735  0 00006  1 
05072  1 C:  03571  1 


21,2140 

21,215C 

21,2160 


70067  1 
40103  1 
02315  1 
00006  L 


00006  1 
74741  0 
41300  1 
71706  0 


74745  1 
56070  0 


52754  0 
13052  1 
27300  1 
31744  1 


12021  1 23714  1 
31300  0 74745  1 
34752  0 00006  1 
OOOC6  1 71707  1 


6O025  1 
10000  0 
05014  1 
26070  1 


53055  1 
12231  1 
31743  0 
31745  0 


21,2200 
21,2210 
21,222C 
21,  2230 


00006  1 
56070  0 
62222  1 
15261  0 


71710  I 
31716  0 
12224  0 
02315  1 


26070  1 
00006  1 
31711  1 
44745  1 


32000  0 
71715  1 
64735  1 
71300  1 


00006  1 
60070  0 
54060  0 
55300  1 


70070  1 
55711  0 
34751  0 
44752  ' 


20001  I 
41711  0 
00006  1 
00006  1 


200C1  I 
00006  1 
05014  1 
03014  1 


21  ,2240 
21,225C 
21,2260 
21,2270 


11741  0 
34742  I 
12264  1 
55713  I 


56102  0 
537) 3 1 
34755  1 


12245  1 
22007  0 
12304  0 
27712  0 


12263  0 
31715  0 
32001  1 
34733  1 


55741  0 
00006  1 
00006  1 
64753  1 


44753  0 
10002  1 
71711  0 
61713  n 


537^2  0 
OOOC6  T 
200C1  1 
55713  1 


53713  1 
72002  0 
61713  0 
34755  1 


21,2320 


21,2330 


64733  I 
55713  1 
00006  1 
40075  I 


61712 

11712 

12030 

74736 


55712 

34735 

inooo 

26C75 


0 

1 

0 

1 


13047  0 
61713  0 
13052  1 
44745  1 


117)3  1 
12224  0 
40075  1 
71300  1 


12311  1 
00006  1 
74736  0 
553O0  1 


12311  1 -^4755  1 
23714  1 34746  0 
0OOO6  1 12365  1 
40074  0 74752  1 


21  ,2340 
21, 2350 
21  ,2360 
21,2370 


00P06  1 15261  0 
55676  0 55677  1 
05U12  1 41300  1 
64736  1 57715  0 


74744  0 
34777  1 


00006  1 
05173  1 
27300  1 
54065  0 


C5012  1 
02356  0 
15261  0 
00006  I 


34755  1 
15261  0 
41234  1 
31236  1 


55702  1 55703  0 
34752  0 00006  1 
60025  0 64736  1 
20001  1 20001  1 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCGRAI^  LUMINARY  BY  NASA  2021112-091 
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OCTAL  LISTING  FOR  PARAGRAPH  § 125,  NITH  PARITY  BIT  IN  BINARY  AT  TFE  RIGHT  OF  EACH  WORD,  "3"  OENOTFS  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  *•  I '■ 


(INTERPRETIVE  OPERATOR  WORDS)  OR  "C  (CONSTANTS) 


21,2ACO 
21,2410 
21  ,2420 
2l,2A30 


00006  1 
20001  1 
31240  0 
Q00Q6  1 


71715 

27706 

20001 

31531 


1 

0 

1 

1 


00006  1 
30037  0 
20001  1 
20001  1 


10065 

61157 

00006 

20001 


0 

0 

1 

1 


57706  1 
00006  I 
71715  1 
27707  1 


00006  1 
72004  0 
00006  1 
30040  0 


31527  0 
27706  0 
in065  C' 
61160  1 


20001  1 
00006  1 
57707  0 
00006  J 


21,2440 

21,2450 

21,2A60 

21,2470 


72004  0 
00006  1 
30041  1 
74752  I 


27707  1 
1O065  0 
611oI  0 
lOOOO  0 


00006  1 
57710  O 
00006  I 
12A7A  0 


72004  0 
01714  1 


20001  1 
31  533  0 
27710  I 
34752  C 


20001  1 
20001  1 
34751  0 
00006  1 


00006  1 71715  1 
20001  1 27710  1 
05224  0 40074  0 
02012  0 10000  0 


21,2500 

21,2510 

21,2520 

21,2530 


12502  0 
31737  0 
00006  1 
60JOO  1 


13052  1 
61710  0 
71721  0 
57704  0 


31733  1 
54063  0 
26070  1 
30061  0 


61706  1 
30061  0 
30063  1 
00006  1 


54061  1 
00006  1 
00006  1 
71725  1 


31735  1 
71717  0 
71723  1 
56070  n 


61707  0 
56070  0 
26070  1 
30062  0 


54062  1 
30062  0 
30070  0 
00006  1 


21,2540 

21,2550 

21,2560 

21,2570 


71727  0 
57705  1 
5A003  0 
26070  I 


26070  1 
35015  0 
3006A  0 
32003  0 


30C63  1 
54003  0 
00006  1 
00006  1 


00006  1 
31417  1 
71704  1 
70070  1 


71731  I 
54063  0 
56070  0 
2C001  1 


26070  1 30070  0 60000  1 
31420  0 5406*  1 35016  0 
30063  1 00006  1 71705  0 
57700  1 3006*  0 00006  1 


21,2600 

21,2610 

21,2620 

21,2630 


71705  0 ,56070  0 
00006  I 70070  1 
50065  1 11700  0 
62005  0 00006  1 


30063  1 00006  1 
20001  1 57701  0 
12626  0 12727  0 
62642  0 12727  0 


71704  1 40000  0 
42005  1 54066  0 
12634  0 12727  (T 
50065  1 31700  1 


26070  1 32003  0 
34753  1 54065  0 
50065  1 41700  0 
62005  0 00006  1 


21,2640 
21,265C 
21, 26  60 
21  ,267C 


62642  0 12727  0 
50065  1 317O0  1 
62715  0 50065  1 
00006  1 62717  1 


50065  1 11676  0 
00006  1 62700  1 
11702  1 12673  0 
12702  1 50065  1 


12650  1 12661  0 
12661  0 50065  1 
12666  1 12711  0 
31700  1 00006  1 


12655  1 12661  0 
*1700  n 00006  1 
50065  1 31700  1 
62700  1 12702  1 


21,2700 

21,2710 

21,2720 

21,2730 


42005  1 
13026  I 
31676  1 
11702  1 


13023  1 
50065  1 
62005  0 
12760  0 


50065  1 
31700  1 
40000  0 
12734  1 


41676  0 
00006  1 
50065  1 
12765  0 


62005  0 
62717  1 
56072  1 
50065  1 


50065  1 
32005  0 
44753  0 
41676  0 


56072  1 
13023  \ 
13026  1 
00np6  1 


34753  1 
50065  1 
50065  1 
62741  1 


21 ,2740 
21,2750 
21  ,2760 
21,2770 


12774  0 
00006  1 
50065  1 
63017  1 


5C065 

63C17 

*1700 

50065 


1 

1 

0 

1 


41700  0 00006  1 
50065  1 61700  1 
00006  I 63017  1 
41676  0 13023  1 


12771  0 
50065  1 


60066  1 
50065  1 
50065  1 
31700  ] 


50065  1 
61676  1 
31700  1 
nno06  1 


61676  1 
13023  1 
00006  1 
63017  1 


GAP 
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OCTAL  LISTING  FOR  PARAGRAPH  If  126,  UITh  PARITY  BIT  IN  BINARY  AT  TFE  RIGHT  OF  EACH  WORD,  "S"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I”  {INTERPRETIVE  OPEPATCR  WORDS*  OP  "C"  (CONSTANTS) 


21,300C 
21,3010 
21  ,3020 
21,3030 


32005  0 
Q00Q6  1 
A1676  0 
50065  I 


50065  1 
50065  1 
50065  1 
30072  1 


61676  1 
61700  I 
61700  1 
6475A  0 


40000  0 
50065  1 
50065  1 
50065  1 


50065  1 
61676  1 
56072  1 
54053  0 


61700  1 
40000  0 
34755  3 
50065  1 


00006  1 63017  1 
13C23  1 50065  1 
50065  1 55702  1 
30072  1 50065  1 


21 ,30  40 
21,3050 
21,3060 
21,3070 


27676  0 
54001  1 
10100  0 
55300  1 


10065  C 
12261  1 
34752  0 
44736  0 


64744  1 
70075  1 


35020  0 00006  1 
74752  1 00006  I 
40000  0 00006  1 
54075  I 15261  0 


05014  I 01714  1 34755  1 

13066  0 34744  1 71300  1 

03012  1 43075  1 71300  1 

C:  00300  I 3775?  0 55630  1 


21,3100 
21,3110 
21,3120 
21, 3130 


60000 

00006 

50000 


0 

1 

I 

1 


55534 

55505 

74752 

31*^36 


0 

1 

1 

1 


55535 

34752 

00006 

53743 


1 

0 

1 

I 


34752  0 
13115  0 
13127  1 
51747  1 


55632  O 
34755  1 
50000  1 
31504  1 


55631 

55747 

44734 

55740 


56001  0 
C0006  1 


30021  1 
31536  0 
11747  0 
13575  1 


21,3140 
21,3150 
21,3160 
21 ,3170 


51747  1 
00006  1 
61740  0 
57745  0 


31450  1 
74747  0 
00006  1 
30001  0 


00006  1 
27737  1 
63177  0 
22007  0 


71740  1 
A1743  I 
00006  1 
00006  1 


23736  1 
00006  1 
40001  1 
11740  1 


00006  1 
74736  C 
61740  O 
57746  0 


74747  0 
00006  1 
00006  1 
13202  0 


53737  1 
71743  1 
11740  1 
34733  1 


21,3200 

21,3210 

21,3220 

21,3230 


5A001  1 
53751  1 
A1746  1 
13232  0 


53746  1 
31743  C 
21751  1 
^4753  0 


31742  1 
00006  1 
11750  0 
55744  0 


00006  1 
63217  0 
13227  1 
11744  0 


74743  1 53742  0 
00006  1 31746  0 
13226  0 13231  0 
13246  0 13237  0 


00006  1 31742  1 
13221  1 00006  1 
11751  I 34753  1 
13243  0 55741  0 


21,3240 
21,3250 
21,3260 
21  ,32  70 


55742  0 13246  0 
21742  0 317A5  0 
27746  1 5A001  1 
00006  1 71743  1 


65252  I 
00006  1 
13264  n 
21737  1 


00006  1 
73242  1 
27745  1 
317A6  0 


41742  n 
53746  1 
00006  1 
C0006  1 


53742  0 
30001  n 
31742  1 
71743  1 


00006  1 
00006  1 
21746  1 
27737  1 


31746  0 
73  24  2 1 
31745  0 
54001  1 


21,3.300 

21,3310 

21,3320 

21,3330 


13302  1 
71740  1 
13322  0 
55502  0 


27736  0 
27751  1 
13565  0 
3A752  0 


31741 

54001 

00006 

22C02 


1 

1 

1 

0 


00006  1 
13215  1 
41742  0 
22071  1 


1740 

27750 


53742  0 


13336  0 


53751  1 31742  1 00006  1 
11744  0 13523  1 13565  0 
13523  1 C : 23146  O 34753  1 
34755  1 54066  0 50066  1 


21  ,3340 
21,3350 
21 ,3360 
21,3370 


31507  1 00006  1 
54002  I 00006  1 
57501  1 13416  0 
54062  1 34753  1 


63412  0 64063  0 
73326  1 60002  0 
00006  1 63370  0 
50066  1 55501  0 


50066  1 41536  1 
54001  1 J3362  1 
40000  0 54062  1 
30063  1 OOOC6  1 


00006  1 13412  1 
40000  0 50066  1 
44753  0 13372  0 
7474C  1 60062  0 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-091 
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OCTAL  LISTING  FOR  PARAGRAPH  U 127,  RITH  PARITY  BIT  IN  BINARY  AT  ThE  RIGHT  OF  EACH  WORD,  "S"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC 


INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I" 


(INTERPRETIVE  OPERATCR  WORDS! 


OR  "C"  (CONSTANTS  » 


21,3400 
21, 3410 
21  ,3420 
21,3430 


00006  1 
13412  I 
55631  0 
52073  1 


63416  1 
13424  1 
34755  I 
52063  0 


40062  1 00006  1 
34755  1 50066  1 
55502  0 13426  0 
04674  0 C:  35742  0 


73437  0 00006  1 
5550J  0 13426  0 
50066  1 55631  O 
52063  0 52073  J 


10063  0 00006  1 
36010  0 50066  1 
10066  0 13335  0 
00071  1 C : 00240  1 


21  ,3440 
21,3450 
21,3460 
21,3470 


11750  0 
34755  1 
55740  1 
00006  I 


1345?  C 13444  1 
55740  1 00002  0 
35741  0 55743  1 
63464  1 41750  0 


13450  1 
57750  1 
13472  1 
51743  0 


31750  1 
64735  1 


00006  1 
34757  0 
13506  0 
00006  1 


63450  O 
13460  1 
37751  0 
63466  0 


13453  1 
34755  1 
27743  1 
51743  0 


21,3500 
21,35X0 
21  ,3520 
21, 3530 


34735  I 
00006  I 
03635  1 
00006  1 


57746  0 
74736  C 
03635  1 
70001  I 


00006  1 31751  0 
55746  1 74737  1 
01751  0 03440  1 
27742  0 54001  1 


00006  1 11746  1 
10000  0 33633  1 
57741  1 00006  1 
13536  0 27741  0 


00006  1 23751  0 
63631  0 03635  I 
71741  0 53742  0 
31743  0 00006  1 


21,3540 
21,3550 
21, 3560 
21,3570 


74736  0 
71741  0 
27736  0 
13574  0 


27740  1 
21737  1 
13565  0 
11737  1 


00006  1 13562  1 
57741  1 00006  1 
00006  1 31742  1 
34753  1 13575  1 


51740  0 34735  1 57741  1 
71742  0 27737  1 54001  J 
21737  1 11736  0 7 3572  0 
44753  0 54001  1 51747  1 


000C6  1 
13561  1 
13571  0 
57501  1 


21,3600 

21,3610 

21,3620 


00006  1 
55510  0 
11747  0 


70001  1 
51747  1 
13114  1 


lonoi  1 

43632  1 
31505  0 


13620  1 
00006  1 
54021  0 


21,  3630 


C:  36106  0 C ; 26501  1 


C:  01400  I C:  11276  I 


13615  1 
03012  1 

ccao6  1 

06000  1 


13607  1 
41262  I 
33630  1 
55745  1 


13615  1 
74747  O 
52006  0 
54021  0 


51747  1 
27262  1 
03270  1 
31746  0 


2 1,3640 
21,365C 
21,3660 
21  ,3670 


22007  0 00006  1 
55424  0 55425  1 
55525  0 11744  0 
13672  0 13672  0 


11745  I 60C21  1 
^4616  1 C:  40465  1 
13702  0 13705  1 
51505  0 33714  0 


00002  0 34755  I 
05155  0 C : 00632  n 
51505  0 41525  0 
51505  0 55767  1 


55536  1 55540  0 
34736  1 51505  0 
inooO  0 00002  0 
34755  1 51505  0 


2 1, 3700 
21,3710 
21,3720 
21,3730 


55525  0 
00002  0 
31427  1 
lOOOO  0 


00002 

13676 

13725 

34767 


n 

1 

0 

0 


51505  0 
00002  0 
34753  1 
60001  0 


31525  1 
00004  0 
55744  0 
00006  1 


13666  0 
00012  1 
41427  0 
63744  0 


51505  0 11767  1 13711  I 
00012  1 44753  0 55744  0 
22O00  1 40111  1 74744  0 
13661  1 51505  0 11525  0 


21  ,3740 
21,3750 
21,3760 
21  ,3770 


13722  1 
13767  0 
13775  0 
136  57  1 


13743  0 13716  0 
13753  1 13656  0 
00006  I 63771  0 
43655  0 61427  1 


55744  0 31427  1 
31427  I 61751  0 
31427  1 63655  1 
00006  1 63656  1 


00006  1 
00006  1 
00006  1 
34755  1 


74766  0 
71  411  0 
63775  1 


10000  0 
00006  1 
44736  0 


13657  1 CKSM  60324  I 
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OCTAL  LISTING  FOR  PARAGRAPH  V 130,  V%ITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I" 


(INTERPRETIVE  OPEPATCR  WORDS!  OR  "C  (CONSTANTS) 


22,2PC0 
22,  2010 
22,2020 
22,203C 


4^410  1 
44326  0 


C:  25004  I 
I : 51025  1 
I : 72364  0 
I : 45575  1 


C; 

C; 

C: 

C; 


06702  1 
04403  1 
02230  1 
50460  0 


06042  1 I ; 77634  0 
C ; 44724  0 I : 72364  0 
C ; 00322  1 I : 77624  1 
I ; 77626  0 C:  50466  0 


4440?  0 
03245  1 
44410  1 
77626  0 


C:  03276  1 
C;  03276  1 
I;  45160  1 
C : 74474  0 


22  ,2040 
22,2050 
22, 2060 
22  ,2070 


I:  75160  1 
C:  51540  1 
I : 77626  0 
C:  02235  1 


C;  03302  0 
l:  77626  0 
C;  50466  0 
C:  03307  0 


C:  02230  1 I:  77624  1 C;  44312  1 I:  45575  1 
C:  75546  1 I:  45001  1 C:  00023  0 C:  44335  1 
l:  77626  0 C:  74474  0 I:  45345  1 C:  03305  1 
I:  45325  1 C:  03315  0 C:  02243  0 I:  77666  1 


C:  51532  1 I:  77626  0 
I : 45575  1 C:  50460  0 
C : 02233  1 I : 45325  1 
C:  03325  0 I:  43345  1 


22,2100 
22,21 10 
22,2120 
22, 2130 


C : 02231  0 
l:  51025  1 
C:-03335  1 
C : 44744  0 


C:  02251  0 
C:  04363  0 
C:  04365  0 
I : 53375  0 


I : 43225  0 
C : 44117.  0 
I:  77244  0 
C:  02231  0 


C;  06514  1 
I:. 77751  1 
C:  44131  1 
C:  03303  1 


C:  02241  1 
C:  00322  1 
C:  03325  0 
I:  77762  1 


C:  03333  1 
C;  37235  I 
I : 77656  1 
C:  27303  1 


I ; 77726  1 
C:  44742  0 
C:  03270  1 
C : 02237  0 


C:  03335  1 
1:  45345  1 
I : 77650  1 
I : 74455  0 


22,2140 

22,2150 

22,2160 

22,2170 


C:  03311  1 
I : 45325  1 
C;  00003  1 
I : 56225  I 


L:  ‘Jt}D££  1 
I : 65366  I. 
C;  00001  0 


C : 02245  0 
C:  03333  I 
C : 03313  0 
C:  00003  1 


I : 74455  0 
I;  65204  1 
I : 56225  1 
I:  55566  1 


C : C3317  1 
C;  21713  1 
C:  00001  0 
I : 77656  1 


C : 03317  1 
C ; 03323  o 
C:  00003  1 
C : 03270  1 


l;  70545  1 
I ; 56225  1 
I:  65366  1 
I : 45345  1 


C:  03333  1 
C:  00001  0 
C:  03303  1 
C:  03270  1 


22,2200 
22 ,2210 
22,2220 
22,2230 


03272  0 
44242  0 
44224  0 
03270  1 


I;  45345  1 
I:  57575  1 
C;  03270  1 


C : 44211  0 
C;  C3272  0 
C:  03270  1 
I : 51145  0 


C;  03270  1 
C:  03274  0 
C:  03270  I 
C:  03315  0 


I ; 50025  n 
I : 77640  0 
I : 51145  0 
C:  44  744  0 


C:  03274  0 
C:  44266  0 
C : 03305  1 
I:  57545  1 


f : 44266  0 
I;  51145  0 
C : 44232  1 
C:  C3274  0 


I ; 77650  1 
C:  03327  1 
I:  57545  1 
C:  03274  0 


22,2240 

22,2250 

22,2260 

22,2270 


I:  77650  1 
I : 51145  0 
C:  44744  0 
C : 44274  0 


C:  44744  0 
C:  03305  I 
I:  57545  1 
l:  57575  1 


1 : 51145  0 
C:  44256  0 
C : 03274  0 
C:  03270  1 


C:  03325  0 
It  57545  1 
C:  03274  0 
C:  03270  1 


C : 44250  0 
C:  03272  0 
I : 77650  1 
I : 51145  0 


I : 57575  1 
C:  03272  0 
C:  4^*744  0 
C : 03307  0 


C:  03270  1 
I : 51145  0 
I:  51145  0 
C : 44302  0 


C:  03270  1 
C : 03307  0 
C:  03331  0 
I;  57545  1 


22,2300 

22,2310 

22,232C 

22,2330 


C:  03270  1 
I;  77650  I 
I : 62703  1 
C:  00001  0 


C:  03270  T 
C:  44744  0 
C:  77776  I 
I : 62713  0 


I : 51145  0 
I:  76601  1 
C:  00015  0 
C : 00007  C 


C:  03315  0 
C:  00001  0 
l:  41503  1 
C:  00015  0 


C:  44744  0 
C:  00001  0 
r:  77776  1 
I : 77606  1 


I:  57545  i 
I : 62703  1 
1 : 77616  0 
I : 77776  1 


C : 03272  0 
C:  77776  1 
I : 76601  1 
50120  1 


C:  03272  0 
C:  00007  0 
C:  00001  0 
52013  1 


22  ,2340 
22,235C 
22  ,2360 
22,2370 


50120  1 
50120  1 
06042  1 
33555  1 


52017  0 
52015  I 
I : 77616  0 
C:  01106  I 


C : 00013  0 
C:  67777  1 


52013  1 
52003  0 
C:  13563  0 
C:  77777  0 


5012C  1 
50120  1 
C : 17070  0 
C:  04000  0 


52015 
52007 
C:  34343 
C : 00000 


1 

I 

1 

1 


5012P  1 52005  0 
5012C  1 52003  0 
15666  0 C:  20443  0 
00316  1 C:  36323  0 


gap:  ASSfcNBLe  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-0<;1 
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OCTAL  LISTING  FOR  PARAGRAPH  ^ 131,  HTh  PARITY  BIT  IN  BINARY  AT  ThE  RIGHT  OF  EACH  WORD,  "2"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  GPERATCR  WORDS)  OR  "C"  (CONSTANTS) 


22,2AC0 
22, 2A10 
22,2420 
22,2430 


I : coj  /u  u 
C:  00013  0 
C : 30007  u 


C:  30057  0 
C : 00003  1 
C;  21577  1 
I : 72405  C 


C:  14344  1 
C : 00051  0 
C:  00013  0 
C:  00013  0 


30034  0 
C:  00001  0 
l:  65356  1 
C:  lOOOl  1 


54156  1 
C:  00010  0 
C : C0013  0 
l:  41345  0 


00006  1 
I : 77601  0 
I : 41546  0 
C:  00005  1 


30033  1 
C:  00001  0 
I : 71300  1 
C:  00001  0 


16501  1 
I ; 47133  0 
C;  44417  0 
1 : 41325  0 


22  ,2440 
22,2450 
22,2460 
22,2470 


C:  00007  0 
C:  00C03  1 
C:  Q0017  1 
C;  00003  I 


C:  TOOll  1 
C:  00005  1 
C : 10005  0 
C:  1001 1 0 


1 : o 

I : 77745  1 
I : 41345  0 


C:  00003  1 
C;  00007  0 
C:  00011  J 
C:  00013  0 


I : 72421  0 
C:  00011  1 
C:  10007  1 
C : 00001  0 


C:  00015  0 
I : 72405  0 
1:  77745  1 
I : 72476  1 


C;  10003  O 
C : 00001  0 
C:  00013  0 
c:  icon  1 


l:  41345  0 
I : 72415  1 
i : 72405  0 
I:  41345  0 


C : 00005  1 
C:  00007  0 
I:  41325  0 
C : 00001  0 


C:  00013  0 
C:  00001  n 
c;  00007  0 
I ; 65356  1 


C:  00003  1 
I ; 41546  0 


72425  1 
65302  0 


I:  77745  1 
C:  67760  1 
I : 77626  0 
I:  41021  1 


I : 72405  0 
I:  77745  1 
C:  67756  1 
C:  06522  1 


C:  00011 
I:  72405 
I : 77616 
C:  21713 


1 

0 

0 

I 


I : 41325  0 

r:  00011  1 

I : 41401  I 
I : 77725  1 


22,2540 
22,255C 
22, 2560 
22,2570 


C:  03270  1 
C:  03272  0 
C:  03274  0 
I : 41345  0 


I:  ^1316  0 
I ; 41316  0 
I : ^1316  0 
C:  73270  1 


C : 00005  1 1 : 52415  0 
C:  00005  I I;  52415  0 
C:  00005  1 I:  52415  0 
C:  03272  0 1 : 72405  C 


C : 00003  1 I : 776^^  0 

C:  00003  1 I : 77604  0 

C : 00003  1 1 : 77604  0 

C : 00005  1 I : 41325  0 


C:  21713  1 C:  16231  0 
r : 21713  1 C:  16241  1 
C:  217)3  1 C:  02251  0 
C:  03274  0 C:  00001  0 


22,2600 

22,2610 

22,2620 

22,2630 


1 : 43206  1 
C:  16233  1 
C:  00001  0 
C:  21713  1 


C : C0007  0 
C:  03270  1 
l:  62415  0 
C:  16245  0 


I : 4)  112  0 C:  21713  1 

I : 41205  0 c : 03274  0 

C:  00007  0 l:  77604  0 

C:  03272  0 l:  41205  0 


c:  16237  0 I;  62421  1 
C:  00005  1 l:  65352  0 
C:  21713  1 C;  16235  1 
C:  03274  0 C:  00005  1 


I : 77604  0 C : 21713  1 
C:  03272  0 I:  41405  0 
I : 62421  1 I : 77604  0 
1 : 65352  o c : 03270  1 


22,2640 
22,  2650 
22,2660 
22,2670 


I:  41405  0 
I : 77604  0 
C:  21713  1 
C;  44702  1 


C:  5000  1 0-  I : 

C:  21713  1 C: 

C:  00051  0 1 ; 

l:  57545  1 I: 


62415  .0  C : 00007 
02243  0 . I:  77616 
57543  1 C:  00015 
43244  1-  C:  44677 


77604  0 C : 21713  1 
67543  1 C:  00007  0 
67471  I C:  00051  0 
06522  1 I : 77650  1 


C:  16247  1 I:  62421  1 

I : 71406  0 I : 41152  1 

l:  51123  0 C;  00001  0 

C : 4.4701  1 1 : 77625  0 


22,2700 

22,2710 


I : 77606  1 
1:  57545  1 


I : 57543  1 C:  00013  0 

I : 43244  1 C:  44717  0 


1:  67471  1 
C:  06522  1 


C:  00051  0 I:  51123  0 C:  00011  1 
I;  77650  ) C:  4.4723  I I:  52025  1 


22,272C 

22,2730 


C6522  I C : 4472?  1 

04616  1 C:  40154  0 


77745  1 l:  43466  1 

04616  1 C:  40166  I 


1 : 77776  1 
34752  0 


05567  0 C:  00401  1 12732  1 

00004  0 05203  0 C:  03234  1 


22  ,2740 
22,2750 
22,2760 
22,2770 


C:  44066  1 
C:  04772  1 
I:  55605  1 
C:  45010  1 


15155  1 
I : 45002  I 
C:  05002  0 
C:  00221  0 


L : 445i'  ! 1 
C:  04772  1 
C : 24255  0 


12732  1 
1:  74343  0 
I : 77661  0 
C:  00554  0 


I : 77614* 1 
C:  04772  1 
C : 20606  0 
C:  r2660  0 


C : 01074  0 
C:  03270  1 
C:  03333  1 
C : 02660  0 


I : 70740  0 
C : 17325  O 
I:  77614  1 
C : 13301  1 


C:  01322  0 
C:  03335  1 
C;  01035  0 
C:  16161  0 


gap: 
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OCTAL  LISTING  FOR  PARAGRAPH  « 132,  PITH  PARITY  BIT  IN  BINARY  AT  ThE  RIGHT  OF  FACH  WORD,  "2"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OFEPATCR  WORDS!  OR  ”C"  (CONSTANTS! 


22,3000  C : 30707  1 
22,  3010  l:  75160  1 
22,3020  C;  50523  0 
22,3030  C:  03303  1 


C:  00003  1 
C:  032A5  1 
I:  77626  0 
I : 77^^14  0 


C:  OAOOO  0 
C:  02230  I 
C:  7A531  0 
C:  01215  0 


0A616  1 
I : 77624  I 
I:  A516C  1 
C:  45122  I 


C:  5A266  1 
C:  44312  1 
C : 03245  I 
34752  0 


lonoo  0 
l:  45575  1 
C : ^,4654  0 
55261  1 


12730  0 
C:  50515  0 
I : 77634  0 

51261  0 


06042  I 
I : 77626  0 
C:  21621  1 
31675  1 


22  ,30  40 
22  ,3050 
22,  3060 
22,3070' 


00006  1 
40000  0 
55634  0 
05203  0 


51261  0 21702  1 00006  1 
51261  0 55637  0 51261  0 
11261  1 13035  0 00003  1 
73213  1 C:  44066  1 00003  1 


73121  1 lOOOO  0 
31702  0 51261  0 
03075  0 13170  0 
15155  1 00006  1 


64753  1 13051  1 
57675  1 51261  0 
34753  1 00004  0 
40025  1 53707  1 


22,3100 

22,3110 

22,3120 

22,3130 


00006  1 
00002  0 
00002  0 
21733  0 


31733  1 
13113  0 
C:  03146  1 
00004  0 


I 


21707 

40000 

77776 

34752 


1 

0 

1 

0 


1 1706  0 
63166  0 
00006  1 
5 5 700  0 


00002  0 
00006  1 
30025  0 
60000  1 


13107  0 
63117  0 
21733  0 
55701  ] 


13117  1 11707  1 
24002  0 24002  0 
00006  1 43166  1 
50000  1 31724  1 


22,3140 

22,3150 

22,3160 

22,3170 


51700 

51701 
13133 
40025 


55642 

71724 

30025 

61705 


1 

0 

0 

1 


00006  1 63145  1 
00006  1 51700  1 
63J66  0 57705  1 
10000  0 64753  1 


40000  0 00006  1 
11530  1 517^0  1 
13034  1 C:  00000  1 
13177  1 64735  1 


73167 
55274 
C:  00144 
40000 


00006  1 
11700  0 
C:  75777  I 
00004  0 


22,3200 

22,3210 

22,3220 


05203  0 
03003  1 
55643  0 


13206  0 C:  44066  1 
44066  1 05261  1 
55275  1 30323  0 


33166  0 
34755  1 
55636  1 


27705  0 15155  I 
55641  1 55644  1 
30322  1 55635  1 


37717  1 05105  0 
55276  ^ 55640  0 
3032 1 ) 55634  0 


22,3230  34755 


55642 


55637  0 


55274  0 


31306  0 


54063  0 


34755 


53305  1 


22,3240 
22,3250 
22,3260 
22,32  70 


05116  1 
34752  0 
03262  1 
54003  0 


052t>l  1 
55050  1 
03254  1 
34755  1 


06042  1 
34753  1 
34750  1 
55537  0 


52014  0 
55051  0 
05203  0 
35021  1 


C : C3712  0 
33316  0 
C:  03430  0 
05105  0 


C : 45465  1 
04616  1 
C:  44064  0 
C:  03321  1 


C:  45247  1 
C:  20334  1 
00003  I 
C : 44064  0 


77776  1 
05472  0 
33320  0 
00003  1 


22,3300 
22,3310 
22,332C 
22,  3330 


36250  0 
33317  I 
C : 02140  0 
64753  1 


06042  1 
000C6  1 


C 

I 


looon  0 

20334  1 
77634  0 
13356  0 


03310  0 
05563  1 
21574  1 
06042  1 


34777  I 
05563  1 
C:  00041  1 
I : 77624  1 


04616  1 
03267  1 
02205  1 
27042  1 


C:  01736  1 03300  1 
C:  01014  0 C:  04054  I 
I : 77776  1 41051  0 
I:  77775  y C:  00001  0 


22,3340 

22,3350 

22,3360 

22,3370 


26207  0 
02201  0 
27056  1 
06340  0 


C:  00007  0 
I : 46135  1 
I:  '17650  1 
C:  03635  1 


02215  0 
00050  1 
45336  0 
45377  0 


L:  4536^  I 

C:  00001  0 
I:  5)575  1 


C : 73774  1 
I:  77650  1 
C:  11530  I 
C : 02023  1 


C : 00037  0 
C:  45373  1 
C:  00002  0 
I : 77614  1 


I : 77743  1 
06042  1 
C:  31230  1 
C : 03475  ) 


C:  72411  0 
I : 77624  1 
1:  43145  0 
C:  36203  0 


gap: 
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OCTAL  LISTING  FOR  PARAGRAPH  « 133,  HTh  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S"  DENOTES  UNUSFD  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  SASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I 


(INTERPRETIVE  OPERATCR  WORDS!  OR  "C"  (CONSTANTS! 


22,3410 

22,3420 

22,3430 


45551 

43345 

43345 

34747 


1 

1 

1 

1 


I : 45234  0 
C:  02X43  0 
C:  T21^1  1 
71043  0 


C:  C22C5  1 
lOOOO  0 


02205 

02143 

02141 

03441 


1 

0 

1 

0 


02205 

77776 

77776 

37716 


1 

1 

1 

0 


34752  0 
05072  I 


C 


C 


027  43  0 
55537  0 
5S537  0 
05472  0 


C : 45420  0 
05155  0 
05155  0 
C:  04062  1 


22,3440 
22,3450 
22,3460 
22  ,3470 


34777  1 
03503  1 


34777 

05261 

54001 

44064 


05203  0 C:  03430  0 
03460  0 34777  1 
34755  1 21543  0 
000C3  1 10067  1 


54001  1 
05261  1 
P5122  0 


36250  O 
34755  1 
77776  1 
33317  1 


71537  0 50000  1 
21541  1 05261  1 
35027  1 05105  0 
04616  1 C:  20334  1 


22,3500 

22,3510 

22,3520 

22,353C 


05563  1 
C:  01226  0 
C:  04001  1 
C : 03675  0 


05563  1 
C:  02215  0 
C:  14037  0 
C:  04J03  0 


03475  1 
I : 52014  0 
C:  05364  0 
C:  14037  0 


06042  1 
C:  04304  1 
C;  26201  0 
C:  05366  I 


I : 52175  0 
C:  45516  1 
C : 02023  1 
C:  16201  0 


C : 01220  0 
C:  45527  0 
I : 52046  1 
C:  06340  0 


C : 45507  1 
I:  71214  0 
C : 45536  0 
C;  36203  0 


C : 26207  0 
C:  03475  1 
I : 71214  0 
C:  45551  1 


22,3540 
22,3550 
22, 3560 
22,3570 


l:  77776  1 
03503  1 
I ; 77752  1 
C:  57430  1 


34747  1 
1 : 44T01  0 
C:  26207  0 
I:  77625  0 


71043  0 
C:  OOOOl  0 
C:  02215  0 
C:  02203  1 


00006  1 
C:  00051  0 
l:  77752  1 
I : 64414  1 


15472  1 
I;  77214  0 
C:  02215  0 
C:  03755  0 


34777  1 
C:  03755  0 
I:  77624  1 
C : 45576  1 


04616  1 
C:  45565  0 
C:  57362  I 
I : 77624  1 


C:  01736  1 
C:  02207  0 
I ; 77624  1 
C:  45636  0 


22,36CC 

22,3610 

22,3620 

22,3630 


C ; 16120  0 
I : 77624  1 
C:  06524  1 
I:  45015  1 


C:  TOO  17  1 
Cl  45636  0 
C:  45626  1 
C:  02203  1 


I : 77625  0 
C:  16122  1 
l:  45145  0 
C:  57471  1 


C:  02203  1 
C;  00161  1 
C:  00017  1 
1 : 77676  0 


C;  00161  1 
I : 51025  1 
C : 57466  1 
C:  36141  0 


I : 64414  1 
C:  02201  0 
I : 77676  o 
C:  00051  0 


C : 03755  0 
C:  45622  0 
C : 16143  (^ 
I : 51025  1 


C:  45610  I 
I;  52145  0 
C;  02201  0 
C:  05646  0 


22,3640  C:  45643  1 
22,3650  C:  14161  1 
22,3660  C:  45074  0 
22,3670  00006  1 


I:  43415  0 
C:  >31440  0 
31234  0 
03011  1 


05646  0 I : 43545  1 C : 
00000  1 C:  14000  1 Cs 
55074  1 05504  0 C: 
05327  1 C:  00005  1 C: 


C5646  0 C : 01065  0 
00000  1 C;  30000  1 
00036  1 04616  1 
05022  1 C:  20000  0 


C:  05603  1 C:  00021  1 

c : nnoor  j c : 77534  0 

C:  J7301  O 44743  1 

06042  1 I;  43014  0 


22,3700 
22  ,3710 
22,3720 
22,3730 


C : 01464  0 
C:  X0116  0 
C:  45723  0 
C;  45733  I 


C:  03664  0 
I:  51575  1 
I : 45545  1 
I : 77626  0 


I : 45014  0 
C;  02643  1 
C:  77732  1 
C:  77732  1 


C:  03267  1 
C:  24045  0 
I:  51575  1 
l:  66145  1 


C:  27463  0 
C:  02651  1 
C:  02657  1 
C:  00045  0 


l;  77414  0 
I ; 41446  I 
I : 45206  1 
C:  00044  1 


C:  03671  1 
1 : 50025  0 
C : 00045  o 
I:  62101  o 


04635  0 
C:  00045  0 
l:  71240  1 
C:  00047  1 


22,3740 
22,3750 
22,3760 
22  ,3770 


C:  00002 
C : 26651 
C:  00045 
C:  00003 


0 

1 

0 

I 


l;  53775  1 
C:  026  57  1 
I:  77660  1 
I : 77650  1 


C:  02643  1 
I : 66057  0 
C:  00045  0 
C:  46671  0 


C: 

C: 


I : 
C: 


20201  0 
20  201  0 
70130  X 
03773  1 


2 6643 
00045 
02103 
03774 


1 

0 

1 

0 


C : 
C : 
C: 


CKSM 


02651 

02657 

00045 

217-'4 


1 

0 

0 


1 : 77657  0 
I : 5415(^  1 
l:  40270  0 
3 


C:  20201  0 
C:  02103  1 
C:  00044  1 
3 
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OCTAL  LISTING  FOR  PARAGRAPH  H 134,  ^.ITh  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPEPATCR  WORDS)  OR  "C"  (CONSTANTS) 


23,2000 

23,2010 

23,2020 

23,2030 


04645  1 55112  0 34752  0 
20353  0 15472  1 12017  1 
74752  1 lOOOO  0 12026  0 
05504  0 C:  00264  1 05504  0 


55051  0 36245  1 55050  1 
12006  1 34751  0 05464  1 
05506  0 C : 00012  1 12034  0 
00126  1 00003  1 31112  1 


32037  1 04616  1 

05155  O 31051  I 

0‘?516  C:  00012  1 

14640  0 C : 01016  0 


23,  2040 
23,2050 
23,2060 
23,2070 


C:  77757  I 
I : 41546  0 
I : 41356  1 
C:  21577  1 


l:  ^7135 
1:  47135 
I : 77752 
C:  30001 


C:  03753 
C:  03754 
C:  24041 
I : 73406 


0 

1 

1 

1 


C : 
C: 
C: 
I : 


21577 

21577 

00041 

77676 


1 

1 

1 

0 


41401  1 
71406  0 
77616  0 
14043  0 


C:  00001  0 
I : 72405  0 
C:  14025  0 
I : 41546  0 


I:  57556  0 
C : 00001  0 
C : 00155  0 
I : 47135  O 


C:  14043  0 
C:  14045  0 
I : 40234  0 
C:  00026  0 


23,2100 

23,2110 

23,2120 

23,2130 


C 


21577 

12103 

05504 

00006 


1 

0 

0 


: 77650  1 
05504  0 
: 00024  1 
02033  0 


C 

c 


: 46054 
: 00124 
02152 
10000 


1 

0 

C 

o 


35010 

04616 

04645 

12152 


0 

1 

I 

1 


C4616  1 C:  20477  1 15472  1 12111  0 

C:  54123  0 15472  1 04645  1 55142  0 

55142  0 05516  0 C:  00024  1 34750  I 

05504  0 C:  00063  1 04616  1 C:  53112  0 


23,2140 

23,2150 

23,2160 

23,2170 


04616  I 
05516  0 
C : 06516  0 
C;  01101  0 


C:  17705  0 
C:  00063  1 
C:  03765  0 
C:  03773  1 


12143  1 
34747  1 
I : 43234  0 
1 : 45034  1 


04616  1 
70075  1 
C:  21574  1 
C:  46322  0 


C:  53114  0 
C0006  1 
C:  15712  1 
C:  56032  0 


04616  1 
12314  1 
C:  34041  0 
C : 00322  I 


C : 17705  0 
06042  I 
C:  51256  1 
I : 77776  1 


12150  0 
I : 77775  1 
1 : 77775  1 
05353  1 


23,2200  C:  04022  0 
23,2210  02302  I 
23,2220  I ; 77440  1 
23,2230  30323  0 


34747  1 
06042  1 
46236  1 
55636  1 


70075  1 
I : 45175  0 
35015  0 
00003  1 


00006  1 
C:  01101  0 
54003  0 
35016  0 


12314  1 
C:  47650  1 
00004  0 
54003  0 


04616  1 C:  54261  0 
45345  I C;  00162  1 
00006  1 30322  1 
02261  0 I : 77776  1 


lOOOO  0 
06320  0 
53635  1 
00004  0 


23,2240 

23,2250 

23,2260 

23,2270 


04674  0 
04616  1 
00077  1 
55745  1 


40154  0 
54123  0 
30075  0 
32321  0 


04674  0 C:  40141  1 

00004  0 04674  0 

74742  0 ICOOO 

05173  1 C:  02275  C 


05516  0 C;  00124  0 05504  0 
40115  0 05353  1 C:  C4022  O 
02305  0 11745  1 02?70  O 
C5155  0 37717  1 05105  0 


00077  1 
05516  0 
02305  0 
02127  1 


23,2300 

23,2310 

23,2320 

23,2330 


C : 46067  I 
70074  0 
C:  34602  1 
00006  I 


05261  1 
00006  1 
C:  01130  1 
31636  0 


04616  1 
15155  1 
00004  0 
52156  1 


54272  1 
02261  0 
3501.5  0 
30070  0 


02261  0 31142  1 

04635  0 C : 50232  1 C 
56003  1 54070  1 

54003  0 00O03  1 


1A640  0 32316  1 

: 00500  1 C:  17350  I 

31634  1 54154  0 

16502  1 C;  00302  0 


23,2340  C:  17755  0 I:  53754  1 
23,2350  C:  02655  0 I:  45020  1 
23,2360  I:  65225  1 C:  03671  1 
23,2370  C:  06340  0 I:  63130  0 


C:  02777  1 
C:  03463  0 
C : OCQOl  0 
C;  00047  1 


C:  57176  0 
C:  46367  1 
I : 45206  1 
C:  00002  0 


C : 26744  I 
C:  37671  0 
C:  03671  1 
I : 46135  1 


I : 5 37  50  0 
C:  25704  0 
I : 52006  0 
C:  00050  1 


C:  02776  0 
I : 41401  1 
C:  03463  0 
C : 46402  0 


C:  57176  0 
C:  00003  1 
I:  41545  0 
l:  51575  1 


GAP 
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OCTAL  LISTING  FOR  PARAGRAPH  H 135.  MTH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  valid  words  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  '‘C’ 


(CONSTANTS) 


23,2420 

23,2430 


C: 
C : 


02023  1 
46421  1 
03463  0 
77616  0 


I;  77725  1 
l:  77745  I 
!;  43175  0 
I : 43175  0 


I : 43545  1 
C;  03574  1 
C:  00001  0 
C:  00001  0 


l:  77620  0 
C:  34041  0 
C:  01352  1 
C:  01352  I 


C:  03463  0 
C:  27042  1 
C : 46435  I 
C:  46425  0 


C : 37574  0 
I:  77624  1 
C:  27536  1 
C;  27552  0 


C:  27056  1 
C;  46431  0 
C:  00007  C 
C ; 00007  0 


1 : 77624  1 
I : 77650  1 
C;  03544  1 
C:  03560  1 


23,2440 
23  ,2450 
23,2460 
23,2470 


I ; 77616  0 
I ; 77616  0 
64753  1 
I:  64252  0 


I:  53754  1 
I : 53754  1 
27746  1 
C:  C1734  r 


C;  02777  1 
C:  02777  1 
15270  0 
C : 37521  C 


C:  57176  0 
C:  57576  1 
06U42  1 
C:  67067  1 


I : 63350  1 
I : 7761 6 C 
l:  43175  0 
I : 76575  1 


C:  02776  0 
74745  1 
C:  03545  0 
C:  03553  I 


l:  63257  1 
10000  0 
C : 033^7  1 
1 : 77721  0 


C:  57176  0 
44752  1 
C : 6641  5 1 
C:  01734  0 


23,25CC 
23, 2510 
23,2520 
23,2530 


C : 27527  1 
52754  0 
C;  00000  1 
C:  00000  1 


C:  01726  0 
04635  0 
C:  20000  0 
C:  37777  1 


I : 53435  0 
C : 66420  1 
C:  00000  1 
C:  37777  1 


C:  01720  0 
C:  10000  0 
C:  00000  1 
I:  77620  0 


C:  03720  1 
C:  00000  1 
C : OOOOO  1 
C:  02772  1 


I : 77776  1 
C:  OOOnO  1 
C : OOOOO  1 
I:  66370  0 


C00fi6  1 
C:  OOOOO  1 
C : OOOOO  1 
C : 00066  1 


34755  1 
C:  OOOOO  1 
C:  OOOOO  1 
C : 00051  0 


23,2540 

23,2550 

23,2560 

23,2570 


C:  00022  1 
C : 12665  1 
C:  03541  1 
C:  46545  1 


1 : /(/{•:>  1 
I : 52717  1 
C:  02706  I 


C;  00022  1 
C:  03533  1 
C:  02643  1 
C:  46576  1 


C:  OOC52  0 
I:  52717  1 
C:  75112  1 
I : 77775  I 


C:  OC006  1 
C:  02555  0 
C:  12665  1 
C:  06524  1 


I : 77700  0 
C : 02657  I. 


f:  03525  0 
C:  1266*^  1 
C:  46567  1 
l:  77201  1 


C : 02467  0 
I : 77775  1 
1 : 43104  0 
C:  noOOl  0 


23,26CC 

23,2610 

23,2620 

23,2630 


C:  02643  1 
C:  02657  1 
C:  02707  0 
I : 52114  1 


1 : 47036  1 
I : 76234  0 
C:  46622  0 
C:  00001  0 


C:  21634  0 
C:  21634  0 
C:  02670  1 
C : 46625  1 


I:  47515  0 
I:  77171  0 
l:  77654  0 
I:  61551  1 


C:  02651  1 
C:  02707  0 
C:  46633  0 
C:  02665  0 


1 : 76234  n 
C:  OOOOO  1 
I : 40112  1 
l:  75405  1 


C : 2163*  n 
C:  r?665  n 
C : 46633  0 
C : 02670  1 


I : 47515  0 
I:  40151  0 
C:  02670  1 
I : 76257  0 


23,2640 

23,2650 

23,2660 

23,2670 


C:  57576  1 
I : 40265  1 
C;  J0155  0 
C:  45711  I 


C:  02665  0 
C:  06514  1 
C;  03547  1 
I:  77731  1 


I:  63101  1 C; 
C:  00001  0 C: 
I : 77701  1 C: 
C:  00052  0 C: 


00050  1 
0 3 500  1 

00051  0 
00066  1 


C : 77775  1 
l:  60351  0 
I : 70460  1 
I : 60775  1 


I : 77134  1 
C : 02665  0 
C:  00050  1 
C:  02643  1 


C:  02103  1 
C:  00047  I 
I:  41471  0 
C : 75134  0 


C:  00242  0 
I : 65345  n 
1 : 77650  1 
I : 77206  0 


23,2710 
23,272C 
23,  2730 


C:  02706  1 
I : 77773  1 


I : 53303  1 
I:  45575  I 
C:  46724  1 
C:  74252  1 


C 

C 

C 

I 


75112  1 
74260  0 
06524  1 
53761  I 


I:  77206  0 
I : 45575  1 
C:  03517  1 
C:  00001  0 


02657  1 
74266  0 
66374  1 
20201  0 


I: 
I : 
C : 
C : 


53303 

45575 

00022 

12707 


1 

1 

1 

J 


C:  75070  1 
C : 74274  0 
C : 00052  0 
1 : 77304  0 


I : 61006  0 
I:  77214  0 
C:  00006  1 
C:  46730  1 


2 3,27  40 
23,2750 
23,2760 
23,2770 


C;  02673  1 
I : 74375  0 
C:  03517  I 
34755  1 


I:  77732  1 
C:  03503  1 
1:  77761  1 
55317  1 


02673 

03500 

C3500 

55320 


1 

1 

1 

0 


1 : 77650  1 
C:  26713  n 
C:  02727  1 
05353  1 


02772 

03511 

77776 

04022 


1 

1 

1 

0 


I 

I 


: 45020  1 
: 77761  1 
33246  1 
05504  0 


C: 

r : 

C : 


55315  0 
00236  0 


C: 
C : 


27410  1 
26721  1 
55316  0 
31316  1 
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OCTAL  LISTING  FOR  PARAGRAPH  H 136 , WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OP  "C  (CONSTANTS) 


23  ,3000 

55  31  5 

0 

31320 

1 

55317 

1 

06042 

1 

1 : 

7315C 

1 

C : 

01315 

1 

C : 

01317 

0 

I : 

70731 

0 

23, 3010 

C : 

00051 

0 

C : 

00006 

1 

C • 

75134 

n 

I : 

60276 

1 

C : 

00052 

0 

I : 

65161 

1 

C : 

02713 

0 

C : 

00051 

0 

23 ,3020 

I : 

57144 

1 

c; 

00047 

1 

C; 

02103 

1 

I : 

65C57 

0 

C : 

57576 

1 

C : 

00051 

n 

I : 

77653 

1 

C: 

02467 

P 

23,3030 

C: 

02735 

1 

I : 

57543 

1 

C : 

75134 

0 

I: 

74301 

0 

C: 

00052 

0 

C : 

02721 

1 

I ; 

71124 

0 

C : 

00051 

0 

23, 3040 

C: 

00047 

1 

I : 

5367A 

1 

C: 

02103 

1 

C : 

57576 

1 

I : 

52724 

1 

C: 

00051 

0 

C: 

02555 

n 

C: 

02743 

0 

23,3050 

I : 

77614 

1 

C: 

02746 

0 

C: 

47072 

1 

I : 

57543 

1 

C: 

75134 

0 

I : 

74301 

0 

C : 

00052 

0 

C: 

02727 

1 

23,3060 

I : 

71124 

0 

C; 

00051 

0 

C: 

00047 

1 

I : 

53674 

1 

C: 

02103 

1 

r: 

57576 

1 

I : 

52724 

1 

C: 

00051 

0 

23,3070 

C: 

02643 

1 

C: 

0275L 

0 

I : 

7762A 

1 

C : 

11210 

1 

I : 

77776 

1 

31315 

1 

63247 

55316 

0 

23,3100 

31317 

0 

67751 

0 

55320 

0 

06042 

1 

I : 

66350 

1 

C : 

01315 

1 

C : 

00051 

0 

C: 

00006 

1 

23, 3110 

I; 

77775 

1 

C : 

02735 

1 

C : 

06467 

1 

I : 

77775 

1 

C: 

02743 

0 

C: 

06555 

1 

I: 

7721  4 

0 

C: 

02746 

0 

23,3120 

C: 

47130 

0 

C: 

02751 

0 

C: 

066A3 

0 

I : 

52100 

1 

C : 

47126 

1 

C: 

47136 

0 

I : 

77634 

0 

C: 

46773 

0 

23,3130 

I : 

A3335 

0 

C: 

01321 

0 

C : 

07251 

0 

I : 

52030 

0 

C: 

47136 

0 

C: 

47123 

1 

I : 

77624 

1 

C : 

1 1210 

1 

23,3140 

I : 

53375 

0 

C: 

017C1 

c 

C; 

C2701 

0 

C: 

03472 

0 

I : 

47014 

1 

C: 

00707 

1 

C: 

47236 

0 

C: 

26767 

0 

23,3150 

I : 

77004 

0 

C: 

57754 

0 

C: 

00000 

1 

I: 

77014 

1 

C: 

04344 

0 

C : 

47157 

1 

C : 

00002 

0 

I : 

53775 

1 

23,3160 

C : 

02665 

0 

C : 

57205 

1 

I : 

40055 

0 

c; 

01521 

0 

C: 

47176 

1 

C: 

25521 

0 

C: 

02673 

1 

I : 

53257 

1 

23,3170 

C: 

57202 

0 

C: 

01527 

0 

I : 

77600 

1 

C : 

47202 

1 

C : 

35527 

1 

C : 

47211 

0 

I : 

53375 

0 

C: 

01535 

p 

23,3200 

C : 

02  665 

0 

C : 

01535 

0 

1 : 

53375 

0 

C: 

0154? 

1 

C: 

02673 

1 

C : 

01543 

1 

I : 

45134 

0 

C : 

02030 

0 

23,3210 

C: 

27671 

1 

I: 

7762A 

1 

C : 

11210 

1 

I : 

47014 

1 

C : 

(^0707 

1 

C: 

47241 

0 

C: 

26746 

0 

I : 

77624 

1 

23,3220 

C : 

26070 

1 

I : 

7762A 

1 

C: 

11210 

1 

I : 

77214 

0 

C : 

02746 

c 

C : 

47230 

0 

C : 

03472 

0 

C: 

01701 

0 

23,3230 

I : 

66150 

0 

C: 

02772 

1 

C : 

00052 

0 

I; 

77776 

1 

04635 

0 

C: 

27421 

0 

I ; 

52034 

C : 

26722 

1 

23,3240 

C: 

47150 

0 

I; 

4'5C34 

1 

C : 

26673 

1 

C: 

26114 

1 

I : 

77650 

1 

C : 

47221 

0 

C: 

00066 

1 

C: 

77771 

0 

23,3250 

C : 

00014 

1 

I : 

71220 

1 

C: 

00051 

0 

C: 

02665 

0 

I : 

65325 

0 

C : 

06524 

1 

C : 

02671 

0 

I : 

55476 

1 

23,32  60 

l: 

77656 

1 

C : 

14027 

1 

C : 

00027 

1 

I : 

77742 

0 

C: 

14023 

0 

C: 

00033 

1 

I: 

77742 

0 

C : 

34021 

0 

23,3270 

C: 

47322 

1 

C: 

1674Z 

I 

C: 

02667 

1 

l: 

77742 

0 

C : 

14023 

0 

C; 

00027 

1 

I : 

65205 

0 

C: 

02671 

0 

23,3300 

C : 

00033 

1 

I : 

45205 

1 

C: 

02  665 

0 

I : 

77626 

0 

C: 

43756 

1 

C: 

47322 

1 

C : 

26744 

1 

C : 

00027 

1 

23,3310 

I : 

77641 

1 

C: 

02701 

0 

C : 

24021 

1 

C : 

00027 

1 

I : 

77641 

1 

C : 

02673 

1 

C : 

340  23 

1 

C: 

47322 

1 

23,3320 

C : 

36740 

1 

C: 

00051 

0 

I ; 

51545 

1 

C: 

O0O23 

0 

I : 

50025 

c 

C : 

07536 

0 

f : 

47235 

1 

I : 

72545 

0 

23,3330 

C: 

00021 

1 

1 : 

75326 

1 

r. ; 

00023 

0 

C: 

00025 

0 

I : 

7761  6 

0 

I : 

72545 

0 

f : 

0O023 

0 

I : 

77736 

0 

23,3340 

C: 

14025 

0 

C: 

00021 

1 

I : 

776A0 

0 

C: 

47346 

0 

I : 

43545 

1 

C ; 

00025 

0 

I: 

75345 

1 

C: 

06522 

1 

23,3350 

C: 

00023 

0 

I : 

77625 

0 

C: 

00025 

0 

C: 

00025 

0 

I : 

77616 

0 

I : 

77  601 

0 

C : 

00001 

0 

I : 

47375 

0 

23, 3360 

C: 

02665 

(J 

C: 

02651 

1 

I : 

41456 

0 

I ; 

44041 

1 

C; 

02701 

0 

C; 

00051 

0 

C: 

240  21 

1 

C: 

00001 

0 

23,3370 

I : 

77641 

1 

C: 

02673 

1 

C: 

34023 

1 

C: 

47322 

1 

C : 

26740 

0 

C : 

00001 

0 

I : 

50235 

0 

C: 

02665 

0 
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OCTAL  LISTING  FOR  PARAGRAPH  # 137,  UITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "0"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I 


(INTERPRETIVE  OPERATOR  WORDS)  OR  "C”  (CONSTANTS) 


23,3400  C:  02651  1 
23,3410  C:  02744  I 
23,3420  C:  -24021  1 
23,343C  C:  21621  1 


I:  77752  1 
I : 45246  0 
C:  02643  1 
C:  34322  0 


C:  24021  1 
C : 07540  1 
I : 45441  1 
C:  00051  0 


C:  02651  1 
1 : 77644  ) 
C:  43754  C 
I:  77776  1 


I:  77641  1 
C:  47433  0 
C:  47322  I 
05567  0 


C : 02665  0 
I : 50375  0 
C:  26742  i 
C;  00401  1 


C:  34023  1 
C:  C2657  1 
C:  C2740  0 
05504  0 


C:  47322  1 
C:  00001  0 
I:  77634  0 
C : 00056  1 


23,3440 

23,3450 

23,3460 

23,3470 


06042 
C:  00001 
I : 76433 
I:  66370 


1 

0 

1 

0 


l:  77650  I 
l:  46773  0 
C:  02731  0 
C:  00022  1 


C: 
C; 
C ; 
C : 


06737  1 
00051  0 


I : 66370  0 
C:  02731  0 
I:  77700  0 
C : 00006  1 


C:  02714  1 
I : 77656  1 
C;  47451  1 
I : 66374  1 


C:  00051  0 
C : 06731  1 
I : 66160  0 
C:  00006  1 


Ct  02700  1 
I : 77773  1 
C:  00006  1 
C:  00052  0 


I:  77601  0 
C:  02723  0 
C:  00036  1 
C:  00002  0 


23,3500 

23,3510 

23,3520 

23,3530 


I ; 
C: 


C : 
C : 


76720  0 
30031  0 
06707  1 
02673  1 


00036  1 
00015  0 
77700  0 
26715  0 


OOOOl  0 
53357  0 
47523  0 
02701  0 


62757 

75046 

77704 

02723 


0 

J 

1 

0 


C;  75062  1 
I : 76455  J 
C : 47500  1 
I:  77616  0 


C : 00007  0 
C:  00031  0 
I : 77775  1 
C:  05520  0 


I : 77757  1 
l:  5352C  0 
C : 02665  0 
C:  26075  1 


C : 
C : 


C : 


75054 

00036 

26707 

05252 


1 

1 

0 

1 


23,3540  C:  25253  1 
23,3550  l:  77616  0 
23,3560  22142  0 
23,3570  04713  0 


77776  1 
30032  0 
34751  0 
21577  I 


03551  0 
54771  1 
76245  0 
00006  1 


06042  I 
30033  1 
54143  0 
30155-  0 


77616  0 1 : 77776  1 
54765  1 30034  0 
50143  1 30765  0 
50143  1 52766  1 


03557  0 06042  1 
54767  0 00006  1 
52155  1 52127  1 
04713  0 C:  01517  0 


23,360C 

23,3610 

23,3620 


00006  1 


50143  1 
=2155  1 
22061  O' 


34751  0 


00006  1 
52736  1 
76245  0 


50143  1 30766  0 C4713  0 C:  01531  1 
10143  0 13562  1 00142  0 00004  0 
54062  1 50062  0 30765  0 05033  1 


23,3630  00006 


74736  0 


50062  0 52736  1 


50062  0 30765  0 0503?  0 00006  1 


23,3640 
23,3650 
23,  3660 
23,3670 


74736  0 
I : 77776  1 
06042  1 
07535  0 


50062  0 
03551  0 
I : 43575  1 
36250  0 


52744  1 10062  1 

13655  0 l:  77776  1 

C : 00123  1 I : 77776  1 

13657  1 l;  77776  1 


13623  1 30061  0 
03557  C 07535  0 
03551  0 13670  1 
13655  0 I : 77776  1 


00003  1 00000  1 

46250  1 03677  1 

I:  77776  1 03557  0 

13670  1 54142  1 


23,3700 

23,3710 

23,3720 

23,3730 


00006  1 
52144  I 
52155  1 
00006  1 


22145  1 
34753  1 
33764  1 
40155  1 


10142  1 
54130  I 
60143  I 
52160  1 


54116  0 
36245  1 


66250  0 
50143  1 
C7I12  1 
26116  0 


00006  1 
40123  0 
10142  1 
00006  ? 


50000  1 33766  0 
13720  0 52131  0 
52155  1 13732  0 
50130  n 50143  1 


23,3740  30123  1 
23,3750  50143  1 
23,3760  13702  0 
23,3770  C:  00004  0 


52155  1 
5212?  0 
00145  1 
33771  0 


07112  1 52155  1 
52131  0 10000  0 
13702  0 00145  1 
03772  0 CKSM  62325  I 


20160  1 
13717  1 
00735  0 


52160  1 
00006  1 
C:  00004  0 
3 


20001  1 
26142  1 
C:  00002  0 
a 


50130  0 
10142  1 
00000  1 
3 
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OCTAL  LISTING  FOR  PARAGRAPH  H 1 40 » WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD » "3”  DENOTES  UNUSFO  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  '’C  (CONSTANTS) 


24,2000 

24,2010 

24,2020 

24,2030 


05327  1 
C:  00026  3 
02013  1 
06001  0 


00004  0 C : 05022  1 
34753  1 55144  0 
44753  0 61144  1 
•12033  0 02025  1 


26000  0 
34363  0 
00006  1 
06042  1 


C267C  1 02007  1 

04616  1 C:  20634  1 
12040  O 32311  0 

I : 77650  1 f : 64217  1 


02036  0 05504  0 

06001  0 02021  0 

04616  1 C:  20477  1 

C551  6 0 C : 0P026  0 


24,2040  04616  1 
24,2050  05516  0 
24,2060  05516  0 
24,2070  I : 77634  0 


C:  11233  0 
C;  00037  0 
C:  00041  1 
C:  21574  1 


C5504  0 C;  00027  1 05504  0 

C5516  0 C:  00040  0 05516  C 

06011  1 05353  1 C;  04022  0 

C:  34041  0 C:  51256  1 I:  77624  1 


C:  00031  0 
C : 00063  1 
34755  1 
C:  53570  0 


05504  0 C:  00010  0 

05516  0 C:  00126  1 

55462  7 06042  1 

I:  77776  1 50154  1 


24,2100 

24,2110 

24,2120 

24,2130 


02101  0 02111  1 

05155  0 05353  1 

05022  1 C:  10000  0 
34752  0 00006  1 


32305  0 
C : 04022  0 
37717  I 
02033  0 


04616  1 
02670  1 
05146  1 
00006  1 


C 


30075  0 
12170  1 


06025  0 02102  0 02063  0 
04616  1 C:  46116  O 05353  1 
74747  0 00006  1 12232  1 
46007  1 61010  1 00006  1 


24,2140 

24,2150 

24,2160 

24,2170 


12153  0 
02117  1 
02670  1 
40110  0 


67751  0 
02117  1 
02166  1 
74737  1 


C0006 

05155 

03137 

00006 


12153 

32306 

05504 

1.2205 


32307  1 04616  1 
04616  1 C : 20624  0 
00040  0 02117  1 
34355  0 70076  1 


21563  1 06025  0 
06025  0 02117  1 
0436*  1 02117  1 
00006  1 12211  0 


24,22C0 

24,2210 

24,2220 

24,2230 


05516  0 C:  00037  0 
02170  0 06042  I 
04022  0 30074  1 
12264  I - 02675  1 


05516  0 C:  00040  0 
77634  0 C;  21574  1 
74745  1 00006  1 
32304  1 05173  1 


02232  0 
C:  34041  0 
15155  1 
C:  02244  1 


32304  1 
5031.2  1 
30075  0 
30075  0 


04616  1 C : 01736  1 
77776  1 05353  1 
74747  0 00006  1 
74747  0 00006  1 


24,2240 

24,2250 

24,2260 

24,2270 


15155  1 
30075  0 
05261  1 
30075  0 


05353  1 C:  40C72  0 

0 00006  1 

35221  0 C : 02734  0 

74747  0 10000  0 


05155  0 
12261  1 
02244  1 
12277  0 


30074  1 
37717  1 
32667  1 
05221  0 


74745  1 
05105  0 
05173  1 
02734  0 


00006  1 
r : 02631  1 
•C  : 02270  0 
02270  0 


15261  0 
C:  50067  0 
05155  0 
37717  1 


24,2300 

24,2310 

24,232C 

24,2330 


05105  0 
C:  00074  1 
C:  02756  1 
C:  00747  0 


C:  50332  0 
C : 50364  0 


C:  50067  0 
I ; 45020  1 
C:  01476  0 
I : 77614  I 


05261 
C:  01757 
l:  43014 
C:  01474 


1 

0 

0 

1 


04307  1 
77624  1 


: 00526 
: 77624 
: 50327 
: 27133 


C 

1 

1 

0 


C : O02O1  1 
C:  2664?  1 
C:  01475  0 
I : 77624  1 


C : 00514  1 
1:  43014  0 
I : 77614  1 
C:  11210  1 


24,2340 
24,2350 
24, 2360 
24,2370 


L : o 

I:  77742  0 
C:  11210  1 


C:  27410  1 
I:  77214  0 
C:  02360  0 
I:  77624  1 


I : 43145  0 
C:  04347  0 
I ; 77650  1 
C:  27410  1 


C:  01571  0 
C:  50216  1 
C:  01757  0 
l:  71214  0 


C : 01674  0 
C:  01661  I 
I : 45014  0 
C:  01474  1 


I : 77624  1 
I : 77742  0 
C:  01674  0 
C:  01643  1 


C:  26643  1 
C;  26352  1 
C:  271 33  0 
I : 77650  1 


C:  34041  0 
C:  01667  1 
I:  77624  1 
C:  50345  0 


GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRA^'  LUMINARY  BY  NASA  2021112-091 


17:53  DECo  19  ,1969 


PAGE  166A 


OCTAL  LISTING  FOR  PARAGRAPH  H lAl, 


hlTh  PARITY  BIT  IN  BINARY  AT  ThE  RIGHT  OF  EACH  WORD,  ''3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED 


(INTERPRETIVE  OPERATOR  WORDS)  OR  "C" 


(CONSTANTS ) 


05327 

0550A 

00006 

04616 


1 

0 

1 

1 


00004  0 
00006  1 
15155  1 
46123  0 


C:  05022 
05516 
34747 
024U 


1 

0 

1 

I 


26000  0 
00010  0 
70075  I 
3244A  1 


C4616  1 r : 11233  0 
05353  I C:  04022  0 
00006  1 12433  0 
05173  1 f : 02437  n 


05504  0 C:  00031  0 
34743  0 70074  0 
34757  0 557*5  1 
05155  0 35024  1 


24,2*40 
24,2450 
24, 2460 
24,2470 


051C5  0 
7007*  0 
00006  1 
12472  0 


0241^  1 
00006  1 
02012  0 
021.35  1 


15155  1 
00006  1 
40110  0 


05261  1 
34747  I 
12111  0 
74737  I 


13560  0 05353  1 
70075  1 00006  1 
34752  0 00006  1 
00006  1 12631  0 


04022  0 34745  0 
12640  0 34736  1 
02033  0 00006  I 
05353  1 C:  00152  1 


24,2500 

24,2510 

24,2520 

24,2530 


04616  1 C:  64366  0 
21563  1 06025  0 
04616  1 C:  20510  1 
02545  I 30075  0 


50154  1 
02515  1 
06025  0 
74747  0 


02504  1 
02506  0 
02525  1 
00006  1 


C2525  1 
05155  0 
02217  1 
126*0  0 


0221 7 1 32664  1 
05353  1 C : C4022  0 
05353  1 C:  0402?  0 
04616  1 C:  51334  1 


04616  1 
32665  0 
02670  1 
50154  1 


24,254U  02541  0 
24,2550  12631  0 
24,  2560  I 5 77650  1 
24,2570  55746  1 


02545  1 04616  1 C : 46116  0 
30075  0 74745  1 00006  1 
54416  0 1 : 77776  1 05353  1 
05353  1 C : 04022  0 37720  0 


02640  1 
12631  0 
C:  04022  0 

05072  I C: 


40075  1 74746 
37717  1 55055 
12624  1 I:  77776 
02645  1 f:  50067 


1 00006  1 

1 06042  1 

1 34755  1 

0 06042  1 


24,26CC 
24,  2610 
24,262C 
24,263C 


I ; 77735  0 
55746  1 
I:  77624  1 
02634  1 


C: 


C: 


03747  0 
05155  0 
U?10  1 
02670  1 


i;  5C054  0 
I : 77776  1 
I:  77650  1 
02642  0 


C:  50600  1 
31746  0 
C;  55431  1 
34752  0 


C:  5C612  1 I:  77650  1 C:  03675  0 44752  1 

64752  0 C00O6  1 12445  1 06042  1 

25462  0 02670  1 02642  0 34756  1 

55745  1 04616  1 C:  46123  0 02445  0 


24,2640 
24,2650 
24,  2660 
24,2670 


32667  1 
02607  1 
04616  1 
40104  0 


02233  L 
4*753  0 
C:  17705  0 
74744  0 


0*616  1 C : 01735  1 
55746  1 05155  0 
02217  1 02445  0 
inoCO  0 24C02  0 


C2445  0 
05353  1 
C:  00525  0 
00002  0 


32666  0 
C : 00152  1 
C:  01405  I 
44736  0 


04616  J. 
04616  1 
C:  01*61  0 
00006  1 


C:  20510  1 
C:  53112  0 
C:  02734  0 
03012  1 


24, 2700 
24,2710 
24,2720 
24,2730 


02670  1 
10000  0 
04616  1 
32310  1 


02706  1 
02726  0 
52506  0 
55113  1 


34755  1 
34735  J 
02723  C 
36250  0 


55106  0 
55106  0 
04616  1 
55*56  0 


55107  I 
44736  0 
17705  0 
06042  1 


02716  0 
55107  1 
02761  O 
43234  0 


34740  0 70110  0 
05516  0 C;  00012  1 
055C4  0 C:  00041  1 
2157A  1 C:  11122  0 


24,2740  C:  34041  0 
24,2750  I : 77624  1 
24,2760  02770  0 
24,2770  05516  0 


C:  51256 
C:  52404 
33000 
C:  00041 


1 

0 

1 

1 


77776  1 05504  0 
77776  1 03002  0 
04616  1 C:  21563  ) 
02670  1 02232  0 


02111  1 
06025  0 
03123  1 


C5516  0 
04616  1 
02775  0 


00126  1 
17705  0 
02211  1 


05353  1 C : 04022  0 


06042  1 
02761  0 
05155  0 
03210  1 
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OCTAL  LISTING  FOR  PARAGRAPH  # 142,  RlTh  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  OR  "C"  (CONSTANTS) 


24,3000 

24,3010 

24,3020 

24,3030 


C:  00503  1 
06042  1 
I:  77624  1 
I : 43C14  0 


C:  OOS27  I 
I : 77634  0 
C;  52^0A  0 
C:  00345  0 


32310  I 
C:  21574  1 
I : 77776  1 
C:  51045  1 


55423  1 
I:  77615  0 
03035  1 
C:  00225  1 


05504  C 
C:  11120  1 
05155  0 
C:  5104?  C 


C:  00005  1 
C:  03425  1 
06032  0 
11423  1 


05516  0 
C:  34041  n 
C:  52604  1 
0304C  O 


C:  00041  1 
C : 51256  1 
06042  1 
03107  I 


24,3040  55423  I 
24,3050  C:  50312  1 
24,3060  04616  1 
24,3070  I:  77776  I 


C6042  1 
77776  1 
52506  0 
00006  1 


52145  0 
05504  0 
03063  1 
31427  1 


C:  03425  1 
C:  00264  1 
06042  1 
C5277  0 


C:  51013  1 
05516  0 
I:  44234  1 
C;  03077  1 


I:  77745  1 
C : 00012  1 
C:  21574  1 
C:  50067  0 


C;  03425  1 
05504  0 
C : 03425  I 
05155  0 


C:  34041  0 
C:  00126  1 
C:  03427  0 
06032  0 


24,3100  C : 52613  1 
24,3110  04616  1 
24,3120  C:  01750  I 
24,3130  06025  0 


06011  1 
21563  1 
00000  I 
02232  0 


37717 

06025 

00062 

03125 


1 

0 

C 

1 


05105  0 
06025  0 
05353  1 
34745  0 


C : (T4022  0 
05464  1 


: 50067  0 
05155  P 
33136  0 
05155  0 


C: 
C : 


05261  1 
0053C  1 
04616  1 
01510  1 


C : 
C: 


20711  1 
05504  0 


24,3140 

24,3150 


00126  1 
33207  1 


30004  0 
04616  1 


C4674  0 C : 40141  1 
20624  0 03200  0 


00003  1 34736  1 

03156  C 03203  0 


00006 

00004 


05012  1 
04523  I 


24,3160  C : 00035  I 

24,3170  00003  1 


03170  1 
33206  0 


04674  0 C:  40115  0 
04616  1 C:  21563  1 


00003  1 
C3200  0 


05516  0 
03171  0 


00126  1 
0320?  0 


02163  1 
05155  0 


24,3200 

24,3210 

24,3220 

24,3230 


05516  0 
05504  0 
05353  1 
04616  1 


C;  00)26  1 
C:  00037  0 
C:  04022  0 
C:  55442  0 


06025  0 04616  1 
05516  0 C:  00041  1 
33255  C 04616  1 
06032  0 C:  55643  0 


C:  46116  C 
34755  1 
C:  20505  0 
06011  1 


03145  1 
55733  0 
06025  0 
12063  1 


00501  0 C : 00205  0 
55734  1 55735  0 
03232  1 03236  0 
05353  1 C : 04022  0 


24,3240  06032  0 
24,3250  04616  1 
24,3260  C:  01343  1 
24,3270  C:  00001  0 


C:  55643  0 
C:  46116  0 
C : 51265  1 
C:  26352  1 


06011  1 
34755  1 
I : 77614  1 
C:  00007  0 


C:  04307  I 
C:  16360  0 


04616  1 
03220  1 
C:  51275  0 
C : 00015  0 


C:  01736  1 
C ; 04120  0 
I : 77624  1 
C:  34041  0 


02670  1 
I : 4*^020  1 
C:  27077  1 
C:  27065  1 


03252  1 
C:  01757  0 
I ; 77775  1 
I;  52375  1 


24,3300 

24,3310 


C : 00007  0 
C:  25761  0 


C : 02360  0 
C:  OOOOl  0 


I 

1 


76521  0 C:  0173^  0 

43051  1 C;  02352  1 


l:  77776  1 
C:  00350  1 


06032  0 
C : 51322  0 


C : 52613  1 
l:  77604  0 


06042  1 
C:  57754  0 


24,3320  I ; 77661  0 

24, ?330  C : 01767  0 


20212  1 
77614  I 


C : 


41056  1 C:  50102  1 

00231  1 C:  01757  0 


l:  76521  0 
04645  1 


01734  0 
55737  1 


15101  0 
060^2  1 


C:  00045  0 
I : 65545  0 


24,3340 

24,3350 

24,3360 

24,3370 


C;  03745  I 
I : 77776  1 
05072  1 
15261  0 


I:  50025  0 
34755  1 
C:  02550  0 
40076  1 


C : 11356  1 C:  51350  0 
54154  0 31737  0 

C : 64C63  0 34774  ) 

74740  1 O0C06  1 


04640  1 
05224  0 
13377  n 


34753  1 
02525  1 
40110  0 
26076  1 


54154  0 13353  0 
12525  0 35031  0 
74742  0 10000  0 
13357  1 34753  1 
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OCTAL  LISTING  FOR  PARAGRAPH  « l*r3,  V.ITI-  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S'"  DENOTES  UNLSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPEPATCR  WORDS)  nR  "C"  (CONSTANTS) 


2A,3400 

24,3410 

24,3420 

24,343C 


13364  1 
74743  1 
30110  I 
13476  0 


37717  1 
lUOOO  0 
7475?  1 
53105  0 


05072  1 
13401  0 
10000  0 
52155  1 


03414  0 C : 5C067  0 
1526)  0 30077  1 
13^76  0 04616  1 
00004  0 00006  1 


35000  1 
74741  0 
53112  0 
30036  1 


0522^  0 
lOOOO  0 
04616  1 
52157  0 


30077  1 
13501  1 
C:  17705  0 
00006  1 


24,3^40 
24,3450 
24,3460 
24,  3470 


30034  0 
13467  0 
52161  0 
74742  0 


52161  0 
00004  0 
53460  0 
li.600  0 


30032  0 
53331  0 
30162  1 
13476  0 


54162  0 
53757  1 
55461  1 
05516  0 


04616  1 C:  53114  0 
52155  1 53755  0 
"^4753  1 55462  1 
00120  1 13444  1 


046)6  1 C:  17705  0 
52157  0 53753  0 
15155  1 40101  0 
44736  0 00006  1 


24,3500 

24,3510 

24,3520 

24,3530 


03012  1 
34752  0 
55045  0 
53145  1 


34755  1 
C4616  1 
33675  0 


55462  ) 
C ; 20634  1 
04616  I 
C:  51667  1 


05516  0 
06001  0 
C:  20477  1 
C:  34041  0 


00063  1 
03516  0 
06001  0 
27410  1 


03527  1 
43014  0 


34753  1 
34755  1 
03521  1 
00304  0 


55144  0 
55044  1 
06042  1 
: 51555  0 


2-^,3540 

24,3550 

24,356C 

24,3570 


C:  01674  0 
C:  01673  1 
C : 03704  1 
C:  01163  1 


70535  0 C:  01145  0 1:  43030  0 
77624  1 C:  27133  n i:  77650  I 
15543  1 C:  03763  0 C:  01517  0 
51574  0 I:  77614  1 C:  00063  1 


51546  1 C:  01474  1 
51576  1 1 : 77775  1 
43014  0 C:  01676  1 
77624  1 C : 27106  0 


1:  ^3014  O C:  01676  1 
C:  03676  0 C:  25535  0 
C:  00263  0 I : 53135  0 
1 : 77745  1 C:  00015  0 


24,360C 
24,  3610 
24,3620 
24,363C 


C:  27763  0 
C:  OOOOl  0 
C:  011^5  0 
1 : 77614  I 


C:  00017  1 
I : 50256  0 
I;  46142  1 
C : 00064  0 


C:  27676  0 
C : 00007  0 
C:  51625  1 
1 : 67214  1 


C:  00025  C 
l:  6747)  1 
I;  77650  1 
C:  01663  0 


C:  C3704  1 
C:  03712  0 
C : 51630  0 
C:  00050  1 


I : 53646  0 
C:  03714  0 
I : 77614  1 
I : 43054  1 


C : 57576  1 
1 : 67334  1 
r:  04307  1 
C:  5164C  ) 


C:  27712  0 
C : 01162  0 
C:  51632  1 
C : 01463  1 


24,3640 

24,3650 

24,3660 

24,3670 


I: 

C 

c 


77775 

11677 

06042 

21574 


1 

1 

1 

1 


C:  OOOOl  0 
C:  03716  1 
I : 43345  1 
C:  51533  0 


C : 16032  1 
l:  77776  1 
C : 03763  0 
C;  00003  1 


C:  0001  5 0 
3367*  1 
C:  11673  0 
C:  25140  0 


I : 45014  O 
04616  1 
C:  0)045  ) 
C:  C1453  1 


C:  00662  0 
C : 20477  I 
I : 77634  0 
C : 01442  1 


C:  26347  0 
06001  0 
C:  «152)  0 
C:  00243  1 


I:  77605  1 
06001  0 
I : 52034  1 
C:  32703  1 


24,3700 
24,3710 
24,3720 
24, 3730 


1 : 
I : 
I : 
I : 


46020  1 
77772  0 
77650  1 
40220  0 


C:  00050  1 
l:  51235  1 
C:  OU050  1 
C:  00051  0 


C:  51722  1 
C : OOOOl  0 
I:  77624  1 
C:  00011  1 


77624  1 
OOOOl  0 
55743  1 
77770  ) 


C:  51730  I l:  61375  1 C:  02013  1 
I:  77721  0 C:  00025  0 I:  40372  0 
l:  77624  1 C:  15761  0 1:  77650  1 
Cs  00005  1 l:  65345  0 C:  14017  1 


C 

C 

C 

C 


: 00025  0 
: OOOOl  0 
; 51711  1 
: 14011  1 


24,3740 
24,3750 
24,  3760 
24,3770 


l:  45006  0 
C : 14007  0 
I:  45170  0 
C:  14035  1 


C: 
I : 


I : 


53732  1 
45170  0 
00005  1 
76405  I 


I : 71406  0 
C;  00004  0 
C:  53732  1 
C:  00043  0 


14041 

53732 

71406 

14C37 


1 

1 

0 

0 


I ; 77756  0 
C:  14027  1 
I:  77606  J 
I : 41556  1 


C : 14043  0 
C : 14013  0 
C:  00025  n 
1 : 52076  1 


C:  14015  0 I:  41525  0 
I : 41525  0 C : 14005  1 
l:  76405  I C:  00041  1 
C:  53653  I CKSM  05644  1 


GAP: 
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OCTAL  LISTING  FCR  PARAGRAPH  tt  1^4,  ^.lTI■  PARITY  PIT  IN  BINARY  AT  THE  P IGHT  OF  EACH  WORD,  ”S"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THESE  MARKED  "I" 


(INTERPRETIVE  OPERATOR  WORDS!  OR  "C"  (CONSTANTS! 


25,2000 

25,2010 

25,2020 

25,2030 


C 

C 


A7777  a 
52Q6A  1 
61775  0 
30101  1 


0000  1 
37716 
55773 
74741 


0 

0 

I 

0 


1 

I 

0 

0 


11777  0 
02023  1 
02060  0 
12050  1 


12006  1 
C;  52064  1 
04616  1 
53101  1 


15261  0 
34736  I 
C:  17705  0 
51776  C 


0520?  C:  02003  0 
00006  1 71776  1 
25575  1 00004  0 
5?601  0 30110  1 


25,2040 

25,2050 

25,2060 

25,2070 


00006  1 06033  1 
41776  1 61774  1 
34753  1 54133  1 
53106  0 C:  53104  1 


74746  I 
00006  1 
51773  0 
53102  1 


00006  1 
12C56  1 
32065  0 
02102  0 


12050  1 05567  0 C:  00522  1 
31776  0 64752  0 55776  1 
14622  1 C : 53114  0 C : 53112  0 
05221  0 C:  00144  0 44753  0 


53110  1 
70110  0 


25,2100  54110  0 
25,2110  C:  00002  0 
25,2120  C:  01750  1 
25,21 30  34755  1 


15261  0 
34755  1 
44737  1 
12133  0 


00006  1 
54035  0 
70110  0 
34740  0 


23312  0 
54036  0 
54110  0 
56110  1 


34753  1 
44753  0 
30035  1 
77744  0 


00006  1 
00006  1 
04512  0 
26110  0 


05012  1 05221  0 

03012  1 05221  0 

C:  57777  1 12132  1 

C4564  1 01312  0 


25, 2140 
25,2150 
25,216C 
25,2170 


Q2167  0 
34740  0 
74742  0 
00006  1 


05221  0 
70110  0 
10010  0 
02012  0 


10000  0 
12604  0 
10000  0 


34740  0 
44736  0 
44752  1 
00002  0 


70110  0 
02255  1 
00006  1 
54112  1 


looon  0 

44741  n 
03012  1 
54113  0 


34735  1 
70110  0 
15261  0 
34752  0 


02252  0 
54110  0 
34752  0 
00006  1 


25,22C0 
25, 2210 
25,2220 
25,2230 


74740  1 
02255  1 


00002  n 
40110  0 
10000  0 
02244  1 


34740  0 7011C  0 
74740  1 10000  0 
34735  1 02252  0 
44736  0 70110  0 


10000  0 
32243  0 
40110  0 
54110  0 


74740  1 
34742  1 


02252  0 37743  0 
02252  0 40110  0 
lOOOO  0 44736  0 
70110  0 00006  1 


25,2240 
25,22  50 
25,22  60 
25,2270 


13560 
54110  I 
00'106 
12155 


02613  X 
00002  0 
23312  0 
31313  1 


C:  67C70  1 
55313  0 
12265  0 
00006  1 


C : 6161  5 1 
3<-755  1 
05221  0 
51314  0 


22110  1 34740  0 
12257  1 55313  0 
00062  0 40110  0 
20035  0 54061  1 


nOOC6  1 
34753  1 
77713  1 
OOOC6  1 


06001  0 
55314  1 
00006  1 
72316  0 


25,2320 

25,2330 


54001  1 
11314  1 
34753  1 
30C61  0 


30110  1 
12313  0 
54062  I 
50062  n 


74752  1 56061  0 
56CC1  0 53355  1 
50000  I 31354  1 
56112  0 40000  0 


(!4512  0 C : 77644  1 
02317  0 12263  o 
54061  1 0451?  0 


10061  1 01312  0 
C:  22715  1 22002  0 
C:  77177  0 12346  0 


60061  0 64754 


50062  0 54053  0 


25  ,2340 
25,2350 
25,2360 
25,2370 


10062  1 
12352  0 
00004  0 
52067  1 


44737  1 
40110  0 


35C20  0 
54061  1 
70110  0 
74752  I 


00006  1 
12331  0 
64737  0 
10000  f 


05014  1 00001  0 
32403  1 70110  0 
54110  0 34753  1 
12377  1 05567  0 


10061  1 42326  0 

lOOOO  0 13513  1 

05203  0 C:  02401  0 
f:  00510  0 00003  1 
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OCTAL  LISTING  FCR  PARAGRAPH  H 145, 
ALL  VALID  WORDS  ARE  SASIC  INSTRUCT 


VsITh  PARITY  BIT  IN  BINARY  AT  TPE  RIGHT  OF  EACH  WORD,  "3" 
ONS  EXCEPT  THCSE  MARKED  "I'’  (INTERPRETIVE  OPEPATCR  WORDS! 


DENOTES  UNLSED  FIXED  MEMORY 
OR  "C"  (CONSTANTS! 


25,2^00  14631  0 
25,241C  C:  47541  1 
25,2420  04523  1 
25,2430  12467  1 


02102  0 13551  I 
45175  C C:  JllOl  0 
01106  I 02425  0 
02472  1 ^0104  0 


C:  02001  1 
C;  47673  0 
25112  1 
74744  0 


I ; 43020  1 
I:  77624  1 
02443  0 
OC006  1 


C : 01112  1 
C:  26133  1 
40104  0 
12467  1 


C:  00271  0 
I : 77776  1 
74744  0 
3007^  1 


77624  1 
00004  0 
00006  1 
74745  1 


25,2440 

25,2450 

25,2460 

25,2470 


10000  0 
10000  0 
00006  1 
55303  1 


02502  1 
12457  1 
12463  0 
12463  0 


15155 

02167 

05155 

02244 


1 

0 

0 

1 


25112  1 
34752  C 
00003  1 
04523  3 


40110  0 
05203  0 
25112  1 
C:  OHIO  0 


74742 

02604 

31112 

12502 


0 

1 

1 

0 


26110  0 
C ; 52067  1 
14640  0 
02244  1 


74741  0 
31303  0 
34755  1 
34736  1 


25,2500 
25,  2510 
25  ,2520 
25,2530 


26110  0 12^23  1 
05516  0 C:  00041  1 
00003  I 00006  1 
77414  0 C:  30071  1 


02244 

32505 

31107 

00004 


1 

0 

0 

0 


25112  1 
55113  1 
53753  0 
12444  0 


12467  1 
00004  O 
06042  1 
02244  1 


C : 00074  1 
02551  1 
I : 77624  1 
02551  1 


04645  1 
C:  01106  1 
C:  i.6041  o 
C;  01106  1 


55112  0 
12534  0 
C:  01101  0 
12544  1 


25,2540 

25,2550 

25,2560 

25,2570 


02244  I 
05X55  0 
22002  0 
00001  0 


24736  1 26110  C 
50002  0 30000  1 
34740  0 70110  0 
30062  0 00006  1 


12520  0 02244  1 
24C02  0 00006  1 
10000  0 14550  1 
62601  I 64562  1 


05567  0 C:  0050?  0 
50000  1 30001  0 
30061  0 04512  0 
04512  0 C:  64420  O 


06011  I 
52062  1 
66161  1 
00001  0 


25,26C0 
25,  2610 
25,2620 
25,  2630 


04560  0 
02202  0 
12623  0 
12637  0 


62603  0 12575  0 
15221  0 C : 00062  0 
12623  0 12640  0 
42645  0 00006  1 


34741  1 
40110  0 
03012  1 


4C110  0 74736  0 10000  0 
70110  0 10000  0 1 2634  0 
74742  0 10000  0 13551  1 
05516  0 C:  00271  0 13565  0 


02613  1 
10110  0 
11113  1 
55113  1 


25,2640  37717  1 

25,2650  53107  1 

2 5,  2660  C : 01767  C 

25,2670  C:  47673  0 


05105  0 
06042  1 
I : 63372  1 
C:  14041  1 


C : 02646  1 
l:  77201  1 
C:  01761  0 
C:  OHIO  0 


C:  52067  1 
C:  00001  0 
l:  53361  0 
I : 41434  1 


C : CllOl  C 
C:  13101  0 
C:  21577  1 


C;  20002  1 
I : 74214  0 
l:  45056  0 
I ; 65356  1 


00006  1 
C : 00311  1 
C:  4754J  1 
I : 41546  n 


30036  1 
C:  52671  0 
I : 77624  1 
I;  65205  0 


25,2  7C0 
25,2710 
25,2720 
25,2730 


C:  I 

C:  00007  0 
55354  0 


C : 00045  0 
I:  71406  0 
C:  )00C1  0 
40110  0 


I : 44205  0 
I : 73525  1 
l:  55552  0 
74740  1 


C:  00001  0 
1 : 41206  0 
l:  7744]  0 
00006  } 


I : 77626  0 
C:  00003  1 
C:  Cn041  1 
12737  1 


C : 76667  1 
I : 65352  0 
40154  0 
31107  C 


I : 47135  0 
C:  00005  I 
00006  1 
12740  1 


C : 01107  0 
I : 41325  0 
73075  1 
41107  1 


25,2740  00006  1 
25,2750  I : 65276  1 
25,2760  C:  47675  0 
25,2770  12772  0 


73075  1 55355  1 
00001  0 I : 72405  0 
77441  0 C : 03101  0 
34753  1 54155  1 


06042  1 
C:  00005  1 
00006  1 
10110  0 


I ; 41345  0 
I : 43066  0 
43077  0 
12777  0 


C:  00003  1 
C : 00311  1 
20  155  1 
12777  0 


C:  P0O05  I 
C : 52761  0 
10154  0 
13027  0 


I:  65352  0 
I : 77624  1 
34755  1 
10155  1 


gap:  ASSEf^eLE  REVISION  131  OF  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-0Q1 
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OCTAL  LISTING  FCH  PARAGRAPH  H 1^6.  VsITH  FAPITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSEO  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C  (CONSTANTS) 


2 5,3000 
25.3010 
25,3020 
2 5,3030 


1 

1 

D 

1 


A007A 

00006 

05516 

00006 


0 

1 

C 


c 


7A7A7 
02033 
: OOOAl 
13051 


0 

0 

1 

1 


10000  0 
10000  0 
AA752  1 
060A2  1 


13015  1 3A736  1 00006  1 

13027  0 AA7A2  0 70110  0 

00006  1 03012  1 15155  1 

1:  74375  C C:  OllOl  0 C:  01767  0 


05012  1 
00004  0 
30076  0 


25,3040 

25,3050 

25,3060 

25,3070 


74375  0 
77776  1 
00006  1 
05122  0 


01761  0 
>0004  0 
15155  1 
04616  1 


C:  13101  0 I:  53362  0 
40110  0 74741  0 

11456  0 n3C73  0 


C : 50732 


55A56  0 


I:  77656  1 C:  15101  0 
lOOOO  0 02317  0 

06032  0 C : 52613  I 

05155  0 C:  21122  0 


00045  0 C:  01767  0 
30076  0 74740  1 
C0003  1 10067  1 
r7777  1 C:  33005  1 


25,3100 
25,3110 
25  ,3120 
25,3130 


00310  0 
03123  1 
51104  0 
10000  0 


C:  00000  1 
C:  00014  1 
13104  0 
55110  I 


03122  0 C:  00017  1 
03122  0 C:  00012  1 
34753  I 00004  0 
64753  1 55077  1 


03123  1 C : 0001 6 0 
03122  0 C:  0001)  1 
55104  1 00006  1 
33156  0 00006  1 


03123  1 C:  00015  0 
551C4  1 34756  1 
74751  1 53105  0 
02033  0 55112  0 


25,3140 
25,31  50 
25,3160 
25,3170 


43103  1 
30025  0 
04007  1 
00006  1 


30006  1 
21105  0 
54016  1 
02U13  1 


00006  1 
55332  0 


50002  0 
54001  1 
22012  1 
00006  1 


3O000  1 
53101  1 
00006  1 
13200  1 


04674  0 
12377  1 
31454  0 
30046  0 


36000  I 
00230  0 
53272  0 
51332  1 


00006  1 
00006  1 
34757  0 
55327  1 


25,3200 

25,3210 

25,3220 

25,3230 


11077  I 
00006  1 
44753  0 
13277  1 


13223  0 13206  1 
13220  0 40077  0 
55077  1 03563  1 
03365  1 36250  0 


05567  0 
74743  1 
55077  1 
00006  1 


''0520  0 
00006  1 
34751  0 
06013  0 


05270  I 
J3220  0 
00006  1 
76250  1 


30JC7  ) 
05567  O 
020)3  1 
00006  1 


74735  0 
00521  ), 
00006  1 
13273  0 


25,3240 
25,3250 
25, 3260 
25,3270 


34733  1 
34744  I 
54110  0 
04674  0 


70046  1 
)3425  1 
03612  1 
36000  1 


62000  0 
11110  1 
03556  1 
C5270  1 


54001  1 
03263  0 
55110  1 
3A747  1 


30046  0 
44753  0 
11077  1 
54061  1 


60000  I 
55077  1 
13267  0 
34743  0 


74753  0 
A0n61  ^ 
1344A  ) 
03321  I 


52064  1 
70110  0 
34750  1 
34741  1 


25,33C0 
25, 3310 
25,3320 
25,3330 


70110  0 
54061  1 
34751  0 
lOOOO  0 


mono  0 

34753  1 
54001  1 
13351  0 


13220  0 
00006  1 
00006  1 
34733  1 


40110 

02013 

02033 

70046 


74745  1 10000  0 
54002  1 lOOOO  0 
*^6001  0 70110  0 
54064  1 30nA6  O 


00006  1 
fOOOr  1 


06001  0 
74753  0 


25,3340 
25,3350 
25, 3360 
25,3370 


54063  0 
03254  1 
02033  0 
00002  0 


10002  1 
22110  1 
55112  0 
43402  0 


13403  1 00006  1 
64753  1 00006  1 
05504  0 C:  00120  1 
70110  0 54C01  I 


42002  0 20064  1 
06001  0 54110  0 
13220  0 40101  0 
33402  1 00006  1 


30061  0 03426  1 
33156  0 00006  I 
74741  0 10000  0 
02033  0 60001  0 


gap:  assemble  REVISION  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-091  17:53  CECo  19,1969  PAGE  1670 
OCTAL  LISTING  FOR  PARAGRAPH  l^f?,  UlTF  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3”  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSG  MARKED  "1"  (INTERPRETIVE  OPEPATTR  WORDS)  OR  "C"  (CONSTANTS) 


25,3<^00 
25, 3410 
25,3420 
25,3430 

25,3440 
25,3450 
25,3460 
25,  3470 

25,3500 
25,3510 
25  ,3520 
25,3530 

25, 354C 
25,3550 
25,3560 
25,3570 

25,3600 
25,  3610 
25,3620 
25,3630 

25,3640 

25,3650 

25,3660 

25,3670 

25,37CC 
25,  3710 
25,3720 
25,3730 


54110  3 
10000  0 
00006  1 
54001  1 

03264  1 
52064  1 
34745  0 
33530  1 

34745  0 
00006  1 
35000  I 
C ; 01 130  1 

13547  0 
C:  21051  0 
34752  0 
I:  45345  1 

C:  13602  1 
54110  0 
54065  0 
50065  I 

50065  1 
' 54001  1 
C : 14027  I 
I : 63325  0 

1 : 77772  0 
C;  00007  0 
C:  14033  1 
C : 34025  1 


03556  1 
13420  0 
30064  C 
40061  1 

52064  1 
53101  1 
00U06  1 
05203  0 

00006  I 
03012  1 
05224  0 
03454  1 


35016 
34745 
04635 
C:  01767 


C:  OOOni  0 
15261  0 
34747  1 
74753  0 

44753  0 
34744  1 
C:  onoil  i 
C:  00041  1 

C:  24041  I 
I : 74346  0 
C:  00007  0 
C:  00051  0 


21101  1 
03612  1 
02033  0 
C : C3526  0 

02033  0 
13565  0 
44737  1 
04616  I 

54003  0 
70110  0 
C:  17656  1 
C:  13603  0 

C:  26467  0 
44747  0 
54001  1 
10000  0 

70107  0 
13624  0 
I ; 76405  1 
C:  00033  1 

I : 63361  0 
C:  OOOll  I 
I : 74356  1 
I ; 54345  1 


lOCOl  1 
20001  1 
20001  1 
6000]  0 

00002  0 
13206  1 
00006  1 
C ; 52067  1 

00006  1 
34753  1 
00006  1 
177.15  0 


C: 


34733  1 
10000  0 
44755  0 
I : 77644  1 

C:  00000  I 
60061  0 
34747  1 
14570  0 

54107  0 
C:  14033  1 
C:  00043  0 
I : 63361  0 

C:  14003  1 
1 : 73525  I 
l:  71525  0 
C:  00007  0 


13406  1 
20001  1 
13345  1 
57112  1 

40061  1 
00004  0 
13513  1 
02377  0 

13520  1 
05203  0 
03012  1 
C3536  1 

55427  0 
13560  0 
54332  1 
C:  53577  1 

34735  1 
10000  0 
70110  0 
00006  1 

30001  0 
C : 00027  1 
C:  14031  0 
C;  14003  1 

C:  00033  1 
C:  00007  0 
C : 00007  0 
C:  20617  0 


13346  1 
20001  1 
54061  1 
70061  1 

70  no  0 
40110  0 
34737  0 
55077  1 

11077  1 
C:  03560  I 
13560  0 
13547  0 

44736  0 
13565  0 
34752  0 
I : 43535  0 

02252  0 
44753  0 

loono  0 

22066  1 

13634  1 
C : 14007  n 
C:  06524  1 
C : OOOll  1 

I : 52361  1 
I:  52363.  1 
I : 53361  0 
I:  72371  1 


31332  1 
52064  1 
00006  1 
60001  O 

60^61  0 
74746  1 
00006  1 
05221  0 

13475  0 
C:  52067  1 
34317  0 
05567  0 

554^0  0 
44755  0 
04635  0 
C:  06524  1 

44741  0 
136^6  1 
13640  1 
046C2  1 

54065  0 
I : 7640®  1 
1 : 57525  1 
1 : 53361  0 

C : 14001  O 
C:  00025  0 
C:  00025  o 
C:  01707  O 


74751  1 
13346  1 
02033  0 
10000  0 

54110  0 
26110  0 
05012  1 
C:  00144  0 

44737  1 
C2377  0 
13475  0 
C:  00523  0 

04635  0 
54332  1 
C : 17653  1 
I:  43535  0 

70110  0 
14570  0 
30107  1 
00066  1 

34751  0 
C:  00041  1 
C:  00043  0 
C:  14001  0 

I ; 65372  I 
l:  77772  0 
I : 57572  C 
C : 0015  5 0 


25,3740 
25,3750 
25,3760 
25  ,3770 


C:  03760  0 


C:  00020  0 
C;  OP013  0 
CKSM  25113  0 


GAP 
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OCTAL  LISTING  FOR  PARAGRAPH  U 150,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


26,2000 

26,2010 

26,2020 

26,2030 


C:  17775  1 
C : 77777  0 
C;  37116  0 
32117  I 


C:  ■>2052  1 
C : 77767  1 
C:  32631  I 
04616  1 


C:  00333  1 
C:  37436  1 
C4616  1 
C:  20477  1 


C:  10374  0 
C:  01614  0 
C:  11.233  0 
05472  0 


C : 77665  1 C : 42175  1 

C : 32417  1 C : 32011  0 

36250  f 55050  1 

02C36  0 02030  0 


C:  22211  0 C:  00636  1 

C : 02052  7 C : 35552  0 

34753  1 55051  0 

P6042  ! 1 : 43234  0 


26,2040 
26,2050 
26,2060 
26,  2070 


C : 
C: 


C ; 
I : 


21574  I 
02205  1 
21727  0 
77775  I 


C : 
C: 


C: 
C : 


14122  0 
34041  0 
03773  1 
06522  1 


02205  1 
27077  1 
77776  1 
37765  I 


C:  34041  0 C:  27065  7 

I:  52375  1 C:  02207  0 

41051  0 64753  1 


I:  77775  1 
C : 00001  0 
00006  1 


C:  0000!  0 
1 : 47121  n 
12113  1 


C:  16207  0 
C:  01734  0 
06042  1 


C:  56040  0 


00322  7 I : 77776  1 


04616  1 C:  54272  I 


26,2100 

26,2110 

26,2120 

26,2130 


32120  0 
04616  I 
C:  01422  I 
12136  0 


C : 
C: 


04616 

54123 

00000 

06042 


1 

0 

1 

1 


C 

C 

I 


20477  1 
15472  I 
13560  0 
77624  1 


05472 

06042 

04645 

5o040 


0 

1 

1 

0 


02106  1 
1 : 52175  C 
55163  0 
C:  C0322  1 


02036  0 
C:  06516  0 
34746  0 
I : 77776  1 


05516  0 C:  00124  0 

C : 5407?  0 C:  01014  0 

70101  0 10000  0 

05504  0 C:  00013  0 


26,2140 
26,21 50 
26, 2160 
26,2170 


05516  0 C;  OOOOO  1 
02154  0 ■>2201  0 
06042  1 I : 77624  1 
10000  0 12144  0 


C4616  1 C:  54272  1 
02205  1 05155*  0 
56040  0 C:  00322  1 
32260  1 04616  1 


32260  1 
34746  0 
I:  77776  1 
C:  20452  0 


04616  1 
7010)  0 
04616  1 
02205  1 


20711  1 

lonoo  0 

54272  1 
04616  1 


C2246  0 
12165  0 
02261  0 


C : 
C : 


26,2200 

26,2210 

26,2220 

26,223C 


12144  0 
0OCO2  0 
34745  0 
12243  1 


30002  0 
05464  1 
34745  0 


00124  0 
54156  1 
00156  0 
70074  0 


31163  I 
46250  1 
37717  1 
10000  0 


04640  I 
60133  0 
05146  1 
C2240  0 


40100  1 
55054  0 
34747  I 
05353  1 


74740  1 
05353  1 
70075  1 


lOOOO  0 
00132  1 
lOOOO  0 
05155  0 


26,2240 

26,2250 

26,2260 

26,2270 


01422  1 
74736  0 


A0C72  0 
30100  0 
00006  X 
00002  0 


05155  0 
7474C  1 
00030  ) 
04645  1 


05504  0 
00006  1 
74742  0 
55337  0 


00077  1 
16001  1 
lOOOO  0 
30321  1 


01054  1 
06025  0 
00002  0 
54771  1 


00006  1 
30322  1 


00006  1 
C:  00203  0 
00031  0 
54765  1 


26,2300 
26,  2310 
26,2320 
26,2330 


30323  0 
C:  00746  I 
C:  34021  0 
I : 65205  0 


54767  0 
1 : 57552  1 
C:  26506  0 
C : 0073  6 0 


06042  1 
I : 65336  1 
I ; 41325  0 
C:  00750  0 


45001  1 
00740  1 
0074C  1 
72405  0 


OCOOl  0 C : 47545  0 
14023  0 C:  00746  1 
00742  0 I : 41512  1 
00744  0 I : 45425  0 


41345  0 C:  00742  0 
72405  0 C:  00750  0 
65205  0 C:  00744  0 
63756  0 C : 00736  0 


26,2340  l:  72405 
26,2350  C:  02345 
26,2360  C : 03765 
26,2370  l:  77775 


0 C:  00750  0 I : 

1 I : 77776  1 

0 1 : 40C56  C C: 

1 C:  0327C  1 C: 


45415  0 C:  43754  0 
31337  1 04640  1 
54376  1 C:  17270  I 
17270  1 C;  06522  1 


C:  26506  0 I : 55525  0 
I : 47375  0 C : 03254  1 
C;  00045  0 l:  50025  O 
I : 77650  I C : 56072  1 


I:  77634  0 C:  21621  1 
f : 06522  1 I : 47256  0 
C : 14415  1 C : 54376  1 
I : 52175  n C:  06522  1 


GAP 
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OCTAL  LISTING  FDR  PARAGRAPH  tt  151,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  ''3  •'  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  DR  "C"  (CONSTANTS) 


26,2400  C:  54372  0 
26,2410  C : 21616  0 
26,2420  I : 43014  0 
26,2430  I : 45014  0 


C:  15555  0 
C ; 03070  0 
C:  04307  1 
C:  TIBTA 


C:  35172  0 
C:  34344  0 
C : 5570C  0 
C:  26643  1 


C:  14113  1 
C:  00000  1 
C:  02466  1 
l:  77624  1 


C : 36326  0 
C:  00001  0 
I : 4501^  0 
C : 55242  0 


C : 07701  O 
C:  00000  1 
C:  00747  0 
I : 77624  1 


C:  3570?  0 
I : 77624  1 
C:  54460  1 
C : 11210  1 


C:  04343  1 
C : 11210  1 
C:  27410  1 
1 : 77624  1 


26,2440 
26  ,2450 
26,246C 
26,2470 


C:  27410  I 
I : 43014  0 
I : 77624  1 
C:  11210  1 


I : 43014  0 
C:  01474  1 
C:  27^10  I 
I 77624  1 


C:  01676  1 
C : 01673  1 
I : 45014  0 
C : 27410  1 


C:  02756  1 
I t 45014  0 
C:  01474  1 
I : 43014  0 


C:  54450  1 
C : C1472  1 
C:  26643  1 
C:  01676  1 


I : 43014  O 
C : 55242  0 
I : 77624  1 
C:  02756  1 


C : 01476  0 
I : 77650  1 
C : 55242  0 
C:  54502  1 


C:  01475  0 
C:  54510  1 
I : 77624  1 
I:  43014  0 


26,2500 

26,2510 

26,2520 

26,2530 


C : 01476  0 
I : 45014  0 
55745  1 
I : 77714  0 


C:  01475  0 
C:  02716  0 
04616  1 
C:  00002  0 


I:  43014  0 
C:  54514  0 
C:  46123  0 
1 : 45134  0 


C:  01673  1 
C:  55251  1 
06042  1 
C:  03720  1 


C : 01674  0 
I : 77414  0 
I : 43174  1 
C : 11210  1 


I : 45014  C 
C:  04307  1 
C:  00000  1 
I ; 66170  1 


C:  0147?  1 
C:  54524  0 
C:  04304  1 
C : 00001  0 


C:  55242  0 
34755  1 
C:  54532  1 
C:  01356  0 


26,2540 

26,2550 

26,2560 

26,2570 


l:  54335 
I:  57414 
I : 44257 
C:  00047 


C:  C1775  0 
C:  00707  1 
C:  56174  0 
I:  53605  1 


C : 20635  0 1 : 77634  0 
C:  54553  0 C:  27525  0 
C:  03757  1 I;  77657  0 
C:  01771  1 C:  20577  0 


21634  0 
C6524  I 
56574  1 
53657  0 


C: 
C : 
C : 
C: 


00025  0 I : 77624  1 
03533  1 C:  17541  1 
17547  1 C : 00045  0 
20601  1 C:  57176  0 


C:  55333  1 
C:  00045  0 
I : 63501  0 
I : 47057  0 


26,2600 

26,2610 

26,2620 

26,2630 


C:  57176  0 
C : C2707  0 
C:  55333  1 
I : 77761  I 


C;  21634  0 
I : 77624  1 
I:  5372*^  1 
C:  00045  0 


Cs  02707  0 
C:  55401  1 
C : 00045  0 
C:  27533  1 


I;  76276  0 
I : 45131  0 
C:  57202  P 
C:  01653  0 


C:  00025  0 
C:  01357  1 
C : 24045  0 
I:  53257  1 


I : 72240  1 
C:  00002  0 
I : 57414  1 
C : 57170  0 


C : 54611  o 
C:  11210  1 
C:  00707  1 
C : 01667  1 


C:  00025  0 
I : 77624  1 
C:  54630  0 
I ; 53715  1 


26,2640 

26,2650 

26,2660 

26,2670 


C:  01601  1 
C:  56174  0 
I : 50025  0 
C:  03751  1 


C : 5717G  0 
I:  57316  1 
C:  02707  0 
C;  56577  1 


L : 'J  1 / / 3 u 
C : 54666  0 
I ; 77625  0 


C:  01615  1 
C;  02707  C 
I;  77745  1 
I : 77675  0 


I : 50315  0 
I : 54335  0 
C:  00031  0 
C:  00045  0 


C:  Onnoi  0 

C : 01 776  0 
C:  02707  0 
C:  27547  1 


r:  00007  0 
C:  20621  o 
I : 60545  0 
C;  00001  0 


I;  53606  1 
C:  0O031  0 
I : 53725  1 
I:  47235  0 


26,2700 

26,2710 

26,2720 

26,2730 


I : 57414  1 
C:  27541  1 
C:  00027  I 
C : 00024  1 


C:  00707  1 
C:  03525  0 
I:  50025  0 
I ; 53775  1 


54703 

60246 

00025 

03525 


1 

0 

0 


l:  77657  0 
C:  00025  0 
C:  54727  1 
C:  20201  0 


C:  57200  1 C:  27525  0 C:  06524  1 
I:  51575  1 C;  03533  1 I:  71301  0 
I:  52150  1 C:  00026  0 C:  54731  0 
C:  27525  0 C:  03533  1 I:  77657  0 


C:  0002  5 0 
C:  00027  1 
1:  77750  0 
C:  20201  0 


26,2740 
26,2750 
26, 2760 
26,2770 


C:  L7533  1 
I : 41316  0 
1 : 77414  c 
54767  0 


C:  03547  1 
C:  02707  0 
C;  04307  I 
21461  0 


77657 

47012 

55176 

54771 


0 

1 

1 

1 


C : 20201  0 
C:  21634  0 
33332  0 
06042  1 


C:  03547  1 
C : 367C7  1 
54006  0 
I : 45175  0 


l:  53745  1 C:  00045  o C:  20200  l 

C:  55401  1 I:  77624  1 C:  11210  1 

31457  0 54765  I . 31460  I 

C:  06522  1 C:  47666  1 I:  76505  0 
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(INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


26,3000 

26,3010 

26,3020 

26,3030 


Q1734 

06516 

01357 

03713 


0 

0 

1 

1 


C:  27677  I 
I : 7762A  1 
C:  00003  I 
C:  34021  0 


C : 03724  0 
C:  26506  0 


I:  77624  1 
I:  76505  0 
I : 72441  0 
l:  41221  0 


C : 
C: 
C: 
C : 


47675  0 I : 76505  0 
01734  0 C : 37713  0 
03677  1 C:  24023  0 
C3736  C C : 15441  1 


C;  01734 
C;  55361 
C:  ('3724 
I : 4)472 


C:  27705  0 
I : 77331  0 
I : 72441  0 
l:  52545  1 


26, 3040 
26,30  50 
26,3060 
26,3070 


C:  C1701  0 
I:  76^35  1 
C:  03533  I 
C:  02Q11  0 


I : 44257  1 
C:  C3705  0 
C:  17541  1 
I:  41215  ) 


C:  56176  1 
I : 77656  1 
C:  03722  0 
C : 15436  1 


I : 
I : 


C: 


53605  1 
57414  1 
53657  0 
03722  0 


C:  03722  0 C:  21601  0 

C : 00747  o f ; 55056  1 

C:  20577  0 C : 56176  1 

I : 41257  1 C:  21601  0 


C : 27547  1 C:  03724  0 
C:  27525  0 C:  06524  1 
C : 03541  ) 1 : 77735  0 
C:  03722  0 I : 53657  0 


26,3100  C : 20577  0 
26,3110  C:  11210  1 
26,3120  C;  03705  0 
26,3130  C:  03533  1 


C:  57176  0 
I : 77624  1 
I : 76435  1 
C:  17541  1 


l:  47057  0 
C:  55361  0 
C : 03724  0 
C:  03722  0 


C:  57176  0 
I:  77331  0 
I : 57414  1 
I:  53657  0 


C : 21634  0 
C:  01357  1 
C:  00747  0 
C:  20577  0 


C:  36707  1 
C:  00004  0 
C:  55126  1 
C : 56176  1 


C:  55401  1 
C : 03724  0 
C:  27525  f' 
C:  03543 


l:  77624  1 
I : 76435  1 
C:  06524  1 
1 : 77735  0 


26,3140 

26,3150 

26,3160 

26,3170 


C:  02012  0 
C:  20577  0 
C:  03734  1 
C:  03722  0 


I : 4U15  1 
C:  57176  0 
l:  56405  0 
C;  21601  0 


C : 15436  1 
I:  47057  C 
C:  15441  I 
C:  37547  C 


C:  03722  0 
C:  57176  0 
l:  52525  1 
C:  55401  1 


l:  41257  1 
C : 21634  0 
C:  01703  1 
I : 77624  1 


C:  21601  0 
C : 16707  0 
I:  44257  ) 
C:  11210  1 


C:  C3722  0 
C:  03732  1 
C:  56176  1 
I:  7765C  1 


I : 53657  0 
I;  44336  1 
I : 53605  1 
C:  50562  0 


26,3200 

26,221C 

26,3220 

26,3230 


I : 77624  1 
C : 11210  1 
C:  01675  1 
C:  54514  0 


Ct  27410  1 
I : 45C14  0 
C:  01476  0 
I:  77624  1 


I : 43014  0 
C:  02666  0 
I : 43014  0 
C:  55251  1 


C:  01472  1 
C:  27410  1 
C : 01474  1 
1:  45014  0 


C:  CI674  0 
l:  46145  0 
C:  01673  1 
C:  C1474  1 


I : 77624  1 
C:  03463  0 
I : 77624  1 
C : 26643  1 


C:  5524?  n 
C : 55231  1 
C:  55242  0 
I : 77624  1 


I ; 77624  1 
I : 4301  4 0 
l:  77650  1 
C:  55242  0 


26, 3240 
26,3250 
26, 326C 
26,3270 


I:  77650  1 
C:  03675  0 
55400  0 
C:  55274  0 


C : 54514  0 
I:  77776  1 
11256  0 
C:  02001  1 


71220  L C:  03675  0 
33331  0 54C06  0 
03255  0 33332  0 
77650  1 C:  55276  1 


C 


I 


: 03755  0 
33437  1 
54006  0 
; 77735  0 


C: 

C: 


3404) 

55256 

06042 

02007 


0 

0 

1 

) 


C:  27) 33  0 
34755  1 
1 : 67214  1 
I:  7766)  0 


I:  77650  1 
51256  1 
C:  04307  1 
C:  206C6  0 


26,3300 

26,3310 

26,3320 

26,3330 


C:  02401  0 
C:  55313  0 
C;  02621  0 
I : 77616  0 


C:  02411  1 
I : 77735  0 
I:  77735  0 
C:  54065  0 


C;  02421  1 
C:  02010  1 
C:  02004  1 
C:  54067  1 


l;  67214  1 
C:  02511  0 
C:  02631  1 
l;  77201  1 


C:  04307  1 
C:  02521  0 
I : 66214  0 
C:  00001  0 


C 

C 

C 

C 


: 55311  I 
: 02531  1 
: 02476  0 
: 0)645  1 


C : 02002  1 I : 77650  1 
I : 77735  0 C : 02003  0 
C:  03463  0 C:  00000  1 
I : 77754  1 C : 03720  1 


26,3340 
26,3350 
26, 3360 
26,3370 


77616  0 
44316  0 


C: 

C: 


I : 
C: 


45020  1 
06514  1 


t:  l / u 
C:  03675  0 
1 : 41366  1 


1 : 53715  I 
C:  00045  0 
C:  55333  1 
C:  00045  0 


C:  01573  1 
I : 77657  0 
I:  50276  1 
I : 60352  0 


C:  57165  1 
C : 20201  0 
C:  03705  0 
C : 000^7  1 


I:  52255  1 
C:  24045  0 
I : 41572  I 
C:  03722  0 


C:  01607  1 
C:  03724  0 
C:  03732  1 
l:  77650  1 
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26  ,3400 
26,3410 
26,3420 
26,3430 


C:  03675  0 
C : 5617^  0 
C;  20613  I 
C:  50566  1 


I:  45020  1 
C:  24317  I 
I : 50025  C 
l:  77624  1 


C:  03675  0 
C:  02665  0 
C:  00315  C 
C:  46745  0 


C:  46533  0 
l:  5 3646  0 
C:  50566  1 
l:  77650  1 


I : 51575  1 
C:  56174  0 
I : 45335  0 
C : 03675  0 


C : 02673  1 
C:  00315  0 
C:  02006  0 
C : 00103  n 


I : 53754  1 
I : 54335  0 
C:  C0317  1 
C : 03370  0 


C:  03720  1 
C:  02005  0 
I : 77640  0 
C;  00241  0 


26,3440 
26,3450 
26,3460 
26,  3470 


00003  1 
15715  0 


C:  36652  0 
00006  1 
40110  0 
C;  34041  0 


74736  0 
27^77  7 


55736  0 
33713  1 
00006  1 
77775  1 


34736 

00004 

15155 

oonoi 


1 

0 

I 

0 


00006  1 
05203  0 
06042  1 
27676  0 


05012  1 
C:  03643  0 
1 : 43234  0 
C:  00007  0 


34736  1 
C:  54067  1 
C : 21574  1 
C:  17740  1 


26,3500 

26,3510 

26,3520 

26,3530 


C : 00015  0 
C : 00C07  0 
l:  7652J  0 
C ; 55623  0 


34041  0 
47256  0 
01734  0 
77775  1 


C:  27065  1 
C:  00001  0 
C:  03740  1 
C:  03720  I 


53135  0 
24015  0 


C : 00001  0 
C:  03704  1 
C:  03737  1 
C:  03726  1 


C : 03676  0 
I : 52375  ) 
C:  55636  1 
C : 00023  0 


I : 77656  1 
C : 00007  O 
I;  53025  0 
1 : 77761  1 


27712 

03740 

15711 

15705 


26,3540 
26  ,3550 
26,3560 
26,3570 


C:  27720  1 
I:  77761  1 
C;  03726  1 
C:  03740  1 


C:  C0C15  0 
C:  15705  1 
I : 53361  0 
C;  C1761  0 


I : 53361  0 
C:  27726  1 
C:  15707  0 
I : 77776  ) 


C:  06522  1 
0:  00023  0 
C:  03712  0 
00004  0 


C:  03720  1 
I : 52361  1 
I : 64256  1 
06032  0 


1 : 77656  1 
C : 06522  1 
C : 01734  0 
C:  52613  1 


C;  27720  1 
C:  03726  1 
I : 77772  0 
44735  0 


C:  00015  0 
l:  77656  1 
C : 25101  0 
70110  0 


26,3600 

26,3610 

26,3620 

26,3630 


64735  1 
00006  1 
C:  03735  0 
C:  03712  0 


54110  0 
30036  1 
l:  77776  I 
I : 53435  0 


C: 


06042  1 
53753  0 
05155  0 
03720  1 


I;  77624  1 
06042  1 
I : 47375  0 
C:  03726  1 


C : 52404  0 
l:  77624  1 
C:  03704  1 
l:  77650  1 


I : 77776  1 
C:  46041  0 
C:  03712  0 
C : 55561  0 


03675  o 
l:  655^5  o 
I:  77656  1 
I : 64375  1 


03675  0 
C:  00045  0 
C:  27720  1 
C:  03712  0 


26,3640  C:  01734  0 
26,3650  05105  0 
26,366C  13667  1 
26,3670  55733  0 


I 

C 


: 52172  1 
: 03654  0 
46245  0 
00004  0 


C : 55567  0 30074 

C:  54067  1 05261 

61736  1 00006 

06032  0 C : 52613 


1 

1 

1 

1 


74745  1 
34750  1 
13442  1 
05155  0 


00006  1 
00006  1 
25736  1 
05567  0 


1526)  0 37716  0 

02033  O 00006  1 

13444  1 33703  0 

C : 00527  1 00004  0 


26,3700 

26,3710 

26,3720 

26,373C 


06032  0 
C:  00001  0 
C:  55733  0 
I : 52105  1 


55643  0 
OOOOO  1 
77624  1 
00025  0 


05155  0 
C : 00454  1 
C:  51730  1 
C:  51716  0 


25547 

01130 

77775 

77624 


0 

1 

1 


C:  33555 
C:  OOOOO 
C:  02013 
C:  55743 


i L : 

1 I : 

1 I : 


01106  1 
00226  1 
53235  0 
77624  1 


C : 01642  0 
I : 46020  I 
C:  00001  o 
C:  15761  0 


C;  11045  0 
C : 00050  1 
C:  00001  0 
I : 76521  0 


26,3740 

26,3750 

26,3760 

26,3770 


C:  00025  0 
I : 65345  0 
C : 00023  0 
C:  06524  1 


I : 77650  1 
C:  01712  1 
I : 65356  1 
l:  41525  0 


C : 55725  1 
C:  14021  1 
C:  06524  1 
C:  06522  1 


I : 40220  0 
I:  45006  0 
I:  73525  1 
I : 77650  1 


C:  00051  0 
C:  53732  1 
C:  00023  0 
C:  00051  0 


C:  00011  1 
I : 41401  1 
l:  65276  1 
C;  03775  1 


I:  77770  1 
C : 00023  0 
C : 00023  0 
C:  03776  1 


C:  OOOOO  1 
I : 65346  0 
I : 63346  0 
CKSM  70153  1 
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27,2000  C:  10000  1 
27,2010  C:  35711  0 
27, 2020  C:  26337  1 
27,2030  C:  24775  1 


C: 
C: 
C : 
C: 


17622  0 C:  00000  1 C: 
35663  1 C:  03631  0 C: 
30010  1 C:  55340  0 C: 
30424  0 l;  40020  1 C; 


00762  1 C:  00030  1 C:  35104 
23146  0 C:  33226  1 C:  14632 
61710  0 C:  00072  1 C:  16206 
03324  1 C ; 56035  1 I : 52164 


1 C:  00016  n C:  36237  1 

0 f : 05306  1 C : 15503  0 

1 C:  00344  1 C:  24331  0 

0 C : 03245  1 C:  56046  0 


27,2040  I : 40020  1 
27,2050  I:  61375  I 
27,2060  C:  56170  1 
27,2070  C*.  30035  1 


C:  03324  1 
C:  03773  1 
C:  17270  1 
I : 65552  0 


C;  56043  0 
C:  03246  1 
C:  00045  0 
I : 77624  1 


1:  4716^  1 
1 : 77656  1 
l:  50025  0 
C:  44527  1 


C:  03245  1 
C:  00035  1 
C:  14415  1 
I ; 75160  1 


C:  44403  0 
I : 53435  0 
C : 56170  1 
C:  03245  i 


C : 3403?  1 C:  44410  1 
C:  03765  0 I:  57400  I 
I : 50375  O C:  03765  0 
C:  02230  l I : 77624  1 


27,2100 

27,2110 

27,2120 

27,2130 


C;  44312  1 
I : 51025  1 
I : 77626  0 
I : 57575  1 


l:  51545  1 
C:  14404  1 
C:  50531  0 
C:  03765  0 


C:  00007  0 
C:  56160  0 
C:  C3254  1 
C:  37270  0 


I:  50025  0 
I:  77775  I 
I : 57444  1 
C;  56137  1 


C:  14402  1 
I : 77626  0 
C:  56125  1 
1 : 77775  1 


C:  56160  0 
C:  50515  0 
I:  50035  1 
C ; (J3765  0 


I : 51545  1 
I : 77626  0 
C:  03765  O 
f : 03270  1 


C:  03765  0 
C : 50523  0 
C:  56134  1 
I : 51545  1 


27,2140 

27,2150 

27,2160 


C:  03765  0 
C:  14410  1 
I : 45160  1 
l:  50375  0 


I : 51025 
I:  77624 
C:  70000 
C:  00035 


1 

1 

1 

1 


C:  14406  0 
C:  44527  1 
C ; 44654  0 
C:  03765  0 


56147  0 
75160  1 
40234  0 
72240  1 


1:  52145  0 
C : 03245  1 
C:  21621  1 
C:  54354  3 


C:  14412  0 
C : 02230  1 
C:  00001  0 
C:  00032  0 


C:  56151  1 
I:  77624  1 
I : 7765C  1 
I:  7765C  1 


l:  49Ji2  I 
C:  03324  1 
C:  03324  3 


27,2200 
27, 221C 
27  ,2220 
27,2230 


22062  0 
45012  0 
12232  I 
52062  1 


2400  2 0 
70063  0 
44747  0 
52006  0 


00006  1 
54063  0 
60001  0 
45012  0 


22061  0 
22007  0 
00006  I 
50001  0 


54063  0 
50001  0 
12230  0 
71411  0 


75012  0 
41410  1 
24001  0 
00006  3 


64741  1 
60064  0 
24001  0 
60063  1 


54064  1 
00006  1 
12214  n 
00006  1 


27, 2240 
27,2250 
27,2260 
27,2270 


12242  0 
C;  03442  0 
C : 02331  1 
I : 56205  0 


12221  0 
C:  03763  0 
I : 53435  0 
C:  16412  1 


34353  0 
I:  77614  1 
C:  03642  1 
I : 41205  0 


50003.  0 
C:  01347  0 
C;  27673  0 
C:  03664  0 


35410  1 
C:  56336  1 
C:  03642  1 
C:  01244  I 


12230  0 
I : 77201  1 
C:  02323  1 
1 : 77671  1 


1:  73220  1 
C:  00003  0 
I : 65236  0 
C:  03735  0 


C:  03632  0 
C:  03650  1 
C : 00045  0 
C:  24017  1 


27,2300 

27,2310 

27,2320 

27,2330 


C:  03656  1 
I : 63356  I 
I:  74346  0 
C:  27673  0 


I:  74241  0 
C:  00007  0 
I:  74255  0 
C:  03701  1 


C;  03673  0 
I : 53435  0 
C:  C3701  1 
I : 45006  0 


03673 

03673 

00045 

3.5741 


0 

0 

0 

1 


41552 

45561 

53352 

77650 


C 

1 

0 

1 


I : 65245  1 
C:  50076  0 
I : 77626  0 
C : 03632  0 


C : 03656  1 
I:  65256  0 
C;  74076  0 
I : 77745  1 


C:  00017  1 
C:  00017  I 
I:  77656  1 
C:  03442  0 


27,2340 

27,2350 

27,2360 


C:  00041  1 
C:  03642  1 
C:  06524  1 


I : 
C: 
C: 


77621 

02323 

16406 


1 

1 

1 


C : C3631  0 
l:  77656  1 
I : 43214  1 


C:  37452  0 
C:  27537  0 
C:  03745  1 


C:  27056  1 
C : 00007  0 
C:  56366  1 


I;  40375  1 
C : 03650  1 
C:  16410  0 


C:  OOOOl  0 
C;  02331  1 
1 : 66006  1 


C:  OOOOl  0 
I:  65345  0 
C:  02776  0 


27,2370 


45134  0 


02777  1 C : 22COO 


41575 


02366  0 C:  03701  i i;  77656  1 C:  17673  0 
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OCTAL  LISTING  FOR  PARAGRAPH  « 155,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I" 


(INTERPRETIVE  OPERATOR  WORDS)  OR 


"C"  (CONSTANTS) 


27,2400 

27,2410 

27,2420 

27,2430 


00045 

34344 

06522 

56441 


0 

0 

1 

0 


C:  37664  1 
C:  00024  1 
C:  27765  0 
I:  45575  1 


C:  15741  1 
C:  13714  1 
C : 03673  0 
C:  74162  1 


C: 

I: 


03607  0 
76435  1 


C 

C 


C 


03632 

03673 

53435 

03607 


0 

0 

0 

O 


C : 00707 
I ; 76521 
C:  03642 
I : 77676 


1 

0 

1 

r 


C:  03434  1 
C : 01734  0 
1 : 461  25  0 
C : 0362?  0 


C:  03070  0 
C:  27773  1 
C:  00045  0 
I;  43414  1 


27,2440 

27,2450 

27,2460 

27,2470 


C ; 
C: 


C: 


01073  1 
01347  0 
03253  0 
03527  1 


I : 47375  0 
C;  56731  1 
I : 51575  I 
I : 57414  1 


C:  03607  0 
1 : 52375  1 
C:  03707  1 
C : 01344  0 


C:  03664  0 
C:  00052  P 


41456  0 
P3527  1 
77201  1 
77656  1 


I:  77650  I 
C:  03707  1 
C ; OOOOl  0 
I : 41441  0 


C:  56431  1 
I : 76521  0 
C;  03707  1 
C:  03707  1 


I : 
C: 


I : 


27701  1 
56244  0 


27,2500 

27,2510 

27,2520 

27,2530 


C:  56526  0 
C : 16535  0 
C:  16537  1 
C:  01407  0 


C:  03743  1 
C:  03741  0 
C:  61100  \ 
06042  1 


I : 41215  1 
C:  03517  I 
! : 43C14  0 
l:  77650  1 


C:  06522  1 
l:  77615  0 
C:  01C66  0 
C:  61100  1 


I : 56261  1 
C:  01234  0 
C:  01224  1 
C:  77715  1 


C:  20613  1 
C : 17442  0 
C:  00052  O 
C : 77777  0 


C:  00065  0 
C:  03517  1 
I;  77776  I 
C : 0^000  1 


l:  43205  1 
I : 51025  1 
05567  0 
C;  00620  0 


27,2540 

27,2550 

27,2560 

27^2570 


06042  I 
34021  0 
56345  0 
16700  1 


I : 43101  1 
l:  72471  0 
C:  16101  1 
l:  65221  0 


C : OOOOl  0 
C:  01244  1 
C:  01244  1 
C:  C1244  1 


C:  01266  1 
I : 41421  0 
I:  50021  1 
C:  03735  0 


1 : 51575  1 
I : 43014  0 
C:  COOOl  0 
I : 60405  0 


C:  03701  1 
C:  05342  1 
C : 56610  0 
C:  1670?  0 


I:  41325  0 
C:  56626  0 
I ; 41325  0 
1:  41471  n 


C:  21006  1 
C:  02463  1 
C:  03737  1 
I : 51021  0 


27,26C0 

27,261C 

27,2620 

27,2630 


C:  00003  1 
I : 41345  1 
07262  0 
C:  01244  I 


56626 
01244 
30154 
43  006 


r 

I 

1 

0 


I:  55345  0 
I : 41542  1 
56001  0 
C : 05302  0 


I:  43205  1 
I;  56215  1 
34755  1 
C:  56671  1 


C;  16702  C C5  16676  1 I:  77650  1 C:  56616  0 

C:  16003  0 C:  16005  0 I:  77414  0 C:  01066  0 

53517  1 12650  1 I:  41345  0 C:  OOOOl  0 

I:  43071  0 C:  16007  1 C:  02663  0 I:  41400  0 


27,2640 

27,2650 

27,2660 

27,2670 


56653  1 I : 51025  1 
05353  1 C:  0000?  1 
12650  1 I : 51025  1 
12620  0 I:  62471  1 


C : 16704  0 
05155  0 
C:  16706  1 
C:  34007  1 


C:  56661  0 
I : 40545  1 
C:  56666  1 
I : 77650  1 


!:  52015  1 
I : 77671  1 
I:  77614  1 
C : 56667  0 


C:  16704  0 
C : 16011  0 
C:  02463  1 
C:  00144  n 


C : 56616  0 
r:  03517  I 
I ; 77745  1 

r:  00000  1 


1 : f f ( (t  1 
1 : 77776  1 
C:  01274  1 


27,2700 

27,2710 

27,2720 

27,2730 


C:  00000  1 
I:  77601  0 
C:  03745  I 
15155  1 


C:  00764  1 
C:  OOOOl  0 
C:  56723  1 
I:  51575  1 


C:  00000  1 
I : 71214  0 
C:  16410  0 
C:  01220  0 


C:  01130  1 
C:  01072  0 
I : 45C06  C 
l:  53744  C 


c:  noooo  1 

C:  06524  1 
C:  22002  0 
C:  C2777  ] 


C : 21304  0 
I:  77725  1 
I : 77776  1 
C : 57576  1 


c ; onooo  1 

C:  16406  1 
C5353  I 
C : 277) 5 1 


06042  1 
I : 43214  1 
C:  00002  0 
C;  03444  0 


27,2740 
27,2  750 
27,2760 
27,2770 


47051 

00037 

03766 

45415 


0 

0 

0 

0 


C:  01220 
I:  41301 
C:  17725 
C:  74044 


C: 


C: 
I : 


21725  1 
00050  1 
00037  0 
41225  1 


C:  17656 
C;  03715 
I:  65342 
C:  00037 


1 

1 

1 

0 


C:  00045 
I : 57101  0 
C:  03715  1 
C:  03721  0 


l:  53674  1 
C;  00047  1 
l:  65342  1 
I : 77621  1 


C:  00046  0 
C:  00046  0 
C:  03723  1 
C:  03717  o 


C;  57576  1 
I:  77734  1 
I : 43342  0 
I:  45325  1 
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OCTAL  LISTING  FCR  PARAGRAPH  H 156,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THESE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


27,3000 

C: 

03733 

0 

C: 

03715 

1 

I : 

70501 

1 

C;  00C47 

1 

I : 

41271 

0 

C : 

03725 

1 

1 1 

53664 

0 

Ct 

00046 

0 

27,3010 

C : 

57575 

1 

I : 

77754 

1 

C: 

03766 

0 

l:  75366 

0 

Ct 

C2673 

1 

C : 

00041 

1 

1 1 

41345 

n 

C : 

03733 

0 

2 7, 30  20 

C: 

03721 

0 

I : 

77621 

1 

C : 

03717 

0 

I : 45325 

1 

C: 

03733 

0 

C; 

03723 

1 

I : 

7050J 

1 

C : 

00047 

1 

27,3030 

1 : 

41271 

0 

C: 

03725 

1 

I : 

53664 

0 

C:  00046 

n 

C : 

57575 

1 

I : 

65366 

1 

C t 

03733 

0 

I : 

56225 

1 

27,30AO 

C : 

00037 

0 

C: 

03733 

0 

I : 

41566 

1 

I:  67542 

0 

l: 

65205 

0 

C: 

17216 

1 

1 1 

56325 

0 

C t 

00037 

0 

27,3050 

C: 

03733 

0 

I : 

77600 

1 . 

C : 

57053 

0 

I : 41366 

1 

I : 

44242 

0 

I : 

65365 

1 

Ct 

02673 

1 

Ct 

17216 

1 

27,3060 

1 : 

45302 

1 

I : 

65205 

0 

c; 

^3733 

0 

C:  03733 

0 

I : 

75442 

1 

I ; 

77605 

1 

I : 

52525 

1 

Ct 

03717 

0 

27, 3070 

I : 

55366 

1 

I : 

43225 

0 

C : 

03631 

0 

C:  01234 

0 

C: 

14037 

0 

I : 

77765 

0 

C: 

00037 

n 

C t 

00037 

0 

27,3100 

I; 

77214 

0 

c; 

03705 

0 

C: 

57123 

0 

C:  03656 

1 

I : 

53451 

1 

C: 

035  37 

0 

1 1 

63361 

n 

Ct 

00037 

0 

27,3110 

C : 

03656 

1 

I : 

53455 

0 

C; 

03537 

0 

It  53361 

0 

C : 

00041 

1 

I : 

53744 

0 

C : 

02777 

1 

C t 

57177 

1 

27,3120 

C: 

02337 

1 

I : 

7765C 

1 

C : 

57166 

1 

I : 50375 

0 

C: 

03656 

1 

C: 

03537 

0 

It 

77240 

1 

Ct 

57146 

0 

27,3130 

C : 

03656 

1 

I : 

63362 

0 

C: 

03537 

0 

l:  53362 

0 

I : 

77656 

1 

1 : 

57406 

1 

I i 

75235 

1 

Ct 

02674 

0 

27,3140 

C : 

02673 

1 

I : 

74256 

c 

C : 

00037 

0 

l:  77715 

1 

I : 

77650 

1 

C: 

57113 

0 

1 1 

74575 

0 

C t 

03537 

0 

27,31 50 

I: 

74515 

0 

C: 

03656 

1 

1 ; 

53451 

1 

1 ; 77606 

1 

I : 

75235 

1 

C : 

02674 

0 

Ct 

02673 

1 

It 

74256 

0 

27,3160 

C; 

00041 

1 

I : 

77715 

1 

I : 

53361 

0 

C:  00037 

0 

I : 

7765C 

1 

C : 

57115 

0 

I t 

77651 

0 

Ct 

03553 

1 

27,3170 

C: 

02366 

0 

I : 

53135 

0 

C: 

03000 

1 

C:  57177 

1 

I : 

52175 

0 

C: 

02366 

0 

Ct 

57212 

1 

I t 

53575 

0 

27,3200 

c: 

01220 

0 

I: 

45345 

1 

C: 

01234 

0 

C:  03512 

1 

I : 

•^6205 

0 

C : 

16023 

1 

C t 

00043 

0 

I : 

53361 

0 

27,3210 

C : 

03521 

1 

C : 

02366 

0 

C: 

02366 

0 

I;  77650 

1 

C: 

56455 

0 

Ct 

31103 

1 

C : 

36652 

0 

05516 

0 

27,3220 

C: 

00137 

1 

45017 

0 

00006 

1 

03012 

1 

35014 

1 

00006 

1 

05012 

1 

05221 

0 

27,3230 

C ; 

13560 

0 

45014 

0 

00006 

1 

03012 

1 

35017 

1 

00006 

1 

C5012 

1 

31402 

0 

27,3240 

05173 

1 

C : 

03260 

0 

31401 

0 

05224 

0 

44740 

1 

00006 

1 

C3012 

1 

30102 

1 

27,32  50 

74742 

0 

OC-006 

1 

13264 

0 

34737 

c 

05072 

1 

C : 

02325 

1 

Ct 

02067 

1 

05261 

1 

27,3260 

44742 

0 

00006 

1 

03012 

1 

13247 

1 

05504 

0 

C t 

00137 

1 

C5261 

1 

I t 

76521 

0 

27,3270 

C: 

01734 

0 

1 : 

7765C 

1 

C : 

47650 

1 

I : 53575 

0 

C: 

03253 

0 

I: 

77641 

1 

C: 

02146 

I : 

51025 

1 

27,3300 

C : 

02571 

0 

C: 

57310 

1 

I : 

50375 

0 

C:  02146 

0 

C : 

03537 

0 

I t 

50025 

p 

C t 

0257? 

1 

Ct 

71450 

0 

27, 33  10 

I : 

77614 

1 

C : 

04631 

1 

C : 

60722 

0 

l:  50375 

n 

C: 

03537 

r 

C t 

03720 

1 

I t 

41312 

1 

C t 

03631 

0 

27,3320 

C: 

02335 

0 

I: 

77616 

0 

00006 

1 

33360 

1 

53252 

1 

40103 

1 

74745 

1 

26103 

1 

27,3330 

34735 

1 

54107 

0 

00006 

1 

34755 

1 

52752 

c 

30102 

1 

74744 

0 

lOOOO 

0 

27, 3340 

13344 

0 

00006 

1 

34755 

1 

52754 

0 

00006 

1 

34755 

1 

52756 

1 

00006 

1 

27,3350- 

34755 

1 

52764 

0 

34764 

0 

54001 

1 

40000 

0 

52760 

1 

15634 

1 

Ct 

03746 

1 

27 , 33  60 

C : 

64067 

1 

C : 

00037 

0 

I : 

53575 

0 

C:  C2207 

0 

I; 

77725 

1 

C: 

00045 

0 

C : 

0001'= 

0 

I i 

77701 

1 

27,3370 

C: 

00047 

1 

C: 

24041 

1 

C : 

02215 

0 

I : 77761 

1 

C : 

00037 

0 

Ct 

02170 

0 

I t 

4736’ 

0 

C: 

00041 

1 
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OCTAL  LISTING  FOR  PARAGRAPH  li  157,  WITF  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  HORD,  '‘3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  KORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS*  OR  "C’  (CONSTANTS) 


27,3400 

27,5410 

27,3420 

27,3430 


I 

1 

C 

I 


: 47572 
: 43257 
: 00050 
; 41345 


0 

1 

0 


C;  1^035  1 
C:  20573  1 
C:  30031  0 
C:  0f’0  3 3 1 


C:  0651A  1 
I : 77626  0 
I : 75316  ) 
C:  00035  1 


I:  63271  0 
C:  77744  0 
I : 5525A  1 
l:  57A57  0 


C:  00041  1 
l:  AIA57  1 
C:  57426  0 
C : 2057  1 0 


C : 02170  0 
C : 20173  0 
C:  06514  3 
I : 51415  n 


l:  57436  1 
I : 75446  0 
C:  00027  1 
C : 17766  O 


C:  00025  0 
I : 77701  1 
It  77616  0 
I : 43366  0 


27,3440 

27,3^50 

27,3460 

27,3470 


C : 06514  1 
C:  00027  1 
I : 77644  1 
C : 57A73  0 


I : 55206  0 
C:  57755  C 
C:  57^*04  0 
I ; 77614  1 


C:  00035  1 
I : 53654  0 
1:  77745  1 
C : 03676  0 


I:  53657  0 
C:  57A62  0 
C:  17772  0 
C:  00023  0 


C:  20601  1 
C:  57603  o 
C:  00021  1 
l:  77657  0 


C:  20572  0 
I : 40057  1 
I : 77616  0 
C:  20  201  o 


C : 14017  1 
C;  57576  1 
I ; 77614  1 
C;  00021  1 


I : AlOnS  1 
C:  57462  0 
C:  03436  0 
I : 44205  0 


27,3500 

27,3510 

27,3520 

27,3530 


C:  00033  1 
I : 77657  0 
I : 41075  0 
C:  57551  1 


C:  0651A  1 
C:  20601  1 
C:  5775A  0 
C:  OOU45  0 


I : 41206  0 
I : 71214  0 
C:  24C45  0 
C:  14043  0 


C:  00C21  1 
C:  03756  0 
C:  02170  0 
C:  00033  1 


I : 53725  1 
C;  57516  1 
I:  5244)  1 
I : A4205  0 


C : 00035  I 
C : 06524  1 
C:  02207  0 
C : 00041  1 


C:  20573  1 
I : 75440  0 
C:  00017  1 
I : 51406  1 


I:  43276  0 
C : 57651  1 
I:  44240  1 
I : 40015  I 


27,3540 
27  ,3550 
27,3560 
27,3570 


C:  17760  0 
I : 77616  0 
C:  00017  1 
l:  77671  1 


C:  57562  1 
I:  77745  1 
C:  57536  0 
I : A0145  0 


I : 65345  0 
I : 45345  1 
I:  65215  1 
C : 00043  0 


C:  06524  1 
C:  00023  0 
C;  17762  1 
C:  57654  1 


C:  0C043  0 
I : 45471  1 


C:  00033  1 
C:  14043  0 
1 ; 53605  1 
C;  77732  1 


I : 71240  1 
C:  00045  0 
C:  00031  o 
I:  63406  0 


C:  57656  0 
l;  52015  1 
C:  57201  0 
1 : 41206  0 


27,36C0 

27,3610 

27,3620 

27,3630 


C:  00035  1 
C : 20201  0 
I : 51042  0 
C:  57646  1 


I;  75261  0 
C;  0OO43  0 
C:  57642  0 
l:  77676-0 


C:  20206  1 
I : 41234  1 
I : 75206  1 
I:  56205  0 


C:  00045  0 
C:  57736  1 
C : 00017  1 
C:  17756  0 


C:  14045  0 
I : 44302  0 
I : 71244  0 
C:  00031  0 


I : 41206  0 
C:  00023  0 
C:  57646  1 
I : 53657  0 


C:  00033  1 
T : 41215  1 
C:  00027  1 
C : 57602  1 


I : 77657  0 
C : 00015  0 
I:  51076  1 
C:  57602  1 


27,3640 
2 7,36  50 
27, 3660 
27,3670 


l:  43257  0 
C:  57642  0 
C : 00017  1 
C;  00045  0 


C:  57576  1 
I:  77745  1 
C:  14013  0 
I:  41057  0 


I : 40005  0 
1:  43545  1 
I : 77626  0 
C:  57576  1 


C:  00037  0 
C:  17772  0 
C:  77732  1 
C:  21713  1 


C:  57652  1 
I ; 77712  C 
I:  53605  1 
C:  00043  0 


1 : 77616  0 
I : 41465  0 
C;  00027  1 
I : 41234  1 


I:  77745  ) 
I:  45345  1 
C : 57576  I 
C:  57736  1 


I : 77650  1 
C;  00045  0 
1 : 41206  0 
C:  00043  0 


27,3700 

27,3710 

27,3720 

27,3730 


45242 

14045 

14045 

53605 


1 

0 

0 

1 


C: 
C : 


C: 


17764 

00035 

10027 

D0027 


1 

1 

1 

1 


l:  41405  0 
I ; 53605  1 
I : 41366  1 
C:  57601  1 


41345 

00027 

17756 

52057 


0 

1 

0 

1 


L : 5/6/6  1 
I : 77615  0 
C:  57602  1 


C:  00015  0 
I : 53765  0 
I : 45257  0 
C : 5*^642  0 


I : 43312  0 
C : 00045  0 
C:  57577  o 
07225  f» 


C:  00017  1 
C : 57576  1 
C:  00013  0 
C:  00004  0 


27, 3740 
27,3750 
27,3760 
27  ,3770 


C:  12525 
C:  01626 
C:  37700 
C:  11205 


0 

1 

I 

0 


C:  12525  0 
C:  37256  1 
C:  COOOC  I 
C:  3777?  1 


C:  71463  0 
C:  77404  1 
C:  00100  0 
C:  37777  1 


C:  57703  1 
C:  52071  0 
C:  04000  0 
C:  03773  1 


C:  04423  0 
06064  C 
C:  00000  1 
C:  03774  (> 


C:  17645  0 
C : 06220  1 
C:  02000  0 
vSM  41113  1 


C:  74604  0 
C : 3755?  O 
C:  00000  1 


C:  43667  1 
C:  37777  1 
C : 00305  1 
a 
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17:53  DECo  ’9,1969 


PAGE  1679 


OCTAL  LISTING  FCR  PARAGRAPH  H 160,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THESE  MARKED 


"I"  (INTERPRETIVE  OPERATOR  WORDSI  OR  "C " (CONSTANTS) 


30,20(70 
30,201C 
30, 20  20 
30,2030 


C: 

C: 

C: 


024A5 

02203 

62137 

77766 


0 

1 

0 

0 


C: 
C: 
I : 
C: 


00274 
Q2203 
77661 
J220  1 


1 : 77615  0 
1 : 47  573  0 
C : 20613  1 
I : 52000  0 


C:  02201  0 
C:  02643  1 
C;  16205  I 
C:  60035  1 


C:  02201  0 
I : 77615  0 
C:  02203  1 
C : 60042  1 


I : 47573  n 
C : 02205  1 
I : 77766  0 
I : 77745  1 


C:  02555  0 
C : 02205  1 
C:  1620?  1 
C : 06532  0 


I : /5500  0 
C:  02201  0 
C:  02201  0 


30,2040  C : 02203  1 
30,2050  C:  02201  0 
30,2060  C:  17000  1 
30,2070  34751  0 


02205 

661.50 

05353 

55515 


1 

C 

1 

n 


I : ^*5345  1 
C:  00051  0 
C:  0^^024  0 
34755  1 


C:  02201  0 
C : 00052  0 
04616  1 
55462  1 


C:  20060  0 
I : 77776  1 
C : 11233  0 
33022  1 


I : 71240  1 
04635  0 
06011  1 
04616  1 


C:  60051  0 
C : 27421  0 
36000  1 
C;  20*77  1 


C : 20060  0 
C:  01670  1 
55250  0 
16001  1 


30,2100  12102  I 
30,2110  I : 43C14  0 
30,2120  l:  77624  I 
30,2130  1 : 64375  1 


12074  1 
C : 00075  0 
C:  60251  1 
C:  00007  0 


05353  1 
C:  00270  1 
I : 77745  1 
C:  01734  0 


C : 04024  0 
l:  4301*  0 
C:  25740  0 
l:  7777?  0 


06042  1 
C:  04464  0 
C:  17517  1 
C : 27601  C 


I : 43014  0 
C:  04461  0 
C:  03442  0 

C:  oooni  o 


C:  03067  0 
I : 77624  1 
C:  34041  0 
I : 52521  0 


C:  06464  1 
C : 71343  0 
C:  27056  1 
C:  01734  0 


30,2140 

30,2150 

30,216C 

30,2170 


C : 37521  0 
C:  17643  0 
33021  I 
05353  1 


C:  67067  1 
C:  31367  1 
34616  1 
C:  04024  0 


I : 53575  0 
C:  16277  1 
C:  20477  1 
06042  1 


C;  03521  1 
C:  31371  0 
16001  I 
1 : 54345  1 


C:  37537  1 
C : 02273  0 
12166  P 
C:  03643  0 


C:  57313  1 
I : 77776  I 
12160  0 
C:  20206  1 


57461  0 
0535?  1 
3231*  0 
77615  0 


C : 20606  0 
C:  04024  0 
55455  0 
C : 02335  0 


30,2200 

30,2210 

30,2220 

30,2230 


C:  27633  1 
C : 27474  0 
I : 65316  0 
C : 26363  0 


C:  33537  0 
C:  03537  0 
C:  02355  0 
C:  03253  0 


I:  53361  0 
1 : 53435  0 
I : 43316  I 
I;  50256  0 


C:  31365  0 
C:  03720  1 
I : 75454  0 
C:  03537  0 


C : 03601  0 
C:  37726  0 
C:  60230  0 
I : 65552  0 


C : 03527  1 
C:  60315  0 
I:  55352  0 
I : 77676  0 


I:  72441  0 
I : 77745  1 
C : 02355  o 
C : 02365  0 


C:  03537  0 
C ; 02361  1 
I:  77736  0 
I : 77776  1 


30,  224f> 
30,2250 
30,2260 
30,2270 


l:  u 
C:  16021  0 
I:  77702  1 


C:  04024  0 
l:  77745  1 
C:  16271  I 
C:  02265  1 


00004  0 
C:  16013  1 
C:  34013  1 
I : 43414  1 


04674  0 
C:  03641  1 
l:  54276  0 
C:  04747  1 


C:  40143  0 
C : 03637  0 
C:  20214  1 
C:  60275  1 


05516  0 
C : 17635  1 
C:  02267  0 
I : 43345  1 


C:  0021?  1 
C:  16017  0 
I : 57535  0 
C:  25736  1 


04635  0 
C:  16263  1 
C;  26001  1 
C:  02333  0 


30,2300  C:  17631  0 

30, 2310  C : 01734  0 

30,2320  C:  03726  1 

30,233C  1 : 72441  0 


C:  06524  1 
I : 77656  1 
I:  72441  C 
C:  33527  1 


C:  03  6 54  0 
C:  03720  1 
C:  03527  1 
C:  36311  1 


C:  03633  1 
I:  77616  0 
C:  26313  1 
C:  57313  1 


C : 26275  C 
C:  02024  0 
C:  03726  1 
1;  77775  1 


C:  01563  0 
l:  51575  1 
I:  76435  1 
C : 03563  1 


i:  64235  1 
C:  03521  1 
C:  03537  ^ 
1 : 503*1  1 


C;  01555  0 
C:  26301  1 
C:  02303  0 
C : 27104  1 


30,234C  C:  03537  0 

30,2350  C : 75462  0 

30,236C  C : 02343  1 

30,2370  C:  02303  0 


I : 47315  0 
I:  45014  0 
I : 65361  Q 
C:  02273  C 


C : 03537  0 
C:  04742  1 
C:  03726  1 
I ; 77625  0 


C:  03527  1 
C:  60355  1 
C:  02275  0 
C:  03474  0 


56236  0 
71524  1 
77625  0 
02337  1 


02301  1 
45345  1 
02311  0 
53361  0 


I:  4335?  1 I : 77626  0 
C:  02277  1 C:  02313  1 
C ; C2341  0 I : 65361  0 
C:  03537  n I : 76455  1 


GAP:  ASSEMBLE  REVISION  131  OF  A&C  PRCGPAR  LUMINARY  0Y  NASA  2021112-091 
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OCTAL  LISTING  FCR  PARAGRAPH  U 161,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSf  MARKED  "I”  (INTERPRETIVE  OPERATOR  WORDS!  OR  "C " (CONSTANTS! 


30,2A00 
30,2A10 
30, 2A20 
30,2A30 


1 : 77626  0 
C : 03  646  0 
C:  60427  0 
C;  02265  1 


C:  74131  1 
C:  J36^6  0 
I : 77671  1 
I:  44342  1 


I : 41345  0 
I:  76521  0 
C:  20001  1 
C:  17772  0 


C:  03517  1 
C:  02146  0 
C:  37517  0 
I:  41205  0 


02315  1 I:  76561  1 C:  03537  0 I:  77645  0 
27502  0 C:  03646  i:  43nA6  1 C:  04745  0 
71475  1 I:  77650  1 C:  60754  l j;  41471  0 
02271  1 l:  77625  0 C:  02267  n C:  03517  1 


30, 2440 
30, 2450 
30,246C 
30,2470 


57461  0 
77640  0 
02271  1 
03517  1 


C:  20614  0 
C:  30347  1 
C:  03517  1 
C:  02271  1 


C:  17454  1 
l:  77745  1 
l:  45071  0 
I : 43C06  0 


L : 0361  r 1 
C:  02271  1 
C:  047)3  ) 


l:  45214  1 
1 : 50025  0 
C:  61023  I 
C:  60503  1 


C:  03710  1 
C:  21010  0 
I : 41461  1 
I:  45345  1 


C : 60452  1 
C:  60612  1 
C;  20206  1 
C:  03517  1 


C : 21006  1 
1:  45345  1 
I : 44265  0 
C:  21012  1 


30,2500 

30,2510 

30,2520 

30,2530 


I : 43044  0 
1 : 45345  I 
C:  03474  0 
I : 56271  0 


60510 
03517 
4521  5 
oroo7 


0 

1 

C 

0 


C:  04463  1 
C:  0OO03  1 
C:  02301  1 
C:  03517  1 


I : 77745  1 
I:  72406  0 
C:  03631  0 
C:  02351  1 


06524  1 
52421  1 
41325  0 
7124C  1 


02351. 

03517 

02337 

60541 


1 

1 

1 

1 


36353 
41325 
0000  9 
06524 


1 

1 

1 


C: 
C : 
I : 
C: 


60572  1 
03517  1 
62415  0 
36351  0 


30,2540 
30,2550 
30,2560 
30, 2570 


C ; 60553  1 
C:  02271  1 
I : 65225  1 
C:  00005  1 


I : 56202  I 
I:  77612  1 
C:  03633  1 
C : 02353  0 


C:  02271  1 
C:  02351  I 
C:  02341  0 
I : 41345  0 


l:  51025  1 
1 : 77745  1 
I:  43205  1 
C;  02351  1 


C:  26201  0 
C:  03517  1 
C:  00005  1 
C:  00003  1 


C:  60553  1 
I : 43205  1 
I : 56312  1 
1 : 56325  0 


1 : 41345  0 
C:  02311  0 
1 : 40271  1 
C:  02337  1 


C:  26201  0 
C:  02335  0 
C:  03517  1 
C:  OOOOl  0 


30,2600 

30,261C 

30,2620 

30,2630 


I : 45302  1 
C : OOOOl  0 
I : 41345  0 
C:  16357  I 


I:'  77626  0 
C:  02347  0 
C:  27104  1 
C:  27104  1 


C:  61432  0 
I : 43001  1 
C;  02351  1 
l:  43205  1 


C:  02353  0 
C:  OOOOl  0 
I : 56215  1 
C:  02353  0 


I : 65205  0 
C:  04742  1 
C:  02345  1 
C:  02347  0 


1 : 60465  0 
C:  60620  0 
C:  02271  I 
I : 72471  0 


C:  023^1  0 
I : 77624  1 
I:  ^5352  1 
C : 02271  1 


l:  77625  0 
C:  71501  0 
C:  02315  1 
C:  02355  0 


30, 2640 
30  ,2650 
30,266C 
30,2670 


I : 65361  0 
l:  45316  1 
C;  00011  1 
C:  06524  I 


C:  02303  0 
C:  0(043  0 
I:  52166  1 
I : 77765  C 


C:  02357  1 
I:  41525  0 
C:  60671  1 
C:  02343  1 


I : 53361  0 
C:  02263  1 
I:  55345  0 
C:  02361  1 


C:  03537  0 
1 : 45316  1 
C : 00007  0 
I : 77761  1 


I : 41572  1 
C : 00043  0 
I;  77761  1 
C:  03726  1 


i:  1 
C:  00901  D 
l:  53372  1 


C:  02263  1 
C:  60663  1 
C ; 14001  0 
C:  OOOOl  0 


30,2700 

30,271C 

30,2720 

30,2730 


C: 
I : 


I : 


03253  0 
57575  1 
04711  I 
77776  1 


43001 

03537 

57273 

30105 


1 

0 

0 

0 


OOOOl 

17261 

43014 

74742 


0 

1 

0 

0 


C;  04704 
C:  03654 
C:  06666 
10000 


0 C : 

0 l: 

1 C: 
0 


C4702  0 
12755  C 


I : 
C: 


C: 


77614  1 
01234  0 
60730  0 
06042  1 


C:  04701  0 
C : 60730  0 
I:  77614  1 
I : 77624  1 


C:  60763  0 
I : 7761 4 1 
C:  01664  1 
C:  61100  1 


30,2740 

30,2750 

30,2760 

30,2770 


I:  77776 
12755 
04674 
C:  16666 


30105  0 
33020  0 
C:  40166  1 
I:  43C14  C 


74742  0 
04616  1 
12741  0 
04661  1 


lOOOO  0 
C:  20444  1 
I:  45345  1 
C:  04711  1 


1 : f 1 1 lb  1 
C:  02301  1 
C:  60710  I 


30104  1 
15155  1 
C ; 02333  0 
I:  43345  1 


74742  0 
I:  77776  1 
I : 50029  0 
C:  01234  0 


10000  0 
00004  0 
C:  26205  1 
C:  25734  0 


GAP: 
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OCTAL  listing  FOR  PARAGRAPH  tt  162»  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDSI  HP  "C " (CONSTANTS! 


30f3000 
30|3010 
30, 3020 
30,3030 


C:  3765A 
C:  00000 
C:  01A77 
C:  00006 


1 

1 

1 

1 


C:  60710  1 
C:  00175  1 
C:  ]1?14  P 

C:  ooono  1 


I : 77614  1 
C:  00000  1 
C:  01441  1 
C:  00002  O 


C:  04631  1 
C:  00045  0 
I ; 44301  0 
C:  76777  I 


C:  60771  0 C : 00062  0 
C : 2C000  0 r : 00010  0 
C:  00163  0 C;  17772  0 
C : 77175  1 C : 77400  0 


f;  OOOOO  1 
C : 14400  0 
1:  77776  1 
C : 75416  0 


C:  00031  0 
C:  OOOOO  1 
07225  0 
C:  77507  0 


30,3040  C : 65515  0 
30,3050  C:  75267  0 
30,3060  07312  0 
30»3070  C : 34414  1 


C:  77741  0 
34755  1 
52156  1 
I : 77331  0 


63547  1 
54156  1 
52155  1 
03300  1 


77052  0 
00006  1 
52132  0 
OOOOO  1 


C: 

C: 


55373  0 
33070  0 
20155  1 
06522  1 


C:  01167  0 C:  30361  0 C:  76520  1 

52155  1 52132  0 30162  1 

06042  I I : ^3^76  0 c:  00542  1 

C:  03267  1 C:  03261  1 I:  77616  0 


30,3100 

30,3110 

30,3120 

30,3130 


56003 

55651 

30034 


1 

I 

0 

0 


55645 

70111 

54767 


0 

0 

1 

0 


40200  1 C:  61102  0 
30111  0 74737  1 
55650  1 00004  0 
34742  1 00006  1 


C:  00023 
10000 
30032 
C2030 


I : 77420  1 
34753  1 
54771  1 
10000  0 


C:  03246  1 33752  1 

55647  1 34743  0 

30033  1 54765  1 

13153  ] 34736  1 


30,3140 
30,3150 
30,3160 
30, 3170 


00006  1 
54765  X 
47034  0 
61204  0 


02031  1 10000  0 
31636  0 54767  C 
21727  0 C:  47617  1 
47673  0 I : 77776  1 


13153  1 
06042  1 
24015  0 
31670  1 


55651  0 
77634  0 
C0325  0 
221 57  T 


31634  1 
C:  21727  0 
I : 53404  1 
03474  0 


54771  1 
C:  24001  0 
C : 61741  1 
5567r  0 


31635  0 
C:  03261  1 
I : 45000  0 
31672  0 


30,3200 

30,3210 

30,3220 

30,3230 


22161  1 
C : 00015  0 
C:  00015  0 
I ; 63361  0 


13474  0 
C : 61514  0 
I:  47375  C 
C:  03273  1 


55672  1 
I : 77775  1 
C:  00015  0 
l:  51361  1 


06C42  1 
C:  02162  0 
C:  00001  0 
C:  03271  0 


I : 46135  1 
C:  34015  1 
I : 41456  0 
I : 53372  1 


C : 03251  1 
C : 61514  0 
I:  76435  1 
C:  00001  0 


C : 61212  1 
I : 57575  1 
C:  00001  0 
1 : 77656  1 


l:  45175  0 
C:  02146  0 
C:  00015  0 
C:  OOOOl  0 


30,3240 
30,3250 
30,3260 
30, 3270 


76435  1 C:  00015  0 
61524  0 l:  77776  1 
56156  0 00006  1 
34752  0 54142  1 


31677  0 
20156  1 
30001  0 


47276  1 
26154  0 
00006  1 
00006  1 


OOOOl  0 1:  77772  0 
30156  0 54001  1 
13266  1 13747  1 
70000  0 64350  0 


00015  0 I : 77624  1 
33764  1 03720  1 
OOOCA  0 22007  0 
OOOC6  1 6330?  0 


30,3300 

30,3310 

30,3320 

30,3330 


34755  1 55650  1 
21634  0 40000  0 
13743  0 20101  1 
03720  1 55676  0 


50142 

50142 

74745 

31675 


0 

0 

1 

1 


30154  1 
5567*  1 
00006  1 
00006  1 


50142  0 54321  0 
54001  1 1014?  1 
13743  0 23676  1 
70745  0 54001  1 


00006  I 50142  0 
13271  T 11651  0 
51647  0 33760  0 
51647  0 33762  1 


30,3340 

30,3350 

30,3360 


30,3370 


03720  I 
00006  1 
41674  I 
55642  1 


00006  1 
21674  1 
55674  1 


10745  0 57675  1 
54001  1 51647  0 
41675  0 00006  I 


00006  I 70737  0 
33760  0 03720  1 
70737  0 20001  1 


20001  I 40000  0 
55674  1 11650  1 
27674  1 41  674  1 


41675  0 C0006 


70737  0 20001 


27642  1 27642  1 41675  0 


gap:  assemble  REVISION  131  DF  AGC  PROGRAM  LUMINARY  BY  NASA  2021J12-091 
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OCTAL  LISTING  FOR  PARAGRAPH  t>  163,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  FACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  OR  "C " 


(CONSTANTS! 


3Ur3A10 

30,3420 

30,3430 


00006  1 
70741  1 
00006  1 
27644  1 


70747  1 
27643  0 
70745  0 
34752  0 


55644  1 
54U2  1 


00006 
27643 
41  676 
50142 


1 

0 

0 

0 


70745  0 55643  0 
31675  1 00006  1 
00006  1 70747  1 
31674  C 00006  1 


41676  0 
70741  1 
27644  1 
73765  1 


O0006  1 
20001  1 
27644  1 
03734  I 


30, 344C 
30,3450 
30,3460 
30,3470 


50142  0 
50142  0 
33762  1 
06042  1 


55637  0 
71642  I 
03720  1 
52001  1 


50142 

00006 

50142 

00001 


0 

1 

0 

0 


11642 
74  741 
55274 
C:  03246 


1 

0 

0 


64753  1 
00006  1 
10142  1 
00006  1 


13447  1 
50142  0 
13432  0 
22142  0 


64753  1 
11530  1 
31645  I 
5414^  0 


00006  1 
54001  1 
54003  0 
40000  0 


30,3500 
30, 3510 
30,3520 
30,3530 


60001  0 
54001  I 
C:  61221  I 
C:  61533  0 


00006  1 
33756  0 
^3531  1 
77745  1 


51647  0 
03720  1 
03251  1 
06524  1 


73753  I 
00142  0 
C:  00000  I 
l:  77566  1 


54001  1 
I:  63441  0 
I : 63545  0 
00006  1 


33755  0 
C:  OOOOl  n 
C:  00003  1 
30155  r 


03720  1 
I : 50025  0 
I:  51021  0 
20001  I 


60143  1 
C:  21760  0 
C:  06514  1 
54145  0 


30,3540 

30,3550 

30,3560 

30,3570 


13543 

34755 

03571 


1 

I 

0 


34733  1 54145  0 

03571  1 34751  0 


50120  1 30002  0 22154  I 03613  0 54156  1 

03571  1 40141  I 03613  0 54155  1 34750  1 


33570  0 
60120  1 


03571  1 
54116  0 


40141  1 
50116  1 


03613  0 54154  0 06^42  1 I:  77616  0 

30000  1 00006  I 6360C  1 40000  0 


30,3600 
30, 361C 
30,3620 
30,3630 


60145  1 
54001  1 
30001  0 
34755  1 


00006  I 
22141  0 
54143  0 
1363  5 0 


63610  0 
00002  0 
34755  1 
40142  1 


00006  1 
00006  1 
00006  1 
54142  1 


50116  1 30001  n 00006  1 10145  0 
13656  0 00006  1 22144  0 54142  I 
10142  1 00006  1 136^-5  ^ 10143  0 
34735  I 54143  0 30142  0 03663  1 


30,3640  03734  1 
30,3650  54143  0 
30,3660  00002  0 


00006  1 
10  142  1 
34735  I 


20143  0 
3C143  1 
00002  0 


03734  1 
13643  1 
60C00  1 


00144  0 40143  0 03663  1 64736  I 
40143  0 13643  1 10001  I 34755  1 
54021  0 13671  0 5000C  1 44734  1 


30,3670 


54021  0 00006 


7C000  0 54141 


00006  1 73717  1 63716  1 00006  1 


30,3700 

30,3710 

30,3720 

30,3730 


70141  1 63715  1 
00006  1 70021  0 
54141  1 34755  1 
30001  0 00002  0 


00006  1 70141  1 
00002  0 C:  24406  0 
C0006  I 10141  1 
40141  1 00002  0 


63714  0 00006  1 
00660  1 C:  16204  0 
lOOOn  0 22141  0 
10000  0 64753  1 


701^1  1 63713  1 
50744  0 C : 20315  1 
13730  1 13732  0 
OOOQ?  0 40000  0 


30^3740 

30,3750 

30,3760 

30,3770 


C: 
C : 
CKSM 


00002  0 
00401  1 
03434  1 
43421  I 


05567  0 C:  00402  1 
13266  1 C:  03245  1 
00266  0 C:  01616  1 

a a 


00004  0 
06315  0 
00133  0 

a 


04674  0 
C : 03146  1 
C:  14344  1 

a 


C:  40166  J 
C : 00071  1 
C:  01463  1 
a 


13466  1 
: 02041  0 
: 03766  O 


05567  0 
C:  01673  1 
C ; 03767  1 
a 


gap: 
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OCTAL  LISTING  FOR  PARAGRAPH  H 16^,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  ''3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C  (CONSTANTS) 


31  ,2000  C : 00222  0 

3 1,2010  I : 7762A  1 

31,2020  53611  1 

31,2030  12032  0 


33316  0 C:  07A01  0 C:  06613  0 
62120  0 I:  77776  1 0C006  1 
C0006  1 31605  0 53613  0 
1202A  1 22007  0 3A756  1 


C 


0002^  1 
31601  1 
321A3  0 
54002  1 


C 


00307  0 
53607  0 
04616  1 
50002  0 


C ; 17534  0 
000C6  I 
C:  20334  1 
^•1600  1 


06042  1 
31603  0 
15^72  1 
50002  0 


31,2040  61606  0 
31,2050  C:  00160  0 
31,2060  I : 72412  0 
31,2070  1:  72014  1 


26001  1 
06042  1 
14001  0 
C4307  1 


10002  1 
I : 77414  0 
C;  02203  1 


12034  0 
C:  03707  1 
C:  14003  1 


22000  1 
C;  62056  0 
C:  02205  1 


00006  1 12051  0 05504  0 

15472  1 I:  77745  1 C:  02201  0 

I:  77661  0 C:  20213  o c:  00005  1 


C : 62102  0 C:  00000  1 


72130  O C:  02000  0 C:  00nO2  0 I:  52130  1 


31,2100 
31,2110 
31,  2120 
31 ,2130 


C;  02C01  1 
I : 66150  0 
I:  40020  I 
C;  00006  1 


C:  62110  0 
C : 00004  0 
C:  00051  0 
C:  06524  1 


I : 66150  0 
C:  02003  0 
C : 62123  0 
C:  02201  0 


C:  00000  1 
I:  77730  0 
I : 45014  0 
C:  02203  1 


C:  02006  0 
C:  02002  I 
C:  03667  0 
C : 02205  1 


I : 66150  0 
I : 77414  0 
C:  27410  1 
I : 77770  1 


C;  0000?  0 
C : 02676  1 
1:  71331  0 
C:  00066  1 


C:  02007  1 
15472  1 
C:  00051  0 
l:  47573  0 


31,21 40  C : 02467  0 
31,21.50  23607  1 


C:  60002  0 
53470  1 


C:  01543  1 
00006  1 


31245  0 00006  1 

31464  0 02337  1 


72356  1 00006  1 

55615  0 53466  0 


31,2160 
3 1,  2170 


32360  0 54002  1 

55750  0 41617  1 


31615  1 
60025  0 


72357  0 
74733  0 


00006  I 
40000  0 


10002  1 
65002  0 


00006  1 75003  0 

000^6  1 62203  1 


31,22C0 
31,2210 
31,2220 
31  ,2230 


00006  1 
35016  0 
40130  1 
12240  1 


31611  0 
54003  0 
61465  1 
40131  0 


21470  1 
44755  0 
00006  1 
61465  I 


35014  1 
55606  1 
62226  0 
00006  I 


54003  0 
40131  0 
31467  0 
62241  1 


00CO6  I 
61620  1 
12236  0 
32003  0 


315C7  I 
00006  1 
42002  0 
53466  0 


52131  0 
62231  0 
61467  0 
34737  0 


31,2240 

31,2250 

31,2260 

31,2270 


55606  1 
21613  0 
30025  0 
31234  0 


03677  1 
31612  0 
55617  1 
54130  I 


00006  1 
61606  0 
31762  0 
35003  I 


31466  1 
55614  1 
54130  1 
12275  1 


55620  0 
54055  0 
41010  0 
35000  1 


53613  n 
34750  1 
62452  0 
54002  1 


00006  1 
00006  1 
OOOf'E  1 
00006  1 


41470  1 
05014  1 
12274  0 
74746  1 


31  ,2300 
31, 231C 
31  ,2320 
31  ,2330 


22131 

00006 

00(^06 

55606 


1 

I 


40130  I 
71612  1 
71612  1 
44755  0 


60025  0 62004  ) 
60000  1 53611  1 
00006  1 10131  0 
55620  0 55612  1 


74357  0 22007  0 
11612  ] 64753  1 
22007  0 21611  1 
C0006  1 23607  ) 


00006  1 10002  1 

12320  O 64753  1 

01607  1 34737  0 

12251  1 00006  1 


31,2340 
31 ,2350 
31,2360 
31,2370 


22130  0 
00006  I 
35074  1 
12763  0 


52155  1 
12354  0 
12573  0 
13026  1 


07106  1 C:  01243  0 
34733  1 00130  0 
12573  0 12556  I 
13026  1 13026  1 


07106  1 C:  02005  0 07262  0 
52156  1 00130  0 C:  04143  0 
12547  1 12753  0 12763  n 
13503  0 13225  0 13212  1 


30154  1 
17777  0 
12654  0 
13212  1 


GAP 
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OCTAL  LISTING  FOR  PARAGRAPH  H 165, 


WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  CF  EACH  WORD, 


"3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE 


MARKED 


( INTERPRETIVE 


OPERATOR  WORDS!  OR  "f " (CONSTANTS) 


31 ,2400 
31  ,2410- 
31,  2420 
31,2A30 


13400  I 
13674  0 
12531  0 
13431  0 


13P75 

13674 

55647 

05353 


0 

0 

1 

1 


13316  1 
C;  00000  1 
12753  0 
C:  05C23  0 


13324  0 
C:  00000  1 
05353  1 
C:  20000  0 


13437  0 13442  1 

C : 00C34  C 1 : 77776  1 
C:  00035  1 30  101  1 

4101P  0 62452  0 


13471  1 
34752  0 
74744  0 
OOOC6  1 


13672  0 
55647  1 
00006  1 
12522  1 


3l,244C 
31,2450 
31  ,2460 
31,2470 


34737  0 
03677  1 
C:  01457  0 
C : 26621  0 


00006  1 
05311  1 
I : 41535  1 
C:  01254  0 


02031  1 
C:  00102  1 
C:  01455  1 
I : 77676  0 


10000  0 
00006  1 
I:  55535  1 
C:  27764  1 


12527  1 
31474  1 
C:  0)453  1 
C:  06524  1 


31746  0 
53645  0 
I : 43161  0 
C:  17767  1 


OOOC6  1 
06042  1 
C:  25532  1 
C : 02540  1 


12527  1 
I:  41535  1 
C:  00463  0 
C : 17757  1 


31  ,2500 
31,251C 
31,2520 
31,2530 


C:  01234  0 
55647  1 
C:  00143  1 
55746  I 


03760  C 
55621  1 
13503  0 
DU006  I 


55346  0 
30075  0 
31625  1 


34755  1 
04616  1 
74740  1 
53574  1 


55620  0 
C:  4C166  1 
00006  1 
03677  1 


55610  0 55611  1 
05516  0 C : 00311  1 
12456  0 13503  0 
00006  1 31561  1 


34752  0 
05516  0 
34755  1 
53625  0 


31,2540 
31,2550 
31  ,2560 
31,2570 


00006 
C:  OOlOl 
31425 
55343 


I 

1 

0 

0 


31643 

34755 

27552 

35516 


1 

1 

0 

0 


53553 
55647 
00004 
C:  00143 


1 

1 

0 

1 


11623  0 
05516  0 
06022  1 
06042  1 


12573  0 
C:  00311  1 
34740  0 
I:  45345  1 


51346  1 
12573  0 
00006  1 
03625  0 


12362  n 05311  1 

053)1  1 C:  00100  0 
05013  n 33707  ) 

C : 03574  1 I : 41461  1 


31,2600  C:  21214  0 

31,2610  C:  02333  0 


I:  47361  0 
C :•  17545  0 


03635  1 C:  02325  1 
77776  1 52155  1 


31,2620 


53643  0 


03643  0 


37721  1 05146  1 


31 ,2630  C:  03635 


77646  0 C:  02333  0 


l:  77776  1 


47045  0 C : 03635  1 
21553  1 03677  ) 
06042  1 I : 53375  0 
03677  1 35014  1 


21727  0 I:  76561  1 
000C6  1 31553  0 
03545  0 C:  02635  0 
54003  0 34755  1 


31,2640 
31,2650 
31 ,2660 
31,2670 


55634  0 
34736  1 
31666  0 
03677  1 


55635  1 
05146  1 
00006  I 
34755  1 


55636  1 
51346  1 
12763  0 
55446  1 


55637  0 
12366  I 
00004  0 
55445  1 


55640  0 
30102  1 
31446  0 
55555  1 


55641  1 
74746  1 
55554  0 
55557  0 


35016  0 
00006  1 
31445  0 
30120  ) 


54003  0 
12763  0 
55556  I 
54166  1 


31,2710 
31,2720 
31  ,2730 


06042  1 
I : 65361  0 
C:  05660  1 
I : 74271  0 


I : 
C; 


52375  1 
03555  1 
71240  I 
OCOOl  0 


C 

C 

C 


: 03635 
: 03557 
: 62725 
: 53455 


1 

0 

0 

0 


C:  03521  1 
I;  52361  I 
C : 05660  1 
C:  03521  I 


4)434 

02154 

00001 

76561 


1 

0 

0 

1 


C 

I 

I 

C 


21727  0 
41455  0 
45'>45  1 
02333  0 


1:  76435  1 
I : 45345  I 
C:  03635  1 
C : 03545  0 


C:  02154  0 
C;  00001  0 
C:  03521  1 
I : 77776  1 


31, 2740 
31,2750 
31,2760 
31, 2770 


C:  03253  0 
C:  03527  I 


C0006  1 
53641  1 
C:  03527  1 
C:  02265  1 


31545  1 
12763  0 
I : 77776  1 
I : 77721  0 


53635  1 
06042  1 
06042  1 
02575  1 


00006  1 
I : 64375  1 
I : 47375  0 
C:  27627  I 


31547  0 
C : 00025  0 
C:  03521  1 
C:  03521  1 


53637  0 00006  1 
01734  O !:  53362  0 
02325  1 I : 70455  I 
41451  1 C:  03635  1 
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GAP  : 

OCTAL  LISTING  FOR  PARAGRAPh  « 166,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  APE  BASIC  INSTRUCTIONS  EXCEPT  THESE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS! 


31 ,3000 
31,3010 
31, 3020 
31  ,30  30 


76521 

77776 

61356 

02A31 


1 

0 

'J 


C: 

C: 


02575  1 
30120  1 
00006  1 
23571  0 


C : 02627  0 I ; 776^,6  0 
54166  1 30154  I 

73712  1 55667  0 

C : 02427  1 C:  17567  0 


C:  26617  C 
60000  1 
51346  1 
C:  03633  1 


I:  50234  1 C:  21727  o c:  02146  C 

04616  1 C : 61663  0 63713  1 

12372  1 f‘3636  1 I : 77743  1 

I;  42605  1 C:  05656  1 C:  02425  0 


31,304C 
31,3050 
31  ,3060 
31,3070 


C;  23565  0 
55572  I 
51346  1 
64733  1 


00006  I 
12410  1 
54001  1 


I 


00006  1 
40001  1 


52155  1 
3G155  0 
60001  0 


C : 05654  0 C : 03563  1 

34752  0 54001  1 

53643  0 03643  P 

22007  0 00006  1 


77776  1 
337P5  0 
41642  1 
11642  1 


34744  1 
03512  1 
61426  0 
54130  1 


31  ,3100  00006  1 
31,3110  50120  1 
31,3120  60131  1 
31,3130  C:  00035  1 


70000  0 
54032  1 
50120  1 


54131  0 
60131  1 
54036  0 
02411  1 


60130  0 
50120  1 
34755  1 
02403  1 


56131  1 60131  1 

54034  1 60130  0 

54163  1 03636  1 

: 70251  0 C : 02627  0 


54154  0 60131  1 
64733  1 60131  1 
65361  0 C:  03627  1 
03643  0 I:  74342  1 


31,31 40  C : 00033  1 
31,3150  I:  77655  1 
31 , 3160  I : 77646  0 
31,3170  C:  01244  I 


I : 53255  0 
I;  76505  0 
C;  17464  1 
I : 45225  0 


I : 74341  1 
C:  02575  I 
C:  03253  0 
I : 71244  0 


C:  03643  0 
I ; 70315  1 
1:  65316  0 
C:  63175  1 


C:  <^5656  1 
C:  01236  1 
C : 03255  P 
C:  06524  1 


! : 73725  0 
r:  05652  0 
I : 65316  0 
I : 43366  0 


C:  00037  0 
I;  ^,5445  0 
C : 05650  1 
C:  03257  1 


C:  02417  1 
C:  74524  1 
I : 63471  0 
I : 44244  0 


31,3200 
31,3210 
31, 3220 
31  ,3230 


63203 

51346 

31621 

51346 


0 

I 

0 

1 


64753  1 
52413  0 


55346  C 
31435  1 


I : 77776 
31423 
34755 
24006 


1 

0 

1 

1 


03677  1 31346  1 
61642  0 00006  1 
55623  0 35014  1 
24006  1 61642  0 


55621  1 
6^225  1 
54003  0 
56001  0 


00006  1 
61642  0 


31,  324C 
31,3250 
31,3260 
31,3270 


10300  0 
C:  16575  1 
C:  03521  1 
C;  02603  0 


10001  1 
C:  03643  0 
C:  21727  0 
C:  02611  0 


I : (4203  u 
I : 47035  1 
I : 77776  1 


13273  0 
C:  02433  1 
C:  03635  1 
5162J  0 


13245  0 
C:  02265  1 
C:  21727  0 
J2402  I 


03636  1 
I : 77655  1 
C : 26603  0 
06042  1 


I : 53575  0 
C:  03635  1 
C : 02575  1 

1 : 47175  1 


C:  03635  1 
l:  47051  0 
I : 76435  1 
C;  03253  C 


31,3300 
Sl.S-^lC 
31,3320 
31  ,3330 


C:  21727  0 
11646  0 
C:  03537  0 
I ; 77634  0 


I:  74361  0 
13314  0 
C;  03261  I 
C:  21727  0 


C:  03423  1 C:  22001  0 

05567  0 C:  01412  1 

I ; 77776  1 13400  1 

C;  03261  1 I:  50235  0 


C : 03253  O I : 

04635  0 C : 

06042  1 I: 

C : 02146  0 C : 


77776  1 U647 
65104  1 C6042 
52375  1 C:  03635 
02603  O I : 77776 


J 12421  C 
I I : 77775  1 
1 C;  03521  1 
1 40154  0 


31,3340 
3)  ,3350 
31,3360 
31,3370 


63714 

54131 

30130 

70131 


64733  1 
40131  0 
10006  1 
50002  0 


54130 

26131 

50002 

21661 


40130  1 26130  1 
34751  0 76245  0 
7161C  0 24006  1 
10002  1 13354  1 


43715  0 60154  1 64733  1 
54002  ) 35014  1 54003  0 
50002  0 53661  0 00006  1 
31773  0 55677  1 24006  1 
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OCTAL  LISTING  FOR  PARAGRAPH  H 167,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  CF  FACH  WORD,  "3"  DENOTES  UNUSFO  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCS  E MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C '■  (CONSTANTS) 


31,3^00  30076  0 
31,3410  C:  01410  0 
31, 34?0  13426  0 
31,3430  52756  I 


74741  0 
34737  0 
02144.1 
40104  0 


00006  1 13411  1 
00006  1 02031  I 
06042  1 1 : 77624  1 
74742  0 00006  1 


30121  0 
00006  1 
C:  61100  1 
15155  1 


00006  ^ 13421  1 05567  0 
13426  0 04616  1 C:  40166  1 
77776  1 00006  1 34755  1 
51621  0 12404  1 33716  1 


31,344C 
31,3450 
31 ,3460 
31,347C 


04616 

13467 

55446 

13440 


1 

Q 

1 

0 


33717  0 
55445  1 
33720  1 


31666  0 00006  1 
04616  1 C:  20460  1 
05504  0 C;  00143  I 
04616  1 C:  2046U  1 


13465  1 40102  0 

1600)  1 13457  0 

15155  1 05516  0 C: 

16001  1 13477  1 


74746  1 00006  1 
13442  1 34755  1 
00143  1 33717  0 
13477  1 00004  0 


31  ,3500 
31,3510 
31, 3520 
31,3530 


04616 

04635 

54161 

50157 


C:  40154  0 
C:  65300  1 
10160  1 
3000  5 1 


54162  0 
07312  0 


34755  1 
04713  0 


54163  1 
01226  0 


52160  1 
00006  1 
52155  1 


30155  0 
52125  0 


C:  65272  0 
54141  1 
52127  1 
00006  1 


31,3540 
31,3550 
31  ,3560 
31,3570 


50117  0 
50117  0 
26141  I 
07220  0 


30004  0 
30002  0 
10140  0 
QO006  1 


52155  1 30160  0 
52155  1 50141  0 
13544  0 00006  1 
30127  0 52155  1 


54140  0 64753  1 
52004  1 44752  3 
30127  0 52155  1 
52131  0 00006  1 


07321  P*  00006  1 
26117  1 44752  1 
00006  1 30162  1 
30160  0 07220  0 


31  ,3600 
31,3610 
31, 3620 
31  ,3630 


04713  0 C:  00353  1 
4C125  0 20155  1 
13563  0 13623  1 
52155  1 30163  0 


00006  1 40155  1 
30163  0 74750  0 
13627  0 10155  ) 
54156  1 50132  1 


20127  1 04713  0 
10000  C 00132  1 
13563  0 13627  0 
10002  1 C:  00147  0 


C:  01226  0 00006  1 

24163  0 10154  0 

13627  0 52127  1 

51346  1 42413  1 


31  ,3650 
31,3660 
31,3670 


50120  1 
54003  0 
64735  I 
27666  1 


54046  1 
31470  0 
54001  1 
00002  0 


16042  0 31642  0 
24006  I 24006  1 
40001  1 60001  0 
05642  1 C:  2)406  0 


00006  1 74750  0 
61642  0 00006  1 
63710  1 64733  1 
05567  0 C:  01406  1 


53476  1 35014  1 
73711  1 63706  0 
55666  1 41666  1 
13*11  1 35007  0 


31  ,3700 
31,3710 
31, '3720 
31  ,3730 


56003  1 52302  1 

C:  00143  I C:  75340  1 

C;  01474  1 C:  03721  0 

3 3 


55442  0 22003  1 
C:  00264  1 C:  00056  1 
C : C3722  0 CKSM  66356  1 


00000  1 C : 01565  0 

01542  0 C:  01022  0 

3 3 

3 3 


C:  77630  1 
C : 01477  1 

3 


C:  00155  0 
C : 01500  0 
3 
3 


31,3740  3 
31  ,3750  a 
31,376C  3 
31,3770  3 


3 


3 

3 


3 


3 

a 


a 


a 

3 


3 


gap:  assemble  REVISION  131  CF  A6C  PPCGPAM  LUMINARY  BY  NASA  2021112-091  17:  53  DECo  19,1<569  PAGE  1687 
OCTAL  LISTING  FOR  PARAGRAPh  fl  170i  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  CF  EACH  WORD,  "3"  OENCTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  EASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


32i2000 

C: 

000A4 

1 

C : 

70123 

0 

C ; 

40702 

0 

C: 

13337 

1 

C : 

10776 

0 

34737 

0 

70077 

0 

10000 

C 

32,2010 

Q2017 

0 

05567 

0 

C; 

00220 

1 

05472 

0 

00006 

1 

30014 

1 

53421 

0 

00006 

1 

32,2020 

31A21 

1 

53051 

0 

32172 

1 

04616 

1 

r: 

20334 

1 

05472 

0 

02036 

0 

447*6 

1 

32,2030 

6015A 

1 

00006 

1 

12014 

1 

00006 

1 

31051 

1 

02016 

) 

06042 

1 

l: 

77614 

1 

32,20A0 

C : 

01076 

1 

I : 

77414 

0 

C: 

02076 

1 

32172 

1 

04616 

1 

C : 

20621 

0 

06OA2 

1 

I : 

77634 

0 

32,  2050 

C: 

21574 

1 

C : 

34041 

c 

C : 

27056 

1 

I : 

7762^ 

1 

C : 

64132 

0 

C: 

16201 

0 

C: 

00015 

0 

C: 

340*1 

0 

3 2 ,2060 

C : 

27042 

1 

I : 

77624 

1 

C : 

64132 

0 

C: 

16207 

0 

C : 

00015 

0 

I : 

56225 

1 

C: 

02021 

0 

C: 

24175 

1 

32,207C 

C : 

02215 

0 

I : 

77776 

1 

34753 

1 

54333 

0 

32176 

0 

04616 

1 

r : 

01736 

1 

31321 

0 

32,2100 

54333 

0 

34744 

1 

70074 

0 

10000 

0 

02122 

1 

11301 

0 

12111 

0 

12115 

1 

32,2110 

12111 

0 

34363 

0 

04616 

1 

C: 

01736 

1 

12105 

0 

04616 

1 

C : 

16705 

1 

04616 

1 

32, 2120 

C: 

177C7 

1 

02122 

1 

05516 

0 

C: 

00054 

0 

32173 

0 

04616 

1 

C: 

20342 

0 

15472 

1 

32,2130 

15472 

1 

35472 

0 

1 : 

64375 

1 

C: 

00025 

0 

C : 

01734 

0 

I : 

72561 

0 

C: 

24202 

1 

l: 

53255 

0 

32,21A0 

C: 

24204 

1 

C: 

24212 

0 

I : 

77634 

0 

C: 

21773 

1 

C: 

24025 

0 

C: 

00017 

1 

I : 

74321 

1 

C: 

01734 

0 

32,  2150 

C: 

24200 

0 

I ; 

53212 

0 

C : 

24204 

1 

I : 

47055 

1 

C: 

24212 

0 

C: 

21773 

) 

I: 

77750 

0 

C : 

00024 

1 

32,2160 

I : 

72130 

0 

C; 

00155 

0 

C: 

00026 

0 

I : 

72130 

0 

C : 

00160 

0 

C : 

00030 

] 

I : 

43530 

0 

C: 

00162 

1 

32, 217C 

C : 

00216 

1 

C : 

14400 

0 

C: 

01420 

0 

C: 

14420 

1 

C: 

03100 

0 

C: 

00000 

1 

C : 

03720 

1 

C J 

15077 

0 

32,2200 

C: 

U5041 

1 

C: 

24402 

1 

C : 

25724 

1 

C: 

00000 

1 

C : 

60000 

1 

C: 

00000 

1 

c; 

60000 

1 

C: 

00000 

1 

32,2210 

C; 

60000 

1 

C : 

00000 

1 

C : 

37777 

1 

C: 

00000 

1 

C; 

37777 

1 

C : 

00000 

1 

C : 

37777 

1 

1 : 

77624 

1 

32, 2220 

C: 

27410 

1 

I : 

77745 

1 

C : 

03442 

0 

C: 

03661 

0 

C: 

00041 

1 

I : 

43014 

0 

C : 

01674 

0 

C: 

01673 

1 

32,2230 

I: 

43014 

0 

C: 

J1676 

1 

C : 

01675 

1 

I ; 

77624 

1 

C: 

27133 

0 

I : 

77624 

1 

C: 

11210 

1 

I; 

77775 

1 

32,22A0 

C : 

00017 

1 

C : 

17631 

0 

C: 

00015 

0 

C: 

34041 

0 

C: 

27410 

1 

I : 

43014 

n 

C : 

01^*74 

1 

C : 

01673 

1 

32,2250 

I : 

43014 

0 

C: 

01676 

1 

C : 

C2756 

1 

C: 

64257 

0 

I : 

43014 

0 

C: 

01476 

6 

C: 

01475 

0 

I: 

77624 

1 

32,2260 

C: 

27133 

0 

1 : 

7762^ 

1 

C: 

11210 

1 

1: 

77775 

1 

C ; 

C0025 

r 

C : 

25761 

0 

C : 

00017 

1 

C: 

01101 

0 

32,2270 

I : 

53435 

0 

C: 

01761 

0 

C : 

24025 

0 

C: 

03631 

0 

I : 

53435 

0 

C : 

00025 

0 

C : 

27637 

0 

C : 

OllOJ 

0 

32,2300 

I: 

50256 

0 

C: 

33637 

0 

I : 

77752 

1 

C: 

02732 

0 

I : 

44316 

0 

C : 

06514 

1 

I : 

77766 

0 

C: 

26730 

1 

32,2310 

C: 

01101 

0 

C: 

26655 

0 

C: 

01761 

0 

I: 

77676 

0 

C: 

02744 

1 

I : 

45014 

0 

C : 

03666 

1 

C: 

24732 

1 

32,2320 

I : 

77676 

0 

C : 

03645 

0 

I : 

77745 

1 

C: 

00037 

0 

C; 

27663 

I 

C: 

03645 

0 

T; 

77646 

0 

c ; 

24025 

0 

32,2330 

C: 

00001 

0 

C: 

03653 

1 

l: 

53435 

0 

C: 

03631 

0 

I : 

53435 

c 

C : 

03653 

1 

1 : 

76561 

C ; 

00025 

0 

32,23AC 

C : 

37665 

0 

C : 

11210 

1 

I : 

77624 

1 

C: 

27410 

1 

I : 

44345 

0 

C: 

03663 

1 

C : 

03661 

0 

C : 

25517 

0 

32,2350 

C: 

03653 

1 

C: 

01535 

c 

C : 

25503 

0 

C : 

03665 

1 

C: 

35511 

1 

C: 

27705 

n 

I ! 

45174 

1 

C: 

0000  2 

0 

32,2360 

C : 

26660 

0 

I : 

77624 

1 

C : 

27417 

0 

I : 

77776 

1 

04616 

1 

C : 

50040 

0 

04645 

1 

55737 

1 

32,2370 

05516 

0 

C : 

00120 

1 

00004 

0 

34751 

0 

00006 

1 

02033 

0 

54001 

1 

44751 

1 

gap;  assemble  revision  131  CF  AGC  FRCGPAM  LUMINARY  BY  NASA  2021112-0^1 
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OCTAL  LISTING  FOR  PARAGRAPH  « 171,  V.ITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  KORO,  "3"  OENCTES  UNUSED  FIXED  MEMORY 


ALL  VALID  IsORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED 


(INTERPRETIVE  OPERATOR  WORDS) 


OR  "C"  (CONSTANTS) 


32, 2A00 
32,2^10 
32,2A20 
32,2430 


7C110  0 60001  0 
12543  0 00004  0 
52160  1 30C3?  0 
53107  I 0O003  1 


54110  0 
53105  0 
54156  1 
04616  1 


00003  1 
52162  0 
00006  1 
C:  53114  0 


04616  1 
53101  1 
30025  0 
04616  1 


C:  53112  0 
53747  0 
52155  I 
C;  17705  0 


04616  1 C:  17705  0 
00006  1 30034  0 
00006  1 30036  1 
02537  1 00004  0 


32,24A0 

32,2450 

32,2460 

32,2470 


00006  I 31331  1 
31107  0 53753  0 
20217  1 C:  24002  0 
OHIO  0 C:  21577  1 


53761  1 
30156  0 
C:  03751  1 
C:  17736  0 


52162 

55461 

47135 

0110) 


C:  01107  0 
I : 66405  0 


521  60  1 
C:  14025  0 
C ; 21577  1 
C:  24004  0 


53460  0 
C : 03747  0 
C:  03734  1 
C ; 37757  0 


00006  1 
I : 57261  0 
I;  47135  0 
C : 46041  0 


32,2500 

32,2510 

32,2520 

32,2530 


17741  0 C:  06025  0 
54767  0 31401  0 
03741  0 I : 65552  C 
54154  0 12535  1 


C:  34041  0 
54771  1 
C:  01045  1 
l:  77776  1 


C : 51256  1 
06042  1 
I : 50025  0 
34755  1 


I : 77776  1 
I:  45175  0 
C:  24547  1 
54154  U 


31457  0 
C:  01101  0 
C:  64532  I 
31737  0 


*^4765  1 
C : 47653  1 
I : 77776  I 
046*0  1 


31460  1 
l:  77641  1 
34752  0 
30101  1 


32,2540 

32,2550 

32,2560 

32,2570 


74742  0 
34753  1 
50002  0 
52156  1 


10000  0 
55106  0 
31761  0 
11106  0 


12404  1 
34756  1 
50002  0 
12600  1 


34753  1 
lOOOO  0 
21101  1 
00006  1 


54154  0 02535  0 C:  00210  1 C:  21042  1 
54002  1 11106  n 12564  0 00006  1 
00006  1 50002  0 31101  n 50002  0 
50002  0 31761  0 5O002  0 20156  1 


32,2600 
32  ,2610 
32,  2620 
32,2630 


10002  1 
07535  0 
30033  1 
46250  1 


12553  X 
11106  0 
54765  1 
04616  1 


C : 


30034  0 
47677  1 


54767  0 
11106  0 


32776  0 54120  0 

00004  0 00006  1 


04713  0 C:  01023  1 
30036  t 53767  1 


30032  0 


54771  1 


04616  1 C : 4761  7 1 


12636  1 


12703  0 00004  0 


55106  0 


32,264C 
32,2650 
32  ,2660 
32, 2670 


31766  1 
52155  1 
20155  1 
20155  1 


05C32  0 54166  1 41766  0 
31767  0 05033  1 55766  0 
31767  0 05032  0 55767  1 
00006  1 30155  0 20155  1 


05033  1 
00006  1 
00006  1 
lOOOO  0 


54163  1 
70166  1 
70166  1 
34736  1 


00006  1 
00006  1 
00O06  1 
12677  1 


70126  0 
00006  1 


32  ,2700 
32,2710 
32,2720 
32,2730 


05012  1 
30006  1 
52155  i 
00006  1 


00303  1 
70126  0 
30166  0 
7 )126  0 


12552  0 
21107  1 
00006  1 
20155  1 


31767  0 
*0163  1 
70124  1 
30154  1 


C0006  1 
00006  1 
20155  1 
00006  1 


70122  I 
71766  0 
40163  1 
72777  0 


53107  1 
000C6  1 
00006  1 
55^54  0 


41766  0 
70122  1 
71767  1 
31106  1 


32,2750 

32,2760 

32,2770 


C 


00006  1 
12754  1 
00006  I 
03401  1 


72777 

04616 

03012 

50067 


0 

I 

1 

0 


55355  1 
C:  52317  0 
34743  0 
44740  I 


34750  1 
12772  0 
26077  0 
70076  1 


00006  1 02033  0 00004  0 
44742  0 70110  O 54110  0 
11055  1 44776  1 64777  1 
54076  1 15155  1 C:  00052  ^ 


C : 


00006  1 
44752  1 
05203  0 
56655  1 


gap:  assemble  REVISION  131  CF  AGC  PRCGBAM  LUMINARY  BY  NASA  2021112-091 


17:53  DEC,  19,3969 


PAGE  I6ft9 


OCTAL  LISTING  FOR  PARAGRAPH  H 172, 


WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  *'3"  DENOTES  UNUSFO  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED 


"I"  (INTERPRETIVE  OPERATOR  WORDS)  OR 


(CONSTANTS) 


32,3000  05353  1 
32,3010  34751  0 
32,302C  03012  1 
32, 3030  I : 43014  0 


C: 


04024  0 
55515  0 
06042  I 
00266  0 


04616  1 
44753  0 
1 : 43014  0 
C ; 00270  1 


C:  11233  0 
55346  0 
C:  02663  0 
I : 77201  3 


33255  0 
34755  1 
C:  03273  O 
C : 00001  0 


554*^5  0 
55623  0 
I : 43014  0 
C:  02023  1 


32000  0 
44736  0 
C:  C5660  1 
I:  41525  0 


55250  0 
00006  1 
C:  03067  0 
C:  02401  0 


32,3040 

32,3050 

32,3060 

32,307C 


C:  'J6520 
C:  06524 


C:  55716  1 
C:  34041  0 
C:  26603  0 
C:  0^643  0 


I:  64312  0 C:  01734  0 
C:  27056  1 I:  77331  0 
C : 06516  0 C : 16611  0 
I : 77745  1 C:  00015  0 


C:  37635  0 
C:  03647  1 
C:  25260  1 
Cl  27561  0 


C : 71343  0 
C:  00050  I 
C : 27665  1 
C : 00017  1 


I : 45345  1 
C:  06522  1 
C:  06524  1 
I : 64312  0 


C:  02401  0 
C:  26575  1 
C:  17253  0 
C:  01734  0 


32,3100  C:  37521  0 C:  £7067  I C : 35236  0 C:  62415  0 55646  0 06042  1 I:  57345  1 C:  03627  1 
32,3110  C:  02501  1 I:  44232  1 C:  03633  1 I:  45325  1 Cl  C2477  1 C:  02633  n j:  65222  0 C:  02631  1 
32,3120  I:  57316  1 C:  02503  0 I:  65232  3 C:  02627  0 I:  57225  0 C:  02475  0 C:  02501  1 I:  51515  1 
32,3130  C:  03627  1 I:  57225  0 C:  02473  0 C:  02505  0 I:  43215  0 I:  56215  1 I:  77661  0 C:  21613  0 


32,314C 

32,3150 

32,3160 

32,3170 


I : 43206  i 
I ; 43014  0 
C:  00025  0 
I : 77621  1 


C;  03561  0 
C:  01473  0 
C:  35543  0 
C:  00041  1 


C:  14041  1 
C:  00063  ^ 
Cl  27106  0 
C:  27442  0 


l:  45246  C 
I : 77745  1 
1 : 77650  1 
C:  03527  1 


C:  25264  0 
C:  03561  0 
C : 65072  1 
I:  53435  0 


I : 45040  1 
C;  25517  0 
1 : 54335  0 
C:  03521  1 


C : 65165  O 
C:  00017  1 
C:  03423  ) 
I : 72441  0 


C:  27410  1 
C:  25535  0 
C:  20617  0 
C:  03635  1 


32,3200 

32,3210 

32,3220 

32,3230 


C:  26617  0 
C:  74670  0 
C:  02621  0 
04674  0 


C:  C3253  0 
15155  1 
C:  27773  1 
C;  40143  0 


C:  02621  0 
06042  1 
C : 06522  1 
00003  1 


I : 77776  I 
l:  47131  1 
C:  03765  0 
04616  1 


05353  1 
C : 02747  I 
l:  77776  1 
C:  54123  0 


C:  04024  0 
C : 65217  P 
35016  0 
05353  1 


4436?  0 
C : 31127  1 
54003  0 
C:  04024  0 


04616  1 
53575  0 
00004  0 
34746  0 


32,3240 
32,32  50 
32  ,32  60 
32,327C 


00006  1 
13237  0 
30373  0 
64067  1 


12033  0 
34616  1 
00004  0 
15261  0 


00006  1 
C:  67701  0 
C;  01610  1 C: 

I : 52375  1 C: 


13251 

04635 

00000 

02511 


0 

0 

1 

0 


33256  0 04616  1 
C:  74130  0 C:  02100  ’ 
C : 00010  0 37713  0 
C:  03627  1 l:  52141  1 


20624  0 16001  1 
00500  1 Cl  00035  I 
05105  O C:  03305  1 
02517  0 C : 6315J  1 


32,3300 

32,3310 

32,3320 

32,3330 


05353 

00006 

57765 

31764 


1 

1 

1 

0 


00003  1 
71756  0 
96072  1 
61160  1 


34777  1 
21645  0 
00006  I 
54157  0 


05173  1 
00006  1 
30025  0 
31765  I 


C:  03265  0 00004  0 

3CC40  0 53764  1 

53762  1 31763  1 

61161  0 54161  0 


34755  1 57746  0 
52071  0 30041  1 
6U57  0 54154  0 
41763  0 61253  1 


32,3340  60070  0 
32,  3350  60072  1 
32,3360  55255  0 
32,3370  C:  01234  0 


C 


44753  0 
00037  0 


41764  1 61254  0 
34755  1 54J55  1 
54163  1 06042  1 
63271  0 C:  27110  1 


60071  1 55770  1 

54160  1 54162  0 

I : 65361  0 C : 26022  0 

r:  01236  ) I:  74251  1 


41765  0 61255  1 

55253  0 55254  I 

C : 03762  J I : 77625  0 

C:  02621  0 I : 53352  0 


gap:  assemble  REVISION  131  CF  AGC  FPCGRAM  LUMINARY  BY  NASA  2021112-001 


17;  53  OECo  19,196<; 
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OCTAL  LISTING  FOR  PARAGRAPH  V 173,  V,ITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DEfViTES  UNUSED  FIXED  MEMORY 


ALL  VALID  RORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I" 


(INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


32,3^00 

32,3410 

32,3420 

32,3430 


C:  D3527  I 
C:  17474  0 
C:  17775  1 
C:  05652  0 


C:  03474  0 
C:  00025  0 


C:  53746  1 
I:  41261  1 
I : 56221  0 
I : 77615  0 


C; 

C: 


I : 


03521  1 
20214  1 
03645  0 
45115  0 


77656  1 C:  00017  1 
03474  0 I : 45215  0 
02541  0 I : 51515  1 
06522  1 C;  47663  1 


l;  72441  n 
C:  00045  0 
C : 01236  1 
l;  77641  1 


C;  00031  0 
C:  02333  0 
I : 60471  0 
C:  00017  1 


32  ,3440 
32,3450 
32,3460 
32,347C 


C:  00027  1 
C:  03762  1 
C:  03611  1 
I ; 45271  1 


1 : 45465  1 
I : 65225  1 
C:  25527  0 
Cs  00027  1 


C:  50313  0 
C : 03760  0 
I : 56271  0 
I ; 43205  1 


C:  03767  1 
C;  03762  1 
C;  01244  1 
C;  02543  1 


I : 53361  C 
C:  17760  0 
C:  22006  1 
C:  03464  1 


C : 26022  0 
l:  55271  0 
I : 65215  1 
I : 56325  0 


C : 0262J  0 
C;  25530  0 
C;  oonci  0 

C : 02547  0 


I : 65246  1 
I : 41325  0 
C:  00025  0 
C:  01244  1 


32,3500 
32,3510 
32, 3520 
32,3530 


I:  56325  0 
1 : 51021  0 
I : 77776  I 
C:  0400U  U 


C:  12545  I 
C:  1000  3 1 
52155  1 
C:  OCOOO  1 


C:  01244  1 
C:  65514  1 
04616  ) 
C : 05075  0 


1 : 44206  0 
l:  77745  1 
C:  62147  1 
34751  0 


C;  00003  1 
I : 77745  1 
04616  1 
55515  0 


I : 71240  1 
I : 77601  0 
C:  63431  1 
33743  1 


C:  65514  1 
C:  00003  1 

c;  OOOCl  0 

‘^5455  0 


I : 41545  0 
C:  17464  1 
C:  OOOOO  1 
06042  1 


32,3540 

32,3550 

32,3560 

32,3570 


I : 
C; 


C : 


43014  0 C:  04665  0 
61C71  0 I ; 77776  1 
54345  1 C:  34003  0 
16015  I C:  13635  1 


C: 


C: 

C: 


20205  1 
03637  0 


I: 
C: 
I : 
C: 


43014  0 
00116  0 
77665  1 
03641  1 


C;  C3670  0 C : 06464  I 

13667  1 0604?  1 

C:  01244  1 C:  16271  1 

1 : 77665  1 C ; 25742  1 


I ; 45014  0 C : 04462  0 

I:  77624  1 C:  6571  6 1 

C;  01244  1 I : 70471  1 

C:  16263  1 C:  34015  1 


32,3600 
32,3610 
32, 3620 
32,3630 


C:  02267  0 
C:  36273  1 
I : 45345  1 
C:  71554  0 


I : 57535  0 
C;  57313  1 
C:  C3633  1 
l:  51025  1 


C:  26002  1 
I : 45246  0 
C : 02335  0 
C;  02561  1 


1 : 77702  1 
C:  02565  0 
I:  77661  0 
C;  65637  0 


C:  36265  0 
I : 7524C  0 
C:  20606  0 
I : 52175  0 


C:  60275  1 
C : 65620  0 
C;  03643  0 
C : 02551  1 


l;  77745  1 
C : 02335  0 
I:  45014  n 
C;  6S642  1 


C:  02567  1 
C:  03633  1 
r : 04461  0 
I;  43175  0 


32,3640 
32,3650 
32  ,3660 
32,3670 


C : 02555  0 C:  14470  0 

05353  1 C:  04024  0 

05146  1 00006  1 


16621  0 
C5504  C 
33745  I 


C : O0215  1 36000 


55250  0 


C: 

C; 


03631  0 C:  02625  1 I:  77414  0 C:  04471  1 
00216  1 04616  1 C;  73707  0 03725  1 
53252  1 C5353  1 C : 00004  P 15155  1 
06042  1 l:  77624  1 C:  60251  3 l:  45014  0 


0372  5 1 
35027  1 
05516  0 
04707  0 


32,3700 

32,3710 

32,3720 

32,3730 


65704 

05353 

03442 

00006 


1 

1 

0 

1 


77661 

15014 


1 

0 

0 

1 


I : 


C: 


7765C  I 
00006  1 
20214  1 
00002  0 


C 

C 

C 


65606 

31502 

03517 

OCOOO 


1 

1 

I 


1 : 


C : 


72545 
53517 
77616 
Cl  750 


0 

I 

0 

1 


c ; 

C : 


03517  1 
13654  1 
34737  0 
00021  1 


C : 03502  0 
I : 45234  O 
54055  0 
C:  33^00  0 


I:  77776  1 
C : 21574  1 
34750  1 
C:  11021  1 


32,3740 

32,3750 

32,3760 

32,3770 


OOOOO  1 
15155  1 

a) 


C:  C0507  0 
C:  03751  I 
a 
a 


C:  25605  0 C;  02114  1 
C : C3752  1 CKSM  61  554  1 


03372 

a 


C:  70067  1 

a 


05353  1 C : 00035  1 

a a 


a 


a 


GAP:  ASSEMBLE  REVISION  131  CF  AGC  PPCC-PAM  LUMINARY  BY  NASA  2P21312-091 


17:53  DEC*  19,1069 
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OCTAL  LISTING  FOR  PARAGRAPH  H 174, 


RITh  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  CF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I" 


(INTERPRETIVE  OPERATOR  WORDSI  OP  "C  " (CONSTANTS! 


33,2000 

33,2010 

33,2020 

33,2030 


C: 

C: 


C : 
C: 


41545  0 
65363  1 
01507  I 
26003  0 


C : 
C: 


C : 


C 

C 

C 

C 


: 71210 
: 03216 
: 00150 

: 77644 


1 

0 

1 


C: 
C : 
Ct 
r : 


OOOOO  1 
30153  0 
33343  C 
65556  1 


C : 
C : 
C : 
C: 


OOOOO  1 
23101  0 
02630  0 
64453  1 


C:  72333  1 
C : 63105  0 
Ct  250ir  1 
C:  55670  0 


C: 
C: 
C : 
C: 


45546  1 
61733  1 
24402  1 
00002  0 


33  ,2040 
33, 2050 
33,2060 
33,207C 


11777  0 
12123  I 
54076  1 
10000  0 


01023  1 
00004  0 
44753  0 
12104  1 


37155  I C:  00065  1 
26110  0 44736  0 
70C74  (1  54C74  0 
35031  0 05072  1 


C 

C 


: 06244  0 40110  0 

00006  1 03012  1 

04616  1 C : 52167  0 

; 0211?  0 C : 66067  0 


74742  0 00006  1 
44740  1 70076  1 
34740  0 70110  0 
44742  0 70110  0 


33,2100  54110  0 
33,2110  34741  1 
33,2120  C : 17705  0 
33,2130  20155  I 


2A736  1 
26110  0 
15155  1 
54163  I 


26110  0 
12573  0 
15155  1 
30155  0 


12573  0 
34753  1 
00006  1 
00006  1 


34753  1 05203  0 C:  C3604  0 
05203  C C:  02202  0 C:  52067  1 
41234  1 52155  1 00006  1 
74740  1 52155  1 06042  1 


C: 


52067  1 
04616  1 
30025  0 
52315  1 


33,2140  C:  01726  0 
33,2150  C:  66152  1 
33,2160  C:  01263  1 
33,2170  44776  I 


03527  1 1 : 7^325  0 
12573  0 C : 25101  0 
40074  0 74753  0 
64777  I 05203  0 


I:  52255  1 
C:  00001  0 
00006  1 
C:  03357  0 


C:  C1720  0 
T:  77761  1 
12573  0 
C:  50067  0 


C ; 03521  1 
C:  26177  1 
00004  0 
12573  0 


I : 77414  0 
C:  01761  0 
2607^^  0 
C:  00006  1 


C:  01043  1 
I : 77414  0 
11055  1 
C : 10000  0 


33,2200 

33,2210 

33,2220 

33,2230 


C:  75751,  0 
C;  20000  0 
I : 51575  1 
00006  1 


C : J22J  / 1 
C:  00325  0 
31244  1 


C:  C0C22  1 
C:  66067  0 
I : 77776  1 
53571  1 


30154  1 
40104  0 


00007  0 
55074  1 
55245  1 
74744  0 


16100  1 
04616  1 
00006  1 
00006  1 


72020  n 
12254  1 


16035  0 
06042  1 
5351  4 1 
30106  0 


33,2240  74737  1 
33,2250  10002  1 
33,2260  02440  0 
33,2270  C:  03307  0 


10000  0 
C0006  1 
04616  1 
66771  0 


0O006  1 
71243  I 
C:  47617  I 
C:  66735  0 


32001  1 
21571  J 
32414  1 
77776  1 


54002  1 
32021  0 
04616  1 
03512  1 


00006  1 
07312  0 
C : 20037  1 
02423  0 


31514  0 00006  1 

52155  1 21510  0 

0604?  1 1 ; ^,5014  0 

55157  1 55160  0 


33,2300 

33,2310 

33,2320 

33,2330 


55161  1 44741  0 
40102  0 74752  1 
40076  1 74741  0 
12375  0 34743  0 


70076  1 54076  1 
10000  0 12346  0 
26076  I 34753  1 
00006  1 02C32  1 


34745  0 70103  1 
41250  0 61245  0 
55515  0 30106  0 
00006  1 12375  0 


iOOno  0 12342  1 
00006  1 62352  1 
74737  I lOOOO  0 
44736  0 70111  1 


33,234C  54111  1 
33,2350  26102  0 
33,2360  C:  00374  I 
33,2370  31570  1 


12400  0 
12375  0 
37716  0 
5551 5 0 


44752  1 
03512  I 
05072  1 
00004  0 


70102  0 54102  0 
11515  0 12366  1 
02575  1 C : 74067  0 
04674  0 C:  4ul66  1 


12375  0 
10760  1 
12400  0 
40111  1 


40102  O 74752  1 
12400  n 05353  I 
55570  0 03512  1 
74736  0 26111  1 


gap:  assemble  revision  131  CF  AGC  PPCGRAf-  LUMINARY  BY  NASA  2321112-091 


17: 53  OECo  19i 1969 
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OCTAL  LISTING  FOR  PARAGRAPH  H 175,  ^iITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  CF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED 


(INTERPRETIVE  OPERATOR  WORDSI  OR 


"C"  (CONSTANTS) 


33,2A00 

33,2*10 

33,2A2C 

33,2430 


00003  I 
03512  1 
32437  0 
50C61  0 


04616  1 
00006  1 
32424  1 
21545  1 


C 


*0463  1 
31252  0 
05155  0 
50061  0 


30167  1 
52006  0 
36007  0 
53220  1 


75004  1 
02145  0 
C0004  0 
1O061  1 


54166  1 
I : 77624  1 
7775?  1 
12425  1 


22007  0 52121  1 
66667  O l:  77776  1 
54061  1 00006  1 
00002  0 C:  00022  1 


33,2440  31155  1 
33,2450  C : 00051  0 
33,2460  12546  3 
33,2470  00006  1 


77776  I 
12506  1 


31156  1 54767  0 
05105  0 C:  03634  0 
40107  0 74735  0 
00006  1 33113  1 


31154  0 54771  1 00002  0 
66067  0 40107  0 75015  J 
00006  1 12551  0 40107  0 
52155  1 00006  T 31535  0 


74743  1 
20155  1 


33,2500 

33,2510 

33,2520 

33,2530 


10000  0 
00006  1 
00006  1 
54001  1 


12540  0 
41545  0 


05504  0 
40107  0 
31642  0 
22003  I 


C:  00311  1 
74751  1 
61427  1 
61430  1 


05504  0 C:  00253  0 
00006  1 ] 3115  O 
00006  1 62536  0 
00006  1 62447  1 


40107  0 74742  0 
40107  0 74741  0 
34741  1 56003  1 
34746  0 12541  1 


33,2540 
33,2550 
33  ,2560 
33,2570 


34745  0 
54107  0 
10000  0 
44742  0 


03674  1 
03512  1 
12567  0 
70110  0 


13115  0 
30077  1 
30110  1 
54110  0 


05567  C 
75014  0 
77713  1 
06042  1 


C:  C0511  1 00004  0 43111  1 70107  0 

10000  0 12567  0 30110  1 72250  0 

10000  0 12573  0 12045  0 00004  0 

l:  51575  1 C:  03573  0 I:  45?0f  T C:  02333  0 


33,2600 

33,2610 

33,2620 

33,2630 


C:  03535  1 
C:  03720  1 
C : 01734  0 
C:  26030  0 


C:  C3775  1 
C:  27726  1 
C:  27553  1 
C:  2161  3 0 


I : 47C75  0 
C:  03573  0 
C:  03537  0 
1 : 77776  1 


C:  26026  1 
I:  60505  1 
l:  51435  1 
00C04  0 


C : 21613  0 
C : C1734  0 
C:  03601  0 
31536  0 


C:  27742  0 
C:  27545  0 
l:  63552  0 
55743  1 


C:  03537  0 
C:  f'36Cl  0 
I:  77671  t 
31540  1 


I : 53435  0 
I : 76505  0 
I : 47075  0 
55744  0 


33,2640 
33,2650 
33, 2f  60 
33,267C 


C 


31542 

31575 

00006 

03537 


0 

1 

1 

0 


55745 
53523 
31603 
I : 57340 


1 

0 

0 

1 


C : 


30154  1 
00006  1 
53531  n 
02777  1 


55716 
31577 
00006 
C;  03000 


1 

0 

1 

1 


Cf006 
53525 
31605 
I:  50076 


1 

0 

0 

0 


31573  1 53521  I 00006  1 
00006  1 31601  1 53527  1 
53533  1 12275  1 U 41456  0 
66724  0 1:  50375  0 C:  06516  0 


33,2700 

33,2710 

33,2720 

33,2730 


C:  03537 
I : 41205 
C:  06516 
C:  26032 


I : 41552  C 
C:  26042  0 
I : 45455  1 
C:  56623  0 


: 44316  0 
: 65361  0 
: 74256  0 
: 45561  1 


C 

C 

I 

C 


26766 

03537 

41455 

7421* 


1 

0 

0 

0 


I : 56325  0 
I : 41205  0 
I:  60345  0 
I : 77616  0 


C:  26040  1 C:  00043  0 

C:  26044  0 C : 00041  1 


C:  00041  1 
I : 76561  1 


C;  00043  o 


00050  1 I : 53663  1 


I : 61375  1 


00325  0 C:  01734  0 


33,2740 

33,2750 

33,2760 

33,277C 


I ; 76561  1 
C:  01247  1 
I : 53255  0 
C:  00000  1 


C:  26022  0 
l:  74261  I 
I:  77655  1 
I : 41575  C 


C:  03527  1 
C : 20207  0 
C:  01226  0 
C:  02317  0 


I:  *1562  C 
I : 44055  1 
C:  37553  0 
l:  65255  0 


I:  41455  0 
C:  01220  0 
C : 00037  0 
C:  01726  0 


C : 01236  1 
C:  00037  0 
C:  01463  1 
C;  01247  1 


I ; 65255  0 
C:  37545  1 
C:  06315  0 
I : 74271  0 


C:  01226  0 
C : 66667  0 
C:  00010  0 
C : 26770  0 


GAP  : 


ASSEMBLE  REVISION  131  CF  AGC  PFCGHAR  LUMINARY  BY  NASA  2C21112-OS1 


17:53  OECo  19,196S 


PAGE  1693 


OCTAL  LISTING  FOR  PARAGRAPH  1i  176, 


V.ITH  PARITY  BM  IN  BINARY  AT  THE  RIGHT  CF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I" 


(INTERPRETIVE  OPERATOR  WORDS!  OR  •’C"  (CONSTANTS! 


33,3000 

33,3010 

33,3020 

33,3030 


I : 
I: 
C; 


77655 

77776 

03601 

53206 


1 

1 

0 

0 


C:  01720  0 
03512  1 
C:  31726  0 
C:  01236  I 


37573  1 C:  67067  1 
06042  1 I : 77775  1 
77776  1 03512  1 
53206  0 C:  03527  1 


I:  53255  n 
C:  03563  1 
06042  1 
I ; 56325  0 


C:  01726  n 
C:  26317  0 
I : 74375  0 
C:  01247  1 


I : 77626  0 
C:  03573  0 
C : O0325  0 
C:  26770  0 


C:  74176  1 
C:  25720  0 
C:  26024  0 
I : 77761  1 


33,3040 

33,3050 

33,3060 

33,3070 


I : 77655  1 
I : 77646  0 
C:  02325  1 
C:  17537  i‘ 


C:  03521  1 
C:  27472  0 
C:  17734  1 
C:  00043' 0 


C:  37573  1 
C:  03537  0 
C:  00C45  0 
I:  55261  1 


C:  67067  1 
I:  72441  0 
l:  77625  0 
C:  20207  0 


I : 53255  0 
C:  03601  0 
C:  02333  0 
C:  26036  C 


I : 77655  1 
C:  27474  0 
C:  37535  0 
I : 74205  o 


C:  03527  1 
C : C3573  0 
C:  66A61  1 
C : 26770  0 


C:  03601  0 
I : 72435  0 
I:  77656  1 
C:  03537  0 


33,3100  C:  03563  1 
33,3110  C:  00620  0 
33,3120  12545  0 
33,3130  l:  61375  I 


776)  6 0 
00  1 10  1 
34750  1 
0227  3 0 


C : 00303  1 
C:  37767  0 
70107  0 
C : 02146  O 


C:  00014  1 
C:  02200  1 
00006  1 
I : 72515  0 


C:  20000  0 
C : 04445  0 
13250  1 
C:  03601  0 


C:  00000  1 C:  00310  0 C:  00000  1 

347^2  1 70107  0 10000  0 

30120  1 54166  1 0604-2  1 

I:  50255  0 C:  03734  i c:  00001  0 


33,3140 

33,3150 

33,3160 

33,3170 


I : 77405  0 
06042  1 
C:  03535  1 
1 t 45246  0 


C: 
I : 


C: 


11352  1 
54215  0 
03665  I 
02521  0 


40110  0 
C ; 03655  1 
I:  77776  1 
I:  45252  0 


74743  1 
C:  2021D  0 
30107  1 
C:  03535  1 


00006  1 
I:  74205  0 
74741  0 
I : 77776  1 


13150  1 
C:  26011  0 
00006  1 
25670  1 


31353  0 07312  0 
45241  1 C:  03537  0 
13203  1 06042  1 
06726  1 13520  1 


33,3200 

33,3210 

33,3220 

33,3230 


13520  1 
40545  I 
13222  1 
71421  0 


05516  C C : 00263  0 
03535  1 I:  77776  I 
13250  1 54156  1 
00006  1 11420  1 


40107  0 
OOC.06  1 
40001  1 
54135  1 


74744  n 
31665  0 
61420  0 
07316  1 


10000  0 
52155  1 
00006  1 
06042  1 


13250  1 06042  1 
075^7  0 00006  1 
63250  n 00006  1 
77752  1 I : 53361  0 


33,3240 

33,3250 

33,3260 

33,3270 


03537  0 
03512  1 
60001  0 
31656  0 


03573  0 C:  37657  1 
40107  0 74745  1 
60001  0 50120  1 
54767  0 31654  1 


67067  1 
10000  0 
52047  0 
54771  1 


77776  1 03512  1 
1345^^  0 4165)  0 
34741  1 54003  0 
04616  1 C:  47617  1 


347  55  1 
54001  1 
31655  o 
30120  1 


03474  0 
26001  1 
54765  1 
54166  1 


06042  1 
C:  51764-  0 
220C7  0 
l:  65361  0 


I:  45173 
I:  77776 
52160 
C:  26022 


C:  02231  0 
44753  0 
31661  1 
C:  02253  1 


47675  0 
5*163  I 
22007  0 
56225  1 


1 : 54325  1 
31657  1 
52162  0 
C ; 01234  0 


C:  03653 
22007 
35016 
C;  27106 


1 

0 

0 

0 


20215  0 l:  4140?  0 
52155  1 31660  0 
54003  0 06042  1 
76561  1 C:  01236  1 


33,334C 
33,3350 
33,3360 
33,3’3  7C 


I : 53255 
l:  44241 
13535  ' 
C : 00250 


C:  03527  1 
C:  00001  0 
J5516  0 
31651  1 


53352  0 
51406  1 
00262  1 
67751  0 


C:  03734  1 
I : 77425  1 
30107  1 
00006  1 


I:  51406  1 
C:  00025  C> 
74740  1 
13454  n 


43202  0 
25672  0 
00006  1 
40107  0 


1?375  1 
74744  0 


C : 


2402  5 0 
13535  0 
05516  0 
10000  0 
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OCTAL  LISTING  FOR  PARAGRAPH  « 177,  V.ITH  PARITY  81  7 IN  BINARY  AT  THE  RIGHT  CF  EACH  WORD,  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  EASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPEPATCR  WORDS)  CR  "C  " (CONSTANTS) 


33, 34CC 
33,3410 
33,3420 
33,  3430 


5D131  1 
34755  1 


54130  1 
63426  I 
00006  1 
44745  1 


31651  1 
40130  1 
11526  C 
61010  1 


54131  0 
61526  1 
13432  0 
00006  1 


35014  \ 
00006  1 
50131  1 
63441  n 


54003  0 
63431  1 
31533  0 
31536  0 


33,3440 

33,3450 

33,3460 

33,3470 


54154  0 
77776  1 
13467  0 
05072  1 


35016  0 54003  0 
03512  1 36245  1 
41471  0 63114  0 
03556  1 C:  66067  0 


06042 

03474 

00006 

12545 


1 

0 

I 

0 


03512  1 
62545  1 
54130  1 


I : 77655  1 C:  03601  0 
34747  1 70107  0 

05504  0 C:  00257  1 
00006  1 31657  1 


03657 

10000 

37723 

50130 


0 

0 

0 

0 


33,3500 
33,3510 
33,3520 
33, 3530 


53573  0 00006  1 
53577  1 00102  0 
41671  1 00006  1 
05504  0 C:  00263  0 


31661  1 
35007  0 
13532  1 
31670  1 


50130  0 
56003  1 
6167C  1 
55673  1 


53575  O 
52002  1 
77750  0 
13250  J 


00006  I 
55446  1 
00006  1 
41673  0 


31663  0 
22003  1 
13530  0 
00006  1 


50130  0 
00000  1 
13532  1 
13547  0 


33,3540 

33,3550 

33,3560 

33,3570 


61672  0 
55673  0 
03632  0 
04616  1 


77750  0 
11651  0 
70064  1 
17705  0 


00006  1 
13454  n 
11651  0 
13625  I 


13545  1 
05504  0 
13565  0 
11675  0 


13547  C 05504  0 
00250  0 13454  0 
34752  0 60000  1 
13626  1 00004  0 


C : 00262  ) 31672  0 

3436]  1 05203  0 

04616  1 C:  53116  1 
00006  1 31101  0 


33,3600 

33,3610 

33,362C 

33,3630 


53653  1 
53735  0 
11651  0 
00004  0 


34741  1 
3J656  0 
13623  1 
-^0107  0 


54003  0 
55736  0 
34752  0 
75015  1 


00006  1 
35016  0 
55651  0 
26107  0 


31653  0 53740  1 
54003  0 40107  O 
15155  1 34752  0 
04616  1 C:  53454  1 


00006  1 31655  0 
74745  1 26107  0 
55675  0 13620  1 
04616  1 C;  17705  0 


33,3640 

33,3650 

33,3660 

33,3670 


13653  0 
05353  1 
13670  I 
34745  0 


37714  1 
C:  OOGOl  0 
05155  0 
03674  1 


05146  1 03717  0 
05155  0 33757  1 
05504  0 C:  00261  1 
13641  0 13653  0 


05504  C C:  00256  0 05516  0 
04616  1 C:  2156?  I 13650  0 
34746  0 03674  1 03646  0 
00006  1 02033  0 00006  1 


13641  0 
16745  0 


33,3700 
33,3710 
33, 372C 
33  ,3730 


56002  0 
22765  0 


04645  1 
55671  1 
55650  1 
34755  1 


55656  1 
55673  0 
35014  1 
54767  0 


34752  0 
55651  0 
54003  0 
35016  0 


55674  1 
C3720  1 
00006  1 
54003  0 


55675  0 
31656  0 
50002  0 
06042  1 


?47'^5  1 
04640  1 
31523  I 


55670  0 
34752  0 
54771  1 


33,3740 

33,3750 

33,3760 


47653 

26231 

03760 


1 

0 

0 


26237 

26003 

J3761 


C;  06522 
I : 77624 
CKSM  65026 


77624  1 C:  47673  0 

47673  0 C;  02273  0 

ai  a 


C : 02245  0 
I : 77776  1 
3 


76435  1 C:  02237  0 

01650  0 C:  00523  0 

3 2 


33,377C  3 


3 


3 


3 
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OCTAL  LISTING  FOR  PARAGRAPH  ft  200*  k^ITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S"  DENUTFS  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C  (CONSTANTS) 


3A,20CC  I : 71220  1 

3At20J0  C:  036A2  1 

3A,2020  C;  00001 

34,2030  I ; 76505  0 


C;  73632  0 
I : 57456  I 
C:  72776  0 
C:  000(51  0 


C:  03442  0 
C:  27656  1 
IS  47206  0 
C : 03656  1 


C:  34041  0 
C:  00007  0 
C:  03656  1 
I : 77646  0 


C:  27056  1 
C:  036  50  1 
I;  63372  1 
C:  27664  0 


: 67175  0 
: 53435  0 
: 63315  0 
; 03642  1 


C : 00001  0 C : 02777  1 

C:  03642  1 I:  66001  0 

C : 03656  1 C : 03434  1 

I : 5331 50  C : 03650  1 


34,2040 
34,205C 
34,  2060 
34,2070 


C:  03656  1 
C : 00005  1 
C:  00020  0 
C:  JOOOO  1 


I;  77624  1 
I : 77624  1 
C:  00003  1 
C:  10000  1 


C:  46341  0 
C:  46451  0 
C : 34661  1 
C:  00001  0 


00606  1 
00004  0 


C : 
C: 
C: 
C : 


46451  0 
45636  0 
04467  0 
31566  0 


I : 77624  1 
C:  36317  1 
C:  00601  0 
C:  00000  1 


C:  45636  0 
C : 03632  O 
C:  33216  1 
C:  01177  1 


C:  16321  0 
C : 00000  1 
C : 10000  0 
C:  D0002  0 


34,21C0 

34,2110 

34,212C 

34,2130 


C : 
C: 
C : 


27311 

06433 

03063 

41446 


1 

0 

1 

1 


C:  77754 
C:  00003 
I:  77745 
l:  70501 


1 

1 

1 


C 

C 

c 

c 


57611  0 Cs  00000  1 
25140  0 1 : 43014  0 
32425  0 C:  03606  1 
00050  1 1 : 51515  1 


C 

C 

C 

C 


12326  0 
03260  0 
03614  1 
03552  0 


C:  00116  1 C:  C0730  0 
C:  03061  0 I : 43014  0 
1 : 77201  1 C : OOOOl  O 
I : 55301  n C : 00047  1 


C : 00000  1 
C:  03262  1 
C:  02303  0 
I : 53664  0 


34,2140 

34,215C 

34,2160 

34,2170 


C:  00046  0 
1 : 75457  0 
C;  03472  0 
C:  03606  I 


C:  57175  0 
C:  201^2  1 
I:  45421  1 
l:  77025  0 


I:  41215  I 
I : 53515  0 
C:  602C3  0 
C:  30060  1 


C:  30C70  C 
C:  02303  0 
C s 30062  0 
C;  00006  1 


I : 65301  0 
I;  47315  0 
C:  03612  1 
I : 77644  1 


C : 00047  1 
C:  02261  0 
I;  43345  1 
C : 70776  0 


C : C2321  0 
I : 77656  1 
C:  03606  1 
I : 776C1  0 


I:  56342  1 
I : 72441  0 
C:  30072  1 
C:  ooOOl  0 


34, 2200 
34,2210 
34,2220 
34,2230 


I ; 51545  1 
C:  70776  0 
C:  30066  1 
l:  53435  7 


C : 03574  1 
I : 43014  0 
I : 77765  0 
I : 76561  1 


I : 50025  0 
C:  03342  1 
C5  03574  1 
C : C3574  1 


C:  30064  0 
C:  70216  0 
C:  03574  1 
C:  02267  0 


C:  70224  ) 
C J 03303  1 
I : 41575  0 
I : 40055  0 


l:  43174  1 
C : 70776  0 
C : 02303  0 
C:  03472  0 


C:  00007  0 
I : 71214  o 
I : 63256  0 
CS  70237  O 


C : 03300  1 
C:  03060  1 
C : 02261  0 
C:  37566  0 


34,2240 

34,225(^ 

34,2260 

34,2270 


C:  46441  1 
I : 72142  0 
I:  52054  1 
I : 45145  0 


C:  26744  1 
C : 02776  0 
C:  70263  1 
C:  00041  1 


I:  77614  1 
C : 37604  1 
C:  70372  0 
C:  46451  0 


C;  03466  0 
C:  46351  1 
I : 77745  1 
l:  60201  1 


C : 26655  0 
l:  77624  1 
C:  02752  0 
C:  C0003  1 


C:  32421  1 
C:  46451  0 
1 : 50025  o 
C t 00047  1 


r ; 36730  O 
C : 17602  0 
C:  30110  1 
I : 50315  0 


l:  036i'l  I 
C;  70372  0 
C:  02303  0 


34, 2300 
34,2310 
34,2320 
34,2330 


C: 
C: 
C : 
I : 


03566  1 
02740  0 
00041  1 
50315  0 


77624 

02302 


C:  00003  1 
C:  30070  0 
C:  46451  0 
C:  03566  \ 


I : 45257  0 
C:  14C17  1 
I:  72412  0 
C:  03617  1 


C:  20201  0 
C : C2317  C 
I:  41366  1 
I : 77646  0 


C:  30100  0 
I : 56342  1 
I : 52414  1 
I : 41301  0 


I:  71240  1 
I : 41325  0 
C : 04343  I 
C;  00050  1 


C:  70372  0 
C:  02740  0 
C ; 70330  0 
I;  53660  1 


34,2340 

34,235C 

34,2360 

34,2370 


C : 000  47  1 
C:  02303  0 
C:  03466  0 
I : 52006  0 


C:  20204  0 
I : 75315  1 
C:  36655  1 
C:  70376  1 


C;  14015  0 
C : 03566  1 
C:  24732  1 
I : 712C1  1 


C;  32425  0 
C:  03617  1 
1 : 51125  0 
C;  00001  0 


C:  00021  1 
I:  45076  1 
C : 03617  1 
CJ  32425  0 


I : 53575  0 
C:  46441  1 
C : 70376  1 
I:  77606  1 


C : 00015  0 
C:  26744  1 
I : 45345  1 
I : 41345  0 


C:  26730  1 
I : 77614  1 
C:  03604  0 
C : 03467  I 


GAP 
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octal  listing  for  paragraph  « 201,  VITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "2”  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  *'C"  (CONSTANTS) 


3A,2AC0 
3^, 2^10 
3^,2420 
34, 2430 


C : 03604  0 
C:  0D005  1 
C:  71062  0 
I : 77624  1 


I : 
I: 


C ; 


45261  0 
40240  0 
26311  0 
71062  0 


C:  20217  1 
C;  70776  0 
C:  00007  0 
C:  27522  1 


l:  77615  0 
C;  OOOOl  0 
C:  27514  1 
C:  00007  0 


C;  03634  0 
I : 63375  0 
C:  03506  1 
C:  37530  0 


C:  01777  1 
C:  03566  1 
I : 63201  1 
C:  71133  0 


l:  77021  1 
C:  02303  0 
C : OOOOl  0 
1 : *0375  ] 


C : 03636  1 
I:  7762*  1 
C:  03500  1 
C:  02311  0 


34,2440 
34,2450 
34, 2460 
34,2470 


C:  OOOOl  0 
I : 63201  1 
l;  77624  1 
I : 53515  0 


1:  45115  0 
C:  OOOOl  0 
C:  73376  1 
C:  T3536  1 


C;  03544  I 
C:  02311  0 
I : 77624  1 
C;  OOOCI  0 


C:  46341  0 
1:  65325  0 
C:  46425  0 
I : 47315  0 


I : 77624  1 
C:  01777  1 
I:  77745  1 
C : C2261  C 


C ; 46451  0 
C:  03636  1 
C;  02257  0 
I : 77656  I 


C:  2760*  0 
I : 41525  0 
1:  734C1  0 
I : 7152  5 0 


C;  03544  1 
C:  33641  I 
C:  00007  0 
C:  02257  0 


34,2500 
34,2510 
34,252C 
34,  2530 


I : 45561  I 
1;  72316  0 
C:  03552  0 
C:  OOOOl  0 


l:  00155  o 

C:  33552  0 
I : 77654  0 


I : 74345  ^ 
I : 50315  0 
I : 76371  0 
C : 72043  0 


I:  76455  I 
C:  03536  1 
I:  71244  0 
l:  70545  1 


C:  00023  0 
C:  03536  1 
C:  7C542  0 
C:  03612  1 


I:  50206  0 
I ; 57551  1 
C : 03606  1 
C:  03612  1 


C:  03536  1 
C:  00155  0 
I : 77025  0 
I : 77621  I 


I : 41552  0 
I:  50315  0 
C:  30072  1 
C:  03576  0 


34,2560 

34,2570 


C: 
I : 


37574  0 
77646  0 
00013  0 
53515  0 


70165  1 l;  41566  1 
14017  1 C:  00013  0 
77745  1 C : 00013  0 
,)3560  1 I : 63235  0 


I:  45276  0 
l:  45246  0 
I : 7656)  1 
C:  00007  0 


C ; 00007  0 C ; 14013  0 I : 
C;  00017  1 I : 71240  1 C: 
I : 53455  0 C:  03536  1 1: 
C : C0007  0 I i 50235  0 C : 


45425  0 C:  77762  1 
70561  1 C:  00015  0 
53515  0 C:  03552  0 
OOOOl  0 I : 77626  0 


34, 2600 
34,2610 
34,2620 
34,263C 


C:  00003  1 
I : 41345  0 


1 ; 72441  0 
l:  65225  1 
C:  03574  1 
Cs  00002  \ 


I : 75326  1 
C:  03610  0 
C : 03576  0 
C : 03610  0 


C:  00015  0 
C:  03574  I 
l:  43014  0 
I : 71244  0 


1:  41542  1 
I : 60225  1 
C:  03342  1 
C:  70663  0 


1 : 71214  0 
C : 03576  0 
C : 70656  C 
C:  30062  0 


C:  03301  0 
C:  00047  1 
C : 0334?  0 
l:  77765  0 


C : 706**  0 
l:  65265  0 
C;  70656  0 
C:  03612  1 


34,2640 
34,  2650 
34,2660 
34,2670 


C:  03612  1 
C : 03576  0 
C;  70702  0 
C:  03612  1 


I : 43014  0 
1 : 43025  1 
C:  03303  I 
I : 43276  0 


C:  03062  0 
C:  03612  1 
C ; 7C702  0 
C:  03574  1 


C:  03265  0 
C:  03261  1 
I : 75345  1 
C:  17574  1 


I : 77745  1 
C:  37574  0 
C:  30102  1 
C;  OOOOl  0 


C:  OOOOl  0 
C:  70165  1 
C:  00005  1 
I : 43014  0 


C : 17610  0 
I : 430) * 0 
1 : 77765  0 
C : 03063  T 


C:  03574  1 
C ; 03302  0 
C:  03610  0 
C:  03062  0 


34, 2700 
34,2710 
34,272C 
' 34,2730 


C; 

I 

C 

C: 


37610  1 
77657  0 
30076  0 
03612  i 


C : 
C; 


C: 


70176 

20601 

71240 

G3612 


0 

1 

1 


l:  lfbi2  1 
C:  70737  0 
I : 45345  1 


C:  00005  1 
C:  OOOOl  0 
I:  50025  0 
C:  03574  1 


C:  00050  1 
C : 03610  0 
C:  30106  0 
r:  03612  I 


I : 54065  0 
I : 51545  1 
C;  70732  0 
r:  37574  0 


C:  OOOOl  0 
C:  03612  1 
I : 75345  1 
r:  70165  1 


C:  00047  1 
I:  45206  1 
C ; 30X06  0 
I;  77145  1 


34,2740 

34,2750 

34,2760 

34,2770 


C:  03602  0 
C:  00003  1 
C:  02253  1 
C : 03636  1 


C;  00002  0 
C:  03604  0 
I:  45374  0 
C:  01777  1 


C: 

C: 


77750  0 
50023  0 
00004  0 
02255  I 


C:  02776  0 
C;  30072  1 
C:  30112  0 
I:  51025  1 


I : 50023  0 
C:  70776  0 
I : 77040  0 
C;  30112  0 


C : 30072  1 
I:  45345  ) 
C : 70776  0 
C ; 72157  I 


70776 
01777 
00005 
430)  4 


0 I : 71374  1 

1 C ; 03634  0 

1 l:  45345  1 

0 r. : 03302  0 
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3CTAL  LISTING  FOR  PARAGRAPH  U 202,  hITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3''  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPEPATCR  WORDS)  OR  "C”  (CONSTANTS) 


3A, 300C 
34,3010 
34,3020 
34,3030 


C : 72045  0 
C:  03061  0 
C : 03442  0 
C:  03552  0 


C : 03343  0 
1:  43014  0 
C:  34041  0 
C : 03522  1. 


C ; 
C: 


C : 


72045  0 
03262  1 
46403  1 
03500  1 


l:  71334 
C:  03263 
l:  77214 
I:  47256 


C: 

C 

C 

C: 


03613  0 
37606  0 
C1067  1 
03506  1 


C:  32425  0 
C:  70125  0 
C : 03560  1 
I:  77656  1 


1 : 43014  0 
1 : 71220  1 
C : 03530  1 
C:  26261  0 


C : 03260  0 
C:  03470  1 
C:  27506  1 
C:  03536  1 


34,3040 
34,305C 
34,  30  60 
34,3070 


37642  0 
37472  1 
74246  1 
73376  1 


C:  71052  0 
C;  03470  1 
1 : 43572  0 
I : 65325  0 


C:  02311  0 
I : 41406  0 
1 : 65325  0 
C:  01777  1 


C:  26303  0 
I:  74241  0 
C:  03634  0 
C:  03636  1 


C : 03544  1 
C:  02261  0 
C:  01777  1 
I : 41525  C 


C : 37650  0 
C:  02261  0 
I : 41525  0 
C : 32425  0 


C:  71052  0 
I : 51352  1 
C:  33641  1 
I : 77650  1 


C:  03514  1 
1 : 63256  0 
I:  77650  I 
C:  73376  1 


34,3100 
34,3110 
34,3120 
34, 3130 


I : 76020  I 
C:  03434  1 
I : 77201  1 
I : 77772  0 


C:  03470  1 
C:  00001  0 
C:  00007  0 
C:  00001  0 


C:  01521  0 
I : 77772  0 
C:  02261  0 
I : 77616  0 


I : 77624  1 
C:  03656  1 
I:  63276  1 
I : 77220  1 


C:  72375  0 
I : 51406  1 
C:  02303  0 
C:  03470  I 


1;  77624  7 
C : 27664  0 
1 : 57456  1 
C:  02311  0 


C:  71720  1 
I:  77650  1 
I : 47206  0 
I:  53406  0 


I : 61375  1 
C:  03470  1 
C;  02261  0 
C:  27544  1 


34,3140 

34,3150 

34,3160 

34,3170 


C:  03522  1 
I : 72566  1 
C:  03522  1 
C : 24732  1 


I:  50256  0 
I : 57515  1 
1;  45115  0 
l:  53754  1 


C;  03544  1 
I : 77635  1 
C:  03530  1 
C:  02777  1 


I:  72406  0 
C:  03522  1 
C:  46441  1 
C:  57576  1 


C : 16732  0 
I:  65241  0 
C:  26744  1 
C:  00023  0 


1 : 65316  n 
C : 02261  0 
l:  77614  1 
I : 76441  1 


C:  0651^*  1 
I : 45565  0 
C:  03666  1 
C : 03544  1 


l:  45302  1 
C : 51047  0 
C:  36655  1 
I : 51515  1 


34, 3200 
34,3210 
34,3220 
34, 3230 


65225  1 
65272  0 


C : 57576  1 
C:  00047  1 
C:  03600  1 
C:  00003  1 


C:  02311  0 
C:  00041  I 
I : 56302  0 
I : 65301  0 


l : l fbitf  1 
C:  00005  1 
C:  00047  1 


l:  77625  0 
C : 46451  0 
It  75406  1 
C:  02321  0 


C:  00003  1 
I : 56362  0 
I:  41275  1 
I : 56342  1 


Ct  1760C  1 
I : 41457  1 
C:  00007  0 
I:  65257  1 


C:  02742  1 
C;  20174  1 
C:  OOnOl  0 
C:  20174  1 


34,3240 

34,3250 

34,3260 

34,3270 


C:  00005  1 
C ; 00011  1 
C:  03544  1 
C:  03470  1 


I:  65307  0 
I:  75421  1 
C:  00011  1 
05353  1 


C:  00050  1 
I ; 47315  0 
I : 76455  I 
C:  04024  0 


02321  0 
02261  0 
77626  0 
00004  0 


56342  1 
03544  1 


I : 44257  1 
I ; 74256  0 


r : 57604  1 
C ; 0001?  0 


I : 63525  0 
I ; 74315  0 


74233  0 I : 77651  0 


03514  1 


36275  1 


04616  1 C : 40154  0 


0604?  I I : 77614  1 


34,3300 
34,3310 
34,332C 
34, 3330 


C:  06460  0 
C:  01234  0 
C : 01234  0 
16001  1 


1 J 43014  0 
I : 45014  0 
I : 45006  0 
13333  0 


C:  04067  1 
C:  01463  1 
C:  51700  1 
13325  1 


C:  04666  0 
C:  26347  C 
C:  02023  1 
06042  1 


I ; 77214  0 
I : 77201  1 
I : 77776  1 
1 : 77775  1 


C ; 05062  0 
C : 00001  0 
3334?  1 
C:  06522  1 


C:  C'1220  0 
C:  01220  0 
04616  I 
C:  36231  1 


C:  16032  1 
I : 65352  0 
C : 2 0477  7 
C:  33471  0 


34,3340 

34,3350 

34,3360 

34,337C 


I : 
I : 


C: 


77776  1 
4143*  1 
02023  1 
00007  0 


C : 
I; 
C: 


16001  1 
21574  1 
52446  0 
23346  1 


C: 
I : 
C: 


36333  I 
05353  1 


I:  40220  0 
C:  55716  1 
C:  01163  1 
C:  00035  1 


C:  CU63  1 
l:  74321  1 
C : 00046  0 
06042  I 


C : 00001  0 
C:  01734  0 
C : 07374  0 
I : 77614  1 


I : 41  575  0 
C:  16027  0 
C:  04145  0 
C : C4705  7 


C:  06516  0 
C:  26325  1 
C:  15527  0 
C:  60315  0 
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OCTAL  LISTING  FOR  PARAGRAPH  « 203f  kITH  PARITY  BIT  IN  BINARY  AT  TEE  RIGHT  OF  EACH  WORD.  "S)"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "1"  (INTERPRETIVE  OPERATOR  WORDS!  CR  "C"  (CONSTANTS) 


3A,3ACC 

34i3410 

3A,3A2C 

34,3430 


I : 45345  1 
C:  31446  0 
06042  I 
C:  02265  I 


C:  03514  1 
I:  77471  0 
I : 43345  1 
C : 21017  1 


C:  26203  I 
C:  03514  1 
C:  03571  1 
I : 65252  1 


430  40  1 
52155  1 
03635  1 
02271  1 


C:  60756  0 C:  04267  C I:  67214  1 C:  02676  1 

53641  1 53637  0 53635  1 53571  1 

I:  43215  0 C:  03637  0 C:  036^1  1 I:  41205  0 

l:  43342  0 l:  77625  0 C:  21014  1 C:  16271  1 


34,3440 
34,  345C 
34,3460 
34,3470 


C: 
I : 


C: 


02265  1 
77775  1 
20477  I 
40115  0 


56342 

13537 

13464 

05516 


1 

0 

0 

0 


13464  0 
: 00215  1 


36263 

60730 

13454 

16001 


C 


c 


; 60315  0 
05353  1 
05353  1 
: P4125  C 


C : P0004  0 
C ; 04024  0 
C:  04024  0 
I : 77745  1 


l:  45575  1 C:  74516  0 
33474  n 04616  1 

00004  0 04674  0 

C:  06524  1 C:  02345  1 


34, 3500 
34,3510 
34,3520 
34,3530 


C : 
C: 


C : 
C; 


03517  1 
02623  1 


1 : 41345  0 
C:  03517  1 
1 : 77626  0 
C:  02621  0 


75152  0 
41425  1 


C: 
C : 


C: 


77616  0 
02625  1 


45020  1 
51025  1 


C:  33645 
C;  02301 
C;  02574 
C:  02563 


0 

1 

0 

0 


C:  02345  1 
C;  03474  0 
C ; 71554  0 
C:  715X^1  1 


I : 41205  0 
I:  4320 5 1 
l:  43205  1 
I : 653^5  0 


34,3540 

34,355C 

34,3560 

34,3570 


C : 02563  0 
I : 75465  1 
1 : 47206  0 
I : 77616  0 


l;  41345  0 
I : 776  26  0 
C;  00001  0 
04616  1 


C:  00001  0 
C:  41500  1 
1 : 77641  1 
C:  53102  1 


C;  16025  1 
C:  02574  0 
C:  02325  1 
04616  1 


1 : o 
C:  24037  0 
C : 17705  0 


I : 41215  1 
C:  03521  1 
I:  72441  0 
13620  1 


C:  02625  1 
I : 53515  0 
I:  75326  1 
11674  1 


C:  02625  1 
C : 0172  0 0 
C:  00037  0 
13630  0 


34, 3600 
34,3610 
34,3620 
34,3630 


OOC04  0 
31156  1 
30101  1 
55674  1 


00006  1 
53460  0 
74742  0 
05155  0 


31101  0 
31154  0 
00006  1 
00006  1 


53655  I 00006  I 
55461  1 401 07  0 
13627  0 05516  0 
30025  0 53653  1 


3156J  1 
74750  0 
C:  00120  1 
00006  1 


5?755  0 00006  1 
26107  0 05155  0 
05155  0 34752  0 
>0033  1 53655  1 


34,3640 

34,3650 

34,3660 

34,3670 


30034  0 55656  1 

C : 03650  1 C:  C3651  0 


30037  0 
CKSP  72333  1 


a 


3 


55657  0 
3 


0C006  1 

a 

a 


30041  1 

a 

a 


53661  0 


a 


05261  1 
a 
a 
a 


34,3700  a a 
34,3710  a a 
34,3720  a a 
34,3730  a a 


a 

a 

a 

a 


a 

a 

a 

a 


a 


34,3740  a a 
34,3750  a a 
34,3760  a a 
34,377C  a a 


a 

a 


a 

a 
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OCTAL  LISTING  FOR  PARAGRAPH  # 20^,,  UITF  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "5"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "1"  (INTERPRETIVE  OPEPATCR  WORDS)  OR  "C'  (CONSTANTS) 


35,20C0 

35,2010 

35,2020 

35,2030 


0550A  0 
05516  0 
I : 77776  1 
I : 77650  1 


C:  00027  1 
C;  00027  1 
32033  0 
C : 72026  0 


05504  0 C:  00031  0 32032  1 

06042  1 l:  77624  1 C:  70000  0 
03621  1 06C42  I I : 77614  1 

C:  01441  1 C:  01452  0 02354  1 


03621  ! 
I : 43014  O 
C:  01071  0 
02037  1 


33636  1 
C:  00470  1 
I : 7762^*  1 
02361  7 


03621  1 
01067  1 
73515  1 
00006  1 


35,2040  32425  0 
35,2050  C:  32430  1 
35,2060  02366  0 
35,2070  I:  57545  1 


C: 


53621  1 
30154  1 
32424  1 
03634  0 


C2060  0 I : 7773^  1 
05734  1 35006  1 

55467  1 55633  1 

I:  7124C  1 C:  72120  1 


C : 03613  0 I : 77740  1 

04616  1 C : 20477  1 

55634  0 32415  0 

C : C1643  1 C : 34041  0 


C : 03613  0 !:  77533  1 

06001  0 02053  0 

03621  1 06042  1 

C:  46403  1 I:  53775  1 


35,21CC  C : 03536  1 

35, 2110  C:  06532  0 

35,2120  I : 77776  1 

35,2130  03621  1 


C:  57176  0 
C;  36756  C 
33633  1 
06042  1 


C;  26655  0 
C:  25557  1 
04616  1 
I : 77745  1 


C:  03544  I 
I : 77615  0 
C:  20477  1 
C:  0363^  0 


1 : 43057  1 C;  57176  0 

C:  03574  1 C:  03634  0 

06001  0 02127  1 

C:  37442  1 C:  20000  0 


C : 03466  O C : 16744  1 
I : 77776  1 02065  0 

02121  1 33632  0 

I : 77624  1 C : 71016  0 


35,2140 

35,2150 

35,2160 

35,2170 


I:  77201  1 
C:  33641  1 
C:  01311  0 
C:  72165  0 


C:  3000 ) 0 
I : 45006  0 
C:  72163  0 
I:  77745  1 


C:  03506  1 
C:  73376  1 
C : 0047C  1 
C:  02255  1 


I : 65315  C 
I:  77624  1 
I : 77745  1 
C:  02255  1 


C;  03500  1 
C:  46435  1 
C:  02253  1 
I : 51025  1 


C ; 03634  0 
I:  77624  1 
C:  02253  1 
C:  32427  1 


1 : 65325  0 
C : 70113  0 
l:  51025  1 
C:  72173  1 


C:  03636  1 
I : 43014  0 
C:  32427  1 
I:  77776  1 


35,2200  32417  I 
35,2210  C:  26303  0 
35, 2220  C : 73515  1 
35,2230  03621  1 


03621  1 
02275  0 
77650  1 
06042  1 


06042  1 
I : 45170  0 
C:  72136  0 
I : 77745  1 


I : 45175  0 
C:  01522  0 
02354  1 
C:  03640  0 


C:  02267  0 
C : 72375  0 
02226  0 
C:  17636  1 


C:  71100  0 
I : 77745  1 
02361  1 
C:  01777  1 


C : 26267  0 
C:  03636  1 
02366  0 
C:  37442  1 


C:  02311  0 
C:  37640  1 
32416  0 
C:  20000  0 


35,2240 

35,225C 

35,2260 

35,2270 


I : 77624  1 
C:  02311  0 
C:  03522  1 
C:  72674  1 


71016  0 
71071  1 
71071  1 
77454  1 


l:  77624  1 
I : 77624  1 
I ; 77624  1 
C:  72307  0 


C: 

C: 


C : 


46435  1 


I : 77201  1 
I;  77201  1 
I : 43145  0 


C : OOOOl  0 
C:  OOOni  n 
C:  32425  0 


C : 03544  1 
C : C3530  1 
f : 03460  0 


I : 45115  0 
I ; 45115  0 
C:  36317  1 


05567  0 C : C0611 


35006 


04616  1 C:  20477  1 


35,23Cn 
35,2310 
35,232C 
35, 233C 


06C01 

01311 

01777 

41425 


0 

0 

1 

1 


02303  0 
C:  72313  O 
I : 51025  1 
C;  C3640  0 


02226 

00470 

32427 

45246 


0 

1 

1 

0 


1 : 43jJ45 
C:  72321 
C:  32427 


1 

1 

1 

1 


77745 

02317 

77615 

43244 


1 

0 

0 

1 


C: 
C : 
C : 
r: 


32425 

03636 

32427 

72332 


0 

1 

1 

0 


C:  02317 
C:  03636 
C:  16253 
C:  32427 


I : 43014  0 
I:  77625  0 
C : 03636  1 
I : 45565  0 


3.5,234C 

35,2350 

35,2360 

35,2370 


C:  75522  0 1:  77776  1 

C:  36275  1 C:  73515  1 

01470  0 00006  1 

05504  0 C:  00027  1 


32417  1 03621  1 06042  1 I:  45175  0 C:  02275  0 C:  71100  0 
77650  1 C:  72240  1 00006  1 23470  0 05504  0 C:  00050  1 
23470  0 05516  C C:  00050  1 01470  f 00006  1 23470  0 
05504  0 C:  00031  0 C147C  0 C:  03434  1 T:  45020  1 C:  03463  0 


gap:  assemble  REVISION  131  CF  AGC  PFCGRAM  LUMINARY  BY  NASA  202in2-0';i 
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OCTAL  listing  FOR  PARAGRAPH  B 205»  ^^ITH  PARITY  BIT  IN  BINARY  AT  TFE  RIGHT  OF  EACH  WORD, 


DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALIC  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I" 


(INTERPRETIVE  OPERATCR  WORDS) 


OR  "C"  (CONSTANTS ) 


35,2ACC 
35, 2AI0 
35,2*20 
35,2*30 


C : 


C : 
C : 


71120  1 
31615  1 
77776  1 
00600  1 


C: 
C : 


64375  1 
03621  1 
62460  1 
00601  0 


C: 


C: 

C: 


17777  0 
00602  0 


C:  37776 
C:  00603 


I : 66172  n 
C:  03463  0 
C ; CCOOO  1 
C:  0060*  0 


C : 03615  n 
C;  01413  0 
f : OOOOn  1 
C:  00605  1 


C : 
C: 


C : 
C ; 


0343*  1 
01415  0 
00025  O 
00606  1 


I : 77776  1 
C:  01513  1 
C:  37100  I 
00006  1 


35,2440 

35,2450 

35,2460 

35,2470 


02366  0 
03603  1 


33632  0 
06042  1 


55162 

05024 

03621 

7121* 


1 

1 

1 

0 


34752  0 
C:  13000  0 
00006  1 
C:  01270  0 


00004  r 
Cl*65  1 
33655  1 
03636  1 


05203  0 
02354  1 
53621  1 
17442  0 


02723  0 
02460  1 
32424  1 
02257  0 


C:  74067  0 
02361  1 
55466  0 
I:  43054  1 


35,2500 
35,2510 
35,2520 
35,  2530 


C : 72  502  0 
C:  01310  1 
C:  46403  1 
04616  1 


C;  31070  1 
C:  72513  0 
I:  77624  1 
C : 20477'  1 


I : 77624  1 
C:  03660  1 
C:  72674  1 
U6001  0 


C:  20000  0 
C:  02317  0 
I:  77454  I 
02460  1 


I : *3145  0 
I ; 43345  1 
C:  72535  1 
02525  J 


C:  06524  1 
C:  03636  1 
05567  0 
1 : 43014  0 


C : 03460  0 
C : 02317  0 
C : 00611  1 
C:  03600  1 


I : 43014  0 
C:  34041  0 
35006  1 
C;  72514  1 


35,25*0 

35,2550 

35,2560 

35,2570 


C:  01310  I 
06042  1 
I ; 77756  0 
C:  57176  0 


C:  72545  0 
I:  71201  1 
C;  26730  1 
C:  03466  0 


c:  uuooi  o 
C : 03552  0 
C:  367**  0 


03603  1 
C:  02777  1 
I : 77657  U 
C:  2*732  1 


02550  0 
C:  14047  1 
C:  57176  0 
I : 77745  1 


I : 77776  1 
C:  03621  1 
C:  26655  0 
C : 03636  I 


33632  0 
I : 71406  0 
C:  03560  1 
C : 03610  0 


03621  1 
C : 16732  0 
I:  43057  1 
I:  77615  0 


3-5,260C 
35,2610 
35,2620 
35,  2630 


C : 10037  0 
C:  03566  1 
C : 17606  i 
C:  73*32  0 


C:  37631  1 
C:  26350  0 
C:  03636  1 
I : 7762*  I 


C;  73216  n 
C : 03536  1 
C:  03**2  0 
C : 73515  1 


I : *5115  0 
l:  77776  1 
I : '77650  1 


C:  02366  0 C:  27576  f 

C : 02337  1 C : 46341  0 

3363*  0 03621  1 

C:  72504  0 02354  1 


C : 035C6  1 I : 51451  0 

I:  77624  1 C;  46451  0 

060*2  1 I : 7762*  1 

00006  1 31*01  0 


35,2640 

35,265C 

35,2660 

35,2670 


02644  0 
C : 20000  0 
C:  34041  0 
I : 77624  1 


72361  1 
I ; 77634  0 
C:  *6*03  1 
C:  73515  1 


00006  1 
C:  21574  1 
I ; 77624  1 
I:  77650  1 


31*03  1 
C:  03612  I 
C : 73204  0 
C:  72651  0 


53576  0 
1 : 77615  0 
1 : 77624  1 
I : 6622(1  1 


02366  C 
C:  03576  0 
C:  73216  0 
C : 03463  0 


0604?  1 
C : 034*2  0 
I:  7762*  1 
C:  (13614  1 


l;  7762*  1 
C : 036in  0 
C:  73432  0 
C:  40000  0 


35,2700 

35,2710 

35,2720 

35,2730 


1 : *0345  1 
C:  03552  0 
I : 53515  0 
.1:  75241  1 


C:  33643  0 
C:  27522  1 
C:  13536  1 
C:  02311  O 


C:  00001  0 
C:  03560  1 
I : 46315  1 
I : 65552  0 


C:  27574  1 
C:  03530  1 
I:  51352  I 
I : 50315  <1 


C;  03536  1 
I : 77624  1 
C:  02311  0 
C:  02311  0 


C:  27500  1 
C : 73204  0 
I : 63256  0 
C:  03536  1 


C:  0354*  1 
I : 63235  0 
I : 632*1  0 
I:  712**  o 


C:  27506  1 
C:  03536  1 
C:  00001  0 
C:  72742  0 


35,2740 

35,2750 

35,2760 

35,277C 


C : 06532  0 
C : 02257  0 
I:  72030  1 
I : 53515  0 


C 

C 

C 


*1425 

03576 

03463 

03536 


1 

0 

C 

I 


71214 

45246 

0015* 

77725 


1 : 77330  I 
I;  *1525  0 


C:  73171  I 
I : 776*0  0 
C:  03613  0 
C:  000*5  0 


C:  03576  0 
C:  73201  0 
C:  03552  0 
I ; 77621  1 


C : 1403?  1 
1 : 70535  0 
I : 65256  0 
C : 00015  0 


I : 77625  0 
C:  03614  I 
C:  00045  0 
C:  14037  0 
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OCTAL  LISTING  FOR  PARAGRAPH  « 206,  HTH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPEPATCR  WORDS)  OP  "C"  (CONSTANTS) 


35,3OC0 
35,3010 
35,3020 
35, 3030 


C : 06522  I 
C:  00017  1 
C:  02261  0 
C : 03560  1 


I : A1^25  1 
C;  00015  0 
l:  53435  0 
I ; 53435  0 


C:  02257  0 
I : 77676  0 
C:  00007  0 
C;  00001  0 


I:  50165  0 
C:  00035  1 
l:  41241  0 
I:  41241  0 


C:  00037  0 
1 : 44246  1 
C ; 03544  ] 
C:  03560  1 


C ; 03463  0 
C:  06522  1 
C : 00015  0 
C:  00017  1 


I : 71545  0 
I:  77240  1 
I : 47315  0 
I:  7762!  1 


I : 56205  0 
C:  03463  0 
C:  00001  0 
1 : 63301  0 


35,3040 

35,305C 

35,3060 

35,3070 


C: 
I : 


I ; 


00047  1 
65552  D 
06522  1 
51406  1 


C:  .30007  0 
I:  77765  0 
C;  00037  0 
I;  50025  0 


50235  0 
43225  0 
77615  0 
03574  1 


C:  00001  0 
C:  06522  1 
l:  56205  0 
C;  73C77  0 


C : 

c; 


02261  0 
02257  0 
33641  1 
75345  1 


I : 50315  0 
I : 65525  0 
1:  77605  1 
C : 03574  1 


C:  00001  0 C:  00007  0 
C : 00035  1 I : 75221  1 
I:  41257  1 C:  20176  0 
l:  77606  1 I:  51135  1 


35,31C0 

35,31)0 

35,3120 

35,3130 


C:  03614 
C:  03576 
I : 70446 
I;  71240 


C:  73107  0 
C:  00033  1 
1 : 52076  1 
C:  73136  1 


71331 

71244 

73133 

77646 


0 

0 

1 

0 


C:  03614 
C:  73123 
l:  51545 
I : 52165 


C: 
C : 
C ; 
C; 


37777 
03574 
03576 
03  606 


1 

1 

C 

1 


I:  77650  1 C:  731^5  0 I:  41345  0 
l:  77605  I C:  33645  O C:  17574  1 
I:  51525  1 C:  00033  1 I:  77625  0 
C:  73145  0 I:  57545  3 C:  03606  1 


35,3140 
35,3150 
35,3160 
35,3)  70 


I:  70406  1 
C;  02317  0 
I:  63375  0 
C:  72714  0 


C:  03606  1 
I : 63375  0 
C:  03530  1 
l:  43345  1 


I : 77615  C 
C;  03506  1 
C:  03522  1 
C:  03636  1 


I;  77650  1 
C:  03500  I 
I : 77624  1 
C:  02317  0 


C : 73146  0 
l:  77624  1 
C;  73372  0 
C : 17636  1 


C : 03606  1 
C : 73372  0 
I:  77624  1 
I : 77614  1 


I:  77615  0 
I : 7762*  1 
C:  46435  1 
C : 0131C  1 


C:  02317  0 
C : 4642  5 0 
I : 77650  1 
C:  73201  0 


35,3200 

35,3210 

35,3220 

35,3230 


C:  02257  0 
C:  26311  0 
C : 03560  1 
C:  03467  I 


1 : 521*5  0 
C:  C3536  1 
I:  65315  0 
C:  73235  1 


C : 06524  I 
I : 53435  0 
C:  03552  0 
I : 77745  1 


C:  03463  0 
C:  0354*  1 
C:  03610  0 
I : 41545  0 


I:  52375  I 
C:  02261  0 
I : 65325  0 
C:  06524  I 


C;  03552  0 
I : 77616  0 
C : 03631  0 
1 : 77624  J 


C:  03536  1 
l:  77220  1 
C:  33641  1 
C:  73376  1 


I : 41456  0 
C:  03470  1 
I : 46125  0 
C;  274*4  0 


35,3240  C:  00007  0 
35,325C  C : 02261  0 
35,3260  C:  15756  I 
35,3270  I : 63325  0 


C:  27506  1 
I : 77715  I 
C:  C3631  0 
C:  33653  1 


C:  03444  0 
I : 72441  0 
I : 77625  n 
C:  03536  1 


I:  63256  0 
C:  00001  0 
C:  03610  0 
C:  26323  1 


C : 03536  1 
I:  75326  1 
C:  03452  1 
C:  03544  1 


I : 41456  0 I : 

l:  43244  1 C: 

1:  40335  0 C: 

C : 36331  0 C : 


50235  0 
73260  1 
03467  1 
22000  1 


C:  OOOOl  0 
C : 06532  0 
C:  00001  0 
I : 77624  1 


35,3300 

35,3310 

35,3320 

35,3330 


C : 
C: 
C : 
C: 


73357 

03463 

03544 

73376 


1 

0 

I 

1 


I : 
C: 
C: 
I : 


64375 

73357 

03536 

77775 


1 

1 

1 

1 


C:  02366  0 
I:  61375  1 
I : 65325  ^ 
C : 00001  0 


C:  00001  0 
C;  03434  1 
C:  03442  0 
C:  03444  0 


1:  77772  0 
C : 00001  0 
C:  03631  0 
I : 4J575  0 


C:  37434  0 
I : 77772  0 
I ; 41525  0 
C:  02311  0 


C:  C347C  1 
C:  02366  0 
C:  0653?  0 
I:  57435  1 


I : 45020  1 
l:  63255  0 
I : 77624  1 
C:  02261  0 


35,3340 

35,3350 

35,3360 

35,3370 


I : 41456  0 
C:  36303  1 
C:  02261  ) 
I : 43401  0 


I:  76435  1 
C:  03463  0 
C:  24007  0 
C:  00023  0 


C:  02311  0 
I : 40220  0 
C:  03536  1 
I : 65325  0 


I:  77715  1 
C;  03463  0 
I:  574  56  1 
C:  06524  1 


I : 64315  1 
C:  0000)  0 
C:  0PO15  0 
C:  C2317  0 


C:  02366  0 
I:  77650  1 
I : 76435  1 
I : 41406  n 


C:  00(^01  0 
C:  7333A  1 
C:  02261  0 
I : 45020  1 


I : 77772  0 
I : 57575  1 
C:  00001  0 
C:  03465  0 


gap:  ASSEPBLE  REVISION  131  OF  AGC  PPCCRAf.'  LUMINARY  8Y  NASA  20Z1112-C91 
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OCTAL  LISTING  FOR  PARAGRAPH  V 207,  VsITH  PARITY  6IT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC 


INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I" 


(INTERPRETIVE  OPERATCR  WORDS! 


OR  "C”  (CONSTANTS ) 


35,3AC0 

35,3<^10 

35,3420 

35,3A30 


C : 27410  1 
1 : 73014  0 
I : 77657  0 
C : OOOOl  0 


I : 
C: 


C : 


71214 

00063 

57176 

C3465 


0 

I 

0 


C: 
C : 


I : 


01673 

C2777 

25535 

43020 


I 

0 

1 


I: 
I : 


43054  1 
43014  0 


C:  73406  1 C:  01473  0 
f : 04303  0 C:  73417  1 


45545  \ C:  63736  0 
00263  0 C:  25517  0 


I : 77657  0 
C:  03470  1 


C : 57176  0 
C:  01311  0 


C:  35543  o 
C:  7344]  1 


C : 27106  0 
I : 52014  0 


I ; 52175  0 
C:  00470  1 


35,3440 
35,345C 
35,  3460 
35,3470 


73505  0 
20477  1 
54002  1 
22000  I 


77214  0 
16001  0 
50002  0 
00006  1 


03274  0 
03454  1 
41433  0 
13475  0 


03434  1 
03446  1 
50002  0 
05504  0 


01236  I 
35016  0 
61235  1 
00146  1 


77776  1 
54003  0 
26001  1 
O6042  1 


33636  1 04616  1 
22007  0 34756  1 
10002  1 13460  1 
4501^  0 C:  03354  0 


35,35CC 
35  ,3510 
35,3520 
35,3530 


C:  73502  1 
33635  1 
C:  02253  1 
I : 77414  0 


C:  73307  1 
03621  1 
l:  71214  0 
C:  01742  1 


I : 77775  1 
06042  3 
C:  01351  1 
C:  73543  1 


C:  02366  0 
I : 77650  1 
C:  73543  1 
03613  0 


C:  03656  1 
C:  03470  1 
C:  33651  0 
03536  1 


I:  77624  1 
I ; 71220  1 
I : 77615  0 
03544  1 


C:  73352  1 
C:  03470  1 
C : 33651  0 
06042  1 


I : 77776  1 
C:  33651  0 
C:  02253  1 
I : 41575  0 


35,3540 

35,3550 

35,3560 

35,3570 


30005  I 
04024  0 


I:  77624  1 
C:  01736  1 
55162  1 
05504  0 


15725 

33637 

06CC1 

00047 


0 

n 

1 


40076  1 
30005  1 


02437  0 
C:  20477  1 
74746  1 
55162  1 


31470  0 55464  1 
03560  1 03563  1 
00006  1 13560  0 
05353  1 C : 04024  0 


34777  1 
03573  0 
05353  1 
06042  1 


35,36CC 
35  ,3610 
35,3620 
35,3630 


52014  0 
16001  1 
00002  0 
01465  I 


00670  0 
01463  1 
00006  1 
13624  0 


03464  1 
13605  0 
23465  I 
01445  0 


00006  1 
37747  I 
55615  0 


C : 

C : 


23463  1 33633  I 046J6  1 C:  20477  1 
71010  0 00006  1 13620  1 24002  0 
31615  1 04616  1 C:  20477  1 16001  1 
01472  1 C:  01473  0 C:  ^1521  0 C:  04055  0 


35,3640 

35,3650 

35,3660 


C : 
C : 
C: 


14441 

77777 

03245 


0 

0 

1 


C:  37325  1 
C:  61337  1 
C:  74067  0 


00001  0 C:  20650  0 
01252  0 C:  25253  1 
05516  0 C:  00303  1 


C : 12525  0 C : 12525  0 

C:  13434  0 C:  16162  0 

05353  1 C:  00006  1 


C : 00004  n c:  21505  1 
35026  0 05072  1 

15261  n 05321  1 


35,3670  C:  00077 


13677  0 


05504  0 C:  00122  0 


04674  0 


62327  0 13704  0 34737  0 


35,  37C0 
35,3710 
35,3720 
35, 3730 


54055  0 
55163  0 
13733  1 
C:  20624  0 


T4750  1 
04bl6  1 
34747  1 
16001.  t 


C 


00006 

54261 

00006 

13711 


1 

0 

1 

I 


05014  1 
10000  0 
02030  0 
31163  ) 


05353  1 
13726  0 
00006  1 
04640  I 


C: 

C: 


00003  1 
34737  0 
13733  1 
00203  0 


15261  0 04645  1 
70106  I 10000  0 
33735  0 04616  1 
03736  0 C ; 03737  1 


35,3740 

35,3750 

35,3760 

35,377C 


CKSM  60110 
3 


3 

3 


a 

a 


a 

a 


a 

a 


a 

a 


a 

a 

a 

3 
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OCTAL  listing  FOR  PARAGRAPH  « 210,  V»ITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S"  DENOTES  UNUSED  FIXFO  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  {INTERPRETIVE  CPERATCR  WORDS)  CR  "C"  (CONSTANTS) 


36,2000 

36,2010 

36,2020 

36,2030 


C:  01056 
C;  00151 
C:  00013 
15261 


I 

0 

0 


37167 

052)A 

U303 

12150 


0 

0 

1 

0 


00030  1 
00000  1 


03250  0 
77755  C 
OOOIA  1 
037A6  1 


f:  77777  0 
C:  00003  1 
C : 01512  C 
C:  6A067  1 


C; 

C: 


77731  1 
00000  1 
12327  1 
12402  1 


C 


00307  0 C : 11040  0 
00026  0 C:  30605  1 
12616  O 13066  0 
12567  0 12525  0 


36  ,2040 
36,2050 
36,  2060 
36 ,20  70 


C:  01450  1 
C:  74066  1 
C:  74066  1 
12150  0 


12327  1 
12372  1 
12404  1 
C:  T5120  1 


12620 

12567 

12573 

03672 


0 

0 

0 

1 


13053 
12510 
C;  01450 
C:  74C66 


12324  1 
12372  1 


12150  0 C:  04300  0 C:  03672  1 
12153  0 C:  77776  1 C:  03402  1 
12620  O 13053  0 1526?  0 
12567  0 12545  0 13424  1 


36,2100 

36,2110 

36,2120 

36,2130 


C : 01476  0 
C:  64067  1 
15261  0 
05353  1 


C 


12327  J 
12402  1 
12122  0 
04C24  0 


12616  0 13003  0 
12567  0 12464  1 
12123  1 12124  0 
34755  1 55507  0 


15261  0 12153  0 

C:  01477  1 12327  1 

12125  1 12402  1 

5551C  0 04616  1 


C : 04300  0 C : 03746  1 

1261  6 0 13066  0 

12567  n 12535  1 

C:  73707  0 00006  1 


36,2140 
36,2150 
36,  2160 
36,2170 


31442  1 
44762  1 
61071  0 
77762  1 


53512  1 
04616  1 
I:  45014  0 
C:  25726  0 


000Q4  0 
C:  74670  0 
C : 03347  1 
C:  00017  1 


04674  0 
06042  1 
C:  74202  1 
I:  64312  0 


r : 75570  I 
l:  45345  1 
C:  27042  1 
C : 01734  0 


00003  1 
C ; 03442  0 
I;  64375  1 
C:  35720  1 


51455  1 
C : 351^7  0 
C:  00025  0 
C : 67067  1 


10005  0 
C:  34041  0 
C:  01734  0 
C:  16317  0 


36,22CC 
36,2210 
36,2220 
36, 2230 


00015  0 
00006  1 
00006  1 
00077  1 


• C:  00041  I 
33147  0 
31500  0 
15155  1 


21442  0 
05277  0 
44762  y 


C:  27553  1 
52155  1 
C:  02242  1 
55162  1 


74C67  0 
06042  1 


00006  1 
00006  1 
05353  1 


31561  1 
43762  0 
C : 20254  0 
C:  03553  1 


53442  0 
21500  1 
05321  1 
03472  0 


36,2240 

36,2250 

36,2260 

36,2270 


77776  1 
55162  1 
35027  I 
35027  I 


15155  1 
51455  1 
05072  1 
05072  1 


33762  I 
40006  0 
C;  02265  1 
C:  02275  0 


05173  1 
00006  1 
C:  74067  0 
C:  74067  0 


02300  0 
65261  1 
15261  0 
15261  0 


05353  1 
33151  1 
04616  1 
33765  0 


C:  40154  0 
05173  1 
C:  20457  o 
04616  1 


44752  1 
C:  02270  0 
15155  1 
C:  20466  1 


36,2300 
36,2310 
36,232C 
36, 2330 


33150  0 
62327  0 
40025  I 
51455  1 


05173  1 C:  02354  1 44762  I 
55477  0 05173  1 C:  02350  0 
55052  0 51455  1 lOCOl  1 
30010  0 53252  1 34752  0 


55162  1 
36250  0 
40106  1 
54001  1 


51455  1 
54001  1 
74737  1 
44752  I 


30006  1 
46250  1 
26106  1 
52760  1 


00006  1 
52752  0 
00006  1 
40025  1 


36,2340 

36,2350 

36,2360 

36,2370 


55060  1 00006  1 
02663  0 05353  1 
05173  1 C:  024U7  0 
51455  1 lOOll  0 


34755  1 52754  0 
oooni  n 15261  0 
05516  C C : 00153  0 
10756  1 12402  1 


10762  C 15261  0 
00006  1 34755  1 
05516  0 C:  OOIS^^  1 
34736  1 05105  0 


04635  0 C:  77410  1 

52756  1 33762  1 

05516  0 C:  00122  0 

C : 02540  1 C : 56067  0 


GflP: 
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OCTAL  LISTING  FOR  PARAGRAPH  ft  211,  HTH  PARITY  BIT  IN  BINARY  AT  TFE  RIGHT  OF  EACH  WORD,  "5"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALIC  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  ‘'I"  (INTERPRETIVE  (JPERATCR  WORDS)  OR  "C"  (CONSTANTS) 


36,24CC  05353  1 

36,2410  74737  1 


36,2420  C:  72067  0 

36,2430  51455  1 


00053  1 
26103  I 
75327  1 
10012  0 


^4760  0 55162  1 
05321  1 C:  00077  J 
40033  0 C:  05014  1 
40101  0 74745  1 


05353  1 
12425  1 
77777  0 
26101  0 


40074  0 15261  0 40103  1 

31422  1 05203  0 C:  03667  0 


34740  C 
44355  J 


70103  1 
00006  ) 


00006  1 
02011  0 


36,2440 

36,2450 

36,2460 

36,2470 


64737  0 
54111  1 
70104  0 
55162  I 


30006  I 
00006  1 
54104  0 
40105  1 


OlCll  0 
31517  0 
51455  I 
74743  1 


00006  1 
53442  0 
10013  1 
26105  1 


30025  0 
00006  1 
00006  1 
40103  1 


53342  1 44735  0 70111  1 
30025  0 21442  n 44742  0 
33143  1 53252  ) 30005  1 
74741  0 26103  1 00006  1 


36,2500 

36,2510 

36,2520 

36,253C 


30025  0 
4010L  0 
05327  1 
55536  1 


53442  0 
74740  I 
40033  0 
31413  C 


34755  1 
00006  X 
C:  05014  1 
55540  0 


55346  0 
12545  0 
C:  77777  0 
35016  0 


12545  0 
54003  0 


34752  0 55623  0 
05203  0 C:  (^3667  0 
35015  0 54003  0 
30005  1 55162  1 


12545  0 
C:  72067  0 
31412  1 
00006  1 


36,2540 
36,2550 
36,  2560 
3.6,2570 


33145  1 53252  1 
34743  0 70076  1 
05516  0 C:  00161  1 
34755  1 52760  1 


40103  1 
10000  0 
05353  1 
15261  0 


74741  0 
13526  1 
C:  40054  1 
04635  0 


C 


26103  1 
05516  0 
05221  0 
73656  0 


44744  0 
C : 00153  0 
C:  00062  0 
05504  0 


70111  I 
0551  6 0 
02657  1 
C:  00161  1 


54111  1 
00154  1 
00006  1 
05504  0 


36,260C 

36,2610 

36,2620 

36,2630 


00175  1 
55162  1 
44762  1 
00003  1 


34751  0 
05353  1 
35162  1 
00004  0 


55515  0 
C : 00004  0 
05516  0 
06032  0 


10764  0 
15155  1 
C:  00161  1 
C:  73667  1 


12607  0 
51455  I 
05516  C C : 

04674  C C: 


04616  1 C:  74667  0 44765  0 
10002  1 30005  1 12621  1 
00175  1 15155  1 05353  1 
75565  0 055C4  0 C : 00312  1 


36,2640 

36,2650 

36,2660 

36,2670 


02651 

15155 

70X11 

55162 


1 

I 

1 

1 


C:  )0310 
30002 
54111 
04645 


0 

0 

I 

1 


05504  0 C:  00314  1 
05522  1 40000  0 
00002  0 40111  1 
55060  I OOOOf  1 


34753  1 00004  0 05173  1 
00006  1 06001  0 15511  0 
74746  J 26111  1 00002  0 
31442  1 521 55  1 OOOC6  1 


34755  1 
40025  1 


36,270C 

36,2710 

36,272C 

36,2730 


20155 
30001 
C:  13000 
37720 


C7262 

64752 

31060 

05072 


0 

0 

0 

1 


C: 


34777  1 
00004  0 
04640  1 
02743  0 


C 


54002 

05173 

40025 

74067 


1 

1 

1 

0 


52155  1 
C:  02723  0 
55C64  C 
05221  0 


74346 
05327  1 
11162  1 
C:  00144  0 


00006  1 
C:  40036  0 
12737  1 
12723  1 


12730  0 
00006  1 


36,2740 

36,2750 

36,2760 

36,2770 


34755  1 
21454  1 
13015  1 
12627  1 


52764  0 
0O004  0 
44755  0 
33152  1 


15261  0 00006  1 
11162  1 15155  1 
55066  1 30371  1 
04616  1 C:  20460  1 


41442  0 
15155  1 
04616  1 
13017  0 


53454  1 
40000  0 
C:  20474  1 
13034  1 


00006  1 
00003  1 
13017  0 
12771  0 


30025  0 
50000  1 

12614  1 
51455  1 
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OCTAL  LISTING  FOR  PARAGRAPH  H 212,  KITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  ''3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPEPATPR  WORDS!  OR  *'C  " (CONSTANTS) 


36,3000 

36,3010 

36,3020 

36,3030 


30  000  1 
C:  20A7A  1 
160P1  1 
C : 00001  0 


0A616  1 
13017  0 
0300A  0 
30005  1 


C:  20^66 
130A5 
0C006 
55162 


4A743 
130  50 
231A] 
Oll^fl 


55C66  1 
04616  1 
02657  1 
05353  1 


C: 
C : 


51455  1 
20457  0 
06032  0 
04024  0 


30000  I 04616  1 

15155  1 03021  1 

f:  74350  1 05353  1 

34755  1 55162  1 


36,3040 

36,3050 

36,3060 

36,3070 


35023 

00004 

04674 


C:  02416 


0 

0 

0 

0 


05105  0 
51455  1 
C : 40205  1 
C;  3:'067  0 


C 


: 03212  0 
10003  n 
03021  1 
05516  0 


C : 


C: 


64065  0 
34644  0 
05353  1 
00175  I 


15155  1 
05105  0 
C:  00134  1 
00004  0 


05504  0 
C : 03227  0 
15155  1 
0467^*  0 


C:  00154  1 
C : 74067  0 
35027  1 
C:  40205  1 


13106  1 
00004  0 
05105  0 
03021  1 


36,310C 
36, 3110 
36,3120 
36,3130 


05353  1 C:  07024  0 
lOOOO  0 13122  1 
40000  0 52760  1 
04616  1 C:  20477  1 


17000 

34753 

44762 

16001 


: 02416  0 
00004  0 
55162  1 
13135  1 


30067  0 
05173  1 
15155  1 
13127  1 


15155  1 
C:  02432  0 
05567  0 
51455  1 


^0103  1 74737  1 

34360  0 54001  1 

C : 01706  1 35006  I 

10014  n C:  02040  1 


36,3140 
36,31  50 
36^3160 
36,3170 


C:  02050  0 
C:  04672  0 
74737  1 
32022  0 


02C63  C 
00752  1 
10000  0 
62023  1 


C:  02423  0 
C : 01475  0 
13125  0 
55250  0 


62C67  1 
C5353  1 
04616  I 
34751  0 


C:  03372  1 
C:  04024  0 
C:  11233  0 
55515  0 


C 


: 70067  1 
33137  1 
40  1 1 1 1 
06042  1 


OOOOO  1 
55455  0 

74737  I 
43175  0 


C : 

C: 


05656  1 
30106  0 
10000  0 
34001  1 


36,3200 

36,3210 

36,3220 


02663  0 
56413  1 
23141  1 


03735  0 
77776  1 
00003  i 


77735  0 
00004  0 
05516  0 


26002  1 
04674  0 
00124  0 


I : 70476  0 
C:  40143  0 
04616  1 


C: 
C : 


37743  0 
03217  0 
54123  0 


56246  .1 
12130  0 
01141  1 


77624  1 
00006  1 
30005  1 


36,3230 


55162 


00006 


32060  0 53252 


33764 


04616  1 C:  20636  0 


03262  1 


36  ,3240 
36,3250 
36,3260 
36,3270 


13245  0 03227  0 
04674  0 C;  40141  1 
03253  0 13242  1 
55162  I 00004  0 


05353  1 C:  0001^.  1 
00003  1 33765  C 
00006  1 32110  0 
04674  0 C:  40115  0 


53252  I 


C : 


00004  0 
20463  1 
34755  1 


04674  0 
03262  1 
55462  1 


40154  0 
13262  0 
30005  1 


00003 


06001  0 ?31i.O  1 


55455  0 


36,3300 

36,3310 

36,332C 


04616  1 
C:  75314  0 
I t 77776  1 
I : 45175  0 


C : 
1 : 

C: 


11233  0 
77745  1 
00004  0 
03701  1 


C 

c 


06042 

34021 

04674 

57267 


1 

0 

0 

0 


1 : 
C: 
C: 
C: 


71214 

03735 

40154 

03502 


0 

0 

0 

0 


C:  00700  o C:  75311  0 C:  34017  0 

I:  77624  I C;  56246  1 I;  77624  1 

04674  0 C : 40141  1 P3217  0 

l:  77776  1 33765  0 04616  1 


06042  1 
20447  1 


36,3340 

36,3350 

36,336C 

36,3370 


33765  0 
06042  1 


04616  1 
45175  0 


05105  0 
04616  1 
C:  20447  1 
C:  03701  1 


C:  03365  1 
C:  01736  1 
35017  1 
C:  57267  0 


74067  0 
31162  0 
05146  1 
03502  C 


05327  1 
64752  0 
31162  0 
77776  1 


00076  o 
00006  I 
00006  1 
34777  1 


04024  0 
13351  1 
65155  0 
04616  1 
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OCTAL  LISTING  FOR  PARAGRAPH  tt  213,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "a)"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  {INTERPRETIVE  OPERATOR  WORDS!  OR  "C"  (CONSTANTS) 


36,3400 

36,3410 

36,3420 

36,343C 


C : 
C: 


01736  1 
03502  0 
40  106  1 
34751  0 


13365  0 
1 : 77776  1 
74737  1 
55515  0 


1 

0 

0 

I 


1 : 
C: 

I: 


1 

1 

1 

0 


C4616  1 
C:  C1072  0 


I : 
C: 
C : 
C : 


45175  C 
04024  0 
11233  0 
34007  1 


C:  037C1  1 C:  57267 
33141  0 55455 

36O00  1 55250 

C : 03735  0 I : 52135 


36, 3440 
36,3450 
36, 3460 
36,3470 


C:  26001  1 
05173  I 
53252  I 
C:  03502  0 


C : 75204  0 
C:  03453  0 
34736  1 
C:  03527  1 


05105  0 
03656  1 


C:  11233  0 
05353  1 
C:  03517  1 
I : 77624  1 


06042  1 
C:  F5014  I 
C:  74067  0 
C:  57267  O 


I:  77624  1 C:  27547  1 
C:  77777  0 00006  I 

12344  1 06042  1 

C:  03623  0 1:  77776  1 


30155  0 
33770  1 
53375  0 
05353  1 


36,3500 

36,3510 

36,3520 

36,3530 


C:  10035  0 
33766  0 
I:  77775  1 
05173  1 


06042  1 
04616  1 
C:  06524  1 
C:  03546  0 


I : 77775  1 
C : 20636  0 
C:  03623  0 
05516  0 


C:  03656  1 
06001  0 
C:  03502  0 
C:  00153  0 


03502  C I : 77776  1 
06001  0 13517  0 
77776  1 03510  0 
05516  0 C:  00154  1 


04635  0 C:  65746  1 
13242  1 06042  1 
31517  0 03741  0 
05516  0 C : 00044  1 


36,3540 

36,3550 

36,3560 

36,3570 


05353  I 
05261  1 
C:  74066  1 
46745  1 


40114  1 
34644  0 
40103  1 
70101  0 


C522J  0 C:  00C62  0 
05105  0 C:  03227  0 
74745  1 26103  1 
54101  0 44355  1 


02657  1 05261  1 
74067  0 34753  1 
02657  1 00006  1 
C0006  1 02011  0 


04676  0 C:  75551  1 
052C3  O C:  03612  1 
30025  0 53342  1 
64736  1 00006  1 


36,3600 

36,3610 

36,3620 

36,3630 


01011  0 
05014  1 
I : 43014  0 
I : 50025  0 


40111  I 
04707  0 
C:  ■)1'30  7 I 
C:  03632  1 


74736  0 
04674  0 
C:  03665  1 
C:  75662  ’ 


26111 
C:  40205 
C:  03705 
I:  43345 


1 

) 

0 

1 


44737  1 54055  0 

05261  1 I:  45020  I 

C : 75637  1 I : 45345  1 

C:  03763  0 C:  03432  I 


3475C  1 O0006  1 
C:  C3665  1 C : 56447  0 
C : 01236  0 C:  03763  0 
C : 03765  0 I : 77776  1 


36,3640 
36,3650 
36, 3660 
36,3670 


10754  0 
C:  00172  0 
C:  01226  0 
I:  77650  1 


13667  1 
C:  10035  0 
C:  02331  1 
C:  03665  1 


34737  0 
06042  1 
I : 45345  1 
06042  1 


00004  0 
I:  77745  1 
C:  03631  0 
I : 77624  1 


05105  0 
C:  03765  0 
C;  01234  0 
C : 75615  1 


C : 02707  0 
C:  27763  0 
C:  37452  0 
I : 77776  1 


C:  56067  O 
C : C122C  0 
C:  03665  1 
00O04  0 


05327  1 
C:  26323  1 
06042  1 
35016  0 


36,37CC 
36,3710 
36,3720 
36,  3730 


54003  0 
13713  0 
0016L  1 
07262  0 


4007  6 1 74743  1 
04635  0 C:  65746  1 
00004  0 00006  1 
30155  0 03741  0 


10000  0 
04674  0 
31442  1 
05173  1 


13711  1 
40X66  1 
52155  1 
03546  0 


40103  1 
05516  0 
00006  1 
05327  1 


74745  1 10000  0 

C:  00044  1 05504  0 

40025  1 20155  1 

C:  401J4  1 c:  00035  1 


36,3740 
36,3750 
36, 3760 
36,3770 


10624  0 
74067  0 


lOOOO  0 
31517  0 
C:  00000  1 
C:  )3771  0 


13745  0 
00002  0 
C : 00764  1 
C:  03772  0 


13745  0 
C:  00000  1 
C:  05050  I 
CKSM  56715  1 


34755  1 
C:  02734  0 
C:  04050  0 


64753  1 
C;  00000  1 
C:  04125  0 
<d 


56001  0 34755  1 

C : 05670  0 C : 00000  1 

c:  04123  0 C;  03466  0 

a a 
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OCTAL  LISTING  FOR  PARAGRAPH  » 21^1  WITF  PARITY  BIT  IN  BINARY  AT  Tl-E  RIGHT  OF  FACH  WOROt  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


37,2000  C:  07623  1 
37,2010  55AA1  0 
37,2020  06042  1 
37,2030  55044  1 


C:  26552  1 
55576  C 
l;  62545  1 
32473  0 


05311  1 
34361  1 
C:  02403  1 
04616  1 


C:  00007  0 
55571  1 
C:  15046  1 
C:  20477  1 


02325  1 
32476  0 
C:  02401  0 
C2270  0 


34755  1 
02367  1 
I : 77434  1 
02037  1 


55414  O 
34736  1 
C:  21615  0 
02031  1 


55440  1 
55664  0 
5615^  1 
06042  1 


37,  2040 
37,2050 
37,2060 
37,2070 


I : 471.35  0 
I : 77752  1 
C : 16705  L 
C:  16771  1 


C:  01045  1 
C:  16437  0 
I : 77746  1 
34736  I 


21577  1 
02403  1 
02677  0 
70C77  0 


02401  0 I 
72556  1 C 
77676  0 C: 
00006  1 


: 60535  1 
: 16435  1 
: 36703  0 
12076  0 


C:  01046  1 
C:  02401  0 
C:  47355  1 
25414  1 


C:  024C3  1 
I : 73406  1 
I : 77776  1 
05516  0 


I:  57546  1 
C:  02675  1 
04616  1 
C:  00056  1 


37,2100 
37, 2110 
37,2120 
37,2130 


02315  I 
76065  0 
55047  1 
02447  1 


11414  0 
32116  0 
31504  1 
34361  1 


02126 

05133 

55050 

55476 


02320  1 
32116  0 
51416  0 
32^74  1 


00006  1 
05137  1 
55420  1 
55412  0 


02457  0 
34753  1 


05277  0 
C : 7650C  0 
51414  1 
55537  0 


02113  0 
34755  1 
02130  1 
34755  1 


37,2140 

37,2150 

37,2160 

37,2170 


51415  0 
05155  0 
C : 02151  0 
02447  1 


54037  1 
00006  1 
34736  1 
31412  1 


55472  0 02332  1 
27412  0 31412  1 
05105  0 C:  02166  1 
00006  1 62175  0 


00004  0 
00006  1 
76065  0 
05155  0 


34752  0 
62161  0 
05261  1 
34756  1 


05173  1 C:  02151  0 
347^2  1 05173  1 
51414  1 02170  0 
55537  n 02332  1 


37,22C0 
37, 2210 
37,2220 
37,2230 


11473  1 
06042  1 
02477  1 
02457  0 


02205  1 
I ; 45345  1 
1 : 47075  0 
32471  1 


05675  0 
C:  02501  1 
C:  37056  0 
55412  0 


41476  1 
C:  02475  0 
C:  21613  0 
51416  0 


55476  1 
I : 45044  0 
C:  C1050  0 
41417  0 


00006  1 
C;  76217  1 
I : 77776  1 
55442  0 


41473  1 21477  0 

76275  n I ; 56325  0 

11414  0 02301  1 

11415  1 12245  1 


37  ,2240 
37,2250 
37,2260 
37,2270 


44747  0 
27  563  1 
30032  0 
05516  0 


27565  1 
02447  1 
55413  1 
00007  0 


02500  0 
44755  0 


27567 

55404 

31502 

05314 


0 

1 

1 

I 


12251  1 44747  0 
55405  0 34733  I 
55050  1 34755  1 
05472  0 I : 43215  0 


55047  1 
06532  0 


02457  0 
37064  1 


37, 23CC  I : 77616  0 
37,2310  C:  16771  1 
37,2320  00006  1 
37,2330  C : 167G5  1 


00006  1 23571  0 
04616  1 C:  X7707  1 
23571  0 04616  1 
02.311  0 non06  1 


34755  1 
03047  I 
C:  17201  1 
23417  1 


54321  0 54322  0 
01571  0 00006  1 
02311  C 00006  I 
02342  0 00003  1 


54323  1 04616  1 
23571  0 02311  0 
23571  0 04616  1 
30067  0 00006  1 


37,2340 

37,2350 

37,2360 

37,2370 


62346  1 
30037  0 
04102  0 
12372  I 


05122  0 
61571  0 
51537  1 
55571  1 


00004  O 
00006  I 
55473  1 
34755  1 


51415  0 
12335  1 
5J537  1 
50C01  0 


40037  1 
51415  0 
23474  1 
54000  0 


55571  1 
30037  0 
00003  1 
24001  0 


OOOnA  0 
51537  1 
01417  1 
1157)  1 


51415  0 
55472  0 
54001  1 
12371  1 


GAP 
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OCTAL  LISTING  FCR  PARAGRAPH  # 215, 


UITl-  PARITY  eiT 


IN  BINARY  AT  THE  RIGHT  OF  EACH  ViORO,  ''3"  DENOTES  UNLSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE 


MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  PR  "C" 


(CONSTANTS) 


37,240C  00002  0 
37,2^10  C:  36001  0 
37,2420  I:  47020  0 
37,2430  C:  76275  0 


I ; 
C: 


65345  0 
02405  1 
00051  0 
74261  1 


C:  37057  1 
I ; 77634  0 
C : 21574  1 
C:  20212  I 


C:  02403  1 
C:  21574  1 
C:  02431  0 
C:  02405  1 


I : 
I : 


51025  1 
53321  1 


I : 
C: 


C : 
C ; 


02433  1 
02643  1 


C:  02403  1 
C:  02564  I 
C:  76431  0 
C : 02564  1 


I : 74266  P 
I : 77616  0 
I:  77626  1 
C:  1 6564  1 


37,2640 

37,2450 

37,2460 

37,2470 


23420  0 
23417  I 
12461  1 


02433  1 
06042  1 
31416  0 
07626  1 


I : 47170  1 
I : 77624  1 
55051  0 
C:  01542  0 


C:  02563  0 
C:  76420  0 
32472  1 
C:  01451  0 


C:  21706  0 
I : 77776  1 
04616  1 
C:  00072  1 


I : 77650  1 
02315  1 
C;  20477  1 
C:  02737  0 


C: 


C: 


00051  0 
01420  0 
02270  0 
01664  1 


00006  1 
00006  1 
01417  1 
01642  0 


37,2500 

37,2510 

37,2520 

37,2530 


00004  0 
00003  1 
25477  1 
50076  U 


31572 

33075 

37070 

76534 


0 

0 

1 


C:  26445  0 
I:  77624  1 


C:  02536  0 
33076  0 
C:  37057  1 
C:  7640J  0 


34755  1 
02367  I 
C : 00325  0 
l:  77776  1 


54037  1 
06042  1 
01472  1 
03035  1 


540^^0  1 
I : 77735  0 
I : 77735  n 
31576  1 


54041  0 
C : 37057  1 
C:  024^1  1 
00006  I 


37,2540 

37,2550 

37,2560 

37,2570 


02536  0 
56041  1 


34755  1 
54330  0 


56037  0 
34736  1 


30000  1 
31412  1 
54324  0 
05105  0 


55531  0 40000  0 
00006  1 62562  1 
34755  1 56040  0 
02577  0 C:  76065  0 


55530  1 44753  0 
31572  0 05173  1 
54326  I 34755  1 
05261  1 11562  0 


3?,26CC 

37,2610 

37,2620 

37,2630 


02602  1 
C:  00325  0 
I : 76001  I 
C : 02532  1 


026(^4  1 
1 : 76505  0 
C:  00001  0 
C:  76644  0 


04616  1 
C : 02643  1 
C:  00010  0 
I : 72174  0 


I:  57535  C 
C:  00014  I 


06042  1 
C : 00160  0 
C : C2563  0 
C:  02444  1 


T : 77640  0 
I : 62143  0 


C : 37066  0 
C:  0016?  1 
C:  76772  1 
C:  02243  0 


C:  24051  0 
C:  02527  0 
1 : 50135  0 
C : 77775  I 


37,2640 
37,2650 
37,  2660 
37,2670 


C:  12545  0 
C:  371(J0  1 
I:  77732  1 
C:  75324  0 


l:  66104  1 
! : 43661  I 
I : 45425  0 
C:  75240  0 


C:  76635  0 
C:  21212  0 
C : 71216  1 
C : 12453  0 


C:  02444  1 
C:  02501  1 
C:  06562  1 
I : 77104  1 


1 : 77770  1 
C:  06501  0 
1 : 77100  0 
C : 76667  1 


C;  OOOin  0 
I : 40725  0 
C;  76646  1 
C : 00010  0 


1 ; 41343  0 
C : 37102  0 
C:  00004  n 
l:  66140  1 


C:  02533  0 
C:  02521  0 
I : 56743  I 
C:  02445  0 


37,2720 

37,2730 


C : 02445  0 
C:  75314  0 
C:  37105  1 
[ : 64743  0 


I : 
C: 


C: 


56743  I 
75230  1 
75216  0 
02523  1 


C: 
C : 
I : 
C : 


02450 

12463 

42772 

02521 


1 

0 

0 

0 


C: 

I 

C 

I 


75216  0 
42673  0 
75256  1 
55523  0 


I : 77613  0 
C:  75216  0 
C:  12521  1 
C:  02531  1 


C:  75276  0 
C:  75266  1 
I : 76104  0 
I;  76521  C 


C:  12501  o 
C:  12511  1 
C:  76676  1 
f : 0?ooi  1 


1 : 42743  1 
I:  40743  0 
C:  00010  0 
I : 77745  1 


37  ,2740 
37,275C 
37,2760 


37,2770 


C;  00155  0 
I : 77700  0 
I : 77722  0 
1 : 77704  1 


C:  06531  0 
C;  76730  1 
1 : 73406  1 
C:  76755  1 


i : f6i  f4  1 
I : 56072  I 
I:  77776  1 


C:  00160  0 
C:  00006  1 
C:  00046  0 
35C16  0 


C:  06521  1 
C:  C0002  0 
C:  10021  0 
54003  0 


I ; 77745  1 
1 : 57343  1 
I:  77745  1 
01400  1 


C:  00162  1 
C : 02503  0 
l:  77746  1 
1 1412  9 


C:  06523  0 
C:  37110  0 
C;  10027  0 
03034  0 
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OCTAL  LISTING  FOR  PARAGRAPH  # 2X6,  V.ITH  PARITY  BIT  IN  BINARY  AT  THF  RIGHT  OF  EACH  WORD,  "S"  DENOTES  UNLSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS*  OR  "C  (CONSTANTS) 


37,300C 

37,3010 

37,3020 

37,3030 


11440  1 
C : 02A77  1 
l:  77776  1 
I : 77624  1 


13003  0 
I : 55525  C 
32475  C 
C:  76401  0 


30032 
I;  74276 
C:  17314 
02117 


55414  0 
C;  37110  0 
02315  1 
55412  0 


06042  1 
l:  74521  1 
11440  1 
11440  1 


1 : 
C : 


65345  0 
02643  1 
02263  1 
02447  1 


02473  0 
02740  0 
06042  1 
05155  0 


37,  3040 
37,3050 
37,3060 
37,3070 


C : 00000  1 
C:  77776  1 


54003  0 
05516  0 
C:  OOOOO  1 
C;  25730  0 


34753  1 
C:  00007  0 
C : OOOOO  1 
C : 00035  1 


55576  0 
05155  0 
C:  OOOOO  1 
C:  10317  0 


05567  0 
C : 01601  1 
C:  00001  0 
C:  17550  1 


C:  01600  0 
C : 06200  0 
C:  00004  0 
f:  00115  1 


02270  0 
C : OOOOO  1 
C : C0002  0 
C : 01443  0 


33054  0 
C : OOOOO  1 
C : 00220  1 
C:  04133  1 


37,3100  C:  02265  1 
37,31 10  C:  14066  1 
37,3120  13113  0 
37,313C  13403  1 


C:  57223  0 C:  66451 

C : 23073  1 C : 11773 

40103  1 74747 

06042  1 I : 77634 


1 C:  05427  0 C: 

1 33407  1 

0 00006  1 

0 C:  21574  1 C: 


12577  1 C : 77567  0 
04616  1 C:  20334  1 
13377  0 40104  O 
34041  0 C:  27056  1 


C:  44202  1 C:  24276  1 
05563  1 05563  1 

74744  0 00006  1 

I ; 77775  1 C : 00017  1 


37,3140 

37,3150 

37,3160 

37,3170 


26170  0 
00017  1 
13326  1 
34041  0 


00025  0 
26140  0 
40104  0 
27410  1 


C:  16105  1 
C:  00025  0 
74744  0 
1 : 43175  0 


C:  00015  0 
C:  02120  0 
00006  1 
C:  02170  0 


C:  02114  1 
I : 77776  1 
13370  1 
C : 00263  0 


34041  0 
40103  1 
06042  1 
25535  0 


27042  1 I;  77775  1 
74747  0 00006  1 
77634  0 C : 21574  1 
02105  I C:  15543  1 


37,3200 

37,3210 

37,3220 

37,3230 


C:  02114  I 
C:  27106  0 
C:  01473  0 
C:  15543  1 


I ; 43014  0 
I : 77775  1 
C:  30015  0 
C:  02114  1 


C:  04344  0 
C;  00001  0 
C:  00041  1 
I ; 43014  0 


C; 
C : 
I ; 
C: 


77205 

26207 

43175 

04344 


0 

0 

0 

0 


C;  00063  I 
r. : 00007  0 
C ; 02140  0 
C:  77236  0 


I : 77614  1 
C:  36215  1 
C;  00263  0 
C:  00063  1 


C : 01473  0 
C:  2741C  1 
C:  25535  0 
C : 35517  1 


C : 
I : 


C : 


02120  0 
27106  0 


37,3240 
37,32  50 
37,3260 
37 ,3270 


I:  52375  1 
C:  26201  0 
C;  J6516  0 
C:  00007  0 


C:  00001  0 
C:  00007  0 
I : 77624  I 
I:  47315  0 


C : C2207  0 
I:  50251  1 
C : 47663  1 
C:  00001  0 


I : 65234  1 
C:  02215  0 
I:  41505  1 
C:  02215  0 


C:  21725  1 
I : 77752  1 
C : 01734  0 
I : 50235  0 


C : 00045  0 
r : 26203  J 
I : 72431  1 
C : 00001  0 


I : 77657  0 
C : 02207  0 
C : OOOOl  0 
C:  cool  5 0 


C:  20201  0 
I : 63256  0 
1 : 53445  1 
l:  77715  1 


3?,33C0 

37,33X0 

37,3320 

37,:>330 


I : 75241  I C:  00007  0 

C:  77315  0 I : 45345  1 

00006  1 15472  1 

06042  1 1 : 40375  1 


C:  00015  0 
C:  06532  0 
41043  0 
C:  01220  0 


I:  65512  1 
C:  02205  1 
7474C  1 
C:  OOOOl  0 


C:  26205  1 
C:  02205  1 
27C43  0 
C:  26207  0 


C : OOOOl  0 
I : 77776  1 
13155  I 
C:  01226  0 


I : 51041  0 C : 00007  0 
34747  1 71043  0 

37713  0 05146  1 

C : 2621 50  C : 01726  0 


37,3340 

37,3350 

37,3360 

37,3370 


L:  0334/  1 
C:  OOCOl  0 
■)6042  1 


Ci  01720  0 
C : 77363  1 
I : 77650  1 
I:  77634  0 


C:  01234  0 
I : 60505  1 
C;  77240  1 
C:  21574  1 


I : 77776  1 
C:  01734  0 
I : 77624  1 
C:  34C41  0 


35015  0 
I:  77715  1 
C:  27410  1 
C : 27056  1 


05146  1 
I : 76505  0 
I : 52014  0 
1 : 77650  1 


06042  1 
C:  C1734  0 
C:  01673  1 
C:  77211  0 


I:  77214  0 
I : 40206  1 
C;  77222  0 
40102  0 
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OCTAL  LISTING  FOR  PARAGRAPH  # 217,  UlTF  PARITY  PIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  ”3"  DENOTES  UNLSFO  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (IMERPPETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


37,3400 

37,3410 

37,3420 

37,3430 


7474A  0 00306  1 
34757  0 03527  1 
74773  1 26103  1 
05105  0 C:  02463  1 


13326  1 06042  1 

35031  0 05072  1 

44735  0 70C76  1 

C:  46067  1 34752  0 


I : 52034  1 
C:  03671  1 
54076  1 
C3523  0 


C : 21574  1 
C:  14063  1 
34751  0 
35000  1 


C : 


77144  0 
03541  1 
55256  O 
05224  n 


04066  0 
40103  1 
377)  3 0 
43535  0 


37,3440 

37,3450 

37,3460 

37,3470 


60030  1 
03527  1 
00006  1 
00006  1 


10070  0 
34753  1 
05011  I 
13513  1 


44753  0 
55256  0 
30103  0 
1C754  0 


13445  0 
3^736  1 
74747  0 
13513  1 


34753  1 26030  0 03536  1 
05105  0 C:  02206  1 C:  66067  0 
00006  1 13515  1 30102  1 
34757  0 55055  1 40025  1 


34756  1 
34743  0 
74744  0 
64756  1 


37,3500 
37, 3510 
37,3520 
37, 3530 


64734  0 
05203  0 
34751  0 
40001  1 


64734  0 
02006  0 
03523  0 
52762  0 


57054  1 
42067  0 
05261  1 
00002  0 


34361 
34751 
54001 
C;  03661 


1 

0 

1 

0 


C 


54001  1 
13434  n 
4C025  1 
44067  0 


40000  0 
00006  1 
55062  n 
37771  1 


52754  0 36007  0 
33534  0 53252  1 
13530  0 54001  1 
00006  1 30025  0 


37,35^.0 

37,3550 

37,3560 

37,3570 


53561  0 
54326  1 
54324  0 
53247  0 


44755  C 
54327  0 
22326  0 
00006  1 


55253  0 55254  1 
54325  1 55256  0 
40041  0 57255  1 
41234  1 21247  0 


55255  0 34755  I 
C0006  1 40040  1 
56041  1 54330  0 
30032  0 55154  1 


54330  0 54331  1 
53254  1 52040  1 
00006  1 31561  1 
30033  1 55155  0 


37,3600 

37,3610 

37,3620 

37,3630 


30034  0 
00002  0 
13566  0 
11255  0 


55156  0 
11256  0 
13566  0 
41255  0 


30324  1 55157  1 30326  C 55160  0 30330  1 55161  1 

13437  0 33651  0 54002  1 10330  0 13566  0 13622  0 


22007  0 
13565  0 


10326  1 13627  0 13636  0 13627  0 22041  1 

13631  1 22330  1 13566  C 11253  0 41253  0 


37,3640 
37,3650 
37, 3660 
37,3670 


13643 

13562 

03711 


I 

1 

0 

0 


13637  1 
C:  03447  0 
C3654  0 
05516  0 


13554  I 54324  0 

05504  0 C:  00054  0 
52155  1 52317  0 

C:  00010  0 34741  1 


41254  1 54326  1 
C0004  0 00006  1 
00004  0 04616  1 
00006  1 05013  0 


44755  0 52040  1 

30025  0 52315  1 

r : 17166  0 05516  0 

05353  1 C;  07024  0 


37,37C0 
37,3710 
37,3720 
37,  3730 


20000  0 C;  03731  1 
13703  1 00006  I 
34755  1 20155  1 
Q0156  0 44741  0 


76060  0 34774  1 
22156  0 0*103  1 
44346  0 70155  1 
00006  1 03013  0 


04616  1 
00003  1 


20624  0 
52155  1 


13703  1 
34747  1 


13703  1 
54001  1 


56155  0 
00004  n 


74346  0 lOOOO  0 24156  0 

34755  1 54001  I 52025  1 


37  ,3740 
37,3750 
37,3760 
37,3770 


03711  0 
54156  1 
00006  1 
06001  0 


C3734  1 
07262  0 
3031 5 0 
03771  0 


00006  1 40317  0 
10154  0 03760  0 
20155  1 07262  0 
03772  0 CKSM  47000  1 


52155  1 


34742  1 
03756  0 
20025  1 
a 


07312  0 
34742  1 
C5516  0 
3 


34755  1 
26154  0 
00054  0 

a 
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OCTAL  LISTING  FCR  PARAGRAPH  # 220  , V-ITh  PARITY  BIT  IN  BINARY  AT  TFE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  I I NTERPRETIVE  OPERATOR  WORDSI  OR  " C '■  ICONSTANTSI 


40,2000 

40t2Cl0 

40,2020 

40,2030 


C 

C 


35017  1 
: 20353  0 
30036  I 
: 24011  1 


05105  0 
05563  1 
52155  1 
00007  0 


C:  02017  0 
05563  1 
06042  1 
I : 77656  1 


C:  60104  1 
05563  I 
I : 77624  1 
C:  00007  0 


34740  C 
34751  0 
C : 46065  0 
1 : 77641  I 


05146  1 
05464  1 
C:  OOnOl  0 
C : 06516  0 


32^76  1 04616  1 

05155  0 00006  1 

C : 14007  0 C:  06524  1 

C;  24021  1 C:  06522  1 


40,2040  l:  77641  1 
40,2050  C:  00001  0 
40,206C  C:  47322  I 
40,2070  C:  01736  1 


C : 00007  0 
I:  77641  1 
I : 43244  1 
347^7  1 


C:  34023  1 
C:  06520  0 
C:  60064  0 
71043  0 


C:  47322  1 
C:  24023  0 
C:  06532  0 
10000  0 


l;  43244  1 
C : 00001  0 
C:  02201  n 
02017  0 


C:  60047  1 
I : 77641  I 
I : 77776  1 
05472  0 


C:  06532  0 
C:  0000"^  0 
34777  1 
C:  04070  1 


C:  26203  1 
C:  34021  0 
04616  I 
34753  1 


40,2100 

40,2110 

40,2120 

40,2130 


57011  0 
12112  0 
02175  0 
03470  1 


54115  0 
04374  0 
02175  0 
03470  1 


11041  I 02105  1 
56154  1 54117  1 
02175  0 02175  0 
03470  1 03470  1 


02112  1 42156  0 
50000  1 02116  0 
02175  0 02175  0 
C3470  1 03470  1 


60154  1 00006  1 
03470  1 02175  0 
02161  0 02161  0 
02173  0 02354  1 


40,214C 

40,2150 

4C,2160 

40,2170 


C 


03646  0 
02407  0 
62002  1 
10000  0 


03470 

02374 

10776 

02175 


1 

0 

0 

0 


03470  1 
02157  0 
02166  1 
03470  1 


03470  1 
0347C  1 
02166  1 
34755  1 


03470  1 
C2467  0 
05155  0 
54117  1 


03470  I 03470  i 
02370  1 C:  00022  1 
05155  0 36250  0 
10776  0 02202  0 


03524  1 
04635  0 
70777  1 
02202  0 


4C,220C 
40, 2210 
40,2220 
40,2230 


02201  0 
34C66  0 
10000  0 
60117  0 


051  55  0 
74346  0 
02232  0 
02247  1 


02324  0 
54124  1 
50137  1 
50137  1 


11014  1 
30776  1 
57000  0 
57000  0 


34755  1 
54143  0 
54022  0 
54154  0 


55014  1 
03356  1 
40022  0 
34755  1 


02207  0 
36250  0 
40022  0 
54155  1 


50117  0 
70777  1 
56022  1 
34363  0 


40,2240 
40,22  50 
40, 226C 
40,2270 


07312  0 
55000  1 
70777  I 
62263  1 


56155  0 60117  0 
40776  0 50137  1 
lOOOO  0 02265  1 
07106  1 C : 02322  0 


40776  0 
36250  0 


02247  1 
00006  1 
02313  1 
70777  1 


2615^  0 
12257  1 
44753  0 
50000  1 


02265  I 50137  1 
02312  0 36250  0 
60137  1 00006  1 
02276  0 02303  0 


40,2320 
40, 2330 


00006  1 
55000  1 
C:  00005  1 
C : 00004  0 


C:  00000  1 
C:  0n004  0 


C:  05174  0 
C : 00004  0 


56156 

54776 

13261 

00004 


0 

0 

c 

0 


50137 
051  55 
5C776 
00004 


C: 

C: 


55003  1 
00022  1 
32330  0 
00003  1 


56155  0 50137  1 

C:  00020  0 C:  00012  1 

54137  0 00002  0 

C:  00003  1 C:  00003  1 


40,2340 
40,2350 
40,2360 
40 ,23  70 


C:  00003  1 
C:  00001  0 
02601  1 
34755  1 


C:  00003  1 
C:  00001  0 
34753  1 
55001  0 


C : 00002  0 
C:  00000  1 
54777  1 
34361  1 


C:  00002  0 
C:  00000  1 
34755  1 
02357  1 


00002  0 C : 00002  0 
34755  1 55000  1 
55012  1 34217  1 
02446  0 02433  1 


C:  00002  0 05675  0 

34360  0 54776  0 

54136  1 05155  0 

34752  0 50137  1 


gap:  assemble  revision  131  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2C21112-C91  17:53  CEC«  19,1969  PAGE  1712 
OCTAL  LISTING  FCR  PARAGRAPH  # 221,  V.ITF  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  •■C"  (CONSTANTS) 

Ag,240C  64745  0 26777  1 


4d,2410 

40,2420 

40,2430 


64753  1 
56122  0 


11014  1 
02377  0 
34755  I 
00001  0 


34755  1 
22002  0 
54124  1 
22002  0 


55014  1 
02324  0 
56123  1 
C2324  0 


02406  1 
50137  I 
C3440  1 
50137  J 


05155  n 
32441  I 
34741  1 
32441  1 


02446  0 

54123  0 

54124  1 
54122  1 


40, 2440 
40 ,2450 
40,2460 
40,2470 


64753  1 
70777  1 
02462  0 
64753  1 


54123  0 
10000  0 
05155  0 
C2473  0 


02422  1 
05155  0 
60776  1 
64753  1 


C:  00005  1 
44317  1 
00006  1 
50000  1 


00003  1 
02462  0 
12466  0 
32330  0 


00000  1 
44320  O 
00002  0 
54137  n 


22002  0 
02462  0 
00001  0 
11014  1 


36250  0 
44321  1 
10776  0 
02505  0 


40,2500 

40,2510 

40,2520 

40,2530 


02502 

32577 

30125 

10000 


02502  1 
27012  1 
54137  0 
00002  0 


30137  1 
30137  1 
02525  1 
05675  0 


02527  0 
54125  0 
25C14  0 
05155  0 


02522  0 
00006  1 
05155  0 
C0002  0 


10137  O 
27000  I 
22002  0 
54776  0 


54137  0 
04616  1 
02540  1 
22002  0 


02527  0 
C:  62342  0 
67751  0 
02324  0 


4u, 2540 
40,2550 
40,2560 
40,2570 


34755 

70777 

32573 

54776 


50137  I 
72600  1 
54776  0 
00001  0 


5500C  1 
54777  1 
02601  1 
C : 00016  0 


50137  1 
50137  1 
44752  1 
C : 00005  1 


55003  1 
32570  1 
26776  0 
00004  0 


54124  1 
54143  0 
02601  1 
C:  00015  0 


50137  1 
03356  1 
50137  1 
C:  f'OOll  1 


44745  1 
50137  1 
34315  1 
O0003  1 


40,2600 
40, 2610 
40,2620 
40,263C 


C : 77774  0 
62612  0 
02622  0- 
12634  0 


30776  1 
25015  I 
02701  0 
40154  0 


54021  0 
00003  I 
02717  1 
64753  1 


42614  1 
00002  0 
02625  1 
54154  0 


C0004  0 
C;  04000  0 
02615  1 
00002  0 


50021  I 
34755  1 
30154  1 
00006  1 


57022  o 
54156  1 
74733  0 
00033  1 


00006  1 
02706  I 
00006  1 
00006  1 


40,2640 

40,2650 

40,266C 

40,2670 


74742  0 
10000  0 
C : 00123  I 
Ct  01150  1 


40000  n 
02657  1 
02745  0 
34733  1 


76250  I 
52155  1 
02671  0 
70154  0 


54154  0 
20001  I 
00006  1 

54155  1 


02733  1 
20001  I 
42670  0 
301  54  1 


02671  0 
200C1  1 
20155  1 
60000  1 


40110 

52155 

C2657 

74753 


74751 
07106 
C:  00001 
54154 


40,2700 

40,2710 

40,2720 

40,273C 


00002  0 
00002  0 
50156  0 
03656  1 


00006  1 
12712  0 
32730  1 
16314  0 


50156  0 
44735  0 
52155  1 
31463  1 


32730  1 
70154  0 
07512  C 
52124  1 


52124  1 
54154  0 
52124  1 
52155  1 


00002  0 
50002  0 
20155  1 
04415  0 


10154  0 
00001  0 
02736  1 
04635  0 


00002  0 
00006  1 
05605  I 
62570  1 


40,2740 

40,2750 

40,2760 

40,2770 


52124  1 
02736  I 
54162  0 
30154  1 


52155  I 
02757  0 
03)03  1 
03342  1 


04415  0 
02736  1 
07262  0 
46250  1 


02  745  0 
02757  0 
07106  1 
50117  0 


02757  0 
36245  1 
00123  I 
64317  0 


56156  0 
03207  1 
00162  I 
54776  0 


56155  0 
02736  1 
02536  n 
03003  I 


54154 

56002 

02413 

30155 
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OCTAL  LISTING  FCP  PARAGRAPH  # 222,  ^»ITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  hORO , "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  OR  "C"  (CONSTANTS) 


40,3000 

40,3C1C 

40,3020 

40,3030 


03342  1 
50117  0 
34755  1 
03454  1 


J4635  0 
30150  0 
54156  1 
DO006  1 


C 


62572  0 
74356  1 
0C144  0 
50145  1 


56002  0 
04313  1 
30145  1 
30001  0 


54144  1 
00006  1 
03014  1 
52155  1 


50140  1 03006  1 03023  0 
50000  1 30001  0 52155  1 
501/‘0  1 03026  0 03031  0 
34317  0 54776  0 34755  1 


40,3040 
40,3050 
40,3C6C 
40, 3070 


54156  1 
03052  0 
10154  0 
10154  3 


07262 

44741 

33065 

05675 


03327 

60155 

03065 

03122 


1 

0 

1 

0 


40000  0 
03074  1 


07106 

04404 

54154 

56154 


1 

0 

0 


03130  o 
04404  0 
10162  0 
74733  ^ 


10155  1 
0323f'  0 
C3124  o 
541 54  0 


34741  1 
04404  0 
03077  1 
50140  1 


40,3100 

40,311C 

40,3120 

40,3130 


03100  0 
13112  1 
C;  63051  0 
C : 26161  0 


03105  0 
C:  30707  I 


03114  0 03105  0 
04635  0 C:  63200  0 
44733  0 03076  C 
07106  1 C:  00123  1 


03117 

04616 

40154 

56156 


0 

1 

0 

0 


40000  0 
C:  63057  0 
7473*^  0 
56155  0 


64752  0 00006  1 
03103  0 04616  1 
40000  0 03076  0 
56154  1 00006  1 


40,3140 

40,3150 

40,316C 

40,3170 


13142  I 34145  0 
07106  1 C:  00123  1 
03230  0 50140  1 
50002  0 54001  1 


03217  0 
56156  0 
03162  1 
03112  0 


03230  0 
60000  1 
03173  1 
34755  1 


03112  0 
54156  1 
30117  0 
03165  0 


07106  1 
34755  1 
60145  1 
07106  1 


00123  1 
60155  0 
54002  1 
00123  1 


03142  0 
03221  0 
56155  0 
36245  1 


40,3200 

40,3210 

40,3220 

40,3230 


60000  1 
10162  0 


33152  I 07106  1 
56002  0 54123  0 
54155  1 00002  0 
34145  0 00002  0 


00123  1 
04404  0 
60154  1 
04145  0 


34752  0 
10123  0 
54154  0 
56002  0 


03207  1 
03212  0 
00002  0 
54144  1 


03152  1 
00124  0 
54162  0 
10154  0 


56002  0 
56155  0 
0000  2 0 
03247  0 


40,3240 

40,3250 

40,3260 

40,3270 


03247  0 
00144  0 
52155  1 
34363  0 


30002  0 
07312  0 


54154  0 
33315  0 
56002  0 
50154  1 


54115  0 
34C66  0 


40155  1 
00006  1 
03234  1 
74346  0 


54155  1 00144  0 
13261  0 00006  1 
03251  1 34751  0 
54124  1 34755  1 


02413  0 
34733  1 
54137  0 
56156  0 


40,3300 
40, 3310 
40 ,3320 
40,333C 


56155  0 54154  0 
03267  I 44360  1 
03234  1 33266  0 
54115  0 34755  1 


56776 

54776 

56002 

54124 


1 

0 

0- 

1 


54143  0 
00115  1 
54115  0 
36250  n 


10000  0 
C:  00000  1 
03234  1 
03440  1 


54776  0 
C : 02476  n 
347  53  1 
34751  C 


C3356  1 
560C2  0 
03267  1 
C3440  1 


10137  0 
54115  0 
56002  0 
03234  I 


40,3340 
,40,33  50 
40,3360 
40  ,3370 


34320  1 
54115  0 
34346  1 
03372  1 


03267  1 
03325  0 
70143  0 
03402  1 


00006  1 
C:  00244  0 
54021  0 
56124  0 


73352  1 
03342  1 
56021  1 
04340  1 


22154  1 34755  1 
04635  0 C : 62351  1 
54141  I 34753  1 
54124  1 34736  1 


54155  1 56002  0 
56002  0 54114  1 
70143  0 lOOOO  0 
70143  0 10000  0 
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OCTAL  LISTING  FOR  PARAGRAPH  ft  223,  klTH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDSI  OR  *'C  " (CONSTANTSI 


40,3400 
40,3410 
40, 3420 
40,3430 


34752  0 
64753  I 
50143  1 
63432  1 


43434  0 
250'15  1 


54143  0 00004  0 
50143  1 73434  0 
70142  1 60124  0 
00003  1 C0114  0 


50L41  0 
00006  1 
40000  0 
00037  0 


C : 


11022  1 
60X24  0 
50141  0 
01740  0 


03410  1 
OOOC6  1 
57022  0 
02000  0 


05675  0 
13432  0 
00006  1 
03740  1 


40,3440 
40  ,3450 
4C,346C 
40,3470 


54141  1 
04640  1 
43474  1 
04364  1 


34752  0 
53436  0 
60136  0 
05155  0 


54143  0 
44360  1 
00006  1 
C5642  1 


56O02  0 
54776  0 
13465  1 


54114  1 
43475  0 
03470  I 
041?<-  1 


03403  0 03356  1 33451  1 
60136  0 00006  1 13472  1 
04204  0 04364  1 04124  I 
04202  O 34753  1 55013  0 


40,3500 

40,3510 

40,3520 

40,3530 


04204  0 
00006  1 
03476  1 
34736  1 


04457  0 
26000  0 
44755  0 
71020  0 


04433  1 03612  1 
00006  1 13470  0 
03477  0 C:  00026  0 
10000  0 03542  1 


44753  0 
34755  1 
44751  I 
C4457  C 


03477  0 
55012  1 
00006  1 
11041  1 


41000  1 
44360  1 
03011  1 
035  40  0 


63523  0 
54776  C 
10115  0 
05155  0 


40, 3540 
40,3550 
40,356C 
40,3570 


04635  0 C : 21051  0 
30776  1 54132  0 
34320  1 32535  0 
52131  0 35166  0 


34755 

34753 

34751 

70123 


55011  1 
03572  1 
03572  1 
10000  0 


11041  1 05155  0 04502  \ 05155  0 
34317  0 02535  O 3475?  0 03572  1 
34321  0 02535  0 30132  1 54776  0 
00002  0 50002  0 00002  o 34362  I 


40,3600 

40,3610 

40,3620 


56776  1 54140  0 
54776  0 C5155  0 
05137  1-  11013  0 


llOlO  0 
11041  1 
03644  1 


64753  1 
03615  0 
05155  0 


03342  1 03607  0 
05155  0 ’ 34755  1 
03642  I 34752  0 


02601  1 56140  1 
57041  0 0000^  0 
50064  0 60164  1 


40,3630 


50C64  0 


54164  0 


31001  1 


54001  1 


?10C0  0 50064  0 52155  1 


00003  1 


40, 3640 
40,3650 
40,366C 
40,3670 


04457  0 05155  0 
00004  0 34742  1 
45026  1 71300  1 
43734  0 70110  0 


34755  1 03626  0 
00006  1 05C11  1 
65026  0 55300  1 
64745  0 54110  0 


34753  1 03626  0 
33735  C 71035  1 
44742  0 71277  0 
06022  1 44742  0 


56115  1 55011  1 
64735  1 55035  1 
64742  1 55277  0 
00006  1 03013  0 


40,3700 

40,3710 

40,3720 

40,3730 


30006  1 
03716  1 
50117  0 
55357  0 


03011 

64753 

55022 

05155 


I 

1 

1 

0 


34363  0 
40000  0 
00C03  1 
00104  1 


54117  1 
73736  1 
10117  1 
00330  1 


00004 

03721 

03704 

00050 


0 

0 

1 

1 


50117  0 11022  1 
40000  0 73736  3 
34755  1 54375  1 
73777  1 35015  0 


40,3740  05105  0 
40,3750  13743  0 
40,3760  CKSM  52401  0 
40,3770  S 


C : 


76C67  I 
05072  1 
S 


s 

s 


C:  00144  0 
C:  76067  1 
a 
a 


31043  1 74740  1 00006  1 

15261  0 C:  03756  o c:  03757  1 
9 9 3 

9 -a  9 
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OCTAL  LISTING  FOR  PARAGRAPH  « 224,  WITH  PARITY  PIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  HORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I" 


(INTERPRETIVE  OPERATOR  WOROSI  OR  "C"  (CONSTANTS) 


03557 

02035 

locon 

55012 


03020  0 
02012  0 
02023  1 
U4433  1 


34755  1 
32033  0 
C2C27  P 
01012  0 


55014  1 
61C12  0 
10776  0 
03444  0 


34217 

00006 

P2353 

PC034 


1 

1 

0 

0 


54136  1 
12027  1 
02353  0 
34755  1 


11012  1 02035  0 
36250  0 70777  1 
C2027  0 41012  1 
54777  1 44360  1 


41,2040 

41,2050 

41,2060 

41,2^70 


54776  0 
52006  0 
02064  1 
00006  1 


41000  1 
50140  1 
25016  1 
12073  0 


55040  0 
02052  I 
04311  0 
02116  0 


62034  I 00006  1 
02055  0 02221  1 
02120  0 34735  1 
02311  0 10777  I 


55014  1 
04145  0 


00O06  ] 
02131  n 
44217  0 
4436C  1 


60136  0 
54776  0 


41,2100 
41,2110 
41,2120 
41  ,2130 


11041  1 
32114  1 
44756  0 
02133  1 


12104  0 
52  006  0 
61000  0 
64753  1 


02105  1 02104  0 
02133  1 C:  02103  1 
00006  1 12133  0 
04303  0 42145  1 


04427  1 57nr>4  1 

C:  64101  0 C ; 77772  0 
34321  0 54776  0 

61000  0 10000  0 


04303  0 00006  1 
30156  0 04303  0 
31P16  1 03410  1 
6^^753  1 02141  1 


41,  2140 
41,2150 
41,216C 
41, 2170 


02146  0 
04640  1 
C;  61025  1 
C:  63255  0 


54154  0 
C:  62353  0 
C:  62353  0 
C : 63255  0 


04457  0 
C : 62367  1 
C:  62353  0 
C:  63255  0 


04635  0 
C:  62375  1 
C:  61454  0 
C:  62353  0 


C:  66000  1 
C;  62402  0 
C:  63255  C 
C:  62353  0 


C:  00050  1 
C:  62362  1 
C : 63255  0 
C:  62353  0 


51000  n 
C:  62355  o 
C : 63255  0 
CJ  62755  I 


32151  0 
C:  62525  1 
C : 63255  0 
C:  62766  1 


41,2200 
41,2210 
41  ,2220 
41  ,2230 


C:  63003  I 
C : 63525  0 
C:  62353  0 
00006  1 


C:  62726  0 
C:  61521  0 
10146  C 
62233  1 


62622  0 C:  62353  0 
61476  n C:  61504  1 
02226  0 02353  0 
02133  1 34752  0 


C : 63400  0 
C:  63626  0 
02226  0 
54117  1 


C:  62353  0 
C:  12447  0 
02226  0 
62260  1 


C:  62353  0 
C:  63443  1 
46245  n 
541X.5  0 


C:  635C1  0 
C:  62353  0 
61000  0 
50117  0 


41,  2240 
41  ,2250 
41,226C 
41,2270 


30150  0 
04313  1 
00125  1 
12303  1 


54122  1 
50000  1 
50000  1 
00002  0 


03057  0 
30000  1 
12263  0 
12303  1 


02261  0 
50145  1 
00002  0 
00002  0 


02246  0 
56000  1 
00002  0 
00002  0 


24122  0 
10117  1 
00002  0 
12303  1 


30122  0 
02234  0 
00002  0 
00002  0 


12303  1 
00002  0 


41  ,2300 
41,2310 
41', 2320 


00002  0 00002  0 

12312  1 34321  0 

00136  0 55001  0 


00002  0 50002  0 
54776  0 40002  1 
56002  0 54117  1 


00001  0 34317  0 
55012  1 04616  1 
00006  1 32114  1 


12312  1 34320  1 

Ct  60536  1 04427  1 

52006  0 10146  0 


41,2330  64753 


12334  0 12335  1 


12335  1 04303  0 34361  1 


54776  0 31001  1 


41,2340 

41,2350 

41,23eC 

41,2370 


12347  1 
61353  0 
40002  1 
02470  0 


55000  1 56002  0 54117  1 
00117  0 04145  0 04635  0 
56132  1 44753  0 02426  0 
50145  1 40000  0 56130  0 


34360  0 
61454  0 
50145  1 
02407  0 


54776  0 

44752  1 
40001  I 

44753  0 


31000  0 
02426  0 
56131  1 
02441  1 


0463B  0 
50145  1 
02445  0 
50145  1 
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OCTAL  LISTING  FOR  PARAGRAPH  « 225,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  hOPD,  "3 » DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  VsDROS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE 


MARKED  "I 


(INTERPRETIVE  OPERATOR  WORDS!  OR 


"C"  (CONSTANTS) 


41  ,2400 
41»241C 
41,  2420 
41  ,2^30 


40001  1 
61000  0 
54776  0 
02517  0 


02373  1 
lOOOO  0 
50122  0 
04331  1 


44752  1 
02415  0 
40130  1 
76250  I 


02441  1 
00136  0 
03410  1 
60123  I 


50145  I 
02415  0 
56122  0 
10000  0 


40002  1 
54122  1 
02411  1 
OOOOl  0 


02373  1 
50000  1 
54123  O 
C5675  0 


44752  1 
3431  7 0 
22002  0 
02353  0 


41,2440 
41, 2450 
41,2460 
41,2470 


OOOOl  0 54123  0 
74736  0 lOOOO  0 
04145  0 OOOOl  0 
22002  0 30146  I 


22002  0 02445  0 
02353  0 00156  0 
22002  0 02517  0 
64753  1 00006  1 


02430  I O0006  1 
22002  0 02517  0 
10000  0 OOOOl  0 
12506  I 50140  1 


22156  0 02517  0 
74736  0 lOOOn  0 
OOOOl  0 02353  0 
02476  0 02501  1 


41  ,2500 
41,2510 
41,  2520 
41  ,2530 


OOOOl  0 
00006  1 
32514  0 
54117  1 


03051  0 02261  0 
50000  1 00000  1 
50030  1 30000  1 
54122  1 60145  1 


OOOOl  0 
40000  0 
74350  1 
50000  1 


24145  1 OOOOl  0 
12373  0 C:  00147  0 
00002  0 02517  0 
40C00  0 50122  0 


31016  1 75004  1 
00146  1 50140  1 
04331  1 76250  1 
57002  1 10122  1 


41,254C 
41  ,2550 
41,2560 
41,  2570 


02531  1 34755  1 
41002  0 54154  0 
02560  0 02564  1 
04616  1 C:  61262  0 


54155  1 54156  1 
03072  1 54123  0 
03057  0 02577  0 
10117  1 02575  1 


50117  0 34317  0 
00006  1 32567  1 
03051  0 02577  0 
00136  0 54117  1 


54776  0 50117  0 

52006  0 50140  1 

C:  02141  1 C:  64101  0 
02541  0 50000  1 


41  ,2600 
41,2610 
41,2620 
41,2630 


32602  1 
C;  60635  1 
C:  60645  0 
33032  0 


04640  1 
C:  60753  0 
C:  60662  0 
02341  0 


C:  61452  0 
C:  65230  0 
44752  1 
02307  1 


C:  62570  1 
C:  65303  1 
02426  0 
33033  1 


C : 6061 5 0 
C:  60751  1 


C:  60733  0 
C : 60740  1 


C:  6074^^  0 
C:  6C766  0 


C:  60751  1 
C:  60623  0 


02462  0 
02341  0 


33031  0 
02311  0 


02341  O 
46245  0 


02305  0 
03034  0 


41  ,2650 
41,266C 
41,2670 


00006  1 
03120  I 
61001  1 
62700  I 


32114 

50145 

0O0O6 


31002 


1 

I 

I 


52006  0 34755  1 
54001  1 34752  0 
12664  0 03020  0 
04304  1 50145  1 


03120  I 
03120  1 
00004  0 
30000  1 


44763  0 
54001  1 


54000  0 
54O02  I 
61002  1 
34753  1 


00006  1 
55002  0 


41,2700 
41,2710 
41,2720 
41  ,2730 


64361  1 
51002  1 
lOOOO  0 
02462  0 


00006  1 
05000  1 
12724  C 
33031  0 


12724 

12717 

50145 

02341 


0 

0 

I 

0 


31004  1 
41003  1 
22000  1 
02305  0 


00006  1 62713  0 31003  0 
00006  1 51002  1 03000  1 
00003  1 03020  0 44753  0 
33032  0 02341  O 02307  1 


00006  1 
11002  0 
02426  0 
44756  0 


41,2740 

41,2750 

41,2760 

41,2770 


03034  0 
34753  I 
52006  0 
34735  1 


00006  1 
03120  1 
34755  1 
55014  1 


32114  1 
50145  1 
03120  1 
023C7  1 


52006  0 
54001  I 
50145  1 
00006  I 


34755  1 
03020  0 
54000  0 
32114  J 


03120  1 
02305  0 
03020  0 
52006  0 


50145  I 
00006  1 
44753  0 
34753  1 


54000  0 
32114  1 
02426  0 
03120  1 
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OCTAL  LISTING  FOR  PARAGRAPH  « 226f  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S'*  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


^1  ,3000 
41  ,3010 
41, 3020 
41,3030 


50145 
00006 
34755 
C:  61612 


1 

1 

1 

0 


54U01  1 
32114  1 
54777  1 
C:  00025  0 


03020  C 
52006  0 
44755  0 
C : 00026  0 


44752  I 
34752  0 
55013  0 
00027  1 


02426  0 
03120  1 
04457  0 
5411,7  1 


34735  1 
50145  1 
44360  1 
40777  1 


55014  1 02311  0 
54002  1 03020  0 
54776  0 04635  0 
54021  O 40021  0 


41, 3040 
41,3050 
41  ,3060 
41,3070 


40021  0 
00002  0 
54114  1 
00000  1 


10000  0 
56002  0 
50117  0 
00114  C 


13044  0 
54114  1 
33111  0 
56002  0 


00002  0 
34347  0 
54001  1 
54114  1 


60117  0 
70147  1 
50117  0 
50140  1 


00006  1 
04322  0 
34346  1 
03075  0 


13050  0 
0'')  16  0 
70153  1 
03114  0 


04145  0 
56002  0 
50001  0 
50117  0 


41  ,3100 
41,31 10 
41,3120 
41  ,313(1 


33111  D 
00114  0 
54117  1 
50117  0 


54001  1 
03050  1 
56002  0 
57002  1 


50117  0 
04322  0 
54115  0 
54154  0 


34346  1 
04331  1 
34755  1 
50140  1 


70147  1 
34346  1 
54162  0 
03134  1 


50001  0 
70147  1 
50117  0 
03162  1 


00000  1 
60000  1 
57005  0 
50117  0 


60000  1 
00114  0 
54155  1 
30150  0 


41,314C 
41  ,3150 
41  ,3160 
41, 31 70 


74356 

03057 

53777 

03174 


1 

0 

0 

0 


34303  0 
02261  0 
03200  0 
34755  1 


00006  1 
C3200  0 
04311  0 
54117  1 


60117  0 
24145  1 
10777  1 
03153  0 


54145  0 

30145  1 
03217  0 

30146  1 


02454  0 
64753  1 


032)7  0 
34755  ) 
03051  0 
C0006  1 


02454  0 
50117  0 
02261  0 
13204  0 


41,3200 
4l,321C 
41,3220 
41  ,3230 


56154  1 
31016  1 
54123  0 
03232  1 


00115  1 
75004  1 
00006  1 
03051  0 


56154  1 
33203  0 
50000  1 


64101  0 
00006  1 
52006  0 
33235  0 


44757  1 
50154  1 
50140  1 
04640  1 


61016  1 
0X000  0 
03225  1 
62352  1 


00006  1 
03020  0 
f'Sa?!  1 
61142  1 


13020  1 
03072  1 
03057  0 
61044  0 


41,3240 
41  ,3250 
41,326C 
41, 3270 


61132  0 
61145  0 
40136  1 


C:  611'50  1 
C:  61454  0 
64217  1 


C:  61175  0 
C : 61044  0 
10000  0 


C:  61454  0 C:  61150  1 

C:  61454  0 C : 61454  0 

03272  0 C:  6CC00  I 


34755  1 55021 


36077  1 7)  000 


04331  1 


65452  1 
43264  0 
03272  0 
54022  O 


61454  0 C : 61202  0 
71016  0 54155  1 
34736  1 26155  1 
40022  0 56022  1 


41  ,3300 
41,3310 
41,3320 
41,3330 


61001  I 
11017  I 
00003  I 
33345  0 


54154  0 
03316  0 
00136  0 
05203  0 


34755  I 
34753  1 
04400  1 
C:  03322  1 


55011  1 
05203  0 
11020  0 
62101  0 


11041  1 
C:  03322  1 
03330  1 
34355  C 


03307  0 
C:  62101  0 
03330  1 
05072  1 


^4502  1 00004  0 
52155  1 53020  0 
03341  1 03341  I 
03346  0 C:  62101  0 


41, 3340 
4)  ,3350 
41,3360 
41,337.0 


34144  1 
43264  0 


34755  1 
05X55  0 
71017  1 
71020  0 


55017  I 
05155  0 
63374  1 
54156  1 


55020  0 
11011  1 
54023  1 
02046  1 


C 


0526) 
03376 
30023 
: 75377 


1 

0 

0 

0 


C:  00144  0 
36077  1 
55000  1 
C:  04124  1 


11020  0 
71017  1 
33375  0 
04374  0 


03353  1 
02321  0 
54136  1 
05155  0 


gap:  assemble  revision  131  OF  AGC  PFCGRAN  LUMINARY  EY  NASA  20*1112-091 


17;53  DEC,  19,1969 


PAGE  1718 


OCTAL  LISTING  FOR  PARAGRAPH  # 227,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  OENCTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS!  DR  "C " (CONSTANTS! 


41 ,3400  34317  0 
41,3410  54022  0 
41, 3420  AOC22  0 
41,3430  56776  1 


54776 

56002 

40C22 

54143 


40000  0 
10000  0 


31016 

26776 

50000 

04635 


1 

C 

1 

0 


04651  1 
34751  0 
34066  O 
C ; 61^46  0 


034ir  1 
54137  0 
74346  0 
10137  0 


05155  0 
40022  0 
54124  1 
03416  1 


41  ,3460 


44360  1 
04145  0 
44360  1 


54776  0 00115  1 03465  0 34747  I 
34755  1 57001  1 54154  0 34361  I 
54776  0 30154  1 04635  0 C:  10040  1 


60776  1 COOC6  1 1345]  0 
54776  0 04616  1 C:  60601  0 
40002  1 55012  1 34361  1 


41,3470 


54776  0 34755 


55001  0 04616 


60601  0 04427 


3A753  1 54777  1 


41 ,3500 
41,3510 
41, 3520 
41,3530 


00136  0 
71044  1 
30160  0 
03511  I 


34753  1 
54160  1 
00004  0 
64757  0 


71044  1 
04457  0 
C0154  1 
00004  0 


lOOOO  0 
34217  1 
34354  1 
54124  1 


03523  0 
54157  0 
03506  1 
44740  1 


34351  1 
00006  1 

34352  1 
50124  0 


54154  0 
31046  1 
54154  0 
57022  0 


44753  0 
52156  1 
31044  0 
10000  0 


41, 35A0 
41 ,3550 
41 ,3560 
41, 3570 


25015  1 03542  1 
55000  1 55001  0 
54136  1 10123  0 
54157  0 30123  1 


10124  1 03533  I 
55014  J 44360  1 
03566  1 02353  0 
54023  1 30023  0 


00003  1 50123  1 
54776  0 04433  1 
03531  C 02353  0 
54160  1 10157  0 


03553  1 03550  1 
03601  n 33603  1 
36077  1 70123  0 
03604  0 30160  0 


41,3600  02341  0 
41,3610  04202  0 
41,3620  55013  0 
41,3630  C:  66121  0 


'5501A  1 
44753  0 


55012  1 04202  0 
54161  0 30160  0 
55C12  1 30161  1 
71300  1 64753  1 


10160  1 03611  1 30157  1 
02341  0 30157  1 02321  0 
54156  1 02035  0 00004  0 
5530C  I 33674  1 00006  1 


02321  0 
34755  1 
04616  1 
05011  1 


41,3640  33675  0 
41,3650  43672  0 
41,366C  55030  I 
41,3670  C:  62102  0 


55035  1 
50117  0 
34760  1 
05155  0 


06022  1 34742  1 

55022  1 10117  1 

55015  0 00003  1 

C : 05675  0 C:  07675  1 


C: 


00006 

03647 

32677 

00175 


1 

1 

I 


05013  0 34363  0 54117  1 
43673  I 55023  0 55026  0 
00004  0 05203  0 C:  03700  0 
40674  0 C:  00115  1 C:  00764  1 


41,3700 

41,3710 

41,3720 

41,3730 


34355  0 
03011  1 
64735  1 
65025  0 


05072  1 C:  03705  0 
06022  1 44742  0 
55035  1 43745  0 
55277  0 43746  0 


62102  n 
00006  1 
71  300  1 
70110  0 


05261  1 
03013  n 
65026  0 
64745  0 


43676  1 
34750  1 
55300  I 
54110  0 


00004  n 
00006  1 
43747  1 
00003  1 


00006  1 
02012  0 
71277  0 
04616  1 


41,3740 
41  ,3750 
41,3760 
41,3770 


0 

0 


3 

3 


04433  1 
CKSM  61045  1 
3 

a 


04635  0 

a 

a 

a 


16001 

a 

a 

a 


C:  00330  1 


55000  1 

a 

a 

a 
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OCTAL  LISTING  FOR  PARAGRAPH  « 230,  V.ITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  CF  EACH  WORD,  "3"  DENCTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C  " (CONSTANTS) 


42,2000 

C: 

26723 

0 

C: 

00450 

0 

35021 

1 

05146 

1 

32034 

1 

04616 

1 

C: 

20334 

1 

05472 

0 

42  ,2010 

05472 

0 

42033 

1 

60154 

1 

00006 

1 

12C16 

0 

05472 

0 

00004 

0 

34755 

1 

42,2020 

54156 

1 

540ni 

1 

52025 

1 

52155 

1 

53051 

0 

20155 

1 

C7262 

0 

52155 

1 

42,2030 

20025 

1 

00003 

1 

05472 

0 

C: 

00027 

1 

C: 

06230 

0 

34752 

0 

54002 

1 

50000 

1 

42,2C4C 

30321 

1 

00006 

1 

72053 

1 

50002 

0 

56050 

1 

10002 

1 

12036 

1 

37743 

0 

42,  2050 

00006 

1 

05014 

1 

15261 

0 

C: 

03146 

1 

05516 

0 

C; 

00^27 

1 

05516 

0 

C: 

00031 

0 

42,2060 

05516 

0 

C: 

00007 

0 

06042 

1 

I : 

77624 

1 

C : 

27410 

1 

I : 

77776 

) 

05353 

1 

C: 

00002 

0 

42,207C 

00004 

0 

04674 

0 

C: 

40166 

1 

04674 

0 

C: 

40115 

0 

06011 

1 

44736 

0 

00006 

1 

42,2100 

03012 

1 

04635 

0 

C : 

12766 

0 

52152 

0 

51001 

1 

32154 

0 

54146 

0 

51001 

1 

42,2110 

32320 

1 

54147 

1 

41001 

0 

64771 

1 

CC006 

1 

62121 

1 

3475  3 

1 

54140 

0 

42,2)  20 

02137 

0 

34752 

0 

54140 

0 

5100) 

1 

33064 

0 

54>53 

1 

35012 

7 

70146 

0 

42  ,2130 

54002 

1 

50000 

1 

32650 

0 

54150 

1 

00006 

1 

50002 

0 

32652 

1 

52152 

0 

42,2140 

52006 

0 

52124 

1 

00006 

1 

50000 

1 

32557 

1 

52124 

1 

52006 

0 

52124 

1 

42,2150 

00006 

1 

50000 

1 

32465 

1 

12145 

1 

C: 

OOOOO 

1 

C: 

40000 

0 

C: 

40000 

0 

C: 

40000 

0 

42,2160 

C : 

01044 

0 

c; 

01044 

0 

c; 

01143 

0 

C: 

01002 

1 

C : 

01363 

C 

C: 

00375 

0 

C : 

77776 

1 

C: 

03633 

1 

42,2170 

C : 

01050 

0 

C : 

C1776 

0 

C : 

01050 

0 

C: 

77777 

0 

C: 

01050 

0 

C: 

OOOOO 

1 

C : 

02344 

0 

C : 

OOOOO 

1 

42,2200 

C: 

00032 

0 

c; 

09037 

0 

C : 

00321 

1 

C; 

OOOOO 

1 

C : 

01050 

0 

c ; 

01044 

0 

C: 

C1044 

0 

f : 

01362 

1 

42,2210 

C : 

OOOOO 

1 

C : 

OOOOO 

1 

C: 

OOOOO 

1 

C: 

OOOOO 

1 

C. : 

C2142 

1 

C : 

03441 

0 

C ; 

01044 

0 

C: 

03453 

0 

42,2220 

C: 

00024 

1 

C: 

03635 

1 

C : 

01516 

1 

C: 

OOOOO 

1 

C : 

64000 

0 

C: 

0 200  3 

0 

C: 

24006 

1 

C: 

24011 

1 

42,2230 

C: 

64014 

0 

C: 

64017 

0 

c; 

00022 

1 

C: 

22025 

0 

C : 

22030 

1 

C : 

24033 

1 

C: 

OOOOO 

1 

C: 

22041 

1 

42,2240 

C t 

30044 

1 

C : 

OOOOO 

1 

c : 

24052 

0 

C: 

24055 

1 

C: 

02060 

0 

C: 

ooono 

1 

C J 

24066 

1 

C : 

24071 

1 

42,2250 

C: 

24074 

1 

C: 

64C77 

0 

C: 

64102 

0 

C; 

24105 

0 

C: 

64110 

0 

C: 

24113 

1 

C : 

62116 

0 

C; 

04121 

1 

42  ,2260 

C : 

64124 

1 

C: 

24127 

0 

C: 

04132 

0 

C; 

04135 

1 

C : 

02140 

0 

C : 

C2143 

0 

C : 

64146 

n 

C : 

64151 

0 

42,2270 

C : 

24154 

1 

C: 

62157 

0 

C : 

64162 

0 

C: 

24165 

0 

C: 

02170 

0 

C; 

24173 

1 

C : 

24176 

1 

C : 

24201 

1 

42  ,2300 

C: 

24204 

1 

C: 

24207 

1 

C: 

24212 

0 

C: 

02215 

0 

C : 

24220 

1 

C : 

24223 

7. 

C: 

24226 

1 

C; 

04231 

0 

42, 231C 

C : 

04234 

0 

C : 

04237 

0 

C : 

OOOOO 

1 

C: 

OOOOO 

1 

C : 

OOOOO 

1 

C : 

04253 

1 

r : 

04256 

1 

C : 

24261 

1 

42,2320 

C: 

OOOOO 

1 

C : 

C404C 

1 

C ; 

C4140 

0 

C: 

04102 

0 

C: 

00504 

0 

C; 

00504 

0 

C: 

o 

o 

c 

o 

0 

C: 

94000 

0 

42,2330 

C: 

04000 

0 

C: 

04000 

0 

C: 

COOOO 

1 

C; 

24400 

0 

C : 

02000 

0 

C ; 

24400 

0 

C : 

04140 

0 

C: 

OOOOO 

1 

42, 2340 

C : 

24400 

0 

C ; 

COOOO 

1 

C : 

04102 

0 

C; 

OOOOO 

1 

C: 

04102 

0 

C: 

04140 

0 

C : 

04102 

o 

C : 

OOOOO 

1 

42,2350 

C: 

24400 

0 

C: 

04140 

0 

C : 

04000 

0 

C 5 

OOlAf' 

1 

C; 

OOOOO 

1 

C ; 

OOOOO 

1 

C: 

OOOOO 

1 

C: 

OOOOO 

1 

42,2360 

C : 

24400 

0 

C : 

24400 

0 

C : 

24400 

0 

C: 

24400 

0 

C: 

24400 

0 

C : 

24400 

0 

C : 

2440C 

0 

C: 

OOOOO 

1 

42, 2370 

C; 

24500 

1 

C : 

00542 

1 

C : 

24410 

1 

C: 

20204 

0 

C : 

00410 

1 

C : 

lOOOO 

0 

C: 

OOOOO 

1 

C: 

00306 

1 
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OCTAL  LISTING  FOR  PARAGRAPh  W 231,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  OENCTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


42,2A00 

C: 

01367 

i 

C : 

00510 

C 

C : 

COOOO 

1 

C : 

00204 

1 

C : 

00004 

0 

C: 

OOOOO 

1 

C : 

105C7 

1 

C: 

10200 

1 

42  ,2^10 

C; 

00204 

1 

C: 

OOOOO 

1 

C: 

24510 

0 

C: 

24512 

1 

C : 

60521 

1 

C ; 

54000 

0 

C : 

24012 

I 

C: 

60512 

1 

42, 2420 

C : 

60500 

1 

C: 

00  000 

1 

C : 

00016 

0 

C: 

53223 

1 

C: 

60026 

0 

C : 

61430 

1 

C : 

OOOOO 

1 

C : 

OOOOO 

1 

42,2430 

C: 

00102 

1 

C: 

00102 

1 

C : 

10200 

I 

c ; 

00010 

0 

C : 

20512 

C 

C: 

00500 

1 

C : 

00654 

0 

C: 

00102 

1 

42,24A0 

C : 

00200 

0 

C ; 

24512 

1 

C : 

24512 

1 

C: 

24512 

1 

C: 

24512 

1 

C : 

24512 

1 

C : 

245)  2 

C: 

00102 

1 

42,  2450 

C: 

OOOOO 

1 

C: 

16143 

0 

C : 

105C7 

1 

C; 

10450 

1 

C: 

60500 

} 

C: 

06143 

1 

C: 

OOOOO 

1 

C: 

OOOOO 

1 

42,2460 

C: 

OOOOU 

1 

C; 

OOOOO 

1 

C; 

OOOOO 

1 

C; 

71572 

1 

C : 

00006 

1 

C : 

03240 

1 

C : 

OOOOO 

1 

C: 

OOOOO 

1 

42,247C 

c ; 

OOOOO 

1 

C : 

OOOOO 

1 

C : 

10707 

0 

C: 

03435 

0 

C: 

13070 

1 

C: 

34345 

1 

C : 

00005 

1 

C : 

21616 

0 

42,2500 

C: 

26113 

0 

C; 

31713 

0 

C : 

OOC70 

0 

C: 

20460 

1 

C: 

01065 

0 

C: 

05740 

1 

C: 

11414 

0 

C: 

31463 

1 

42,2510 

C: 

07475 

0 

C: 

16U51 

1 

C: 

00001 

0 

C: 

03434 

1 

C: 

00047 

1 

C : 

21135 

0 

C : 

77766 

0 

C: 

5071  1 

0 

42,2520 

C: 

00005 

1 

C : 

25006 

0 

C : 

00002 

0 

C: 

23224 

) 

C: 

00014 

1 

C: 

06500 

1 

C: 

00001 

0 

C: 

0331  5 

0 

42,2530 

C: 

04256 

1 

C: 

07071 

0 

C : 

77766 

0 

C: 

60557 

0 

C : 

00005 

1 

C : 

01  U4 

1 

C: 

00007 

0 

C: 

01247 

1 

42,2540 

C : 

04324 

0 

C: 

27600 

1 

C: 

00036 

1 

C: 

20440 

0 

C; 

00035 

1 

C: 

30400 

0 

C : 

2342C 

0 

C : 

OOOOO 

1 

20000 

07475 

0 

16051 

14400 

42 , 25  50 

I 

C ! 

1 

C : 

C : 

nOOOO 

1 

C : 

0517  4 

C : 

1326 1 

0 

42,2560 

C : 

OOOOO 

1 

C: 

OOOOO 

1 

c; 

OOOOO 

1 

C: 

OOOOO 

1 

C ; 

00714 

0 

C : 

31463 

1 

C : 

13412 

1 

C : 

07534 

1 

42, 2570 

C ; 

05605 

1 

C : 

03656 

1 

C: 

00001 

0 

C: 

16170 

0 

C: 

00441 

0 

C: 

34306 

c 

C : 

07176 

0 

C: 

21603 

1 

42,2600 

C: 

15340 

1 

C: 

15340 

1 

C : 

niC3i 

1 

C: 

21032 

0 

C : 

34631 

1 

C : 

23)46 

0 

C: 

00636 

) 

C: 

14552 

0 

42,2610 

C : 

74552 

0 

C: 

. 70307 

1 

C; 

05520 

0 

C: 

15312 

0 

C : 

14226 

1 

C : 

3)  757 

0 

C : 

02476 

0 

C: 

05531 

0 

42,2620 

C: 

34731 

0 

C : 

22542 

1 

C ; 

00C07 

0 

C: 

13734 

0 

C : 

74477 

0 

C: 

50643 

0 

r : 

06265 

0 

C ; 

16004 

1 

42,2630 

C: 

04426 

0 

C: 

31433 

1 

C: 

34772 

1 

C: 

07016 

1 

C : 

01030 

0 

C : 

33675 

0 

C ; 

01046 

1 

C: 

15700 

1 

42,264C 

C : 

00321 

1 

C : 

26706 

1 

C : 

04231 

0 

C: 

27400 

0 

C: 

01031 

1 

C: 

21032 

0 

C : 

12172 

0 

C : 

34122 

1 

42,2650 

C: 

03453 

0 

C; 

03663 

1 

C : 

03507 

0 

C: 

01044 

0 

C : 

01045 

1 

C: 

OOOOO 

1 

r : 

02316 

1 

C: 

02320 

1 

42  ,2660 

C: 

03663 

1 

C; 

01117 

1 

C: 

01121 

1 

C: 

01123 

0 

C; 

02117 

1 

C : 

02121 

1 

C : 

02140 

n 

C : 

03462 

1 

42,2670 

C : 

03453 

0 

C : 

02252 

0 

C : 

01340 

1 

C: 

0000f» 

1 

C: 

OOOOO 

1 

C : 

01326 

1 

C: 

01327 

0 

C: 

OOOOO 

1 

42,2700 

C: 

03002 

0 

C: 

03001 

0 

C: 

COOOO 

1 

C; 

00314 

1 

C : 

C0316 

0 

c ; 

01356 

0 

C : 

OOOOO 

1 

C; 

OOOOO 

1 

42,2710 

C : 

OOOOO 

1 

C: 

02200 

I 

C: 

02202 

0 

C: 

OOOOO 

1 

C: 

01755 

1 

C: 

OOOOO 

1 

C : 

OOOOO 

1 

C : 

OOOOO 

1 

42,2720 

C: 

OOOOO 

1 

C: 

OOOOO 

1 

C ; 

02200 

1 

C: 

02202 

0 

C: 

02204 

0 

C: 

03466 

0 

C: 

02256 

1 

f : 

03620 

0 

42,2730 

C ; 

02200 

1 

C: 

02202 

0 

C: 

OOOOO 

1 

C: 

OOOOO 

1 

C : 

OOOOO 

1 

C : 

OOOOO 

1 

C : 

03605 

1 

C: 

03575 

0 

42,2740 

C : 

02347 

0 

C: 

02302 

1 

C : 

02304 

1 

C: 

02306 

0 

C; 

03701 

1 

C; 

03473 

1 

C ; 

03774 

0 

C : 

03475 

1 

42,2750 

C: 

03453 

0 

C: 

02616 

1 

C : 

03471 

0 

C: 

03453 

0 

C: 

03507 

0 

C ; 

03471 

0 

C: 

03473 

1 

C: 

03774 

0 

42,276C 

C : 

03666 

1 

C: 

03473 

i 

C: 

03534 

0 

C: 

00013 

0 

C: 

00013 

0 

C : 

00013 

0 

C ; 

02206 

1 

C: 

OOOUO 

1 

42,2770 

C: 

OOOOO 

1 

C : 

02200 

1 

C : 

02202 

0 

C: 

02204 

0 

C: 

02616 

1 

C: 

03475 

1 

C: 

C3664 

0 

C: 

02640 

1 

GAP:  ASSEMBLE  REVISION  131  OF  AGC  PROGRAM  LUMINAP 
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OCTAL  LISTING  FOR  PARAGRAPH  tf  232,  V*1TH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSFO  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED 


(INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


A2,3000 

42,3010 

42,3020 

42,3030 


C:  02636  0 
C:  00035  1 
C:  0236A  1 
C;  02310  1 


C: 

C 

C 

C 


02634 

00036 

03577 

00000 


1 

1 

1 


C 

C 

C 

c 


00734 

00000 

02252 

01330 


0 

0 


c 

c 

c 

c 


: 00735 
: 01106 
: 02254 
: 01331 


0 

1 

0 

1 


C: 
C : 
C: 
C: 


00736 

01107 

02276 

01271 


C 

C 

C 

C 


: 00734  1 
: 00000  1 
: 02272  3 
: 01235  1 


C:  P0735  0 
C : 03453  0 
C : 03642  1 
f:  01237  0 


C:  00736  0 
C:  02362  1 
C:  03453  0 
C:  01241  I 


42,3040 
42, 3050 
42  ,3060 
42,307C 


03503  1 
02706  I 


C:  03734  1 
C:  03622  1 
C:  03505  I 
C:  02710  0 


C: 
C : 


C: 


00000  1 C:  03433  0 
03624  1 C;  03626  0 
03433  0 C:  03435  0 
02712  1 C;  02706  1 


C:  C3435  0 C:  03437  1 C:  03433  o 
C:  02222  1 C:  02224  1 C:  02226  0 
C:  C3437  1 C:  01344  0 C:  01345  1 
C:  02710  0 C;  02712  1 C:  02200  1 


C: 
C : 
f : 
C : 


03435 

03501 

00000 

02202 


42  ,3100 
42  ,31  10 
42, 3120 
42,3130 


C:  02204  0 
C:  02741  1 
C;  00100  1 
C:  01051  1 


C:  03715  I 
Ct  02  743  0 
C:  00000  1 
C:  02200  1 


C:  C3711  0 
C:  00000  1 
C:  00000  I 
C:  02202  0 


C:  03713  1 
C:  00000  1 
C:  01044  0 
C:  02204  0 


C:  03750  0 
C:  00000  1 
C:  01045  1 
C : 16351  1 


C : 03473  1 
C : 00000  1 
C:  01046  1 
C : 00142  0 


C:  03774  0 

C : oonoo  1 
C : 01047  0 
C:  16347  0 


C:  02737  0 
C:  ooono  1 
C:  01050  0 
C:  16512  0 


42,3140 
42,3150 
42,3160 
42,3) 70 


C : 22347  I 
C:  00012  1 
C:  10343  1 
C : 10452  0 


C:  24443  1 
C:  OOOOO  1 
C:  24451  1 
Ct  10204  0 


C:  OOOOO  1 
C:  24344  1 
C:  16447  1 
C:  OOOOO  1 


C:  00553  ! 
C:  24503  1 
CJ  10347  0 
C;  OOOOO  1 


C;  00143  1 
C:  00512  1 
C : 10354  1 
C:  00115  1 


C:  06347  1 
C:  OOOOO  1 
C : 20410  n 
C:  00115  1 


C : OOOOO  1 
C:  16347  0 
r : O0304  0 
C : 2451  1 1 


C : 00512  1 
C:  16347  0 
C:  10204  0 
C : 22447  0 


42,3200 
42,321C 
42,  3220 
42,3230 


16347  0 
16347  0 
10343  1 
04616  1 


C:  00351  0 
C:  16347  0 
C:  16347  C 
C:  61003  0 


22756  0 
16347  0 
OOOOO  1 
07262  0 


OOOOO  1 
03417  0 


C:  00503  1 
C;  02041  0 
C:  OOOOO  1 
07106  1 


C : 16347  0 
C : 10347  0 
C:  06143  1 
C:  03271  0 


C:  16347  0 
C : 24344  1 
C:  0604?  0 
34321  0 


C:  16347  0 
C:  24507  0 
C:  24247  0 
54776  0 


42,3240 
42,5250 
42,3260 
42,  3270 


04616  I 
0A415  0 
31006  0 
31742  1 


C:  61262  0 
34320  1 


03435  0 
54776  0 


04^15  0 
C:  01727  1 


34317  0 
C:  01217  1 


54776  0 
00011  1 


56154  1 
C;  61262  0 
C4616  1 
C:  32445  0 


C : 
C: 


55006  1 33274  0 
00006  1 33300  1 
61262  0 00136  0 
02104  0 C:  10422  1 


56155  0 
52155  1 
C:  25660  0 
C:  05174  0 


42,3300  C:  13261  0 

42,3310  03342  1 


42,3320  03342  1 

42,3330  03337  0 


OOOOO  1 
63377  1 
63400  0 
43402  0 


C:  00062  0 04616  I 

10000  0 03326  0 

10000  C 03326  0 

54154  0 43403  1 


C : 61003  0 07262  0 

03342  1 03342  1 

03342  1 03342  1 

54155  1 33401  1 


10154  0 03311  1 

10155  1 03321  1 
10154  0 33402  1 
03420  1 54154  0 


42,3340 

42,3350 

42,336C 

42,3370 


33403  0 
C:  61322  0 
C;  6135b  0 
54776  0 


03334  0 03404  1 33375  0 
34755  1 54124  1 44752  1 
03435  0 56155  0 U0006  1 
04616  I C:  61322  0 04635  0 


07312  0 46250  1 
50117  0 64317  0 
73376  1 52155  1 
62572  0 C:  231^7  1 


26776  0 046)6  1 

54143  O 04616  1 

501)  7 0 34317  0 

C;  23346  1 C:  77753  0 


gap:  assemble  REVISION  131  OF  AGC  PRCGRAM  LUMINARY  8Y  NASA  2021112-091 
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OCTAL  LISTING  FOR  PARAGRAPH  « 233,  NITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSFD  FIXED  MEMORY 


ALL  VALID  V.OROS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THCSE  MARKED  "I" 


(INTERPRETIVE  OPERATOR  WORDS!  OR  "C"  (CONSTANTS) 


A2,3400 

42,3^10 

A2,342C 

42,3430 


41126  1 
00006  1 
5A14A  1 
34755  1 


03343  0 
43302  I 
D7106  1 
56156  0 


C : 00025  0 
20155  1 
C;  03267  1 
56155  0 


C:  37016  1 
13417  1 
00006  1 
56154  1 


10155  I 
C0006  1 
30155  0 
00144  0 


13414  1 
33302  0 
53007  0 
56002  0 


13414  1 
13412  1 
C>A404  0 
54144  1 


13410  0 
56002  0 
04404  0 
31007  I 


42,3440 

42,3450 

42,3460 

42,347C 


00006  1 
C:  03275  1 
33536  1 
31003  0 


74751 
00144 
54154 
2 3006 


1 

0 

0 

0 


00006  1 
03573  0 
33537  0 
52155  1 


74737 

07106 

56155 

07106 


1 

1 

0 

1 


22155 

03534 

07312 

03534 


0 

0 

0 

0 


31006 

03543 

03554 

03543 


0 

0 

0 

n 


54154  0 
34755  1 
52156  1 
43541  0 


07106  1 
54156  1 
52124  1 
03561  0 


42,3500 

42,3510 

42,3520 

42,3530 


56155  0 
23007  1 
20155  1 
50145  1 


00006  1 
52155  I 
00006  1 
52001  1 


13524  0 
04635  0 


20124  1 
C:  03534  0 
04145  0 
C:  63020  0 


P0006  1 
03543  0 
34755  1 
00006  1 


13507 

43542 

54156 

03240 


04145  0 
03561  0 
07262  n 
00025  0 


31004  1 
52124  1 
52155  1 
37100  1 


42,3540 

42,3550 

42,3560 

42,3570 


13560  0 
54155  1 
00002  0 
63572  I 


00073  0 C:  13557  1 
34755  1 60154  1 
54156  1 10155  1 
04145  0 00002  0 


56156  0 
56154  1 
64753  1 
43600  0 


60000  1 54156  1 
10154  0 04145  0 
13566  C 64753  1 
70777  1 63600  1 


34755  1 60155  0 
00002  o 04145  0 
60156  0 00006  I 
10000  0 03603  1 


42  ,3600 
42,3610 
42,3620 
42,3630 


77743  1 
00001  0 
OOOOl  0 
53372  1 


03603  1 
21574  1 
16205  1 
02205  1 


00002  0 46010  1 
C:  34041  0 C:  27077  1 
C : 00015  0 I : 77624  1 
I : 77650  1 C:  65636  1 


55040  0 04145  0 
I:  46135  1 C:  00050  1 
C:  33647  1 I : 74375  0 
I : 77775  1 C : OOOOl  0 


06042  1 
C : 6563^  0 
C:  02723  0 
I:  53401  1 


I:  47001  0 
I : 77775  1 
C:  240C1  0 
C:  OOOOl  0 


42,364C 

42,3650 

42,366C 

42,3670 


I : 45076  1 
I:  77624  1 
C : 16207  0 
I : 72431  1 


C:  47541  1 
C:  47673  0 
I:  41215  1 
C:  06520  0 


l:  76521  0 
C:  16205  1 
C:  02205  1 
I : 40045  1 


C:  01734  0 
C:  02207  0 
C;  25767  0 
C:  02205  1 


I:  71206  0 
I : 45206  1 
C : 26205  1 
C:  65675  0 


C : 06524  1 
C:  02205  1 
C:  02205  1 
I:  40056  0 


C:  O2201  0 
I:  77605  1 
I : 63256  0 
C:  65743  1 


C:  26203  1 
C:  25767  0 
C:  02205  1 
I : 47206  0 


42,3700 

42,3710 

42,3720 

42,3730 


C:  06516  0 
C:  26201  0 
C:  02201  0 
C:  06516  0 


57572  0 
00007  0 
47375  C 
71525  0 


02205  1 
51041  0 
OOOOl  0 
02201  0 


I : 63241  0 
C;  06516  C 
C:  00007  0 
l:  52361  1 


C ; 06520  C 
C;  65721  0 
I ; 77772  0 
C : C6522  1 


C : 
I : 
C: 


02205  1 
45345  1 
162.05  1 
63241  C 


I : 75246  0 
C:  06522  1 
C:  02201  0 
C:  02205  1 


l:  77736  0 
C:  02201  0 
I:  74356  1 
C:  02205  1 


42,3740 

42,3750 

42,3760 

42,3770 


75246  0 
35017  I 
34751  0 
03770  I 


I : 77736 
05146 
05464 
C:  03771 


02203  1 
33765  0 
34740  0 
51024  0 


77776  1 31043  1 
04616  1 C:  20353  0 
05146  1 C3606  I 

Si  3 


01463  1 

a 


00006  1 
05563  1 
26501  1 
a 


07463  1 
3 


gap:  assemble  revision  131  CF  AGC  PRCGRAM  LUMINARY  BY  NASA  2021112-^91 
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OCTAL  LISTING  FOP  PARAGRAPH  « 23A,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  CF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WCRDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


43,2000 

43,2010 

43,202C 

43,2030 


50154 

02116 

02422 

02170 


I 

0 

1 

0 


02442  1 
02455  1 


02126  0 02200  1 02371  0 
03156  0 13C36  0 02422  1 
03045  0 02325  1 02366  0 
02725  0 03246  1 03163  0 


02733 

02116 

021^7 

03240 


0 

1 

1 


02305  0 
02422  1 
02175  0 
02116  0 


02116  0 
02422  1 
02165  1 
02037  1 


43,2040 
43,2050 
43,20 60 
43,2070 


03751  1 
02445  0 
02116  0 
02116  0 


03753  0 
02655  0 
02116  0 
03102  1 


03755  0 
03072  1 
02116  0 
03233  0 


03757  I 
03075  0 
03010  0 
02422  1 


03066  1 
02772  1 
03017  1 
02116  0 


03251  1 
03002  n 
03121  0 
02422  1 


03025  0 
02116  0 
03 105  0 
1)043  0 


03030  1 
03254  1 
03114  0 
02116  0 


43,2100 

43,2110 

43,2120 

43,2130 


43,2140 
43,  2150 
43,2160 
43,2170 


30100  0 
44752  1 
C:  21051  0 
02140  0 


72125  1 
04154  0 
31010  1 
02436  1 


10000  0 
02113  0 
00006  1 
04616  1 


02116  C 
10067  1 
16745  0 
16705  I 


C2700  1 
l:  77614  1 
C:  53541  1 
05504  0 


04616  1 
03752  1 
77776  I 
00013  0 


02700  I 
05516  0 


04616  1 
I:  77776  ) 
04616  1 
C:  00000  1 


34362 

C5122 

02116 

04616 


1 

0 

0 

1 


C 

C 


17705 

05321 

53531 

02117 


0 

1 

C 

1 


55043  0 
00155  0 
C:  24100  0 
C;  17707  1 


12146  1 
C:  00077  1 
05516  0 
05504  0 


30002  0 54155  1 
04364  1 04635  0 
02203  1 02131  0 
02137  0 02117  1 


C2117  1 06042  1 

12162  1 04616  1 

C : 00013  0 12172  0 

C:  COOOO  1 02117  1 


43,2200 
43  ,2210 
43, 222C 
43,2230 


02203  1 
00006  1 
20334  1 
04616  1 


05472  0 
17707  I 


02236  1 46P07  1 
02116  0 C:  77713  1 
12223  1 32235  1 
05472  0 05472  C 


61001  1 
C2436  1 
04616  1 
06226  1 


00006  1 
02076  1 
C:  20621  0 
C : 12200  0 


16745  0 62213  0 
32234  0 04616  1 
04616  1 C;  16771  1 
C2700  1 02076  1 


43,224C 
43,2250 
43,2260 
43,  2270 


42324 
12244 
C:  02264  I 
75004 


0<'004  0 70110  0 
14616  1 C : 46C00  0 
66107  1 15472  1 
lOCOO  0 50000  1 


54110  0 
32235  ) 
C:  06111  0 
54000  0 


32263  1 04616  1 
04616  1 C:  20621  0 
04616  1 C : 52506  0 
40000  0 26167  0 


20334  1 05472  0 
34736  1 05105  0 
02267  0 30167  1 
04616  1 C : 17705  0 


43,2300 

43,2310 

43,2320 

43,2330 


C:  01736  1 
C:  20353  0 


05155 

42324 

05516 

02363 


05567 

00004 

00126 

02354 


0 

0 

I 

1 


00503  1 
70110  0 
12117  0 
05155  r 


05155  0 10110  0 
54110  0 06011  1 
41000  1 02076  ) 
04616  1 C : 01735  1 


12117 

34777 

32365 

34361 


0 

1 

0 


12117  0 
04616  1 
04616  1 
71043  0 


43,2340 

43,2350 

43,2360 

43,2370 


00006  1 
12363  1 
00254  I 
12117  0 


15472  1 
12363  1 
34362  1 
02436  1 


74747 

12357 

05565 

02076 


10000  0 
12334  0 
44361  0 
32420  0 


12326  0 32365  0 
05504  0 C : 00254  1 
15564  1 C:  01504  1 
04616  1 C:  20334  I 


04616  1 C : 20361  1 
15563  0 05516  0 
05516  0 C:  00254  1 
05472  0 02400  1 
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OCTAL  LISTING  FOR  PARAGRAPH  H 235» 


VtITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORDf 


■a"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  kCRDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


32A21  1 
32^17  I 
C : 06335  1 
02076  1 


0A616  1 
0^616  I 
12400  0 
34740  C 


C:  20621 
C:  17314 
04433 
05105 


04616  1 
04616  1 
34201  0 
C;  02005  0 


C:  17201  ] 
C:  17707  1 
00006  1 
C:  64064  1 


04616  1 
05472  0 
01007  1 
05155  0 


17707  1 
05472  0 
04635  0 
31301  1 


05472  0 
C:  02737  0 
C : 62001  1 
00006  1 


43,2440  16745  0 
43,2450  10000  0 
43,2460  C:  00063  1 


02116  0 
02116  0 
34741  I 


02076  1 
05504  0 
54003  0 


C: 


04635  0 
00117  0 
32676  1 


12461 

55777 


1 

I 

0 


02700  1 
02700  1 
34755  1 


30077  1 
02076  1 
55776  1 


74743  1 
05504  0 
55575  0 


43,247C 


00004  0 42677 


70110  0 


54110  0 


32677  0 00006 


C2033  O 26110  0 


43, 2500 
43,2510 
43,2520 
43,2530 


00003  1 
55050  1 
05464  1 
55775  I 


40C77  0 
32673  1 
05155  0 
34752  C 


74743  1 10000  0 
04616  I C:  20353  0 
31051  1 55773  1 
00006  1 02C33  C 


12633  1 
12641  1 
36245  1 
00006  1 


34753  1 
12522  1 
71773  ) 
12546  0 


55051  O 
12511  1 
10000  0 
32675  1 


34751  0 
34751  0 
12635  1 
55044  1 


43,2540 

43,2550 

43,2560 

43,2570 


32674  0 
05012  1 
74743  1 
04616  1 


04616  1 C:  20345  1 
34752  0 55774  0 

lOOOO  0 12117  0 

C:  20334  1 12641  1 


12641  1 
05203  0 
36245  I 
12575  0 


12531  C 
C:  02003  0 
71773  1 
12567  0 


12536  1 
C:  52104  0 
10000  0 
32670  1 


34736  1 00006  1 
O0003  1 40077  0 
12603  1 32667  1 
04616  1 C : 20334  1 


43,2600 
43  ,261C 
43,2620 
43,2630 


12641  I 
12603  1 
55777  0 
44753  0 


12617  1 
32672  0 
04616  1 
64752  0 


12567  0 
04616  1 
C;  01735  I 
12523  0 


32671  0 
C:  20334  I 
32676  1 
34766  1 


04616  1 C:  20334  1 
12641  1 12617  1 
55777  0 34755  ! 
55777  0 34752  0 


12641  1 
12603  1 
'5776  1 
55775  1 


12611  1 
34755  1 
11775  1 
36245  1 


43,2640 
43,  265C 
43,26  60 
43,267C 


C : 


12552  0 
00006  1 
55777  0 
04116  0 


34755  1 55777  0 
03012  I 05516  0 
34746  0 04616  1 


C:  04102  0 C:  04103  1 


C: 


C: 

C: 


34744  1 
00063  1 
01736  1 
01014  0 


04616  1 
05472  0 
05516  C 


C : 


C : 
C: 


01736  1 
34741  3 
00117  0 
00201  I 


C : 


00004  0 
54003  0 
12117  0 
00145  1 


44736  0 
34755  1 
C:  04110  0 
C ; 00444  0 


43,2700 

43,2710 

43,2720 

43,2730 


40077  0 
40103  I 
40075  1 


74741  0 

74746  1 

74747  0 
64104  0 


10000  0 
10000  0 
lonoo  0 

05155  0 


02116  0 
12720  1 
00002  0 
02121  1 


30101  1 
30107  1 
02116  0 
34763  1 


74741  0 
74735  0 
02076  1 
00006  1 


10000  0 
00006  1 
34740  0 
02012  0 


02116  0 
12116  1 
05105  0 
10000  0 


43,274C 

43,2750 

43,2760 

43,2770 


12116  1 
02076  1 
C:  20621  0 
15472  1 


34355  0 
32234  0 
34746  0 
12600  1 


00006  1 06031  0 
04616  1 C:  20334  1 
00006  I 05012  I 
02076  1 35021  1 


34752  C 
05146  1 


00006  1 12750  0 
02756  1 32771  1 
05203  0 C : 02035  o 
00006  1 33001  0 


64100  1 
05165  0 
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OCTAL  LISTING  FOR  PARAGRAPH  ff  236,  UITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "S"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OB  "C  •'  (CONSTANTS) 


63,3000  C:  03262  0 
63,3010  02121  1 
63,302C  35021  I 
63,3030  05516  0 


C 


: 66106  1 
•12076  1 
05105  0 
: OT303  1 


02076  1 
36737  0 
C:  02662  0 
00006  0 


36752  0 
05105  0 
C:  10107  0 
06676  0 


05203  0 
: 02022  0 
15155  1 
: 60156  0 


C:  03737  1 
C : 56106  0 
05506  0 
02117  1 


C:  60107  I 05155  0 

05155  0 02076  1 

C ; 00303  I • 12117  0 

02121  1 02076  I 


63,3060 
63, 3050 
63,3060 
63,3070 


36737  0 
12117  0 
70075  1 
02117  1 


05105 
C5516 
00006 
C:  03721 


C: 
C : 


12117  0 
05516  0 


06635  0 
00026  0 


05155  0 
C:  00006  1 
C:  66056  ) 
03077  1 


33065  1 
05516  0 
C:  00500  1 
05506  0 


70074.  0 
C : 00037  0 
33071  1 
C ; 00026  0 


00006  1 
36767  1 
56335  0 
0553  6 0 


63,3100 
63,3110 
63,312C 
63,31 30 


00030  1 
05105  0 
02117  1 
55362  0 


12117  0 
C:  0 200  2 1 
02121  1 
33272  0 


05506  r 
C:  76C65  0 
02076  1 
55361  0 


00030  1 
05155  0 
35021  1 
03567  1 


02117 

00006 

05166 

23372 


1 

0 

1 

0 


02121 

66753 

36753 

23373 


02076 

70101 

55376 

33271 


377)  3 0 
56101  0 
36755  1 
56156  1 


06616  1 
01201  0 


20336  1 03166  1 

31376  1 00006  1 


03660  1 
13363  0 


03136  0 3327?  0 

03547  1 02076  1 


55371  1 
35021  1 


63,3160 

63,3170 


05166  1 
05105  0 


06635  0 C:  40006  1 
03176  0 C;  66103  0 


60106  0 
05155  0 


76766  0 
06062  1 


00006  1 
T : 77624  1 


12116  1 
C:  27410  1 


34737  0 
I : 43014  0 


43,3200 

43,3210 

43,3220 

63,3230 


C:  06063  0 
C:  01626  1 
C : 26114  1 
C:  21051  0 


C:  04304  1 
C:  U556  I 
I : 77776  I 
C:  00051  0 


67205  1 
00003  1 
33232  I 
67227  1 


77614  1 
06C42  1 
50120  1 
05504  0 


06263  ] 
77626  1 
56052  1 
00221  0 


I;  77776  1 
C : 26757  0 
06635  0 
36755  1 


332?1  1 
I : 65154  0 
C:  27421  0 
06635  0 


05566  1 
C:  02030  0 
I : 77636  0 
C:  10060  1 


63,3240 

43,3250 

63,3260 

63,3270 


02076  1 
02117  1 
C:  01373  1 
C : 76777  1 


C:  01661  0 
C:  01371  0 


05105  0 
C : 00115  1 
C:  01773  0 
C:  03363  1 


C:  02007  1 
02117  1 
C:  00060  1 
3)360  0 


C:  62064  1 
02076  1 
C : 60017  1 
00006  1 


05155  0 
04635  0 
C : 17777  0 
13304  I 


05504  0 
C:  60000  1 
C:  25252  0 
00006  1 


l:  00061  o 
C:  52400  1 
31376  1 


63,3300 
63,3310 
63, 3320 
63,3330 


51377  0 
25365  0 
lOOOO  0 
03357  0 


52001  1 
05571  1 
13273  0 
11362  0 


36755 
C:  01102 
13273 
03337 


55360 

11362 

10000 

03330 


I 

0 

0 

1 


00006  0 
36755  1 
13273  0 
03337  0 


30002  0 
55362  0 
00002  0 
25366  0 


55357  0 
0336?  1 
00006  T 
01371  o 


55363  1 
01357  1 
23371  0 
65650  1 


63,  3360 
63,3350 
63,3360 
63,337C 


00006  1 
01371  0 
23361  1 
33261  1 


63363  0 03316  1 
01371  0 C3366  0 
06635  0 C:  03215  1 
55377  1 35012  1 


25366  0 
03565  0 
03326  0 
55373  0 


66757  0 
01371  0 
36753  1 
03616  0 


50000  1 
01371  0 
55372  1 
35007  0 


03367  1 
01371  0 
36755  1 
55377  I 


01371  0 
00006  1 
56003  0 
35012  1 
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OCTAL  listing  FOR  PARAGRAPH  « 237,  UITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  CF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS) 


OR  "C"  (CONSTANTS) 


43,3^00 
43  ,3410 
43,342C 
43,3430 


55373  0 03414  C 
33257  I 55377  1 
51377  0 30001  0 
5200)  1 51377  0 


35007  0 55377  1 
33260  0 55373  0 
53376  0 31377  0 
40001  1 51377  0 


55360  1 
60000  ) 


55373  0 
30003  1 
54001  1 
03320  0 


03414  0 
55374  1 
24001  0 
31360  0 


55372  1 
00006  1 
50000  1 
00006  1 


43,3440 

43,3450 

43,3460 

43,347C 


13464  0 
51377  0 
51377  0 
25377  0 


00006  1 
60001  0 
52001  1 
41377  1 


51377  0 
03320  0 
34755  1 
61373  1 


40001  1 
31360  0 
55360  1 
00006  1 


51377  C 
00006  1 
00003  1 
13476  C 


52001  1 
13464  0 
03357  0 
03414  0 


51377  0 40000  0 
00006  1 31376  1 
31374  0 54003  0 
11372  1 03407  1 


43,3500 

43,3510 

43,352C 

43,3530 


25372  0 30']03  1 
03375  0 35007  0 
11372  1 03514  1 
60022  1 60021  1 


64743  0 
54003  0 
33266  0 
60023  0 


54003  0 
34771  1 
54020  1 
63267  1 


63270  ) 
55372  1 
54022  0 
03320  0 


000f>6  1 
64750  1 
54021  0 
60020  0 


13402  0 
50000  1 
54023  1 
60022  1 


10C03  0 
40000  0 
60020  0 
60021  1 


43,3540 
43, 3550 
43,3560 
43,357C 


60023  0 
55374  1 
31374  0 
40000  0 


54001  1 
55377  1 


03320  O 25367  1 
95377  I 34755  1 
74350  1 61373  1 
00006  1 J3576  1 


C3326  r 34754  0 
55371  1 55373  0 
04651  1 03610  0 
34740  0 03577  1 


55376  0 34755  1 
34753  1 55375  0 
64741  1 03621  1 
35020  0 55373  0 


43,3600 

43,3610 

43,362C 

43,3630 


34755  1 55371  1 
55372  1 61371  0 
00002  0 • 22000  1 
03633  1 03632  1 


34753  1 55375  0 
55371  1 34755  1 
31373  1 75012  0 
03715  1 10001  1 


51373  1 30000  1 
61371  0 55371  ) 
64350  0 00006  ^ 
03643  0 03643  0 


03610  0 03621  1 
^1372  1 61373  I 
137)5  0 11375  0 
03643  0 11375  0 


43,3640 
43,3650 
43,3660 
43, 3670 


03644  1 
03652  0 
41374  1 
34735  1 


37752  0 03644  1 
03357  0 25373  1 
63750  0 00006  1 
27374  1 03707  1 


34753 

11377 

13152 

7435(3 


1 

1 

0 

1 


55375  0 
03560  1 
31374  0 
00006  1 


11376  0 
03560  1 
6 47  41  1 
13705  1 


10067  1 
03604  0 
55374  1 
63265  O 


05122  0 
03604  0 
03673  0 
00006  1 


43,3700 
43,3710 
43, 3720 
43  ,3730 


13702  0 
03552  0 
54001  I 
60021  1 


03707  1 
34753  1 
31374  0 
54301  1 


33263 
03570 
743  57 
31376 


0 

0 

0 

1 


00006  1 
00006  1 


03707 

03552 

13732 

13736 


1 

C 

0 

1 


63264 

31374 

54021 

03134 


1 

0 

0 

1 


27374 

74350 

30001 

11371 


1 

) 

0 

1 


11377  I 
04331  1 
74757  1 
03741  0 


43,3740  03742  0 
43,3750  C:  66100  0 
43,3760  55165  0 
43,3770  31165  I 


02076  1 
55171  0 


31010  1 
34753  1 


40001  1 
34753  1 
00C06  1 
55172  0 


61371  0 
13760  1 
13767  0 


67752  0 03320  0 
34752  0 13760  1 
04635  0 C:  11740  1 


03660  1 
36250  0 
55170  1 


04635  0 


C:  11357  r 


C : 03776  1 CKSM  71300  1 
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OCCUPIED  LOCATIONS  PAGE 

4000  7C  4045  155 

4046  70  4065  156 

4066  TO  4101  157 

4102  7C  4123  363 


OCCUPIED  LOCATIONS  PAGE 

5360  TO  5425  1291 
5426  TO  5435  1292 
5436  TO  5444  1296 
5445  TC  5455  1298 


OCCUPIED  LOCATIONS  PAGE 

6526  TO  6561  1014 

6562  TO  6627  1015 

6630  1016 
6631  TO  6671  1017 


OCCUPIED  LOCATIONS  PAGE 

00,2236  TC  00,2276  1048 
or, 2277  TC  00,2331  1049 
00,2332  TO  00,2352  1050 
00,2353  TC  00,2421  1051 


4124  TO  4144  443 

4145  TC  4153  450 

4154  TO  4203  456 

4204  TO  4206  458 


5456  1299 
5457  TO  5462  13C1 
5464  TC  5503  1346 
55C4  TO  5532  1367 


6672  TO  6725  1018 

6726  TO  6751  1019 

6752  TO  7005  1020 

7006  TO  7007  1021 


00,2477  1053 
00,2500  TC  00,2537  1054 
00,2540  TO  00,2567  1055 


4207  7C  4243  459 

4244  TO  4302  460 

4303  TO  4335  464 

4336  TC  4377  465 


5533  TO  5543  1368 
5544  TC  5562  1371 
5563  TO  5566  1372 
5567  TC  5617  1373 


7C1C  TO  7064  1022 

7065  TO  7073  1023 

7074  TO  7105  1024 

7106  70  7140  1025 


00  ,2570  TC  00,2607  1056 
00,2610  TO  00,2624  1057 
00  ,2625  TO  00,2641  1058 
00,2642  TO  00,2653  1059 


4400  TO 
4437  TC 
4462  TO 
4512  TC 


4436  466 

4461  468 

4511  469 

4522  525 


562C 

5636 

5716 

57^3 


5635 

5715 

5742 

5764 


1374 

1375 

1376 
1397 


TC 

TO 

TC 

TO 


7141  TCI 
7157  TO 
7220  TO 
7242  TO 


7156  1026 
7217  1027 
7241  1028 
7257  1029 


00,2654  TO 
00  ,2721  TC 
00,2750  TC 
00  ,3007  TO 


00,2720  1060 
00,2747  1061 
0C,3O06  1062 
00,3022  1063 


^523  TC 
4537  TO 
4564  TO 
4600  TO 


4563 

4577 

4615 


528 

529 


5765  TC 

60C1  TO 
6011  TO 


5766  28 

600  0 40 
6C10  226 

6021  520 


7260 

7321 

7334 

7345 


7320  1030 
7333  1031 
7344  1032 
7403  1033 


00,3023  TC  00,3072  1064 
00,3073  1065 
00,3074  TO  00,3132  1066 
00,3133  TO  00,3150  1067 


4616  TO 
4645  TO 
4674  TO 
4727  TO 


4644  992 

4673  993 

4726  994 

4731  995 


6C22  TO 
6025  TO 
6032  TC 
6042  TO 


6024  566 

6031  598 

6041  745 

6061  996 


7404  TO 
7430  TO 
7463  TO 
7531  TO 


7427  1034 
7462  1035 
7530  1036 
7574  1037 


00,3151  TO  00,3173  1068 
00,3174  TC  00,3206  1069 
0C,32n7  TC  00,2231  1070 
00  ,3232  TC  00,3277  1071 


4732  7C 
4763  TO 
5011  TO 
5032  TO 


4762  1089 
5010  1090 
5031  1091 
5071  1096 


6062  TC  6105  997 

6106  TC  6117  998 

6120  TO  6146  999 

6147  TC  6215  1000 


7575  TO  7626  1038 
7627  TO  7657  1039 
7660  TO  7712  1040 
7713  TO  7725  1091 


0C,33OO  TO  00,3342  1072 
00,3343  TO  00,3405  1073 
00,3406  TC  00,3455  1074 
00,3456  TO  00,3516  1075 


5072  TO  5127 

5130  1C  5132 

5133  TO  5164 

5165  TC  5172 


1097  6216 

1098  6220 

1099  6252 

1110  6266 


TO  6217  1001 
TO  6251  1002 
TC  6265  1003 
TO  6276  1004 


7726  TO 
7753  TO 
7757  TO 
7761  TO 


7752  1092 
7756  1294 
7760  1451 
7762  28 


00  ,3517  TO  00,3552  ir>76 
00,3553  TC  00,3607  1077 
00,3610  TO  00,3651  1078 
00,3652  TO  00,3713  1079 


5173  10  5234  1113 

5235  1114 
5236  TC  5260  1115 

5261  TO  5276  1123 


6277  TC  6336  1005 
6337  in  6356  1006 
6357  TO  6374  1008 
6375  TC  6416  1009 


00,2000 

00,2017 

00,2042 

00,2101 


TO  00,2016  1007 
TO  00  ,2041  1041 
TO  00,2100  1042 
TO  00,21 20  1043 


00,3714  TC  00,3734  1080 
00,3735  TO  00,3767  1369 
00,3770  TC  00,3774  1370 
00,3775  TC  00,3776  28 


5277  TO  5300  1124 

5301  7C  5310  1125 

5311  TO  5326  1266 

5327  TC  5357  1290 


6417  TO  6436  1010 
6*37  TC  6462  1011 
6463  TO  6472  1012 
6473  TO  6525  1013 


00,2121  TO  00,2143  1044 
00,2144  TO  00,2171  1045 
00,21  72  TC  00  ,2213  1046 
00,2214  TO  00,2235  1047 


01  ,2000  TO  01,2001  43 

C3  ,2002  TC  01  ,2032  240 

01,2033  TO  01,2070  241 

01  ,2071  TC  01  ,2133  242 
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35,2455  TC 
35,2511  TO 
35,2572  TO 
35,2635  TC 


35,2510  663 

35,2571  664 

35,2634  665 

35,2673  666 


36,2575  TO 
36,2631  TC 
36,2671  TO 
36,2742  TO 


36,2630  736 

36,2670  737 

36,2741  738 

36,3004  739 


37,3212  TO 
37,3274  TO 
37  ,33  5 2 TC 
37,3410  TO 


37  ,3273  707 

37,3351  7'>B 

37,3407  709 

37,3436  852 


40,3550  TC  40,3551  460 

40,3552  TO  40,3576  461 

40,3577  TO  40,3643  462 

40,3644  TC  40,3645  463 


35,2674  TO 
35,3754  TC 
35,3036  70 

35,3120  TO 


35,2753  669 

35,3035  670 

35,3117  671 

35,3201  672 


36,3005  TC 
?6,3051  TO 
36,3117  TC 
36,3137  TC 


36,3050  740 

36,3116  741 

36,3136  742 

36,3151  743 


37,3437  TO 
37,3503  TO 

37  ,3537  TO 


37,3502  853 

37.3535  854 

37.3536  864 

37  ,3610  865 


40,36^6  TO  40,3713  474 

4n,37l4  TO  40,3736  475 

40,3737  TO  40,3755  705 

40,3756  TO  4'',  3757  36 


35,32C2 

35,3204 

35,3216 

35,3274 


1C  35,3203 
10  35,321  5 
TC  35,3273 
TC  35,3306 


673 

674 

675 

676 


36,3152 
36  ,31  53  TC  36  ,3174 
36,3175  TO  36,3241 
36,3242  TC  36,3311 


744 

748 

749 

750 


37,3711 

37,3745 


TC  37,3651 
TO  37,3710 
TC  37,3744 
TO  37,3770 


866 

1327 

1328 

1329 


41,2000  TC  41,2033  408 

41,2034  TO  41,2112  409 

41,2113  TO  41, 2167  AlO 
41  .2170  TO  41  ,2220  411 


35,3307  TO 
35,3352  TC 
35,3357  TO 
35,3432  TO 


35,  3351  677 

35,3356  678 

35,3431  679 

35,3477  680 


36,3212  TC 
36,3256  TO 
36,3425  TC 
36,3473  TO 


36,3355  751 

36,3424  752 

36,3472  753 

36,3543  754 


37,3771  TO 
40,2000  TO 
40,2043  TO 
40,2077  TO 


37,3772  36 

40,2042  301 

40,2076  302 

40,2150  400 


41,2221  TO  41,2264  412 

41  ,2265  TC  41,2342  413 

41,2343  TO  41,2354  414 

41,2355  TO  41,2432  416 


35,3500  TC 
35,  3515  TO 
35,3562  TO 
35,36C3  TC 


35,3514  681 

35,  3561  682 

35,3602  683 

35,3612  684 


36,3544  TO 
36,3612  TC 
36,3667  TO 
36,3740  TC 


36,3611  755 

36,3666  756 

36,3737  757 

36,3770  758 


40,2151  TO 
40,2217  TO 
40,2300  TO 
40,2352  TO 


40,2216  401 

40,2277  402 

40  ,2351  403 

40,2424  404 


41,2433  70  41,2477  417 

41 ,2500  TO  41,2552  418 

41,2553  TO  41,2621  419 

41,2622  TO  41  ,2663  428 


35,3613 

35,3632 

35,3656 

35,3702 


TO  35,3631 
TC  35,3655 
TO  35,3701 
TO  35,3706 


685 

686 

735 

736 


36,3771 

37,2000 

37,2002 

37,2C37 


TC  36,3772 
TO  37,2001 
TC  37  ,2036 
TO  37,2117 


375 

376 


40  ,2425  TO 
40,2467  TC 
40,2543  TO 
40,2615  TC 


40,2466  40  5 

40,2542  406 

40,2614  407 

40  ,2647  420 


41,2664  TO 
41  ,2733  TC 
41.3012  TO 
41  ,3065  TO 


41,2732  429 

41,3011  430 

41,3064  431 

41,3136  432 


35,3707 
35,  3726 
35,3736 
36, 2000 


TC  35,3725 
TO  35,  3735 
7C  35,3737 
TO  36,2021 


37  ,2120 
37,2172 
37,2252 
37 ,2275 


TC  37,2171 
TC  37,2251 
TO  37,227<f 
TO  37,2346 


377 

378 

379 

380 


40,2650 
40  ,2725 
40  ,2766 
40 ,3025 


TO  40,2724 
TO  40,2765 
TO  40,3024 
TO  40, 3043 


421 

422 

423 


41,3137 
41,3210 
41  ,3255 
41,3303 


TC  41 ,3207 
TO  41,3254 
TO  41  ,3302 
TO  41 ,3354 


433 

434 

441 

442 


36,2022  TO 
36,2024  TC 
36,2046  TO 
36,2113  TO 


36,2023  40 

36,2045  725 

36,  2112  726 

36,2150  727 


37,2247  TO  37,2400 
37,2401  TC  37,2457 
37,2460  TO  37  ,2477 
37,2500  TO  37,2535 


381 

382 

383 
385 


40,3044  TC 
40,3117  TO 
40,3172  TO 
40,3234  TO 


40,3116  435 

40,3171  436 

40,3233  437 

40,3304  445 


41  ,3355  TC 
41  ,3400  TO 
41,3410  TO 


41,3377  443 

41,3407  444 

41.3441  447 

41.3442  448 


36,2151 

36,2227 

36,2275 

36,2342 


TO  36,2226 
TO  36,2274 
TC  36,2341 
TO  26,2401 


728 

729 

730 

731 


37,2657 

37,2737 


TC  37,2576 
TC  37,2656 
TO  37, 2736 
TC  37,3004 


386 

387 

388 

389 


40,3305  TO 
40  ,3342  TO 
40,3356  TO 
40,3421  TO 


40,3341  446 

40,3355  447 

40,3420  448 

40,3463  449 


41,3443 
41,3456 
41  ,3523 
41,3531 


TO  41  ,3455  450 

TO  41,3522  451 

TO  41  ,3530  452 

TC  41,3606  457 


36,2402 
36,2451 
36,  2521 
36,2566 


TO  36,2450  722 
TC  36,2520  733 
TO  36,2565  734 
TC  36,2574  735 


37,3CC5 

37,3060 

37,3113 

37,3133 


TO  37,3057 
TC  37,3112 
TC  37,3132 
TO  37,321  1 


390 

391 

705 

706 


40,3464  TC  40,3475 
4C,3476  TO  40,3520 
40,3521  TO  40 ,3523 
40,3524  TO  40  ,3547 


450 

452 

453 

454 


41,3607  TC  41, 3625  458 

41  ,3626  TC  41,3673  471 

41,3674  TO  41,3740  472 

41  ,3741  TO  41 ,3747  473 
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^2,2002  TO  42,2034  277 

42,2035  TC  A2,2C53  284 


43,22CC  TC  43  ,2205 
43,2206  TO  43,22?5 
43  ,2236  TC  43,2303 
43,2304  TC  43,2324 


268 

269 

270 

271 


42,2054  TC  42,2064 
42,2065  TO  42,2102 
42,2103  TC  42,2141 
42,2142  TC  42,2207 


289 

29C 

306 

3C7 


43,2326 
43,2371 
43  ,2422 


43,2325  272 

TC  43  ,2370  273 

TO  43,2421  275 

TC  43,2441  276 


42,2210 

42,2244 

42,2271 

42,2324 


TO  42,  2243  3C8 

TC  42  ,2270  309 

TO  42,2323  310 

TO  42,2375  311 


43,2442 

43,2445 

43,2510 

43,2561 


TC  43,2444  277 

TC  43, 2507  278 

TC  43,2560  279 

TO  43,2633  280 


42  ,2376  TC 
42,2434  TO 
42,2475  TC 
42,2556  TO 


42,2433  312 

42,2474  313 

42,2555  314 

42,2637  315 


43,2634  TO  43,2677  281 

43,27CC  TC  43,2732  282 

43,2733  TO  43, 277C  283 

43,2771  284 


42,2640  TO 
42,2715  TC 
42,2777  TO 
42,3061  TC 


42,  2714  316 

42,2776  317 

42,3060  318 

42,3135  319 


43,2772 
43,3C10 
43 ,3C3C 
43,3036 


TO  43,3007  285 

TO  43,3027  286 

TC  43  ,3035  287 

TO  43,3044  288 


42,3136 

42,3220 

42,3230 

42,3233 


TC  42,3217  320 

TO  42, 3227  321 

TC  42,3232  423 

TO  42,3306  424 


43  ,3045  TC 
43,3066  TC 
43,3075  TO 
43  ,3105  TC 


43,3065  289 

43,3074  290 

43,3104  291 

43,3144  292 


42,3307  TO 
42,3370  TC 
42,3444  TO 
42,3452  TC 


42,3367  425 

42,3443  426 

42,3451  427 

42,3533  438 


43,3145 

43,3156 

43,3163 

43,3223 


TO  43,3155  293 

TO  43,3162  294 

TC  43  ,3222  299 

TO  43,3253  300 


42,3534  TC  42,3604  439 

42,3605  440 

42  ,3606  490 

42,36C7  TO  42,3670  491 


TC  43,3256  301 
TC  43,3315  1278 
TO  43, 3363  1279 
TC  43 ,3437  1280 


42,3671  TO 
42,3753  TC 
42,3770  TO 


42,3752  492 

42,3767  493 

42,3771  36 


43,3440  TO 
43,3520  TC 
43,3563  TC 


43,3517  1281 
43,3562  1282 
43  ,3641  1283 


43,2000  TC  43,2045  263 


43,3642  TO  43,3720  1284 


43,2046  TC  43,2115 
43,2116  TO  43,2125 
43,2126  TC  43,2161 
43,2162  TO  43,2177 


264 

265 

266 
267 


43  ,3721 
43,3751 
43,3771 


TC  43,3750  1285 
TC  43,3770  1380 
TC  43,3775  1381 
43,3776  36 
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LEMONAIOolOA 
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KI  SSI  N6  .055 
FLY  ol52 

LEMP50S  *119 
SKIPPER  » ICl 
LMDAP  «025 


THE  ASSEMBLY  l^A  S GOOD  AND  MANUFACTURABLE*  NC  LINES  WERE  CUSSEC* 


BINARY  RECORDS  FOR  "LUM IN ARY,R 131 " NOT  STORED  BECAUSE:  A FILE  WITH  THIS  NAME  ALREADY  EXISTS, 


I |l  Wf  } Jilipif  I 


WILSOM  JONES 


NYLON  POST  BINDER 


14-1411  N 

^TYPE  1/.020  GENUINE  PRESSBOARD^ 

2 PURPOSE  BINDER 

This  binder  may  be  used  to  bind  both  marginal-punched  sheets  and  forma 
punched  with  2’//,  4Ji',  6*.  7’,  B'/i',  13Ji'  and  Uy,‘  ceriter-to-center  hole*. 


1.  MARGINAL-PUNCHED  SH^^S 

UNBURST 


(a) 

Insert  posts  In  end  holes  of 
stub.  Turn  counter-clock- 
wise until  heads  are  flush 
against  Inside  of  channel.. 


(bt 

Gather  sheets  In  evett 
stack.  Insert  posts  In  sec- 
ond holes  from  both  ends 
of  the  sheets. 


Insert  posts  Ihru^nd  holes 
of  stub  as  In  illustration  (a). 
Plus  posts  Into  top  holes 
In  both  margins  of  sheets. 


This  binder  may  be  loaded 
from  the  top  or  bottom  by 
using  posts  without  screw 
heads.  Ask  the  dealer  from 
whom  you  bought  the 
binder  for  Posts  and 
Slides  Pack  No.  1323. 


Vi. 


Put  top  cover  on  with  stub 
turned  under,  Insert  posts 
thru  end  holes. 


Bend  post  ^ 

down  into  channel. 
Push  locks  over  posts 
toward  outside  ends  of 
channel  until  snuo^ 

■■■  Y, 


2.  CONVENTIONALLY  PUNCHED 
LOOSE  LEAF  SHEETS 
AND  STRIPPED  UNBURST  SHEETS 

Follow  steps  (a)  thru  (d)  at  left,  except  that  posts 
should  be  threaded  Into  holes  In  stub  that  corre- 
spond to  holes  In  forms  or  sheets  to  be  bound. 

ewiLSON  JONES  COMPANT  WM75  A) 


J 


